uses MtxExpr, Math387, MtxVec, MtxVecTee, Polynoms; procedure TForm1.Button1Click(Sender: TObject); var X,Y,YCalc,Delta,Coeff: Vector; R: Matrix; DegF: Integer; L2R : double; begin X.Size(100,false); Y.Size(X); X.Ramp; Y.RandGauss(2,3); PolyFit(X,Y,3,Coeff,R,DegF,L2R); //Fit PolyEval(X,Coeff,R,DegF,L2R,YCalc,Delta); // evaluate DrawIt([Y,YCalc],['Original','Polyfit']); end;

#include "MtxExpr.hpp" #include "Polynoms.hpp" #include "MtxVecTee.hpp" void __fastcall TForm1::BitBtn1Click(TObject *Sender) { Vector X,Y,YCalc,Delta,Coeff; Matrix R; int DegF; double L2R; X = Ramp(100); Y.Size(100); Y.RandGauss(2,3); PolyFit(X,Y,3,Coeff,R,DegF,L2R); //Fit PolyEval(X,Coeff,R,DegF,L2R,YCalc,Delta); // evaluate DrawIt(OPENARRAY(TVec*,(Y,YCalc)),OPENARRAY(AnsiString,("Original","Polyfit"))); }