curvefit.pas

来自「curve_fit为曲线拟合DELPHI源代码。此版本为delphi4或者del」· PAS 代码 · 共 32 行

unit CurveFit;

// Unit CurveFit contains procedure PolyFit
// Purpose - Least-squares curve fit of arbitrary order


{ ******************************************
  ****   Scientific Subroutine Library  ****
  ****         for Turbo Pascal         ****       
  ******************************************

  The following programs were written by Allen Miller and appear in the
  book entitled "Pascal Programs For Scientists And Engineers" which is
  published by Sybex, 1981.
  They were originally typed and submitted to MTPUG in Oct. 1982
    Juergen Loewner
    Hoher Heckenweg 3
    D-4400 Muenster
  They have had minor corrections and adaptations for Turbo Pascal by
    Jeff Weiss
    1572 Peacock Ave.
    Sunnyvale, CA 94087.

2000 Oct 28  Updated for Delphi 4, open array parameters.
             This allows the routine to be generalised so that it is no longer
             hard-coded to make a specific order of best fit or work with a
             specific number of points.
2001 Jan 07  Update Web site address
2003 Mar 05  Released for Delphi 5 as well
             Trap error when all Y values were the same (thanks Kelvin Lee)

Copyright