- Timestamp:
- Feb 21, 2013, 11:35:23 AM (11 years ago)
- Branches:
- (u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')
- Children:
- 5523765c597320ca80eb947391587ecf21dd1539741554096f6e1c32424aa54a787cf2189c64a62b
- Parents:
- 0723d52f38b257cac43d6e4c57aa7a5d243f5002
- git-author:
- Hans Schoenemann <hannes@mathematik.uni-kl.de>2013-02-21 11:35:23+01:00
- git-committer:
- Hans Schoenemann <hannes@mathematik.uni-kl.de>2013-02-21 11:36:47+01:00
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/LIB/normal.lib
r0723d5 r507427 2706 2706 2707 2707 int mu=vdim(std(jacob(f))); 2708 2708 2709 poly g=f+var(1)^mu+var(2)^mu; //to obtain a convenient Newton-polygon 2709 2710 … … 2734 2735 intvec v=NP[1][2]-NP[2][2],NP[2][1]; 2735 2736 int de=w_deg(g,v); 2736 int st=w_deg(hc,v)+v[1]+v[2]; 2737 //int st=w_deg(hc,v)+v[1]+v[2]; 2738 int st=w_deg(var(1)^NP[size(NP)][1],v)+1; 2737 2739 poly f1=var(2)^NP[2][2]; 2738 2740 poly f2=jet(g,de,v)/var(2)^NP[2][2]; … … 2752 2754 } 2753 2755 nb=deltaLoc(f1,maxideal(1))[3]+deltaLoc(f2,maxideal(1))[3]; 2756 2754 2757 setring R; 2755 2758 option(set,save_opt);
Note: See TracChangeset
for help on using the changeset viewer.