source: git/Tst/New/qring_with_constant.tst @ c21159

spielwiese
Last change on this file since c21159 was 8f4794, checked in by Adi Popescu <adi_popescum@…>, 10 years ago
Added tests Tst/New/qring_with_constant
  • Property mode set to 100644
File size: 951 bytes
Line 
1LIB "tst.lib";
2tst_init();
3
4ring rng = (integer),(x,y,z),dp;
5
6ideal iq = 14,x2-2;
7iq = std(iq);
8
9ideal bla= 7y-28z,yz;
10
11qring rngQ = iq;
12
13def bla1=imap(rng,bla);
14bla1;
15
16def bla2=fetch(rng,bla);
17bla2;
18
19map mapi=rng,x,y,z;
20def bla3=mapi(bla);
21bla3;
22
23
24ring rng1 = (integer,100),(x,y,z),dp;
25
26ideal iq = 20,x2-2;
27iq = std(iq);
28
29ideal bla= 7y-28z,yz;
30
31qring rngQ = iq;
32
33def bla1=imap(rng1,bla);
34bla1;
35
36def bla2=fetch(rng1,bla);
37bla2;
38
39map mapi=rng1,x,y,z;
40def bla3=mapi(bla);
41bla3;
42
43
44ring rng2 = (integer,2,5),(x,y,z),dp;
45
46ideal iq = 28,x2-2;
47iq = std(iq);
48
49ideal bla= 7y-28z,yz;
50
51qring rngQ = iq;
52
53def bla1=imap(rng2,bla);
54bla1;
55
56def bla2=fetch(rng2,bla);
57bla2;
58
59map mapi=rng2,x,y,z;
60def bla3=mapi(bla);
61bla3;
62
63ring rng3 = (integer,7,5),(x,y,z),dp;
64
65ideal iq = 49,x2-2;
66iq = std(iq);
67
68ideal bla= 7y-96z,yz;
69
70qring rngQ = iq;
71
72def bla1=imap(rng3,bla);
73bla1;
74
75def bla2=fetch(rng3,bla);
76bla2;
77
78map mapi=rng3,x,y,z;
79def bla3=mapi(bla);
80bla3;
81
82tst_status(1);
83$
Note: See TracBrowser for help on using the repository browser.