Changeset 7b12a3 in git for Singular/LIB/fpaprops.lib

Timestamp:

Mar 9, 2018, 1:51:38 PM (6 years ago)

Author:

Karim Abou Zeid <karim23697@…>

Branches:

(u'spielwiese', '4a9821a93ffdc22a6696668bd4f6b8c9de3e6c5f')

Children:

45fa962b8938643ace5cdc03f189d4457e4c7408

Parents:

9a03c2dc812de8eeadb5ea846b85d1b21c1d247f

Message:

Make lpUfGraph non static

File:

• Singular/LIB/fpaprops.lib (modified) (3 diffs)

Singular/LIB/fpaprops.lib

@@ -630 +630 @@
 }
 
-static proc lpUfGraph(ideal G, list #)
-"USAGE: lpUfGraph(G); G a set of monomials in a letterplace ring, # an optional parameter to return the vertex list when set
-RETURN: intmat
+proc lpUfGraph(ideal G, list #)
+"USAGE: lpUfGraph(G); G a set of monomials in a letterplace ring.
+@*      lpUfGraph(G,1); G a set of monomials in a letterplace ring.
+RETURN: intmat or list
+NOTE: lpUfGraph(G); returns intmat. lpUfGraph(G,1); returns list L with L[1] an intmat and L[2] an ideal.
+      The intmat is the Ufnarovskij Graph and the ideal contains the vertices.
 PURPOSE: Constructs the Ufnarovskij graph induced by G
       the adjacency matrix of the Ufnarovskij graph induced by G
@@ -669 +672 @@
   if (size(#) > 0) {
     if (typeof(#[1]) == "int") {
-      if (#[1] == 1) {
+      if (#[1] != 0) {
         list ret = UG;
         ret[2] = ivL2lpI(SW); // the vertices
@@ -677 +680 @@
   }
   return (UG);
+}
+example {
+  "EXAMPLE:"; echo = 2;
+  ring r = 0,(x,y,z),dp;
+  def R = makeLetterplaceRing(5); // constructs a Letterplace ring
+  setring R; // sets basering to Letterplace ring
+  ideal I = x(1)*y(2), x(1)*z(2), z(1)*y(2), z(1)*z(2);
+  lpUfGraph(I);
+  lpUfGraph(I,1);
 }