asufit_mainhg.c

ASUFIT－Matlab－全局拟合程序

mxArray * spcAllTaoBox = NULL;

mxArray * spcAllTaoText = NULL;

mxArray * spcAmpAnsBox = NULL;

mxArray * spcAmpAnsText = NULL;

mxArray * spcDataGrid = NULL;

mxArray * spcDateBox = NULL;

mxArray * spcDateText = NULL;

mxArray * spcEmitBox = NULL;

mxArray * spcEmitText = NULL;

mxArray * spcErrorBox = NULL;

mxArray * spcErrorText = NULL;

mxArray * spcExciteBox = NULL;

mxArray * spcExciteText = NULL;

mxArray * spcFilenames = NULL;

mxArray * spcFitSave = NULL;

mxArray * spcGlobal = NULL;

mxArray * spcGlobalErrorBox = NULL;

mxArray * spcGlobalErrorText = NULL;

mxArray * spcInd = NULL;

mxArray * spcIntPlot = NULL;

mxArray * spcIntSetAxes = NULL;

mxArray * spcLeftEnd = NULL;

mxArray * spcMaxItBox = NULL;

mxArray * spcMaxItText = NULL;

mxArray * spcNumAllTaoBox = NULL;

mxArray * spcNumAllTaoText = NULL;

mxArray * spcNumTaoBox = NULL;

mxArray * spcNumTaoFixedBox = NULL;

mxArray * spcNumTaoFixedText = NULL;

mxArray * spcNumTaoText = NULL;

mxArray * spcPlot = NULL;

mxArray * spcPlotMode = NULL;

mxArray * spcPromptBox = NULL;

mxArray * spcPromptText = NULL;

mxArray * spcResidGrid = NULL;

mxArray * spcResidPlot = NULL;

mxArray * spcRightEnd = NULL;

mxArray * spcShiftNumBox = NULL;

mxArray * spcShiftNumText = NULL;

mxArray * spcSpectrumBox = NULL;

mxArray * spcSpectrumText = NULL;

mxArray * spcTaoAnsBox = NULL;

mxArray * spcTaoAnsText = NULL;

mxArray * spcTaoBox = NULL;

mxArray * spcTaoFixedBox = NULL;

mxArray * spcTaoFixedText = NULL;

mxArray * spcTaoText = NULL;

mxArray * spcTog = NULL;

mxArray * spcshift = NULL;

mxArray * spcshifttext = NULL;

mxArray * spctpchBox = NULL;

mxArray * spctpchText = NULL;

mxArray * spec = NULL;

mxArray * spectrumFile = NULL;

mxArray * subtract = NULL;

mxArray * svdAnal = NULL;

mxArray * svdErrorBox = NULL;

mxArray * svdErrorText = NULL;

mxArray * svdGlobalTogHypertext = NULL;

mxArray * svdGlobalToggle = NULL;

mxArray * svdGrid1 = NULL;

mxArray * svdGrid2 = NULL;

mxArray * svdGrid3 = NULL;

mxArray * svdNumVecsBox = NULL;

mxArray * svdNumVecsText = NULL;

mxArray * svdSurfNew = NULL;

mxArray * svdSurfOld = NULL;

mxArray * svdTimeBox = NULL;

mxArray * svdTimeText = NULL;

mxArray * svdWavelengthBox = NULL;

mxArray * svdWavelengthText = NULL;

mxArray * svdWeightBox = NULL;

mxArray * svdWeightText = NULL;

mxArray * svdbutton = NULL;

mxArray * t = NULL;

mxArray * tao = NULL;

mxArray * taoAns = NULL;

mxArray * taoFixed = NULL;

mxArray * textBox = NULL;

mxArray * tpch = NULL;

mxArray * tzero = NULL;

mxArray * vertRotBox = NULL;

mxArray * wavelength = NULL;

mxArray * weight = NULL;

mxArray * xTol = NULL;

