home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC Open 13
/
pcopen13.iso
/
Zip
/
SM34A.ZIP
/
EXPANDLI.SM
< 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
|
1993-11-12
|
196 b
|
6 lines
# expandLi expands li(n,x) into power series.
# See also: expand, expandGa, expandExp, expandLi.
li(n_,x_) := if(n>=1, -n*li(n-1,x)+ln(x)^n*x,
if(n < -1, (-li(n+1,x)+ln(x)^(n+1)*x)/(n+1)))