home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Simtel MSDOS - Coast to Coast
/
simteldosarchivecoasttocoast2.iso
/
calculat
/
sm30a.zip
/
EXPANDEI.SM
< prev
next >
Wrap
Text File
|
1993-10-16
|
181b
|
6 lines
# expandEi expands ei(n,x) into power series.
# See also: expand, expandGa, expandExp.
ei(n_,x_) := if(n>=1, -n*ei(n-1,x)+x^n*e^x,
if(n<-1, (-ei(n+1,x)+x^(n+1)*e^x)/(n+1)))