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
/
conj.coffee
24 lines
(18 loc)
•
281 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
# Complex conjugate
Eval_conj = ->
push
(cadr(p1)) Eval() p1 =
pop
()
push
(p1)
if
(!Find(p1, imaginaryunit))
# example: (-1)^(1/3)
polar() conjugate() clockform()
else
conjugate() conjugate = ->
push
(imaginaryunit)
push
(imaginaryunit) negate() subst() Eval()