Changeset 92b7f0 in git
- Timestamp:
- Oct 14, 2014, 10:55:52 AM (10 years ago)
- Branches:
- (u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')
- Children:
- 34022565884d80f321b77cf39d8f121a0f5b46059816f392b7b239b26d4d6f3758f36db684ebdb07f279fb7d51f5a927276ae06add0fb34f7e3b57a5
- Parents:
- 512076c24612a4f6261287b0c91e8c78547cd81e
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/LIB/algemodstd.lib
r512076c r92b7f0 1 //////////////////////////////////////////////////////////////////////////////// //////////////2 version=" $Id$";1 //////////////////////////////////////////////////////////////////////////////// 2 version="version algemodstd.lib 4.0.1.0 Sep_2014 "; // $Id$ 3 3 category="Commutative Algebra"; 4 4 info=" … … 11 11 12 12 OVERVIEW: 13 14 13 A library for computing the Groebner basis of an ideal in the polynomial 15 14 ring over an algebraic number field Q(t) using the modular methods, where t is … … 39 38 LIB "modstd.lib"; 40 39 41 //////////////////////////////////////////////////////////////////////////////// /////40 //////////////////////////////////////////////////////////////////////////////// 42 41 43 42 static proc testPrime(int p, ideal I) … … 81 80 } 82 81 83 //////////////////////////////////////////////////////////////////////////////// /////82 //////////////////////////////////////////////////////////////////////////////// 84 83 /* return 1 if the number of factors are in the required bound , 0 else */ 85 84 … … 113 112 } 114 113 115 //////////////////////////////////////////////////////////////////////////////// /////114 //////////////////////////////////////////////////////////////////////////////// 116 115 /* return 1 if both testPrime(p,J) and minpolyTask(f,p) is true, 0 else */ 117 116 … … 131 130 } 132 131 133 //////////////////////////////////////////////////////////////////////////////// /////132 //////////////////////////////////////////////////////////////////////////////// 134 133 /* compute factors of f mod p with multiplicity */ 135 134 … … 150 149 } 151 150 152 //////////////////////////////////////////////////////////////////////////////// /////151 //////////////////////////////////////////////////////////////////////////////// 153 152 /* set a bound for number of factors w.r.t degree nr*/ 154 153 … … 188 187 } 189 188 190 /////////////////////////////////////////////////////////////////////////////// //////189 /////////////////////////////////////////////////////////////////////////////// 191 190 // return 1 if v[i]>1 , 0 else 192 191 … … 203 202 } 204 203 205 //////////////////////////////////////////////////////////////////////////////// /////204 //////////////////////////////////////////////////////////////////////////////// 206 205 //chinese remaindering for polynomials only for input of size two /// 207 206 … … 221 220 } 222 221 223 //////////////////////////////////////////////////////////////////////////////// /////////////////222 //////////////////////////////////////////////////////////////////////////////// 224 223 225 224 proc chinrempoly(list l,list m) … … 287 286 } 288 287 289 //////////////////////////////////////////////////////////////////////////////// /////288 //////////////////////////////////////////////////////////////////////////////// 290 289 291 290 static proc LiftPolyCRT(ideal I) … … 320 319 } 321 320 322 //////////////////////////////////////////////////////////////////////////////// /////321 //////////////////////////////////////////////////////////////////////////////// 323 322 324 323 static proc PtestStd(string command, list args, ideal result, int p) … … 366 365 } 367 366 368 //////////////////////////////////////////////////////////////////////////////// /////367 //////////////////////////////////////////////////////////////////////////////// 369 368 370 369 static proc cleardenomIdeal(ideal I) … … 385 384 } 386 385 387 //////////////////////////////////////////////////////////////////////////////// //////////////////386 //////////////////////////////////////////////////////////////////////////////// 388 387 389 388 static proc modStdparallelized(ideal I) … … 397 396 } 398 397 399 //////////////////////////////////////////////////////////////////////////////// //////////////////398 //////////////////////////////////////////////////////////////////////////////// 400 399 /* main procedure */ 401 400 proc algemodStd(ideal I, list #) -
Tst/Long/ok_l2.lst
r512076c r92b7f0 1 algemodstd_l 1 2 bug_tr642 2 3 king_3_colors_l -
Tst/Short.lst
r512076c r92b7f0 2 2 Short/alexpoly.tst 3 3 Short/algebralib.tst 4 Short/algemodstd_s 4 5 Short/allres_s.tst 5 6 Short/arcAtPoint.tst
Note: See TracChangeset
for help on using the changeset viewer.