Desarrollo de poliedros

¿que puntos coindicen con el marcado en rojo al formar el poliedro?

Mueve el deslizador para comprobarlo.

Velocidad animación plano

RA = 1 (slider from 0 to 1, step 1)
p = 1.1755705045849463
t = 1.7320508075688772
c = 1.4142135623730951
n = 3 (slider from 3 to 5, step 1)
L = 2.7 (slider from 1 to 4, step 0.1)
ar = If(n ≟ 3, L / t, If[n ≟ 4, L / c, If[n ≟ 5, L / p]])
des_1 = If(RA ≟ 0, L, If[RA ≟ 1, ar])
O = Intersect(xAxis, yAxis)
ci = Circle(O, des_1)
A = Point(ci)
A' = Rotate(A, (360 * ° / n), O)
A'' = Rotate(A', (360 * ° / n), O)
v = 2.5 (slider from -5 to 5, step 0.1)
b = Distance(A, A')
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'')
des = 1 (slider from 0 to 1, step 0.01)
d, E, F, G, H, I, J, K, M, N, P, caraEFG, caraEGH, caraEHI, caraEFM, caraFMN, caraFGP, caraGHK, caraHIJ, aristaEG, aristaEF, aristaFG, aristaGH, aristaEH, aristaHI, aristaEI, aristaEM, aristaFM, aristaMN, aristaFN, aristaFP, aristaGP, aristaGK, aristaHK, aristaHJ, aristaIJ = Net(a, des)