X-Git-Url: https://ginac.de/CLN/cln.git//cln.git?a=blobdiff_plain;f=src%2Ffloat%2Ftranscendental%2Fcl_F_cos.cc;h=7c044700fffeec613633c21a4fac2dcb4f013359;hb=665c18cd376d8d8c5a8eafb30681a3f9f46d4a99;hp=1cb5a5e284c57f19a24fdb013450a75d3a938af7;hpb=353bb28da69bf2c10e74d11a8a2b1e4ea315cb0e;p=cln.git diff --git a/src/float/transcendental/cl_F_cos.cc b/src/float/transcendental/cl_F_cos.cc index 1cb5a5e..7c04470 100644 --- a/src/float/transcendental/cl_F_cos.cc +++ b/src/float/transcendental/cl_F_cos.cc @@ -20,8 +20,8 @@ namespace cln { const cl_F cos (const cl_F& x) { // Methode: -// Genauigkeit erhöhen, -// (q,r) := (round x (float pi x)), so daß |r|<=pi/2. +// Genauigkeit erhöhen, +// (q,r) := (round x (float pi x)), so daß |r|<=pi/2. // e := Exponent aus (decode-float r), d := (float-digits r) // Bei r=0.0 oder e<=-d/2 liefere 1.0 // (denn bei e<=-d/2 ist r^2/2 < 2^(-d)/2 = 2^(-d-1), also @@ -31,7 +31,7 @@ const cl_F cos (const cl_F& x) // (sin(s)/s)^2 errechnen, cos(r) = 1-r*s*(sin(s)/s)^2 errechnen. // Falls q ungerade: Vorzeichenwechsel. - // Rechengenauigkeit erhöhen und durch pi dividieren: + // Rechengenauigkeit erhöhen und durch pi dividieren: var cl_F cos_r; if (longfloatp(x)) { DeclareType(cl_LF,x);