UNPKG

algebrite

Version:

Computer Algebra System in Coffeescript

github.com/davidedc/Algebrite

davidedc/Algebrite

86 lines (68 loc) • 1.08 kB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
#----------------------------------------------------------------------------- # # Author : philippe.billet@noos.fr # # sgn sign function # # #----------------------------------------------------------------------------- Eval_sgn = -> push(cadr(p1)) Eval() sgn() sgn = -> save() yysgn() restore() #define X p1 yysgn = -> p1 = pop() if (isdouble(p1)) if (p1.d > 0) push_integer(1) return else if (p1.d == 0) push_integer(1) return else push_integer(-1) return if (isrational(p1)) if (MSIGN(mmul(p1.q.a,p1.q.b)) == -1) push_integer(-1) return else if (MZERO(mmul(p1.q.a,p1.q.b))) push_integer(0) return else push_integer(1) return if (iscomplexnumber(p1)) push_integer(-1) push(p1) absval() power() push(p1) multiply() return if (isnegativeterm(p1)) push_symbol(SGN) push(p1) negate() list(2) push_integer(-1) multiply() return ### push_integer(2) push(p1) heaviside() multiply() push_integer(-1) add() ### push_symbol(SGN) push(p1) list(2)