x

k = 1.5 (slider from -5 to 5, step 0.1)
A = Point(yAxis)
f(x) = k * x + y(A)
B = Point(xAxis)
d = Segment((0.0, 0.0), A)
c = Segment((0.0, 0.0), B)
C: (x(B), f(x(B)))
e = OrthogonalLine(C, yAxis)
D = Intersect(e, yAxis)
g = Segment(C, D)
h = Segment((0.0, 0.0), D)
i = Segment(B, C)
a = OrthogonalLine(A, d)
E = Intersect(a, i)
F = (0, 0)
Vieleck1, f_1, b, e_1, a_1 = Polygon(F, B, E, A)
Vieleck2, c_1, a_2, e_2 = Polygon(A, E, C)
P: (x(B), Vieleck1 + Vieleck2)
Text1: "A(" + (x(B)) + ") = " + Vieleck2 + " + " + Vieleck1 + " = " + (Vieleck1 + Vieleck2)
j = Segment(B, P)
Text3: "A(x) =\frac {" + k + "x \cdot x} 2  + " + d + "\cdot x"