m = 0.3 (slider from -5 to 5, step 0.1)
p(x) = (1 / 4 * x^(2))
k = 2 (slider from -5 to 5, step 1)
s_2(x) = (m * x)
f_2(x) = p(x) + s_2(x)
M = Point(yAxis)
g: s_2
h = Line(M, yAxis)
i: y = (m * x) + y(M)
j = Line(M, h)
K, K' = Intersect(f_2, i)
J = Midpoint(K, K')
l = Segment(K, K')
n: y = y(M)
L, M_1 = Intersect(p, n)
q = Segment(L, M_1)
f: y = 0
r = OrthogonalLine(L, xAxis)
s = OrthogonalLine(K', xAxis)
A = Intersect(r, f)
B_1 = Intersect(s, f)
C = Intersect(g, s)
D = Intersect(g, r)
v2, d, c, i_1, h_1 = Polygon(D, C, K', K)
j' = Mirror(j, r)
E = Intersect(f_2, j')
B = Intersect(f_2, j)
t = Segment(E, B)
e = Line(K, t)
G = Midpoint(B, D)
a = Line(G, j)
F = Intersect(j, e)
b = Line(K', F)
K_1 = Midpoint(B, C)
f_1 = Line(K_1, s)
N = Intersect(a, l)
O = Intersect(j, l)
P = Intersect(l, i_1)
Q = Intersect(l, i_1)
R = Intersect(l, i_1)
S = Midpoint(O, K')
g_1 = Segment(K, D)
j_1 = Segment(N, G)
k_1 = Segment(S, K_1)
l_1 = Segment(K', C)
T = Midpoint(E, B)
m_1 = Line(B, xAxis)
H = Intersect(m_1, r)
U = Intersect(m_1, s)
u = Vector(B, H)
B' = Translate(B, u)
v: (-Vector[B, B'])
w = Vector(U, K')
u_1 = Vector(H, K)
v_1 = Vector(M, B)
I = Midpoint(K, D)
V = Midpoint(K, I)
W = Midpoint(I, D)
Z = Midpoint(K', C)
A_1 = Midpoint(K', Z)
C_1 = Midpoint(Z, C)
n_1 = Segment(V, A_1)
p_1 = Segment(I, Z)
q_1 = Segment(W, C_1)
D_1, E_1 = Intersect(f_2, q_1)