A = Intersect(xAxis, yAxis)
B = (5, 5)
a = Ray(A, B)
denominador = 3 (slider from 1 to 15, step 1)
c = Segment((denominador / 10, denominador / 10), (1, 0))
numerador = 5 (slider from 1 to 15, step 1)
e = Line((numerador / 10, numerador / 10), c)
C = Intersect(e, xAxis)
llista1 = Sequence((i / 10, i / 10), i, 1, Max[numerador, denominador] + 3)
b = Segment((numerador / 10, numerador / 10), C)
text1: "$ \frac{" + (LaTeX[numerador]) + "}{" + (LaTeX[denominador]) + "}≅" + (LaTeX[numerador / denominador]) + " $"