Changeset 89005e in git for Singular/LIB/hnoether.lib

Timestamp:

Jul 4, 2020, 4:54:16 PM (3 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

9e20b9f7749f3bf1b809cdfca51f8fdbbc25e754

Parents:

7032db2a39319cc0c7a7814003e93cae02793c5ed78356197b75c5a7efd1896ede6a66356bbb6d94

Message:

Merge branch 'sachinkm308-execute' into spielwiese

File:

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

Singular/LIB/hnoether.lib

@@ -2016 +2016 @@
  if (parstr(basering)!="") {
    if (charstr(basering)!=string(char(basering))+","+parstr(basering)) {
-     execute
-      ("ring dazu=("+charstr(basering)+"),z(0.."+string(size(v)-1)+"),ls;");
+     list l2;
+     for (int zz = 0; zz <= size(v)-1; zz++)
+     {
+       l2[size(l2)+1] = "z("+string(zz)+")";
+     }
+     ring dazu = create_ring(ringlist(basering)[1], l2, "ls", "no_minpoly");
    }
    else { ring dazu=char(altring),z(0..size(v)-1),ls; }
@@ -2024 +2028 @@
  def displayring=dazu+altring;
 */
- execute("ring displayring=("+charstr(basering)+"),(z(0.."+string(size(v)-1)+"),"+varstr(basering)+"),(ls("+string(size(v))+"),"+ordstr(basering)+");");
+ list l1;
+ for (int zz = 0; zz <= size(v)-1; zz++)
+ {
+   l1[size(l1)+1] = "z("+string(zz)+")";
+ }
+ list l2=ringlist(basering)[2];
+ l1 = l1 + l2;
+ ring displayring = create_ring(ringlist(basering)[1], l1, "(ls("+string(size(v))+"),"+ordstr(basering)+")", "no_minpoly");
  // End change by T. Keilen
  //////////////////////////////////////////////////////////////