A1 = 36
A2 = 68
A3 = 100
A4 = 34
A5 = 80
A8 = 88
A9 = 8
A10 = 100
A11 = 100
A12 = 100
A13 = 76
A14 = 97
A15 = 82
A16 = 40
A17 = 60
A18 = 100
A19 = 100
A20 = 56
A21 = 50
A22 = 100
A23 = 100
A24 = 100
A25 = 39
A26 = 80
A27(x) = NaN
A28(x) = NaN
A29 = 71
A30(x) = NaN
A31 = 68
A32 = 80
A33 = 100
A34 = 82
A35 = 80
A36 = 100
A37(x) = NaN
A38(x) = NaN
A39 = 78
A40 = 34
A41 = 95
A42 = 64
A43 = 80
A44 = 40
A45 = 90
A46 = 8
A47 = 44
A48 = 64
A49(x) = NaN
A50 = 90
A51 = 80
A6 = NaN
A7 = NaN
list1: {5.0, 15.0, 25.0, 35.0, 45.0, 55.0, 65.0, 75.0, 85.0, 95.0}
A52 = NaN
A53 = NaN
A54 = NaN
A55 = NaN
list2: {A1, A2, A3, A4, A5, A6, A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17, A18, A19, A20, A21, A22, A23, A24, A25, A26, A27, A28, A29, A30, A31, A32, A33, A34, A35, A36, A37, A38, A39, A40, A41, A42, A43, A44, A45, A46, A47, A48, A49, A50, A51, A52, A53, A54, A55}
list3 = RemoveUndefined(list2)
list4 = Sequence(CountIf[x ≥ 10.0 * t ∧ x < 10.0 * (1.0 + t), list3], t, 0.0, 10.0)
list5 = Sequence((Element[list1, i], Element[list4, i]), i, 1.0, 11.0)
list6 = Sequence(Segment[Element[list5, i], Element[list5, i + 1.0]], i, 1.0, 10.0)
i_1 = (0, 1)
i = (0, 1)
a = 1 (slider from 0 to 1, step 1)
list7 = Sequence(Text["" + (Element[list4, i]), Element[list5, i]], i, 1.0, 10.0)
w = 1 (slider from 1 to 10, step 1)
a_1 = BarChart(list1, list4, w)