10.07.2015 Views

University of Paderborn Department of Mathematics Diploma Thesis ...

University of Paderborn Department of Mathematics Diploma Thesis ...

University of Paderborn Department of Mathematics Diploma Thesis ...

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

84 CHAPTER 4. ALGORITHMS FOR STABLE IDEALSOutput. Set <strong>of</strong> minimal generators <strong>of</strong> the ideal L p .Pro<strong>of</strong>. (Correctness) By Remark 1.11 and Theorem 2.25, the algorithm is correct.MuPAD Source Code 4.7. A possible implementation <strong>of</strong> Algorithm 4.6 is the following,where we use lists to represent monomials as in 4.1 and 4.3. The procedure expects aHilbert polynomial p and the index <strong>of</strong> the last variable <strong>of</strong> R and outputs the set <strong>of</strong> generators<strong>of</strong> the unique lexicographic ideal L p .Input for the procedure compute L p.◦ p — the Hilbert polynomial <strong>of</strong> R/I◦ n — the index <strong>of</strong> the last variable <strong>of</strong> the polynomial ring ROutput <strong>of</strong> the procedure compute L p.◦ L p — a list <strong>of</strong> lists encoding the set <strong>of</strong> minimal generators <strong>of</strong> the lexicographic idealL p associated to pcompute_L_p:= proc(p, n)local indet, coeff, deg, m, a, L_p, monom, cnt, i;beginindet:= op(p)[2][1];deg:= degree(p);m:= [0 $ deg + 1];a:= m;/* Compute the m_i’s */for i from deg downto 1 docoeff:= lcoeff(p);m[i+1]:= i! * coeff;p:= p - poly(expand(binomial(indet + i, i+1)),[indet])+ poly(expand(binomial(indet + i - m[i+1], i+1)),[indet]);end_for;m[1]:= op(p)[1];/* Compute the a_i’s */a[deg + 1]:= m[deg + 1];for i from deg - 1 downto 0 do

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!