1

0

i

U = (1, 0)
O = (0, 0)
I = (0, 1)
a = Line(O, U)
b = Line(O, I)
c = Line(I, a)
nmax = 5
lista1 = Sequence(O + (k * (U - O)), k, (-nmax), nmax)
m = 3 (slider from 1 to 10, step 1)
lista5 = Sequence(O + (k * (U - O) / m), k, ((-m) * nmax), (m * nmax))
lista2 = Sequence(I + (k * (U - O) / m), k, ((-m) * nmax), (m * nmax))
lista4 = Sequence(Segment[I + (k * (U - O) / m), O + (k * (U - O) / m)], k, ((-m) * nmax), (m * nmax))
lista6 = Sequence(Segment[I + (k * (U - O) / m), O + ((k + 1) * (U - O) / m)], k, ((-m) * nmax), (m * nmax) - 1)
r = Segment(U, O + (m * (I - O)))
lista7 = Sequence(Segment[O + (k * (U - O)), O + (k * (I - O))], k, 1, nmax)
lista3 = Sequence(O + (k * (I - O)), k, 2, nmax)
d = Segment(I, O + (U - O) / m)