# Maple code for extracting the covering relation from # the poset data produced by the 'scrape' script. read `posets2.3v.txt`: withposets(covers,plot_poset): # the vertex set X:=map(op,{indices(nv)}): # table of vertex labels L:=table([seq(i=cat(``,i,":",nv[i]),i=X)]): # get the covering relation P:=covers({seq(seq([i,j],i=down[j]),j=X)}): # output the poset in dot format plot_poset(P,X,labels=L,dot);