bryan/hartman-server
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

EZdiagRf refactor

Browse Source
This commit is contained in:
Bryan Roessler
2024-07-29 17:45:16 -04:00
parent 16db20d264
commit d2a5d9e69f
4 changed files with 108 additions and 160 deletions
Download Patch File Download Diff File Expand all files Collapse all files

221
workflow/apps/matlab/ezview/EZdiagRFsSheet.m
View File

@@ -1,134 +1,105 @@
%Diagnostic sheet called by EZvInitLoad.m, EZexpSel.m ?EZinteractDev_.m?
%EZdiagRFsSheet.m
try %Try the whole routine
global Exp global Exp
if strcmp(Exp(expN).DexpType,'multi')||... try %Try the whole routine
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); if strcmp(Exp(expN).DexpType,'multi') ||...
for d=1:DMnum strcmp(Exp(expN).DexpType,'chrono')
try DexpN=n;
%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 end
%Distributed Global stats rnames=[];
data=[];
try try
RFmdGLB= Exp(expN).Dexp(DexpN).RFmdGLB(d); cnames={'RF Name','Median','Mean','STD','Minimum','Maximum'};
mvalsDG= Exp(expN).Dexp(DexpN).RFmedianG(d); rCnt=0;
RFmeanG= Exp(expN).Dexp(DexpN).RFmeanG(d); RFfilename= fullfile(Exp(expN).Dexp(DexpN).resDir,'PrintResults','!RFsDiagnostics.txt');
RFstdG= Exp(expN).Dexp(DexpN).RFstdG(d); fid = fopen(RFfilename,'w'); %('RFdiagnostic.txt','w');
maxG= Exp(expN).Dexp(DexpN).RFmaxG(d); ftitle= strcat(ExpPath,':::Reference Diagnostic Values');
minG= Exp(expN).Dexp(DexpN).RFminG(d); 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');
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) rnames= cell(1,1);
fprintf(fid,'\n') 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\n',...
cell2mat(RFmd1LB), mval1,mean1,std1,min1,max1)
rCnt=rCnt+1;
data(rCnt,1:5)=[mval1,mean1,std1,min1,max1];
rnames(rCnt)=RFmd1LB;
catch
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\n', cell2mat(RFmd2LB),mval2,mean2,std2,min2,max2)
rCnt=rCnt+1;
data(rCnt,1:5)= [mval2,mean2,std2,min2,max2];
rnames(rCnt)= RFmd2LB;
catch
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\n', cell2mat(RFmdGLB),mvalsDG,RFmeanG,RFstdG,minG,maxG)
rCnt=rCnt+1;
data(rCnt,1:5)=[mvalsDG,RFmeanG,RFstdG,minG,maxG];
rnames(rCnt)=RFmdGLB;
catch
message='No RF2 MasterPlate'
end
end
rCnt=rCnt+1; % Distributed RF1 Plates Stats Print
data(rCnt,1:5)= [mvalsDG,RFmeanG,RFstdG,minG,maxG]; try
rnames(rCnt)= RFmdGLB; for d=1:DMnum
catch ME for mm=1:length(dMPs)
message= 'No RF2 MasterPlate' % RFmd1posD= Exp(expN).Dexp(DexpN).RFmdPindx(d,dMPs(mm));
end % 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???
end %for d=1:DMnum % rf1scNdisp= Exp(expN).Dexp(DexpN).RFmdPscanN(d,dMPs(mm));
RFmdPLB=Exp(expN).Dexp(DexpN).RFmdPLB(d,dMPs(mm));
%Distributed RF1 Plates Stats Print mval1Disp=Exp(expN).Dexp(DexpN).RFmedianP(d,dMPs(mm));
% mean1Disp=Exp(expN).Dexp(DexpN).meanP(d,dMPs(mm));
try std1Disp=Exp(expN).Dexp(DexpN).stdP(d,dMPs(mm));
for d=1:DMnum minDisp=Exp(expN).Dexp(DexpN).minP(d,dMPs(mm));
for mm=1:length(dMPs) maxDisp=Exp(expN).Dexp(DexpN).maxP(d,dMPs(mm));
%RFmd1posD= Exp(expN).Dexp(DexpN).RFmdPindx(d,dMPs(mm)); fprintf(fid,'%s\t %7.2f\t %7.4f\t %7.4f\t %7.4f\t %7.4f\t\n', cell2mat(RFmdPLB),mval1Disp,mean1Disp,std1Disp,minDisp,maxDisp);
%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??? rCnt=rCnt+1;
%rf1scNdisp= Exp(expN).Dexp(DexpN).RFmdPscanN(d,dMPs(mm)); data(rCnt,1:5)= [mval1Disp,mean1Disp,std1Disp,minDisp,maxDisp];
RFmdPLB= Exp(expN).Dexp(DexpN).RFmdPLB(d,dMPs(mm)); rnames(rCnt)= RFmdPLB;
mval1Disp= Exp(expN).Dexp(DexpN).RFmedianP(d,dMPs(mm)); end
mean1Disp= Exp(expN).Dexp(DexpN).meanP(d,dMPs(mm)); end
std1Disp= Exp(expN).Dexp(DexpN).stdP(d,dMPs(mm)); catch
minDisp= Exp(expN).Dexp(DexpN).minP(d,dMPs(mm)); message='No Distributed RF1 MasterPlates'
maxDisp= Exp(expN).Dexp(DexpN).maxP(d,dMPs(mm)); end
catch
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') Warndlg('Problem writing the RFdiagnosticSheet.txt file')
end end
fclose(fid) fclose(fid)
catch catch
msg= 'EZdiagRFsSheet.m failed. Check Permissions' msg='EZdiagRFsSheet.m failed. Check Permissions'
end end
%{
mErr
message= mErr.stack(end).line
error_line = mErr.stack(end).line
%}

