EASYconsole2.m rewrite

This commit is contained in:
2024-07-23 12:35:04 -04:00
parent 6d5b54aaf6
commit 8a171a348c

View File

@@ -0,0 +1,690 @@
%% MAIN WORKING FUNCTION: EASYconsole.m %%
%This is a 2023a Expoorted App so that it can be edited in the unfortunate
%new Matlab versions. Created by using the Matlab porting utility in 2023.
% EASYconsole is a function designed to have a variable number of inputs and
% outputs
% These were defined globally in the parent script
% global ExpOutmat
% global ExpPath
% global fhconsole
% global resDir
% global wCodeDir
% global ImParMat
% global openExpfile
% global openExppath
% global newExpfile
% global newExppath
% global SWnewExp
% global matDir
% global scan
function varargout = EASYconsole(varargin)
% initialize global variables for function EASYconsole
global ExpOutmat
global ExpPath
global fhconsole
global resDir
global wCodeDir
global ImParMat
% changing directory to wCodeDir
returnHome
%% GUI INTERFACE DESIGN %%
% beginning of GUI formation & design, see help GUI or help GUIDE in
% command window for more information
gui_Singleton = 1;
gui_State = struct('gui_Name', mfilename, ...
'gui_Singleton', gui_Singleton, ...
'gui_OpeningFcn', @EASYconsole_OpeningFcn, ...
'gui_OutputFcn', @EASYconsole_OutputFcn, ...
'gui_LayoutFcn', [] , ...
'gui_Callback', []);
if nargin && ischar(varargin{1})
gui_State.gui_Callback = str2func(varargin{1});
end
if nargout
[varargout{1:nargout}] = gui_mainfcn(gui_State, varargin{:});
else
gui_mainfcn(gui_State, varargin{:});
end
end
% Try to enter WCodeDir
function returnHome
global wCodeDir
try
cd(wCodeDir)
catch
msgbox('Failed to enter selected default directory so starting search at root.');
if ispc
cd(fullfile('C:\'));
elseif (isunix | ismac)
cd(fullfile('/mnt/data'));
else
msgbox('Unknown platform')
end
end
end
% GUI
% Easyconcole_OpeningFcn executes just before the EASYconsole GUI is made visible.
% This function has no output args, see OutputFcn.
% hObject--handle to figure
% eventdata reserved - to be defined in a future version of MATLAB
% handles--structure with handles and user data (see GUIDATA)
% varargin--input arguments to EASYconsole (see VARARGIN)
function EASYconsole_OpeningFcn(hObject, ~, handles, varargin)
global ExpOutmat
global ExpPath
global fhconsole
global resDir
global wCodeDir
global ImParMat
% Choose default command line output for EASYconsole
handles.output = hObject;
% Update handles structure
guidata(hObject, handles);
%Figure header, Toolbar, etc. Setup
fhconsole=gcf;
set(fhconsole,'Toolbar','none');
fhconsole=gcf;
if exist('resDir','var')&&~isempty(resDir)
set(fhconsole,'Name',strcat('EASYconsole- ',char(resDir)));
else
set(fhconsole,'Name','EASYconsole -Exp. Analysis NOT selected.')
end
end
%% EASYconsole OUTPUT FUNCTION %%
% Outputs from this function are returned to the command line.
function varargout = EASYconsole_OutputFcn(~, ~, handles)
% varargout--cell array for returning output args (see VARARGOUT);
% hObject--handle to figure
% eventdata reserved - to be defined in a future version of MATLAB
% handles--structure with handles and user data (see GUIDATA)
% Get default command line output from handles structure
varargout{1} = handles.output;
end
%% CONSOLE BUTTON INTERFACES %%
% File Button Interface
function FileMenu_Callback(~, ~, ~)
global wCodeDir
cd(wCodeDir)
end
% Load Experiment Button Interface
function LoadExp_Callback(~, ~, ~)
global wCodeDir
cd(wCodeDir)
end
% New Experiment Button Interface
function NewExpDat_Callback(~, ~, ~)
global newExpfile
global newExppath
global SWnewExp
global ExpOutmat
global ExpPath
global matDir
global resDir
global wCodeDir
global fhconsole
global scan
%% RESULTS DIRECTORY CREATION %%
try
% put all users on same working directory
cd(wCodeDir)
wcode=pwd;
if ispc
try
% first attempt to begin search at current working directory
cd(fullfile('C:\'));
catch
% if first attempt fails, throw message box and begin the search at the PC's C drive
msgbox('Failure to find selected default Directory so starting Load search at the C Drive .');
%cd(fullfile('C:\'));
wcode
end
end
if isunix
try
name = getenv('USER');
if isequal(name,'jwrodger')
cd('/mnt/data/ExpJobs')
else
%could provide other contingency options here if desireable for other users
%if fails, just go to EASY code folder per JH
cd(wcode) %JH has argued strongly to send user to code directory
end
catch
msgbox('Failure to find selected default Directory so start Load search at root.');
cd(fullfile('/'));
end
end
if ismac
cd(wcode) %JH has argued strongly to send user to code directory
end
% CREATE NEW EXPERIMENT %
questdlg('\fontsize{20} NAME the file and NAVIGATE to the directory with the image folders.','File Creation','OK', struct('Default','OK','Interpreter','tex'));
[newExpfile,newExppath] = uiputfile(' .mat');
SWnewExp=1;
cd (wcode)
newExpfilePref= strrep(newExpfile,'.mat','');
resDirName=strcat('Results',datestr(now,29),newExpfilePref);
% creation of the Results file
if ~exist(fullfile(newExppath,resDirName,'matResults'))
mkdir (fullfile(newExppath,resDirName,'matResults'));
end
% assigning paths to global variables
resDir= fullfile(newExppath,resDirName);
matDir= fullfile(newExppath,resDirName,'matResults');
ExpOutmat=fullfile(matDir,strcat(datestr(now,29),newExpfile));
ExpPath= fullfile(newExppath);
%***Added for 'parfor global' to preallocate 'scan' structure 20-0123*****
nlist=dir(fullfile(ExpPath,'*'));
nnn=0;
for n=1:size(nlist,1)
if (~isempty(str2num(nlist(n).name)))
nnn=nnn+1;
PnumLst(nnn)= (str2num(nlist(n).name));
sl(nnn,1)={(nlist(n).name)};
end
end
scanSize= size(sl,1);
scanMax= max(str2double(sl));
clear scan;
scan(scanMax)= struct(); %[]; %changed for parfor global 20_0118
%*************************************************************************
save(ExpOutmat,'scan')
% create 'PrintResults' file
if ~exist(fullfile(ExpPath,resDirName,'PrintResults'))
mkdir(fullfile(ExpPath,resDirName,'PrintResults'));
end
% copy 'figs' file and place it in ExpPath Directory
if ~exist(fullfile(ExpPath,resDirName,'figs'))
copyfile((fullfile(wCodeDir,'figs')), (fullfile(ExpPath,resDirName,'figs')))
end
% create 'CFfigs' file
if ~exist(fullfile(ExpPath,resDirName,'CFfigs'))
mkdir(fullfile(ExpPath,resDirName,'CFfigs'));
end
% copy 'PTmats' file and place it in ExpPath Directory
if ~exist(fullfile(ExpPath,resDirName,'PTmats'))
copyfile((fullfile(wCodeDir,'PTmats')), (fullfile(ExpPath,resDirName,'PTmats')))
end
% create 'Fotos' file
if ~exist(fullfile(ExpPath,resDirName,'Fotos'))
mkdir(fullfile(ExpPath,resDirName,'Fotos'));
clear sbdg % reduce possible retention of a previous job sdbg
sbdg= cell(1,scanMax);
save((fullfile(resDir,'Fotos','Nbdg')),'sbdg');
end
% create backup 'Fotos' file
if ~exist(fullfile(ExpPath,resDirName,'Fotos','BkUp'))
mkdir(fullfile(ExpPath,resDirName,'Fotos','BkUp'));
end
catch ME
cd(wCodeDir)
disp('Error Creating a New Experiment. Loc: EASYconsole.m Lines 106-197')
end
% set the title for fhconsole depending on existence
if exist('resDir','var')&&~isempty(resDir)
set(fhconsole,'Name',strcat('EASYconsole- ',char(resDir)))
else
set(fhconsole,'Name','EASYconsole -Exp. Analysis NOT selected.')
end
end
%% LOAD A PREVIOUS EXPERIMENT %%
%*******LOAD Experiment Analysis directory/file structure
function LoadDatFile_Callback(~, ~, ~)
global openExpfile
global openExppath
global SWnewExp
global ExpOutmat
global ExpPath
global matDir
global resDir
global wCodeDir
global fhconsole
global ImParMat
try
%cd(wCodeDir)
%wcode=pwd;
%cd ..
%cd(wcode)
% put all users on same working directory
cd(wCodeDir)
wcode=pwd;
if ispc
try
% first attempt to begin search at current working directory
cd(fullfile('C:\'));
catch
% if first attempt fails, throw message box and begin the search at the PC's C drive
msgbox('Failure to find selected default Directory so starting Load search at the C Drive .');
%cd(fullfile('C:\'));
wcode
end
end
if isunix
try
name = getenv('USER');
if isequal(name,'jwrodger')
cd('/mnt/data/ExpJobs')
else
%could provide other contingency options here if desireable for other users
%if fails, just go to EASY code folder per JH
cd(wcode) %JH has argued strongly to send user to code directory
end
catch
msgbox('Failure to find selected default Directory so start Load search at root.');
cd(fullfile('/'));
end
end
if ismac
cd(wcode) %JH has argued strongly to send user to code directory
end
%****************End
%Navigation******************************************
questdlg('\fontsize{20} Load file from ExpJobs/YourJob/YourResults/matResults','File Creation','OK', struct('Default','OK','Interpreter','tex'));
[openExpfile,openExppath] = uigetfile('.mat','Open Experiment folder and data storage .mat file name','MultiSelect','off');
SWnewExp=0;
ExpOutmat= fullfile(openExppath,openExpfile);
load(ExpOutmat);
cd(openExppath)
cd ..;
resDir=pwd;
cd ..;
ExpPath=pwd;
cd (wcode)
ExpPath= fullfile(ExpPath);
if isfolder(fullfile(openExppath, '..','..','1')) %If Inovation Vrobot Then
if exist(fullfile(resDir,'PTmats','NImParameters.mat'))
load(fullfile(resDir,'PTmats','NImParameters.mat'));
else
curDir=pwd;
cd(wCodeDir)
load NImParameters.mat
cd(curDir)
end
else %If Epson 10Plate Scans Then>
if exist(fullfile(resDir,'PTmats','ImParameters.mat'))
load(fullfile(resDir,'PTmats','ImParameters.mat'));
else
curDir=pwd;
cd(wCodeDir)
load ImParameters.mat
cd(curDir)
end
end
matDir= fullfile(openExppath,'\');
mkdir(fullfile(matDir,'BkUp'));
% create supporting files
if ~exist(fullfile(resDir,'PrintResults'))
mkdir(fullfile(resDir,'PrintResults'));
end
if ~exist(fullfile(resDir,'figs'))
mkdir(fullfile(resDir,'figs'));
end
if ~exist(fullfile(resDir,'CFfigs'))
mkdir(fullfile(resDir,'CFfigs'));
end
if ~exist(fullfile(resDir,'PTmats'))
mkdir(fullfile(resDir,'PTmats'));
end
if ~exist(fullfile(resDir,'Fotos'))
mkdir(fullfile(resDir,'Fotos'));
end
catch
cd(wCodeDir)
end
clear scan
if exist('resDir','var')&&~isempty(resDir)
fhconsole= gcf;
set(fhconsole,'Name',strcat('EASYconsole- ',char(resDir)))
else
set(fhconsole,'Name','EASYconsole -Exp. Analysis NOT selected.')
end
end
%% CALLBACKS %%
% function Parameters_Callback(~, ~, ~)
% global wCodeDir
% cd(wCodeDir)
% function CFparameters_Callback(~, ~, ~)
% global wCodeDir
% cd(wCodeDir)
% function RunCF_Callback(~, ~, ~)
% global wCodeDir
% cd(wCodeDir)
% try
% CcurveFitStartup
% catch ME
% cd(wCodeDir)
% end
%
% callback for the 'Run' in the dropdown menu
function run_Callback(~, ~, ~)
global wCodeDir
try
catch ME
cd(wCodeDir)
end
end
% function Dbase_Callback(~, ~, ~)
% global wCodeDir
% try
% catch ME
% cd(wCodeDir)
% end
% function runImAnal_Callback(~, ~, ~)
% global wCodeDir
% cd(wCodeDir)
% try
% ImStartup
% catch ME
% cd(wCodeDir)
% EASYconsole
% end
function runPlateMapPintool_Callback(~, ~, ~)
global wCodeDir
cd(wCodeDir)
try
NImapPT
catch ME
cd(wCodeDir)
EASYconsole
end
end
function NImCFcombo_Callback(~, ~, ~)
global wCodeDir
cd(wCodeDir)
try
par4Gbl_Main8c
catch
cd(wCodeDir)
EASYconsole
end
end
function runPlateImAnal_Callback(~, ~, ~)
global wCodeDir
cd(wCodeDir)
try
NImStartupOnly
catch ME
cd(wCodeDir)
EASYconsole
end
end
% function runCF_Callback(~, ~, ~)
% global wCodeDir
% try
% cd(wCodeDir)
% CcurveFitStartup
% catch ME
% cd(wCodeDir)
% end
function PlateCFit_Callback(~, ~, ~)
global wCodeDir
global ExpOutmat
try
cd(wCodeDir)
NCstart
catch ME
cd(wCodeDir)
end
end
% function Gen_CF_GenORF_Callback(~, ~, ~)
% global wCodeDir
% try
% DgenCFoutWnum
% catch ME
% cd(wCodeDir)
% EASYconsole
% end
% function ImParams_Callback(~, ~, ~)
% global wCodeDir
% try
% catch ME
% cd(wCodeDir)
% EASYconsole
% end
%*************************
% function createPTmap_Callback(~, ~, ~)
% global wCodeDir
% try
% cd(wCodeDir)
% ImapPT()
% catch ME
% cd(wCodeDir)
% end
%*************************
function GenPrintouts_Callback(~, ~, ~)
end
%
% function Gen_YXmaster_Callback(~, ~, ~)
% global wCodeDir
% try
% Dgen_YXmasterFile
% catch ME
% cd(wCodeDir)
% EASYconsole
% end
% function Gen_CurveFitOut_Callback(~, ~, ~)
% global wCodeDir
% try
% DgenLegCFout
% catch ME
% cd(wCodeDir)
% EASYconsole
% end
% function Gen_CF_withNums_Callback(~, ~, ~)
% global wCodeDir
% try
% DgenCFoutWnum
% catch ME
% cd(wCodeDir)
% EASYconsole
% end
% function Gen_CF_withNumsOrfsGenes_Callback(~, ~, ~)
% global wCodeDir
% try
% DgenCFoutWnumOrfgene
% catch ME
% cd(wCodeDir)
% EASYconsole
% end
% function Gen_CF_withNumsOrfsGenesPerts_Callback(~, ~, ~)
% global wCodeDir
% try
% DgenCFoutWnumOrfgenePertsDev
% catch ME
% cd(wCodeDir)
% EASYconsole
% end
% function zx_Callback(~, ~, ~)
function uploadExcelMP2DB_Callback(~, ~, ~)
end
% function uploadYXmaster2DB_Callback(~, ~, ~)
%
% function Gen_CF4DB_Callback(~, ~, ~)
%
%
% function Gen_CF4DB_Extras4Review_Callback(~, ~, ~)
%
%
% function uploadCF2DB_Callback(~, ~, ~)
% --------------------------------------------------------------------
function runDMPexcel_Callback(~, ~, ~)
global wCodeDir
global ExpPath
try
DMPexcel2mat_2024winLinix %DMPexcel2mat_2023winLinix
catch ME
cd(wCodeDir)
EASYconsole
end
end
% --------------------------------------------------------------------
function runResults_DBcombo_Callback(~, ~, ~)
global wCodeDir
try
DgenResults240430 %similar but semicolons removed to restore so cmdLine display info.
%Dgen241010qhtcp %par4global -convert 1x1cell of 384cells to be like previous 1x384 cells CFparameter
catch ME
disp('Error in DgenResults240430')
cd(wCodeDir)
EASYconsole
end
end
% --------------------------------------------------------------------
function Tools_Callback(~, ~, ~)
end
% --------------------------------------------------------------------
function runOverlayPlots_Callback(~, ~, ~)
global wCodeDir
cd(wCodeDir)
try
DoverlayPlots2
cd(wCodeDir)
EASYconsole
catch ME
cd(wCodeDir)
EASYconsole
end
end
% --------------------------------------------------------------------
function runFotoStrip_Callback(~, ~, ~)
global wCodeDir
cd(wCodeDir)
try
F_NImStartup_CentCir
cd(wCodeDir)
EASYconsole
catch ME
cd(wCodeDir)
EASYconsole
end
end
% --------------------------------------------------------------------
function runDisplayFig_Callback(~, ~, ~)
global wCodeDir
cd(wCodeDir)
try
UfigDisplay
catch ME
cd(wCodeDir)
EASYconsole
end
end
% --------------------------------------------------------------------
function runViewParameters_Callback(~, ~, ~)
global wCodeDir
cd(wCodeDir)
try
catch ME
cd(wCodeDir)
EASYconsole
end
end
% --------------------------------------------------------------------
function QkviewN_Callback(~, ~, ~)
global wCodeDir
cd(wCodeDir)
try
try
cd fullfile(ExpPath)
catch
if ispc cd c:\
else
cd (fullfile('~'));
end
end
QkviewImages
catch ME
cd(wCodeDir)
EASYconsole
end
end
% --------------------------------------------------------------------
function CFdisplay_Callback(~, ~, ~)
global wCodeDir
cd(wCodeDir)
try
NCsingleDisplay
cd(wCodeDir)
EASYconsole
catch ME
cd(wCodeDir)
EASYconsole
end
end