asufit.m

ASUFIT－Matlab－全局拟合程序

            'DrawMode', 'fast'...
        );
    absResidGrid2 = ... % Spectral residual axes
        axes( ...
            'Position', [0.525 .12 0.425 0.2],...
            'Visible',  'off',...
            'DrawMode', 'fast'...
        );
    absIntSetAxes1 = ...
        axes(...
            'Position', [.07 .45 0.4 0.42],...
            'Visible',  'off',...
            'DrawMode', 'fast'...
    );
   absIntSetAxes2 = ...
        axes(...
            'Position', [.53 .45 0.4 0.42],...
            'Visible',  'off',...
            'DrawMode', 'fast'...
    );
    svdGrid1 = ... % Temporal residual axes
        axes( ...
            'Position', [0.05 .47 0.35 0.37],...
            'Visible',  'off',...
            'DrawMode', 'fast'...
        );
    svdGrid2 = ... % Spectral residual axes
        axes( ...
            'Position', [0.45 .47 0.35 0.37],...
            'Visible',  'off',...
            'DrawMode', 'fast'...
            );
         svdGrid3 = ... %component axes
            axes( ...
            'Position', [0.45 .05 0.35 0.37],...
            'Visible',  'off',...
            'DrawMode', 'fast'...
            );
    spcIntSetAxes = ...
        axes(...
            'Position', [.07 .45 0.86 0.42],...
            'Visible',  'off',...
            'DrawMode', 'fast'...
    );
    
