Changeset 7b12a3 in git
 Timestamp:
 Mar 9, 2018, 1:51:38 PM (5 years ago)
 Branches:
 (u'jengelhdatetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a657104b677b4c461d018cbf3204d72d34ad66a9')
 Children:
 45fa962b8938643ace5cdc03f189d4457e4c7408
 Parents:
 9a03c2dc812de8eeadb5ea846b85d1b21c1d247f
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

Singular/LIB/fpaprops.lib
r9a03c2d r7b12a3 630 630 } 631 631 632 static proc lpUfGraph(ideal G, list #) 633 "USAGE: lpUfGraph(G); G a set of monomials in a letterplace ring, # an optional parameter to return the vertex list when set 634 RETURN: intmat 632 proc lpUfGraph(ideal G, list #) 633 "USAGE: lpUfGraph(G); G a set of monomials in a letterplace ring. 634 @* lpUfGraph(G,1); G a set of monomials in a letterplace ring. 635 RETURN: intmat or list 636 NOTE: lpUfGraph(G); returns intmat. lpUfGraph(G,1); returns list L with L[1] an intmat and L[2] an ideal. 637 The intmat is the Ufnarovskij Graph and the ideal contains the vertices. 635 638 PURPOSE: Constructs the Ufnarovskij graph induced by G 636 639 the adjacency matrix of the Ufnarovskij graph induced by G … … 669 672 if (size(#) > 0) { 670 673 if (typeof(#[1]) == "int") { 671 if (#[1] == 1) {674 if (#[1] != 0) { 672 675 list ret = UG; 673 676 ret[2] = ivL2lpI(SW); // the vertices … … 677 680 } 678 681 return (UG); 682 } 683 example { 684 "EXAMPLE:"; echo = 2; 685 ring r = 0,(x,y,z),dp; 686 def R = makeLetterplaceRing(5); // constructs a Letterplace ring 687 setring R; // sets basering to Letterplace ring 688 ideal I = x(1)*y(2), x(1)*z(2), z(1)*y(2), z(1)*z(2); 689 lpUfGraph(I); 690 lpUfGraph(I,1); 679 691 } 680 692
Note: See TracChangeset
for help on using the changeset viewer.