f(x) = 0.0 * x * x * x - 0.12 * x * x + 0.39 * x + 31.3
g(x) = -(0.086) * x * x + 1.166 * x + 31.594
h(x) = -(0.0050) * x * x * x - 0.0070 * x * x - 0.123 * x + 31.687
p(x) = -(0.1) * x * x + 0.36 * x + 31.28
q(x) = -(0.08) * x * x + 32.0
a = 5 (slider from 0 to 15, step 1)
s(x) = -(0.08) * ((32.0 + a) / (0.08 * (20.0 + a) * (20.0 + a)) * x)^(2.0) + 32.0 + a
r(x) = -(0.08) * x * x / (1.0 + a / 20.0)^(2.0) + 40.0 - a
t(x) = (-40.0 + a) / (20.0 + a)^(2.0) * (x - 20.0 - a) * (x + 20.0 + a)
f_1(x) = (a - 40.0) / (a + 20.0)^(2.0) * x^(2.0) + 57.6 - 1.44 * a
A, B = Intersect(f_1, xAxis)
C = Intersect(f_1, yAxis)
b = OrthogonalLine(C, yAxis)
c = OrthogonalLine(A, xAxis)
d = OrthogonalLine(B, xAxis)
D = Intersect(b, c)
E = Intersect(d, b)
poly1, a_1, d_1, e, b_1 = Polygon(A, D, E, B)
i = Segment(A, D)
j = Segment(E, D)
k = Segment(E, B)
l = Segment(B, A)