X-Git-Url: https://ginac.de/CLN/cln.git//cln.git?a=blobdiff_plain;f=src%2Fcomplex%2Ftranscendental%2Fcl_C_cis.cc;h=11b9322970171714fa19982909e526d27ac8e7ef;hb=3af2cde18b3aabed4c808b0113daa81c2263b0bd;hp=0753a2729aaeccf036a3ddf01c518679c33d78d0;hpb=dd9e0f894eec7e2a8cf85078330ddc0a6639090b;p=cln.git diff --git a/src/complex/transcendental/cl_C_cis.cc b/src/complex/transcendental/cl_C_cis.cc index 0753a27..11b9322 100644 --- a/src/complex/transcendental/cl_C_cis.cc +++ b/src/complex/transcendental/cl_C_cis.cc @@ -1,16 +1,18 @@ // cis(). // General includes. -#include "cl_sysdep.h" +#include "base/cl_sysdep.h" // Specification. -#include "cl_complex.h" +#include "cln/complex.h" // Implementation. -#include "cl_C.h" -#include "cl_real.h" +#include "complex/cl_C.h" +#include "cln/real.h" + +namespace cln { const cl_N cis (const cl_N& x) { @@ -19,16 +21,18 @@ const cl_N cis (const cl_N& x) // x = a+bi -> (complex (* (exp (- b)) (cos a)) (* (exp (- b)) (sin a))) if (realp(x)) { DeclareType(cl_R,x); - var cl_cos_sin_t trig = cl_cos_sin(x); + var cos_sin_t trig = cos_sin(x); return complex(trig.cos, trig.sin); } else { DeclareType(cl_C,x); // x=a+bi var const cl_R& a = realpart(x); var const cl_R& b = imagpart(x); - var cl_cos_sin_t trig_a = cl_cos_sin(a); // cos(a), sin(a) errechnen + var cos_sin_t trig_a = cos_sin(a); // cos(a), sin(a) errechnen var cl_R exp_minusb = exp(-b); // (exp (- b)) return complex(exp_minusb*trig_a.cos, // (* (exp (- b)) (cos a)) exp_minusb*trig_a.sin); // (* (exp (- b)) (sin a)) } } + +} // namespace cln