static mlfFunctionTableEntry function_table[55]
  = { { "quadi", mlxQuadi, 2, 1 },
      { "subplot", mlxSubplot, 3, 1 },
      { "optim/private/trust", mlxOptim_private_trust, 3, 5 },
      { "optim/private/quad1d", mlxOptim_private_quad1d, 3, 2 },
      { "optim/private/pcgr", mlxOptim_private_pcgr, 10, 3 },
      { "optim/private/xtrack", mlxOptim_private_xtrack, 5, 0 },
      { "cubici2", mlxCubici2, 3, 1 },
      { "optim/private/xplot", mlxOptim_private_xplot, 7, 1 },
      { "optim/private/trdog", mlxOptim_private_trdog, 18, 6 },
      { "sfdnls", mlxSfdnls, -8, 2 },
      { "optim/private/perturb", mlxOptim_private_perturb, 6, 3 },
      { "optim/private/display1", mlxOptim_private_display1, -2, -1 },
      { "optim/private/definev", mlxOptim_private_definev, 4, 2 },
      { "color", mlxColor, 2, 1 },
      { "searchq", mlxSearchq, 9, 6 },
      { "graderr", mlxGraderr, 3, 0 },
      { "cubici3", mlxCubici3, 5, 2 },
      { "cubici1", mlxCubici1, 5, 1 },
      { "grid", mlxGrid, 1, 0 },
      { "optim/private/startx", mlxOptim_private_startx, 2, 1 },
      { "optim/private/snls", mlxOptim_private_snls, -13, 6 },
      { "optim/private/nlsq", mlxOptim_private_nlsq, -9, 5 },
      { "optim/private/diagnose", mlxOptim_private_diagnose, 24, 1 },
      { "optim/private/checkbounds", mlxOptim_private_checkbounds, 4, 4 },
      { "caxis", mlxCaxis, 1, 2 },
      { "graphics/private/clo", mlxGraphics_private_clo, 3, 1 },
      { "zlim", mlxZlim, 2, 1 },
      { "zlabel", mlxZlabel, -2, 1 },
      { "ylim", mlxYlim, 2, 1 },
      { "ylabel", mlxYlabel, -2, 1 },
      { "xlim", mlxXlim, 2, 1 },
      { "xlabel", mlxXlabel, -2, 1 },
      { "title", mlxTitle, -2, 1 },
      { "surf", mlxSurf, -1, 1 },
      { "shading", mlxShading, 1, 0 },
      { "lsqnonlin", mlxLsqnonlin, -6, 7 },
      { "listdlg", mlxListdlg, -1, 2 },
      { "inputdlg", mlxInputdlg, 5, 1 },
      { "colorbar", mlxColorbar, 1, 1 },
      { "cla", mlxCla, -1, 1 },
      { "Asufit", mlxAsufit, 1, 0 },
      { "aprecon", mlxAprecon, 4, 2 },
      { "atamult", mlxAtamult, 4, 1 },
      { "spcfun1", mlxSpcfun1, 1, 1 },
      { "spcfun", mlxSpcfun, 1, 1 },
      { "seqmodfree", mlxSeqmodfree, 1, 1 },
      { "dispfitwidth", mlxDispfitwidth, 1, 1 },
      { "dispfitfree", mlxDispfitfree, 1, 1 },
      { "dispfitdisp", mlxDispfitdisp, 1, 1 },
      { "dispfit", mlxDispfit, 1, 1 },
      { "absfunwidth", mlxAbsfunwidth, 1, 1 },
      { "absfunshift", mlxAbsfunshift, 1, 1 },
      { "absfunfree", mlxAbsfunfree, 1, 1 },
      { "absfun", mlxAbsfun, 1, 1 },
      { "asufit", mlxAsufit, 1, 0 } };

/*
 * The function "main" is a Compiler-generated main wrapper, suitable for
 * building a stand-alone application. It initializes a function table for use
 * by the feval function, and then calls the function "mlxAsufit". Finally, it
 * clears the feval table and exits.
 */
