(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 9.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 281544, 7802] NotebookOptionsPosition[ 266084, 7277] NotebookOutlinePosition[ 266441, 7293] CellTagsIndexPosition[ 266398, 7290] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Z\[ADoubleDot]higkeit von Fl\[UDoubleDot]ssigkeiten", "Title", CellChangeTimes->{{3.56474450191103*^9, 3.5647445135130463`*^9}, 3.56646686890348*^9}], Cell[BoxData[ StyleBox[ RowBox[{"Needs", "[", "\"\\"", "]"}], FontColor->GrayLevel[0.85]]], "Input", CellChangeTimes->{{3.566475934997345*^9, 3.56647593499899*^9}}], Cell[CellGroupData[{ Cell["Kugelfallviskosimeter", "Section", CellChangeTimes->{{3.564742996337908*^9, 3.564743000067913*^9}}], Cell["Radien der K\[UDoubleDot]gelchen", "Text", CellChangeTimes->{{3.5664741680607233`*^9, 3.566474170220254*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"diameters", " ", "=", " ", RowBox[{"{", RowBox[{ "1.5", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7.144", ",", "8", ",", "9"}], "}"}]}]], "Input", CellChangeTimes->{{3.5664748737390223`*^9, 3.566474884288294*^9}, { 3.566476067306982*^9, 3.5664760702242403`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.5`", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7.144`", ",", "8", ",", "9"}], "}"}]], "Output", CellChangeTimes->{{3.566474876195364*^9, 3.566474884910355*^9}, 3.5664762919101677`*^9, 3.566488455701887*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["r", "1.5"], ",", SubscriptBox["r", "2"], ",", SubscriptBox["r", "3"], ",", SubscriptBox["r", "4"], ",", SubscriptBox["r", "5"], ",", SubscriptBox["r", "6"], ",", SubscriptBox["r", "7.144"], ",", SubscriptBox["r", "8"], ",", SubscriptBox["r", "9"]}], "}"}], "=", RowBox[{".5", " ", RowBox[{"Quantity", "[", RowBox[{"diameters", ",", "\"\\""}], "]"}]}]}]], "Input", CellChangeTimes->{{3.5647454050713034`*^9, 3.5647454068923054`*^9}, { 3.5647455500145073`*^9, 3.56474555897652*^9}, {3.566473684694273*^9, 3.566473687917959*^9}, {3.566474827153274*^9, 3.566474894039671*^9}, { 3.566476071888979*^9, 3.566476078432473*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"0.75`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )], ",", TemplateBox[{"1.`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )], ",", TemplateBox[{"1.5`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )], ",", TemplateBox[{"2.`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )], ",", TemplateBox[{"2.5`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )], ",", TemplateBox[{"3.`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )], ",", TemplateBox[{"3.572`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )], ",", TemplateBox[{"4.`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )], ",", TemplateBox[{"4.5`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.5647454073723063`*^9, 3.564745559896521*^9, 3.5664739646939907`*^9, 3.566474710435211*^9, 3.5664748945966463`*^9, 3.5664760803431377`*^9, 3.5664762943670273`*^9, 3.566488456811431*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["\[CapitalDelta]r", "1.5"], ",", SubscriptBox["\[CapitalDelta]r", "2"], ",", SubscriptBox["\[CapitalDelta]r", "3"], ",", SubscriptBox["\[CapitalDelta]r", "4"], ",", SubscriptBox["\[CapitalDelta]r", "5"], ",", SubscriptBox["\[CapitalDelta]r", "6"], ",", SubscriptBox["\[CapitalDelta]r", "7.144"], ",", SubscriptBox["\[CapitalDelta]r", "8"], ",", SubscriptBox["\[CapitalDelta]r", "9"]}], "}"}], "=", RowBox[{".01", "*", ".5", " ", RowBox[{"Quantity", "[", RowBox[{"diameters", ",", "\"\\""}], "]"}]}]}]], "Input", CellChangeTimes->{{3.566474907253851*^9, 3.5664749474456377`*^9}, 3.566476084434148*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"0.0075`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )], ",", TemplateBox[{"0.01`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )], ",", TemplateBox[{"0.015`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )], ",", TemplateBox[{"0.02`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )], ",", TemplateBox[{"0.025`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )], ",", TemplateBox[{"0.03`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )], ",", TemplateBox[{"0.03572`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )], ",", TemplateBox[{"0.04`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )], ",", TemplateBox[{"0.045`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.566474948065192*^9, 3.566476085756621*^9, 3.56647737996767*^9, 3.5664884570222816`*^9}] }, Open ]], Cell["Dichten der K\[UDoubleDot]gelchen:", "Text", CellChangeTimes->{{3.5664740824118767`*^9, 3.56647408553023*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[Rho]", "1.5"], "=", " ", RowBox[{ SubscriptBox["\[Rho]", "9"], "=", RowBox[{"Quantity", "[", RowBox[{"1.3625", ",", FractionBox["\"\\"", SuperscriptBox["\"\\"", "3"]]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.5647438850971603`*^9, 3.5647439936453133`*^9}}], Cell[BoxData[ TemplateBox[{"1.3625`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", SuperscriptBox["\"cm\"", "3"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: grams per centimeter cubed"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Grams\"", SuperscriptBox["\"Centimeters\"", "3"]]}], "]"}]& )]], "Output", CellChangeTimes->{3.5647439962453175`*^9, 3.566473964311158*^9, 3.5664747099070683`*^9, 3.566488457117484*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[Rho]", "2"], "=", RowBox[{ SubscriptBox["\[Rho]", "4"], "=", RowBox[{ SubscriptBox["\[Rho]", "3"], "=", RowBox[{ SubscriptBox["\[Rho]", "5"], "=", RowBox[{ SubscriptBox["\[Rho]", "7.144"], "=", RowBox[{ SubscriptBox["\[Rho]", "6"], "=", RowBox[{"Quantity", "[", RowBox[{"1.3775", ",", FractionBox["\"\\"", SuperscriptBox["\"\\"", "3"]]}], "]"}]}]}]}]}]}]}]], "Input", CellChangeTimes->{{3.564744009008335*^9, 3.5647440483453903`*^9}, 3.564744192030593*^9, {3.5647443931018763`*^9, 3.56474441698591*^9}}], Cell[BoxData[ TemplateBox[{"1.3775`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", SuperscriptBox["\"cm\"", "3"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: grams per centimeter cubed"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Grams\"", SuperscriptBox["\"Centimeters\"", "3"]]}], "]"}]& )]], "Output", CellChangeTimes->{3.564744419956914*^9, 3.566473964511444*^9, 3.566474710153327*^9, 3.566488457214025*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[Rho]", "8"], "=", RowBox[{"Quantity", "[", RowBox[{"1.3575", ",", FractionBox["\"\\"", SuperscriptBox["\"\\"", "3"]]}], "]"}]}]], "Input", CellChangeTimes->{{3.56474442387792*^9, 3.564744448161954*^9}}], Cell[BoxData[ TemplateBox[{"1.3575`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", SuperscriptBox["\"cm\"", "3"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: grams per centimeter cubed"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Grams\"", SuperscriptBox["\"Centimeters\"", "3"]]}], "]"}]& )]], "Output", CellChangeTimes->{3.5647444489519553`*^9, 3.566473964579302*^9, 3.56647471025815*^9, 3.5664884572771797`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"Table", "[", RowBox[{ SubscriptBox["\[CapitalDelta]\[Rho]", "i"], ",", RowBox[{"{", RowBox[{"i", ",", "diameters"}], "}"}]}], "]"}], "*)"}], RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["\[CapitalDelta]\[Rho]", "1.5`"], ",", SubscriptBox["\[CapitalDelta]\[Rho]", "2"], ",", SubscriptBox["\[CapitalDelta]\[Rho]", "3"], ",", SubscriptBox["\[CapitalDelta]\[Rho]", "4"], ",", SubscriptBox["\[CapitalDelta]\[Rho]", "5"], ",", SubscriptBox["\[CapitalDelta]\[Rho]", "6"], ",", SubscriptBox["\[CapitalDelta]\[Rho]", "7.144`"], ",", SubscriptBox["\[CapitalDelta]\[Rho]", "8"], ",", SubscriptBox["\[CapitalDelta]\[Rho]", "9"]}], "}"}], "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Quantity", "[", RowBox[{"0.0025", ",", FractionBox["\"\\"", SuperscriptBox["\"\\"", "3"]]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "diameters"}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.5647444519919596`*^9, 3.564744479166998*^9}, { 3.5664743455830812`*^9, 3.566474347577446*^9}, {3.566477767489937*^9, 3.566477802519166*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"0.0025`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", SuperscriptBox["\"cm\"", "3"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: grams per centimeter cubed"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Grams\"", SuperscriptBox["\"Centimeters\"", "3"]]}], "]"}]& )], ",", TemplateBox[{"0.0025`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", SuperscriptBox["\"cm\"", "3"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: grams per centimeter cubed"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Grams\"", SuperscriptBox["\"Centimeters\"", "3"]]}], "]"}]& )], ",", TemplateBox[{"0.0025`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", SuperscriptBox["\"cm\"", "3"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: grams per centimeter cubed"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Grams\"", SuperscriptBox["\"Centimeters\"", "3"]]}], "]"}]& )], ",", TemplateBox[{"0.0025`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", SuperscriptBox["\"cm\"", "3"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: grams per centimeter cubed"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Grams\"", SuperscriptBox["\"Centimeters\"", "3"]]}], "]"}]& )], ",", TemplateBox[{"0.0025`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", SuperscriptBox["\"cm\"", "3"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: grams per centimeter cubed"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Grams\"", SuperscriptBox["\"Centimeters\"", "3"]]}], "]"}]& )], ",", TemplateBox[{"0.0025`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", SuperscriptBox["\"cm\"", "3"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: grams per centimeter cubed"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Grams\"", SuperscriptBox["\"Centimeters\"", "3"]]}], "]"}]& )], ",", TemplateBox[{"0.0025`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", SuperscriptBox["\"cm\"", "3"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: grams per centimeter cubed"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Grams\"", SuperscriptBox["\"Centimeters\"", "3"]]}], "]"}]& )], ",", TemplateBox[{"0.0025`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", SuperscriptBox["\"cm\"", "3"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: grams per centimeter cubed"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Grams\"", SuperscriptBox["\"Centimeters\"", "3"]]}], "]"}]& )], ",", TemplateBox[{"0.0025`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", SuperscriptBox["\"cm\"", "3"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: grams per centimeter cubed"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Grams\"", SuperscriptBox["\"Centimeters\"", "3"]]}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{ 3.5647444803179994`*^9, 3.566473964648818*^9, 3.5664743550330677`*^9, 3.566474710389463*^9, {3.566477791430056*^9, 3.566477803408547*^9}, 3.566488457767632*^9}] }, Open ]], Cell[CellGroupData[{ Cell["1.5 mm Durchmesser", "Subsection", CellChangeTimes->{{3.566474180844736*^9, 3.566474194570511*^9}}], Cell[TextData[{ "Hinweis: Der Fehler der Streckenmessung liegt bei ca. 1 mm und damit mit ", Cell[BoxData[ FormBox[ FractionBox["1", "200"], TraditionalForm]]], " vernachl\[ADoubleDot]ssigbar klein gegen die anderen Fehler." }], "Text", CellChangeTimes->{{3.564741249704447*^9, 3.5647413584426003`*^9}, { 3.5664864119961357`*^9, 3.566486427664818*^9}}], Cell["Strecke:", "Text", CellChangeTimes->{{3.5664741976222477`*^9, 3.566474199474145*^9}, 3.566486428744523*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[CapitalDelta]s", "1.5"], "=", RowBox[{"Quantity", "[", RowBox[{"200", ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.5647383476626654`*^9, 3.5647383980907364`*^9}, { 3.564738433346786*^9, 3.5647385037778854`*^9}, {3.5647412012053785`*^9, 3.564741244172439*^9}}], Cell[BoxData[ TemplateBox[{"200"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )]], "Output", CellChangeTimes->{3.5647384860648603`*^9, 3.5664739656625834`*^9, 3.566474711453855*^9, 3.5664884578237886`*^9}] }, Open ]], Cell["Zeitmessungen:", "Text", CellChangeTimes->{{3.566474203410068*^9, 3.566474204729865*^9}, 3.566486432226779*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[CapitalDelta]t", "1.5"], "=", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{ "160.34", ",", "144.13", ",", "154.17", ",", "134.00", ",", "143.69"}], "}"}], ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.564738498296878*^9, 3.5647385277719193`*^9}, { 3.564738595644015*^9, 3.5647386357700715`*^9}, {3.564738825614339*^9, 3.5647388328553495`*^9}, {3.5647389412945023`*^9, 3.5647389460955086`*^9}, { 3.5647391038967314`*^9, 3.5647391085177383`*^9}, {3.5647391924618564`*^9, 3.564739194561859*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"160.34`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )], ",", TemplateBox[{"144.13`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )], ",", TemplateBox[{"154.17`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )], ",", TemplateBox[{"134.`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )], ",", TemplateBox[{"143.69`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.564739206473876*^9, 3.566473965720449*^9, 3.566474711511134*^9, 3.5664884579672213`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"i", "=", "1.5"}], ";", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["v", "i"], ",", SubscriptBox["\[CapitalDelta]v", "i"]}], "}"}], "=", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"#", "[", FractionBox[ SubscriptBox["\[CapitalDelta]s", "i"], SubscriptBox["\[CapitalDelta]t", "i"]], "]"}], "&"}], ",", RowBox[{"{", RowBox[{"Mean", ",", "StandardDeviation"}], "}"}]}], "]"}], "//", "UnitConvert"}]}]}]], "Input", CellChangeTimes->{{3.566474212347312*^9, 3.566474279389969*^9}, { 3.56647526510242*^9, 3.56647527006187*^9}, {3.5664754493637*^9, 3.566475452434826*^9}, {3.566475486151855*^9, 3.5664756500535383`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"0.0013633354829352612`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters per second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Meters\"", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"0.00009475791707437178`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters per second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Meters\"", "\"Seconds\""]}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{{3.566474238600124*^9, 3.566474280217235*^9}, 3.566474711987019*^9, {3.566475516287499*^9, 3.56647560987586*^9}, 3.566475651543037*^9, 3.566488458980632*^9}] }, Open ]], Cell["\<\ Temperatur zum Zeitpunkt der Messung:\ \>", "Text", CellChangeTimes->{{3.566474318202792*^9, 3.5664743236661158`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["T", "1.5"], "=", RowBox[{"Quantity", "[", RowBox[{"22.75", ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.564738668865118*^9, 3.56473869194915*^9}, { 3.5647387573312426`*^9, 3.564738765892255*^9}}], Cell[BoxData[ TemplateBox[{"22.75`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"\[Degree]C\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: degrees Celsius"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Celsius\""}], "]"}]& )]], "Output", CellChangeTimes->{3.564738770973262*^9, 3.564738856209382*^9, 3.566473965761573*^9, 3.566474712606703*^9, 3.56648845910104*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[CapitalDelta]T", "1.5"], "=", RowBox[{"Quantity", "[", RowBox[{"0.5", ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.5647387767942705`*^9, 3.5647388132323217`*^9}}], Cell[BoxData[ TemplateBox[{"0.5`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"\[Degree]C\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: degrees Celsius"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Celsius\""}], "]"}]& )]], "Output", CellChangeTimes->{3.5647388688914003`*^9, 3.566473965816348*^9, 3.566474712659854*^9, 3.5664884591586514`*^9}] }, Open ]], Cell["\<\ Daraus folgend: Dichte des Polyethylenglykols:\ \>", "Text", CellChangeTimes->{{3.566474326634288*^9, 3.566474335649376*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[Rho]", RowBox[{"fl", ",", "1.5"}]], "=", RowBox[{"Quantity", "[", RowBox[{"1.1468", ",", FractionBox["\"\\"", SuperscriptBox["\"\\"", "3"]]}], "]"}]}]], "Input", CellChangeTimes->{{3.566474336791061*^9, 3.566474339974503*^9}, { 3.5664745180433073`*^9, 3.566474550525386*^9}}], Cell[BoxData[ TemplateBox[{"1.1468`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", SuperscriptBox["\"cm\"", "3"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: grams per centimeter cubed"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Grams\"", SuperscriptBox["\"Centimeters\"", "3"]]}], "]"}]& )]], "Output", CellChangeTimes->{3.566474551657119*^9, 3.566474712732232*^9, 3.566488459231962*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[CapitalDelta]\[Rho]", RowBox[{"fl", ",", "1.5"}]], "=", RowBox[{"Quantity", "[", RowBox[{"0.0005", ",", FractionBox["\"\\"", SuperscriptBox["\"\\"", "3"]]}], "]"}]}]], "Input", CellChangeTimes->{{3.566474553116497*^9, 3.566474572219965*^9}}], Cell[BoxData[ TemplateBox[{"0.0005`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", SuperscriptBox["\"cm\"", "3"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: grams per centimeter cubed"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Grams\"", SuperscriptBox["\"Centimeters\"", "3"]]}], "]"}]& )]], "Output", CellChangeTimes->{3.566474572959062*^9, 3.566474712799906*^9, 3.566488459298764*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["2 mm Durchmesser", "Subsection", CellChangeTimes->{{3.566486458872699*^9, 3.5664864608702593`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[CapitalDelta]s", "2"], "=", RowBox[{"Quantity", "[", RowBox[{"200", ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.564739215404889*^9, 3.564739255221945*^9}}], Cell[BoxData[ TemplateBox[{"200"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )]], "Output", CellChangeTimes->{3.5647392569429474`*^9, 3.5664739658620358`*^9, 3.5664747128629293`*^9, 3.5664884593386087`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[CapitalDelta]t", "2"], "=", " ", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{ "82.59", ",", "82.28", ",", "81.29", ",", "80.92", ",", "80.77"}], "}"}], ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.564739260272952*^9, 3.564739288597992*^9}, { 3.5647394863112707`*^9, 3.564739501743292*^9}, {3.564739578726401*^9, 3.564739582766406*^9}, {3.564739710886587*^9, 3.5647397147675924`*^9}, { 3.5647397877796955`*^9, 3.564739823664746*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"82.59`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )], ",", TemplateBox[{"82.28`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )], ",", TemplateBox[{"81.29`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )], ",", TemplateBox[{"80.92`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )], ",", TemplateBox[{"80.77`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.564739838726767*^9, 3.566473965919075*^9, 3.56647471293687*^9, 3.566488459403387*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"i", "=", "2"}], ";", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["v", "i"], ",", SubscriptBox["\[CapitalDelta]v", "i"]}], "}"}], "=", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"#", "[", FractionBox[ SubscriptBox["\[CapitalDelta]s", "i"], SubscriptBox["\[CapitalDelta]t", "i"]], "]"}], "&"}], ",", RowBox[{"{", RowBox[{"Mean", ",", "StandardDeviation"}], "}"}]}], "]"}], "//", "UnitConvert"}]}]}]], "Input", CellChangeTimes->{{3.566474212347312*^9, 3.566474279389969*^9}, { 3.56647526510242*^9, 3.56647527006187*^9}, {3.5664754493637*^9, 3.566475452434826*^9}, {3.566475486151855*^9, 3.566475660204863*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"0.002452079203423226`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters per second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Meters\"", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"0.000024563059291500663`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters per second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Meters\"", "\"Seconds\""]}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.566475661561639*^9, 3.566488460338736*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["T", "2"], ",", SubscriptBox["\[CapitalDelta]T", "2"]}], "}"}], "=", RowBox[{"{", RowBox[{ SubscriptBox["T", "1.5"], ",", SubscriptBox["\[CapitalDelta]T", "1.5"]}], "}"}]}]], "Input", CellChangeTimes->{{3.5647384783538494`*^9, 3.5647384783638496`*^9}, { 3.564739624223465*^9, 3.5647396394854865`*^9}, {3.566474795278819*^9, 3.5664748089560833`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"22.75`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"\[Degree]C\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: degrees Celsius"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Celsius\""}], "]"}]& )], ",", TemplateBox[{"0.5`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"\[Degree]C\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: degrees Celsius"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Celsius\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.5647396411554885`*^9, 3.5664739659600677`*^9, 3.566474713019821*^9, 3.566474809406172*^9, 3.5664884604541187`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["\[Rho]", RowBox[{"fl", ",", "2"}]], ",", SubscriptBox["\[CapitalDelta]\[Rho]", RowBox[{"fl", ",", "2"}]]}], "}"}], "=", RowBox[{"{", RowBox[{ SubscriptBox["\[Rho]", RowBox[{"fl", ",", "1.5"}]], ",", SubscriptBox["\[CapitalDelta]\[Rho]", RowBox[{"fl", ",", "1.5"}]]}], "}"}]}]], "Input", CellChangeTimes->{{3.566474584165682*^9, 3.566474601089686*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"1.1468`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", SuperscriptBox["\"cm\"", "3"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: grams per centimeter cubed"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Grams\"", SuperscriptBox["\"Centimeters\"", "3"]]}], "]"}]& )], ",", TemplateBox[{"0.0005`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", SuperscriptBox["\"cm\"", "3"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: grams per centimeter cubed"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Grams\"", SuperscriptBox["\"Centimeters\"", "3"]]}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.5664746018871527`*^9, 3.566474713267044*^9, 3.5664884605655127`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["3 mm Durchmesser", "Subsection", CellChangeTimes->{{3.566486467570644*^9, 3.566486468374488*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[CapitalDelta]s", "3"], "=", RowBox[{"Quantity", "[", RowBox[{"300", ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.5647397999007125`*^9, 3.564739899426852*^9}, { 3.5647399724189553`*^9, 3.564739982439969*^9}}], Cell[BoxData[ TemplateBox[{"300"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )]], "Output", CellChangeTimes->{{3.5647398916248417`*^9, 3.564739900506854*^9}, 3.5647399832199707`*^9, 3.566473966062326*^9, 3.566474713310123*^9, 3.5664884606070843`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[CapitalDelta]t", "3"], "=", " ", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{ "62.67", ",", "64.03", ",", "63.53", ",", "64.48", ",", "60.87"}], "}"}], ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.5647399082378645`*^9, 3.5647399320818987`*^9}, { 3.5647399911619816`*^9, 3.564739995731988*^9}, {3.564740048200062*^9, 3.5647400951971283`*^9}, {3.5647401938032675`*^9, 3.564740206554285*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"62.67`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )], ",", TemplateBox[{"64.03`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )], ",", TemplateBox[{"63.53`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )], ",", TemplateBox[{"64.48`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )], ",", TemplateBox[{"60.87`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.5647402073842864`*^9, 3.566473966121765*^9, 3.566474713366077*^9, 3.566488460662506*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"i", "=", "3"}], ";", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["v", "i"], ",", SubscriptBox["\[CapitalDelta]v", "i"]}], "}"}], "=", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"#", "[", FractionBox[ SubscriptBox["\[CapitalDelta]s", "i"], SubscriptBox["\[CapitalDelta]t", "i"]], "]"}], "&"}], ",", RowBox[{"{", RowBox[{"Mean", ",", "StandardDeviation"}], "}"}]}], "]"}], "//", "UnitConvert"}]}]}]], "Input", CellChangeTimes->{{3.566474212347312*^9, 3.566474279389969*^9}, { 3.56647526510242*^9, 3.56647527006187*^9}, {3.5664754493637*^9, 3.566475452434826*^9}, {3.566475486151855*^9, 3.566475667643936*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"0.004755120672398952`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters per second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Meters\"", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"0.00010903771119768043`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters per second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Meters\"", "\"Seconds\""]}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.566475669123211*^9, 3.566488461584196*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["T", "3"], ",", SubscriptBox["\[CapitalDelta]T", "3"]}], "}"}], "=", RowBox[{"{", RowBox[{ SubscriptBox["T", "1.5"], ",", SubscriptBox["\[CapitalDelta]T", "1.5"]}], "}"}]}]], "Input", CellChangeTimes->{{3.5647400035429993`*^9, 3.564740013995014*^9}, { 3.56474005419007*^9, 3.564740084985114*^9}, {3.566474770289473*^9, 3.566474787925542*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"22.75`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"\[Degree]C\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: degrees Celsius"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Celsius\""}], "]"}]& )], ",", TemplateBox[{"0.5`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"\[Degree]C\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: degrees Celsius"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Celsius\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.564740086605116*^9, 3.566473966162114*^9, 3.566474713427823*^9, 3.566474788358075*^9, 3.566488461655279*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["\[Rho]", RowBox[{"fl", ",", "3"}]], ",", SubscriptBox["\[CapitalDelta]\[Rho]", RowBox[{"fl", ",", "3"}]]}], "}"}], "=", RowBox[{"{", RowBox[{ SubscriptBox["\[Rho]", RowBox[{"fl", ",", "1.5"}]], ",", SubscriptBox["\[CapitalDelta]\[Rho]", RowBox[{"fl", ",", "1.5"}]]}], "}"}]}]], "Input", CellChangeTimes->{{3.5664746161131153`*^9, 3.566474618440468*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"1.1468`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", SuperscriptBox["\"cm\"", "3"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: grams per centimeter cubed"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Grams\"", SuperscriptBox["\"Centimeters\"", "3"]]}], "]"}]& )], ",", TemplateBox[{"0.0005`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", SuperscriptBox["\"cm\"", "3"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: grams per centimeter cubed"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Grams\"", SuperscriptBox["\"Centimeters\"", "3"]]}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.566474619092906*^9, 3.5664747135856037`*^9, 3.566488461765605*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["4 mm Durchmesser", "Subsection", CellChangeTimes->{{3.5664864724794073`*^9, 3.566486472850205*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[CapitalDelta]s", "4"], "=", " ", RowBox[{"Quantity", "[", RowBox[{"200", ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.564741112930254*^9, 3.5647411802913494`*^9}}], Cell[BoxData[ TemplateBox[{"200"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )]], "Output", CellChangeTimes->{3.5647411876933594`*^9, 3.566473966263083*^9, 3.566474713645318*^9, 3.5664884618095617`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[CapitalDelta]t", "4"], "=", " ", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{ "24.38", ",", "24.92", ",", "25.07", ",", "25.34", ",", "24.59"}], "}"}], ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.5647384754238453`*^9, 3.5647384754838457`*^9}, { 3.5647413878576417`*^9, 3.5647414636797485`*^9}, {3.5647415012758017`*^9, 3.5647415340208473`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"24.38`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )], ",", TemplateBox[{"24.92`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )], ",", TemplateBox[{"25.07`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )], ",", TemplateBox[{"25.34`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )], ",", TemplateBox[{"24.59`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.564741539891856*^9, 3.566473966399057*^9, 3.5664747137030897`*^9, 3.566488461863914*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"i", "=", "4"}], ";", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["v", "i"], ",", SubscriptBox["\[CapitalDelta]v", "i"]}], "}"}], "=", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"#", "[", FractionBox[ SubscriptBox["\[CapitalDelta]s", "i"], SubscriptBox["\[CapitalDelta]t", "i"]], "]"}], "&"}], ",", RowBox[{"{", RowBox[{"Mean", ",", "StandardDeviation"}], "}"}]}], "]"}], "//", "UnitConvert"}]}]}]], "Input", CellChangeTimes->{{3.566474212347312*^9, 3.566474279389969*^9}, { 3.56647526510242*^9, 3.56647527006187*^9}, {3.5664754493637*^9, 3.566475452434826*^9}, {3.566475486151855*^9, 3.566475675563686*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"0.008046567511445241`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters per second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Meters\"", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"0.00012351120769427563`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters per second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Meters\"", "\"Seconds\""]}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.566475677025173*^9, 3.5664884627742033`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["T", "4"], "=", RowBox[{"Quantity", "[", RowBox[{"23.25", ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.5647415444628625`*^9, 3.5647415985999384`*^9}}], Cell[BoxData[ TemplateBox[{"23.25`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"\[Degree]C\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: degrees Celsius"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Celsius\""}], "]"}]& )]], "Output", CellChangeTimes->{3.56474160000994*^9, 3.566473966543825*^9, 3.566474713761182*^9, 3.566488462841473*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[CapitalDelta]T", "4"], "=", SubscriptBox["\[CapitalDelta]T", "1.5"]}]], "Input", CellChangeTimes->{{3.5647416020609436`*^9, 3.564741625844977*^9}}], Cell[BoxData[ TemplateBox[{"0.5`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"\[Degree]C\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: degrees Celsius"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Celsius\""}], "]"}]& )]], "Output", CellChangeTimes->{3.5647416267849784`*^9, 3.5664739665987463`*^9, 3.5664747138066998`*^9, 3.566488462881083*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[Rho]", RowBox[{"fl", ",", "4"}]], "=", RowBox[{"Quantity", "[", RowBox[{"1.1463", ",", FractionBox["\"\\"", SuperscriptBox["\"\\"", "3"]]}], "]"}]}]], "Input", CellChangeTimes->{{3.566474624392254*^9, 3.5664746724371853`*^9}}], Cell[BoxData[ TemplateBox[{"1.1463`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", SuperscriptBox["\"cm\"", "3"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: grams per centimeter cubed"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Grams\"", SuperscriptBox["\"Centimeters\"", "3"]]}], "]"}]& )]], "Output", CellChangeTimes->{3.566474673356975*^9, 3.566474713869463*^9, 3.566475051113052*^9, 3.566488462950695*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[CapitalDelta]\[Rho]", RowBox[{"fl", ",", "4"}]], "=", RowBox[{"Quantity", "[", RowBox[{"0.0005", ",", FractionBox["\"\\"", SuperscriptBox["\"\\"", "3"]]}], "]"}]}]], "Input", CellChangeTimes->{{3.566474650759672*^9, 3.566474650920329*^9}}], Cell[BoxData[ TemplateBox[{"0.0005`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", SuperscriptBox["\"cm\"", "3"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: grams per centimeter cubed"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Grams\"", SuperscriptBox["\"Centimeters\"", "3"]]}], "]"}]& )]], "Output", CellChangeTimes->{3.566474651831666*^9, 3.5664747139375963`*^9, 3.5664884630175543`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["5 mm Durchmesser", "Subsection", CellChangeTimes->{{3.566486480390566*^9, 3.56648648102594*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[CapitalDelta]s", "5"], "=", RowBox[{"Quantity", "[", RowBox[{"200", ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.5647416310649843`*^9, 3.5647416722110424`*^9}}], Cell[BoxData[ TemplateBox[{"200"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )]], "Output", CellChangeTimes->{3.564741678723051*^9, 3.5664739666445093`*^9, 3.5664747139961348`*^9, 3.566488463061005*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[CapitalDelta]t", "5"], "=", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{ "16.31", ",", "15.98", ",", "16.50", ",", "16.29", ",", "16.13"}], "}"}], ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.5647416967250767`*^9, 3.5647417433131423`*^9}, { 3.5647417793991933`*^9, 3.5647417843092003`*^9}, {3.564741814535243*^9, 3.5647418172552466`*^9}, {3.5647418506322937`*^9, 3.564741852352296*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"16.31`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )], ",", TemplateBox[{"15.98`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )], ",", TemplateBox[{"16.5`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )], ",", TemplateBox[{"16.29`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )], ",", TemplateBox[{"16.13`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.564741853242297*^9, 3.566473966704528*^9, 3.566474714046547*^9, 3.566488463116581*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"i", "=", "5"}], ";", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["v", "i"], ",", SubscriptBox["\[CapitalDelta]v", "i"]}], "}"}], "=", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"#", "[", FractionBox[ SubscriptBox["\[CapitalDelta]s", "i"], SubscriptBox["\[CapitalDelta]t", "i"]], "]"}], "&"}], ",", RowBox[{"{", RowBox[{"Mean", ",", "StandardDeviation"}], "}"}]}], "]"}], "//", "UnitConvert"}]}]}]], "Input", CellChangeTimes->{{3.566474212347312*^9, 3.566474279389969*^9}, { 3.56647526510242*^9, 3.56647527006187*^9}, {3.5664754493637*^9, 3.566475452434826*^9}, {3.566475486151855*^9, 3.5664756500535383`*^9}, { 3.566475686802642*^9, 3.566475687242239*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"0.012315199851688581`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters per second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Meters\"", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"0.00014923505608828102`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters per second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Meters\"", "\"Seconds\""]}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.566475688527214*^9, 3.5664884640388927`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["T", "5"], ",", SubscriptBox["\[CapitalDelta]T", "5"]}], "}"}], "=", RowBox[{"{", RowBox[{ SubscriptBox["T", "4"], ",", SubscriptBox["\[CapitalDelta]T", "4"]}], "}"}]}]], "Input", CellChangeTimes->{{3.5647418592033057`*^9, 3.5647418751863284`*^9}, { 3.566474745482835*^9, 3.5664747579847097`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"23.25`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"\[Degree]C\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: degrees Celsius"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Celsius\""}], "]"}]& )], ",", TemplateBox[{"0.5`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"\[Degree]C\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: degrees Celsius"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Celsius\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.5647418768863306`*^9, 3.566473966745315*^9, 3.5664747141221323`*^9, 3.566474758661518*^9, 3.5664884641093407`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["\[Rho]", RowBox[{"fl", ",", "5"}]], ",", SubscriptBox["\[CapitalDelta]\[Rho]", RowBox[{"fl", ",", "5"}]]}], "}"}], "=", RowBox[{"{", RowBox[{ SubscriptBox["\[Rho]", RowBox[{"fl", ",", "4"}]], ",", SubscriptBox["\[CapitalDelta]\[Rho]", RowBox[{"fl", ",", "4"}]]}], "}"}]}]], "Input", CellChangeTimes->{{3.566474689195962*^9, 3.566474698115529*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"1.1463`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", SuperscriptBox["\"cm\"", "3"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: grams per centimeter cubed"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Grams\"", SuperscriptBox["\"Centimeters\"", "3"]]}], "]"}]& )], ",", TemplateBox[{"0.0005`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", SuperscriptBox["\"cm\"", "3"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: grams per centimeter cubed"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Grams\"", SuperscriptBox["\"Centimeters\"", "3"]]}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{{3.5664747021245737`*^9, 3.5664747143008137`*^9}, 3.566488464222205*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["6 mm Durchmesser", "Subsection", CellChangeTimes->{{3.566486484910818*^9, 3.566486485810719*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[CapitalDelta]s", "6"], "=", RowBox[{"Quantity", "[", RowBox[{"200", ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.5647419016593657`*^9, 3.5647419137623825`*^9}, { 3.5647420635085936`*^9, 3.5647420643285947`*^9}}], Cell[BoxData[ TemplateBox[{"200"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )]], "Output", CellChangeTimes->{3.5647420925726347`*^9, 3.566473966846941*^9, 3.566474714363405*^9, 3.566488464263291*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[CapitalDelta]t", "6"], "=", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{ "11.79", ",", "11.65", ",", "11.97", ",", "11.84", ",", "11.68"}], "}"}], ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.5647419405474205`*^9, 3.564742036733556*^9}, { 3.5647421064756546`*^9, 3.5647421070456553`*^9}, {3.5647421567837253`*^9, 3.5647421578137264`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"11.79`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )], ",", TemplateBox[{"11.65`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )], ",", TemplateBox[{"11.97`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )], ",", TemplateBox[{"11.84`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )], ",", TemplateBox[{"11.68`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.5647421616547318`*^9, 3.5664739668988132`*^9, 3.5664747144161997`*^9, 3.5664884643179893`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"i", "=", "6"}], ";", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["v", "i"], ",", SubscriptBox["\[CapitalDelta]v", "i"]}], "}"}], "=", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"#", "[", FractionBox[ SubscriptBox["\[CapitalDelta]s", "i"], SubscriptBox["\[CapitalDelta]t", "i"]], "]"}], "&"}], ",", RowBox[{"{", RowBox[{"Mean", ",", "StandardDeviation"}], "}"}]}], "]"}], "//", "UnitConvert"}]}]}]], "Input", CellChangeTimes->{{3.566474212347312*^9, 3.566474279389969*^9}, { 3.56647526510242*^9, 3.56647527006187*^9}, {3.5664754493637*^9, 3.566475452434826*^9}, {3.566475486151855*^9, 3.5664756500535383`*^9}, 3.566475695763126*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"0.016970905542470625`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters per second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Meters\"", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"0.0001850744557520958`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters per second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Meters\"", "\"Seconds\""]}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.566475697206448*^9, 3.5664884652612534`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["T", "6"], ",", SubscriptBox["\[CapitalDelta]T", "6"]}], "}"}], "=", RowBox[{"{", RowBox[{ SubscriptBox["T", "5"], ",", SubscriptBox["\[CapitalDelta]T", "5"]}], "}"}]}]], "Input", CellChangeTimes->{{3.5647422027007895`*^9, 3.564742212191803*^9}, { 3.566474726938878*^9, 3.566474738448471*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"23.25`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"\[Degree]C\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: degrees Celsius"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Celsius\""}], "]"}]& )], ",", TemplateBox[{"0.5`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"\[Degree]C\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: degrees Celsius"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Celsius\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{ 3.5647422131418047`*^9, 3.566473966946869*^9, {3.566474714457943*^9, 3.566474740263673*^9}, 3.566488465347474*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["\[Rho]", RowBox[{"fl", ",", "6"}]], ",", SubscriptBox["\[CapitalDelta]\[Rho]", RowBox[{"fl", ",", "6"}]]}], "}"}], "=", RowBox[{"{", RowBox[{ SubscriptBox["\[Rho]", RowBox[{"fl", ",", "4"}]], ",", SubscriptBox["\[CapitalDelta]\[Rho]", RowBox[{"fl", ",", "4"}]]}], "}"}]}]], "Input", CellChangeTimes->{{3.566474998095549*^9, 3.566475000087357*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"1.1463`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", SuperscriptBox["\"cm\"", "3"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: grams per centimeter cubed"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Grams\"", SuperscriptBox["\"Centimeters\"", "3"]]}], "]"}]& )], ",", TemplateBox[{"0.0005`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", SuperscriptBox["\"cm\"", "3"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: grams per centimeter cubed"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Grams\"", SuperscriptBox["\"Centimeters\"", "3"]]}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{{3.566474992860526*^9, 3.566475000712675*^9}, 3.566488465536004*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["7.144 mm Durchmesser", "Subsection", CellChangeTimes->{{3.566486491510274*^9, 3.5664864951176558`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[CapitalDelta]s", "7.144"], "=", RowBox[{"Quantity", "[", RowBox[{"200", ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.5647422460468507`*^9, 3.5647422691608834`*^9}}], Cell[BoxData[ TemplateBox[{"200"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )]], "Output", CellChangeTimes->{3.5647422714208865`*^9, 3.566473967046947*^9, 3.566474714558548*^9, 3.566488465583981*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[CapitalDelta]t", "7.144"], "=", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"8.75", ",", "8.73", ",", "8.90", ",", "8.76", ",", "8.88"}], "}"}], ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.56474227380189*^9, 3.5647423892500525`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"8.75`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )], ",", TemplateBox[{"8.73`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )], ",", TemplateBox[{"8.9`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )], ",", TemplateBox[{"8.76`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )], ",", TemplateBox[{"8.88`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.564742391121055*^9, 3.566473967100662*^9, 3.566474714612618*^9, 3.566488465676175*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"i", "=", "7.144"}], ";", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["v", "i"], ",", SubscriptBox["\[CapitalDelta]v", "i"]}], "}"}], "=", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"#", "[", FractionBox[ SubscriptBox["\[CapitalDelta]s", "i"], SubscriptBox["\[CapitalDelta]t", "i"]], "]"}], "&"}], ",", RowBox[{"{", RowBox[{"Mean", ",", "StandardDeviation"}], "}"}]}], "]"}], "//", "UnitConvert"}]}]}]], "Input", CellChangeTimes->{{3.566474212347312*^9, 3.566474279389969*^9}, { 3.56647526510242*^9, 3.56647527006187*^9}, {3.5664754493637*^9, 3.566475452434826*^9}, {3.566475486151855*^9, 3.5664756500535383`*^9}, { 3.566475702249694*^9, 3.566475703081181*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"0.022718426633185067`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters per second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Meters\"", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"0.0002046869301224346`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters per second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Meters\"", "\"Seconds\""]}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.566475704402862*^9, 3.566488466646864*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["T", "7.144"], "=", RowBox[{"Quantity", "[", RowBox[{"23.5", ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.5647423934110584`*^9, 3.5647424340371156`*^9}}], Cell[BoxData[ TemplateBox[{"23.5`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"\[Degree]C\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: degrees Celsius"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Celsius\""}], "]"}]& )]], "Output", CellChangeTimes->{3.564742434957117*^9, 3.566473967147519*^9, 3.5664747146589746`*^9, 3.566488466713488*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[CapitalDelta]T", "7.144"], "=", SubscriptBox["\[CapitalDelta]T", "1.5"]}]], "Input", CellChangeTimes->{{3.5647424375071206`*^9, 3.56474245135014*^9}}], Cell[BoxData[ TemplateBox[{"0.5`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"\[Degree]C\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: degrees Celsius"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Celsius\""}], "]"}]& )]], "Output", CellChangeTimes->{3.5647424523101416`*^9, 3.566473967197359*^9, 3.566474714712565*^9, 3.566488466771698*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[Rho]", RowBox[{"fl", ",", "7.144"}]], "=", RowBox[{"Quantity", "[", RowBox[{"1.1460", ",", FractionBox["\"\\"", SuperscriptBox["\"\\"", "3"]]}], "]"}]}]], "Input", CellChangeTimes->{{3.566475036677144*^9, 3.56647504433237*^9}}], Cell[BoxData[ TemplateBox[{"1.146`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", SuperscriptBox["\"cm\"", "3"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: grams per centimeter cubed"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Grams\"", SuperscriptBox["\"Centimeters\"", "3"]]}], "]"}]& )]], "Output", CellChangeTimes->{{3.566475037761115*^9, 3.56647504489988*^9}, 3.5664884668387423`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[CapitalDelta]\[Rho]", RowBox[{"fl", ",", "7.144"}]], "=", RowBox[{"Quantity", "[", RowBox[{"0.0005", ",", FractionBox["\"\\"", SuperscriptBox["\"\\"", "3"]]}], "]"}]}]], "Input", CellChangeTimes->{{3.566475056949298*^9, 3.566475065787435*^9}}], Cell[BoxData[ TemplateBox[{"0.0005`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", SuperscriptBox["\"cm\"", "3"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: grams per centimeter cubed"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Grams\"", SuperscriptBox["\"Centimeters\"", "3"]]}], "]"}]& )]], "Output", CellChangeTimes->{3.566475066670925*^9, 3.566488466904243*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["8 mm Durchmesser", "Subsection", CellChangeTimes->{{3.5664865006923523`*^9, 3.5664865010565453`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[CapitalDelta]s", "8"], "=", RowBox[{"Quantity", "[", RowBox[{"200", ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.564742454160144*^9, 3.564742496556204*^9}}], Cell[BoxData[ TemplateBox[{"200"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )]], "Output", CellChangeTimes->{{3.564742477853177*^9, 3.564742499057207*^9}, 3.566473967247036*^9, 3.566474714763666*^9, 3.5664884669505243`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[CapitalDelta]t", "8"], "=", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"7.12", ",", "7.92", ",", "7.94", ",", "7.67", ",", "7.77"}], "}"}], ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.564742484885187*^9, 3.564742537253261*^9}, { 3.5647425749993143`*^9, 3.5647426257773857`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"7.12`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )], ",", TemplateBox[{"7.92`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )], ",", TemplateBox[{"7.94`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )], ",", TemplateBox[{"7.67`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )], ",", TemplateBox[{"7.77`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.5647426358984003`*^9, 3.566473967302519*^9, 3.566474714821558*^9, 3.566488467006074*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"i", "=", "8"}], ";", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["v", "i"], ",", SubscriptBox["\[CapitalDelta]v", "i"]}], "}"}], "=", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"#", "[", FractionBox[ SubscriptBox["\[CapitalDelta]s", "i"], SubscriptBox["\[CapitalDelta]t", "i"]], "]"}], "&"}], ",", RowBox[{"{", RowBox[{"Mean", ",", "StandardDeviation"}], "}"}]}], "]"}], "//", "UnitConvert"}]}]}]], "Input", CellChangeTimes->{{3.566474212347312*^9, 3.566474279389969*^9}, { 3.56647526510242*^9, 3.56647527006187*^9}, {3.5664754493637*^9, 3.566475452434826*^9}, {3.566475486151855*^9, 3.5664756500535383`*^9}, 3.5664757118892403`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"0.026069394961106603`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters per second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Meters\"", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"0.001186742523839649`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters per second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Meters\"", "\"Seconds\""]}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.5664757134227753`*^9, 3.5664884679461823`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["T", "8"], ",", SubscriptBox["\[CapitalDelta]T", "8"]}], "}"}], "=", RowBox[{"{", RowBox[{ SubscriptBox["T", "7.144"], ",", SubscriptBox["\[CapitalDelta]T", "7.144"]}], "}"}]}]], "Input", CellChangeTimes->{{3.5647426397794056`*^9, 3.5647426504014206`*^9}, { 3.566475079907933*^9, 3.5664750905531054`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"23.5`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"\[Degree]C\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: degrees Celsius"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Celsius\""}], "]"}]& )], ",", TemplateBox[{"0.5`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"\[Degree]C\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: degrees Celsius"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Celsius\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.5647426511014214`*^9, 3.5664739673480453`*^9, 3.56647471488099*^9, 3.566475091650936*^9, 3.566488468016142*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["\[Rho]", RowBox[{"fl", ",", "8"}]], ",", SubscriptBox["\[CapitalDelta]\[Rho]", RowBox[{"fl", ",", "8"}]]}], "}"}], "=", RowBox[{"{", RowBox[{ SubscriptBox["\[Rho]", RowBox[{"fl", ",", "7.144"}]], ",", SubscriptBox["\[CapitalDelta]\[Rho]", RowBox[{"fl", ",", "7.144"}]]}], "}"}]}]], "Input", CellChangeTimes->{{3.56647509801688*^9, 3.5664751089201736`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"1.146`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", SuperscriptBox["\"cm\"", "3"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: grams per centimeter cubed"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Grams\"", SuperscriptBox["\"Centimeters\"", "3"]]}], "]"}]& )], ",", TemplateBox[{"0.0005`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", SuperscriptBox["\"cm\"", "3"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: grams per centimeter cubed"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Grams\"", SuperscriptBox["\"Centimeters\"", "3"]]}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.566475109955203*^9, 3.566488468128606*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["9 mm Durchmesser", "Subsection", CellChangeTimes->{{3.56648650526136*^9, 3.566486505488307*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[CapitalDelta]s", "9"], "=", RowBox[{"Quantity", "[", RowBox[{"200", ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.5647426808054633`*^9, 3.564742707518501*^9}}], Cell[BoxData[ TemplateBox[{"200"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )]], "Output", CellChangeTimes->{3.564742708928503*^9, 3.5664739674475927`*^9, 3.566474714973886*^9, 3.5664884681688957`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[CapitalDelta]t", "9"], "=", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"6.21", ",", "6.13", ",", "6.32", ",", "6.19", ",", "6.43"}], "}"}], ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.564742710708505*^9, 3.5647428158156533`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"6.21`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )], ",", TemplateBox[{"6.13`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )], ",", TemplateBox[{"6.32`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )], ",", TemplateBox[{"6.19`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )], ",", TemplateBox[{"6.43`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.56474282043566*^9, 3.566473967545459*^9, 3.566474715029109*^9, 3.566488468222554*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"i", "=", "9"}], ";", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["v", "i"], ",", SubscriptBox["\[CapitalDelta]v", "i"]}], "}"}], "=", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"#", "[", FractionBox[ SubscriptBox["\[CapitalDelta]s", "i"], SubscriptBox["\[CapitalDelta]t", "i"]], "]"}], "&"}], ",", RowBox[{"{", RowBox[{"Mean", ",", "StandardDeviation"}], "}"}]}], "]"}], "//", "UnitConvert"}]}]}]], "Input", CellChangeTimes->{{3.566474212347312*^9, 3.566474279389969*^9}, { 3.56647526510242*^9, 3.56647527006187*^9}, {3.5664754493637*^9, 3.566475452434826*^9}, {3.566475486151855*^9, 3.5664756500535383`*^9}, 3.566475717736521*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"0.0319784985923889`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters per second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Meters\"", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"0.0006035054405224876`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters per second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Meters\"", "\"Seconds\""]}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.566475719151211*^9, 3.566488469133848*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["T", "9"], ",", SubscriptBox["\[CapitalDelta]T", "9"]}], "}"}], "=", RowBox[{"{", RowBox[{ SubscriptBox["T", "8"], ",", SubscriptBox["\[CapitalDelta]T", "8"]}], "}"}]}]], "Input", CellChangeTimes->{{3.5647428242366652`*^9, 3.5647428643227215`*^9}, { 3.56647511603305*^9, 3.5664751270069733`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"23.5`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"\[Degree]C\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: degrees Celsius"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Celsius\""}], "]"}]& )], ",", TemplateBox[{"0.5`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"\[Degree]C\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: degrees Celsius"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Celsius\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.564742865242723*^9, 3.56647396759772*^9, 3.5664747150761623`*^9, 3.56647512771101*^9, 3.566488469207608*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["\[Rho]", RowBox[{"fl", ",", "9"}]], ",", SubscriptBox["\[CapitalDelta]\[Rho]", RowBox[{"fl", ",", "9"}]]}], "}"}], "=", RowBox[{"{", RowBox[{ SubscriptBox["\[Rho]", RowBox[{"fl", ",", "8"}]], ",", SubscriptBox["\[CapitalDelta]\[Rho]", RowBox[{"fl", ",", "8"}]]}], "}"}]}]], "Input", CellChangeTimes->{{3.5664751329584846`*^9, 3.5664751419824*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"1.146`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", SuperscriptBox["\"cm\"", "3"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: grams per centimeter cubed"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Grams\"", SuperscriptBox["\"Centimeters\"", "3"]]}], "]"}]& )], ",", TemplateBox[{"0.0005`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", SuperscriptBox["\"cm\"", "3"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: grams per centimeter cubed"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Grams\"", SuperscriptBox["\"Centimeters\"", "3"]]}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.566475142601327*^9, 3.56648846931886*^9}] }, Open ]], Cell["\<\ Innendurchmesser des Fallrohres\ \>", "Text", CellChangeTimes->{{3.5664739353001423`*^9, 3.5664739412593803`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["r", "innen"], "=", RowBox[{".5", RowBox[{"Quantity", "[", RowBox[{"75", ",", "\"\\""}], "]"}]}]}]], "Input", CellChangeTimes->{{3.564743772628002*^9, 3.5647437932500305`*^9}, { 3.5664739478206587`*^9, 3.566473950996647*^9}, {3.566475147949769*^9, 3.566475148077888*^9}}], Cell[BoxData[ TemplateBox[{"37.5`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )]], "Output", CellChangeTimes->{3.5647437949010334`*^9, 3.566473967697761*^9, 3.566474715192749*^9, 3.5664751489413633`*^9, 3.5664884693587923`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Auswertung der Messungen", "Subsection", CellChangeTimes->{{3.566486535291521*^9, 3.566486538161502*^9}}], Cell[TextData[{ "Nun wollen wir eine bestimmte Gr\[ODoubleDot]\[SZ]e, wir nennen sie ", Cell[BoxData[ FormBox[ RowBox[{"q", "=", FractionBox[ RowBox[{"\[LeftAngleBracket]", "v", "\[RightAngleBracket]"}], RowBox[{ SubscriptBox["\[Rho]", "k"], "-", SubscriptBox["\[Rho]", "f"]}]]}], TraditionalForm]], FormatType->"TraditionalForm"], " (sie ergibt sich aus Formel (14) im Skript bzw. (4) in der schriftlichen \ Auswertung), gegen ", Cell[BoxData[ FormBox[ SuperscriptBox["r", "2"], TraditionalForm]], FormatType->"TraditionalForm"], " betrachten. Dazu berechnen wir zun\[ADoubleDot]chst die Ladenburg\ \[CloseCurlyQuote]sche Korrektur f\[UDoubleDot]r alle Radien:" }], "Text", CellChangeTimes->{{3.566476516994649*^9, 3.566476557294238*^9}, { 3.566476754441728*^9, 3.5664767952386293`*^9}, {3.566476871305522*^9, 3.566476882656891*^9}, {3.566486548162928*^9, 3.56648660650979*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"Table", "[", RowBox[{ SubscriptBox["\[Lambda]", "i"], ",", RowBox[{"{", RowBox[{"i", ",", "diameters"}], "}"}]}], "]"}], "*)"}], RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["\[Lambda]", "1.5`"], ",", SubscriptBox["\[Lambda]", "2"], ",", SubscriptBox["\[Lambda]", "3"], ",", SubscriptBox["\[Lambda]", "4"], ",", SubscriptBox["\[Lambda]", "5"], ",", SubscriptBox["\[Lambda]", "6"], ",", SubscriptBox["\[Lambda]", "7.144`"], ",", SubscriptBox["\[Lambda]", "8"], ",", SubscriptBox["\[Lambda]", "9"]}], "}"}], "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"1", "+", RowBox[{"2.1", FractionBox[ SubscriptBox["r", "i"], SubscriptBox["r", "innen"]]}]}], ",", RowBox[{"{", RowBox[{"i", ",", "diameters"}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.566476895369645*^9, 3.566476920605443*^9}, { 3.566477396956293*^9, 3.5664774009681664`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.042`", ",", "1.056`", ",", "1.084`", ",", "1.112`", ",", "1.1400000000000001`", ",", "1.168`", ",", "1.200032`", ",", "1.224`", ",", "1.252`"}], "}"}]], "Output", CellChangeTimes->{3.566477354683188*^9, 3.566477402174157*^9, 3.5664884702613297`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"Table", "[", RowBox[{ SubscriptBox["\[CapitalDelta]\[Lambda]", "i"], ",", RowBox[{"{", RowBox[{"i", ",", "diameters"}], "}"}]}], "]"}], "*)"}], RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["\[CapitalDelta]\[Lambda]", "1.5`"], ",", SubscriptBox["\[CapitalDelta]\[Lambda]", "2"], ",", SubscriptBox["\[CapitalDelta]\[Lambda]", "3"], ",", SubscriptBox["\[CapitalDelta]\[Lambda]", "4"], ",", SubscriptBox["\[CapitalDelta]\[Lambda]", "5"], ",", SubscriptBox["\[CapitalDelta]\[Lambda]", "6"], ",", SubscriptBox["\[CapitalDelta]\[Lambda]", "7.144`"], ",", SubscriptBox["\[CapitalDelta]\[Lambda]", "8"], ",", SubscriptBox["\[CapitalDelta]\[Lambda]", "9"]}], "}"}], "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"2.1", FractionBox[ SubscriptBox["\[CapitalDelta]r", "i"], SubscriptBox["r", "innen"]]}], ",", RowBox[{"{", RowBox[{"i", ",", "diameters"}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.566477286892351*^9, 3.56647734078903*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.00042`", ",", "0.0005600000000000001`", ",", "0.00084`", ",", "0.0011200000000000001`", ",", "0.0014000000000000002`", ",", "0.00168`", ",", "0.0020003200000000003`", ",", "0.0022400000000000002`", ",", "0.0025200000000000005`"}], "}"}]], "Output", CellChangeTimes->{{3.5664773251306353`*^9, 3.56647734265418*^9}, { 3.566477386138261*^9, 3.566477405095278*^9}, 3.566488471074749*^9}] }, Open ]], Cell["\<\ Nun k\[ODoubleDot]nnen wir die Gr\[ODoubleDot]\[SZ]e mit und ohne diese \ Korrektur berechnen.\ \>", "Text", CellChangeTimes->{{3.566476932953766*^9, 3.566476945676648*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["q", "without"], ",", SubscriptBox["q", "with"]}], "}"}], "=", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"Table", "[", RowBox[{ FractionBox[ RowBox[{ SubscriptBox["v", "i"], RowBox[{"{", RowBox[{"1", ",", SubscriptBox["\[Lambda]", "i"]}], "}"}]}], RowBox[{"(", RowBox[{ SubscriptBox["\[Rho]", "i"], "-", SubscriptBox["\[Rho]", RowBox[{"fl", ",", "i"}]]}], ")"}]], ",", RowBox[{"{", RowBox[{"i", ",", "diameters"}], "}"}]}], "]"}], "]"}], "//", "UnitConvert"}]}]], "Input", CellChangeTimes->{{3.566476831875217*^9, 3.5664768515684147`*^9}, { 3.566476927126977*^9, 3.566476965949813*^9}, {3.566478006666933*^9, 3.5664780080702963`*^9}, {3.566478268935585*^9, 3.566478285494319*^9}, { 3.566479292150548*^9, 3.566479295326878*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"6.320516842537141`*^-6"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ SuperscriptBox["\"m\"", "4"], "\[NegativeMediumSpace]", "\"/(\"", "\[InvisibleSpace]", "\"kg\"", "\[ThinSpace]", "\"s\"", "\[InvisibleSpace]", "\")\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters to the fourth per kilogram second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox[ SuperscriptBox["\"Meters\"", "4"], RowBox[{"\"Kilograms\"", " ", "\"Seconds\""}]]}], "]"}]& )], ",", TemplateBox[{"0.000010628865207729635`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ SuperscriptBox["\"m\"", "4"], "\[NegativeMediumSpace]", "\"/(\"", "\[InvisibleSpace]", "\"kg\"", "\[ThinSpace]", "\"s\"", "\[InvisibleSpace]", "\")\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters to the fourth per kilogram second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox[ SuperscriptBox["\"Meters\"", "4"], RowBox[{"\"Kilograms\"", " ", "\"Seconds\""}]]}], "]"}]& )], ",", TemplateBox[{"0.0000206117064256565`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ SuperscriptBox["\"m\"", "4"], "\[NegativeMediumSpace]", "\"/(\"", "\[InvisibleSpace]", "\"kg\"", "\[ThinSpace]", "\"s\"", "\[InvisibleSpace]", "\")\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters to the fourth per kilogram second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox[ SuperscriptBox["\"Meters\"", "4"], RowBox[{"\"Kilograms\"", " ", "\"Seconds\""}]]}], "]"}]& )], ",", TemplateBox[{"0.00003480349269656249`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ SuperscriptBox["\"m\"", "4"], "\[NegativeMediumSpace]", "\"/(\"", "\[InvisibleSpace]", "\"kg\"", "\[ThinSpace]", "\"s\"", "\[InvisibleSpace]", "\")\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters to the fourth per kilogram second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox[ SuperscriptBox["\"Meters\"", "4"], RowBox[{"\"Kilograms\"", " ", "\"Seconds\""}]]}], "]"}]& )], ",", TemplateBox[{"0.00005326643534467383`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ SuperscriptBox["\"m\"", "4"], "\[NegativeMediumSpace]", "\"/(\"", "\[InvisibleSpace]", "\"kg\"", "\[ThinSpace]", "\"s\"", "\[InvisibleSpace]", "\")\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters to the fourth per kilogram second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox[ SuperscriptBox["\"Meters\"", "4"], RowBox[{"\"Kilograms\"", " ", "\"Seconds\""}]]}], "]"}]& )], ",", TemplateBox[{"0.00007340357068542664`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ SuperscriptBox["\"m\"", "4"], "\[NegativeMediumSpace]", "\"/(\"", "\[InvisibleSpace]", "\"kg\"", "\[ThinSpace]", "\"s\"", "\[InvisibleSpace]", "\")\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters to the fourth per kilogram second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox[ SuperscriptBox["\"Meters\"", "4"], RowBox[{"\"Kilograms\"", " ", "\"Seconds\""}]]}], "]"}]& )], ",", TemplateBox[{"0.00009813575219518386`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ SuperscriptBox["\"m\"", "4"], "\[NegativeMediumSpace]", "\"/(\"", "\[InvisibleSpace]", "\"kg\"", "\[ThinSpace]", "\"s\"", "\[InvisibleSpace]", "\")\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters to the fourth per kilogram second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox[ SuperscriptBox["\"Meters\"", "4"], RowBox[{"\"Kilograms\"", " ", "\"Seconds\""}]]}], "]"}]& )], ",", TemplateBox[{"0.00012325955064353003`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ SuperscriptBox["\"m\"", "4"], "\[NegativeMediumSpace]", "\"/(\"", "\[InvisibleSpace]", "\"kg\"", "\[ThinSpace]", "\"s\"", "\[InvisibleSpace]", "\")\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters to the fourth per kilogram second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox[ SuperscriptBox["\"Meters\"", "4"], RowBox[{"\"Kilograms\"", " ", "\"Seconds\""}]]}], "]"}]& )], ",", TemplateBox[{"0.00014770669095791632`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ SuperscriptBox["\"m\"", "4"], "\[NegativeMediumSpace]", "\"/(\"", "\[InvisibleSpace]", "\"kg\"", "\[ThinSpace]", "\"s\"", "\[InvisibleSpace]", "\")\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters to the fourth per kilogram second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox[ SuperscriptBox["\"Meters\"", "4"], RowBox[{"\"Kilograms\"", " ", "\"Seconds\""}]]}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"6.585978549923701`*^-6"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ SuperscriptBox["\"m\"", "4"], "\[NegativeMediumSpace]", "\"/(\"", "\[InvisibleSpace]", "\"kg\"", "\[ThinSpace]", "\"s\"", "\[InvisibleSpace]", "\")\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters to the fourth per kilogram second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox[ SuperscriptBox["\"Meters\"", "4"], RowBox[{"\"Kilograms\"", " ", "\"Seconds\""}]]}], "]"}]& )], ",", TemplateBox[{"0.000011224081659362496`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ SuperscriptBox["\"m\"", "4"], "\[NegativeMediumSpace]", "\"/(\"", "\[InvisibleSpace]", "\"kg\"", "\[ThinSpace]", "\"s\"", "\[InvisibleSpace]", "\")\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters to the fourth per kilogram second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox[ SuperscriptBox["\"Meters\"", "4"], RowBox[{"\"Kilograms\"", " ", "\"Seconds\""}]]}], "]"}]& )], ",", TemplateBox[{"0.000022343089765411646`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ SuperscriptBox["\"m\"", "4"], "\[NegativeMediumSpace]", "\"/(\"", "\[InvisibleSpace]", "\"kg\"", "\[ThinSpace]", "\"s\"", "\[InvisibleSpace]", "\")\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters to the fourth per kilogram second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox[ SuperscriptBox["\"Meters\"", "4"], RowBox[{"\"Kilograms\"", " ", "\"Seconds\""}]]}], "]"}]& )], ",", TemplateBox[{"0.00003870148387857749`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ SuperscriptBox["\"m\"", "4"], "\[NegativeMediumSpace]", "\"/(\"", "\[InvisibleSpace]", "\"kg\"", "\[ThinSpace]", "\"s\"", "\[InvisibleSpace]", "\")\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters to the fourth per kilogram second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox[ SuperscriptBox["\"Meters\"", "4"], RowBox[{"\"Kilograms\"", " ", "\"Seconds\""}]]}], "]"}]& )], ",", TemplateBox[{"0.00006072373629292817`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ SuperscriptBox["\"m\"", "4"], "\[NegativeMediumSpace]", "\"/(\"", "\[InvisibleSpace]", "\"kg\"", "\[ThinSpace]", "\"s\"", "\[InvisibleSpace]", "\")\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters to the fourth per kilogram second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox[ SuperscriptBox["\"Meters\"", "4"], RowBox[{"\"Kilograms\"", " ", "\"Seconds\""}]]}], "]"}]& )], ",", TemplateBox[{"0.00008573537056057831`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ SuperscriptBox["\"m\"", "4"], "\[NegativeMediumSpace]", "\"/(\"", "\[InvisibleSpace]", "\"kg\"", "\[ThinSpace]", "\"s\"", "\[InvisibleSpace]", "\")\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters to the fourth per kilogram second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox[ SuperscriptBox["\"Meters\"", "4"], RowBox[{"\"Kilograms\"", " ", "\"Seconds\""}]]}], "]"}]& )], ",", TemplateBox[{"0.0001177660429782909`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ SuperscriptBox["\"m\"", "4"], "\[NegativeMediumSpace]", "\"/(\"", "\[InvisibleSpace]", "\"kg\"", "\[ThinSpace]", "\"s\"", "\[InvisibleSpace]", "\")\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters to the fourth per kilogram second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox[ SuperscriptBox["\"Meters\"", "4"], RowBox[{"\"Kilograms\"", " ", "\"Seconds\""}]]}], "]"}]& )], ",", TemplateBox[{"0.00015086968998768077`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ SuperscriptBox["\"m\"", "4"], "\[NegativeMediumSpace]", "\"/(\"", "\[InvisibleSpace]", "\"kg\"", "\[ThinSpace]", "\"s\"", "\[InvisibleSpace]", "\")\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters to the fourth per kilogram second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox[ SuperscriptBox["\"Meters\"", "4"], RowBox[{"\"Kilograms\"", " ", "\"Seconds\""}]]}], "]"}]& )], ",", TemplateBox[{"0.00018492877707931127`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ SuperscriptBox["\"m\"", "4"], "\[NegativeMediumSpace]", "\"/(\"", "\[InvisibleSpace]", "\"kg\"", "\[ThinSpace]", "\"s\"", "\[InvisibleSpace]", "\")\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters to the fourth per kilogram second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox[ SuperscriptBox["\"Meters\"", "4"], RowBox[{"\"Kilograms\"", " ", "\"Seconds\""}]]}], "]"}]& )]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.566478291866528*^9, 3.566479301306645*^9, 3.566488476376169*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[CapitalDelta]q", "without"], "=", RowBox[{ RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ SubscriptBox["\[CapitalDelta]v", "i"], RowBox[{ SubscriptBox["\[Rho]", RowBox[{"fl", ",", "i"}]], "-", SubscriptBox["\[Rho]", "i"]}]], ")"}], "2"], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ SubscriptBox["v", "i"], SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[Rho]", RowBox[{"fl", ",", "i"}]], "-", SubscriptBox["\[Rho]", "i"]}], ")"}], "2"]], ")"}], "2"], "*", RowBox[{"(", RowBox[{ SuperscriptBox[ SubscriptBox["\[CapitalDelta]\[Rho]", RowBox[{"fl", ",", "i"}]], "2"], "+", SuperscriptBox[ SubscriptBox["\[CapitalDelta]\[Rho]", "i"], "2"]}], ")"}]}]}]], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"i", ",", "diameters"}], "}"}]}], "]"}], "//", "UnitConvert"}]}]], "Input", CellChangeTimes->{{3.5664774331719103`*^9, 3.566477437278779*^9}, { 3.5664775093069677`*^9, 3.5664777136368628`*^9}, {3.566478021258727*^9, 3.5664780226051397`*^9}, 3.566478264114484*^9, 3.566478299110383*^9, 3.5664866195677977`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"4.4561111388351804`*^-7"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ SuperscriptBox["\"m\"", "4"], "\[NegativeMediumSpace]", "\"/(\"", "\[InvisibleSpace]", "\"kg\"", "\[ThinSpace]", "\"s\"", "\[InvisibleSpace]", "\")\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters to the fourth per kilogram second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox[ SuperscriptBox["\"Meters\"", "4"], RowBox[{"\"Kilograms\"", " ", "\"Seconds\""}]]}], "]"}]& )], ",", TemplateBox[{"1.585354536255497`*^-7"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ SuperscriptBox["\"m\"", "4"], "\[NegativeMediumSpace]", "\"/(\"", "\[InvisibleSpace]", "\"kg\"", "\[ThinSpace]", "\"s\"", "\[InvisibleSpace]", "\")\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters to the fourth per kilogram second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox[ SuperscriptBox["\"Meters\"", "4"], RowBox[{"\"Kilograms\"", " ", "\"Seconds\""}]]}], "]"}]& )], ",", TemplateBox[{"5.246643655358482`*^-7"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ SuperscriptBox["\"m\"", "4"], "\[NegativeMediumSpace]", "\"/(\"", "\[InvisibleSpace]", "\"kg\"", "\[ThinSpace]", "\"s\"", "\[InvisibleSpace]", "\")\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters to the fourth per kilogram second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox[ SuperscriptBox["\"Meters\"", "4"], RowBox[{"\"Kilograms\"", " ", "\"Seconds\""}]]}], "]"}]& )], ",", TemplateBox[{"6.577859250416318`*^-7"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ SuperscriptBox["\"m\"", "4"], "\[NegativeMediumSpace]", "\"/(\"", "\[InvisibleSpace]", "\"kg\"", "\[ThinSpace]", "\"s\"", "\[InvisibleSpace]", "\")\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters to the fourth per kilogram second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox[ SuperscriptBox["\"Meters\"", "4"], RowBox[{"\"Kilograms\"", " ", "\"Seconds\""}]]}], "]"}]& )], ",", TemplateBox[{"8.727344553501161`*^-7"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ SuperscriptBox["\"m\"", "4"], "\[NegativeMediumSpace]", "\"/(\"", "\[InvisibleSpace]", "\"kg\"", "\[ThinSpace]", "\"s\"", "\[InvisibleSpace]", "\")\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters to the fourth per kilogram second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox[ SuperscriptBox["\"Meters\"", "4"], RowBox[{"\"Kilograms\"", " ", "\"Seconds\""}]]}], "]"}]& )], ",", TemplateBox[{"1.138415382346405`*^-6"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ SuperscriptBox["\"m\"", "4"], "\[NegativeMediumSpace]", "\"/(\"", "\[InvisibleSpace]", "\"kg\"", "\[ThinSpace]", "\"s\"", "\[InvisibleSpace]", "\")\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters to the fourth per kilogram second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox[ SuperscriptBox["\"Meters\"", "4"], RowBox[{"\"Kilograms\"", " ", "\"Seconds\""}]]}], "]"}]& )], ",", TemplateBox[{"1.3963633379274314`*^-6"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ SuperscriptBox["\"m\"", "4"], "\[NegativeMediumSpace]", "\"/(\"", "\[InvisibleSpace]", "\"kg\"", "\[ThinSpace]", "\"s\"", "\[InvisibleSpace]", "\")\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters to the fourth per kilogram second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox[ SuperscriptBox["\"Meters\"", "4"], RowBox[{"\"Kilograms\"", " ", "\"Seconds\""}]]}], "]"}]& )], ",", TemplateBox[{"5.804467182391555`*^-6"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ SuperscriptBox["\"m\"", "4"], "\[NegativeMediumSpace]", "\"/(\"", "\[InvisibleSpace]", "\"kg\"", "\[ThinSpace]", "\"s\"", "\[InvisibleSpace]", "\")\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters to the fourth per kilogram second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox[ SuperscriptBox["\"Meters\"", "4"], RowBox[{"\"Kilograms\"", " ", "\"Seconds\""}]]}], "]"}]& )], ",", TemplateBox[{"3.285720988718476`*^-6"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ SuperscriptBox["\"m\"", "4"], "\[NegativeMediumSpace]", "\"/(\"", "\[InvisibleSpace]", "\"kg\"", "\[ThinSpace]", "\"s\"", "\[InvisibleSpace]", "\")\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters to the fourth per kilogram second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox[ SuperscriptBox["\"Meters\"", "4"], RowBox[{"\"Kilograms\"", " ", "\"Seconds\""}]]}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.566478310907415*^9, 3.566488485745681*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[CapitalDelta]q", "with"], "=", RowBox[{ RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{ SubscriptBox["\[CapitalDelta]v", "i"], SubscriptBox["\[Lambda]", "i"]}], RowBox[{"(", RowBox[{ SubscriptBox["\[Rho]", RowBox[{"fl", ",", "i"}]], "-", SubscriptBox["\[Rho]", "i"]}], ")"}]], ")"}], "2"], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{ SubscriptBox["v", "i"], SubscriptBox["\[Lambda]", "i"]}], SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[Rho]", RowBox[{"fl", ",", "i"}]], "-", SubscriptBox["\[Rho]", "i"]}], ")"}], "2"]], ")"}], "2"], "*", RowBox[{"(", RowBox[{ SuperscriptBox[ SubscriptBox["\[CapitalDelta]\[Rho]", RowBox[{"fl", ",", "i"}]], "2"], "+", SuperscriptBox[ SubscriptBox["\[CapitalDelta]\[Rho]", "i"], "2"]}], ")"}]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox[ SubscriptBox["v", "i"], RowBox[{"(", RowBox[{ SubscriptBox["\[Rho]", RowBox[{"fl", ",", "i"}]], "-", SubscriptBox["\[Rho]", "i"]}], ")"}]], SubscriptBox["\[CapitalDelta]\[Lambda]", "i"]}], ")"}], "2"]}]], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"i", ",", "diameters"}], "}"}]}], "]"}], "//", "UnitConvert"}]}]], "Input", CellChangeTimes->{{3.566477842549021*^9, 3.566477885594466*^9}, { 3.5664780295229063`*^9, 3.5664780310851927`*^9}, 3.566478257866539*^9, 3.5664783110570908`*^9, {3.566479311103532*^9, 3.5664793241959457`*^9}, 3.566486628705811*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"4.6433436900152227`*^-7"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ SuperscriptBox["\"m\"", "4"], "\[NegativeMediumSpace]", "\"/(\"", "\[InvisibleSpace]", "\"kg\"", "\[ThinSpace]", "\"s\"", "\[InvisibleSpace]", "\")\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters to the fourth per kilogram second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox[ SuperscriptBox["\"Meters\"", "4"], RowBox[{"\"Kilograms\"", " ", "\"Seconds\""}]]}], "]"}]& )], ",", TemplateBox[{"1.6751921630011788`*^-7"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ SuperscriptBox["\"m\"", "4"], "\[NegativeMediumSpace]", "\"/(\"", "\[InvisibleSpace]", "\"kg\"", "\[ThinSpace]", "\"s\"", "\[InvisibleSpace]", "\")\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters to the fourth per kilogram second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox[ SuperscriptBox["\"Meters\"", "4"], RowBox[{"\"Kilograms\"", " ", "\"Seconds\""}]]}], "]"}]& )], ",", TemplateBox[{"5.689996506520041`*^-7"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ SuperscriptBox["\"m\"", "4"], "\[NegativeMediumSpace]", "\"/(\"", "\[InvisibleSpace]", "\"kg\"", "\[ThinSpace]", "\"s\"", "\[InvisibleSpace]", "\")\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters to the fourth per kilogram second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox[ SuperscriptBox["\"Meters\"", "4"], RowBox[{"\"Kilograms\"", " ", "\"Seconds\""}]]}], "]"}]& )], ",", TemplateBox[{"7.324958458335118`*^-7"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ SuperscriptBox["\"m\"", "4"], "\[NegativeMediumSpace]", "\"/(\"", "\[InvisibleSpace]", "\"kg\"", "\[ThinSpace]", "\"s\"", "\[InvisibleSpace]", "\")\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters to the fourth per kilogram second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox[ SuperscriptBox["\"Meters\"", "4"], RowBox[{"\"Kilograms\"", " ", "\"Seconds\""}]]}], "]"}]& )], ",", TemplateBox[{"9.977081366779085`*^-7"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ SuperscriptBox["\"m\"", "4"], "\[NegativeMediumSpace]", "\"/(\"", "\[InvisibleSpace]", "\"kg\"", "\[ThinSpace]", "\"s\"", "\[InvisibleSpace]", "\")\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters to the fourth per kilogram second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox[ SuperscriptBox["\"Meters\"", "4"], RowBox[{"\"Kilograms\"", " ", "\"Seconds\""}]]}], "]"}]& )], ",", TemplateBox[{"1.335375385938811`*^-6"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ SuperscriptBox["\"m\"", "4"], "\[NegativeMediumSpace]", "\"/(\"", "\[InvisibleSpace]", "\"kg\"", "\[ThinSpace]", "\"s\"", "\[InvisibleSpace]", "\")\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters to the fourth per kilogram second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox[ SuperscriptBox["\"Meters\"", "4"], RowBox[{"\"Kilograms\"", " ", "\"Seconds\""}]]}], "]"}]& )], ",", TemplateBox[{"1.6871397700186957`*^-6"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ SuperscriptBox["\"m\"", "4"], "\[NegativeMediumSpace]", "\"/(\"", "\[InvisibleSpace]", "\"kg\"", "\[ThinSpace]", "\"s\"", "\[InvisibleSpace]", "\")\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters to the fourth per kilogram second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox[ SuperscriptBox["\"Meters\"", "4"], RowBox[{"\"Kilograms\"", " ", "\"Seconds\""}]]}], "]"}]& )], ",", TemplateBox[{"7.110030729316157`*^-6"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ SuperscriptBox["\"m\"", "4"], "\[NegativeMediumSpace]", "\"/(\"", "\[InvisibleSpace]", "\"kg\"", "\[ThinSpace]", "\"s\"", "\[InvisibleSpace]", "\")\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters to the fourth per kilogram second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox[ SuperscriptBox["\"Meters\"", "4"], RowBox[{"\"Kilograms\"", " ", "\"Seconds\""}]]}], "]"}]& )], ",", TemplateBox[{"4.130528130879912`*^-6"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ SuperscriptBox["\"m\"", "4"], "\[NegativeMediumSpace]", "\"/(\"", "\[InvisibleSpace]", "\"kg\"", "\[ThinSpace]", "\"s\"", "\[InvisibleSpace]", "\")\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters to the fourth per kilogram second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox[ SuperscriptBox["\"Meters\"", "4"], RowBox[{"\"Kilograms\"", " ", "\"Seconds\""}]]}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.5664783242713203`*^9, 3.566479337059387*^9, 3.566488497285143*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"rsq", "=", RowBox[{ RowBox[{"Table", "[", RowBox[{ SuperscriptBox[ SubscriptBox["r", "i"], "2"], ",", RowBox[{"{", RowBox[{"i", ",", "diameters"}], "}"}]}], "]"}], "//", "UnitConvert"}]}]], "Input", CellChangeTimes->{{3.566477962373393*^9, 3.566477977837326*^9}, 3.566478254153213*^9, 3.566478327199238*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"5.625`*^-7"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ SuperscriptBox["\"m\"", "2"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters squared"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", SuperscriptBox["\"Meters\"", "2"]}], "]"}]& )], ",", TemplateBox[{"1.`*^-6"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ SuperscriptBox["\"m\"", "2"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters squared"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", SuperscriptBox["\"Meters\"", "2"]}], "]"}]& )], ",", TemplateBox[{"2.25`*^-6"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ SuperscriptBox["\"m\"", "2"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters squared"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", SuperscriptBox["\"Meters\"", "2"]}], "]"}]& )], ",", TemplateBox[{"4.`*^-6"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ SuperscriptBox["\"m\"", "2"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters squared"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", SuperscriptBox["\"Meters\"", "2"]}], "]"}]& )], ",", TemplateBox[{"6.2499999999999995`*^-6"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ SuperscriptBox["\"m\"", "2"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters squared"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", SuperscriptBox["\"Meters\"", "2"]}], "]"}]& )], ",", TemplateBox[{"9.`*^-6"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ SuperscriptBox["\"m\"", "2"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters squared"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", SuperscriptBox["\"Meters\"", "2"]}], "]"}]& )], ",", TemplateBox[{"0.000012759184000000001`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ SuperscriptBox["\"m\"", "2"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters squared"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", SuperscriptBox["\"Meters\"", "2"]}], "]"}]& )], ",", TemplateBox[{"0.000016`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ SuperscriptBox["\"m\"", "2"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters squared"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", SuperscriptBox["\"Meters\"", "2"]}], "]"}]& )], ",", TemplateBox[{"0.000020249999999999998`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ SuperscriptBox["\"m\"", "2"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters squared"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", SuperscriptBox["\"Meters\"", "2"]}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.566478328056036*^9, 3.566488497738782*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["data", "with"], ",", SubscriptBox["data", "without"]}], "}"}], "=", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ RowBox[{"Transpose", "[", RowBox[{ RowBox[{"{", RowBox[{"rsq", ",", SubscriptBox["q", "what"]}], "}"}], "//", "QuantityMagnitude"}], "]"}], ",", RowBox[{"ErrorBar", "/@", RowBox[{"QuantityMagnitude", "[", SubscriptBox["\[CapitalDelta]q", "what"], "]"}]}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"what", ",", RowBox[{"{", RowBox[{"with", ",", "without"}], "}"}]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.566475837357884*^9, 3.566475901931858*^9}, { 3.566475980830961*^9, 3.566475982248425*^9}, {3.566476035099597*^9, 3.566476057930045*^9}, {3.566476091959844*^9, 3.566476101625701*^9}, { 3.5664762588139887`*^9, 3.566476282829287*^9}, {3.5664763186510057`*^9, 3.566476438657632*^9}, {3.5664766781302843`*^9, 3.566476712895306*^9}, { 3.566477909706602*^9, 3.5664779957609587`*^9}, {3.5664780536535053`*^9, 3.566478117474936*^9}, 3.566478250387764*^9}], Cell["\<\ Es ergibt sich die folgende Graphik:\ \>", "Text", CellChangeTimes->{{3.566486656323875*^9, 3.56648666244902*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fallplot", "=", RowBox[{"ErrorListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["data", "with"], ",", SubscriptBox["data", "without"]}], "}"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\<\!\(\*SuperscriptBox[\(r\), \(2\)]\) [\!\(\*SuperscriptBox[\(m\), \ \(2\)]\)]\>\"", ",", "\"\<\!\(\*FractionBox[\(v\), \(\*SubscriptBox[\(\[Rho]\), \(k\)] - \ \*SubscriptBox[\(\[Rho]\), \ \(f\)]\)]\)[\!\(\*FractionBox[SuperscriptBox[\(m\), \(4\)], \(kg\\\ s\)]\)]\>\ \""}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5664764454328117`*^9, 3.566476448079718*^9}, { 3.5664781244527197`*^9, 3.5664782432352333`*^9}, {3.566478331795236*^9, 3.566478387639723*^9}, {3.5664784857933607`*^9, 3.566478493512855*^9}, { 3.566478527831888*^9, 3.566478544574757*^9}, 3.5664789619554253`*^9, 3.566479013894596*^9, 3.5664790754838142`*^9}], Cell[BoxData[ TemplateBox[{GraphicsBox[{{{}, {{ RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[{{5.625*^-7, 6.585978549923701*^-6}, {1.*^-6, 0.000011224081659362496`}, {2.25*^-6, 0.000022343089765411646`}, { 4.*^-6, 0.00003870148387857749}, {6.2499999999999995`*^-6, 0.00006072373629292817}, {9.*^-6, 0.00008573537056057831}, { 0.000012759184000000001`, 0.0001177660429782909}, {0.000016, 0.00015086968998768077`}, {0.000020249999999999998`, 0.00018492877707931127`}}], {{ LineBox[{{5.625*^-7, 7.050312918925223*^-6}, {5.625*^-7, 6.121644180922178*^-6}}], LineBox[{ Offset[{1.5, 0}, {5.625*^-7, 7.050312918925223*^-6}], Offset[{-1.5, 0}, {5.625*^-7, 7.050312918925223*^-6}]}], LineBox[{ Offset[{1.5, 0}, {5.625*^-7, 6.121644180922178*^-6}], Offset[{-1.5, 0}, {5.625*^-7, 6.121644180922178*^-6}]}]}, { LineBox[{{1.*^-6, 0.000011391600875662613`}, {1.*^-6, 0.000011056562443062378`}}], LineBox[{ Offset[{1.5, 0}, {1.*^-6, 0.000011391600875662613`}], Offset[{-1.5, 0}, {1.*^-6, 0.000011391600875662613`}]}], LineBox[{ Offset[{1.5, 0}, {1.*^-6, 0.000011056562443062378`}], Offset[{-1.5, 0}, {1.*^-6, 0.000011056562443062378`}]}]}, { LineBox[{{2.25*^-6, 0.00002291208941606365}, {2.25*^-6, 0.00002177409011475964}}], LineBox[{ Offset[{1.5, 0}, {2.25*^-6, 0.00002291208941606365}], Offset[{-1.5, 0}, {2.25*^-6, 0.00002291208941606365}]}], LineBox[{ Offset[{1.5, 0}, {2.25*^-6, 0.00002177409011475964}], Offset[{-1.5, 0}, {2.25*^-6, 0.00002177409011475964}]}]}, { LineBox[{{4.*^-6, 0.00003943397972441101}, {4.*^-6, 0.00003796898803274398}}], LineBox[{ Offset[{1.5, 0}, {4.*^-6, 0.00003943397972441101}], Offset[{-1.5, 0}, {4.*^-6, 0.00003943397972441101}]}], LineBox[{ Offset[{1.5, 0}, {4.*^-6, 0.00003796898803274398}], Offset[{-1.5, 0}, {4.*^-6, 0.00003796898803274398}]}]}, { LineBox[{{6.2499999999999995`*^-6, 0.00006172144442960609}, { 6.2499999999999995`*^-6, 0.000059726028156250264`}}], LineBox[{ Offset[{1.5, 0}, {6.2499999999999995`*^-6, 0.00006172144442960609}], Offset[{-1.5, 0}, {6.2499999999999995`*^-6, 0.00006172144442960609}]}], LineBox[{ Offset[{1.5, 0}, {6.2499999999999995`*^-6, 0.000059726028156250264`}], Offset[{-1.5, 0}, {6.2499999999999995`*^-6, 0.000059726028156250264`}]}]}, { LineBox[{{9.*^-6, 0.00008707074594651711}, {9.*^-6, 0.0000843999951746395}}], LineBox[{ Offset[{1.5, 0}, {9.*^-6, 0.00008707074594651711}], Offset[{-1.5, 0}, {9.*^-6, 0.00008707074594651711}]}], LineBox[{ Offset[{1.5, 0}, {9.*^-6, 0.0000843999951746395}], Offset[{-1.5, 0}, {9.*^-6, 0.0000843999951746395}]}]}, { LineBox[{{0.000012759184000000001`, 0.00011945318274830959`}, { 0.000012759184000000001`, 0.00011607890320827221`}}], LineBox[{ Offset[{1.5, 0}, {0.000012759184000000001`, 0.00011945318274830959`}], Offset[{-1.5, 0}, {0.000012759184000000001`, 0.00011945318274830959`}]}], LineBox[{ Offset[{1.5, 0}, {0.000012759184000000001`, 0.00011607890320827221`}], Offset[{-1.5, 0}, {0.000012759184000000001`, 0.00011607890320827221`}]}]}, { LineBox[{{0.000016, 0.00015797972071699692`}, {0.000016, 0.00014375965925836462`}}], LineBox[{ Offset[{1.5, 0}, {0.000016, 0.00015797972071699692`}], Offset[{-1.5, 0}, {0.000016, 0.00015797972071699692`}]}], LineBox[{ Offset[{1.5, 0}, {0.000016, 0.00014375965925836462`}], Offset[{-1.5, 0}, {0.000016, 0.00014375965925836462`}]}]}, { LineBox[{{0.000020249999999999998`, 0.00018905930521019118`}, { 0.000020249999999999998`, 0.00018079824894843137`}}], LineBox[{ Offset[{1.5, 0}, {0.000020249999999999998`, 0.00018905930521019118`}], Offset[{-1.5, 0}, {0.000020249999999999998`, 0.00018905930521019118`}]}], LineBox[{ Offset[{1.5, 0}, {0.000020249999999999998`, 0.00018079824894843137`}], Offset[{-1.5, 0}, {0.000020249999999999998`, 0.00018079824894843137`}]}]}}}, { RGBColor[0.6, 0.24, 0.4428931686004542], PointBox[{{5.625*^-7, 6.320516842537141*^-6}, {1.*^-6, 0.000010628865207729635`}, {2.25*^-6, 0.0000206117064256565}, { 4.*^-6, 0.00003480349269656249}, {6.2499999999999995`*^-6, 0.00005326643534467383}, {9.*^-6, 0.00007340357068542664}, { 0.000012759184000000001`, 0.00009813575219518386}, {0.000016, 0.00012325955064353003`}, {0.000020249999999999998`, 0.00014770669095791632`}}], {{ LineBox[{{5.625*^-7, 6.766127956420659*^-6}, {5.625*^-7, 5.874905728653622*^-6}}], LineBox[{ Offset[{1.5, 0}, {5.625*^-7, 6.766127956420659*^-6}], Offset[{-1.5, 0}, {5.625*^-7, 6.766127956420659*^-6}]}], LineBox[{ Offset[{1.5, 0}, {5.625*^-7, 5.874905728653622*^-6}], Offset[{-1.5, 0}, {5.625*^-7, 5.874905728653622*^-6}]}]}, { LineBox[{{1.*^-6, 0.000010787400661355185`}, {1.*^-6, 0.000010470329754104085`}}], LineBox[{ Offset[{1.5, 0}, {1.*^-6, 0.000010787400661355185`}], Offset[{-1.5, 0}, {1.*^-6, 0.000010787400661355185`}]}], LineBox[{ Offset[{1.5, 0}, {1.*^-6, 0.000010470329754104085`}], Offset[{-1.5, 0}, {1.*^-6, 0.000010470329754104085`}]}]}, { LineBox[{{2.25*^-6, 0.00002113637079119235}, {2.25*^-6, 0.00002008704206012065}}], LineBox[{ Offset[{1.5, 0}, {2.25*^-6, 0.00002113637079119235}], Offset[{-1.5, 0}, {2.25*^-6, 0.00002113637079119235}]}], LineBox[{ Offset[{1.5, 0}, {2.25*^-6, 0.00002008704206012065}], Offset[{-1.5, 0}, {2.25*^-6, 0.00002008704206012065}]}]}, { LineBox[{{4.*^-6, 0.00003546127862160412}, {4.*^-6, 0.00003414570677152086}}], LineBox[{ Offset[{1.5, 0}, {4.*^-6, 0.00003546127862160412}], Offset[{-1.5, 0}, {4.*^-6, 0.00003546127862160412}]}], LineBox[{ Offset[{1.5, 0}, {4.*^-6, 0.00003414570677152086}], Offset[{-1.5, 0}, {4.*^-6, 0.00003414570677152086}]}]}, { LineBox[{{6.2499999999999995`*^-6, 0.00005413916980002395}, { 6.2499999999999995`*^-6, 0.000052393700889323716`}}], LineBox[{ Offset[{1.5, 0}, {6.2499999999999995`*^-6, 0.00005413916980002395}], Offset[{-1.5, 0}, {6.2499999999999995`*^-6, 0.00005413916980002395}]}], LineBox[{ Offset[{1.5, 0}, {6.2499999999999995`*^-6, 0.000052393700889323716`}], Offset[{-1.5, 0}, {6.2499999999999995`*^-6, 0.000052393700889323716`}]}]}, { LineBox[{{9.*^-6, 0.00007454198606777304}, {9.*^-6, 0.00007226515530308024}}], LineBox[{ Offset[{1.5, 0}, {9.*^-6, 0.00007454198606777304}], Offset[{-1.5, 0}, {9.*^-6, 0.00007454198606777304}]}], LineBox[{ Offset[{1.5, 0}, {9.*^-6, 0.00007226515530308024}], Offset[{-1.5, 0}, {9.*^-6, 0.00007226515530308024}]}]}, { LineBox[{{0.000012759184000000001`, 0.0000995321155331113}, { 0.000012759184000000001`, 0.00009673938885725642}}], LineBox[{ Offset[{1.5, 0}, {0.000012759184000000001`, 0.0000995321155331113}], Offset[{-1.5, 0}, {0.000012759184000000001`, 0.0000995321155331113}]}], LineBox[{ Offset[{1.5, 0}, {0.000012759184000000001`, 0.00009673938885725642}], Offset[{-1.5, 0}, {0.000012759184000000001`, 0.00009673938885725642}]}]}, { LineBox[{{0.000016, 0.0001290640178259216}, {0.000016, 0.00011745508346113848`}}], LineBox[{ Offset[{1.5, 0}, {0.000016, 0.0001290640178259216}], Offset[{-1.5, 0}, {0.000016, 0.0001290640178259216}]}], LineBox[{ Offset[{1.5, 0}, {0.000016, 0.00011745508346113848`}], Offset[{-1.5, 0}, {0.000016, 0.00011745508346113848`}]}]}, { LineBox[{{0.000020249999999999998`, 0.00015099241194663478`}, { 0.000020249999999999998`, 0.00014442096996919785`}}], LineBox[{ Offset[{1.5, 0}, {0.000020249999999999998`, 0.00015099241194663478`}], Offset[{-1.5, 0}, {0.000020249999999999998`, 0.00015099241194663478`}]}], LineBox[{ Offset[{1.5, 0}, {0.000020249999999999998`, 0.00014442096996919785`}], Offset[{-1.5, 0}, {0.000020249999999999998`, 0.00014442096996919785`}]}]}}}}, {}}, {}}, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> True, AxesLabel -> { FormBox[ "\"\\!\\(\\*SuperscriptBox[\\(r\\), \\(2\\)]\\) \ [\\!\\(\\*SuperscriptBox[\\(m\\), \\(2\\)]\\)]\"", TraditionalForm], FormBox[ "\"\\!\\(\\*FractionBox[\\(v\\), \\(\\*SubscriptBox[\\(\[Rho]\\), \ \\(k\\)] - \\*SubscriptBox[\\(\[Rho]\\), \ \\(f\\)]\\)]\\)[\\!\\(\\*FractionBox[SuperscriptBox[\\(m\\), \\(4\\)], \ \\(kg\\\\ s\\)]\\)]\"", TraditionalForm]}, AxesOrigin -> {0, 0}, ImageSize -> {562.7734375, Automatic}, Method -> {}, PlotRange -> {{0, 0.000020249999999999998`}, { 0, 0.00018492877707931127`}}, PlotRangeClipping -> True, PlotRangePadding -> {{4.0499999999999993`*^-7, 4.0499999999999993`*^-7}, { 3.6985755415862257`*^-6, 3.6985755415862257`*^-6}}], TemplateBox[{"\"Mit Korrektur\"", "\"Ohne Korrektur\""}, "PointLegend", DisplayFunction -> (StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{}, { Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], RGBColor[0.24720000000000014`, 0.24, 0.6]], { Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], RGBColor[0.24720000000000014`, 0.24, 0.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> 1, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{}, { Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], RGBColor[0.6, 0.24, 0.4428931686004542]], { Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], RGBColor[0.6, 0.24, 0.4428931686004542]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> 1, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> {"Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {FontFamily -> "Times"}, Background -> Automatic, StripOnInput -> False]& ), Editable -> True, InterpretationFunction :> (RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{"RGBColor", "[", RowBox[{"0.24720000000000014`", ",", "0.24`", ",", "0.6`"}], "]"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"RGBColor", "[", RowBox[{"0.6`", ",", "0.24`", ",", "0.4428931686004542`"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", RowBox[{"LegendMarkers", "\[Rule]", "False"}]}], "}"}]}], "]"}]& )]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{3.566479014812346*^9, 3.566479075972396*^9, 3.566479345617333*^9, 3.5664884985462017`*^9}] }, Open ]], Cell["\<\ F\[UDoubleDot]r den linearen Fit nutzen wir alle Datenpunkte bis auf die \ letzten zwei; wir fitten die Datenpunkte mit Korrektur. Wir gewichten die Me\ \[SZ]punkte mit den Inversen der Fehlerquadrate; auch gewichten wir die 0 mit \ einem willk\[UDoubleDot]rlichen hohen Wert, um eine Ursprungsgerade zu gew\ \[ADoubleDot]hrleisten.\ \>", "Text", CellChangeTimes->{{3.566478578704783*^9, 3.5664786098063507`*^9}, { 3.566478940936846*^9, 3.566478946720487*^9}, {3.566479357125362*^9, 3.566479368364264*^9}, 3.56647953094728*^9, {3.5664812877894382`*^9, 3.566481290116901*^9}, {3.566486674616411*^9, 3.56648671402991*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fit", "=", RowBox[{"LinearModelFit", "[", RowBox[{ RowBox[{ RowBox[{"Prepend", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{ RowBox[{"{", RowBox[{"rsq", ",", SubscriptBox["q", "with"]}], "}"}], "//", "QuantityMagnitude"}], "]"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "]"}], "[", RowBox[{"[", RowBox[{";;", RowBox[{"-", "3"}]}], "]"}], "]"}], ",", " ", "x", ",", " ", "x", ",", " ", RowBox[{"Weights", "\[Rule]", RowBox[{"Prepend", "[", RowBox[{ RowBox[{ RowBox[{"QuantityMagnitude", "[", RowBox[{"1", "/", SuperscriptBox[ SubscriptBox["\[CapitalDelta]q", "with"], "2"]}], "]"}], "[", RowBox[{"[", RowBox[{";;", RowBox[{"-", "3"}]}], "]"}], "]"}], ",", SuperscriptBox["10", "100"]}], RowBox[{"(*", RowBox[{"die", " ", "0", " ", "wird", " ", "hoch", " ", "gewichtet"}], "*)"}], "]"}]}], ",", RowBox[{"VarianceEstimatorFunction", "\[Rule]", RowBox[{"(", RowBox[{"1", "&"}], ")"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.566478899581518*^9, 3.5664789538819942`*^9}, { 3.566479036140855*^9, 3.566479059036141*^9}, {3.566479372975366*^9, 3.56647937691059*^9}, {3.566479434714712*^9, 3.566479507599684*^9}, { 3.566479587946807*^9, 3.566479607359727*^9}, {3.566479724631694*^9, 3.56647979925228*^9}, {3.56648016552864*^9, 3.566480165668051*^9}, { 3.566480196312731*^9, 3.5664802103532457`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"FittedModel", "[", TagBox[ PanelBox[ TagBox[ RowBox[{"7.221071612263192`*^-92", "+", RowBox[{"9.815678682724338`", " ", "x"}]}], Short], FrameMargins->5], Editable -> False], "]"}], InterpretTemplate[ FittedModel[{ "Linear", {7.221071612263192*^-92, 9.815678682724338}, {{$CellContext`x}, {1, $CellContext`x}}, {0, 0}}, {{ 1.*^100, 4.638081110193074*^12, 3.563450536401896*^13, 3.0887019373483755`*^12, 1.863758632073685*^12, 1.0045995328482848`*^12, 5.607809682687815*^11, 3.5131595535235565`*^11}}, {{0, 0}, {5.625*^-7, 6.585978549923701*^-6}, { 1.*^-6, 0.000011224081659362496`}, {2.25*^-6, 0.000022343089765411646`}, {4.*^-6, 0.00003870148387857749}, { 6.2499999999999995`*^-6, 0.00006072373629292817}, {9.*^-6, 0.00008573537056057831}, {0.000012759184000000001`, 0.0001177660429782909}}, {{1., 0.}, {1., 5.625*^-7}, {1., 1.*^-6}, {1., 2.25*^-6}, {1., 4.*^-6}, {1., 6.2499999999999995`*^-6}, {1., 9.*^-6}, {1., 0.000012759184000000001`}}, Function[Null, Internal`LocalizedBlock[{$CellContext`x}, #], {HoldAll}], VarianceEstimatorFunction -> (1& )]& ], Editable->False, SelectWithContents->True, Selectable->True]], "Output", CellChangeTimes->{ 3.566479508486608*^9, 3.566479608609829*^9, {3.566479725394277*^9, 3.566479734164003*^9}, {3.566479771336872*^9, 3.566479800063101*^9}, 3.5664801672025957`*^9, {3.5664801978587103`*^9, 3.566480211443692*^9}, 3.566488499599998*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"fallplot", ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{"fit", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0.00002"}], "}"}]}], "]"}], ",", RowBox[{"ImageSize", "\[Rule]", "Full"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input", CellChangeTimes->{{3.5664789719623737`*^9, 3.566478991380311*^9}, { 3.566479079067135*^9, 3.566479084686927*^9}, {3.566479620727659*^9, 3.566479647258905*^9}}], Cell[BoxData[ TemplateBox[{GraphicsBox[{{{{}, {{ RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[{{5.625*^-7, 6.585978549923701*^-6}, {1.*^-6, 0.000011224081659362496`}, {2.25*^-6, 0.000022343089765411646`}, { 4.*^-6, 0.00003870148387857749}, {6.2499999999999995`*^-6, 0.00006072373629292817}, {9.*^-6, 0.00008573537056057831}, { 0.000012759184000000001`, 0.0001177660429782909}, {0.000016, 0.00015086968998768077`}, {0.000020249999999999998`, 0.00018492877707931127`}}], {{ LineBox[{{5.625*^-7, 7.050312918925223*^-6}, {5.625*^-7, 6.121644180922178*^-6}}], LineBox[{ Offset[{1.5, 0}, {5.625*^-7, 7.050312918925223*^-6}], Offset[{-1.5, 0}, {5.625*^-7, 7.050312918925223*^-6}]}], LineBox[{ Offset[{1.5, 0}, {5.625*^-7, 6.121644180922178*^-6}], Offset[{-1.5, 0}, {5.625*^-7, 6.121644180922178*^-6}]}]}, { LineBox[{{1.*^-6, 0.000011391600875662613`}, {1.*^-6, 0.000011056562443062378`}}], LineBox[{ Offset[{1.5, 0}, {1.*^-6, 0.000011391600875662613`}], Offset[{-1.5, 0}, {1.*^-6, 0.000011391600875662613`}]}], LineBox[{ Offset[{1.5, 0}, {1.*^-6, 0.000011056562443062378`}], Offset[{-1.5, 0}, {1.*^-6, 0.000011056562443062378`}]}]}, { LineBox[{{2.25*^-6, 0.00002291208941606365}, {2.25*^-6, 0.00002177409011475964}}], LineBox[{ Offset[{1.5, 0}, {2.25*^-6, 0.00002291208941606365}], Offset[{-1.5, 0}, {2.25*^-6, 0.00002291208941606365}]}], LineBox[{ Offset[{1.5, 0}, {2.25*^-6, 0.00002177409011475964}], Offset[{-1.5, 0}, {2.25*^-6, 0.00002177409011475964}]}]}, { LineBox[{{4.*^-6, 0.00003943397972441101}, {4.*^-6, 0.00003796898803274398}}], LineBox[{ Offset[{1.5, 0}, {4.*^-6, 0.00003943397972441101}], Offset[{-1.5, 0}, {4.*^-6, 0.00003943397972441101}]}], LineBox[{ Offset[{1.5, 0}, {4.*^-6, 0.00003796898803274398}], Offset[{-1.5, 0}, {4.*^-6, 0.00003796898803274398}]}]}, { LineBox[{{6.2499999999999995`*^-6, 0.00006172144442960609}, { 6.2499999999999995`*^-6, 0.000059726028156250264`}}], LineBox[{ Offset[{1.5, 0}, {6.2499999999999995`*^-6, 0.00006172144442960609}], Offset[{-1.5, 0}, {6.2499999999999995`*^-6, 0.00006172144442960609}]}], LineBox[{ Offset[{1.5, 0}, {6.2499999999999995`*^-6, 0.000059726028156250264`}], Offset[{-1.5, 0}, {6.2499999999999995`*^-6, 0.000059726028156250264`}]}]}, { LineBox[{{9.*^-6, 0.00008707074594651711}, {9.*^-6, 0.0000843999951746395}}], LineBox[{ Offset[{1.5, 0}, {9.*^-6, 0.00008707074594651711}], Offset[{-1.5, 0}, {9.*^-6, 0.00008707074594651711}]}], LineBox[{ Offset[{1.5, 0}, {9.*^-6, 0.0000843999951746395}], Offset[{-1.5, 0}, {9.*^-6, 0.0000843999951746395}]}]}, { LineBox[{{0.000012759184000000001`, 0.00011945318274830959`}, { 0.000012759184000000001`, 0.00011607890320827221`}}], LineBox[{ Offset[{1.5, 0}, {0.000012759184000000001`, 0.00011945318274830959`}], Offset[{-1.5, 0}, {0.000012759184000000001`, 0.00011945318274830959`}]}], LineBox[{ Offset[{1.5, 0}, {0.000012759184000000001`, 0.00011607890320827221`}], Offset[{-1.5, 0}, {0.000012759184000000001`, 0.00011607890320827221`}]}]}, { LineBox[{{0.000016, 0.00015797972071699692`}, {0.000016, 0.00014375965925836462`}}], LineBox[{ Offset[{1.5, 0}, {0.000016, 0.00015797972071699692`}], Offset[{-1.5, 0}, {0.000016, 0.00015797972071699692`}]}], LineBox[{ Offset[{1.5, 0}, {0.000016, 0.00014375965925836462`}], Offset[{-1.5, 0}, {0.000016, 0.00014375965925836462`}]}]}, { LineBox[{{0.000020249999999999998`, 0.00018905930521019118`}, { 0.000020249999999999998`, 0.00018079824894843137`}}], LineBox[{ Offset[{1.5, 0}, {0.000020249999999999998`, 0.00018905930521019118`}], Offset[{-1.5, 0}, {0.000020249999999999998`, 0.00018905930521019118`}]}], LineBox[{ Offset[{1.5, 0}, {0.000020249999999999998`, 0.00018079824894843137`}], Offset[{-1.5, 0}, {0.000020249999999999998`, 0.00018079824894843137`}]}]}}}, { RGBColor[0.6, 0.24, 0.4428931686004542], PointBox[{{5.625*^-7, 6.320516842537141*^-6}, {1.*^-6, 0.000010628865207729635`}, {2.25*^-6, 0.0000206117064256565}, { 4.*^-6, 0.00003480349269656249}, {6.2499999999999995`*^-6, 0.00005326643534467383}, {9.*^-6, 0.00007340357068542664}, { 0.000012759184000000001`, 0.00009813575219518386}, {0.000016, 0.00012325955064353003`}, {0.000020249999999999998`, 0.00014770669095791632`}}], {{ LineBox[{{5.625*^-7, 6.766127956420659*^-6}, {5.625*^-7, 5.874905728653622*^-6}}], LineBox[{ Offset[{1.5, 0}, {5.625*^-7, 6.766127956420659*^-6}], Offset[{-1.5, 0}, {5.625*^-7, 6.766127956420659*^-6}]}], LineBox[{ Offset[{1.5, 0}, {5.625*^-7, 5.874905728653622*^-6}], Offset[{-1.5, 0}, {5.625*^-7, 5.874905728653622*^-6}]}]}, { LineBox[{{1.*^-6, 0.000010787400661355185`}, {1.*^-6, 0.000010470329754104085`}}], LineBox[{ Offset[{1.5, 0}, {1.*^-6, 0.000010787400661355185`}], Offset[{-1.5, 0}, {1.*^-6, 0.000010787400661355185`}]}], LineBox[{ Offset[{1.5, 0}, {1.*^-6, 0.000010470329754104085`}], Offset[{-1.5, 0}, {1.*^-6, 0.000010470329754104085`}]}]}, { LineBox[{{2.25*^-6, 0.00002113637079119235}, {2.25*^-6, 0.00002008704206012065}}], LineBox[{ Offset[{1.5, 0}, {2.25*^-6, 0.00002113637079119235}], Offset[{-1.5, 0}, {2.25*^-6, 0.00002113637079119235}]}], LineBox[{ Offset[{1.5, 0}, {2.25*^-6, 0.00002008704206012065}], Offset[{-1.5, 0}, {2.25*^-6, 0.00002008704206012065}]}]}, { LineBox[{{4.*^-6, 0.00003546127862160412}, {4.*^-6, 0.00003414570677152086}}], LineBox[{ Offset[{1.5, 0}, {4.*^-6, 0.00003546127862160412}], Offset[{-1.5, 0}, {4.*^-6, 0.00003546127862160412}]}], LineBox[{ Offset[{1.5, 0}, {4.*^-6, 0.00003414570677152086}], Offset[{-1.5, 0}, {4.*^-6, 0.00003414570677152086}]}]}, { LineBox[{{6.2499999999999995`*^-6, 0.00005413916980002395}, { 6.2499999999999995`*^-6, 0.000052393700889323716`}}], LineBox[{ Offset[{1.5, 0}, {6.2499999999999995`*^-6, 0.00005413916980002395}], Offset[{-1.5, 0}, {6.2499999999999995`*^-6, 0.00005413916980002395}]}], LineBox[{ Offset[{1.5, 0}, {6.2499999999999995`*^-6, 0.000052393700889323716`}], Offset[{-1.5, 0}, {6.2499999999999995`*^-6, 0.000052393700889323716`}]}]}, { LineBox[{{9.*^-6, 0.00007454198606777304}, {9.*^-6, 0.00007226515530308024}}], LineBox[{ Offset[{1.5, 0}, {9.*^-6, 0.00007454198606777304}], Offset[{-1.5, 0}, {9.*^-6, 0.00007454198606777304}]}], LineBox[{ Offset[{1.5, 0}, {9.*^-6, 0.00007226515530308024}], Offset[{-1.5, 0}, {9.*^-6, 0.00007226515530308024}]}]}, { LineBox[{{0.000012759184000000001`, 0.0000995321155331113}, { 0.000012759184000000001`, 0.00009673938885725642}}], LineBox[{ Offset[{1.5, 0}, {0.000012759184000000001`, 0.0000995321155331113}], Offset[{-1.5, 0}, {0.000012759184000000001`, 0.0000995321155331113}]}], LineBox[{ Offset[{1.5, 0}, {0.000012759184000000001`, 0.00009673938885725642}], Offset[{-1.5, 0}, {0.000012759184000000001`, 0.00009673938885725642}]}]}, { LineBox[{{0.000016, 0.0001290640178259216}, {0.000016, 0.00011745508346113848`}}], LineBox[{ Offset[{1.5, 0}, {0.000016, 0.0001290640178259216}], Offset[{-1.5, 0}, {0.000016, 0.0001290640178259216}]}], LineBox[{ Offset[{1.5, 0}, {0.000016, 0.00011745508346113848`}], Offset[{-1.5, 0}, {0.000016, 0.00011745508346113848`}]}]}, { LineBox[{{0.000020249999999999998`, 0.00015099241194663478`}, { 0.000020249999999999998`, 0.00014442096996919785`}}], LineBox[{ Offset[{1.5, 0}, {0.000020249999999999998`, 0.00015099241194663478`}], Offset[{-1.5, 0}, {0.000020249999999999998`, 0.00015099241194663478`}]}], LineBox[{ Offset[{1.5, 0}, {0.000020249999999999998`, 0.00014442096996919785`}], Offset[{-1.5, 0}, {0.000020249999999999998`, 0.00014442096996919785`}]}]}}}}, {}}, {{}, {}, { Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVk3s01HkYh4dlSkilmFzHzBi+HUs3cqn3JUxRlFadWSHGWNla5JJaOoxD Zbq55rKnxSblDDaio4i0hEguiY6ISuOS+2/dKtb+8TnP389zzkdPEHjEV5ZG ozmt7H/6lkjbW8vd9wyUGNBb/kzco1OoKmzmW8LWr33ezSQIDq0Knk7iO0L/ +F5OPokGv505Fmf5blA+FBqXRhJg5oV5rx//V7gzqPzwOskGi5tyf3vxfwdN oZuzmNyHdxEj6h58MRy7Ha1xmTyFogCPg8f5mTDzLJl2ibQCR3o4iRYqgW/R MY3xXf1gnYdN9cJSaMs007wvPwyOqbnuG8cfA8trQss7bhLGbGZkMmVrYEHB rGu0j4IMXlpPukstLAQ9TuWOz8PqJmItktaDWuC2ZYHrd7jzo49RwekmEFkk 3l3TQcO8W1k6vLIWUMq811bxRhbLeIMvhaw20OdZtI3Jy6ODfaRKX1M7dLQO tc+prEKq5HPK/OnX4O/ZWV+pooDRXg3vL217A1d3WSXJWiliVYqksKWrC+wm qj2ZNsrYt5puI855C1emn9Cqg1Vw05cdDKmgBzwivzkqvVyHS0d9gr/K90J1 QL6afst6bFhWSIpt7gMpXdVp6dMGZDF+zhRY9oPb2quxtsOq6NJ60nkPcwBS K2q4Dj9sQkVrQe6QzAewHUnda8RQQ52QdxWBrz+A1eXzJyI01JHF22BWXP4R Fps2S8XbGRj1ruFMy7VPIBfVGEg334x+W/wPVXoOguiBevAJcw20ZtTdENp8 hufXWO/POWticGNO4tBGKRzt2u205KKFqRqWs9xFKRQ8V+XandJGO3blN9Oe IQjfFX/OL0oHD0xU1TILh+GK+trm2WhdtD1+YaIuYQQetBjYsw8yMUVc2cPz HQWeQytH1MLEM2cG/dNNv0Cy3P4aJ2c9hPlGt1z1MajdoJO82K2Hwr0myldH xiCjO8LXw42FEUaHWcavxuGnqV2/ZX9m4ejbqXlJ7gQU10SEZfizMSSryvy7 5SQ0tl+3lBlh47CeIE9UMAl1ZjRThzAOKtKfUyFqU+B7ZMFk3xwHuY8vhdrG T8HI08Ne+rH6SHcE+68LU2AYFO4UvJaLyVZls0yfaVDq0rcKu8FFxvf4t+zO aWhP2O7J1zRAR6burRScAZStF03dMkAb3fzisbszICzdIljQNsRt4wlz7M0U BDz6Ej5wzxBf6ljoNMRQoHXW7HrUFoIclfqOrFgKHtYMHHlmRDBy2TU+/CIF LsrX1OVNCBr1B1FcMQUXcz9mi3cQFOfcexGXSMFEe8KD1N0E93MY4bbZFPxj MtotcSZYS+ZeVT2h4NRwFrs7mKCWRlzczWoK6KYHhjTCCIauUbUKqKEgJ3q2 wCOcIHvUOE+7joJOdSezjxEEYwp+iYxspgB5i/vHYwlam7wxtOyhQPW2a4Bc GsF0XWHf+l4KisaXt+/LIDipMp08vPI7B0vJXPwfBLMmlZfTP1BwoU1GpJJN cKnYvnNumALpclGyRj7BY391iF+NUhBzwI3vISFYlORtfXeMAu00ee3sQoIe IRckx6ZW/I3d8/RLCJb6KHobz1Awen7VqZOlBJVcM9To/670qCsxkTwkKLQz aO6dpUBvvSc1Vk6wcmeZqGyeggp3hUdbKwj+B9MGQ2s= "]]}}}, {}}, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> True, AxesLabel -> { FormBox[ "\"\\!\\(\\*SuperscriptBox[\\(r\\), \\(2\\)]\\) \ [\\!\\(\\*SuperscriptBox[\\(m\\), \\(2\\)]\\)]\"", TraditionalForm], FormBox[ "\"\\!\\(\\*FractionBox[\\(v\\), \\(\\*SubscriptBox[\\(\[Rho]\\), \ \\(k\\)] - \\*SubscriptBox[\\(\[Rho]\\), \ \\(f\\)]\\)]\\)[\\!\\(\\*FractionBox[SuperscriptBox[\\(m\\), \\(4\\)], \ \\(kg\\\\ s\\)]\\)]\"", TraditionalForm]}, AxesOrigin -> {0, 0}, ImageSize -> Full, Method -> {}, PlotRange -> All, PlotRangeClipping -> True, PlotRangePadding -> {{4.0499999999999993`*^-7, 4.0499999999999993`*^-7}, { 3.6985755415862257`*^-6, 3.6985755415862257`*^-6}}], TemplateBox[{"\"Mit Korrektur\"", "\"Ohne Korrektur\""}, "PointLegend", DisplayFunction -> (StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{}, { Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], RGBColor[0.24720000000000014`, 0.24, 0.6]], { Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], RGBColor[0.24720000000000014`, 0.24, 0.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> 1, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{}, { Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], RGBColor[0.6, 0.24, 0.4428931686004542]], { Directive[ EdgeForm[{ Opacity[0.3], GrayLevel[0]}], RGBColor[0.6, 0.24, 0.4428931686004542]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> 1, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> {"Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {FontFamily -> "Times"}, Background -> Automatic, StripOnInput -> False]& ), Editable -> True, InterpretationFunction :> (RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{"RGBColor", "[", RowBox[{"0.24720000000000014`", ",", "0.24`", ",", "0.6`"}], "]"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"RGBColor", "[", RowBox[{"0.6`", ",", "0.24`", ",", "0.4428931686004542`"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", RowBox[{"LegendMarkers", "\[Rule]", "False"}]}], "}"}]}], "]"}]& )]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{{3.566478984731645*^9, 3.566478991975284*^9}, { 3.566479062614297*^9, 3.5664790912822104`*^9}, 3.566479381134842*^9, 3.566479452482349*^9, 3.566479511060151*^9, {3.566479623471603*^9, 3.5664796475242443`*^9}, 3.5664797460308857`*^9, {3.566479789352084*^9, 3.5664798022984447`*^9}, 3.566479926783428*^9, {3.566480171389679*^9, 3.566480214920128*^9}, 3.566488499795973*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"fit", "[", "\"\\"", "]"}], "//", "Chop"}]], "Input", CellChangeTimes->{{3.566479662687426*^9, 3.5664796829052963`*^9}, { 3.5664799997496862`*^9, 3.5664800353427467`*^9}, {3.566480184473229*^9, 3.566480186398322*^9}}], Cell[BoxData[ StyleBox[ TagBox[GridBox[{ {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\ \[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"}, {"1", "0", "0", "0", "1"}, {"x", "9.815678682724338`", "0.06675316842546641`", "147.04438627035483`", "0"} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxDividers->{ "ColumnsIndexed" -> {2 -> GrayLevel[0.7]}, "RowsIndexed" -> {2 -> GrayLevel[0.7]}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{ "ColumnsIndexed" -> {2 -> 1}, "RowsIndexed" -> {2 -> 0.75}}], "Grid"], "DialogStyle", StripOnInput->False]], "Output", CellChangeTimes->{{3.56647966743476*^9, 3.5664796831562357`*^9}, { 3.566479727458577*^9, 3.566479735972563*^9}, {3.566479794178916*^9, 3.5664798064502363`*^9}, 3.56647992897651*^9, {3.566480001190259*^9, 3.5664800356271267`*^9}, {3.566480177048891*^9, 3.566480186599008*^9}, 3.566480217331213*^9, 3.566488499932489*^9}] }, Open ]], Cell["Es folgt f\[UDoubleDot]r die Steigung:", "Text", CellChangeTimes->{{3.5664798378391323`*^9, 3.566479840637404*^9}, { 3.566479931025765*^9, 3.566479932686915*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{"m", ",", "\[CapitalDelta]m"}], "}"}], "=", RowBox[{"Quantity", "[", RowBox[{ RowBox[{ RowBox[{"fit", "[", "\"\\"", "]"}], "[", RowBox[{"[", RowBox[{"2", ",", RowBox[{"1", ";;", "2"}]}], "]"}], "]"}], ",", FractionBox[ SuperscriptBox["\"\\"", "2"], RowBox[{"\"\\"", "*", "\"\\""}]]}], "]"}]}]], "Input", CellChangeTimes->{{3.566480241782542*^9, 3.566480279092067*^9}, { 3.566480462406002*^9, 3.566480494044338*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"9.815678682724338`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ SuperscriptBox["\"m\"", "2"], "\[NegativeMediumSpace]", "\"/(\"", "\[InvisibleSpace]", "\"kg\"", "\[ThinSpace]", "\"s\"", "\[InvisibleSpace]", "\")\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters squared per kilogram second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox[ SuperscriptBox["\"Meters\"", "2"], RowBox[{"\"Kilograms\"", " ", "\"Seconds\""}]]}], "]"}]& )], ",", TemplateBox[{"0.06675316842546641`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ SuperscriptBox["\"m\"", "2"], "\[NegativeMediumSpace]", "\"/(\"", "\[InvisibleSpace]", "\"kg\"", "\[ThinSpace]", "\"s\"", "\[InvisibleSpace]", "\")\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters squared per kilogram second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox[ SuperscriptBox["\"Meters\"", "2"], RowBox[{"\"Kilograms\"", " ", "\"Seconds\""}]]}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{{3.5664802468437023`*^9, 3.566480279614085*^9}, 3.5664804946445093`*^9, 3.566488500100904*^9}] }, Open ]], Cell[TextData[{ "Diese Steigung entspricht nun ", Cell[BoxData[ FormBox[ RowBox[{ FractionBox["2", "9"], FractionBox["g", "\[Eta]"]}], TraditionalForm]], FormatType->"TraditionalForm"], ". Also k\[ODoubleDot]nnen wir angeben:" }], "Text", CellChangeTimes->{{3.566480395594201*^9, 3.56648042350287*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["\[Eta]", "fall"], ",", SubscriptBox["\[CapitalDelta]\[Eta]", "fall"]}], "}"}], "=", RowBox[{ RowBox[{ FractionBox["2", "9"], FractionBox["g", "m"], "*", RowBox[{"{", RowBox[{"1", ",", FractionBox["\[CapitalDelta]m", "m"]}], "}"}]}], "//", RowBox[{ RowBox[{"UnitConvert", "[", RowBox[{"#", ",", RowBox[{"\"\\"", "*", "\"\\""}]}], "]"}], "&"}]}]}]], "Input", CellChangeTimes->{{3.566480424821385*^9, 3.5664804577098*^9}, { 3.566480505228382*^9, 3.566480519121829*^9}, {3.566480618006061*^9, 3.566480728550767*^9}, 3.5664850893240223`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"UnitConvert", "[", RowBox[{ RowBox[{"g", " ", RowBox[{"(", TemplateBox[{"0.02263951677771756`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"kg\"", "\[ThinSpace]", "\"s\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", SuperscriptBox["\"m\"", "2"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: kilogram seconds per meter squared"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox[ RowBox[{"\"Kilograms\"", " ", "\"Seconds\""}], SuperscriptBox["\"Meters\"", "2"]]}], "]"}]& )], ")"}]}], ",", RowBox[{"\<\"Pascals\"\>", " ", "\<\"Seconds\"\>"}]}], "]"}], ",", RowBox[{"UnitConvert", "[", RowBox[{ RowBox[{"g", " ", RowBox[{"(", TemplateBox[{"0.00015396382923515823`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"kg\"", "\[ThinSpace]", "\"s\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", SuperscriptBox["\"m\"", "2"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: kilogram seconds per meter squared"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox[ RowBox[{"\"Kilograms\"", " ", "\"Seconds\""}], SuperscriptBox["\"Meters\"", "2"]]}], "]"}]& )], ")"}]}], ",", RowBox[{"\<\"Pascals\"\>", " ", "\<\"Seconds\"\>"}]}], "]"}]}], "}"}]], "Output", CellChangeTimes->{{3.566480637471035*^9, 3.566480674442514*^9}, 3.566480709230815*^9, 3.5664807399871902`*^9, 3.566485090982263*^9, 3.56648850060926*^9}] }, Open ]], Cell["Also ist \[Eta] mit Fehler:", "Text", CellChangeTimes->{{3.56648676102635*^9, 3.56648676161856*^9}, { 3.566486805079454*^9, 3.566486810368659*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"NumberForm", "[", RowBox[{ SubscriptBox["\[Eta]", "fall"], ",", "3"}], "]"}], "\[PlusMinus]", RowBox[{"NumberForm", "[", RowBox[{ SubscriptBox["\[CapitalDelta]\[Eta]", "fall"], ",", "1"}], "]"}]}]], "Input", CellChangeTimes->{{3.56648676786014*^9, 3.566486796898222*^9}}], Cell[BoxData[ RowBox[{ TagBox[ RowBox[{"UnitConvert", "[", RowBox[{ RowBox[{"g", " ", RowBox[{"(", TemplateBox[{ InterpretationBox[ "\"0.0226\"", 0.02263951677771756, AutoDelete -> True]}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"kg\"", "\[ThinSpace]", "\"s\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", SuperscriptBox["\"m\"", InterpretationBox["\"2\"", 2, Editable -> False]]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: kilogram seconds per meter squared"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox[ RowBox[{"\"Kilograms\"", " ", "\"Seconds\""}], SuperscriptBox["\"Meters\"", InterpretationBox["\"2\"", 2, Editable -> False]]]}], "]"}]& )], ")"}]}], ",", RowBox[{"\<\"Pascals\"\>", " ", "\<\"Seconds\"\>"}]}], "]"}], NumberForm[#, 3]& ], "\[PlusMinus]", TagBox[ RowBox[{"UnitConvert", "[", RowBox[{ RowBox[{"g", " ", RowBox[{"(", TemplateBox[{ InterpretationBox[ "\"0.0002\"", 0.00015396382923515823`, AutoDelete -> True]}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"kg\"", "\[ThinSpace]", "\"s\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", SuperscriptBox["\"m\"", InterpretationBox["\"2\"", 2, Editable -> False]]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: kilogram seconds per meter squared"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox[ RowBox[{"\"Kilograms\"", " ", "\"Seconds\""}], SuperscriptBox["\"Meters\"", InterpretationBox["\"2\"", 2, Editable -> False]]]}], "]"}]& )], ")"}]}], ",", RowBox[{"\<\"Pascals\"\>", " ", "\<\"Seconds\"\>"}]}], "]"}], NumberForm[#, 1]& ]}]], "Output", CellChangeTimes->{3.56648679754414*^9, 3.5664885007698603`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Untersuchung der Reynoldszahl", "Subsection", CellChangeTimes->{{3.566486755524465*^9, 3.566486758704701*^9}}], Cell[TextData[{ "Nun k\[ODoubleDot]nnen wir f\[UDoubleDot]r alle Radien den theoretischen \ Wert ", Cell[BoxData[ FormBox[ SubscriptBox["v", "lam"], TraditionalForm]]], " mit Fehler gem\[ADoubleDot]\[SZ] Gleichung (14) aus dem Praktikumsskript \ berechnen:" }], "Text", CellChangeTimes->{ 3.566486748025551*^9, {3.566486835287339*^9, 3.566486836196409*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"g", "=", RowBox[{"Quantity", "[", "\"\\"", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.566481311299943*^9, 3.566481325148234*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["v", RowBox[{"lam", ",", "i"}]], "=", RowBox[{ FractionBox["2", "9"], "g", FractionBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[Rho]", "i"], "-", SubscriptBox["\[Rho]", RowBox[{"fl", ",", "i"}]]}], ")"}], RowBox[{ SubscriptBox["\[Eta]", "fall"], SubscriptBox["\[Lambda]", "i"]}]], SuperscriptBox[ SubscriptBox["r", "i"], "2"]}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"i", ",", "diameters"}], "}"}]}], "]"}], "//", "UnitConvert"}]], "Input", CellChangeTimes->{{3.5664808070053577`*^9, 3.566480889972783*^9}, { 3.566480924039219*^9, 3.5664810178583107`*^9}, {3.566481316050494*^9, 3.566481319183621*^9}, {3.566486841817964*^9, 3.5664868452753983`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"0.001142944879245007`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters per second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Meters\"", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"0.0021443911667656285`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters per second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Meters\"", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"0.004700252225309164`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters per second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Meters\"", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"0.008163255077143399`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters per second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Meters\"", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"0.012441803242576014`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters per second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Meters\"", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"0.01748669880394931`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters per second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Meters\"", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"0.024160248782599845`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters per second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Meters\"", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"0.02713746459341435`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters per second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Meters\"", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"0.034371535387299416`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters per second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Meters\"", "\"Seconds\""]}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{{3.566480942907917*^9, 3.566480971383472*^9}, { 3.5664810059097843`*^9, 3.566481026435191*^9}, 3.566481334615423*^9, 3.56648851090261*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["\[CapitalDelta]v", RowBox[{"lam", ",", "i"}]], "=", RowBox[{ FractionBox["2", "9"], "g", RowBox[{"\[Sqrt]", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"2", FractionBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[Rho]", "i"], "-", SubscriptBox["\[Rho]", RowBox[{"fl", ",", "i"}]]}], ")"}], RowBox[{ SubscriptBox["\[Eta]", "fall"], SubscriptBox["\[Lambda]", "i"]}]], SubscriptBox["r", "i"], SubscriptBox["\[CapitalDelta]r", "i"]}], ")"}], "2"], "+", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox[ SubscriptBox["\[CapitalDelta]\[Rho]", "i"], "2"], "+", SuperscriptBox[ SubscriptBox["\[CapitalDelta]\[Rho]", RowBox[{"fl", ",", "i"}]], "2"]}], ")"}], SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox["1", RowBox[{ SubscriptBox["\[Eta]", "fall"], SubscriptBox["\[Lambda]", "i"]}]], SuperscriptBox[ SubscriptBox["r", "i"], "2"]}], ")"}], "2"]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[Rho]", "i"], "-", SubscriptBox["\[Rho]", RowBox[{"fl", ",", "i"}]]}], ")"}], RowBox[{ SuperscriptBox[ SubscriptBox["\[Eta]", "fall"], "2"], SubscriptBox["\[Lambda]", "i"]}]], SuperscriptBox[ SubscriptBox["r", "i"], "2"], SubscriptBox["\[CapitalDelta]\[Eta]", "fall"]}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[Rho]", "i"], "-", SubscriptBox["\[Rho]", RowBox[{"fl", ",", "i"}]]}], ")"}], RowBox[{ SubscriptBox["\[Eta]", "fall"], SuperscriptBox[ SubscriptBox["\[Lambda]", "i"], "2"]}]], SuperscriptBox[ SubscriptBox["r", "i"], "2"], SubscriptBox["\[CapitalDelta]\[Lambda]", "i"]}], ")"}], "2"]}], ")"}]}]}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"i", ",", "diameters"}], "}"}]}], "]"}], "//", "UnitConvert"}]], "Input", CellChangeTimes->{{3.566481343526024*^9, 3.566481508436863*^9}, { 3.566486847707254*^9, 3.566486859298781*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"0.000027670525710702314`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters per second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Meters\"", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"0.000051136384083507023`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters per second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Meters\"", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"0.00011211637501329064`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters per second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Meters\"", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"0.00019470085115238606`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters per second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Meters\"", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"0.00029687675325449866`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters per second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Meters\"", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"0.000417459584804066`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters per second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Meters\"", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"0.0005769767848475039`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters per second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Meters\"", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"0.0006619023174882563`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters per second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Meters\"", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"0.0008341562796927693`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters per second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Meters\"", "\"Seconds\""]}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.566481557792088*^9, 3.566488552916542*^9}] }, Open ]], Cell["\<\ Die Reynoldszahlen ergeben sich mit Fehlern zu:\ \>", "Text", CellChangeTimes->{{3.566481127239992*^9, 3.566481132055456*^9}, { 3.566486867461121*^9, 3.566486868443211*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["Reynolds", "i"], "=", FractionBox[ RowBox[{"2", SubscriptBox["\[Rho]", RowBox[{"fl", ",", "i"}]], SubscriptBox["v", "i"], SubscriptBox["r", "i"]}], SubscriptBox["\[Eta]", "fall"]]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"i", ",", "diameters"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.566481167759859*^9, 3.566481249521356*^9}, { 3.5664868730218363`*^9, 3.566486874725335*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.010563159872641868`", ",", "0.025331700544093512`", ",", "0.0736856049079148`", ",", "0.1661809030348191`", ",", "0.31792298851294587`", ",", "0.5257348063671146`", ",", "0.8377539533851993`", ",", "1.0765091559263997`", ",", "1.4855845293379977`"}], "}"}]], "Output", CellChangeTimes->{{3.566481239436862*^9, 3.566481258172364*^9}, 3.5664885633402643`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{ SubscriptBox["\[CapitalDelta]Reynolds", "i"], "=", SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", SubscriptBox["\[CapitalDelta]\[Rho]", RowBox[{"fl", ",", "i"}]], SubscriptBox["v", "i"], SubscriptBox["r", "i"]}], SubscriptBox["\[Eta]", "fall"]], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", SubscriptBox["\[Rho]", RowBox[{"fl", ",", "i"}]], SubscriptBox["\[CapitalDelta]v", "i"], SubscriptBox["r", "i"]}], SubscriptBox["\[Eta]", "fall"]], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", SubscriptBox["\[Rho]", RowBox[{"fl", ",", "i"}]], SubscriptBox["v", "i"], SubscriptBox["\[CapitalDelta]r", "i"]}], SubscriptBox["\[Eta]", "fall"]], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"2", SubscriptBox["\[Rho]", RowBox[{"fl", ",", "i"}]], SubscriptBox["v", "i"], SubscriptBox["r", "i"]}], SuperscriptBox[ SubscriptBox["\[Eta]", "fall"], "2"]], SubscriptBox["\[CapitalDelta]\[Eta]", "fall"]}], ")"}], "2"]}]]}], ",", RowBox[{"{", RowBox[{"i", ",", "diameters"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5664815735485067`*^9, 3.566481620263891*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.0007452315822954268`", ",", "0.00039794498429693173`", ",", "0.0019105059228962397`", ",", "0.0032481803223043115`", ",", "0.005444603674129459`", ",", "0.008564267015190809`", ",", "0.012639114371332787`", ",", "0.050707262920152915`", ",", "0.03330494772501956`"}], "}"}]], "Output", CellChangeTimes->{3.566481665405463*^9, 3.566488611433309*^9}] }, Open ]], Cell[TextData[{ "Wir bilden einige Hilfstabellen f\[UDoubleDot]r ", Cell[BoxData[ FormBox[ FractionBox["v", SubscriptBox["v", "lam"]], TraditionalForm]], FormatType->"TraditionalForm"], " sowie ", Cell[BoxData[ FormBox[ RowBox[{"ln", RowBox[{"(", "Reynolds", ")"}]}], TraditionalForm]], FormatType->"TraditionalForm"], ", jeweils mit Fehlern." }], "Text", CellChangeTimes->{{3.566486879746698*^9, 3.5664869080648727`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"vovervlam", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ FractionBox[ SubscriptBox["v", "i"], SubscriptBox["v", RowBox[{"lam", ",", "i"}]]], ",", RowBox[{"{", RowBox[{"i", ",", "diameters"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.566481733184743*^9, 3.566481756343667*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.1928269750294846`", ",", "1.143485032687241`", ",", "1.0116735112201727`", ",", "0.9857057552905732`", ",", "0.9898243535587996`", ",", "0.9705036801250221`", ",", "0.9403225454179439`", ",", "0.9606422468601971`", ",", "0.9303773669710792`"}], "}"}]], "Output", CellChangeTimes->{3.56648176053699*^9, 3.5664886153829823`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[CapitalDelta]vovervlam", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ SubscriptBox["\[CapitalDelta]v", "i"], SubscriptBox["v", RowBox[{"lam", ",", "i"}]]], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox[ SubscriptBox["v", "i"], SuperscriptBox[ SubscriptBox["v", RowBox[{"lam", ",", "i"}]], "2"]], SubscriptBox["\[CapitalDelta]v", RowBox[{"lam", ",", "i"}]]}], ")"}], "2"]}]], ",", RowBox[{"{", RowBox[{"i", ",", "diameters"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.566481827967123*^9, 3.566481874873014*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.08779230003356088`", ",", "0.029576371716429996`", ",", "0.033473863129154464`", ",", "0.02795780965302594`", ",", "0.026489653768350264`", ",", "0.025471733505596693`", ",", "0.02400105942791254`", ",", "0.04961231272536276`", ",", "0.028602652148255935`"}], "}"}]], "Output", CellChangeTimes->{3.566481888375513*^9, 3.5664886294531403`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"lnR", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Log", "[", SubscriptBox["Reynolds", "i"], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "diameters"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.566481802541565*^9, 3.566481819584283*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "4.550382815100685`"}], ",", RowBox[{"-", "3.6756986816478836`"}], ",", RowBox[{"-", "2.607947818974007`"}], ",", RowBox[{"-", "1.7946783066836485`"}], ",", RowBox[{"-", "1.1459461000185283`"}], ",", RowBox[{"-", "0.642958363785785`"}], ",", RowBox[{"-", "0.1770308333245845`"}], ",", "0.0737235430591252`", ",", "0.39580831725549964`"}], "}"}]], "Output", CellChangeTimes->{{3.566481815198007*^9, 3.5664818201745167`*^9}, 3.566488629520129*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[CapitalDelta]lnR", "=", RowBox[{"Table", "[", RowBox[{ FractionBox[ SubscriptBox["\[CapitalDelta]Reynolds", "i"], SubscriptBox["Reynolds", "i"]], ",", RowBox[{"{", RowBox[{"i", ",", "diameters"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.566481894305163*^9, 3.566481897678327*^9}, { 3.56648194081975*^9, 3.56648195208045*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.07055006184518182`", ",", "0.015709367146680524`", ",", "0.02592780401658922`", ",", "0.01954605049669116`", ",", "0.017125542571161865`", ",", "0.016290089435719194`", ",", "0.015086905075482613`", ",", "0.04710342001366103`", ",", "0.022418749702422403`"}], "}"}]], "Output", CellChangeTimes->{3.5664819527481537`*^9, 3.566488629546198*^9}] }, Open ]], Cell[TextData[{ "Nun k\[ODoubleDot]nnen wir ", Cell[BoxData[ FormBox[ FractionBox["v", SubscriptBox["v", "lam"]], TraditionalForm]], FormatType->"TraditionalForm"], " gegen ", Cell[BoxData[ FormBox[ RowBox[{"ln", "(", "Reynolds", ")"}], TraditionalForm]], FormatType->"TraditionalForm"], " auftragen. Dabei lassen wir die ersten beiden Werte, wo ", Cell[BoxData[ FormBox["v", TraditionalForm]], FormatType->"TraditionalForm"], " etwas gr\[ODoubleDot]\[SZ]er als ", Cell[BoxData[ FormBox[ SubscriptBox["v", "lam"], TraditionalForm]], FormatType->"TraditionalForm"], " ist, weg, da sie die Erkennbarkeit des Knicks tr\[UDoubleDot]ben. Dieser \ ist dann kurz vor der 0 wahrzunehmen, also k\[ODoubleDot]nnen wir die \ kritische Reynoldszahl als \[RightGuillemet]etwa 1\[LeftGuillemet] absch\ \[ADoubleDot]tzen (siehe unten)." }], "Text", CellChangeTimes->{{3.566482623694652*^9, 3.566482714502944*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ErrorListPlot", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"lnR", ",", "vovervlam"}], "}"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"Apply", "[", RowBox[{"ErrorBar", ",", "#"}], "]"}], "&"}], "/@", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"\[CapitalDelta]lnR", ",", "\[CapitalDelta]vovervlam"}], "}"}], "]"}]}]}], "}"}], "]"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{".9", ",", "1.1"}], "}"}]}], "}"}]}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<\!\(\*FractionBox[\(v\), SubscriptBox[\(v\), \(lam\)]]\)\>\""}], "}"}]}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{"Dashed", ",", " ", "Gray", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "1"}], "}"}]}], "}"}], "]"}]}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "Full"}]}], "]"}]], "Input", CellChangeTimes->{{3.566482071700965*^9, 3.566482247271145*^9}, { 3.5664823359537086`*^9, 3.5664823395960197`*^9}, {3.5664825145503798`*^9, 3.5664826155041847`*^9}, {3.566486917122984*^9, 3.566487006485908*^9}, { 3.566487053450633*^9, 3.566487060452209*^9}}], Cell[BoxData[ GraphicsBox[{{}, {{}, {RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[{{-4.550382815100685, 1.1928269750294846`}, {-3.6756986816478836`, 1.143485032687241}, {-2.607947818974007, 1.0116735112201727`}, {-1.7946783066836485`, 0.9857057552905732}, {-1.1459461000185283`, 0.9898243535587996}, {-0.642958363785785, 0.9705036801250221}, {-0.1770308333245845, 0.9403225454179439}, { 0.0737235430591252, 0.9606422468601971}, {0.39580831725549964`, 0.9303773669710792}}], {{ LineBox[{{-4.4798327532555025`, 1.1928269750294846`}, {-4.620932876945867, 1.1928269750294846`}}], LineBox[{ Offset[{0, 1.5}, {-4.4798327532555025`, 1.1928269750294846`}], Offset[{0, -1.5}, {-4.4798327532555025`, 1.1928269750294846`}]}], LineBox[{ Offset[{0, 1.5}, {-4.620932876945867, 1.1928269750294846`}], Offset[{0, -1.5}, {-4.620932876945867, 1.1928269750294846`}]}], LineBox[{{-4.550382815100685, 1.2806192750630456`}, {-4.550382815100685, 1.1050346749959237`}}], LineBox[{ Offset[{1.5, 0}, {-4.550382815100685, 1.2806192750630456`}], Offset[{-1.5, 0}, {-4.550382815100685, 1.2806192750630456`}]}], LineBox[{ Offset[{1.5, 0}, {-4.550382815100685, 1.1050346749959237`}], Offset[{-1.5, 0}, {-4.550382815100685, 1.1050346749959237`}]}]}, { LineBox[{{-3.6599893145012032`, 1.143485032687241}, {-3.691408048794564, 1.143485032687241}}], LineBox[{ Offset[{0, 1.5}, {-3.6599893145012032`, 1.143485032687241}], Offset[{0, -1.5}, {-3.6599893145012032`, 1.143485032687241}]}], LineBox[{ Offset[{0, 1.5}, {-3.691408048794564, 1.143485032687241}], Offset[{0, -1.5}, {-3.691408048794564, 1.143485032687241}]}], LineBox[{{-3.6756986816478836`, 1.173061404403671}, {-3.6756986816478836`, 1.113908660970811}}], LineBox[{ Offset[{1.5, 0}, {-3.6756986816478836`, 1.173061404403671}], Offset[{-1.5, 0}, {-3.6756986816478836`, 1.173061404403671}]}], LineBox[{ Offset[{1.5, 0}, {-3.6756986816478836`, 1.113908660970811}], Offset[{-1.5, 0}, {-3.6756986816478836`, 1.113908660970811}]}]}, { LineBox[{{-2.582020014957418, 1.0116735112201727`}, {-2.633875622990596, 1.0116735112201727`}}], LineBox[{ Offset[{0, 1.5}, {-2.582020014957418, 1.0116735112201727`}], Offset[{0, -1.5}, {-2.582020014957418, 1.0116735112201727`}]}], LineBox[{ Offset[{0, 1.5}, {-2.633875622990596, 1.0116735112201727`}], Offset[{0, -1.5}, {-2.633875622990596, 1.0116735112201727`}]}], LineBox[{{-2.607947818974007, 1.0451473743493271`}, {-2.607947818974007, 0.9781996480910182}}], LineBox[{ Offset[{1.5, 0}, {-2.607947818974007, 1.0451473743493271`}], Offset[{-1.5, 0}, {-2.607947818974007, 1.0451473743493271`}]}], LineBox[{ Offset[{1.5, 0}, {-2.607947818974007, 0.9781996480910182}], Offset[{-1.5, 0}, {-2.607947818974007, 0.9781996480910182}]}]}, { LineBox[{{-1.7751322561869574`, 0.9857057552905732}, {-1.8142243571803396`, 0.9857057552905732}}], LineBox[{ Offset[{0, 1.5}, {-1.7751322561869574`, 0.9857057552905732}], Offset[{0, -1.5}, {-1.7751322561869574`, 0.9857057552905732}]}], LineBox[{ Offset[{0, 1.5}, {-1.8142243571803396`, 0.9857057552905732}], Offset[{0, -1.5}, {-1.8142243571803396`, 0.9857057552905732}]}], LineBox[{{-1.7946783066836485`, 1.0136635649435992`}, {-1.7946783066836485`, 0.9577479456375473}}], LineBox[{ Offset[{1.5, 0}, {-1.7946783066836485`, 1.0136635649435992`}], Offset[{-1.5, 0}, {-1.7946783066836485`, 1.0136635649435992`}]}], LineBox[{ Offset[{1.5, 0}, {-1.7946783066836485`, 0.9577479456375473}], Offset[{-1.5, 0}, {-1.7946783066836485`, 0.9577479456375473}]}]}, { LineBox[{{-1.1288205574473664`, 0.9898243535587996}, {-1.16307164258969, 0.9898243535587996}}], LineBox[{ Offset[{0, 1.5}, {-1.1288205574473664`, 0.9898243535587996}], Offset[{0, -1.5}, {-1.1288205574473664`, 0.9898243535587996}]}], LineBox[{ Offset[{0, 1.5}, {-1.16307164258969, 0.9898243535587996}], Offset[{0, -1.5}, {-1.16307164258969, 0.9898243535587996}]}], LineBox[{{-1.1459461000185283`, 1.01631400732715}, {-1.1459461000185283`, 0.9633346997904494}}], LineBox[{ Offset[{1.5, 0}, {-1.1459461000185283`, 1.01631400732715}], Offset[{-1.5, 0}, {-1.1459461000185283`, 1.01631400732715}]}], LineBox[{ Offset[{1.5, 0}, {-1.1459461000185283`, 0.9633346997904494}], Offset[{-1.5, 0}, {-1.1459461000185283`, 0.9633346997904494}]}]}, { LineBox[{{-0.6266682743500658, 0.9705036801250221}, {-0.6592484532215042, 0.9705036801250221}}], LineBox[{ Offset[{0, 1.5}, {-0.6266682743500658, 0.9705036801250221}], Offset[{0, -1.5}, {-0.6266682743500658, 0.9705036801250221}]}], LineBox[{ Offset[{0, 1.5}, {-0.6592484532215042, 0.9705036801250221}], Offset[{0, -1.5}, {-0.6592484532215042, 0.9705036801250221}]}], LineBox[{{-0.642958363785785, 0.9959754136306188}, {-0.642958363785785, 0.9450319466194254}}], LineBox[{ Offset[{1.5, 0}, {-0.642958363785785, 0.9959754136306188}], Offset[{-1.5, 0}, {-0.642958363785785, 0.9959754136306188}]}], LineBox[{ Offset[{1.5, 0}, {-0.642958363785785, 0.9450319466194254}], Offset[{-1.5, 0}, {-0.642958363785785, 0.9450319466194254}]}]}, { LineBox[{{-0.1619439282491019, 0.9403225454179439}, {-0.1921177384000671, 0.9403225454179439}}], LineBox[{ Offset[{0, 1.5}, {-0.1619439282491019, 0.9403225454179439}], Offset[{0, -1.5}, {-0.1619439282491019, 0.9403225454179439}]}], LineBox[{ Offset[{0, 1.5}, {-0.1921177384000671, 0.9403225454179439}], Offset[{0, -1.5}, {-0.1921177384000671, 0.9403225454179439}]}], LineBox[{{-0.1770308333245845, 0.9643236048458564}, {-0.1770308333245845, 0.9163214859900314}}], LineBox[{ Offset[{1.5, 0}, {-0.1770308333245845, 0.9643236048458564}], Offset[{-1.5, 0}, {-0.1770308333245845, 0.9643236048458564}]}], LineBox[{ Offset[{1.5, 0}, {-0.1770308333245845, 0.9163214859900314}], Offset[{-1.5, 0}, {-0.1770308333245845, 0.9163214859900314}]}]}, { LineBox[{{0.12082696307278623`, 0.9606422468601971}, { 0.026620123045464163`, 0.9606422468601971}}], LineBox[{ Offset[{0, 1.5}, {0.12082696307278623`, 0.9606422468601971}], Offset[{0, -1.5}, {0.12082696307278623`, 0.9606422468601971}]}], LineBox[{ Offset[{0, 1.5}, {0.026620123045464163`, 0.9606422468601971}], Offset[{0, -1.5}, {0.026620123045464163`, 0.9606422468601971}]}], LineBox[{{0.0737235430591252, 1.0102545595855599`}, { 0.0737235430591252, 0.9110299341348342}}], LineBox[{ Offset[{1.5, 0}, {0.0737235430591252, 1.0102545595855599`}], Offset[{-1.5, 0}, {0.0737235430591252, 1.0102545595855599`}]}], LineBox[{ Offset[{1.5, 0}, {0.0737235430591252, 0.9110299341348342}], Offset[{-1.5, 0}, {0.0737235430591252, 0.9110299341348342}]}]}, { LineBox[{{0.41822706695792206`, 0.9303773669710792}, { 0.37338956755307723`, 0.9303773669710792}}], LineBox[{ Offset[{0, 1.5}, {0.41822706695792206`, 0.9303773669710792}], Offset[{0, -1.5}, {0.41822706695792206`, 0.9303773669710792}]}], LineBox[{ Offset[{0, 1.5}, {0.37338956755307723`, 0.9303773669710792}], Offset[{0, -1.5}, {0.37338956755307723`, 0.9303773669710792}]}], LineBox[{{0.39580831725549964`, 0.9589800191193352}, { 0.39580831725549964`, 0.9017747148228232}}], LineBox[{ Offset[{1.5, 0}, {0.39580831725549964`, 0.9589800191193352}], Offset[{-1.5, 0}, {0.39580831725549964`, 0.9589800191193352}]}], LineBox[{ Offset[{1.5, 0}, {0.39580831725549964`, 0.9017747148228232}], Offset[{-1.5, 0}, {0.39580831725549964`, 0.9017747148228232}]}]}}}, {}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["\"ln R\"", TraditionalForm], FormBox[ "\"\\!\\(\\*FractionBox[\\(v\\), SubscriptBox[\\(v\\), \\(lam\\)]]\\)\"", TraditionalForm]}, AxesOrigin->{0, 0.9}, Epilog->{ Dashing[{Small, Small}], GrayLevel[0.5], LineBox[{{-10, 1}, {10, 1}}]}, ImageSize->Full, Method->{}, PlotRange->{{-3, 1}, {0.9, 1.1}}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.566486919412174*^9, {3.56648697798895*^9, 3.566487000157679*^9}, { 3.5664870571309347`*^9, 3.566487060870741*^9}, 3.566488629591257*^9}] }, Open ]], Cell["Genauer als", "Text", CellChangeTimes->{{3.566482748132802*^9, 3.5664827508920794`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["Reynolds", "7.144"], "\[PlusMinus]", SubscriptBox["\[CapitalDelta]Reynolds", "7.144"]}], "//", RowBox[{ RowBox[{"NumberForm", "[", RowBox[{"#", ",", "2"}], "]"}], "&"}]}]], "Input", CellChangeTimes->{{3.5664827527910213`*^9, 3.566482778068438*^9}}], Cell[BoxData[ TagBox[ RowBox[{ InterpretationBox["\<\"0.84\"\>", 0.8377539533851993, AutoDelete->True], "\[PlusMinus]", InterpretationBox["\<\"0.013\"\>", 0.012639114371332787`, AutoDelete->True]}], NumberForm[#, 2]& ]], "Output", CellChangeTimes->{{3.566482764143708*^9, 3.566482778434112*^9}, 3.5664886296097097`*^9}] }, Open ]], Cell["\<\ (in nicht-logarithmischer Skala) k\[ODoubleDot]nnen wir die Position des \ Knicks wohl nicht bestimmen.\ \>", "Text", CellChangeTimes->{{3.566482786402156*^9, 3.566482794001601*^9}, { 3.566487081031054*^9, 3.566487085957399*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Kapillarviskosimeter", "Section", CellChangeTimes->{{3.5647430229819455`*^9, 3.56474303301396*^9}, 3.566473788030127*^9}], Cell["L\[ADoubleDot]nge des Kapillarrohrs:", "Text", CellChangeTimes->{{3.566473892760796*^9, 3.5664738961741247`*^9}, 3.56648398897825*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{"L", ",", "\[CapitalDelta]L"}], "}"}], "=", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"100", ",", ".5"}], "}"}], ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.5647450184497585`*^9, 3.564745027361771*^9}, { 3.566483870422007*^9, 3.566483877027575*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"100"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )], ",", TemplateBox[{"0.5`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.5647450284617724`*^9, 3.566473967747508*^9, 3.566474715247184*^9, 3.5664838784347677`*^9, 3.5664886296407547`*^9}] }, Open ]], Cell["Radius des Kapillarrohrs:", "Text", CellChangeTimes->{{3.5664739047835484`*^9, 3.566473907477769*^9}, 3.566483990498226*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{"R", ",", "\[CapitalDelta]R"}], "}"}], "=", RowBox[{".5", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"1.5", ",", ".01"}], "}"}], ",", "\"\\""}], "]"}]}]}]], "Input", CellChangeTimes->{{3.564745054185809*^9, 3.5647450665878263`*^9}, { 3.5664838824505987`*^9, 3.566483889690627*^9}, {3.5664860123103313`*^9, 3.566486012581892*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"0.75`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )], ",", TemplateBox[{"0.005`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.5647450675178275`*^9, 3.566473967848651*^9, 3.566474715345212*^9, 3.566483890619746*^9, 3.56648601371728*^9, 3.566488629679*^9}] }, Open ]], Cell["Temperatur:", "Text", CellChangeTimes->{{3.566473910461825*^9, 3.566473911557126*^9}, 3.566483916447137*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["T", "M"], ",", SubscriptBox["\[CapitalDelta]T", "M"]}], "}"}], "=", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"23.5", ",", ".5"}], "}"}], ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.5647443006867456`*^9, 3.564744323300778*^9}, 3.566473797431534*^9, {3.56648389329062*^9, 3.566483911513908*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"23.5`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"\[Degree]C\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: degrees Celsius"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Celsius\""}], "]"}]& )], ",", TemplateBox[{"0.5`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"\[Degree]C\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: degrees Celsius"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Celsius\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.566483912069569*^9, 3.566488629710722*^9}] }, Open ]], Cell["\<\ Daraus folgt die Dichte der Fl\[UDoubleDot]ssigkeit:\ \>", "Text", CellChangeTimes->{{3.56647517082661*^9, 3.566475177097713*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["\[Rho]", RowBox[{"fl", ",", "M"}]], ",", SubscriptBox["\[CapitalDelta]\[Rho]", RowBox[{"fl", ",", "M"}]]}], "}"}], "=", RowBox[{"{", RowBox[{ SubscriptBox["\[Rho]", RowBox[{"fl", ",", "9"}]], ",", SubscriptBox["\[CapitalDelta]\[Rho]", RowBox[{"fl", ",", "9"}]]}], "}"}]}]], "Input", CellChangeTimes->{{3.5664751628606157`*^9, 3.566475168004159*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"1.146`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", SuperscriptBox["\"cm\"", "3"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: grams per centimeter cubed"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Grams\"", SuperscriptBox["\"Centimeters\"", "3"]]}], "]"}]& )], ",", TemplateBox[{"0.0005`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", SuperscriptBox["\"cm\"", "3"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: grams per centimeter cubed"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Grams\"", SuperscriptBox["\"Centimeters\"", "3"]]}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.566475184273093*^9, 3.566488629835884*^9}] }, Open ]], Cell["\<\ H\[ODoubleDot]he der Fl\[UDoubleDot]ssigkeitss\[ADoubleDot]ule zu Beginn der \ Messung:\ \>", "Text", CellChangeTimes->{{3.566473973483748*^9, 3.566473980864688*^9}, 3.56648398471742*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["h", "A"], ",", SubscriptBox["\[CapitalDelta]h", "A"]}], "}"}], "=", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"547", ",", "1"}], "}"}], ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.56474317503716*^9, 3.5647431945411873`*^9}, { 3.566483921104636*^9, 3.566483930672078*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"547"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )], ",", TemplateBox[{"1"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{{3.56647396061838*^9, 3.5664739680486803`*^9}, 3.566474715545648*^9, 3.5664839312512283`*^9, 3.566488629868226*^9}] }, Open ]], Cell["\<\ H\[ODoubleDot]he der Fl\[UDoubleDot]ssigkeitss\[ADoubleDot]ule am Ende der \ Messung:\ \>", "Text", CellChangeTimes->{{3.566473984032639*^9, 3.566473990040111*^9}, 3.56648405349669*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["h", "E"], ",", SubscriptBox["\[CapitalDelta]h", "E"]}], "}"}], "=", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"540", ",", "1"}], "}"}], ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.564744210393619*^9, 3.5647442375276575`*^9}, 3.566473823284843*^9, {3.566483934599907*^9, 3.566483948774873*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"540"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )], ",", TemplateBox[{"1"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.5647442404486613`*^9, 3.566473968148491*^9, 3.566474715645192*^9, 3.56648394929956*^9, 3.566488629900803*^9}] }, Open ]], Cell["\<\ Daraus folgt die mittlere H\[ODoubleDot]he:\ \>", "Text", CellChangeTimes->{{3.56648405634995*^9, 3.566484060637635*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ OverscriptBox["h", "_"], ",", OverscriptBox["\[CapitalDelta]h", "_"]}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{ SubscriptBox["h", "A"], "+", SubscriptBox["h", "E"]}], "2"], ",", SqrtBox[ RowBox[{ SuperscriptBox[ SubscriptBox["\[CapitalDelta]h", "A"], "2"], "+", SuperscriptBox[ SubscriptBox["\[CapitalDelta]h", "E"], "2"]}]]}], "}"}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.566484062254984*^9, 3.566484152196567*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"543.5`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )], ",", TemplateBox[{"1.4142135623730951`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{{3.566484132942664*^9, 3.566484152597624*^9}, 3.566488629973777*^9}] }, Open ]], Cell["\<\ Nach Pascal ist die Druckdifferenz:\ \>", "Text", CellChangeTimes->{{3.566484162224415*^9, 3.566484172238206*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["p", "diff"], "=", RowBox[{ RowBox[{ SubscriptBox["\[Rho]", RowBox[{"fl", ",", "M"}]], "*", "g", "*", OverscriptBox["h", "_"]}], "//", RowBox[{ RowBox[{"UnitConvert", "[", RowBox[{"#", ",", "\"\\""}], "]"}], "&"}]}]}]], "Input", CellChangeTimes->{{3.566484174031266*^9, 3.566484218068544*^9}, { 3.566484279857628*^9, 3.56648429016646*^9}, 3.566484815310315*^9}], Cell[BoxData[ TemplateBox[{"6108.08175915`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Pa\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: pascals"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Pascals\""}], "]"}]& )]], "Output", CellChangeTimes->{{3.5664842084007893`*^9, 3.566484218781323*^9}, 3.5664842907549477`*^9, 3.566484816086687*^9, 3.566488630284501*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[CapitalDelta]p", "diff"], "=", RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[CapitalDelta]\[Rho]", RowBox[{"fl", ",", "M"}]], "*", "g", "*", OverscriptBox["h", "_"]}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[Rho]", RowBox[{"fl", ",", "M"}]], "*", "g", "*", OverscriptBox["\[CapitalDelta]h", "_"]}], ")"}], "2"]}]], "//", RowBox[{ RowBox[{"UnitConvert", "[", RowBox[{"#", ",", "\"\\""}], "]"}], "&"}]}]}]], "Input", CellChangeTimes->{{3.566484222224125*^9, 3.566484273665823*^9}, 3.566484820814848*^9}], Cell[BoxData[ TemplateBox[{"16.115402731418964`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Pa\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: pascals"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Pascals\""}], "]"}]& )]], "Output", CellChangeTimes->{{3.5664842515752287`*^9, 3.566484274817527*^9}, 3.566484822015676*^9, 3.5664886310184917`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"times", "=", RowBox[{"{", RowBox[{"5", ",", "10", ",", "15", ",", "20", ",", "25"}], "}"}]}], ";", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ SubscriptBox["V", "i"], "=", RowBox[{"Quantity", "[", RowBox[{"i", ",", SuperscriptBox["\"\\"", "3"]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "times"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.56648435139427*^9, 3.5664844020001583`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"5"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ SuperscriptBox["\"cm\"", "3"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters cubed"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", SuperscriptBox["\"Centimeters\"", "3"]}], "]"}]& )], ",", TemplateBox[{"10"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ SuperscriptBox["\"cm\"", "3"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters cubed"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", SuperscriptBox["\"Centimeters\"", "3"]}], "]"}]& )], ",", TemplateBox[{"15"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ SuperscriptBox["\"cm\"", "3"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters cubed"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", SuperscriptBox["\"Centimeters\"", "3"]}], "]"}]& )], ",", TemplateBox[{"20"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ SuperscriptBox["\"cm\"", "3"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters cubed"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", SuperscriptBox["\"Centimeters\"", "3"]}], "]"}]& )], ",", TemplateBox[{"25"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ SuperscriptBox["\"cm\"", "3"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters cubed"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", SuperscriptBox["\"Centimeters\"", "3"]}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.566484403347459*^9, 3.566488631258608*^9}] }, Open ]], Cell["\<\ Zeit, nach der 5 ml ausgeflossen sind:\ \>", "Text", CellChangeTimes->{{3.566473997304008*^9, 3.566474004695053*^9}, { 3.566474036573052*^9, 3.566474039556757*^9}, 3.566483994217826*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["t", "5"], ",", SubscriptBox["\[Delta]t", "5"]}], "}"}], "=", " ", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"129.64", ",", ".01"}], "}"}], ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.56474321767522*^9, 3.5647432221662264`*^9}, { 3.5647432852163153`*^9, 3.564743316400359*^9}, {3.566483952814995*^9, 3.5664839650137587`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"129.64`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )], ",", TemplateBox[{"0.01`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.5647433195013633`*^9, 3.5664739682489777`*^9, 3.5664747157476254`*^9, 3.5664839659900827`*^9, 3.566488631289771*^9}] }, Open ]], Cell["\<\ Zeit, nach der 10 ml ausgeflossen sind:\ \>", "Text", CellChangeTimes->{{3.5664740495819473`*^9, 3.566474051860409*^9}, 3.566483995577998*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["t", "10"], ",", SubscriptBox["\[Delta]t", "10"]}], "}"}], "=", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"246.42", ",", ".01"}], "}"}], ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.564743374520441*^9, 3.564743387572459*^9}, { 3.5647434457925415`*^9, 3.564743450042547*^9}, {3.566483969589693*^9, 3.566483979484975*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"246.42`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )], ",", TemplateBox[{"0.01`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.5647434564935565`*^9, 3.566473968349983*^9, 3.566474715847975*^9, 3.566483979999386*^9, 3.566488631329674*^9}] }, Open ]], Cell["\<\ Zeit, nach der 15 ml ausgeflossen sind:\ \>", "Text", CellChangeTimes->{{3.566474054661599*^9, 3.5664740562132883`*^9}, 3.5664839978016357`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["t", "15"], ",", SubscriptBox["\[Delta]t", "15"]}], "}"}], "=", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"400.74", ",", ".01"}], "}"}], ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.56474340927549*^9, 3.5647434095554905`*^9}, { 3.564743570653717*^9, 3.564743576425726*^9}, {3.566484000373187*^9, 3.566484008706848*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"400.74`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )], ",", TemplateBox[{"0.01`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.5647435782957277`*^9, 3.566473968448351*^9, 3.566474715942761*^9, 3.5664840092243*^9, 3.5664886313650713`*^9}] }, Open ]], Cell["\<\ Zeit, nach der 20 ml ausgeflossen sind:\ \>", "Text", CellChangeTimes->{{3.5664740582700253`*^9, 3.566474060027543*^9}, 3.56648403867375*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["t", "20"], ",", SubscriptBox["\[Delta]t", "20"]}], "}"}], "=", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"538.96", ",", ".01"}], "}"}], ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.5647434137264957`*^9, 3.5647434138364964`*^9}, { 3.564743593407749*^9, 3.564743596668754*^9}, {3.564743723850933*^9, 3.564743726640937*^9}, {3.566484011530789*^9, 3.566484020010291*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"538.96`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )], ",", TemplateBox[{"0.01`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.5647437283209395`*^9, 3.566473968635253*^9, 3.5664747160483522`*^9, 3.56648402090853*^9, 3.566488631429459*^9}] }, Open ]], Cell["\<\ Zeit, nach der 25 ml ausgeflossen sind:\ \>", "Text", CellChangeTimes->{{3.566474062716848*^9, 3.566474063780159*^9}, 3.5664840401190166`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["t", "25"], ",", SubscriptBox["\[Delta]t", "25"]}], "}"}], "=", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"676.11", ",", ".01"}], "}"}], ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.5647434185575027`*^9, 3.564743419197504*^9}, { 3.564743854412117*^9, 3.5647438567821207`*^9}, {3.5664840230579767`*^9, 3.56648403057754*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"676.11`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )], ",", TemplateBox[{"0.01`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.5647438577931223`*^9, 3.566473968736392*^9, 3.566474716241884*^9, 3.566484031342297*^9, 3.5664886314648952`*^9}] }, Open ]], Cell["\<\ Wir berechnen Mittelwert und Fehler des Volumenstroms:\ \>", "Text", CellChangeTimes->{{3.566484553933235*^9, 3.56648456038068*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{"Vdot", ",", "\[CapitalDelta]Vdot"}], "}"}], "=", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"Table", "[", RowBox[{ FractionBox[ SubscriptBox["V", "i"], SubscriptBox["t", "i"]], ",", RowBox[{"{", RowBox[{"i", ",", "times"}], "}"}]}], "]"}], "]"}], "&"}], ",", RowBox[{"{", RowBox[{"Mean", ",", "StandardDeviation"}], "}"}]}], "]"}], "//", "UnitConvert"}]}]], "Input", CellChangeTimes->{{3.566484414376017*^9, 3.566484528010141*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"3.81329909641241`*^-8"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ SuperscriptBox["\"m\"", "3"], "\[NegativeMediumSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters cubed per second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox[ SuperscriptBox["\"Meters\"", "3"], "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"1.5052970132958568`*^-9"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ SuperscriptBox["\"m\"", "3"], "\[NegativeMediumSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters cubed per second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox[ SuperscriptBox["\"Meters\"", "3"], "\"Seconds\""]}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.566484541837605*^9, 3.566488632569048*^9}] }, Open ]], Cell["\<\ Nun k\[ODoubleDot]nnen wir das Gesetz von Hagen-Poiseuille anwenden:\ \>", "Text", CellChangeTimes->{{3.5664845674530087`*^9, 3.566484578971369*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[Eta]", "hp"], "=", RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", SubscriptBox["p", "diff"], "*", SuperscriptBox["R", "4"]}], RowBox[{"8", "*", "Vdot", "*", "L"}]], "//", RowBox[{ RowBox[{"UnitConvert", "[", RowBox[{"#", ",", RowBox[{"\"\\"", "*", "\"\\""}]}], "]"}], "&"}]}]}]], "Input", CellChangeTimes->{{3.566484586885747*^9, 3.5664846395212193`*^9}, { 3.566484683980369*^9, 3.5664846912773857`*^9}, {3.56648474006227*^9, 3.566484777399905*^9}, {3.5664848999530067`*^9, 3.566484936533757*^9}, { 3.566484973603813*^9, 3.5664849852587347`*^9}}], Cell[BoxData[ TemplateBox[{"0.19902558557052588`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"s\"", "\[ThinSpace]", "\"Pa\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: second pascals"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", RowBox[{"\"Pascals\"", " ", "\"Seconds\""}]}], "]"}]& )]], "Output", CellChangeTimes->{ 3.566484692215456*^9, {3.5664847408852053`*^9, 3.566484778252034*^9}, 3.5664848272267733`*^9, {3.566484910818222*^9, 3.566484937796443*^9}, { 3.566484980094582*^9, 3.566484986722138*^9}, 3.566486017410739*^9, 3.566488633219898*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[CapitalDelta]\[Eta]", "hp"], "=", SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"\[Pi]", "*", SubscriptBox["\[CapitalDelta]p", "diff"], "*", SuperscriptBox["R", "4"]}], RowBox[{"8", "*", "Vdot", "*", "L"}]], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"\[Pi]", "*", SubscriptBox["p", "diff"], "*", "4", SuperscriptBox["R", "3"], "\[CapitalDelta]R"}], RowBox[{"8", "*", "Vdot", "*", "L"}]], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", SubscriptBox["p", "diff"], "*", SuperscriptBox["R", "4"]}], RowBox[{"8", "*", SuperscriptBox["Vdot", "2"], "*", "L"}]], "\[CapitalDelta]Vdot"}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"\[Pi]", "*", SubscriptBox["p", "diff"], "*", SuperscriptBox["R", "4"]}], RowBox[{"8", "*", "Vdot", "*", SuperscriptBox["L", "2"]}]], "\[CapitalDelta]L"}], ")"}], "2"]}]]}]], "Input", CellChangeTimes->{{3.566485002370652*^9, 3.5664850568407907`*^9}, { 3.566488231834249*^9, 3.566488269445231*^9}, {3.566488330589725*^9, 3.566488336905675*^9}}], Cell[BoxData[ TemplateBox[{"0.009547715881840056`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"s\"", "\[ThinSpace]", "\"Pa\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: second pascals"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", RowBox[{"\"Pascals\"", " ", "\"Seconds\""}]}], "]"}]& )]], "Output", CellChangeTimes->{ 3.566485061217268*^9, 3.566486022998534*^9, {3.566488233596403*^9, 3.566488273480403*^9}, 3.566488334181261*^9, 3.566488636603064*^9}] }, Open ]], Cell[TextData[{ "Also ergibt sich f\[UDoubleDot]r ", Cell[BoxData[ FormBox["\[Eta]", TraditionalForm]], FormatType->"TraditionalForm"], ":" }], "Text", CellChangeTimes->{{3.566487212118471*^9, 3.56648722151853*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"NumberForm", "[", RowBox[{ SubscriptBox["\[Eta]", "hp"], ",", "2"}], "]"}], "\[PlusMinus]", RowBox[{"NumberForm", "[", RowBox[{ SubscriptBox["\[CapitalDelta]\[Eta]", "hp"], ",", "1"}], "]"}]}]], "Input", CellChangeTimes->{{3.566487225825379*^9, 3.566487249675858*^9}}], Cell[BoxData[ RowBox[{ TagBox[ TemplateBox[{ InterpretationBox["\"0.2\"", 0.19902558557052588`, AutoDelete -> True]}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"s\"", "\[ThinSpace]", "\"Pa\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: second pascals"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", RowBox[{"\"Pascals\"", " ", "\"Seconds\""}]}], "]"}]& )], NumberForm[#, 2]& ], "\[PlusMinus]", TagBox[ TemplateBox[{ InterpretationBox["\"0.01\"", 0.009547715881840056, AutoDelete -> True]}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"s\"", "\[ThinSpace]", "\"Pa\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: second pascals"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", RowBox[{"\"Pascals\"", " ", "\"Seconds\""}]}], "]"}]& )], NumberForm[#, 1]& ]}]], "Output", CellChangeTimes->{3.566487250554179*^9, 3.566488636796712*^9}] }, Open ]], Cell[CellGroupData[{ Cell["Reynoldszahl", "Subsection", CellChangeTimes->{{3.5664871911280727`*^9, 3.566487193740581*^9}}], Cell["\<\ Hierf\[UDoubleDot]r m\[UDoubleDot]ssen wir noch die \[UDoubleDot]ber den \ Querschnitt gemittelte Geschwindigkeit errechnen:\ \>", "Text", CellChangeTimes->{{3.566487194372961*^9, 3.5664872046573*^9}, 3.566487256865807*^9, {3.566487387713022*^9, 3.566487403127777*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ OverscriptBox["v", "_"], "=", RowBox[{ RowBox[{ FractionBox["1", "R"], RowBox[{ SubsuperscriptBox["\[Integral]", "0", "R"], RowBox[{ FractionBox[ SubscriptBox["p", "diff"], RowBox[{"4", SubscriptBox["\[Eta]", "hp"], "L"}]], RowBox[{"(", RowBox[{ SuperscriptBox["R", "2"], "-", SuperscriptBox["r", "2"]}], ")"}], RowBox[{"\[DifferentialD]", "r"}]}]}]}], "//", "UnitConvert"}]}]], "Input", CellChangeTimes->{{3.5664874153706923`*^9, 3.566487469916872*^9}}], Cell[BoxData[ TemplateBox[{"0.028771811587882345`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ "\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters per second"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Meters\"", "\"Seconds\""]}], "]"}]& )]], "Output", CellChangeTimes->{{3.566487465481304*^9, 3.566487471359723*^9}, 3.5664886383925247`*^9}] }, Open ]], Cell[TextData[{ "Dann ergibt sich mit der charakteristischen L\[ADoubleDot]nge ", Cell[BoxData[ FormBox[ RowBox[{"2", "R"}], TraditionalForm]], FormatType->"TraditionalForm"] }], "Text", CellChangeTimes->{{3.566487513368781*^9, 3.566487532310281*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["Reynolds", "hp"], "=", FractionBox[ RowBox[{"2", SubscriptBox["\[Rho]", RowBox[{"fl", ",", "M"}]], OverscriptBox["v", "_"], " ", "R"}], SubscriptBox["\[Eta]", "hp"]]}]], "Input", CellChangeTimes->{{3.566487505946616*^9, 3.566487570406671*^9}}], Cell[BoxData["0.2485044522179976`"], "Output", CellChangeTimes->{3.5664875728370333`*^9, 3.5664886395610037`*^9}] }, Open ]], Cell[TextData[{ "mit dem Fehler (wobei wir den Fehler auf ", Cell[BoxData[ FormBox[ OverscriptBox["v", "_"], TraditionalForm]], FormatType->"TraditionalForm"], " vernachl\[ADoubleDot]ssigen):" }], "Text", CellChangeTimes->{{3.566487590901408*^9, 3.5664876060826683`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[CapitalDelta]Reynolds", "hp"], "=", SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", SubscriptBox["\[CapitalDelta]\[Rho]", RowBox[{"fl", ",", "M"}]], OverscriptBox["v", "_"], " ", "R"}], SubscriptBox["\[Eta]", "hp"]], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"2", SubscriptBox["\[Rho]", RowBox[{"fl", ",", "M"}]], OverscriptBox["v", "_"], " ", "\[CapitalDelta]R"}], SubscriptBox["\[Eta]", "hp"]], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"2", SubscriptBox["\[Rho]", RowBox[{"fl", ",", "M"}]], OverscriptBox["v", "_"], " ", "R"}], SuperscriptBox[ SubscriptBox["\[Eta]", "hp"], "2"]], SubscriptBox["\[CapitalDelta]\[Eta]", "hp"]}], ")"}], "2"]}]]}]], "Input", CellChangeTimes->{{3.566487607293619*^9, 3.566487676433455*^9}}], Cell[BoxData["0.012036383746565876`"], "Output", CellChangeTimes->{3.5664876819130077`*^9, 3.566488643251436*^9}] }, Open ]], Cell["\<\ Wir stellen also fest, da\[SZ] es sich unm\[ODoubleDot]glich um eine \ turbulente Str\[ODoubleDot]mung gehandelt haben kann, wenn die kritische \ Reynoldszahl bei dieser Str\[ODoubleDot]mungsart erst bei ca. 2000 liegt.\ \>", "Text", CellChangeTimes->{{3.566487683967216*^9, 3.566487707618826*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Vergleich der gemessenen Viskosit\[ADoubleDot]ten\ \>", "Section", CellChangeTimes->{{3.566486046348023*^9, 3.566486051385562*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Grid", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Null", ",", RowBox[{"Text", "[", "\"\\"", "]"}], ",", RowBox[{"Text", "[", "\"\\"", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Text", "[", "\"\<\[Eta]\>\"", "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[Eta]", "fall"], "//", RowBox[{ RowBox[{"NumberForm", "[", RowBox[{"#", ",", "3"}], "]"}], "&"}]}], ")"}], "\[PlusMinus]", RowBox[{"(", RowBox[{ SubscriptBox["\[CapitalDelta]\[Eta]", "fall"], "//", RowBox[{ RowBox[{"NumberForm", "[", RowBox[{"#", ",", "1"}], "]"}], "&"}]}], ")"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[Eta]", "hp"], "//", RowBox[{ RowBox[{"NumberForm", "[", RowBox[{"#", ",", "2"}], "]"}], "&"}]}], ")"}], "\[PlusMinus]", RowBox[{"(", RowBox[{ SubscriptBox["\[CapitalDelta]\[Eta]", "hp"], "//", RowBox[{ RowBox[{"NumberForm", "[", RowBox[{"#", ",", "1"}], "]"}], "&"}]}], ")"}]}]}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Frame", "\[Rule]", "All"}]}], "]"}]], "Input", CellChangeTimes->{{3.56648619302771*^9, 3.566486374223611*^9}}], Cell[BoxData[ TagBox[GridBox[{ {"", InterpretationBox[Cell[BoxData[ FormBox["\<\"Fallviskosimeter\"\>", TextForm]], "InlineText"], Text["Fallviskosimeter"]], InterpretationBox[Cell[BoxData[ FormBox["\<\"Hagen-Poiseuille\"\>", TextForm]], "InlineText"], Text["Hagen-Poiseuille"]]}, { InterpretationBox[Cell[BoxData[ FormBox["\<\"\[Eta]\"\>", TextForm]], "InlineText"], Text["\[Eta]"]], RowBox[{ TagBox[ TemplateBox[{ InterpretationBox[ "\"0.222\"", 0.22201781720820388`, AutoDelete -> True]}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"s\"", "\[ThinSpace]", "\"Pa\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: second pascals"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", RowBox[{"\"Pascals\"", " ", "\"Seconds\""}]}], "]"}]& )], NumberForm[#, 3]& ], "\[PlusMinus]", TagBox[ TemplateBox[{ InterpretationBox[ "\"0.002\"", 0.0015098693859689643`, AutoDelete -> True]}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"s\"", "\[ThinSpace]", "\"Pa\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: second pascals"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", RowBox[{"\"Pascals\"", " ", "\"Seconds\""}]}], "]"}]& )], NumberForm[#, 1]& ]}], RowBox[{ TagBox[ TemplateBox[{ InterpretationBox[ "\"0.2\"", 0.19902558557052588`, AutoDelete -> True]}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"s\"", "\[ThinSpace]", "\"Pa\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: second pascals"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", RowBox[{"\"Pascals\"", " ", "\"Seconds\""}]}], "]"}]& )], NumberForm[#, 2]& ], "\[PlusMinus]", TagBox[ TemplateBox[{ InterpretationBox[ "\"0.01\"", 0.009547715881840056, AutoDelete -> True]}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"s\"", "\[ThinSpace]", "\"Pa\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: second pascals"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", RowBox[{"\"Pascals\"", " ", "\"Seconds\""}]}], "]"}]& )], NumberForm[#, 1]& ]}]} }, AutoDelete->False, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Output", CellChangeTimes->{ 3.566486268697639*^9, 3.566486300177597*^9, {3.5664863538014927`*^9, 3.566486375223695*^9}, 3.566488644054387*^9}] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{812, 801}, WindowMargins->{{292, Automatic}, {Automatic, 0}}, FrontEndVersion->"9.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (November 20, \ 2012)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[579, 22, 160, 2, 92, "Title"], Cell[742, 26, 187, 4, 28, "Input"], Cell[CellGroupData[{ Cell[954, 34, 106, 1, 80, "Section"], Cell[1063, 37, 116, 1, 30, "Text"], Cell[CellGroupData[{ Cell[1204, 42, 318, 7, 28, "Input"], Cell[1525, 51, 274, 6, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1836, 62, 763, 19, 28, "Input"], Cell[2602, 83, 3486, 86, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6125, 174, 740, 17, 46, "Input"], Cell[6868, 193, 3404, 85, 28, "Output"] }, Open ]], Cell[10287, 281, 117, 1, 30, "Text"], Cell[CellGroupData[{ Cell[10429, 286, 352, 9, 50, "Input"], Cell[10784, 297, 666, 15, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11487, 317, 669, 19, 50, "Input"], Cell[12159, 338, 662, 15, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12858, 358, 285, 7, 50, "Input"], Cell[13146, 367, 665, 15, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[13848, 387, 1231, 30, 84, "Input"], Cell[15082, 419, 5368, 133, 57, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[20487, 557, 106, 1, 44, "Subsection"], Cell[20596, 560, 363, 8, 58, "Text"], Cell[20962, 570, 118, 2, 30, "Text"], Cell[CellGroupData[{ Cell[21105, 576, 339, 7, 28, "Input"], Cell[21447, 585, 474, 11, 28, "Output"] }, Open ]], Cell[21936, 599, 122, 2, 30, "Text"], Cell[CellGroupData[{ Cell[22083, 605, 603, 13, 28, "Input"], Cell[22689, 620, 1924, 49, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[24650, 674, 761, 21, 50, "Input"], Cell[25414, 697, 1280, 32, 28, "Output"] }, Open ]], Cell[26709, 732, 129, 3, 30, "Text"], Cell[CellGroupData[{ Cell[26863, 739, 266, 6, 28, "Input"], Cell[27132, 747, 500, 11, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[27669, 763, 233, 5, 28, "Input"], Cell[27905, 770, 481, 11, 28, "Output"] }, Open ]], Cell[28401, 784, 136, 3, 30, "Text"], Cell[CellGroupData[{ Cell[28562, 791, 364, 9, 50, "Input"], Cell[28929, 802, 640, 15, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[29606, 822, 328, 8, 50, "Input"], Cell[29937, 832, 640, 15, 32, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[30626, 853, 106, 1, 44, "Subsection"], Cell[CellGroupData[{ Cell[30757, 858, 231, 5, 28, "Input"], Cell[30991, 865, 476, 11, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[31504, 881, 541, 12, 28, "Input"], Cell[32048, 895, 1918, 49, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[34003, 949, 757, 21, 50, "Input"], Cell[34763, 972, 1159, 30, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[35959, 1007, 445, 12, 28, "Input"], Cell[36407, 1021, 926, 22, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[37370, 1048, 467, 14, 35, "Input"], Cell[37840, 1064, 1287, 33, 35, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[39176, 1103, 104, 1, 44, "Subsection"], Cell[CellGroupData[{ Cell[39305, 1108, 284, 6, 28, "Input"], Cell[39592, 1116, 525, 12, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[40154, 1133, 496, 11, 28, "Input"], Cell[40653, 1146, 1921, 49, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[42611, 1200, 757, 21, 50, "Input"], Cell[43371, 1223, 1158, 30, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[44566, 1258, 438, 12, 28, "Input"], Cell[45007, 1272, 920, 22, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[45964, 1299, 469, 14, 35, "Input"], Cell[46436, 1315, 1285, 33, 35, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[47770, 1354, 106, 1, 44, "Subsection"], Cell[CellGroupData[{ Cell[47901, 1359, 238, 5, 28, "Input"], Cell[48142, 1366, 472, 11, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[48651, 1382, 452, 11, 28, "Input"], Cell[49106, 1395, 1921, 49, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[51064, 1449, 757, 21, 50, "Input"], Cell[51824, 1472, 1160, 30, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[53021, 1507, 218, 5, 28, "Input"], Cell[53242, 1514, 478, 11, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[53757, 1530, 193, 4, 28, "Input"], Cell[53953, 1536, 483, 11, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[54473, 1552, 313, 8, 50, "Input"], Cell[54789, 1562, 662, 15, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[55488, 1582, 326, 8, 50, "Input"], Cell[55817, 1592, 644, 15, 32, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[56510, 1613, 103, 1, 44, "Subsection"], Cell[CellGroupData[{ Cell[56638, 1618, 235, 5, 28, "Input"], Cell[56876, 1625, 472, 11, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[57385, 1641, 493, 11, 28, "Input"], Cell[57881, 1654, 1918, 49, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[59836, 1708, 808, 22, 50, "Input"], Cell[60647, 1732, 1160, 30, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[61844, 1767, 390, 11, 28, "Input"], Cell[62237, 1780, 926, 22, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[63200, 1807, 463, 14, 35, "Input"], Cell[63666, 1823, 1290, 33, 35, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[65005, 1862, 104, 1, 44, "Subsection"], Cell[CellGroupData[{ Cell[65134, 1867, 288, 6, 28, "Input"], Cell[65425, 1875, 470, 11, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[65932, 1891, 445, 11, 28, "Input"], Cell[66380, 1904, 1927, 49, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[68344, 1958, 787, 22, 50, "Input"], Cell[69134, 1982, 1159, 30, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[70330, 2017, 386, 11, 28, "Input"], Cell[70719, 2030, 928, 23, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[71684, 2058, 463, 14, 35, "Input"], Cell[72150, 2074, 1286, 33, 35, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[73485, 2113, 110, 1, 44, "Subsection"], Cell[CellGroupData[{ Cell[73620, 2118, 239, 5, 28, "Input"], Cell[73862, 2125, 470, 11, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[74369, 2141, 332, 8, 28, "Input"], Cell[74704, 2151, 1913, 49, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[76654, 2205, 812, 22, 50, "Input"], Cell[77469, 2229, 1157, 30, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[78663, 2264, 221, 5, 28, "Input"], Cell[78887, 2271, 480, 11, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[79404, 2287, 196, 4, 28, "Input"], Cell[79603, 2293, 479, 11, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[80119, 2309, 314, 8, 50, "Input"], Cell[80436, 2319, 643, 15, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[81116, 2339, 330, 8, 50, "Input"], Cell[81449, 2349, 615, 14, 32, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[82113, 2369, 108, 1, 44, "Subsection"], Cell[CellGroupData[{ Cell[82246, 2374, 231, 5, 28, "Input"], Cell[82480, 2381, 495, 11, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[83012, 2397, 380, 9, 28, "Input"], Cell[83395, 2408, 1916, 49, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[85348, 2462, 789, 22, 50, "Input"], Cell[86140, 2486, 1160, 30, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[87337, 2521, 398, 11, 28, "Input"], Cell[87738, 2534, 922, 22, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[88697, 2561, 472, 14, 35, "Input"], Cell[89172, 2577, 1257, 32, 35, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[90478, 2615, 103, 1, 44, "Subsection"], Cell[CellGroupData[{ Cell[90606, 2620, 233, 5, 28, "Input"], Cell[90842, 2627, 472, 11, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[91351, 2643, 329, 8, 28, "Input"], Cell[91683, 2653, 1913, 49, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[93633, 2707, 787, 22, 50, "Input"], Cell[94423, 2731, 1155, 30, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[95615, 2766, 389, 11, 28, "Input"], Cell[96007, 2779, 919, 22, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[96963, 2806, 463, 14, 35, "Input"], Cell[97429, 2822, 1256, 32, 35, "Output"] }, Open ]], Cell[98700, 2857, 125, 3, 30, "Text"], Cell[CellGroupData[{ Cell[98850, 2864, 342, 8, 28, "Input"], Cell[99195, 2874, 498, 11, 28, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[99742, 2891, 112, 1, 44, "Subsection"], Cell[99857, 2894, 933, 22, 81, "Text"], Cell[CellGroupData[{ Cell[100815, 2920, 1040, 30, 66, "Input"], Cell[101858, 2952, 306, 7, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[102201, 2964, 1123, 28, 68, "Input"], Cell[103327, 2994, 444, 8, 28, "Output"] }, Open ]], Cell[103786, 3005, 184, 4, 30, "Text"], Cell[CellGroupData[{ Cell[103995, 3013, 944, 27, 55, "Input"], Cell[104942, 3042, 13909, 316, 141, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[118888, 3363, 1479, 41, 132, "Input"], Cell[120370, 3406, 6620, 157, 77, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[127027, 3568, 2026, 57, 132, "Input"], Cell[129056, 3627, 6648, 158, 77, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[135741, 3790, 375, 11, 35, "Input"], Cell[136119, 3803, 4170, 111, 57, "Output"] }, Open ]], Cell[140304, 3917, 1312, 33, 65, "Input"], Cell[141619, 3952, 125, 3, 30, "Text"], Cell[CellGroupData[{ Cell[141769, 3959, 1126, 25, 100, "Input"], Cell[142898, 3986, 15346, 343, 407, "Output"] }, Open ]], Cell[158259, 4332, 642, 10, 68, "Text"], Cell[CellGroupData[{ Cell[158926, 4346, 1613, 42, 95, "Input"], Cell[160542, 4390, 1562, 36, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[162141, 4431, 513, 12, 28, "Input"], Cell[162657, 4445, 17576, 377, 439, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[180270, 4827, 277, 6, 28, "Input"], Cell[180550, 4835, 1077, 23, 63, "Output"] }, Open ]], Cell[181642, 4861, 171, 2, 30, "Text"], Cell[CellGroupData[{ Cell[181838, 4867, 581, 16, 53, "Input"], Cell[182422, 4885, 1600, 39, 35, "Output"] }, Open ]], Cell[184037, 4927, 322, 10, 42, "Text"], Cell[CellGroupData[{ Cell[184384, 4941, 698, 20, 49, "Input"], Cell[185085, 4963, 2060, 50, 57, "Output"] }, Open ]], Cell[187160, 5016, 156, 2, 31, "Text"], Cell[CellGroupData[{ Cell[187341, 5022, 330, 9, 31, "Input"], Cell[187674, 5033, 2426, 60, 57, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[190149, 5099, 117, 1, 44, "Subsection"], Cell[190269, 5102, 368, 10, 51, "Text"], Cell[190640, 5114, 208, 5, 28, "Input"], Cell[CellGroupData[{ Cell[190873, 5123, 907, 25, 114, "Input"], Cell[191783, 5150, 4882, 123, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[196702, 5278, 2882, 80, 225, "Input"], Cell[199587, 5360, 4797, 121, 46, "Output"] }, Open ]], Cell[204399, 5484, 186, 4, 30, "Text"], Cell[CellGroupData[{ Cell[204610, 5492, 555, 15, 111, "Input"], Cell[205168, 5509, 423, 9, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[205628, 5523, 1633, 49, 131, "Input"], Cell[207264, 5574, 410, 8, 46, "Output"] }, Open ]], Cell[207689, 5585, 452, 15, 39, "Text"], Cell[CellGroupData[{ Cell[208166, 5604, 350, 10, 50, "Input"], Cell[208519, 5616, 388, 8, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[208944, 5629, 805, 24, 70, "Input"], Cell[209752, 5655, 404, 8, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[210193, 5668, 296, 8, 31, "Input"], Cell[210492, 5678, 534, 12, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[211063, 5695, 396, 10, 53, "Input"], Cell[211462, 5707, 404, 8, 46, "Output"] }, Open ]], Cell[211881, 5718, 938, 26, 79, "Text"], Cell[CellGroupData[{ Cell[212844, 5748, 1658, 46, 139, "Input"], Cell[214505, 5796, 9145, 176, 464, "Output"] }, Open ]], Cell[223665, 5975, 95, 1, 30, "Text"], Cell[CellGroupData[{ Cell[223785, 5980, 316, 8, 31, "Input"], Cell[224104, 5990, 352, 11, 39, "Output"] }, Open ]], Cell[224471, 6004, 242, 5, 30, "Text"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[224762, 6015, 132, 2, 80, "Section"], Cell[224897, 6019, 145, 2, 30, "Text"], Cell[CellGroupData[{ Cell[225067, 6025, 363, 10, 28, "Input"], Cell[225433, 6037, 907, 22, 28, "Output"] }, Open ]], Cell[226355, 6062, 135, 2, 30, "Text"], Cell[CellGroupData[{ Cell[226515, 6068, 441, 12, 28, "Input"], Cell[226959, 6082, 928, 23, 28, "Output"] }, Open ]], Cell[227902, 6108, 119, 2, 30, "Text"], Cell[CellGroupData[{ Cell[228046, 6114, 430, 12, 28, "Input"], Cell[228479, 6128, 850, 21, 28, "Output"] }, Open ]], Cell[229344, 6152, 141, 3, 30, "Text"], Cell[CellGroupData[{ Cell[229510, 6159, 465, 14, 35, "Input"], Cell[229978, 6175, 1257, 32, 35, "Output"] }, Open ]], Cell[231250, 6210, 202, 5, 30, "Text"], Cell[CellGroupData[{ Cell[231477, 6219, 409, 12, 28, "Input"], Cell[231889, 6233, 904, 22, 28, "Output"] }, Open ]], Cell[232808, 6258, 200, 5, 30, "Text"], Cell[CellGroupData[{ Cell[233033, 6267, 433, 12, 28, "Input"], Cell[233469, 6281, 899, 22, 28, "Output"] }, Open ]], Cell[234383, 6306, 132, 3, 30, "Text"], Cell[CellGroupData[{ Cell[234540, 6313, 595, 20, 48, "Input"], Cell[235138, 6335, 878, 22, 28, "Output"] }, Open ]], Cell[236031, 6360, 125, 3, 30, "Text"], Cell[CellGroupData[{ Cell[236181, 6367, 449, 12, 35, "Input"], Cell[236633, 6381, 500, 11, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[237170, 6397, 742, 22, 57, "Input"], Cell[237915, 6421, 483, 11, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[238435, 6437, 507, 15, 52, "Input"], Cell[238945, 6454, 2409, 69, 35, "Output"] }, Open ]], Cell[241369, 6526, 200, 4, 30, "Text"], Cell[CellGroupData[{ Cell[241594, 6534, 461, 13, 28, "Input"], Cell[242058, 6549, 896, 22, 28, "Output"] }, Open ]], Cell[242969, 6574, 157, 4, 30, "Text"], Cell[CellGroupData[{ Cell[243151, 6582, 455, 13, 28, "Input"], Cell[243609, 6597, 890, 22, 28, "Output"] }, Open ]], Cell[244514, 6622, 159, 4, 30, "Text"], Cell[CellGroupData[{ Cell[244698, 6630, 454, 13, 28, "Input"], Cell[245155, 6645, 890, 22, 28, "Output"] }, Open ]], Cell[246060, 6670, 156, 4, 30, "Text"], Cell[CellGroupData[{ Cell[246241, 6678, 503, 13, 28, "Input"], Cell[246747, 6693, 891, 22, 28, "Output"] }, Open ]], Cell[247653, 6718, 157, 4, 30, "Text"], Cell[CellGroupData[{ Cell[247835, 6726, 458, 13, 28, "Input"], Cell[248296, 6741, 892, 22, 28, "Output"] }, Open ]], Cell[249203, 6766, 143, 3, 30, "Text"], Cell[CellGroupData[{ Cell[249371, 6773, 621, 19, 50, "Input"], Cell[249995, 6794, 1290, 32, 35, "Output"] }, Open ]], Cell[251300, 6829, 160, 3, 30, "Text"], Cell[CellGroupData[{ Cell[251485, 6836, 666, 17, 51, "Input"], Cell[252154, 6855, 728, 17, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[252919, 6877, 1400, 41, 70, "Input"], Cell[254322, 6920, 625, 15, 28, "Output"] }, Open ]], Cell[254962, 6938, 223, 7, 32, "Text"], Cell[CellGroupData[{ Cell[255210, 6949, 323, 8, 35, "Input"], Cell[255536, 6959, 1218, 32, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[256791, 6996, 102, 1, 44, "Subsection"], Cell[256896, 6999, 284, 5, 30, "Text"], Cell[CellGroupData[{ Cell[257205, 7008, 580, 19, 53, "Input"], Cell[257788, 7029, 605, 15, 28, "Output"] }, Open ]], Cell[258408, 7047, 261, 7, 31, "Text"], Cell[CellGroupData[{ Cell[258694, 7058, 310, 9, 56, "Input"], Cell[259007, 7069, 114, 1, 28, "Output"] }, Open ]], Cell[259136, 7073, 282, 8, 31, "Text"], Cell[CellGroupData[{ Cell[259443, 7085, 1072, 33, 70, "Input"], Cell[260518, 7120, 114, 1, 28, "Output"] }, Open ]], Cell[260647, 7124, 309, 5, 49, "Text"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[261005, 7135, 142, 3, 80, "Section"], Cell[CellGroupData[{ Cell[261172, 7142, 1532, 42, 96, "Input"], Cell[262707, 7186, 3337, 86, 59, "Output"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)