成績統計
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 = 6.2 (slider from 1 to 10, step 0.1)
a = BarChart(List_1, List_5, w)
text1 = FrequencyTable(List_2, List_4)
n = 2 (slider from 1 to 2, step 1)
A = (84.76923076923079, 18.34782608695631)
B: A + (23.7, 0)
D: A - (0, 11.3)
b = Segment(A, D)
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)
List_8 = Sequence(Text[Element[List_5, k], Element[List_6, k] + (-0.85, 0.2)], k, 1, 11)