% Below are the 
%  Deviations from 1.00, in percent, of the
%  ratios of strength value (to run 1 measurement)
%  for currents of Imag = [1,10,20,40, 50,100]
%
%  Pct= (Ratio_SL2_SL1 -1.0 ).*100.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%5
%
% run,  pct1,    pct10,    pct20,     pct40,      pct50,     pct100
%
A = [...   
 6  -0.13115  -0.0045659  0.0040725  0.0066228   0.006628    0.006631;
 7  -6.2954   -0.73569   -0.32524   -0.15721    -0.13353    -0.063887;
 8  -4.138    -0.4835    -0.21038   -0.095358   -0.078736   -0.04024 ;
 9  -3.4213   -0.40286   -0.17583   -0.078822   -0.064608   -0.035667;
10  -3.002    -0.35548   -0.1549    -0.067595   -0.054493   -0.030919;
11  -2.423    -0.29635   -0.13485   -0.064347   -0.05381    -0.0365;
12  -2.3883   -0.28435   -0.12382   -0.052861   -0.042018   -0.024738;
13  -2.0525   -0.24251   -0.1034    -0.040994   -0.031363   -0.01883;
14  -1.8769   -0.2268    -0.10061   -0.044686   -0.036212   -0.024469;
15  -1.4699   -0.12821   -0.034596  -0.0052227  -0.0049988  -0.014278;...
];
[n,p]=size(A);
t=1:n;
run=A(t,1);
% pct1=A(t,2);  
figure(1)
subplot(2,1,1)
plot(run,A(t,2))
legend('1A')
xlabel('Run Number');
ylabel('Percent Dev from 1.00')
grid on
%
subplot(2,1,2)
hold on
for i=3:4
plot(run,A(t,i));
end
legend('10A','20A')
xlabel('Run Number');
ylabel('Percent Dev from 1.00')
grid on
%%%%%%%%%%%5
figure(2)
hold on
for i=5:7
plot(run,A(t,i));
end
legend('40A','50A','100A')
xlabel('Run Number');
ylabel('Percent Dev from 1.00')
grid on