Diviseurs
Author: Daniel Mentrard

Tous les produits possibles

Voir la liste

f = 60 (slider from 1 to 200, step 1)
m = If(f ≤ 100, f, 100)
n = Random(1, 60)
poly1, a, b, c, d = Polygon((1, 7), (1 + 0.5 * m, 7), (1 + 0.5 * m, 6.5), (1, 6.5))
div = RemoveUndefined(Sequence[If[Mod[f, j] ≟ 0, j], j, 1, f])
nombreprod = If(IsInteger[Length[div] / 2], Length[div] / 2, Length[div] / 2 + 0.5)
prod4 = Element(div, 4)
prod1 = Element(div, 1)
prod2 = Element(div, 2)
prod3 = Element(div, 3)
prod5 = Element(div, 5)
fact1: f / prod1
fact2: f / prod2
fact3: f / prod3
fact4: f / prod4
fact5: f / prod5
texte6: "" + prod2 + " x " + fact2
texte7: "" + prod3 + " x " + fact3
texte8: "" + prod4 + " x " + fact4
texte9: "" + prod5 + " x " + fact5
prod6 = Element(div, 6)
fact6: f / prod6
liste5 = Sequence(Segment[(1, 1 - 0.5 * k), (1 + 0.5 * fact2, 1 - 0.5 * k)], k, 0, prod2)
liste8 = Sequence(Segment[(1 + 0.5 * k, 1), (1 + 0.5 * k, 1 - 0.5 * prod2)], k, 0, fact2)
liste9 = Sequence(Segment[(1 + 0.5 * k, -2), (1 + 0.5 * k, -2 - 0.5 * prod3)], k, 0, fact3)
liste6 = Sequence(Segment[(1, -2 - 0.5 * k), (1 + 0.5 * fact3, -2 - 0.5 * k)], k, 0, prod3)
liste2 = Sequence(Segment[(1, 3 - 0.5 * k), (1 + 0.5 * fact1, 3 - 0.5 * k)], k, 0, prod1)
liste3 = Sequence(Segment[(1 + 0.5 * k, 3), (1 + 0.5 * k, 3 - 0.5 * prod1)], k, 0, fact1)
texte2: "" + prod1 + " x " + fact1
texte3: "" + prod6 + " x " + fact6
A = (0.29438799999999976, 5.507422)
B = (28.990747999999996, 5.448858)
e = Line(A, B)
C = (38.01751014000001, -11.297224980000006)
D = (43.96175614000003, -11.297224980000006)
E = (40.743295386799986, -1.0608702711999967)
liste11 = Sequence(Segment[(x(E) + 0.5 * k, y(E) - 2), (x(E) + 0.5 * k, y(E) - 2 - 0.5 * prod5)], k, 0, fact5)
liste4 = Sequence(Segment[(x(E), y(E) - 2 - 0.5 * k), (x(E) + 0.5 * fact5, y(E) - 2 - 0.5 * k)], k, 0, prod5)
F = (40.914782491599986, -9.163635972999991)
liste12 = Sequence(Segment[(x(F) + 0.5 * k, y(F) - 2), (x(F) + 0.5 * k, y(F) - 2 - 0.5 * prod6)], k, 0, fact6)
liste13 = Sequence(Segment[(x(F), y(F) - 2 - 0.5 * k), (x(F) + 0.5 * fact6, y(F) - 2 - 0.5 * k)], k, 0, prod6)
G = (0.9582870731999958, -9.84958439219999)
liste10 = Sequence(Segment[(x(G) + 0.5 * k, y(G) - 1), (x(G) + 0.5 * k, y(G) - 1 - 0.5 * prod4)], k, 0, fact4)
liste7 = Sequence(Segment[(x(G), y(G) - 1 - 0.5 * k), (x(G) + 0.5 * fact4, y(G) - 1 - 0.5 * k)], k, 0, prod4)
ff: f - 15
texte5: "" + div + ""
liste14 = Sequence(Segment[(1 + k * 0.5, 7), (1 + k * 0.5, 6.5)], k, 1, m)
liste1 = Sequence(Segment[(1 + k * 0.5, 6.5), (1 + k * 0.5, 6)], k, 1, f + 1 - 100)
poly2, g, h, i, j = Polygon((1, 6.5), (1 + 0.5 * (f - 100), 6.5), (1 + 0.5 * (f - 100), 6), (1, 6))
texte10: "Liste des  diviseurs de " + f + " :"
texte1: "" + f + ""
k = true