Changeset 8d1432e in git for libpolys/polys

Timestamp:

Dec 5, 2016, 2:46:15 PM (7 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '38dfc5131670d387a89455159ed1e071997eec94')

Children:

bcbdc40eee17977edd99e141f5ed89daa3a6ed56

Parents:

61e85543ff6e6160d3d8c6b8fba50eb327f41679

Message:

use of CoeffWrite/CoeffName/CoeffString p1

Location:

libpolys/polys

Files:

• ext_fields/algext.cc (modified) (2 diffs)
• ext_fields/transext.cc (modified) (1 diff)
• monomials/ring.cc (modified) (5 diffs)

libpolys/polys/ext_fields/algext.cc

@@ -408 +408 @@
   assume( P > 0 );
 
-  Print("//   %d parameter    : ", P);
+  PrintS("[");
 
   for (int nop=0; nop < P; nop ++)
-    Print("%s ", rRingVar(nop, A));
-
-  PrintLn();
+  {
+    Print("%s", rRingVar(nop, A));
+    if (nop!=P-1) PrintS(", ");
+  }
+
+  PrintS("]/(");
 
   const ideal I = A->qideal;
@@ -423 +426 @@
   if ( details )
   {
-    PrintS("//   minpoly        : (");
     p_Write0( I->m[0], A);
     PrintS(")");
   }
   else
-    PrintS("//   minpoly        : ...");
-
-  PrintLn();
+    PrintS("...)");
 
 /*

libpolys/polys/ext_fields/transext.cc

@@ -787 +787 @@
   assume( P > 0 );
 
-  Print("//   %d parameter    : ", P);
+  PrintS("(");
 
   for (int nop=0; nop < P; nop ++)
-    Print("%s ", rRingVar(nop, A));
+  {
+    Print("%s", rRingVar(nop, A));
+    if (nop!=P-1) PrintS(", ");
+  }
+
+  PrintS(")");
 
   assume( A->qideal == NULL );
-
-  PrintS("\n//   minpoly        : 0\n");
 
 /*

libpolys/polys/monomials/ring.cc

@@ -255 +255 @@
 
 
+  PrintS("// coefficients: ");
   if( nCoeff_is_algExt(C) )
   {
@@ -270 +271 @@
   else
     n_CoeffWrite(C, details);
+  PrintLn();
 //   {
 //     PrintS("//   characteristic : ");
@@ -308 +310 @@
 //     }
 //   }
-  Print("//   number of vars : %d",r->N);
+  Print("// number of vars : %d",r->N);
 
   //for (nblocks=0; r->order[nblocks]; nblocks++);
@@ -388 +390 @@
   if(rIsPluralRing(r))
   {
-    PrintS("\n//   noncommutative relations:");
+    PrintS("\n// noncommutative relations:");
     if( details )
     {
@@ -411 +413 @@
 
 #if MYTEST  /*Singularg should not differ from Singular except in error case*/
-    Print("\n//   noncommutative type:%d", (int)ncRingType(r));
-    Print("\n//      is skew constant:%d",r->GetNC()->IsSkewConstant);
+    Print("\n// noncommutative type:%d", (int)ncRingType(r));
+    Print("\n//    is skew constant:%d",r->GetNC()->IsSkewConstant);
     if( rIsSCA(r) )
     {