n1

d1

n2

d2

p2

+

+

=

=

+

=

Autre partage:

Réponse

Partage de chaque
secteur angulaire rouge en 

Partage de chaque
secteur angulaire bleu en

Rédaction mathématique

f: y = 0
A = (-0.9363636363636366, 4.296363636363636)
g = Line(A, f)
B = Point(g)
C = Point(g)
D = Point(g)
c = Circle(A, D)
d = Circle(B, Distance[A, D])
e = Circle(C, Distance[A, D])
n1: 2
n2: 2
d1: 20
d2: 5
p1: 1
p2: 1
ChampTexte1 = Textfield(n1)
ChampTexte2 = Textfield(d1)
p1_2 = Textfield(p1)
ChampTexte3 = Textfield(n2)
ChampTexte4 = Textfield(d2)
ChampTexte5 = Textfield(p2)
a1: (360 * ° / d1)
a2: (360 * ° / d2)
liste1 = Sequence(Rotate[D, (a1 * i), A], i, 0, d1)
D'': D + Vector[A, C]
D': D + Vector[A, B]
liste2 = Sequence(Rotate[D', (a2 * i), B], i, 0, d2)
liste11 = Sequence(CircleSector[A, Element[liste1, i], Element[liste1, i + 1]], i, 1, n1)
liste22 = Sequence(CircleSector[B, Element[liste2, i], Element[liste2, i + 1]], i, 1, n2)
liste111 = Sequence(Segment[A, Element[liste1, i]], i, 1, d1)
liste11' = Translate(liste11, Vector[A, C])
liste333 = Translate(liste22, Vector[B, C])
liste333' = Rotate(liste333, (a1 * n1), C)
A': (9 / 10 * Midpoint[A, B])
A'' = Translate(A', Vector[D, D'])
liste3 = Sequence(Rotate[D, (a1 / p1 * i), A], i, 0, (d1 * p1))
liste4 = Sequence(Rotate[D', (a2 / p2 * i), B], i, 0, (d2 * p2))
liste5 = Sequence(Segment[A, Element[liste3, i]], i, 1, (d1 * p1))
liste6 = Sequence(Segment[B, Element[liste4, i]], i, 1, (d2 * p2))
liste7 = Sequence(Rotate[D'', ((360 * ° / d1 / p1) * i), C], i, 1, (n1 * p1) + (n2 * p2))
texte7: "\frac{" + (LaTeX[(n2 * p2)]) + "}{" + (LaTeX[(d2 * p2)]) + "}"
a = true
b = false
texte6: "\frac{" + (LaTeX[(n1 * p1)]) + "}{" + (LaTeX[(d1 * p1)]) + "}"
E = (-1.876363636363637, 1.156363636363636)
F = (-0.19636363636363632, 1.196363636363636)
h = Segment(E, F)
G = (3.683636363636365, 1.196363636363636)
H = (5.683636363636366, 1.196363636363636)
i = Segment(G, H)
texte5: "\frac{" + (LaTeX[(n1 * p1) + (p2 * n2)]) + "}{" + (LaTeX[(d1 * p1)]) + "}"
liste8 = Sequence(Segment[C, Element[liste7, i]], i, 1, (n1 * d1) + (n2 * d2))
n_1 = Dimension(liste7)
liste9 = Sequence(Segment[Element[liste3, i], A], i, 0, (n1 * p1))
liste10 = Sequence(Segment[Element[liste4, i], B], i, 0, (n2 * p2))
liste9' = Translate(liste9, Vector[A, C])
liste10' = Translate(liste10, Vector[B, C])
liste10'' = Rotate(liste10', (a1 / p1 * (n1 * p1)), C)
liste222 = Sequence(Segment[B, Element[liste2, i]], i, 1, d2 + 1)
j = false
texte12: "\frac{" + (LaTeX[n1]) + "×" + (LaTeX[p1]) + "}{" + (LaTeX[d1]) + "×" + (LaTeX[p1]) + "}"
texte13: "\frac{ " + (LaTeX[n2]) + "×" + (LaTeX[p2]) + " }{ " + (LaTeX[d2]) + "×" + (LaTeX[p2]) + " }"