Subversion Repositories wimsdev

Rev

Go to most recent revision | Blame | Last modification | View Log | RSS feed

  1. char *firstupper[]={
  2. "abs",
  3. "and",
  4. "arg",
  5. "complex",
  6. "conjugate",
  7. "cos",
  8. "cosh",
  9. "cot",
  10. "coth",
  11. "csc",
  12. "csch",
  13. "denom",
  14. "exp",
  15. "factor",
  16. "factorize",
  17. "i",
  18. "im",
  19. "infinity",
  20. "integrate",
  21. "limit",
  22. "ln",
  23. "max",
  24. "min",
  25. "not",
  26. "or",
  27. "pi",
  28. "print",
  29. "random",
  30. "re",
  31. "round",
  32. "sec",
  33. "sech",
  34. "sign",
  35. "simplify",
  36. "sin",
  37. "sinh",
  38. "solve",
  39. "sqrt",
  40. "tan",
  41. "tanh",
  42. "undefined",
  43. };
  44. #define firstupperno (sizeof(firstupper)/sizeof(firstupper[0]))
  45.  
  46. char header[]="\
  47. tg(x) := Tan(x)\n\
  48. log(x) := Ln(x)\n\
  49. e := Exp(1)\n\
  50. E := Exp(1)\n\
  51. sgn(x) := Sign(x)\n\
  52. ch(x) := Cosh(x)\n\
  53. sh(x) := Sinh(x)\n\
  54. th(x) := Tanh(x)\n\
  55. acos(x) := ArcCos(x)\n\
  56. arccos(x) := ArcCos(x)\n\
  57. asin(x) := ArcSin(x)\n\
  58. arcsin(x) := ArcSin(x)\n\
  59. atan(x) := ArcTan(x)\n\
  60. arctan(x) := ArcTan(x)\n\
  61. arctg(x) := ArcTan(x)\n\
  62. Argch(x) := ArcCosh(x)\n\
  63. argch(x) := ArcCosh(x)\n\
  64. acosh(x) := ArcCosh(x)\n\
  65. Argsh(x) := ArcSinh(x)\n\
  66. argsh(x) := ArcSinh(x)\n\
  67. asinh(x) := ArcSinh(x)\n\
  68. Argth(x) := ArcTanh(x)\n\
  69. argth(x) := ArcTanh(x)\n\
  70. atanh(x) := ArcTanh(x)\n\
  71. ctg(x) := Cot(x)\n\
  72. rint(x) := Round(x)\n\
  73. RANDOM() := Random()\n\
  74. SOLVE(x,y) := Solve(x,y)\n\
  75. ";
  76.  
  77.