Changeset 942c79 in git

Timestamp:

Jul 15, 2004, 6:33:46 PM (20 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')

Children:

654b44a579d2278ad9f452357b30484f749a343f

Parents:

df4c478ea37252551c6b34a05705750d5670040b

Message:

*hannes: size -> nclos for indices


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

File:

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

Singular/LIB/standard.lib

@@ -1 +1 @@
 //////////////////////////////////////////////////////////////////////////////
-version="$Id: standard.lib,v 1.65 2004-04-23 14:12:24 Singular Exp $";
+version="$Id: standard.lib,v 1.66 2004-07-15 16:33:46 Singular Exp $";
 category="Miscellaneous";
 info="
@@ -109 +109 @@
    int k,j;
    poly m;
-   int c=size(i);
+   int c=ncols(i);
 
    for(j=1;j<c;j++)
@@ -735 +735 @@
   module B=NF(b,a)+dummy;
   ideal re=quotient(a,module(B[1]));
-  for(i=2;i<=size(B);i++)
+  for(i=2;i<=ncols(B);i++)
   {
      re=intersect1(re,quotient(a,module(B[i])));
@@ -748 +748 @@
   module dummy;
   module bb=NF(b,a)+dummy;
-  int i=size(bb);
+  int i=ncols(bb);
   ideal re=quotient(a,module(bb[i]));
   bb[i]=0;
@@ -787 +787 @@
   module a=imap(@newP,a);
   int i;
-  int j=size(b);
+  int j=ncols(b);
   vector @b;
   for(i=1;i<=j;i++)
@@ -810 +810 @@
   module a=imap(@newP,a);
   int i;
-  int j=size(b);
+  int j=ncols(b);
   vector @b;
   for(i=1;i<=j;i++)
@@ -835 +835 @@
   int i;
   vector @b=b[1];
-  for(i=2;i<=size(b);i++)
+  for(i=2;i<=ncols(b);i++)
   {
      @b=@b+@t^(i-1)*b[i];