| 1 | ring r=32003,(x,y,z),dp; |
|---|
| 2 | poly f=x+y+z; |
|---|
| 3 | poly g=1+f+f^2+f^3+f^4; |
|---|
| 4 | f; |
|---|
| 5 | g; |
|---|
| 6 | [f,1]; |
|---|
| 7 | [f,x^5]; |
|---|
| 8 | ring r1=32003,(x,y,z),(c,dp); |
|---|
| 9 | poly f=fetch(r,f); |
|---|
| 10 | poly g=fetch(r,g); |
|---|
| 11 | f; |
|---|
| 12 | g; |
|---|
| 13 | [f,1]; |
|---|
| 14 | [f,x^5]; |
|---|
| 15 | // module orders |
|---|
| 16 | ring r2=0,x,(ds,c); |
|---|
| 17 | matrix m[2][3]=1,2,3,4,5; |
|---|
| 18 | print(module(transpose(m))); |
|---|
| 19 | "-------"; |
|---|
| 20 | ring r3=0,x,(dp,c); |
|---|
| 21 | matrix m=fetch(r2,m); |
|---|
| 22 | print(module(transpose(m))); |
|---|
| 23 | "-------"; |
|---|
| 24 | ring r4=0,x,(Dp,c); |
|---|
| 25 | matrix m=fetch(r2,m); |
|---|
| 26 | print(module(transpose(m))); |
|---|
| 27 | "-------"; |
|---|
| 28 | ring r5=0,x,(Ds,c); |
|---|
| 29 | matrix m=fetch(r2,m); |
|---|
| 30 | print(module(transpose(m))); |
|---|
| 31 | "-------"; |
|---|
| 32 | ring r6=0,x,(ls,c); |
|---|
| 33 | matrix m=fetch(r2,m); |
|---|
| 34 | print(module(transpose(m))); |
|---|
| 35 | "-------"; |
|---|
| 36 | ring r7=0,x,(lp,c); |
|---|
| 37 | matrix m=fetch(r2,m); |
|---|
| 38 | print(module(transpose(m))); |
|---|
| 39 | "-------"; |
|---|
| 40 | ring r8=0,x,(ds,C); |
|---|
| 41 | matrix m=fetch(r2,m); |
|---|
| 42 | print(module(transpose(m))); |
|---|
| 43 | "-------"; |
|---|
| 44 | ring r9=0,x,(dp,C); |
|---|
| 45 | matrix m=fetch(r2,m); |
|---|
| 46 | print(module(transpose(m))); |
|---|
| 47 | "-------"; |
|---|
| 48 | ring r10=0,x,(Dp,C); |
|---|
| 49 | matrix m=fetch(r2,m); |
|---|
| 50 | print(module(transpose(m))); |
|---|
| 51 | "-------"; |
|---|
| 52 | ring r11=0,x,(Ds,C); |
|---|
| 53 | matrix m=fetch(r2,m); |
|---|
| 54 | print(module(transpose(m))); |
|---|
| 55 | "-------"; |
|---|
| 56 | ring r12=0,x,(ls,C); |
|---|
| 57 | matrix m=fetch(r2,m); |
|---|
| 58 | print(module(transpose(m))); |
|---|
| 59 | "-------"; |
|---|
| 60 | ring r13=0,x,(lp,C); |
|---|
| 61 | matrix m=fetch(r2,m); |
|---|
| 62 | print(module(transpose(m))); |
|---|
| 63 | |
|---|
| 64 | "-------"; |
|---|
| 65 | ring R2=0,x,(c,ds); |
|---|
| 66 | matrix m=fetch(r2,m); |
|---|
| 67 | print(module(transpose(m))); |
|---|
| 68 | "-------"; |
|---|
| 69 | ring R3=0,x,(c,dp); |
|---|
| 70 | matrix m=fetch(r2,m); |
|---|
| 71 | print(module(transpose(m))); |
|---|
| 72 | "-------"; |
|---|
| 73 | ring R4=0,x,(c,Dp); |
|---|
| 74 | matrix m=fetch(r2,m); |
|---|
| 75 | print(module(transpose(m))); |
|---|
| 76 | "-------"; |
|---|
| 77 | ring R5=0,x,(c,Ds); |
|---|
| 78 | matrix m=fetch(r2,m); |
|---|
| 79 | print(module(transpose(m))); |
|---|
| 80 | "-------"; |
|---|
| 81 | ring R6=0,x,(c,ls); |
|---|
| 82 | matrix m=fetch(r2,m); |
|---|
| 83 | print(module(transpose(m))); |
|---|
| 84 | "-------"; |
|---|
| 85 | ring R7=0,x,(c,lp); |
|---|
| 86 | matrix m=fetch(r2,m); |
|---|
| 87 | print(module(transpose(m))); |
|---|
| 88 | "-------"; |
|---|
| 89 | ring R8=0,x,(C,ds); |
|---|
| 90 | matrix m=fetch(r2,m); |
|---|
| 91 | print(module(transpose(m))); |
|---|
| 92 | "-------"; |
|---|
| 93 | ring R9=0,x,(C,dp); |
|---|
| 94 | matrix m=fetch(r2,m); |
|---|
| 95 | print(module(transpose(m))); |
|---|
| 96 | "-------"; |
|---|
| 97 | ring R10=0,x,(C,Dp); |
|---|
| 98 | matrix m=fetch(r2,m); |
|---|
| 99 | print(module(transpose(m))); |
|---|
| 100 | "-------"; |
|---|
| 101 | ring R11=0,x,(C,Ds); |
|---|
| 102 | matrix m=fetch(r2,m); |
|---|
| 103 | print(module(transpose(m))); |
|---|
| 104 | "-------"; |
|---|
| 105 | ring R12=0,x,(C,ls); |
|---|
| 106 | matrix m=fetch(r2,m); |
|---|
| 107 | print(module(transpose(m))); |
|---|
| 108 | "-------"; |
|---|
| 109 | ring R13=0,x,(C,lp); |
|---|
| 110 | matrix m=fetch(r2,m); |
|---|
| 111 | print(module(transpose(m))); |
|---|
| 112 | |
|---|
| 113 | LIB "tst.lib";tst_status(1);$ |
|---|
