home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / utility / sm22a.zip / SYMBMATH.INI < prev    next >
Text File  |  1993-04-21  |  4KB  |  83 lines
  1. constant("pi",3.1415926535897932384626433832).
  2. constant("e",2.7182818284590452353602874713).
  3. plus2(var("zero"),mult(int(-1),var("zero")),var("zero")).
  4. plus2(mult(int(-1),var("zero")),var("zero"),var("zero")).
  5. plus2(var("discont"),mult(int(-1),var("discont")),var("discont")).
  6. plus2(mult(int(-1),var("discont")),var("discont"),var("discont")).
  7. plus2(var("inf"),mult(int(-1),var("inf")),var("undefined")).
  8. plus2(mult(int(-1),var("inf")),var("inf"),var("undefined")).
  9. minus2(var("undefined"),var("undefined"),var("undefined")).
  10. minus2(var("zero"),var("zero"),var("zero")).
  11. minus2(var("discont"),var("discont"),var("discont")).
  12. minus2(var("inf"),var("inf"),var("undefined")).
  13. minus2(mult(int(-1),var("inf")),mult(int(-1),var("inf")),var("undefined")).
  14. mult2(complex(0,1),complex(0,1),int(-1)).
  15. mult2(int(0),var("inf"),var("undefined")).
  16. mult2(var("inf"),int(0),var("undefined")).
  17. mult2(int(0),mult(int(-1),var("inf")),var("undefined")).
  18. mult2(mult(int(-1),var("inf")),int(0),var("undefined")).
  19. mult2(var("inf"),var("zero"),var("undefined")).
  20. mult2(var("zero"),var("inf"),var("undefined")).
  21. mult2(complex(0,1),var("inf"),mult(complex(0,1),var("inf"))).
  22. div2(int(0),int(0),var("undefined")).
  23. div2(var("zero"),var("zero"),var("undefined")).
  24. div2(var("discont"),var("discont"),var("discont")).
  25. div2(var("inf"),var("inf"),var("undefined")).
  26. div2(mult(int(-1),var("inf")),mult(int(-1),var("inf")),var("undefined")).
  27. div2(mult(int(-1),var("inf")),var("inf"),var("undefined")).
  28. div2(var("inf"),mult(int(-1),var("inf")),var("undefined")).
  29. div2(var("inf"),var("zero"),var("inf")).
  30. div2(mult(int(-1),var("inf")),var("zero"),mult(int(-1),var("inf"))).
  31. div2(var("e"),var("inf"),int(0)).
  32. div2(var("pi"),var("inf"),int(0)).
  33. power2(int(-1),complex(0,1),int(0.0432139)).
  34. power2(int(-1),int(0.5),complex(0,1)).
  35. power2(int(-1),fract(1,2),complex(0,1)).
  36. power2(int(-1),int(-0.5),complex(0,-1)).
  37. power2(int(-1),fract(-1,2),complex(0,-1)).
  38. power2(int(0),int(0),var("undefined")).
  39. power2(var("zero"),var("zero"),var("undefined")).
  40. power2(int(1),var("inf"),var("undefined")).
  41. power2(int(-1),var("inf"),var("undefined")).
  42. power2(int(1),mult(int(-1),var("inf")),var("undefined")).
  43. power2(int(-1),mult(int(-1),var("inf")),var("undefined")).
  44. power2(var("e"),var("inf"),var("inf")).
  45. power2(var("e"),mult(int(-1),var("inf")),int(0)).
  46. power2(var("e"),mult(complex(0,-1),var("pi")),int(-1)).
  47. power2(var("e"),mult(complex(0,1),var("pi")),int(-1)).
  48. power2(var("e"),plus(var("inf"),mult(complex(0,1),var("pi"))),mult(int(-1),var("inf"))).
  49. power2(var("e"),minus(var("inf"),mult(complex(0,1),var("pi"))),mult(int(-1),var("inf"))).
  50. power2(var("inf"),int(0),var("undefined")).
  51. power2(mult(int(-1),var("inf")),int(0),var("undefined")).
  52. power2(var("inf"),var("inf"),var("inf")).
  53. power2(mult(int(-1),var("inf")),int(0.5),mult(complex(0,1),var("inf"))).
  54. power2(complex(0,-1),int(2),int(-1)).
  55. power2(complex(0,1),int(-1),complex(0,-1)).
  56. power2(complex(0,1),int(-2),int(-1)).
  57. power2(complex(0,1),int(-3),complex(0,1)).
  58. power2(complex(0,1),int(-4),int(1)).
  59. power2(complex(0,1),int(2),int(-1)).
  60. power2(complex(0,1),int(3),complex(0,-1)).
  61. power2(complex(0,1),int(4),int(1)).
  62. sign2(var("undefined"),var("undefined")).
  63. sign2(var("discont"),var("discont")).
  64. error(21,"\nERROR: mis-syntax at ").
  65. error(23,"\nERROR: ").
  66. error(25," function is not in this version").
  67. error(31,"\nERROR: unmatched (").
  68. error(32,"\nERROR: unmatched )").
  69. error(33,"\nERROR: unmatched [").
  70. error(34,"\nERROR: unmatched ]").
  71. error(36,"\nERROR: the invalid function name ").
  72. error(41,"\nERROR: infinite recursion").
  73. error(44,"\nERROR: assign to a number").
  74. error(52,"\nERROR: arguement is not a simple variable or number of arguement > 5").
  75. error(54,"\nERROR: mis-syntax or the local variable is not a simple variable").
  76. error(56,"\nERROR: there is not this file").
  77. error(62,"SymbMath 2.2 | Arrow keys and <Enter>, First capital letter, <Alt>P Print").
  78. error(64,"Input filename | <F8> Last filename, -><- Edit, <Enter> Accept, <Esc> Abort").
  79. error(66,"<F1> Help, <Shi><F1> Manual, <F3> Load, <F5> Zoom, <F7> XCopy, <F8> XEdit").
  80. error(68,"<Ctrl><F3> Find, <Shi><F3> Find again, <F5> Zoom, <Pg Dn> More, <Esc> Abort").
  81. error(70,"<F4> File mask, <F5> Zoom, <PgDn> More, -><- Select, <Enter> Accept, <Esc> Abort").
  82. finame("new.sm",0).
  83. autorun("init.sm").