Drei Messreihen und ihre Auswertung

Input

(({{1, 23.8`}, {2, 21.`}, {3, 23.8`}, {4, 22.6`}, {5, 20.6`}, {6, 20.2`}, {7, 18.`}, {8, 23.4`}, {9, 20.4`}, {10, 20.2`}, {11, 19.8`}, {12, 22.2`}, {13, 18.8`}, {14, 18.6`}, {15, 20.`}, {16, 23.6`}, {17, 19.`}, {18, 19.`}, {19, 22.4`}, {20, 23.4`}, {21, 23.6`}, {22, 21.4`}, {23, 21.6`}, {24, 20.`}, {25, 23.8`}, {26, 17.4`}, {27, 21.6`}, {28, 21.6`}, {29, 20.`}, {30, 21.2`}, {31, 20.6`}, {32, 22.`}, {33, 23.6`}, {34, 17.8`}}))

(({{1, 23.8`}, {2, 25.4`}, {3, 19.8`}, {4, 23.2`}, {5, 19.4`}, {6, 25.8`}, {7, 23.2`}, {8, 22.8`}, {9, 28.`}, {10, 22.6`}, {11, 22.2`}, {12, 19.8`}, {13, 27.`}, {14, 20.4`}, {15, 22.4`}, {16, 25.8`}, {17, 23.4`}, {18, 26.2`}, {19, 19.6`}, {20, 23.`}, {21, 23.4`}, {22, 19.6`}, {23, 25.4`}, {24, 21.6`}, {25, 27.4`}, {26, 22.2`}, {27, 24.6`}, {28, 26.4`}, {29, 27.`}, {30, 24.2`}, {31, 20.4`}, {32, 22.6`}, {33, 27.`}, {34, 20.8`}}))

(({{1, 22.6`}, {2, 19.2`}, {3, 24.`}, {4, 17.2`}, {5, 20.`}, {6, 20.8`}, {7, 20.6`}, {8, 18.8`}, {9, 19.4`}, {10, 17.8`}, {11, 17.2`}, {12, 18.2`}, {13, 21.4`}, {14, 22.8`}, {15, 17.8`}, {16, 22.8`}, {17, 17.2`}, {18, 17.`}, {19, 18.6`}, {20, 18.6`}, {21, 23.`}, {22, 21.2`}, {23, 19.4`}, {24, 17.4`}, {25, 17.4`}, {26, 19.`}, {27, 19.4`}, {28, 17.`}, {29, 21.6`}, {30, 22.2`}, {31, 22.8`}, {32, 22.4`}, {33, 19.2`}, {34, 21.4`}}))

Out

Remove["Global`*"]

v1=(({{1, 23.8`}, {2, 21.`}, {3, 23.8`}, {4, 22.6`}, {5, 20.6`}, {6, 20.2`}, {7, 18.`}, {8, 23.4`}, {9, 20.4`}, {10, 20.2`}, {11, 19.8`}, {12, 22.2`}, {13, 18.8`}, {14, 18.6`}, {15, 20.`}, {16, 23.6`}, {17, 19.`}, {18, 19.`}, {19, 22.4`}, {20, 23.4`}, {21, 23.6`}, {22, 21.4`}, {23, 21.6`}, {24, 20.`}, {25, 23.8`}, {26, 17.4`}, {27, 21.6`}, {28, 21.6`}, {29, 20.`}, {30, 21.2`}, {31, 20.6`}, {32, 22.`}, {33, 23.6`}, {34, 17.8`}}))

v2=(({{1, 23.8`}, {2, 25.4`}, {3, 19.8`}, {4, 23.2`}, {5, 19.4`}, {6, 25.8`}, {7, 23.2`}, {8, 22.8`}, {9, 28.`}, {10, 22.6`}, {11, 22.2`}, {12, 19.8`}, {13, 27.`}, {14, 20.4`}, {15, 22.4`}, {16, 25.8`}, {17, 23.4`}, {18, 26.2`}, {19, 19.6`}, {20, 23.`}, {21, 23.4`}, {22, 19.6`}, {23, 25.4`}, {24, 21.6`}, {25, 27.4`}, {26, 22.2`}, {27, 24.6`}, {28, 26.4`}, {29, 27.`}, {30, 24.2`}, {31, 20.4`}, {32, 22.6`}, {33, 27.`}, {34, 20.8`}}))

