Nuevo

dólares por cada libra

pop: {1.6, 1.6, 1.6, 1.6, 1.7, 1.7, 1.7, 1.7, 1.7, 1.7, 1.7, 1.7, 1.7, 1.7, 1.7, 1.7, 1.7, 1.7, 1.7, 1.7, 1.7, 1.7, 1.7, 1.7, 1.8, 1.8, 1.8, 1.8, 1.8, 1.8, 1.8, 1.8, 1.8, 1.8, 1.8, 1.8, 1.8, 1.8, 1.8, 1.8, 1.8, 1.8, 1.8, 1.8, 1.8, 1.8, 1.8, 1.8, 1.9, 1.9, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2.1, 2.1, 2.2, 2.2, 2.2, 2.2, 2.2, 2.2, 2.3, 2.3, 2.3, 2.3, 2.4, 2.4, 2.4, 2.4, 2.5, 2.5, 2.5, 2.5, 2.5, 2.5, 2.6, 2.6, 2.6, 2.6, 2.6, 2.6, 2.6, 2.6, 2.6, 2.6, 2.7, 2.7, 2.7, 2.7, 2.8, 2.8, 2.8, 2.8}
popdot = DotPlot(pop)
f(x) = If[1.5 ≤ x ≤ 3, 10]
samp1: {1.6, 1.7, 1.7, 1.7, 1.7, 1.8, 1.8, 1.8, 1.8, 1.8, 2, 2, 2.2, 2.2, 2.4, 2.5, 2.5, 2.6, 2.6, 2.7, 2.8}
samp1dot = DotPlot(samp1)
samp2: {1.6, 1.6, 1.7, 1.7, 1.7, 1.7, 1.7, 1.7, 1.8, 1.8, 1.8, 1.8, 1.8, 1.8, 1.8, 1.8, 2, 2, 2, 2}
samp2dot = DotPlot(samp2)
samp3: {1.8, 1.8, 1.8, 2, 2.2, 2.2, 2.2, 2.3, 2.4, 2.4, 2.5, 2.5, 2.5, 2.5, 2.6, 2.6, 2.6, 2.6, 2.7, 2.7, 2.8}
samp3dot = DotPlot(samp3)
muestra = 1 (slider from 1 to 4, step 1)
tamaño = 30 (slider from 1 to N, step 1)
samp4 = Sample(pop, tamaño)
samp4dot = DotPlot(samp4)
M = Max(Frequency[samp4])
g(x) = If[1.5 ≤ x ≤ 3, 5]
h(x) = If[1.5 ≤ x ≤ 3, 15]
list3 = Sequence(If[1.5 ≤ x ≤ 3, (5 * i)], i, 1, 5)
N: Length[pop] / 2