int main(int argc, const char * * argv) {
    mxArray * varargin = mclInitialize(NULL);
    mlfEnterNewContext(0, 0);
    mlfAssign(&OPTIONS, mclCreateGlobal());
    mlfAssign(&OPT_STEP, mclCreateGlobal());
    mlfAssign(&OPT_STOP, mclCreateGlobal());
    mlfAssign(&S, mclCreateGlobal());
    mlfAssign(&U, mclCreateGlobal());
    mlfAssign(&V, mclCreateGlobal());
    mlfAssign(&abs3dAxes, mclCreateGlobal());
    mlfAssign(&abs3dFig, mclCreateGlobal());
    mlfAssign(&abs3dView, mclCreateGlobal());
    mlfAssign(&absAbsorbBox, mclCreateGlobal());
    mlfAssign(&absAbsorbText, mclCreateGlobal());
    mlfAssign(&absAllTaoBox, mclCreateGlobal());
    mlfAssign(&absAllTaoText, mclCreateGlobal());
    mlfAssign(&absCurrentTimeBox, mclCreateGlobal());
    mlfAssign(&absCurrentTimeText, mclCreateGlobal());
    mlfAssign(&absCurrentWlBox, mclCreateGlobal());
    mlfAssign(&absCurrentWlText, mclCreateGlobal());
    mlfAssign(&absDataGrid1, mclCreateGlobal());
    mlfAssign(&absDataGrid2, mclCreateGlobal());
    mlfAssign(&absDisper1Hypertext, mclCreateGlobal());
    mlfAssign(&absDisper2Hypertext, mclCreateGlobal());
    mlfAssign(&absDisper3Hypertext, mclCreateGlobal());
    mlfAssign(&absDisperCoeffsBox, mclCreateGlobal());
    mlfAssign(&absDisperCoeffsText, mclCreateGlobal());
    mlfAssign(&absDisperText, mclCreateGlobal());
    mlfAssign(&absDispersion, mclCreateGlobal());
    mlfAssign(&absErrorBox, mclCreateGlobal());
    mlfAssign(&absErrorText, mclCreateGlobal());
    mlfAssign(&absFilename, mclCreateGlobal());
    mlfAssign(&absInd1, mclCreateGlobal());
    mlfAssign(&absInd2, mclCreateGlobal());
    mlfAssign(&absIntPlot1, mclCreateGlobal());
    mlfAssign(&absIntPlot2, mclCreateGlobal());
    mlfAssign(&absIntSetAxes1, mclCreateGlobal());
    mlfAssign(&absIntSetAxes2, mclCreateGlobal());
    mlfAssign(&absLeftEnd1, mclCreateGlobal());
    mlfAssign(&absLeftEnd2, mclCreateGlobal());
    mlfAssign(&absMaxItBox, mclCreateGlobal());
    mlfAssign(&absMaxItText, mclCreateGlobal());
    mlfAssign(&absNumAllTaoBox, mclCreateGlobal());
    mlfAssign(&absNumAllTaoText, mclCreateGlobal());
    mlfAssign(&absNumTaoBox, mclCreateGlobal());
    mlfAssign(&absNumTaoFixedBox, mclCreateGlobal());
    mlfAssign(&absNumTaoFixedText, mclCreateGlobal());
    mlfAssign(&absNumTaoText, mclCreateGlobal());
    mlfAssign(&absPlot1, mclCreateGlobal());
    mlfAssign(&absPlot2, mclCreateGlobal());
    mlfAssign(&absPlotKinSpec, mclCreateGlobal());
    mlfAssign(&absPulseWidthBox, mclCreateGlobal());
    mlfAssign(&absPulseWidthText, mclCreateGlobal());
    mlfAssign(&absResidGrid1, mclCreateGlobal());
    mlfAssign(&absResidGrid2, mclCreateGlobal());
    mlfAssign(&absResidPlot1, mclCreateGlobal());
    mlfAssign(&absResidPlot2, mclCreateGlobal());
    mlfAssign(&absRightEnd1, mclCreateGlobal());
    mlfAssign(&absRightEnd2, mclCreateGlobal());
    mlfAssign(&absShiftGuessBox, mclCreateGlobal());
    mlfAssign(&absShiftGuessText, mclCreateGlobal());
    mlfAssign(&absTaoAnsBox, mclCreateGlobal());
    mlfAssign(&absTaoAnsText, mclCreateGlobal());
    mlfAssign(&absTaoBox, mclCreateGlobal());
    mlfAssign(&absTaoFixedBox, mclCreateGlobal());
    mlfAssign(&absTaoFixedText, mclCreateGlobal());
    mlfAssign(&absTaoText, mclCreateGlobal());
    mlfAssign(&absTog1, mclCreateGlobal());
    mlfAssign(&absTog2, mclCreateGlobal());
    mlfAssign(&absYTicks, mclCreateGlobal());
    mlfAssign(&abscheckbox1, mclCreateGlobal());
    mlfAssign(&abscheckbox2, mclCreateGlobal());
    mlfAssign(&abscheckbox3, mclCreateGlobal());
    mlfAssign(&abscheckboxtext, mclCreateGlobal());
    mlfAssign(&abstimeaxis, mclCreateGlobal());
    mlfAssign(&abstimelin, mclCreateGlobal());
    mlfAssign(&action1button, mclCreateGlobal());
    mlfAssign(&action2button, mclCreateGlobal());
    mlfAssign(&action3button, mclCreateGlobal());
    mlfAssign(&ampClosebutton, mclCreateGlobal());
    mlfAssign(&ampDownbutton, mclCreateGlobal());
    mlfAssign(&ampGrid, mclCreateGlobal());
    mlfAssign(&ampInd, mclCreateGlobal());
    mlfAssign(&ampPlotAll, mclCreateGlobal());
    mlfAssign(&ampSpecFile, mclCreateGlobal());
    mlfAssign(&ampSpecPlot, mclCreateGlobal());
    mlfAssign(&ampSpecWindow, mclCreateGlobal());
    mlfAssign(&ampSwitchbutton, mclCreateGlobal());
    mlfAssign(&ampTextBox, mclCreateGlobal());
    mlfAssign(&ampUpbutton, mclCreateGlobal());
    mlfAssign(&amps, mclCreateGlobal());
    mlfAssign(&analysisType, mclCreateGlobal());
    mlfAssign(&average, mclCreateGlobal());
    mlfAssign(&backupTypes, mclCreateGlobal());
    mlfAssign(&chisq, mclCreateGlobal());
    mlfAssign(&components, mclCreateGlobal());
    mlfAssign(&data, mclCreateGlobal());
    mlfAssign(&dataBackup, mclCreateGlobal());
    mlfAssign(&dataFit, mclCreateGlobal());
    mlfAssign(&dataIntervalStatus, mclCreateGlobal());
    mlfAssign(&dataMax, mclCreateGlobal());
    mlfAssign(&dataMin, mclCreateGlobal());
    mlfAssign(&date, mclCreateGlobal());
    mlfAssign(&disperCoeffs, mclCreateGlobal());
    mlfAssign(&dispersionStatus, mclCreateGlobal());
    mlfAssign(&dispersionVector, mclCreateGlobal());
    mlfAssign(&dispvecguess, mclCreateGlobal());
    mlfAssign(&emit, mclCreateGlobal());
    mlfAssign(&excite, mclCreateGlobal());
    mlfAssign(&expFile, mclCreateGlobal());
    mlfAssign(&fTol, mclCreateGlobal());
    mlfAssign(&fit, mclCreateGlobal());
    mlfAssign(&fitError, mclCreateGlobal());
    mlfAssign(&fitconst, mclCreateGlobal());
    mlfAssign(&fitmodel, mclCreateGlobal());
    mlfAssign(&glob, mclCreateGlobal());
    mlfAssign(&horizRotBox, mclCreateGlobal());
    mlfAssign(&irf, mclCreateGlobal());
    mlfAssign(&irfFilenames, mclCreateGlobal());
    mlfAssign(&kineticsFile, mclCreateGlobal());