Faire varier la longueur AB=a à l'aide du curseur a et décrire les variations de l'aire du triangle DNA

Afficher P(a;aire(DNA))

a = 8.1 (slider from 6 to 12, step 0.1)
A = (0, 0)
B: (a, 0.0)
C: (a, 12.0 - a)
D: (0.0, 12.0 - a)
poly1, a_1, b, c, d = Polygon(A, B, C, D)
e = Segment(A, C)
B' = Mirror(B, e)
f = Segment(A, B')
g = Segment(B', C)
N = Intersect(c, f)
poly2, a_2, d_1, n = Polygon(D, N, A)
Textepoly2: "Aire " + (Name[D]) + (Name[N]) + (Name[A]) + " = " + poly2
h = false
P: (a, poly2)