| No. | Nom | Commande |
|---|---|---|
| 1 | Angle ε | |
| 2 | Nombre rcap | |
| 3 | Point F | (rcap; ε + 90°) |
| 4 | Point A | |
| 5 | Cercle ccap | Cercle[A, rcap] |
| 6 | Segment sg1 | Segment[A, F] |
| 7 | Point D | (rcap, 0) |
| 8 | Segment sg2 | Segment[D, F] |
| 9 | Point G | Intersection[sg2, axeY] |
| 10 | Nombre requ | Longueur[Vecteur[A, G]] |
| 11 | Cercle cequ | Cercle[A, requ] |
| 12 | Point H | Intersection[cequ, sg1] |
| 13 | Point I | (requ, 0) |
| 14 | Segment sg3 | Segment[H, I] |
| 15 | Point K | Intersection[sg3, axeY] |
| 16 | Nombre rcan | Longueur[Vecteur[A, K]] |
| 17 | Cercle ccan | Cercle[A, rcan] |
| 18 | Point C | Intersection[ccap, DemiDroite[A, (0, -1)]] |
| 19 | Point B | Intersection[ccap, DemiDroite[A, (0, 1)]] |
| 20 | Point E | Intersection[ccap, DemiDroite[A, (-1, 0)]] |
| 21 | Point L | Intersection[ccan, DemiDroite[A, (0, -1)]] |
| 22 | Point M | MilieuCentre[L, B] |
| 23 | Nombre recl | Longueur[Vecteur[M, L]] |
| 24 | Cercle cecl | Cercle[M, recl] |
| 25 | Valeur booléenne fconstruc | |
| 26 | Nombre lgr | |
| 27 | Nombre recl2 | recl - lgr |
| 28 | Cercle cecl2 | Cercle[M, recl2] |
| 29 | Liste slg | Séquence[Segment[Intersection[cecl, DemiDroite[A, (1; α)]], Intersection[cecl2, DemiDroite[A, (1; α)]]], α, 0°, 360°, 5°] |
| 30 | Texte A1 | |
| 31 | Texte A2 | |
| 32 | Texte A3 | |
| 33 | Texte A4 | |
| 34 | Texte A5 | |
| 35 | Texte A6 | |
| 36 | Texte A7 | |
| 37 | Texte A8 | |
| 38 | Texte A9 | |
| 39 | Texte A10 | |
| 40 | Texte A11 | |
| 41 | Texte A12 | |
| 42 | Texte A13 | |
| 43 | Nombre B1 | |
| 44 | Nombre C1 | |
| 45 | Nombre B2 | |
| 46 | Nombre C2 | |
| 47 | Nombre B3 | |
| 48 | Nombre C3 | |
| 49 | Nombre B4 | |
| 50 | Nombre C4 | |
| 51 | Nombre B5 | |
| 52 | Nombre C5 | |
| 53 | Nombre B6 | |
| 54 | Nombre C6 | |
| 55 | Nombre B7 | |
| 56 | Nombre C7 | |
| 57 | Nombre B8 | |
| 58 | Nombre C8 | |
| 59 | Nombre B9 | |
| 60 | Nombre C9 | |
| 61 | Nombre B10 | |
| 62 | Nombre C10 | |
| 63 | Nombre B11 | |
| 64 | Nombre C11 | |
| 65 | Nombre B12 | |
| 66 | Nombre C12 | |
| 67 | Nombre B13 | |
| 68 | Nombre C13 | |
| 69 | Liste alpha | {B1, B2, B3, B4, B5, B6, B7, B8, B9, B10, B11, B12, B13} |
| 70 | Liste delta | {C1, C2, C3, C4, C5, C6, C7, C8, C9, C10, C11, C12, C13} |
| 71 | Nombre net | |
| 72 | Liste PP | Séquence[(Longueur[Vecteur[Intersection[Droite[(requ; Elément[delta, i] π / 180 + 90°), I], axeY], A]]; Elément[alpha, i] 15 π / 180 + 180°), i, 1, net] |
| 73 | Liste P | Séquence[(requ tan(45° - Elément[delta, i] / 2 π / 180); Elément[alpha, i] π / 180 * 15 + 180°), i, 1, net] |
| 74 | Cercle cecl3 | Cercle[M, recl2 - lgr] |
| 75 | Liste slg2 | Séquence[Segment[Intersection[cecl, DemiDroite[A, (1; α)]], Intersection[cecl3, DemiDroite[A, (1; α)]]], α, 0°, 360°, 30°] |
| 76 | Segment sed | Segment[E, D] |
| 77 | Segment sBC | Segment[B, C] |
| 78 | Texte texte1 | |
| 79 | Texte texte2 | |
| 80 | Cercle cequ2 | Cercle[A, requ + lgr / 3] |
| 81 | Liste sge | Séquence[Segment[Intersection[cequ, DemiDroite[A, (1; α)]], Intersection[cequ2, DemiDroite[A, (1; α)]]], α, 0°, 360°, 1°] |
| 82 | Cercle caxe | Cercle[A, 1] |
| 83 | Cercle cext | Cercle[A, rcap + 0.5] |
| 84 | Cercle cequ3 | Cercle[A, requ + lgr] |
| 85 | Liste sge10 | Séquence[Segment[Intersection[cequ, DemiDroite[A, (1; α)]], Intersection[cequ3, DemiDroite[A, (1; α)]]], α, 0°, 360°, 10°] |