f(x)=

x

secante

tangente

h

x+h

f(x+h)-f(x)

f(x) = x^(2)
CasillaDeEntrada1 = Textfield(f)
h = -0.05 (slider from -1 to 1, step 0.05)
A = Point(xAxis)
g = OrthogonalLine(A, xAxis)
P = Intersect(f, g, (1.0269086022929907, 1.0545412774633438))
Q: (x(A) + h, f(x(A) + h))
i = OrthogonalLine(Q, xAxis)
s = Line(P, Q)
t = Tangent(P, f)
l = OrthogonalLine(P, g)
R = Intersect(i, l)
m = Segment(P, R)
C = Intersect(i, xAxis)
n = Segment(A, P)
p = Segment(C, Q)
q = Segment(Q, R)
polígono1, r, p_1, q_1 = Polygon(P, Q, R)