Format NCsingleDisplay.m

This commit is contained in:
2024-07-25 14:47:54 -04:00
parent 513f531fa4
commit 9a5c9ffb6a

View File

@@ -6,27 +6,19 @@ global scan
eDir=ExpPath; eDir=ExpPath;
hf=figure; hf=figure;
%**************Parameter Entry****************** % Parameter Entry
[scLst, row, col]=NCdisplayGui(eDir); %(ExpPath); %Ncode 122111replaced removed ,numOfPrtTimes) [scLst, row, col]=NCdisplayGui(eDir); %(ExpPath); %Ncode 122111replaced removed ,numOfPrtTimes)
%***********************************************
close(hf) close(hf)
selSpot=(row-1)*24 + col; selSpot=(row-1)*24 + col;
for iPlate=1:length(scLst) for iPlate=1:length(scLst)
scanPltNum=str2double(scLst(iPlate)); scanPltNum=str2double(scLst(iPlate));
%scanPltNum(iPlate);
%-----------------------------------------------------------------------
K=scan(scanPltNum).plate(1).CFout((selSpot),3); K=scan(scanPltNum).plate(1).CFout((selSpot),3);
r=scan(scanPltNum).plate(1).CFout((selSpot),4); r=scan(scanPltNum).plate(1).CFout((selSpot),4);
l=scan(scanPltNum).plate(1).CFout((selSpot),5); l=scan(scanPltNum).plate(1).CFout((selSpot),5);
suffix=strcat('Scan-Plate', scLst(iPlate)); % char(QspLst(n)); suffix=strcat('Scan-Plate', scLst(iPlate)); % char(QspLst(n));
% fileSpotSuffix=strcat('-Spot#',num2str(selSpot),'-Row=',selSpotRC(1),'-Col=',selSpotRC(2),'-FitData','-L=',num2str(l),'-r=',num2str(r),'-K=',num2str(K)); % fileSpotSuffix=strcat('-Spot#',num2str(selSpot),'-Row=',selSpotRC(1),'-Col=',selSpotRC(2),'-FitData','-L=',num2str(l),'-r=',num2str(r),'-K=',num2str(K));
fileSpotSuffix=strcat('-Spot#',num2str(selSpot),'-Row=',num2str(row),'-Col=',num2str(col),'-FitData','-L=',num2str(l),'-r=',num2str(r),'-K=',num2str(K)); fileSpotSuffix=strcat('-Spot#',num2str(selSpot),'-Row=',num2str(row),'-Col=',num2str(col),'-FitData','-L=',num2str(l),'-r=',num2str(r),'-K=',num2str(K));
filenameNoExt=[suffix fileSpotSuffix]; filenameNoExt=[suffix fileSpotSuffix];
timeArr=scan(scanPltNum).plate(1).tSeries; timeArr=scan(scanPltNum).plate(1).tSeries;
rawIntens=scan(scanPltNum).plate(1).intens((selSpot),:)/scan(scanPltNum).plate(1).Ag((selSpot)); rawIntens=scan(scanPltNum).plate(1).intens((selSpot),:)/scan(scanPltNum).plate(1).Ag((selSpot));
try try
@@ -34,8 +26,6 @@ filterTms= scan(scanPltNum).plate(1).filterTimes{(selSpot)};
normInts=scan(scanPltNum).plate(1).normIntens{(selSpot)}; normInts=scan(scanPltNum).plate(1).normIntens{(selSpot)};
catch catch
end end
%********************************
if (exist('K','var')&& exist('r','var') && exist('l','var')) if (exist('K','var')&& exist('r','var') && exist('l','var'))
t=(0:1:200); t=(0:1:200);
Growth=K ./ (1 + exp(-r.* (t - l ))); Growth=K ./ (1 + exp(-r.* (t - l )));
@@ -45,7 +35,6 @@ if length(scLst)>1
else else
cla cla
end end
hold on hold on
plot(timeArr,rawIntens,'g*'); plot(timeArr,rawIntens,'g*');
try try
@@ -57,25 +46,18 @@ title(strcat(filenameNoExt,''));
xlabel('Hours'); xlabel('Hours');
ylabel('Intensities Normalized by Area'); ylabel('Intensities Normalized by Area');
grid on; grid on;
if (exist('K','var')&& exist('r','var') && exist('l','var')) if (exist('K','var')&& exist('r','var') && exist('l','var'))
plot(t, Growth,'b-'); plot(t, Growth,'b-');
%*********Plot L on curvefit figure*********** % Plot L on curvefit figure
grL=Growth(round(l)); %growthCurve timePT for l in hours grL=Growth(round(l)); %growthCurve timePT for l in hours
plot(l,0:grL,'-b') % to display position of l plot(l,0:grL,'-b') % to display position of l
plot(l,grL,'^b') % to display l position on curve as an arrowhead plot(l,grL,'^b') % to display l position on curve as an arrowhead
%***Plot Arbitrary User Entry AUC "finalTimePt" % Plot Arbitrary User Entry AUC "finalTimePt"
% plot(finalTimePt,0,'+m') % plot(finalTimePt,0,'+m')
% plot(0:finalTimePt,bl,'-m') % plot(0:finalTimePt,bl,'-m')
end end
end end
%end %end for SWsingle display/plot figure
%############################################################
%Spot entry form------------------------------------------------------ %Spot entry form------------------------------------------------------
%{ %{