Changeset 67d9443 in git

Timestamp:

Jan 7, 2015, 12:20:55 PM (9 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

f373556909fe7f4b99091bf218e7ac67be0733aa

Parents:

9e5c36480536bfc1abee6bcedbcec2dd6f3ec1bc

Message:

remove some occ. of execute

File:

• Singular/LIB/tropical.lib (modified) (4 diffs)

Singular/LIB/tropical.lib

@@ -208 +208 @@
 LIB "absfact.lib";
 LIB "hnoether.lib";
+LIB "ring.lib";
 //////////////////////////////////////////////////////////////////////////////
 
@@ -1019 +1020 @@
   {
     def GLOBALRING=basering;
-    number mp=minpoly;
-    execute("ring LOCALRING=("+charstr(basering)+"),("+varstr(basering)+"),ds;");
+    def LOCALRING=changeordTo(GLOBALRING,"ds");
+    setring LOCALRING;
     poly f=imap(GLOBALRING,f);
-    minpoly=imap(GLOBALRING,mp);
   }
   // check if a substitution is necessary
@@ -7154 +7154 @@
 NOTE:        the procedure is called by texDrawTropical"
 {
-  execute("ring REALRING=(real,50,100),x,lp;");
+  ring REALRING=(real,50,100),x,lp;
   execute("number aa,bb,cc="+AA[1]+","+AA[2]+","+AA[3]+";");
   number ascale,bscale=1,1;
@@ -7187 +7187 @@
 NOTE:        the procedure is called by texDrawTropical"
 {
-  execute("ring REALRING=(real,50,100),x,lp;");
+  ring REALRING=(real,50,100),x,lp;
   execute("poly aa,bb="+a+","+b+";");
   if (aa<bb)