Changeset ebbcea in git
 Timestamp:
 Mar 21, 2011, 11:28:13 AM (13 years ago)
 Branches:
 (u'fiekerDuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b21a664aa22dc6e196223af8a74ad4885e83547c')
 Children:
 f4a33e267c2b5be378ef1fc5426935bee8f1e4d9
 Parents:
 3542f7c7fb52228c2cae41980c84109e503eaf75
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

Tst/Long/primdecint.tst
r3542f7 rebbcea 4 4 LIB "primdecint.lib"; 5 5 6 proc sortPDZ(list l) 7 { 8 int i,j,notReady; 9 list K; 10 intvec save_opt=option(get); 11 option(redSB,redTail); 12 for(i=1;i<=size(l);i++){"start";l[i][1]=std(l[i][1]);l[i][2]=std(l[i][2]);"end";} 13 option(set,save_opt); 14 notReady=1; 15 while(notReady) 16 { 17 notReady=0; 18 i=0; 19 while(i<size(l)1) 20 { 21 i++; 22 j=i; 23 while(j<size(l)) 24 { 25 j++; 26 if(compareI(l[i][2],l[j][2])) 27 { 28 notReady=1; 29 K=l[i]; 30 l[i]=l[j]; 31 l[j]=K; 32 i; 33 break; 34 } 35 } 36 } 37 } 38 return(l); 39 } 40 41 proc compareI(ideal I, ideal J) 42 { 43 return(string(I)>string(J)); 44 } 45 46 6 47 ring R1 = integer,(a,b,c,d,e,f,g),dp; 7 48 ideal I = 2*3,a2+2de+2cf+2bg+a, 2ab+e2+2df+2cg+b, 8 49 b2+2ac+2ef+2dg+c, 2bc+2ad+f2+2eg+d, 9 50 c2+2bd+2ae+2fg+e, 2cd+2be+2af+g2+f, d2+2ce+2bf+2ag+g; 10 primdecZ(I,1);11 primdecZ(I,3);51 sortPDZ(primdecZ(I,1)); 52 sortPDZ(primdecZ(I,3)); 12 53 13 54 … … 15 56 ideal I = 2*3*181*32003, xzw+(y^2+y)*z^2, (x^2+x)*w^2+yzw, 16 57 ((y^42*y^3+y^2)*xy^4+y^3)*z^3,y2z2w+(y*4+2*y^3y^2)*z3; 17 primdecZ(I,1);18 primdecZ(I,3);58 sortPDZ(primdecZ(I,1)); 59 sortPDZ(primdecZ(I,3)); 19 60 20 61 ring R5 = integer,(x,y,z),dp; 21 62 ideal I = 2*13*181*32003, x2y2z2, xyz2, y3+xz2yz2+2z3+xyz2, 22 63 y2z2+2z4+x2y2+z2, y3z9+3y2z10+3yz11+z12y2z2+2z4; 23 primdecZ(I,1);24 primdecZ(I,3);64 sortPDZ(primdecZ(I,1)); 65 sortPDZ(primdecZ(I,3)); 25 66 26 67 ring R7 = integer,(x,y,z),dp; … … 29 70 y^2*(z+2)^2+2*(z+2)^4+x2y2+(z+2)^2, 30 71 y3z9+3y2z10+3yz11+z12y2z2+2z4; 31 primdecZ(I,1);32 primdecZ(I,2);33 primdecZ(I,3);34 primdecZ(I,4);72 sortPDZ(primdecZ(I,1)); 73 sortPDZ(primdecZ(I,2)); 74 sortPDZ(primdecZ(I,3)); 75 sortPDZ(primdecZ(I,4)); 35 76 36 77 ring R8 = integer,(x,y,z),dp; … … 39 80 y^2*(z+2)^2+2*(z+2)^4+x2y2+(z+2)^2, 40 81 y3z9+3y2z10+3yz11+z12y2z2+2z4; 41 primdecZ(I,1);42 primdecZ(I,3);82 sortPDZ(primdecZ(I,1)); 83 sortPDZ(primdecZ(I,3)); 43 84 44 85 ring R9 = integer,(w,z,y,x),dp; 45 86 ideal I = 2*3*5*630, ((y^2y)*xy^3+y^2)*z^2, (xy)*zw, 46 87 (xy^2)*zw+(y^2+y)*z^2, (x^2+x)*w^2+(yx+y)*zw; 47 primdecZ(I,1);48 primdecZ(I,3);88 sortPDZ(primdecZ(I,1)); 89 sortPDZ(primdecZ(I,3)); 49 90 50 91 ring R10 = integer,(w,z,y,x),dp; … … 52 93 ((y^2+y)*xy^3+2*y^2y)*z^3, 53 94 (y^2y)*z^2*w+(y^2+y)*z^2*w+(y^2+y)*z^3; 54 primdecZ(I,1);55 primdecZ(I,3);95 sortPDZ(primdecZ(I,1)); 96 sortPDZ(primdecZ(I,3)); 56 97 57 98 ring R11 = integer,(w,z,y,x),dp; … … 63 104 (x + 1)*zw +( y^2 y)*z^2, 64 105 (x^2 +x)*w^2 + (yx  y)*zw; 65 primdecZ(I,1);66 primdecZ(I,2);67 primdecZ(I,3);68 primdecZ(I,4);106 sortPDZ(primdecZ(I,1)); 107 sortPDZ(primdecZ(I,2)); 108 sortPDZ(primdecZ(I,3)); 109 sortPDZ(primdecZ(I,4)); 69 110 70 111 ring R12 = integer,(w,z,y,x),dp; … … 73 114 (y + 1)*zw + (y^3 y^2)*z^2, 74 115 (x + 1)*zw + (y^2 y)*z^2, (x^2 + x)*w^2 + (yx  y)*zw; 75 primdecZ(I,1);76 primdecZ(I,3);116 sortPDZ(primdecZ(I,1)); 117 sortPDZ(primdecZ(I,3)); 77 118 78 119 ring R14 = integer,(x(1),x(2),x(3),x(4)),dp; … … 80 121 x(2)^2*x(4)^2, x(2)^2*x(3)*x(4), x(1)*x(2)*x(3)*x(4), 81 122 x(1)*x(3)^2*x(4), x(3)^3*x(4); 82 primdecZ(I,1);83 primdecZ(I,3);123 sortPDZ(primdecZ(I,1)); 124 sortPDZ(primdecZ(I,3)); 84 125 85 126 ring R15 = integer,(x,y,z),dp; … … 92 133 (z^3  z^2)*x^4 + (2*z^3 2*z^2)*x^3 + (z^3 z^2)*x^2, 93 134 z*y^2*x^2; 94 primdecZ(I,1);95 primdecZ(I,3);135 sortPDZ(primdecZ(I,1)); 136 sortPDZ(primdecZ(I,3)); 96 137 97 138 ring R16 = integer,(x(1),x(2),x(3),x(4),x(5)),dp; … … 104 145 I = intersectZ(I,ideal(64*181,x(1)^2)); 105 146 I; 106 primdecZ(I,1);107 primdecZ(I,2);108 primdecZ(I,3);109 primdecZ(I,4);147 sortPDZ(primdecZ(I,1)); 148 sortPDZ(primdecZ(I,2)); 149 sortPDZ(primdecZ(I,3)); 150 sortPDZ(primdecZ(I,4)); 110 151 111 152 ring R17 = integer,(x,y,z),dp; … … 116 157 136xy136xz136yz+2z6281z4+5376z23081, 117 158 204x2+136xz33128xz+z6149z4+2739z2+117; 118 primdecZ(I,1);119 primdecZ(I,3);159 sortPDZ(primdecZ(I,1)); 160 sortPDZ(primdecZ(I,3)); 120 161 121 162 ring R24 = integer,(a,b,c,d,e,f,g,h,j),dp; 122 163 ideal I = 2*3*5*7*11*13*17, a+2b+cd+g, f2gha, efgc, fg2jb, 123 164 a+b+c+f+g1, 3ad+3bd+2cd+df+dga2bcg; 124 primdecZ(I,1);125 primdecZ(I,3);165 sortPDZ(primdecZ(I,1)); 166 sortPDZ(primdecZ(I,3)); 126 167 127 168 ring R25 = integer,(s,r,b,u,v,w,x,y,z),dp; 128 169 ideal I = 2*3*5*7*11*13*17*19*23, su+bv, ru+bw, rv+sw, sx+by, rx+bz, 129 170 ry+sz, vx+uy, wx+uz, wy+vz; 130 primdecZ(I,1);131 primdecZ(I,3);171 sortPDZ(primdecZ(I,1)); 172 sortPDZ(primdecZ(I,3)); 132 173 133 174 tst_status(1);$
Note: See TracChangeset
for help on using the changeset viewer.