construction tympan

phm

GeoGebra Graphique

No. Nom Commande
1 Angle dalm  
2 Nombre nalm 90° / dalm
3 Angle ε  
4 Nombre rcap  
5 Point F (rcap; ε + 90°)
6 Point D (rcap, 0)
7 Segment sg2 Segment[D, F]
8 Point G Intersection[sg2, axeY]
9 Point A  
10 Nombre requ Longueur[Vecteur[A, G]]
11 Cercle cequ Cercle[A, requ]
12 Point I (requ, 0)
13 Cercle ccap Cercle[A, rcap]
14 Angle φ  
15 Liste lp1 Séquence[180° - φ - i, i, 0°, 90°, dalm] 180 / π
16 Liste P1 Séquence[Intersection[axeY, DemiDroite[I, Vecteur[A, (1; π - Elément[lp1, i] / 2 π / 180)]]], i, 1, nalm - 1]
17 Liste lp2 Séquence[i - φ, i, 0°, 90°, dalm] 180 / π
18 Liste P2 Séquence[Intersection[axeY, DemiDroite[I, Vecteur[A, (1; (180 - Elément[lp2, i] / 2) π / 180)]]], i, 1, nalm - 1]
19 Liste calmi Séquence[Cercle[MilieuCentre[Elément[P1, i], Elément[P2, i]], Distance[Elément[P1, i], Elément[P2, i]] / 2], i, 1, nalm - 1]
20 Point IT5 Intersection[ccap, Elément[calmi, 1]]
20 Point IT6 Intersection[ccap, Elément[calmi, 1]]
21 Angle θ5 Angle[(1, 0), A, IT5]
22 Point IT3 Intersection[cequ, Elément[calmi, 1]]
22 Point IT4 Intersection[cequ, Elément[calmi, 1]]
23 Angle θ4 Angle[(1, 0), A, IT4]
24 Angle θ3 Angle[(1, 0), A, IT3]
25 Angle dθequ θ4 - θ3
26 Angle θ6 Angle[(1, 0), A, IT6]
27 Angle dθcap θ6 - θ5
28 Segment sg1 Segment[A, F]
29 Point H Intersection[cequ, sg1]
30 Segment sg3 Segment[H, I]
31 Point K Intersection[sg3, axeY]
32 Nombre rcan Longueur[Vecteur[A, K]]
33 Cercle ccan Cercle[A, rcan]
34 Point IT1 Intersection[ccan, Elément[calmi, 1]]
34 Point IT2 Intersection[ccan, Elément[calmi, 1]]
35 Angle θ2 Angle[(1, 0), A, IT2]
36 Angle θ1 Angle[(1, 0), A, IT1]
37 Angle dθcan θ2 - θ1
38 Nombre r  
39 Cercle cint Cercle[A, r]
40 Point IT7 Intersection[cint, Elément[calmi, 1]]
40 Point IT8 Intersection[cint, Elément[calmi, 1]]
41 Angle θ8 Si[r > requ, Angle[(1, 0), A, IT8], 360° + Angle[(1, 0), A, IT8]]
42 Angle θ7 Angle[(1, 0), A, IT7]
43 Angle daz  
44 Nombre naz 180° / daz - 1
45 Point z' Intersection[axeY, DemiDroite[I, Vecteur[A, (1; 270° - (90° - φ) / 2)]]]
46 Point z Intersection[axeY, DemiDroite[I, Vecteur[A, (1; 180° - (90° - φ) / 2)]]]
47 Liste Pa Séquence[Intersection[Médiatrice[z, z'], Droite[z, Vecteur[A, (1; 360° - i)]]], i, daz, 180°, daz]
48 Liste razim Séquence[Longueur[Vecteur[z, Elément[Pa, i]]], i, 1, naz]
49 Point B Intersection[ccap, DemiDroite[A, (0, 1)]]
50 Point C Intersection[ccap, DemiDroite[A, (0, -1)]]
51 Liste cazim Séquence[Cercle[Elément[Pa, i], Elément[razim, i]], i, 1, naz]
52 Arc dmcg DemiCercle[C, B]
53 Arc dmcd DemiCercle[B, C]
54 Liste yP1 y(P1)
55 Nombre nalmi NbSi[x > rcap, yP1]
56 Point E Intersection[ccap, DemiDroite[A, (-1, 0)]]
57 Point L Intersection[ccan, DemiDroite[A, (0, -1)]]
58 Valeur booléenne a  
59 Point S Intersection[cequ, DemiDroite[A, (0, -1)]]
60 Liste arch1 Séquence[ArcCercleCirconscrit[Intersection[dmcg, Elément[calmi, i]], Elément[P2, i], Intersection[dmcd, Elément[calmi, i]]], i, 1, nalmi]
61 Liste IAcapg Séquence[Intersection[dmcg, Elément[cazim, i]], i, 1, naz]
62 Point IHcapd Intersection[dmcd, Elément[calmi, 1]]
63 Nombre yIHcap y(Intersection[dmcd, Elément[calmi, 1]])
64 Liste yacap Séquence[y(Elément[IAcapg, i]), i, 1, naz]
65 Nombre complexe i  
66 Nombre naz1 NbSi[x < y(IHcapd), yacap]
67 Point IHcapg Intersection[dmcg, Elément[calmi, 1]]
68 Liste IAcapd Séquence[Intersection[dmcd, Elément[cazim, i]], i, 1, naz]
69 Nombre naz2 naz - naz1
70 Liste IAH Séquence[Intersection[Elément[cazim, i], Elément[arch1, 1]], i, 1, naz1]
71 Liste IAH2 Séquence[(-x(Elément[IAH, i]), y(Elément[IAH, i])), i, 1, naz1]
72 Liste arcazg Séquence[ArcCercleCirconscrit[Elément[IAH, i], z, Elément[IAcapd, i]], i, 1, naz2]
73 Liste arcazd Séquence[ArcCercleCirconscrit[Elément[IAcapg, naz - i + 1], z, Elément[IAH2, i]], i, 1, naz2]
74 Liste arcazh Séquence[ArcCercleCirconscrit[Elément[IAH, i], z, Elément[IAH2, naz - i + 1]], i, naz2 + 1, naz1]
75 Valeur booléenne b  
76 Valeur booléenne c  
77 Nombre aa y(z')
78 Arc archor ArcCercleCirconscrit[Intersection[dmcg, Elément[calmi, 1]], Elément[P2, 1], Intersection[dmcd, Elément[calmi, 1]]]
79 Segment axeEO Segment[E, D]
80 Segment axeNS Segment[B, C]
81 Droite zzmed Médiatrice[z, z']
82 Texte texte1  
83 Texte texte2  
84 Texte texte4  
85 Texte texte3  
86 Point P1c Intersection[axeY, DemiDroite[I, Vecteur[A, (1; 180° - (180° - φ + 18°) / 2)]]]
87 Point P2c Intersection[axeY, DemiDroite[I, Vecteur[A, (1; 180° - ((-(18))° - φ) / 2)]]]
88 Cercle ccresp Cercle[MilieuCentre[P1c, P2c], Distance[P1c, P2c] / 2]
89 Arc arccrep ArcCercleCirconscrit[Intersection[dmcg, ccresp], P2c, Intersection[dmcd, ccresp]]
90 Nombre hg1  
91 Nombre hg2  
92 Cercle cgra1 Cercle[A, rcap + hg1 / 2]
93 Cercle cgra2 Cercle[A, rcap + hg1]
94 Cercle cgra3 Cercle[A, rcap + hg1 + hg2]
95 Liste grd2 Séquence[Segment[Intersection[cgra2, DemiDroite[A, (1; α)]], Intersection[cgra1, DemiDroite[A, (1; α)]]], α, 0°, 360°, 1°]
96 Liste grd3 Séquence[Segment[Intersection[cgra2, DemiDroite[A, (1; α)]], Intersection[cgra3, DemiDroite[A, (1; α)]]], α, 0°, 360°, 15°]
97 Liste grd1 Séquence[Segment[Intersection[ccap, DemiDroite[A, (1; α)]], Intersection[cgra1, DemiDroite[A, (1; α)]]], α, 0°, 360°, 5°]
98 Liste arch2 Séquence[Cercle[MilieuCentre[Elément[P1, i], Elément[P2, i]], Distance[Elément[P1, i], Elément[P2, i]] / 2], i, nalmi + 1, nalm - 1]
99 Cercle caxe Cercle[A, 1]
100 Cercle cdecoup Cercle[A, rcap + hg1 + hg2 + 0.5]
101 Image image1  
102 Liste PTcan Séquence[(rcan; θ1 + i dθcan / 12), i, 1, 11]
103 Liste PTequ Séquence[(requ; θ3 + i dθequ / 12), i, 1, 11]
104 Liste PTcap Séquence[(rcap; θ5 + i dθcap / 12), i, 1, 11]
105 Valeur booléenne d  
106 Liste arctemp1 Séquence[ArcCercleCirconscrit[Elément[PTcan, i], Elément[PTequ, i], Elément[PTcap, i]], i, 1, 5]
107 Texte texte5 "φ=" + (floor(φ)) + (floor((x((φ 180 / π, 0)) - floor(x((φ 180, 0)) / π)) 60)) + "'"
108 Liste arctemp2 Séquence[ArcCercleCirconscrit[Elément[PTcan, i], Elément[PTequ, i], Elément[PTcap, i]], i, 7, 11]
109 Angle zzzz (Si[θ8 > π, θ8, 360° + θ8] - θ7) / 12
110 Angle dθint θ8 - θ7
111 Liste PTint Séquence[(r; θ7 + i dθint / 12), i, 1, 11]
112 Liste Z Séquence[(r; θ7 + (θ8 - θ7 + 2 π) i / 12), i, 1, 11]
113 Liste θcan Séquence[i (θ2 - θ1) / 12 + θ1, i, 1, 11]
114 Liste θcap Séquence[i (θ6 d - θ5) / 12 + θ5, i, 1, 11]
115 Liste θequ Séquence[i (θ4 - θ3) / 12 + θ3, i, 1, 11]
116 Liste θint Séquence[i (θ8 - θ7) / 12 + θ7, i, 1, 11]
Créé avec GeoGebra