Question: How to draw this poset?

      *

    /   \

   *    *

    \  /

     *

restart;

read("D:/Poset2/posets2.4v.txt"):

with(posets):

L := chain(2) &* chain(2);

plot_poset(L);

lattice(L);

autgroup(L);

 

   *    *

    \  /

     *

restart;

read("D:/Poset2/posets2.4v.txt"):

with(posets):

L := lattice([[1, 2],[1, 3]]);

plot_poset([[1, 2],[1, 3]]);

 

L := lattice([[1, 2],[1, 3]]); is not lattice, how to draw this diagram ?

isn't [[1, 2],[1, 3]] to represent this diagram?

Please Wait...