1 | // |
---|
2 | // test script for ring command |
---|
3 | // |
---|
4 | pagelength = 10000; |
---|
5 | |
---|
6 | ring r = 32003,(x,y,z),lp; |
---|
7 | r; |
---|
8 | poly f=xy; |
---|
9 | f; |
---|
10 | |
---|
11 | poly p = x; |
---|
12 | listvar(all); |
---|
13 | |
---|
14 | kill r; |
---|
15 | ring r1= 2,(x,y,z),lp; |
---|
16 | r1; |
---|
17 | poly f=x3y; |
---|
18 | f; |
---|
19 | ring r2= 3,(a,y,z),lp; |
---|
20 | r2; |
---|
21 | poly f=x3y; |
---|
22 | f; |
---|
23 | listvar(all); |
---|
24 | |
---|
25 | kill r2; |
---|
26 | listvar(all); |
---|
27 | |
---|
28 | ring r3 ; |
---|
29 | listvar(all); |
---|
30 | kill r3; |
---|
31 | listvar(all); |
---|
32 | "---------------------------"; |
---|
33 | ring r3 =,3; |
---|
34 | r3; |
---|
35 | listvar(all); |
---|
36 | kill r3; |
---|
37 | |
---|
38 | ring r3 = ,3,x y z; |
---|
39 | listvar(all); |
---|
40 | |
---|
41 | ring r3 = ,3,x y z,l; |
---|
42 | listvar(all); |
---|
43 | |
---|
44 | ring r3= 32003,(x,y,z),l,a; |
---|
45 | listvar(all); |
---|
46 | |
---|
47 | ring r3= 32003,(x,y,z),qql,a; |
---|
48 | listvar(all); |
---|
49 | |
---|
50 | ring r3= 32003,(x,y,z),qql,a; |
---|
51 | listvar(all); |
---|
52 | |
---|
53 | "dot dot notation for ring vars"; |
---|
54 | ring r= 5,(v..z),lp; |
---|
55 | r; |
---|
56 | kill r; |
---|
57 | |
---|
58 | "dot dot notation for indexed ring vars"; |
---|
59 | ring r= 7,(x(1..5)),lp; |
---|
60 | r; |
---|
61 | poly f=x(1)*x(2)^3; |
---|
62 | f; |
---|
63 | kill r; |
---|
64 | kill r1; |
---|
65 | ring r = 32003,(x,y,z,a,b,c,d),(lp(2),dp,wp(8)); |
---|
66 | r; |
---|
67 | poly f=xy; |
---|
68 | f; |
---|
69 | ring r2 = 32003,(x,y,z,a,b,c,d),(lp(2),dp,wp(4,3,2,1)); |
---|
70 | r2; |
---|
71 | ring r3 = 32003,(x,y,z,a,b,c,d),(lp(2),dp,3wp(4,3,2,1)); |
---|
72 | ring r3 = 32003,(x,y,z,a,b,c,d),(lp(2),dp,lp(4,3,2,1)); |
---|
73 | ring r3 = 32003,(x,y,z,a,b,c,d),(lp(2),dp,lp(4,3,2,1)); |
---|
74 | ring r3 = 32003,(x,y,z,a,b,c,d),(lp(2),dp,x(4,3,2,1)); |
---|
75 | ring r3 = 32003,(x,y,z,a,b,c,d),(lp(2),dp,x); |
---|
76 | listvar(all); |
---|
77 | ring r=0,(x,y,z),(dp(3),dp); |
---|
78 | ring r=0,(x,y,z),(dp(7),dp); |
---|
79 | ring r=(0,a),x,dp; |
---|
80 | ordstr(r); |
---|
81 | varstr(r); |
---|
82 | charstr(r); |
---|
83 | ring r=(0,a,b,c),(x(1..20)),(dp(2),ls(3),wp(1,2,3),M(6,7,8,9),ds); |
---|
84 | r; |
---|
85 | ordstr(r); |
---|
86 | varstr(r); |
---|
87 | charstr(r); |
---|
88 | ring r; |
---|
89 | ordstr(r); |
---|
90 | varstr(r); |
---|
91 | charstr(r); |
---|
92 | LIB "tst.lib";tst_status(1);$ |
---|