Add ezview
This commit is contained in:
238
workflow/apps/matlab/ezview/EZlstBoxCmpExt.asv
Executable file
238
workflow/apps/matlab/ezview/EZlstBoxCmpExt.asv
Executable file
@@ -0,0 +1,238 @@
|
||||
%EZlstBoxExtCmp.m
|
||||
%Called by EZviewGui.m (NOT by EZvDatatip.m and EZlstBoxExt.m
|
||||
%Provides Trace data storage for use by EZfigTrendOL.m
|
||||
|
||||
RFcmpGFlg=0;
|
||||
if isequal(tempLB(4:6),'cmp'), RFnum= str2double(tempLB(3));
|
||||
elseif isequal(tempLB(3:6),'cmpG'), RFcmpGFlg=1;
|
||||
elseif isequal(tempLB(3:6),'cmpP'), RFcmpGFlg=1; %I beleive handling will be the same as RFcmpG
|
||||
end
|
||||
Exp(expN).cLmdEven= 0; %Added for Cummulative Median and Mean 'C' plot
|
||||
RFDMflg=0;
|
||||
if zoneSel==1,DexpN= (get(ghandles.DN1,'value')); end
|
||||
if zoneSel==2,DexpN= (get(ghandles.DN2,'value')); end
|
||||
if zoneSel==3,DexpN= (get(ghandles.DN3,'value')); end
|
||||
|
||||
try
|
||||
p1=cell2mat(strfind(selGnOrf,'('));
|
||||
p2= cell2mat(strfind(selGnOrf,')'));
|
||||
dmNum= str2num(selGnOrf{1}(p1+1:p2-1));
|
||||
inDM= str2num(selGnOrf{1}(p1+1:p2-1));
|
||||
if (~isempty(dmNum)&& isnumeric(dmNum)),RFDMflg=1; end
|
||||
catch
|
||||
end
|
||||
|
||||
|
||||
if RFDMflg, Exp(zoneSel).Dexp(DexpN).pertSel=dmNum; end %pertSel=pert;
|
||||
|
||||
|
||||
sgdInfoOnly=get(handles.InfoToggle,'value');
|
||||
if sgdInfoOnly==1
|
||||
EZviewInfoBox
|
||||
else % Runs to end of EZlstBoxExt.m within this else condition
|
||||
|
||||
%***********PLOT Selected Gene/Orf Spot ******************************************
|
||||
%try
|
||||
if RFcmpGFlg==0
|
||||
K= Exp(expN).Dexp(DexpN).RFcmpK(RFnum).dm(inDM).med; Ks= num2str(K);
|
||||
r= Exp(expN).Dexp(DexpN).RFcmpr(RFnum).dm(inDM).med; rs= num2str(r);
|
||||
l= Exp(expN).Dexp(DexpN).RFcmpL(RFnum).dm(inDM).med; Ls= num2str(l);
|
||||
Kl= K - Exp(expN).Dexp(DexpN).RFcmpK(RFnum).dm(inDM).std;
|
||||
Ku= K + Exp(expN).Dexp(DexpN).RFcmpK(RFnum).dm(inDM).std;
|
||||
rl= r - Exp(expN).Dexp(DexpN).RFcmpr(RFnum).dm(inDM).std;
|
||||
ru= r + Exp(expN).Dexp(DexpN).RFcmpr(RFnum).dm(inDM).std;
|
||||
lfast= l - Exp(expN).Dexp(DexpN).RFcmpL(RFnum).dm(inDM).std;
|
||||
lslow= l + Exp(expN).Dexp(DexpN).RFcmpL(RFnum).dm(inDM).std;
|
||||
elseif RFcmpGFlg==1
|
||||
K= Exp(expN).Dexp(DexpN).RFcmpGK.dm(inDM).med; Ks= num2str(K);
|
||||
r= Exp(expN).Dexp(DexpN).RFcmpGr.dm(inDM).med; rs= num2str(r);
|
||||
l= Exp(expN).Dexp(DexpN).RFcmpGL.dm(inDM).med; Ls= num2str(l);
|
||||
Kl= K - Exp(expN).Dexp(DexpN).RFcmpGK.dm(inDM).std;
|
||||
Ku= K + Exp(expN).Dexp(DexpN).RFcmpGK.dm(inDM).std;
|
||||
rl= r - Exp(expN).Dexp(DexpN).RFcmpGr.dm(inDM).std;
|
||||
ru= r + Exp(expN).Dexp(DexpN).RFcmpGr.dm(inDM).std;
|
||||
lfast= l - Exp(expN).Dexp(DexpN).RFcmpGL.dm(inDM).std;
|
||||
lslow= l + Exp(expN).Dexp(DexpN).RFcmpGL.dm(inDM).std;
|
||||
end
|
||||
try Kstr=Ks(1:5); catch, Kstr = Ks(1:length(Ks)); end
|
||||
try rstr=rs(1:5); catch, rstr = rs(1:length(rs)); end
|
||||
try Lstr=Ls(1:5); catch, Lstr = Ls(1:length(Ls)); end
|
||||
|
||||
|
||||
t=1:200;
|
||||
clear g;
|
||||
|
||||
%try
|
||||
g = K ./ (1 + exp(-r.* (t - l )));
|
||||
gSlow= Kl ./ (1 + exp(-rl.* (t - lslow )));
|
||||
gFast= Ku ./ (1 + exp(-ru.* (t - lfast )));
|
||||
if K==0||r==0||l==0, g(1:200)=1;gSlow(1:200)=1;gFast(1:200)=1;end
|
||||
%tser=(scan(1,plateNum).plate(1).t0Series(:));
|
||||
%rawData= scan(1,plateNum).plate(1).intens(indx,:)/scan(1,plateNum).plate(1).Ag(indx);
|
||||
|
||||
if zoneSel==1, plotAxes=ghandles.Paxes1; OLaxes=ghandles.OLaxes1;
|
||||
Dlaxes=ghandles.Dlaxes1;Dkaxes=ghandles.Dkaxes1;Draxes=ghandles.Draxes1;
|
||||
Exp(1).traceN=Exp(1).traceN+1;
|
||||
traceN=Exp(1).traceN;
|
||||
end
|
||||
if zoneSel==2, plotAxes=ghandles.Paxes2; OLaxes=ghandles.OLaxes2;Daxes=ghandles.Daxes2;
|
||||
Dlaxes=ghandles.Dlaxes2;Dkaxes=ghandles.Dkaxes2;Draxes=ghandles.Draxes2;
|
||||
Exp(2).traceN=Exp(2).traceN+1;
|
||||
traceN=Exp(2).traceN;
|
||||
end
|
||||
if zoneSel==3, plotAxes=ghandles.Paxes3; OLaxes=ghandles.OLaxes3;Daxes=ghandles.Daxes3;
|
||||
Dlaxes=ghandles.Dlaxes3;Dkaxes=ghandles.Dkaxes3;Draxes=ghandles.Draxes3;
|
||||
Exp(3).traceN=Exp(3).traceN+1;
|
||||
traceN=Exp(3).traceN;
|
||||
end
|
||||
plot(plotAxes,t,g);hold (plotAxes,'on'); %plot(plotAxes,tser,rawData,'g*');
|
||||
plot(plotAxes,t,gSlow,'y'); plot(plotAxes,t,gFast,'r');hold (plotAxes,'off');
|
||||
%************CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC**************************************
|
||||
%Store L R and K valves for Composite [C] plots
|
||||
Exp(expN).ll(traceN)= l; Exp(expN).rr(traceN)= r; Exp(expN).kk(traceN)= K;
|
||||
if RFcmpGFlg==0
|
||||
Exp(expN).lstd(traceN)= Exp(expN).Dexp(DexpN).RFcmpL(RFnum).dm(inDM).std;
|
||||
Exp(expN).kstd(traceN)= Exp(expN).Dexp(DexpN).RFcmpK(RFnum).dm(inDM).std;
|
||||
Exp(expN).rstd(traceN)= Exp(expN).Dexp(DexpN).RFcmpr(RFnum).dm(inDM).std;
|
||||
|
||||
for dm=1:length(Exp(expN).Dexp(DexpN).DM.drug)
|
||||
Exp(expN).Trace(traceN).Dexp(DexpN).DM(dm).UsrLvals= {Exp(expN).Dexp(DexpN).RFcmpL(RFnum).dm(dm).Lvals};
|
||||
Exp(expN).Trace(traceN).Dexp(DexpN).DM(dm).UsrKvals= {Exp(expN).Dexp(DexpN).RFcmpK(RFnum).dm(dm).Kvals};
|
||||
Exp(expN).Trace(traceN).Dexp(DexpN).DM(dm).Usrrvals= {Exp(expN).Dexp(DexpN).RFcmpr(RFnum).dm(dm).rvals};
|
||||
end
|
||||
|
||||
Exp(expN).Trace(traceN).dmSel= inDM;
|
||||
Exp(expN).Trace(traceN).DexpN= DexpN;
|
||||
Exp(expN).Trace(traceN).UsrGLB= selGnOrf;
|
||||
|
||||
|
||||
elseif RFcmpGFlg==1
|
||||
Exp(expN).lstd(traceN)= Exp(expN).Dexp(DexpN).RFcmpGL.dm(inDM).std;
|
||||
Exp(expN).kstd(traceN)= Exp(expN).Dexp(DexpN).RFcmpGK.dm(inDM).std;
|
||||
Exp(expN).rstd(traceN)= Exp(expN).Dexp(DexpN).RFcmpGr.dm(inDM).std;
|
||||
|
||||
if strcmp(Exp(expN).DexpType,'chrono')
|
||||
for nn=1:length(Exp(expN).Dexp) %replaced dmSel with inDM for 'chrono' and RFcmpGFlg
|
||||
Exp(expN).Trace(traceN).Dexp(nn).DM(inDM).UsrLvals= Exp(expN).Dexp(nn).RFcmpGL.dm(inDM).Lvals;
|
||||
Exp(expN).Trace(traceN).Dexp(nn).DM(inDM).UsrKvals= Exp(expN).Dexp(nn).RFcmpGK.dm(inDM).Kvals;
|
||||
Exp(expN).Trace(traceN).Dexp(nn).DM(inDM).Usrrvals= Exp(expN).Dexp(nn).RFcmpGr.dm(inDM).rvals;
|
||||
end
|
||||
else
|
||||
for dm=1:length(Exp(expN).Dexp(DexpN).DM.drug)
|
||||
Exp(expN).Trace(traceN).Dexp(DexpN).DM(dm).UsrLvals= Exp(expN).Dexp(DexpN).RFcmpGL.dm(dm).Lvals;
|
||||
Exp(expN).Trace(traceN).Dexp(DexpN).DM(dm).UsrKvals= Exp(expN).Dexp(DexpN).RFcmpGK.dm(dm).Kvals;
|
||||
Exp(expN).Trace(traceN).Dexp(DexpN).DM(dm).Usrrvals= Exp(expN).Dexp(DexpN).RFcmpGr.dm(dm).rvals;
|
||||
end
|
||||
end
|
||||
|
||||
Exp(expN).Trace(traceN).dmSel= inDM;
|
||||
Exp(expN).Trace(traceN).DexpN= DexpN;
|
||||
Exp(expN).Trace(traceN).UsrGLB= selGnOrf;
|
||||
|
||||
end
|
||||
|
||||
Exp(expN).lslow(traceN)= lslow; Exp(expN).lfast(traceN)= lfast;
|
||||
Exp(expN).lKl(traceN)= Kl; Exp(expN).Ku(traceN)= Ku;
|
||||
Exp(expN).lrl(traceN)= rl; Exp(expN).ru(traceN)= ru;
|
||||
%************************************************************************
|
||||
try for i=1:length(Exp(zoneSel).hOL(:)),set(Exp(zoneSel).hOL(i),'color',[0 0 1]); end, catch; end
|
||||
Exp(zoneSel).hOL(traceN)=plot(OLaxes,t,g);hold on;
|
||||
set(Exp(zoneSel).hOL(traceN),'color',[1 0 0])
|
||||
%Exp(zoneSel).hOLb(traceN)=plot(OLaxes,tser,rawData,'g*'); %No Raw Data, Ref Composite 17_1009
|
||||
%catch
|
||||
% catchissue='Ln68 EZlstBoxCmpExt'
|
||||
%end %trycatch
|
||||
|
||||
%Get the DM agar description
|
||||
if expN==1,DMstr=char(get(handles.DM1,'string'));end
|
||||
if expN==2,DMstr=char(get(handles.DM2,'string'));end
|
||||
if expN==3,DMstr=char(get(handles.DM3,'string'));end
|
||||
|
||||
if isequal(selGnOrf{1}(1:3),'RF1')|| isequal(selGnOrf{1}(1:3),'RF2')|| RFcmpGFlg==1
|
||||
gene= {selGnOrf{1}(1:p2)};
|
||||
geneOrfstr= gene;
|
||||
grfgenestr= gene;
|
||||
else
|
||||
gene=MP(1,LBmp).genename{1,1}(indx); orf=MP(1,LBmp).orf{1,1}(indx);
|
||||
geneOrfstr= strcat(gene,'_',orf,'_','m',num2str(LBmp),'r',num2str(LBr),'c',num2str(LBc),'_',tPtStr);
|
||||
grfgenestr= strcat(gene,'_',orf,'_','m',num2str(LBmp),'r',num2str(LBr),'c',num2str(LBc));
|
||||
end
|
||||
%spec=MP(1,LBmp).specifics{1,1}(indx); %orfrep=MP(1,plateNum).orfRep{1,1}(indx);
|
||||
%tPtStr=strcat('T=', num2str(scan(1,plateNum).plate(1).t0Series(tPtSel)));
|
||||
graphStr=strcat(grfgenestr,'_','L=',Lstr,'_','r=',rstr,'_','K=',Kstr);
|
||||
spotDescrip=strcat(graphStr,'->',DMstr);
|
||||
|
||||
xp=char(Exp(zoneSel).Dexp(DexpN).resDir);
|
||||
if ispc,
|
||||
slashPos=strfind(char(Exp(zoneSel).Dexp(DexpN).resDir),'\');
|
||||
else
|
||||
slashPos=strfind(char(Exp(zoneSel).Dexp(DexpN).resDir),'/');
|
||||
end
|
||||
|
||||
startPos=slashPos(length(slashPos)-1) +1;
|
||||
endPos=slashPos(length(slashPos)) -1;
|
||||
expStr= {xp(startPos:endPos)}
|
||||
|
||||
Exp(zoneSel).hOLname(traceN)= spotDescrip; %graphStr; %ghandles.Exp(zoneSel).hOLname(traceN)= graphStr;
|
||||
Exp(zoneSel).hOLexpNm(traceN)= expStr; %ghandles.Exp(expN).hOLexpNm(traceN)= expStr;
|
||||
Exp(zoneSel).hOLresDir(traceN)= {Exp(zoneSel).Dexp(DexpN).resDir};
|
||||
%Exp(zoneSel).hOLplateNum(traceN)= plateNum;
|
||||
|
||||
%traceData= vertcat(get(Exp(OLay).hOL(traceN),'XData'),get(ghandles.Exp(OLay).hOL(traceN),'YData'));
|
||||
|
||||
if zoneSel==1,set(ghandles.GeneOrfLoc1,'string',geneOrfstr);end % Displays the value.
|
||||
if zoneSel==2,set(ghandles.GeneOrfLoc2,'string',geneOrfstr);end
|
||||
if zoneSel==3,set(ghandles.GeneOrfLoc3,'string',geneOrfstr);end
|
||||
if zoneSel==1,set(ghandles.graphStrLoc1,'string',spotDescrip);end %graphStr);end % Displays the value.
|
||||
if zoneSel==2,set(ghandles.graphStrLoc2,'string',spotDescrip);end %graphStr);end
|
||||
if zoneSel==3,set(ghandles.graphStrLoc3,'string',spotDescrip);end %graphStr);end
|
||||
%catch
|
||||
%catchissue='Ln33 EZlstBoxCmpExt'
|
||||
% msg='Error'
|
||||
%end % trycatch zoneSel<4 datatip selection from Image (not from an OverLay Plot)
|
||||
%**************Write Spot and Exp Info to OLay title areas****************************************************************************
|
||||
|
||||
if zoneSel==1, %&& get(ghandles.rotPB1,'value')~=1
|
||||
if length(char(Exp(zoneSel).hOLname(traceN)))>40,set(ghandles.OLay1,'FontSize',8);end
|
||||
set(ghandles.OLay1,'string', Exp(zoneSel).hOLname(traceN));
|
||||
if length(char(Exp(zoneSel).hOLexpNm(traceN)))>40,set(ghandles.OLexp1,'FontSize',8);end
|
||||
set(ghandles.OLexp1,'string',Exp(zoneSel).hOLexpNm(traceN));
|
||||
end
|
||||
if zoneSel==2 %&& get(ghandles.rotPB2,'value') ~=1
|
||||
if length(char(Exp(zoneSel).hOLname(traceN)))>40,set(ghandles.OLay2,'FontSize',8);end
|
||||
set(ghandles.OLay2,'string', Exp(zoneSel).hOLname(traceN));
|
||||
if length(char(Exp(zoneSel).hOLexpNm(traceN)))>40,set(ghandles.OLexp2,'FontSize',8);end
|
||||
set(ghandles.OLexp2,'string',Exp(zoneSel).hOLexpNm(traceN));
|
||||
end
|
||||
if zoneSel==3 %&& get(ghandles.rotPB3,'value') ~=1
|
||||
if length(char(Exp(zoneSel).hOLname(traceN)))>40,set(ghandles.OLay3,'FontSize',8);end
|
||||
set(ghandles.OLay3,'string', Exp(OLay).hOLname(traceN));
|
||||
if length(char(Exp(zoneSel).hOLexpNm(traceN)))>40,set(ghandles.OLexp3,'FontSize',8);end
|
||||
set(ghandles.OLexp3,'string',Exp(OLay).hOLexpNm(traceN));
|
||||
end
|
||||
|
||||
|
||||
end %if sgdInfoOnly==1
|
||||
|
||||
|
||||
|
||||
%***********************GraphicDestinationPerturbationComparison**15_0821************************************************
|
||||
lstBoxCmpFlg=1;
|
||||
EZdatatip=0; %**
|
||||
if strcmp((Exp(expN).DexpType),'single')||...
|
||||
strcmp((Exp(expN).DexpType),'multi')
|
||||
%****************
|
||||
EZdestComp %**
|
||||
%****************
|
||||
elseif strcmp((Exp(expN).DexpType),'chrono')
|
||||
%EZdatatip=2; %**
|
||||
%************
|
||||
EZmDayTrend %**
|
||||
%************
|
||||
end
|
||||
%***********************************************************************************************************************
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user