| 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 |
|