Changeset 2f1585 in git

Timestamp:

May 26, 1999, 4:32:02 PM (24 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

faea1146c8c5f3a85b2812d91d45140f69473617

Parents:

42af82ee4c52c3eaa0d01f2aba5f6d65122bae48

Message:

* updated because of update of normal.lib


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

File:

• Singular/LIB/paramet.lib (modified) (5 diffs)

Singular/LIB/paramet.lib

@@ -1 @@
-// $Id: paramet.lib,v 1.2 1998-08-08 09:47:46 obachman Exp $
+// $Id: paramet.lib,v 1.3 1999-05-26 14:32:02 obachman Exp $
 // author : Thomas Keilen email: keilen@mathematik.uni-kl.de
 // last change:           07.08.98
 ///////////////////////////////////////////////////////////////////////////////
 
-version="$Id: paramet.lib,v 1.2 1998-08-08 09:47:46 obachman Exp $";
+version="$Id: paramet.lib,v 1.3 1999-05-26 14:32:02 obachman Exp $";
 info="
 LIBRARY:  paramet.lib   PROCEDURES FOR PARAMETRIZATION OF PRIMARY 
@@ -45 +45 @@
    setring N;
    // If the ideal is zero dimensional, the procedure works as well in good cases.
-   if ((size(KK)==0) or (d==0))
+   if ((size(norid)==0) or (d==0))
    {
      // Map the parametrization to the parametrization basering PR.
      setring PR;
      map p=N,(s,t);
-     ideal para=p(PP);
+     ideal para=p(normap);
      export para;
      // The i-th list component contains the parametrization, the 
@@ -59 +59 @@
 //     {
        // Include sometime a test, whether the maximal ideal I is of the form
-       // (x-a,y-b,z-c), since only then PP=(a,b,c).
+       // (x-a,y-b,z-c), since only then normap=(a,b,c).
 //     }
      setring BAS;
@@ -111 +111 @@
      def N=nor[ii];
      setring N;
-     int d=dim(std(KK));
+     int d=dim(std(norid));
      // Test if the normalization is K, K[s] or K[s,t]. Then give back the parametrization. 
-     if (size(KK)==0)
+     if (size(norid)==0)
      {
        setring PR;
        map p=N,max;
-       para[ii]=p(PP);
+       para[ii]=p(normap);
 //       export para[ii];
 //       list inter=para[ii],nvars(N),1;
@@ -124 +124 @@
 //       {
          // Include sometime a test, whether the maximal ideal I is of the form
-         // (x-a,y-b,z-c), since only then PP=(a,b,c).
+         // (x-a,y-b,z-c), since only then normap=(a,b,c).
 //       }
        param[ii]=inter;