Auxiliares

Jambas y umbral

Arco polilobulado

luz = 20 (slider from 0 to 20)
O: (0, 0, 0)
R: luz / 2
A: (R, 0, 0)
c2 = Circle(O, R, yAxis)
α = 1.954768762233649 rad (slider from (-γ) to δ, step 0.017453292519943295)
v: (1, 0, 0)
ejehorizontal = Line(O, v)
a = true
b = false
jambas: (0, 0, (-2 * R))
w: (0, 0, 1)
ejevertical = Line(O, w)
AA: A + jambas
umbral = Segment(AA, A)
Umbral: (0, 0, (-2 * R))
jamba = Segment(Umbral, AA)
AA' = Mirror(AA, ejevertical)
A' = Mirror(A, ejevertical)
umbral' = Segment(AA', A')
Umbral' = Mirror(Umbral, ejevertical)
AA'_{1} = Mirror(AA, ejevertical)
jamba' = Segment(Umbral', AA'_{1})
n = 3 (slider from 2 to 7, step 1)
r: ((2 * R) * sin(pi / ((4 * n))))
β: (180°) / ((2 * n))
u: (0, 1, 0)
A'_{1} = Rotate(A, (-((2 * β))), yAxis)
C = Rotate(A, (-β), yAxis)
f = Line(C, ejehorizontal)
D = Point(f)
γ = Angle(D, C, A)
δ = Angle(D, C, A'_{1})
lobulo1 = CurveCartesian((r * cos(ϕ)) + x(C), 0, (r * sin(ϕ)) + z(C), ϕ, (-γ), α)
lobulo2 = Rotate(lobulo1, (-((2 * β))), yAxis)
lobulo3 = Rotate(lobulo1, (-((4 * β))), yAxis)
P: ((r * cos(α)) + x(C), 0, (r * sin(α)) + z(C))
g = Segment(C, P)
lobulo4 = Rotate(lobulo1, (-((6 * β))), yAxis)
lobulo5 = Rotate(lobulo1, (-((8 * β))), yAxis)
lobulo6 = Rotate(lobulo1, (-((10 * β))), yAxis)
lobulo7 = Rotate(lobulo1, (-((12 * β))), yAxis)