Changeset 3754ca in git for Singular/LIB/ainvar.lib
- Timestamp:
- Apr 15, 2009, 1:28:08 PM (15 years ago)
- Branches:
- (u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
- Children:
- a6606e6cba9689ecbcc4e27ac00fb8c1deabd128
- Parents:
- 40c648539a84cb2dc36e46b6b6c84deeb21e393b
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/LIB/ainvar.lib
r40c648 r3754ca 1 // $Id: ainvar.lib,v 1. 9 2008-10-01 15:29:23 SingularExp $1 // $Id: ainvar.lib,v 1.10 2009-04-15 11:05:22 seelisch Exp $ 2 2 ///////////////////////////////////////////////////////////////////////////// 3 version="$Id: ainvar.lib,v 1. 9 2008-10-01 15:29:23 SingularExp $";3 version="$Id: ainvar.lib,v 1.10 2009-04-15 11:05:22 seelisch Exp $"; 4 4 category="Invariant theory"; 5 5 info=" … … 190 190 { 191 191 // the ring L[2] = char(bsr),(x(1..nvars(bsr)),y(1..z)),(dp(n),dp(m)), 192 // contains poly check s.t. LT(p) is of the form check(LT(f1),...,LT(fr))192 // contains polynomial check s.t. LT(p) is of the form check(LT(f1),...,LT(fr)) 193 193 def s1 = L[2]; 194 194 map psi = s1,maxideal(1),dom; … … 230 230 231 231 //--------- test wether @(0)-h(@(1),...,@(z)) is in ker --------------- 232 // for some poly h and divide by maximal power of q=#[1]232 // for some polynomial h and divide by maximal power of q=#[1] 233 233 poly h; 234 234 z=size(kern);
Note: See TracChangeset
for help on using the changeset viewer.