Auxiliares

Jambas

Arco carpanel

radio = 1.2 (slider from 0 to luz / 2)
luz = 5 (slider from 0 to 5)
medialuz: luz / 2
A: (medialuz, 0, 0)
centrossup: luz / 2 - radio
C1: (centrossup, 0, 0)
k = Circle(C1, radio, yAxis)
centro = 4 (slider from 0 to 20)
C: (0, 0, (-centro))
p = Ray(C, C1)
I, J = Intersect(p, k)
v: (1, 0, 0)
O: (0, 0, 0)
j = Line(O, v)
α = 0 rad (slider from 0 to 90°, step 0.017453292519943295)
γ = Angle(A, C1, I)
δ = If(α < γ, α, γ)
P: ((radio * cos(δ)) + centrossup, 0, (radio * sin(δ)))
a = true
b = false
u: (0, 0, (-luz))
w: (0, 0, 1)
g = Line(O, w)
C2 = Mirror(C1, g)
k' = Mirror(k, zAxis)
B, D = Intersect(k', k)
P' = Mirror(P, g)
A' = Mirror(A, g)
AA: A + u
AA': A' + u
l = Segment(A', AA')
n = Segment(AA, A)
q = Ray(C, C2)
d = If(α ≟ 90°, true, false)
radpeq1 = Segment(C1, P)
radpeq2 = Segment(P', C2)
s = CircleArc(C1, A, P)
s' = Mirror(s, g)
θ = If(α > γ, α, γ)
radiog = Distance(C, I)
Q: ((radiog * cos(θ)), 0, (radiog * sin(θ)) - centro)
t = CircleArc(C, I, Q)
t' = Mirror(t, g)
radlar2 = Segment(C, Q)
I' = Mirror(I, g)
C': C + (0, 0, (-radiog))
c = Circle(C', I, I')
Q' = Mirror(Q, g)
radlar1 = Segment(C, Q')
vimposta: (0.35, 0, 0)
AD: A + vimposta
Ai: A - vimposta
f = Segment(Ai, AD)
Ai' = Mirror(Ai, g)
AD' = Mirror(AD, g)
f' = Segment(Ai', AD')
r = OrthogonalPlane(AA', g)