Equivalente ftraction
Author: Daniel Mentrard

PGCD[d_1, f]

PPCM[d_1, d_2]

PGCD[d_2, f]

PGCD[nnf, f]

=

Choose your  fractions here and wait animation if it is simplified

No simplification

n_1 = 11 (slider from 0 to d_1, step 1)
d_1 = 33 (slider from 1 to 200, step 1)
h = GCD(n_1, d_1)
t = 2.5 (slider from 0 to 2.5, step 0.01)
A = (-3.5, 0)
Longueur = 12 (slider from 1 to 15, step 0.1)
B: (x(A) + 5 + Longueur, y(A))
Hauteur = 1.8 (slider from -5 to 5, step 0.1)
a = Segment(A, B)
c = RandomNormal(2, 4)
b = RandomBinomial(2, 3)
d = Binomial(4, 2)
texte5: "" + h
C: (x(A) + 5 + Longueur, y(A) - Hauteur)
D: (x(A), y(A) - Hauteur)
Pointbas = Sequence((x(D) + i * a / d_1, y(D)), i, 0, d_1)
Pointhaut = Sequence((x(A) + i * a / d_1, y(A)), i, 0, d_1)
liste1 = Sequence(Segment[Element[Pointhaut, i], Element[Pointbas, i]], i, 1, d_1 + 1)
Total, a_2, b_1, c_1, d_4 = Polygon(A, B, C, D)
Morceau, a_1, d_3, i, j = Polygon(A, D, Element[Pointbas, n_1 + 1], Element[Pointhaut, n_1 + 1])
E: A - (0, t)
F: (x(E) + 5 + Longueur, y(E))
G: (x(E), y(E) - Hauteur)
H: (x(E) + 5 + Longueur, y(E) - Hauteur)
poly1, e, f_1, h_1, g_1 = Polygon(E, F, H, G)
L2 = Sequence((x(G) + i * e / (d_1 / h), y(G)), i, 0, d_1 / h)
L3 = Sequence((x(E) + i * e / (d_1 / h), y(E)), i, 0, d_1 / h)
liste2 = Sequence(Segment[Element[L3, i], Element[L2, i]], i, 1, d_1 / h + 1)
texte1: " \frac{ " + (n_1 / h) + " }{" + (d_1 / h) + " } "
texte12: " \frac{ " + n_1 + " }{" + d_1 + " } "
poly2, e_1, g, f, k = Polygon(E, G, Element[L2, n_1 / h + 1], Element[L3, n_1 / h + 1])
l = Line(A, yAxis)
Vitesse = If(h * h ≟ 1, 0, 5)
texte21: "This fraction can be
 simplified by : " + h + ""