Squashed initial commit

qhtcp-workflow/apps/matlab/ezview/EZsingleExUserRF.m

@@ -0,0 +1,127 @@
+% EZsingleExUserRF
+global exp
+
+usrRefFg=0;
+prompt={'Enter GeneName to use as Reference:',...
+  'Enter Specifics Term if used to futher specify Reference '}       
+dlg_title='User Reference Input';
+num_lines=1;
+def={'RF1','None'};
+answer=inputdlg(prompt,dlg_title,num_lines,def);
+rfGene=cell2mat(answer(1));
+if ~strcmpi(rfGene,'RF1')|| ~strcmpi(rfGene,'RF2'), usrRefFg=1; end
+rfSpec=answer(2); %if strcmpi(answer(2),'None'), rfSpec=''; end
+rfGnSp=strcat(rfGene,rfSpec);
+if strcmpi(rfSpec,'None'), rfGnSp=strcat(rfGene,'-'); end
+
+% for n=1:size(matFile,2)
+n=1;    
+EZmultiGeneRFsLst
+EZdiagRFsSheet
+Exp(expN).Dexp(n).RFrnames=rnames;
+Exp(expN).Dexp(n).RFdata=data;
+RFconfig=0;
+if sum(ismember(fieldnames(Exp(expN).Dexp(n)),'RFmean')) ...
+&& ~isempty(Exp(expN).Dexp(n).RFmean) ...
+&& sum(ismember(fieldnames(Exp(expN).Dexp(n)),'RFmeanG')) ...
+&& isempty(Exp(expN).Dexp(n).RFmeanG)
+  RFconfig=1;
+end
+if sum(ismember(fieldnames(Exp(expN).Dexp(n)),'RFmean'))==0 ...
+|| isempty(Exp(expN).Dexp(n).RFmean) ...
+&& sum(ismember(fieldnames(Exp(expN).Dexp(n)),'RFmeanG')) ...
+&& ~isempty(Exp(expN).Dexp(n).RFmeanG)
+  RFconfig=2;
+end
+if sum(ismember(fieldnames(Exp(expN).Dexp(n)),'RFmean'))&&...
+        ~isempty(Exp(expN).Dexp(n).RFmean)&&...
+    sum(ismember(fieldnames(Exp(expN).Dexp(n)),'RFmeanG'))&&...
+        ~isempty(Exp(expN).Dexp(n).RFmeanG)
+    RFconfig=3;
+end
+Exp(expN).RFconfig=RFconfig;
+Exp(expN).Dexp(n).RFconfig=RFconfig;
+try msgBadGeneName,  catch, end
+try
+  Exp(expN).Dexp(n).resetHtmpTg =5;  %Exp(expN).resetHtmpTg =5; 
+  if RFconfig==0,
+    RFconfigMsg='No RF1 references in this Experiment Job'
+    Exp(expN).Dexp(n).resetHtmpTg =3; %Exp(expN).resetHtmpTg =3; 
+  end
+catch
+end
+
+% Auto select Zone and load listboxGnOrf data
+DexpN=1;
+zeroCLn=zeros(1,DMnum);
+Exp(expN).expLoadCnt=Exp(expN).expLoadCnt+1; expLdCnt=Exp(expN).expLoadCnt;
+if expN==1
+  set(handles.zoneRad1,'value',1)
+  set(handles.zoneRad2,'value',0)
+  set(handles.zoneRad3,'value',0)
+  orfLstSel=get(handles.GeneOrfTog,'value')
+  if orfLstSel==1
+    set(handles.listboxGnOrf,'string',Exp(1).Dexp(1).srtOrfLst)   
+  else
+    set(handles.listboxGnOrf,'string',Exp(1).Dexp(1).srtGnLst)
+  end
+  DNLaxes1=handles.DNLaxes1;
+  Exp(1).hzeroCLn(expLdCnt)=plot(DNLaxes1,zeroCLn,1:DMnum,'y');
+end
+
+if expN==2
+  set(handles.zoneRad1,'value',0)
+  set(handles.zoneRad3,'value',0)
+  set(handles.zoneRad2,'value',1)
+  orfLstSel=get(handles.GeneOrfTog,'value');
+  if orfLstSel==1
+    set(handles.listboxGnOrf,'string',Exp(2).Dexp(1).srtOrfLst)   
+  else
+    set(handles.listboxGnOrf,'string',Exp(2).Dexp(1).srtGnLst)
+  end
+  DNLaxes2=handles.DNLaxes2;
+  Exp(2).hzeroCLn(expLdCnt)=plot(DNLaxes2,zeroCLn,1:DMnum,'y');
+end
+
+if expN==3
+  set(handles.zoneRad1,'value',0)
+  set(handles.zoneRad2,'value',0)
+  set(handles.zoneRad3,'value',1)
+  orfLstSel=get(handles.GeneOrfTog,'value');
+  if orfLstSel==1
+    set(handles.listboxGnOrf,'string',Exp(3).Dexp(1).srtOrfLst)   
+  else
+    set(handles.listboxGnOrf,'string',Exp(3).Dexp(1).srtGnLst)
+  end
+  DNLaxes3=handles.DNLaxes3;
+  Exp(3).hzeroCLn(expLdCnt)=plot(DNLaxes3,zeroCLn,1:DMnum,'y');
+end
+
+if Exp(4).interacPBsel==0  % if interaction "raw" don't show a center line
+  for i=1:Exp(expN).expLoadCnt,
+    try 
+      set(Exp(expN).hzeroCLn(i),'visible','off'); 
+      catch
+        i
+    end
+  end
+end
+
+% HtMapTog 'string', 'Current user L/N' selection'
+Exp(expN).Dexp(DexpN).spotIndx=[];
+if expN==1,
+    Exp(1).htmapPBsel=0;
+    set(handles.HtMapTog1,'string','L')
+    EZhtMap
+end
+if expN==2,
+    Exp(2).htmapPBsel=0;
+    set(handles.HtMapTog2,'string','L')
+    EZhtMap
+end
+if expN==3,
+    Exp(3).htmapPBsel=0;
+    set(handles.HtMapTog3,'string','L')
+    EZhtMap
+end
+htMapTogPBfg=0;