y=

k = 0.3 (slider from -5 to 5, step 0.1)
f(x) = (k * x^(2))
A = Point(xAxis)
g = OrthogonalLine(A, xAxis)
P = Intersect(f, g, 1)
h = OrthogonalLine(P, yAxis)
B = Intersect(h, yAxis)
i = Segment(P, B)
j = Segment(P, A)
k_1 = Tangent(P, f)
m = Slope(k_1)
CasillaDeEntrada1 = Textfield(f)
texto1: "Pendiente=" + (LaTeX[m]) + ""