Fracción a descomponer:

Fracciones egipcias (denominadores):

Ver fracción equivalente

Ver Ayuda

denominador = 6 (slider from 2 to 40, step 1)
numerador = 5 (slider from 1 to denominador, step 1)
A = (1.44, 2.56)
B: (x(A) + 3, y(A))
c = Circle(A, B)
a = Segment(A, B)
lista1 = Sequence(Segment[Rotate[A, ((2 * k) * π / denominador), A], Rotate[B, ((2 * k) * π / denominador), A]], k, 1, denominador)
texto2: "\frac {" + (LaTeX[numerador]) + "}{" + (LaTeX[denominador]) + "}"
d1 = 2 (slider from 2 to 10000, step 1)
d2 = 3 (slider from d1 + 1 to 10000, step 1)
d3 = 25 (slider from d2 + 1 to 10000, step 1)
d4 = 26 (slider from d3 + 1 to 10000, step 1)
CasillaDeEntrada1 = Textfield(d1)
CasillaDeEntrada2 = Textfield(d2)
CasillaDeEntrada3 = Textfield(d3)
CasillaDeEntrada4 = Textfield(d4)
cantidadfracciones = 0 (slider from 0 to 4, step 1)
textofr1mal = FractionText(1 / d1)
textofr2 = FractionText(1 / d2)
textoresulta2 = FractionText(1 / d1 + 1 / d2)
textosuma2mal: "" + (LaTeX[textofr1mal]) + " + " + (LaTeX[textofr2]) + "=" + (LaTeX[textoresulta2]) + ""
textosuma2bien: "" + (LaTeX[textofr1mal]) + " + " + (LaTeX[textofr2]) + "=" + (LaTeX[textoresulta2]) + ""
textofr3 = FractionText(1 / d3)
textofr4 = FractionText(1 / d4)
textoresulta3 = FractionText(1 / d1 + 1 / d2 + 1 / d3)
textoresulta4 = FractionText(1 / d1 + 1 / d2 + 1 / d3 + 1 / d4)
textosuma3mal: "" + (LaTeX[textofr1mal]) + " + " + (LaTeX[textofr2]) + "+" + (LaTeX[textofr3]) + "=" + (LaTeX[textoresulta3]) + ""
textosuma3bien: "" + (LaTeX[textofr1mal]) + " + " + (LaTeX[textofr2]) + "+" + (LaTeX[textofr3]) + "=" + (LaTeX[textoresulta3]) + ""
textosuma4mal: "" + (LaTeX[textofr1mal]) + " + " + (LaTeX[textofr2]) + "+" + (LaTeX[textofr3]) + "+" + (LaTeX[textofr4]) + "=" + (LaTeX[textoresulta4]) + ""
textosuma4bien: "" + (LaTeX[textofr1mal]) + " + " + (LaTeX[textofr2]) + "+" + (LaTeX[textofr3]) + "+" + (LaTeX[textofr4]) + "=" + (LaTeX[textoresulta4]) + ""
d = CircleSector(A, B, Rotate[B, ((numerador * 2) * π / denominador), A])
e = CircleSector(A, B, Rotate[B, (2 * π / d1), A])
f = CircleSector(A, Rotate[B, (2 * π / d1), A], Rotate[B, (2 * π / d1) + (2 * π / d2), A])
g = CircleSector(A, Rotate[B, (2 * π / d1) + (2 * π / d2), A], Rotate[B, (2 * π / d1) + (2 * π / d2) + (2 * π / d3), A])
h = CircleSector(A, Rotate[B, (2 * π / d1) + (2 * π / d2) + (2 * π / d3), A], Rotate[B, (2 * π / d1) + (2 * π / d2) + (2 * π / d3) + (2 * π / d4), A])
C = (-14, 2)
D = (12, 2)
E = (12, -2)
F = (-14, -2)
polígono1, c_1, d_1, e_1, f_1 = Polygon(C, D, E, F)
factor = 2 (slider from 2 to 10, step 1)
nuevodeno: (factor * denominador)
texto5: "\frac{" + (LaTeX[numerador]) + "}{" + (LaTeX[denominador]) + "}=\frac{" + (LaTeX[(numerador * factor)]) + "}{" + (LaTeX[nuevodeno]) + "}"
verfe = false
verayuda = false
divisible = If(verfe, (denominador * factor), denominador)
texto4: "Divisores de " + divisible + ": " + (DivisorsList[divisible]) + ""
k = Circle(A, B)
texto6 = FractionText(1 / d1)