По-вашему, семиугольник — фрактал? При поворотах ровно в себя превращается, а накопирован там отрезок.
А вот формула — другой вопрос. Нужно ли вам, например, параметрическое задание
? Думаю, ничего подъёмного в таком случае не получится, потому что эта поверхность гомеоморфна сфере с 30, вроде, дырами, так что если отображать, то из неё.
По адресу
http://www.bugman123.com/Math/index.html#Topology есть старый код для Wolfram Mathematica:
Код:
(*runtime:0.1 second*)
<< Graphics`Shapes`;
alpha = ArcCos[-Sqrt[5]/5];
surface = {{{0.11, 0.35, 1}, {0.16, 0.33, 1}, {0.23, 0.35, 0.99}, {0.3, 0.38, 0.96}, {0.35, 0.43, 0.9}, {0.29, 0.42, 0.8}, {0.22, 0.37, 0.7}, {0.14, 0.34, 0.62}, {0.078, 0.296, 0.585}}, {{0, 0, 1}, {0.13, 0.09, 1}, {0.29, 0.22, 0.99}, {0.4, 0.33, 0.95}, {0.41, 0.45, 0.88}, {0.31, 0.47, 0.77}, {0.2, 0.43, 0.65}, {0.08, 0.4, 0.56}, {-0.019, 0.398, 0.526}}, {{0.36, 0, 1}, {0.39, 0.11, 1}, {0.45, 0.23, 0.99}, {0.49, 0.35, 0.95}, {0.47, 0.45, 0.86}, {0.36, 0.52, 0.73}, {0.22, 0.5, 0.59}, {0.13, 0.48, 0.48}, {0.07, 0.489, 0.437}}};
arm = Map[Polygon[Flatten[#, 1][[{1, 2, 4, 3}]]] &, Partition[surface, {2, 2}, 1], {2}];
face = Table[RotateShape[Graphics3D[arm], 0, 0, psi][[1]], {psi, 0, 1.6 Pi, 0.4 Pi}];
Show[Graphics3D[{face, RotateShape[face, 0, Pi, 0], Table[{RotateShape[face, 0, Pi - alpha, psi + Pi/5], RotateShape[face, Pi/5, alpha, psi]}, {psi, 0, 1.6 Pi, 0.4 Pi}]}]]
Несмотря на это, в моей девятой версии он работает и представляет это quintrino в виде многогранника; а может, его даже кто-то возьмётся «обновить». Отсюда тоже можно плясать.
Вообще, для рисования — если вам нужно только это — именно
формулы не обязательны. Описание преобразований какого-то данного объекта или код могут быть проще и понятнее для изменений.
