home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / maths / progs / maths1 / Brian / erf < prev    next >
Encoding:
Text File  |  1989-07-20  |  251 b   |  6 lines
  1. DEF FNerf(X)
  2. REM This gives the Error function for 0 <= x < infinity
  3. REM using Hastings's polynomial approximation. Error <= 1.5E-7
  4. LOCAL T: T=1/(1+.3275911*X)
  5. =1-T*(.254829592+T*(-.284496736+T*(1.421413741+T*(-1.453152027+T*1.061405429))))*EXP(-X*X)
  6.