a

b

tangente

c

tg

f(a)=f(b)

f(x) = ((2 * x) - 2)^(3) - ((2 * x) - 2) + 0.5
A = Point(f)
B = Point(f)
AA: (x(A), 0)
BB: (x(B), 0)
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
mtg: m_{tg}
msec: m_{sec}
texto3 = If(mtg ≟ msec, "ZoomIn (1)", "StartAnimation(C, true)")
mm = Slope(h)
D: (0, f(x(A)))