0

1

x

show orbit

show diagrams

A = Intersect(xAxis, yAxis)
l = OrthogonalLine(A, xAxis)
g = OrthogonalLine(A, l)
B = Point(g)
u = Vector(A, B)
lines = Sequence(Translate[l, Vector[(n * u)]], n, 1, 9)
C = Point(l)
m = 0.6 (slider from -3 to 3, step 0.1)
b = 1 (slider from -9 to 9, step 0.1)
f(x) = (m * x) + b
ins = Sequence(-9, 9, 1)
outs = Sequence(f(ins(i)), i, 1, 19)
L_1 = Sequence(Segment[(0, (ins(i) * y(C))), (x(B), (outs(i) * y(C)))], i, 1, 19)
text1: "y=" + (LaTeX[m]) + "x+" + (LaTeX[b]) + ""
A1: 0
A2: 1
A3 = 2
A4 = 3
A5 = 4
A6 = 5
A7 = 6
A8 = 7
A9 = 8
D = Point(l)
B1: y(D) / y(C)
B2: f(B1)
B3: f(B2)
B4: f(B3)
B5: f(B4)
B6: f(B5)
B7: f(B6)
B8: f(B7)
B9: f(B8)
A10 = 9
B10: f(B9)
L_2: {B1, B2, B3, B4, B5, B6, B7, B8, B9, B10}
orbit = Sequence(((n * x(B)), (L_2(n + 1) * y(C))), n, 0, 9)
h = PolyLine(orbit)
L_n = Sequence(Translate[L_1, Vector[(u * n)]], n, 1, 8)
a = false
c = true
L_3: {B1, B2, B3, B4, B5, B6, B7, B8, B9, B10}