Changeset 61a050 in git


Ignore:
Timestamp:
Sep 29, 2011, 2:53:30 PM (13 years ago)
Author:
Burcin Erocal <burcin@…>
Branches:
(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
Children:
90aec7cff5c6f80707df1dab11b76ec197feef31
Parents:
0ff2030fd072d70a06a89af842c039505b704f90
git-author:
Burcin Erocal <burcin@erocal.org>2011-09-29 14:53:30+02:00
git-committer:
Mohamed Barakat <mohamed.barakat@rwth-aachen.de>2011-11-09 16:13:47+01:00
Message:
Setting ShortOut on the command line now effects coeffient rings as well.

If the current ring is over an extension field, the ShortOut parameter
was not set on the coefficient domains. We now recurse down the
coefficient rings to set this.
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • Singular/ipassign.cc

    r0ff203 r61a050  
    126126#else
    127127    currRing->ShortOut = shortOut;
     128    coeffs cf = currRing->cf;
     129    while (nCoeff_is_Extension(cf)) {
     130      cf->extRing->ShortOut = shortOut;
     131      assume(cf->extRing != NULL);
     132      cf = cf->extRing->cf;
     133    }
    128134#endif
    129135  }
  • Tst/New/trans_ext_std.tst

    r0ff203 r61a050  
    66Id[3]=cy^2+sy^2-1;
    77std(Id); // GB in Q( I,T,Px,Py,Cx,Cy,Sx,Sy,a,b,dt,dx,dy )[ i,t,x,y,cx,cy,sx,sy ]!
     8ring abP = (0,a,b),(p4,p5),dp;
     9ideal abE;
     10abE[1]=-p4+p5+(ab+a+b2+3b);
     11abE[2]=-p5+(a2+2a);
     12abE[3]=(a-b)*p4+(-a)*p5+(-a2+b3+3b2);
     13abE;
     14option(redSB);
     15option(redTail);
     16std(abE);
    817tst_status(1);$
    918
Note: See TracChangeset for help on using the changeset viewer.