a

b

secante

tangente

c

tg

Demostración

f(x) = ((0.5 * x) - 2)^(3) - ((0.5 * x) - 2) + 1
A = Point(f)
B = Point(f)
AA: (x(A), 0)
BB: (x(B), 0)
g = Segment(A, B)
a = CurveCartesian(u, f(u), u, x(A), x(B))
C = Point(a)
h = Tangent(C, f)
CC: (x(C), 0)
m_{sec}: (y(B) - y(A)) / (x(B) - x(A))
m_{tg} = Slope(h)
i = Segment(AA, BB)
texto1: "m_{sec}=" + (LaTeX[m_{sec}]) + ""
texto2: "m_{tg}=" + (LaTeX[m_{tg}]) + ""
b = false
D = Point(i)
j = OrthogonalLine(D, i)
E = Intersect(j, a)
F = Intersect(j, g)
k = Segment(E, F)
c = false