Acercar

Alejar

f(x) =

Activar rastro

Desactivar

Ver punto sobre F(x)

x_P = -2 (slider from -6 to 10, step 0.01)
f(x) = x / 4 + 1
C = 0 (slider from -5 to 5, step 0.1)
F(x) = Integral[f] + C
CasillaDeEntrada1 = Textfield(f)
texto2: "f(x)=" + (LaTeX[f]) + ""
P: (x_P, F(x_P))
texto1: "F(x)=" + (LaTeX[F]) + ""
t = Tangent(P, F)
m = Slope(t)
Q: (x(P), m)
seg2 = Segment((x(P), 0), Q)
a = false
f_1: f
discri: fractionalPart(Sum[(1000 * Reverse[Coefficients[F]])]) ≟ 0
texto3: "" + m + ""
Q_1: "F(x) = " + (LaTeX[If[discri, Polynomial[F], F]]) + ""