a = 1 (slider from -5 to 5, step 0.1)
b = -1 (slider from -5 to 5, step 0.1)
c = 3 (slider from -5 to 5, step 0.1)
d = 5 (slider from 0 to 6, step 1)
e = 2 (slider from 0 to 6, step 1)
g = 3 (slider from 0 to 6, step 1)
s = 1 (slider from 0 to 6, step 1)
p = -0.8 (slider from -5 to 5, step 0.1)
q = 2.4 (slider from -5 to 5, step 0.1)
f(x) = s * (x - a)^(d) * (x - b)^(e) * (x - c)^(g)
n = 27 (slider from 0 to 300, step 1)
Felső = UpperSum(f, p, q, n)
Alsó = LowerSum(f, p, q, n)
Kül: UpperSum[f, p, q, n] - LowerSum[f, p, q, n]
koraci = 2 (slider from 1 to 3, step 1)
P: (p, 0)
"Alsó összeg₌" + (LaTeX[Alsó]) + "": "Alsó összeg ₌" + (LaTeX[Alsó]) + ""
szöveg1: "Alsó összeg  ₌  " + (LaTeX[Alsó]) + ""
szöveg2: "Felsőösszeg = " + Felső + ""
szöveg3: "Különbség  = " + Kül + ""
h = OrthogonalLine(P, xAxis)
Q: (q, 0)
szöveg4: "f(x) ₌ " + f + ""