home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 9
/
MEDIASHARE_09.ISO
/
utility
/
sm22a.zip
/
SYMBMATH.INI
< prev
next >
Wrap
Text File
|
1993-04-21
|
4KB
|
83 lines
constant("pi",3.1415926535897932384626433832).
constant("e",2.7182818284590452353602874713).
plus2(var("zero"),mult(int(-1),var("zero")),var("zero")).
plus2(mult(int(-1),var("zero")),var("zero"),var("zero")).
plus2(var("discont"),mult(int(-1),var("discont")),var("discont")).
plus2(mult(int(-1),var("discont")),var("discont"),var("discont")).
plus2(var("inf"),mult(int(-1),var("inf")),var("undefined")).
plus2(mult(int(-1),var("inf")),var("inf"),var("undefined")).
minus2(var("undefined"),var("undefined"),var("undefined")).
minus2(var("zero"),var("zero"),var("zero")).
minus2(var("discont"),var("discont"),var("discont")).
minus2(var("inf"),var("inf"),var("undefined")).
minus2(mult(int(-1),var("inf")),mult(int(-1),var("inf")),var("undefined")).
mult2(complex(0,1),complex(0,1),int(-1)).
mult2(int(0),var("inf"),var("undefined")).
mult2(var("inf"),int(0),var("undefined")).
mult2(int(0),mult(int(-1),var("inf")),var("undefined")).
mult2(mult(int(-1),var("inf")),int(0),var("undefined")).
mult2(var("inf"),var("zero"),var("undefined")).
mult2(var("zero"),var("inf"),var("undefined")).
mult2(complex(0,1),var("inf"),mult(complex(0,1),var("inf"))).
div2(int(0),int(0),var("undefined")).
div2(var("zero"),var("zero"),var("undefined")).
div2(var("discont"),var("discont"),var("discont")).
div2(var("inf"),var("inf"),var("undefined")).
div2(mult(int(-1),var("inf")),mult(int(-1),var("inf")),var("undefined")).
div2(mult(int(-1),var("inf")),var("inf"),var("undefined")).
div2(var("inf"),mult(int(-1),var("inf")),var("undefined")).
div2(var("inf"),var("zero"),var("inf")).
div2(mult(int(-1),var("inf")),var("zero"),mult(int(-1),var("inf"))).
div2(var("e"),var("inf"),int(0)).
div2(var("pi"),var("inf"),int(0)).
power2(int(-1),complex(0,1),int(0.0432139)).
power2(int(-1),int(0.5),complex(0,1)).
power2(int(-1),fract(1,2),complex(0,1)).
power2(int(-1),int(-0.5),complex(0,-1)).
power2(int(-1),fract(-1,2),complex(0,-1)).
power2(int(0),int(0),var("undefined")).
power2(var("zero"),var("zero"),var("undefined")).
power2(int(1),var("inf"),var("undefined")).
power2(int(-1),var("inf"),var("undefined")).
power2(int(1),mult(int(-1),var("inf")),var("undefined")).
power2(int(-1),mult(int(-1),var("inf")),var("undefined")).
power2(var("e"),var("inf"),var("inf")).
power2(var("e"),mult(int(-1),var("inf")),int(0)).
power2(var("e"),mult(complex(0,-1),var("pi")),int(-1)).
power2(var("e"),mult(complex(0,1),var("pi")),int(-1)).
power2(var("e"),plus(var("inf"),mult(complex(0,1),var("pi"))),mult(int(-1),var("inf"))).
power2(var("e"),minus(var("inf"),mult(complex(0,1),var("pi"))),mult(int(-1),var("inf"))).
power2(var("inf"),int(0),var("undefined")).
power2(mult(int(-1),var("inf")),int(0),var("undefined")).
power2(var("inf"),var("inf"),var("inf")).
power2(mult(int(-1),var("inf")),int(0.5),mult(complex(0,1),var("inf"))).
power2(complex(0,-1),int(2),int(-1)).
power2(complex(0,1),int(-1),complex(0,-1)).
power2(complex(0,1),int(-2),int(-1)).
power2(complex(0,1),int(-3),complex(0,1)).
power2(complex(0,1),int(-4),int(1)).
power2(complex(0,1),int(2),int(-1)).
power2(complex(0,1),int(3),complex(0,-1)).
power2(complex(0,1),int(4),int(1)).
sign2(var("undefined"),var("undefined")).
sign2(var("discont"),var("discont")).
error(21,"\nERROR: mis-syntax at ").
error(23,"\nERROR: ").
error(25," function is not in this version").
error(31,"\nERROR: unmatched (").
error(32,"\nERROR: unmatched )").
error(33,"\nERROR: unmatched [").
error(34,"\nERROR: unmatched ]").
error(36,"\nERROR: the invalid function name ").
error(41,"\nERROR: infinite recursion").
error(44,"\nERROR: assign to a number").
error(52,"\nERROR: arguement is not a simple variable or number of arguement > 5").
error(54,"\nERROR: mis-syntax or the local variable is not a simple variable").
error(56,"\nERROR: there is not this file").
error(62,"SymbMath 2.2 | Arrow keys and <Enter>, First capital letter, <Alt>P Print").
error(64,"Input filename | <F8> Last filename, -><- Edit, <Enter> Accept, <Esc> Abort").
error(66,"<F1> Help, <Shi><F1> Manual, <F3> Load, <F5> Zoom, <F7> XCopy, <F8> XEdit").
error(68,"<Ctrl><F3> Find, <Shi><F3> Find again, <F5> Zoom, <Pg Dn> More, <Esc> Abort").
error(70,"<F4> File mask, <F5> Zoom, <PgDn> More, -><- Select, <Enter> Accept, <Esc> Abort").
finame("new.sm",0).
autorun("init.sm").