b

a

$A_1^b$

A_{[1;b]}

f(x) = \frac{1}{x^2}

f

g

g(x) = \frac{1}{\sqrt{x}}

A_{[1;b]}

g(x) = 1 / sqrt(x)
r = -2 (slider from -5 to 0)
f(x) = If[x > 0, x^(r)]
a = 1
A: (a, 0)
xAchseAbA = Segment((0, 0), (1, 0))
B = Point(xAchseAbA)
b: x(B)
If = Integral(f, b, a)
c = false
d = true
Ig = Integral(g, b, a)
Af = Integral(f, 0.0001, 1)
Ag = Integral(g, 0.0001, 1)
Text2: "A_{[1;" + (LaTeX[b]) + "]} = " + (LaTeX[If]) + ""
Text5: "A_{[1;" + (LaTeX[b]) + "]} =  " + (LaTeX[Ig]) + ""