model.inc

来自「Delphi Pascal 数据挖掘领域算法包 非线性回归分析」· INC 代码 · 共 16 行

{
EXP.INC contains global constants, variables, functions, and procedures for
fitting (X,Y) data to the equation:

                             Y = A[1-exp(BX)]
}
               
  CONST
    Vrbl  : VrblType = ('A','B','','','','');
    NumVar: INTEGER  = 2;


  FUNCTION Weight(I: INTEGER): REAL;
    {The program minimizes a weighted residual sum of squares of the form:  }
    {                                                                       }
    {                    RSS =