home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Simtel MSDOS - Coast to Coast
/
simteldosarchivecoasttocoast2.iso
/
calculat
/
sm30a.zip
/
PROD.(X)
< prev
next >
Wrap
Text File
|
1993-10-16
|
227b
|
10 lines
# prod() gives product
# e.g prod(x-j, j,1,3,1) gives (x-1) (x-2) (x-3)
# See also: sum.
prod(y_,x_,a_,b_,c_) := block(prod:=1,
do(prod:=prod*y, x,a,b,c),
prod,
local(prod))
prod(y_,x_,a_,b_) := prod(y, x,a,b,1)