1 | LIB "tst.lib"; |
---|
2 | tst_init(); |
---|
3 | |
---|
4 | // charstr +execute: ring represenation |
---|
5 | string S; |
---|
6 | |
---|
7 | ring r0dp = (0,t),(x,y),dp; |
---|
8 | string(basering); |
---|
9 | charstr(basering); |
---|
10 | S = "ring rnew = ("+charstr(basering)+"),("+ varstr(basering) +"),"+"lp;"; |
---|
11 | S; |
---|
12 | execute(S); |
---|
13 | basering; |
---|
14 | |
---|
15 | // ---------------------------------------------------- |
---|
16 | |
---|
17 | ring rZ = integer,(x,y),dp; |
---|
18 | string(basering); |
---|
19 | |
---|
20 | charstr(basering); |
---|
21 | |
---|
22 | S = "ring rnew = ("+charstr(basering)+"),("+ varstr(basering) +"),"+"lp;"; |
---|
23 | S; |
---|
24 | execute(S); |
---|
25 | basering; |
---|
26 | |
---|
27 | // ---------------------------------------------------- |
---|
28 | |
---|
29 | ring rZ8 = (integer,8),(x,y),dp; |
---|
30 | string(basering); |
---|
31 | |
---|
32 | charstr(basering); |
---|
33 | S = "ring rnew = ("+charstr(basering)+"),("+ varstr(basering) +"),"+"lp;"; |
---|
34 | S; |
---|
35 | |
---|
36 | execute(S); |
---|
37 | basering; |
---|
38 | |
---|
39 | ringlist(basering); |
---|
40 | |
---|
41 | ring r = (real,50),(x,y,z),dp; |
---|
42 | string(basering); |
---|
43 | |
---|
44 | ring r = (real,10,50),(x,y,z),dp; |
---|
45 | string(basering); |
---|
46 | |
---|
47 | ring cR1050 = (complex,10,50),(x,y),dp; |
---|
48 | basering; |
---|
49 | |
---|
50 | charstr(basering); |
---|
51 | S = "ring cR1050new = ("+charstr(basering)+"),("+ varstr(basering) +"),"+"lp;"; |
---|
52 | S; |
---|
53 | execute(S); |
---|
54 | |
---|
55 | ring r6int = (integer,6,3),x,dp; |
---|
56 | string(basering); |
---|
57 | charstr(basering); |
---|
58 | |
---|
59 | ring r5int = (integer,5,3),x,dp; |
---|
60 | string(basering); |
---|
61 | charstr(basering); |
---|
62 | |
---|
63 | ring r2int = (integer,2,3),x,dp; |
---|
64 | string(basering); |
---|
65 | charstr(basering); |
---|
66 | |
---|
67 | |
---|
68 | tst_status(1);$ |
---|