Changeset fde66a9 in git for Singular/LIB/modwalk.lib
- Timestamp:
- Aug 7, 2014, 4:10:35 PM (10 years ago)
- Branches:
- (u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
- Children:
- a5ab27d45c122614af41115f7486270074ab53f5
- Parents:
- a0e7db5bccc63a9fe9ea7898cd864a561f0656cc
- git-author:
- Hans Schoenemann <hannes@mathematik.uni-kl.de>2014-08-07 16:10:35+02:00
- git-committer:
- Hans Schoenemann <hannes@mathematik.uni-kl.de>2014-08-07 16:12:11+02:00
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/LIB/modwalk.lib
ra0e7db rfde66a9 31 31 proc modpWalk(def II, int p, int variant, list #) 32 32 "USAGE: modpWalk(I,p,#); I ideal, p integer, variant integer 33 ASSUME: If size(#) > 0, then 33 ASSUME: If size(#) > 0, then 34 34 #[1] is an intvec describing the current weight vector 35 35 #[2] is an intvec describing the target weight vector 36 36 RETURN: ideal - a standard basis of I mod p, integer - p 37 37 NOTE: The procedure computes a standard basis of the ideal I modulo p and 38 fetches the result to the basering. 38 fetches the result to the basering. 39 39 EXAMPLE: example modpWalk; shows an example 40 40 " … … 89 89 { 90 90 list rl@r = ringlist(@r); 91 nvar@r = nvars(@r); 91 nvar@r = nvars(@r); 92 92 intvec w; 93 93 for(k = 1; k <= nvar@r; k++) … … 236 236 proc modWalk(def II, int variant, list #) 237 237 "USAGE: modWalk(II); II ideal or list(ideal,int) 238 ASSUME: If variant = 238 ASSUME: If variant = 239 239 @* - 1 the Random Walk algorithm with radius II[2] is applied 240 240 to II[1] if II = list(ideal, int). It is applied to II with radius 2 241 241 if II is an ideal. 242 @* 242 @* - 2, the Groebner Walk algorithm is applied to II[1] or to II, respectively. 243 243 @* - 3, the Fractal Walk algorithm with random element is applied to II[1] or II, 244 244 respectively. … … 246 246 @* - 5, the Perturbation Walk algorithm with random element is applied to II[1] 247 247 or II, respectively, with radius II[3] and perturbation degree II[2]. 248 @* 249 248 @* - 6, the Perturbation Walk algorithm is applied to II[1] or II, respectively, 249 with perturbation degree II[3]. 250 250 If size(#) > 0, then # contains either 1, 2 or 4 integers such that 251 251 @* - #[1] is the number of available processors for the computation, … … 300 300 II[3] = 2; 301 301 } 302 303 302 } 304 303 else … … 378 377 ERROR("Unexpected type of input."); 379 378 } 380 } 379 } 381 380 } 382 381 if(size(#) == 3) … … 739 738 } 740 739 results_chinrem = parallelWaitAll("chinrem",arguments_chinrem); 741 for(j=1; j <= size(results_chinrem); j++) 740 for(j=1; j <= size(results_chinrem); j++) 742 741 { 743 742 J = results_chinrem[j];
Note: See TracChangeset
for help on using the changeset viewer.