Changeset 706c95 in git for Singular/LIB/random.lib

Timestamp:

Jul 28, 1999, 7:51:08 PM (25 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

bb78517a1a700b9a02a09333203500c9bf99b4d5

Parents:

e82b5056a1be30c4e177376a20c03847146e8f11

Message:

* hannes: random.lib - back to old version randomLast:
               (faster, less output in tests)
          moved help routines into seperate files: fehelp.*


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

File:

• Singular/LIB/random.lib (modified) (2 diffs)

Singular/LIB/random.lib

@@ -1 @@
-// $Id: random.lib,v 1.8 1999-07-26 13:03:35 Singular Exp $
+// $Id: random.lib,v 1.9 1999-07-28 17:51:08 Singular Exp $
 //system("random",787422842);
 //(GMG/BM, last modified 22.06.96)
 ///////////////////////////////////////////////////////////////////////////////
 
-version="$Id: random.lib,v 1.8 1999-07-26 13:03:35 Singular Exp $";
+version="$Id: random.lib,v 1.9 1999-07-28 17:51:08 Singular Exp $";
 info="
 LIBRARY:  random.lib    PROCEDURES OF RANDOM MATRIX AND POLY OPERATIONS
@@ -258 +258 @@
 "
 {
-  ideal i = maxideal(1);
-  i[size(i)] = randomid(maxideal(1),1,b)[1];
-  return(i);
+  ideal i=maxideal(1); 
+  int k=size(i);
+  i[k]=0;
+  i=randomid(i,size(i),b);
+  ideal ires=maxideal(1);
+  ires[k]=i[1]+var(k);
+  return(ires);
 }
 example