X-Git-Url: https://ginac.de/CLN/cln.git//cln.git?a=blobdiff_plain;f=src%2Fcomplex%2Ftranscendental%2Fcl_C_sinh.cc;h=7b426c427974509789d5f1df4613dfda3d20ebc4;hb=e52830748240df6b0ab51d8a78243c88132f6c75;hp=b7ba4b9fbd1bd6c7df4bd86d61d443474985e344;hpb=dd9e0f894eec7e2a8cf85078330ddc0a6639090b;p=cln.git diff --git a/src/complex/transcendental/cl_C_sinh.cc b/src/complex/transcendental/cl_C_sinh.cc index b7ba4b9..7b426c4 100644 --- a/src/complex/transcendental/cl_C_sinh.cc +++ b/src/complex/transcendental/cl_C_sinh.cc @@ -4,13 +4,15 @@ #include "cl_sysdep.h" // Specification. -#include "cl_complex.h" +#include "cln/complex.h" // Implementation. #include "cl_C.h" -#include "cl_real.h" +#include "cln/real.h" + +namespace cln { const cl_N sinh (const cl_N& x) { @@ -25,8 +27,8 @@ const cl_N sinh (const cl_N& x) // x=a+bi var const cl_R& a = realpart(x); var const cl_R& b = imagpart(x); - var cl_cosh_sinh_t hyp_a = cl_cosh_sinh(a); // cosh(a), sinh(a) errechnen - var cl_cos_sin_t trig_b = cl_cos_sin(b); // cos(b), sin(b) errechnen + var cosh_sinh_t hyp_a = cosh_sinh(a); // cosh(a), sinh(a) errechnen + var cos_sin_t trig_b = cos_sin(b); // cos(b), sin(b) errechnen // Da b nicht = Fixnum 0 ist, ist auch sin(b) nicht = Fixnum 0. // cosh(a) /= Fixnum 0. return complex_C(hyp_a.sinh * trig_b.cos, // sinh(a)*cos(b) @@ -34,3 +36,5 @@ const cl_N sinh (const cl_N& x) ); } } + +} // namespace cln