Whiskers
Author: Mike May, S.J.

This is an applet using the pre-release version of GeoGebra to do a box and whiskers diagram.  It uses a number of interesting features of the pre-release.

From the list commands we use
L_2=Sort[L_1]+(0,1) - The Sort command and adding a constant point to each element of a list.
L_3=xMin+(x(L_1)-xLow)/(xHigh-xLow)*(xMax-xMin) using a more complicated function on each element of a list.
Sum
Mean
BoxPlot
TableText
Moving a list to a spreadsheet so that the points in the list have individual names on the graph.

B6 = 6
xMax = 100 (slider from -100 to 100, step 1)
xMin = -100 (slider from -100 to 100, step 1)
xHigh = 8
xLow = -4
yLevel = -3
B: (xHigh, yLevel)
A: (xLow, yLevel)
Bar = Segment(A, B)
P_{10} = Point(Bar)
P_{11} = Point(Bar)
P_9 = Point(Bar)
P_8 = Point(Bar)
P_7 = Point(Bar)
P_6 = Point(Bar)
P_5 = Point(Bar)
P_2 = Point(Bar)
P_1 = Point(Bar)
P_3 = Point(Bar)
P_4 = Point(Bar)
L_1: {P_1, P_2, P_3, P_4, P_5, P_6, P_7, P_8, P_9, P_{10}, P_{11}}
L_2: Sort[L_1] + (0.000000000000000, 1.000000000000000)
Lx: x(L_2)
L_3: xMin + (Lx - xLow) * (xMax - xMin) / (xHigh - xLow)
C6 = Element(L_3, B6)
L_4: xMin + (x(L_1) - xLow) * (xMax - xMin) / (xHigh - xLow)
B1 = 1
B2 = 2
LSorted = Sequence("SortedValue" + (i) + " = " + Element[L_3, i], i, 1.000000000000000, 11.00000000000000)
text1 = TableText({LSorted}, "v")
i = (0, 1)
B3 = 3
B4 = 4
B5 = 5
B7 = 7
B8 = 8
B9 = 9
B10 = 10
B11 = 11
A2 = Element(L_2, B2)
A7 = Element(L_2, B7)
A8 = Element(L_2, B8)
A9 = Element(L_2, B9)
A10 = Element(L_2, B10)
A11 = Element(L_2, B11)
A3 = Element(L_2, B3)
A4 = Element(L_2, B4)
A5 = Element(L_2, B5)
A6 = Element(L_2, B6)
A1 = Element(L_2, B1)
L_5: "v" + " = " + L_3
LUnsorted = Sequence("UnsortedValue" + (i) + " = " + Element[L_4, i], i, 1.000000000000000, 11.00000000000000)
text2 = TableText({LUnsorted}, "v")
BoxPlotL_1 = BoxPlot(0.000000000000000, 1.000000000000000, Lx)
C1 = Element(L_3, B1)
C2 = Element(L_3, B2)
C3 = Element(L_3, B3)
C4 = Element(L_3, B4)
C5 = Element(L_3, B5)
C7 = Element(L_3, B7)
C8 = Element(L_3, B8)
C9 = Element(L_3, B9)
C10 = Element(L_3, B10)
C11 = Element(L_3, B11)
text3: "Median value is " + C6
text4: "Quartile 1 is " + C3
text5: "Quartile 3 " + C9
LMean = Mean(L_3)
text6: "Mean Value is " + LMean
text7: "The sum is " + Sum[L_3]
HignEnd = Segment((xHigh, yLevel + 0.5000000000000000), (xHigh, yLevel - 0.5000000000000000))
LowEnd = Segment((xLow, yLevel + 0.5000000000000000), (xLow, yLevel - 0.5000000000000000))