15
workflow/apps/matlab/ezview/EZexpSel.m
View File

@@ -1,18 +1,3 @@
%EZexpSel.m %modified to accomodate App Designer issues 230829
%Called from EZviewGui.m or EZviewGui_export.m or migrapted EZviewGui_App.wlapp 230831
%{
>EZexpSel
>EZVimDisplay
>EZhtMap
>EZdiagRFsSheet
>EZsingleExUserRF
>EZmultigeneRFsLst
>EZdiagRFsSheet
>EZhtMap
>EZmultiDayGui
>EZmultiDay
>EZmultiExLoad
%}
global Expaa global Expaa
global Expbb global Expbb

22
workflow/apps/matlab/ezview/EZvInitLoad.m
View File

@@ -1,5 +1,4 @@
%EZvInitLoad %EZvInitLoad
clear Exp
global Exp global Exp
global Expaa global Expaa
global Expbb global Expbb
@@ -7,15 +6,15 @@ global userPars
global usrExpJobsDir %added 23_0508 global usrExpJobsDir %added 23_0508
global zonePB %added 230828 to fix migration issues global zonePB %added 230828 to fix migration issues
userPars.BPdefault= {'on','on','0.3','8','45','1000'}; userPars.BPdefault={'on','on','0.3','8','45','1000'};
userPars.boxplotFlg= 1; userPars.boxplotFlg=1;
userPars.BPoutliers= 'On'; userPars.BPoutliers='On';
userPars.BPnotch= 'On'; userPars.BPnotch='On';
userPars.BPlblShft= 0.3; userPars.BPlblShft=0.3;
userPars.BPfontSz= 8; userPars.BPfontSz=8;
userPars.BProt= 45; userPars.BProt=45;
userPars.Trenddefault= {'1000'}; userPars.Trenddefault={'1000'};
userPars.kfiltLim= str2double(userPars.BPdefault(6)); userPars.kfiltLim=str2double(userPars.BPdefault(6));
%Exp(expN).expLoadCnt=0; ??? May need to add in Future %Exp(expN).expLoadCnt=0; ??? May need to add in Future
Exp(1).cTraceN= 1; %Added for Cummulative Composite Olay plotting Exp(1).cTraceN= 1; %Added for Cummulative Composite Olay plotting
@@ -368,7 +367,6 @@ for mp=1:MPnum %length(Exp(expN).Dexp(1).MP)
end %if isempty(regexpi(char((Exp(expN).Dexp(1).MP(mp).genename{1}(ind384))),'blank'))... end %if isempty(regexpi(char((Exp(expN).Dexp(1).MP(mp).genename{1}(ind384))),'blank'))...
%********************************************************************** %**********************************************************************
catch catch
error='EZexpSel lineAfter 135 EZvInitLoad.m'
mp mp
ind384 ind384
msgBadGeneName= strcat('check genename at mp=',num2str(mp),' indx=',num2str(ind384)) msgBadGeneName= strcat('check genename at mp=',num2str(mp),' indx=',num2str(ind384))
@@ -625,7 +623,6 @@ end
catchissue='Ln408' catchissue='Ln408'
Exp(1).Dexp(1).RFmd2pltN= 1; Exp(2).Dexp(1).RFmd2pltN= 1; Exp(3).Dexp(1).RFmd2pltN= 1; Exp(1).Dexp(1).RFmd2pltN= 1; Exp(2).Dexp(1).RFmd2pltN= 1; Exp(3).Dexp(1).RFmd2pltN= 1;
end end
error='EZexpSel lineAfter 354'
end %if RF2scanN doesn't exist this addition to list will be skipped end %if RF2scanN doesn't exist this addition to list will be skipped
RFcombValList= cat(1,medValList1{d+1},medValList2{d+1}); RFcombValList= cat(1,medValList1{d+1},medValList2{d+1});
Exp(1).Dexp(1).RFmean(d+1)= mean(RFcombValList);Exp(2).Dexp(1).RFmean(d+1)= mean(RFcombValList);Exp(3).Dexp(1).RFmean(d+1)= mean(RFcombValList); Exp(1).Dexp(1).RFmean(d+1)= mean(RFcombValList);Exp(2).Dexp(1).RFmean(d+1)= mean(RFcombValList);Exp(3).Dexp(1).RFmean(d+1)= mean(RFcombValList);
@@ -754,7 +751,6 @@ catch %try ln565
catchissue='Ln' catchissue='Ln'
Exp(expN).Dexp(1).RFmdPpltN= 1; %This might keep from breaking BUT ??? Exp(expN).Dexp(1).RFmdPpltN= 1; %This might keep from breaking BUT ???
end end
error='EZexpSel lineAfter 565'
end %try ~ln565 end %try ~ln565
end %for d=0:DMnum end %for d=0:DMnum

4
workflow/apps/matlab/ezview/EZvStartup.m
View File

@@ -1,4 +0,0 @@
%EZviewGui.m startup
EZviewGui