Usa lo slider per variare l'ascissa
x_A del punto A e osserva: 
- la tangente t_A;
- l'equazione della tangente t_A.

y=\frac{1}{3}x^3-x

f(a)

a

y = f(x)

y

x

t_A

Equazione della tangente t_A
       y - f(a) = f'(a)(x-a)

f(x) = (-1 / 3 * x^(3)) + (2 * x)
x_A = 1 (slider from -0.5 to 1.5, step 0.1)
A: (x_A, f(x_A))
t_A = Tangent(A, f)
O = (0, 0)
a = OrthogonalLine(A, xAxis)
b = OrthogonalLine(A, yAxis)
B = Intersect(yAxis, b)
C = Intersect(xAxis, a)
c = Segment(A, B)
d = Segment(A, C)
t = -0.5 (slider from -2 to 1.5, step 0.25)
P: (t, t + 2 / 3)
e = OrthogonalLine(P, xAxis)
g = OrthogonalLine(P, yAxis)
D = Intersect(yAxis, g)
F = Intersect(e, xAxis)
h = Segment(P, D)
i = Segment(P, F)
E = (-1.4272907032151891, 1.1770230962818315)
G = (-0.35711090481318447, 1.1647691291245565)