(* 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[ 179204, 3911] NotebookOptionsPosition[ 175000, 3767] NotebookOutlinePosition[ 175610, 3788] CellTagsIndexPosition[ 175567, 3785] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["243 Thermisches Rauschen", "Title", CellChangeTimes->{{3.581153342988996*^9, 3.581153346882925*^9}}], Cell[BoxData[ StyleBox[ RowBox[{"Needs", "[", "\"\\"", "]"}], FontColor->GrayLevel[0.5]]], "Input", CellChangeTimes->{{3.5811565589627857`*^9, 3.5811565640304327`*^9}}], Cell[CellGroupData[{ Cell["\<\ Messung der Rausch-Spannung als Funktion des ohmschen Widerstandes\ \>", "Section", CellChangeTimes->{{3.581153369778225*^9, 3.581153418534211*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"data", " ", "=", " ", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", " ", RowBox[{ RowBox[{"5", "*", RowBox[{"{", RowBox[{"1", ",", "0.005"}], "}"}]}], ",", "\"\\""}], "]"}], ",", " ", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"2.4320", ",", " ", RowBox[{"0.00851", "/", SqrtBox["107"]}]}], "}"}], ",", "\"\\""}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{ RowBox[{"10", "*", RowBox[{"{", RowBox[{"1", ",", "0.005"}], "}"}]}], ",", "\"\\""}], "]"}], ",", " ", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"3.1366", ",", " ", RowBox[{"0.0115", "/", SqrtBox["106"]}]}], "}"}], ",", "\"\\""}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{ RowBox[{"15", "*", RowBox[{"{", RowBox[{"1", ",", "0.005"}], "}"}]}], ",", "\"\\""}], "]"}], ",", " ", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"3.7130", ",", " ", RowBox[{"0.0119", "/", SqrtBox["105"]}]}], "}"}], ",", "\"\\""}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{ RowBox[{"20", "*", RowBox[{"{", RowBox[{"1", ",", "0.005"}], "}"}]}], ",", "\"\\""}], "]"}], ",", " ", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"4.2193", ",", " ", RowBox[{"0.0161", "/", SqrtBox["104"]}]}], "}"}], ",", "\"\\""}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{ RowBox[{"25", "*", RowBox[{"{", RowBox[{"1", ",", "0.005"}], "}"}]}], ",", "\"\\""}], "]"}], ",", " ", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"4.6808", ",", " ", RowBox[{"0.0174", "/", SqrtBox["103"]}]}], "}"}], ",", "\"\\""}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{ RowBox[{"30", "*", RowBox[{"{", RowBox[{"1", ",", "0.005"}], "}"}]}], ",", "\"\\""}], "]"}], ",", " ", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"5.0737", ",", " ", RowBox[{"0.0237", "/", SqrtBox["186"]}]}], "}"}], ",", "\"\\""}], "]"}]}], "}"}]}], "\[IndentingNewLine]", "}"}]}]], "Input", CellChangeTimes->{{3.581153432785575*^9, 3.5811535370270643`*^9}, { 3.5811537117936497`*^9, 3.581153742141809*^9}, {3.581153872239696*^9, 3.581153892493754*^9}, {3.581154025918908*^9, 3.581154033752873*^9}, { 3.581154157514709*^9, 3.5811541806813087`*^9}, {3.581154301426135*^9, 3.581154369296029*^9}, {3.58236639370564*^9, 3.5823663939756403`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"5"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ "\"k\[CapitalOmega]\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: kilohms"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Kiloohms\""}], "]"}]& )], ",", TemplateBox[{"0.025`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ "\"k\[CapitalOmega]\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: kilohms"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Kiloohms\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"2.432`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mV\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millivolts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millivolts\""}], "]"}]& )], ",", TemplateBox[{"0.0008226927521778597`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mV\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millivolts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millivolts\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"10"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ "\"k\[CapitalOmega]\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: kilohms"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Kiloohms\""}], "]"}]& )], ",", TemplateBox[{"0.05`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ "\"k\[CapitalOmega]\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: kilohms"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Kiloohms\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"3.1366`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mV\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millivolts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millivolts\""}], "]"}]& )], ",", TemplateBox[{"0.0011169787417108538`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mV\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millivolts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millivolts\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"15"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ "\"k\[CapitalOmega]\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: kilohms"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Kiloohms\""}], "]"}]& )], ",", TemplateBox[{"0.075`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ "\"k\[CapitalOmega]\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: kilohms"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Kiloohms\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"3.713`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mV\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millivolts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millivolts\""}], "]"}]& )], ",", TemplateBox[{"0.0011613210868087547`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mV\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millivolts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millivolts\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"20"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ "\"k\[CapitalOmega]\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: kilohms"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Kiloohms\""}], "]"}]& )], ",", TemplateBox[{"0.1`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ "\"k\[CapitalOmega]\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: kilohms"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Kiloohms\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"4.2193`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mV\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millivolts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millivolts\""}], "]"}]& )], ",", TemplateBox[{"0.0015787348878623815`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mV\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millivolts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millivolts\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"25"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ "\"k\[CapitalOmega]\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: kilohms"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Kiloohms\""}], "]"}]& )], ",", TemplateBox[{"0.125`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ "\"k\[CapitalOmega]\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: kilohms"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Kiloohms\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"4.6808`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mV\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millivolts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millivolts\""}], "]"}]& )], ",", TemplateBox[{"0.00171447294400587`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mV\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millivolts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millivolts\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"30"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ "\"k\[CapitalOmega]\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: kilohms"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Kiloohms\""}], "]"}]& )], ",", TemplateBox[{"0.15`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ "\"k\[CapitalOmega]\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: kilohms"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Kiloohms\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"5.0737`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mV\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millivolts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millivolts\""}], "]"}]& )], ",", TemplateBox[{"0.0017377683130030365`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mV\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millivolts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millivolts\""}], "]"}]& )]}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.581154321876854*^9, 3.581154373039424*^9, 3.582179458422889*^9, 3.5823573744344487`*^9, {3.5823588506115303`*^9, 3.5823588786665697`*^9}, 3.5823589142026196`*^9, 3.582358958939683*^9, 3.5823663954356422`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["T", "zimmer"], "=", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"24.7", ",", "0.1"}], "}"}], ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.581154379529179*^9, 3.581154417718103*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"24.7`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"\[Degree]C\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: degrees Celsius"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Celsius\""}], "]"}]& )], ",", TemplateBox[{"0.1`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"\[Degree]C\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: degrees Celsius"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Celsius\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{ 3.581154418563776*^9, 3.582179461922894*^9, 3.582357374464449*^9, { 3.5823588506515303`*^9, 3.5823588787065697`*^9}, 3.5823589142426195`*^9, 3.582358958979683*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"background", "=", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"1.3981", ",", " ", RowBox[{"0.00467", "/", SqrtBox["101"]}]}], "}"}], ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.58115460802238*^9, 3.581154633032419*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"1.3981`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mV\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millivolts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millivolts\""}], "]"}]& )], ",", TemplateBox[{"0.0004646823678280649`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mV\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millivolts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millivolts\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{ 3.581154634950526*^9, 3.5821794640928974`*^9, 3.582357374504449*^9, { 3.58235885068153*^9, 3.5823588787465696`*^9}, 3.58235891434262*^9, 3.582358959019683*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Messung des Frequenzgangs des Verst\[ADoubleDot]rkers und des Bandfilters\ \>", "Section", CellChangeTimes->{{3.581155390873399*^9, 3.581155397871236*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{"Decrease", ",", "\[CapitalDelta]Decrease"}], "}"}], "=", " ", RowBox[{"0.001", "*", RowBox[{"{", RowBox[{"1", ",", "0.002"}], "}"}]}]}]], "Input", CellChangeTimes->{{3.581155469049398*^9, 3.5811555021382227`*^9}, { 3.581156372920917*^9, 3.581156377402134*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"0.001`", ",", "2.`*^-6"}], "}"}]], "Output", CellChangeTimes->{{3.5811554822591543`*^9, 3.5811555026044407`*^9}, 3.5811563778351192`*^9, 3.5823573749744496`*^9, {3.5823588507015305`*^9, 3.58235887876657*^9}, 3.5823589143626204`*^9, 3.582358959039683*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Uin", "=", RowBox[{"Quantity", "[", RowBox[{"0.2", ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.581155508679585*^9, 3.58115554205056*^9}, { 3.581156273071377*^9, 3.581156284855835*^9}}], Cell[BoxData[ TemplateBox[{"0.2`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]], "Output", CellChangeTimes->{ 3.581155542519855*^9, {3.581156273537385*^9, 3.581156285255828*^9}, 3.58235737500445*^9, {3.58235885073153*^9, 3.5823588788165703`*^9}, 3.5823589144026203`*^9, 3.582358959059683*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[Nu]", "=", RowBox[{"Quantity", "[", RowBox[{"100", ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.5811555475898*^9, 3.581155553732974*^9}}], Cell[BoxData[ TemplateBox[{"100"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Hz\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Hertz\""}], "]"}]& )]], "Output", CellChangeTimes->{ 3.5811555541907473`*^9, 3.5823573750344496`*^9, {3.5823588507615304`*^9, 3.58235887884657*^9}, 3.58235891443262*^9, 3.582358959089683*^9}] }, Open ]], Cell[TextData[StyleBox["Einstellungen\nVertical Scale: 5 db/div\nV-Range: 0.1 \ V\nFrequency Range: 1 MHz\nFrequency Start: 100 Hz\nFrequency Step Size: 20%\n\ Automatic Voltage Scale", FontFamily->"Helvetica Neue UltraLight"]], "Text", CellChangeTimes->{{3.5811555650788927`*^9, 3.5811555998499537`*^9}, { 3.5811556438563833`*^9, 3.581155651758511*^9}, {3.581155711826528*^9, 3.581155760551477*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"data2", " ", "=", " ", RowBox[{ RowBox[{"StringSplit", "@", RowBox[{ RowBox[{"StringSplit", "[", RowBox[{ RowBox[{ "Import", "[", "\"\\"\ ", "]"}], ",", "\"\<\\n\>\""}], "]"}], "[", RowBox[{"[", RowBox[{"2", ";;"}], "]"}], "]"}]}], "//", "ToExpression"}]}], ";"}]], "Input", CellChangeTimes->{{3.581156069479879*^9, 3.581156163094626*^9}, { 3.581156231394272*^9, 3.581156242190362*^9}, {3.58115629738204*^9, 3.5811562983345222`*^9}, {3.581156429566*^9, 3.581156430974382*^9}, { 3.5823589469086657`*^9, 3.5823589503786707`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Uout", "=", RowBox[{"data2", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.581156309592177*^9, 3.581156329478853*^9}, { 3.581156436868431*^9, 3.581156449283967*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Max", "[", "Uout", "]"}]], "Input", CellChangeTimes->{{3.5811588175454493`*^9, 3.581158819833561*^9}}], Cell[BoxData["0.221`"], "Output", CellChangeTimes->{ 3.5811588202510233`*^9, 3.582357376264451*^9, {3.5823588509215307`*^9, 3.58235887901657*^9}, 3.5823589147226205`*^9, 3.582358959149683*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListLogLogPlot", "[", RowBox[{"data2", "[", RowBox[{"[", RowBox[{"All", ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.5811588390123568`*^9, 3.58115885260546*^9}}], Cell[BoxData[ GraphicsBox[{{{}, {{}, {RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[CompressedData[" 1:eJxF1Xs41NkfB/AZci+5jrkYDObrlqRWsW6HdqMI0WxRIblsFyu3whSRS1Es FeVSSpssPcUSXcb3kNKUdUmba0ZWSdIkZMb11+/Znu/5Y555Xs/7cz7nO985 z/mwAsI8gyRIJFLNt8//vymcmgeVB1VAQN0dq8Y+KuTH/mQTiKkS9j21adS2 CTmpeceeWVc1wm6RStzcx8hehecZcebqhMPOxtJUzyHLNOgVrvqIPFHr6aVn RyFc2MbeLJ2O3H3B36eiHRkqbuA1qmgQTjWv1eryQD5zX9jrm4Hs5/IQPGxE zv43kus4owEG6odns2w0IIs/kWZpRCVc8XJnbN9O5Ibn12z8U6lAP7yjR6xO gT/LSs5PVVLB998Jv/cFxUelCpqPqEGzJfO/xiRpQH6/5KfxblWoXP2Alm1M A4x4q90XulRgL0WqrNWdBtT/e++w+3NxCS+SBgLWYNZLd5Qh5bX9/ahcGsje NXosoUUJHkmTCJCto4F/8Zy67a5KcJFDYWZ008BtRkXtC5eV0LxVv26FiAa2 ubhZ5JkqwkcxufFXKHRQGafJtXi7HJaPOYS4/UAHI52ZHzY9U4DPyG0/Gmyj A3vBtKXcRXlYyumqtgilg3Vnx2ccoBwsyikoTj5FB/88zIqWviYLq0ULE8wS OhBxwk8Jb8jANmOvPnkeHbhXZNtvvi4NhU6Jg16v6GCqNiO+vF4K+il1jJCE dCBbhqXserkMdoQ0OdNkGOBo0wtTbYll8APDsqdEiwFYpbz5mI2SsOCVgviG BQN8aJokOZ2QgEsqSYWGrgyQfvgqk/WGDPUPJHFWBzDA2zCHs5gxGZ50H9rF O8oAkeXW9lXXSHBKq/N87xkG0KhmJ6hJkWDxUtal9KsMkJk8EdFGXsKdIwJ4 HTUMUEDN4bd+WsBf7WkxNA7VBOcbS35lh4nxnKcD5kWyTMC93HBUOkWEd04F 12VkMcHhszz6Jj8RnuYmWMSltQiLy/8JPBmuBQas5bXTXEX4gdwkrzUvUK5m ZDWdbKxN5Cb3+2decrWJ/N2fplOGzShXFItSyqR1QPNTb9KA1bf6So2oeAMd oj4iWA7fuUmHqI8DJOmIfSh3MI/Mn41Hef/VJ8GMS6jfkPkt35lK5K45g/wK PqrfV9VtzhlE1luZ/1HmK/Krzc38bnkWGHs3krHFQISb3eMe7tFiEfuPfB4+ TVvLIvpLLLdQKP0J2dH+j4jMX1D9DwmGs70hyNkbXjbkxiBP2uRMPjvFIva/ fmLnm4SLKM9UfqPFK0X9mbZ/5p2+i3Kup+DqWBPKfTrLFUdfoDzkToBl2iDq j0u1Kz4fR3lV4jzr3izKz3sXlXNkdNF5eLI377qqLpEbzWxKL9NGtm1XGw0x QfXPw3UGhtYj35AM9WU6IkcV2a+mb9UFR7aOYYwIEf5+heXbvh0or6hZmAgM QJ5OPltUewjVy3OOO7zlo7zXaI2wiqpH5LoJfnzxbj3ifI8bBJZZXNIjnpcS 7T5ObdMj3ldb3KPkniWUC35189m9Sp/o/2ys0sOdow+8ipfoHvXfztOA5yUr rj7IXV8fMjUswvcvWgSlXkZ+uuU31hlcH5Aj3isXaotxSrB7YvaAPujN9t1m 5iTGQ10TNDrm9EHD3S/Yy3IxLln19zRXgw2Oh5k1GS2KcX5KfvEDczaQL5B2 FpXO4mpLnqf+2sIGXQ1sU23vOVz7tqpJUgAbBHAGDwi953FK9tC0QywbrHzd FfT0ygKuhH2dlstig+BUMwrNeglf7OEHfSphgwHahyntCBIMjE3RItexgSBi DE+4SYbNjfOT256zgUeN0gZXXAIKXSaXPr1mA9v1PlTXUUlYMmM8OCxkg0ce G2JjlktBrWXjo3ZkDBz8ud34rp001KjX5sioYMDi454H171loPqKFH8nXQyk K2ZJzkXLQieboMMyazHivu3j/2Ho7oABroLS4P0OeYhpUk+yPTBww1Dtx99W LIfxj0uGfvfFiPv8RH67Xt4hjLjvsVWa5bZxGMjyuHP53Ygi9CqNCD+dhgE1 V4apoHolbEtUXZlwHgNlQyr0/elKMLqb+Vj3KkbMlxKnrykxtzAQYzVzUtZP GeZ03p4/eQ8Ds/vaeVR5FfikKf+c82OMmFcXBJQ4fjtGzLPcroYyuX4MjBh9 iTX3UIXvdTTGFEaQxXrnel5MYMQ8vGC3f8R/HiPm5evWHv86aQNinsrd7XVc EWhAzN9jutmzX6sMiPmtWhj/2nMG+fRef/qVdYaEsY7u6Kz9huD7HICOoU8f +eQjbxAKU989QTZlRym8EaL1Hbhka4e6EeGCpL71+lZGRL2gLLZ/tQ/yL2RB tmUs8ta1HIljuciTyjpexlXId4Rm1NAW5F03M1pD3qL9ZJhXFi0XkOWrpphz qsZEvSapHzw2QlYUPCktt0OOrX+/BnoaE+uDb++tVglG+a3w6+6VMcgkcnHJ zXRUP+zuK7usEOXHok3q/q5A7gwdmlTkofrixBJWewvKS0un3lH7kWcNqPaf P6D6m1zbzN1i5KMflar2yZgQ5tWpKymoI4uGda/t0EU+tNGF7GZmgv7f24fC vlijfKP3RYGzM8qftRxf2L4d5cwrc+vo/shF1pNVBQeR1WtjovqPoPULnZEO gkTkHsemmhtnkOcyRRst8pD/B0WJcnE= "]]}, {}}, {}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{None, None}, AxesOrigin->{4.605170185988092, -6.907755278982137}, CoordinatesToolOptions:>{"DisplayFunction" -> ({ Exp[ Part[#, 1]], Exp[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Exp[ Part[#, 1]], Exp[ Part[#, 2]]}& )}, FrameTicks->{{{{-6.907755278982137, FormBox[ TagBox[ InterpretationBox["\"0.001\"", 0.001, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-6.214608098422191, FormBox[ TagBox[ InterpretationBox["\"0.002\"", 0.002, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-5.298317366548036, FormBox[ TagBox[ InterpretationBox["\"0.005\"", 0.005, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-4.605170185988092, FormBox[ TagBox[ InterpretationBox["\"0.010\"", 0.01, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-3.912023005428146, FormBox[ TagBox[ InterpretationBox["\"0.020\"", 0.02, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-2.995732273553991, FormBox[ TagBox[ InterpretationBox["\"0.050\"", 0.05, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-2.302585092994046, FormBox[ TagBox[ InterpretationBox["\"0.100\"", 0.1, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-1.6094379124341003`, FormBox[ TagBox[ InterpretationBox["\"0.200\"", 0.2, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-0.6931471805599453, FormBox[ TagBox[ InterpretationBox["\"0.500\"", 0.5, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-5.809142990314028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.521460917862246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.115995809754082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.961845129926823, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.8283137373023015`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.710530701645918, 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.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.6592600369327783`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.5257286443082556`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.4079456086518722`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.2039728043259361`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.916290731874155, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, {{-6.907755278982137, FormBox["\"\"", TraditionalForm]}, {-6.214608098422191, FormBox["\"\"", TraditionalForm]}, {-5.298317366548036, FormBox["\"\"", TraditionalForm]}, {-4.605170185988092, FormBox["\"\"", TraditionalForm]}, {-3.912023005428146, FormBox["\"\"", TraditionalForm]}, {-2.995732273553991, FormBox["\"\"", TraditionalForm]}, {-2.302585092994046, FormBox["\"\"", TraditionalForm]}, {-1.6094379124341003`, FormBox["\"\"", TraditionalForm]}, {-0.6931471805599453, FormBox["\"\"", TraditionalForm]}, {-5.809142990314028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.521460917862246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.115995809754082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.961845129926823, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.8283137373023015`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.710530701645918, 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.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.6592600369327783`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.5257286443082556`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.4079456086518722`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.2039728043259361`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.916290731874155, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}, {{{4.605170185988092, FormBox["100", TraditionalForm]}, {6.907755278982137, FormBox["1000", TraditionalForm]}, {9.210340371976184, FormBox[ TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {11.512925464970229`, FormBox[ TemplateBox[{"10", "5"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {13.815510557964274`, FormBox[ TemplateBox[{"10", "6"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {7.600902459542082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.006367567650246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.294049640102028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.517193191416238, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.699514748210191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.85366542803745, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.987196820661973, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {9.104979856318357, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {9.903487552536127, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {10.308952660644293`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {10.596634733096073`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {10.819778284410283`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {11.002099841204238`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {11.156250521031495`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {11.289781913656018`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {11.407564949312402`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {12.206072645530174`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {12.611537753638338`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {12.89921982609012, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {13.122363377404328`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {13.304684934198283`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {13.458835614025542`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {13.592367006650065`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {13.710150042306449`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, {{4.605170185988092, FormBox["\"\"", TraditionalForm]}, {6.907755278982137, FormBox["\"\"", TraditionalForm]}, {9.210340371976184, FormBox["\"\"", TraditionalForm]}, {11.512925464970229`, FormBox["\"\"", TraditionalForm]}, {13.815510557964274`, FormBox["\"\"", TraditionalForm]}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {7.600902459542082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.006367567650246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.294049640102028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.517193191416238, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.699514748210191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.85366542803745, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.987196820661973, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {9.104979856318357, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {9.903487552536127, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {10.308952660644293`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {10.596634733096073`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {10.819778284410283`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {11.002099841204238`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {11.156250521031495`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {11.289781913656018`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {11.407564949312402`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {12.206072645530174`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {12.611537753638338`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {12.89921982609012, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {13.122363377404328`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {13.304684934198283`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {13.458835614025542`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {13.592367006650065`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {13.710150042306449`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}}, GridLines->{None, None}, Method->{}, PlotRange->{{4.605170185988092, 13.795328258601776`}, {-6.907755278982137, -1.5095925774643841`}}, PlotRangeClipping->True, PlotRangePadding->{{0.18380316145227368`, 0.18380316145227368`}, { 0.10796325403035505`, 0.10796325403035505`}}, Ticks->{{{4.605170185988092, FormBox["100", TraditionalForm]}, {6.907755278982137, FormBox["1000", TraditionalForm]}, {9.210340371976184, FormBox[ TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {11.512925464970229`, FormBox[ TemplateBox[{"10", "5"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {13.815510557964274`, FormBox[ TemplateBox[{"10", "6"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {7.600902459542082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.006367567650246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.294049640102028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.517193191416238, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.699514748210191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.85366542803745, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.987196820661973, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {9.104979856318357, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {9.903487552536127, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {10.308952660644293`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {10.596634733096073`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {10.819778284410283`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {11.002099841204238`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {11.156250521031495`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {11.289781913656018`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {11.407564949312402`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {12.206072645530174`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {12.611537753638338`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {12.89921982609012, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {13.122363377404328`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {13.304684934198283`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {13.458835614025542`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {13.592367006650065`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {13.710150042306449`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, {{-6.907755278982137, FormBox[ TagBox[ InterpretationBox["\"0.001\"", 0.001, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-6.214608098422191, FormBox[ TagBox[ InterpretationBox["\"0.002\"", 0.002, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-5.298317366548036, FormBox[ TagBox[ InterpretationBox["\"0.005\"", 0.005, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-4.605170185988092, FormBox[ TagBox[ InterpretationBox["\"0.010\"", 0.01, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-3.912023005428146, FormBox[ TagBox[ InterpretationBox["\"0.020\"", 0.02, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-2.995732273553991, FormBox[ TagBox[ InterpretationBox["\"0.050\"", 0.05, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-2.302585092994046, FormBox[ TagBox[ InterpretationBox["\"0.100\"", 0.1, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-1.6094379124341003`, FormBox[ TagBox[ InterpretationBox["\"0.200\"", 0.2, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-0.6931471805599453, FormBox[ TagBox[ InterpretationBox["\"0.500\"", 0.5, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-5.809142990314028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.521460917862246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.115995809754082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.961845129926823, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.8283137373023015`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.710530701645918, 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.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.6592600369327783`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.5257286443082556`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.4079456086518722`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.2039728043259361`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.916290731874155, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}]], "Output", CellChangeTimes->{{3.581158848711597*^9, 3.581158853183126*^9}, 3.582357376594452*^9, {3.5823588510225306`*^9, 3.5823588791165705`*^9}, 3.5823589148326206`*^9, 3.582358959630684*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"\[Nu]", "=", RowBox[{ RowBox[{ RowBox[{"Quantity", "[", RowBox[{"#", ",", "\"\\""}], "]"}], "&"}], "@", RowBox[{"data2", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}]}]}], ";"}]], "Input", CellChangeTimes->{{3.581156609063407*^9, 3.581156639161544*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"g", ",", "\[CapitalDelta]g"}], "}"}], "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ RowBox[{"QuantityMagnitude", "[", "\[Nu]", "]"}], ",", RowBox[{ FractionBox["1", "Decrease"], "*", FractionBox["Uout", RowBox[{"QuantityMagnitude", "[", "Uin", "]"}]], "*", "f"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"f", ",", RowBox[{"{", RowBox[{"1", ",", FractionBox["\[CapitalDelta]Decrease", "Decrease"]}], "}"}]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.581156221386424*^9, 3.581156287526835*^9}, { 3.581156336763392*^9, 3.581156339083106*^9}, {3.58115638921706*^9, 3.581156389679388*^9}, {3.581156452203639*^9, 3.581156538174879*^9}, { 3.581156596067362*^9, 3.581156603442472*^9}, {3.5811566425286083`*^9, 3.581156644648962*^9}, {3.58115668860548*^9, 3.5811566919410143`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListLogLogPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"g", ",", RowBox[{"g", "[", RowBox[{"[", RowBox[{"20", ";;", "137"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", "Full"}], ",", RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]], "Input", CellChangeTimes->{{3.5811565460983953`*^9, 3.581156547652964*^9}, { 3.581156706987864*^9, 3.581156803276494*^9}, {3.581156841250332*^9, 3.581156890207296*^9}, {3.581157423749441*^9, 3.581157476825132*^9}}], Cell[BoxData[ GraphicsBox[{{{}, {{}, {}, {RGBColor[0.24720000000000014`, 0.24, 0.6], LineBox[CompressedData[" 1:eJxF1XlUU8ceB3CWShQKhC0kuQQIIZfNqsFSsIr+wI1WJRZMFRREZHlUeFYW IaCyyaKoCLKUAE80yiJ4lFQKLoiiIFHLYixrBMUFNxo1IJvA851nZ/7Iuedz v7+ZSe7czI/tv9sjUE1FRaXm8+d/V5qg5mr1Ln34/1UNpMJVywJIA2Tf9DWv nG9jJ93Z7DO53hDZPYIal9eE7VmUQ8TyjJB3HxUyDE5gU25yiua/xX5f6+HJ WU5DLmrj/qBxGLs718+7qh37ho5jfaO+MXIqr9a0ayP2kSuKXt8M7O3rrsG1 RuyspxFxrmPGYOa2YQnt3BxgS9+nOdnQkasebhH2bcG+ee/0Mr9U+pdxFFg9 V/3TSDUdFh8dHnO5MQ/86y4uaeyjQ2Gn1kSpgxYsnOX9/kadAU1KXU/vPV+D 3qWrjCxbBpyRivdqRepAL21ORSufAReIqtoH63Sh+12JuD6CARn2gfJCPyrQ Hq24EpnHgG2U0yJitR7sTVPzn1vHAE3xuO+aJj2YEdBYGd0M+GffeK2Wddrj DFjt/Gxf26Q+3IrJO3CSxoRc7rSXykkDqHzjEuz+LRMmx1eejp5vCHdV2763 +omJ9q1M0HXJIYyJ9q04u7DkYDoTkg/ekuffMIJL49PvWWIm2qc2W88+zXom NB9pjN7bQAPF2sTHnp1MUKau3rLa3hi2UzuGVBRMCNEZ3xRWZgwdwbfdGBQC JCqnEzKodHhNOPWITQnwyZxf0L/7n+dGQEyCXn50Bx1m9ZOKrNcTUH7uSrom mwGWvyQJFvgTMHXudXvaPgYk8we31kcTX54/A0ZMZTm9RwgYTB/vouoyoWQ2 s+DwKQL9Trdw//qOGgKa5WTgUC4TOn3uW9uGmaD72S39vOK5LOBPiYRe7wiQ jQTVZWSyIGu277h0goA094GZBg1T5InKvwKS95jCR1kLXzhDwC95SZ6LHuDc 0GbJ6EFbM5TbXZGPPYwzQ/mLc9+MWN/Buc7EeEqFhjlcfReZz1E3Abtq48gD VuaoPjxoXsOWNeaoPhZUNMJ34tyFFyGaPIBz+anmIKIAzzfIO+87Vo3dNWUl qpLi+p2Sbp7gMTZHV/SW8hG784c70m5NNtiHZEW2UExg4eW4X3tM2Wj9oXfP DjHs2Wh+ta8dtMpWYbuuOBt+7Gdc/2289WRvMHaW48ObeTHYymXZyrvpbLT+ mYQtT+J/w/kxvSem9WV4fpbzufxDf+A8zmPg1JvbOPeWVeq8eoDz4Iv+TmmP 8fwNc9p17g3jXJL4iX15Euc5XsWVAooFfh+ad+SfMbBAuc3YmsMVZtjO7Yav gu1w/b095v2D32GXqof5slyxI4tXLGBusIDjme0bDEcJeKnt9LxvM86raqbf B/hjjx48Wlwbius1Bftdnktx3muzSCGhc1BuEb9dOrGNg97vYauACocCDvq+ tCj+ML2Ng55XW+ytgz2zOB/4l7v3tvmWaP67b6o38gWW0B17j0oZJKCr36Ng SZwluP1VOO3TTUDIjENg6n+wW378N/tIgyWErdEzuCT9vF4QPzGr3xKiry9e 2dZAQNj6eOOOKUtwrmnVLi0lQF3y52icMRd00uJLqdkESFNEJVd5XLC7dmhO cfDn/9esR/rvP3Ih+oPLes+lBJhdMLBL8udC7gbZMrMpJtCyBkddhFyo2GU0 U17BBCr5cXReJhc2Jc52PHRlwkyPNPBvMRedowHCFFPVOi7sr8h13OrMgDuN n5Q/3eOic16xTjn79yMutK311Ro1oYN4zPbxMwUX9RnTr4ZfLVclwQk4avCB BsbXzQQUfRJkofLLLQE0MNJO8VtrQUJ5363c4k4jWLss8FeKPYnO2z7pWWu+ CwmLfJLL6ssNgTShJ3M3kiByT5x8qmkIB5rEg8d9SXSeJ4jaOfmhJDrvyfkm lc6xJJz9fnFLWbE+eJaF7zmURsLTa9MJdo760JZooBufQ8KqhJhpXpoeRHWz mixOkai/iNd+TIk5T0KUTc6JbAkVsmUXPiVfJkE5c8UriUKF5tuiE25NJOpX uQO0WGk7ifpZXtfNinlyErTD7ZfKkrThpbnxG60h7AnOiZ4H70nUD3OXhwz5 fSJRv3zU2uNXp2GF+um8P3pdtQOsUP/dZ5E1+VFihfq3QdGBRx5j2Id2+DFP LrZGJju6ozJDrL/MN7HCNazllrcI21GhSH3RjP0NN1LriQKP72hQb+0wskEu TOr7znKJDaofqBDKF3hj/6w6kOUkxN5gL1Dbl4et1DP3tJVgX1QspIfdx95a ntEa/ByvR2GdnHGaxtaUjLCmDGxRvYmKHJpssHUGmssql2MLr79cdMPDFo0P urDjkn4Qzs/vOcOvjsFWUS0Rlx/G9c/4vnO/KsL5vii7uj+rsGVhg0qdelxf kihmt9/HeVnZyAu6HHvSir7i3WtcXx7nfGzbBHb0W6pkJ8UOub7OiKplhD3+ zOL0Zgvs0JXrVN0X2uH9vRC6+8NSnK/0+m3AzQ3nd+/vn960Ceesk1OLmX7Y xUuVksJd2Ea1MZHyvXj8tCzCZSARu8f1dk3pEeypY+MrHfKx/wtNCyhd "]]}, {RGBColor[0.6, 0.24, 0.4428931686004542], LineBox[CompressedData[" 1:eJxFlXlQE2cUwBEqERAIV0iyXCFkOasGpeKBPlSOeoAS04oK0shRVKogclq5 BQRFkKMEqWAUCOgoCJVDREWQSMup3AKiFpUiIPeZ2pm63x87O7/9vXlv9823 7zF4Jx3cJCUkJPy+XP/drVZILUwUUmHtxeFpy0cywCu9u+FJNxUy2uRmc8zk YLWYfW9IigY144qcg94rQam4gpZoRIMbIoGfnK8CdFGWCxvsaXAHu3W/ZZci dIxmCSpP0yDO1K0nw4UMlFdby31TaXCYdJ2PWSmBX7Qkb0UpDWQFM87WNUqw xKVoxnXQgMItqSg8rgzsBr1S+RkaWFm8Pds4pwzVAannrlHokMJadJS4pgIF Q5YeduvoMDez/bq/iSo8X9a4UX8fHexOk4NTa1Qhl9tebOZFB87VZCyIrQaZ SRlZkTF0iIis7kl7pAbFM4tjmgI6jN134DC3UKDRiNMtW0mH2vgn/n5VFBix CevntNFh/LzVAStTdThCbh6UGKGDp8LMfq9cdWj2eGpLI2FQJHE9NI5MhY+Y eadACwOnBJP03pNf+4ZBQKhSmn8zFcTK4VcNdmOQl18eI8uggd6xcO4qHgbz +R+bos/SIMJ+4FClP/Z//2kwodWa3BWPwUDMTDtZkQ5Z4oT0C9kY8Z22PrzK 5hIMantwt8EUOrQ5/Wlg5KVBPE+q62VnrtAE+3l+oOMoBq0T7qVxCZqQKO6+ LJrFINqub6lKWovg2YKXrhHeWjDVWmcfuITBsdRwzpoW5FUNN0xGGmkT3ri8 Z/pFsDbh/87/dsLgGfIKszNRQmkdqBj1TWNKaYBxobrvOX0dIt7HXabqgLUO ER8EEtI+R5G3ZJ/mz51Dvie71h1LR/kG2LedpwsRt8/r82+JUPzRog42tx8x U5H/D2kKcdv3z0Qdsgww9Uz0rSNpwOqy4FOdWgyi/uDo21iaKYPIL7nSTC53 B+JtW2/6XPoBxa8LMZjr8kCcuP7F49QAxOObk8afxzCI+jdCD7wO+Q35S0qv tSpzUX5Ni/y02D+QD3boyx56ivzB1gKFDy3Ie9zlmUf3o/xVy5sU6oeRLwpb YJTNIZ/smFnAJemi81D7U9oNFV3CG05bXxBqI7ZoUv3gYYzi6711ege+Q5wj 5eWsuQ2xb+bWVfQ9unA5oWmP6iQG7+XN33X/iPytksUxVx7iyciLmfdPoHhZ 7q+W70TIdxmuGSmiMgmvG3JENHuYSZzvYX1XoVk6k3hfyhn7YWojk+hXY1B1 ZKcY+b6f7Q4eNtEj8j8fKtxrz9WDjqB6MmkAg/Zeh/QNwXpg+zJj0akDA88l M7fzvyOu2/kLI75KD7yslVSKRV/quduHJfbqgf/DtdsbqzDw2h2i3jyvBxYl DfI5ORhIFf01GazOAoXokBxyEgaiKH5WBZsFxg9il2d6fPm/xA4x93aywP+z 5W7OJgy076gYh/NYkLKndbP2PB0oiQOTloEsEB5XW8oT0oGMT03KJLBgf5i4 +cU2Oix1itw+CVjEHHUNjNJaVsqCX4Up6w9Z0ODZk4XxffUs+DrnR3aNiz+9 YkGjjbPcpAYVBNNG/W9HWBBfPtLlHKcOWt8Mf9iyDAdzYErCZwqoP9TmkpRx aD3RU1bnSgE1+SgXG10c8rqrUzLb1MBms9spkilOzNtu0U0De0sc1jhF5Fbm qQKuQY1g7cWBbxc290ZWFc7VCAYuO+PEPA/lNzHTTuDEvMdNNAosgnC4uXFt XW6mMnByfbxjo3F482Ax1Hi9MjSGqSiGJOOwIzRgkR2tBGc6NGt0s3Fivwhs pqICbuNwxjD5SlIRGZJa7yxElOEwvlTuGE4iQ+1T/hXbGpzYVyl9lCBRE07s s9T2x0KZHhzkfUw3tYbLw3sd9SG5QcSzzCudLWM4sQ9TtngOuizgxL581dDp UiqtT+zTfwG6rGVQ "]]}}, {}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{None, None}, AxesOrigin->{4.605170185988092, 1.6094379124341003`}, CoordinatesToolOptions:>{"DisplayFunction" -> ({ Exp[ Part[#, 1]], Exp[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Exp[ Part[#, 1]], Exp[ Part[#, 2]]}& )}, FrameTicks->{{{{2.302585092994046, FormBox["10", TraditionalForm]}, {2.995732273553991, FormBox["20", TraditionalForm]}, {3.912023005428146, FormBox["50", TraditionalForm]}, {4.605170185988092, FormBox["100", TraditionalForm]}, {5.298317366548036, FormBox["200", TraditionalForm]}, {6.214608098422191, FormBox["500", TraditionalForm]}, {6.907755278982137, FormBox["1000", TraditionalForm]}, {7.600902459542082, FormBox["2000", TraditionalForm]}, {8.517193191416238, FormBox["5000", TraditionalForm]}, {3.4011973816621555`, 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.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]}}, {5.703782474656201, 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]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.006367567650246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.294049640102028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, {{2.302585092994046, FormBox["\"\"", TraditionalForm]}, {2.995732273553991, FormBox["\"\"", TraditionalForm]}, {3.912023005428146, FormBox["\"\"", TraditionalForm]}, {4.605170185988092, FormBox["\"\"", TraditionalForm]}, {5.298317366548036, FormBox["\"\"", TraditionalForm]}, {6.214608098422191, FormBox["\"\"", TraditionalForm]}, {6.907755278982137, FormBox["\"\"", TraditionalForm]}, {7.600902459542082, FormBox["\"\"", TraditionalForm]}, {8.517193191416238, FormBox["\"\"", TraditionalForm]}, {3.4011973816621555`, 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.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]}}, {5.703782474656201, 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]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.006367567650246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.294049640102028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}, {{{4.605170185988092, FormBox["100", TraditionalForm]}, {6.907755278982137, FormBox["1000", TraditionalForm]}, {9.210340371976184, FormBox[ TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {11.512925464970229`, FormBox[ TemplateBox[{"10", "5"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {13.815510557964274`, FormBox[ TemplateBox[{"10", "6"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {7.600902459542082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.006367567650246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.294049640102028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.517193191416238, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.699514748210191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.85366542803745, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.987196820661973, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {9.104979856318357, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {9.903487552536127, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {10.308952660644293`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {10.596634733096073`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {10.819778284410283`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {11.002099841204238`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {11.156250521031495`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {11.289781913656018`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {11.407564949312402`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {12.206072645530174`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {12.611537753638338`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {12.89921982609012, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {13.122363377404328`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {13.304684934198283`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {13.458835614025542`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {13.592367006650065`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {13.710150042306449`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, {{4.605170185988092, FormBox["\"\"", TraditionalForm]}, {6.907755278982137, FormBox["\"\"", TraditionalForm]}, {9.210340371976184, FormBox["\"\"", TraditionalForm]}, {11.512925464970229`, FormBox["\"\"", TraditionalForm]}, {13.815510557964274`, FormBox["\"\"", TraditionalForm]}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {7.600902459542082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.006367567650246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.294049640102028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.517193191416238, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.699514748210191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.85366542803745, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.987196820661973, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {9.104979856318357, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {9.903487552536127, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {10.308952660644293`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {10.596634733096073`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {10.819778284410283`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {11.002099841204238`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {11.156250521031495`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {11.289781913656018`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {11.407564949312402`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {12.206072645530174`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {12.611537753638338`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {12.89921982609012, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {13.122363377404328`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {13.304684934198283`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {13.458835614025542`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {13.592367006650065`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {13.710150042306449`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}}, GridLines->{None, None}, ImageSize->Full, Method->{}, PlotRange->{{4.605170185988092, 13.795328258601776`}, {1.6094379124341003`, 7.007600613951853}}, PlotRangeClipping->True, PlotRangePadding->{{0.18380316145227368`, 0.18380316145227368`}, { 0.10796325403035505`, 0.10796325403035505`}}, Ticks->{{{4.605170185988092, FormBox["100", TraditionalForm]}, {6.907755278982137, FormBox["1000", TraditionalForm]}, {9.210340371976184, FormBox[ TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {11.512925464970229`, FormBox[ TemplateBox[{"10", "5"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {13.815510557964274`, FormBox[ TemplateBox[{"10", "6"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {7.600902459542082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.006367567650246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.294049640102028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.517193191416238, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.699514748210191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.85366542803745, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.987196820661973, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {9.104979856318357, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {9.903487552536127, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {10.308952660644293`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {10.596634733096073`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {10.819778284410283`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {11.002099841204238`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {11.156250521031495`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {11.289781913656018`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {11.407564949312402`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {12.206072645530174`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {12.611537753638338`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {12.89921982609012, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {13.122363377404328`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {13.304684934198283`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {13.458835614025542`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {13.592367006650065`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {13.710150042306449`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, {{2.302585092994046, FormBox["10", TraditionalForm]}, {2.995732273553991, FormBox["20", TraditionalForm]}, {3.912023005428146, FormBox["50", TraditionalForm]}, {4.605170185988092, FormBox["100", TraditionalForm]}, {5.298317366548036, FormBox["200", TraditionalForm]}, {6.214608098422191, FormBox["500", TraditionalForm]}, {6.907755278982137, FormBox["1000", TraditionalForm]}, {7.600902459542082, FormBox["2000", TraditionalForm]}, {8.517193191416238, FormBox["5000", TraditionalForm]}, {3.4011973816621555`, 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.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]}}, {5.703782474656201, 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]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.006367567650246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.294049640102028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}]], "Output", CellChangeTimes->{ 3.581156548685017*^9, {3.581156698941415*^9, 3.581156803960758*^9}, { 3.581156847495315*^9, 3.581156890647161*^9}, {3.581157449077729*^9, 3.581157477272623*^9}, 3.582357378105454*^9, {3.5823588514925313`*^9, 3.5823588795865707`*^9}, 3.5823589153726215`*^9, 3.582358959880684*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"fit", ",", "\[CapitalDelta]fit"}], "}"}], "=", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"start", "=", "20"}], ",", RowBox[{"end", "=", "137"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"g", "[", RowBox[{"[", RowBox[{"start", ";;", "end"}], "]"}], "]"}], ",", RowBox[{"\[CapitalDelta]g", "[", RowBox[{"[", RowBox[{"start", ";;", "end"}], "]"}], "]"}]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.581156897285379*^9, 3.5811569261663303`*^9}, { 3.5811573271544333`*^9, 3.5811573280262613`*^9}, {3.5811574821605253`*^9, 3.581157504679307*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fml", "=", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"bla", "=", "laber"}], "}"}], ",", RowBox[{"NonlinearModelFit", "[", RowBox[{"fit", ",", FractionBox["1000", RowBox[{ SqrtBox[ RowBox[{"1", "+", FractionBox["1", SuperscriptBox[ RowBox[{"(", FractionBox["f", "\[CapitalOmega]1"], ")"}], RowBox[{"2", "n1"}]]]}]], SqrtBox[ RowBox[{"1", "+", SuperscriptBox[ RowBox[{"(", FractionBox["f", "\[CapitalOmega]2"], ")"}], RowBox[{"2", "n2"}]]}]]}]], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[CapitalOmega]1", ",", "1000"}], "}"}], ",", RowBox[{"{", RowBox[{"\[CapitalOmega]2", ",", "50000"}], "}"}], ",", RowBox[{"{", RowBox[{"n1", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"n2", ",", "5"}], "}"}]}], "}"}], ",", "f", ",", RowBox[{"VarianceEstimatorFunction", "\[Rule]", RowBox[{"(", RowBox[{"1", "&"}], ")"}]}], ",", RowBox[{"Weights", "\[Rule]", FractionBox["1", SuperscriptBox[ RowBox[{"\[CapitalDelta]fit", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "2"]]}]}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.581157017158156*^9, 3.5811570220388002`*^9}, { 3.581157053268145*^9, 3.581157137371131*^9}, {3.5811571786059093`*^9, 3.581157399704234*^9}, {3.581157527399695*^9, 3.581157534278479*^9}, { 3.5811575750285473`*^9, 3.581157709635771*^9}, {3.581158981267507*^9, 3.581158985553051*^9}}], Cell[BoxData[ TagBox[ RowBox[{"FittedModel", "[", TagBox[ PanelBox[ TagBox[ FractionBox["1000", RowBox[{ SqrtBox[ RowBox[{"1", "+", FractionBox[ RowBox[{"\[LeftSkeleton]", "23", "\[RightSkeleton]"}], SuperscriptBox["f", RowBox[{"\[LeftSkeleton]", "19", "\[RightSkeleton]"}]]]}]], " ", SqrtBox[ RowBox[{"1", "+", RowBox[{ RowBox[{"\[LeftSkeleton]", "24", "\[RightSkeleton]"}], " ", SuperscriptBox["f", RowBox[{"\[LeftSkeleton]", "18", "\[RightSkeleton]"}]]}]}]]}]], Short], FrameMargins->5], Editable -> False], "]"}], InterpretTemplate[ FittedModel[{ "Nonlinear", {$CellContext`\[CapitalOmega]1 -> 1007.1548696329618`, $CellContext`\[CapitalOmega]2 -> 47918.20458399915, $CellContext`n1 -> 5.049654648953877, $CellContext`n2 -> 4.904423558385396}, {{$CellContext`f}, 1000 (1 + ($CellContext`f/$CellContext`\[CapitalOmega]1)^((-2) \ $CellContext`n1))^ Rational[-1, 2] ( 1 + ($CellContext`f/$CellContext`\[CapitalOmega]2)^( 2 $CellContext`n2))^Rational[-1, 2]}}, CompressedData[" 1:eJxTTMoPSmViYGBgBOIyIP4PBhUOxwtljhfGFDo8eCqyZ05TpkN9xBIem7tx DhD5CKh8oEPfYwsgcnOQj5lxRcDXESpv4SD57sqJwOdGDuZGkZcC87UdpOT8 p584rwI1Rw6qTgKqTsjhj6H7y29TeR1KA069jP3N5vCQ8cfC/lgmh9Mpuf0v zf/aX9z3esuc09/tdzxrdz114LM9Y7houFbwB/vnJ+YfM/382v68btyX2ITn 9tUi69wfVj2xv203df2bvof2EPvu2Zc6funP+nPLvshPm+PpwXP2EHedtnd6 MOMh1/tTcNrLfNYR8w2E+QtCZlTYFxGvDkbDxNHpX81/OeVMEfrR9aG7E5e9 6OqJdSc6H10cndZY33Zrjx5m+KGLw/iw8EYPF3R7Os+ZtfeanbH/I3PBXf4A Eg1OH2ftn4QkPd2nec5+sn3ezg3rzttvlV5ft7n2gr284OT4Fa8u2qd+/FIn 2HnZPj8xyNlE9Zq9wpEYmzffbtpHrpC1iN97354BBDoeQ+1/ZQ9Jxx/tb4uf e7bV8js0vfyzh6RXFmj65XZIUWF7PUVaCJ5uQblierACNP2rwdM5LN2vUvwm 8XeNmUO7ZM3KzM3WDhB7neH5BeIfXwd5JvNpjitD4PkKls8g6pPhNCwfwvIl LJ8CAAcL4L4= "], {{480., 25.}, {500., 30.}, {520., 35.}, {540., 45.}, {560., 50.}, { 580., 60.}, {600., 75.}, {620., 85.}, {640., 100.}, {660., 114.99999999999999`}, {680., 135.}, {700., 155.}, {720., 180.}, {740., 200.}, {760., 229.99999999999997`}, {780., 260.}, {800., 295.}, {820., 330.}, {840., 370.}, {860., 410.00000000000006`}, {880., 449.99999999999994`}, {900., 495.}, {920., 535.}, {940., 585.0000000000001}, {960., 625.}, {980., 675.}, {1000., 720.}, {1020., 770.}, {1220., 1020.}, {1420., 1080.}, {1620., 1090.}, {1820., 1090.}, { 2020., 1095.}, {2220., 1090.}, {2420., 1095.}, {2620., 1090.}, {2820., 1095.}, {3020., 1100.}, {3220., 1090.}, {3420., 1095.}, {3620., 1090.}, { 3820., 1095.}, {4020., 1100.}, {4220., 1100.}, {4420., 1095.}, {4620., 1095.}, {4820., 1095.}, {5020., 1105.}, {5220., 1090.}, {5420., 1100.}, { 5620., 1100.}, {5820., 1090.}, {6020., 1090.}, {6220., 1090.}, {6420., 1095.}, {6620., 1090.}, {6820., 1100.}, {7020., 1090.}, {7220., 1100.}, { 7420., 1090.}, {7620., 1095.}, {7820., 1090.}, {8020., 1095.}, {8220., 1090.}, {8420., 1095.}, {8620., 1095.}, {8820., 1090.}, {9020., 1090.}, { 9220., 1090.}, {9420., 1085.}, {9620., 1090.}, {9820., 1090.}, { 10020, 1085.}, {12020, 1090.}, {14020, 1085.}, {16020, 1080.}, { 18020, 1095.}, {20020, 1100.}, {22020, 1095.}, {24020, 1090.}, { 26020, 1065.}, {28020, 1055.}, {30020, 1055.}, {32020, 1040.}, { 34020, 1030.}, {36020, 1005.0000000000001`}, { 38020, 985.0000000000001}, {40020, 945.0000000000001}, {42020, 905.}, { 44020, 850.0000000000001}, {46020, 785.}, {48020, 710.}, {50020, 640.}, { 52020, 550.}, {54020, 480.}, {56020, 415.00000000000006`}, { 58020, 360.}, {60020, 310.}, {62020, 270.}, {64020, 235.}, { 66020, 200.}, {68020, 175.00000000000003`}, {70020, 150.}, { 72020, 135.}, {74020, 114.99999999999999`}, { 76020, 105.00000000000001`}, {78020, 95.}, {80020, 80.}, {82020, 75.}, { 84020, 65.}, {86020, 54.99999999999999}, {88020, 50.}, {90020, 45.}, { 92020, 40.}, {94020, 40.}, {96020, 35.}, {98020, 30.}, {100020, 25.}}, Function[Null, Internal`LocalizedBlock[{$CellContext`f, $CellContext`n1, \ $CellContext`n2, $CellContext`\[CapitalOmega]1, \ $CellContext`\[CapitalOmega]2}, #], {HoldAll}], VarianceEstimatorFunction -> (1& )]& ], Editable->False, SelectWithContents->True, Selectable->True]], "Output", CellChangeTimes->{{3.581157340240637*^9, 3.581157346952739*^9}, 3.581157445757362*^9, {3.581157508296727*^9, 3.581157536207037*^9}, 3.581157579384718*^9, 3.581157620765132*^9, {3.581157694150206*^9, 3.581157709954362*^9}, 3.581158985933249*^9, 3.582357378855455*^9, { 3.5823588518225317`*^9, 3.5823588799165716`*^9}, 3.582358915892622*^9, 3.5823589602706847`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fml", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.58115861510949*^9, 3.5811586181668787`*^9}}], Cell[BoxData[ StyleBox[ TagBox[GridBox[{ {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\ \[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"}, {"\[CapitalOmega]1", "1007.1548696329618`", "0.1801569161941469`", "5590.431335689588`", "8.0771108924609501161682077983655949`15.954589770191005*^-312"}, {"\[CapitalOmega]2", "47918.20458399915`", "9.706863784258946`", "4936.527971238795`", "1.1639500000358038`*^-305"}, {"n1", "5.049654648953877`", "0.002096073635977748`", "2409.10174255323`", "3.8383411040624054`*^-270"}, {"n2", "4.904423558385396`", "0.0020214502238939946`", "2426.190613260723`", "1.7147303124703796`*^-270"} }, 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.5811586186285057`*^9, 3.5811589872158127`*^9, 3.582357378875455*^9, { 3.582358851852532*^9, 3.5823588799365716`*^9}, 3.582358915922622*^9, 3.5823589604106846`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"LogLogPlot", "[", RowBox[{ RowBox[{"fml", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "10", ",", "1000000"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"100", ",", "1000000"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1200"}], "}"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.58115771563347*^9, 3.581157753911137*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJw92nc8Vm/YAPCQUFHIeubxnPMYDRRZiYuyhfzsEbKipChSRjJDFKKUkaiU 9kCUUSJZIWlQpFIqkpSG3vt+3vfz9kd9vp9O5x7XdY/rSH5ziJ0f/5w5c9ah 3/CfbvpFBxaoScOc//v15Xfc2ZtW0lA31rNpWKbRQLqk4+GsqQxEe+xwypGe NjhQJXzisr4szGhLjSU9mAvOn2X31FNykO2w0zekXxQoTWMLMxYNenq1Wto7 JKHB4M6HMXkahL0odO14LQmbzFcfzOTSICjxSuyjSUk45s5t6VtOg4Mq4vNq pJfAgnhBE781NPBQj/HfumkJTHY2GR5wpsETG/WGiU9LoC7QRKc2iwZ/96Tr gaA0uIfd7ffMpQF/g5RarLQ0/IzS3COQT4MtH+z1bihKw6rDCpUWp2iwqU/e 9Z+5NJy5NW/1s8s02Gl3wGZxhjSkCzSrTbfRQE7n7GirpAy4FpgqqQnRIZrK Dz0uIQumMjmn5RfQga/NtUCWlAWNI69ZkovoIOtWZ7BPXRZEEyOlpqXpYBag KjD6nyzUb7vAX6tAhwxLnXGLbFng6i0aMDWhw+MLVuOHF8iBxC03Zx0LOpxc Ihk3LicHs6rnepZa00GzYWKUqyQH/aRhq6gjel+G4SGZ9XKQuiCsssePDuWT F6z/RMrBxPO+I56JdOB/ouZgPSAHA/ak6MaDdJDT1bEdGZWD1o6QFKNDdNjU /OSD+ZQcnG4UjuUepUONPvXxwHwaOJ7X3TZWSoe0Ab0bZzRosI5Kfv/yHB26 b6T8ua5PA7XCns0dFXSgsSpvZprRQCRrm8vVG3SwvXE175obDWojC00i7tOh qf3FzLlYGpR/+9iwpYUO92vSfJen0CA3WGutaxsdeiLzt8cepkGId5f62l46 DHb9PX20mAYcc355gRE6VEkErz50lwZi96xPTr2nw4cQl795TTT4rXdC5t0Y HdZYXancjeLSq6Yh9vAbHYTMBNQrntEgWdb/d4YAA2paw1qlJmmgYbZdarsQ AxQGl1hc+kGD4Yhw1Q0LGKAkmCxO/KWB/tMknwWSDNjikSeZheL6/ejZR8kc BlyR1brcSKNDSdPlt/4KDKh7oE5os9E4v1f+M17KgLOJaibpJB0q7FvU565i wHa7mZieZXTwkfxwYr8hA14dv2P8VZcOi9d9velpzIA5ZUa/Q/TpcDd0plPf nAGZc4t+dRuieewWmfvXlgGc2ycOm5nRoYVPgvXSngHf3dn73S3pEL6Spl3j zICHxz8FOaE8eHx46bZILwb4PNfqnGtPh5j6VUnOvgzIKig/UoXyYvmEbrHW FgYIOi8ecnChQ4qNZe/3EAbMrFpVaLOJDgZi2/RCY1F/uxyNbAPo8GntLseN 8Qxw3CSp4h1Ih/zgqB1qyQwIyje28dpKh+m29NIvGQwYmFlvuyyEDqV/cu62 ZzHAuPWR1s8ddLBbXtBfkcsAnTRN35uhdLiYdnHh1kIGPNqYsJc/nA6uNTcV LEpQPAz87bMj6CA8dgeUzzDgiYfaf9KRdPC16Nj1/iIDnqroxk7towNdZPyl zx00vq2XVJhxaD60f0wbNTBgqxhz2OIAmo8t/xZzmhhwp8FlIjge5WXzIuPX bSg+thsSjqK83/9DxrOuiwETtrKV+Ul0UFEkIgt7UbwGvxbmJtPhYJLaRfeX DLCPLmgLQ+tC85Z285rXDDg5OXjBIZUOI29hiDbCgI8timGqaXQA441Sz8YY sPvzwZ5H6XT4IRAa7fAbPR9pKXM5kw6s9HKZyVkGjKpZBVgdpoPJkqGrGfxM WMV55zOCnEPZvmsWYULOX8Ulgll0qK1I3u8ryoR0WQlmBvIbjToanzgTtFKX RUtk02GVsYqNriwTpAVdX4nmoPlr9/vQR2fCruGC5YnIcQ4F8WFsJghGxQb8 RO7yW1hVocCEtrQ+1R60jrcnfSTYq5lg362e7ZFHh1wxTk2NNhNAdGCgEvlO rouDsx4TsjY0iC06RoeFZ1sOHlnHhMgZn0M3kNVV51AqpkzQ5pcQEziO2q/U uttqwYRPXu+fWyOXN5+ZFLBjQuMJgVuDyF02g+nFDkxITRye4OTT4edTKcW1 LkyIqKYe+yKbjCa4hXsx4YuDUs8Q8oiwz/3R7UzgxF3/2ngCtX8kf1NiKBMc 03V3TiOry3X/lA9nwli/nZLSSTocUDZc4RbNBDlb/X1JyOVX9zT/2M+E78ce alxH7tK54p2TwIStg5u8B5HZFuzc9jQm+FXUmasVoPa7HdWCMplw/uouthPy dteM1nnZaDyaYiejkGuD/s4a5DMh7KdE9T1k17QXAdfOMeG0R+qtdYWofUlJ fpsKJrSyDv7yQi4/YXFy7DITUuZ/1YlG/nmhuouqZELwzqqOa8iExteghttM kI1XX92GbFqrJLjpLhPK5OyrR5Bz2/J08pqY0LDrpI5kEdoP7Dt71B8y4VJ/ 2Xpl5Lcv523vamOCfDojTR9Z4/PuEpFe9HyL61t/5Mei9guihplwv+dc7GVk s3lecf7vmLDYyzWiAbl+dusP249MWHpuc0M38qXx+DfcSSbkn3P3/4asMJrp sniaCdsnz7TzF9Oh4PWJzl8zTPA//bdIHDn98fWaTj4WqOctOLkCWaC1buVt QRb4Cbl36SLvbXx0tlSEBevI8QRT5MDrb7IjxVlQrjIZ54lsclRyGynPgnn3 15qmIt85xB4W5bIg7WXnr2xkjaRlzj+VWHDkdoRtATIZsW59uxoL/tUvmbiE nB9ic7tSgwWGT2qgEllii5taiTYLcoReQR3yHJcwRgSwwM3gjFsHcsTG2Czv 9Sz4YCcc9QT5i3masJUZC2RbfJ1eIg/onp4ibFkwtGyz+Qfk24yetlZP9H6R CI85p+iwUuqV0U0fFvyt3nFcEPmc6FhVUQALztReL5mPnDfLX7YrhAV5ty5R S5DFfojRPcNY4JQpeEoWOWmcdsQ8ggVfn498ZSDver0qmhXLguaN9TJc5LF+ /W/C8SxQZj8dV0Le/Ngi8FsSC7S6KkqWI29s3OzQksECG9+lherIKqVZK0IL WbBtpmwxIJedLDztXsKCgRMb3xghM46elzM9w4I7RsX5xsgLkhoFGZdYYDoL NRbIB2I69s27xoJLR5MVNiD/Cn/+deImC6anXPfaII8GTA403WHBMaflr/5D 9vSa/e9KAwtqnZ9+dUDuc57fmt/EAsv6wAkn5CZzzq2QdhZ89jG74YZcsswu Q26ABQsUI4M2I2dHHUpoeM2CZQvr+3yQE9pb9gaOoPxRktf0Q/YPMQioHmNB qwdfVwCyU/1eD+9xFJ9vHgsCkc3Eb/0n8o0F5nMOrwlCXnp9Obj8YsHkJcGo bcj0uVs0+WZZ0CQpcigYeaHD6eXlfGzov+Wdsx35y7Sc3IwwG/6Jbk/egXxV V2jymAwbHjW3Cu3C/U0zGgU6G0KFAnqxs15GD46y2CAYcf/4bhyvmKlWbQU2 5EHzoghkv07VhtfKbPAR/VCP7UhsrUxZwQZxuaate5C1G4dO92uwId7+0OVI ZGVJZv5+bTboG70124tM83U+rKTHhuNinS+x/wh2Ru1Zx4b3AfTv+5DrzWsd ZO1Q++MZn6Jxf/N/WNY7sGFu6V7PGNzfsVVGW1zYEBRn34GdcKhcpcqLDfN/ +hbHIu8eHKG8fNkQs3dIYD+eX1WCLryFDYsX9ftgmz7OFXIOYUOR6DW5ONxf Tvfff6FsuPz3cQi2Upjo1NlwNigSbxux50slvP4RzYab+XZeB5A7nHdW56Wz Ib1ryb545LryissGh9H7FxbXYF/59b7sfTYbOKzhGeysk5uytE6g8X5+GZKA HP/5eMqrQja8Gq89i71L/0lMcgkbkj1LBrAdX1tufVrOBpMz99cl4v6uTPaO vcgGzShyF7b2gUYnxauo/ZZHJdg0Smd9RBUbDjlq/sYeCFBgyjSzYfWhuflJ yBnbmdcqWtkwHnzkDjbsXmJq1MEGKa3hV9ilB/h3Bj9hQ/X830Qybv/gjKDA MzaUjj41wBY+PJF/7CWaT/cSD+xtBYP3771hQ1MXNxebVfrExeU9G668nbiC 3XW+7cuXj2ywqmtvxdaoui1Lm2TDw8yB39gxgZaa2nMImLm/zD4F+emnB3ME +AkYN/LYgq22w+hRuwABxhov9mEPh+t4+QgR4LvsSTH2ml83lqqIEFAm6HEN Oyda7fvP+QT8+2d2D9skQTE1Q4yA022b32AXCZ22d1lMgNRI/iT2z1QWm5Ig QLvcku8g8vkjUjeqpQg48UqZiS1WJDA4wiDgQoGdDXYAJ/bcZRZ6/69WV+z6 sl+hewkC/NwG/LBDK74KLabQ+1YO7sV+pBrc/ZxLwPtNPQnY1PXRk2WKBPzH vyMDu6/61co1ywhY9PJCMbbqWrc/gisIaH9vW46dUt/3oEuFAAHp8qvYus3t bv6r0PtCohuwC3trEo/oECCu9nsA+4eTlq37GgJmpWNHsG1fXKMpriXg0KKH H7H5h8sv1wIBS9Qqp7Hd/Lh7k40IUFP2/IN9Y7R4vd16AsKe9vKl4vUynvfs vSkBR0FtIXZdqGTpNXMC7lnKiWPLTmdsj7YkoO5inxR2659EAUkbAuIje1nY KvN3rdB3JODAdgFV7MtNz96qOhMQdElQHVstzqBQ3pWAGxuHNLFX/Zy/SHAT AXMTlupjX7++o3nakwDvx/mG2BohfbGj3gT0//uwHnv1u1MTj/wIkJlQtsS+ dUqo/E4AAY4LmdbYmh7B3pcDCdhX980WW7tXuzsrGPVXwdYRW6+x87rLbgIa w157Yt+JXr3NMoKAD2ILN2Pr65yg1kai8TRyfLHhiv9RIpqAV4eXbMFu2Nq2 QSIWWfFrILaR4qp5c+MI8Oyq2Yq9vvBv+PsEArT4WSHYTS4+qs+SCLj9+NYO bBOph+9bU1B8DCAU2yw9x/lSOgHLDBV3Y1vuXaa7O4eA2lr7vdhtq49M+uei +KbE7cO2+jp93vkYAUMCp6Owrbc00vVOEhB6sykGu5NU6l1RSKDzujkW2/bV oXR2MQEqIvX7se0cXf7ylxIw51fOAewe8bqbU2UEaFqFxmPbt1Pb350lIMbC NAHbcf3E4MMLKN8OPkvEdl2VXH/4OsonxtkUbPdyu5W7Kgm4U/7uIPYmglXi VEOARaFYGrZX3geJNXUEVFQS6djeYjfjWfcIGMliHcLenLh/iq+ZgPBLIhnY vn8s/d62ElC87Q3PWz4Om1R0E/CuP+AwtufBfqUvz9B8big+wuufUsd8tSEC hMUuZ2FvaL73aecoARfPHc/mxcO/uuP6OAFHvvjm8PKttDRLa5aAiMKLR7GJ 4UzHmoXy0KFfmov9x8N/sFFZHsTPvs/DfvpMz7/VRB6KFE8ew07vU1OvTJSH WpPVx3nx76HmlN6XB/1Vq3gui41yT34jD2KJ/3jPCy/vrQri54B5wjGet/Yv k7KW58Cwcj/v/R0J8TtXAgeeLI/ktf+udhtx3JoDX7tjeP2bnXLonOPBgebz Grz+zz/SekbDlwOv5gfxxie9wiBmy1YO3PeP442f8/C6w8lQDtRZh/PmR8VP aUVXJAfGzq/jzZ/G9WHZoGgOLK4+nomty1cwd24cB6xK/ne+wcZpoiCBA+Up BM8mBeIvtVI4YBtjw4uX1dij5sdpHAhJCOHF004n6frWTA78PRjLi/emJ79S i3I54PopiJcPvuTNcJ18NN66dbx8CdoZsrmngAPa0ULJ2MHHrJyLizjA+eOV hL2jTtk6+BQHuktu8PItXHRER6iMA8XZ5rx8jNRoUO09wwH5kFRevka5FXJP nePAwqP3efl8oNxZfE0FB962kXHYmcbto9uvc8DyUVI09u3SnLbNNznwT2c3 b/2MCLhfcazkgMgaF9760m38GKFfwwEtlzmR2H7y19xW3eGgc6ExAvvw/kgD hToOOLbsCefFS19YSOweB368vxuGLV7Y+ZGviQPrRjbw1rfe39yO7w84kNrZ wVv/WTXc3IFWDjSZlQbz9hvtddyL3Wh8wYf8sQPz5ouc6uWA7IUTvP0nZ/rx p5w+DhiM5/L2p483vG5EPefAt6KNm7Clligd2/GSA/cSFrnz4hc2vs93kANr vCpdsHNXxqyzGuZAV26DPW//OmysCCMcmFrKscP+NL5wgcY7DqxQDLTh5fOl E930jxzwCDhjjv1labX32FcOhJnX62HLpe43fvWNA6xCTR3e+vpgqtzzHc1/ cOpq7PyzfRO3Zzjgoty0grf/zSvsvfSbA9MbypWxJ/z8qkr+cmCjqx+Xl1/U VGwqHwlOs5sY2Dvja3xiBEjQcD0ug31y+IBpqCAJwtwyCezJYvFFriIknH2p LIxdwFQtVBYn4VTl1Ql8nrVETccxJUlwHTTknX+TL+74iUuRILY6+w22Wb7V ihlZEmybQ55gh81Iin+mkSA0+b2dd746v5h6zSBBW1n9AfaUdFBtC0HCjgPN N7HZ4SuLazkkWDXKXsS2ePIz/gpFwiozqVLs4uxky2NKJMTTBY5gWy0uex6g RsLjbTb+vPOWnhCjuwr1n/B1w2Yo+nBENUioiZayxR5bKx90TYuE1CkDbWw7 8zliiTokmBdcXYZ92/7VVac1JPybf5WFnbq1YOaPPgkHeswEeOMNjyroBBIa i/qn8H3H9YCbYYkRCVrib99iKx+XO2hqQoKRqPcD7JYHR2WzNpDg98lpP+/+ 1b2r1teGBN8ICMY+NvCfl9ZGEhTs9rlgB0yJn3tpT4KFWKcqdse/CcvLjiT8 /vRcDltzQdd4nDMJM+JsAex5nAwtRXcSvFPVe/D9b/uK4BczHiR0v5+qxu7T topt80TP53cVYZ+xmd+804eEexK3tmAbRyc51gaRUP/O8Au+r1ak+P3K2EbC lh2v27CX5Kwv9N5OQrmlzXnskfP87+aFkqAYFOqNbXVr6OCzMBKkvixag32j oX5FxW4SRtbaSmIn9Mfs3hhJguGK5Dp8f/70xkOO2kfC6VKfbGz7cb0701Ek BGZe8sMm5/2ee3I/CReUHQWxG9Ujct4lo3wbX6OK7+9LDRy1qw+SENU8OMW7 /1usfpmWRoLLhe1V2N7e38iVmSRcDhXRwW7Z1t0scIQEvSOfvuP6Qm3P1a19 WSSs4wZfwZ6TGXJ9Xy4JfcQ4E3tLvrWT9TESTrY3duH6pKtsxW8inwSRbf37 sYtqx4weFJDw7rFvP6539D8GdC8uI+ERIbYZ10dJXaXGz8+QkGkqNovrp45b Q1Wnz5HwYTorF9sz3q1Is4IEwasVtbj+Ohd4TGLOJRLcPedYYE/YPEl8eJmE oYcOPVHI+xk229yvk9C5OvwZrt9a+NNfcW+i+Vg/7YAt/qHFbvwWel5iuB3X eyU3jXQO3CbB09CZVx/es9acd66BhIt3xtRxPblwdVjkznskPH/2Lykczz/9 yifdJhLWJIj14np05L1yT3sLCc2/jdxwvbq8w98kr5UEgYc/csKQd984Xe3V RkITf1NzKM6/OGbxt04SaGFXZHYiWwe4St55TMINmQ0auB7O3ZCXlNRDguTg rFkIsiJNPFjuKQlB7EQXXE+bXZ+razBIwur1TWK4Hj983PCi8GsSei7de4Pr 9f7YGKJ7iIQjgi6X/PH+bfVznt9btB+odnN8ka+tWr1X5T3K78uTj/D3gF+y oZ9/jKJ80ycDvfH6fTvWk/oJ7X+eQjGbkLsfKZnafyHhzL/nU+7ItGt+t5kT JKQkznrg7wsXYl4VX/lGwgtdc0Fn5DaZnuC+XyTc0Y0/bovXw+yioaI/JLzc kZxjjew+YmUfOIvWb1F6tBXy5ysPdP/wUbCRKyljhtdrnsClJgEKfGaNHuDv JTHRIJ8pSIFrcJfXOmQxi9tCHBEKFhxnOegjO6r92Ds2nwLDbe4X1+B8k9b4 cmMhBYKZXz9r4/x9c7HXdDEFDfc7Kfy9ZmPUqVPBMhQwqnbbKuD1kt/Cv0mO goKDeokc5FXV4z7WdAoOOZkfZSFLTK9VUGVTsOFwvqE0Ps+X+CWz5Sm41DH+ XBzvb6vSRxeRFEyXXzAXxfMV8vz8hAIFdT+eFgvg8yuDb+GQEgX3Nw8lzhaj +a9QCn68lIILyw7ozCBnfwhXvaZCgY0dn+AXZHsfyRthmhTEkNRUL/L9OF0p X20KDkSmSuHvZxrF3uH2uhRIXNs39QBZauCy9mp9ClJfDL7G39+Sfvcd5wIF dzMFPlxGnpab/SVlREF0n3TpWeQ+R6s708YUlHRaKebi73+7w1jvTSm4F2jx IR35VnZ+7FNzND8mHzfGI+d1jRpWbaBgk0iESAiys0Xig0gHCowMtS4YIrds qVAMcqJg+ehBvdXI2sk9Ka4uaP4VahyUkOXuy1uu8aBA9VaEqChy6rBZxTJP CobW7yqZLUL5N2eHKMObgudFKhXjyM/X3u3840tBYlmlcBeyhftbtc/+FNy8 usu2Dvn23oVZA1somJfWMn0R+USlq/3dbRS4fawyOYjsvvJHf+wuCp7Vaa3R Qm6zYenuCEfvHzpRTyDrbTc+4bUH5Y+oUbAIMvNCtodhFAUXOw/S+wvpkPHw 9t2VMRRM7uRfeBd59v0Qm7OfApE4P77TyIOU2jB/AsqXs397A5Gt1zmt+5ZI QX+xa5El8l3vmNI3yRTsNh4zWY5cVNjmfz+NgpyoTr6PBaj+kA0cS8ymoOxD /EsHZNE3Zxc6HKWAG9W8EH//vn3x3QoqjwKr4YKPwshL1vnuaMxHzw/ejL11 Et2XRE8fOXKSAuEN1qw05O39Q9e8CilI20fobEJuCfb8PnuKgnBF34v/TqD9 R7tQuuM0is/Hcx/bkTkCA1oFZRS0ez7Ymo8cdcx175pyCh4s7f69AnnlPYd/ EVcocEr2SVybj8Z7KIcwvYby/cI/6T/HUb3h3GMofYOCHyNXNlchv/tsm3Cj kgK5m4v7lZGzqzLL4qtRvL59ezp4DN3/4jse2NWg/rMs9Y8g58taiXy9S0Fc 94/hz3l0MH2TurS+noJM8btf85CnLj60zGyk4DOnQ8ggD8+vacaKB2j+Cz4N xefSgX+7kWRQOwWvVSZN3uagel47TkOnk4L/aHYZu5DdBeodhB9TsGKz4vS/ bJTPx9YeO9NLwbe2nFPzkX18oqp391GgF1lTdDCLDotVap6v76cgf9pPfS5y 0D1t5psXFBTzLUsYO0wHmYwI/WsDFLz3bZ10Qr7vfMsz7hUFYZ3vXerwz5O+ qJew31BQ+ogREJOB6ldZVUX3j+jf24SkVqWh8+hNsNmyTygeRGL3j1RU/1yq CPz1mQKPXsETasgp65ZWHPtKgemTP08OpdBhtVhge8A3CrI+fem/mkyH4f6z XzS/I1uqR3ck4fzlrnzykwKlXd+rJhLo8EHb1670F8r3Be96vsej80PgdFjY HwpkqH+5kwfQ+XiMuCU+hwtGvxJFuvfTofQefY21EBcKZ7veElGofnmw3mK9 CBf+yXXW1+1F8/0w2EV3ARdm5FNk7CLp8LOjLkJhERcEDNtybMLp0P54NIkh zoUxs+fD1bvQ+dkrnishyYV7xYW/pcLQ/ea5z41ZaS6Exv66cyqEDvID6fem ZLkQFDG9pysY7UevbnZ/pHHhMt8O+fGt6H76VuhrH4sLqeULDH4FoPhPXFhx WYELlju11HQ86fDwW69emRIX9jsYful3R/fh6b+WJ5ZyoWftITdfV3Qe/rEJ Slbhwn8ua76tcUDr+d+eyGg1LtgGrx9PskP7M19JStgq1H9jYf0aG3R/F5o6 46nJBQmzjE0D5uh+P595y0Eb/X3YlYmHJmg/FDVpstTlgoPwIceCdWj+JI69 0dLnwtCPkfnTeqi+YOkRi024sPj5wRZ3FbS/yfupzjPjwv2dK6uCl6L6hMzQ /2POBbnoYW0vBXRfVX7tPrqBC4rnTsB7JrrPaSQcr3fggualvntBC9B61rp4 7pYTGv9S6+O756H46fZVVrhwwTw/pdKdD60fUOo75sGFuMDFxnemaZBj2Sax 048LyrvJyFuvaBBo/V0+IAD1522QR9YzGuhvZK30CORCRl7PA+MeGow67rAx D+bCkV4x8ZUPaKC3eUm6/G4u6CbTZxecp4G439oTMhFcKA0z2JJbQoN3Af7n RSNRfA3cK6fyaXA4uKplJooLvjuaLixLo8GbPe6C3QlcmEhsld0XSIMpxYLe M0lc2H1fa4eGNw3mPR04vS8FjV/OvKzJmQZLV3sacdO5IBy/xzHElAahX71j 92RzIcUrcmaQQ4M5QQEzrBIuPKr1l1rbLQcScudavp3mwrfV/12PaJYDqmU0 r6WMC+5HH1Sn1cqBqUKQZmg5F8SsalQNz8hBxvC2sKYrXFB4XUaMRcgB0y30 89Y6LnxUZmvlLJEDlfnXa6EBzef5lfJZQnIA1d/SpO6hePi+k9jxSxZ8ZXYv rXvAhag/4cyOV7JQ0RMRINHBhZNO5tny5bKgaxU9VPWSC1p1mx8XasqC09qU J4K/UL5P6+RVgAxYNCvsevwb5dNhsWy+lTKgt7FJouAvas+6LdVUXgYIP35b DT4FaPLQnneOTwY+pke1bhZWAA/riQ9NDdIQ9XJHXZ20AnQe3jV630AaSva5 lEeqK0CQyZLToxpS8Ll6afTnbQrQYzLtabtIEmLArejwBwV4N5pGBRUuhPV9 4c1vPBRhz1tn98ybAiAYTgRNvlCE6ZLX1yLlpgxG22HkhpMStMw9a9xLv2YQ krfVXcZT6f//f9D/AFTOQmw= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{None, None}, AxesOrigin->{4.605170185988092, 0.}, CoordinatesToolOptions:>{"DisplayFunction" -> ({ Exp[ Part[#, 1]], Exp[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Exp[ Part[#, 1]], Exp[ Part[#, 2]]}& )}, FrameTicks->{{{{0., FormBox["1", TraditionalForm]}, {1.6094379124341003`, FormBox["5", TraditionalForm]}, {2.302585092994046, FormBox["10", TraditionalForm]}, {3.912023005428146, FormBox["50", TraditionalForm]}, {4.605170185988092, FormBox["100", TraditionalForm]}, {6.214608098422191, FormBox["500", TraditionalForm]}, {6.907755278982137, FormBox["1000", TraditionalForm]}, {8.517193191416238, FormBox["5000", TraditionalForm]}, {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.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]}}, {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]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, 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]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {7.600902459542082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.006367567650246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.294049640102028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, {{0., FormBox["\"\"", TraditionalForm]}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm]}, {2.302585092994046, FormBox["\"\"", TraditionalForm]}, {3.912023005428146, FormBox["\"\"", TraditionalForm]}, {4.605170185988092, FormBox["\"\"", TraditionalForm]}, {6.214608098422191, FormBox["\"\"", TraditionalForm]}, {6.907755278982137, FormBox["\"\"", TraditionalForm]}, {8.517193191416238, FormBox["\"\"", TraditionalForm]}, {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.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]}}, {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]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, 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]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {7.600902459542082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.006367567650246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.294049640102028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}, {{{4.605170185988092, FormBox["100", TraditionalForm]}, {6.907755278982137, FormBox["1000", TraditionalForm]}, {9.210340371976184, FormBox[ TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {11.512925464970229`, FormBox[ TemplateBox[{"10", "5"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {13.815510557964274`, FormBox[ TemplateBox[{"10", "6"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {7.600902459542082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.006367567650246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.294049640102028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.517193191416238, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.699514748210191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.85366542803745, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.987196820661973, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {9.104979856318357, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {9.903487552536127, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {10.308952660644293`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {10.596634733096073`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {10.819778284410283`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {11.002099841204238`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {11.156250521031495`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {11.289781913656018`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {11.407564949312402`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {12.206072645530174`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {12.611537753638338`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {12.89921982609012, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {13.122363377404328`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {13.304684934198283`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {13.458835614025542`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {13.592367006650065`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {13.710150042306449`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, {{4.605170185988092, FormBox["\"\"", TraditionalForm]}, {6.907755278982137, FormBox["\"\"", TraditionalForm]}, {9.210340371976184, FormBox["\"\"", TraditionalForm]}, {11.512925464970229`, FormBox["\"\"", TraditionalForm]}, {13.815510557964274`, FormBox["\"\"", TraditionalForm]}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {7.600902459542082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.006367567650246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.294049640102028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.517193191416238, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.699514748210191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.85366542803745, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.987196820661973, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {9.104979856318357, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {9.903487552536127, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {10.308952660644293`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {10.596634733096073`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {10.819778284410283`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {11.002099841204238`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {11.156250521031495`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {11.289781913656018`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {11.407564949312402`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {12.206072645530174`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {12.611537753638338`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {12.89921982609012, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {13.122363377404328`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {13.304684934198283`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {13.458835614025542`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {13.592367006650065`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {13.710150042306449`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}}, GridLines->{None, None}, Method->{}, PlotRange->{{4.605170185988092, 13.815510557964274`}, {0., 7.090076835776092}}, PlotRangeClipping->True, PlotRangePadding->{{None, None}, {None, None}}, Ticks->{{{4.605170185988092, FormBox["100", TraditionalForm]}, {6.907755278982137, FormBox["1000", TraditionalForm]}, {9.210340371976184, FormBox[ TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {11.512925464970229`, FormBox[ TemplateBox[{"10", "5"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {13.815510557964274`, FormBox[ TemplateBox[{"10", "6"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {7.600902459542082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.006367567650246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.294049640102028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.517193191416238, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.699514748210191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.85366542803745, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.987196820661973, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {9.104979856318357, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {9.903487552536127, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {10.308952660644293`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {10.596634733096073`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {10.819778284410283`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {11.002099841204238`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {11.156250521031495`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {11.289781913656018`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {11.407564949312402`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {12.206072645530174`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {12.611537753638338`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {12.89921982609012, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {13.122363377404328`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {13.304684934198283`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {13.458835614025542`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {13.592367006650065`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {13.710150042306449`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, {{0., FormBox["1", TraditionalForm]}, {1.6094379124341003`, FormBox["5", TraditionalForm]}, {2.302585092994046, FormBox["10", TraditionalForm]}, {3.912023005428146, FormBox["50", TraditionalForm]}, {4.605170185988092, FormBox["100", TraditionalForm]}, {6.214608098422191, FormBox["500", TraditionalForm]}, {6.907755278982137, FormBox["1000", TraditionalForm]}, {8.517193191416238, FormBox["5000", TraditionalForm]}, {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.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]}}, {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]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, 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]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {7.600902459542082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.006367567650246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.294049640102028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}]], "Output", CellChangeTimes->{{3.581157559885914*^9, 3.581157580968322*^9}, 3.581157622040576*^9, {3.581157695358139*^9, 3.581157754465808*^9}, 3.5811589903155813`*^9, 3.582357380066457*^9, {3.5823588524025326`*^9, 3.582358880447572*^9}, 3.582358916463623*^9, 3.5823589608906856`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"ListLogLogPlot", "[", "g", "]"}], ",", RowBox[{"LogLogPlot", "[", RowBox[{ RowBox[{"fml", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "300", ",", "150000"}], "}"}]}], "]"}], ",", RowBox[{"ImageSize", "\[Rule]", "Full"}]}], "]"}]], "Input", CellChangeTimes->{{3.581157511037211*^9, 3.5811575518055763`*^9}, { 3.581157770543535*^9, 3.581157771101653*^9}, {3.581157940330776*^9, 3.581157961225195*^9}, {3.5811590266840153`*^9, 3.581159033923134*^9}}], Cell[BoxData[ GraphicsBox[{{{{}, {{}, {RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[CompressedData[" 1:eJxF1XlUU8ceB3CWShQKhC0kuQQIIZfNqsFSsIr+wI1WJRZMFRREZHlUeFYW IaCyyaKoCLKUAE80yiJ4lFQKLoiiIFHLYixrBMUFNxo1IJvA851nZ/7Iuedz v7+ZSe7czI/tv9sjUE1FRaXm8+d/V5qg5mr1Ln34/1UNpMJVywJIA2Tf9DWv nG9jJ93Z7DO53hDZPYIal9eE7VmUQ8TyjJB3HxUyDE5gU25yiua/xX5f6+HJ WU5DLmrj/qBxGLs718+7qh37ho5jfaO+MXIqr9a0ayP2kSuKXt8M7O3rrsG1 RuyspxFxrmPGYOa2YQnt3BxgS9+nOdnQkasebhH2bcG+ee/0Mr9U+pdxFFg9 V/3TSDUdFh8dHnO5MQ/86y4uaeyjQ2Gn1kSpgxYsnOX9/kadAU1KXU/vPV+D 3qWrjCxbBpyRivdqRepAL21ORSufAReIqtoH63Sh+12JuD6CARn2gfJCPyrQ Hq24EpnHgG2U0yJitR7sTVPzn1vHAE3xuO+aJj2YEdBYGd0M+GffeK2Wddrj DFjt/Gxf26Q+3IrJO3CSxoRc7rSXykkDqHzjEuz+LRMmx1eejp5vCHdV2763 +omJ9q1M0HXJIYyJ9q04u7DkYDoTkg/ekuffMIJL49PvWWIm2qc2W88+zXom NB9pjN7bQAPF2sTHnp1MUKau3rLa3hi2UzuGVBRMCNEZ3xRWZgwdwbfdGBQC JCqnEzKodHhNOPWITQnwyZxf0L/7n+dGQEyCXn50Bx1m9ZOKrNcTUH7uSrom mwGWvyQJFvgTMHXudXvaPgYk8we31kcTX54/A0ZMZTm9RwgYTB/vouoyoWQ2 s+DwKQL9Trdw//qOGgKa5WTgUC4TOn3uW9uGmaD72S39vOK5LOBPiYRe7wiQ jQTVZWSyIGu277h0goA094GZBg1T5InKvwKS95jCR1kLXzhDwC95SZ6LHuDc 0GbJ6EFbM5TbXZGPPYwzQ/mLc9+MWN/Buc7EeEqFhjlcfReZz1E3Abtq48gD VuaoPjxoXsOWNeaoPhZUNMJ34tyFFyGaPIBz+anmIKIAzzfIO+87Vo3dNWUl qpLi+p2Sbp7gMTZHV/SW8hG784c70m5NNtiHZEW2UExg4eW4X3tM2Wj9oXfP DjHs2Wh+ta8dtMpWYbuuOBt+7Gdc/2289WRvMHaW48ObeTHYymXZyrvpbLT+ mYQtT+J/w/kxvSem9WV4fpbzufxDf+A8zmPg1JvbOPeWVeq8eoDz4Iv+TmmP 8fwNc9p17g3jXJL4iX15Euc5XsWVAooFfh+ad+SfMbBAuc3YmsMVZtjO7Yav gu1w/b095v2D32GXqof5slyxI4tXLGBusIDjme0bDEcJeKnt9LxvM86raqbf B/hjjx48Wlwbius1Bftdnktx3muzSCGhc1BuEb9dOrGNg97vYauACocCDvq+ tCj+ML2Ng55XW+ytgz2zOB/4l7v3tvmWaP67b6o38gWW0B17j0oZJKCr36Ng SZwluP1VOO3TTUDIjENg6n+wW378N/tIgyWErdEzuCT9vF4QPzGr3xKiry9e 2dZAQNj6eOOOKUtwrmnVLi0lQF3y52icMRd00uJLqdkESFNEJVd5XLC7dmhO cfDn/9esR/rvP3Ih+oPLes+lBJhdMLBL8udC7gbZMrMpJtCyBkddhFyo2GU0 U17BBCr5cXReJhc2Jc52PHRlwkyPNPBvMRedowHCFFPVOi7sr8h13OrMgDuN n5Q/3eOic16xTjn79yMutK311Ro1oYN4zPbxMwUX9RnTr4ZfLVclwQk4avCB BsbXzQQUfRJkofLLLQE0MNJO8VtrQUJ5363c4k4jWLss8FeKPYnO2z7pWWu+ CwmLfJLL6ssNgTShJ3M3kiByT5x8qmkIB5rEg8d9SXSeJ4jaOfmhJDrvyfkm lc6xJJz9fnFLWbE+eJaF7zmURsLTa9MJdo760JZooBufQ8KqhJhpXpoeRHWz mixOkai/iNd+TIk5T0KUTc6JbAkVsmUXPiVfJkE5c8UriUKF5tuiE25NJOpX uQO0WGk7ifpZXtfNinlyErTD7ZfKkrThpbnxG60h7AnOiZ4H70nUD3OXhwz5 fSJRv3zU2uNXp2GF+um8P3pdtQOsUP/dZ5E1+VFihfq3QdGBRx5j2Id2+DFP LrZGJju6ozJDrL/MN7HCNazllrcI21GhSH3RjP0NN1LriQKP72hQb+0wskEu TOr7znKJDaofqBDKF3hj/6w6kOUkxN5gL1Dbl4et1DP3tJVgX1QspIfdx95a ntEa/ByvR2GdnHGaxtaUjLCmDGxRvYmKHJpssHUGmssql2MLr79cdMPDFo0P urDjkn4Qzs/vOcOvjsFWUS0Rlx/G9c/4vnO/KsL5vii7uj+rsGVhg0qdelxf kihmt9/HeVnZyAu6HHvSir7i3WtcXx7nfGzbBHb0W6pkJ8UOub7OiKplhD3+ zOL0Zgvs0JXrVN0X2uH9vRC6+8NSnK/0+m3AzQ3nd+/vn960Ceesk1OLmX7Y xUuVksJd2Ea1MZHyvXj8tCzCZSARu8f1dk3pEeypY+MrHfKx/wtNCyhd "]]}, {}}, {}}, {}}, {{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwl2Xk8lF8XAHCyy1ZkmWc288xEhSxRVOakXRKS7GVJEZKlslW2ZA1JVJRC WpCkSEl+RYtsRSmECKksZYnivXfef+rz/cjMvfece+69J2XnQxb75vHx8VWh P/Df0SFfnG83ygPn6saBH9aD3KV7S0WvNMuDDLFMu+b6ILd+fXTh2Xfy8EIw JThrYpArP3/ZdNAHeZDa/FFiR+o3bl6Gb/LWLnkQOy+x5E7DEPf5ff6qr8Py MLwjYaPvpp9cgVEGTVlaAUxstv6dzhjlnthn//7cdgWgDQgvDY2e4CpdVVjA 36IAq2OLrHZd5AMBt5W/fXcqQuq402n1dCGwHrf97N6gCG3UZr/zweKw40PV mZ5dSrBzd96mmFppOG8UN+j0VglEtdWKJmwWQhhfuqiLHQU4AWIwPi0HrTH5 ywe7KLBe3XDrai8FUHT85vyphwIV0vFCbQEKYKetlvamlwLl7nknDx9XgK6P RX+LByiQW6u8L+WMAnxb9uBl0AgFxuTnHiYXK8Dcm+cuEnwEzIX9KvH/rQCq C7+cX84g4JbY5gzdAEXw+Mp+raxMwCmP1Mx5oYpQ8NBtVpYkYP1Zw6LaSEXQ dvnmOrWYgPPNNpf1UxVh7b1RracaBJSL/NB5eFcRLKz46iwMCcg149tN+akI wRdofEccCDjQv6HzkYMSSBzzN0jZQ0DeGdXTw65KkLXrtX+hEwHHhO3uLfJU giqZwMGv+wgwcX27ak2QEghGv2ve7Y2+T6AmaficEsT7xeXqnyAg/VXLss5X SkAz7/m8K4yAl2Fb9nGblKBQQ5/iG0FAtnXGr5T3StA4+DXxZjQBW0fffZDp VYJFe42OEUkEPEy+4uv2F32/yR/jf1cIAJevt3yWUmD5UrMopWsEFKw2shtb ToEqketPdHMJeHJz4NM+XQr0VFuu8L5BAJu/x5gFFFDRv0P7XExA2mfVrhFL Ctzh7B+pqiZAxF/wRH8wBdYJVC7teEaAe7GCavRJCjR3ye37U0PA0h7JXsUo Cvy+WN2m9ZqA0C1nnixMpID+Qvp/V9+i3z9H2DhdpkD17Ltzkb1ofCYbh488 oYCPd9O3kK8EvD920Wa2mgKMzjfcgAECDEZvHAuqoUDI45rBfd8JyJp3QNH8 DQV0Q8rWbv5NQHCweF3gRwrk/7nYJyZIhd5sn5SXYxSwck83mCdMBVv2paGc cQoItaWemRahwvf1QRpHpijgXJagPzSfCh6XVF9M/6MAcfREQp0sFaQa2fcT RQlI/O2se4akgujnrN3jBAFrXPfERnOoYLigvEmfTsDQW7vPJ1SooF3mfTWA ScCWEssYn2VUyFzJznvLJoDfd1OHuQ4VOHZb3ixTJ+BOt5G2sS4Vph75pagv J8DRnBtttJIKjb9DDqpoobhprtLSWU2FWdeUBwK6BPgPL4mSW0+FNeqKxk5r CGDtWfxRYiMV1n64CYtRHjbWs5YLbaYCmRwu3MslQL2QaBs3psLWWhN74/UE fPWUVH9vQYU2gaI7z7YSYPNt5F2GMxX6KUcuRuwiQM9d0vC0KxX+CBRsb7Mi YOHAkutH3KhAO1t0cIk1Aa/6nAN3elBhSP+rfrktikP3O5qkLxU6131cm4Hy XH7v6KkZPypIexl6P9tLwFin5MhgABWU095f+4by/mb7puqaQCpE52kcUHUl gPKhzO1kGBqP0TbTgwcImLBqafCOoMJ7u31XfdwJaG4ZXeUQRYV1DktiD3sQ EPt26XyDGCqsuHPS2s2TgOn6S0W/kqhwMOx7Fc2HgI/PT065XaHCuQuBN5uO EHB/Q6bTrqtUuJac+er8UQJS/it/tT6HCg5KXsdsjxFg/HTsEjOfCo7SS0tb AtF6P3Jd97GICq/56rVyQ1Cerw67+aKYChW/NnHNQwnwfZgp+6CECnF7ZzdO Iy8ta+07+4AKGxIuHF6P9unFki2x259QYZnb/IwStE+Pae/7tfopFcQZui+3 hBNgWRxmv/Q/KiSsX7TzE7JE0UMNkVo0/nXi2VNoH4fcVHtbVY/yp3ON9aJT BNhny1BXdFJh0pa5oSsG1aklRvEmXVT4mq3vaRNLQHGx31/XHipQhMp1G5GF q1vbz32lAr1X/OP9OJRfPZcyJ39S4YmXRYZ7Alofj3pJmVEq7CqxmGtEFvo1 F6r6C31+7mJ7vUQCbAVcHG0mqXDvarryDLIQewmjYo4KI3yWfV6ojmjetj3z lp8GwdXtEjXItivi54YEaHBvNDyAmoy+b8PwZ6ooDfbBOrVnyLb7Sq8cl6FB RsirRXxnCSjMW8cyUqbBLpMnKZrnCPig4ZdiS9JgNkL7uA+ywIOceX4cGojP FbCKkK1rRb5cW0KD+4aL76imoZ8PvLkmpE0DrfeHTkueJ0DDZ06WvoIG27ws B9YjW09pRurp0aBrTFErELlQNNV1vwENdswone3CP19iy3lpRANTIR21a+kE hBfHneveQIPmp5L7m5AL9B8LTW+iwRXJ7pJZ5HnGzK9Lt9Gg5r1GmlUGAbc9 vubF76SBlcO1mRlk/tu+qmauNNgkVj7OvIj2e83Wkg1uNIjaosEA5KQupqH+ AfTv79HvOiIzFzXsZHnSIFQvk3EBGY4vO/HbjwaTXUdcxS8RcDp9nvhgAA3i +GM5HOTGu22pHUdpcNpyyT4u8p7+6Js1wTQ40HXH3Rf5uFlvS3oEDaQHR140 I9d4VOxNiKKBAvv5k0FkqaiUobBoGvzoMd/Ml4nqZDnwH4yjgdufXhk15Mes TLW1Z2kwKiVYcxz57+9dEd1XaQC6j2wXZhGwQVpdqjWHBgFLtqwnkeOXCGa8 ykPz1S5p00EmHO8WltykgVygmbwlskGt1MeouzRIVVg1lYQc3t3nGnSPBodt wgMvI7+aeTTsfZ8Gnis33ytAttU8KGT9kAaRaxPtXiIHZtRqLq2mQXV0U+o/ 5KqSrAr6Mxqo9XUKiV8mQLQ+YJNsDQ0uZjgbyCOnz2Pb/31Jg/Vq9mPqyGUH T0bXN9Gg/+/bR7bIE2v1O327acA4LJJ9EzneieOT/IUGW4pXxt5DJqMWzLvT R4OqFIJbiWxWN8j5MUiD5dc3yDQh37C94LV/jAZTWi2evy/jeJ2ai/pNg06n yMa/yK3Zvsk5EzQ46TggIoTO1XmDxqXd0zT4e917XA7Z/ujMXzsBOihvq/+i jTx2oT8xSIgOSTZX/ukjx1S+ZWaI0MHYYWQUkO8L3d7QOp8Ojo+pXqbI0qn2 8WZydOheYFy9H7n6zmNiI4cOitB5MhXZ+t2NAhcVOnyh96dlIA9PnuOGL6HD Lz/JlCxkKtfb5Yk6HQ6K9OvnIwe8od/S16PDzWuZjg+RJUbF11qvosNSvaO3 K5Gvyk3WHzGgw9DLxC/VyPV2DWMlhnRoWGQl/RpZ9dsJA43NdLBPb3T/iFwp 6VlnspUOr06tlOpEttSydjy4jQ4RhnaXu5HDjmmG5++gw8chr5gB5I/C3S9Z 1nQYjNkTPY6cQBrZKLjTYZUKM1Aim0D3KdO5ZQfpEBOcKyqNLB9jmwtedBA7 1BG7ADnrp++o+2E6tE8ePSCPXFh+LeZRIB2WQeIZBrLv96LlTcF0IN0GK5SR 9RiPWvpC6fBn8E87iVwZ+U5ZOhzNfzd7VgW5fofQQ6dYOlg8rqxejpwSvmDv kXg6zHP7cUEL2aqUJhyXSIfnR0+56yB3UvQs7qXQ4efA4296yD/73L4JX6TD ZfWA8LXIUiEvKLdv0WEkPlV9K3Jz4buqqgI6xH+7HWaMnNbd5dZSRIfEso76 bcj0zX/uzpbQQdpVYZcpssbCpdvMH9HBeuNNuZ3IYxv0RvdVovV5ZKxriXz/ qNH5oCo6dAhJm+1CNuyw/XLtGRr/mhD/3cim+XHBE3V04JxUCLFDXvjpvPL8 BhQ/S7HD9sitkjm1jCY6rPzF7+SA7Oj3SHZrCx0Ou3lr70H2Nvxx62IHHUIt +jOdkc+8M22Hn3RYuNzx1gFknwy+TK0ROrzdyGfmjuPleNeBNUZH50fEKLbc wKLPAhN0GD/psewg8oWZ9u6af3Q4lG4a4oUcXJV49cEcio/QWTFvZPsocMnn Z8AHmaWp2AzpnN4YIQbYlUVkH0LOYR3sN5FEvrEu6zByVD81f600AyJWBSr4 Irvdrj+gsYABg/muidhL9LS/SS9igFRcRIAfzo+tf743UxlQaSyxNAC5zCd6 zFqNAU2X/604hpyhq1+yFZXqp6ZrE7GDpr/5GWgygO/36z7stZGm48QKBvyq mzgTiFx9ftFU52oGbO90bApCvmZfW9awlgFKp37RgpEjlQMDq7gMyMmQc8fe fKt9Ons9A55JKM5g11Ve++e6jQET87ulQpELInZV7trOANOxNDPsxC0iJzbt YIA5v1QytnmzB5/qTgZUX98tdRzHr09LYMiWAac0Z6axuyWqRA97MOCsxurs k8gyn041xnky4IHHjRZsuLE9Pc+bAa4jAmJhyFc2flJp92VAvlOqJ/be4xOb NgczYPfqhyrhyEkmj6WcQ9H4ZliW2FWUyNaQEwwY1bl6ApvxYIHb3Qi0XszJ t9idw2pRtHgGPOEE+0bg/K/8ZbIqkQFXkxTTsQ3jH8rtTGLAnNrII+xM1S05 p1MZ4MVxFIzE8Xdy+e/XJQaMF2XHYn9qzuB/VcCAhLtDR6OQxbP3vuwtYsB8 oYEUbINDKslzxQyY8bIqwL4wv5Spe58BA9RzXdi2Gxq5VyoZIP+xH04hxy48 L1JRxYAag/92Yz/scmhoqUbj2b/YG1spdMhxfi0DAmYSMrA/lAofP9LAgHnC 7CFs0cg3G5ObGCC45OQs9iqLVMnbb1E+hhxZEI18/qdyZvd7FG9hAz1sK5W1 j0y6GOCRZBmM3ZLuN80aRfmUGjCOzfrzuV3pFwNmU7znncb7ycbkicw4AyLb VKSxxSmcyNkplE9Elwr25e1Dwl58TBBbddoKuyZU+dgBfiZEueU4YX8v2D3o Mo8JZ+fFemLrSz17bSvIhMOFpWHYb+svJW0RZYLswM0b2NOzzfwbxJiwrUKj BJu5XMyPK86Ez00Rj7C9zwTs0pNgwoRtbj22qJkphS3DhB/9HSPYa5rmrs0p MOHy8Hv1GGRnfr1FM4pM6IxsXoEdo+V5akKJCSHNN1djtyZ/OPCDYIKS7uQW bB+LYvVPDCa4PpRxxk4L789qZTIhvk78APbjuzSZZmUmiEb0e2GLy8aOvSCZ IElsC8TOeev84L4KE64teJWI/UogQ/WuKhP6/AfOYo/qNGQULEGfV/IjHdsw dXVIzjImFBcWXsX+YCm3LmU5E1LiFEqxJVufv/JayQQ99b4W7I+xp7jHVzGh rWa8DTufu/leoj4TbKpHOrA33HiRWbSaCV751/uwQ0Je+4xymQCanN/Yxlrx ffzrmJAwmDqJrfjVxHahEROM7cemsUt21K/X2cCEtyNH+WORv7Ga5AO2MCF3 +oEkdtn75LiorUzIu3tZBvtUvAVfmjETXCaPymIrT7wdvG/CBGHvGUVs65et j6bMmCB9zYrErj3U7hxiw4Seq5m62KnszPfxtkxYq4YuPDhebQ4mmXZM9L4v 18eeNfqsW+nAhCGfm2ux9eR7RPmcmVBqtGAjtuDrq6EyLkyQuNy8Cbv5hMsY 05UJSbmxW7C9Bns/rXNjQsmRz9uwcx71F0Z4MKFwt7IFtu/hfDL1IBO2rs7c iQ2L3dNzPJkQY7BgF/anM9/CnnszYVq7Zzf2QpcfliJ+TOj1VHPADhP7NR0b jOJ9KNwN++vz/wLTQtD6SCTsxzYOT53KDmXCZv2UA9hyM7oTZSeYcOBuvAd2 3vdjo18jUL4SG72x59/Y6jMWieKtpXII22cfZfhfFBMW3hT0wdbvrPgud5oJ hzh3D2PXNcz2G8UzobamzR9bM77BzTSBCYuOZwRgn9typc8mkQnKJruOYDs+ XffFJ4kJj0OfHsUevRvZmZXKBLaNdxC2fJp4y/QlJnCrlpzA/ix1u3nBZSZ4 XDc4iZ0fvb1RNZsJIjEQhr06MOm1VS4T7s+qRfDiMab10us6E+a7y0Vi13u8 rYm8gfI7aIznvfby1XcLmBC0MPUU9pKWB09eFjHB1NQ6Gntsu83jrmIm0DLl TmNHcS+VSd1ngmLZkRjsmyxWkUclE0xkBuOwj66689msmgmaD4bisTeYGsqs rGFCvd6nBOwFrnVAe4XycbosEbsz0PawQD0T3pudOoN968xA9mATExx8NyRh H8s90tzQwoTbx3/zLNuUonOpA+0Hb40U7MK/hakH+phQnbL6LPYW1dfjK34w QdyElYrds7Pfin8c1TPZAZ5DTgiUvfnLhF3pyeewOcq9d+9LKsPGsLtpvPWp flZwma4MvdJh57GPuObmn16uDIlH5dKxGcKnrh0GZbizOZTnDQevrBfaqwy5 wuM8ezQ+/JJ+Av3+T40MnlVbnydkKUPLTqP/++To9fDHyhCYt4pnCy+HGYXP yjDnKcbzatuXpgV8LKhafYX3eVMHEk0EmSzoLO/hjefe0Z3GdlwWyBZH8cab 2aW4uG0zC7pr/vLmc2prJ/9uMxZcPWfHs8/dax3vrFkw2JrJm78N4V5u4cQC 9/BK3noZRWqca3RnwX+3HvDWU+3HLx9TXxZY2oYnY1/JbnVMOMIC4adveeu/ yKrcpC6IBR9t5HmerTyuahzBgufzPHjxrE/ONgyIZsH5dyG8eGe5PrO8EscC qx/BvHzwXtnv8foMC1xv7OPli6G4eNjEWRasNVoVy9t/foSERBoLNLam8/JL qkPtvHI6C9Jej/Lyr7NoR4HJJRboaCbx8vP4rnNtV3NY8M3Sl5fPXyvzXMvy WJDISePlv6lq2fCbfBa8/XcnHJs+81Hoz20WmGx7xds/p1y/J0kVseD9n1re /vr55h/BLmbBXlbFcezKK0ztHaUsEFx8MgR7sbj2Y9cHLJBSNA/GTvRbvyWo HI2veBFvvzpucnPMfcyCoeajvP08O3QrduY5C6xdknj1oco92uF3DQtuDzfw 6kdEv7Pmj1oWTHfM51n0i1Jr50sWnL1wjFd/ZD9GK1e/YcGh8+RB7NbdLr8f 1rPgpP4GXr1KbzGsLWlgQV3+Xnfe/JrGPXObWPA1M55X71RfuJSdbmHBytRC F975sZEbF9bKgieWt5yxC/6jOAa9R/mle80JW/tJk4BnGwvyZiL2YK+9z92x o4MFJQPCdrx8zSG+LupjQYbFjBmvfrImy6S+ovkrZu3Afn+5OU6knwX6pgam 2PYXY7T+DLAgJsaRV+/3p0yGtH9H88214J0XS2Xe7mj5wYI2i8frsb8nFLLq f7LA34lpxDsPYva9eDLCgjMyDYa8/Xvyrey13yj/ol/xzifD2cKvF8fRfBR/ 884v/pDY8tQJFig1y63gxffouj2nplC+yK7WxE72Lrrp/pcFSb8XqfLyzT5u naYgCf4xnxZhy+wZVTAUIiH02TLe+RnktPvnNmESfk168c5XUzfy4n5REi4p 14pjjx+q+J0lQUIe9dksPq8dfZVf35YkoffpxRnsF/7R2Q+lSGgfdJ7CvhS4 07RVhoT6/ZWjvPtBxNB1yUUkCMKVL9iFUebHCXkSNJZ9+8y7D5x+YLlEgYQ/ 95jt2N/jI/g3KpGQLGnxDvtsGmEXQiPh+pqH/2H33NgmNcQh4cmJNVnYJreL e6cWk9AvTc3Avl+oUCGsSkLgxy7e/Se25Mt+1lISXn5XiMHWehz81EaDhHJB NV/sC0+6z+9fTsKXQI4ntmD1Zu8ATTSfo3P7ePejGlkiWZuEy4EWNtgnG2/5 v9BD43nmZIj9rXnBttaVJEzWmKzEtmw5qty7ioSmNws1sVU/rq+fMyDhbpea Mnbjl08qK7kkUOfC+bEZk/M/5W5G81GdKsf3yfTqZ5XZW0hw6nh/B1smMfRq 5lYSxGlx17HncYbdz20jgfL+QCp2r0XzVOQOEqyPDxzEtqfHtZ80I0FleBvv PtwyuL4qxJyErMLg/9+XT5ZG++8kIYizBrDzC9PlXXeTsEaXvYB3/w0yn95j jeIX+kYQO2OjeKedDQlLbxlM4ft6bHtw7k47EsIJ+05sT/E9K9bvISG6P+M6 tqYbx4K1nwQZ4R417HytTl36ARKMnHWo2Mr/0pQo7iS8DdKZj70wVbR7wUES 6Df1B/B74vfToUP8h0joatbMwvZMyNn5D1ld/nUsdp+1w8o/PiR8+yR8FLt1 uH52xJeED/fsTLHLaHcTuo6QcEV20xR+/2gOehxuP0qCN7WsG/vGPXLXh2Mo HpseveK9l7adozYGkXAv3fcidkjgsVtPjpMgQrNdiQ0thi+zTpHw6YXIbvwe M8sXeXAumoTnoWx97D3BjTnxp1G+nbxLwT6u7HwyKJaEqMcK7fh9V+EVtdIq kUT3qvLd2K/AlLP9DAkO6rK62B9lFWQ3JKH8jK5dgD1Vnv9TK4WE3Yk6L/F7 Uk+4LlcyjYScpsrl2JvaUs8Knidh5sRZEexdtx3CZpCvueV34verv8Ww/WAG CRmhkbHYxVkL5Z5nkqDsnvkBv3/VVtqEh+SifLNpNj6BvEac5eOXR8Kd2y1y 2Ns6vjl4XCdBaN37Dvye9ogI0be+QYJxx1NP7OsNl0d0CkjYeTY/FL/H7189 0Lm0ENUDg4Vc7JoArTrlIhIqFpnPheD8JP67Ll1Mgj7/qhBs1oGvjkP3SCCE Rffj97/W6iKTnlKUT+aBdGyQOmbQdp8Em1VJ73A/Yc89MfnaMhJOf0ldg32J T/3N1Uck3GCsncH9CIUMv9W2z0gYNn6gdgSfzyM1am7PSWh70FSN+xuRWyh0 3xoS7FVqrbDHJqv4Yl+QsNhR/pg/cp2VVE15HQnbT/Bdxv2S8EKnB8/foPx4 X8jC1hcuzW+qJ0Hn/odruN+SV2oXN9iI4pvkkeWDHCZ3w0yphYSFPqJ+uF+z yvPvOk4rCVb+8t24v/Pzvx06Wu9J8B1YboJt7zexaGsbqh/xm5U8cXyb1386 1kECR3hrAu4XDZ3p3Pehj4SRnX5vXJCv9mvt7v2K6mWdmSC2NTdqy0g/CZ3F xErcj6r5uWyZ6DcSEn+yk/YiX9keOLLyJwkC/RckcT/LKreue/0w2p9OIcq4 3yX5j/F2xwgJWgJpmrgfFnS7pnT/GAl2KlJgg/Npvlzw+Qm0X4zWKON+moTL fs9rkyScyZaQwP226ocPHYqmSAhxgVELvL88nKB2mgS+5Q43zZDFXxYKTc6S UKiq+A73856c2ppkJcIGp83tA4DjcX040UyUDdoNpZFcZOMX5xKMxdjwIrZV yRD5nVhPrOF8NixYdnD5auTB+KCoxdJsiJ2vLqiLz48CZiRThg2yxkluuP/o X18TTlnAhtktnKe4PzkrLXtSSpYNXXLbHTWQZc/eCpqQZ8MT7uYVuL/5ocQ8 cESBDSeujuzkIGe9mzz6TZENY9djPHA/VFV+Q0AnhQ1DtR+Dcf90bUb7oRo6 G66mzyxRwOf7Zcl9aYvZUF5vHyOI91NViUuSCvr+0rP883B+ddk4x6qywWhl itfcFVRPWHl7ji9FPyf+MKaRk3MNbd002OBVca//J7JVTa/13uVs0NQ9MjmE +9P9sbttNdng6y3yB/eH81TfW5pqsyGRPNXYg1xx69AOPT02TFsvftmCfLJu kanmSjYo613Z04y86UeFydJVbAiTyO6rR27UEDWmG7DhdORUZS1yX/GVDcKG bDAuHM4sw/30sib91o1sqHqy5kkaHq/DvDV9m9jQk+H3NBl5YJ6O4e/NbODY xdyIx/327alGC43ZcKNCbUk4sv8Xq22mpmwwPXG39SBy1+no7Q470PjLLab2 IW/XKNvhacaG0vo1M3uQFwcqWcZasCG0z/3qTuQPUu32NVZsOLPxjQvu/2+4 J7GnZTcbyKKjofj/B4pt1jr1WrOhc5O43zLk2JysffPs2KAh8OsnFXmNgZO3 4R425D3cKDd7GeX/vq8n7u9nQ33GoG0ZssR8hfDnB9jgWj3QVIgceGdz5Dt3 NixskFXIRbaYyT89dpAN3MKPIsnIgskHkzV80HgWh+xzQ/bRu3R27WE2rNA1 1bRD7vhUd87Elw2/NqRX7UC+v1jjgoc/ytfpOrVVyAcejVzNO4Y+//NXGWHk d07KuaWBbJiv39g7lUXAOhGL68+C0PxO/fUbQqZYlNzqCWFDnGdEZQNyXX/A PXoYG77nH/2UiqwpO/M8LYYN8vu630kj3wo73nI2lg2Gbtz22Uy0niP8fUlx 6PtTlZN/IFPfiArGJbDBYFr730tksWh5oxPJbNCVUi3G/58VOZ5hHpLChmrX o5MeyHyuNKfAs2w4ThfstEKeAPZJv3NsUCMzItWRe6a1KvdnoHwKIgVaLxHg 4F76xvUCyscDYgpPkD+8X9XhdJENblvfVFxHrr/H/WuXyYYDFYlFR5ErvLcb mGWz4dVGVYGFyKk9B+6vusEG6cdnzDUuovwz//5c9yYb3FcHO0sjxz451KJ9 iw0lvt87hi+g/L505LdaARvUa5eLFSF7WUVqKxezwXyjaBcHeeCZiBH9Lhuy xDb/5kd21YkzJ0rY8PS0qV1HBgG2Mik+i0rZ8Li2Xi4FedOry4Vi5WxYd/T7 +7F0Ap6uIiuFH7KhkabOeYm85nreG4EKNtR6t97IQtaJLPj+7xEbrD6FG29G ZhpWLB2rQvs/xjk08TwBf4pb8z6+QPWrW0p69Byqf6oeVc0v2ZBQ/GX+Q2Rq 1r+2V6/QfFd0CYcjQyxbsqKODa9Z9b1SyKedff0uNrLhikToQyIV3Uc+CCWc bWLDSKY82X6WgNumGXlxzWwQM33ofBG50aCqLfgdGm/7lLk8sqKsFNh/YMP5 j0a7/yWj90ZMto1lGxv2Otz/XIK8Zm6Fn8lHVI+uxC50R947ZJe3ph2tB2Pl noYkdD/774YErYsNzwpXfY09g84v/41tHf1syDCz6XoQj+rztw9jLQNof+19 LmiFbL/XU6J+kA2Zv0bcxuJQfEzOciuH2NAy5/Ocg/yC3Z2bNcwGF5db4kdi 0P3mgv+TtBFUj3tD1gohf5cRbUscZcMGboFnyml0v/2nIXHiF1rPeOnMvGh0 vrWE+O6ZZENa4a0tpVHo/rFNJn73FBsoYmrOOsghT6/l7viD6mfLLo2iSLTf C1594M6wQURw2YPLESgfohS5zDk2MCIDvF3CCDimd29+tzAHeh+7yXmGoPuG VrPqTxEO+PdufVwcjO7vy0Y2zohy4Myf6O5fQSi/ldVOLprPgdWlKxy8Agkw ksj5vVWaA9Oj9+11jhAwI1y9YLcM+n0jJ5pdAAH3+Ls0XBdw4ILCu5bj/gSo TBLux2U5EKH2r7/cF9WfnrMddxU40GTxI+OvNwHP24unnyhygE9IiJyHfPx9 g8IbJQ787Hq6QMCLgNG6+Rb9BAfGiEfNEx7ofvsgooZgckCr8NODa25ovgl+ RZGqHJhf6D/N50CAzenkuuQlHPBbOGVRYofu0xFFg1lLObB2756ne2wJiDo2 RJarcWCJglNk3m60ni4u6T80OfB4e6vCoDkBpGNY6bQWB1o3pp5zNyOg3fpy s4gOB+KtwOuLKQE7TD9JsHQ5cMzj14vqbQSs0N8ZZqWP1mvLzePqGwn4oXM4 y8WAA+cPzCodWY/OK40zFT6rOUCa2Wx5sI4AJfbr8di1HLi1QXKKZYjOZ6n1 Hk/WccCwN6/5kh7Kl17tnarGHFB9e/G6wGICkvKvhZLbOLA1uCRrmET54CmX TzfhQGl0b8lbZRTfX+N/5Uw5sIP7syeCRoCIQHkevwUHuv16/oXJof2tzJ3+ aMOBT/9l3+zhI0Cqr4jdasuBArHH5zbNUqA1n7mjyY4DH5517sieoYCb5ryc WgcOqL1x6zaYoEAU9/n2e04cWL+wy/LvNwo8c9iWneDOgSLnYdH8ZgrEKz96 fdqDA1b0O+OHGihg2ac2EXGQA1KSe+PU6yjQ6ym1LcgLrefC4MMxzykgENL0 2+0wB+jlU0HVDyhgdGH3FgjkoHrlsFX9AgXEHV/4rg7igNMeWf6taRRoVtbP 1AvmwM7xgHibFAo436CMqYWi/BEPnLSOpUBYWcdFpTAO3PaQXdIYSIGqVpfh sdMcWPBWvC/DigLLGXtoArEcYL17pXLJnAJZ+223ycZxQMMW3ieZUCBkyuy6 TgIaX85zP3MjCuhTDPf4J3Ng/8eBM8vVKXDXQbFhPIMDWwzvyTvxUSCnt65w 6iYa38sVzLpLSiCr/qJd9DYHvR3dlnLSlCA84D9xpQIOODwTLzx8Rgn2Cj90 0y/iQJKPl2dfmBLQVK/Tg0o4kCDRM6TvpgRpB8MSZyo4cGiF+bkbakoQM6br PVvHAe/LspnGxYqQaLQuT6yeAyLp6+ZcbihCaopJp1wDB14f4NP2z1aEK9ou psuaOCBmvcwnMFkRynyTNKxb0HokxCpTDivCwNi3n8UdHIhu0et7paEIW35d PrTvJ9q//NuFLuYogOhvscN10osBjJ59FzohD8v1k17QTBfDBSVT8utKOVDJ fzDvTvJi2O+uvsn85gKotU1Oft64GFTHVlTzRUoB9ZdnTqaUCnw6ZhNr8EIM jEoHM+6bq0AB36KSfTmCIFOh2GuRpAL/FlyVOnFnjvvL/3KAR7IKLM9wz8uL muO2aiwWCU9RgbOXlq2ut53jXrqqs7Q4VQVGGjvtaEJzXJVYUx/pDBWYaygI rrCZ5RraRP59na0C9u3b103O+8c9ODkst7FEBTrTI/W9dk1zTYuP5NnfU4Fj NQtjU5dOczUP/lvpX6oCtkNybRVzf7gTneJ21x6oQNHDc77iN/9ww2s42fyP VEA1yjX1+uwUN/2cnXrlMxWQvRuf0X19khu8o6ey5bkKfF7X9k40dJLrKOZu 9qNGBR4eFpfWtJjkskOP+FFfqgCIa588/neCW+SaXB70Bo23S9uKMJ/gptAV t6XUq4C8vFGM0eIJrv+HrPYbDSpgdN6pwn1mnGtgcnvuQ5MKxKzpo5bljnNp wjrJI80q4DRnYfI5aJzLV1XOEn2nApYmvUHCZuPcL4Fwj9GiAl0lmfnqnHFu jU7txpWtKuj+GtFiOf2b+z8xm7rI "]]}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{None, None}, AxesOrigin->{4.605170185988092, 1.6094379124341003`}, CoordinatesToolOptions:>{"DisplayFunction" -> ({ Exp[ Part[#, 1]], Exp[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Exp[ Part[#, 1]], Exp[ Part[#, 2]]}& )}, FrameTicks->{{{{2.302585092994046, FormBox["10", TraditionalForm]}, {2.995732273553991, FormBox["20", TraditionalForm]}, {3.912023005428146, FormBox["50", TraditionalForm]}, {4.605170185988092, FormBox["100", TraditionalForm]}, {5.298317366548036, FormBox["200", TraditionalForm]}, {6.214608098422191, FormBox["500", TraditionalForm]}, {6.907755278982137, FormBox["1000", TraditionalForm]}, {7.600902459542082, FormBox["2000", TraditionalForm]}, {8.517193191416238, FormBox["5000", TraditionalForm]}, {3.4011973816621555`, 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.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]}}, {5.703782474656201, 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]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.006367567650246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.294049640102028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, {{2.302585092994046, FormBox["\"\"", TraditionalForm]}, {2.995732273553991, FormBox["\"\"", TraditionalForm]}, {3.912023005428146, FormBox["\"\"", TraditionalForm]}, {4.605170185988092, FormBox["\"\"", TraditionalForm]}, {5.298317366548036, FormBox["\"\"", TraditionalForm]}, {6.214608098422191, FormBox["\"\"", TraditionalForm]}, {6.907755278982137, FormBox["\"\"", TraditionalForm]}, {7.600902459542082, FormBox["\"\"", TraditionalForm]}, {8.517193191416238, FormBox["\"\"", TraditionalForm]}, {3.4011973816621555`, 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.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]}}, {5.703782474656201, 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]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.006367567650246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.294049640102028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}, {{{4.605170185988092, FormBox["100", TraditionalForm]}, {6.907755278982137, FormBox["1000", TraditionalForm]}, {9.210340371976184, FormBox[ TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {11.512925464970229`, FormBox[ TemplateBox[{"10", "5"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {13.815510557964274`, FormBox[ TemplateBox[{"10", "6"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {7.600902459542082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.006367567650246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.294049640102028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.517193191416238, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.699514748210191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.85366542803745, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.987196820661973, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {9.104979856318357, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {9.903487552536127, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {10.308952660644293`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {10.596634733096073`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {10.819778284410283`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {11.002099841204238`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {11.156250521031495`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {11.289781913656018`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {11.407564949312402`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {12.206072645530174`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {12.611537753638338`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {12.89921982609012, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {13.122363377404328`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {13.304684934198283`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {13.458835614025542`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {13.592367006650065`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {13.710150042306449`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, {{4.605170185988092, FormBox["\"\"", TraditionalForm]}, {6.907755278982137, FormBox["\"\"", TraditionalForm]}, {9.210340371976184, FormBox["\"\"", TraditionalForm]}, {11.512925464970229`, FormBox["\"\"", TraditionalForm]}, {13.815510557964274`, FormBox["\"\"", TraditionalForm]}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {7.600902459542082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.006367567650246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.294049640102028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.517193191416238, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.699514748210191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.85366542803745, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.987196820661973, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {9.104979856318357, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {9.903487552536127, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {10.308952660644293`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {10.596634733096073`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {10.819778284410283`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {11.002099841204238`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {11.156250521031495`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {11.289781913656018`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {11.407564949312402`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {12.206072645530174`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {12.611537753638338`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {12.89921982609012, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {13.122363377404328`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {13.304684934198283`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {13.458835614025542`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {13.592367006650065`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {13.710150042306449`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}}, GridLines->{None, None}, ImageSize->Full, Method->{}, PlotRange->{{4.605170185988092, 13.795328258601776`}, {1.6094379124341003`, 7.007600613951853}}, PlotRangeClipping->True, PlotRangePadding->{{0.18380316145227368`, 0.18380316145227368`}, { 0.10796325403035505`, 0.10796325403035505`}}, Ticks->{{{4.605170185988092, FormBox["100", TraditionalForm]}, {6.907755278982137, FormBox["1000", TraditionalForm]}, {9.210340371976184, FormBox[ TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {11.512925464970229`, FormBox[ TemplateBox[{"10", "5"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {13.815510557964274`, FormBox[ TemplateBox[{"10", "6"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {7.600902459542082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.006367567650246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.294049640102028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.517193191416238, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.699514748210191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.85366542803745, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.987196820661973, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {9.104979856318357, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {9.903487552536127, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {10.308952660644293`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {10.596634733096073`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {10.819778284410283`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {11.002099841204238`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {11.156250521031495`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {11.289781913656018`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {11.407564949312402`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {12.206072645530174`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {12.611537753638338`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {12.89921982609012, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {13.122363377404328`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {13.304684934198283`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {13.458835614025542`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {13.592367006650065`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {13.710150042306449`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, {{2.302585092994046, FormBox["10", TraditionalForm]}, {2.995732273553991, FormBox["20", TraditionalForm]}, {3.912023005428146, FormBox["50", TraditionalForm]}, {4.605170185988092, FormBox["100", TraditionalForm]}, {5.298317366548036, FormBox["200", TraditionalForm]}, {6.214608098422191, FormBox["500", TraditionalForm]}, {6.907755278982137, FormBox["1000", TraditionalForm]}, {7.600902459542082, FormBox["2000", TraditionalForm]}, {8.517193191416238, FormBox["5000", TraditionalForm]}, {3.4011973816621555`, 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.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]}}, {5.703782474656201, 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]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.006367567650246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.294049640102028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}]], "Output", CellChangeTimes->{ 3.5811575524826202`*^9, {3.581157764664164*^9, 3.58115777177495*^9}, { 3.581157941212791*^9, 3.581157961839841*^9}, 3.581158992241129*^9, 3.581159034633665*^9, 3.582357381246458*^9, {3.5823588531425333`*^9, 3.582358881197573*^9}, 3.582358917473624*^9, 3.582358961260686*^9}] }, Open ]], Cell["TODO: Mit festem und variablem V fitten!", "Text", CellChangeTimes->{{3.581159257476377*^9, 3.581159267834343*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"frequenzgang", "[", "f_", "]"}], "=", RowBox[{"Normal", "[", "fml", "]"}]}]], "Input", CellChangeTimes->{{3.5811582498995733`*^9, 3.581158307794242*^9}}], Cell[BoxData[ FractionBox["1000", RowBox[{ SqrtBox[ RowBox[{"1", "+", FractionBox["2.1340173689841712`*^30", SuperscriptBox["f", "10.099309297907753`"]]}]], " ", SqrtBox[ RowBox[{"1", "+", RowBox[{"1.2293790239735687`*^-46", " ", SuperscriptBox["f", "9.808847116770792`"]}]}]]}]]], "Output", CellChangeTimes->{ 3.5811583085948477`*^9, 3.581158994612232*^9, 3.5823573813564587`*^9, { 3.5823588531925335`*^9, 3.5823588812675734`*^9}, 3.5823589175236244`*^9, 3.582358961300686*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"B", "=", RowBox[{"NIntegrate", "[", RowBox[{ SuperscriptBox[ RowBox[{"frequenzgang", "[", "f", "]"}], "2"], ",", RowBox[{"{", RowBox[{"f", ",", "0", ",", "1000000"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5811582389330597`*^9, 3.5811582416077623`*^9}, { 3.58115827650809*^9, 3.581158287315504*^9}, {3.581158325450364*^9, 3.581158330521235*^9}, {3.581158409732094*^9, 3.581158417563303*^9}, { 3.581158779691926*^9, 3.581158790435033*^9}, {3.5823590470358067`*^9, 3.582359047975808*^9}, {3.582366440172705*^9, 3.5823664482347164`*^9}}], Cell[BoxData["4.772377695323492`*^10"], "Output", CellChangeTimes->{{3.5811582978434277`*^9, 3.581158328193411*^9}, { 3.5811584082788153`*^9, 3.581158417902669*^9}, {3.581158784497589*^9, 3.581158791174502*^9}, 3.5811589964788723`*^9, 3.5823573821764593`*^9, { 3.582358853372534*^9, 3.582358881457574*^9}, 3.582358917813625*^9, 3.5823589613706865`*^9, 3.582359050086811*^9}] }, Open ]], Cell[CellGroupData[{ Cell["Berechnung der Boltzmannkonstante", "Subsection", CellChangeTimes->{{3.582128944667469*^9, 3.582128953753482*^9}}], Cell[CellGroupData[{ Cell[BoxData["data"], "Input", CellChangeTimes->{{3.5823662871074896`*^9, 3.58236628750749*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"5"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ "\"k\[CapitalOmega]\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: kilohms"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Kiloohms\""}], "]"}]& )], ",", TemplateBox[{"0.025`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ "\"k\[CapitalOmega]\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: kilohms"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Kiloohms\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"2"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mV\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millivolts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millivolts\""}], "]"}]& )], ",", TemplateBox[{"4320"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mV\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millivolts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millivolts\""}], "]"}]& )], ",", TemplateBox[{"0.0008226927521778597`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mV\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millivolts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millivolts\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"10"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ "\"k\[CapitalOmega]\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: kilohms"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Kiloohms\""}], "]"}]& )], ",", TemplateBox[{"0.05`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ "\"k\[CapitalOmega]\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: kilohms"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Kiloohms\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"3.1366`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mV\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millivolts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millivolts\""}], "]"}]& )], ",", TemplateBox[{"0.0011169787417108538`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mV\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millivolts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millivolts\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"15"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ "\"k\[CapitalOmega]\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: kilohms"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Kiloohms\""}], "]"}]& )], ",", TemplateBox[{"0.075`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ "\"k\[CapitalOmega]\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: kilohms"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Kiloohms\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"3.713`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mV\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millivolts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millivolts\""}], "]"}]& )], ",", TemplateBox[{"0.0011613210868087547`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mV\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millivolts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millivolts\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"20"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ "\"k\[CapitalOmega]\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: kilohms"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Kiloohms\""}], "]"}]& )], ",", TemplateBox[{"0.1`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ "\"k\[CapitalOmega]\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: kilohms"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Kiloohms\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"4.2193`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mV\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millivolts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millivolts\""}], "]"}]& )], ",", TemplateBox[{"0.0015787348878623815`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mV\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millivolts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millivolts\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"25"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ "\"k\[CapitalOmega]\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: kilohms"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Kiloohms\""}], "]"}]& )], ",", TemplateBox[{"0.125`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ "\"k\[CapitalOmega]\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: kilohms"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Kiloohms\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"4.6808`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mV\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millivolts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millivolts\""}], "]"}]& )], ",", TemplateBox[{"0.00171447294400587`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mV\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millivolts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millivolts\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"30"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ "\"k\[CapitalOmega]\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: kilohms"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Kiloohms\""}], "]"}]& )], ",", TemplateBox[{"0.15`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ "\"k\[CapitalOmega]\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: kilohms"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Kiloohms\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"5.0737`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mV\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millivolts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millivolts\""}], "]"}]& )], ",", TemplateBox[{"0.0017377683130030365`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mV\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millivolts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millivolts\""}], "]"}]& )]}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.5823662881074905`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"data2", "=", RowBox[{"data", "//", "QuantityMagnitude"}]}]], "Input", CellChangeTimes->{{3.5823573239953775`*^9, 3.582357363113433*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "0.025`"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4320", ",", "0.0008226927521778597`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"10", ",", "0.05`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.1366`", ",", "0.0011169787417108538`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"15", ",", "0.075`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.713`", ",", "0.0011613210868087547`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"20", ",", "0.1`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.2193`", ",", "0.0015787348878623815`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"25", ",", "0.125`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.6808`", ",", "0.00171447294400587`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"30", ",", "0.15`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.0737`", ",", "0.0017377683130030365`"}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.5823573653034363`*^9, 3.582357374524449*^9}, 3.582357484173603*^9, {3.582358853402534*^9, 3.5823588814875736`*^9}, 3.582358917843625*^9, 3.5823589614006863`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"data2", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.5823574484075527`*^9, 3.5823574752415905`*^9}, { 3.5823575218706565`*^9, 3.582357535092675*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "0.025`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "0.05`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "0.075`"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "0.1`"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "0.125`"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "0.15`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.58235752432066*^9, 3.5823575355626755`*^9}, { 3.582358853422534*^9, 3.5823588815075736`*^9}, 3.582358917873625*^9, 3.5823589614606867`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Boltzfit1", "=", RowBox[{"LinearModelFit", "[", RowBox[{ RowBox[{"data2", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", "x", ",", "x"}], "]"}]}]], "Input", CellChangeTimes->{{3.5821296642034826`*^9, 3.5821296742544966`*^9}, { 3.5821297221065645`*^9, 3.582129756650613*^9}, {3.5821794773349156`*^9, 3.582179511178963*^9}, {3.582179969622609*^9, 3.582179971602612*^9}, 3.582357306532353*^9, {3.5823573832664614`*^9, 3.5823574404365416`*^9}, { 3.5823578170090723`*^9, 3.5823578203800774`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"FittedModel", "[", TagBox[ PanelBox[ TagBox[ RowBox[{"2.832791573980247`*^-17", "+", RowBox[{"0.005`", " ", "x"}]}], Short], FrameMargins->5], Editable -> False], "]"}], InterpretTemplate[ FittedModel[{ "Linear", {2.832791573980247*^-17, 0.005}, {{$CellContext`x}, {1, $CellContext`x}}, {0, 0}}, {{1., 1., 1., 1., 1., 1.}}, {{5, 0.025}, {10, 0.05}, {15, 0.075}, {20, 0.1}, { 25, 0.125}, {30, 0.15}}, {{1., 5.}, {1., 10.}, {1., 15.}, {1., 20.}, {1., 25.}, {1., 30.}}, Function[Null, Internal`LocalizedBlock[{$CellContext`x}, #], {HoldAll}]]& ], Editable->False, SelectWithContents->True, Selectable->True]], "Output", CellChangeTimes->{{3.5823574253335204`*^9, 3.5823574408665423`*^9}, 3.5823575411426835`*^9, {3.582357818030074*^9, 3.5823578206700773`*^9}, { 3.582358853452534*^9, 3.582358881537574*^9}, 3.582358917913625*^9, 3.5823589615006866`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{" ", RowBox[{"Parameters1", "=", RowBox[{ "Boltzfit1", "[", "\"\\"", "]"}]}]}]], "Input", CellChangeTimes->{{3.5823579496752596`*^9, 3.582357957656271*^9}, { 3.5823580366793823`*^9, 3.5823580482103987`*^9}, {3.5823581334025183`*^9, 3.5823581455745354`*^9}, {3.582358229676654*^9, 3.582358231917657*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "2.832791573980247`*^-17", ",", "3.164622522642098`*^-17", ",", "0.8951435925492908`", ",", "0.42130775314401614`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.005`", ",", "1.6252000960812474`*^-18", ",", "3.0765442434172975`*^15", ",", "6.697282067213444`*^-62"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.5823580491414*^9, {3.5823581355325212`*^9, 3.5823581469345374`*^9}, 3.5823582330076585`*^9, {3.582358853472534*^9, 3.582358881557574*^9}, 3.5823589179436255`*^9, 3.5823589615306864`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c", "=", RowBox[{ RowBox[{"Quantity", "[", RowBox[{ RowBox[{"Parameters1", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], ",", RowBox[{"\"\\"", "/", "\"\\""}]}], "]"}], "//", "UnitConvert"}]}]], "Input", CellChangeTimes->{{3.5823581492145405`*^9, 3.5823581925506015`*^9}, { 3.582358247361679*^9, 3.58235824811168*^9}, {3.58236630880052*^9, 3.5823663335745544`*^9}}], Cell[BoxData[ TemplateBox[{"5.`*^-9"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )]], "Output", CellChangeTimes->{{3.5823581542655478`*^9, 3.582358193100602*^9}, { 3.582358238539666*^9, 3.5823582537626877`*^9}, {3.582358853492534*^9, 3.582358881577574*^9}, 3.582358917973625*^9, 3.5823589615706863`*^9, 3.5823663339745555`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["T", "zimmer2"], "=", RowBox[{ SubscriptBox["T", "zimmer"], "//", "QuantityMagnitude"}]}]], "Input", CellChangeTimes->{{3.5823591713679824`*^9, 3.5823591958120165`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"24.7`", ",", "0.1`"}], "}"}]], "Output", CellChangeTimes->{3.5823591966420183`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["T", "Zimmerreal"], "=", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"First", "[", SubscriptBox["T", "zimmer2"], "]"}], "+", "273.15"}], ",", RowBox[{"Last", "[", SubscriptBox["T", "zimmer2"], "]"}]}], "}"}], ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.5823590996148815`*^9, 3.5823591685469785`*^9}, { 3.5823592180960484`*^9, 3.582359289258148*^9}, {3.5823661440632877`*^9, 3.5823662351584163`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"297.84999999999997`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"K\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: kelvins"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Kelvins\""}], "]"}]& )], ",", TemplateBox[{"0.1`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"K\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: kelvins"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Kelvins\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.5823661729283285`*^9, 3.582366236239418*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c"], "Input", CellChangeTimes->{3.582366136452277*^9}], Cell[BoxData["0.005`"], "Output", CellChangeTimes->{3.582366137192278*^9, 3.5823662390894217`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["k", "B"], "=", RowBox[{"UnitConvert", "[", RowBox[{ FractionBox["c", RowBox[{"4", "*", SubscriptBox["T", "Zimmerreal"], "*", "B"}]], ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.5823587780664277`*^9, 3.582358811482475*^9}, { 3.5823590218417716`*^9, 3.5823590698888392`*^9}, {3.5823592976491604`*^9, 3.582359308261175*^9}, {3.5823662573734474`*^9, 3.5823662663144603`*^9}}], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"Quantity", "::", "compat"}], "MessageName"], RowBox[{ ":", " "}], "\<\"\[NoBreak]\\!\\(\\\"Amperes\\\"\\/\\\"Kelvins\\\"\\)\ \[NoBreak] and \[NoBreak]\\!\\(\\\"BoltzmannConstant\\\"\\)\[NoBreak] are \ incompatible units \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\ \\\"Link\\\", ButtonFrame->None, ButtonData:>\\\"paclet:ref/Quantity\\\", \ ButtonNote -> \\\"Quantity::compat\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{3.5823662672144613`*^9, 3.582366342286567*^9}], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"Quantity", "::", "compat"}], "MessageName"], RowBox[{ ":", " "}], "\<\"\[NoBreak]\\!\\(\\\"Amperes\\\"\\/\\\"Kelvins\\\"\\)\ \[NoBreak] and \[NoBreak]\\!\\(\\\"BoltzmannConstant\\\"\\)\[NoBreak] are \ incompatible units \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\ \\\"Link\\\", ButtonFrame->None, ButtonData:>\\\"paclet:ref/Quantity\\\", \ ButtonNote -> \\\"Quantity::compat\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{3.5823662672144613`*^9, 3.5823663423965673`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"$Failed", ",", "$Failed"}], "}"}]], "Output", CellChangeTimes->{{3.5823590629578295`*^9, 3.58235907044984*^9}, { 3.582359299729163*^9, 3.5823593091211767`*^9}, {3.5823662409204245`*^9, 3.5823662674144616`*^9}, 3.5823663424065676`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Quantity", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.5823662433104277`*^9, 3.582366251201439*^9}}], Cell[BoxData[ TemplateBox[{"1"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ StyleBox["\"k\"", Italic, StripOnInput -> False], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: Boltzmann constants"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"BoltzmannConstant\""}], "]"}]& )]], "Output", CellChangeTimes->{3.58236625174144*^9}] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{784, 700}, WindowMargins->{{0, Automatic}, {Automatic, 1}}, PrintingCopies->1, PrintingPageRange->{1, Automatic}, FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (November 20, 2012)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]]}, Visible -> False, FrontEndVersion -> "9.0 for Microsoft Windows (64-bit) (November 20, 2012)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[579, 22, 107, 1, 90, "Title"], Cell[689, 25, 191, 4, 31, "Input"], Cell[CellGroupData[{ Cell[905, 33, 159, 3, 113, "Section"], Cell[CellGroupData[{ Cell[1089, 40, 3338, 98, 403, "Input"], Cell[4430, 140, 10868, 276, 132, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[15335, 421, 275, 8, 31, "Input"], Cell[15613, 431, 979, 24, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[16629, 460, 316, 9, 39, "Input"], Cell[16948, 471, 975, 24, 31, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[17972, 501, 166, 3, 113, "Section"], Cell[CellGroupData[{ Cell[18163, 508, 327, 8, 31, "Input"], Cell[18493, 518, 303, 5, 33, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[18833, 528, 238, 5, 31, "Input"], Cell[19074, 535, 558, 13, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[19669, 553, 190, 4, 31, "Input"], Cell[19862, 559, 510, 12, 31, "Output"] }, Open ]], Cell[20387, 574, 407, 6, 144, "Text"], Cell[20797, 582, 704, 18, 92, "Input"], Cell[21504, 602, 271, 7, 31, "Input"], Cell[CellGroupData[{ Cell[21800, 613, 127, 2, 31, "Input"], Cell[21930, 617, 199, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[22166, 625, 270, 7, 31, "Input"], Cell[22439, 634, 24943, 493, 238, "Output"] }, Open ]], Cell[47397, 1130, 347, 10, 31, "Input"], Cell[47747, 1142, 1034, 26, 105, "Input"], Cell[CellGroupData[{ Cell[48806, 1172, 530, 12, 31, "Input"], Cell[49339, 1186, 23731, 439, 423, "Output"] }, Open ]], Cell[73085, 1628, 751, 22, 31, "Input"], Cell[CellGroupData[{ Cell[73861, 1654, 1722, 47, 142, "Input"], Cell[75586, 1703, 4769, 91, 91, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[80392, 1799, 144, 2, 31, "Input"], Cell[80539, 1803, 1350, 28, 102, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[81926, 1836, 468, 13, 31, "Input"], Cell[82397, 1851, 32799, 595, 237, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[115233, 2451, 553, 12, 31, "Input"], Cell[115789, 2465, 35086, 626, 423, "Output"] }, Open ]], Cell[150890, 3094, 122, 1, 30, "Text"], Cell[CellGroupData[{ Cell[151037, 3099, 192, 4, 31, "Input"], Cell[151232, 3105, 533, 14, 75, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[151802, 3124, 606, 12, 33, "Input"], Cell[152411, 3138, 389, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[152837, 3148, 121, 1, 43, "Subsection"], Cell[CellGroupData[{ Cell[152983, 3153, 97, 1, 31, "Input"], Cell[153083, 3156, 11058, 282, 132, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[164178, 3443, 164, 3, 31, "Input"], Cell[164345, 3448, 1444, 44, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[165826, 3497, 228, 5, 31, "Input"], Cell[166057, 3504, 607, 17, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[166701, 3526, 575, 12, 31, "Input"], Cell[167279, 3540, 984, 26, 51, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[168300, 3571, 366, 7, 31, "Input"], Cell[168669, 3580, 605, 14, 55, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[169311, 3599, 470, 12, 31, "Input"], Cell[169784, 3613, 596, 13, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[170417, 3631, 215, 5, 31, "Input"], Cell[170635, 3638, 124, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[170796, 3646, 553, 15, 31, "Input"], Cell[171352, 3663, 832, 21, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[172221, 3689, 69, 1, 31, "Input"], Cell[172293, 3692, 99, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[172429, 3698, 478, 11, 46, "Input"], Cell[172910, 3711, 544, 10, 40, "Message"], Cell[173457, 3723, 546, 10, 40, "Message"], Cell[174006, 3735, 282, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[174325, 3745, 153, 2, 31, "Input"], Cell[174481, 3749, 467, 12, 31, "Output"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)