source: git/Tst/Short/bug_qring.tst @ 5ebd4bc

spielwiese
Last change on this file since 5ebd4bc was 780e11, checked in by Hans Schoenemann <hannes@…>, 12 years ago
fix tr. 255 git-svn-id: file:///usr/local/Singular/svn/trunk@14420 2c84dea3-7e68-4137-9b89-c4e89433aadc
  • Property mode set to 100644
File size: 558 bytes
Line 
1LIB "tst.lib";
2tst_init();
3
4// normal form and complete NF in qrings:
5
6ring p=0,(y,z,u,v),dp;
7option(redSB);
8qring q=std(ideal(y+u2+uv3,z+uv3));
9q;
10ideal i=y,z;
11std(i);
12NF(std(i),0);
13interred(std(i));
14setring p;
15ideal i=y,z,y+u2+uv3,z+uv3;
16option(redSB);
17std(i);                   
18NF(_,std(ideal(y+u2+uv3,z+uv3)));
19interred(std(i));
20interred(NF(std(i),std(ideal(y+u2+uv3,z+uv3))));
21
22ring r = 2,(a, b),dp;
23option(redSB);
24interred(ideal(a^2,a*b+a^2));
25qring qq = std(ideal(b^2+a*b+a^2,a^3));
26qq;
27option(redSB);
28interred(ideal(a^2,a*b+a^2));
29
30tst_status(1);$
Note: See TracBrowser for help on using the repository browser.