f+M

g+M

Acercar

Alejar

f(x) =

g(x) =

f(x) = x^(2) - 1
M = 0 (slider from -5 to 10, step 0.1)
fmasM(x) = f(x) + M
g(x) = x / 2 + 2
gmasM(x) = g(x) + M
A, B, C = Intersect(fmasM, gmasM)
abscisas = RemoveUndefined({x(A), x(B), x(C)})
F(x) = Integral[f] + M
CasillaDeEntrada1 = Textfield(f)
texto2: "f(x)=" + (LaTeX[f]) + ""
discri: fractionalPart(Sum[(1000 * Reverse[Coefficients[F]])]) ≟ 0
A_1, B_1 = Intersect(f, g, -100, 100)
CajaDeEntrada1 = Textfield(g)
texto3: "g(x)= " + (LaTeX[g]) + ""
b = Max(abscisas)
a = Min(abscisas)
d = OrthogonalLine(B, xAxis)
c = OrthogonalLine(A, xAxis)
D = Intersect(c, xAxis)
E = Intersect(d, xAxis)
texto5: "b=" + b
Pa: (a, 0)
Pb: (b, 0)
texto4: "a=" + a + ""
in = IntegralBetween(gmasM, fmasM, a, b)
e = Segment(D, A)
h = Segment(E, B)
ingmasM = Integral(gmasM, a, b)
infmasM = Integral(fmasM, a, b)
k = false
l = false
m = true
textovariable = If(g((a + b) / 2) > f((a + b) / 2), "(g-f)", "(f-g)")
texto8: "\int_{" + (LaTeX[a]) + "}^{" + (LaTeX[b]) + "}{ " + (LaTeX[textovariable]) + "(x)}=" + (LaTeX[abs(in)]) + ""
texto6: "\int_{" + (LaTeX[a]) + "}^{" + (LaTeX[b]) + "}{\left(    " + (LaTeX[LaTeX[fmasM]]) + " \right)dx}=" + (LaTeX[infmasM]) + ""
texto7: "\int_{" + (LaTeX[a]) + " }^{ " + (LaTeX[b]) + "}{\left( " + (LaTeX[LaTeX[gmasM]]) + "     \right)dx}= " + (LaTeX[ingmasM]) + ""
textovariable2 = If(g((a + b) / 2) > f((a + b) / 2), "(g(x)+M)-(f(x)+M)", "(f(x)+M)-(g(x)+M)")
gmenosb = If(g((a + b) / 2) > f((a + b) / 2), gmasM(x) - fmasM(x), fmasM(x) - gmasM(x))
j = OrthogonalLine(C, xAxis)
H = Intersect(j, xAxis)
i = Segment(C, H)