Changeset 0dee96 in git

Timestamp:

May 26, 1999, 3:14:33 PM (24 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

42af82ee4c52c3eaa0d01f2aba5f6d65122bae48

Parents:

1598568cca6b50706674b0e35565a4c89bcfef83

Message:

* more output on option(prot)


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

File:

• Singular/LIB/standard.lib (modified) (4 diffs)

Singular/LIB/standard.lib

@@ -1 @@
-// $Id: standard.lib,v 1.30 1999-05-19 11:28:55 Singular Exp $
+// $Id: standard.lib,v 1.31 1999-05-26 13:14:33 obachman Exp $
 //////////////////////////////////////////////////////////////////////////////
 
-version="$Id: standard.lib,v 1.30 1999-05-19 11:28:55 Singular Exp $";
+version="$Id: standard.lib,v 1.31 1999-05-26 13:14:33 obachman Exp $";
 info="
 LIBRARY: standard.lib   PROCEDURES WHICH ARE ALWAYS LOADED AT START-UP
@@ -368 +368 @@
     if (!is_homog)
     {
+      if (p_opt)
+      {
+        "dehomogenization";
+      }
       qh = subst(qh, @t, 1);
     }
@@ -374 +378 @@
     setring P;
     // get ideal, delete zeros and clean SB
+    if (p_opt)
+    {
+      "imap to original ring";
+    }
     i = imap(Phelp1,qh);
+    if (p_opt)
+    {
+      "simplification";
+    }
     i = simplify(i, 34);
     kill Phelp1;
@@ -383 +395 @@
   if (find(s_opt, "redSB") > 0)
   {
+    if (p_opt)
+    {
+      "interreduction";
+    }
     i=interred(i);
   }