Unterere Grenze a=

Obere Grenze b=

Grenzen:

f(x)=

Funktion:

Teilflächen:

Gesamtfläche:

Integral:

Die  \; Grenzen \; sind \; falsch!

Schnittpunkte mit x-Achse:

keine \; Nullstelle \; vorhanden 

f(x) = (x - 3)^(2) - 4
a = 0
b = 0.5 (slider from 0 to 10, step 0.1)
Textfeld1 = Textfield(a)
Textfeld2 = Textfield(b)
Textfeld3 = Textfield(f)
NST: {Root[f]}
xNST = Sequence(x(Element[NST, i]), i, 1, Length[NST])
c = Integral(f, a, b)
Grenzen = Sort(Join[{RemoveUndefined[Sequence[If[(Element[xNST, i] > a) ∧ (Element[xNST, i] < b), Element[xNST, i]], i, 1, Length[xNST]]], {a, b}}])
TI = Sequence(Integral[f, Element[Grenzen, i], Element[Grenzen, i + 1]], i, 1, Length[Grenzen] - 1)
TI_{abs} = Sequence(abs(Element[TI, i]), i, 1, Length[TI])
Fläche = Sum(TI_{abs})
Text8: "\int_{" + (LaTeX[a]) + "}^{" + (LaTeX[b]) + "}{" + (LaTeX[f]) + " } \; dx = " + (LaTeX[c]) + ""
Text6: "A = " + (LaTeX[Fläche]) + " \; FE "
Text4: "" + (LaTeX[TI_{abs}]) + ""
Grenztest: a < b
Text11: "" + (LaTeX[NST]) + ""
NSTTest = Defined(Root[f])
Text13 = LaTeX(b, true, true)