1 | # exp(2 x) - 1
|
2 | # tanh(x) = --------------
|
3 | # exp(2 x) + 1
|
4 |
|
5 |
|
6 |
|
7 | Eval_tanh = ->
|
8 | d = 0.0
|
9 | push(cadr(p1))
|
10 | Eval()
|
11 | p1 = pop()
|
12 | if (car(p1) == symbol(ARCTANH))
|
13 | push(cadr(p1))
|
14 | return
|
15 | if (isdouble(p1))
|
16 | d = Math.tanh(p1.d)
|
17 | if (Math.abs(d) < 1e-10)
|
18 | d = 0.0
|
19 | push_double(d)
|
20 | return
|
21 | if (iszero(p1))
|
22 | push(zero)
|
23 | return
|
24 | push_symbol(TANH)
|
25 | push(p1)
|
26 | list(2)
|
27 |
|