Subversion Repositories wimsdev

Rev

Rev 8120 | Rev 8529 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 8120 Rev 8137
Line 33... Line 33...
33 
char *inprompt="\nIn>";
 33 
char *inprompt="\nIn>";
34 
char *outprompt="Out>";
 34 
char *outprompt="Out>";
35 
 
 35 
 
36 
char *nameofcmd="yacas -p";
 36 
char *nameofcmd="yacas -p";
37 
 
 37 
 
- 
 
 38 
char *firstupper[]={
- 
 
 39 
"abs",
- 
 
 40 
"and",
- 
 
 41 
"arg",
- 
 
 42 
"complex",
- 
 
 43 
"conjugate",
- 
 
 44 
"cos",
- 
 
 45 
"cosh",
- 
 
 46 
"cot",
- 
 
 47 
"coth",
- 
 
 48 
"csc",
- 
 
 49 
"csch",
- 
 
 50 
"denom",
- 
 
 51 
"echo",
- 
 
 52 
"exp",
- 
 
 53 
"factor",
- 
 
 54 
"factorize",
- 
 
 55 
"for",
- 
 
 56 
"i",
- 
 
 57 
"if",
- 
 
 58 
"im",
- 
 
 59 
"infinity",
- 
 
 60 
"integrate",
- 
 
 61 
"limit",
- 
 
 62 
"ln",
- 
 
 63 
"max",
- 
 
 64 
"min",
- 
 
 65 
"not",
- 
 
 66 
"or",
- 
 
 67 
"pi",
- 
 
 68 
"print",
- 
 
 69 
"random",
- 
 
 70 
"re",
- 
 
 71 
"round",
- 
 
 72 
"sec",
- 
 
 73 
"sech",
- 
 
 74 
"sign",
- 
 
 75 
"simplify",
- 
 
 76 
"sin",
- 
 
 77 
"sinh",
- 
 
 78 
"solve",
- 
 
 79 
"sqrt",
- 
 
 80 
"tan",
- 
 
 81 
"tanh",
- 
 
 82 
"undefined",
- 
 
 83 
"until",
- 
 
 84 
"while",
- 
 
 85 
};
- 
 
 86 
int firstupperno=(sizeof(firstupper)/sizeof(firstupper[0]));
- 
 
 87 
 
38 
#include "yacasheader.c"
 88 
char header[]="\
- 
 
 89 
tg(x) := Tan(x)\n\
- 
 
 90 
log(x) := Ln(x)\n\
- 
 
 91 
e := Exp(1)\n\
- 
 
 92 
E := Exp(1)\n\
- 
 
 93 
sgn(x) := Sign(x)\n\
- 
 
 94 
ch(x) := Cosh(x)\n\
- 
 
 95 
sh(x) := Sinh(x)\n\
- 
 
 96 
th(x) := Tanh(x)\n\
- 
 
 97 
acos(x) := ArcCos(x)\n\
- 
 
 98 
arccos(x) := ArcCos(x)\n\
- 
 
 99 
asin(x) := ArcSin(x)\n\
- 
 
 100 
arcsin(x) := ArcSin(x)\n\
- 
 
 101 
atan(x) := ArcTan(x)\n\
- 
 
 102 
arctan(x) := ArcTan(x)\n\
- 
 
 103 
arctg(x) := ArcTan(x)\n\
- 
 
 104 
Argch(x) := ArcCosh(x)\n\
- 
 
 105 
argch(x) := ArcCosh(x)\n\
- 
 
 106 
acosh(x) := ArcCosh(x)\n\
- 
 
 107 
Argsh(x) := ArcSinh(x)\n\
- 
 
 108 
argsh(x) := ArcSinh(x)\n\
- 
 
 109 
asinh(x) := ArcSinh(x)\n\
- 
 
 110 
Argth(x) := ArcTanh(x)\n\
- 
 
 111 
argth(x) := ArcTanh(x)\n\
- 
 
 112 
atanh(x) := ArcTanh(x)\n\
- 
 
 113 
ctg(x) := Cot(x)\n\
- 
 
 114 
rint(x) := Round(x)\n\
- 
 
 115 
RANDOM() := Random()\n\
- 
 
 116 
SOLVE(x,y) := Solve(x,y)\n\
- 
 
 117 
";
- 
 
 118 
 
39 
 
 119 
 
40 
struct {
 120 
struct {
41 
    char *wname;    char *defaultval;    char *yacasset;
 121 
    char *wname; char *defaultval; char *yacasset;
42 
} setups[]={
 122 
} setups[]={
43 
      {"w_yacas_precision", "20", "\\precision=",},
 123 
      {"w_yacas_precision", "20", "\\precision=",},
44 
      {"w_yacas_serieslength", "8", "\\serieslength="}
 124 
      {"w_yacas_serieslength", "8", "\\serieslength="}
45 
};
 125 
};
46 
 
 126