la chèvre

mètres

Un cube en ciment est placé au milieu d’un grand pré, à l’un des coins inférieurs de celui-ci 
est fixé un anneau métallique. A l’extrémité d’une corde, fixée à cet anneau, est attaché une 
chèvre.  

Longueur de la corde en mètres:

longueur = 1.7 (slider from 1 to 6, step 0.1)
A: (-1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * longueur, 0.0)
B: (0.0, longueur)
C = (0, 0)
SecteurCirculaire[A, C, B] = CircleSector(C, A, B)
D: (-1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0, longueur - 1.0)
E = (-1, 0)
SecteurCirculaire[E, A, D] = CircleSector(E, D, A)
F = (0, 1)
G: (1.0 - longueur, 1.0)
SecteurCirculaire[F, G, B] = CircleSector(F, B, G)
a: CircleSector[C, A, B] + CircleSector[E, D, A] + CircleSector[F, B, G]
H = Intersect(CircleSector[E, D, A], CircleSector[F, B, G])
Intersection[SecteurCirculaire[E, A, D], SecteurCirculaire[F, B, G]] = Intersect(CircleSector[E, D, A], CircleSector[F, B, G])
I = (-1, 1)
SecteurCirculaire[F, H, G]: CircleSector[F, H, G] - Polygon[F, I, H]
c: 2.0 * (CircleSector[F, H, G] - Polygon[F, I, H])
Aire_1 = If(longueur < 2.0, a, a - c)
Aire: (longueur + 5.0, Aire_1 / 10.0)
(l, Aire / 10): (longueur + 5.0, Aire_1 / 10.0)
texte1: "Aire totale broutée =" + Aire_1 + " mètres carrés"