spielwiese
Last change
on this file since 1427f62 was
959a0b5,
checked in by Hans Schoenemann <hannes@…>, 6 years ago
|
fix: tr #812 (size(bigintmat))
|
-
Property mode set to
100644
|
File size:
1.3 KB
|
Line | |
---|
1 | LIB "tst.lib"; |
---|
2 | tst_init(); |
---|
3 | |
---|
4 | LIB "sets.lib"; |
---|
5 | printlevel=0; |
---|
6 | |
---|
7 | Set S0a = list(list(1,2,3),list(list(1,2)),list(10,11)); |
---|
8 | Set S0b = list(list(10,11),list(list(1,2))); |
---|
9 | S0b<S0a; |
---|
10 | S0a<S0b; |
---|
11 | S0a==S0a; |
---|
12 | S0a==S0b; |
---|
13 | list L = 1,1,2,3; |
---|
14 | Set S1 = L; |
---|
15 | S1; |
---|
16 | ring R1; |
---|
17 | ring R2 = 0,(x,y),dp; |
---|
18 | Set S2 = list(R1,R1,R2); |
---|
19 | S2; |
---|
20 | ideal I1 = x+y; |
---|
21 | ideal I2 = y^2; |
---|
22 | ideal I3 = x+y, (x+y)^3; |
---|
23 | Set S3 = list(I1,I2,I3); |
---|
24 | S3; |
---|
25 | isEqual(I1,I3); |
---|
26 | isEqual(I1,I2); |
---|
27 | module M1 = x*gen(1), y*gen(1); |
---|
28 | module M2 = y^2*gen(2); |
---|
29 | module M3 = (x+y)*gen(1), (x-y)*gen(1); |
---|
30 | Set S4 = list(M1,M2,M3); |
---|
31 | S4; |
---|
32 | intmat m1[2][3]= 1,2,3,4,5,6; |
---|
33 | intmat m2[2][3]= 1,2,3,4,5,7; |
---|
34 | Set S5 = list(m1,m2,m1); |
---|
35 | S5; |
---|
36 | bigintmat b1[2][3]= 1,2,3,4,5,6; |
---|
37 | size(b1); |
---|
38 | bigintmat b2[2][3]= 1,2,3,4,5,7; |
---|
39 | Set S6 = list(b1,b2,b1); |
---|
40 | S6; |
---|
41 | resolution r1 = res(maxideal(3),0); |
---|
42 | resolution r2 = res(maxideal(4),0); |
---|
43 | Set S7 = list(r1,r1,r2); |
---|
44 | size(S7); |
---|
45 | |
---|
46 | |
---|
47 | list l =1,2,3; |
---|
48 | list j =2,3,4; |
---|
49 | Set N=l; |
---|
50 | Set M=j; |
---|
51 | N; |
---|
52 | M; |
---|
53 | N*M; |
---|
54 | kill j; |
---|
55 | |
---|
56 | |
---|
57 | int i=1; |
---|
58 | int j=5; |
---|
59 | list k =1,2,3,4; |
---|
60 | Set M=k; |
---|
61 | i; |
---|
62 | j; |
---|
63 | M; |
---|
64 | isElement(i,M); |
---|
65 | isElement(j,M); |
---|
66 | kill M,k,j; |
---|
67 | |
---|
68 | |
---|
69 | |
---|
70 | list l =1,2; |
---|
71 | list j =1,2,3,4; |
---|
72 | Set N=l; |
---|
73 | Set M=j; |
---|
74 | N; |
---|
75 | M; |
---|
76 | complement(N,M); |
---|
77 | kill M,N,l,j; |
---|
78 | |
---|
79 | |
---|
80 | list l =1,2; |
---|
81 | list j =1,2,3,4; |
---|
82 | Set N=l; |
---|
83 | Set M=j; |
---|
84 | N; |
---|
85 | M; |
---|
86 | N<M; |
---|
87 | M<N; |
---|
88 | kill M,N,l,j; |
---|
89 | |
---|
90 | |
---|
91 | list l =1,2; |
---|
92 | list j =1,2,3,4; |
---|
93 | Set N=l; |
---|
94 | Set M=j; |
---|
95 | N; |
---|
96 | M; |
---|
97 | N>M; |
---|
98 | M>N; |
---|
99 | kill M,N,l,j; |
---|
100 | |
---|
101 | |
---|
102 | tst_status(1);$ |
---|
103 | |
---|
Note: See
TracBrowser
for help on using the repository browser.