Changeset 5768b5 in git

Timestamp:

Jan 28, 2008, 12:42:30 PM (15 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a657104b677b4c461d018cbf3204d72d34ad66a9')

Children:

bfce8cc37fc3eebf3f2136dc489ef7b8a26c339b

Parents:

a4de5db613bf3ccd7e8bf496462fe9e20616fe70

Message:

*hannes: again bad nrows


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

File:

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

Singular/LIB/standard.lib

@@ -3 +3 @@
 //groebner mit Optionen versehen
 //////////////////////////////////////////////////////////////////////////////
-version="$Id: standard.lib,v 1.100 2008-01-28 10:45:25 Singular Exp $";
+version="$Id: standard.lib,v 1.101 2008-01-28 11:42:30 Singular Exp $";
 category="Miscellaneous";
 info="
@@ -40 +40 @@
 EXAMPLE: example stdfglm; shows an example"
 {
-  if (nrows(i) > 1)
+  if (typeof(i)!="ideal")
   {
     ERROR("first argument of 'stdfglm' must be an ideal");
@@ -514 +514 @@
     {
       def Id(ii) = imap(P,Id(ii));
-      Id(ii) = Id(ii),Minpoly*freemodule(nrows(Id(ii)));
+      if (typeof(Id(ii))=="module")
+      {
+        Id(ii) = Id(ii),Minpoly*freemodule(nrows(Id(ii)));
+      }
+      else
+      {
+        Id(ii) = Id(ii),Minpoly;
+      }
       export (Id(ii));
     }
@@ -578 +585 @@
   {
     def Id(k) = #[k];
-    int nr(k) = nrows(Id(k));
+    if (typeof(Id(k))=="module")
+    {
+      int nr(k) = nrows(Id(k));
+    }
   }
 
@@ -628 +638 @@
     {  //homogenize
       def Id(k) =  homog( imap(P,Id(k)), `homvar` );
-      Id(k) =  Id(k),@Qidealhilb@*freemodule(nr(k)) ;
+      if (typeof(Id(k))=="module")
+      {
+        Id(k) =  Id(k),@Qidealhilb@*freemodule(nr(k)) ;
+      }
+      else
+      {
+        Id(k) =  Id(k),@Qidealhilb@ ;
+      }
       export(Id(k));
     }