%Diagnostic sheet called by EZvInitLoad.m, EZexpSel.m ?EZinteractDev_.m?
%EZdiagRFsSheet.m
try %Try the whole routine 
global Exp
if strcmp(Exp(expN).DexpType,'multi')||...
   strcmp(Exp(expN).DexpType,'chrono')     
   DexpN=n;
end
rnames=[];
data=[];
try
cnames= {'RF Name','Median','Mean','STD','Minimum','Maximum'};
rCnt=0;
RFfilename= fullfile(Exp(expN).Dexp(DexpN).resDir,'PrintResults','!RFsDiagnostics.txt');
fid = fopen(RFfilename,'w');  %('RFdiagnostic.txt','w');
ftitle= strcat(ExpPath,':::Reference Diagnostic Values');
try
fprintf(fid,'%s\n',ftitle);
catch mErr
    errorMessage= mErr.message
    msg= 'Check Permissions of PrintResult folder. !RFsDiagnostics.txt may not be created';
    warning((msg));
    warndlg('Check Permissions of PrintResult folder. !RFsDiagnostics.txt may not be created');
end  
fprintf(fid,'%s\t %s\t %s\t %s\t %s\t %s','RF Name','Median','Mean','STD','Min','Max');
fprintf(fid,'\n');
  
rnames= cell(1,1);  
for d=1:DMnum
 try
  %RF1 MasterPlate Stats   
  RFmd1LB= Exp(expN).Dexp(DexpN).RFmd1LB(d);
  mval1= Exp(expN).Dexp(DexpN).RFmd1val(d);
  mean1= Exp(expN).Dexp(DexpN).mean1(d); 
  std1= Exp(expN).Dexp(DexpN).std1(d);
  min1= Exp(expN).Dexp(DexpN).min1(d);
  max1= Exp(expN).Dexp(DexpN).max1(d);
  
  fprintf(fid,'%s\t %7.2f\t %7.4f\t %7.4f\t %7.4f\t %7.4f\t', cell2mat(RFmd1LB), mval1,mean1,std1,min1,max1)
  fprintf(fid,'\n')
  
  rCnt=rCnt+1;
  data(rCnt,1:5)= [mval1,mean1,std1,min1,max1]; 
  rnames(rCnt)= RFmd1LB;
 catch mErr
      message= 'No RF1 MasterPlate'
 end
  try
  %RF2 MasterPlate Stats    
  RFmd2LB= Exp(expN).Dexp(DexpN).RFmd2LB(d);
  mval2= Exp(expN).Dexp(DexpN).RFmd2val(d);
  mean2= Exp(expN).Dexp(DexpN).mean2(d);
  std2= Exp(expN).Dexp(DexpN).std2(d);  
  min2= Exp(expN).Dexp(DexpN).min2(d);
  max2= Exp(expN).Dexp(DexpN).max2(d);

  fprintf(fid,'%s\t %7.2f\t %7.4f\t %7.4f\t %7.4f\t %7.4f\t', cell2mat(RFmd2LB),mval2,mean2,std2,min2,max2)
  fprintf(fid,'\n')
  
  rCnt=rCnt+1;
  data(rCnt,1:5)= [mval2,mean2,std2,min2,max2];
  rnames(rCnt)= RFmd2LB; 
  catch ME
      message= 'No RF2 MasterPlate'
  end
  %Distributed Global stats
  try
  RFmdGLB= Exp(expN).Dexp(DexpN).RFmdGLB(d);
  mvalsDG= Exp(expN).Dexp(DexpN).RFmedianG(d);
  RFmeanG= Exp(expN).Dexp(DexpN).RFmeanG(d);
  RFstdG= Exp(expN).Dexp(DexpN).RFstdG(d); 
  maxG= Exp(expN).Dexp(DexpN).RFmaxG(d);
  minG= Exp(expN).Dexp(DexpN).RFminG(d);
  
  fprintf(fid,'%s\t %7.2f\t %7.4f\t %7.4f\t %7.4f\t %7.4f\t', cell2mat(RFmdGLB),mvalsDG,RFmeanG,RFstdG,minG,maxG)
  fprintf(fid,'\n')
  
  rCnt=rCnt+1;
  data(rCnt,1:5)= [mvalsDG,RFmeanG,RFstdG,minG,maxG];  
  rnames(rCnt)= RFmdGLB;
  catch ME
      message= 'No RF2 MasterPlate'
  end 
end    %for d=1:DMnum 

%Distributed RF1 Plates  Stats Print
%  
try
for d=1:DMnum 
  for mm=1:length(dMPs)
   %RFmd1posD= Exp(expN).Dexp(DexpN).RFmdPindx(d,dMPs(mm));
   %dMP= Exp(expN).Dexp(DexpN).RFmdPpltN(d,dMPs(mm));   %This is a storage of the MasterPlate used NOT the ScanPlate?  WeMight wish to store the ScanPlateNumber also???
   %rf1scNdisp= Exp(expN).Dexp(DexpN).RFmdPscanN(d,dMPs(mm));
   RFmdPLB= Exp(expN).Dexp(DexpN).RFmdPLB(d,dMPs(mm));
   mval1Disp= Exp(expN).Dexp(DexpN).RFmedianP(d,dMPs(mm));
   mean1Disp= Exp(expN).Dexp(DexpN).meanP(d,dMPs(mm)); 
   std1Disp= Exp(expN).Dexp(DexpN).stdP(d,dMPs(mm));
   minDisp= Exp(expN).Dexp(DexpN).minP(d,dMPs(mm));
   maxDisp= Exp(expN).Dexp(DexpN).maxP(d,dMPs(mm));

  fprintf(fid,'%s\t %7.2f\t %7.4f\t %7.4f\t %7.4f\t %7.4f\t', cell2mat(RFmdPLB),mval1Disp,mean1Disp,std1Disp,minDisp,maxDisp);
  fprintf(fid,'\n');
  
   rCnt=rCnt+1;
   data(rCnt,1:5)= [mval1Disp,mean1Disp,std1Disp,minDisp,maxDisp];
   rnames(rCnt)= RFmdPLB;  %cell2mat(RFmdPLB); 
   
  end   %for mm=1:length(dMPs) 
end  %for d=1:DMnum
catch ME
      message= 'No Distributed RF1 MasterPlates'
end
    
catch
    Warndlg('Problem writing the RFdiagnosticSheet.txt file')
end
fclose(fid)
catch
    msg= 'EZdiagRFsSheet.m failed. Check Permissions'
    
end
  
 



%{
mErr
    message= mErr.stack(end).line
    error_line = mErr.stack(end).line
%}