Changeset a8bb72d in git

Timestamp:

Jun 8, 2005, 3:52:12 PM (18 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '8d54773d6c9e2f1d2593a28bc68b7eeab54ed529')

Children:

cd6ff4925c1335a6a1617eccfabad9197484c383

Parents:

261735d407471bf3413150f3179011e8eca56bd3

Message:

*Hannes: minideal


git-svn-id: file:///usr/local/Singular/svn/trunk@8349 2c84dea3-7e68-4137-9b89-c4e89433aadc

Location:

kernel

Files:

• longalg.cc (modified) (4 diffs)
• ring.cc (modified) (2 diffs)

kernel/longalg.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: longalg.cc,v 1.9 2005-04-27 14:55:33 Singular Exp $ */
+/* $Id: longalg.cc,v 1.10 2005-06-08 13:52:12 Singular Exp $ */
 /*
 * ABSTRACT:   algebraic numbers
@@ -65 +65 @@
 static ring nacRing;
 
+#define napCopy(p)       (napoly)p_Copy((poly)p,nacRing)
+
 static number nadGcd( number a, number b, const ring r) { return nacInit(1); }
 /*2
@@ -86 +88 @@
   else
     naMinimalPoly = NULL;
+  if (r->minideal!=NULL)
+  {
+    naI=(naIdeal)omAllocBin(snaIdeal_bin);
+    naI->anz=IDELEMS(r->minideal);
+    naI->liste=(napoly*)omAlloc(naI->anz*sizeof(napoly));
+    int j;
+    for (j=naI->anz-1; j>=0; j--)
+    {
+      lnumber a = (lnumber)pGetCoeff(r->minideal->m[j]);
+      naI->liste[j]=napCopy(a->z);
+    }
+  }
 
   naNumbOfPar=rPar(r);
@@ -147 +161 @@
 #define napSetCoeff(p,n) {nacDelete(&napGetCoeff(p),nacRing);napGetCoeff(p)=n;}
 #define napDelete1(p)    p_LmDelete((poly *)p, nacRing)
-#define napCopy(p)       (napoly)p_Copy((poly)p,nacRing)
 #define nap_Copy(p,r)       (napoly)p_Copy((poly)p,r->algring)
 #define napComp(p,q)     p_LmCmp((poly)p,(poly)q, nacRing)

kernel/ring.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ring.cc,v 1.39 2005-06-06 16:04:19 Singular Exp $ */
+/* $Id: ring.cc,v 1.40 2005-06-08 13:52:12 Singular Exp $ */
 
 /*
@@ -276 +276 @@
       {
         PrintS("...\n");
+      }
+      if (r->minideal!=NULL)
+      {
+        if (r==currRing) iiWriteMatrix((matrix)r->minideal,"//   minpolys",1,0);
+        else PrintS("//   minpolys=...");
+        PrintLn();
       }
     }