asufit.c

ASUFIT－Matlab－全局拟合程序

         * expFile = ... %option for saving exp file
         */
        mlfAssign(
          &expFile,
          mlfNUimenu(
            1,
            saveas,
            mxCreateString("Label"),
            mxCreateString("&Exp"),
            mxCreateString("Enable"),
            mxCreateString("off"),
            mxCreateString("CallBack"),
            mxCreateString("Asufit('saveExpFile')"),
            NULL));
        /*
         * uimenu(saveas,...
         * 'Label',    '&Exp',...
         * 'Enable',   'off',...
         * 'CallBack', 'Asufit(''saveExpFile'')'...
         * );
         * kineticsFile = ... % Option for saving on-screen kinetics to file
         */
        mlfAssign(
          &kineticsFile,
          mlfNUimenu(
            1,
            saveas,
            mxCreateString("Label"),
            mxCreateString("On-screen &kinetics"),
            mxCreateString("Enable"),
            mxCreateString("off"),
            mxCreateString("CallBack"),
            mxCreateString("Asufit('saveAbsKinetic');"),
            NULL));
        /*
         * uimenu(saveas,...
         * 'Label',    'On-screen &kinetics',...
         * 'Enable',   'off',...
         * 'CallBack', 'Asufit(''saveAbsKinetic'');'...
         * );
         * spectrumFile = ... % Option for saving on-screen spectrum
         */
        mlfAssign(
          &spectrumFile,
          mlfNUimenu(
            1,
            saveas,
            mxCreateString("Label"),
            mxCreateString("On-screen &spectrum"),
            mxCreateString("Enable"),
            mxCreateString("off"),
            mxCreateString("CallBack"),
            mxCreateString("Asufit('saveAbsSpectrum');"),
            NULL));
        /*
         * uimenu(saveas,...
         * 'Label',    'On-screen &spectrum',...
         * 'Enable',   'off',...
         * 'CallBack', 'Asufit(''saveAbsSpectrum'');'...
         * );
         * ampSpecFile = ... % Option for saving the amplitudes
         */
        mlfAssign(
          &ampSpecFile,
          mlfNUimenu(
            1,
            saveas,
            mxCreateString("Label"),
            mxCreateString("&Amplitudes"),
            mxCreateString("Enable"),
            mxCreateString("off"),
            mxCreateString("CallBack"),
            mxCreateString("Asufit('saveAbsAmpSpec');"),
            NULL));
        /*
         * uimenu(saveas,...
         * 'Label',    '&Amplitudes',...
         * 'Enable',   'off',...
         * 'CallBack', 'Asufit(''saveAbsAmpSpec'');'...
         * );
         * spcFitSave = ... % Option for saving SPC fit and plot
         */
        mlfAssign(
          &spcFitSave,
          mlfNUimenu(
            1,
            saveas,
            mxCreateString("Label"),
            mxCreateString("&SPC fit and plot"),
            mxCreateString("Enable"),
            mxCreateString("off"),
            mxCreateString("CallBack"),
            mxCreateString("Asufit('spcFitSave');"),
            NULL));
        /*
         * uimenu(saveas,...
         * 'Label',    '&SPC fit and plot',...
         * 'Enable',   'off',...
         * 'CallBack', 'Asufit(''spcFitSave'');'...
         * );
         * restore = ... % Option for restoring absorbance data
         */
        mlfAssign(
          &restore,
          mlfNUimenu(
            1,
            dataFile,
            mxCreateString("Label"),
            mxCreateString("&Restore data"),
            mxCreateString("Enable"),
            mxCreateString("off"),
            mxCreateString("CallBack"),
            mxCreateString("Asufit('restoreData');"),
            NULL));
        /*
         * uimenu(dataFile,...
         * 'Label',    '&Restore data',...
         * 'Enable',   'off',...
         * 'CallBack', 'Asufit(''restoreData'');'...
         * );
         * average= ... %option for averaging multiple data sets
         */
        mlfAssign(
          &average,
          mlfNUimenu(
            1,
            dataFile,
            mxCreateString("Label"),
            mxCreateString("&Average EXP data"),
            mxCreateString("Enable"),
            mxCreateString("on"),
            mxCreateString("CallBack"),
            mxCreateString("Asufit('averageData');"),
            NULL));
        /*
         * uimenu(dataFile,...
         * 'Label', '&Average EXP data',...
         * 'Enable', 'on',...
         * 'CallBack', 'Asufit(''averageData'');');
         * plotMenu = ... % Pull-down menu for plot operations
         */
        mlfAssign(
          &plotMenu,
          mlfNUimenu(
            1,
            mainWindow,
            mxCreateString("Label"),
            mxCreateString("&Plot"),
            NULL));
        /*
         * uimenu(mainWindow,...
         * 'Label','&Plot'...
         * );
         * % Plot the current data
         * uimenu(plotMenu,...
         */
        mclAssignAns(
          &ans,
          mlfNUimenu(
            0,
            plotMenu,
            mxCreateString("Label"),
            mxCreateString("&Plot data"),
            mxCreateString("CallBack"),
            mxCreateString("Asufit('plot')"),
            NULL));
        /*
         * 'Label',    '&Plot data',...
         * 'CallBack', 'Asufit(''plot'')'...
         * );
         * plot3D = ... % Surface plot of data
         */
        mlfAssign(
          &plot3D,
          mlfNUimenu(
            1,
            plotMenu,
            mxCreateString("Label"),
            mxCreateString("&Surface plot"),
            mxCreateString("Enable"),
            mxCreateString("off"),
            mxCreateString("CallBack"),
            mxCreateString("Asufit('abs3dPlot');"),
            NULL));
        /*
         * uimenu(plotMenu,...
         * 'Label',    '&Surface plot',...
         * 'Enable',   'off',...
         * 'CallBack', 'Asufit(''abs3dPlot'');'...
         * );
         * ampSpecPlot = ... % Plot amplitude spectra
         */
        mlfAssign(
          &ampSpecPlot,
          mlfNUimenu(
            1,
            plotMenu,
            mxCreateString("Label"),
            mxCreateString("&Amplitude spectra"),
            mxCreateString("Enable"),
            mxCreateString("off"),
            mxCreateString("CallBack"),
            mxCreateString("Asufit('ampSpecPlot');"),
            NULL));
        /*
         * uimenu(plotMenu,...
         * 'Label',    '&Amplitude spectra',...
         * 'Enable',   'off',...
         * 'CallBack', 'Asufit(''ampSpecPlot'');'...
         * );
         * spcGlobal = ... % Show global results of SPC fit
         */
        mlfAssign(
          &spcGlobal,
          mlfNUimenu(
            1,
            plotMenu,
            mxCreateString("Label"),
            mxCreateString("SPC Global results window"),
            mxCreateString("Enable"),
            mxCreateString("off"),
            mxCreateString("CallBack"),
            mxCreateString("Asufit('spcGlobalResultWindow');"),
            NULL));
        /*
         * uimenu(plotMenu,...
         * 'Label','SPC Global results window',...
         * 'Enable','off',...
         * 'CallBack','Asufit(''spcGlobalResultWindow'');'...
         * );    
         * 
         * optionsMenu = ... % Pull-down menu of other options
         */
        mlfAssign(
          &optionsMenu,
          mlfNUimenu(
            1,
            mainWindow,
            mxCreateString("Label"),
            mxCreateString("&Options"),
            NULL));
        /*
         * uimenu(mainWindow,...
         * 'Label', '&Options'....
         * );
         * % Option to lock rate constants to input values
         * abstimeaxis =  uimenu(optionsMenu,...
         */
        mlfAssign(
          &abstimeaxis,
          mlfNUimenu(
            1,
            optionsMenu,
            mxCreateString("Label"),
            mxCreateString("&Change time axis"),
            mxCreateString("Enable"),
            mxCreateString("off"),
            mxCreateString("CallBack"),
            mxCreateString("Asufit('abstimechange');"),
            NULL));
        /*
         * 'Label',    '&Change time axis',...
         * 'Enable',   'off',...
         * 'CallBack', 'Asufit(''abstimechange'');'...
         * );
         * absDispersion = ... % Launch dispersion correction figure window
         */
        mlfAssign(
          &absDispersion,
          mlfNUimenu(
            1,
            optionsMenu,
            mxCreateString("Label"),
            mxCreateString("Apply dispersion correction"),
            mxCreateString("Enable"),
            mxCreateString("off"),
            mxCreateString("CallBack"),
            mxCreateString("Asufit('dispersionNow');"),
            NULL));
        /*
         * uimenu(optionsMenu,...
         * 'Label',    'Apply dispersion correction',...
         * 'Enable',   'off',...
         * 'CallBack', 'Asufit(''dispersionNow'');'...
         * );
         * subtract = ... % Subtract the baseline from the data
         */
        mlfAssign(
          &subtract,
          mlfNUimenu(
            1,
            optionsMenu,
            mxCreateString("Label"),
            mxCreateString("Subtract baseline"),
            mxCreateString("Enable"),
            mxCreateString("off"),
            mxCreateString("CallBack"),
            mxCreateString("Asufit('subtract')"),
            NULL));
        /*
         * uimenu(optionsMenu,...
         * 'Label',    'Subtract baseline',...
         * 'Enable',   'off',...
         * 'CallBack', 'Asufit(''subtract'')'...
         * );
         * %Zoom menu
         * z= uimenu(mainWindow,...
         */
        mlfAssign(
          &z,
          mlfNUimenu(
            1,
            mainWindow, mxCreateString("Label"), mxCreateString("Zoom"), NULL));
        /*
         * 'Label',    'Zoom');
         * uimenu(z,...
         */
        mclAssignAns(
          &ans,
          mlfNUimenu(
            0,
            z,
            mxCreateString("Label"),
            mxCreateString("Zoom on"),
            mxCreateString("CallBack"),
            mxCreateString("Asufit('zoomon')"),
            NULL));
        /*
         * 'Label',    'Zoom on',...
         * 'CallBack', 'Asufit(''zoomon'')'...
         * );    
         * uimenu(z,...
         */
        mclAssignAns(
          &ans,
          mlfNUimenu(
            0,
            z,
            mxCreateString("Label"),
            mxCreateString("Zoom off"),
            mxCreateString("CallBack"),
            mxCreateString("Asufit('zoomoff')"),
            NULL));
        /*
         * 'Label',    'Zoom off',...
         * 'CallBack', 'Asufit(''zoomoff'')'...
         * );    
         * % Grid line menu     
         * w= uimenu (mainWindow, 'label', 'Grid lines');
         */
        mlfAssign(
          &w,
          mlfNUimenu(
            1,
            mainWindow,
            mxCreateString("label"),
            mxCreateString("Grid lines"),
            NULL));
        /*
         * 
         * uimenu(w,...
         */
        mclAssignAns(
          &ans,
          mlfNUimenu(
            0,
            w,
            mxCreateString("Label"),
            mxCreateString("Grid lines on"),
            mxCreateString("CallBack"),
            mxCreateString("asufit('gridson')"),
            NULL));
        /*
         * 'Label',    'Grid lines on',...
         * 'CallBack', 'asufit(''gridson'')');
         * uimenu(w,...
         */
        mclAssignAns(
          &ans,
          mlfNUimenu(
            0,
            w,
            mxCreateString("Label"),
            mxCreateString("Grid lines off"),
            mxCreateString("CallBack"),
            mxCreateString("asufit('gridsoff')"),
            NULL));
        /*
         * 'Label',    'Grid lines off',...
         * 'CallBack', 'asufit(''gridsoff'')');
         * 
         * % Print command
         * uimenu(mainWindow,...
         */
        mclAssignAns(
          &ans,
          mlfNUimenu(
            0,
            mainWindow,
            mxCreateString("Label"),
            mxCreateString("Print"),
            mxCreateString("CallBack"),
            mxCreateString("Asufit('print')"),
            NULL));
        /*
         * 'Label',    'Print',...
         * 'CallBack', 'Asufit(''print'')'...
         * );    
         * 
         * % Quit command 
         * uimenu(mainWindow,...
         */
        mclAssignAns(
          &ans,
          mlfNUimenu(
            0,
            mainWindow,
            mxCreateString("Label"),
            mxCreateString("&Quit"),
            mxCreateString("CallBack"),
            mxCreateString("close"),
            NULL));
        /*
         * 'Label',    '&Quit',...
         * 'CallBack', 'close'...
         * );
         * 
         * % --- The following commands set up the common uicontrols
         * 
         * top       = 0.15;       %Constants for placing objects
         */
        mlfAssign(&top, mlfScalar(0.15));
        /*