UNPKG
algebrite
Version:
latest (1.4.0)
1.4.0
1.3.1
1.3.0
1.2.1
1.2.0
1.1.2
1.1.1
1.0.2
1.0.1
1.0.0
0.4.5
0.4.4
0.4.3
0.4.2
0.4.1
0.4.0
0.3.2
0.2.23
0.2.22
0.2.21
0.2.20
0.2.15
0.2.14
0.2.13
0.2.12
0.2.11
0.2.9
0.2.8
0.2.7
0.2.6
0.2.5
0.2.4
0.2.3
0.2.2
0.2.1
0.2.0
0.1.0
Computer Algebra System in Coffeescript
github.com/davidedc/Algebrite
davidedc/Algebrite
algebrite
/
sources
/
real.coffee
31 lines
(22 loc)
•
268 B
text/coffeescript
View Raw
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
###
Returns
the
real
part
of
complex z z
real
(z)
-
-------
a
+
i b a
exp
(i a)
cos
(a) ### Eval_real
=
-
>
push(cadr(p1)) Eval()
real
()
real
=
-
>
save() rect() p1
=
pop() push(p1) push(p1) conjugate()
add
() push_integer(
2
) divide() restore()