v3=(({{1, 22.6`}, {2, 19.2`}, {3, 24.`}, {4, 17.2`}, {5, 20.`}, {6, 20.8`}, {7, 20.6`}, {8, 18.8`}, {9, 19.4`}, {10, 17.8`}, {11, 17.2`}, {12, 18.2`}, {13, 21.4`}, {14, 22.8`}, {15, 17.8`}, {16, 22.8`}, {17, 17.2`}, {18, 17.`}, {19, 18.6`}, {20, 18.6`}, {21, 23.`}, {22, 21.2`}, {23, 19.4`}, {24, 17.4`}, {25, 17.4`}, {26, 19.`}, {27, 19.4`}, {28, 17.`}, {29, 21.6`}, {30, 22.2`}, {31, 22.8`}, {32, 22.4`}, {33, 19.2`}, {34, 21.4`}}))

Rechnen

v1={{1,23.8},{2,21.},{3,23.8},{4,22.6},{5,20.6},{6,20.2},{7,18.},{8,23.4},{9,20.4},{10,20.2},{11,19.8},{12,22.2},{13,18.8},{14,18.6},{15,20.},{16,23.6},{17,19.},{18,19.},{19,22.4},{20,23.4},{21,23.6},{22,21.4},{23,21.6},{24,20.},{25,23.8},{26,17.4},{27,21.6},{28,21.6},{29,20.},{30,21.2},{31,20.6},{32,22.},{33,23.6},{34,17.8}}

v2={{1,23.8},{2,25.4},{3,19.8},{4,23.2},{5,19.4},{6,25.8},{7,23.2},{8,22.8},{9,28.},{10,22.6},{11,22.2},{12,19.8},{13,27.},{14,20.4},{15,22.4},{16,25.8},{17,23.4},{18,26.2},{19,19.6},{20,23.},{21,23.4},{22,19.6},{23,25.4},{24,21.6},{25,27.4},{26,22.2},{27,24.6},{28,26.4},{29,27.},{30,24.2},{31,20.4},{32,22.6},{33,27.},{34,20.8}}

v3={{1,22.6},{2,19.2},{3,24.},{4,17.2},{5,20.},{6,20.8},{7,20.6},{8,18.8},{9,19.4},{10,17.8},{11,17.2},{12,18.2},{13,21.4},{14,22.8},{15,17.8},{16,22.8},{17,17.2},{18,17.},{19,18.6},{20,18.6},{21,23.},{22,21.2},{23,19.4},{24,17.4},{25,17.4},{26,19.},{27,19.4},{28,17.},{29,21.6},{30,22.2},{31,22.8},{32,22.4},{33,19.2},{34,21.4}}

v11=Table[v1[[n]][[2]],{n,1,Length[v1]}]

{Min[v11],Max[v11]}

v21=Table[v2[[n]][[2]],{n,1,Length[v2]}]

{Min[v21],Max[v21]}

Length[v3]

Sqrt[%]//N

v31=Table[v3[[n]][[2]],{n,1,Length[v3]}]

{Min[v31],Max[v31]}

xU=17;xO=28;
interv=Table[xU+n(xO-xU)/8,{n,0,8}]//N

<< Graphics`Graphics`

Histogram[x11, FrequencyData->True,
        HistogramCategories -> {17.,18.375,19.75,21.125,22.5,23.875,25.25,26.625,28.}]

Histogram[v11, FrequencyData -> True, 
      HistogramCategories -> {17.`, 18.375`, 19.75`, 21.125`, 22.5`, 
          23.875`, 25.25`, 26.625`, 28.`}]

Histogram[v11];

Histogram[v21];

Histogram[v31];

<<Statistics`DescriptiveStatistics`

MinMaxLength[v_]:=Print["Min. -> ", Min[v], ", Max. -> ", Max[v], ", Length -> ", Length[v]];

MinMaxLength[v11]

MinMaxLength[v21]

MinMaxLength[v31]

LocationReport[v11]

LocationReport[v21]

LocationReport[v31]

DispersionReport[v11]

DispersionReport[v21]

DispersionReport[v31]

ShapeReport[v11]

ShapeReport[v21]

ShapeReport[v31]