Estrella octángula

Formada por dos tetraedros, uno de ellos es el simétrico del otro respecto de su centro.
La intersección de los dos tetraedros es un octaedro. El poliedro compuesto por los dos poliedros es la estrella octángula.

Arista

Radio

Tetraedro 1

Tetrraedro 2

Interseccion: Octaedro

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 = 4 (slider from 1 to 5, step 0.1)
ar = If(n ≟ 3, L / t, If[n ≟ 4, L / c, If[n ≟ 5, L / p]])
des = If(RA ≟ 0, L, If[RA ≟ 1, ar])
O: (0, 0, 0)
ci = Circle(O, des, xOyPlane)
A = Point(ci)
A' = Rotate(A, (360 * ° / n), O)
A'' = Rotate(A', (360 * ° / n), O)
v = 0.5 (slider from 0 to 1, step 0.1)
b = Distance(A, A')
arista = Distance(A, A')
radio = Distance(O, A'')
P04, B, caraAA'A'', caraAA''B, caraAA'B, caraA'A''B, aristaAA'', aristaAA', aristaA'A'', aristaAB, aristaA''B, aristaA'B = Tetrahedron(A, A', A'')
w = (0, 0, 0)
caraAA'B' = Translate(caraAA'B, w)
C = Midpoint(aristaAA')
D = Midpoint(aristaA'B)
f = Segment(A, D)
g = Segment(C, B)
E = Intersect(f, g)
h = Segment(A'', E)
F = Intersect(h, caraAA'B')
G = Intersect(h, caraAA''B)
H = Intersect(h, xOyPlane)
I = Intersect(h, xOyPlane)
i = Segment(B, O)
J = Intersect(h, i)
p05 = Mirror(P04, J)
K = Intersect(aristaAB, aristaAA')
M = Midpoint(aristaAB)
p00, N, P, Q, caraCDM, caraCMQ, caraMNQ, caraDMN, caraDNP, caraCDP, caraCPQ, caraNPQ, aristaCM, aristaDM, aristaCD, aristaMQ, aristaCQ, aristaMN, aristaNQ, aristaDN, aristaDP, aristaNP, aristaCP, aristaPQ = Octahedron(M, D, C)
a = true
d = true
e = true
texto1: "Arista del tetraedro " + L + ""
v10: (10 * v)
texto2: "Velocidad de giro " + v10 + ""