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