a

b

$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 = Ray(A, A + (1, 0))
B = Point(xAchseAbA)
b: x(B)
If = Integral(f, a, b)
c = true
d = false
Ig = Integral(g, a, b)
Af = Integral(f, 1, 100)
Ag = Integral(g, 1, 100)
Text2: "A_{[1;" + (LaTeX[b]) + "]} = " + (LaTeX[If]) + ""
Text5: "A_{[1;" + (LaTeX[b]) + "]} =  " + (LaTeX[Ig]) + ""