Changeset c999545 in git
 Timestamp:
 May 19, 2006, 1:42:31 PM (17 years ago)
 Branches:
 (u'spielwiese', '91fdef05f09f54b8d58d92a472e9c4a43aa4656f')
 Children:
 e28b133c37a886418e334559fc4175333b25e412
 Parents:
 11de3e8f11bec7f9b6008145cb455f4bff59972c
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

Singular/LIB/digimult.lib
r11de3e rc999545 1 1 /////////////////////////////////////////////////////////////////////////////// 2 version="$Id: digimult.lib,v 1. 4 20051108 07:07:16bricken Exp $";2 version="$Id: digimult.lib,v 1.5 20060519 11:42:31 bricken Exp $"; 3 3 category="Logic"; 4 4 info=" … … 140 140 141 141 static proc simple_gps(ideal i, list var_order, int step){ 142 if ((size(i)==0)){~;} 142 143 step=step+1; 143 144 degBound=step+1; 144 145 ideal j; 145 146 if (size(var_order)==0){ 147 ~; 146 148 degBound=0; 147 149 j=std(i); … … 161 163 } 162 164 j=simplify(j,2); 163 j=simplify(j,8);165 //j=simplify(j,8); 164 166 165 167 poly v=var(var_order[1]); 166 168 var_order=delete(var_order,1); 167 169 ideal j0=subst(j,v,0); 170 "setting", v, "to",0; 168 171 j0=simplify(j0,2); 172 169 173 j0=simplify(j0,8); 170 174 if (simple_gps(j0,var_order,step)==1){ 171 175 return(1); 172 176 } else{ 173 j0=subst(j,v,1); 174 j0=simplify(j0,2); 175 j0=simplify(j0,8); 176 return(simple_gps(j0,var_order, step)); 177 "setting", v, "to",1; 178 ideal j1=subst(j,v,1); 179 j1=simplify(j1,2); 180 //j0=simplify(j1,8); 181 return(simple_gps(j1,var_order, step)); 177 182 } 178 183
Note: See TracChangeset
for help on using the changeset viewer.