INICIO

P_1

P_2

Δt

ΔD

a = 2.8 (slider from 0 to 8.5, step 0.1)
b = 1000 (slider from 0 to 1000, step 1)
c = 1.4 (slider from 0 to 10, step 0.1)
d_{2} = 7.1 (slider from 0 to 8, step 0.1)
t = 7.7 (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
C = Point(D)
D_{1} = Point(D)
E = Point(D)
SECANTE = Line(D_{1}, E)
g = OrthogonalLine(E, xAxis)
h = OrthogonalLine(D_{1}, g)
F = Intersect(g, h)
i = Segment(D_{1}, F)
j = Segment(F, E)