直方圖與折線圖
Author: 藍邦偉　老師

A1 = 50
A2 = 35
A3 = 78
A4 = 54
A5 = 62
A6 = 80
A7 = 37
A8 = 32
A9 = 90
A10 = 98
A11 = 40
A12 = 28
A13 = 30
A14 = 25
A15 = 51
A16 = 86
A17 = 83
A18 = 44
A19 = 65
A20 = 57
A21 = 45
A22 = 57
A23 = 89
A24 = 57
A25 = 59
A26 = 56
A27 = 67
A28 = 88
A29 = 76
A30 = 95
A31 = 66
A32 = 75
A33 = NaN
A34 = NaN
A35 = NaN
A36 = NaN
A37 = NaN
A38 = NaN
A39 = NaN
A40 = NaN
A41 = NaN
A42 = NaN
A43 = NaN
A44 = NaN
A45 = NaN
A46 = NaN
A47 = NaN
A48 = NaN
A49 = NaN
A50 = 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}
list3 = RemoveUndefined(list2)
list1: {5, 15, 25, 35, 45, 55, 65, 75, 85, 95, 105}
list4 = Sequence(CountIf[10 * t ≤ x < 10 * (t + 1), list3], t, 0, 10)
list5 = Sequence((Element[list1, i], Element[list4, i]), i, 1, 11)
list6 = Sequence(Segment[Element[list5, i], Element[list5, i + 1]], i, 1, 10)
i = (0, 1)
a = 1 (slider from 0 to 1, step 1)
list7 = Sequence(Text["" + (Element[list4, i]), Element[list5, i] + (-0.1, 0.2)], i, 1, 11)
w = 10 (slider from 1 to 10, step 1)
a_1 = BarChart(list1, list4, w)
u = Vector((x(Corner[1]), 0), (x(Corner[3]), 0))
v = Vector((0, y(Corner[1])), (0, y(Corner[3])))
Me = Median(list3)
text1: "Me=" + (LaTeX[Me]) + ""
Q_1 = Q1(list3)
Q_3 = Q3(list3)
text2: "Q_1=" + (LaTeX[Q_1]) + ""
text3: "Q_3=" + (LaTeX[Q_3]) + ""
Max = Max(list3)
min = Min(list3)
text4: "min=" + (LaTeX[min]) + ""
text5: "Max=" + (LaTeX[Max]) + ""
A = (7.8, 10.083333333333332)
b = BoxPlot(9, 0.2, list3)