Changeset 127883 in git for Singular/LIB/normal.lib

Timestamp:

Jan 27, 2015, 1:52:05 PM (9 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'ec94ef7a30b928574c0c3daf41f6804dff5f6b69')

Children:

d8f9c942ee4bfbe1e3f486950f095b373d881a28

Parents:

87a13aa432705563e5a24a51194c2ce8d07ce580

Message:

ring definitions for Normal::deltaLoc

File:

• Singular/LIB/normal.lib (modified) (3 diffs)

Singular/LIB/normal.lib

@@ -2659 +2659 @@
    option(redSB);
    def R=basering;
-   execute("ring S=("+charstr(R)+"),(x,y),lp;");
+   list @rl=ringlist(R);
+   @rl[2]=list("x","y");
+   @rl[3]=list(list("lp",1:2),list("C",0));
+   def S=ring(@rl); setring S;
    map phi=R,x,y;
    ideal singL=phi(singL);
@@ -2672 +2675 @@
       map alpha=S,var(1)-singL[2][2],var(2)-singL[1][2];
       f=alpha(f);
-      execute("ring C=("+charstr(S)+"),("+varstr(S)+"),ds;");
+      def C=changeordTo(S,"ds"); setring C;
       poly f=imap(S,f);
       ideal singL=imap(S,singL);
@@ -2719 +2722 @@
       poly p=beta(p);
 
-      execute("ring C=("+charstr(S)+",a),("+varstr(S)+"),ds;");
+      execute("ring C=("+charstr(S)+",a),(x,y),ds;");
       number p=number(imap(B,p));