Changeset a04d1f in git
 Timestamp:
 Jun 30, 2005, 5:01:51 PM (18 years ago)
 Branches:
 (u'jengelhdatetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')
 Children:
 8d5c5fe2a46548f5bfe950d7cdc98a3b7546996c
 Parents:
 62e942a351b8cb95de9e62204cd2f299b8c7fba9
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

Singular/LIB/lejeune.lib
r62e942 ra04d1f 1 1 2 2 //* mode:C++;* 3 // $Id: lejeune.lib,v 1.1 2 20050630 14:03:37cremer Exp $3 // $Id: lejeune.lib,v 1.13 20050630 15:01:51 cremer Exp $ 4 4 5 5 … … 49 49 setring R; 50 50 I=imap(tmp, resultf_set); 51 I=simplify(I,2);52 I=simplify(I,4);53 I=idealsimplify(I);54 I=idealsimplify(I);I;~;55 51 kill tmp; 56 52 J=J,I; 57 53 } 58 //J=idealsimplify(J);J;~; 59 //J=simplify(J,4); 60 //J=simplify(J,2); 61 //J=std(J); 54 J=simplify(J,4); 55 J=simplify(J,2); 56 J=idealsimplify(J); 57 option(redSB); 58 J=std(J); 59 J=idealsimplify(J); 60 J=radical(simplify(J,4)); 62 61 J; 63 62 return(R); … … 254 253 int pos; 255 254 for(j=1;j<=ncols(I);j++) 256 { 257 for(i=1;i<=nvars(basering);i++) 258 { 259 if(modd(I[j],var(i))==0) 260 { 261 divisornumber++; 262 pos=i; 263 } 255 { 256 if(size(I[j])==1) 257 { 258 for(i=1;i<=nvars(basering);i++) 259 { 260 if(modd(I[j],var(i))==0) 261 { 262 divisornumber++; 263 pos=i; 264 } 265 } 264 266 } 265 267 if(divisornumber==1)
Note: See TracChangeset
for help on using the changeset viewer.