% --- The following commands set up the menus on the menu bar

    dataFile = ... % Pull-down menu for file operations
        uimenu(mainWindow,...
            'Label', '&File'...
        );
    open = ... % Sub-menu to open data files
        uimenu(dataFile,...
            'Label', '&Open'...
        );
    % Option for Stanford ASCII format
       % uimenu(open,...
        %    'Label',    '&Stanford ASCII',...
         %   'CallBack', 'Asufit(''openStanfAsc'')'...
        %);
    % Option for EXP format
        uimenu(open,...
            'Label',    '&Exp',...
            'CallBack', 'Asufit(''openExpFile'')'...
        );
    % Option for SPC/IRF format
        uimenu(open,...
            'Label',    '&SPC/IRF files',...
            'CallBack', 'Asufit(''openSpc'')'...
        );
    saveas = ... % Sub-menu to save data to files
        uimenu(dataFile,...
            'Label', '&Save'...
            );    
    expFile = ... %option for saving exp file
        uimenu(saveas,...
            'Label',    '&Exp',...
            'Enable',   'off',...
            'CallBack', 'Asufit(''saveExpFile'')'...
        );
    kineticsFile = ... % Option for saving on-screen kinetics to file
        uimenu(saveas,...
            'Label',    'On-screen &kinetics',...
            'Enable',   'off',...
            'CallBack', 'Asufit(''saveAbsKinetic'');'...
        );
    spectrumFile = ... % Option for saving on-screen spectrum
        uimenu(saveas,...
            'Label',    'On-screen &spectrum',...
             'Enable',   'off',...
            'CallBack', 'Asufit(''saveAbsSpectrum'');'...
        );
    ampSpecFile = ... % Option for saving the amplitudes
        uimenu(saveas,...
            'Label',    '&Amplitudes',...
            'Enable',   'off',...
            'CallBack', 'Asufit(''saveAbsAmpSpec'');'...
        );
    spcFitSave = ... % Option for saving SPC fit and plot
        uimenu(saveas,...
            'Label',    '&SPC fit and plot',...
            'Enable',   'off',...
            'CallBack', 'Asufit(''spcFitSave'');'...
        );
    restore = ... % Option for restoring absorbance data
        uimenu(dataFile,...
            'Label',    '&Restore data',...
            'Enable',   'off',...
            'CallBack', 'Asufit(''restoreData'');'...
        );
     average= ... %option for averaging multiple data sets
        uimenu(dataFile,...
        'Label', '&Average EXP data',...
        'Enable', 'on',...
        'CallBack', 'Asufit(''averageData'');');
    plotMenu = ... % Pull-down menu for plot operations
        uimenu(mainWindow,...
            'Label','&Plot'...
        );
    % Plot the current data
        uimenu(plotMenu,...
            'Label',    '&Plot data',...
            'CallBack', 'Asufit(''plot'')'...
        );
    plot3D = ... % Surface plot of data
        uimenu(plotMenu,...
            'Label',    '&Surface plot',...
            'Enable',   'off',...
            'CallBack', 'Asufit(''abs3dPlot'');'...
        );
    ampSpecPlot = ... % Plot amplitude spectra
        uimenu(plotMenu,...
            'Label',    '&Amplitude spectra',...
            'Enable',   'off',...
            'CallBack', 'Asufit(''ampSpecPlot'');'...
        );
    spcGlobal = ... % Show global results of SPC fit
        uimenu(plotMenu,...
            'Label','SPC Global results window',...
            'Enable','off',...
            'CallBack','Asufit(''spcGlobalResultWindow'');'...
         );    
    
     optionsMenu = ... % Pull-down menu of other options
        uimenu(mainWindow,...
            'Label', '&Options'....
        );
    % Option to lock rate constants to input values
      abstimeaxis =  uimenu(optionsMenu,...
            'Label',    '&Change time axis',...
            'Enable',   'off',...
            'CallBack', 'Asufit(''abstimechange'');'...
        );
    absDispersion = ... % Launch dispersion correction figure window
        uimenu(optionsMenu,...
            'Label',    'Apply dispersion correction',...
            'Enable',   'off',...
            'CallBack', 'Asufit(''dispersionNow'');'...
        );
    subtract = ... % Subtract the baseline from the data
        uimenu(optionsMenu,...
            'Label',    'Subtract baseline',...
            'Enable',   'off',...
            'CallBack', 'Asufit(''subtract'')'...
        );
    %Zoom menu
      z= uimenu(mainWindow,...
            'Label',    'Zoom');
         uimenu(z,...
            'Label',    'Zoom on',...
            'CallBack', 'Asufit(''zoomon'')'...
            );    
         uimenu(z,...
            'Label',    'Zoom off',...
            'CallBack', 'Asufit(''zoomoff'')'...
            );    
   % Grid line menu     
   w= uimenu (mainWindow, 'label', 'Grid lines');
   
        uimenu(w,...
            'Label',    'Grid lines on',...
            'CallBack', 'asufit(''gridson'')');
     uimenu(w,...
            'Label',    'Grid lines off',...
            'CallBack', 'asufit(''gridsoff'')');

         % Print command
        uimenu(mainWindow,...
            'Label',    'Print',...
            'CallBack', 'Asufit(''print'')'...
            );    
         
         % Quit command 
         uimenu(mainWindow,...
            'Label',    '&Quit',...
            'CallBack', 'close'...
        );

