Rebaje

Luz

Auxiliares

Jambas

all

Arco escarzano peraltado

radio

Peralte

α

Per

Reb

p

p = 3.66 (slider from 0 to pp)
vp: (0, 0, p)
α = 2.3736477827122884 rad (slider from β to 180° - β, step 0.017453292519943295)
β = 0.2617993877991494 rad (slider from 0 to 45°, step 0.017453292519943295)
luz = 10 (slider from 0 to 10)
radio: luz / 2
radio_e: radio / cos(β)
pizca: 0.001
u: (0, 0, (-2 * radio))
angmax: 179.9°
Q: (radio, 0, 0)
P: (((-radio_e) * cos(α - pizca)), 0, (radio_e * sin(α - pizca)) - (radio * tan(β)) + p)
O: (0, 0, 0)
a = true
b = false
QQ: Q + u
d = If(α ≟ 180° - β, true, false)
Q' = Mirror(Q, zAxis)
QQ': Q' + u
g = Segment(Q, QQ)
h: (radio * tan(β))
vimposta: (0.5, 0, 0)
QD: Q + vimposta
QI: Q - vimposta
j = Segment(QD, QI)
QD' = Mirror(QD, zAxis)
QI' = Mirror(QI, zAxis)
j' = Segment(QD', QI')
p_{1} = OrthogonalPlane(QQ, zAxis)
Qvp: Q + vp
O2: (0, 0, ((-radio) * tan(β)) + p)
f = Segment(O2, P)
Qvp' = Mirror(Qvp, zAxis)
k = Segment(Qvp, Qvp')
A: (0, 0, p)
A' = Mirror(A, zAxis)
Q'_{1} = Mirror(Q, zAxis)
QQ'_{1} = Mirror(QQ, zAxis)
g' = Segment(Q'_{1}, QQ'_{1})
pp = 4.53 (slider from 0 to 5)
vpp: (0, 0, pp)
i = Segment(Q, Qvp)
l = Segment(Q'_{1}, Qvp')
m = Segment(Q, Q'_{1})
O2izq: (x(O2) - 3, 0, z(O2))
n = Segment(O2, O2izq)
c = CircleArc(O2, Qvp', P)
γ = Angle(Qvp', O2, O2izq)
q = Segment(O2, Qvp')
r = Segment(A', O)
e = If(pp ≠ 0, true, false)
o = If(β ≠ 0, true, false)
text1 = If(e ≟ false ∧ o ≟ false, "Arco de medio punto", "AA")
texto1 = If(e ≟ false ∧ o ≟ false, "Arco de medio punto", If[e ≟ true ∧ o ≟ false, "Arco peraltado", If[e ≟ false ∧ o ≟ true, "Arco escarzano", "Arco escarzano peraltado"]])
s = Line(O, O2)
OO: (0, 0, pp)
v = Vector(O, OO)