a = 0.1 (slider from 0.1 to 5, step 0.1)
b = 0 (slider from -5 to 5, step 0.1)
c = 5 (slider from -5 to 5, step 0.1)
f(x) = a * x^(2.0) + b * x + c
g = Function(f, -10.0, 10.0)
μετακινησηLETHO = 6.9 (slider from -10 to 10, step 0.1)
LEHTO: (μετακινησηLETHO, g(μετακινησηLETHO))
μετακινησηSCHUMACHER = 2.9 (slider from -10 to 10, step 0.1)
SCHUMACHER: (μετακινησηSCHUMACHER, g(μετακινησηSCHUMACHER))
h = Line(SCHUMACHER, LEHTO)
i = Segment(SCHUMACHER, LEHTO)
j = Slope(h)
k = Line(LEHTO, yAxis)
C = Intersect(k, xAxis)
l = Line(SCHUMACHER, yAxis)
D = Intersect(l, xAxis)
m = Segment(LEHTO, C)
n = Segment(SCHUMACHER, D)
μετακινησηAYRTON = 5.2 (slider from -10 to 10, step 0.1)
AYRTON: (μετακινησηAYRTON, g(μετακινησηAYRTON))
q = Line(AYRTON, yAxis)
F = Intersect(q, xAxis)
r = Segment(F, AYRTON)
s = Tangent(AYRTON, g)
λ = Slope(s)
Q: (-1.0 * 1.0 * 1.0 * 1.0 * 1.0 * b / (2.0 * a), g(-1.0 * 1.0 * 1.0 * 1.0 * 1.0 * b / (2.0 * a)))