Changeset 8de0ce in git
 Timestamp:
 Jul 4, 2005, 9:58:23 AM (18 years ago)
 Branches:
 (u'jengelhdatetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')
 Children:
 2f6f3ee6e6cc26011f65dd0589eebe383ae68f81
 Parents:
 0540757afbdc88eb339dd7280833cf529b3d7010
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

Singular/LIB/lejeune.lib
r054075 r8de0ce 1 1 2 2 //* mode:C++;* 3 // $Id: lejeune.lib,v 1.1 5 20050701 10:32:24cremer Exp $3 // $Id: lejeune.lib,v 1.16 20050704 07:58:23 cremer Exp $ 4 4 5 5 … … 109 109 matrix coe=Coe; // gives the tcoeff. after plugging in 110 110 poly fkv; // need this stuff for the following 111 ideal m; // loops... 112 ideal m1,m2,J,resultdiff; 111 ideal m; 112 ideal m1=maxidealstep(i,startvar); // computes the corresponding ideal 113 ideal m3,m2,J,resultdiff; 113 114 for(v=1;v<=k;v++) // consider the different tcoeff. 114 115 { … … 118 119 for(s=1;s<=kv;s++) 119 120 { 120 m1=maxidealstep(i,startvar); // computes the corresponding ideal 121 m1=m1^s; 122 u=size(m1); 121 m3=m1^s; 122 u=size(m3); 123 123 for(t=1;t<=u;t++) 124 124 { 125 m2=contract(m 1[t],m); // actual differentiation125 m2=contract(m3[t],m); // actual differentiation 126 126 J=J,m2; 127 127 } … … 312 312 ideal m; 313 313 ideal m1=maxidealstep(i,startvar); 314 ideal m 2,J,g_resultdiff;314 ideal m3,m2,J,g_resultdiff; 315 315 for(v=1;v<=k;v++) // consider the different tcoeff. 316 316 { … … 320 320 for(s=1;s<=kv+1;s++) // remark: "s<=kv+1" special!for G!!! 321 321 { 322 m 1=m1^s;323 u=size(m 1);322 m3=m1^s; 323 u=size(m3); 324 324 for(t=1;t<=u;t++) 325 325 { 326 m2=contract(m 1[t],m); // actual differentiation326 m2=contract(m3[t],m); // actual differentiation 327 327 J=J,m2; 328 328 }
Note: See TracChangeset
for help on using the changeset viewer.