INICIO

a = 8.2 (slider from 0 to 8.5, step 0.1)
b = 720 (slider from 0 to 1000, step 1)
c = 1.6 (slider from 0 to 10, step 0.1)
d_{2} = 2.8 (slider from 0 to 8, step 0.1)
t = 0.1 (slider from 0 to 20, step 0.1)
d(t) = If[0 ≤ t < 14, 1.5 + a / (1 + (b * ℯ^(((-c) * t) + d_{2})))]
A: (t, 0)
f = OrthogonalLine(A, xAxis)
B = Intersect(d, f)
f_1 = 2.25 (slider from -5 to 5)
f_2: 3.5
f_3: 8.5
f_4: 9.5