LR

g

g

r = 1 (slider from -5 to 5, step 0.1)
modulo(x, y) = ((x / y - floor(x / y)) * y)
f8(n) = If[modulo(n, 2) > 0, 0, If[modulo(n, 4) > 0, 1, -1]]
f7(n) = If[modulo(n, 2) > 0, 1 - 1 / n, 1]
f1(n) = (2 * (1 - 0.7^(n)))
f3(n) = 1 / n^(2)
f4(n) = 1 + (-1)^(n)
f2(n) = If[modulo(n, 2) > 0, -1 + ((n - 1) * 0.25), -1 + ((n - 2) * 0.25)]
f6(n) = 1
f5(n) = ((-1)^(n - 1) * 1 / n)
G = Point(yAxis)
G1: G + (1, 0)
g: y(G)
a = Mod(7, 2)
s = Segment((4.5, 0), (95.5, 0))
N = Point(s)
f(n) = 1 / n^(r)
L: x(N) - 5
R: x(N) + 5
O = Max(g + 2, 2)
U = Min(g - 2, -2)
F = Sequence((i, f(i)), i, 1, 100)
h = Ray(G, G1)
Text1_{1}: "a_n = \frac{1}{n^{" + (LaTeX[r]) + "}}"