# Changeset 09b9c1 in git for Singular/LIB/equising.lib

Ignore:
Timestamp:
Jun 12, 2006, 2:12:27 PM (17 years ago)
Branches:
(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')
Children:
1cddd85047aee37180182ad1468f53dea9628791
Parents:
f0d4069b915df89da9bc7ece318aa73b3c8cd594
Message:
```*lossen: Computation of I^s(f) (third entry of list returned by esIdeal) fixed

git-svn-id: file:///usr/local/Singular/svn/trunk@9198 2c84dea3-7e68-4137-9b89-c4e89433aadc```
File:
1 edited

Unmodified
Added
Removed
• ## Singular/LIB/equising.lib

 rf0d4069 version="\$Id: equising.lib,v 1.14 2005-11-08 18:18:04 Singular Exp \$"; version="\$Id: equising.lib,v 1.15 2006-06-12 12:12:27 lossen Exp \$"; category="Singularities"; info=" // variable names, e.g., A,B,C,z,y are replaced by t(1),t(2),t(3),x,y ideal bNodes; // Initialize some variables: map phi; bl_Map(counter)=maxideal(1); bl_Map(counter)[nvars(basering)]=xy+(b(auxVar)+B[blowup,counter])*x; bNodes[counter]=b(auxVar); auxVar=auxVar+1; bl_Map(counter)[nvars(basering)]= xy+(b(auxVar)+B[blowup,counter])*x; bNodes[counter]=b(auxVar); auxVar=auxVar+1; } for (i=1;i<=no_b; i++) { Jtriv=subst(Jtriv,b(i),0); if (reduce(b(i),std(bNodes))!=0){ Jtriv=subst(Jtriv,b(i),0); } } Jtriv=std(Jtriv); } Jtriv = nselect(Jtriv,1,no_b); ideal J_no_b = nselect(J,1,no_b); if (size(J) > size(J_no_b))
Note: See TracChangeset for help on using the changeset viewer.