home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Simtel MSDOS - Coast to Coast
/
simteldosarchivecoasttocoast2.iso
/
calculat
/
sm30a.zip
/
DEMO.SM
< prev
next >
Wrap
Text File
|
1993-11-14
|
323b
|
10 lines
# This program show the difference of the complex variable a and the real
# variable b on simplification of sign()
abs(a)*sign(a), a*sign(a), sqrt(a^2)
isreal(b) := 1 # assume b is real
abs(b)*sign(b), b*sign(b), sqrt(b^2)
islarger(1+i, 1-i) # is 1+i larger than 1-i ?
isless(1+i, 1) # is 1+i less than 1 ?