Changeset 53bb34c in git for kernel/numeric

Timestamp:

Nov 14, 2022, 11:38:13 AM (18 months ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'd08f5f0bb3329b8ca19f23b74cb1473686415c3a')

Children:

f0d4bd4caae9db63763bba2f6c56156355628e8b

Parents:

96fc6774cff6a43918cd7ab4d12e66e053b43e91

Message:

fix: encoding

Location:

kernel/numeric

Files:

• mpr_base.cc (modified) (2 diffs)
• mpr_numeric.cc (modified) (3 diffs)

kernel/numeric/mpr_base.cc

@@ -794 +794 @@
 
     poly p= (gls->m)[i];
-    for( j= 1; j <= m; j++) {  // für jeden Exponentvektor
+    for( j= 1; j <= m; j++) {  // fuer jeden Exponentvektor
       if( !inHull( (gls->m)[i], p, m, j ) )
       {
@@ -850 +850 @@
 
     p= (gls->m)[i];
-    for( j= 1; j <= m; j++) {  // für jeden Exponentvektor
+    for( j= 1; j <= m; j++) {  // fuer jeden Exponentvektor
       if( !inHull( (gls->m)[i], p, m, j ) )
       {

kernel/numeric/mpr_numeric.cc

@@ -285 +285 @@
   }
 
-  for ( i=0; i <= tdg; i++ ) 
+  for ( i=0; i <= tdg; i++ )
     if (coeffs[i]!=NULL) nDelete( coeffs + i );
   omFreeSize( (void *)coeffs, (tdg+1) * sizeof( number ) );
 
-  // theroots löschen
+  // theroots loeschen
   for ( i=0; i < tdg; i++ ) delete theroots[i];
   omFreeSize( (void *) theroots, (tdg)*sizeof(gmp_complex*) );
@@ -890 +890 @@
   //gmp_complex mprec(1.0/pow(10,gmp_output_digits-5),1.0/pow(10,gmp_output_digits-5));
 
-  for ( xkoord= 0; xkoord < anzm; xkoord++ ) {    // für x1,x2, x1,x2,x3, x1,x2,...,xn
+  for ( xkoord= 0; xkoord < anzm; xkoord++ ) {    // fuer x1,x2, x1,x2,x3, x1,x2,...,xn
     gmp_float mprec(1.0/pow(10.0,(int)(gmp_output_digits/3)));
-    for ( r= 0; r < anzr; r++ ) {                 // für jede Nullstelle
+    for ( r= 0; r < anzr; r++ ) {                 // fuer jede Nullstelle
       // (x1-koordinate) * evp[1] + (x2-koordinate) * evp[2] +
       //                                  ... + (xkoord-koordinate) * evp[xkoord]
@@ -902 +902 @@
       found= false;
       do { // while not found
-        for ( rtest= r; rtest < anzr; rtest++ ) {   // für jede Nullstelle
+        for ( rtest= r; rtest < anzr; rtest++ ) {   // fuer jede Nullstelle
            zwerg = tmp - (*roots[xk])[rtest] * mu[xkoord]->evPointCoord(xk+1); // xk+1, xkoord+2
           for ( mtest= 0; mtest < anzr; mtest++ )