Changeset 7f9ca3 in git


Ignore:
Timestamp:
Jan 29, 2020, 12:38:19 AM (4 years ago)
Author:
Sachin <sachinkm308@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'c7af8613769b29c741d6c338945669719f1fc4f8')
Children:
9e98562ecc6ae1bf654e274078b1ee910d2dd471
Parents:
fda4c85aa2975617f1975d1a5f9e0140fae41df0
git-author:
Sachin <sachinkm308@gmail.com>2020-01-29 00:38:19+01:00
git-committer:
Sachin <sachinkm308@gmail.com>2020-01-29 00:43:52+01:00
Message:
replacing execute with create_ring(13)
Location:
Singular/LIB
Files:
5 edited

Legend:

Unmodified
Added
Removed
  • Singular/LIB/decodegb.lib

    rfda4c8 r7f9ca3  
    302302"
    303303{
    304  string s="ring @newton=("+string(q)+",a),(";
     304 string s="(";
    305305 int i,j;
    306306 int flag;
     
    328328  }
    329329 }
    330  s=s+"sigma(1.."+string(t)+"),";
     330 for (int zz = 1; zz <= t; zz++)
     331 {
     332  s = s + "sigma("+string(zz)+"),";
     333 }
    331334 for (i=size(defset); i>=2; i--)
    332335 {
    333336  s=s+"S("+string(defset[i])+"),";
    334337 }
    335  s=s+"S("+string(defset[1])+")),lp;";
    336 
    337  execute(s);
    338 
     338 s=s+"S("+string(defset[1])+"))";
     339 ring @newton = create_ring("("+string(q)+",a)", s, "lp");
    339340 ideal newton;
    340341 poly sum;
  • Singular/LIB/dmodvar.lib

    rfda4c8 r7f9ca3  
    136136  /* convert an ordering defined in NN variables in the  */
    137137  /* string form into the same ordering in the list form */
    138   string st;
    139   st = "ring @Z = 0,z(1.." + string(NN) + "),";
    140   st = st + ORD + ";";
    141   execute(st); kill st;
     138  list l1;
     139  for (int zz = 1; zz <= NN; zz++)
     140  {
     141   l1[size(l1)+1] = "z("+string(zz)+")";
     142  }
     143  ring @Z = create_ring(0, l1, ORD);   
    142144  list L = ringlist(@Z)[3];
    143145  kill @Z;
  • Singular/LIB/ehv.lib

    rfda4c8 r7f9ca3  
    821821  def base = basering;
    822822  j = j[1,size(j)-1];
    823   j;
    824823  ring @r = create_ring(ringlist(basering)[1], (" + j + "), "(" + ordstr(basering) + ")", "no_minpoly");
    825824  ideal J = imap(base,J);
  • Singular/LIB/elim.lib

    rfda4c8 r7f9ca3  
    581581   int ii; poly vars=1;
    582582   for( ii=1; ii<=size(va); ii++ ) { vars=vars*var(va[ii]); }
    583    if(  attrib(basering,"global")) { string ordering = "),dp;"; }
    584    else { string ordering = "),ls;"; }
     583   if(  attrib(basering,"global")) { string ordering = "dp"; }
     584   else { string ordering = "ls"; }
    585585   string mpoly=string(minpoly);
    586586//-------------- create new ring and map objects to new ring ------------------
    587587   def br = basering;
    588    string str = "ring @newr = ("+charstr(br)+"),("+varstr(br)+ordering;
    589    execute(str);
     588   ring @newr = create_ring(ringlist(br)[1], "("+varstr(br)+")", ordering, "no_minpoly");
    590589   if (mpoly!="0") { execute("minpoly="+mpoly+";"); }
    591590   def i = imap(br,id);
     
    645644      if( vars/var(ii)==0 ) { poly p = 1+var(ii); break;}
    646645   }
    647    if( ord(p)==0 ) { string ordering = "),ls;"; }
    648    if( ord(p)>0 ) { string ordering = "),dp;"; }
     646   if( ord(p)==0 ) { string ordering = "ls"; }
     647   if( ord(p)>0 ) { string ordering = "dp"; }
    649648//-------------- create new ring and map objects to new ring ------------------
    650    string str = "ring @newr = ("+charstr(br)+"),("+varstr(br)+ordering;
    651    execute(str);
     649   ring @newr = create_ring(ringlist(br)[1], "("+varstr(br)+")", ordering, "no_minpoly");
    652650   def id = fetch(br,id);
    653651   poly vars = fetch(br,vars);
  • Singular/LIB/standard.lib

    rfda4c8 r7f9ca3  
    27442744
    27452745  /* return ring */
    2746   //L;
     2746  L;
    27472747  def S = ring(L);
    27482748  if (kill_ring)
Note: See TracChangeset for help on using the changeset viewer.