1 | # exp(x) - exp(-x)
|
2 | # sinh(x) = ----------------
|
3 | # 2
|
4 |
|
5 |
|
6 |
|
7 | Eval_sinh = ->
|
8 | push(cadr(p1))
|
9 | Eval()
|
10 | ysinh()
|
11 |
|
12 | ysinh = ->
|
13 | save()
|
14 | yysinh()
|
15 | restore()
|
16 |
|
17 | yysinh = ->
|
18 | d = 0.0
|
19 | p1 = pop()
|
20 | if (car(p1) == symbol(ARCSINH))
|
21 | push(cadr(p1))
|
22 | return
|
23 | if (isdouble(p1))
|
24 | d = Math.sinh(p1.d)
|
25 | if (Math.abs(d) < 1e-10)
|
26 | d = 0.0
|
27 | push_double(d)
|
28 | return
|
29 | if (iszero(p1))
|
30 | push(zero)
|
31 | return
|
32 | push_symbol(SINH)
|
33 | push(p1)
|
34 | list(2)
|
35 |
|
36 |
|