(************** Content-type: application/mathematica **************
                     CreatedBy='Mathematica 5.2'

                    Mathematica-Compatible Notebook

This notebook can be used with any Mathematica-compatible
application, such as Mathematica, MathReader or Publicon. The data
for the notebook starts with the line containing stars above.

To get the notebook into a Mathematica-compatible application, do
one of the following:

* Save the data starting with the line of stars above into a file
  with a name ending in .nb, then open the file inside the
  application;

* Copy the data starting with the line of stars above to the
  clipboard, then use the Paste menu command inside the application.

Data for notebooks contains only printable 7-bit ASCII and can be
sent directly in email or through ftp in text mode.  Newlines can be
CR, LF or CRLF (Unix, Macintosh or MS-DOS style).

NOTE: If you modify the data for this notebook not in a Mathematica-
compatible application, you must delete the line below containing
the word CacheID, otherwise Mathematica-compatible applications may
try to use invalid cache data.

For more information on notebooks and Mathematica-compatible 
applications, contact Wolfram Research:
  web: http://www.wolfram.com
  email: info@wolfram.com
  phone: +1-217-398-0700 (U.S.)

Notebook reader applications are available free of charge from 
Wolfram Research.
*******************************************************************)

(*CacheID: 232*)


(*NotebookFileLineBreakTest
NotebookFileLineBreakTest*)
(*NotebookOptionsPosition[      5260,        172]*)
(*NotebookOutlinePosition[      6055,        199]*)
(*  CellTagsIndexPosition[      6011,        195]*)
(*WindowFrame->Normal*)



