Icosaedro inscrito en octaedro

Basta dividir tres aristas de una cara según proporción áurea.

Ver icosaedro

r = 2.8 (slider from 0 to 4, step 0.1)
O = Intersect(xAxis, yAxis)
c = Circle(O, r)
A = Point(c)
n = 3 (slider from 3 to 5, step 1)
A' = Rotate(A, (360 * ° / n), O)
A'' = Rotate(A', (360 * ° / n), O)
a, B, C, D, caraAA'A'', caraAA''D, caraABD, caraAA'B, caraA'BC, caraA'A''C, caraA''CD, caraBCD, aristaAA'', aristaAA', aristaA'A'', aristaAD, aristaA''D, aristaAB, aristaBD, aristaA'B, aristaA'C, aristaBC, aristaA''C, aristaCD = Octahedron(A, A', A'')
f = 1.618033988749895
E: A + (A'' - A) / f
F: A'' + (A' - A'') / f
G: A' + (A - A') / f
b, H, I, J, K, L, M, N, P, Q, caraEFG, caraEFJ, caraEJK, caraEHK, caraEGH, caraGHL, caraGIL, caraFGI, caraFIM, caraFJM, caraILP, caraIMP, caraMPQ, caraJMQ, caraLNP, caraNPQ, caraKNQ, caraJKQ, caraHLN, caraHKN, aristaEF, aristaEG, aristaFG, aristaEJ, aristaFJ, aristaEK, aristaJK, aristaEH, aristaHK, aristaGH, aristaGL, aristaHL, aristaGI, aristaIL, aristaFI, aristaFM, aristaIM, aristaJM, aristaIP, aristaLP, aristaMP, aristaMQ, aristaPQ, aristaJQ, aristaNP, aristaLN, aristaNQ, aristaKQ, aristaKN, aristaHN = Icosahedron(E, G, F)
d = false

Tool: División aurea (command Divisiónaurea)
Divisiónaurea[ <Punto>, <Punto>, <Número> ]
Input: A', A'', f
Output: F

F: A'' + (A' - A'') / f

Tool: numero oro (command numerooro)
Herramienta1[ <Punto>, <Punto>, <Número> ]
Input: A, B, f
Output: C

C: A + (B - A) / f