Rang années

Année

pop

A2: 0
A3: A2 + 5
A4: A3 + 5
A5: A4 + 5
A6: A5 + 5
A7: A6 + 5
A8: A7 + 5
A9: A8 + 5
A10: A9 + 5
A11: A10 + 5
A12: A11 + 5
A13: A12 + 5
A14: A13 + 5
A15: A14 + 5
A16: A15 + 5
A17: A16 + 5
A18: A17 + 5
A19: A18 + 5
A20: A19 + 5
A21: A20 + 5
A22: A21 + 5
A23: A22 + 5
A24: A23 + 5
B2: 44.8
B3: 47
B4: 50.7
B5: 53.4
B6: 55.9
B7: 59.7
B8: 64.5
B9: 69.3
B10: 73.1
B11: 72.4
B12: 83.6
B13: 87.9
B14: 92.5
B15: 98.8
B16: 104.7
B17: 111.9
B18: 116.8
B19: 120.8
B20: 123.5
B21: 125.6
B22: 126.9
B23: 127.4
B24: 126.8
l1: {A2, A3, A4, A5, A6, A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17, A18, A19, A20, A21, A22, A23, A24}
l2: {B2, B3, B4, B5, B6, B7, B8, B9, B10, B11, B12, B13, B14, B15, B16, B17, B18, B19, B20, B21, B22, B23, B24}
l4 = Sequence((Element[l1, k], Element[l2, k]), k, 1, Length[l1])
O: (0, 0)
F: (110, 0)
f = Segment(O, F)
A = Point(f)
g = Segment(A, F)
B = Point(f)
a(x) = x(A) < x < x(B)
l5 = Sequence((Element[l1, k], Element[l2, k]), k, x(A) / 5 + 1, 1 + x(B) / 5)
q = FitGrowth(l5)
b: (116.8 / 83.6)^(1 / 30)
p(x) = (48 * b^(x))
Annees = Sequence(Text[k + 1900, (k - 2.5, -8)], k, 0, 110, 10)
i = Segment(A, B)
Pinit = Element(l5, 1)
Pfin = Element(l5, Length[l5])
h = OrthogonalLine(Pinit, yAxis)
j = OrthogonalLine(Pfin, xAxis)
D = Intersect(h, j)
CMg: y(Pfin) / y(Pinit)
CMm: CMg^(1 / (x(Pfin) - x(Pinit)))
l3 = Sequence((x(Pinit) + (k * 5), (y(Pinit) * CMm^((5 * k)))), k, 0, Length[l5] - 1)
Interpolexpo = PolyLine(l3)
s = FitGrowth(l3)
A3_1: A2 + 5
A4_1: A3_1 + 5
A5_1: A4_1 + 5
A6_1: A5_1 + 5
A7_1: A6_1 + 5
A8_1: A7_1 + 5
A9_1: A8_1 + 5
A10_1: A9_1 + 5
A11_1: A10_1 + 5
A12_1: A11_1 + 5
A13_1: A12_1 + 5
A14_1: A13_1 + 5
A15_1: A14_1 + 5
A16_1: A15_1 + 5
A17_1: A16_1 + 5
A18_1: A17_1 + 5
A19_1: A18_1 + 5
A20_1: A19_1 + 5
A21_1: A20_1 + 5
A22_1: A21_1 + 5
A23_1: A22_1 + 5
A24_1: A23_1 + 5
l1_1: {A2, A3_1, A4_1, A5_1, A6_1, A7_1, A8_1, A9_1, A10_1, A11_1, A12_1, A13_1, A14_1, A15_1, A16_1, A17_1, A18_1, A19_1, A20_1, A21_1, A22_1, A23_1, A24_1}
l2_1: {B2, B3, B4, B5, B6, B7, B8, B9, B10, B11, B12, B13, B14, B15, B16, B17, B18, B19, B20, B21, B22, B23, B24}
O_1 = (40.85877862595415, 50.80412517780932)
F_1 = (150.85877862595413, 50.80412517780932)
f_1 = Segment(O_1, F_1)
A_1 = Point(f_1)
g_1 = Segment(A_1, F_1)
B_1 = Point(g_1)
a_1(x) = x(A_1) < x < x(B_1)
l5_1 = Sequence((Element[l1_1, k], Element[l2_1, k]), k, x(A_1) / 5 + 1, 1 + x(B_1) / 5)
q_1 = FitGrowth(l5_1)
i_1 = Segment(A_1, B_1)
texte1_1: "y=" + (LaTeX[s]) + ""
k = PolyLine(Pinit, D, Pfin)
s_0: floor((10 * s(0))) / 10
r(x) = If[x(A) ≤ x ≤ x(B), s(x)]
DeltaY: y(Element[l5, Length[l5]]) - y(Element[l5, 1])
DeltaX: x(Element[l5, Length[l5]]) - x(Element[l5, 1])
E = Midpoint(D, Pfin)
G = Midpoint(Pinit, D)
C: (Element[l5, 1] - (0.5 * A)) / 1.5
texte3: "" + (LaTeX[DeltaX]) + " \text{ ans}"
texte2: "" + (LaTeX[DeltaY]) + " \text{ millions}\\
\text{      d'habitants.}"
C2: 1900 + A2
C3: 1900 + A3
C4: 1900 + A4
C5: 1900 + A5
C6: 1900 + A6
C7: 1900 + A7
C8: 1900 + A8
C9: 1900 + A9
C10: 1900 + A10
C11: 1900 + A11
C12: 1900 + A12
C13: 1900 + A13
C14: 1900 + A14
C15: 1900 + A15
C16: 1900 + A16
C17: 1900 + A17
C18: 1900 + A18
C19: 1900 + A19
C20: 1900 + A20
C21: 1900 + A21
C22: 1900 + A22
C23: 1900 + A23
C24: 1900 + A24