Dénominateur

Numérateur

Désolé, manque de place !

Nombre de parts coloriées :

Partage de l'unité en : 

Représentation avec des parts de disques

Représentation avec des parts de rectangles

den = 6 (slider from 1 to 20, step 1)
num = 5 (slider from 0 to 20, step 1)
B = (2.5, 0)
C = (5, 0)
A = Intersect(xAxis, yAxis)
cercle = Circle(A, 1)
d = Circle(B, 1)
e = Circle(C, 1)
Lc0 = Sequence(Segment[A, (1; 2 * n * 3.141592653589793 / den)], n, 1, den)
listec1 = Sequence(Segment[B, Translate[(1; 2 * n * 3.141592653589793 / den), Vector[A, B]]], n, 1, den)
listec2 = Sequence(Segment[C, Translate[(1; 2 * n * 3.141592653589793 / den), Vector[A, C]]], n, 1, den)
f = CircleSector(A, (1; 0*°), (1; 2 * num * 3.141592653589793 / den))
g = CircleSector(B, Translate[(1; 0*°), Vector[A, B]], Translate[(1; 2 * num * 3.141592653589793 / den), Vector[A, B]])
h = CircleSector(C, Translate[(1; 0*°), Vector[A, C]], Translate[(1; 2 * num * 3.141592653589793 / den), Vector[A, C]])
k = Circle(A, 1)
p = Circle(B, 1)
q = Circle(C, 1)
a: num / den
D = (2.608852489742883, -1.7486319875850374)
E = (2.9386769870529235, -1.7369048689328936)
texte1: num + ""
texte2: den + ""
c = 4
i = 1 (slider from 1 to 60, step 1)
n = 1
listesi1 = Sequence(Polygon[If[i ≤ num, ((i - 1) * c * n / den, -7)], If[i ≤ num, ((i - 1) * c * n / den, n - 7)], If[i ≤ num, (i * c * n / den, n - 7)], If[i ≤ num, (i * c * n / den, -7)]], i, 1, den, 1)
liste2 = Sequence(Polygon[((i - 1) * c * n / den, -5), ((i - 1) * c * n / den, n - 5), (i * c * n / den, n - 5), (i * c * n / den, -5)], i, 1, den, 1)
liste3 = Sequence(Polygon[((i - 1) * c * n / den, -3), ((i - 1) * c * n / den, n - 3), (i * c * n / den, n - 3), (i * c * n / den, -3)], i, 1, den, 1)
listesi2 = Sequence(Polygon[If[i ≤ num, ((i - den - 1) * c * n / den, -5)], If[i ≤ num, ((i - den - 1) * c * n / den, n - 5)], If[i ≤ num, ((i - den) * c * n / den, n - 5)], If[i ≤ num, ((i - den) * c * n / den, -5)]], i, den + 1, 2 * den, 1)
liste1 = Sequence(Polygon[((i - 1) * c * n / den, -7), ((i - 1) * c * n / den, n - 7), (i * c * n / den, n - 7), (i * c * n / den, -7)], i, 1, den, 1)
listesi3 = Sequence(Polygon[If[i ≤ num, ((i - 2 * den - 1) * c * n / den, -3)], If[i ≤ num, ((i - 2 * den - 1) * c * n / den, n - 3)], If[i ≤ num, ((i - 2 * den) * c * n / den, n - 3)], If[i ≤ num, ((i - 2 * den) * c * n / den, -3)]], i, 2 * den + 1, 3 * den, 1)