The routine incident returns a list of vertices incident to the i-th vertex of the given polyhedron ngon.

$\mathrm{with}\left(\mathrm{geom3d}\right)\:$

$\mathrm{SnubCube}\left(s\,\mathrm{point}\left(o\,0\,0\,0\right)\,1\right)$

$s$

$\mathrm{nops}\left(\mathrm{vertices}\left(s\right)\right)$

$24$

$\mathrm{inc}≔\mathrm{incident}\left(s\,2\right)$

$\mathrm{inc}≔\left[\left[\frac{\sqrt{3}}{3\sqrt{-\frac{1}{3}+\frac{2{\left(17+3\sqrt{11}\sqrt{3}\right)}^{\raisebox{1ex}{$2$}\!\left/ \!\raisebox{-1ex}{$3$}\right.}}{3}-\frac{{\left(17+3\sqrt{11}\sqrt{3}\right)}^{\raisebox{1ex}{$2$}\!\left/ \!\raisebox{-1ex}{$3$}\right.}\sqrt{11}\sqrt{3}}{9}-\frac{{\left(17+3\sqrt{11}\sqrt{3}\right)}^{\raisebox{1ex}{$1$}\!\left/ \!\raisebox{-1ex}{$3$}\right.}}{6}+\frac{{\left(17+3\sqrt{11}\sqrt{3}\right)}^{\raisebox{1ex}{$1$}\!\left/ \!\raisebox{-1ex}{$3$}\right.}\sqrt{11}\sqrt{3}}{18}}}\,\frac{\frac{7\sqrt{3}{\left(17+3\sqrt{11}\sqrt{3}\right)}^{\raisebox{1ex}{$1$}\!\left/ \!\raisebox{-1ex}{$3$}\right.}}{18}+\frac{\sqrt{3}}{9}-\frac{{\left(17+3\sqrt{11}\sqrt{3}\right)}^{\raisebox{1ex}{$2$}\!\left/ \!\raisebox{-1ex}{$3$}\right.}\sqrt{11}}{6}+\frac{5\sqrt{3}{\left(17+3\sqrt{11}\sqrt{3}\right)}^{\raisebox{1ex}{$2$}\!\left/ \!\raisebox{-1ex}{$3$}\right.}}{18}-\frac{{\left(17+3\sqrt{11}\sqrt{3}\right)}^{\raisebox{1ex}{$1$}\!\left/ \!\raisebox{-1ex}{$3$}\right.}\sqrt{11}}{6}}{\sqrt{-\frac{1}{3}+\frac{2{\left(17+3\sqrt{11}\sqrt{3}\right)}^{\raisebox{1ex}{$2$}\!\left/ \!\raisebox{-1ex}{$3$}\right.}}{3}-\frac{{\left(17+3\sqrt{11}\sqrt{3}\right)}^{\raisebox{1ex}{$2$}\!\left/ \!\raisebox{-1ex}{$3$}\right.}\sqrt{11}\sqrt{3}}{9}-\frac{{\left(17+3\sqrt{11}\sqrt{3}\right)}^{\raisebox{1ex}{$1$}\!\left/ \!\raisebox{-1ex}{$3$}\right.}}{6}+\frac{{\left(17+3\sqrt{11}\sqrt{3}\right)}^{\raisebox{1ex}{$1$}\!\left/ \!\raisebox{-1ex}{$3$}\right.}\sqrt{11}\sqrt{3}}{18}}}\,\frac{\sqrt{3}\left({\left(17+3\sqrt{11}\sqrt{3}\right)}^{\raisebox{1ex}{$2$}\!\left/ \!\raisebox{-1ex}{$3$}\right.}-2-{\left(17+3\sqrt{11}\sqrt{3}\right)}^{\raisebox{1ex}{$1$}\!\left/ \!\raisebox{-1ex}{$3$}\right.}\right)}{9\sqrt{-\frac{1}{3}+\frac{2{\left(17+3\sqrt{11}\sqrt{3}\right)}^{\raisebox{1ex}{$2$}\!\left/ \!\raisebox{-1ex}{$3$}\right.}}{3}-\frac{{\left(17+3\sqrt{11}\sqrt{3}\right)}^{\raisebox{1ex}{$2$}\!\left/ \!\raisebox{-1ex}{$3$}\right.}\sqrt{11}\sqrt{3}}{9}-\frac{{\left(17+3\sqrt{11}\sqrt{3}\right)}^{\raisebox{1ex}{$1$}\!\left/ \!\raisebox{-1ex}{$3$}\right.}}{6}+\frac{{\left(17+3\sqrt{11}\sqrt{3}\right)}^{\raisebox{1ex}{$1$}\!\left/ \!\raisebox{-1ex}{$3$}\right.}\sqrt{11}\sqrt{3}}{18}}{\left(17+3\sqrt{11}\sqrt{3}\right)}^{\raisebox{1ex}{$1$}\!\left/ \!\raisebox{-1ex}{$3$}\right.}}\right]\,\left[\frac{\sqrt{3}}{3\sqrt{-\frac{1}{3}+\frac{2{\left(17+3\sqrt{11}\sqrt{3}\right)}^{\raisebox{1ex}{$2$}\!\left/ \!\raisebox{-1ex}{$3$}\right.}}{3}-\frac{{\left(17+3\sqrt{11}\sqrt{3}\right)}^{\raisebox{1ex}{$2$}\!\left/ \!\raisebox{-1ex}{$3$}\right.}\sqrt{11}\sqrt{3}}{9}-\frac{{\left(17+3\sqrt{11}\sqrt{3}\right)}^{\raisebox{1ex}{$1$}\!\left/ \!\raisebox{-1ex}{$3$}\right.}}{6}+\frac{{\left(17+3\sqrt{11}\sqrt{3}\right)}^{\raisebox{1ex}{$1$}\!\left/ \!\raisebox{-1ex}{$3$}\right.}\sqrt{11}\sqrt{3}}{18}}}\,\frac{\sqrt{3}\left({\left(17+3\sqrt{11}\sqrt{3}\right)}^{\raisebox{1ex}{$2$}\!\left/ \!\raisebox{-1ex}{$3$}\right.}-2-{\left(17+3\sqrt{11}\sqrt{3}\right)}^{\raisebox{1ex}{$1$}\!\left/ \!\raisebox{-1ex}{$3$}\right.}\right)}{9\sqrt{-\frac{1}{3}+\frac{2{\left(17+3\sqrt{11}\sqrt{3}\right)}^{\raisebox{1ex}{$2$}\!\left/ \!\raisebox{-1ex}{$3$}\right.}}{3}-\frac{{\left(17+3\sqrt{11}\sqrt{3}\right)}^{\raisebox{1ex}{$2$}\!\left/ \!\raisebox{-1ex}{$3$}\right.}\sqrt{11}\sqrt{3}}{9}-\frac{{\left(17+3\sqrt{11}\sqrt{3}\right)}^{\raisebox{1ex}{$1$}\!\left/ \!\raisebox{-1ex}{$3$}\right.}}{6}+\frac{{\left(17+3\sqrt{11}\sqrt{3}\right)}^{\raisebox{1ex}{$1$}\!\left/ \!\raisebox{-1ex}{$3$}\right.}\sqrt{11}\sqrt{3}}{18}}{\left(17+3\sqrt{11}\sqrt{3}\right)}^{\raisebox{1ex}{$1$}\!\left/ \!\raisebox{-1ex}{$3$}\right.}}\,\frac{-\frac{7\sqrt{3}{\left(17+3\sqrt{11}\sqrt{3}\right)}^{\raisebox{1ex}{$1$}\!\left/ \!\raisebox{-1ex}{$3$}\right.}}{18}-\frac{\sqrt{3}}{9}+\frac{{\left(17+3\sqrt{11}\sqrt{3}\right)}^{\raisebox{1ex}{$2$}\!\left/ \!\raisebox{-1ex}{$3$}\right.}\sqrt{11}}{6}-\frac{5\sqrt{3}{\left(17+3\sqrt{11}\sqrt{3}\right)}^{\raisebox{1ex}{$2$}\!\left/ \!\raisebox{-1ex}{$3$}\right.}}{18}+\frac{{\left(17+3\sqrt{11}\sqrt{3}\right)}^{\raisebox{1ex}{$1$}\!\left/ \!\raisebox{-1ex}{$3$}\right.}\sqrt{11}}{6}}{\sqrt{-\frac{1}{3}+\frac{2{\left(17+3\sqrt{11}\sqrt{3}\right)}^{\raisebox{1ex}{$2$}\!\left/ \!\raisebox{-1ex}{$3$}\right.}}{3}-\frac{{\left(17+3\sqrt{11}\sqrt{3}\right)}^{\raisebox{1ex}{$2$}\!\left/ \!\raisebox{-1ex}{$3$}\right.}\sqrt{11}\sqrt{3}}{9}-\frac{{\left(17+3\sqrt{11}\sqrt{3}\right)}^{\raisebox{1ex}{$1$}\!\left/ \!\raisebox{-1ex}{$3$}\right.}}{6}+\frac{{\left(17+3\sqrt{11}\sqrt{3}\right)}^{\raisebox{1ex}{$1$}\!\left/ \!\raisebox{-1ex}{$3$}\right.}\sqrt{11}\sqrt{3}}{18}}}\right]\,\left[\frac{\sqrt{3}\left({\left(17+3\sqrt{11}\sqrt{3}\right)}^{\raisebox{1ex}{$2$}\!\left/ \!\raisebox{-1ex}{$3$}\right.}-2-{\left(17+3\sqrt{11}\sqrt{3}\right)}^{\raisebox{1ex}{$1$}\!\left/ \!\raisebox{-1ex}{$3$}\right.}\right)}{9\sqrt{-\frac{1}{3}+\frac{2{\left(17+3\sqrt{11}\sqrt{3}\right)}^{\raisebox{1ex}{$2$}\!\left/ \!\raisebox{-1ex}{$3$}\right.}}{3}-\frac{{\left(17+3\sqrt{11}\sqrt{3}\right)}^{\raisebox{1ex}{$2$}\!\left/ \!\raisebox{-1ex}{$3$}\right.}\sqrt{11}\sqrt{3}}{9}-\frac{{\left(17+3\sqrt{11}\sqrt{3}\right)}^{\raisebox{1ex}{$1$}\!\left/ \!\raisebox{-1ex}{$3$}\right.}}{6}+\frac{{\left(17+3\sqrt{11}\sqrt{3}\right)}^{\raisebox{1ex}{$1$}\!\left/ \!\raisebox{-1ex}{$3$}\right.}\sqrt{11}\sqrt{3}}{18}}{\left(17+3\sqrt{11}\sqrt{3}\right)}^{\raisebox{1ex}{$1$}\!\left/ \!\raisebox{-1ex}{$3$}\right.}}\,\frac{-\frac{7\sqrt{3}{\left(17+3\sqrt{11}\sqrt{3}\right)}^{\raisebox{1ex}{$1$}\!\left/ \!\raisebox{-1ex}{$3$}\right.}}{18}-\frac{\sqrt{3}}{9}+\frac{{\left(17+3\sqrt{11}\sqrt{3}\right)}^{\raisebox{1ex}{$2$}\!\left/ \!\raisebox{-1ex}{$3$}\right.}\sqrt{11}}{6}-\frac{5\sqrt{3}{\left(17+3\sqrt{11}\sqrt{3}\right)}^{\raisebox{1ex}{$2$}\!\left/ \!\raisebox{-1ex}{$3$}\right.}}{18}+\frac{{\left(17+3\sqrt{11}\sqrt{3}\right)}^{\raisebox{1ex}{$1$}\!\left/ \!\raisebox{-1ex}{$3$}\right.}\sqrt{11}}{6}}{\sqrt{-\frac{1}{3}+\frac{2{\left(17+3\sqrt{11}\sqrt{3}\right)}^{\raisebox{1ex}{$2$}\!\left/ \!\raisebox{-1ex}{$3$}\right.}}{3}-\frac{{\left(17+3\sqrt{11}\sqrt{3}\right)}^{\raisebox{1ex}{$2$}\!\left/ \!\raisebox{-1ex}{$3$}\right.}\sqrt{11}\sqrt{3}}{9}-\frac{{\left(17+3\sqrt{11}\sqrt{3}\right)}^{\raisebox{1ex}{$1$}\!\left/ \!\raisebox{-1ex}{$3$}\right.}}{6}+\frac{{\left(17+3\sqrt{11}\sqrt{3}\right)}^{\raisebox{1ex}{$1$}\!\left/ \!\raisebox{-1ex}{$3$}\right.}\sqrt{11}\sqrt{3}}{18}}}\,\frac{\sqrt{3}}{3\sqrt{-\frac{1}{3}+\frac{2{\left(17+3\sqrt{11}\sqrt{3}\right)}^{\raisebox{1ex}{$2$}\!\left/ \!\raisebox{-1ex}{$3$}\right.}}{3}-\frac{{\left(17+3\sqrt{11}\sqrt{3}\right)}^{\raisebox{1ex}{$2$}\!\left/ \!\raisebox{-1ex}{$3$}\right.}\sqrt{11}\sqrt{3}}{9}-\frac{{\left(17+3\sqrt{11}\sqrt{3}\right)}^{\raisebox{1ex}{$1$}\!\left/ \!\raisebox{-1ex}{$3$}\right.}}{6}+\frac{{\left(17+3\sqrt{11}\sqrt{3}\right)}^{\raisebox{1ex}{$1$}\!\left/ \!\raisebox{-1ex}{$3$}\right.}\sqrt{11}\sqrt{3}}{18}}}\right]\right]$

$\mathrm{nops}\left(\mathrm{inc}\right)$

$3$