Code: Select all
$pd = polarize($p);
Code: Select all
$pd = polarize($p);
Code: Select all
# the indices of the vertices defining face $i:
$p->HASSE_DIAGRAM->FACES->[$i];
# the indices of the facets that are satisfied with equality at face $i:
$p->HASSE_DIAGRAM->dual_faces->[$i]
Code: Select all
$f = new Polytope(VERTICES=>$p->VERTICES->minor($p->HASSE_DIAGRAM->FACES->[$i],All));
Code: Select all
$fd = new Polytope(VERTICES=>$p->FACETS->minor($p->HASSE_DIAGRAM->dual_faces->[$i],All));