construction tympan
Author: phm

Construction cercles de base

Construction almicantarats

Construction azimuts

Construction heures temporaires

hgo2 = 6
r_{cap} = 76.1902
ε = 0.4092797095926703 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
A = (0, 0)
r_{equ}: r_{cap} / tan(45.0° + ε / 2.0)
c_{equ} = Circle(A, r_{equ})
c_{cap} = Circle(A, r_{cap})
r = 41.912574620690535 (slider from 32.81257462069053 to 76.19, step 0.1)
c_{int} = Circle(A, r)
a = false
i = (0, 1)
b = false
c = false
hg1 = 8
hg2 = 6
c_{gra2} = Circle(A, r_{cap} + hg1)
c_{gra3} = Circle(A, r_{cap} + hg1 + hg2)
grd3 = Sequence(Segment[Intersect[c_{gra2}, Ray[A, (1.0; α)]], Intersect[c_{gra3}, Ray[A, (1.0; α)]]], α, 0.0*°, 360.0*°, 15.0*°)
c_{axe} = Circle(A, 1.0)
c_{decoup} = Circle(A, r_{cap} + hg1 + hg2 + 0.5)
d = false
lgr: {0.0*°, 5.0*°, 10.0*°, 15.0*°, 20.0*°, 25.0*°, 30.0*°, 35.0*°, 40.0*°, 45.0*°, 50.0*°, 55.0*°, 60.0*°, 65.0*°, 70.0*°, 75.0*°, 80.0*°, 85.0*°, 90.0*°, 95.0*°, 100.0*°, 105.0*°, 110.0*°, 90.0° + ε}
xo = Sequence(r_{equ} * tan(Element[lgr, i] / 2.0), i, 1.0, Length[lgr])
hgo1 = 3
gro1 = Sequence(Segment[(Element[xo, i], 0.0), (Element[xo, i], hgo1)], i, 1.0, Length[lgr])
yto: {0.0, 0.0, hgo2, hgo2}
xto: {0.0, r_{cap} + hg1 + hg2, r_{cap}, 0.0}
tos = Sequence(Segment[(Element[xto, i], Element[yto, i]), (Element[xto, i + 1.0], Element[yto, i + 1.0])], i, 1.0, Length[xto] - 1.0)
c_o = Circle(A, hgo2)
gro2 = Sequence(Segment[(Element[xo, i], 0.0), (Element[xo, i], hgo2)], i, 1.0, Length[lgr], 3.0)
sgo = Segment((0.0, hgo1), (Element[xo, Length[xo]], hgo1))
B = (-41.61265399956596, 80.78609091368271)
C = (42.612140102580426, 79.88368240544543)