X-Git-Url: https://ginac.de/CLN/cln.git//cln.git?a=blobdiff_plain;f=src%2Fcomplex%2Ftranscendental%2Fcl_C_expt_C.cc;h=a09f5e1a00110c4fb72d403146749542f745f047;hb=665c18cd376d8d8c5a8eafb30681a3f9f46d4a99;hp=16d6d833ef45a0c2845a7e96051f6576d7365f6c;hpb=353bb28da69bf2c10e74d11a8a2b1e4ea315cb0e;p=cln.git diff --git a/src/complex/transcendental/cl_C_expt_C.cc b/src/complex/transcendental/cl_C_expt_C.cc index 16d6d83..a09f5e1 100644 --- a/src/complex/transcendental/cl_C_expt_C.cc +++ b/src/complex/transcendental/cl_C_expt_C.cc @@ -22,13 +22,13 @@ namespace cln { // Falls y rational: // Falls y Integer: // Falls y=0: Ergebnis 1, -// [Nach CLTL folgendermaßen: +// [Nach CLTL folgendermaßen: // x reell: // x rational -> Fixnum 1 // x Float -> (float 1 x) // x komplex: // x komplex rational -> Fixnum 1 -// sonst: #C(1.0 0.0) im Float-Format des Real- bzw. Imaginärteils von x +// sonst: #C(1.0 0.0) im Float-Format des Real- bzw. Imaginärteils von x // ] // Falls x rational oder komplex rational oder |y| klein: // x^|y| durch wiederholtes Quadrieren und Multiplizieren und evtl. @@ -58,7 +58,7 @@ namespace cln { // liefere 1.0 falls x und y reell, #C(1.0 0.0) sonst. // Sonst: (exp (* (log x) y)) // Das Ergebnis liegt in Q(i), falls x in Q(i) liegt und 4y ein Integer ist.?? -// Genauigkeit erhöhen, log2(|y|) Bits mehr?? +// Genauigkeit erhöhen, log2(|y|) Bits mehr?? // Bei x oder y rational und der andere Long-Float: bitte kein Single-Float!?? // Liefert x^0. @@ -130,7 +130,7 @@ const cl_N expt (const cl_N& x, const cl_N& y) if (rationalp(realpart(x)) && rationalp(imagpart(x))) return expt(x,y); // exakt ausrechnen } - // x nicht exakt und |y| groß + // x nicht exakt und |y| groß } else { DeclareType(cl_RT,y); // y Ratio @@ -187,7 +187,7 @@ const cl_N expt (const cl_N& x, const cl_N& y) throw division_by_0_exception(); else { var cl_R f = contagion(contagion(x),contagion(y)); - // ein Float, da sonst x = Fixnum 0 gewesen wäre + // ein Float, da sonst x = Fixnum 0 gewesen wäre { DeclareType(cl_F,f); var cl_F f0 = cl_float(0,f); return complex_C(f0,f0); // #C(0.0 0.0)