Is there some other obstruction?
E8 is implemented, but the labeling of the nodes is unclear. The source code in simple_roots.cc says
Code: Select all
7
|
|
0 ---- 1 ---- 2 ---- 3 ---- 4 ---- 5 ---- 6
Code: Select all
7
|
|
0 ---- 1 ---- 2 ---- 3 ---- 4 ---- 5 ---- 6
Code: Select all
$n++;
$t = pyramid($t, new QuadraticExtension(0,new Rational(1,2*$n),2*$n*($n+1)));
Speaking of this, constructing a full-dimensional regular simplex seems overly difficult. I would really appreciate a \( \texttt{regular_simplex} \) method, to go along with \( \texttt{cube} \) and \( \texttt{cross} \) (\( \texttt{simplex} \) produces a "standard" simplex, which is not regular.)
The function \( \texttt{wythoff("An", new Set<Int>(0))} \) produces a regular n-simplex in (n+1) dimensions, which is not full dimensional, and using \( \texttt{projection_full} \) on this results in a standard simplex again.
Other polytope construction functions, such as \( \texttt{edge_middle} \) and \( \texttt{truncation} \), could also be updated to work with QuadraticExtension. In polymake 2.13 (and the current perpetual beta), both fail to produce a rectified 120-cell, presumably due to rational approximation.
Code: Select all
> $reg120 = regular_120_cell();
> $rect120 = edge_middle($reg120);
> print $rect120->F_VECTOR;
1200 4896 5472 177
Code: Select all
> $rect120 = truncation($reg120,All,cutoff=>1);
> print $rect120->F_VECTOR;
2400 4800 3120 720
\( \texttt{wythoff("H4", range(1,1))} \) produces the correct polytope.