a_1 = 1 (slider from -5 to 5, step 0.1)
m = 2.4 (slider from -5 to 5, step 0.1)
k = 0.6 (slider from -5 to 5, step 0.1)
q(x) = a_1 * (x - m)^(2) + k
b_1: -2 * a_1 * m
c_1: a_1 * m^(2) + k
F_q: (m, k + 1 / (4 * a_1))
d_q: y = k - 1 / (4 * a_1)
P = Point(q)
V = Extremum(q)
e_1 = OrthogonalLine(P, d_q)
K = Intersect(d_q, e_1)
g_1 = Segment(P, K)
h_1 = Segment(P, F_q)