t

P_t

change

points

Population

B' = (-0.017738346991402892, 0.007916786429832578)
width = 1407.7152172377237
height = 163.69478402607666
A' = (564.1129032258066, 169.28571428571428)
A2 = 0
B2 = 101
A3 = 1
B3 = 121
A4 = 2
B4 = 165
A5 = 3
B5 = 238
A6 = 4
B6 = 293
A7 = 5
B7 = 376
C2 = If(B3 > 0, B3 - B2)
C3 = If(B4 > 0, B4 - B3)
C4 = If(B5 > 0, B5 - B4)
C5 = If(B6 > 0, B6 - B5)
C6 = If(B7 > 0, B7 - B6)
text4 = RotateText("Population change", 1.5708)
D2: (B2, C2)
D3: (B3, C3)
D4: (B4, C4)
D5: (B5, C5)
D6: (B6, C6)
A = DynamicCoordinates(A', If[abs(x(A')) < width * 0.005, 0, x(A')], If[abs(y(A')) < height * 0.01, 0, y(A')])
B = DynamicCoordinates(B', If[abs(x(B')) < width * 0.005, 0, x(B')], If[abs(y(B')) < height * 0.01, 0, y(B')])
a = Line(B, A)
m: (y(A) - y(B)) / (x(A) - x(B))
text2: "slope=" + m + ""
Ahalf: A / 2
LL = (-0.04, -0.03)
UR = (0.205, 0.12)
B8 = 489
C7 = If(B8 > 0, B8 - B7)
D7: (B7, C7)
A8 = 6
LM: (-0.1 * width, 0.7 * height)
MR: (0.3 * width, -0.1 * height)
A9 = 7
B9 = 627
C8 = If(B9 > 0, B9 - B8)
D8: (B8, C8)