Notebook[{

Cell[CellGroupData[{
Cell["Beispiel einer Auswertung", "Title"],

Cell[CellGroupData[{

Cell["Dateneingabe", "Section"],

Cell["fichte={95.53,81.93,83.57,54.82,73.83,58.48,59.15,83.29}", "Input",
  CellLabel->"In[1]:="],

Cell["\<\
buche={113.14,156.61,169.96,142.20,162.85,196.08,125.03,88.47}\
\>", "Input",
  CellLabel->"In[2]:="],

Cell["allData=Union[fichte, buche]", "Input",
  CellLabel->"In[3]:="]
}, Open  ]],

Cell[CellGroupData[{

Cell["Kenngr\[ODoubleDot]ssen", "Section"],

Cell["<<Statistics`DescriptiveStatistics`", "Input",
  CellLabel->"In[13]:="],

Cell["\<\
data=fichte; {LocationReport[data], DispersionReport[data], ShapeReport[data] \
}\
\>", "Input",
  CellLabel->"In[14]:="],

Cell["\<\
data=buche; {LocationReport[data], DispersionReport[data], ShapeReport[data] \
}\
\>", "Input",
  CellLabel->"In[15]:="],

Cell["data=allData; {LocationReport[data] ,ShapeReport[data] }", "Input",
  CellLabel->"In[16]:="]
}, Open  ]],

Cell[CellGroupData[{

Cell["Darstellung der Kenngr\[ODoubleDot]ssen mit BoxWhiskerPlot", "Section"],

Cell["\<\
Der BoxWhiskerPlot ist von unsch\[ADoubleDot]tzbarem Wert um einen schnellen \
Ueberblick \[UDoubleDot]ber einen numerischen Datensatz zu gewinnen. Er \
bekommt seine Form durch das Rechteck, das durch die Distanz zwischen zwei \
Quantilen um den Median herum gegeben wird. Ueblicherweise sind es das 25% \
und das 75% Quantil. Normalerweise schliessen \[OpenCurlyDoubleQuote]whiskers\
\[CloseCurlyDoubleQuote], d.h. Linien wie Backenb\[ADoubleDot]rte \
(Schnurrhaare) die Rechtecke ein, welche die Ausdehnung des Datensatzes \
entweder ganz oder ohne die Ausreisser markieren. Ausreisser sind Punkte \
jenseits einer Distanz von 3/2 der Zwischenquantilen Spanne weg vom Rechteck. \
Grosse Ausreisser sind Punkte jenseits von 3 mal diese Spanne. 
Vgl. auch http://de.wikipedia.org/wiki/Boxplot
Der Quantilabstand ist ein Ma\[SZ] der Streuung (H\[ODoubleDot]he des \
Rechtecks). Weiter ist der Median in der Box eingezeichnet, welcher durch \
seine Lage innerhalb der Box einen Eindruck von der Schiefe der den Daten \
zugrunde liegenden Verteilung vermittelt. Diese Quantile sowie der Median \
sind robust gegen Ausreisser: Sie \[ADoubleDot]ndern nicht enorm, wenn man \
die Ausreisser wegl\[ADoubleDot]sst, im Gegensatz zum Mittelwert und damit \
der Standardabweichung.
\
\>", "Text"],

Cell["Remove[BoxWhiskerPlot]", "Input",
  CellLabel->"In[8]:="],

Cell["<<Statistics`StatisticsPlots`", "Input",
  CellLabel->"In[9]:="],

Cell["BoxWhiskerPlot[Transpose[{fichte,buche}]];", "Input",
  CellLabel->"In[10]:="],

Cell["BoxWhiskerPlot[Transpose[{allData}]];", "Input",
  CellLabel->"In[11]:="]
}, Open  ]],

Cell[CellGroupData[{

Cell["Erg\[ADoubleDot]nzungen", "Section"],

Cell[CellGroupData[{

Cell["Fehler des Mittelwerts", "Subsection"],

Cell["\<\
\[CapitalDelta]ak = 0.1; 
n = Length[fichte];\
\>", "Input",
  CellLabel->"In[21]:="],

Cell[BoxData[
    \(\[CapitalDelta]m\  = \ 1/8\ \((8\ *\ 0.01)\)\)], "Input",
  CellLabel->"In[12]:="]
}, Open  ]],

Cell[CellGroupData[{

Cell["Fehler der Standardabweichung", "Subsection"],

Cell["Mean[fichte]", "Input",
  CellLabel->"In[23]:="],

Cell["StandardDeviation[fichte]", "Input",
  CellLabel->"In[27]:="],

Cell[BoxData[
    \(\[CapitalDelta]s\  = 
      Sum[Abs[\ \((fichte[\([k]\)] - Mean[fichte])\)\ \[CapitalDelta]ak], {k, 
            1, n}]\ /\((\ \((n - 1)\)\ StandardDeviation[
              fichte]\ )\)\)], "Input",
  CellLabel->"In[24]:="]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
FrontEndVersion->"5.2 for Microsoft Windows",
ScreenRectangle->{{0, 1280}, {0, 901}},
WindowToolbars->"EditBar",
WindowSize->{612, 740},
WindowMargins->{{53, Automatic}, {Automatic, 25}},
PrintingCopies->1,
PrintingPageRange->{Automatic, Automatic},
ShowSelection->True,
StyleDefinitions -> "ArticleModern.nb"
]

(*******************************************************************
Cached data follows.  If you edit this Notebook file directly, not
using Mathematica, you must remove the line containing CacheID at
the top of  the file.  The cache data will then be recreated when
you save this file from within Mathematica.
*******************************************************************)

(*CellTagsOutline
CellTagsIndex->{}
*)

(*CellTagsIndex
CellTagsIndex->{}
*)

(*NotebookFileOutline
Notebook[{

Cell[CellGroupData[{
Cell[1776, 53, 42, 0, 86, "Title"],

Cell[CellGroupData[{
Cell[1843, 57, 31, 0, 63, "Section"],
Cell[1877, 59, 97, 1, 45, "Input"],
Cell[1977, 62, 111, 3, 45, "Input"],
Cell[2091, 67, 69, 1, 45, "Input"]
}, Open  ]],

Cell[CellGroupData[{
Cell[2197, 73, 42, 0, 63, "Section"],
Cell[2242, 75, 77, 1, 45, "Input"],
Cell[2322, 78, 131, 4, 63, "Input"],
Cell[2456, 84, 130, 4, 63, "Input"],
Cell[2589, 90, 98, 1, 45, "Input"]
}, Open  ]],

Cell[CellGroupData[{
Cell[2724, 96, 77, 0, 63, "Section"],
Cell[2804, 98, 1296, 20, 274, "Text"],
Cell[4103, 120, 63, 1, 45, "Input"],
Cell[4169, 123, 70, 1, 45, "Input"],
Cell[4242, 126, 84, 1, 45, "Input"],
Cell[4329, 129, 79, 1, 45, "Input"]
}, Open  ]],

Cell[CellGroupData[{
Cell[4445, 135, 42, 0, 63, "Section"],

Cell[CellGroupData[{
Cell[4512, 139, 44, 0, 54, "Subsection"],
Cell[4559, 141, 95, 4, 63, "Input"],
Cell[4657, 147, 102, 2, 45, "Input"]
}, Open  ]],

Cell[CellGroupData[{
Cell[4796, 154, 51, 0, 54, "Subsection"],
Cell[4850, 156, 54, 1, 45, "Input"],
Cell[4907, 159, 67, 1, 45, "Input"],
Cell[4977, 162, 243, 5, 65, "Input"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)



(*******************************************************************
End of Mathematica Notebook file.
*******************************************************************)

