source: git/Tst/Short/resjung.tst @ 0054e7

spielwiese
Last change on this file since 0054e7 was 03135c, checked in by Anne Frühbis-Krüger <anne@…>, 14 years ago
anne: short tests for resjung.lib git-svn-id: file:///usr/local/Singular/svn/trunk@13162 2c84dea3-7e68-4137-9b89-c4e89433aadc
  • Property mode set to 100644
File size: 825 bytes
Line 
1//LIB "tst.lib";
2tst_init();
3
4LIB"resjung.lib";
5int i,k;
6
7ring r=0,(x,y,z),dp;
8ideal I=z2-x3y3;
9list li=jungresolve(I,0);
10k=size(li);
11for(i=1;i<=k;i++)
12{
13"---> ring ",i,":";
14  def S=li[i];
15  setring S;
16  showBO(BO);
17  setring r;
18  kill S;
19}
20
21kill r;
22ring r=0,(x,y,z),dp;
23ideal I=z2-x3-y3;
24list li=jungresolve(I,0);
25k=size(li);
26for(i=1;i<=k;i++)
27{
28"---> ring ",i,":";
29  def S=li[i];
30  setring S;
31  showBO(BO);
32  setring r;
33  kill S;
34}
35
36kill r;
37ring r=0,(x,y,z),dp;
38ideal I=z5-x2-y3;
39list li=jungresolve(I,0);
40k=size(li);
41for(i=1;i<=k;i++)
42{
43"---> ring ",i,":";
44  def S=li[i];
45  setring S;
46  showBO(BO);
47  setring r;
48  kill S;
49}
50
51kill r;
52ring r=0,(x,y,z,v),dp;
53ideal I=x2-yz,z2-yv;
54list li=jungresolve(I,0);
55k=size(li);
56for(i=1;i<=k;i++)
57{
58"---> ring ",i,":";
59  def S=li[i];
60  setring S;
61  showBO(BO);
62  setring r;
63  kill S;
64}
Note: See TracBrowser for help on using the repository browser.