Dénominateur

Numérateur

Représentation de la fraction

par un schéma.

Désolé, manque de place !

n = 2 (slider from -5 to 5, step 0.1)
c = 5 (slider from -5 to 10, step 0.1)
b = 7 (slider from 1 to 20, step 1)
A = Intersect(xAxis, yAxis)
B = (0, 4)
i = 1 (slider from 1 to 60, step 1)
a = 16 (slider from 0 to 20, step 1)
L = Sequence(Polygon[((i - 1) * c * n / b, 0), ((i - 1) * c * n / b, n), (i * c * n / b, n), (i * c * n / b, 0)], i, 1, b, 1)
liste1 = Sequence(Polygon[If[i ≤ a, ((i - 1) * c * n / b, 0)], If[i ≤ a, ((i - 1) * c * n / b, n)], If[i ≤ a, (i * c * n / b, n)], If[i ≤ a, (i * c * n / b, 0)]], i, 1, b, 1)
liste2 = Sequence(Polygon[((i - 1) * c * n / b, 3), ((i - 1) * c * n / b, n + 3), (i * c * n / b, n + 3), (i * c * n / b, 3)], i, 1, b, 1)
liste3 = Sequence(Polygon[((i - 1) * c * n / b, 6), ((i - 1) * c * n / b, n + 6), (i * c * n / b, n + 6), (i * c * n / b, 6)], i, 1, b, 1)
liste4 = Sequence(Polygon[If[i ≤ a, ((i - b - 1) * c * n / b, 3)], If[i ≤ a, ((i - b - 1) * c * n / b, n + 3)], If[i ≤ a, ((i - b) * c * n / b, n + 3)], If[i ≤ a, ((i - b) * c * n / b, 3)]], i, b + 1, 2 * b, 1)
liste5 = Sequence(Polygon[If[i ≤ a, ((i - 2 * b - 1) * c * n / b, 6)], If[i ≤ a, ((i - 2 * b - 1) * c * n / b, n + 6)], If[i ≤ a, ((i - 2 * b) * c * n / b, n + 6)], If[i ≤ a, ((i - 2 * b) * c * n / b, 6)]], i, 2 * b + 1, 3 * b, 1)
texte2: a + ""
texte3: b + ""
texte4: a + ""
texte5: b + ""
C = (9, -1.5)
D = (8.5, -1.5)
d = Segment(C, D)
r: a / b