+/-

LR

g

g

+

-

v = true
q = 0.5 (slider from -2 to 2, step 0.1)
c = 4 (slider from -5 to 5, step 0.1)
G = Point(yAxis)
G1: G + (1, 0)
g: y(G)
a_{1} = Mod(7, 2)
s = Segment((4.5, 0), (95.5, 0))
N = Point(s)
f(n) = If[v, c + q^(n), c - q^(n)]
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)
Text2: "a_n = " + (LaTeX[c]) + " - " + (LaTeX[q]) + "^n"
Text1: "a_n = " + (LaTeX[c]) + " + (" + (LaTeX[q]) + ")^n"