home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Simtel MSDOS - Coast to Coast
/
simteldosarchivecoasttocoast2.iso
/
calculat
/
sm30a.zip
/
ERF.(X)
< prev
next >
Wrap
Text File
|
1993-11-14
|
203b
|
10 lines
# erf(x) is the error function
# erf'(x_) := 2/sqrt(x)*e^(-x^2)
erf(0) := 0
erf(inf) := 1
erf(-inf) := -1
erf(x_) := if( isnumber(x) and numeric==on,
1/sqrt(pi)*(2*x - 2/3*x^3 + 1/5*x^5) )