unidad

AMPLIACIÓN

Ver ampliación

α = 0.7853981633974483 rad (slider from 5*° to 85*°, step 0.08726646259971647)
denominador = 3 (slider from 2 to 7, step 1)
numerador = 17 (slider from 1 to 21, step 1)
cociente = Div(numerador, denominador)
C: (cociente, 0)
C1: C + (1, 0)
c = Ray(C, C + (1, tan(α)))
A = (-4, 5)
a = Segment(A + (0.2, 0), A + (3, 0))
B = Point(a)
b = Segment(A, B)
u: (b * UnitVector[c])
lista1 = Sequence(C + (k * u), k, 1, denominador)
U = Element(lista1, denominador)
d = Line(U, C1)
O = (0, 0)
lista2 = Sequence(Line[Element[lista1, k], d], k, 1, denominador - 1)
Resto = Mod(numerador, denominador)
e = Segment(O, C)
paralela = Element(lista2, Resto)
D = Intersect(paralela, xAxis)
f = Segment(C, D)
texto2: "\frac{" + (LaTeX[numerador]) + "}{" + (LaTeX[denominador]) + "}=" + (LaTeX[cociente]) + "+\frac{" + (LaTeX[Resto]) + "}{" + (LaTeX[denominador]) + "}"
E = (-4, 4)
F = (0, 4)
g = Segment(E, F)
lista1' = Sequence(E + ((4 * k) * u), k, 1, denominador)
c' = Ray(E, E + (1, tan(α)))
lista3 = Sequence(E + (k * (4 / denominador, 0)), k, 1, denominador)
lista4 = Sequence(Segment[Element[lista1', k], Element[lista3, k]], k, 1, denominador)
paralela' = Element(lista4, Resto)
D' = Intersect(paralela', g)
f' = Segment(E, D')
texto4: "" + cociente + ""
texto5: "" + (cociente + 1) + ""
amp = false
h = Segment((-10, 4), E)
texto6: "\frac{" + (LaTeX[numerador]) + "}{" + (LaTeX[denominador]) + "}=" + (LaTeX[cociente]) + ""