Changeset f9ca02 in git for Singular/LIB/assprimeszerodim.lib
- Timestamp:
- Sep 27, 2010, 12:21:25 PM (14 years ago)
- Branches:
- (u'spielwiese', '4a9821a93ffdc22a6696668bd4f6b8c9de3e6c5f')
- Children:
- 59a7ca1a2295e730269784972ec5b06a44bed680
- Parents:
- d8423632ac2a14a2b19b324e619be2d5757af760
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/LIB/assprimeszerodim.lib
rd84236 rf9ca02 106 106 if(status(l(i), "read", "ready")) 107 107 { 108 P = read(l(i)); // read the result from l(i) 108 //--- read the result from l(i) --- 109 P = read(l(i)); 109 110 CO1[index] = P[1]; 110 111 CO2[index] = bigint(P[2]); … … 123 124 } 124 125 } 125 if(k == n) // k describes the number of closed links 126 //--- k describes the number of closed links --- 127 if(k == n) 126 128 { 127 129 j++; 128 130 } 129 i_sleep = system("sh", "sleep "+string(t)); // sleep for t seconds 131 //--- sleep for t seconds --- 132 i_sleep = system("sh", "sleep "+string(t)); 130 133 } 131 134 } … … 359 362 for(i = 1; i <= n; i++) 360 363 { 361 if(status(l(i), "read", "ready")) // ask if link l(i) is ready otherwise sleep for t seconds 364 //--- ask if link l(i) is ready otherwise sleep for t seconds --- 365 if(status(l(i), "read", "ready")) 362 366 { 363 P = read(l(i)); // read the result from l(i) 367 //--- read the result from l(i) --- 368 P = read(l(i)); 364 369 CO1[index] = P[1]; 365 370 CO2[index] = bigint(P[2]); … … 378 383 } 379 384 } 380 if(k == n) // k describes the number of closed links 385 //--- k describes the number of closed links --- 386 if(k == n) 381 387 { 382 388 j++; … … 683 689 { 684 690 //=== computes a poly F in Z/q1[T] such that <F>=kernel(Z/q1[T]--->Z/q1[vars(basering)]) 685 //=== mapping T to p1 and test if d=deg(squarefreepart(F)), q1 a prime randomly cho osen691 //=== mapping T to p1 and test if d=deg(squarefreepart(F)), q1 a prime randomly chosen 686 692 //=== If not choose randomly another prime q2 and another linear form p2 and 687 693 //=== computes a poly F in Z/q2[T] such that <F>=kernel(Z/q2[T]--->Z/q2[vars(basering)]) … … 742 748 static proc zeroRadP(ideal I, int p) 743 749 { 744 //=== computes F=(F_1,...,F_n) such that <F_i>=IZ/p[x_1,...,x_n] intersected with Z/p[x_i], F_i monic 750 //=== computes F=(F_1,...,F_n) such that <F_i>=IZ/p[x_1,...,x_n] intersected 751 //=== with Z/p[x_i], F_i monic 745 752 def R0 = basering; 746 753 list ringL = ringlist(R0);
Note: See TracChangeset
for help on using the changeset viewer.