Auxiliares

Jambas

Arco polilobulado ojival

ju

luz = 10 (slider from 0 to 10)
A: (luz / 2, 0, 0)
α = -1.4800044518242648 rad (slider from (-δ) to Angle[CC_1, CC, Rotate[CC, (-γ), q]], step 1°)
radio = 8.0001 (slider from 0.0001 to 10, step 0.1)
C: (radio, 0, 0)
k = Circle(C, luz / 2 + radio, yAxis)
k' = Mirror(k, zAxis)
B, D = Intersect(k', k)
C' = Mirror(C, zAxis)
β = Angle(A, C', B)
q = Line(C', yAxis)
n = 5 (slider from 3 to 9, step 2)
γ: β / n
CC = Rotate(A, (-γ), q)
rarquito = Distance(A, CC)
v: (1, 0, 0)
P: (x(CC) + (rarquito * cos(α)), y(CC), z(CC) + (rarquito * sin(α)))
CC_1: CC + v
vimposta: (1.5, 0, 0)
O: (0, 0, 0)
a = true
b = false
u: (0, 0, (-luz))
j = Line(O, v)
w: (0, 0, 1)
g = Line(O, w)
A' = Mirror(A, g)
AA: A + u
AA': A' + u
l = Segment(A', AA')
n_{1} = Segment(AA, A)
c = If(α > Angle[CC_1, CC, Rotate[CC, (-γ), q]] - 0.01, true, false)
δ = Angle(CC_1, CC, A)
arco1 = CurveCartesian(x(CC) + (rarquito * cos(ϕ)), y(CC), z(CC) + (rarquito * sin(ϕ)), ϕ, (-δ), α)
arco2 = Rotate(arco1, (-2 * γ), q)
arco3 = Rotate(arco1, (-4 * γ), q)
arco4 = Rotate(arco1, (-6 * γ), q)
arco1' = Mirror(arco1, g)
arco2' = Mirror(arco2, g)
arco3' = Mirror(arco3, g)
arco4' = Mirror(arco4, g)
arco5 = Rotate(arco1, (-8 * γ), q)
arco5' = Mirror(arco5, g)
f = Segment(P, CC)
h = Segment(P, C')
AD: A + vimposta
AI: A - vimposta
p = Segment(AD, AI)
imposta = Segment(AD, AI)
AD' = Mirror(AD, g)
AI' = Mirror(AI, g)
imposta' = Segment(AD', AI')
r = OrthogonalPlane(AA', g)