(* 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[ 28908, 963] NotebookOptionsPosition[ 26005, 854] NotebookOutlinePosition[ 26363, 870] CellTagsIndexPosition[ 26320, 867] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["h", "1"], "=", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"11.7", ",", "12.0", ",", "13.6", ",", "14.3", ",", "13.4"}], "}"}], ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.568200903382676*^9, 3.568200924315537*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"11.7`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"cm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Centimeters\""}], "]"}]& )], ",", TemplateBox[{"12.`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"cm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Centimeters\""}], "]"}]& )], ",", TemplateBox[{"13.6`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"cm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Centimeters\""}], "]"}]& )], ",", TemplateBox[{"14.3`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"cm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Centimeters\""}], "]"}]& )], ",", TemplateBox[{"13.4`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"cm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Centimeters\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.5682009266498632`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[CapitalDelta]h", "1"], "=", RowBox[{"Quantity", "[", RowBox[{"0.14", ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.568200927337134*^9, 3.568200936951046*^9}}], Cell[BoxData[ TemplateBox[{"0.14`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"cm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Centimeters\""}], "]"}]& )]], "Output", CellChangeTimes->{3.5682009376225843`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["h", "3"], "=", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"2.1", ",", "2.4", ",", "2.8", ",", "3.0", ",", "3.0"}], "}"}], ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.568200946166162*^9, 3.568200962443975*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"2.1`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"cm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Centimeters\""}], "]"}]& )], ",", TemplateBox[{"2.4`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"cm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Centimeters\""}], "]"}]& )], ",", TemplateBox[{"2.8`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"cm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Centimeters\""}], "]"}]& )], ",", TemplateBox[{"3.`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"cm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Centimeters\""}], "]"}]& )], ",", TemplateBox[{"3.`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"cm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Centimeters\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.568200963112218*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[CapitalDelta]h", "3"], "=", RowBox[{"Quantity", "[", RowBox[{"0.14", ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.568200963793271*^9, 3.568200972020645*^9}}], Cell[BoxData[ TemplateBox[{"0.14`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"cm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Centimeters\""}], "]"}]& )]], "Output", CellChangeTimes->{3.568200972894493*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FractionBox[ SubscriptBox["h", "1"], RowBox[{ SubscriptBox["h", "1"], "-", SubscriptBox["h", "3"]}]]], "Input", CellChangeTimes->{{3.568202445496778*^9, 3.568202475625909*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.21875`", ",", "1.25`", ",", "1.259259259259259`", ",", "1.2654867256637168`", ",", "1.2884615384615383`"}], "}"}]], "Output", CellChangeTimes->{3.5682024782426662`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ FractionBox["1", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["h", "1"], "-", SubscriptBox["h", "3"]}], ")"}], "2"]], SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["h", "1"], SubscriptBox["\[CapitalDelta]h", "3"]}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["h", "3"], SubscriptBox["\[CapitalDelta]h", "1"]}], ")"}], "2"]}]]}]], "Input", CellChangeTimes->{{3.56820249500797*^9, 3.568202521230638*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.01805745954337404`", ",", "0.018590175309973696`", ",", "0.016666102154179487`", ",", "0.01601990429864203`", ",", "0.017774039534970875`"}], "}"}]], "Output", CellChangeTimes->{3.56820252287154*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Mean", "[", "%5", "]"}]], "Input", CellChangeTimes->{{3.56820314555122*^9, 3.568203148972595*^9}}], Cell[BoxData["1.256391504676903`"], "Output", CellChangeTimes->{3.5682031497070303`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"StandardDeviation", "[", "%5", "]"}]], "Input", CellChangeTimes->{{3.568203151110393*^9, 3.5682031555003757`*^9}}], Cell[BoxData["0.025382909281972767`"], "Output", CellChangeTimes->{3.568203156118346*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{".02", "^", "2"}], "+", RowBox[{".03", "^", "2"}]}], "]"}]], "Input", CellChangeTimes->{{3.568203242487275*^9, 3.568203249566187*^9}}], Cell[BoxData["0.03605551275463989`"], "Output", CellChangeTimes->{3.568203250134036*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ FractionBox["1", "50"], RowBox[{"{", RowBox[{"46.28", ",", "0.05"}], "}"}]}]], "Input", CellChangeTimes->{{3.568203901117485*^9, 3.5682039114824743`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"0.9256000000000001`", ",", "0.001`"}], "}"}]], "Output", CellChangeTimes->{3.568203915766327*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ FractionBox["1", "51"], RowBox[{"{", RowBox[{"50.23", ",", "0.05"}], "}"}]}]], "Input", CellChangeTimes->{{3.568203936029855*^9, 3.568203943280287*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"0.9849019607843137`", ",", "0.000980392156862745`"}], "}"}]], "Output", CellChangeTimes->{3.568203943943837*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["V", "Argon"], ",", SubscriptBox["\[CapitalDelta]V", "Argon"]}], "}"}], "=", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"5460", ",", "5"}], "}"}], ",", SuperscriptBox["\"\\"", "3"]}], "]"}]}]], "Input", CellChangeTimes->{{3.568204101724477*^9, 3.568204129396331*^9}, { 3.5682042521662903`*^9, 3.568204254733522*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"5460"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ SuperscriptBox["\"cm\"", "3"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters cubed"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", SuperscriptBox["\"Centimeters\"", "3"]}], "]"}]& )], ",", 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"]}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.568204130205922*^9, 3.5682042557566233`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["V", "Luft"], ",", SubscriptBox["\[CapitalDelta]V", "Luft"]}], "}"}], "=", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"5370", ",", "5"}], "}"}], ",", SuperscriptBox["\"\\"", "3"]}], "]"}]}]], "Input", CellChangeTimes->{{3.568204262571576*^9, 3.568204268811417*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"5370"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ SuperscriptBox["\"cm\"", "3"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters cubed"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", SuperscriptBox["\"Centimeters\"", "3"]}], "]"}]& )], ",", 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"]}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.568204269511478*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["m", RowBox[{"dingsi", ",", "Argon"}]], ",", SubscriptBox["\[CapitalDelta]m", RowBox[{"dingsi", ",", "Argon"}]]}], "}"}], "=", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"26.006", ",", "0.002"}], "}"}], ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.568204133054747*^9, 3.56820415681242*^9}, { 3.568204276019096*^9, 3.5682042797287273`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"26.006`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"g\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: grams"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Grams\""}], "]"}]& )], ",", TemplateBox[{"0.002`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"g\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: grams"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Grams\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.568204157265682*^9, 3.568204281459621*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["m", RowBox[{"dingsi", ",", "Luft"}]], ",", SubscriptBox["\[CapitalDelta]m", RowBox[{"dingsi", ",", "Luft"}]]}], "}"}], "=", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"26.116", ",", "0.002"}], "}"}], ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.5682042880341053`*^9, 3.568204288178137*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"26.116`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"g\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: grams"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Grams\""}], "]"}]& )], ",", TemplateBox[{"0.002`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"g\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: grams"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Grams\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.56820428852083*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["r", RowBox[{"dingsi", ",", "Argon"}]], ",", SubscriptBox["\[CapitalDelta]r", RowBox[{"dingsi", ",", "Argon"}]]}], "}"}], "=", RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"15.97", ",", "0.05"}], "}"}], ",", "\"\\""}], "]"}]}]}]], "Input", CellChangeTimes->{{3.5682041581275597`*^9, 3.5682041900483027`*^9}, { 3.568204294593934*^9, 3.568204298921994*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"7.985`"}, "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\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.568204190818507*^9, 3.56820430004305*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["r", RowBox[{"dingsi", ",", "Luft"}]], ",", SubscriptBox["\[CapitalDelta]r", RowBox[{"dingsi", ",", "Luft"}]]}], "}"}], "=", RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"15.95", ",", "0.05"}], "}"}], ",", "\"\\""}], "]"}]}]}]], "Input", CellChangeTimes->{3.568204306505118*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"7.975`"}, "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\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.5682043072840757`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["T", "Argon"], ",", SubscriptBox["\[CapitalDelta]T", "Argon"]}], "}"}], "=", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"0.926", ",", "0.001"}], "}"}], ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.568204194636135*^9, 3.56820421813448*^9}, { 3.568204315272122*^9, 3.568204319707946*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"0.926`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )], ",", TemplateBox[{"0.001`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.568204218695551*^9, 3.568204320738811*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["T", "Luft"], ",", SubscriptBox["\[CapitalDelta]T", "Luft"]}], "}"}], "=", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"0.985", ",", "0.001"}], "}"}], ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.568204326271398*^9, 3.5682043263294983`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"0.985`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )], ",", TemplateBox[{"0.001`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.5682043271822157`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{"p", ",", "\[CapitalDelta]p"}], "}"}], "=", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"1000.7", ",", "0.1"}], "}"}], ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.56820422750609*^9, 3.5682042416849003`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"1000.7`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"hPa\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: hectopascals"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Hectopascals\""}], "]"}]& )], ",", TemplateBox[{"0.1`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"hPa\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: hectopascals"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Hectopascals\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.568204242382131*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FractionBox[ RowBox[{"4", SubscriptBox["m", RowBox[{"dingsi", ",", "Luft"}]], SubscriptBox["V", "Luft"]}], RowBox[{ SuperscriptBox[ SubscriptBox["r", RowBox[{"dingsi", ",", "Luft"}]], "4"], SuperscriptBox[ SubscriptBox["T", "Luft"], "2"], "p"}]]], "Input", CellChangeTimes->{{3.568204334523067*^9, 3.5682043690924263`*^9}}], Cell[BoxData["1.4283735820479075`"], "Output", CellChangeTimes->{3.56820437109788*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ FractionBox["4", RowBox[{ SuperscriptBox[ SubscriptBox["r", RowBox[{"dingsi", ",", "Luft"}]], "4"], SuperscriptBox[ SubscriptBox["T", "Luft"], "2"], "p"}]], RowBox[{"\[Sqrt]", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[CapitalDelta]m", RowBox[{"dingsi", ",", "Luft"}]], SubscriptBox["V", "Luft"]}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["m", RowBox[{"dingsi", ",", "Luft"}]], SubscriptBox["\[CapitalDelta]V", "Luft"]}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], SubscriptBox["m", RowBox[{"dingsi", ",", "Luft"}]], SubscriptBox["V", "Luft"], FractionBox[ SubscriptBox["\[CapitalDelta]r", RowBox[{"dingsi", ",", "Luft"}]], SubscriptBox["r", RowBox[{"dingsi", ",", "Luft"}]]]}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], SubscriptBox["m", RowBox[{"dingsi", ",", "Luft"}]], SubscriptBox["V", "Luft"], FractionBox[ SubscriptBox["\[CapitalDelta]T", "Luft"], SubscriptBox["T", "Luft"]]}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], SubscriptBox["m", RowBox[{"dingsi", ",", "Luft"}]], SubscriptBox["V", "Luft"], FractionBox["\[CapitalDelta]p", "p"]}], ")"}], "2"]}], ")"}]}]}]], "Input", CellChangeTimes->{{3.568204388578895*^9, 3.568204514948205*^9}}], Cell[BoxData["0.018201901925383544`"], "Output", CellChangeTimes->{3.568204517116117*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FractionBox[ RowBox[{"4", SubscriptBox["m", RowBox[{"dingsi", ",", "Argon"}]], SubscriptBox["V", "Argon"]}], RowBox[{ SuperscriptBox[ SubscriptBox["r", RowBox[{"dingsi", ",", "Argon"}]], "4"], SuperscriptBox[ SubscriptBox["T", "Argon"], "2"], "p"}]]], "Input", CellChangeTimes->{{3.568204685656835*^9, 3.568204696834996*^9}}], Cell[BoxData["1.628173332308134`"], "Output", CellChangeTimes->{3.568204698244924*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ FractionBox["4", RowBox[{ SuperscriptBox[ SubscriptBox["r", RowBox[{"dingsi", ",", "Argon"}]], "4"], SuperscriptBox[ SubscriptBox["T", "Argon"], "2"], "p"}]], RowBox[{"\[Sqrt]", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[CapitalDelta]m", RowBox[{"dingsi", ",", "Argon"}]], SubscriptBox["V", "Argon"]}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["m", RowBox[{"dingsi", ",", "Argon"}]], SubscriptBox["\[CapitalDelta]V", "Argon"]}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], SubscriptBox["m", RowBox[{"dingsi", ",", "Argon"}]], SubscriptBox["V", "Argon"], FractionBox[ SubscriptBox["\[CapitalDelta]r", RowBox[{"dingsi", ",", "Argon"}]], SubscriptBox["r", RowBox[{"dingsi", ",", "Argon"}]]]}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], SubscriptBox["m", RowBox[{"dingsi", ",", "Argon"}]], SubscriptBox["V", "Argon"], FractionBox[ SubscriptBox["\[CapitalDelta]T", "Argon"], SubscriptBox["T", "Argon"]]}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], SubscriptBox["m", RowBox[{"dingsi", ",", "Argon"}]], SubscriptBox["V", "Argon"], FractionBox["\[CapitalDelta]p", "p"]}], ")"}], "2"]}], ")"}]}]}]], "Input", CellChangeTimes->{{3.568204706439755*^9, 3.5682047247461576`*^9}}], Cell[BoxData["0.020755648999028143`"], "Output", CellChangeTimes->{3.5682047267964087`*^9}] }, Open ]] }, WindowSize->{740, 701}, WindowMargins->{{321, Automatic}, {Automatic, 38}}, 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, 316, 8, 28, "Input"], Cell[898, 32, 1891, 48, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2826, 85, 232, 5, 28, "Input"], Cell[3061, 92, 403, 10, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3501, 107, 310, 8, 28, "Input"], Cell[3814, 117, 1883, 48, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5734, 170, 232, 5, 28, "Input"], Cell[5969, 177, 401, 10, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6407, 192, 204, 6, 51, "Input"], Cell[6614, 200, 218, 5, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6869, 210, 580, 20, 52, "Input"], Cell[7452, 232, 253, 6, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7742, 243, 123, 2, 28, "Input"], Cell[7868, 247, 89, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7994, 253, 139, 2, 28, "Input"], Cell[8136, 257, 90, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8263, 263, 198, 5, 28, "Input"], Cell[8464, 270, 89, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8590, 276, 188, 5, 49, "Input"], Cell[8781, 283, 138, 3, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8956, 291, 186, 5, 49, "Input"], Cell[9145, 298, 156, 4, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9338, 307, 441, 12, 35, "Input"], Cell[9782, 321, 1039, 30, 35, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10858, 356, 388, 11, 35, "Input"], Cell[11249, 369, 1015, 30, 35, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12301, 404, 480, 14, 35, "Input"], Cell[12784, 420, 812, 21, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[13633, 446, 430, 13, 35, "Input"], Cell[14066, 461, 789, 21, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[14892, 487, 532, 16, 48, "Input"], Cell[15427, 505, 836, 21, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[16300, 531, 453, 15, 48, "Input"], Cell[16756, 548, 817, 21, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[17610, 574, 417, 12, 35, "Input"], Cell[18030, 588, 819, 21, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[18886, 614, 369, 11, 28, "Input"], Cell[19258, 627, 799, 21, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[20094, 653, 318, 9, 28, "Input"], Cell[20415, 664, 820, 21, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[21272, 690, 378, 12, 55, "Input"], Cell[21653, 704, 87, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[21777, 710, 1731, 55, 147, "Input"], Cell[23511, 767, 90, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[23638, 773, 380, 12, 55, "Input"], Cell[24021, 787, 87, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[24145, 793, 1749, 55, 150, "Input"], Cell[25897, 850, 92, 1, 62, "Output"] }, Open ]] } ] *) (* End of internal cache information *)