function [ z ] = es2( )
%ES2 Valutazione incertezza misure HP974A
%Caricamento dati
R1=98.78;
RFS=500;
IBavg=40;
IBmax=40.04;
IBmin=39.99;
IFS=500;
%R1
U=zeros(4,1);
U(1)=0.06/100;
U(3)=2*RFS/50000;
inc=incDir(U,R1);
stringa=['R1 = ' num2str(R1,'%0.2f') ' ' num2str(inc,'%0.2f') ' Ohm'];
disp(stringa);
%IBavg
U=zeros(4,1);
U(1)=0.3/100;
U(3)=2*IFS/50000;
inc=incDir(U,IBavg);
stringa=['IBavg = ' num2str(IBavg,'%0.2f') ' ' num2str(inc,'%0.2f') ' microA'];
disp(stringa);
%IBmax-IBmin
U=zeros(4,1);
U(1)=0.3/100;
U(3)=2*IFS/50000;
x=IBmax-IBmin;
inc=incDiff(U,x);
stringa=['IBmax-IBmin = ' num2str(x,'%0.2f') ' ' num2str(inc,'%0.2f') ' microA'];
disp(stringa);
%IBmax/IBmin
U=zeros(4,1);
U(3)=2*IFS/50000;
x=IBmax/IBmin;
inc=incRapp(U,IBmax,IBmin);
inc=inc*abs(x);
stringa=['IBmax/IBmin = ' num2str(x,'%0.3f') ' ' num2str(inc,'%0.3f') ' microA'];
disp(stringa);