d

a

1

(0, 0)

grid

dividir el eje x

dividir el eje y

m = 0 (slider from 0 to 10, step 1)
n = 0 (slider from 0 to 10, step 1)
A: (10, 0)
skip: 10 / n
list1 = Sequence(Segment[((skip * i), 2), ((skip * i), -2)], i, 0, n)
list2 = Sequence(Text[i, ((skip * i) - 0.2, -11)], i, 1, n)
B: (0, 100)
hop: 100 / m
list3 = Sequence(Segment[(-0.2, (hop * j)), (0.2, (hop * j))], j, 0, m)
list4 = Sequence(Text[(10 * j), (-1.3, (hop * j) - 1)], j, 1, m)
text7 = RotateText(text1, π / 2)