Westermann S29 Nr 3

Xa = 1 (slider from -5 to 5, step 0.1)
p(x) = -x^(2) + 4 x + 1
A_n: (Xa, -Xa^(2) + 4 Xa + 1)
B = (1, -1)
C_n: (Xa + 3, -Xa^(2) - 2 Xa + 4)
poly1, c_n, a_n, b = Polygon(A_n, B, C_n)
Textpoly1: "Fläche " + (Name[A_n]) + (Name[B]) + (Name[C_n]) + " = " + poly1
T1: "X_A  = " + Xa
T2: "X_C  = " + (x(C_n))