- Timestamp:
- Jul 6, 2022, 3:49:04 PM (22 months ago)
- Branches:
- (u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')
- Children:
- c894d1ba0b692e54f6dddf08d4b09e06c446a8dc
- Parents:
- da3bc3a8b3c9da1c97db491be78d56461b87c72d
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/LIB/integralbasis.lib
rda3bc3a r1dc0144 43 43 - \"normal\" -> the integral basis is computed using the general 44 44 normalization algorithm.@* 45 - \"hensel\" -> the integral bases is computed using an algorithm 46 based on Puiseux expansions and Hensel lifting. (Default option.) 47 @*Options for normal algorithm:@* 48 - \"global\" -> computes the normalization of R / <f> and put the 45 - \"hensel\" -> the integral bases is computed using an algorithm 46 based on Puiseux expansions and Hensel lifting. (only available for 47 polynomials with rational coefficients; default option in that case)@* 48 Options for normal algorithm:@* 49 - \"global\" -> computes the normalization of R / <f> and puts the 49 50 results in integral basis shape.@* 50 51 - \"local\" -> computes the normalization at each component of 51 the singular locus of R/<f> and puts everything together. 52 the singular locus of R/<f> and puts everything together. 52 53 (Default option for normal algorithm.) 53 54 @*Other options:@* … … 59 60 - \"nonModular\" -> do not uses modular algorithms. (Default option for 60 61 ground fields of positive charecteristic.)@* 61 - \"atOrigin\" -> will compute the local contribution at the origin62 to the integral basis, assuming that the curve has a singularity at63 the origin.@*62 - \"atOrigin\" -> will compute the local contribution to the integral 63 basis at the origin only (naturally, this contribution is only relevant 64 if the curve defined by f has a singularity at the origin).@* 64 65 - \"isIrred\" -> assumes that the input polynomial f is irreducible, 65 66 and therefore will not check this. If this option is given but f is not … … 88 89 the degree of f as a polynomial in y.@* 89 90 THEORY: We compute the integral basis of the integral closure of k[x] in k(x,y). 90 When option \"normal\" is selected, the normalization of the affine 91 When option \"normal\" is selected, the normalization of the affine 91 92 ring k[x,y]/<f> is computed using procedure normal from normal.lib, 92 93 which implements a general algorithm for normalization of rings 93 by G. Greuel, S. Laplagne and F. Seelisch, and the k[x,y]-module 94 by G. Greuel, S. Laplagne and F. Seelisch, and the k[x,y]-module 94 95 generators are converted into a k[x]-basis. 95 When option \"Hensel\" is selected, the algorithm by J. Boehm, W. Decker, 96 When option \"Hensel\" is selected, the algorithm by J. Boehm, W. Decker, 96 97 S. Laplagne and G. Pfister is used. @* 97 98 KEYWORDS: integral basis; normalization. … … 1265 1266 list classesNew; 1266 1267 list classesTemp; 1267 1268 1268 1269 1269 1270 int clInd = 1; 1270 1271 1271 1272 for(i = 1; i <= size(I2Lifted)-1; i++) 1272 1273 { … … 1374 1375 "Maximum degree required for merging: ", mdm; 1375 1376 } 1376 1377 1377 1378 list ifOut = irreducibleFactors(f, classes, blocks, mdm); 1378 1379 list I2LiftedFull = ifOut[1]; 1379 1380 1380 1381 // The classes are reordered in the same order as the irreducible factors 1381 1382 classes = ifOut[5]; 1382 1383 1383 1384 if((ifOut[4] == 1)) // Wrong number of factors, recompute orders 1384 1385 { … … 3053 3054 def R = basering; 3054 3055 int blInd; 3055 3056 3056 3057 for(i = 2; i <= size(I2Lifted); i++) 3057 3058 { … … 3063 3064 newL = puiseux(I2Lifted[i], -1, 1); 3064 3065 classes2 = getClasses(newL); 3065 3066 3066 3067 blInd = 1; 3067 3068 for(j =1; j <= size(classes); j++) … … 3074 3075 } 3075 3076 3076 3077 3077 3078 if(size(classes2) > 1) 3078 3079 { … … 3145 3146 wrongNumber = 1; 3146 3147 } 3147 list ll = list(I2Lifted, gfCheckList, gfCheck, wrongNumber, updatedClasses); 3148 list ll = list(I2Lifted, gfCheckList, gfCheck, wrongNumber, updatedClasses); 3148 3149 3149 3150 return(ll);
Note: See TracChangeset
for help on using the changeset viewer.