成績統計
Author: 藍邦偉老師

List_1 = Sequence(5 + 10 * t, t, 0, 10)
List_2 = Sequence(10 * t, t, 0, 11)
A1 = 58
A2 = 20
A3 = 86
A4 = 63
A5 = 73
A6 = 54
A7 = 76
A8 = 28
A9 = 80
A10 = 88
A11 = 42
A12 = 24
A13 = 58
A14 = 12
A15 = 30
A16 = 12
A17 = 12
A18 = 18
A19 = 18
A20 = 18
A21 = 6
A22 = NaN
A23 = 36
A24 = 18
A25 = 24
A26 = 60
A27 = 64
A28 = 36
A29 = 94
A30 = 92
A31 = 24
A32 = 48
A33 = 30
A34 = 49
A35 = NaN
A36 = 100
A37 = 42
A38 = 18
A39 = 30
A40 = 86
A41 = 36
A42 = 30
A43 = NaN
A44 = 51
A45 = 81
A46 = 36
A47 = 34
A48 = NaN
A49 = NaN
A50 = NaN
A51 = NaN
A52 = NaN
A53 = NaN
A54 = NaN
A55 = NaN
A56 = NaN
A57 = NaN
A58 = NaN
A59 = NaN
A60 = NaN
A61 = NaN
A62 = NaN
A63 = NaN
A64 = NaN
A65 = NaN
A66 = NaN
A67 = NaN
A68 = NaN
A69 = NaN
A70 = NaN
A71 = NaN
A72 = NaN
A73 = NaN
A74 = NaN
A75 = NaN
A76 = NaN
A77 = NaN
A78 = NaN
A79 = NaN
A80 = NaN
A81 = NaN
A82 = NaN
A83 = NaN
A84 = NaN
A85 = NaN
A86 = NaN
A87 = NaN
A88 = NaN
A89 = NaN
A90 = NaN
A91 = NaN
A92 = NaN
A93 = NaN
A94 = NaN
A95 = NaN
A96 = NaN
A97 = NaN
A98 = NaN
A99 = NaN
A100 = NaN
List_3: {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, A56, A57, A58, A59, A60, A61, A62, A63, A64, A65, A66, A67, A68, A69, A70, A71, A72, A73, A74, A75, A76, A77, A78, A79, A80, A81, A82, A83, A84, A85, A86, A87, A88, A89, A90, A91, A92, A93, A94, A95, A96, A97, A98, A99, A100}
List_4 = RemoveUndefined(List_3)
List_5 = Sequence(CountIf[10 * k ≤ x < 10 * (k + 1), List_4], k, 0, 10)
List_{5'} = Frequency(List_2, List_4)
List_6 = Sequence((Element[List_1, k], Element[List_5, k]), k, 1, 11)
List_7 = PolyLine(List_6)
w = 3.6 (slider from 1 to 5, step 0.1)
text1 = FrequencyTable(List_2, List_4)
n = 2 (slider from 1 to 2, step 1)
A = (70.15384615384617, 18.391304347825876)
B: A + (23.7, 0)
D: A - (0, 11.3)
d = Segment(A, D)
c = Segment(B, A)
C: (x(B), y(D))
e = Segment(B, C)
f = Segment(D, C)
List_a = Sequence(D + (0, 0.916 * k), k, 1, 10)
List_b = Sequence(C + (0, 0.916 * k), k, 1, 10)
List_c = Sequence(Segment[Element[List_a, k], Element[List_b, k]], k, 1, 10)
B1 = 10
B2 = 12
B3 = 16
B4 = 6
B5 = 12
B6 = 28
B7 = 18
B8 = 34
B9 = 12
B10 = 24
B11 = 42
B12 = 24
B13 = 24
B14 = NaN
B15 = 22
B16 = 18
B17 = 72
B18 = 66
B19 = 0
B20 = 10
B21 = NaN
B22 = 12
B23 = 18
B24 = 36
B25 = 40
B26 = 60
B27 = 10
B28 = 12
B29 = 48
B30 = 24
B31 = 36
B32 = 68
B33 = 54
B34 = 24
B35 = 26
B36 = 36
B37 = 44
B38 = 44
B39 = NaN
B40 = NaN
B41 = NaN
B42 = NaN
B43 = NaN
B44 = NaN
B45 = NaN
B46 = NaN
B47 = NaN
B48 = NaN
B49 = NaN
B50 = NaN
B51 = NaN
B52 = NaN
B53 = NaN
B54 = NaN
B55 = NaN
B56 = NaN
B57 = NaN
B58 = NaN
B59 = NaN
B60 = NaN
B61 = NaN
B62 = NaN
B63 = NaN
B64 = NaN
B65 = NaN
B66 = NaN
B67 = NaN
B68 = NaN
B69 = NaN
B70 = NaN
B71 = NaN
B72 = NaN
B73 = NaN
B74 = NaN
B75 = NaN
B76 = NaN
B77 = NaN
B78 = NaN
B79 = NaN
B80 = NaN
B81 = NaN
B82 = NaN
B83 = NaN
B84 = NaN
B85 = NaN
B86 = NaN
B87 = NaN
B88 = NaN
B89 = NaN
B90 = NaN
B91 = NaN
B92 = NaN
B93 = NaN
B94 = NaN
B95 = NaN
B96 = NaN
B97 = NaN
B98 = NaN
B99 = NaN
B100 = NaN
list3: {B1, B2, B3, B4, B5, B6, B7, B8, B9, B10, B11, B12, B13, B14, B15, B16, B17, B18, B19, B20, B21, B22, B23, B24, B25, B26, B27, B28, B29, B30, B31, B32, B33, B34, B35, B36, B37, B38, B39, B40, B41, B42, B43, B44, B45, B46, B47, B48, B49, B50, B51, B52, B53, B54, B55, B56, B57, B58, B59, B60, B61, B62, B63, B64, B65, B66, B67, B68, B69, B70, B71, B72, B73, B74, B75, B76, B77, B78, B79, B80, B81, B82, B83, B84, B85, B86, B87, B88, B89, B90, B91, B92, B93, B94, B95, B96, B97, B98, B99, B100}
a = BarChart(List_1 - w / 2, List_5, w)
list4 = RemoveUndefined(list3)
list5 = Frequency(List_2, list4)
list6 = Sequence((Element[List_1, k], Element[list5, k]), k, 1, 11)
list7 = PolyLine(list6)
b = BarChart(List_1 + w / 2, list5, w)
list8 = Sequence(Text[Element[list5, k], Element[list6, k] + (0.8, 0.2)], k, 1, 11)
List_8 = Sequence(Text[Element[List_5, k], Element[List_6, k] + (-3, 0.2)], k, 1, 11)
text2 = FrequencyTable(List_2, list4)
k = 1 (slider from 1 to 2, step 1)