| 108 | return r ; |
| 109 | } |
| 110 | inline Rcomplex complex__sin(Rcomplex z){ |
| 111 | Rcomplex r ; |
| 112 | r.r = ::sin(z.r) * ::cosh(z.i); |
| 113 | r.i = ::cos(z.r) * ::sinh(z.i); |
| 114 | return r; |
| 115 | } |
| 116 | inline Rcomplex complex__tan(Rcomplex z){ |
| 117 | Rcomplex r ; |
| 118 | double x2, y2, den; |