home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ARM Club 1
/
ARM_CLUB_CD.iso
/
contents
/
apps
/
maths
/
progs
/
programs
/
Maths2
/
Brian
/
erf
< prev
next >
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
Text File
|
1990-04-08
|
251 b
|
6 lines
DEF FNerf(X)
REM This gives the Error function for 0 <= x < infinity
REM using Hastings's polynomial approximation. Error <= 1.5E-7
LOCAL T: T=1/(1+.3275911*X)
=1-T*(.254829592+T*(-.284496736+T*(1.421413741+T*(-1.453152027+T*1.061405429))))*EXP(-X*X)