source: asp3_tinet_ecnl_rx/trunk/musl-1.1.18/src/complex/casin.c@ 337

Last change on this file since 337 was 337, checked in by coas-nagasima, 6 years ago

ASP3版ECNLを追加
  • Property svn:eol-style set to native
  • Property svn:mime-type set to text/x-csrc;charset=UTF-8
File size: 265 bytes
Line 
1#include "libm.h"
2
3// FIXME
4
5/* asin(z) = -i log(i z + sqrt(1 - z*z)) */
6
7double complex casin(double complex z)
8{
9 double complex w;
10 double x, y;
11
12 x = creal(z);
13 y = cimag(z);
14 w = CMPLX(1.0 - (x - y)*(x + y), -2.0*x*y);
15 return clog(CMPLX(-y, x) + csqrt(w));
16}
Note: See TracBrowser for help on using the repository browser.