A simplex is regular if its all edges have the same length.
How to test in Mathematica whether a
Simplex is regular or not, without checking all the edges manually? I'm not really familiar with loops in Mathematica. I also can't find in the documentation how to access the vertices of a