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.

4.4. COMPUTING EXPANSIONS AND CONTRACTIONS 91◦ m — a list encoding the monomial to be contracted◦ n — the index <strong>of</strong> the last variable <strong>of</strong> the polynomial ring ROutput <strong>of</strong> the procedure compute contraction.◦ M — a list <strong>of</strong> lists, representing the set <strong>of</strong> minimal generators <strong>of</strong> the input ideal inlexicographic order after the contraction <strong>of</strong> the monomial mcompute_contraction:= proc(M, m, n)local last, mon, Ind, del, v, i, ind, j;begin/* Determine the index ’last’ <strong>of</strong> the last variableoccurring in m */for i from n+1 downto 0 doif m[i] 0 thenlast:= i;break;end_if;end_for;mon:= m;mon[last]:= mon[last] + 1;M[contains(M, mon)]:= m;for i from last+1 to n domon:= m;mon[i]:= mon[i] + 1;v:= contains(M, mon);if v > 0 thenM[v]:= null();end_if;end_for;/* Testing for minimality, i.e. removing all monomials,which are no longer minimal generators <strong>of</strong> the ideal */v:= contains(M, m);Ind:= {};del:= {};for j from 1 to last-1 d<strong>of</strong>or i from 1 to n+1 do

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

Saved successfully!

Ooh no, something went wrong!