Changeset 5dc4ea in git for Singular/LIB/deform.lib

Timestamp:

Sep 18, 1997, 11:58:26 AM (26 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'a719bcf0b8dbc648b128303a49777a094b57592c')

Children:

1a5daea04547872672e8d5c6d19ac391e34ca05e

Parents:

741512c3f18910d2025325eadcbef56647da00d0

Message:

* hannes: changes to naLcm, naNormalize
* greuel/hannes: changes to deform.lib invar.lib(Header) matrix.lib
     prim_dec.lib primdec.lib


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

File:

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

Singular/LIB/deform.lib

@@ -1 @@
-// $Id: deform.lib,v 1.2 1997-04-28 19:27:15 obachman Exp $
+// $Id: deform.lib,v 1.3 1997-09-18 09:58:22 Singular Exp $
 //(BM/GMG, last modified 22.06.96)
 ///////////////////////////////////////////////////////////////////////////////
@@ -42 +42 @@
             ideal jetJ - defining the miniversal base space (in `na`)
             ideal jetF - defining miniversal total space (in `na`)
-NOTE:    printlevel >=0: display dimT1,T2 and explain created objects (default)
+NOTE:    printlevel >=0: display dimT1,T2 and miniversal equations (default)
          printlevel >=1: show partial + final result during computation
          printlevel >=2: show also memory and time usage
@@ -72 +72 @@
    id = simplify(id,10);
    int @rowR = size(id);
-   if( @rowR<=1 )
-   {
-      "// hypersurface, use proc deform from sing.lib";
-      return();
-   }
+   //if( @rowR<=1 )
+   //{
+   //   "// hypersurface, use proc deform from sing.lib";
+   //   return();
+   //}
 //------- change ordering if not correct --------------------------------------
    @t1=1;
@@ -221 +221 @@
    }
 //---------  end loop and final output ---------------------------------------
-dbprint(p-1,"","// ___ Equations of miniversal base space ___",jetJ,
-            "","// ___ Equations of miniversal total space ___",jetF);
-dbprint(p,"","// Result belongs to ring "+@na+".",
-       "// Equations of total space of miniversal deformation are ",
-       "// given by jetF, equations of miniversal base space by jetJ.",
+dbprint(p,"","// ___ Equations of miniversal base space (jetJ) ___",jetJ,
+          "","// ___ Equations of miniversal total space (jetF) ___",jetF);
+dbprint(p,"","// Equations of base space of miniversal deformation are given",
+       "// by the ideal jetJ, equations of miniversal total space by jetF.",
+       "// Both are defined in the ring "+@na+" created in 'miniversal'.",
        "// Make "+@na+" the basering and list objects defined in "+@na+" by typing:",
-       "   setring "+@na+"; show("+@na+");","   listvar(ideal);");
+       "// setring "+@na+";  show("+@na+");  listvar(ideal);");
   kill @On;
   return();