1

1

I = (0, 1)
p = 0.5 (slider from -10 to 10, step 0.1)
ret(x) = p * x + 1
R = Point(ret)
n = 11 (slider from -13 to 12, step 1)
X: (n * x(R), 0)
X': ((n + 1) * x(R), 0)
A: (x(R), 1)
a = Segment(I, A)
b = Segment(I, X)
c = Segment(A, X')
B: (0, y(R))
d = Segment(X, X')
U = (1, 0)
e = Segment(U, I)
M: (y(R), 0)
g = Segment(B, M)
h = Segment(R, A)
i = Segment(R, B)
P: (n * x(R), y(R)^(n))
P': ((n + 1) * x(R), y(R)^(n + 1))
Y: (0, y(R)^(n))
j = Segment(U, Y)
Y': (0, y(R)^(n + 1))
k = Segment(M, Y')
l = Segment(Y, P)
m = Segment(P, X)
q = Segment(Y', P')
r = Segment(P', X')
esp = Sequence((k * x(R), y(R)^(k)), k, -floor(3 / x(R)), floor(3 / x(R)))
f = Segment(P, P')