home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Simtel MSDOS - Coast to Coast
/
simteldosarchivecoasttocoast2.iso
/
calculat
/
sm30a.zip
/
LAPLACE.(X)
< prev
next >
Wrap
Text File
|
1993-11-09
|
336b
|
12 lines
# Laplace transform
laplace(sin(x_), x_) := 1/(1+x^2)
laplace(cos(x_), x_) := x/(1+x^2)
laplace(e^x_, x_) := 1/(x-1)
laplace(x2_, x_) := if(x2==x, 1/x^2)
laplace(1/sqrt(x_), x_) := sqrt(pi/x)
laplace(x_^2, x_) := 2/x^3
laplace(a_ + b_, x_) := laplace(a,x) + laplace(b,x)
laplace(a_ - b_, x_) := laplace(a,x) - laplace(b,x)