% --- The following commands set up the common uicontrols

    top       = 0.15;       %Constants for placing objects
    leftSide  = 0.05;
    rightSide = 0.75;
    bottom    = 0.05;
    labelHt   = 0.05;
    spacing   = 0.005;
    frmBorder = 0.02;
    frmPos    = [0.05-0.02 0.05-0.02 ...
                .57+2*0.02 (0.15-0.05)+2*0.02];
    txtPos   =  [0.05-0.02 1-0.05 .57 0.05];
    
    textBox = ... % Status window
        uicontrol(mainWindow,...
            'Style',           'text',...
            'Units',           'normalized',...
            'Max',             10,...
            'BackgroundColor', [0.8 0.8 0.8],...
            'ForegroundColor', [0 0 0],...
            'Position',        [.03 .92 .57 .05]...
        );

    locationsText = ... % Selectable text for entering options menu
        uicontrol(mainWindow,...
            'Style',               'Text',...
            'String',              'Locations: ',...
            'HorizontalAlignment', 'Right',...
            'BackgroundColor',     [0.8 0.8 0.8],...
            'ForegroundColor',     [0 0 0],...
            'Units',               'normalized',...
            'Position',            [ .6 .94 .1 .03]...
    );

    optionsbutton = ... % button for entering options menu
        uicontrol(mainWindow,...
            'Style',           'pushbutton',...
            'String',          'Options',...
            'Units',           'normalized',...
            'Position',        [ .7 .94 .1 .03],...
            'visible', 'off',...
            'Callback', 'Asufit(''optionsScreen'');');

    plotbutton = ... % Selectable text for plotting data
        uicontrol(mainWindow,...
            'Style',           'pushbutton',...
            'String',          'Plot',...
            'Units',           'normalized',...
            'Position',        [ .8 .94 .1 .03],...
            'visible', 'off',...
            'Callback', 'Asufit(''plot'');');
         
    svdbutton = ... % Selectable text for plotting data
        uicontrol(mainWindow,...
            'Style',           'pushbutton',...
            'String',          'SVD',...
            'Units',           'normalized',...
            'Visible',         'off',...
            'Position',        [ .9 .94 .1 .03],...
    			'Callback', 'Asufit(''svdAnalysis'');');

    actionsText = ... % Selectable text for entering options menu
        uicontrol(mainWindow,...
            'Style',               'Text',...
            'String',              'Actions: ',...
            'HorizontalAlignment', 'Right',...
            'BackgroundColor',     [0.8 0.8 0.8],...
            'ForegroundColor',     [0 0 0],...
            'Units',               'normalized',...
            'Position',            [ .6 .91 .1 .03]...
    );

    action1button = ... % Selectable text for plotting data
        uicontrol(mainWindow,...
            'Style',           'pushbutton',...
            'Visible',         'off',...
            'Units',           'normalized',...
            'Interruptible',   'On',...
            'Position',        [ .7 .91 .1 .03]);

    action2button = ... % Selectable text for plotting data
        uicontrol(mainWindow,...
            'Style',           'pushbutton',...
            'Visible',         'off',...
            'Units',           'normalized',...
            'Interruptible',   'On',...
            'Position',        [ .8 .91 .1 .03]);

    action3button = ... % Selectable text for plotting data
        uicontrol(mainWindow,...
            'Style',           'pushbutton',...
            'Visible',         'off',...
            'Units',           'normalized',...
            'Interruptible',   'On',...
            'Position',        [ .9 .91 .1 .03]);


    
% --- The following commands set up the uicontrols for SPC work
    spcSpectrumText = ... % Identifier for spectrum box
        uicontrol(mainWindow,...
        'Style',               'text',...
        'string', 'Data: ',...
            'Units',               'normalized',...
            'visible',             'off',...
            'HorizontalAlignment', 'center',...
            'BackgroundColor',     [0.8 0.8 0.8],...
            'ForegroundColor',     [0 0 0],...
            'Position',            [.05 .14 .1 .03]);
    

   spcSpectrumBox =...% Spectrum text box
        uicontrol(mainWindow,...
            'Style',               'text',...
            'visible',             'off',...
            'Units',               'normalized',...
            'HorizontalAlignment', 'center',...
            'BackgroundColor',     [0.8 0.8 0.8],...
            'ForegroundColor',     [0 0 0],...
            'position',            [.05 .11 .1 .03]...
        );

    spcPromptText = ... % Identifier for prompt box
        uicontrol(mainWindow,...
        'Style',               'text',...
        'string', 'IRF: ',...
            'Units',               'normalized',...
            'visible',             'off',...
            'HorizontalAlignment', 'center',...
            'BackgroundColor',     [0.8 0.8 0.8],...
            'ForegroundColor',     [0 0 0],...
            'Position',            [.15 .14 .1 .03]);
        
    spcPromptBox = ... % Prompt text box
        uicontrol(mainWindow,...
            'Style',           'text',...
            'Units',           'normalized',...
            'visible',         'off',...
            'HorizontalAlignment', 'center',...
            'BackgroundColor', [0.8 0.8 0.8],...
            'ForegroundColor', [0 0 0],...
            'position',        [.15 .11 .1 .03]);

    spcDateText = ... % Identifier for date text box