home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Simtel MSDOS - Coast to Coast
/
simteldosarchivecoasttocoast2.iso
/
calculat
/
sm30a.zip
/
INIT.SM
< prev
next >
Wrap
Text File
|
1993-10-17
|
701b
|
44 lines
# The initial package init.sm
output := off
numeric := off
expand := off
inf-inf:=undefined
inf+(-1)*inf:=undefined
(-1)*inf+inf:=undefined
zero-zero:=zero
zero+(-1)*zero:=zero
(-1)*zero+zero:=zero
0*inf:=undefined
inf*0:=undefined
inf*zero:=undefined
0/0:=undefined
zero/zero:=undefined
inf/inf:=undefined
0^0:=undefined
zero^zero:=undefined
1^inf:=undefined
(-1)^inf:=undefined
inf^0:=undefined
#e/inf := 0
#pi/inf := 0
#(-1)^0.5 := i
(-1)^(1/2) := i
e^(pi*i) := -1
e^(i*pi) := -1
e^inf := inf
e^(-inf) := 0
pi^inf := inf
inf^inf := inf
inf^(-inf) := 0
i^(-1) := -i
i^(-2) := -1
i^2 := -1
i^3 := -i
i^4 := 1
i^5 := i
degree := pi/180
output := math