Changeset 68297e in git

Timestamp:

Nov 17, 1999, 2:53:15 PM (24 years ago)

Author:

Gerhard Pfister <pfister@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

cf74099cd4e3289c268dfffa7cac3bb755132714

Parents:

d5efb009bf054ed77a49e2d39ec7f03672fea3bd

Message:

in normalizationPrimes eine zusaetzliche mstd-Berechnung


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

File:

• Singular/LIB/normal.lib (modified) (7 diffs)

Singular/LIB/normal.lib

@@ -5 +5 @@
 ///////////////////////////////////////////////////////////////////////////////
 
-version="$Id: normal.lib,v 1.20 1999-09-23 12:13:39 Singular Exp $";
+version="$Id: normal.lib,v 1.21 1999-11-17 13:53:15 pfister Exp $";
 info="
 LIBRARY:  normal.lib     PROCEDURES FOR NORMALIZATION
@@ -649 +649 @@
    if(size(#)>0)
    {
-      list JM=#[1],#[1];
-      attrib(JM[1],"isSB",1);
+      list JM=mstd(#[1]);
       if( typeof(attrib(#[1],"isRad"))!="int" )
       {
@@ -816 +815 @@
 
       list JM=mstd(sin);
+
       if(y>=1)
       {
@@ -959 +959 @@
       list RR;
       list RS;
-
       //now we have to compute the radical
       if(y>=1)
@@ -979 +978 @@
           if(attrib(SM[2],"isCompleteIntersection")==0)
           {
-             J=equiRadical(JM[2]);
+            J=equiRadical(JM[2]);
              //J=equiRadical(JJ);
           }
@@ -988 +987 @@
           }
       }
-
       if(y>=1)
       {
@@ -1024 +1022 @@
       int n=nvars(basering);
       ideal MJ=JM[2];
+
       def newR=RS[1];
       setring newR;
 
       map psi=BAS,endphi;
-
       list tluser=
              normalizationPrimes(endid,psi(ihp),simplify(psi(MJ)+endid,4));