]> www.ginac.de Git - cln.git/blobdiff - src/float/transcendental/cl_F_sin.cc
Update known-to-work-with compilers.
[cln.git] / src / float / transcendental / cl_F_sin.cc
index 0c31bc4a9b88f405c9f2982bbaeef8f5726fd797..be0542501701d270d349daa3414206b6cfd01b11 100644 (file)
@@ -1,7 +1,7 @@
 // sin().
 
 // General includes.
-#include "cl_sysdep.h"
+#include "base/cl_sysdep.h"
 
 // Specification.
 #include "cln/float.h"
@@ -9,19 +9,19 @@
 
 // Implementation.
 
-#include "cl_F_tran.h"
-#include "cl_F.h"
+#include "float/transcendental/cl_F_tran.h"
+#include "float/cl_F.h"
 #include "cln/integer.h"
 #include "cln/lfloat.h"
-#include "cl_LF.h"
+#include "float/lfloat/cl_LF.h"
 
 namespace cln {
 
 const cl_F sin (const cl_F& x)
 {
 // Methode:
-// Genauigkeit erhöhen,
-// (q,r) := (round x (float pi/2 x)), so daß |r|<=pi/4.
+// Genauigkeit erhöhen,
+// (q,r) := (round x (float pi/2 x)), so daß |r|<=pi/4.
 // y:=(sin(r)/r)^2 errechnen.
 // Falls q gerade:
 //   sin(r) berechnen: r*sqrt(y).
@@ -35,7 +35,7 @@ const cl_F sin (const cl_F& x)
 //     Sonst sqrt(1-r^2*y).
 // Falls q == 2,3 mod 4, Vorzeichenwechsel.
 
-       // Rechengenauigkeit erhöhen und durch pi/2 dividieren:
+       // Rechengenauigkeit erhöhen und durch pi/2 dividieren:
        var cl_F z;
        var cl_I q;
        if (longfloatp(x)) {