Analyses Via External Applications - Automated Data Analysis Using Excel - page 358

layer -e %[%Z,#ii];

};

// Initialize the nlsf engine
nlsf.init();
// Select the Custom Fitting Function
nlsf.func$=monopKa;
// initialize parameter values
A1=%(%W,dependataset,1); //.p1
A2=%(%W,dependataset,8); //.p2
pka = 5;

//.p3

// Dependant Data (Y-Axis) to be Fit
nlsf.y$ = %(%W,dependataset);
// Independent Data (X-Axis) to be Fit
nlsf.x$ = %(%W,1);

// Total Number of Points for Fitted Curve
nlsf.xpoints = 101;
// Improve accuracy of fit
nlsf.tolerance = 1e-5;
// Perform Curve Fitting
nlsf.fit(20);

// Add the original Data to the plot
layer -i %(%W,2);
// Rescale X & Y Axis to show All data
layer -at;

// Update "FitPams" Status Object
%W!FitPams.v1 = $(nlsf.p3,.2);
%W!FitPams.v2$ = "";
%W!FitPams.v3 = $(nlsf.cod,.2);

// Rename Axis Labels
label -xb pH Buffer Values;
label -yl Absorbance;

// Obtain Name of Generated NLSF Fitset
%J=%[%C,'_'];
// Copy Datasets
copy %J_A FitCurve_FitX;
copy %J_B FitCurve_FitY;
// Delete the Generated NLSF Fitset
win -c %J;

// Clean Up all internal Objects Used in nlsf
nlsf.cleanupfitdata();
Next follows the bis pKa script.