中央値と平均値\
データが変わると中央値や平均値はどのように変わるかを考えましょう。\
\color{red}{赤線：中央値}\ \ \ \ \color{blue}{青線：平均値}

a11 = 5 (slider from 0 to 100, step 1)
K: (11, a11)
a10 = 6 (slider from 0 to 100, step 1)
J: (10, a10)
a9 = 7 (slider from 0 to 100, step 1)
I: (9, a9)
a8 = 8 (slider from 0 to 100, step 1)
H: (8, a8)
a7 = 9 (slider from 0 to 100, step 1)
G: (7, a7)
a6 = 10 (slider from 0 to 100, step 1)
F: (6, a6)
a5 = 6 (slider from 0 to 100, step 1)
E: (5, a5)
a4 = 4 (slider from 0 to 100, step 1)
D: (4, a4)
a3 = 7 (slider from 0 to 100, step 1)
C: (3, a3)
a2 = 6 (slider from 0 to 100, step 1)
B: (2, a2)
a1 = 5 (slider from 0 to 100, step 1)
A: (1, a1)
l1: {A, B, C, D, E, F, G, H, I, J, K}
l2 = Sequence(Polygon[(i - 0.5, 0), (i + 0.5, 0), (i + 0.5, y(Element[l1, i])), (i - 0.5, y(Element[l1, i]))], i, 1, 11)
l3 = Sequence(i, i, 1, 11)
f: x = Median[l3, l2]
g: x = mean[l3, l2]