1 | # Do the exponential cosine function.
|
2 |
|
3 |
|
4 |
|
5 | Eval_expcos = ->
|
6 | push(cadr(p1))
|
7 | Eval()
|
8 | expcos()
|
9 |
|
10 | expcos = ->
|
11 | save()
|
12 |
|
13 | p1 = pop()
|
14 |
|
15 | push(imaginaryunit)
|
16 | push(p1)
|
17 | multiply()
|
18 | exponential()
|
19 | push_rational(1, 2)
|
20 | multiply()
|
21 |
|
22 | push(imaginaryunit)
|
23 | negate()
|
24 | push(p1)
|
25 | multiply()
|
26 | exponential()
|
27 | push_rational(1, 2)
|
28 | multiply()
|
29 |
|
30 | add()
|
31 |
|
32 | restore()
|
33 |
|
34 |
|