(* 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[ 354416, 8702] NotebookOptionsPosition[ 341432, 8263] NotebookOutlinePosition[ 341957, 8284] CellTagsIndexPosition[ 341914, 8281] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["\<\ 253 Absorbtion von \[Alpha]-, \[Beta]-, \[Gamma]-Strahlung\ \>", "Title", CellChangeTimes->{{3.5775236102638593`*^9, 3.577523635723104*^9}}], Cell[BoxData[ RowBox[{"Needs", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.5797775659699774`*^9, 3.5797775820769997`*^9}, { 3.5797777140781865`*^9, 3.579777739363222*^9}}], Cell[CellGroupData[{ Cell["1 Inbetriebnahme des Z\[ADoubleDot]hlrohrs", "Section", CellChangeTimes->{{3.577523846432674*^9, 3.5775238842471404`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["U", "0"], ",", SubscriptBox["\[CapitalDelta]U", "0"]}], "}"}], "=", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"540", ",", "5"}], "}"}], ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.5775238664475093`*^9, 3.5775239138559923`*^9}, { 3.5775239678476872`*^9, 3.5775239793137074`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"540"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"5"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.5775239146203938`*^9, 3.57752398074891*^9, 3.5791761822620087`*^9, 3.5791811299690013`*^9, 3.5796940656395564`*^9, 3.579759228566722*^9, 3.5797593633559175`*^9, 3.579765549607854*^9, 3.5797658221752377`*^9, 3.579765919637375*^9, 3.5797659700664463`*^9, 3.5797666154383545`*^9, 3.579766701572476*^9, 3.579766752099547*^9, 3.579766862453702*^9, 3.5797669268327928`*^9, 3.579767040432953*^9, 3.5797719449259224`*^9, 3.579772032824046*^9, 3.5797722262093196`*^9, 3.579772507493718*^9, 3.579776426402356*^9, 3.579776619164631*^9, 3.57977667417171*^9, 3.579785188127405*^9, 3.5797852404944005`*^9, 3.5797852950895233`*^9, 3.579785385882716*^9, 3.579785491687768*^9, 3.579785588037279*^9, 3.5797856566682043`*^9, 3.582865823920776*^9, 3.582865893628274*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["R", "0"], "=", RowBox[{"Quantity", "[", RowBox[{"7", ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.5775239297680206`*^9, 3.5775239559604664`*^9}}], Cell[BoxData[ TemplateBox[{"7"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )]], "Output", CellChangeTimes->{3.577523956490867*^9, 3.579176182357014*^9, 3.5791811300590067`*^9, 3.5796940657195563`*^9, 3.5797592286767216`*^9, 3.579759363435918*^9, 3.579765549687854*^9, 3.579765822265238*^9, 3.5797659197073746`*^9, 3.579765970146446*^9, 3.579766615538355*^9, 3.579766701622476*^9, 3.5797667521795473`*^9, 3.5797668625537024`*^9, 3.5797669269627934`*^9, 3.579767040522953*^9, 3.579771945390923*^9, 3.5797720329390464`*^9, 3.57977222632932*^9, 3.5797725076137185`*^9, 3.5797764264923563`*^9, 3.5797766192396317`*^9, 3.57977667425671*^9, 3.5797851881954093`*^9, 3.579785240532403*^9, 3.579785295115525*^9, 3.579785385909718*^9, 3.5797854917127695`*^9, 3.579785588067281*^9, 3.5797856566992064`*^9, 3.582865823993012*^9, 3.5828658937770367`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["2 Messung des Nullefekts", "Section", CellChangeTimes->{{3.5775239950697355`*^9, 3.577524000576545*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["n", "0"], ",", SubscriptBox["\[CapitalDelta]n", "0"]}], "}"}], "=", RowBox[{ RowBox[{"Quantity", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"230", ",", RowBox[{"Sqrt", "[", "230", "]"}]}], "}"}], "/", RowBox[{"(", RowBox[{"5", "*", "60"}], ")"}]}], ",", "\"\\""}], "]"}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.5775240346938047`*^9, 3.577524048406229*^9}, { 3.577524228321345*^9, 3.5775242708782196`*^9}, {3.579181893749687*^9, 3.579181926407555*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"0.7666666666666667`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )], ",", TemplateBox[{"0.050552502960343665`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{ 3.5791761823820157`*^9, 3.5791811300920086`*^9, {3.5791819163239784`*^9, 3.579181926911584*^9}, 3.5796940657495565`*^9, 3.5797592287167215`*^9, 3.579759363475918*^9, 3.5797655497278543`*^9, 3.579765822315238*^9, 3.5797659197473745`*^9, 3.579765970186446*^9, 3.579766615588355*^9, 3.579766701662476*^9, 3.579766752209547*^9, 3.5797668626137023`*^9, 3.5797669270127935`*^9, 3.5797670405529532`*^9, 3.579771945435923*^9, 3.5797720329790463`*^9, 3.5797722263843203`*^9, 3.579772507658718*^9, 3.5797764265323563`*^9, 3.5797766192796316`*^9, 3.57977667429171*^9, 3.579785188281414*^9, 3.5797852405804057`*^9, 3.579785295152527*^9, 3.5797853859507203`*^9, 3.5797854917477713`*^9, 3.579785588103283*^9, 3.5797856567382083`*^9, 3.5828658240392857`*^9, 3.582865893836925*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ 3 Absorbtion von \[Beta]-Strahlung in Aluminium\ \>", "Section", CellChangeTimes->{{3.5775243689243917`*^9, 3.5775243892044272`*^9}, 3.58286574478757*^9}], Cell["Kennummer des Pr\[ADoubleDot]perats: 253D", "Text", CellChangeTimes->{{3.577524403322452*^9, 3.5775244244458895`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["d", RowBox[{"pr", ",", "zr"}]], ",", SubscriptBox["\[CapitalDelta]d", RowBox[{"pr", ",", "zr"}]]}], "}"}], "=", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "0.2"}], "}"}], ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.5775245825833673`*^9, 3.577524670941922*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"6"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"cm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Centimeters\""}], "]"}]& )], ",", TemplateBox[{"0.2`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"cm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Centimeters\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.577524672252324*^9, 3.5791761824590197`*^9, 3.5791811301790133`*^9, 3.5796940657895565`*^9, 3.579759228776722*^9, 3.5797593635059175`*^9, 3.5797655497578545`*^9, 3.579765822365238*^9, 3.579765919787375*^9, 3.579765970216446*^9, 3.579766615638355*^9, 3.579766701712476*^9, 3.579766752249547*^9, 3.5797668626637025`*^9, 3.5797669270627933`*^9, 3.579767040592953*^9, 3.5797719454859233`*^9, 3.5797720330240464`*^9, 3.5797722264293203`*^9, 3.579772507703718*^9, 3.579776426567356*^9, 3.5797766193196316`*^9, 3.5797766743267107`*^9, 3.579785188348418*^9, 3.5797852406374087`*^9, 3.5797852951875286`*^9, 3.5797853859897223`*^9, 3.5797854917827735`*^9, 3.5797855881402845`*^9, 3.5797856567772107`*^9, 3.582865824089343*^9, 3.58286589388264*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["Data", "3"], "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{"0", ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"1685", "/", "30"}], ",", "\"\\""}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{"0.3", ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"1069", "/", "30"}], ",", "\"\\""}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{"0.6", ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"724", "/", "30"}], ",", "\"\\""}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{"0.9", ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"496", "/", "30"}], ",", "\"\\""}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{"1.2", ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"322", "/", "30"}], ",", "\"\\""}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{"1.5", ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"822", "/", "120"}], ",", "\"\\""}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{"1.8", ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"548", "/", "120"}], ",", "\"\\""}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{"2.1", ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"334", "/", "120"}], ",", "\"\\""}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{"2.4", ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"196", "/", "120"}], ",", "\"\\""}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{"2.7", ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"153", "/", "120"}], ",", "\"\\""}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{"3.0", ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"135", "/", "120"}], ",", "\"\\""}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{"3.3", ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"108", "/", "120"}], ",", "\"\\""}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{"3.6", ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"115", "/", "120"}], ",", "\"\\""}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{"4.6", ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"237", "/", "300"}], ",", "\"\\""}], "]"}]}], "}"}]}], "}"}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.577524713483197*^9, 3.5775247523272653`*^9}, { 3.5775247876613274`*^9, 3.577524923755966*^9}, {3.577525059148604*^9, 3.5775252388453197`*^9}, {3.5775252913862123`*^9, 3.5775253085462418`*^9}, { 3.5775253560639257`*^9, 3.5775253674519453`*^9}, {3.577525533468437*^9, 3.577525550800068*^9}, {3.5775256246817975`*^9, 3.5775256299702067`*^9}, { 3.5775257390299983`*^9, 3.5775257507768188`*^9}, {3.577525885746306*^9, 3.5775258904975777`*^9}, {3.5775260049477544`*^9, 3.5775260068197575`*^9}, { 3.5775260519038367`*^9, 3.577526052699438*^9}, {3.577526084585894*^9, 3.577526109670738*^9}, {3.5775262240501394`*^9, 3.577526242536172*^9}, { 3.5775263579461746`*^9, 3.577526373717802*^9}, {3.5775265112944436`*^9, 3.5775265373776894`*^9}, {3.577526644534278*^9, 3.5775266765143337`*^9}, { 3.577527159467004*^9, 3.5775271766582346`*^9}, {3.5791819402493467`*^9, 3.5791819577963505`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"0.`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )], ",", TemplateBox[{"56.166666666666664`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"0.3`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )], ",", TemplateBox[{"35.63333333333333`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"0.6`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )], ",", TemplateBox[{"24.133333333333333`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"0.9`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )], ",", TemplateBox[{"16.533333333333335`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"1.2`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )], ",", TemplateBox[{"10.733333333333333`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"1.5`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )], ",", TemplateBox[{"6.85`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"1.8`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )], ",", TemplateBox[{"4.566666666666666`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"2.1`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )], ",", TemplateBox[{"2.783333333333333`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"2.4`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )], ",", TemplateBox[{"1.6333333333333333`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"2.7`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )], ",", TemplateBox[{"1.275`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"3.`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )], ",", TemplateBox[{"1.125`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"3.3`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )], ",", TemplateBox[{"0.9`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"3.6`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )], ",", TemplateBox[{"0.9583333333333334`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"4.6`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )], ",", TemplateBox[{"0.79`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.5796940660495567`*^9, 3.5797592290467224`*^9, 3.579759363795918*^9, 3.5797655500178547`*^9, 3.5797658226352386`*^9, 3.5797659200573754`*^9, 3.5797659704864464`*^9, 3.5797666158983555`*^9, 3.579766701982476*^9, 3.5797667524995475`*^9, 3.5797668629437027`*^9, 3.5797669273327937`*^9, 3.579767040852954*^9, 3.5797719457559233`*^9, 3.579772033294047*^9, 3.5797722267243204`*^9, 3.579772507983719*^9, 3.5797764268423567`*^9, 3.579776619639632*^9, 3.5797766746117105`*^9, 3.5797851886404347`*^9, 3.579785240937426*^9, 3.5797852954465437`*^9, 3.5797853863007402`*^9, 3.579785492048789*^9, 3.5797855884463024`*^9, 3.579785657060227*^9, 3.582865824365251*^9, 3.582865894159109*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["CData", "3"], "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["Data", "3"], "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["Data", "3"], "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"QuantityMagnitude", "[", RowBox[{ SubscriptBox["Data", "3"], "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", "\"\\""}], "]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", SubscriptBox["Data", "3"], "]"}]}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5791819624956193`*^9, 3.5791820732809553`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"0.`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )], ",", RowBox[{"{", RowBox[{ TemplateBox[{"56.166666666666664`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )], ",", TemplateBox[{"7.494442385305705`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"0.3`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )], ",", RowBox[{"{", RowBox[{ TemplateBox[{"35.63333333333333`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )], ",", TemplateBox[{"5.96936624218462`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"0.6`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )], ",", RowBox[{"{", RowBox[{ TemplateBox[{"24.133333333333333`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )], ",", TemplateBox[{"4.91256891385081`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"0.9`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )], ",", RowBox[{"{", RowBox[{ TemplateBox[{"16.533333333333335`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )], ",", TemplateBox[{"4.066120181860509`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"1.2`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )], ",", RowBox[{"{", RowBox[{ TemplateBox[{"10.733333333333333`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )], ",", TemplateBox[{"3.2761766334148303`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"1.5`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )], ",", RowBox[{"{", RowBox[{ TemplateBox[{"6.85`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )], ",", TemplateBox[{"2.6172504656604803`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"1.8`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )], ",", RowBox[{"{", RowBox[{ TemplateBox[{"4.566666666666666`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )], ",", TemplateBox[{"2.136976056643281`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"2.1`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )], ",", RowBox[{"{", RowBox[{ TemplateBox[{"2.783333333333333`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )], ",", TemplateBox[{"1.6683325008322931`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"2.4`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )], ",", RowBox[{"{", RowBox[{ TemplateBox[{"1.6333333333333333`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )], ",", TemplateBox[{"1.2780193008453875`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"2.7`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )], ",", RowBox[{"{", RowBox[{ TemplateBox[{"1.275`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )], ",", TemplateBox[{"1.1291589790636214`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"3.`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )], ",", RowBox[{"{", RowBox[{ TemplateBox[{"1.125`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )], ",", TemplateBox[{"1.0606601717798212`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"3.3`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )], ",", RowBox[{"{", RowBox[{ TemplateBox[{"0.9`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )], ",", TemplateBox[{"0.9486832980505138`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"3.6`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )], ",", RowBox[{"{", RowBox[{ TemplateBox[{"0.9583333333333334`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )], ",", TemplateBox[{"0.9789450103725609`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"4.6`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )], ",", RowBox[{"{", RowBox[{ TemplateBox[{"0.79`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )], ",", TemplateBox[{"0.8888194417315589`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.577527166159416*^9, 3.5775271777502365`*^9}, 3.5791749411430206`*^9, 3.579176182740036*^9, 3.5791811304440284`*^9, 3.579181959431444*^9, 3.579182026900303*^9, 3.5791820745350275`*^9, 3.5796940664095573`*^9, 3.5797592294267225`*^9, 3.579759364185919*^9, 3.5797655503878555`*^9, 3.579765823015239*^9, 3.579765920417376*^9, 3.579765970866447*^9, 3.5797666162783556`*^9, 3.579766702362477*^9, 3.579766752869548*^9, 3.5797668633137035`*^9, 3.579766927722794*^9, 3.579767041232954*^9, 3.579771946145924*^9, 3.5797720336690474`*^9, 3.579772227129321*^9, 3.579772508373719*^9, 3.5797764272223573`*^9, 3.579776620014632*^9, 3.579776675011711*^9, 3.5797851890284567`*^9, 3.579785241327448*^9, 3.579785295812565*^9, 3.5797853866767616`*^9, 3.57978549242181*^9, 3.579785588873327*^9, 3.579785657605258*^9, 3.582865824752248*^9, 3.582865894557027*^9}] }, Open ]], Cell[CellGroupData[{ Cell["Auswertung", "Subsection", CellChangeTimes->{{3.5791747670730643`*^9, 3.5791747685211477`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["xs", "1"], "=", RowBox[{ RowBox[{ RowBox[{"Transpose", "[", SubscriptBox["CData", "3"], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "All"}], "]"}], "]"}], "//", "QuantityMagnitude"}]}]], "Input", CellChangeTimes->{{3.5791747741854715`*^9, 3.579174793621583*^9}, { 3.579174861472464*^9, 3.5791749307024236`*^9}, {3.5791749619172087`*^9, 3.5791749620702176`*^9}, {3.5791750000963926`*^9, 3.5791750046616535`*^9}, {3.5791761175823092`*^9, 3.5791761643529844`*^9}, {3.5791761963138123`*^9, 3.5791762063743877`*^9}, 3.5791821020065985`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.`", ",", "0.3`", ",", "0.6`", ",", "0.9`", ",", "1.2`", ",", "1.5`", ",", "1.8`", ",", "2.1`", ",", "2.4`", ",", "2.7`", ",", "3.`", ",", "3.3`", ",", "3.6`", ",", "4.6`"}], "}"}]], "Output", CellChangeTimes->{{3.579176147956046*^9, 3.5791761860012226`*^9}, 3.5791762787915297`*^9, 3.5791811304720297`*^9, 3.579182103342675*^9, 3.5796940664295573`*^9, 3.5797592294667225`*^9, 3.579759364225919*^9, 3.5797655504278555`*^9, 3.5797658230452385`*^9, 3.579765920457376*^9, 3.579765970896447*^9, 3.5797666163183556`*^9, 3.5797667024024773`*^9, 3.579766752899548*^9, 3.5797668633537035`*^9, 3.5797669277627945`*^9, 3.579767041262954*^9, 3.579771946225924*^9, 3.579772033704047*^9, 3.579772227169321*^9, 3.579772508408719*^9, 3.579776427257357*^9, 3.579776620049632*^9, 3.579776675046711*^9, 3.579785189119462*^9, 3.57978524136345*^9, 3.57978529590557*^9, 3.5797853867087636`*^9, 3.5797854925178156`*^9, 3.5797855889063287`*^9, 3.5797856576342597`*^9, 3.5828658248355017`*^9, 3.582865894627646*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["ns", "1"], "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Transpose", "[", SubscriptBox["CData", "3"], "]"}], "[", RowBox[{"[", RowBox[{"2", ",", "All", ",", "1"}], "]"}], "]"}], "-", SubscriptBox["n", "0"]}], "//", "QuantityMagnitude"}]}]], "Input", CellChangeTimes->{{3.579174969747657*^9, 3.5791750219126406`*^9}, { 3.579176226536541*^9, 3.579176228065628*^9}, {3.5791806046509547`*^9, 3.5791806170246625`*^9}, {3.57918115774659*^9, 3.579181159789707*^9}, { 3.57918210710089*^9, 3.579182115120349*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "55.4`", ",", "34.86666666666667`", ",", "23.366666666666667`", ",", "15.766666666666667`", ",", "9.966666666666665`", ",", "6.083333333333333`", ",", "3.8`", ",", "2.0166666666666666`", ",", "0.8666666666666666`", ",", "0.5083333333333332`", ",", "0.3583333333333333`", ",", "0.1333333333333333`", ",", "0.19166666666666665`", ",", "0.023333333333333317`"}], "}"}]], "Output", CellChangeTimes->{ 3.5791806181327257`*^9, {3.5791811304950314`*^9, 3.5791811601857295`*^9}, { 3.5791820916000032`*^9, 3.57918211549137*^9}, 3.5796940664495573`*^9, 3.5797592294967227`*^9, 3.5797593642459188`*^9, 3.579765550447855*^9, 3.5797658230852385`*^9, 3.579765920477376*^9, 3.579765970926447*^9, 3.5797666163483553`*^9, 3.579766702432477*^9, 3.5797667529295483`*^9, 3.5797668633937035`*^9, 3.5797669278027945`*^9, 3.5797670412929544`*^9, 3.5797719462609243`*^9, 3.5797720337290473`*^9, 3.579772227204321*^9, 3.5797725084337196`*^9, 3.5797764272873573`*^9, 3.5797766200746326`*^9, 3.579776675076711*^9, 3.579785189185466*^9, 3.5797852413924522`*^9, 3.5797852959325714`*^9, 3.579785386732765*^9, 3.579785492544817*^9, 3.5797855889363303`*^9, 3.5797856576702614`*^9, 3.582865824902355*^9, 3.582865894666699*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["cns", "1"], "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Transpose", "[", SubscriptBox["CData", "3"], "]"}], "[", RowBox[{"[", RowBox[{"2", ",", "All", ",", "1"}], "]"}], "]"}], "-", RowBox[{ RowBox[{"Transpose", "[", SubscriptBox["CData", "3"], "]"}], "[", RowBox[{"[", RowBox[{"2", ",", "All", ",", "2"}], "]"}], "]"}], "-", RowBox[{"(", RowBox[{ SubscriptBox["n", "0"], "-", SubscriptBox["\[CapitalDelta]n", "0"]}], ")"}]}], "//", "QuantityMagnitude"}]}]], "Input", CellChangeTimes->{{3.579174969747657*^9, 3.5791750219126406`*^9}, { 3.579176226536541*^9, 3.579176228065628*^9}, {3.5791806046509547`*^9, 3.5791806170246625`*^9}, {3.57918115774659*^9, 3.579181159789707*^9}, { 3.57918210710089*^9, 3.5791821521804686`*^9}, {3.579182238890428*^9, 3.579182246908887*^9}, {3.579182297619787*^9, 3.5791823030150957`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "47.95611011765464`", ",", "28.94785292744239`", ",", "18.5046502557762`", ",", "11.751098987766504`", ",", "6.741042536212179`", ",", "3.516635370633196`", ",", "1.7135764463170622`", ",", "0.398886668794717`", ",", RowBox[{"-", "0.3608001312183773`"}], ",", RowBox[{"-", "0.5702731427699446`"}], ",", RowBox[{"-", "0.6517743354861443`"}], ",", RowBox[{"-", "0.7647974617568368`"}], ",", RowBox[{"-", "0.7367258407455505`"}], ",", RowBox[{"-", "0.814933605437882`"}]}], "}"}]], "Output", CellChangeTimes->{ 3.5791806181327257`*^9, {3.5791811304950314`*^9, 3.5791811601857295`*^9}, { 3.5791820916000032`*^9, 3.57918211549137*^9}, 3.579182152484486*^9, 3.5791822476569295`*^9, 3.579182303756138*^9, 3.5796940664795575`*^9, 3.579759229536723*^9, 3.5797593642859187`*^9, 3.579765550487855*^9, 3.579765823125239*^9, 3.5797659205073757`*^9, 3.579765970956447*^9, 3.5797666163883557`*^9, 3.579766702472477*^9, 3.579766752959548*^9, 3.5797668634337034`*^9, 3.5797669278427944`*^9, 3.579767041322954*^9, 3.5797719463059244`*^9, 3.5797720337640476`*^9, 3.579772227249321*^9, 3.5797725084687195`*^9, 3.579776427322357*^9, 3.5797766201096325`*^9, 3.5797766751117115`*^9, 3.5797851892534695`*^9, 3.579785241444455*^9, 3.5797852959675736`*^9, 3.5797853867667665`*^9, 3.579785492580819*^9, 3.579785588970332*^9, 3.5797856577112637`*^9, 3.5828658249440413`*^9, 3.582865894797495*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["xsns", "1"], "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["xs", "1"], "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{ SubscriptBox["ns", "1"], "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", SubscriptBox["xs", "1"], "]"}]}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5791753691715026`*^9, 3.5791754204104333`*^9}, { 3.579175527996587*^9, 3.5791755970865383`*^9}, {3.5791757127481537`*^9, 3.5791757423198457`*^9}, {3.5791804850751157`*^9, 3.5791804883002996`*^9}, { 3.5791805825236893`*^9, 3.579180599930685*^9}, {3.579180665002407*^9, 3.5791806955031514`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.`", ",", "55.4`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.3`", ",", "34.86666666666667`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.6`", ",", "23.366666666666667`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.9`", ",", "15.766666666666667`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.2`", ",", "9.966666666666665`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.5`", ",", "6.083333333333333`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.8`", ",", "3.8`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.1`", ",", "2.0166666666666666`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.4`", ",", "0.8666666666666666`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.7`", ",", "0.5083333333333332`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.`", ",", "0.3583333333333333`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.3`", ",", "0.1333333333333333`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.6`", ",", "0.19166666666666665`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.6`", ",", "0.023333333333333317`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.579175598355611*^9, {3.5791757179634523`*^9, 3.579175743012885*^9}, 3.579176209197549*^9, 3.5791762903031883`*^9, 3.579180489195351*^9, 3.579180588224015*^9, 3.579180619063779*^9, {3.5791806729168596`*^9, 3.579180696236193*^9}, 3.579181130518033*^9, 3.579181161346796*^9, 3.579181520807356*^9, 3.57918212143371*^9, 3.5791822492540207`*^9, 3.5796940665095577`*^9, 3.579759229566723*^9, 3.579759364315919*^9, 3.5797655505078554`*^9, 3.5797658231652393`*^9, 3.579765920537376*^9, 3.5797659709864473`*^9, 3.579766616428356*^9, 3.579766702512477*^9, 3.579766752989548*^9, 3.5797668634737034`*^9, 3.5797669278927946`*^9, 3.5797670413529544`*^9, 3.5797719463409243`*^9, 3.5797720337940474`*^9, 3.5797722273243213`*^9, 3.5797725085037193`*^9, 3.5797764273473573`*^9, 3.5797766201346326`*^9, 3.579776675141711*^9, 3.5797851892984724`*^9, 3.5797852414734564`*^9, 3.579785295993575*^9, 3.579785386791768*^9, 3.5797854926068206`*^9, 3.5797855889953337`*^9, 3.5797856577352657`*^9, 3.582865824991448*^9, 3.582865894853312*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["cxsns", "1"], "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["xs", "1"], "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{ SubscriptBox["cns", "1"], "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", SubscriptBox["xs", "1"], "]"}]}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5791753691715026`*^9, 3.5791754204104333`*^9}, { 3.579175527996587*^9, 3.5791755970865383`*^9}, {3.5791757127481537`*^9, 3.5791757423198457`*^9}, {3.5791804850751157`*^9, 3.5791804883002996`*^9}, { 3.5791805825236893`*^9, 3.579180599930685*^9}, {3.579180665002407*^9, 3.5791806955031514`*^9}, {3.5791821333483915`*^9, 3.579182161091978*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.`", ",", "47.95611011765464`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.3`", ",", "28.94785292744239`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.6`", ",", "18.5046502557762`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.9`", ",", "11.751098987766504`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.2`", ",", "6.741042536212179`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.5`", ",", "3.516635370633196`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.8`", ",", "1.7135764463170622`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.1`", ",", "0.398886668794717`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.4`", ",", RowBox[{"-", "0.3608001312183773`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2.7`", ",", RowBox[{"-", "0.5702731427699446`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3.`", ",", RowBox[{"-", "0.6517743354861443`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3.3`", ",", RowBox[{"-", "0.7647974617568368`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3.6`", ",", RowBox[{"-", "0.7367258407455505`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"4.6`", ",", RowBox[{"-", "0.814933605437882`"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.579182161452999*^9, 3.579182257851513*^9, 3.5791823059992666`*^9, 3.5796940665295577`*^9, 3.579759229616723*^9, 3.579759364335919*^9, 3.579765550537855*^9, 3.579765823195239*^9, 3.579765920567376*^9, 3.5797659710064473`*^9, 3.579766616458356*^9, 3.579766702542477*^9, 3.579766753009548*^9, 3.5797668635137033`*^9, 3.5797669279327946`*^9, 3.5797670413729544`*^9, 3.5797719463709245`*^9, 3.579772033819048*^9, 3.579772227359321*^9, 3.57977250852872*^9, 3.5797764273723574`*^9, 3.579776620164633*^9, 3.5797766751717114`*^9, 3.579785189337475*^9, 3.579785241501458*^9, 3.579785296019576*^9, 3.579785386834771*^9, 3.579785492632822*^9, 3.579785589039336*^9, 3.579785657760267*^9, 3.582865825041852*^9, 3.5828658949018097`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffit", "=", RowBox[{"LinearModelFit", "[", RowBox[{ SubscriptBox["xsns", "1"], ",", RowBox[{"{", RowBox[{"1", ",", "x", ",", RowBox[{"x", "^", "2"}], ",", RowBox[{"x", "^", "3"}], ",", RowBox[{"x", "^", "4"}], ",", RowBox[{"x", "^", "5"}]}], "}"}], ",", "x"}], "]"}]}]], "Input", CellChangeTimes->{{3.5791813273132887`*^9, 3.579181334123678*^9}, { 3.579181404681714*^9, 3.5791814860953703`*^9}, {3.5791817013796844`*^9, 3.5791817474793205`*^9}, {3.579181795007039*^9, 3.5791818203554893`*^9}, 3.57978509257194*^9}], Cell[BoxData[ TagBox[ RowBox[{"FittedModel", "[", TagBox[ PanelBox[ TagBox[ RowBox[{"54.99485330560647`", "\[VeryThinSpace]", "-", RowBox[{"77.5271524883192`", " ", "x"}], "+", RowBox[{ RowBox[{"\[LeftSkeleton]", "18", "\[RightSkeleton]"}], " ", RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}]}], "-", RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], "+", RowBox[{"3.5113999825435864`", " ", SuperscriptBox["x", "4"]}], "-", RowBox[{"0.26286327229373174`", " ", SuperscriptBox["x", "5"]}]}], Short], FrameMargins->5], Editable -> False], "]"}], InterpretTemplate[ FittedModel[{ "Linear", {54.99485330560647, -77.5271524883192, 50.87013109161474, -18.55021975352134, 3.5113999825435864`, -0.26286327229373174`}, {{$CellContext`x}, { 1, $CellContext`x, $CellContext`x^2, $CellContext`x^3, \ $CellContext`x^4, $CellContext`x^5}}, {0, 0}}, {{1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.}}, {{0., 55.4}, {0.3, 34.86666666666667}, {0.6, 23.366666666666667`}, {0.9, 15.766666666666667`}, {1.2, 9.966666666666665}, {1.5, 6.083333333333333}, {1.8, 3.8}, {2.1, 2.0166666666666666`}, {2.4, 0.8666666666666666}, {2.7, 0.5083333333333332}, {3., 0.3583333333333333}, {3.3, 0.1333333333333333}, {3.6, 0.19166666666666665`}, {4.6, 0.023333333333333317`}}, CompressedData[" 1:eJxTTMoPSmViYGDgA2I2Bhj4YM9AEvhgbwwGl+25ri8usOXabn/z3Pfgx0tn 2zc9Oj5j97QG+zl33geIvEi2R1X/GKr+OlT9aaj6A1D1m+Hqz54BgTf2bwJ3 yLW+fmnfIQbS8dx+3a+Y3KP/nthnrbvs4f30EZr5n6Hmf4ea/xtqPoMDxHxm B1T//oDSTFBxbgjtIAKhE+Tg6iHu+QN1D6cDxD3iDhD3qDhA3GOEpp7BYQnI t4sFHYSbD5xa2KrkkBtWu25bkbHD57Nm5suyXeDqIe5ndoC4X9wB4n5tB4j7 HaDuD4arnzUTBFgdtGL6D33VkHVg1m4Xu7nO2MF1bea9wkleDv3vFMqWvU9E 8y8HlK8Epa2h/g2B+jcPrj4NDLgc3B9Wiaw7rurAp7tp7vvvjg6df1O/P1ka 66D1sWHTytIKNP/yOEDCRxMaPu7Q8EmBhk8TmvlCDhpg95s66N5VYWsMjXCI +uf86+3vaoflEs/zncQXOAAAYzT1/g== "], Function[Null, Internal`LocalizedBlock[{$CellContext`x}, #], {HoldAll}]]& ], Editable->False, SelectWithContents->True, Selectable->True]], "Output", CellChangeTimes->{ 3.5791814873034396`*^9, 3.5791815217414093`*^9, {3.579181732449461*^9, 3.5791817481373587`*^9}, {3.579181795392061*^9, 3.5791818209135213`*^9}, 3.579182163514117*^9, 3.5791822604046583`*^9, 3.579694066599558*^9, 3.579759229656723*^9, 3.579759364395919*^9, 3.5797655505878553`*^9, 3.5797658232952394`*^9, 3.579765920597376*^9, 3.579765971056447*^9, 3.579766616508356*^9, 3.579766702582477*^9, 3.5797667530595484`*^9, 3.579766863553704*^9, 3.5797669279727945`*^9, 3.5797670414229546`*^9, 3.579771946420924*^9, 3.5797720338690476`*^9, 3.579772227424321*^9, 3.57977250861372*^9, 3.5797764274373574`*^9, 3.5797766206096334`*^9, 3.5797766752317114`*^9, 3.579785189799501*^9, 3.5797852419324827`*^9, 3.5797852960775795`*^9, 3.5797853872907968`*^9, 3.579785492691826*^9, 3.5797855895263643`*^9, 3.579785657866273*^9, 3.5828658250917997`*^9, 3.5828658954635487`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"cffit", "=", RowBox[{"LinearModelFit", "[", RowBox[{ SubscriptBox["cxsns", "1"], ",", RowBox[{"{", RowBox[{"1", ",", "x", ",", RowBox[{"x", "^", "2"}], ",", RowBox[{"x", "^", "3"}], ",", RowBox[{"x", "^", "4"}], ",", RowBox[{"x", "^", "5"}]}], "}"}], ",", "x"}], "]"}]}]], "Input", CellChangeTimes->{{3.5791813273132887`*^9, 3.579181334123678*^9}, { 3.579181404681714*^9, 3.5791814860953703`*^9}, {3.5791817013796844`*^9, 3.5791817474793205`*^9}, {3.579181795007039*^9, 3.5791818203554893`*^9}, { 3.579182264661902*^9, 3.5791822680070934`*^9}, 3.5797850975792265`*^9}], Cell[BoxData[ TagBox[ RowBox[{"FittedModel", "[", TagBox[ PanelBox[ TagBox[ RowBox[{"47.57767059880732`", "\[VeryThinSpace]", "-", RowBox[{"72.06568749634283`", " ", "x"}], "+", RowBox[{ RowBox[{"\[LeftSkeleton]", "17", "\[RightSkeleton]"}], " ", RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}]}], "-", RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], "+", RowBox[{"3.282146057728548`", " ", SuperscriptBox["x", "4"]}], "-", RowBox[{"0.2420706836839209`", " ", SuperscriptBox["x", "5"]}]}], Short], FrameMargins->5], Editable -> False], "]"}], InterpretTemplate[ FittedModel[{ "Linear", {47.57767059880732, -72.06568749634283, 48.3665028867703, -17.581840528869268`, 3.282146057728548, -0.2420706836839209}, {{$CellContext`x}, { 1, $CellContext`x, $CellContext`x^2, $CellContext`x^3, \ $CellContext`x^4, $CellContext`x^5}}, {0, 0}}, {{1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.}}, {{0., 47.95611011765464}, {0.3, 28.94785292744239}, {0.6, 18.5046502557762}, {0.9, 11.751098987766504`}, { 1.2, 6.741042536212179}, {1.5, 3.516635370633196}, {1.8, 1.7135764463170622`}, {2.1, 0.398886668794717}, { 2.4, -0.3608001312183773}, {2.7, -0.5702731427699446}, { 3., -0.6517743354861443}, {3.3, -0.7647974617568368}, { 3.6, -0.7367258407455505}, {4.6, -0.814933605437882}}, CompressedData[" 1:eJxTTMoPSmViYGDgA2I2Bhj4YM9AEvhgbwwGl+25ri8usOXabn/z3Pfgx0tn 2zc9Oj5j97QG+zl33geIvEi2R1X/GKr+OlT9aaj6A1D1m+Hqz54BgTf2bwJ3 yLW+fmnfIQbS8dx+3a+Y3KP/nthnrbvs4f30EZr5n6Hmf4ea/xtqPoMDxHxm B1T//oDSTFBxbgjtIAKhE+Tg6iHu+QN1D6cDxD3iDhD3qDhA3GOEpp7BYQnI t4sFHYSbD5xa2KrkkBtWu25bkbHD57Nm5suyXeDqIe5ndoC4X9wB4n5tB4j7 HaDuD4arnzUTBFgdtGL6D33VkHVg1m4Xu7nO2MF1bea9wkleDv3vFMqWvU9E 8y8HlK8Epa2h/g2B+jcPrj4NDLgc3B9Wiaw7rurAp7tp7vvvjg6df1O/P1ka 66D1sWHTytIKNP/yOEDCRxMaPu7Q8EmBhk8TmvlCDhpg95s66N5VYWsMjXCI +uf86+3vaoflEs/zncQXOAAAYzT1/g== "], Function[Null, Internal`LocalizedBlock[{$CellContext`x}, #], {HoldAll}]]& ], Editable->False, SelectWithContents->True, Selectable->True]], "Output", CellChangeTimes->{ 3.5791814873034396`*^9, 3.5791815217414093`*^9, {3.579181732449461*^9, 3.5791817481373587`*^9}, {3.579181795392061*^9, 3.5791818209135213`*^9}, 3.579182163514117*^9, {3.5791822604046583`*^9, 3.5791822682471075`*^9}, 3.5791823078223705`*^9, 3.579694066639558*^9, 3.579759229686723*^9, 3.579759364465919*^9, 3.5797655506278553`*^9, 3.5797658233352394`*^9, 3.5797659206173763`*^9, 3.579765971096447*^9, 3.579766616538356*^9, 3.5797667026224775`*^9, 3.5797667530995483`*^9, 3.5797668635937037`*^9, 3.5797669280027943`*^9, 3.5797670414629545`*^9, 3.5797719464459243`*^9, 3.579772033939048*^9, 3.5797722274593215`*^9, 3.5797725086437197`*^9, 3.5797764275073576`*^9, 3.579776621059634*^9, 3.579776675296712*^9, 3.579785190254527*^9, 3.5797852423855085`*^9, 3.579785296104581*^9, 3.5797853877518234`*^9, 3.579785492720827*^9, 3.579785590014392*^9, 3.579785657902275*^9, 3.58286582514314*^9, 3.58286589551637*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"ListLogPlot", "[", RowBox[{ SubscriptBox["xsns", "1"], ",", RowBox[{"ImageSize", "\[Rule]", "Full"}], ",", RowBox[{"PlotRange", "\[Rule]", "Full"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}], ",", RowBox[{"LogPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ffit", "[", "x", "]"}], ",", RowBox[{"cffit", "[", "x", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1"}], ",", "3"}], "}"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.5791757747016973`*^9, 3.579175840767476*^9}, { 3.579175871833253*^9, 3.5791759187039337`*^9}, {3.5791759674067197`*^9, 3.579175972234996*^9}, {3.5791763159606557`*^9, 3.579176349450571*^9}, { 3.5791804249846783`*^9, 3.579180460933735*^9}, {3.579180649161501*^9, 3.5791806584580326`*^9}, {3.579180702980579*^9, 3.5791807183024554`*^9}, { 3.579180771234483*^9, 3.57918078692638*^9}, {3.579180906769235*^9, 3.579180974289097*^9}, {3.579181494923876*^9, 3.579181607457312*^9}, { 3.579181751599557*^9, 3.5791817842384233`*^9}, {3.579182275627529*^9, 3.5791822814518623`*^9}, 3.5791823374800673`*^9, {3.5796939501433935`*^9, 3.5796939515433955`*^9}, {3.579694034865513*^9, 3.5796940761805716`*^9}, { 3.579694135028654*^9, 3.5796942134197645`*^9}, {3.579785102691519*^9, 3.579785104897645*^9}, 3.582865852660385*^9}], Cell[BoxData[ GraphicsBox[{{{{}, {{}, {RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[{{0., 4.014579593753238}, {0.3, 3.5515312629627127`}, {0.6, 3.1513105053724346`}, {0.9, 2.7578980068297776`}, {1.2, 2.299246191728531}, {1.5, 1.8055527913603908`}, {1.8, 1.33500106673234}, {2.1, 0.7014459833746404}, { 2.4, -0.14310084364067344`}, {2.7, -0.676617878608735}, { 3., -1.0262916270884836`}, {3.3, -2.014903020542265}, { 3.6, -1.6519975268528964`}, { 4.6, -3.7578723256008884`}}]}, {}}, {}}, {}}, {{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVkXk4lHsfh8fMPM+MbRjrSCG0WTotJ7v3+ZYkKVHEKSFRIiqpJpKlTQvZ q9HR4qASOpE6evn9MOF0EBlMi33Jmi1yLHl7//hc9z/3H/d1fZZ6HdvlQ6fR aPE/93+6nTcQLSyMoEK74Q5ne2VoHbeRn5gcQfHmjOTa7crgefjg9t7BEWSf cmadjZ0y+DgIhNXNI8jtSoiByVZlCNRmv7iTN4LC/ToXq21ShsiKruT1HiPo 4Rwx0rRBGTI5qS6HS76i1IDVLpuWKMNomuSn2nPD6NPRwdXiQSV48lhVdKF8 AFU+8zW4Fq4ElhFtKwNN+tD6nNKrMzwlCGyOltYo6kFfVyR1qeYrwhvewfZ8 ogsNxMNtVStFmFz2XT48vB0VTlRdX/dBAW6Z8Q97Xv6E1oU45814K0C43puq HSua0L7tM5onx7ig9vxSR4ZuPare51wXfJELC+oOxYn+lUhb2//iDxkueJDT 271iitDQP47hrnflIefQMdPlWQIUuOfF6lEDeXjKCLKkGnOoXpU14TqH5GAr WpjKvVxKGdc6fJaL5IC0c5vz6ePV1KKU3JPGV2TBIPhuSWJiA2XoKhp4GicD WpmNgsgEMVX2MsW++7E0VDFyEtLnWyhTDXrbRK4UtHlHHzG83EHR1eTK/YWS ULD/qmq6VTdldGbMESrYMNj4yHj3t17K+Kq0xHg1C2yjOHM1p/upYA20rLKb hMjNVrVevwxRdmGiD1n9BLSblWwu++srxXKd4NYsMMFRnK2SmzpKOZ3pjueo M0FTo50bPTlGHRnXt7bVYQDtvLGHjckE5TTve0/Vgg61vqfzFVO+US9v5O36 FyTAPlEIYcOT1P6W394p2tKgo3mDVrXhd6oxrGibD/pBHciKJVdenaboS1MN eovnqG9xUtSRmn8pd5YJvVg0Q5kWJT+zkZ6lHlpqtDzrm6b8Atmr1nvPUWoS Z/t24ikqzyJtgpE5T7XH+GY8zfxGdSSrv+mgL1Av7su0D8M4lch0D96lS4Mk 1rX2f0pGKE7ri4d0IQ3kpBJt/UsGKFpYpJPpCQkQHfugHvOxm5p95J7XqUCH HF59HS+thQoQ5MUolNGBd/7VmPjfGuqVfjSbG8iAnRkfreL2p6C1ItWahOMM SMzcWJ5yVoCenMuKVzrJgHKfGd70rTT0e03FIh6fAUbjmb6DAeko6hhhqBnF gBpr4Vp9nI125Ec5GqYwIEQg+ox2FqJOszCBbQkDFu4JxMsby5HMtiCDKA4T Cq6UNMdpNqDUUjlpMy4T7lmrSHQFNSA905z+MUUmPPZa8zGoogHZruzLPKDG hAejMVo7AkXoMum+dKMuE+KHdERTuBEtlNmq0MyYEPDnWCE/SIzGzZfSzvsw AfeLWiwkW1FkfknrBl8mWKhuilPyaUXy+m7Fw35MeCLyWGJS2opWL7oVsv84 E4ZcLNu8Q9qQ/7TMpEUoE/Qsv8yu5bej7oLp/tk4JqzN+PtW0WQHajasazj7 XybMxAeVynN7kGCQG8ZATHBunhZ3Qg9yf7x7eUwpEyiLP5+0Hu9B3brN/PsV TPC5v7HQqb4Hjau3Lqms+9mf+369VVIvkpEaOqzUw4RTaUjrpHYf2tjLmsuV JYC94VXsA69BxPzDNsNEngD+VDFnz+1BVHXgun2ZAgFMDl8TageRfQvnQaMq AZnnassLzYaQm0h5y9xSAg66PF5mrjKMTpfpxNkaEaC+u8qEI/6KstMo3W53 Anh2HLar9Rj6GjLBOnCAgOr+8qETB8fQGpeswZaDBHC2uW7OjRxDhXJy+c2+ BHRftM66WTKGcETrxn+CCLhqs4G1YDqOmrzCPJ5fJuC+jrlbl/EEoq94LYjI JeB2kpewYNcksmYcOz//jID3jemOXacmUXSbtldIPgE2Dx76b7oziWRvX1sV /IoAlXeC1KT2ScST3PvqcBkBn+2+99w5MYUMB6cb7ZsIGBv/y6Ho9+/INc+I u+QHAV4y1z880plBz/ZOc+poJJTuyuaNOM4gSbJI5gKDhFC7xeoxETOoyM2S 3c8mwcjzhV1T6wxaLLV5oUCRBD2/s+VV92ZRh7fj8PZVJAR91pnO/XUemckr Di7okyCzuIVremQeJbwW9T1fTcJr/tf3xmnzaLOCazfvVxLUJmgRdyV/oEzk /qn7PyRc2LdSxab3B/JbdPTvc04kRE9F7Klwo+GyN4aVv7iQcJ0dFeIQSsPq J0aEnb+RMKAlGWQgoOHqyiC81YME7ef38jrENLz61NmXSn4kcNd8On5urwQe f3c542k4CQYBZV9SjtPxttCt6R5RJJCOqoYuyXScvlzqgcIlElq8Nl1KLKJj p7CYu/xrJPBvnD56k2TgQr2kxM3JJGgIpzxYGQwceulB5OcnJHyJ9bfYRSMw +wxr24EcEuQX0TO79Amc5Bug0JtHQna2bpShK4Fz7UzTRwpIiNF8e5rMJ3A7 t15IRyQU7/iz8lEQiQMYxjFXSkmY2zsw0/QHiWe+3XWWEf7sNzeslRCTWFHs 26v8Nwl7w12KQzay8JY0GntVAwmwJaX3kDYbN9w8VJfTSMKN2Bq9rv1s7BlZ fXudmIQlkVUJ7wRsfNb79iqLFhJ+9RtYsU1NEpN7fozhtp9+T/RhYp8kTrDx LrLuJMHGXHbf9TRJ/FRvjd3OLyRsFfDREX0pbLo4RVHUT8KKWywP+ikpXCE7 98l16Of/b53qe7EUbhutPOo1RoKgKcjC3FMaK7z0iD01S8IjYV5nTZkMvvfo zZ6ZeRJGLGIDj+nKYgOBvmY4jQVDrqMtjtdksXXY97xoggU7PB0uxnlz8PvA /XxZNgtM4ztOffvAwe6e5ZAgxYLq9t/fPnOWw3yrm/WpcizIjpCtL1grj5kb Ju9oKbBg1ORh/ItQeRy/fJ9XhhILgi8ajU+8lccavFI9PVUW+NtXWW3R4uIn kismctVY8DZLu67oHBcbz954vX4xC+pjm41zOrhYODR+4ZUGCyx3n+F9cVDA Dq2u2y2XsiDWMHS2oVoBt7wrUSrTYYFwyFNR7KqIczyTjdbpsqDdo+/7x2BF /D+y40JP "]]}, {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV0fk/lGsfwPH7vmXPPqVSllBDlHbarm9RKDJTikqUUk/SaHEYhDiW9mRJ USpKluyRJa6bSllPKoOMrVBpMvYly5zz/PB5vf+Aj5az+x4XiiCIG//1fx38 DT6LRELML7qz0XCcAW2D5opDI0J8uoxQuD/KgCMnj1n1/BLiM8k972VGGODC in1T0yjENZIa/d8HGMBZLJV3L1OIWdmKsx//YkBgxbfo1U5CrKLB4cq3MyBJ Ps7uZGkfZqc2z+W9ZUB/vHRL3cXf2G+xssy8SAakpqh+/vt1L675YG2Urs2A zZfamRzjH1hK8FKqu1AFOI2XZdWLunF8Wc2LUJYKvJ13rCNX/Bsu66FX2POV YUR3TDEgoANn5/FLtTjKELOBe/JIaAu+JnksvHhYCQL03763XsrDycxL12/6 KsH8nJDOpzr1mO8eMVEqpQQiNVZJ5Ol3WNWmsYF1VRGcJMatnG8U4duODW2+ yoqQfsLdZMmzWGy1K8EhY50CPBc7vxk1pKMs+Z7dXkbyYIFFoxmhZcikb2Pe GWM5kN3Xvs/zbA1K4AapEczZYOBxvzQy8hMK8uz3UpkvC5pJDbGBEU1oh7Ds J2e+DLwXS49InG5FWE/7iiIpDe3HL58yDO1Elctou7hxSXhx+IpqomkX6uRu 6DBolIBfDcnr9w73oBcK6k4mBeJgGSQ/Vev5E+nED1iqps6CQDPTOucVApR2 24x9OUgMOjaUmpUX9iEz8+3iwtMUsJvS5mbE9aMtzk0HFOxJ0FDvULo8MoBi /uIdMNIjgPBf72RuPIT0bZMPtDFmUN3/PHNV7gyjhafW5vLiJtHuyDfg93sE /b5uMrhGYwJ1Nq7VrDEcQymqKW//Kh5FR5/dlGBeGUe3chfEN0sPo+FwGXSq dgLp2ZWYarsMIJOi6Cxz2Um0spm9TN3iN3LlSOmtPj6F+KPX2yzqelDmpvgh saRp1Cwtco9e2IEYq7pcvdKmEZ20KCdush1xl+p/7c2aRpVhj173lrSjbcr5 H+qLp1FV/IX3i7e1I9732vSH9dPIt2Sr8bBFG5qKmD65cXoaHdw9T7bXho8s fjrwz9vOoM5z5cFntzahzmi1t52UCL1K1Q7P3vEPylBNrR+XFKEdYdSuJXQd unjPuE1BToTcPlQ0IJM6NPfBvrHNqiLU18GscdSvRTuf3NKLXSZC9bkSEyZS 1SgnR+zmHlsROjqU/Kg2uwIF//Nr/+unIhRzwXYymlOM2GyfY19SRSh051Hf EfMipP5J6uxApgjdinodzdEsRAU83SsaRSIUtnXKM6kuHwlanYp960RIpVPi y4RGDton+KSxZkyEHvFHP0vrPUaRsxw99ugQMDrkUVsUkYTHj6murV9CQK2N dYsPIwU7vv4wYvPf19JZ5eB9Nw3rB5l6WS8nYPeCL7YJe7NwuYjpY2FMQL3i yu3ss3l48M9QwBYrArxcNk5c/YYxa+DKNX0PAvTy59R3fq3C+SxTqxRPAiJc omLGYqrxwqyp2UxvAjIeC8VrrWvwD477TV1/Al7q5O8vLa7FlwS2tzUvE7C6 2dCBy/qAM79rxMy9TwCnb9bm5ZafsHxbXgL1hgCByrLwpPBmfHW2n9/LCgI2 8+Nz9KkvWGKjmb1bJQG6we+CrTy+4OmYj3K8OgLc/qxXPXewBQvYQm5KMwHx 19breC1vxVVvmTYsIQHe2/MNsn07cFh63OSDBSQ0O8W0Wt7qwhTfmbdnEQl3 iL15Gz53YX8Z/WxJTRJ2CXJTns7vxp4nC06c0yWhN7T/4sDTbnxCq6HezIgE VVH38btverBZtHzyr+0kiPvESsgs/IkJv0Bbk3MkzF+oXjW0vQ9nDQgm8AUS Xk8oVg3c7cNHTtg/3OFJwu5crfAUQR+mbVb07vUloT7OK9v2jhBfWtwawAkh QVh5MSzQux+L3hmnJd4jYfac4q7C3gGcsekJS/8+CS8XtupOLRjEjtkKo1nx JOgqqcvhXYO4NLYHShNJCMnM437MGMT+Z6J4TekkUMdzjcN8h/CMcj8pX04C h3FU23LVCM4IO/Qs6g0JaiuLUla6jWDHqQortXckdH7qVWpKGsGl3Q9imDUk fCjxi7igPor9CnYZmvJIML/ODghRHcMGhi8/VjaR4Ps8SzBpN4b5jxdzWS0k RGc+f3nk3hjedG2i/HAHCZqJMotUNMbx1OFn9txeEpQqTAtF6ybw84/KMzMC Egxzv92rDpjADub+iSFCEuwsm+9WV07gV0b7+iKGSTClgxsij/7BF8XEgtNn SBiubLoR93gSG3A5emtICrzKxi0PjUxivqC5rkiMgr3bS/IKdk7hTbys+e+l KIi0K7S//WcKTyY7Zn5VpmB9+KOMlrMzmBY0ch7OoeCQ9devFH8GhxqxlzvM o0DNhclqsRRh5QLT9IZFFHxfs79tgSpBN02+covQpEDx/t8WIXsIOh6tM7DR pkDW+l5g3C2C1n/HTHvPpMCgr6J6tQJJ98skuIYso8DVPHNrP5uk83er6W9b ToH2nLSR2jskvZUnl1K8moIEi8IXwUsp2r57MCljCwU+5JkdpKsYra7nduL0 Vgp+yFckNpeL0V1u3bpMMwoqAg1MwjVm0e7DjU8eW1KQkyRIntMzi15jzD7u aEVBuzf96h1LnP7jW6WtZkNBXOUWWqdMnA4VK0mIsqVgic2Vi1F5ErSV+Tpn th0Fdd9TC2w3StLK1zK15A9SIKZVpmNYJUk31TE7qxwoCCov9PQ8JkU/UE54 FOZEgbCaq8GXkqad96sdMXOmQMtfZa73K2maGRulQbpQIBpa60gFytB9rXLt JScpsAo9Mil5UJZ+oRUW7+NKAYdXtcrBajbt40I4rj9DwWCsXRd2lKMhxXvR sDsFNtx+XUacPC3xe5CfdZ6Cm1WdXWwpRbrayO3+mb8ouJbxKCBAoEiHe3Qf 0udS0Py1qWlYSZleet31e4gPBR1OP8a+eKjQ/wLGRUua "]]}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["\"Schichtdicke in mm\"", TraditionalForm], FormBox["\"Z\[ADoubleDot]hlrate in Bq\"", TraditionalForm]}, AxesOrigin->{0., -3.7578723256008884`}, CoordinatesToolOptions:>{"DisplayFunction" -> ({ Part[#, 1], Exp[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Part[#, 1], Exp[ Part[#, 2]]}& )}, FrameTicks->{{{{-4.605170185988091, FormBox["0.01`", TraditionalForm]}, {-2.3025850929940455`, FormBox["0.1`", TraditionalForm]}, {0., FormBox["1", TraditionalForm]}, {2.302585092994046, FormBox["10", TraditionalForm]}, {4.605170185988092, FormBox["100", TraditionalForm]}, {-3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.506557897319982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.659260036932778, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.5257286443082556`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.407945608651872, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.203972804325936, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.916290731874155, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.5108256237659905, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.35667494393873245`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.2231435513142097, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.10536051565782616`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, {{-4.605170185988091, FormBox["\"\"", TraditionalForm]}, {-2.3025850929940455`, FormBox["\"\"", TraditionalForm]}, {0., FormBox["\"\"", TraditionalForm]}, {2.302585092994046, FormBox["\"\"", TraditionalForm]}, {4.605170185988092, FormBox["\"\"", TraditionalForm]}, {-3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.506557897319982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.659260036932778, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.5257286443082556`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.407945608651872, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.203972804325936, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.916290731874155, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.5108256237659905, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.35667494393873245`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.2231435513142097, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.10536051565782616`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}, {Automatic, Automatic}}, GridLines->{None, None}, ImageSize->Full, Method->{}, PlotRange->{{0., 4.6}, {-3.7578723256008884`, 4.014579593753238}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}, Ticks->{Automatic, {{-4.605170185988091, FormBox["0.01`", TraditionalForm]}, {-2.3025850929940455`, FormBox["0.1`", TraditionalForm]}, {0., FormBox["1", TraditionalForm]}, {2.302585092994046, FormBox["10", TraditionalForm]}, {4.605170185988092, FormBox["100", TraditionalForm]}, {-3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.506557897319982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.659260036932778, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.5257286443082556`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.407945608651872, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.203972804325936, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.916290731874155, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.5108256237659905, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.35667494393873245`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.2231435513142097, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.10536051565782616`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}]], "Output", CellChangeTimes->{{3.579694194766738*^9, 3.579694214769766*^9}, 3.5797592298867235`*^9, 3.5797593647659197`*^9, 3.579765550947856*^9, 3.5797658235852394`*^9, 3.579765920817376*^9, 3.579765971426448*^9, 3.5797666167483563`*^9, 3.5797667028324776`*^9, 3.579766753389549*^9, 3.579766863793704*^9, 3.5797669282227945`*^9, 3.5797670417829547`*^9, 3.579771946740925*^9, 3.579772034234048*^9, 3.5797722277593217`*^9, 3.57977250894872*^9, 3.5797764278023577`*^9, 3.579776621584635*^9, 3.579776675581712*^9, 3.579785190878563*^9, 3.5797852429205394`*^9, 3.5797852963655963`*^9, 3.5797853883628583`*^9, 3.5797854930048437`*^9, 3.579785590577424*^9, 3.5797856581802907`*^9, 3.58286582535532*^9, 3.5828658615591917`*^9, 3.582865896075447*^9}] }, Open ]], Cell["\<\ Die hier angesetzten Fits sind Polynome in 5. Ordnung. Die Fehlerkurve wurde \ aus den entsprechenden statistischen Fehlern extrapoliert. Wir lesen ab:\ \>", "Text", CellChangeTimes->{{3.5796259719110885`*^9, 3.579626129852311*^9}, { 3.5796845677081814`*^9, 3.5796845713581867`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["d", "max"], ",", SubscriptBox["\[CapitalDelta]d", "max"]}], "}"}], "=", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"2.88", ",", "0.6"}], "}"}], ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.5796845736991897`*^9, 3.5796846863433485`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"2.88`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )], ",", TemplateBox[{"0.6`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.579684688623351*^9, 3.5796940669595585`*^9, 3.579759229956723*^9, 3.5797593648159194`*^9, 3.579765551007856*^9, 3.5797658236552396`*^9, 3.5797659208873763`*^9, 3.579765971476448*^9, 3.5797666168183565`*^9, 3.5797667029024773`*^9, 3.579766753509549*^9, 3.579766863863704*^9, 3.5797669283027945`*^9, 3.579767041842955*^9, 3.579771946800925*^9, 3.579772034289048*^9, 3.5797722278243217`*^9, 3.5797725090137205`*^9, 3.579776427862358*^9, 3.5797766216446347`*^9, 3.5797766756467123`*^9, 3.579785190947567*^9, 3.5797852430125446`*^9, 3.5797852964235992`*^9, 3.579785388443863*^9, 3.579785493064847*^9, 3.5797855906314273`*^9, 3.5797856583002977`*^9, 3.582865825427908*^9, 3.582865896281458*^9}] }, Open ]], Cell["\<\ Daraus l\[ADoubleDot]sst sich jetzt die Fl\[ADoubleDot]chendichte ermitteln. \ Wir m\[UDoubleDot]ssen zus\[ADoubleDot]tzlich die Fensterdicke ber\ \[UDoubleDot]gsichtigen, welche aus Edelstahl und Silber besteht.\ \>", "Text", CellChangeTimes->{{3.5796864850598793`*^9, 3.5796865325869465`*^9}, { 3.57968656356199*^9, 3.579686597096037*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox[ OverscriptBox["R", "\[Beta]"], "ES"], "=", RowBox[{"Quantity", "[", RowBox[{"0.130", ",", FractionBox["\"\\"", RowBox[{"\"\\"", "^", "2"}]]}], "]"}]}]], "Input", CellChangeTimes->{{3.5796866035970464`*^9, 3.579686782815299*^9}, { 3.5796868435643845`*^9, 3.579686857976405*^9}}], Cell[BoxData[ TemplateBox[{"0.13`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", SuperscriptBox["\"cm\"", "2"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: grams per centimeter squared"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Grams\"", SuperscriptBox["\"Centimeters\"", "2"]]}], "]"}]& )]], "Output", CellChangeTimes->{{3.5796866874001646`*^9, 3.5796867230942154`*^9}, { 3.579686766803277*^9, 3.579686778354293*^9}, {3.5796868510353956`*^9, 3.5796868586664057`*^9}, 3.57968828277641*^9, 3.579694067029558*^9, 3.5797592300367236`*^9, 3.5797593649059196`*^9, 3.5797655510878563`*^9, 3.57976582374524*^9, 3.5797659209673767`*^9, 3.579765971566448*^9, 3.5797666169083567`*^9, 3.579766702982478*^9, 3.5797667535995493`*^9, 3.5797668639437046`*^9, 3.579766928392795*^9, 3.5797670419229555`*^9, 3.579771946875925*^9, 3.579772034369048*^9, 3.579772227899322*^9, 3.5797725090987206`*^9, 3.579776427942358*^9, 3.579776621734635*^9, 3.5797766757317123`*^9, 3.5797851910345716`*^9, 3.5797852430965495`*^9, 3.5797852965106044`*^9, 3.5797853885208673`*^9, 3.5797854931508512`*^9, 3.5797855907064314`*^9, 3.5797856583853025`*^9, 3.582865825521352*^9, 3.582865896349259*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[Rho]", "Al"], "=", RowBox[{"Quantity", "[", RowBox[{"2.7", ",", FractionBox["\"\\"", RowBox[{"\"\\"", "^", "3"}]]}], "]"}]}]], "Input", CellChangeTimes->{{3.5796869534475393`*^9, 3.579686958678547*^9}, { 3.579687027097643*^9, 3.5796870465596704`*^9}}], Cell[BoxData[ TemplateBox[{"2.7`"}, "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.5796870473306713`*^9, 3.5796882864264154`*^9, 3.5796940670995584`*^9, 3.5797592301167235`*^9, 3.57975936498592*^9, 3.579765551167856*^9, 3.57976582383524*^9, 3.579765921037377*^9, 3.579765971646448*^9, 3.5797666169883566`*^9, 3.5797667030724783`*^9, 3.579766753669549*^9, 3.5797668640237045`*^9, 3.5797669284727955`*^9, 3.579767042003955*^9, 3.579771946945925*^9, 3.5797720344390483`*^9, 3.579772227969322*^9, 3.5797725091787205`*^9, 3.579776428022358*^9, 3.579776621809635*^9, 3.5797766758167124`*^9, 3.5797851911195765`*^9, 3.579785243184554*^9, 3.57978529660861*^9, 3.5797853885918713`*^9, 3.579785493233856*^9, 3.579785590815438*^9, 3.579785658462307*^9, 3.582865825595873*^9, 3.582865896418036*^9}] }, Open ]], Cell["Es gilt nun:", "Text", CellChangeTimes->{{3.5796868714184237`*^9, 3.5796868738284273`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["R", "\[Beta]"], ",", SubscriptBox["\[CapitalDelta]R", "\[Beta]"]}], "}"}], "=", RowBox[{ SubscriptBox[ OverscriptBox["R", "\[Beta]"], "ES"], "+", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["d", "max"], ",", SubscriptBox["\[CapitalDelta]d", "max"]}], "}"}], "*", SubscriptBox["\[Rho]", "Al"]}]}]}]], "Input", CellChangeTimes->{{3.5796868932004547`*^9, 3.5796869359355145`*^9}, { 3.5796871099487596`*^9, 3.5796871581658278`*^9}, {3.579688149757223*^9, 3.5796883054394426`*^9}, {3.5796883534345098`*^9, 3.579688440285632*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"0.9076000000000001`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", SuperscriptBox["\"cm\"", "2"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: grams per centimeter squared"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Grams\"", SuperscriptBox["\"Centimeters\"", "2"]]}], "]"}]& )], ",", TemplateBox[{"0.29200000000000004`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", SuperscriptBox["\"cm\"", "2"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: grams per centimeter squared"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Grams\"", SuperscriptBox["\"Centimeters\"", "2"]]}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{{3.5796884301646175`*^9, 3.579688441225633*^9}, 3.5796940674495587`*^9, 3.579759230486724*^9, 3.5797593653559203`*^9, 3.579765551537857*^9, 3.5797658242152405`*^9, 3.579765921397377*^9, 3.5797659720264482`*^9, 3.579766617368357*^9, 3.5797667034434786`*^9, 3.5797667540495496`*^9, 3.5797668644037046`*^9, 3.579766928862796*^9, 3.5797670423739557`*^9, 3.5797719473209257`*^9, 3.579772034814049*^9, 3.579772228355323*^9, 3.5797725095637207`*^9, 3.5797764284033594`*^9, 3.579776622174636*^9, 3.579776676202713*^9, 3.579785191491598*^9, 3.579785243573577*^9, 3.579785296992632*^9, 3.5797853889508915`*^9, 3.579785493608878*^9, 3.5797855913294673`*^9, 3.5797856588333282`*^9, 3.5828658259941473`*^9, 3.5828658968258657`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["R", "\[Beta]"], "\[PlusMinus]", SubscriptBox["\[CapitalDelta]R", "\[Beta]"]}]], "Input", CellChangeTimes->{{3.5796886869639797`*^9, 3.579688716337021*^9}}], Cell[BoxData[ RowBox[{ TemplateBox[{"0.9076000000000001`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", SuperscriptBox["\"cm\"", "2"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: grams per centimeter squared"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Grams\"", SuperscriptBox["\"Centimeters\"", "2"]]}], "]"}]& )], "\[PlusMinus]", TemplateBox[{"0.29200000000000004`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"g\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", SuperscriptBox["\"cm\"", "2"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: grams per centimeter squared"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Grams\"", SuperscriptBox["\"Centimeters\"", "2"]]}], "]"}]& )]}]], "Output", CellChangeTimes->{3.5796887174970226`*^9, 3.579694067559559*^9, 3.5797592306167245`*^9, 3.5797593654759207`*^9, 3.5797655516778564`*^9, 3.5797658244952407`*^9, 3.5797659215173774`*^9, 3.579765972136449*^9, 3.5797666174983573`*^9, 3.5797667035734787`*^9, 3.5797667541595497`*^9, 3.5797668645237055`*^9, 3.579766929002796*^9, 3.5797670424839563`*^9, 3.579771947490926*^9, 3.5797720349310493`*^9, 3.579772228535323*^9, 3.579772509748721*^9, 3.5797764285183597`*^9, 3.579776622294636*^9, 3.579776676327713*^9, 3.579785191643606*^9, 3.579785243703584*^9, 3.5797852971716423`*^9, 3.5797853890658984`*^9, 3.579785493782888*^9, 3.5797855914974766`*^9, 3.5797856589453344`*^9, 3.582865826148179*^9, 3.582865896944056*^9}] }, Open ]], Cell["\<\ Mithilfe des Diagramms im Anhang der Praktikumsanleitung ergibt sich die \ Maximalenergie:\ \>", "Text", CellChangeTimes->{{3.579688961691366*^9, 3.5796889811153936`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["T", "max"], ",", SubscriptBox["\[CapitalDelta]T", "max"]}], "}"}], "=", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"2.00", ",", "0.25"}], "}"}], ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.579689002018423*^9, 3.579689105202568*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"2.`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"MeV\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: megaelectronvolts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Megaelectronvolts\""}], "]"}]& )], ",", TemplateBox[{"0.25`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"MeV\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: megaelectronvolts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Megaelectronvolts\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.5796891062025695`*^9, 3.5796940675995593`*^9, 3.5797592306867247`*^9, 3.5797593656259203`*^9, 3.5797655518078575`*^9, 3.579765824615241*^9, 3.579765921557378*^9, 3.579765972236449*^9, 3.5797666175583572`*^9, 3.579766703623479*^9, 3.57976675420955*^9, 3.579766864593705*^9, 3.579766929052796*^9, 3.579767042583956*^9, 3.5797719475309258`*^9, 3.579772035026049*^9, 3.579772228575323*^9, 3.579772509793721*^9, 3.5797764286233597`*^9, 3.5797766223346357`*^9, 3.579776676437713*^9, 3.579785191722611*^9, 3.579785243755587*^9, 3.579785297218645*^9, 3.579785389108901*^9, 3.579785493838891*^9, 3.57978559154548*^9, 3.579785658982337*^9, 3.582865826196075*^9, 3.582865896987194*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["T", "max"], "\[PlusMinus]", SubscriptBox["\[CapitalDelta]T", "max"]}]], "Input", CellChangeTimes->{{3.579689210115716*^9, 3.57968922738774*^9}}], Cell[BoxData[ RowBox[{ TemplateBox[{"2.`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"MeV\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: megaelectronvolts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Megaelectronvolts\""}], "]"}]& )], "\[PlusMinus]", TemplateBox[{"0.25`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"MeV\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: megaelectronvolts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Megaelectronvolts\""}], "]"}]& )]}]], "Output", CellChangeTimes->{{3.579689212165719*^9, 3.5796892279977407`*^9}, 3.5796940676295595`*^9, 3.5797592307367244`*^9, 3.5797593656859207`*^9, 3.579765551867857*^9, 3.579765824705241*^9, 3.5797659216073775`*^9, 3.579765972286449*^9, 3.5797666176183577`*^9, 3.5797667036934786`*^9, 3.57976675424955*^9, 3.5797668646437054`*^9, 3.579766929102796*^9, 3.579767042623956*^9, 3.5797719475709257`*^9, 3.5797720350660496`*^9, 3.579772228615323*^9, 3.5797725098437214`*^9, 3.5797764286633596`*^9, 3.579776622379636*^9, 3.579776676482713*^9, 3.579785191790615*^9, 3.5797852438055897`*^9, 3.5797852972636476`*^9, 3.579785389148903*^9, 3.5797854938838935`*^9, 3.579785591601483*^9, 3.5797856590193386`*^9, 3.582865826242416*^9, 3.5828658970419283`*^9}] }, Open ]], Cell["\<\ Der zu erwartende Wert kann aus dem Anhang (Abbildung 6) abgelesen werden. \ 99.98% des Yttrium-Zirkonium-Zerfalls (der als einziger gemessen wird) \ produziert Elektronen mit einer Maximalenergie von 2.274 MeV.\ \>", "Text", CellChangeTimes->{{3.5796904306554356`*^9, 3.5796905266985707`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["T", "maxtheo"], "=", RowBox[{"Quantity", "[", RowBox[{"2.274", ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.579690529778575*^9, 3.579690556883613*^9}}], Cell[BoxData[ TemplateBox[{"2.274`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"MeV\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: megaelectronvolts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Megaelectronvolts\""}], "]"}]& )]], "Output", CellChangeTimes->{3.5796905577336144`*^9, 3.5796940676595592`*^9, 3.579759230776725*^9, 3.5797593657259207`*^9, 3.5797655519278574`*^9, 3.579765824745241*^9, 3.5797659216373777`*^9, 3.579765972316449*^9, 3.5797666176583576`*^9, 3.5797667037334785`*^9, 3.57976675427955*^9, 3.5797668646837053`*^9, 3.579766929142796*^9, 3.579767042663956*^9, 3.579771947600926*^9, 3.5797720351010494`*^9, 3.5797722286453233`*^9, 3.5797725098787217`*^9, 3.5797764286983595`*^9, 3.5797766224096355`*^9, 3.5797766765227137`*^9, 3.579785191847618*^9, 3.5797852438475924`*^9, 3.5797852973006496`*^9, 3.5797853891789045`*^9, 3.5797854939258957`*^9, 3.5797855916504855`*^9, 3.5797856590503407`*^9, 3.5828658262927094`*^9, 3.5828658970869513`*^9}] }, Open ]], Cell["\<\ Dieser Wert liegt knapp au\[SZ]erhalb der 1-\[Sigma]-Grenze, passt aber \ trotzdem in den Rahmen unserer Messgenauigkeit. \ \>", "Text", CellChangeTimes->{{3.579690574976639*^9, 3.5796906316767187`*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ 4 Absorbtion von \[Gamma]-Strahlung in Blei\ \>", "Section", CellChangeTimes->{{3.5775272634879866`*^9, 3.577527277840012*^9}}], Cell["\<\ Wir messen erneut den Nullefekt, da die \[Gamma]-Pr\[ADoubleDot]perate \ relativ nah an den Z\[ADoubleDot]hlrohen standen. F\[UDoubleDot]r die eigene \ Messung sollten zwecks des Vergleiches mit dem Nullefekt die \ \[Gamma]-Strahler also nicht zu wesentlich zum Nullefekt beitragen.\ \>", "Text", CellChangeTimes->{{3.577527329726703*^9, 3.57752742448427*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["n", RowBox[{"0", "\[Gamma]"}]], ",", SubscriptBox["\[CapitalDelta]n", RowBox[{"0", "\[Gamma]"}]]}], "}"}], "=", RowBox[{ RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"95", "/", "300"}], ",", RowBox[{ RowBox[{"Sqrt", "[", "95", "]"}], "/", "300"}]}], "}"}], ",", "\"\\""}], "]"}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.5775274341562867`*^9, 3.577527443516303*^9}, { 3.577527802628934*^9, 3.5775278468706117`*^9}, 3.5796912278775587`*^9, { 3.5796912817366347`*^9, 3.5796913144406805`*^9}, {3.5796914492508707`*^9, 3.579691453381877*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"0.31666666666666665`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )], ",", TemplateBox[{"0.03248931448269654`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{{3.5775278429550047`*^9, 3.577527847572613*^9}, 3.579181130626039*^9, 3.5796913164306836`*^9, 3.5796914547318783`*^9, 3.579694067729559*^9, 3.5797592308467245`*^9, 3.5797593658059206`*^9, 3.579765552157858*^9, 3.579765824825241*^9, 3.5797659216973777`*^9, 3.579765972396449*^9, 3.5797666177283573`*^9, 3.579766703803479*^9, 3.5797667543495502`*^9, 3.5797668647437057`*^9, 3.5797669292227964`*^9, 3.5797670427339563`*^9, 3.5797719476559258`*^9, 3.57977203516605*^9, 3.579772228700323*^9, 3.579772509943722*^9, 3.5797764287733603`*^9, 3.579776622469636*^9, 3.5797766766077137`*^9, 3.579785191901621*^9, 3.5797852438975954`*^9, 3.5797852973526525`*^9, 3.5797853892149067`*^9, 3.579785493976899*^9, 3.5797855917134895`*^9, 3.579785659108344*^9, 3.5828658263406677`*^9, 3.582865897138619*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["d", "2"], ",", SubscriptBox["\[CapitalDelta]d", "2"]}], "}"}], "=", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"15", ",", "0.2"}], "}"}], ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.5775280014356833`*^9, 3.5775280494681673`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"15"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"cm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Centimeters\""}], "]"}]& )], ",", TemplateBox[{"0.2`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"cm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Centimeters\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.5775280501233687`*^9, 3.579181130665041*^9, 3.579694067759559*^9, 3.5797592308967247`*^9, 3.579759365875921*^9, 3.5797655522578573`*^9, 3.5797658248952417`*^9, 3.5797659217373776`*^9, 3.579765972436449*^9, 3.5797666177883577`*^9, 3.579766703863479*^9, 3.57976675438955*^9, 3.579766864793706*^9, 3.5797669292727966`*^9, 3.5797670427739563`*^9, 3.5797719476909266`*^9, 3.57977203520605*^9, 3.579772228745323*^9, 3.579772509988722*^9, 3.5797764288183603`*^9, 3.579776622514636*^9, 3.579776676652714*^9, 3.5797851919566245`*^9, 3.579785243947598*^9, 3.5797852973976555`*^9, 3.579785389253909*^9, 3.579785494025902*^9, 3.579785591769492*^9, 3.5797856591663475`*^9, 3.582865826393333*^9, 3.582865897188341*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["Data", "4"], "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{"0", ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"5183", "/", "60"}], ",", "\"\\""}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{"0.5", ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"3488", "/", "60"}], ",", "\"\\""}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{"1", ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"2692", "/", "60"}], ",", "\"\\""}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{"1.5", ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"1947", "/", "60"}], ",", "\"\\""}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{"2", ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"1482", "/", "60"}], ",", "\"\\""}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{"2.5", ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"1076", "/", "60"}], ",", "\"\\""}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{"3", ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"858", "/", "60"}], ",", "\"\\""}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{"3.5", ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"663", "/", "60"}], ",", "\"\\""}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{"4", ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"463", "/", "60"}], ",", "\"\\""}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{"4.5", ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"396", "/", "60"}], ",", "\"\\""}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{"5", ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"301", "/", "60"}], ",", "\"\\""}], "]"}]}], "}"}]}], "}"}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.577528067501799*^9, 3.5775281520539474`*^9}, { 3.5775282202416677`*^9, 3.577528283750379*^9}, {3.5775283826825533`*^9, 3.5775283891565647`*^9}, {3.577528469059905*^9, 3.5775284806039257`*^9}, { 3.57752856270687*^9, 3.577528567012477*^9}, {3.577528679488675*^9, 3.5775286837942824`*^9}, {3.57752877897005*^9, 3.5775287861772623`*^9}, { 3.5775290165272665`*^9, 3.577529142981089*^9}, {3.5791812532910547`*^9, 3.5791812598314295`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"0.`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"cm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Centimeters\""}], "]"}]& )], ",", TemplateBox[{"86.38333333333334`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"0.5`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"cm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Centimeters\""}], "]"}]& )], ",", TemplateBox[{"58.13333333333333`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"1.`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"cm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Centimeters\""}], "]"}]& )], ",", TemplateBox[{"44.86666666666667`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"1.5`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"cm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Centimeters\""}], "]"}]& )], ",", TemplateBox[{"32.45`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"2.`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"cm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Centimeters\""}], "]"}]& )], ",", TemplateBox[{"24.7`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"2.5`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"cm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Centimeters\""}], "]"}]& )], ",", TemplateBox[{"17.933333333333334`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"3.`"}, "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["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"3.5`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"cm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Centimeters\""}], "]"}]& )], ",", TemplateBox[{"11.05`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"4.`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"cm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Centimeters\""}], "]"}]& )], ",", TemplateBox[{"7.716666666666667`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"4.5`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"cm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Centimeters\""}], "]"}]& )], ",", TemplateBox[{"6.6`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"5.`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"cm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Centimeters\""}], "]"}]& )], ",", TemplateBox[{"5.016666666666667`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.5775291438078904`*^9, 3.5791811308770533`*^9, 3.579181260946493*^9, 3.579691543073003*^9, 3.5796940679695597`*^9, 3.579759231116725*^9, 3.579759366115921*^9, 3.5797655526978583`*^9, 3.5797658251252418`*^9, 3.579765921957378*^9, 3.5797659726664495`*^9, 3.579766618008358*^9, 3.5797667041034794`*^9, 3.5797667546095505`*^9, 3.5797668650237055`*^9, 3.579766929492797*^9, 3.579767043003957*^9, 3.5797719479059267`*^9, 3.5797720354310503`*^9, 3.579772228980324*^9, 3.579772510213722*^9, 3.5797764290383606`*^9, 3.579776622729636*^9, 3.579776676887714*^9, 3.579785192192638*^9, 3.5797852442106133`*^9, 3.5797852976306686`*^9, 3.5797853894699216`*^9, 3.579785494257915*^9, 3.5797855920455084`*^9, 3.5797856593943605`*^9, 3.582865826615552*^9, 3.582865897603421*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["CData", "4"], "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["Data", "4"], "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["Data", "4"], "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"QuantityMagnitude", "[", RowBox[{ SubscriptBox["Data", "4"], "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", "\"\\""}], "]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", SubscriptBox["Data", "4"], "]"}]}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5796917659533167`*^9, 3.5796917789543347`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"0.`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"cm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Centimeters\""}], "]"}]& )], ",", RowBox[{"{", RowBox[{ TemplateBox[{"86.38333333333334`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )], ",", TemplateBox[{"9.294263463735755`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"0.5`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"cm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Centimeters\""}], "]"}]& )], ",", RowBox[{"{", RowBox[{ TemplateBox[{"58.13333333333333`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )], ",", TemplateBox[{"7.624521842931092`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"1.`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"cm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Centimeters\""}], "]"}]& )], ",", RowBox[{"{", RowBox[{ TemplateBox[{"44.86666666666667`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )], ",", TemplateBox[{"6.698258480132479`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"1.5`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"cm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Centimeters\""}], "]"}]& )], ",", RowBox[{"{", RowBox[{ TemplateBox[{"32.45`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )], ",", TemplateBox[{"5.6964901474504455`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"2.`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"cm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Centimeters\""}], "]"}]& )], ",", RowBox[{"{", RowBox[{ TemplateBox[{"24.7`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )], ",", TemplateBox[{"4.969909455915671`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"2.5`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"cm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Centimeters\""}], "]"}]& )], ",", RowBox[{"{", RowBox[{ TemplateBox[{"17.933333333333334`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )], ",", TemplateBox[{"4.234776656841932`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"3.`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"cm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Centimeters\""}], "]"}]& )], ",", RowBox[{"{", RowBox[{ TemplateBox[{"14.3`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )], ",", TemplateBox[{"3.7815340802378077`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"3.5`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"cm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Centimeters\""}], "]"}]& )], ",", RowBox[{"{", RowBox[{ TemplateBox[{"11.05`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )], ",", TemplateBox[{"3.3241540277189325`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"4.`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"cm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Centimeters\""}], "]"}]& )], ",", RowBox[{"{", RowBox[{ TemplateBox[{"7.716666666666667`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )], ",", TemplateBox[{"2.7778888866667555`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"4.5`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"cm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Centimeters\""}], "]"}]& )], ",", RowBox[{"{", RowBox[{ TemplateBox[{"6.6`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )], ",", TemplateBox[{"2.569046515733026`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"5.`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"cm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Centimeters\""}], "]"}]& )], ",", RowBox[{"{", RowBox[{ TemplateBox[{"5.016666666666667`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )], ",", TemplateBox[{"2.2397916569776455`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.5796917803743367`*^9, 3.5796940682495604`*^9, 3.5797592314267254`*^9, 3.579759366485922*^9, 3.579765553097859*^9, 3.579765825445242*^9, 3.5797659222673783`*^9, 3.57976597298645*^9, 3.5797666183183584`*^9, 3.57976670440348*^9, 3.579766754929551*^9, 3.5797668653137064`*^9, 3.5797669298027973`*^9, 3.579767043293957*^9, 3.579771948205927*^9, 3.5797720357360506`*^9, 3.5797722292953243`*^9, 3.5797725105237226`*^9, 3.5797764293333607`*^9, 3.5797766230396366`*^9, 3.5797766771977143`*^9, 3.579785192507656*^9, 3.579785244577634*^9, 3.5797852979296856`*^9, 3.579785389777939*^9, 3.5797854945669327`*^9, 3.5797855923635263`*^9, 3.5797856597503805`*^9, 3.58286582691745*^9, 3.5828658979258623`*^9}] }, Open ]], Cell[CellGroupData[{ Cell["Auswertung", "Subsection", CellChangeTimes->{{3.5791810889556556`*^9, 3.579181090769759*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["xs", "2"], "=", RowBox[{ RowBox[{ RowBox[{"Transpose", "[", SubscriptBox["Data", "4"], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "All"}], "]"}], "]"}], "//", "QuantityMagnitude"}]}]], "Input", CellChangeTimes->{{3.5791747741854715`*^9, 3.579174793621583*^9}, { 3.579174861472464*^9, 3.5791749307024236`*^9}, {3.5791749619172087`*^9, 3.5791749620702176`*^9}, {3.5791750000963926`*^9, 3.5791750046616535`*^9}, { 3.5791761175823092`*^9, 3.5791761643529844`*^9}, {3.5791761963138123`*^9, 3.5791762063743877`*^9}, {3.5791811002193*^9, 3.579181103208471*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.`", ",", "0.5`", ",", "1.`", ",", "1.5`", ",", "2.`", ",", "2.5`", ",", "3.`", ",", "3.5`", ",", "4.`", ",", "4.5`", ",", "5.`"}], "}"}]], "Output", CellChangeTimes->{{3.579176147956046*^9, 3.5791761860012226`*^9}, 3.5791762787915297`*^9, {3.5791811035074883`*^9, 3.579181130902055*^9}, 3.5791812626845922`*^9, 3.579691896838502*^9, 3.57969406826956*^9, 3.5797592314667253`*^9, 3.579759366595922*^9, 3.579765553137859*^9, 3.579765825535242*^9, 3.5797659222973785`*^9, 3.57976597301645*^9, 3.5797666183583584`*^9, 3.57976670444348*^9, 3.579766754959551*^9, 3.5797668653537064`*^9, 3.5797669298427973`*^9, 3.5797670433239574`*^9, 3.579771948230927*^9, 3.57977203576105*^9, 3.579772229325324*^9, 3.5797725105587225`*^9, 3.5797764293683605`*^9, 3.579776623069637*^9, 3.5797766772277145`*^9, 3.5797851925686593`*^9, 3.5797852446296372`*^9, 3.5797852979606876`*^9, 3.5797853898049407`*^9, 3.579785494598934*^9, 3.57978559242453*^9, 3.5797856597863827`*^9, 3.582865826979452*^9, 3.582865897969461*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["ns", "2"], "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Transpose", "[", SubscriptBox["Data", "4"], "]"}], "[", RowBox[{"[", RowBox[{"2", ",", "All"}], "]"}], "]"}], "-", SubscriptBox["n", RowBox[{"0", "\[Gamma]"}]]}], "//", "QuantityMagnitude"}]}]], "Input", CellChangeTimes->{{3.579174969747657*^9, 3.5791750219126406`*^9}, { 3.579176226536541*^9, 3.579176228065628*^9}, {3.5791806046509547`*^9, 3.5791806170246625`*^9}, {3.579181142230703*^9, 3.579181145477888*^9}, { 3.5791811880523233`*^9, 3.579181190394458*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "86.06666666666668`", ",", "57.81666666666666`", ",", "44.55`", ",", "32.13333333333333`", ",", "24.383333333333333`", ",", "17.616666666666667`", ",", "13.983333333333334`", ",", "10.733333333333334`", ",", "7.4`", ",", "6.283333333333333`", ",", "4.7`"}], "}"}]], "Output", CellChangeTimes->{3.5791806181327257`*^9, 3.5791811309280562`*^9, 3.5791811913435116`*^9, 3.579181263361631*^9, 3.5796918993895054`*^9, 3.5796940682895603`*^9, 3.5797592315067253`*^9, 3.5797593668959227`*^9, 3.5797655531778593`*^9, 3.5797658255652423`*^9, 3.5797659223273783`*^9, 3.5797659730464497`*^9, 3.5797666183983583`*^9, 3.57976670448348*^9, 3.579766754989551*^9, 3.579766865383706*^9, 3.579766929872797*^9, 3.579767043343957*^9, 3.579771948250927*^9, 3.5797720357810507`*^9, 3.579772229345324*^9, 3.579772510588722*^9, 3.579776429393361*^9, 3.579776623094637*^9, 3.5797766772577143`*^9, 3.5797851926096616`*^9, 3.579785244668639*^9, 3.579785297987689*^9, 3.579785389827942*^9, 3.579785494624936*^9, 3.5797855924495316`*^9, 3.5797856598143845`*^9, 3.5828658270275908`*^9, 3.58286589802686*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["cns", "2"], "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Transpose", "[", SubscriptBox["CData", "4"], "]"}], "[", RowBox[{"[", RowBox[{"2", ",", "All", ",", "1"}], "]"}], "]"}], "-", RowBox[{ RowBox[{"Transpose", "[", SubscriptBox["CData", "4"], "]"}], "[", RowBox[{"[", RowBox[{"2", ",", "All", ",", "2"}], "]"}], "]"}], "-", RowBox[{"(", RowBox[{ SubscriptBox["n", RowBox[{"0", "\[Gamma]"}]], "-", SubscriptBox["\[CapitalDelta]n", RowBox[{"0", "\[Gamma]"}]]}], ")"}]}], "//", "QuantityMagnitude"}]}]], "Input", CellChangeTimes->{{3.5796911607484646`*^9, 3.5796911894935055`*^9}, { 3.579691592700073*^9, 3.5796916110530987`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "76.80489251741362`", ",", "50.22463413821827`", ",", "37.88423083435022`", ",", "26.46933250036559`", ",", "19.44591319190036`", ",", "13.414379324307431`", ",", "10.234288567578222`", ",", "7.441668620097098`", ",", "4.654600427815941`", ",", "3.7467761320830038`", ",", "2.492697657505051`"}], "}"}]], "Output", CellChangeTimes->{{3.579691528249982*^9, 3.5796915464740076`*^9}, 3.579691593500074*^9, 3.5796917996463637`*^9, 3.57969406831956*^9, 3.5797592315367255`*^9, 3.5797593669359226`*^9, 3.5797655532178593`*^9, 3.5797658256152425`*^9, 3.5797659223573785`*^9, 3.57976597308645*^9, 3.579766618438359*^9, 3.57976670452348*^9, 3.5797667550195513`*^9, 3.5797668654337063`*^9, 3.5797669299327974`*^9, 3.579767043383957*^9, 3.579771948275927*^9, 3.5797720358110504`*^9, 3.5797722293753242`*^9, 3.5797725106787224`*^9, 3.579776429423361*^9, 3.579776623129637*^9, 3.579776677297714*^9, 3.5797851926556644`*^9, 3.579785244710642*^9, 3.579785298020691*^9, 3.5797853898579435`*^9, 3.5797854946899395`*^9, 3.5797855926885448`*^9, 3.5797856598503866`*^9, 3.582865827107869*^9, 3.582865898071813*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["xsns", "2"], "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["xs", "2"], "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{ SubscriptBox["ns", "2"], "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", SubscriptBox["xs", "2"], "]"}]}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5791753691715026`*^9, 3.5791754204104333`*^9}, { 3.579175527996587*^9, 3.5791755970865383`*^9}, {3.5791757127481537`*^9, 3.5791757423198457`*^9}, {3.5791804850751157`*^9, 3.5791804883002996`*^9}, { 3.5791805825236893`*^9, 3.579180599930685*^9}, {3.579180665002407*^9, 3.5791806955031514`*^9}, {3.579181193611642*^9, 3.5791812165219517`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.`", ",", "86.06666666666668`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.5`", ",", "57.81666666666666`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.`", ",", "44.55`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.5`", ",", "32.13333333333333`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.`", ",", "24.383333333333333`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.5`", ",", "17.616666666666667`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.`", ",", "13.983333333333334`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.5`", ",", "10.733333333333334`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.`", ",", "7.4`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.5`", ",", "6.283333333333333`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.`", ",", "4.7`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.579175598355611*^9, {3.5791757179634523`*^9, 3.579175743012885*^9}, 3.579176209197549*^9, 3.5791762903031883`*^9, 3.579180489195351*^9, 3.579180588224015*^9, 3.579180619063779*^9, {3.5791806729168596`*^9, 3.579180696236193*^9}, 3.5791811309530573`*^9, {3.5791812071364155`*^9, 3.579181216872972*^9}, 3.579181264072672*^9, 3.579691976162614*^9, 3.57969406833956*^9, 3.5797592315767255`*^9, 3.5797593669659224`*^9, 3.579765553287859*^9, 3.5797658256452427`*^9, 3.5797659223873787`*^9, 3.57976597314645*^9, 3.5797666184783587`*^9, 3.57976670456348*^9, 3.579766755049551*^9, 3.5797668654637065`*^9, 3.5797669299727974`*^9, 3.5797670434039574`*^9, 3.579771948300927*^9, 3.5797720358360505`*^9, 3.5797722294303246`*^9, 3.5797725107087226`*^9, 3.5797764294483604`*^9, 3.579776623154637*^9, 3.5797766773277144`*^9, 3.5797851926936665`*^9, 3.579785244746644*^9, 3.579785298077694*^9, 3.579785389880945*^9, 3.5797854947189417`*^9, 3.579785592721547*^9, 3.5797856598803883`*^9, 3.582865827160077*^9, 3.582865898175584*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["cxsns", "2"], "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["xs", "2"], "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{ SubscriptBox["cns", "2"], "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", SubscriptBox["xs", "2"], "]"}]}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5796910977713757`*^9, 3.5796911074933896`*^9}, { 3.5796915242299767`*^9, 3.5796915243399763`*^9}, 3.5796918875074883`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.`", ",", "76.80489251741362`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.5`", ",", "50.22463413821827`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.`", ",", "37.88423083435022`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.5`", ",", "26.46933250036559`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.`", ",", "19.44591319190036`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.5`", ",", "13.414379324307431`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.`", ",", "10.234288567578222`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.5`", ",", "7.441668620097098`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.`", ",", "4.654600427815941`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.5`", ",", "3.7467761320830038`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.`", ",", "2.492697657505051`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.5796918895184917`*^9, 3.5796919028745103`*^9}, 3.57969406835956*^9, 3.579759231617726*^9, 3.5797593670459223`*^9, 3.579765553327859*^9, 3.5797658256852427`*^9, 3.579765922417379*^9, 3.5797659732374506`*^9, 3.5797666185183587`*^9, 3.5797667046034803`*^9, 3.5797667550695515`*^9, 3.5797668654937067`*^9, 3.579766930002797*^9, 3.579767043433957*^9, 3.579771948320927*^9, 3.5797720358560505`*^9, 3.5797722294603243`*^9, 3.579772510738723*^9, 3.579776429478361*^9, 3.579776623179637*^9, 3.5797766773577147`*^9, 3.579785192733669*^9, 3.579785244783646*^9, 3.579785298103696*^9, 3.5797853899029465`*^9, 3.5797854947449427`*^9, 3.5797855927485485`*^9, 3.5797856599083896`*^9, 3.582865827211906*^9, 3.582865898276414*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["sfer", "2"], "=", RowBox[{ RowBox[{ RowBox[{"Transpose", "[", SubscriptBox["CData", "4"], "]"}], "[", RowBox[{"[", RowBox[{"2", ",", "All", ",", "1"}], "]"}], "]"}], "//", "QuantityMagnitude"}]}]], "Input", CellChangeTimes->{{3.5797762169940596`*^9, 3.5797762240350695`*^9}, { 3.57977626003312*^9, 3.5797762825001516`*^9}, {3.57977633692623*^9, 3.579776341272236*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "86.38333333333334`", ",", "58.13333333333333`", ",", "44.86666666666667`", ",", "32.45`", ",", "24.7`", ",", "17.933333333333334`", ",", "14.3`", ",", "11.05`", ",", "7.716666666666667`", ",", "6.6`", ",", "5.016666666666667`"}], "}"}]], "Output", CellChangeTimes->{3.5797762838001537`*^9, 3.579776342397238*^9, 3.5797764295033607`*^9, 3.5797766232046366`*^9, 3.5797766774127145`*^9, 3.579785192773671*^9, 3.5797852448246484`*^9, 3.579785298129697*^9, 3.5797853899249477`*^9, 3.579785494771944*^9, 3.57978559278055*^9, 3.5797856599373913`*^9, 3.582865827265526*^9, 3.5828658983496513`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"sffit", "=", RowBox[{"NonlinearModelFit", "[", RowBox[{ SubscriptBox["xsns", "2"], ",", RowBox[{"a", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "\[Mu]"}], "*", "x"}], "]"}]}], ",", RowBox[{"{", RowBox[{"a", ",", "\[Mu]"}], "}"}], ",", "x", ",", RowBox[{"Weights", "\[Rule]", RowBox[{"1", "/", RowBox[{ SubscriptBox["sfer", "2"], "^", "2"}]}]}], ",", RowBox[{"VarianceEstimatorFunction", "\[Rule]", RowBox[{"(", RowBox[{"1", "&"}], ")"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5796919434195676`*^9, 3.5796919542505827`*^9}, { 3.579692218907955*^9, 3.5796922223879604`*^9}, {3.579692478510321*^9, 3.5796924788803215`*^9}, {3.579692517576376*^9, 3.5796925554814296`*^9}, { 3.579692586915474*^9, 3.5796926526535664`*^9}, {3.579692700280633*^9, 3.579692702750637*^9}, 3.5796929438409767`*^9, {3.57969299600005*^9, 3.5796930061310644`*^9}, {3.5796933399185348`*^9, 3.579693350339549*^9}, 3.5796933849945984`*^9, {3.5796948076926007`*^9, 3.579694838376644*^9}, { 3.5796950411129293`*^9, 3.5796950483739395`*^9}, {3.579695079676984*^9, 3.579695082627988*^9}, {3.5796951146210327`*^9, 3.5796951167220354`*^9}, 3.5797762944551687`*^9, {3.579785167903249*^9, 3.579785169725353*^9}}], Cell[BoxData[ TagBox[ RowBox[{"FittedModel", "[", TagBox[ PanelBox[ TagBox[ RowBox[{"78.47985964230239`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.5742520515180831`"}], " ", "x"}]]}], Short], FrameMargins->5], Editable -> False], "]"}], InterpretTemplate[ FittedModel[{ "Nonlinear", {$CellContext`a -> 78.47985964230239, $CellContext`\[Mu] -> 0.5742520515180831}, {{$CellContext`x}, $CellContext`a E^(-$CellContext`x $CellContext`\[Mu])}}, {{0.00013401088741674618`, 0.000295903122632775, 0.0004967666013878555, 0.0009496653616681819, 0.0016391024275106954`, 0.003109409764928622, 0.004890214680424471, 0.008189840502856205, 0.016793472936851874`, 0.022956841138659322`, 0.03973466076533372}}, {{0., 86.06666666666668}, {0.5, 57.81666666666666}, {1., 44.55}, {1.5, 32.13333333333333}, {2., 24.383333333333333`}, {2.5, 17.616666666666667`}, {3., 13.983333333333334`}, {3.5, 10.733333333333334`}, {4., 7.4}, {4.5, 6.283333333333333}, {5., 4.7}}, Function[Null, Internal`LocalizedBlock[{$CellContext`a, $CellContext`x, $CellContext`\ \[Mu]}, #], {HoldAll}], VarianceEstimatorFunction -> (1& )]& ], Editable->False, SelectWithContents->True, Selectable->True]], "Output", CellChangeTimes->{ 3.5796951172620363`*^9, 3.579759232317727*^9, 3.5797593675959234`*^9, 3.579765553367859*^9, 3.5797658257152424`*^9, 3.5797659231173797`*^9, 3.5797659732774506`*^9, 3.5797666192383595`*^9, 3.579766705293481*^9, 3.5797667551095514`*^9, 3.5797668661937075`*^9, 3.5797669307227983`*^9, 3.5797670434639573`*^9, 3.579771948340927*^9, 3.57977203588105*^9, 3.5797722294803247`*^9, 3.5797725107687225`*^9, {3.5797763179982033`*^9, 3.579776344897241*^9}, {3.5797764019673214`*^9, 3.579776429538361*^9}, 3.579776623934638*^9, 3.579776677447715*^9, 3.5797851935267143`*^9, 3.5797852455626907`*^9, 3.5797852981616993`*^9, 3.579785391286025*^9, 3.579785494814947*^9, 3.579785593581596*^9, 3.579785659971393*^9, 3.582865827316175*^9, 3.58286589838835*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"csffit", "=", RowBox[{"NonlinearModelFit", "[", RowBox[{ SubscriptBox["cxsns", "2"], ",", RowBox[{"a", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "\[Tau]"}], "*", "x"}], "]"}]}], ",", RowBox[{"{", RowBox[{"a", ",", "\[Tau]"}], "}"}], ",", "x", ",", RowBox[{"Weights", "\[Rule]", RowBox[{"1", "/", RowBox[{ SubscriptBox["sfer", "2"], "^", "2"}]}]}], ",", RowBox[{"VarianceEstimatorFunction", "\[Rule]", RowBox[{"(", RowBox[{"1", "&"}], ")"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.579691984654626*^9, 3.5796919986156454`*^9}, { 3.5796922256179647`*^9, 3.579692231758973*^9}, {3.579692573673455*^9, 3.579692575544458*^9}, {3.579693070761156*^9, 3.579693099307196*^9}, { 3.57969334328854*^9, 3.5796933571105585`*^9}, 3.5796933872756014`*^9, { 3.579694797671587*^9, 3.5796948054525976`*^9}, {3.5796951571770926`*^9, 3.5796951745591173`*^9}, 3.5797762969011726`*^9, {3.5797851606878357`*^9, 3.579785162822958*^9}}], Cell[BoxData[ TagBox[ RowBox[{"FittedModel", "[", TagBox[ PanelBox[ TagBox[ RowBox[{"73.71409527901663`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.6720298957397761`"}], " ", "x"}]]}], Short], FrameMargins->5], Editable -> False], "]"}], InterpretTemplate[ FittedModel[{ "Nonlinear", {$CellContext`a -> 73.71409527901663, $CellContext`\[Tau] -> 0.6720298957397761}, {{$CellContext`x}, $CellContext`a E^(-$CellContext`x $CellContext`\[Tau])}}, {{0.00013401088741674618`, 0.000295903122632775, 0.0004967666013878555, 0.0009496653616681819, 0.0016391024275106954`, 0.003109409764928622, 0.004890214680424471, 0.008189840502856205, 0.016793472936851874`, 0.022956841138659322`, 0.03973466076533372}}, {{0., 76.80489251741362}, {0.5, 50.22463413821827}, {1., 37.88423083435022}, {1.5, 26.46933250036559}, { 2., 19.44591319190036}, {2.5, 13.414379324307431`}, {3., 10.234288567578222`}, {3.5, 7.441668620097098}, {4., 4.654600427815941}, { 4.5, 3.7467761320830038`}, {5., 2.492697657505051}}, Function[Null, Internal`LocalizedBlock[{$CellContext`a, $CellContext`x, $CellContext`\ \[Tau]}, #], {HoldAll}], VarianceEstimatorFunction -> (1& )]& ], Editable->False, SelectWithContents->True, Selectable->True]], "Output", CellChangeTimes->{ 3.579691999895647*^9, 3.5796922376399813`*^9, {3.5796930679001517`*^9, 3.5796930998471966`*^9}, 3.5796933578305597`*^9, 3.5796933881056023`*^9, 3.57969406839956*^9, {3.5796951751191177`*^9, 3.5796952001721535`*^9}, 3.5797592323777266`*^9, 3.5797593676759233`*^9, 3.579765553417859*^9, 3.579765825755243*^9, 3.5797659231673794`*^9, 3.5797659733074503`*^9, 3.57976661927836*^9, 3.5797667053334813`*^9, 3.579766755129551*^9, 3.5797668662437077`*^9, 3.5797669307627983`*^9, 3.5797670434839573`*^9, 3.5797719483909273`*^9, 3.5797720359060507`*^9, 3.5797722295053244`*^9, 3.5797725107987227`*^9, 3.579776429593361*^9, 3.57977662536464*^9, 3.579776677487715*^9, 3.5797851950027986`*^9, 3.5797852469277687`*^9, 3.579785298198701*^9, 3.579785392653104*^9, 3.579785494852949*^9, 3.579785595002677*^9, 3.579785660016396*^9, 3.5828658273606977`*^9, 3.582865898442274*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"ListLogPlot", "[", RowBox[{ SubscriptBox["xsns", "2"], ",", RowBox[{"ImageSize", "\[Rule]", "Full"}], ",", RowBox[{"PlotRange", "\[Rule]", "Full"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\""}], "}"}]}]}], "\[IndentingNewLine]", "]"}], ",", RowBox[{"LogPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sffit", "[", "x", "]"}], ",", RowBox[{"csffit", "[", "x", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1"}], ",", "5"}], "}"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.5791757747016973`*^9, 3.579175840767476*^9}, { 3.579175871833253*^9, 3.5791759187039337`*^9}, {3.5791759674067197`*^9, 3.579175972234996*^9}, {3.5791763159606557`*^9, 3.579176349450571*^9}, { 3.5791804249846783`*^9, 3.579180460933735*^9}, {3.579180649161501*^9, 3.5791806584580326`*^9}, {3.579180702980579*^9, 3.5791807183024554`*^9}, { 3.579180771234483*^9, 3.57918078692638*^9}, {3.579180906769235*^9, 3.579180974289097*^9}, 3.5791812105926127`*^9, {3.5791812686519337`*^9, 3.5791812718161144`*^9}, {3.5796920068366566`*^9, 3.5796920895877733`*^9}, {3.5796921697218857`*^9, 3.5796922090069413`*^9}, {3.579693814495203*^9, 3.579693877723292*^9}, { 3.579694230951789*^9, 3.579694232902792*^9}, {3.579785147348073*^9, 3.5797851552395244`*^9}, {3.582865832760539*^9, 3.5828658335600967`*^9}}], Cell[BoxData[ GraphicsBox[{{{{}, {{}, {RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[{{0., 4.455122189744433}, {0.5, 4.057277084747649}, {1., 3.796612153916818}, {1.5, 3.46989391294839}, {2., 3.1938998387980235`}, {2.5, 2.868845423648137}, {3., 2.6378661442451055`}, {3.5, 2.373354163882253}, {4., 2.0014800002101243`}, {4.5, 1.83790062522591}, {5., 1.547562508716013}}]}, {}}, {}}, {}}, {{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVk38403kcwGdbZhjbPscVkV9N1HGnS4+n0+dtcYUkP0rpaIn86lFET2dZ 9CglVvlx9cjdUkrk6Hhu+nF8S2vtDj2lUSo7tISWqWhfrdl1f7ye15+vv17O CXsik6gUCiXsC/+7uJ3fYTRqCfnFzWWVBIINmvSzmiktQS1JEOd3IODYV2YN DGuJ1dkZxentCM4eeM1rvaslpIFHDwfcQnB5ecnJXUVaou7Vn1lvpQju1PcJ eqy0RJG7TVRQEwKyMoV2zmGSWHv1MZqpRpCcIV7nu0pDKFo2VkbnIhCJXDuC Fo8RNyvMo8EbQSyE+1+KVhOvNsXJFo9zwXVNGOebM0PE82oKTq/lQkiIR409 Z4DolO7MGdzKhYHMVz55okfEcPP2uOCvuNDWnOLrXN5JvBPam4woOJCiF/aG NJcT3T3uzc9EHBA/HpQudLuBh+a6rXr8OGDTz0i8oOrGaqqPp2aSDZcNLq56 837sPOqto9ezIU38a1p0/iD2DBc9yEtkQ/y1zreGrhHseqJkh6sdG+68llQX lI3ihvXJ64/UW8MEsVywrGECv12yIswBWYN7zMyDpqZJrGDXJuQcsoJwR3bV lO87bNMW+Pz2DAsyhikxDvgD5tOSupIELGgI5VlfcJvBw6w2xzmlJQSb1kXc 9NFhQcexca2/JWSd70hdvXIW78/VK2rqLeD6sHme3QI9npuWWKxdZAEJ+1rs il0NONlGdi/ouDl4NIpbIyyMOGB6wcuVBib4j1BOd2ZToFXFtpnYx4Qztiks 3gEToO8p6phRmUH+b6lFK9KooGj37pqOMoNzD87KxXtpkN4SEx7WzgBhRvmU QxYdLrU4jSV5MGB8x5L5WxPmQWSmvTpTYgrHDRN01S5T+LevMuYJ0xSua9Zq rWIZoCIDvL4VzYOroXtlOevMINv95ILgGTo8jJTH80KZMKHfdvCWgA6Fv0s/ Hv7BHHrFsXznfhqkXlNGefAtoOr+00NDmAaDpqVNQl9LUHYccypvpYJtD3ua xmPB5TsDffM8qVCwqnOuz8MKNqc1UHsrTCDXwGJEL7SG3EeNZaeZJtDbumai lMMGkcqrqiGLAn877ZKXlLHBZ/Libka7ER9r21QzbM6B9dVh6eevzGGBy4v4 baUccP/l4xbNQQM2Sr3tlzK4oLaksRYlfcb5tPHuShEXHldFTDyK1GM7N78d iykIDmVLpCs9PmFhxuZp858RoK6NwYVoFjv5Jip4QgSlpU9DG61mscyQWc3P Q2C2UbBByZzFVqWlgbkFCD4r90S5UWbxhauyivHjCNQqcZxMQ2LFmM8KRRWC G++7M+lyEtvutN5/5C8EcXbBVYUHSHzL0yGk5su3T148rG7cR2LBe0/H9tsI IiRbJMoMEjcU/CifliEIckupdUsisf/5PNvEHgTeXkVNsggSJw6+kfJVCKj8 e530pSRmXpotjh9CkEcPu7eMR+Km3YztuSMIPsqV96OdSazTuzBaRhFoQtXd tV+TuNguNsZZi6B/E+1JIJ3E3iPJS/3ffenPPzGw26jDyvoc45YPCP55xn1R 8UmHHf1O153SISC2uwyrp3T4LkUibJxF4OfS8NJSo8MpisZwhR5Bi/q70e9f 67DlqZuuagMCr7obYz+N6PAfMQqd0YjgSmrAm8JBHf4PbFY9kA== "]]}, {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVlG00lGkchyc0o/EyM+7llPI6TIRUavZQuv/GhjUrWwlrDzGJkRIVicOi 9ig1I6RkJNqjzkiybEjxbLJ2Kkp62ZwaeSnl7XmmkOyYZu2H37m+Xl+un43o wPY9OjQaLWBh/zOvVdCm1VJEdf5wlXQYwdaJ+JIJFUUorUyP+A8h4CwvPtg3 SBHsOh8/+iCCktT3vIZ7FJHSIx/L6Edwxe10fkwuRXhxEl339yG4K38e2W1M ES8L55uFjxF8KRbryixIgn7OtEv/NoLYBKkff+MEEVXm+ymnEEFmJrdti/0H YlXDYdYVDwRhEOhZFfSWiE/e3Sr7YAJc7wCOy/kBolbnboxLiQn4+ztWLuf0 Ebql7wcmwQT6kt6ty8h8QvS8fjyeRXGg6YaYb1PUTtQ5Zv8tOM8BsTq91/9G EVHgVVleARyQPlU2rrC7hcf0jtGfUGwwfcGIvtzfhYN7XfCaEjZc0dhy1cwX 2ENYqi/yYcNe6cW9QVlK7Gk5XrprggURde2TmodD2KXFrTN0Mwvuvr9Ull04 gg2va01mZcYwRrhFOlePYc4f4Yumxo1gZcjMo9paEi/ddmGEh40g0JJdquJ/ xKwtoZPai4aQMEgLscBT2DlAXsynDKBayGNdtpvB7jUZu0x+MIDv6Ve3tayb xfus3j4QyphwsKItbvO3c7jSwcGldXIJNA8yM8yXqXHnCaruqXAJiA7Vm+dx NZit8XvhW6YPjjXShm0GWuyvsLeI+sIAzyFaQfthGuQ6DoTVhzDgvJnYiJe6 CEbLnT2i5HTIKo/L3bBXBzzi5z1u0ukge1TSKU3UhXphhDImeDGkJxSpLA7q gVP7xZQf5XowGuWw9CfRYijOj1z7hqEHJzVjev0xdLBLuil5GKoLzRO+lHEY A36TSwzCb+rANWFiR7KfPnBTvbN4pjrQs70zgrfg/SDs1LmA2EVw/Hrj55xN TBCdDX607C8axNU92+EoMADLoYar3qY0UNIltel8Qyg2ctxiP/QVm3Wzp3V5 RjCVU+XgVqHB2Rvbvz53NAaZtU/gvGAep2mMGEErWMDdN9nM0vyLexu8xyQc Nsy9ad7TL5vD961jOk8XsuHpL5hm4fUFn2jaWTnI5MCp7i5lleYzjrR9HfGz hAP53plfR8tnsLbRdbkTwwQOxfJFqSHTOEt3tKs40wTCm+QNKWZT2NzOPcqe hqDA1ctvTctHnJ4QPM08iqBq5xur9ckqbM2PVvDSEQwXhdFOHlDhDk1SmSAD gU3v8wFlnAobSyTfpWUjkG3tqsyNUOHL1zrOjp5EIPG9xX3lq8KKD+s2KEoR HHEvWpljrsJmu1kpv95BkOshjaj4hcK3V1n4V7Yh0G06buV/mMKRn1ZZtv6J IM0tfWBKTOHqbJ/O6Q4E8c5ike92CntWZJhFdyMIsRTEkHYUjlaONwoWurbV +bx/0wMSL6may4sYQHAhc2L1SBuJa/cxdqUt/IKZeojKbyDxrNqWUT+CgDn9 OGm4jMR55mEhNhSCmXfy5LwDJHYdinXy/Ihgv6iCvz6axM/kydrQKQQj/edm laEktnQvuHpmFsGrf44dXSsg8T3apfSaOQQ7gtI8XvFJLFbUBCrUCB72JKqP O5HY8EwL960GgTAg9s5qaxL/HqKY1WoR3LsfnvHyGxL/BxRTOVI= "]]}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["\"Schichtdicke in mm\"", TraditionalForm], FormBox["\"Z\[ADoubleDot]hlrate in Bq\"", TraditionalForm]}, AxesOrigin->{0., 1.547562508716013}, CoordinatesToolOptions:>{"DisplayFunction" -> ({ Part[#, 1], Exp[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Part[#, 1], Exp[ Part[#, 2]]}& )}, FrameTicks->{{{{2.302585092994046, FormBox["10", TraditionalForm]}, {4.605170185988092, FormBox["100", TraditionalForm]}, {3.912023005428146, FormBox["50", TraditionalForm]}, {6.214608098422191, FormBox["500", TraditionalForm]}, {2.995732273553991, FormBox["20", TraditionalForm]}, {5.298317366548036, FormBox["200", TraditionalForm]}, {3.4011973816621555`, FormBox["30", TraditionalForm]}, {5.703782474656201, FormBox["300", TraditionalForm]}, {2.70805020110221, FormBox["15", TraditionalForm]}, {5.0106352940962555`, FormBox["150", TraditionalForm]}, {4.248495242049359, FormBox["70", TraditionalForm]}, {6.551080335043404, FormBox["700", TraditionalForm]}, {2.3978952727983707`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.4849066497880004`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.5649493574615367`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.6390573296152584`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.772588722239781, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.833213344056216, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.8903717578961645`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.9444389791664403`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.700480365792417, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.787491742782046, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.867534450455582, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.941642422609304, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.075173815233827, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.135798437050262, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.19295685089021, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.247024072160486, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, {{2.302585092994046, FormBox["\"\"", TraditionalForm]}, {4.605170185988092, FormBox["\"\"", TraditionalForm]}, {3.912023005428146, FormBox["\"\"", TraditionalForm]}, {6.214608098422191, FormBox["\"\"", TraditionalForm]}, {2.995732273553991, FormBox["\"\"", TraditionalForm]}, {5.298317366548036, FormBox["\"\"", TraditionalForm]}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm]}, {5.703782474656201, FormBox["\"\"", TraditionalForm]}, {2.70805020110221, FormBox["\"\"", TraditionalForm]}, {5.0106352940962555`, FormBox["\"\"", TraditionalForm]}, {4.248495242049359, FormBox["\"\"", TraditionalForm]}, {6.551080335043404, FormBox["\"\"", TraditionalForm]}, {2.3978952727983707`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.4849066497880004`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.5649493574615367`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.6390573296152584`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.772588722239781, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.833213344056216, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.8903717578961645`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.9444389791664403`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.700480365792417, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.787491742782046, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.867534450455582, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.941642422609304, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.075173815233827, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.135798437050262, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.19295685089021, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.247024072160486, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}, {Automatic, Automatic}}, GridLines->{None, None}, ImageSize->Full, Method->{}, PlotRange->{{0., 5.}, {1.547562508716013, 4.455122189744433}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}, Ticks->{Automatic, {{2.302585092994046, FormBox["10", TraditionalForm]}, {4.605170185988092, FormBox["100", TraditionalForm]}, {3.912023005428146, FormBox["50", TraditionalForm]}, {6.214608098422191, FormBox["500", TraditionalForm]}, {2.995732273553991, FormBox["20", TraditionalForm]}, {5.298317366548036, FormBox["200", TraditionalForm]}, {3.4011973816621555`, FormBox["30", TraditionalForm]}, {5.703782474656201, FormBox["300", TraditionalForm]}, {2.70805020110221, FormBox["15", TraditionalForm]}, {5.0106352940962555`, FormBox["150", TraditionalForm]}, {4.248495242049359, FormBox["70", TraditionalForm]}, {6.551080335043404, FormBox["700", TraditionalForm]}, {2.3978952727983707`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.4849066497880004`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.5649493574615367`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.6390573296152584`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.772588722239781, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.833213344056216, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.8903717578961645`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.9444389791664403`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.700480365792417, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.787491742782046, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.867534450455582, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.941642422609304, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.075173815233827, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.135798437050262, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.19295685089021, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.247024072160486, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}]], "Output", CellChangeTimes->{ 3.579175795007859*^9, 3.57917584152452*^9, {3.579175873369341*^9, 3.579175919361972*^9}, 3.5791759734560657`*^9, {3.579176276209382*^9, 3.579176350205614*^9}, {3.5791804291309156`*^9, 3.5791804909964542`*^9}, 3.5791806203218513`*^9, {3.57918065212467*^9, 3.579180718853487*^9}, { 3.579180772213539*^9, 3.579180787654422*^9}, {3.579180909904414*^9, 3.579180976139203*^9}, 3.5791811310150614`*^9, {3.5791812110866413`*^9, 3.5791812177030196`*^9}, {3.5791812649617224`*^9, 3.5791812723071427`*^9}, 3.5796920909687753`*^9, {3.579692185033908*^9, 3.579692209936943*^9}, 3.5796922471609955`*^9, 3.579693407057629*^9, {3.579693853761258*^9, 3.579693880093295*^9}, 3.5796940685095606`*^9, 3.5796942332627926`*^9, { 3.5796951350440617`*^9, 3.5796951382040663`*^9}, {3.5796951779591217`*^9, 3.5796951805101256`*^9}, 3.57975923470873*^9, 3.579759274193788*^9, 3.5797593678759236`*^9, 3.5797655535578594`*^9, 3.5797658258852425`*^9, { 3.579765925498383*^9, 3.579765940100404*^9}, 3.579765973467451*^9, 3.579766621598363*^9, 3.5797667076134844`*^9, 3.5797667552695513`*^9, 3.5797668685647106`*^9, 3.5797669330848017`*^9, 3.5797670436539574`*^9, 3.5797719485159273`*^9, 3.5797720360260506`*^9, 3.5797722296253242`*^9, 3.579772510928723*^9, 3.579776429718361*^9, 3.5797766280146437`*^9, 3.579776677617715*^9, 3.5797851976949525`*^9, 3.579785249591921*^9, 3.5797852983267083`*^9, 3.579785437208652*^9, 3.579785495001958*^9, 3.5797855984008713`*^9, 3.5797856601504035`*^9, {3.582865827486785*^9, 3.582865845428191*^9}, 3.582865898646976*^9}] }, Open ]], Cell["\<\ Hier aufgetragen sind nun der gemessene Verlauf, der Fit (Exponential) und \ die entsprechende veranschaulichende Fehlerkurve. Damit l\[ADoubleDot]sst \ sich der Parameter \[Mu] f\[UDoubleDot]r die Schw\[ADoubleDot]chung inklusive \ Fehler bestimmen. Der Fit wurde direkt in der Form des Lambert-Beer-Gesetzes \ gefordert. Deswegen k\[ODoubleDot]nnen wir die Parameter direkt ablesen. Der \ Fehler auf \[Mu] wird aus der, entsprechend der Fehler, gewichteten \ Standartabweichung des Fits extrahiert.\ \>", "Text", CellChangeTimes->{{3.579693446272684*^9, 3.5796935075807705`*^9}, { 3.579693699887041*^9, 3.579693730632085*^9}, {3.5796952836832705`*^9, 3.579695371354394*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"sffit", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.579694303352891*^9, 3.5796943324089317`*^9}, { 3.5796943638839765`*^9, 3.5796943831570034`*^9}, {3.5796945108331833`*^9, 3.5796945245752025`*^9}, {3.5797851778298163`*^9, 3.5797851797239246`*^9}}], Cell[BoxData[ StyleBox[ TagBox[GridBox[{ {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\ \[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"}, {"a", "78.47985964230239`", "45.81364579443647`", "1.7130236697257752`", "0.12085940660633972`"}, {"\[Mu]", "0.5742520515180831`", "0.2027108046413286`", "2.8328635591681963`", "0.019630446118343605`"} }, 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.5796945251852036`*^9, 3.579695838741053*^9, 3.5797592351587305`*^9, 3.579759367915924*^9, 3.5797655536078596`*^9, 3.5797658259352427`*^9, 3.5797659259183836`*^9, 3.579765973497451*^9, 3.579766622018364*^9, 3.5797667092934866`*^9, 3.5797667552995515`*^9, 3.579766868994712*^9, 3.5797669335048027`*^9, 3.5797670436839576`*^9, 3.579771948545927*^9, 3.5797720360960507`*^9, 3.5797722296703243`*^9, 3.5797725109697227`*^9, 3.579776429748361*^9, 3.579776628409644*^9, 3.5797766776527147`*^9, 3.5797851980999756`*^9, 3.5797852499739428`*^9, 3.5797852983587103`*^9, 3.5797854382527113`*^9, 3.579785495061961*^9, 3.5797855987998943`*^9, 3.5797856601834054`*^9, 3.582865827542342*^9, 3.582865898775722*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{"\[Mu]", ",", "\[CapitalDelta]\[Mu]"}], "}"}], "=", RowBox[{"Quantity", "[", RowBox[{ RowBox[{ RowBox[{"sffit", "[", "\"\\"", "]"}], "[", RowBox[{"[", RowBox[{"2", ",", RowBox[{"1", ";;", "2"}]}], "]"}], "]"}], ",", RowBox[{"\"\\"", "^", RowBox[{"(", RowBox[{"-", "1"}], ")"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5796956350517654`*^9, 3.5796956741598215`*^9}, { 3.5796957543909345`*^9, 3.579695764831949*^9}, {3.5796958489320674`*^9, 3.579695884007117*^9}, {3.5796969840446653`*^9, 3.579697047483755*^9}, { 3.57978537231294*^9, 3.5797853739910364`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"0.5742520515180831`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ "\"reciprocal centimeters\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal centimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Centimeters\""]}], "]"}]& )], ",", TemplateBox[{"0.2027108046413286`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ "\"reciprocal centimeters\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal centimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Centimeters\""]}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{ 3.5796956388117704`*^9, 3.579695677490826*^9, {3.579695759480942*^9, 3.5796957653119497`*^9}, 3.579695854093075*^9, 3.5796958846871176`*^9, 3.579697003297693*^9, {3.579697035601738*^9, 3.5796970485237565`*^9}, 3.5797592379297347`*^9, 3.5797593681359243`*^9, 3.57976555390786*^9, 3.5797658260552435`*^9, 3.5797659288083878`*^9, 3.579765973627451*^9, 3.5797666248293676`*^9, 3.5797667120644903`*^9, 3.5797667554095516`*^9, 3.579766871724715*^9, 3.5797669362648063`*^9, 3.5797670437939577`*^9, 3.5797719486409273`*^9, 3.5797720361910505`*^9, 3.579772229775325*^9, 3.5797725110847235`*^9, 3.579776429853361*^9, 3.5797766311156483`*^9, 3.579776677787715*^9, 3.579785198212982*^9, 3.5797852500729485`*^9, 3.57978529870373*^9, 3.579785444916093*^9, 3.579785495208969*^9, 3.5797856016190557`*^9, 3.579785660301412*^9, 3.582865827641556*^9, 3.582865898926948*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[Mu]", "\[PlusMinus]", "\[CapitalDelta]\[Mu]"}]], "Input", CellChangeTimes->{{3.579695890528126*^9, 3.5796959329841857`*^9}}], Cell[BoxData[ RowBox[{ TemplateBox[{"0.5742520515180831`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ "\"reciprocal centimeters\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal centimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Centimeters\""]}], "]"}]& )], "\[PlusMinus]", TemplateBox[{"0.2027108046413286`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ "\"reciprocal centimeters\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal centimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Centimeters\""]}], "]"}]& )]}]], "Output", CellChangeTimes->{{3.5796959011891413`*^9, 3.5796959337941866`*^9}, 3.579697065925781*^9, 3.579759238079735*^9, 3.579759368535925*^9, 3.57976555408786*^9, 3.579765826165243*^9, 3.579765929008388*^9, 3.579765973757451*^9, 3.579766625019368*^9, 3.5797667121644907`*^9, 3.579766755499552*^9, 3.5797668719247155`*^9, 3.5797669363748064`*^9, 3.579767043883958*^9, 3.5797719487359276`*^9, 3.579772036281051*^9, 3.579772229870325*^9, 3.579772511194723*^9, 3.5797764299533615`*^9, 3.579776631275648*^9, 3.579776677882715*^9, 3.579785198323989*^9, 3.579785251360022*^9, 3.5797852987317314`*^9, 3.579785444969096*^9, 3.579785495300975*^9, 3.5797856017890654`*^9, 3.5797856603884172`*^9, 3.5828658277393007`*^9, 3.582865899195175*^9}] }, Open ]], Cell["\<\ Nun bestimmen wir mithilfe des weiteren Diagramms im Anhang die Energie der \ \[Gamma]-Photonen absch\[ADoubleDot]tzen.\ \>", "Text", CellChangeTimes->{{3.5796959840312576`*^9, 3.579696025326316*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[Rho]", "Pb"], "=", RowBox[{"Quantity", "[", RowBox[{"11.342", ",", FractionBox["\"\\"", RowBox[{"\"\\"", "^", "3"}]]}], "]"}]}]], "Input", CellChangeTimes->{{3.579696028867321*^9, 3.5796960382383337`*^9}, { 3.5796961987095594`*^9, 3.579696226613599*^9}}], Cell[BoxData[ TemplateBox[{"11.342`"}, "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.5796962273736*^9, 3.579697071536789*^9, 3.5797592381497355`*^9, 3.579759368675925*^9, 3.5797655541678605`*^9, 3.5797658262552433`*^9, 3.579765929078388*^9, 3.579765973847451*^9, 3.579766625119368*^9, 3.579766712224491*^9, 3.5797667555695515`*^9, 3.579766872004716*^9, 3.579766936444806*^9, 3.579767043953958*^9, 3.5797719488059278`*^9, 3.5797720363510513`*^9, 3.579772229945325*^9, 3.5797725112847233`*^9, 3.5797764300383615`*^9, 3.5797766313456483`*^9, 3.579776677962715*^9, 3.5797851984099936`*^9, 3.5797852514500275`*^9, 3.5797852988097363`*^9, 3.5797854450421*^9, 3.5797854953869796`*^9, 3.57978560186907*^9, 3.579785660469422*^9, 3.582865827804294*^9, 3.582865899310153*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{"\[CapitalMu]", ",", "\[CapitalDelta]\[CapitalMu]"}], "}"}], "=", FractionBox[ RowBox[{"{", RowBox[{"\[Mu]", ",", "\[CapitalDelta]\[Mu]"}], "}"}], SubscriptBox["\[Rho]", "Pb"]]}]], "Input", CellChangeTimes->{{3.579696232134607*^9, 3.579696349166772*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"0.050630581160120175`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ SuperscriptBox["\"cm\"", "2"], "\[NegativeMediumSpace]", "\"/\"", "\[InvisibleSpace]", "\"g\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters squared per gram"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox[ SuperscriptBox["\"Centimeters\"", "2"], "\"Grams\""]}], "]"}]& )], ",", TemplateBox[{"0.017872580201139885`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ SuperscriptBox["\"cm\"", "2"], "\[NegativeMediumSpace]", "\"/\"", "\[InvisibleSpace]", "\"g\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters squared per gram"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox[ SuperscriptBox["\"Centimeters\"", "2"], "\"Grams\""]}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{ 3.5796963676077976`*^9, 3.579697074666793*^9, 3.5797592385697355`*^9, 3.579759369286926*^9, 3.579765554587861*^9, 3.579765826685244*^9, 3.579765931119391*^9, 3.579765974267452*^9, 3.5797666255603685`*^9, 3.5797667126244917`*^9, 3.5797667559695525`*^9, 3.5797668724147162`*^9, 3.5797669368558073`*^9, 3.5797670443669586`*^9, 3.5797718736998196`*^9, 3.579771949220928*^9, {3.579772027708039*^9, 3.579772052235074*^9}, 3.579772230360326*^9, 3.579772511714724*^9, 3.5797764306933627`*^9, 3.579776631765649*^9, 3.579776678382716*^9, 3.5797851988300176`*^9, 3.5797852519110537`*^9, 3.5797852989547443`*^9, 3.579785445194109*^9, 3.5797854958480062`*^9, 3.5797856022810936`*^9, 3.579785660939449*^9, 3.582865828240635*^9, 3.58286589991503*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["T", "\[Gamma]"], ",", SubscriptBox["\[CapitalDelta]T", "\[Gamma]"]}], "}"}], "=", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"1.5", ",", ".3"}], "}"}], ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.5796972353500195`*^9, 3.5796972631940584`*^9}, { 3.579697313232129*^9, 3.57969734249617*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"1.5`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"MeV\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: megaelectronvolts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Megaelectronvolts\""}], "]"}]& )], ",", TemplateBox[{"0.3`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"MeV\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: megaelectronvolts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Megaelectronvolts\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.579697344346173*^9, 3.5797592386097355`*^9, 3.5797593693369255`*^9, 3.5797655546478615`*^9, 3.579765826785244*^9, 3.5797659311693907`*^9, 3.579765974357452*^9, 3.579766625620369*^9, 3.5797667126544914`*^9, 3.5797667560495524`*^9, 3.579766872474716*^9, 3.5797669368958073`*^9, 3.5797670444069586`*^9, 3.579771949260928*^9, 3.579772036796052*^9, 3.579772230405326*^9, 3.5797725117947245`*^9, 3.579776430888363*^9, 3.579776631805649*^9, 3.579776678467716*^9, 3.5797851989020214`*^9, 3.579785251952056*^9, 3.579785298998747*^9, 3.579785445237111*^9, 3.579785495935011*^9, 3.5797856023370967`*^9, 3.579785660986451*^9, 3.5828658283636913`*^9, 3.582865899959504*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["T", "\[Gamma]"], "\[PlusMinus]", SubscriptBox["\[CapitalDelta]T", "\[Gamma]"]}]], "Input", CellChangeTimes->{{3.5796973479061775`*^9, 3.5796973623381977`*^9}}], Cell[BoxData[ RowBox[{ TemplateBox[{"1.5`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"MeV\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: megaelectronvolts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Megaelectronvolts\""}], "]"}]& )], "\[PlusMinus]", TemplateBox[{"0.3`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"MeV\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: megaelectronvolts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Megaelectronvolts\""}], "]"}]& )]}]], "Output", CellChangeTimes->{3.5796973633082*^9, 3.5797592386397357`*^9, 3.5797593693869257`*^9, 3.5797655548878613`*^9, 3.5797658268452444`*^9, 3.579765931209391*^9, 3.579765974417452*^9, 3.579766625680369*^9, 3.579766712674492*^9, 3.579766756089553*^9, 3.5797668725247164`*^9, 3.579766936935807*^9, 3.579767044456959*^9, 3.5797719492959285`*^9, 3.579772036836052*^9, 3.579772230485326*^9, 3.5797725118447247`*^9, 3.579776431043363*^9, 3.579776631850649*^9, 3.5797766785127163`*^9, 3.579785198962025*^9, 3.5797852520510616`*^9, 3.5797852990407495`*^9, 3.579785445282114*^9, 3.5797854959830136`*^9, 3.5797856023861*^9, 3.5797856610294538`*^9, 3.582865828413456*^9, 3.582865900011087*^9}] }, Open ]], Cell["\<\ Aus dem Skript lesen wir f\[UDoubleDot]r die beiden \[CapitalUDoubleDot]berg\ \[ADoubleDot]nge mit \[Gamma]-Emission 1.173 MeV und 1.333 MeV. Beide liegen \ entweder knapp innerhalb des 1-\[Sigma]-Bereichs oder leicht au\[SZ]erhalb. \ Die Messung war also erfolgreich, wenn auch nicht sehr pr\[ADoubleDot]zise.\ \>", "Text", CellChangeTimes->{{3.579698363898609*^9, 3.57969847086976*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["5 Messung der Aktivit\[ADoubleDot]t", "Section", CellChangeTimes->{{3.5775297460167484`*^9, 3.577529750415956*^9}}], Cell["", "Text", CellChangeTimes->{{3.577529258578292*^9, 3.5775292616826973`*^9}, 3.577529737343133*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["Data", "5"], "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"5.5", ",", "0.2"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"71274", "/", "60"}], ",", RowBox[{ RowBox[{"Sqrt", "[", "71274", "]"}], "/", "60"}]}], "}"}], ",", "\"\\""}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"10", ",", "0.2"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"20626", "/", "60"}], ",", RowBox[{ RowBox[{"Sqrt", "[", "20626", "]"}], "/", "60"}]}], "}"}], ",", "\"\\""}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"20", ",", "0.2"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"4868", "/", "60"}], ",", RowBox[{ RowBox[{"Sqrt", "[", "4868", "]"}], "/", "60"}]}], "}"}], ",", "\"\\""}], "]"}]}], "}"}]}], "}"}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.5775292958155575`*^9, 3.5775293556728625`*^9}, { 3.5775294637810526`*^9, 3.577529464093053*^9}, {3.577529503280322*^9, 3.577529504481524*^9}, {3.5797055928677893`*^9, 3.5797055935577908`*^9}, { 3.5797138508464193`*^9, 3.5797139408405466`*^9}, {3.5797855545853653`*^9, 3.5797855549733877`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"5.5`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"cm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Centimeters\""}], "]"}]& )], ",", TemplateBox[{"0.2`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"cm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Centimeters\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"1187.9`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )], ",", TemplateBox[{"4.449531810576629`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"10.`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"cm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Centimeters\""}], "]"}]& )], ",", TemplateBox[{"0.2`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"cm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Centimeters\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"343.76666666666665`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )], ",", TemplateBox[{"2.3936257945728365`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"20.`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"cm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Centimeters\""}], "]"}]& )], ",", TemplateBox[{"0.2`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"cm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Centimeters\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"81.13333333333334`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )], ",", TemplateBox[{"1.1628509028341607`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.5797854454191217`*^9, 3.579785496130022*^9, 3.5797855556704273`*^9, 3.579785602530108*^9, 3.579785661171462*^9, 3.5828658285360117`*^9, 3.5828659001412983`*^9}] }, Open ]], Cell[CellGroupData[{ Cell["Auswertung", "Subsection", CellChangeTimes->{{3.579785356667045*^9, 3.5797853577711086`*^9}, 3.5797855693172083`*^9}], Cell["\<\ Wir berechnen nun aus diesen Werten jeweils die Aktivit\[ADoubleDot]t. Die \ dazu verwendete Formel entnehmen wir dem Skriptum.\ \>", "Text", CellChangeTimes->{{3.5797137897193336`*^9, 3.5797138181223736`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[Epsilon]", "=", RowBox[{ RowBox[{"4", "/", "100"}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.5797666010573344`*^9, 3.5797666070173426`*^9}, { 3.579766695471467*^9, 3.5797666960014677`*^9}, {3.579766803245619*^9, 3.579766842400674*^9}, {3.579766914990776*^9, 3.579766922101786*^9}}], Cell[BoxData["0.04`"], "Output", CellChangeTimes->{{3.5797669227617874`*^9, 3.579766937215808*^9}, 3.5797670447869596`*^9, 3.579771949605929*^9, 3.5797720371460524`*^9, 3.579772230775326*^9, 3.579772512154725*^9, 3.5797764314633636`*^9, 3.5797766321506495`*^9, 3.5797766788427167`*^9, 3.5797851993010445`*^9, 3.5797852523480787`*^9, 3.579785299388769*^9, 3.579785445579131*^9, 3.579785496321033*^9, 3.57978560256911*^9, 3.579785661207464*^9, 3.5828658285795603`*^9, 3.582865900178144*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"A", "[", RowBox[{"n_", ",", "d_", ",", "r_"}], "]"}], ":=", FractionBox[ RowBox[{"4", "*", "n", "*", RowBox[{"d", "^", "2"}]}], RowBox[{"\[Epsilon]", "*", RowBox[{"r", "^", "2"}]}]]}]], "Input", CellChangeTimes->{{3.5797138225323796`*^9, 3.5797138461354127`*^9}, { 3.5797139586625714`*^9, 3.579714030141672*^9}, {3.5797597175384293`*^9, 3.579759718528431*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"\[CapitalDelta]A", "[", RowBox[{ "n_", ",", "d_", ",", "r_", ",", "\[CapitalDelta]n_", ",", "\[CapitalDelta]d_"}], "]"}], "=", RowBox[{"Sqrt", "[", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"A", "[", RowBox[{"n", ",", "d", ",", "r"}], "]"}], ",", "n"}], "]"}], "*", "\[CapitalDelta]n"}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"A", "[", RowBox[{"n", ",", "d", ",", "r"}], "]"}], ",", "d"}], "]"}], "*", "\[CapitalDelta]d"}], ")"}], "2"]}], "]"}]}]], "Input", CellChangeTimes->{{3.579758519454713*^9, 3.57975884802318*^9}, 3.5797590075394077`*^9, {3.579759410119983*^9, 3.579759431591013*^9}, { 3.5797596955683956`*^9, 3.579759711332419*^9}, {3.579760709122036*^9, 3.5797607092820363`*^9}, {3.5797607704311223`*^9, 3.5797607753011293`*^9}, {3.579765783641184*^9, 3.5797657916011944`*^9}}], Cell[BoxData[ SqrtBox[ RowBox[{ FractionBox[ RowBox[{"40000.`", " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["n", "2"], " ", SuperscriptBox["\[CapitalDelta]d", "2"]}], SuperscriptBox["r", "4"]], "+", FractionBox[ RowBox[{"10000.`", " ", SuperscriptBox["d", "4"], " ", SuperscriptBox["\[CapitalDelta]n", "2"]}], SuperscriptBox["r", "4"]]}]]], "Output", CellChangeTimes->{{3.5797657921911955`*^9, 3.579765827245245*^9}, 3.5797659315293913`*^9, 3.5797659748074527`*^9, 3.5797666260903697`*^9, 3.5797667129444923`*^9, 3.579766756440553*^9, 3.579766872944717*^9, 3.5797669372758074`*^9, 3.579767044846959*^9, 3.5797719496509285`*^9, 3.5797720371910524`*^9, 3.579772230830326*^9, 3.579772512224725*^9, 3.579776431578364*^9, 3.57977663246565*^9, 3.579776678917717*^9, 3.579785199642064*^9, 3.57978525237208*^9, 3.5797852994297714`*^9, 3.5797854456081324`*^9, 3.5797854963610353`*^9, 3.579785602617113*^9, 3.579785661246466*^9, 3.582865828657927*^9, 3.5828659002564983`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"R", "=", RowBox[{"Quantity", "[", RowBox[{"7", ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.5797140441436915`*^9, 3.5797140567447095`*^9}, { 3.5797140995407696`*^9, 3.5797141137627897`*^9}, {3.5797627875159645`*^9, 3.5797627885159655`*^9}, {3.5797629204861517`*^9, 3.579762920916152*^9}}], Cell[BoxData[ TemplateBox[{"7"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )]], "Output", CellChangeTimes->{ 3.5797141166727934`*^9, 3.579759239439737*^9, 3.5797593698079267`*^9, 3.579762374968383*^9, 3.579762789205967*^9, 3.5797629219461536`*^9, 3.5797654290006843`*^9, 3.579765555438862*^9, {3.5797658117032228`*^9, 3.5797658272952447`*^9}, 3.5797659315593915`*^9, 3.579765974837453*^9, 3.5797666261303697`*^9, 3.579766712964492*^9, 3.579766756480553*^9, 3.579766872994717*^9, 3.579766937335808*^9, 3.57976704487696*^9, 3.579771949675929*^9, 3.579772037216052*^9, 3.579772230865326*^9, 3.5797725122597246`*^9, 3.579776431628364*^9, 3.57977663250065*^9, 3.579776678962717*^9, 3.579785199692067*^9, 3.579785252406082*^9, 3.5797852994637737`*^9, 3.5797854456391344`*^9, 3.579785496396037*^9, 3.5797856026541147`*^9, 3.579785661280468*^9, 3.582865828717214*^9, 3.5828659003141527`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{"A1", ",", "\[CapitalDelta]A1"}], "}"}], "=", RowBox[{"{", RowBox[{ RowBox[{"A", "[", RowBox[{ RowBox[{"First", "[", RowBox[{ SubscriptBox["Data", "5"], "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"First", "[", RowBox[{ SubscriptBox["Data", "5"], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], ",", "R"}], "]"}], ",", RowBox[{"\[CapitalDelta]A", "[", RowBox[{ RowBox[{"First", "[", RowBox[{ SubscriptBox["Data", "5"], "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"First", "[", RowBox[{ SubscriptBox["Data", "5"], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], ",", "R", ",", RowBox[{"Last", "[", RowBox[{ SubscriptBox["Data", "5"], "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"Last", "[", RowBox[{ SubscriptBox["Data", "5"], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}]}], "]"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.5797143872081747`*^9, 3.579714405820201*^9}, { 3.5797144429552526`*^9, 3.5797144697682905`*^9}, {3.579715218205344*^9, 3.579715295797454*^9}, {3.579718195910536*^9, 3.579718251849615*^9}, { 3.57971834073074*^9, 3.57971840472983*^9}, {3.579758462851633*^9, 3.5797585021686883`*^9}, 3.5797597458914695`*^9, {3.5797608391392193`*^9, 3.5797608639522543`*^9}, {3.58287324745258*^9, 3.582873260528472*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"7.333464285714287`*^6"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )], ",", TemplateBox[{"534049.7653651206`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{ 3.579758504648692*^9, 3.5797592397497373`*^9, 3.5797593703579273`*^9, 3.579759566242205*^9, 3.5797597467114706`*^9, 3.5797608665832577`*^9, 3.5797620480969224`*^9, 3.579762386010399*^9, 3.5797627922069707`*^9, 3.579762925027158*^9, 3.5797655563688636`*^9, {3.579765788871191*^9, 3.5797658282352457`*^9}, 3.579765932469393*^9, 3.579765975797454*^9, 3.5797666270303707`*^9, 3.5797667138644934`*^9, 3.579766757380554*^9, 3.5797668739147186`*^9, 3.579766938265809*^9, 3.5797670457869606`*^9, 3.5797719506319304`*^9, 3.579772038152054*^9, 3.5797722318103275`*^9, 3.5797725132597265`*^9, 3.5797764326383653`*^9, 3.5797766334156513`*^9, 3.5797766800087185`*^9, 3.5797852006421213`*^9, 3.579785253370137*^9, 3.579785300368825*^9, 3.5797854481792793`*^9, 3.5797854973370914`*^9, 3.5797856036071696`*^9, 3.5797856621935205`*^9, 3.582865829768487*^9, 3.582865901412775*^9, 3.5828675203962307`*^9, {3.582873256673895*^9, 3.582873261958478*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"A1", "\[PlusMinus]", "\[CapitalDelta]A1"}]], "Input", CellChangeTimes->{{3.579761907953725*^9, 3.5797619108137293`*^9}}], Cell[BoxData[ RowBox[{ TemplateBox[{"7.333464285714287`*^6"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )], "\[PlusMinus]", TemplateBox[{"534049.7653651206`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}]], "Output", CellChangeTimes->{3.5797619118447304`*^9, 3.5797655566288643`*^9, 3.5797658283052464`*^9, 3.579765932519393*^9, 3.579765975957454*^9, 3.579766627090371*^9, 3.5797667139044933`*^9, 3.5797667574505544`*^9, 3.579766873974718*^9, 3.579766938305809*^9, 3.579767045856961*^9, 3.5797719507319307`*^9, 3.5797720382570543`*^9, 3.5797722318853273`*^9, 3.5797725133497267`*^9, 3.579776432933366*^9, 3.579776633470651*^9, 3.5797766801387186`*^9, 3.5797852007261257`*^9, 3.579785253396138*^9, 3.5797853004408293`*^9, 3.5797854482302823`*^9, 3.5797854974160957`*^9, 3.579785603652172*^9, 3.5797856622815256`*^9, 3.582865829842084*^9, 3.582865901639028*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{"A2", ",", "\[CapitalDelta]A2"}], "}"}], "=", RowBox[{"{", RowBox[{ RowBox[{"A", "[", RowBox[{ RowBox[{"First", "[", RowBox[{ SubscriptBox["Data", "5"], "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"First", "[", RowBox[{ SubscriptBox["Data", "5"], "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "]"}], ",", "R"}], "]"}], ",", RowBox[{"\[CapitalDelta]A", "[", RowBox[{ RowBox[{"First", "[", RowBox[{ SubscriptBox["Data", "5"], "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"First", "[", RowBox[{ SubscriptBox["Data", "5"], "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "]"}], ",", "R", ",", RowBox[{"Last", "[", RowBox[{ SubscriptBox["Data", "5"], "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"Last", "[", RowBox[{ SubscriptBox["Data", "5"], "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "]"}]}], "]"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.579760891616293*^9, 3.579760921199334*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"7.015646258503401`*^6"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )], ",", TemplateBox[{"284845.8216592103`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.5797609230703373`*^9, 3.5797655575688653`*^9, 3.5797658292352476`*^9, 3.579765933430394*^9, 3.5797659772374563`*^9, 3.579766627980372*^9, 3.5797667148344946`*^9, 3.579766758370556*^9, 3.57976687488472*^9, 3.5797669392558107`*^9, 3.5797670468669624`*^9, 3.579771951776932*^9, 3.579772039192055*^9, 3.579772232835329*^9, 3.579772514340728*^9, 3.5797764352573705`*^9, 3.579776634400653*^9, 3.57977668124872*^9, 3.5797852016491785`*^9, 3.5797852543711944`*^9, 3.579785301488889*^9, 3.5797854492273397`*^9, 3.579785498389151*^9, 3.579785604608227*^9, 3.57978566341759*^9, 3.582865830853917*^9, 3.582865902684814*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"A2", "\[PlusMinus]", "\[CapitalDelta]A2"}]], "Input", CellChangeTimes->{{3.579761921465744*^9, 3.5797619226457453`*^9}}], Cell[BoxData[ RowBox[{ TemplateBox[{"7.015646258503401`*^6"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )], "\[PlusMinus]", TemplateBox[{"284845.8216592103`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}]], "Output", CellChangeTimes->{3.579761923425747*^9, 3.579765559078867*^9, 3.5797658293352475`*^9, 3.579765933470394*^9, 3.5797659774074564`*^9, 3.579766628030372*^9, 3.579766714884495*^9, 3.5797667586405563`*^9, 3.57976687493472*^9, 3.5797669392958107`*^9, 3.5797670469469624`*^9, 3.579771951911932*^9, 3.579772039287055*^9, 3.579772232925329*^9, 3.579772514425728*^9, 3.5797764353323703`*^9, 3.579776634450653*^9, 3.5797766813787203`*^9, 3.5797852016991816`*^9, 3.5797852543941956`*^9, 3.5797853015928955`*^9, 3.579785449268342*^9, 3.5797854984751563`*^9, 3.5797856046702304`*^9, 3.5797856635015955`*^9, 3.582865830944313*^9, 3.5828659028077707`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{"A3", ",", "\[CapitalDelta]A3"}], "}"}], "=", RowBox[{"{", RowBox[{ RowBox[{"A", "[", RowBox[{ RowBox[{"First", "[", RowBox[{ SubscriptBox["Data", "5"], "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"First", "[", RowBox[{ SubscriptBox["Data", "5"], "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "]"}], ",", "R"}], "]"}], ",", RowBox[{"\[CapitalDelta]A", "[", RowBox[{ RowBox[{"First", "[", RowBox[{ SubscriptBox["Data", "5"], "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"First", "[", RowBox[{ SubscriptBox["Data", "5"], "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "]"}], ",", "R", ",", RowBox[{"Last", "[", RowBox[{ SubscriptBox["Data", "5"], "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"Last", "[", RowBox[{ SubscriptBox["Data", "5"], "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "]"}]}], "]"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.579760935491355*^9, 3.579760950152375*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"6.623129251700681`*^6"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )], ",", TemplateBox[{"162964.40298509604`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.579760951694378*^9, 3.579762054847932*^9, 3.5797655611888704`*^9, 3.579765830255249*^9, 3.5797659343903956`*^9, 3.5797659789584584`*^9, 3.5797666289503736`*^9, 3.5797667162844963`*^9, 3.579766759980558*^9, 3.5797668758447213`*^9, 3.5797669402558117`*^9, 3.579767047917964*^9, 3.579771952866934*^9, 3.579772040247057*^9, 3.5797722339553304`*^9, 3.5797725154157295`*^9, 3.5797764362423716`*^9, 3.5797766356106544`*^9, 3.579776682448722*^9, 3.579785202669237*^9, 3.5797852553502502`*^9, 3.5797853027859635`*^9, 3.5797854502603984`*^9, 3.579785499451212*^9, 3.579785605632285*^9, 3.579785664437649*^9, 3.582865831923774*^9, 3.582865903885811*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"A3", "\[PlusMinus]", "\[CapitalDelta]A3"}]], "Input", CellChangeTimes->{{3.57976193987877*^9, 3.579761941368772*^9}}], Cell[BoxData[ RowBox[{ TemplateBox[{"6.623129251700681`*^6"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )], "\[PlusMinus]", TemplateBox[{"162964.40298509604`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}]], "Output", CellChangeTimes->{3.579761942008773*^9, 3.579765561848871*^9, 3.579765830345249*^9, 3.579765934420396*^9, 3.5797659790684586`*^9, 3.5797666290103736`*^9, 3.5797667169544973`*^9, 3.5797667602705584`*^9, 3.5797668758847213`*^9, 3.579766940305812*^9, 3.5797670479879637`*^9, 3.5797719529469337`*^9, 3.5797720405570574`*^9, 3.579772234160331*^9, 3.5797725154957294`*^9, 3.5797764362773714`*^9, 3.579776635870655*^9, 3.579776682578722*^9, 3.5797852027142396`*^9, 3.5797852555112596`*^9, 3.5797853032099876`*^9, 3.579785450298401*^9, 3.5797854995272164`*^9, 3.579785605692289*^9, 3.5797856645466547`*^9, 3.582865831996602*^9, 3.582865904060383*^9}] }, Open ]], Cell[TextData[{ "Unser Pr\[ADoubleDot]perat hat eine Halbwertszeit von ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["T", RowBox[{"1", "/", "2"}]], "=", RowBox[{"5.27", "a"}]}], TraditionalForm]]], " und hatte 1. 1. 2013 eine Aktivit\[ADoubleDot]t von 3.28 MBq. Das \ hei\[SZ]t, dass unsere gemessene Aktivit\[ADoubleDot]t ungef\[ADoubleDot]r um \ den Faktor 2 zu gro\[SZ] ist." }], "Text", CellChangeTimes->{{3.5797625962766953`*^9, 3.579762622560732*^9}, { 3.57976272063487*^9, 3.579762766822935*^9}, {3.5797629540411987`*^9, 3.5797629805672364`*^9}, {3.579763296478682*^9, 3.5797633485767555`*^9}}], Cell["\<\ Wir ermitteln nun den Korrekturfaktor, gem\[ADoubleDot]\[SZ] der Angaben im \ Skript, mit korrigiertem Raumwinkel. Die Korrektur wird den gemessenen Wert \ vermutlich nach oben hin korrigieren. Dies weicht noch mehr von dem tats\ \[ADoubleDot]chlichen Wert ab.\ \>", "Text", CellChangeTimes->{{3.579763392162817*^9, 3.5797634160658503`*^9}, { 3.579766009192501*^9, 3.5797660470495543`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"l", "=", RowBox[{"Quantity", "[", RowBox[{"4", ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.579764953587014*^9, 3.5797649684790354`*^9}}], Cell[BoxData[ TemplateBox[{"4"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"cm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Centimeters\""}], "]"}]& )]], "Output", CellChangeTimes->{3.5797649693190365`*^9, 3.579765561888871*^9, 3.579765830375249*^9, 3.5797659344503956`*^9, 3.5797659791084585`*^9, 3.5797666290503736`*^9, 3.5797667170144978`*^9, 3.5797667603105583`*^9, 3.5797668759247212`*^9, 3.579766940335812*^9, 3.579767048017964*^9, 3.5797719529819336`*^9, 3.579772040612057*^9, 3.579772234225331*^9, 3.57977251553573*^9, 3.579776436337372*^9, 3.579776635910655*^9, 3.579776682663722*^9, 3.579785202766243*^9, 3.579785255589264*^9, 3.5797853032479897`*^9, 3.579785450318402*^9, 3.5797854995642185`*^9, 3.5797856057372913`*^9, 3.5797856645776567`*^9, 3.582865832049039*^9, 3.582865904119075*^9}] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.579762586995682*^9, 3.5797625886556845`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Ak1", "[", RowBox[{"n_", ",", "d_", ",", "r_"}], "]"}], ":=", FractionBox[ RowBox[{"4", "*", "n", "*", RowBox[{ RowBox[{"(", RowBox[{"d", "+", RowBox[{"l", "/", "2"}]}], ")"}], "^", "2"}]}], RowBox[{"\[Epsilon]", "*", RowBox[{"r", "^", "2"}]}]]}]], "Input", CellChangeTimes->{{3.579764975350045*^9, 3.579765004032086*^9}, { 3.579765263407451*^9, 3.579765285290482*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"\[CapitalDelta]Ak1", "[", RowBox[{ "n_", ",", "d_", ",", "r_", ",", "\[CapitalDelta]n_", ",", "\[CapitalDelta]d_"}], "]"}], "=", RowBox[{"Sqrt", "[", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"Ak1", "[", RowBox[{"n", ",", "d", ",", "r"}], "]"}], ",", "n"}], "]"}], "*", "\[CapitalDelta]n"}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"Ak1", "[", RowBox[{"n", ",", "d", ",", "r"}], "]"}], ",", "d"}], "]"}], "*", "\[CapitalDelta]d"}], ")"}], "2"]}], "]"}]}]], "Input", CellChangeTimes->{{3.5797653034135075`*^9, 3.579765310663518*^9}, 3.579765503060788*^9, 3.579765608544937*^9}], Cell[BoxData[ SqrtBox[ RowBox[{ FractionBox[ RowBox[{"40000.`", " ", SuperscriptBox["n", "2"], " ", SuperscriptBox["\[CapitalDelta]d", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"d", "+", TemplateBox[{"2"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"cm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Centimeters\""}], "]"}]& )]}], ")"}], "2"]}], SuperscriptBox["r", "4"]], "+", FractionBox[ RowBox[{"10000.`", " ", SuperscriptBox["\[CapitalDelta]n", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"d", "+", TemplateBox[{"2"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"cm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Centimeters\""}], "]"}]& )]}], ")"}], "4"]}], SuperscriptBox["r", "4"]]}]]], "Output", CellChangeTimes->{3.5797656090549374`*^9, 3.5797658304352493`*^9, 3.579765934500396*^9, 3.579765979168459*^9, 3.5797666291103735`*^9, 3.5797667171144977`*^9, 3.5797667603905582`*^9, 3.5797668759947214`*^9, 3.579766940385812*^9, 3.579767048067964*^9, 3.579771953036934*^9, 3.579772040717057*^9, 3.579772234320331*^9, 3.57977251560073*^9, 3.579776436392372*^9, 3.5797766362956553`*^9, 3.5797766827787223`*^9, 3.579785202824246*^9, 3.5797852557202716`*^9, 3.5797853033119936`*^9, 3.5797854503644047`*^9, 3.5797854996182213`*^9, 3.5797856058042955`*^9, 3.57978566463666*^9, 3.5828658321705847`*^9, 3.5828659042692947`*^9}] }, Open ]], Cell["\<\ Die Korrektur wird f\[UDoubleDot]r steigendes d immer weniger von der \ Korrektur betroffen sein, da l/2 gegen d klein wird. Wir rechnen konkret aus. \ \>", "Text", CellChangeTimes->{{3.579765160403306*^9, 3.5797652424454217`*^9}, 3.5797660004514885`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{"A1k1", ",", "\[CapitalDelta]A1k1"}], "}"}], "=", RowBox[{"{", RowBox[{ RowBox[{"Ak1", "[", RowBox[{ RowBox[{"First", "[", RowBox[{ SubscriptBox["Data", "5"], "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"First", "[", RowBox[{ SubscriptBox["Data", "5"], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], ",", "R"}], "]"}], ",", RowBox[{"\[CapitalDelta]Ak1", "[", RowBox[{ RowBox[{"First", "[", RowBox[{ SubscriptBox["Data", "5"], "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"First", "[", RowBox[{ SubscriptBox["Data", "5"], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], ",", "R", ",", RowBox[{"Last", "[", RowBox[{ SubscriptBox["Data", "5"], "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"Last", "[", RowBox[{ SubscriptBox["Data", "5"], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}]}], "]"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.5797143872081747`*^9, 3.579714405820201*^9}, { 3.5797144429552526`*^9, 3.5797144697682905`*^9}, {3.579715218205344*^9, 3.579715295797454*^9}, {3.579718195910536*^9, 3.579718251849615*^9}, { 3.57971834073074*^9, 3.57971840472983*^9}, {3.579758462851633*^9, 3.5797585021686883`*^9}, 3.5797597458914695`*^9, {3.5797608391392193`*^9, 3.5797608639522543`*^9}, {3.5797653562405815`*^9, 3.579765367042597*^9}, { 3.58286880840091*^9, 3.582868821343886*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"1.3636607142857142`*^7"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )], ",", TemplateBox[{"729077.1940871879`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{ 3.579758504648692*^9, 3.5797592397497373`*^9, 3.5797593703579273`*^9, 3.579759566242205*^9, 3.5797597467114706`*^9, 3.5797608665832577`*^9, 3.5797620480969224`*^9, 3.579762386010399*^9, 3.5797627922069707`*^9, 3.579762925027158*^9, {3.5797653775536118`*^9, 3.579765435211693*^9}, 3.5797654784277534`*^9, 3.579765509791798*^9, 3.579765563338873*^9, 3.579765618706951*^9, 3.5797658313462505`*^9, 3.579765935410397*^9, 3.5797659800994596`*^9, 3.5797666300203753`*^9, 3.579766724535508*^9, 3.57976676128056*^9, 3.5797668768847227`*^9, 3.5797669413068132`*^9, 3.579767048967965*^9, 3.579771953967935*^9, 3.579772041682059*^9, 3.5797722353513327`*^9, 3.5797725165357313`*^9, 3.5797764372973733`*^9, 3.579776637290657*^9, 3.579776683973724*^9, 3.5797852037282977`*^9, 3.5797852567273293`*^9, 3.579785304242047*^9, 3.579785451298458*^9, 3.5797855005922775`*^9, 3.57978560694536*^9, 3.5797856656397176`*^9, 3.5828658331405983`*^9, 3.582865905284996*^9, {3.5828688152667627`*^9, 3.582868822762781*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"A1k1", "\[PlusMinus]", "\[CapitalDelta]A1k1"}]], "Input", CellChangeTimes->{{3.579761907953725*^9, 3.5797619108137293`*^9}, { 3.579765861510293*^9, 3.5797658632802954`*^9}}], Cell[BoxData[ RowBox[{ TemplateBox[{"1.3636607142857142`*^7"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )], "\[PlusMinus]", TemplateBox[{"729077.1940871879`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}]], "Output", CellChangeTimes->{3.5797619118447304`*^9, 3.5797655634188733`*^9, 3.5797658314262505`*^9, 3.5797659354503975`*^9, 3.5797659802694607`*^9, 3.5797666300703754`*^9, 3.579766724895509*^9, 3.57976676136056*^9, 3.579766876934723*^9, 3.5797669413568134`*^9, 3.579767049047965*^9, 3.5797719540429354`*^9, 3.579772042047059*^9, 3.5797722354213324`*^9, 3.5797725166157312`*^9, 3.579776437357373*^9, 3.5797766373556566`*^9, 3.579776684063724*^9, 3.579785203792301*^9, 3.5797852567913327`*^9, 3.579785304355053*^9, 3.5797854513514605`*^9, 3.5797855006782827`*^9, 3.579785606997363*^9, 3.5797856657107215`*^9, 3.5828658332641783`*^9, 3.5828659053955097`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{"A2k1", ",", "\[CapitalDelta]A2k1"}], "}"}], "=", RowBox[{"{", RowBox[{ RowBox[{"Ak1", "[", RowBox[{ RowBox[{"First", "[", RowBox[{ SubscriptBox["Data", "5"], "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"First", "[", RowBox[{ SubscriptBox["Data", "5"], "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "]"}], ",", "R"}], "]"}], ",", RowBox[{"\[CapitalDelta]Ak1", "[", RowBox[{ RowBox[{"First", "[", RowBox[{ SubscriptBox["Data", "5"], "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"First", "[", RowBox[{ SubscriptBox["Data", "5"], "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "]"}], ",", "R", ",", RowBox[{"Last", "[", RowBox[{ SubscriptBox["Data", "5"], "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"Last", "[", RowBox[{ SubscriptBox["Data", "5"], "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "]"}]}], "]"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.579760891616293*^9, 3.579760921199334*^9}, { 3.5797658533582816`*^9, 3.5797658560892854`*^9}, {3.579765888343331*^9, 3.5797659024643507`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"1.0102530612244897`*^7"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )], ",", TemplateBox[{"344019.51689547783`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{ 3.5797609230703373`*^9, 3.5797655643088746`*^9, 3.579765832346252*^9, { 3.5797659081953583`*^9, 3.579765936350398*^9}, 3.5797659816594625`*^9, 3.579766630982376*^9, 3.5797667270455112`*^9, 3.5797667622405615`*^9, 3.579766877826724*^9, 3.5797669422668147`*^9, 3.5797670499479666`*^9, 3.5797719549779367`*^9, 3.5797720429480605`*^9, 3.5797722363563337`*^9, 3.5797725175507326`*^9, 3.5797764382823744`*^9, 3.5797766385306587`*^9, 3.5797766850797253`*^9, 3.5797852047853584`*^9, 3.5797852578193913`*^9, 3.579785305311108*^9, 3.579785452328517*^9, 3.5797855016963406`*^9, 3.5797856078964148`*^9, 3.5797856666217737`*^9, 3.58286583426847*^9, 3.582865906376526*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"A2k1", "\[PlusMinus]", "\[CapitalDelta]A2k1"}]], "Input", CellChangeTimes->{{3.579761921465744*^9, 3.5797619226457453`*^9}, { 3.5797658660502996`*^9, 3.5797658674803014`*^9}}], Cell[BoxData[ RowBox[{ TemplateBox[{"1.0102530612244897`*^7"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )], "\[PlusMinus]", TemplateBox[{"344019.51689547783`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}]], "Output", CellChangeTimes->{3.579761923425747*^9, 3.579765564348875*^9, 3.579765832376252*^9, 3.5797659364003983`*^9, 3.579765981749462*^9, 3.579766631022376*^9, 3.579766727115512*^9, 3.5797667622805614`*^9, 3.5797668778767242`*^9, 3.579766942306815*^9, 3.579767049997967*^9, 3.5797719550579367`*^9, 3.579772043023061*^9, 3.579772236431334*^9, 3.579772517625733*^9, 3.5797764383173747`*^9, 3.5797766385806584`*^9, 3.579776685149726*^9, 3.5797852048663626`*^9, 3.579785257884395*^9, 3.579785305395113*^9, 3.579785452409521*^9, 3.579785501780345*^9, 3.579785607934417*^9, 3.5797856666657763`*^9, 3.5828658343515577`*^9, 3.582865906479961*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{"A3k1", ",", "\[CapitalDelta]A3k1"}], "}"}], "=", RowBox[{"{", RowBox[{ RowBox[{"Ak1", "[", RowBox[{ RowBox[{"First", "[", RowBox[{ SubscriptBox["Data", "5"], "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"First", "[", RowBox[{ SubscriptBox["Data", "5"], "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "]"}], ",", "R"}], "]"}], ",", RowBox[{"\[CapitalDelta]Ak1", "[", RowBox[{ RowBox[{"First", "[", RowBox[{ SubscriptBox["Data", "5"], "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"First", "[", RowBox[{ SubscriptBox["Data", "5"], "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "]"}], ",", "R", ",", RowBox[{"Last", "[", RowBox[{ SubscriptBox["Data", "5"], "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"Last", "[", RowBox[{ SubscriptBox["Data", "5"], "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "]"}]}], "]"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.579760935491355*^9, 3.579760950152375*^9}, { 3.5797658702913055`*^9, 3.579765892763337*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"8.013986394557825`*^6"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )], ",", TemplateBox[{"185537.49037106897`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.579760951694378*^9, 3.579762054847932*^9, 3.579765565249876*^9, 3.5797658333062534`*^9, 3.5797659373004*^9, 3.5797659826494637`*^9, 3.579766631942378*^9, 3.5797667279965134`*^9, 3.579766763161563*^9, 3.5797668787667255`*^9, 3.579766943216816*^9, 3.5797670509379683`*^9, 3.579771955982938*^9, 3.579772043933062*^9, 3.5797722373563356`*^9, 3.579772518551734*^9, 3.5797764402033772`*^9, 3.57977663950566*^9, 3.579776686074727*^9, 3.5797852058114166`*^9, 3.5797852588144484`*^9, 3.579785306343167*^9, 3.5797854535335855`*^9, 3.5797855028234053`*^9, 3.579785608879471*^9, 3.5797856676678333`*^9, 3.5828658353183126`*^9, 3.5828659075226088`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"A3k1", "\[PlusMinus]", "\[CapitalDelta]A3k1"}]], "Input", CellChangeTimes->{{3.57976193987877*^9, 3.579761941368772*^9}, { 3.579765879732319*^9, 3.579765881652321*^9}}], Cell[BoxData[ RowBox[{ TemplateBox[{"8.013986394557825`*^6"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )], "\[PlusMinus]", TemplateBox[{"185537.49037106897`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}]], "Output", CellChangeTimes->{3.579761942008773*^9, 3.579765565289876*^9, 3.5797658333462534`*^9, 3.5797659373403997`*^9, 3.5797659826794634`*^9, 3.579766632002378*^9, 3.579766728026513*^9, 3.579766763241563*^9, 3.5797668788067255`*^9, 3.579766943276816*^9, 3.579767050977968*^9, 3.579771956027938*^9, 3.579772043968062*^9, 3.5797722373963356`*^9, 3.579772518591734*^9, 3.5797764402783775`*^9, 3.57977663954566*^9, 3.579776686109727*^9, 3.579785205914423*^9, 3.579785258860451*^9, 3.5797853064411726`*^9, 3.579785453587589*^9, 3.579785502895409*^9, 3.5797856089304743`*^9, 3.5797856677038355`*^9, 3.5828658353896637`*^9, 3.582865907648284*^9}] }, Open ]], Cell[TextData[{ "Nun wird die zweite Korrektur durchgef\[UDoubleDot]hrt. Wir \ \[UDoubleDot]bernejmen ", Cell[BoxData[ FormBox[ RowBox[{"\[Mu]", "/", SubscriptBox["\[Rho]", "Pb"]}], TraditionalForm]]], " aus dem vorherigen Teil. Da unsere Messung bisher die abgeschirmte Aktivit\ \[ADoubleDot]t zum Ergebnis hatte stellen wir die Gleichung (11) aus dem \ Skript um." }], "Text", CellChangeTimes->{{3.579767189260163*^9, 3.5797672372662306`*^9}, { 3.579767268070274*^9, 3.579767319488346*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x", "=", RowBox[{"Quantity", "[", RowBox[{"1.4", ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.579771592559424*^9, 3.579771592794424*^9}, { 3.5797717468656416`*^9, 3.5797717661726685`*^9}}], Cell[BoxData[ TemplateBox[{"1.4`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millimeters\""}], "]"}]& )]], "Output", CellChangeTimes->{3.579771766612669*^9, 3.579771956097938*^9, 3.579772044033062*^9, 3.579772166791236*^9, 3.5797722374663353`*^9, 3.579772518686734*^9, 3.5797764403233776`*^9, 3.57977663958566*^9, 3.579776686179727*^9, 3.5797852059844265`*^9, 3.5797852589054537`*^9, 3.5797853064771748`*^9, 3.5797854536235905`*^9, 3.5797855029524126`*^9, 3.5797856089614754`*^9, 3.5797856677698393`*^9, 3.5828658354377117`*^9, 3.58286590769154*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[Rho]", "abs"], "=", RowBox[{"Quantity", "[", RowBox[{"7.9", ",", RowBox[{"\"\\"", "/", RowBox[{"\"\\"", "^", "3"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5797717712376757`*^9, 3.579771813567735*^9}}], Cell[BoxData[ TemplateBox[{"7.9`"}, "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.5797718143727365`*^9, 3.5797719561779385`*^9, 3.579772044098062*^9, 3.579772180123255*^9, 3.5797722375413356`*^9, 3.5797725187617345`*^9, 3.5797764404033775`*^9, 3.57977663966566*^9, 3.5797766862497272`*^9, 3.579785206096433*^9, 3.579785258977458*^9, 3.579785306558179*^9, 3.579785453700595*^9, 3.5797855030334167`*^9, 3.57978560903448*^9, 3.5797856678438435`*^9, 3.582865835525029*^9, 3.582865907760186*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U", "=", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalMu]", ",", "\[CapitalDelta]\[CapitalMu]"}], "}"}], "=", FractionBox[ RowBox[{"{", RowBox[{"\[Mu]", ",", "\[CapitalDelta]\[Mu]"}], "}"}], SubscriptBox["\[Rho]", "Pb"]]}]}]], "Input", CellChangeTimes->{{3.579772488862692*^9, 3.579772490137694*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"0.050630581160120175`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ SuperscriptBox["\"cm\"", "2"], "\[NegativeMediumSpace]", "\"/\"", "\[InvisibleSpace]", "\"g\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters squared per gram"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox[ SuperscriptBox["\"Centimeters\"", "2"], "\"Grams\""]}], "]"}]& )], ",", TemplateBox[{"0.017872580201139885`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ SuperscriptBox["\"cm\"", "2"], "\[NegativeMediumSpace]", "\"/\"", "\[InvisibleSpace]", "\"g\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters squared per gram"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox[ SuperscriptBox["\"Centimeters\"", "2"], "\"Grams\""]}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{{3.579772492612697*^9, 3.579772519186735*^9}, 3.579776440808378*^9, 3.579776640245661*^9, 3.5797766866597276`*^9, 3.579785206548459*^9, 3.5797852593814807`*^9, 3.5797853067111883`*^9, 3.5797854538576045`*^9, 3.5797855034814425`*^9, 3.579785609442503*^9, 3.5797856682618675`*^9, 3.582865835958222*^9, 3.5828659082129297`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Ak2", "[", RowBox[{"t_", ",", "s_", ",", "z_"}], "]"}], ":=", FractionBox[ RowBox[{"Ak1", "[", RowBox[{"t", ",", "s", ",", "z"}], "]"}], RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", RowBox[{"First", "[", "U", "]"}]}], "*", SubscriptBox["\[Rho]", "abs"], "*", "x"}], "]"}]]}]], "Input", CellChangeTimes->{{3.5797673226883507`*^9, 3.5797673504213896`*^9}, { 3.5797714661972456`*^9, 3.5797715899384203`*^9}, {3.579771819923744*^9, 3.5797718430367765`*^9}, {3.579771972404961*^9, 3.579771989106984*^9}, { 3.579772089814127*^9, 3.579772103321146*^9}, {3.579772284603403*^9, 3.579772295180418*^9}, 3.579772366755519*^9, {3.5797725331797547`*^9, 3.579772538429762*^9}, {3.579772854443207*^9, 3.579772854613207*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"\[CapitalDelta]Ak2", "[", RowBox[{ "t_", ",", "s_", ",", "z_", ",", "\[CapitalDelta]t_", ",", "\[CapitalDelta]s_"}], "]"}], "=", RowBox[{"Sqrt", "[", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"Ak2", "[", RowBox[{"t", ",", "s", ",", "z"}], "]"}], ",", "t"}], "]"}], "*", "\[CapitalDelta]t"}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"Ak2", "[", RowBox[{"t", ",", "s", ",", "z"}], "]"}], ",", "s"}], "]"}], "*", "\[CapitalDelta]s"}], ")"}], "2"]}], "]"}]}]], "Input", CellChangeTimes->{{3.579772299761424*^9, 3.5797723041124306`*^9}, { 3.579772344617488*^9, 3.579772453237641*^9}}], Cell[BoxData[ SqrtBox[ RowBox[{ FractionBox[ RowBox[{"44740.28381258612`", " ", SuperscriptBox["t", "2"], " ", SuperscriptBox["\[CapitalDelta]s", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"s", "+", TemplateBox[{"2"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"cm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Centimeters\""}], "]"}]& )]}], ")"}], "2"]}], SuperscriptBox["z", "4"]], "+", FractionBox[ RowBox[{"11185.07095314653`", " ", SuperscriptBox["\[CapitalDelta]t", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"s", "+", TemplateBox[{"2"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"cm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Centimeters\""}], "]"}]& )]}], ")"}], "4"]}], SuperscriptBox["z", "4"]]}]]], "Output", CellChangeTimes->{ 3.5797724553626437`*^9, {3.5797725196267357`*^9, 3.579772545225772*^9}, 3.5797728597382145`*^9, 3.5797764415863805`*^9, 3.579776641095662*^9, 3.579776687489729*^9, 3.5797852073895073`*^9, 3.5797852601605253`*^9, 3.579785307519234*^9, 3.579785454676651*^9, 3.5797855043184905`*^9, 3.5797856102385488`*^9, 3.579785669055913*^9, 3.582865836828483*^9, 3.582865909092724*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{"A1k2", ",", "\[CapitalDelta]A1k2"}], "}"}], "=", RowBox[{"{", RowBox[{ RowBox[{"Ak2", "[", RowBox[{ RowBox[{"First", "[", RowBox[{ SubscriptBox["Data", "5"], "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"First", "[", RowBox[{ SubscriptBox["Data", "5"], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], ",", "R"}], "]"}], ",", RowBox[{"\[CapitalDelta]Ak2", "[", RowBox[{ RowBox[{"First", "[", RowBox[{ SubscriptBox["Data", "5"], "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"First", "[", RowBox[{ SubscriptBox["Data", "5"], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], ",", "R", ",", RowBox[{"Last", "[", RowBox[{ SubscriptBox["Data", "5"], "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"Last", "[", RowBox[{ SubscriptBox["Data", "5"], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}]}], "]"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.5797143872081747`*^9, 3.579714405820201*^9}, { 3.5797144429552526`*^9, 3.5797144697682905`*^9}, {3.579715218205344*^9, 3.579715295797454*^9}, {3.579718195910536*^9, 3.579718251849615*^9}, { 3.57971834073074*^9, 3.57971840472983*^9}, {3.579758462851633*^9, 3.5797585021686883`*^9}, 3.5797597458914695`*^9, {3.5797608391392193`*^9, 3.5797608639522543`*^9}, {3.5797653562405815`*^9, 3.579765367042597*^9}, { 3.5797727612650757`*^9, 3.579772769186087*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"1.4422006959335336`*^7"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )], ",", TemplateBox[{"771068.3645033899`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{ 3.579758504648692*^9, 3.5797592397497373`*^9, 3.5797593703579273`*^9, 3.579759566242205*^9, 3.5797597467114706`*^9, 3.5797608665832577`*^9, 3.5797620480969224`*^9, 3.579762386010399*^9, 3.5797627922069707`*^9, 3.579762925027158*^9, {3.5797653775536118`*^9, 3.579765435211693*^9}, 3.5797654784277534`*^9, 3.579765509791798*^9, 3.579765563338873*^9, 3.579765618706951*^9, 3.5797658313462505`*^9, 3.579765935410397*^9, 3.5797659800994596`*^9, 3.5797666300203753`*^9, 3.579766724535508*^9, 3.57976676128056*^9, 3.5797668768847227`*^9, 3.5797669413068132`*^9, 3.579767048967965*^9, 3.579771953967935*^9, 3.579772041682059*^9, 3.5797722353513327`*^9, 3.5797725165357313`*^9, {3.5797728036831355`*^9, 3.5797728261901674`*^9}, 3.5797728634832196`*^9, 3.579776442891382*^9, 3.579776642503664*^9, 3.579776689089731*^9, 3.579785208717583*^9, 3.5797852615186033`*^9, 3.579785308912314*^9, 3.579785456034729*^9, 3.579785505752572*^9, 3.579785611588626*^9, 3.5797856704179907`*^9, 3.582865838250904*^9, 3.582865910587287*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"A1k2", "\[PlusMinus]", "\[CapitalDelta]A1k2"}]], "Input", CellChangeTimes->{{3.579761907953725*^9, 3.5797619108137293`*^9}, { 3.579765861510293*^9, 3.5797658632802954`*^9}, {3.5797727716710906`*^9, 3.5797727728060923`*^9}}], Cell[BoxData[ RowBox[{ TemplateBox[{"1.4422006959335336`*^7"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )], "\[PlusMinus]", TemplateBox[{"771068.3645033899`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}]], "Output", CellChangeTimes->{3.5797619118447304`*^9, 3.5797655634188733`*^9, 3.5797658314262505`*^9, 3.5797659354503975`*^9, 3.5797659802694607`*^9, 3.5797666300703754`*^9, 3.579766724895509*^9, 3.57976676136056*^9, 3.579766876934723*^9, 3.5797669413568134`*^9, 3.579767049047965*^9, 3.5797719540429354`*^9, 3.579772042047059*^9, 3.5797722354213324`*^9, 3.5797725166157312`*^9, 3.579772830241173*^9, 3.579772868469227*^9, 3.5797764429663825`*^9, 3.579776642548664*^9, 3.5797766891797314`*^9, 3.5797852088105884`*^9, 3.5797852617836185`*^9, 3.5797853090623226`*^9, 3.579785456162736*^9, 3.579785505825577*^9, 3.5797856116446295`*^9, 3.5797856704929953`*^9, 3.58286583832206*^9, 3.582865910686596*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{"A2k2", ",", "\[CapitalDelta]A2k2"}], "}"}], "=", RowBox[{"{", RowBox[{ RowBox[{"Ak2", "[", RowBox[{ RowBox[{"First", "[", RowBox[{ SubscriptBox["Data", "5"], "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"First", "[", RowBox[{ SubscriptBox["Data", "5"], "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "]"}], ",", "R"}], "]"}], ",", RowBox[{"\[CapitalDelta]Ak2", "[", RowBox[{ RowBox[{"First", "[", RowBox[{ SubscriptBox["Data", "5"], "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"First", "[", RowBox[{ SubscriptBox["Data", "5"], "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "]"}], ",", "R", ",", RowBox[{"Last", "[", RowBox[{ SubscriptBox["Data", "5"], "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"Last", "[", RowBox[{ SubscriptBox["Data", "5"], "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "]"}]}], "]"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.579760891616293*^9, 3.579760921199334*^9}, { 3.5797658533582816`*^9, 3.5797658560892854`*^9}, {3.579765888343331*^9, 3.5797659024643507`*^9}, {3.5797727747460947`*^9, 3.5797727790011005`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"1.0684385439160446`*^7"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )], ",", TemplateBox[{"363833.3065430114`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{ 3.5797609230703373`*^9, 3.5797655643088746`*^9, 3.579765832346252*^9, { 3.5797659081953583`*^9, 3.579765936350398*^9}, 3.5797659816594625`*^9, 3.579766630982376*^9, 3.5797667270455112`*^9, 3.5797667622405615`*^9, 3.579766877826724*^9, 3.5797669422668147`*^9, 3.5797670499479666`*^9, 3.5797719549779367`*^9, 3.5797720429480605`*^9, 3.5797722363563337`*^9, 3.5797725175507326`*^9, 3.579772873094233*^9, 3.579776444226384*^9, 3.579776643878666*^9, 3.579776690754733*^9, 3.5797852101176634`*^9, 3.579785263076692*^9, 3.579785310383398*^9, 3.5797854575248137`*^9, 3.579785507128651*^9, 3.579785612919702*^9, 3.579785671790069*^9, 3.582865839719296*^9, 3.582865912115321*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"A2k2", "\[PlusMinus]", "\[CapitalDelta]A2k2"}]], "Input", CellChangeTimes->{{3.579761921465744*^9, 3.5797619226457453`*^9}, { 3.5797658660502996`*^9, 3.5797658674803014`*^9}, {3.5797727821711054`*^9, 3.5797727832971067`*^9}}], Cell[BoxData[ RowBox[{ TemplateBox[{"1.0684385439160446`*^7"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )], "\[PlusMinus]", TemplateBox[{"363833.3065430114`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}]], "Output", CellChangeTimes->{3.579761923425747*^9, 3.579765564348875*^9, 3.579765832376252*^9, 3.5797659364003983`*^9, 3.579765981749462*^9, 3.579766631022376*^9, 3.579766727115512*^9, 3.5797667622805614`*^9, 3.5797668778767242`*^9, 3.579766942306815*^9, 3.579767049997967*^9, 3.5797719550579367`*^9, 3.579772043023061*^9, 3.579772236431334*^9, 3.579772517625733*^9, 3.5797728785102406`*^9, 3.5797764443013844`*^9, 3.579776643923666*^9, 3.579776690829734*^9, 3.579785210218669*^9, 3.5797852631376953`*^9, 3.5797853105524073`*^9, 3.579785457650821*^9, 3.5797855072046556`*^9, 3.5797856129647045`*^9, 3.579785671860073*^9, 3.582865839843481*^9, 3.582865912243774*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{"A3k2", ",", "\[CapitalDelta]A3k2"}], "}"}], "=", RowBox[{"{", RowBox[{ RowBox[{"Ak2", "[", RowBox[{ RowBox[{"First", "[", RowBox[{ SubscriptBox["Data", "5"], "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"First", "[", RowBox[{ SubscriptBox["Data", "5"], "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "]"}], ",", "R"}], "]"}], ",", RowBox[{"\[CapitalDelta]Ak2", "[", RowBox[{ RowBox[{"First", "[", RowBox[{ SubscriptBox["Data", "5"], "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"First", "[", RowBox[{ SubscriptBox["Data", "5"], "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "]"}], ",", "R", ",", RowBox[{"Last", "[", RowBox[{ SubscriptBox["Data", "5"], "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}], "]"}], ",", RowBox[{"Last", "[", RowBox[{ SubscriptBox["Data", "5"], "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "]"}]}], "]"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.579760935491355*^9, 3.579760950152375*^9}, { 3.5797658702913055`*^9, 3.579765892763337*^9}, {3.579772784637109*^9, 3.579772795433124*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"8.47555160484852`*^6"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )], ",", TemplateBox[{"196223.5143476115`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.579760951694378*^9, 3.579762054847932*^9, 3.579765565249876*^9, 3.5797658333062534`*^9, 3.5797659373004*^9, 3.5797659826494637`*^9, 3.579766631942378*^9, 3.5797667279965134`*^9, 3.579766763161563*^9, 3.5797668787667255`*^9, 3.579766943216816*^9, 3.5797670509379683`*^9, 3.579771955982938*^9, 3.579772043933062*^9, 3.5797722373563356`*^9, 3.579772518551734*^9, 3.5797728820902452`*^9, 3.579776445566386*^9, 3.579776645202669*^9, 3.5797766921297355`*^9, 3.579785211564746*^9, 3.5797852644467707`*^9, 3.5797853119824896`*^9, 3.5797854590409007`*^9, 3.5797855085957355`*^9, 3.579785614333783*^9, 3.5797856731921496`*^9, 3.58286584131682*^9, 3.582865913684613*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"A3k2", "\[PlusMinus]", "\[CapitalDelta]A3k2"}]], "Input", CellChangeTimes->{{3.57976193987877*^9, 3.579761941368772*^9}, { 3.579765879732319*^9, 3.579765881652321*^9}, {3.579772787057112*^9, 3.579772790402117*^9}}], Cell[BoxData[ RowBox[{ TemplateBox[{"8.47555160484852`*^6"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )], "\[PlusMinus]", TemplateBox[{"196223.5143476115`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}]], "Output", CellChangeTimes->{3.579761942008773*^9, 3.579765565289876*^9, 3.5797658333462534`*^9, 3.5797659373403997`*^9, 3.5797659826794634`*^9, 3.579766632002378*^9, 3.579766728026513*^9, 3.579766763241563*^9, 3.5797668788067255`*^9, 3.579766943276816*^9, 3.579767050977968*^9, 3.579771956027938*^9, 3.579772043968062*^9, 3.5797722373963356`*^9, 3.579772518591734*^9, 3.579772884267249*^9, 3.579776445636386*^9, 3.579776645247669*^9, 3.5797766922047358`*^9, 3.579785211656751*^9, 3.5797852645157747`*^9, 3.5797853122305036`*^9, 3.579785459163908*^9, 3.579785508665739*^9, 3.5797856143797855`*^9, 3.5797856732521524`*^9, 3.5828658414131737`*^9, 3.582865913901164*^9}] }, Open ]], Cell["\<\ Die hier versammelten Werte sind nun mithilfe aller Korrekturfaktoren \ ausgerechnet und entsprechen in keinster Weise den Herstellerangaben. M\ \[ODoubleDot]gliche Gr\[UDoubleDot]nde daf\[UDoubleDot]r werden im \ Handschriftlichen diskutiert. \ \>", "Text", CellChangeTimes->{{3.579772969036369*^9, 3.5797730033794174`*^9}, { 3.5797730574514933`*^9, 3.5797730797775245`*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ 6 Absorbtionsmessung und Energiebestimmung von \[Alpha]-Strahlungs\ \>", "Section", CellChangeTimes->{{3.5775297194967017`*^9, 3.5775297776224036`*^9}, 3.577529824313286*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["p", "0"], "=", RowBox[{"Quantity", "[", RowBox[{"21", ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.577530198590143*^9, 3.577530233440604*^9}}], Cell[BoxData[ TemplateBox[{"21"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mbar\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millibars"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millibars\""}], "]"}]& )]], "Output", CellChangeTimes->{3.577530218183778*^9, 3.5791811314580865`*^9, 3.579694068899561*^9, 3.5797592406897383`*^9, 3.5797593722379303`*^9, 3.5797655653198757`*^9, 3.5797658333862534`*^9, 3.5797659373703995`*^9, 3.579765982749464*^9, 3.579766632032378*^9, 3.579766728066513*^9, 3.5797667632715626`*^9, 3.5797668788467255`*^9, 3.579766943306816*^9, 3.5797670510089684`*^9, 3.5797719564279385`*^9, 3.5797720443380623`*^9, 3.5797722382013364`*^9, 3.5797725197117357`*^9, 3.579776445676386*^9, 3.579776645282669*^9, 3.5797766922347355`*^9, 3.579785211737756*^9, 3.579785264561777*^9, 3.579785312294507*^9, 3.57978545920191*^9, 3.5797855087047415`*^9, 3.579785614406787*^9, 3.5797856732791543`*^9, 3.5828658414500723`*^9, 3.582865913947319*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["Data", "4"], "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"21", ",", "3"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"13209", "/", "60"}], ",", "\"\\""}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"269", ",", "3"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"12952", "/", "60"}], ",", "\"\\""}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"313", ",", "3"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"12863", "/", "60"}], ",", "\"\\""}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"410", ",", "3"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"7338", "/", "60"}], ",", "\"\\""}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"482", ",", "3"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"1250", "/", "60"}], ",", "\"\\""}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"500", ",", "3"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"721", "/", "60"}], ",", "\"\\""}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"546", ",", "3"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"290", "/", "60"}], ",", "\"\\""}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"612", ",", "3"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"276", "/", "60"}], ",", "\"\\""}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"725", ",", "3"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"266", "/", "60"}], ",", "\"\\""}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"810", ",", "3"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"244", "/", "60"}], ",", "\"\\""}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"888", ",", "3"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"253", "/", "60"}], ",", "\"\\""}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"996", ",", "3"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"230", "/", "60"}], ",", "\"\\""}], "]"}]}], "}"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.5775302408974175`*^9, 3.5775303528940144`*^9}, { 3.5775303871828747`*^9, 3.5775304119869184`*^9}, {3.5775305003454733`*^9, 3.57753056132598*^9}, {3.5775306097952657`*^9, 3.5775306100292664`*^9}, { 3.5775307029590387`*^9, 3.577530735547496*^9}, {3.577530850613298*^9, 3.577530871127334*^9}, {3.5775309589086885`*^9, 3.5775309725587125`*^9}, { 3.5775311373418016`*^9, 3.577531217097142*^9}, {3.577531287078865*^9, 3.5775313070313005`*^9}, {3.5775314438591404`*^9, 3.577531494278429*^9}, { 3.5775315593305435`*^9, 3.5775315826993847`*^9}, {3.5775316989507885`*^9, 3.5775316993095894`*^9}, {3.5797746738977957`*^9, 3.5797746745127964`*^9}, { 3.5797747491879034`*^9, 3.579774815992*^9}, {3.5797767219477773`*^9, 3.57977672425778*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"21"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mbar\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millibars"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millibars\""}], "]"}]& )], ",", TemplateBox[{"3"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mbar\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millibars"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millibars\""}], "]"}]& )]}], "}"}], ",", TemplateBox[{FractionBox["4403", "20"]}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"269"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mbar\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millibars"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millibars\""}], "]"}]& )], ",", TemplateBox[{"3"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mbar\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millibars"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millibars\""}], "]"}]& )]}], "}"}], ",", TemplateBox[{FractionBox["3238", "15"]}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"313"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mbar\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millibars"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millibars\""}], "]"}]& )], ",", TemplateBox[{"3"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mbar\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millibars"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millibars\""}], "]"}]& )]}], "}"}], ",", TemplateBox[{FractionBox["12863", "60"]}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"410"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mbar\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millibars"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millibars\""}], "]"}]& )], ",", TemplateBox[{"3"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mbar\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millibars"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millibars\""}], "]"}]& )]}], "}"}], ",", TemplateBox[{FractionBox["1223", "10"]}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"482"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mbar\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millibars"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millibars\""}], "]"}]& )], ",", TemplateBox[{"3"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mbar\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millibars"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millibars\""}], "]"}]& )]}], "}"}], ",", TemplateBox[{FractionBox["125", "6"]}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"500"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mbar\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millibars"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millibars\""}], "]"}]& )], ",", TemplateBox[{"3"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mbar\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millibars"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millibars\""}], "]"}]& )]}], "}"}], ",", TemplateBox[{FractionBox["721", "60"]}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"546"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mbar\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millibars"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millibars\""}], "]"}]& )], ",", TemplateBox[{"3"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mbar\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millibars"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millibars\""}], "]"}]& )]}], "}"}], ",", TemplateBox[{FractionBox["29", "6"]}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"612"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mbar\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millibars"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millibars\""}], "]"}]& )], ",", TemplateBox[{"3"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mbar\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millibars"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millibars\""}], "]"}]& )]}], "}"}], ",", TemplateBox[{FractionBox["23", "5"]}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"725"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mbar\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millibars"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millibars\""}], "]"}]& )], ",", TemplateBox[{"3"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mbar\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millibars"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millibars\""}], "]"}]& )]}], "}"}], ",", TemplateBox[{FractionBox["133", "30"]}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"810"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mbar\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millibars"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millibars\""}], "]"}]& )], ",", TemplateBox[{"3"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mbar\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millibars"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millibars\""}], "]"}]& )]}], "}"}], ",", TemplateBox[{FractionBox["61", "15"]}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"888"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mbar\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millibars"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millibars\""}], "]"}]& )], ",", TemplateBox[{"3"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mbar\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millibars"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millibars\""}], "]"}]& )]}], "}"}], ",", TemplateBox[{FractionBox["253", "60"]}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"996"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mbar\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millibars"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millibars\""}], "]"}]& )], ",", TemplateBox[{"3"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mbar\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millibars"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millibars\""}], "]"}]& )]}], "}"}], ",", TemplateBox[{FractionBox["23", "6"]}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.5797746758777986`*^9, 3.579776446201387*^9, 3.5797766147286253`*^9, 3.57977664573767*^9, 3.579776692759736*^9, 3.5797767252477818`*^9, 3.5797852121667805`*^9, 3.579785264929798*^9, 3.5797853142746205`*^9, 3.5797854595729313`*^9, 3.5797855090707626`*^9, 3.579785614768808*^9, 3.579785673617174*^9, 3.582865841836994*^9, 3.582865914342978*^9}] }, Open ]], Cell[CellGroupData[{ Cell["Auswertung", "Subsection", CellChangeTimes->{{3.5797853342977657`*^9, 3.579785336241877*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["CData", "4"], "=", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["Data", "4"], "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["Data", "4"], "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"QuantityMagnitude", "[", RowBox[{ SubscriptBox["Data", "4"], "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", "\"\\""}], "]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", SubscriptBox["Data", "4"], "]"}]}], "}"}]}], "]"}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.5797750651843557`*^9, 3.5797750780013733`*^9}, { 3.5797751607464895`*^9, 3.579775161901491*^9}, 3.579775192949535*^9, { 3.579785546378896*^9, 3.579785546757918*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"21.`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mbar\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millibars"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millibars\""}], "]"}]& )], ",", TemplateBox[{"3.`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mbar\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millibars"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millibars\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"220.15`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )], ",", TemplateBox[{"14.837452611550273`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"269.`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mbar\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millibars"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millibars\""}], "]"}]& )], ",", TemplateBox[{"3.`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mbar\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millibars"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millibars\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"215.86666666666667`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )], ",", TemplateBox[{"14.69240166435245`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"313.`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mbar\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millibars"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millibars\""}], "]"}]& )], ",", TemplateBox[{"3.`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mbar\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millibars"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millibars\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"214.38333333333333`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )], ",", TemplateBox[{"14.641835039821112`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"410.`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mbar\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millibars"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millibars\""}], "]"}]& )], ",", TemplateBox[{"3.`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mbar\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millibars"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millibars\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"122.3`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )], ",", TemplateBox[{"11.058933040759403`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"482.`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mbar\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millibars"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millibars\""}], "]"}]& )], ",", TemplateBox[{"3.`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mbar\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millibars"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millibars\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"20.833333333333332`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )], ",", TemplateBox[{"4.564354645876384`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"500.`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mbar\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millibars"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millibars\""}], "]"}]& )], ",", TemplateBox[{"3.`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mbar\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millibars"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millibars\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"12.016666666666667`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )], ",", TemplateBox[{"3.4665064065520874`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"546.`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mbar\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millibars"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millibars\""}], "]"}]& )], ",", TemplateBox[{"3.`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mbar\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millibars"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millibars\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"4.833333333333333`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )], ",", TemplateBox[{"2.1984843263788196`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"612.`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mbar\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millibars"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millibars\""}], "]"}]& )], ",", TemplateBox[{"3.`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mbar\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millibars"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millibars\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"4.6`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )], ",", TemplateBox[{"2.1447610589527217`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"725.`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mbar\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millibars"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millibars\""}], "]"}]& )], ",", TemplateBox[{"3.`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mbar\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millibars"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millibars\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"4.433333333333334`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )], ",", TemplateBox[{"2.105548226313834`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"810.`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mbar\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millibars"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millibars\""}], "]"}]& )], ",", TemplateBox[{"3.`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mbar\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millibars"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millibars\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"4.066666666666666`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )], ",", TemplateBox[{"2.016597794967223`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"888.`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mbar\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millibars"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millibars\""}], "]"}]& )], ",", TemplateBox[{"3.`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mbar\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millibars"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millibars\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"4.216666666666667`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )], ",", TemplateBox[{"2.053452377501525`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"996.`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mbar\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millibars"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millibars\""}], "]"}]& )], ",", TemplateBox[{"3.`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mbar\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millibars"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millibars\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"3.8333333333333335`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )], ",", TemplateBox[{"1.9578900207451218`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Bq\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: becquerels"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Becquerels\""}], "]"}]& )]}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.579775079186375*^9, 3.5797751633314934`*^9, 3.5797751942545366`*^9, 3.5797764467513876`*^9, 3.579776646282671*^9, 3.5797766934397373`*^9, 3.5797767288377867`*^9, 3.5797852131288357`*^9, 3.5797852653888245`*^9, 3.5797853147596483`*^9, 3.5797854600099564`*^9, 3.5797855095667906`*^9, 3.579785547875982*^9, 3.579785615251836*^9, 3.5797856740812006`*^9, 3.582865842332027*^9, 3.5828659148151093`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["ps", "4"], "=", RowBox[{ RowBox[{ RowBox[{"Transpose", "[", SubscriptBox["CData", "4"], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "All", ",", "1"}], "]"}], "]"}], "//", "QuantityMagnitude"}]}]], "Input", CellChangeTimes->{{3.5791747741854715`*^9, 3.579174793621583*^9}, { 3.579174861472464*^9, 3.5791749307024236`*^9}, {3.5791749619172087`*^9, 3.5791749620702176`*^9}, {3.5791750000963926`*^9, 3.5791750046616535`*^9}, {3.5791761175823092`*^9, 3.5791761643529844`*^9}, {3.5791761963138123`*^9, 3.5791762063743877`*^9}, 3.5791821020065985`*^9, {3.5797753856868124`*^9, 3.579775399218831*^9}, { 3.5797754511249046`*^9, 3.5797754517199054`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "21.`", ",", "269.`", ",", "313.`", ",", "410.`", ",", "482.`", ",", "500.`", ",", "546.`", ",", "612.`", ",", "725.`", ",", "810.`", ",", "888.`", ",", "996.`"}], "}"}]], "Output", CellChangeTimes->{{3.579176147956046*^9, 3.5791761860012226`*^9}, 3.5791762787915297`*^9, 3.5791811304720297`*^9, 3.579182103342675*^9, 3.5796940664295573`*^9, 3.5797592294667225`*^9, 3.579759364225919*^9, 3.5797655504278555`*^9, 3.5797658230452385`*^9, 3.579765920457376*^9, 3.579765970896447*^9, 3.5797666163183556`*^9, 3.5797667024024773`*^9, 3.579766752899548*^9, 3.5797668633537035`*^9, 3.5797669277627945`*^9, 3.579767041262954*^9, 3.579771946225924*^9, 3.579772033704047*^9, 3.579772227169321*^9, 3.579772508408719*^9, {3.579775445553897*^9, 3.5797754530849075`*^9}, 3.5797764469463882`*^9, 3.5797766464376707`*^9, 3.5797766936497374`*^9, 3.5797767319037914`*^9, 3.57978521320284*^9, 3.5797852654268265`*^9, 3.5797853148076515`*^9, 3.579785460041958*^9, 3.579785509610793*^9, 3.579785615280837*^9, 3.5797856741052017`*^9, 3.582865842411994*^9, 3.582865914926302*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[CapitalDelta]ps", "4"], "=", RowBox[{ RowBox[{ RowBox[{"Transpose", "[", SubscriptBox["CData", "4"], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "All", ",", "2"}], "]"}], "]"}], "//", "QuantityMagnitude"}]}]], "Input", CellChangeTimes->{{3.5797779380375032`*^9, 3.5797779500585203`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "3.`", ",", "3.`", ",", "3.`", ",", "3.`", ",", "3.`", ",", "3.`", ",", "3.`", ",", "3.`", ",", "3.`", ",", "3.`", ",", "3.`", ",", "3.`"}], "}"}]], "Output", CellChangeTimes->{3.579777950948521*^9, 3.5797852133738494`*^9, 3.5797852654578285`*^9, 3.5797853148486533`*^9, 3.5797854600689597`*^9, 3.579785509680797*^9, 3.579785615298838*^9, 3.579785674123203*^9, 3.582865842455439*^9, 3.582865914987091*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["ns", "4"], "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Transpose", "[", SubscriptBox["CData", "4"], "]"}], "[", RowBox[{"[", RowBox[{"2", ",", "All", ",", "1"}], "]"}], "]"}], "-", SubscriptBox["n", "0"]}], "//", "QuantityMagnitude"}]}]], "Input", CellChangeTimes->{{3.579174969747657*^9, 3.5791750219126406`*^9}, { 3.579176226536541*^9, 3.579176228065628*^9}, {3.5791806046509547`*^9, 3.5791806170246625`*^9}, {3.57918115774659*^9, 3.579181159789707*^9}, { 3.57918210710089*^9, 3.579182115120349*^9}, {3.579775392311822*^9, 3.5797754022348356`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "219.83333333333334`", ",", "215.55`", ",", "214.06666666666666`", ",", "121.98333333333333`", ",", "20.516666666666666`", ",", "11.700000000000001`", ",", "4.516666666666667`", ",", "4.283333333333333`", ",", "4.116666666666667`", ",", "3.75`", ",", "3.9000000000000004`", ",", "3.5166666666666666`"}], "}"}]], "Output", CellChangeTimes->{ 3.5791806181327257`*^9, {3.5791811304950314`*^9, 3.5791811601857295`*^9}, { 3.5791820916000032`*^9, 3.57918211549137*^9}, 3.5796940664495573`*^9, 3.5797592294967227`*^9, 3.5797593642459188`*^9, 3.579765550447855*^9, 3.5797658230852385`*^9, 3.579765920477376*^9, 3.579765970926447*^9, 3.5797666163483553`*^9, 3.579766702432477*^9, 3.5797667529295483`*^9, 3.5797668633937035`*^9, 3.5797669278027945`*^9, 3.5797670412929544`*^9, 3.5797719462609243`*^9, 3.5797720337290473`*^9, 3.579772227204321*^9, 3.5797725084337196`*^9, 3.5797754831329503`*^9, 3.5797764480413895`*^9, 3.5797766474826727`*^9, 3.579776694744739*^9, 3.5797767354187965`*^9, 3.579785213455854*^9, 3.5797852654898305`*^9, 3.5797853148906555`*^9, 3.579785460108962*^9, 3.5797855097117987`*^9, 3.579785615317839*^9, 3.579785674144204*^9, 3.582865842499529*^9, 3.582865915067265*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[CapitalDelta]ns", "4"], "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Transpose", "[", SubscriptBox["CData", "4"], "]"}], "[", RowBox[{"[", RowBox[{"2", ",", "All", ",", "2"}], "]"}], "]"}], "//", "QuantityMagnitude"}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.579781707820649*^9, 3.5797817234326706`*^9}, { 3.579785524782661*^9, 3.5797855251696835`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "14.837452611550273`", ",", "14.69240166435245`", ",", "14.641835039821112`", ",", "11.058933040759403`", ",", "4.564354645876384`", ",", "3.4665064065520874`", ",", "2.1984843263788196`", ",", "2.1447610589527217`", ",", "2.105548226313834`", ",", "2.016597794967223`", ",", "2.053452377501525`", ",", "1.9578900207451218`"}], "}"}]], "Output", CellChangeTimes->{ 3.5797817240226717`*^9, 3.579785213518858*^9, 3.579785265535833*^9, 3.579785314932658*^9, 3.579785460133963*^9, {3.579785509740801*^9, 3.5797855257757177`*^9}, 3.57978561533784*^9, 3.5797856741622047`*^9, 3.582865842550591*^9, 3.5828659151703653`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["sfer", "4"], "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Transpose", "[", SubscriptBox["CData", "4"], "]"}], "[", RowBox[{"[", RowBox[{"2", ",", "All", ",", "2"}], "]"}], "]"}], "//", "QuantityMagnitude"}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.579174969747657*^9, 3.5791750219126406`*^9}, { 3.579176226536541*^9, 3.579176228065628*^9}, {3.5791806046509547`*^9, 3.5791806170246625`*^9}, {3.57918115774659*^9, 3.579181159789707*^9}, { 3.57918210710089*^9, 3.5791821521804686`*^9}, {3.579182238890428*^9, 3.579182246908887*^9}, {3.579182297619787*^9, 3.5791823030150957`*^9}, { 3.579775404024838*^9, 3.5797754306278753`*^9}, {3.5797758938016033`*^9, 3.57977589876161*^9}, 3.579775932935658*^9, {3.5797767449798098`*^9, 3.5797767469298124`*^9}, {3.5797855286358814`*^9, 3.579785531154025*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "14.837452611550273`", ",", "14.69240166435245`", ",", "14.641835039821112`", ",", "11.058933040759403`", ",", "4.564354645876384`", ",", "3.4665064065520874`", ",", "2.1984843263788196`", ",", "2.1447610589527217`", ",", "2.105548226313834`", ",", "2.016597794967223`", ",", "2.053452377501525`", ",", "1.9578900207451218`"}], "}"}]], "Output", CellChangeTimes->{ 3.5791806181327257`*^9, {3.5791811304950314`*^9, 3.5791811601857295`*^9}, { 3.5791820916000032`*^9, 3.57918211549137*^9}, 3.579182152484486*^9, 3.5791822476569295`*^9, 3.579182303756138*^9, 3.5796940664795575`*^9, 3.579759229536723*^9, 3.5797593642859187`*^9, 3.579765550487855*^9, 3.579765823125239*^9, 3.5797659205073757`*^9, 3.579765970956447*^9, 3.5797666163883557`*^9, 3.579766702472477*^9, 3.579766752959548*^9, 3.5797668634337034`*^9, 3.5797669278427944`*^9, 3.579767041322954*^9, 3.5797719463059244`*^9, 3.5797720337640476`*^9, 3.579772227249321*^9, 3.5797725084687195`*^9, 3.5797758659225636`*^9, 3.579775901301614*^9, 3.5797759341156597`*^9, 3.57977644823639*^9, 3.579776647617673*^9, 3.579776694959739*^9, 3.5797767476458135`*^9, 3.579785213611863*^9, 3.5797852655668344`*^9, 3.579785314974661*^9, 3.579785460162965*^9, { 3.579785509766802*^9, 3.5797855317360587`*^9}, 3.579785615378843*^9, 3.579785674182206*^9, 3.582865842636594*^9, 3.58286591521637*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["psns", "4"], "=", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["ps", "4"], "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{ SubscriptBox["ns", "4"], "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{ SubscriptBox["\[CapitalDelta]ns", "4"], "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", SubscriptBox["ps", "4"], "]"}]}], "}"}]}], "]"}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.5791753691715026`*^9, 3.5791754204104333`*^9}, { 3.579175527996587*^9, 3.5791755970865383`*^9}, {3.5791757127481537`*^9, 3.5791757423198457`*^9}, {3.5791804850751157`*^9, 3.5791804883002996`*^9}, { 3.5791805825236893`*^9, 3.579180599930685*^9}, {3.579180665002407*^9, 3.5791806955031514`*^9}, {3.579776758015828*^9, 3.5797767876228695`*^9}, { 3.579778252594208*^9, 3.579778315587118*^9}, {3.579781733532685*^9, 3.5797817453847017`*^9}, {3.5797818275488205`*^9, 3.579781844560845*^9}, { 3.579785535268261*^9, 3.5797855357202864`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"21.`", ",", "219.83333333333334`", ",", "14.837452611550273`"}], "}"}], ",", RowBox[{"{", RowBox[{"269.`", ",", "215.55`", ",", "14.69240166435245`"}], "}"}], ",", RowBox[{"{", RowBox[{"313.`", ",", "214.06666666666666`", ",", "14.641835039821112`"}], "}"}], ",", RowBox[{"{", RowBox[{"410.`", ",", "121.98333333333333`", ",", "11.058933040759403`"}], "}"}], ",", RowBox[{"{", RowBox[{"482.`", ",", "20.516666666666666`", ",", "4.564354645876384`"}], "}"}], ",", RowBox[{"{", RowBox[{"500.`", ",", "11.700000000000001`", ",", "3.4665064065520874`"}], "}"}], ",", RowBox[{"{", RowBox[{"546.`", ",", "4.516666666666667`", ",", "2.1984843263788196`"}], "}"}], ",", RowBox[{"{", RowBox[{"612.`", ",", "4.283333333333333`", ",", "2.1447610589527217`"}], "}"}], ",", RowBox[{"{", RowBox[{"725.`", ",", "4.116666666666667`", ",", "2.105548226313834`"}], "}"}], ",", RowBox[{"{", RowBox[{"810.`", ",", "3.75`", ",", "2.016597794967223`"}], "}"}], ",", RowBox[{"{", RowBox[{"888.`", ",", "3.9000000000000004`", ",", "2.053452377501525`"}], "}"}], ",", RowBox[{"{", RowBox[{"996.`", ",", "3.5166666666666666`", ",", "1.9578900207451218`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.579175598355611*^9, {3.5791757179634523`*^9, 3.579175743012885*^9}, 3.579176209197549*^9, 3.5791762903031883`*^9, 3.579180489195351*^9, 3.579180588224015*^9, 3.579180619063779*^9, {3.5791806729168596`*^9, 3.579180696236193*^9}, 3.579181130518033*^9, 3.579181161346796*^9, 3.579181520807356*^9, 3.57918212143371*^9, 3.5791822492540207`*^9, 3.5796940665095577`*^9, 3.579759229566723*^9, 3.579759364315919*^9, 3.5797655505078554`*^9, 3.5797658231652393`*^9, 3.579765920537376*^9, 3.5797659709864473`*^9, 3.579766616428356*^9, 3.579766702512477*^9, 3.579766752989548*^9, 3.5797668634737034`*^9, 3.5797669278927946`*^9, 3.5797670413529544`*^9, 3.5797719463409243`*^9, 3.5797720337940474`*^9, 3.5797722273243213`*^9, 3.5797725085037193`*^9, 3.5797764482613897`*^9, 3.579776647632673*^9, 3.5797766949947395`*^9, 3.5797767881878705`*^9, { 3.5797782543258104`*^9, 3.5797783173187213`*^9}, 3.579781746554703*^9, { 3.5797818295188236`*^9, 3.5797818452618456`*^9}, 3.5797852138688774`*^9, 3.5797852655978365`*^9, 3.5797853150186634`*^9, 3.5797854601869664`*^9, { 3.579785509795804*^9, 3.5797855372003713`*^9}, 3.579785615406844*^9, 3.579785674201207*^9, 3.5828658427212257`*^9, 3.582865915265188*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"ErrorListPlot", "[", RowBox[{ SubscriptBox["psns", "4"], ",", RowBox[{"ImageSize", "\[Rule]", "Full"}]}], "]"}], ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"First", "[", SubscriptBox["ns", "4"], "]"}], "/", "2"}], ")"}], "+", "3.5"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1000"}], "}"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.5797773608866863`*^9, 3.5797773625716887`*^9}, { 3.5797775589989676`*^9, 3.5797775596149683`*^9}, {3.5797775922280145`*^9, 3.5797775927030153`*^9}, 3.5797776243620596`*^9, {3.5797776954861603`*^9, 3.579777699596166*^9}, {3.5797779789515605`*^9, 3.5797779818615646`*^9}, { 3.5797780467676563`*^9, 3.57977805689867*^9}, {3.5797781295099916`*^9, 3.579778135594002*^9}, {3.5797781919413013`*^9, 3.579778201036117*^9}, { 3.5797783495951777`*^9, 3.5797783574731917`*^9}, {3.579778468295387*^9, 3.579778530785096*^9}, {3.579778570581766*^9, 3.5797786465227*^9}, { 3.579779191719085*^9, 3.579779200290097*^9}, {3.582865909559124*^9, 3.58286590969549*^9}}], Cell[BoxData[ GraphicsBox[{{{}, {RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[{{21., 219.83333333333334`}, {269., 215.55}, {313., 214.06666666666666`}, {410., 121.98333333333333`}, {482., 20.516666666666666`}, {500., 11.700000000000001`}, {546., 4.516666666666667}, {612., 4.283333333333333}, {725., 4.116666666666667}, {810., 3.75}, {888., 3.9000000000000004`}, {996., 3.5166666666666666`}}], {{ LineBox[{{21., 234.67078594488362`}, {21., 204.99588072178307`}}], LineBox[{ Offset[{1.5, 0}, {21., 234.67078594488362`}], Offset[{-1.5, 0}, {21., 234.67078594488362`}]}], LineBox[{ Offset[{1.5, 0}, {21., 204.99588072178307`}], Offset[{-1.5, 0}, {21., 204.99588072178307`}]}]}, { LineBox[{{269., 230.24240166435246`}, {269., 200.85759833564757`}}], LineBox[{ Offset[{1.5, 0}, {269., 230.24240166435246`}], Offset[{-1.5, 0}, {269., 230.24240166435246`}]}], LineBox[{ Offset[{1.5, 0}, {269., 200.85759833564757`}], Offset[{-1.5, 0}, {269., 200.85759833564757`}]}]}, { LineBox[{{313., 228.70850170648777`}, {313., 199.42483162684556`}}], LineBox[{ Offset[{1.5, 0}, {313., 228.70850170648777`}], Offset[{-1.5, 0}, {313., 228.70850170648777`}]}], LineBox[{ Offset[{1.5, 0}, {313., 199.42483162684556`}], Offset[{-1.5, 0}, {313., 199.42483162684556`}]}]}, { LineBox[{{410., 133.04226637409275`}, {410., 110.92440029257394`}}], LineBox[{ Offset[{1.5, 0}, {410., 133.04226637409275`}], Offset[{-1.5, 0}, {410., 133.04226637409275`}]}], LineBox[{ Offset[{1.5, 0}, {410., 110.92440029257394`}], Offset[{-1.5, 0}, {410., 110.92440029257394`}]}]}, { LineBox[{{482., 25.08102131254305}, {482., 15.95231202079028}}], LineBox[{ Offset[{1.5, 0}, {482., 25.08102131254305}], Offset[{-1.5, 0}, {482., 25.08102131254305}]}], LineBox[{ Offset[{1.5, 0}, {482., 15.95231202079028}], Offset[{-1.5, 0}, {482., 15.95231202079028}]}]}, { LineBox[{{500., 15.166506406552088`}, {500., 8.233493593447914}}], LineBox[{ Offset[{1.5, 0}, {500., 15.166506406552088`}], Offset[{-1.5, 0}, {500., 15.166506406552088`}]}], LineBox[{ Offset[{1.5, 0}, {500., 8.233493593447914}], Offset[{-1.5, 0}, {500., 8.233493593447914}]}]}, { LineBox[{{546., 6.715150993045486}, {546., 2.318182340287847}}], LineBox[{ Offset[{1.5, 0}, {546., 6.715150993045486}], Offset[{-1.5, 0}, {546., 6.715150993045486}]}], LineBox[{ Offset[{1.5, 0}, {546., 2.318182340287847}], Offset[{-1.5, 0}, {546., 2.318182340287847}]}]}, { LineBox[{{612., 6.428094392286055}, {612., 2.1385722743806115`}}], LineBox[{ Offset[{1.5, 0}, {612., 6.428094392286055}], Offset[{-1.5, 0}, {612., 6.428094392286055}]}], LineBox[{ Offset[{1.5, 0}, {612., 2.1385722743806115`}], Offset[{-1.5, 0}, {612., 2.1385722743806115`}]}]}, { LineBox[{{725., 6.222214892980501}, {725., 2.011118440352833}}], LineBox[{ Offset[{1.5, 0}, {725., 6.222214892980501}], Offset[{-1.5, 0}, {725., 6.222214892980501}]}], LineBox[{ Offset[{1.5, 0}, {725., 2.011118440352833}], Offset[{-1.5, 0}, {725., 2.011118440352833}]}]}, { LineBox[{{810., 5.766597794967224}, {810., 1.7334022050327769`}}], LineBox[{ Offset[{1.5, 0}, {810., 5.766597794967224}], Offset[{-1.5, 0}, {810., 5.766597794967224}]}], LineBox[{ Offset[{1.5, 0}, {810., 1.7334022050327769`}], Offset[{-1.5, 0}, {810., 1.7334022050327769`}]}]}, { LineBox[{{888., 5.953452377501526}, {888., 1.8465476224984751`}}], LineBox[{ Offset[{1.5, 0}, {888., 5.953452377501526}], Offset[{-1.5, 0}, {888., 5.953452377501526}]}], LineBox[{ Offset[{1.5, 0}, {888., 1.8465476224984751`}], Offset[{-1.5, 0}, {888., 1.8465476224984751`}]}]}, { LineBox[{{996., 5.474556687411789}, {996., 1.5587766459215449`}}], LineBox[{ Offset[{1.5, 0}, {996., 5.474556687411789}], Offset[{-1.5, 0}, {996., 5.474556687411789}]}], LineBox[{ Offset[{1.5, 0}, {996., 1.5587766459215449`}], Offset[{-1.5, 0}, {996., 1.5587766459215449`}]}]}}}, {}}, {{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAwAWIQ/frTHx+3tK92q1cBQVSMg5y1pvvHBcoOML7ftSMf 3i8whvMdJjZzu5a4wPmCn8M2TEz2g/PtdlcE1gqEwPkLivetvRMRCeff87x7 6bdbHJyf6l31Nul8IpzvuOs7y/m8FDife8dDBumHaXC+9kf3PJuOTDjfaqfU AVumHDh/vWe86rH8PDh/L5fAP8HOAjhfasey2xsOF8L5Ss2/C3dJFMP5cUac k9rTSxD+0/RdcmR+KZyfb+ufn/OpDM53mdmu06JXAecfEapbxNZaCeeXF+gu 8rlaBecvFBWewsRfg5C/sc1OObkWof/RhNubF9QhzL+ozMRxox7O35G3q+Dx lAY4v1Oi7maVUSOcb3BxwTz3uwj+h9/zNb61NMH5OV67VscoNiPCZ7lx949T CP4pjRPJPpktcP5HaUvGJpZWOP+tLOfvN2sQ/KXOX97ye7XB+UYVdrYZXxD8 6guLWysmt8P5d2c9nZSl3wHni5a0/Zl4A8HnLHSKLyzrhPMv1cTKtSl2wflb f4UsqjmJ4AfPSZfXTuuG84/73PzBJ9AD539TSDu9ah2Cb59+PknDqxcR33um h93+hOBbmFY7u03oQ7iHM0VG+QWCf+uOz9f/9v1wPgCqjp85 "]]}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{None, None}, AxesOrigin->{0, 0}, ImageSize->Full, Method->{}, PlotRange->{{0, 996.}, {0, 219.83333333333334`}}, PlotRangeClipping->True, PlotRangePadding->{{19.92, 19.92}, {4.396666666666667, 4.396666666666667}}]], "Output", CellChangeTimes->{{3.5797785859789934`*^9, 3.5797786472559013`*^9}, 3.5797792019501*^9, 3.5797817492547073`*^9, {3.5797818333298287`*^9, 3.5797818487518506`*^9}, 3.579785214185896*^9, 3.5797852656498394`*^9, 3.5797853150846667`*^9, 3.5797854602399693`*^9, 3.5797855098458066`*^9, 3.579785615541852*^9, 3.579785674265211*^9, 3.582865842801219*^9, 3.582865915335805*^9}] }, Open ]], Cell["\<\ Wir lesen auf der H\[ADoubleDot]lfte ab (um die H\[ADoubleDot]lfte genau \ abzusch\[ADoubleDot]tzen habe ich nochmals eine Nulleffektkorrektur durchgef\ \[UDoubleDot]hrt indem der Gerade der zuletzt gemessene n-Wert (3.5 Bq) \ hinzugef\[UDoubleDot]gt wurde):\ \>", "Text", CellChangeTimes->{{3.57978178711176*^9, 3.579781794084772*^9}, 3.5797818580138636`*^9, {3.5797856832237234`*^9, 3.5797857582520146`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Pultimo", "=", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["p", RowBox[{"1", "/", "2"}]], ",", SubscriptBox["\[CapitalDelta]p", RowBox[{"1", "/", "2"}]]}], "}"}], "=", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"425", ",", "10"}], "}"}], ",", "\"\\""}], "]"}]}]}]], "Input", CellChangeTimes->{{3.57978186235487*^9, 3.579781949062993*^9}, { 3.5797840269429893`*^9, 3.5797840336413727`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"425"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mbar\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millibars"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millibars\""}], "]"}]& )], ",", TemplateBox[{"10"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mbar\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millibars"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millibars\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{{3.5797819252489595`*^9, 3.579781949682994*^9}, 3.579784034241407*^9, 3.579785214275901*^9, 3.579785265688842*^9, 3.5797853151276693`*^9, 3.579785460283972*^9, 3.579785509887809*^9, 3.5797856157098618`*^9, 3.5797856743042135`*^9, 3.5828658428889093`*^9, 3.5828659153852577`*^9}] }, Open ]], Cell["\<\ Daraus wollen wir nun die Reichweite bestimmen. Gem\[ADoubleDot]\[SZ] \ Praktikumsanleitung setzt sich diese aus einem Hauptsummanten und 2 \ Korrekturen zusammen. In seiner Gesamtheit sieht die Formel dann folgenderma\ \[SZ]en aus:\ \>", "Text", CellChangeTimes->{{3.5797820397251205`*^9, 3.5797820861281853`*^9}, { 3.579782235887398*^9, 3.579782263399437*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"S\[Alpha]", "[", RowBox[{"p_", ",", "pn_", ",", "sn_", ",", "\[Rho]gl_"}], "]"}], ":=", RowBox[{ RowBox[{ FractionBox["p", "pn"], "*", "sn"}], "+", RowBox[{ FractionBox["\[Rho]gl", RowBox[{"Quantity", "[", RowBox[{"1.43", ",", FractionBox["\"\\"", RowBox[{"\"\\"", "^", "2"}]]}], "]"}]], "*", RowBox[{"Quantity", "[", RowBox[{"1", ",", "\"\\""}], "]"}]}], "+", RowBox[{"Quantity", "[", RowBox[{"0.68", ",", "\"\\""}], "]"}]}]}]], "Input", CellChangeTimes->{{3.5797828350238156`*^9, 3.579782846792489*^9}, { 3.5797829032797194`*^9, 3.579783121414196*^9}, {3.579783246529352*^9, 3.5797833147382536`*^9}, {3.5797834184641867`*^9, 3.57978344421966*^9}, { 3.579783666633381*^9, 3.5797837148491387`*^9}, {3.579784321250823*^9, 3.5797843302883396`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"\[CapitalDelta]S\[Alpha]", "[", RowBox[{ "p_", ",", "pn_", ",", "sn_", ",", "\[Rho]gl_", ",", "\[CapitalDelta]p_", ",", "\[CapitalDelta]sn_"}], "]"}], "=", RowBox[{"Sqrt", "[", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"S\[Alpha]", "[", RowBox[{"p", ",", "pn", ",", "sn", ",", "\[Rho]gl"}], "]"}], ",", "p"}], "]"}], "*", "\[CapitalDelta]p"}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"S\[Alpha]", "[", RowBox[{"p", ",", "pn", ",", "sn", ",", "\[Rho]gl"}], "]"}], ",", "sn"}], "]"}], "*", "\[CapitalDelta]sn"}], ")"}], "2"]}], "]"}]}]], "Input", CellChangeTimes->{{3.579783643746072*^9, 3.5797836585699196`*^9}, { 3.5797837284809184`*^9, 3.579783916096649*^9}}], Cell[BoxData[ SqrtBox[ RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["sn", "2"], " ", SuperscriptBox["\[CapitalDelta]p", "2"]}], SuperscriptBox["pn", "2"]], "+", FractionBox[ RowBox[{ SuperscriptBox["p", "2"], " ", SuperscriptBox["\[CapitalDelta]sn", "2"]}], SuperscriptBox["pn", "2"]]}]]], "Output", CellChangeTimes->{3.5797839176667395`*^9, 3.579785215026944*^9, 3.5797852662178717`*^9, 3.5797853155496936`*^9, 3.579785460800001*^9, 3.5797855103078327`*^9, 3.5797856163849*^9, 3.5797856746972356`*^9, 3.5828658435745287`*^9, 3.582865915856927*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["p", "0"], "=", RowBox[{"Quantity", "[", RowBox[{"1013", ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.5797828537488866`*^9, 3.579782871958928*^9}}], Cell[BoxData[ TemplateBox[{"1013"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mbar\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millibars"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millibars\""}], "]"}]& )]], "Output", CellChangeTimes->{3.5797836390438027`*^9, 3.579785215056946*^9, 3.579785266254874*^9, 3.579785315645699*^9, 3.5797854608290033`*^9, 3.579785510342835*^9, 3.5797856164589043`*^9, 3.5797856747262373`*^9, 3.582865843807259*^9, 3.5828659159502563`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["s", "0"], "=", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"3.95", ",", "0.05"}], "}"}], ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.579783481152772*^9, 3.5797834936464863`*^9}, { 3.5797835885429144`*^9, 3.5797836347035546`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"3.95`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"cm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Centimeters\""}], "]"}]& )], ",", TemplateBox[{"0.05`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"cm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Centimeters\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.5797828725609627`*^9, 3.5797836354725986`*^9, 3.5797852150969477`*^9, 3.5797852662998767`*^9, 3.5797853157057023`*^9, 3.5797854608680053`*^9, 3.579785510398838*^9, 3.579785616515908*^9, 3.579785674761239*^9, 3.582865843851202*^9, 3.58286591600261*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[Rho]gl", "=", RowBox[{"Quantity", "[", RowBox[{"2.25", ",", RowBox[{"\"\\"", "/", RowBox[{"\"\\"", "^", "2"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5797842181979284`*^9, 3.5797842662706785`*^9}}], Cell[BoxData[ TemplateBox[{"2.25`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"mg\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", SuperscriptBox["\"cm\"", "2"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: milligrams per centimeter squared"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Milligrams\"", SuperscriptBox["\"Centimeters\"", "2"]]}], "]"}]& )]], "Output", CellChangeTimes->{3.57978428274062*^9, 3.579785215196954*^9, 3.5797852663848815`*^9, 3.579785315808708*^9, 3.5797854609450097`*^9, 3.5797855104848433`*^9, 3.579785616643915*^9, 3.5797856748362436`*^9, 3.582865843955018*^9, 3.5828659160846653`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Sultimo", "=", RowBox[{"S\[Alpha]", "[", RowBox[{ RowBox[{"First", "[", "Pultimo", "]"}], ",", SubscriptBox["p", "0"], ",", RowBox[{"First", "[", SubscriptBox["s", "0"], "]"}], ",", "\[Rho]gl"}], "]"}]}]], "Input", CellChangeTimes->{{3.5797839487735186`*^9, 3.5797839596321397`*^9}, { 3.579784011987134*^9, 3.5797840894465647`*^9}, {3.579784287140872*^9, 3.5797842914151163`*^9}}], Cell[BoxData[ TemplateBox[{"3.910632891294293`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"cm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Centimeters\""}], "]"}]& )]], "Output", CellChangeTimes->{3.5797842933362265`*^9, 3.5797843340845566`*^9, 3.579785215590976*^9, 3.579785266754903*^9, 3.579785316228732*^9, 3.5797854613160305`*^9, 3.5797855108838663`*^9, 3.579785617049938*^9, 3.579785675214265*^9, 3.5828658443738947`*^9, 3.5828659164879017`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[CapitalDelta]Sultimo", "=", RowBox[{"\[CapitalDelta]S\[Alpha]", "[", RowBox[{ RowBox[{"First", "[", "Pultimo", "]"}], ",", SubscriptBox["p", "0"], ",", RowBox[{"First", "[", SubscriptBox["s", "0"], "]"}], ",", "\[Rho]gl", ",", RowBox[{"Last", "[", "Pultimo", "]"}], ",", RowBox[{"Last", "[", SubscriptBox["s", "0"], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5797843708346586`*^9, 3.57978441141998*^9}}], Cell[BoxData[ TemplateBox[{"0.044277623773315594`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"cm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Centimeters\""}], "]"}]& )]], "Output", CellChangeTimes->{3.579784413771115*^9, 3.5797852162380133`*^9, 3.579785267595951*^9, 3.579785316919772*^9, 3.579785462327089*^9, 3.579785511583906*^9, 3.5797856177869806`*^9, 3.579785675886304*^9, 3.5828658451007*^9, 3.58286591720641*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Sultimo", "\[PlusMinus]", "\[CapitalDelta]Sultimo"}]], "Input", CellChangeTimes->{{3.5797844259198093`*^9, 3.579784439862607*^9}}], Cell[BoxData[ RowBox[{ TemplateBox[{"3.910632891294293`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"cm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Centimeters\""}], "]"}]& )], "\[PlusMinus]", TemplateBox[{"0.044277623773315594`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"cm\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: centimeters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Centimeters\""}], "]"}]& )]}]], "Output", CellChangeTimes->{3.5797844409906716`*^9, 3.5797852162940164`*^9, 3.579785267631953*^9, 3.5797853172267895`*^9, 3.5797854626001043`*^9, 3.579785511621908*^9, 3.579785617985992*^9, 3.5797856759233055`*^9, 3.582865845166819*^9, 3.582865917454707*^9}] }, Open ]], Cell["\<\ Mithilfe des Diagramms kommen wir auf eine entsprechende Energie der \ Alphateilchen.\ \>", "Text", CellChangeTimes->{{3.5797847758798265`*^9, 3.579784792590782*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["T", "\[Alpha]"], ",", SubscriptBox["\[CapitalDelta]T", "\[Alpha]"]}], "}"}], "=", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"5.5", ",", "0.1"}], "}"}], ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.5797847959429736`*^9, 3.579784864366887*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"5.5`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"MeV\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: megaelectronvolts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Megaelectronvolts\""}], "]"}]& )], ",", TemplateBox[{"0.1`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"MeV\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: megaelectronvolts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Megaelectronvolts\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.5797848650519266`*^9, 3.5797852163490195`*^9, 3.579785267669955*^9, 3.5797853175448074`*^9, 3.579785462633106*^9, 3.5797855116659107`*^9, 3.579785618021994*^9, 3.5797856759633083`*^9, 3.582865845203803*^9, 3.582865917504652*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["T", "\[Alpha]"], "\[PlusMinus]", SubscriptBox["\[CapitalDelta]T", "\[Alpha]"]}]], "Input", CellChangeTimes->{{3.579784868721136*^9, 3.579784889675335*^9}}], Cell[BoxData[ RowBox[{ TemplateBox[{"5.5`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"MeV\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: megaelectronvolts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Megaelectronvolts\""}], "]"}]& )], "\[PlusMinus]", TemplateBox[{"0.1`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"MeV\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: megaelectronvolts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Megaelectronvolts\""}], "]"}]& )]}]], "Output", CellChangeTimes->{3.5797849468006024`*^9, 3.5797852163970222`*^9, 3.5797852677079573`*^9, 3.5797853175928106`*^9, 3.5797854627211113`*^9, 3.579785511706913*^9, 3.579785618057996*^9, 3.57978567600531*^9, 3.58286584524152*^9, 3.582865917589435*^9}] }, Open ]], Cell["\<\ Dieser Wert passt perfekt mit jenem zusammen, der im Praktikumsskript \ angegeben ist (5.48 MeV).\ \>", "Text", CellChangeTimes->{{3.579784895850688*^9, 3.579784908613418*^9}, { 3.5797849497607718`*^9, 3.5797849911291375`*^9}}] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{934, 769}, WindowMargins->{{Automatic, 224}, {Automatic, 0}}, PrintingCopies->1, PrintingPageRange->{32000, 32000}, PrintingOptions->{"Magnification"->1., "PaperOrientation"->"Portrait", "PaperSize"->{595.3199999999999, 841.92}}, 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, 151, 3, 92, "Title"], Cell[733, 27, 200, 3, 28, "Input"], Cell[CellGroupData[{ Cell[958, 34, 129, 1, 80, "Section"], Cell[CellGroupData[{ Cell[1112, 39, 410, 12, 28, "Input"], Cell[1525, 53, 1544, 32, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3106, 90, 218, 5, 28, "Input"], Cell[3327, 97, 1137, 20, 28, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[4513, 123, 111, 1, 80, "Section"], Cell[CellGroupData[{ Cell[4649, 128, 611, 18, 28, "Input"], Cell[5263, 148, 1625, 32, 28, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[6937, 186, 169, 4, 80, "Section"], Cell[7109, 192, 125, 1, 30, "Text"], Cell[CellGroupData[{ Cell[7259, 197, 417, 13, 35, "Input"], Cell[7679, 212, 1555, 31, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9271, 248, 5257, 130, 250, "Input"], Cell[14531, 380, 11959, 293, 63, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[26527, 678, 1015, 30, 63, "Input"], Cell[27545, 710, 18744, 463, 97, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[46326, 1178, 102, 1, 44, "Subsection"], Cell[CellGroupData[{ Cell[46453, 1183, 625, 15, 28, "Input"], Cell[47081, 1200, 1088, 17, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[48206, 1222, 587, 14, 28, "Input"], Cell[48796, 1238, 1301, 21, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[50134, 1264, 959, 24, 28, "Input"], Cell[51096, 1290, 1496, 26, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[52629, 1321, 809, 21, 28, "Input"], Cell[53441, 1344, 2236, 46, 63, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[55714, 1395, 859, 21, 28, "Input"], Cell[56576, 1418, 2062, 47, 63, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[58675, 1470, 600, 14, 28, "Input"], Cell[59278, 1486, 3075, 61, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[62390, 1552, 653, 14, 28, "Input"], Cell[63046, 1568, 3143, 61, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[66226, 1634, 1591, 33, 46, "Input"], Cell[67820, 1669, 19645, 357, 467, "Output"] }, Open ]], Cell[87480, 2029, 296, 5, 49, "Text"], Cell[CellGroupData[{ Cell[87801, 2038, 370, 11, 28, "Input"], Cell[88174, 2051, 1510, 31, 28, "Output"] }, Open ]], Cell[89699, 2085, 354, 6, 49, "Text"], Cell[CellGroupData[{ Cell[90078, 2095, 363, 9, 49, "Input"], Cell[90444, 2106, 1457, 26, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[91938, 2137, 336, 8, 49, "Input"], Cell[92277, 2147, 1303, 24, 32, "Output"] }, Open ]], Cell[93595, 2174, 98, 1, 30, "Text"], Cell[CellGroupData[{ Cell[93718, 2179, 647, 17, 42, "Input"], Cell[94368, 2198, 2001, 42, 35, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[96406, 2245, 199, 4, 32, "Input"], Cell[96608, 2251, 1918, 40, 32, "Output"] }, Open ]], Cell[98541, 2294, 182, 4, 30, "Text"], Cell[CellGroupData[{ Cell[98748, 2302, 373, 11, 28, "Input"], Cell[99124, 2315, 1524, 32, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[100685, 2352, 188, 4, 28, "Input"], Cell[100876, 2358, 1542, 30, 28, "Output"] }, Open ]], Cell[102433, 2391, 305, 5, 49, "Text"], Cell[CellGroupData[{ Cell[102763, 2400, 230, 5, 28, "Input"], Cell[102996, 2407, 1126, 20, 28, "Output"] }, Open ]], Cell[104137, 2430, 214, 4, 30, "Text"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[104400, 2440, 138, 3, 80, "Section"], Cell[104541, 2445, 371, 6, 49, "Text"], Cell[CellGroupData[{ Cell[104937, 2455, 725, 20, 35, "Input"], Cell[105665, 2477, 1648, 32, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[107350, 2514, 364, 11, 28, "Input"], Cell[107717, 2527, 1523, 31, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[109277, 2563, 3879, 100, 199, "Input"], Cell[113159, 2665, 9633, 235, 63, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[122829, 2905, 1015, 30, 63, "Input"], Cell[123847, 2937, 14745, 365, 80, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[138629, 3307, 100, 1, 44, "Subsection"], Cell[CellGroupData[{ Cell[138754, 3312, 636, 14, 28, "Input"], Cell[139393, 3328, 1092, 17, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[140522, 3350, 608, 15, 32, "Input"], Cell[141133, 3367, 1168, 19, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[142338, 3391, 778, 23, 35, "Input"], Cell[143119, 3416, 1197, 19, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[144353, 3440, 857, 21, 28, "Input"], Cell[145213, 3463, 1972, 40, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[147222, 3508, 633, 18, 28, "Input"], Cell[147858, 3528, 1694, 35, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[149589, 3568, 445, 12, 28, "Input"], Cell[150037, 3582, 657, 11, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[150731, 3598, 1329, 27, 46, "Input"], Cell[152063, 3627, 2135, 43, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[154235, 3675, 1055, 24, 46, "Input"], Cell[155293, 3701, 2303, 45, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[157633, 3751, 1603, 34, 63, "Input"], Cell[159239, 3787, 15652, 282, 467, "Output"] }, Open ]], Cell[174906, 4072, 692, 11, 87, "Text"], Cell[CellGroupData[{ Cell[175623, 4087, 303, 4, 28, "Input"], Cell[175929, 4093, 1591, 30, 63, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[177557, 4128, 714, 17, 28, "Input"], Cell[178274, 4147, 1862, 38, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[180173, 4190, 151, 2, 28, "Input"], Cell[180327, 4194, 1668, 34, 28, "Output"] }, Open ]], Cell[182010, 4231, 211, 4, 30, "Text"], Cell[CellGroupData[{ Cell[182246, 4239, 339, 8, 49, "Input"], Cell[182588, 4249, 1282, 24, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[183907, 4278, 321, 8, 50, "Input"], Cell[184231, 4288, 2058, 46, 35, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[186326, 4339, 432, 12, 35, "Input"], Cell[186761, 4353, 1507, 31, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[188305, 4389, 203, 4, 32, "Input"], Cell[188511, 4395, 1470, 29, 28, "Output"] }, Open ]], Cell[189996, 4427, 399, 6, 49, "Text"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[190444, 4439, 122, 1, 80, "Section"], Cell[190569, 4442, 110, 2, 30, "Text"], Cell[CellGroupData[{ Cell[190704, 4448, 1987, 56, 63, "Input"], Cell[192694, 4506, 5419, 134, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[198150, 4645, 128, 2, 44, "Subsection"], Cell[198281, 4649, 221, 4, 30, "Text"], Cell[CellGroupData[{ Cell[198527, 4657, 324, 6, 28, "Input"], Cell[198854, 4665, 513, 7, 28, "Output"] }, Open ]], Cell[199382, 4675, 425, 11, 49, "Input"], Cell[CellGroupData[{ Cell[199832, 4690, 1070, 28, 35, "Input"], Cell[200905, 4720, 1063, 22, 69, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[202005, 4747, 350, 6, 28, "Input"], Cell[202358, 4755, 1196, 22, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[203591, 4782, 1724, 46, 46, "Input"], Cell[205318, 4830, 1803, 35, 35, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[207158, 4870, 145, 2, 28, "Input"], Cell[207306, 4874, 1437, 29, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[208780, 4908, 1349, 41, 46, "Input"], Cell[210132, 4951, 1456, 30, 35, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[211625, 4986, 145, 2, 28, "Input"], Cell[211773, 4990, 1434, 29, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[213244, 5024, 1349, 41, 46, "Input"], Cell[214596, 5067, 1488, 30, 35, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[216121, 5102, 142, 2, 28, "Input"], Cell[216266, 5106, 1438, 29, 32, "Output"] }, Open ]], Cell[217719, 5138, 632, 14, 53, "Text"], Cell[218354, 5154, 403, 7, 49, "Text"], Cell[CellGroupData[{ Cell[218782, 5165, 194, 4, 28, "Input"], Cell[218979, 5171, 1019, 19, 28, "Output"] }, Open ]], Cell[220013, 5193, 94, 1, 28, "Input"], Cell[220110, 5196, 451, 13, 49, "Input"], Cell[CellGroupData[{ Cell[220586, 5213, 847, 25, 35, "Input"], Cell[221436, 5240, 1949, 44, 69, "Output"] }, Open ]], Cell[223400, 5287, 270, 5, 49, "Text"], Cell[CellGroupData[{ Cell[223695, 5296, 1784, 47, 46, "Input"], Cell[225482, 5345, 1868, 36, 35, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[227387, 5386, 200, 3, 28, "Input"], Cell[227590, 5391, 1441, 29, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[229068, 5425, 1461, 43, 46, "Input"], Cell[230532, 5470, 1514, 31, 35, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[232083, 5506, 202, 3, 28, "Input"], Cell[232288, 5511, 1427, 29, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[233752, 5545, 1408, 42, 46, "Input"], Cell[235163, 5589, 1485, 30, 35, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[236685, 5624, 195, 3, 28, "Input"], Cell[236883, 5629, 1427, 29, 32, "Output"] }, Open ]], Cell[238325, 5661, 508, 12, 51, "Text"], Cell[CellGroupData[{ Cell[238858, 5677, 247, 5, 28, "Input"], Cell[239108, 5684, 810, 16, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[239955, 5705, 288, 7, 28, "Input"], Cell[240246, 5714, 996, 20, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[241279, 5739, 350, 9, 50, "Input"], Cell[241632, 5750, 1620, 39, 35, "Output"] }, Open ]], Cell[243267, 5792, 801, 17, 51, "Input"], Cell[CellGroupData[{ Cell[244093, 5813, 848, 25, 35, "Input"], Cell[244944, 5840, 1740, 42, 69, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[246721, 5887, 1787, 47, 46, "Input"], Cell[248511, 5936, 1887, 36, 35, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[250435, 5977, 253, 4, 28, "Input"], Cell[250691, 5983, 1484, 29, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[252212, 6017, 1511, 43, 46, "Input"], Cell[253726, 6062, 1524, 31, 35, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[255287, 6098, 255, 4, 28, "Input"], Cell[255545, 6104, 1450, 29, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[257032, 6138, 1457, 43, 46, "Input"], Cell[258492, 6183, 1503, 30, 35, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[260032, 6218, 244, 4, 28, "Input"], Cell[260279, 6224, 1450, 29, 32, "Output"] }, Open ]], Cell[261744, 6256, 389, 7, 49, "Text"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[262182, 6269, 189, 4, 80, "Section"], Cell[CellGroupData[{ Cell[262396, 6277, 213, 5, 28, "Input"], Cell[262612, 6284, 1119, 20, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[263768, 6309, 5146, 147, 216, "Input"], Cell[268917, 6458, 15478, 381, 162, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[284432, 6844, 100, 1, 44, "Subsection"], Cell[CellGroupData[{ Cell[284557, 6849, 1194, 34, 63, "Input"], Cell[285754, 6885, 21159, 524, 114, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[306950, 7414, 737, 16, 31, "Input"], Cell[307690, 7432, 1154, 18, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[308881, 7455, 360, 10, 31, "Input"], Cell[309244, 7467, 464, 9, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[309745, 7481, 638, 15, 28, "Input"], Cell[310386, 7498, 1287, 20, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[311710, 7523, 440, 12, 28, "Input"], Cell[312153, 7537, 693, 13, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[312883, 7555, 901, 18, 28, "Input"], Cell[313787, 7575, 1447, 23, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[315271, 7603, 1214, 29, 31, "Input"], Cell[316488, 7634, 2650, 54, 63, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[319175, 7693, 1193, 25, 31, "Input"], Cell[320371, 7720, 5979, 121, 512, "Output"] }, Open ]], Cell[326365, 7844, 425, 7, 49, "Text"], Cell[CellGroupData[{ Cell[326815, 7855, 502, 15, 35, "Input"], Cell[327320, 7872, 1076, 25, 28, "Output"] }, Open ]], Cell[328411, 7900, 375, 7, 49, "Text"], Cell[328789, 7909, 919, 21, 80, "Input"], Cell[CellGroupData[{ Cell[329733, 7934, 937, 26, 52, "Input"], Cell[330673, 7962, 609, 16, 69, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[331319, 7983, 217, 5, 28, "Input"], Cell[331539, 7990, 615, 13, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[332191, 8008, 330, 9, 28, "Input"], Cell[332524, 8019, 1053, 24, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[333614, 8048, 274, 6, 28, "Input"], Cell[333891, 8056, 825, 18, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[334753, 8079, 437, 10, 28, "Input"], Cell[335193, 8091, 655, 13, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[335885, 8109, 479, 11, 28, "Input"], Cell[336367, 8122, 625, 13, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[337029, 8140, 155, 2, 28, "Input"], Cell[337187, 8144, 1029, 23, 28, "Output"] }, Open ]], Cell[338231, 8170, 177, 4, 30, "Text"], Cell[CellGroupData[{ Cell[338433, 8178, 383, 11, 31, "Input"], Cell[338819, 8191, 1057, 25, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[339913, 8221, 199, 4, 31, "Input"], Cell[340115, 8227, 1022, 23, 28, "Output"] }, Open ]], Cell[341152, 8253, 240, 5, 30, "Text"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)