Changeset 67e34d in git

Timestamp:

Jul 3, 2020, 7:08:09 PM (4 years ago)

Author:

Sachin <sachinkm308@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'fc741b6502fd8a97288eaa3eba6e5220f3c3df87')

Children:

d78356197b75c5a7efd1896ede6a66356bbb6d94

Parents:

699fed5ce180d51f5da38797fb78136ee3ab672a

git-author:

Sachin <sachinkm308@gmail.com>2020-07-03 19:08:09+02:00

git-committer:

Sachin <sachinkm308@gmail.com>2020-07-03 19:14:00+02:00

Message:

Execute ring changes in hnoether library

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[zz+1] = "z("+string(zz)+")";
- }
- l1[size(l1)+1] = ringlist(basering)[2];
+   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