(* 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[ 280420, 7486] NotebookOptionsPosition[ 270932, 7178] NotebookOutlinePosition[ 271287, 7194] CellTagsIndexPosition[ 271244, 7191] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["245 Induktion", "Title", CellChangeTimes->{{3.575709285834113*^9, 3.5757093124346347`*^9}}], Cell[BoxData[ StyleBox[ RowBox[{"Needs", "[", "\"\\"", "]"}], FontColor->RGBColor[ 0.9117112993057145, 0.9118486305027848, 0.9116502632181277]]], "Input", CellChangeTimes->{{3.57623342376158*^9, 3.576233433386797*^9}}, FontColor->GrayLevel[0.5]], Cell[CellGroupData[{ Cell["Vorversuch", "Section", CellChangeTimes->{{3.5757093327887993`*^9, 3.575709334705909*^9}}], Cell["\<\ a) Das Oszilloskop schl\[ADoubleDot]gt aus. Wird die Spule umgedreht, ist \ dieser Ausschlag entgegengesetzt. b) Ebenso. L\[ADoubleDot]sst man einen Magneten durch eine Spule fallen, so schl\ \[ADoubleDot]gt die Spannung je nach Orientierung der Spule entweder erst ins \ Positive, dann ins Negative oder andersherum aus. Die Amplitude des \ Ausschlags ist abh\[ADoubleDot]ngig von der Fallh\[ODoubleDot]he und dem \ Magnetenmaterial (Aua).\ \>", "Text", CellChangeTimes->{{3.5757093528539467`*^9, 3.5757095801579475`*^9}, { 3.576260511949085*^9, 3.576260523228382*^9}, {3.5762640530062857`*^9, 3.576264053606147*^9}}, FontFamily->"Helvetica Neue"] }, Open ]], Cell[CellGroupData[{ Cell["Induktionsgesetz", "Section", CellChangeTimes->{{3.575709597198922*^9, 3.575709600021084*^9}}], Cell[CellGroupData[{ Cell["Vorgegebene Gr\[ODoubleDot]\[SZ]en", "Subsection", CellChangeTimes->{{3.5762358632966666`*^9, 3.5762358664946723`*^9}}], Cell["Fl\[ADoubleDot]che der Induktionsspule:", "Text", CellChangeTimes->{{3.5762358701450787`*^9, 3.5762358745598865`*^9}}, FontFamily->"Helvetica Neue"], Cell[CellGroupData[{ Cell[BoxData[ StyleBox[ RowBox[{ SubscriptBox["A", "ind"], "=", RowBox[{ RowBox[{"Quantity", "[", RowBox[{"41.7", ",", SuperscriptBox["\"\\"", "2"]}], "]"}], "//", "UnitConvert"}]}], FontFamily->"Courier", FontSize->13, FontWeight->"Bold"]], "Input", CellChangeTimes->{{3.5762358756206884`*^9, 3.576235905635141*^9}, { 3.5762359576612325`*^9, 3.576235958534834*^9}}, FontFamily->"Helvetica Neue", FontSize->14, FontWeight->"Plain"], Cell[BoxData[ TemplateBox[{"0.00417`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ SuperscriptBox["\"m\"", "2"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters squared"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", SuperscriptBox["\"Meters\"", "2"]}], "]"}]& )]], "Output", CellChangeTimes->{3.576235906196742*^9, 3.576235959673636*^9, 3.576260310805197*^9, 3.576261217022246*^9, 3.5762641083970947`*^9}] }, Open ]], Cell[TextData[StyleBox["Windungszahl der Induktionsspule", FontFamily->"Helvetica Neue"]], "Text", CellChangeTimes->{{3.5762359192383647`*^9, 3.576235923294372*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["N", "ind"], "=", "4000"}]], "Input", CellChangeTimes->{{3.576235940158002*^9, 3.5762359497208185`*^9}}], Cell[BoxData["4000"], "Output", CellChangeTimes->{{3.57623594480681*^9, 3.5762359506100197`*^9}, 3.576260310986041*^9, 3.576261217060319*^9}] }, Open ]], Cell["Radius der Helmholtzspulen", "Text", CellChangeTimes->{{3.5762359651336455`*^9, 3.576235973838461*^9}}, FontFamily->"Helvetica Neue"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["R", "helmholtz"], "=", RowBox[{ RowBox[{ RowBox[{"Quantity", "[", RowBox[{ RowBox[{"295", "/", "2"}], ",", "\"\\""}], "]"}], "//", "N"}], "//", "UnitConvert"}]}]], "Input", CellChangeTimes->{{3.576235998564504*^9, 3.576236032213763*^9}, { 3.576264435800552*^9, 3.57626443624568*^9}}], Cell[BoxData[ TemplateBox[{"0.1475`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"m\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Meters\""}], "]"}]& )]], "Output", CellChangeTimes->{3.5762360326817636`*^9, 3.576260311033407*^9, 3.576261217094248*^9, 3.57626443674747*^9}] }, Open ]], Cell["Abstand der Helmholtzspulen", "Text", CellChangeTimes->{{3.576236051885398*^9, 3.576236055567004*^9}}, FontFamily->"Helvetica Neue"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["D", "helmholtz"], "=", RowBox[{ RowBox[{ RowBox[{"Quantity", "[", RowBox[{"147", ",", "\"\\""}], "]"}], "//", "N"}], "//", "UnitConvert"}]}]], "Input", CellChangeTimes->{{3.5762360573454075`*^9, 3.576236097640278*^9}, { 3.5762644406626663`*^9, 3.576264441126438*^9}}], Cell[BoxData[ TemplateBox[{"0.147`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"m\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Meters\""}], "]"}]& )]], "Output", CellChangeTimes->{{3.5762360737566366`*^9, 3.576236098045879*^9}, 3.576260311082716*^9, 3.576261217144298*^9, 3.5762644417052526`*^9}] }, Open ]], Cell["Windungszahl der Helmholtzspulen", "Text", CellChangeTimes->{{3.5762360814474497`*^9, 3.576236089013463*^9}}, FontFamily->"Helvetica Neue"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["N", "helmholtz"], "=", "124"}]], "Input", CellChangeTimes->{{3.5762360920398684`*^9, 3.5762361098862996`*^9}}], Cell[BoxData["124"], "Output", CellChangeTimes->{3.5762361107443013`*^9, 3.576260311132917*^9, 3.576261217194059*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Messung", "Subsection", CellChangeTimes->{{3.5762326725524483`*^9, 3.5762326783556585`*^9}}], Cell["Messung des Spulenwiderstandes", "Text", CellChangeTimes->{{3.5757096120927744`*^9, 3.5757096338600197`*^9}}, FontFamily->"Helvetica Neue"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["R", "Spule"], ",", SubscriptBox["\[CapitalDelta]R", "Spule"]}], "}"}], "=", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"2.3", ",", "0.1"}], "}"}], ",", "\"\\""}], "]"}]}], ";", " ", RowBox[{ SubscriptBox["R", "Spule"], "\[PlusMinus]", SubscriptBox["\[CapitalDelta]R", "Spule"]}]}]], "Input", CellChangeTimes->{{3.5757096406304064`*^9, 3.575709678022545*^9}, { 3.575709717946829*^9, 3.575709753565866*^9}, {3.5757098568767753`*^9, 3.5757098781099896`*^9}}], Cell[BoxData[ RowBox[{ TemplateBox[{"2.3`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"\[CapitalOmega]\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: ohms"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Ohms\""}], "]"}]& )], "\[PlusMinus]", TemplateBox[{"0.1`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"\[CapitalOmega]\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: ohms"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Ohms\""}], "]"}]& )]}]], "Output", CellChangeTimes->{3.575709762305366*^9, 3.5757098796320767`*^9, 3.576233081596179*^9, 3.576233502448118*^9, 3.576260311183338*^9, 3.576261217244646*^9}] }, Open ]], Cell["\<\ Der maximale Strom darf 5 A nicht \[UDoubleDot]berschreiten. Also: \ \>", "Text", CellChangeTimes->{{3.5757099089807553`*^9, 3.575709933132137*^9}}, FontFamily->"Helvetica Neue"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["I", "max"], "=", RowBox[{"Quantity", "[", RowBox[{"5", ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.57570994089058*^9, 3.5757099596116514`*^9}}], Cell[BoxData[ TemplateBox[{"5"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )]], "Output", CellChangeTimes->{3.575709961618766*^9, 3.576233081720979*^9, 3.576233502463718*^9, 3.576260311233007*^9, 3.57626121729552*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["U", "max"], ",", SubscriptBox["\[CapitalDelta]U", "max"]}], "}"}], "=", RowBox[{"UnitConvert", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["R", "Spule"], ",", SubscriptBox["\[CapitalDelta]R", "Spule"]}], "}"}], "*", SubscriptBox["I", "max"]}], ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.5757100259324446`*^9, 3.5757101466433487`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"11.5`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.5`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{{3.5757100777584085`*^9, 3.5757101473883915`*^9}, 3.57623308209538*^9, 3.5762335026509185`*^9, 3.576260311416362*^9, 3.5762612174823093`*^9}] }, Open ]], Cell["\<\ Also stellen wir nicht mehr als 11 Volt ein. Wir messen die Scheitelspannung in Abh\[ADoubleDot]ngigkeit von der \ Drehfrequenz.\ \>", "Text", CellChangeTimes->{{3.5757101724238234`*^9, 3.5757101789821987`*^9}, { 3.575710695907765*^9, 3.575710696440796*^9}, {3.575711446668706*^9, 3.5757114657978*^9}, {3.575711941543011*^9, 3.5757120066717367`*^9}}, FontFamily->"Helvetica Neue"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["U", "real"], ",", SubscriptBox["\[CapitalDelta]U", "real"]}], "}"}], "=", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"11.8", ",", "0.1"}], "}"}], ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.57571200988192*^9, 3.5757120730015306`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"11.8`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.1`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.5757120737965755`*^9, 3.57623308214218*^9, 3.5762335026821184`*^9, 3.5762603114715767`*^9, 3.576261217582018*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["I", "real"], ",", SubscriptBox["\[CapitalDelta]I", "real"]}], "}"}], "=", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"4.6", ",", "0.1"}], "}"}], ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.5757120761517105`*^9, 3.575712127212631*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"4.6`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )], ",", TemplateBox[{"0.1`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.5757121284987044`*^9, 3.57623308217338*^9, 3.5762335027289186`*^9, 3.576260311514957*^9, 3.576261217629167*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["data", "1"], "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"3", ",", ".2"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"2.24", ",", "0.03"}], "}"}], ",", "\"\\""}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"6.1", ",", ".2"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"4.82", ",", "0.05"}], "}"}], ",", "\"\\""}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"9.1", ",", ".2"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"7.2", ",", "0.2"}], "}"}], ",", "\"\\""}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"11.9", ",", ".1"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"9.6", ",", "0.1"}], "}"}], ",", "\"\\""}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"14.9", ",", ".1"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"11.9", ",", "0.2"}], "}"}], ",", "\"\\""}], "]"}]}]}], "}"}]}], "\[IndentingNewLine]", "}"}]}]], "Input", CellChangeTimes->{{3.575711471548129*^9, 3.575711572691914*^9}, { 3.5757116523374696`*^9, 3.5757116537715516`*^9}, {3.5757117544903126`*^9, 3.575711803439112*^9}, {3.575711886004835*^9, 3.5757119168175974`*^9}, { 3.5757121337420044`*^9, 3.5757121551282277`*^9}, 3.5757121873780723`*^9, { 3.5757122398820753`*^9, 3.575712284254613*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"3"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Hz\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Hertz\""}], "]"}]& )], ",", TemplateBox[{"0.2`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Hz\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Hertz\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"1.12`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.015`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"6.1`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Hz\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Hertz\""}], "]"}]& )], ",", TemplateBox[{"0.2`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Hz\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Hertz\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"2.41`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.025`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"9.1`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Hz\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Hertz\""}], "]"}]& )], ",", TemplateBox[{"0.2`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Hz\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Hertz\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"3.6`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.1`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"11.9`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Hz\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Hertz\""}], "]"}]& )], ",", TemplateBox[{"0.1`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Hz\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Hertz\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"4.8`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.05`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"14.9`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Hz\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Hertz\""}], "]"}]& )], ",", TemplateBox[{"0.1`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Hz\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Hertz\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"5.95`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.1`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.5757122803263884`*^9, 3.575712285662694*^9}, 3.5762330823605804`*^9, 3.5762335029161186`*^9, 3.576260311707779*^9, 3.576261218034688*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["f", "2"], "=", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"10", ",", ".2"}], "}"}], ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.575712354694642*^9, 3.575712397420086*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"10"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Hz\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Hertz\""}], "]"}]& )], ",", TemplateBox[{"0.2`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Hz\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Hertz\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.5757123985641513`*^9, 3.57623308240738*^9, 3.576233503009719*^9, 3.5762603117551403`*^9, 3.57626121822408*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["data", "2"], "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{".5", ",", ".1"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"1.05", ",", "0.05"}], "}"}], ",", "\"\\""}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", ".1"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"1.89", ",", ".03"}], "}"}], ",", "\"\\""}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"1.5", ",", ".1"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"2.75", ",", "0.05"}], "}"}], ",", "\"\\""}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"2", ",", ".1"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"3.45", ",", "0.05"}], "}"}], ",", "\"\\""}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"2.5", ",", ".1"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"4.38", ",", "0.03"}], "}"}], ",", "\"\\""}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"3", ",", ".1"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"5.15", ",", "0.05"}], "}"}], ",", "\"\\""}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"3.5", ",", ".1"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"5.9", ",", "0.05"}], "}"}], ",", "\"\\""}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", ".1"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"6.65", ",", "0.05"}], "}"}], ",", "\"\\""}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"4.5", ",", ".1"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"7.78", ",", "0.04"}], "}"}], ",", "\"\\""}], "]"}]}]}], "}"}]}], "\[IndentingNewLine]", "}"}]}]], "Input", CellChangeTimes->{{3.5757124750715275`*^9, 3.57571250938549*^9}, { 3.575712544284486*^9, 3.5757128453767076`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"0.5`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )], ",", TemplateBox[{"0.1`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"0.525`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.025`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"1"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )], ",", TemplateBox[{"0.1`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"0.945`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.015`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"1.5`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )], ",", TemplateBox[{"0.1`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"1.375`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.025`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"2"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )], ",", TemplateBox[{"0.1`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"1.725`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.025`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"2.5`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )], ",", TemplateBox[{"0.1`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"2.19`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.015`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"3"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )], ",", TemplateBox[{"0.1`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"2.575`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.025`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"3.5`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )], ",", TemplateBox[{"0.1`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"2.95`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.025`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"4"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )], ",", TemplateBox[{"0.1`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"3.325`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.025`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"4.5`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )], ",", TemplateBox[{"0.1`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"3.89`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.02`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.5757128495989494`*^9, 3.5762330827505813`*^9, 3.5762335033529196`*^9, 3.5762603121402407`*^9, 3.576261218575694*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Auswertung", "Subsection", CellChangeTimes->{{3.576232699930496*^9, 3.576232718666129*^9}}], Cell["\<\ Zun\[ADoubleDot]chst bringen wir die gemessenen Daten in ein Format, mit dem \ wir die computergest\[UDoubleDot]tzte Auswertung vornehmen k\[ODoubleDot]nnen:\ \>", "Text", CellChangeTimes->{{3.5762351310293803`*^9, 3.5762351503890142`*^9}}, FontFamily->"Helvetica Neue"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["freqs", "1"], "=", RowBox[{ RowBox[{ RowBox[{"Transpose", "[", SubscriptBox["data", "1"], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "All", ",", "1"}], "]"}], "]"}], "//", "QuantityMagnitude"}]}], ";"}]], "Input", CellChangeTimes->{{3.576233064741349*^9, 3.5762330710817604`*^9}, { 3.5762331222030506`*^9, 3.576233213852011*^9}, {3.5762335214333515`*^9, 3.57623352622256*^9}, 3.576260571123919*^9}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["\[CapitalDelta]freqs", "1"], "=", RowBox[{ RowBox[{ RowBox[{"Transpose", "[", SubscriptBox["data", "1"], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "All", ",", "2"}], "]"}], "]"}], "//", "QuantityMagnitude"}]}], ";"}]], "Input", CellChangeTimes->{{3.5762332312460413`*^9, 3.5762332391396556`*^9}, { 3.576233530372167*^9, 3.5762335328369713`*^9}, 3.576260572987237*^9}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["voltages", "1"], "=", RowBox[{ RowBox[{ RowBox[{"Transpose", "[", SubscriptBox["data", "1"], "]"}], "[", RowBox[{"[", RowBox[{"2", ",", "All", ",", "1"}], "]"}], "]"}], "//", "QuantityMagnitude"}]}], ";"}]], "Input", CellChangeTimes->{{3.576233244506065*^9, 3.5762332633196983`*^9}, { 3.576233536846178*^9, 3.5762335390145826`*^9}, 3.5762605745306177`*^9}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["\[CapitalDelta]voltages", "1"], "=", RowBox[{ RowBox[{ RowBox[{"Transpose", "[", SubscriptBox["data", "1"], "]"}], "[", RowBox[{"[", RowBox[{"2", ",", "All", ",", "2"}], "]"}], "]"}], "//", "QuantityMagnitude"}]}], ";"}]], "Input", CellChangeTimes->{{3.576233244506065*^9, 3.5762332762677207`*^9}, { 3.5762335422125883`*^9, 3.576233545036193*^9}, 3.5762605760514708`*^9}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["data2", "1"], "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["freqs", "1"], "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{ SubscriptBox["voltages", "1"], "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"ErrorBar", "[", RowBox[{ RowBox[{ SubscriptBox["\[CapitalDelta]freqs", "1"], "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{ SubscriptBox["\[CapitalDelta]voltages", "1"], "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", SubscriptBox["freqs", "1"], "]"}]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.576233591992275*^9, 3.5762336045502977`*^9}, 3.576260578244528*^9}], Cell["\<\ Wir f\[UDoubleDot]hren einen linearen Fit durch, der mit den Inversen der Me\ \[SZ]fehler gewichtet wird.\ \>", "Text", CellChangeTimes->{{3.5762351599986315`*^9, 3.576235181136668*^9}}, FontFamily->"Helvetica Neue"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["plot", "freqs"], "=", RowBox[{"ErrorListPlot", "[", RowBox[{ SubscriptBox["data2", "1"], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "6"}], "}"}]}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5762332927413497`*^9, 3.5762334133563614`*^9}, { 3.576233612334711*^9, 3.57623364585917*^9}, {3.5762343948454857`*^9, 3.5762344006798964`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["fit", "freqs"], "=", RowBox[{"LinearModelFit", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ SubscriptBox["freqs", "1"], ",", SubscriptBox["voltages", "1"]}], "}"}], "]"}], ",", "x", ",", "x", ",", RowBox[{"VarianceEstimatorFunction", "\[Rule]", RowBox[{"(", RowBox[{"1", "&"}], ")"}]}], ",", RowBox[{"Weights", "\[Rule]", RowBox[{"1", "/", RowBox[{"(", RowBox[{ SuperscriptBox[ SubscriptBox["\[CapitalDelta]freqs", "1"], "2"], "+", SuperscriptBox[ SubscriptBox["\[CapitalDelta]voltages", "1"], "2"]}], ")"}]}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5762340445656705`*^9, 3.5762341573606687`*^9}, { 3.5762342117911644`*^9, 3.5762343404929905`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"FittedModel", "[", TagBox[ PanelBox[ TagBox[ RowBox[{ RowBox[{"-", "0.07913110460142826`"}], "+", RowBox[{"0.40710994997165456`", " ", "x"}]}], Short], FrameMargins->5], Editable -> False], "]"}], InterpretTemplate[ FittedModel[{ "Linear", {-0.07913110460142826, 0.40710994997165456`}, {{$CellContext`x}, {1, $CellContext`x}}, {0, 0}}, {{24.860161591050336`, 24.61538461538461, 19.999999999999996`, 79.99999999999999, 49.99999999999999}}, {{3, 1.12}, {6.1, 2.41}, {9.1, 3.6}, {11.9, 4.8}, { 14.9, 5.95}}, {{1., 3.}, {1., 6.1}, {1., 9.1}, {1., 11.9}, {1., 14.9}}, Function[Null, Internal`LocalizedBlock[{$CellContext`x}, #], {HoldAll}], VarianceEstimatorFunction -> (1& )]& ], Editable->False, SelectWithContents->True, Selectable->True]], "Output", CellChangeTimes->{{3.5762343411325912`*^9, 3.5762343567034187`*^9}, 3.576260313926319*^9, 3.576261218830846*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ SubscriptBox["plot", "freqs"], ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{ SubscriptBox["fit", "freqs"], "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "16"}], "}"}]}], "]"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{ "PlotLabel", "\[Rule]", "\"\\""}], ",", RowBox[{"ImageSize", "\[Rule]", "Full"}]}], "]"}]], "Input", CellChangeTimes->{{3.5762343581542215`*^9, 3.576234410164713*^9}, { 3.5762351910270853`*^9, 3.576235282302846*^9}}], Cell[BoxData[ GraphicsBox[{{{}, {{}, {RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[{{3., 1.12}, {6.1, 2.41}, {9.1, 3.6}, {11.9, 4.8}, {14.9, 5.95}}], {{LineBox[{{3.2, 1.12}, {2.8, 1.12}}], LineBox[{ Offset[{0, 1.5}, {3.2, 1.12}], Offset[{0, -1.5}, {3.2, 1.12}]}], LineBox[{ Offset[{0, 1.5}, {2.8, 1.12}], Offset[{0, -1.5}, {2.8, 1.12}]}], LineBox[{{3., 1.135}, {3., 1.1050000000000002`}}], LineBox[{ Offset[{1.5, 0}, {3., 1.135}], Offset[{-1.5, 0}, {3., 1.135}]}], LineBox[{ Offset[{1.5, 0}, {3., 1.1050000000000002`}], Offset[{-1.5, 0}, {3., 1.1050000000000002`}]}]}, { LineBox[{{6.3, 2.41}, {5.8999999999999995`, 2.41}}], LineBox[{ Offset[{0, 1.5}, {6.3, 2.41}], Offset[{0, -1.5}, {6.3, 2.41}]}], LineBox[{ Offset[{0, 1.5}, {5.8999999999999995`, 2.41}], Offset[{0, -1.5}, {5.8999999999999995`, 2.41}]}], LineBox[{{6.1, 2.435}, {6.1, 2.3850000000000002`}}], LineBox[{ Offset[{1.5, 0}, {6.1, 2.435}], Offset[{-1.5, 0}, {6.1, 2.435}]}], LineBox[{ Offset[{1.5, 0}, {6.1, 2.3850000000000002`}], Offset[{-1.5, 0}, {6.1, 2.3850000000000002`}]}]}, { LineBox[{{9.299999999999999, 3.6}, {8.9, 3.6}}], LineBox[{ Offset[{0, 1.5}, {9.299999999999999, 3.6}], Offset[{0, -1.5}, {9.299999999999999, 3.6}]}], LineBox[{ Offset[{0, 1.5}, {8.9, 3.6}], Offset[{0, -1.5}, {8.9, 3.6}]}], LineBox[{{9.1, 3.7}, {9.1, 3.5}}], LineBox[{ Offset[{1.5, 0}, {9.1, 3.7}], Offset[{-1.5, 0}, {9.1, 3.7}]}], LineBox[{ Offset[{1.5, 0}, {9.1, 3.5}], Offset[{-1.5, 0}, {9.1, 3.5}]}]}, { LineBox[{{12., 4.8}, {11.8, 4.8}}], LineBox[{ Offset[{0, 1.5}, {12., 4.8}], Offset[{0, -1.5}, {12., 4.8}]}], LineBox[{ Offset[{0, 1.5}, {11.8, 4.8}], Offset[{0, -1.5}, {11.8, 4.8}]}], LineBox[{{11.9, 4.85}, {11.9, 4.75}}], LineBox[{ Offset[{1.5, 0}, {11.9, 4.85}], Offset[{-1.5, 0}, {11.9, 4.85}]}], LineBox[{ Offset[{1.5, 0}, {11.9, 4.75}], Offset[{-1.5, 0}, {11.9, 4.75}]}]}, { LineBox[{{15., 5.95}, {14.8, 5.95}}], LineBox[{ Offset[{0, 1.5}, {15., 5.95}], Offset[{0, -1.5}, {15., 5.95}]}], LineBox[{ Offset[{0, 1.5}, {14.8, 5.95}], Offset[{0, -1.5}, {14.8, 5.95}]}], LineBox[{{14.9, 6.05}, {14.9, 5.8500000000000005`}}], LineBox[{ Offset[{1.5, 0}, {14.9, 6.05}], Offset[{-1.5, 0}, {14.9, 6.05}]}], LineBox[{ Offset[{1.5, 0}, {14.9, 5.8500000000000005`}], Offset[{-1.5, 0}, {14.9, 5.8500000000000005`}]}]}}}, {}}, {}}, {{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVxXk41GkAB3DGiFLG1fA60sg5jp8nUkm9X2URUVQrHZJFOZNapc1m9nFU sjxlRc5io+RqsB5G08pmE0lI7SNK1hGS1hGK3f3j83x4Psfd/VgSEhIu//l/ J7+htgfDv2xhVwQcHbOtELO3qYf1klNUJBlcKCEWii1y0jKFJIZ+vzN0WNlG KHZu6bqXRVLo4PvwIGure2IP35m6KySfNvHOHY/nl4lfM/HbEkkF1dbWGt+q XyjOXbkz7hJpoC/3ZWy+q5MkFsgKDS6SDnq9Vros5lMh3ed5o/TjRD/VTXec zp1rpHKLgoMOq8Zpg9+VlLZvOqie24ehhwmTdEtBjk6Nbzc9/XQjTZucpeV3 59xH0vuoaoVij6TkIm1pbDKzrhqgVX3bmlttWIAGlc7jj9D6wCwNz1E2OlhS qfTSOJ3S38wpDpGBNTfC27V1grJmixQ09JbBstHmn4vSk9Rq0btqd8lyWBBu ux53mjbHWD59xOfAbp1q8gHNz1Q7eWT29gcFCEICnbJd5+jITG9Pp7kS6u2f udke+ELz39c2yf+sDMbmwrcTVxeovFbBeH+/Cl58tcjUOiKBywGV/rm6XKiZ FQvD/SQxjaL+Y+dVERrcuv3peRZOrW2o4D5Ug+P82SX746XQW9KQ0MZTh1Va q+1oPhvzgR0ZRmc1YKZeHeRcJw1jW5kF/1pNFI4aif6qXwKHm7yj5aqrsL7F LiGsRwantQ7rvD2oje0LQ9FWg7IwGd0r1+WyGr4qPL/H75dCmfNRtmFuNVI2 sP70YcuBLc4oXZPJg0NxsJuJ3HIEWda+WuqsA455tOcXgxUo2u6Te39aB2+u GexKp/KYGlFXGEhdA8td+0L87Tio3O0glWKnC1e5dHYWo4DzjrE5FQO6aEht +jtbqADea6eXebF6uK9iv0VmnSKs18ekkLX6eEi4L8J/V8TBVa2zku36kG3k CyLslDDVlNgXJjCA5/zVoKjnSkhje51y1zXESJdtgKaHMpR7Km+yGgwhWbCx h/dKGdJRgj0bTxhhzdfYK3x/FUjc9irtU+IjZp67/8mwCsKvlyYq1fMxEf3F +/iZlagzviCrGGqMd5+NeyPZXCg6hZv8JG8CLskN04znotv0WXukyAS7Hxyz rVdRRVk21e33MkUbJ0JPIl0Vh0qtFLUWTNHh1hKdr66G6Ngbgu47ZnirHqmx o0ANxUNaGfI7GJhfDnicwCe4kBXr3ePKYLPSby86TQh83cf0StwYOKex+7UZ Ak2RqMzFg4F/fs6C0ILgUtKBR5d9GGSIOi26bQiOWaVPLItksGTMNttkJ4FO jIqjzC0G3S7qJ1tOEixsOLeiq5DBcPvRaNUIgldj757fKmIw7VmZeOQMQbKH 8JB9OQMF/12FU+cIFvnuJ2NFDOx/jHutFUfQ3ZaULdXOoLzkk0NoGkF13Mx3 7Z0MxJbYW32dIGXTYaO8lwyaaxJ9WFkEzr+aVWztYTD4yDAq9QZBzZmWx4Jh Bpq9Xvfu3yFINV2X5DbKgO93VyxbTHCiL3MPb5zB+pHZZvdSAsMdwb0PJhm4 zaQMDggJ2JId+ckzDA5H9U2aVxG8qdwU6D3HIETKnPVDNYEoMI8x/8rg7MUo zh81BNe05aYWFxnEc55ocuoI/gVWHhk7 "]]}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["\"f [Hz]\"", TraditionalForm], FormBox["\"U [V]\"", TraditionalForm]}, AxesOrigin->{0, 0}, ImageSize->Full, Method->{}, PlotLabel->FormBox[ "\"Abbildung 1.1: Gemessene Induktionsspannung als Funktion der \ Drehfrequenz\"", TraditionalForm], PlotRange->{{0, 16}, {0, 6}}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.5762343807586613`*^9, 3.5762344106951137`*^9}, 3.5762352143179264`*^9, {3.5762352720068283`*^9, 3.5762352827240467`*^9}, 3.576260314111472*^9, 3.57626121888207*^9}] }, Open ]], Cell["Die Steigung ergibt sich aus dem Fit mit Fehler als:", "Text", CellChangeTimes->{{3.576235798728153*^9, 3.576235807167768*^9}, { 3.5762605957678537`*^9, 3.576260596039609*^9}}, FontFamily->"Helvetica Neue"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["m", "freqs"], ",", SubscriptBox["\[CapitalDelta]m", "freqs"]}], "}"}], "=", RowBox[{"Quantity", "[", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["fit", "freqs"], "[", "\"\\"", "]"}], "[", RowBox[{"[", RowBox[{"2", ",", RowBox[{"1", ";;", "2"}]}], "]"}], "]"}], ",", RowBox[{"\"\\"", "/", "\"\\""}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5762347491335087`*^9, 3.576234826715646*^9}, { 3.5762349132509975`*^9, 3.5762350329832077`*^9}, {3.57623507369928*^9, 3.576235079923691*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"0.40710994997165456`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"V\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"Hz\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts per hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Volts\"", "\"Hertz\""]}], "]"}]& )], ",", TemplateBox[{"0.018141353148629497`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"V\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"Hz\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts per hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Volts\"", "\"Hertz\""]}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.576235080859692*^9, 3.576260314276379*^9, 3.57626121905317*^9}] }, Open ]], Cell["\<\ Hieraus k\[ODoubleDot]nnen wir einen Me\[SZ]wert f\[UDoubleDot]r das \ Magnetfeld B der Helmholtzspule ermitteln (vgl. Einleitung):\ \>", "Text", CellChangeTimes->{{3.5762358102409735`*^9, 3.5762358399122257`*^9}, { 3.57623612715553*^9, 3.576236134128742*^9}}, FontFamily->"Helvetica Neue"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["B", "helmholtz"], ",", SubscriptBox["\[CapitalDelta]B", "helmholtz"]}], "}"}], "=", RowBox[{ FractionBox[ RowBox[{"{", RowBox[{ SubscriptBox["m", "freqs"], ",", SubscriptBox["\[CapitalDelta]m", "freqs"]}], "}"}], RowBox[{"2", "\[Pi]", " ", SubscriptBox["A", "ind"], SubscriptBox["N", "ind"]}]], "//", RowBox[{ RowBox[{"UnitConvert", "[", RowBox[{"#1", ",", "\"\\""}], "]"}], "&"}]}]}], ";", RowBox[{ RowBox[{"NumberForm", "[", RowBox[{ SubscriptBox["B", "helmholtz"], ",", "2"}], "]"}], "\[PlusMinus]", RowBox[{"NumberForm", "[", RowBox[{ SubscriptBox["\[CapitalDelta]B", "helmholtz"], ",", "1"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.5762361381847496`*^9, 3.5762361478587666`*^9}, { 3.5762362683065777`*^9, 3.57623651411621*^9}}], Cell[BoxData[ RowBox[{ TagBox[ TemplateBox[{ InterpretationBox["\"3.9\"", 3.8845060503527002`, AutoDelete -> True]}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mT\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: milliteslas"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Milliteslas\""}], "]"}]& )], NumberForm[#, 2]& ], "\[PlusMinus]", TagBox[ TemplateBox[{ InterpretationBox["\"0.2\"", 0.1730986827326201, AutoDelete -> True]}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mT\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: milliteslas"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Milliteslas\""}], "]"}]& )], NumberForm[#, 1]& ]}]], "Output", CellChangeTimes->{{3.5762364040424166`*^9, 3.5762364689853306`*^9}, 3.576236515239412*^9, 3.576260314682334*^9, 3.57626121948632*^9}] }, Open ]], Cell["\<\ Wir vergleichen diesen Wert mit der theoretisch zu erwartenden Feldst\ \[ADoubleDot]rke der Helmholtzspulen:\ \>", "Text", CellChangeTimes->{{3.5762365253482294`*^9, 3.5762365268926325`*^9}, { 3.576236559059889*^9, 3.5762365653310995`*^9}, {3.5762366311884155`*^9, 3.5762366425452356`*^9}}, FontFamily->"Helvetica Neue"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["B", RowBox[{"helmholtz", ",", "theor"}]], ",", SubscriptBox["\[CapitalDelta]B", RowBox[{"helmholtz", ",", "theor"}]]}], "}"}], "=", RowBox[{ RowBox[{ FractionBox[ RowBox[{"Quantity", "[", "\"\\"", "]"}], "2"], FractionBox[ RowBox[{"8", " ", RowBox[{"{", RowBox[{ SubscriptBox["I", "real"], ",", SubscriptBox["\[CapitalDelta]I", "real"]}], "}"}], " ", RowBox[{"(", RowBox[{ SubscriptBox["N", "helmholtz"], "+", SubscriptBox["N", "helmholtz"]}], ")"}]}], RowBox[{ SqrtBox["125"], SubscriptBox["R", "helmholtz"]}]]}], "//", RowBox[{ RowBox[{"UnitConvert", "[", RowBox[{"#", ",", "\"\\""}], "]"}], "&"}]}]}], ";", RowBox[{ RowBox[{"NumberForm", "[", RowBox[{ SubscriptBox["B", RowBox[{"helmholtz", ",", "theor"}]], ",", "3"}], "]"}], "\[PlusMinus]", RowBox[{"NumberForm", "[", RowBox[{ SubscriptBox["\[CapitalDelta]B", RowBox[{"helmholtz", ",", "theor"}]], ",", "1"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.5762366458368416`*^9, 3.576236659112465*^9}, { 3.576236790188696*^9, 3.5762368806826553`*^9}, {3.5762369116995106`*^9, 3.5762370333953247`*^9}}], Cell[BoxData[ RowBox[{ TagBox[ TemplateBox[{ InterpretationBox["\"3.48\"", 3.4772213782438013`, AutoDelete -> True]}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mT\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: milliteslas"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Milliteslas\""}], "]"}]& )], NumberForm[#, 3]& ], "\[PlusMinus]", TagBox[ TemplateBox[{ InterpretationBox["\"0.08\"", 0.07559176909225657, AutoDelete -> True]}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mT\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: milliteslas"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Milliteslas\""}], "]"}]& )], NumberForm[#, 1]& ]}]], "Output", CellChangeTimes->{ 3.5762368312943687`*^9, {3.5762369758936234`*^9, 3.5762369974996614`*^9}, { 3.5762370293705173`*^9, 3.5762370341129255`*^9}, 3.576260315192095*^9, 3.576261219922449*^9}] }, Open ]], Cell["\<\ F\[UDoubleDot]r eine Einordnung und einen Vergleich dieser beiden Werte vgl. \ die Diskussion unten. (Handschriftlich)\ \>", "Text", CellChangeTimes->{{3.5762384306689796`*^9, 3.5762384712758512`*^9}}, FontFamily->"Helvetica Neue"], Cell["\<\ Dieselben Schritte bis zur Erstellung der Graphik und des Fits \ f\[UDoubleDot]hren wir auch f\[UDoubleDot]r die Me\[SZ]daten aus der zweiten \ Me\[SZ]reihe, wo wir die Spannung in Abh\[ADoubleDot]ngigkeit der Stromst\ \[ADoubleDot]rke in der Helmholtzspule, also effektiv als Funktion der \ \[ADoubleDot]u\[SZ]eren Magnetfeldst\[ADoubleDot]rke ermittelt haben.\ \>", "Text", CellChangeTimes->{ 3.576235320600913*^9, {3.576235368336997*^9, 3.57623538159702*^9}, { 3.5762354185846853`*^9, 3.5762354270555005`*^9}, {3.5762354738087826`*^9, 3.5762355062568398`*^9}}, FontFamily->"Helvetica Neue"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["currents", "2"], "=", RowBox[{ RowBox[{ RowBox[{"Transpose", "[", SubscriptBox["data", "2"], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "All", ",", "1"}], "]"}], "]"}], "//", "QuantityMagnitude"}]}], ";"}]], "Input", CellChangeTimes->{{3.576233064741349*^9, 3.5762330710817604`*^9}, { 3.5762331222030506`*^9, 3.576233213852011*^9}, {3.5762335214333515`*^9, 3.57623352622256*^9}, {3.5762336804756308`*^9, 3.576233697744861*^9}, 3.5762608272186413`*^9}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["\[CapitalDelta]currents", "2"], "=", RowBox[{ RowBox[{ RowBox[{"Transpose", "[", SubscriptBox["data", "2"], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "All", ",", "2"}], "]"}], "]"}], "//", "QuantityMagnitude"}]}], ";"}]], "Input", CellChangeTimes->{{3.5762332312460413`*^9, 3.5762332391396556`*^9}, { 3.576233530372167*^9, 3.5762335328369713`*^9}, {3.576233706278076*^9, 3.5762337109112844`*^9}, {3.576260829011112*^9, 3.57626083057865*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["voltages", "2"], "=", RowBox[{ RowBox[{ RowBox[{"Transpose", "[", SubscriptBox["data", "2"], "]"}], "[", RowBox[{"[", RowBox[{"2", ",", "All", ",", "1"}], "]"}], "]"}], "//", "QuantityMagnitude"}]}], ";"}]], "Input", CellChangeTimes->{{3.576233244506065*^9, 3.5762332633196983`*^9}, { 3.576233536846178*^9, 3.5762335390145826`*^9}, {3.5762337243273077`*^9, 3.576233726090111*^9}, 3.5762608319063997`*^9}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["\[CapitalDelta]voltages", "2"], "=", RowBox[{ RowBox[{ RowBox[{"Transpose", "[", SubscriptBox["data", "2"], "]"}], "[", RowBox[{"[", RowBox[{"2", ",", "All", ",", "2"}], "]"}], "]"}], "//", "QuantityMagnitude"}]}], ";"}]], "Input", CellChangeTimes->{{3.576233244506065*^9, 3.5762332762677207`*^9}, { 3.5762335422125883`*^9, 3.576233545036193*^9}, {3.5762337289137163`*^9, 3.576233732766923*^9}, 3.576260833097728*^9}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["data2", "2"], "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["currents", "2"], "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{ SubscriptBox["voltages", "2"], "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"ErrorBar", "[", RowBox[{ RowBox[{ SubscriptBox["\[CapitalDelta]currents", "2"], "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{ SubscriptBox["\[CapitalDelta]currents", "2"], "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", SubscriptBox["currents", "2"], "]"}]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.576233591992275*^9, 3.5762336045502977`*^9}, { 3.5762337360273285`*^9, 3.5762337719385915`*^9}, 3.576260834722728*^9}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["plot", "currents"], "=", RowBox[{"ErrorListPlot", "[", RowBox[{ SubscriptBox["data2", "2"], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "4.2"}], "}"}]}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5762332927413497`*^9, 3.5762334133563614`*^9}, { 3.576233612334711*^9, 3.57623364585917*^9}, {3.576233777866602*^9, 3.5762338213126783`*^9}, {3.5762344276523438`*^9, 3.576234445529975*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["fit", "currents"], "=", RowBox[{"LinearModelFit", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ SubscriptBox["currents", "2"], ",", SubscriptBox["voltages", "2"]}], "}"}], "]"}], ",", "x", ",", "x", ",", RowBox[{"VarianceEstimatorFunction", "\[Rule]", RowBox[{"(", RowBox[{"1", "&"}], ")"}]}], ",", RowBox[{"Weights", "\[Rule]", RowBox[{"1", "/", RowBox[{"(", RowBox[{ SuperscriptBox[ SubscriptBox["\[CapitalDelta]currents", "2"], "2"], "+", SuperscriptBox[ SubscriptBox["\[CapitalDelta]voltages", "2"], "2"]}], ")"}]}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5762340445656705`*^9, 3.5762341573606687`*^9}, { 3.5762342117911644`*^9, 3.5762343404929905`*^9}, {3.5762344367627597`*^9, 3.5762344639692073`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"FittedModel", "[", TagBox[ PanelBox[ TagBox[ RowBox[{"0.1164869341551376`", "\[VeryThinSpace]", "+", RowBox[{"0.8202057343659704`", " ", "x"}]}], Short], FrameMargins->5], Editable -> False], "]"}], InterpretTemplate[ FittedModel[{ "Linear", {0.1164869341551376, 0.8202057343659704}, {{$CellContext`x}, {1, $CellContext`x}}, {0, 0}}, {{ 94.11764705882351, 97.79951100244497, 94.11764705882351, 94.11764705882351, 97.79951100244497, 94.11764705882351, 94.11764705882351, 94.11764705882351, 96.15384615384615}}, {{0.5, 0.525}, {1, 0.945}, {1.5, 1.375}, { 2, 1.725}, {2.5, 2.19}, {3, 2.575}, {3.5, 2.95}, {4, 3.325}, {4.5, 3.89}}, {{1., 0.5}, {1., 1.}, {1., 1.5}, {1., 2.}, {1., 2.5}, {1., 3.}, { 1., 3.5}, {1., 4.}, {1., 4.5}}, Function[Null, Internal`LocalizedBlock[{$CellContext`x}, #], {HoldAll}], VarianceEstimatorFunction -> (1& )]& ], Editable->False, SelectWithContents->True, Selectable->True]], "Output", CellChangeTimes->{{3.5762343411325912`*^9, 3.5762343567034187`*^9}, 3.5762344647180085`*^9, 3.57626031552736*^9, 3.576261220211413*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ SubscriptBox["plot", "currents"], ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{ SubscriptBox["fit", "currents"], "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "5"}], "}"}]}], "]"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{ "PlotLabel", "\[Rule]", "\"\\""}], ",", RowBox[{"ImageSize", "\[Rule]", "Full"}]}], "]"}]], "Input", CellChangeTimes->{{3.5762343581542215`*^9, 3.576234410164713*^9}, { 3.576234468165615*^9, 3.576234474764426*^9}, {3.5762400089037437`*^9, 3.5762400617254367`*^9}}], Cell[BoxData[ GraphicsBox[{{{}, {{}, {RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[{{0.5, 0.525}, {1., 0.945}, {1.5, 1.375}, {2., 1.725}, {2.5, 2.19}, {3., 2.575}, {3.5, 2.95}, {4., 3.325}, {4.5, 3.89}}], {{LineBox[{{0.6, 0.525}, {0.4, 0.525}}], LineBox[{ Offset[{0, 1.5}, {0.6, 0.525}], Offset[{0, -1.5}, {0.6, 0.525}]}], LineBox[{ Offset[{0, 1.5}, {0.4, 0.525}], Offset[{0, -1.5}, {0.4, 0.525}]}], LineBox[{{0.5, 0.625}, {0.5, 0.42500000000000004`}}], LineBox[{ Offset[{1.5, 0}, {0.5, 0.625}], Offset[{-1.5, 0}, {0.5, 0.625}]}], LineBox[{ Offset[{1.5, 0}, {0.5, 0.42500000000000004`}], Offset[{-1.5, 0}, {0.5, 0.42500000000000004`}]}]}, { LineBox[{{1.1, 0.945}, {0.9, 0.945}}], LineBox[{ Offset[{0, 1.5}, {1.1, 0.945}], Offset[{0, -1.5}, {1.1, 0.945}]}], LineBox[{ Offset[{0, 1.5}, {0.9, 0.945}], Offset[{0, -1.5}, {0.9, 0.945}]}], LineBox[{{1., 1.045}, {1., 0.845}}], LineBox[{ Offset[{1.5, 0}, {1., 1.045}], Offset[{-1.5, 0}, {1., 1.045}]}], LineBox[{ Offset[{1.5, 0}, {1., 0.845}], Offset[{-1.5, 0}, {1., 0.845}]}]}, { LineBox[{{1.6, 1.375}, {1.4, 1.375}}], LineBox[{ Offset[{0, 1.5}, {1.6, 1.375}], Offset[{0, -1.5}, {1.6, 1.375}]}], LineBox[{ Offset[{0, 1.5}, {1.4, 1.375}], Offset[{0, -1.5}, {1.4, 1.375}]}], LineBox[{{1.5, 1.475}, {1.5, 1.275}}], LineBox[{ Offset[{1.5, 0}, {1.5, 1.475}], Offset[{-1.5, 0}, {1.5, 1.475}]}], LineBox[{ Offset[{1.5, 0}, {1.5, 1.275}], Offset[{-1.5, 0}, {1.5, 1.275}]}]}, { LineBox[{{2.1, 1.725}, {1.9, 1.725}}], LineBox[{ Offset[{0, 1.5}, {2.1, 1.725}], Offset[{0, -1.5}, {2.1, 1.725}]}], LineBox[{ Offset[{0, 1.5}, {1.9, 1.725}], Offset[{0, -1.5}, {1.9, 1.725}]}], LineBox[{{2., 1.8250000000000002`}, {2., 1.625}}], LineBox[{ Offset[{1.5, 0}, {2., 1.8250000000000002`}], Offset[{-1.5, 0}, {2., 1.8250000000000002`}]}], LineBox[{ Offset[{1.5, 0}, {2., 1.625}], Offset[{-1.5, 0}, {2., 1.625}]}]}, { LineBox[{{2.6, 2.19}, {2.4, 2.19}}], LineBox[{ Offset[{0, 1.5}, {2.6, 2.19}], Offset[{0, -1.5}, {2.6, 2.19}]}], LineBox[{ Offset[{0, 1.5}, {2.4, 2.19}], Offset[{0, -1.5}, {2.4, 2.19}]}], LineBox[{{2.5, 2.29}, {2.5, 2.09}}], LineBox[{ Offset[{1.5, 0}, {2.5, 2.29}], Offset[{-1.5, 0}, {2.5, 2.29}]}], LineBox[{ Offset[{1.5, 0}, {2.5, 2.09}], Offset[{-1.5, 0}, {2.5, 2.09}]}]}, { LineBox[{{3.1, 2.575}, {2.9, 2.575}}], LineBox[{ Offset[{0, 1.5}, {3.1, 2.575}], Offset[{0, -1.5}, {3.1, 2.575}]}], LineBox[{ Offset[{0, 1.5}, {2.9, 2.575}], Offset[{0, -1.5}, {2.9, 2.575}]}], LineBox[{{3., 2.6750000000000003`}, {3., 2.475}}], LineBox[{ Offset[{1.5, 0}, {3., 2.6750000000000003`}], Offset[{-1.5, 0}, {3., 2.6750000000000003`}]}], LineBox[{ Offset[{1.5, 0}, {3., 2.475}], Offset[{-1.5, 0}, {3., 2.475}]}]}, { LineBox[{{3.6, 2.95}, {3.4, 2.95}}], LineBox[{ Offset[{0, 1.5}, {3.6, 2.95}], Offset[{0, -1.5}, {3.6, 2.95}]}], LineBox[{ Offset[{0, 1.5}, {3.4, 2.95}], Offset[{0, -1.5}, {3.4, 2.95}]}], LineBox[{{3.5, 3.0500000000000003`}, {3.5, 2.85}}], LineBox[{ Offset[{1.5, 0}, {3.5, 3.0500000000000003`}], Offset[{-1.5, 0}, {3.5, 3.0500000000000003`}]}], LineBox[{ Offset[{1.5, 0}, {3.5, 2.85}], Offset[{-1.5, 0}, {3.5, 2.85}]}]}, { LineBox[{{4.1, 3.325}, {3.9, 3.325}}], LineBox[{ Offset[{0, 1.5}, {4.1, 3.325}], Offset[{0, -1.5}, {4.1, 3.325}]}], LineBox[{ Offset[{0, 1.5}, {3.9, 3.325}], Offset[{0, -1.5}, {3.9, 3.325}]}], LineBox[{{4., 3.4250000000000003`}, {4., 3.225}}], LineBox[{ Offset[{1.5, 0}, {4., 3.4250000000000003`}], Offset[{-1.5, 0}, {4., 3.4250000000000003`}]}], LineBox[{ Offset[{1.5, 0}, {4., 3.225}], Offset[{-1.5, 0}, {4., 3.225}]}]}, { LineBox[{{4.6, 3.89}, {4.4, 3.89}}], LineBox[{ Offset[{0, 1.5}, {4.6, 3.89}], Offset[{0, -1.5}, {4.6, 3.89}]}], LineBox[{ Offset[{0, 1.5}, {4.4, 3.89}], Offset[{0, -1.5}, {4.4, 3.89}]}], LineBox[{{4.5, 3.99}, {4.5, 3.79}}], LineBox[{ Offset[{1.5, 0}, {4.5, 3.99}], Offset[{-1.5, 0}, {4.5, 3.99}]}], LineBox[{ Offset[{1.5, 0}, {4.5, 3.79}], Offset[{-1.5, 0}, {4.5, 3.79}]}]}}}, {}}, {}}, {{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVzWs0lAkYwHFjLpgZvLxnu6yN4TiUEB1p62w9T3QTsZHVktoZuV/C0sro sqJMhamkjKZZRZKipHaV3JrIYBymqGZUi6lN6WBMmYjd/fA/v49/a95e/3B9 PT29rf/1v+KDPIbrHv5aaqG5an7vA5AqOD5BnJ8h2qlHkW3bAHOtDUc4nGjo luZ3aPY1gLgp14rO2Q/FGvb9botGiFuTGv/ZSgCiq9Suh8ubQDEdVTBmVQTL GbOV/IxmMFAO2o9aVQCveSL6vakUSmSSpPdWdSBdqVLL3NuhqlqgjHOWgUty +zU3116IhJ6iD8kKcCl8KvaM6ocE9ZKh2qrn4Dvk72OTrQKmdZb9q+9fw1JD bkia4d+QR3Q4lPwyBAK6a8LcxSHgKbc3UjvfwMCEbtds3BtIepTF22s/Ao0p fCe10zu4lcgOWOA1CvzQs89jG99DCT92xCVoDJzcr4bF5HyETMnMtskP4zBw ryKcdmoM9BSvsT5dAyOlITmb+sfBLiUibbuDFiYYTNHGVRoY1p77ifXgE0Rc yBKdPTIJW9QxB04nTcHTimnBH++04DssXGpp+QVOUvyirLw+w8hD3uHHN6ah +mTCio/CKXA261vkufsrdOUfH0+b1AETtFyVZhZ2tCZfCMBp2DQa/NkmUA9f pgS5j5TPwLOWPZRgRwpWxi9onDSchTs50l0cLQXVRWXufv5zEEFPfS2X66Ox 5Jy8JkQPw5L5d9giKr487qEL16fgssilch8uDXuLQywUZRTsNndkpa6io/Sf CTfLIH28X5VZ7EhlYJzf2IZTM/rIpzj82DnAQPOJWN/BaioyVembE2oNUFkX 6Du6m4bqK9YFkgxDDC4u28Ch0bFg8UJaXaAR9v/1q5vrXToKRRFtXA4TWWPl 38bsZGBwQaic/ZaJPJ8tUzvnGDi1vkwnaWDhn8MxXU43DXBI7ZHWcoyNLYXj RXaBhnhpjatFF9cYO7I+hX41MMIb2almkU4mePwkd+FMlREeCwzzpmpNML5u dWetPxNXqEoqjnWZoq/N6X3eNBaeX1J8o8ubQHWp3wLmNRYeaso9711HYHrY iVtXQtm41SKwTGZrhq6bVnh8NTbGdQltIWYCM7y4foOMX2OMku94tp1aMzQ6 qPB6tscEbR+WF/qGmKNjT1vTTpYpCp1aHHobzDHJy2FZcZUpRmhoPe0OJL44 mC1TLiOQd2uCI8gnsU+9WHcgk8C4zICZLadIpF7vnfh4hMDUgNp+9hkSnZMz PuzOJjBHm5onLCTx6Gz3q3U5BFat0k2fE5PoPv+3Vnoegbrmub4rlSSe3fzo TG4RgcJedq60jcSASq6z+CaBosvxUUfbSTycxFpsUkPg5RS55+YOEitX3rE+ dJvAu/OEXzrk//2lht9w7xKoCiajFE9JvK2qnratJ9B+aKHn4BCJ5iazj6+3 EehSm25ZqiZx7ZPylkXtBK7OVurC35IYI9pWnycj0MdefPPdCInNdmXViV0E JsdyLMfHSUwCn0I3BYEZP/yuq9GQKKZ/yi97QmC28eCTFC2J7R0Swbw+As9X Xz4xNUWi9Q5NxtQzAi8dpkXe+0LiVkvxvugXBFZuC/fImCFx//DGxBdKAmtt WhetnSWx9NpYtPcAgQ0aO93cHIk9iaKw+pcE/gtxejqw "]]}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["\"I [A]\"", TraditionalForm], FormBox["\"U [V]\"", TraditionalForm]}, AxesOrigin->{0, 0}, ImageSize->Full, Method->{}, PlotLabel->FormBox[ "\"Abbildung 1.2: Abh\[ADoubleDot]ngigkeit der Spannung von der Stromst\ \[ADoubleDot]rke (und damit von der B-Feldst\[ADoubleDot]rke)\"", TraditionalForm], PlotRange->{{0, 5}, {0, 4.2}}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.5762343807586613`*^9, 3.5762344106951137`*^9}, { 3.576234475045227*^9, 3.576234495013262*^9}, 3.5762400627238383`*^9, 3.576260315577467*^9, 3.5762612202629623`*^9}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Induktionsspannung bei periodischem Feldstrom", "Section", CellChangeTimes->{{3.5757133493095307`*^9, 3.575713355900908*^9}}], Cell[CellGroupData[{ Cell["Messung", "Subsection", CellChangeTimes->{{3.5762385503991904`*^9, 3.5762385510855913`*^9}}], Cell["\<\ Zun\[ADoubleDot]chst messen wir die Abh\[ADoubleDot]ngigkeit der induzierten \ Spannung vom Drehwinkel der Induktionsspule.\ \>", "Text", CellChangeTimes->{{3.576238554002797*^9, 3.5762385762016354`*^9}}, FontFamily->"Helvetica Neue"], Cell[TextData[{ Cell[BoxData[ FormBox[ SubscriptBox["\[CapitalOmega]", "1"], TraditionalForm]]], " stellt die initiale konstante Drehfrequenz dar." }], "Text", CellChangeTimes->{{3.5762608745906076`*^9, 3.576260889611689*^9}}, FontFamily->"Helvetica Neue"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[CapitalOmega]", "1"], "=", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"103", ",", "1"}], "}"}], ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.575713604339118*^9, 3.575713641103221*^9}, { 3.5762608595272017`*^9, 3.57626086431945*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"103"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Hz\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Hertz\""}], "]"}]& )], ",", TemplateBox[{"1"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Hz\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Hertz\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{ 3.5757136446204214`*^9, 3.5762330830157814`*^9, 3.5762335037429204`*^9, 3.576260315628183*^9, {3.576260860796956*^9, 3.5762608650415993`*^9}, 3.576261220320067*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["data", "3"], "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"0", ",", "2"}], "}"}], "\[Degree]"}], ",", RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"8", ",", "0.1"}], "}"}], ",", "\"\\""}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"30", ",", "2"}], "}"}], "\[Degree]"}], ",", RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"7.1", ",", ".1"}], "}"}], ",", "\"\\""}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"60", ",", "2"}], "}"}], "\[Degree]"}], ",", RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"4.2", ",", "0.1"}], "}"}], ",", "\"\\""}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"90", ",", "2"}], "}"}], "\[Degree]"}], ",", RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{".06", ",", "0.01"}], "}"}], ",", "\"\\""}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"120", ",", "2"}], "}"}], "\[Degree]"}], ",", RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "0.1"}], "}"}], ",", "\"\\""}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"150", ",", "2"}], "}"}], "\[Degree]"}], ",", RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"6.9", ",", "0.1"}], "}"}], ",", "\"\\""}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"180", ",", "2"}], "}"}], "\[Degree]"}], ",", RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"8", ",", ".1"}], "}"}], ",", "\"\\""}], "]"}]}]}], "}"}]}], "\[IndentingNewLine]", "}"}]}]], "Input", CellChangeTimes->{{3.575713837645462*^9, 3.57571398218773*^9}, { 3.5757140348117394`*^9, 3.5757141062028227`*^9}, {3.5757142178322077`*^9, 3.5757142237215443`*^9}, {3.575714266254977*^9, 3.575714279430731*^9}, { 3.5757143492967267`*^9, 3.5757144052099247`*^9}, {3.5762391805850997`*^9, 3.5762392380088005`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"2", " ", "\[Degree]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"4"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.05`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"30", " ", "\[Degree]"}], ",", RowBox[{"2", " ", "\[Degree]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"3.55`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.05`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"60", " ", "\[Degree]"}], ",", RowBox[{"2", " ", "\[Degree]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"2.1`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.05`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"90", " ", "\[Degree]"}], ",", RowBox[{"2", " ", "\[Degree]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"0.03`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.005`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"120", " ", "\[Degree]"}], ",", RowBox[{"2", " ", "\[Degree]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"2"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.05`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"150", " ", "\[Degree]"}], ",", RowBox[{"2", " ", "\[Degree]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"3.45`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.05`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"180", " ", "\[Degree]"}], ",", RowBox[{"2", " ", "\[Degree]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"4"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.05`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.5757139180860634`*^9, 3.5757139719041414`*^9, 3.5762330831717815`*^9, 3.5762335039145207`*^9, {3.576239201832337*^9, 3.576239204687142*^9}, 3.5762392387420015`*^9, 3.576260315788642*^9, 3.576261220483121*^9}] }, Open ]], Cell["\<\ Die n\[ADoubleDot]chste Messung nimmt die induzierte Spannung sowie den Strom \ und die Spannung in der Helmholtzspule als Funktion der Frequenz auf.\ \>", "Text", CellChangeTimes->{{3.576238582067246*^9, 3.5762385844852505`*^9}, { 3.5762386202501135`*^9, 3.5762386348365393`*^9}}, FontFamily->"Helvetica Neue"], Cell["\<\ (Der erste Spanungswert ist der induzierte, der zweite der in der \ Helmholtzspule.)\ \>", "Text", CellChangeTimes->{{3.5757157193420887`*^9, 3.5757157417853727`*^9}, { 3.5762385871372547`*^9, 3.5762385884632573`*^9}}, FontFamily->"Helvetica Neue"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["data", "4"], "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"20", ",", ".1"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"5.82", ",", "0.1"}], "}"}], ",", "\"\\""}], "]"}]}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"1.18", ",", "0.001"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"11.4", ",", "0.8"}], "}"}], ",", "\"\\""}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"40", ",", ".1"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"7.2", ",", "0.1"}], "}"}], ",", "\"\\""}], "]"}]}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{".755", ",", ".001"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"11.6", ",", "0.6"}], "}"}], ",", "\"\\""}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"60.2", ",", ".1"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"7.7", ",", "0.1"}], "}"}], ",", "\"\\""}], "]"}]}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{".538", ",", ".001"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"11.7", ",", "0.7"}], "}"}], ",", "\"\\""}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"80.6", ",", "1"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"7.9", ",", "0.1"}], "}"}], ",", "\"\\""}], "]"}]}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{".411", ",", ".001"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"11.7", ",", "0.3"}], "}"}], ",", "\"\\""}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"100", ",", ".1"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"7.9", ",", "0.1"}], "}"}], ",", "\"\\""}], "]"}]}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{".337", ",", ".001"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"11.7", ",", "0.3"}], "}"}], ",", "\"\\""}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"119", ",", ".1"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"8", ",", "0.1"}], "}"}], ",", "\"\\""}], "]"}]}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{".283", ",", ".001"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"11.8", ",", "0.2"}], "}"}], ",", "\"\\""}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"141", ",", ".1"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"8", ",", "0.1"}], "}"}], ",", "\"\\""}], "]"}]}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{".240", ",", ".001"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"11.8", ",", "0.2"}], "}"}], ",", "\"\\""}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"160", ",", ".1"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"8", ",", "0.1"}], "}"}], ",", "\"\\""}], "]"}]}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"0.210", ",", ".001"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"11.8", ",", "0.2"}], "}"}], ",", "\"\\""}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"180", ",", ".1"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"8", ",", "0.1"}], "}"}], ",", "\"\\""}], "]"}]}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{".188", ",", ".001"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"11.8", ",", "0.2"}], "}"}], ",", "\"\\""}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"199", ",", ".1"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"8.1", ",", "0.1"}], "}"}], ",", "\"\\""}], "]"}]}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{".169", ",", ".001"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"11.9", ",", "0.1"}], "}"}], ",", "\"\\""}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"400", ",", ".1"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"8.1", ",", "0.1"}], "}"}], ",", "\"\\""}], "]"}]}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{".083", ",", ".001"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"11.8", ",", "0.2"}], "}"}], ",", "\"\\""}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"604", ",", ".2"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"8.1", ",", "0.1"}], "}"}], ",", "\"\\""}], "]"}]}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{".053", ",", ".001"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"11.9", ",", "0.2"}], "}"}], ",", "\"\\""}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"803", ",", ".3"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"8.1", ",", "0.1"}], "}"}], ",", "\"\\""}], "]"}]}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{".039", ",", ".001"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"11.8", ",", "0.2"}], "}"}], ",", "\"\\""}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"1000", ",", "10"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"8.1", ",", "0.1"}], "}"}], ",", "\"\\""}], "]"}]}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{".03", ",", ".001"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"11.8", ",", "0.2"}], "}"}], ",", "\"\\""}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"1200", ",", "10"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"8.1", ",", "0.1"}], "}"}], ",", "\"\\""}], "]"}]}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{".024", ",", ".001"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"11.8", ",", "0.2"}], "}"}], ",", "\"\\""}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"1390", ",", "10"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"8.1", ",", "0.1"}], "}"}], ",", "\"\\""}], "]"}]}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{".020", ",", ".001"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"11.8", ",", "0.2"}], "}"}], ",", "\"\\""}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"1590", ",", "10"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"8.2", ",", "0.1"}], "}"}], ",", "\"\\""}], "]"}]}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{".016", ",", ".001"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"11.8", ",", "0.2"}], "}"}], ",", "\"\\""}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"1810", ",", "10"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"8.4", ",", "0.1"}], "}"}], ",", "\"\\""}], "]"}]}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{".012", ",", ".001"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"11.8", ",", "0.2"}], "}"}], ",", "\"\\""}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"1990", ",", "10"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"8.5", ",", "0.1"}], "}"}], ",", "\"\\""}], "]"}]}], ",", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{".010", ",", ".001"}], "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"11.8", ",", "0.2"}], "}"}], ",", "\"\\""}], "]"}]}]}], "}"}]}], "\[IndentingNewLine]", "}"}]}]], "Input", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmViYGCQAGIQXa35dY/SkleObYf+7QPRyw6oHAPRtwocj4PoKXI6 Z0E0X7jCeRAdUP3zCoi2kme8DaIn3M17AKKvqVo/AtFv3Da9AdHi1yXeg2hh K6MvINrAW/47iI616/wLon+eO82hDKTV9FV5QbTB8z+CILr8j6kEiPb8rCgF omNmyCiB6BL93Vogum6ftAGIzv+y0gRET2Tf5AKiXXrXeIDoGxf9fUG0WPPZ ULB+BpNsEC3BWJcDop1l+gpBtMjjrXUguubA+mYQfe+ERwuI/h19vRtEP/ma Oh1Em7FXzgbRyZpr5oPoPTf3LgXR+7a2rwHR4a8ZtoPosKbiqyDa9NCbmyD6 UmLPcxCdpRH9GkT7fMr8AqJv+7P0Ki195eixJA9MAwAlu78z "]], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"20"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Hz\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Hertz\""}], "]"}]& )], ",", TemplateBox[{"0.1`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Hz\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Hertz\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"2.91`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.05`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"1.18`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )], ",", TemplateBox[{"0.001`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"5.7`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.4`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"40"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Hz\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Hertz\""}], "]"}]& )], ",", TemplateBox[{"0.1`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Hz\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Hertz\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"3.6`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.05`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"0.755`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )], ",", TemplateBox[{"0.001`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"5.8`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.3`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"60.2`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Hz\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Hertz\""}], "]"}]& )], ",", TemplateBox[{"0.1`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Hz\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Hertz\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"3.85`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.05`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"0.538`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )], ",", TemplateBox[{"0.001`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"5.85`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.35`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"80.6`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Hz\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Hertz\""}], "]"}]& )], ",", TemplateBox[{"1"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Hz\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Hertz\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"3.95`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.05`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"0.411`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )], ",", TemplateBox[{"0.001`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"5.85`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.15`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"100"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Hz\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Hertz\""}], "]"}]& )], ",", TemplateBox[{"0.1`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Hz\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Hertz\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"3.95`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.05`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"0.337`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )], ",", TemplateBox[{"0.001`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"5.85`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.15`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"119"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Hz\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Hertz\""}], "]"}]& )], ",", TemplateBox[{"0.1`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Hz\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Hertz\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"4"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.05`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"0.283`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )], ",", TemplateBox[{"0.001`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"5.9`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.1`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"141"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Hz\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Hertz\""}], "]"}]& )], ",", TemplateBox[{"0.1`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Hz\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Hertz\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"4"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.05`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"0.24`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )], ",", TemplateBox[{"0.001`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"5.9`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.1`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"160"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Hz\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Hertz\""}], "]"}]& )], ",", TemplateBox[{"0.1`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Hz\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Hertz\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"4"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.05`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"0.21`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )], ",", TemplateBox[{"0.001`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"5.9`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.1`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"180"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Hz\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Hertz\""}], "]"}]& )], ",", TemplateBox[{"0.1`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Hz\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Hertz\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"4"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.05`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"0.188`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )], ",", TemplateBox[{"0.001`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"5.9`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.1`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"199"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Hz\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Hertz\""}], "]"}]& )], ",", TemplateBox[{"0.1`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Hz\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Hertz\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"4.05`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.05`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"0.169`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )], ",", TemplateBox[{"0.001`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"5.95`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.05`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"400"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Hz\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Hertz\""}], "]"}]& )], ",", TemplateBox[{"0.1`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Hz\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Hertz\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"4.05`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.05`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"0.083`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )], ",", TemplateBox[{"0.001`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"5.9`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.1`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"604"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Hz\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Hertz\""}], "]"}]& )], ",", TemplateBox[{"0.2`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Hz\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Hertz\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"4.05`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.05`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"0.053`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )], ",", TemplateBox[{"0.001`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"5.95`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.1`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"803"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Hz\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Hertz\""}], "]"}]& )], ",", TemplateBox[{"0.3`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Hz\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Hertz\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"4.05`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.05`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"0.039`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )], ",", TemplateBox[{"0.001`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"5.9`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.1`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"1000"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Hz\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Hertz\""}], "]"}]& )], ",", TemplateBox[{"10"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Hz\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Hertz\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"4.05`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.05`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"0.03`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )], ",", TemplateBox[{"0.001`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"5.9`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.1`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"1200"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Hz\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Hertz\""}], "]"}]& )], ",", TemplateBox[{"10"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Hz\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Hertz\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"4.05`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.05`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"0.024`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )], ",", TemplateBox[{"0.001`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"5.9`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.1`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"1390"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Hz\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Hertz\""}], "]"}]& )], ",", TemplateBox[{"10"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Hz\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Hertz\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"4.05`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.05`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"0.02`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )], ",", TemplateBox[{"0.001`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"5.9`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.1`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"1590"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Hz\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Hertz\""}], "]"}]& )], ",", TemplateBox[{"10"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Hz\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Hertz\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"4.1`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.05`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"0.016`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )], ",", TemplateBox[{"0.001`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"5.9`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.1`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"1810"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Hz\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Hertz\""}], "]"}]& )], ",", TemplateBox[{"10"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Hz\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Hertz\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"4.2`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.05`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"0.012`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )], ",", TemplateBox[{"0.001`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"5.9`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.1`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"1990"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Hz\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Hertz\""}], "]"}]& )], ",", TemplateBox[{"10"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Hz\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Hertz\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"4.25`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.05`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"0.01`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )], ",", TemplateBox[{"0.001`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"5.9`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.1`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.576233084513384*^9, 3.576233505287323*^9, 3.5762392141407585`*^9, 3.5762603173450003`*^9, 3.576261221995748*^9}] }, Open ]], Cell["\<\ Wir \[UDoubleDot]berzeugen uns mittels des Oszilloskops qualitativ von der \ Schwebung. Warum kommt es dazu? Dazu sp\[ADoubleDot]ter mehr!\ \>", "Text", CellChangeTimes->{{3.5757178038183146`*^9, 3.575717870149108*^9}, { 3.5762386683101983`*^9, 3.5762386776234145`*^9}}, FontFamily->"Helvetica Neue"] }, Open ]], Cell[CellGroupData[{ Cell["Auswertung", "Subsection", CellChangeTimes->{{3.576238695922247*^9, 3.576238697014249*^9}}], Cell[TextData[{ "Zun\[ADoubleDot]chst bringen wir wieder die Me\[SZ]daten in eine von ", StyleBox["Mathematica", FontSlant->"Italic"], " verwendbare Form:" }], "Text", CellChangeTimes->{{3.576239092725745*^9, 3.5762391115237784`*^9}, { 3.5762609307532682`*^9, 3.576260934952952*^9}}, FontFamily->"Helvetica Neue"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["angles", "3"], "=", RowBox[{ RowBox[{ RowBox[{"Transpose", "[", SubscriptBox["data", "3"], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "All", ",", "1"}], "]"}], "]"}], "//", "QuantityMagnitude"}]}], ";"}]], "Input", CellChangeTimes->{{3.576233064741349*^9, 3.5762330710817604`*^9}, { 3.5762331222030506`*^9, 3.576233213852011*^9}, {3.5762335214333515`*^9, 3.57623352622256*^9}, {3.576239119292592*^9, 3.5762391518186493`*^9}, { 3.5762609275715933`*^9, 3.5762609473145113`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["\[CapitalDelta]angles", "3"], "=", RowBox[{ RowBox[{ RowBox[{"Transpose", "[", SubscriptBox["data", "3"], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "All", ",", "2"}], "]"}], "]"}], "//", "QuantityMagnitude"}]}], ";"}]], "Input", CellChangeTimes->{{3.5762332312460413`*^9, 3.5762332391396556`*^9}, { 3.576233530372167*^9, 3.5762335328369713`*^9}, {3.57623924917842*^9, 3.5762392532188272`*^9}, 3.57626093667423*^9}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["voltages", "3"], "=", RowBox[{ RowBox[{ RowBox[{"Transpose", "[", SubscriptBox["data", "3"], "]"}], "[", RowBox[{"[", RowBox[{"2", ",", "All", ",", "1"}], "]"}], "]"}], "//", "QuantityMagnitude"}]}], ";"}]], "Input", CellChangeTimes->{{3.576233244506065*^9, 3.5762332633196983`*^9}, { 3.576233536846178*^9, 3.5762335390145826`*^9}, {3.576239260987641*^9, 3.576239264981248*^9}, 3.5762609381627207`*^9}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["\[CapitalDelta]voltages", "3"], "=", RowBox[{ RowBox[{ RowBox[{"Transpose", "[", SubscriptBox["data", "3"], "]"}], "[", RowBox[{"[", RowBox[{"2", ",", "All", ",", "2"}], "]"}], "]"}], "//", "QuantityMagnitude"}]}], ";"}]], "Input", CellChangeTimes->{{3.576233244506065*^9, 3.5762332762677207`*^9}, { 3.5762335422125883`*^9, 3.576233545036193*^9}, {3.576239269006055*^9, 3.576239273608063*^9}, 3.576260949682444*^9}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["data2", "3"], "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["angles", "3"], "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{ SubscriptBox["voltages", "3"], "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"ErrorBar", "[", RowBox[{ RowBox[{ SubscriptBox["\[CapitalDelta]angles", "3"], "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{ SubscriptBox["\[CapitalDelta]voltages", "3"], "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", SubscriptBox["angles", "3"], "]"}]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.576233591992275*^9, 3.5762336045502977`*^9}, { 3.5762392783660717`*^9, 3.576239302530514*^9}, 3.576260951254394*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["plot", "angles"], "=", RowBox[{"ErrorListPlot", "[", RowBox[{ SubscriptBox["data2", "3"], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Pi]", "+", ".1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "4.2"}], "}"}]}], "}"}]}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\<\[Alpha] [rad]\>\"", ",", "\"\\""}], "}"}]}], ",", " ", RowBox[{ "PlotLabel", "\[Rule]", "\"\\""}], ",", RowBox[{"ImageSize", "\[Rule]", "Full"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5762397595217056`*^9, 3.576239806196988*^9}, { 3.576239930950407*^9, 3.576239991213313*^9}}], Cell[BoxData[ GraphicsBox[{{}, {{}, {RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[{{0., 4.}, {0.5235987755982988, 3.55}, {1.0471975511965976`, 2.1}, {1.5707963267948966`, 0.03}, {2.0943951023931953`, 2.}, { 2.6179938779914944`, 3.45}, {3.141592653589793, 4.}}], {{LineBox[{{0.03490658503988659, 4.}, {-0.03490658503988659, 4.}}], LineBox[{ Offset[{0, 1.5}, {0.03490658503988659, 4.}], Offset[{0, -1.5}, {0.03490658503988659, 4.}]}], LineBox[{ Offset[{0, 1.5}, {-0.03490658503988659, 4.}], Offset[{0, -1.5}, {-0.03490658503988659, 4.}]}], LineBox[{{0., 4.05}, {0., 3.95}}], LineBox[{Offset[{1.5, 0}, {0., 4.05}], Offset[{-1.5, 0}, {0., 4.05}]}], LineBox[{ Offset[{1.5, 0}, {0., 3.95}], Offset[{-1.5, 0}, {0., 3.95}]}]}, { LineBox[{{0.5585053606381855, 3.55}, {0.48869219055841223`, 3.55}}], LineBox[{ Offset[{0, 1.5}, {0.5585053606381855, 3.55}], Offset[{0, -1.5}, {0.5585053606381855, 3.55}]}], LineBox[{ Offset[{0, 1.5}, {0.48869219055841223`, 3.55}], Offset[{0, -1.5}, {0.48869219055841223`, 3.55}]}], LineBox[{{0.5235987755982988, 3.5999999999999996`}, { 0.5235987755982988, 3.5}}], LineBox[{ Offset[{1.5, 0}, {0.5235987755982988, 3.5999999999999996`}], Offset[{-1.5, 0}, {0.5235987755982988, 3.5999999999999996`}]}], LineBox[{ Offset[{1.5, 0}, {0.5235987755982988, 3.5}], Offset[{-1.5, 0}, {0.5235987755982988, 3.5}]}]}, { LineBox[{{1.0821041362364843`, 2.1}, {1.012290966156711, 2.1}}], LineBox[{ Offset[{0, 1.5}, {1.0821041362364843`, 2.1}], Offset[{0, -1.5}, {1.0821041362364843`, 2.1}]}], LineBox[{ Offset[{0, 1.5}, {1.012290966156711, 2.1}], Offset[{0, -1.5}, {1.012290966156711, 2.1}]}], LineBox[{{1.0471975511965976`, 2.15}, {1.0471975511965976`, 2.0500000000000003`}}], LineBox[{ Offset[{1.5, 0}, {1.0471975511965976`, 2.15}], Offset[{-1.5, 0}, {1.0471975511965976`, 2.15}]}], LineBox[{ Offset[{1.5, 0}, {1.0471975511965976`, 2.0500000000000003`}], Offset[{-1.5, 0}, {1.0471975511965976`, 2.0500000000000003`}]}]}, { LineBox[{{1.6057029118347832`, 0.03}, {1.53588974175501, 0.03}}], LineBox[{ Offset[{0, 1.5}, {1.6057029118347832`, 0.03}], Offset[{0, -1.5}, {1.6057029118347832`, 0.03}]}], LineBox[{ Offset[{0, 1.5}, {1.53588974175501, 0.03}], Offset[{0, -1.5}, {1.53588974175501, 0.03}]}], LineBox[{{1.5707963267948966`, 0.034999999999999996`}, { 1.5707963267948966`, 0.024999999999999998`}}], LineBox[{ Offset[{1.5, 0}, {1.5707963267948966`, 0.034999999999999996`}], Offset[{-1.5, 0}, {1.5707963267948966`, 0.034999999999999996`}]}], LineBox[{ Offset[{1.5, 0}, {1.5707963267948966`, 0.024999999999999998`}], Offset[{-1.5, 0}, {1.5707963267948966`, 0.024999999999999998`}]}]}, { LineBox[{{2.129301687433082, 2.}, {2.0594885173533086`, 2.}}], LineBox[{ Offset[{0, 1.5}, {2.129301687433082, 2.}], Offset[{0, -1.5}, {2.129301687433082, 2.}]}], LineBox[{ Offset[{0, 1.5}, {2.0594885173533086`, 2.}], Offset[{0, -1.5}, {2.0594885173533086`, 2.}]}], LineBox[{{2.0943951023931953`, 2.05}, {2.0943951023931953`, 1.95}}], LineBox[{ Offset[{1.5, 0}, {2.0943951023931953`, 2.05}], Offset[{-1.5, 0}, {2.0943951023931953`, 2.05}]}], LineBox[{ Offset[{1.5, 0}, {2.0943951023931953`, 1.95}], Offset[{-1.5, 0}, {2.0943951023931953`, 1.95}]}]}, { LineBox[{{2.652900463031381, 3.45}, {2.5830872929516078`, 3.45}}], LineBox[{ Offset[{0, 1.5}, {2.652900463031381, 3.45}], Offset[{0, -1.5}, {2.652900463031381, 3.45}]}], LineBox[{ Offset[{0, 1.5}, {2.5830872929516078`, 3.45}], Offset[{0, -1.5}, {2.5830872929516078`, 3.45}]}], LineBox[{{2.6179938779914944`, 3.5}, {2.6179938779914944`, 3.4000000000000004`}}], LineBox[{ Offset[{1.5, 0}, {2.6179938779914944`, 3.5}], Offset[{-1.5, 0}, {2.6179938779914944`, 3.5}]}], LineBox[{ Offset[{1.5, 0}, {2.6179938779914944`, 3.4000000000000004`}], Offset[{-1.5, 0}, {2.6179938779914944`, 3.4000000000000004`}]}]}, { LineBox[{{3.1764992386296798`, 4.}, {3.1066860685499065`, 4.}}], LineBox[{ Offset[{0, 1.5}, {3.1764992386296798`, 4.}], Offset[{0, -1.5}, {3.1764992386296798`, 4.}]}], LineBox[{ Offset[{0, 1.5}, {3.1066860685499065`, 4.}], Offset[{0, -1.5}, {3.1066860685499065`, 4.}]}], LineBox[{{3.141592653589793, 4.05}, {3.141592653589793, 3.95}}], LineBox[{ Offset[{1.5, 0}, {3.141592653589793, 4.05}], Offset[{-1.5, 0}, {3.141592653589793, 4.05}]}], LineBox[{ Offset[{1.5, 0}, {3.141592653589793, 3.95}], Offset[{-1.5, 0}, {3.141592653589793, 3.95}]}]}}}, {}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["\"\[Alpha] [rad]\"", TraditionalForm], FormBox["\"U [V]\"", TraditionalForm]}, AxesOrigin->{0, 0}, ImageSize->Full, Method->{}, PlotLabel->FormBox[ "\"Abbildung 1.3: Winkelabh\[ADoubleDot]ngigkeit der Induktionsspannung\"", TraditionalForm], PlotRange->{{0, 3.241592653589793}, {0, 4.2}}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.5762397700829244`*^9, 3.5762398065401883`*^9}, 3.5762399917281137`*^9, 3.576260318260779*^9, 3.5762612222238092`*^9}] }, Open ]], Cell["\<\ Nun m\[UDoubleDot]ssen wir auch den zweiten Datensatz pr\[ADoubleDot]parieren.\ \>", "Text", CellChangeTimes->{{3.5762406854145336`*^9, 3.5762406945765467`*^9}}, FontFamily->"Helvetica Neue"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["freqs", "4"], "=", RowBox[{ RowBox[{ RowBox[{"Transpose", "[", SubscriptBox["data", "4"], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "All", ",", "1"}], "]"}], "]"}], "//", "QuantityMagnitude"}]}], ";"}]], "Input", CellChangeTimes->{{3.576233064741349*^9, 3.5762330710817604`*^9}, { 3.5762331222030506`*^9, 3.576233213852011*^9}, {3.5762335214333515`*^9, 3.57623352622256*^9}, {3.576239119292592*^9, 3.5762391518186493`*^9}, { 3.576240804934702*^9, 3.576240818686722*^9}, 3.576260977823378*^9}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["\[CapitalDelta]freqs", "4"], "=", RowBox[{ RowBox[{ RowBox[{"Transpose", "[", SubscriptBox["data", "4"], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "All", ",", "2"}], "]"}], "]"}], "//", "QuantityMagnitude"}]}], ";"}]], "Input", CellChangeTimes->{{3.5762332312460413`*^9, 3.5762332391396556`*^9}, { 3.576233530372167*^9, 3.5762335328369713`*^9}, {3.57623924917842*^9, 3.5762392532188272`*^9}, {3.576240840169752*^9, 3.576240844710758*^9}, 3.576260979647937*^9}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["uind", "4"], "=", RowBox[{ RowBox[{ RowBox[{"Transpose", "[", SubscriptBox["data", "4"], "]"}], "[", RowBox[{"[", RowBox[{"2", ",", "All", ",", "1"}], "]"}], "]"}], "//", "QuantityMagnitude"}]}], ";"}]], "Input", CellChangeTimes->{{3.576233244506065*^9, 3.5762332633196983`*^9}, { 3.576233536846178*^9, 3.5762335390145826`*^9}, {3.576239260987641*^9, 3.576239264981248*^9}, {3.576240863003784*^9, 3.57624086737479*^9}, 3.576260980976285*^9}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["\[CapitalDelta]uind", "4"], "=", RowBox[{ RowBox[{ RowBox[{"Transpose", "[", SubscriptBox["data", "4"], "]"}], "[", RowBox[{"[", RowBox[{"2", ",", "All", ",", "2"}], "]"}], "]"}], "//", "QuantityMagnitude"}]}], ";"}]], "Input", CellChangeTimes->{{3.576233244506065*^9, 3.5762332762677207`*^9}, { 3.5762335422125883`*^9, 3.576233545036193*^9}, {3.576239269006055*^9, 3.576239273608063*^9}, {3.5762408823968115`*^9, 3.5762408861278167`*^9}, 3.5762609821521997`*^9}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["currents", "4"], "=", RowBox[{ RowBox[{ RowBox[{"Transpose", "[", SubscriptBox["data", "4"], "]"}], "[", RowBox[{"[", RowBox[{"3", ",", "All", ",", "1"}], "]"}], "]"}], "//", "QuantityMagnitude"}]}], ";"}]], "Input", CellChangeTimes->{{3.576233244506065*^9, 3.5762332633196983`*^9}, { 3.576233536846178*^9, 3.5762335390145826`*^9}, {3.576239260987641*^9, 3.576239264981248*^9}, {3.576240863003784*^9, 3.57624086737479*^9}, { 3.5762409052398434`*^9, 3.5762409102208505`*^9}, 3.576260983528158*^9}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["\[CapitalDelta]currents", "4"], "=", RowBox[{ RowBox[{ RowBox[{"Transpose", "[", SubscriptBox["data", "4"], "]"}], "[", RowBox[{"[", RowBox[{"3", ",", "All", ",", "2"}], "]"}], "]"}], "//", "QuantityMagnitude"}]}], ";"}]], "Input", CellChangeTimes->{{3.576233244506065*^9, 3.5762332762677207`*^9}, { 3.5762335422125883`*^9, 3.576233545036193*^9}, {3.576239269006055*^9, 3.576239273608063*^9}, {3.5762408823968115`*^9, 3.576240917851861*^9}, 3.576260985047266*^9}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["uhelm", "4"], "=", RowBox[{ RowBox[{ RowBox[{"Transpose", "[", SubscriptBox["data", "4"], "]"}], "[", RowBox[{"[", RowBox[{"4", ",", "All", ",", "1"}], "]"}], "]"}], "//", "QuantityMagnitude"}]}], ";"}]], "Input", CellChangeTimes->{{3.576233244506065*^9, 3.5762332633196983`*^9}, { 3.576233536846178*^9, 3.5762335390145826`*^9}, {3.576239260987641*^9, 3.576239264981248*^9}, {3.576240863003784*^9, 3.57624086737479*^9}, { 3.5762409365348873`*^9, 3.5762409405548935`*^9}, 3.576260986295949*^9}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["\[CapitalDelta]uhelm", "4"], "=", RowBox[{ RowBox[{ RowBox[{"Transpose", "[", SubscriptBox["data", "4"], "]"}], "[", RowBox[{"[", RowBox[{"4", ",", "All", ",", "2"}], "]"}], "]"}], "//", "QuantityMagnitude"}]}], ";"}]], "Input", CellChangeTimes->{{3.576233244506065*^9, 3.5762332762677207`*^9}, { 3.5762335422125883`*^9, 3.576233545036193*^9}, {3.576239269006055*^9, 3.576239273608063*^9}, {3.5762408823968115`*^9, 3.5762408861278167`*^9}, { 3.5762409437858977`*^9, 3.576240947426903*^9}, 3.57626098767927*^9}], Cell[TextData[{ "In diesem Schritt rechnen wir ", Cell[BoxData[ FormBox[ FractionBox[ SubscriptBox["U", "ind"], SubscriptBox["U", "helmholtz"]], TraditionalForm]]], " mit Fehlerfortpflanzung aus. Die Formel f\[UDoubleDot]r den Fehler ergibt \ sich einfach aus der Gau\[SZ]\[CloseCurlyQuote]schen Fehlerfortpflanzung." }], "Text", CellChangeTimes->{{3.576260989972827*^9, 3.57626105485649*^9}}, FontFamily->"Helvetica Neue"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["uratio", "4"], "=", FractionBox[ SubscriptBox["uind", "4"], SubscriptBox["uhelm", "4"]]}], ";"}]], "Input", CellChangeTimes->{{3.576241254104335*^9, 3.576241270046357*^9}, { 3.5762603506821404`*^9, 3.5762603531300373`*^9}, {3.576260996663144*^9, 3.5762610043585043`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["\[CapitalDelta]uratio", "4"], "=", RowBox[{"Sqrt", "[", RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ SubscriptBox["\[CapitalDelta]uind", "4"], SubscriptBox["uhelm", "4"]], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"-", FractionBox[ RowBox[{ SubscriptBox["uind", "4"], " ", SubscriptBox["\[CapitalDelta]uhelm", "4"]}], SuperscriptBox[ SubscriptBox["uhelm", "4"], "2"]]}], ")"}], "2"]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.576241070165076*^9, 3.576241147628185*^9}, { 3.5762412380513124`*^9, 3.5762412424423184`*^9}, {3.576261009055045*^9, 3.576261009580473*^9}}], Cell[TextData[{ "Weiter rechnen wir die Widerst\[ADoubleDot]nde ", Cell[BoxData[ FormBox[ FractionBox[ SubscriptBox["U", "helmholtz"], "I"], TraditionalForm]]], " aus und wenden wieder die Fehlerfortpflanzung an." }], "Text", CellChangeTimes->{{3.576261058448522*^9, 3.576261078271185*^9}, { 3.5762613048184977`*^9, 3.5762613057697773`*^9}}, FontFamily->"Helvetica Neue"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["res", "4"], "=", FractionBox[ SubscriptBox["uhelm", "4"], SubscriptBox["currents", "4"]]}], ";"}]], "Input", CellChangeTimes->{{3.576260367901743*^9, 3.576260390447554*^9}, 3.576260458203425*^9, {3.5762613182494383`*^9, 3.5762613191324987`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["\[CapitalDelta]res", "4"], "=", RowBox[{"Sqrt", "[", RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ SubscriptBox["\[CapitalDelta]uhelm", "4"], SubscriptBox["currents", "4"]], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"-", FractionBox[ RowBox[{ SubscriptBox["uhelm", "4"], " ", SubscriptBox["\[CapitalDelta]currents", "4"]}], SuperscriptBox[ SubscriptBox["currents", "4"], "2"]]}], ")"}], "2"]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.576260424017123*^9, 3.5762604526421413`*^9}, { 3.576261308290975*^9, 3.576261311795706*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["data2", "4"], "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["freqs", "4"], "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{ SubscriptBox["uratio", "4"], "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"ErrorBar", "[", RowBox[{ RowBox[{ SubscriptBox["\[CapitalDelta]freqs", "4"], "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{ SubscriptBox["\[CapitalDelta]uratio", "4"], "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", SubscriptBox["freqs", "4"], "]"}]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.576233591992275*^9, 3.5762336045502977`*^9}, { 3.5762392783660717`*^9, 3.576239302530514*^9}, {3.57624096660893*^9, 3.576241009955991*^9}, 3.57624106580507*^9, {3.5762411551791954`*^9, 3.576241161660205*^9}, {3.576260361259223*^9, 3.576260362076994*^9}, { 3.576261080954659*^9, 3.576261103200213*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["data3", "4"], "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["freqs", "4"], "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{ SubscriptBox["res", "4"], "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"ErrorBar", "[", RowBox[{ RowBox[{ SubscriptBox["\[CapitalDelta]freqs", "4"], "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{ SubscriptBox["\[CapitalDelta]res", "4"], "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", SubscriptBox["freqs", "4"], "]"}]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.576233591992275*^9, 3.5762336045502977`*^9}, { 3.5762392783660717`*^9, 3.576239302530514*^9}, {3.57624096660893*^9, 3.576241009955991*^9}, 3.57624106580507*^9, {3.5762411551791954`*^9, 3.576241161660205*^9}, {3.576260361259223*^9, 3.576260362076994*^9}, { 3.576261080954659*^9, 3.576261118274126*^9}, {3.576261352906189*^9, 3.57626136901493*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["plot", RowBox[{"quotients", ",", "1"}]], "=", RowBox[{"ErrorListPlot", "[", RowBox[{ SubscriptBox["data2", "4"], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "2000"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<\!\(\*FractionBox[SubscriptBox[\(U\), \(ind\)], \ SubscriptBox[\(U\), \(helmholtz\)]]\)\>\""}], "}"}]}], ",", RowBox[{ "PlotLabel", "\[Rule]", "\"\\""}], ",", RowBox[{"ImageSize", "\[Rule]", "Full"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.576241177672227*^9, 3.5762411936342497`*^9}, { 3.5762412827683754`*^9, 3.576241305342407*^9}, {3.5762413384274535`*^9, 3.576241338627454*^9}, {3.576241437737999*^9, 3.576241441045205*^9}, { 3.576241488968489*^9, 3.5762415634742203`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {{}, {RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQBmIQDQEmDimshzyswx7YQ/guDpynbXs33HlsP2smEEj6 OXwN4Aeip/ZpIKAW4rAtcvbWyNlPoeojUfkHYh0uFAR9f7oRyl+QiMpnSEHl N6Sh8h9kOJgKngAimPpKhxxXsAqofBOqvEQnqrxDPyr/wCRU/o6pqPwbMxw4 pPxe7bN5BuF7zHFwPOx5d/pxKF9ivgOQE8bC+9weAGG7bE0= "]], {{ LineBox[{{20.1, 0.5105263157894737}, {19.9, 0.5105263157894737}}], LineBox[{ Offset[{0, 1.5}, {20.1, 0.5105263157894737}], Offset[{0, -1.5}, {20.1, 0.5105263157894737}]}], LineBox[{ Offset[{0, 1.5}, {19.9, 0.5105263157894737}], Offset[{0, -1.5}, {19.9, 0.5105263157894737}]}], LineBox[{{20., 0.5474109775342619}, {20., 0.47364165404468545`}}], LineBox[{ Offset[{1.5, 0}, {20., 0.5474109775342619}], Offset[{-1.5, 0}, {20., 0.5474109775342619}]}], LineBox[{ Offset[{1.5, 0}, {20., 0.47364165404468545`}], Offset[{-1.5, 0}, {20., 0.47364165404468545`}]}]}, { LineBox[{{40.1, 0.6206896551724138}, {39.9, 0.6206896551724138}}], LineBox[{ Offset[{0, 1.5}, {40.1, 0.6206896551724138}], Offset[{0, -1.5}, {40.1, 0.6206896551724138}]}], LineBox[{ Offset[{0, 1.5}, {39.9, 0.6206896551724138}], Offset[{0, -1.5}, {39.9, 0.6206896551724138}]}], LineBox[{{40., 0.6539315568725159}, {40., 0.5874477534723117}}], LineBox[{ Offset[{1.5, 0}, {40., 0.6539315568725159}], Offset[{-1.5, 0}, {40., 0.6539315568725159}]}], LineBox[{ Offset[{1.5, 0}, {40., 0.5874477534723117}], Offset[{-1.5, 0}, {40., 0.5874477534723117}]}]}, { LineBox[{{60.300000000000004`, 0.6581196581196581}, {60.1, 0.6581196581196581}}], LineBox[{ Offset[{0, 1.5}, {60.300000000000004`, 0.6581196581196581}], Offset[{0, -1.5}, {60.300000000000004`, 0.6581196581196581}]}], LineBox[{ Offset[{0, 1.5}, {60.1, 0.6581196581196581}], Offset[{0, -1.5}, {60.1, 0.6581196581196581}]}], LineBox[{{60.2, 0.6984113050421915}, {60.2, 0.6178280111971247}}], LineBox[{ Offset[{1.5, 0}, {60.2, 0.6984113050421915}], Offset[{-1.5, 0}, {60.2, 0.6984113050421915}]}], LineBox[{ Offset[{1.5, 0}, {60.2, 0.6178280111971247}], Offset[{-1.5, 0}, {60.2, 0.6178280111971247}]}]}, { LineBox[{{81.6, 0.6752136752136753}, {79.6, 0.6752136752136753}}], LineBox[{ Offset[{0, 1.5}, {81.6, 0.6752136752136753}], Offset[{0, -1.5}, {81.6, 0.6752136752136753}]}], LineBox[{ Offset[{0, 1.5}, {79.6, 0.6752136752136753}], Offset[{0, -1.5}, {79.6, 0.6752136752136753}]}], LineBox[{{80.6, 0.6945216334354739}, {80.6, 0.6559057169918766}}], LineBox[{ Offset[{1.5, 0}, {80.6, 0.6945216334354739}], Offset[{-1.5, 0}, {80.6, 0.6945216334354739}]}], LineBox[{ Offset[{1.5, 0}, {80.6, 0.6559057169918766}], Offset[{-1.5, 0}, {80.6, 0.6559057169918766}]}]}, { LineBox[{{100.1, 0.6752136752136753}, {99.9, 0.6752136752136753}}], LineBox[{ Offset[{0, 1.5}, {100.1, 0.6752136752136753}], Offset[{0, -1.5}, {100.1, 0.6752136752136753}]}], LineBox[{ Offset[{0, 1.5}, {99.9, 0.6752136752136753}], Offset[{0, -1.5}, {99.9, 0.6752136752136753}]}], LineBox[{{100., 0.6945216334354739}, {100., 0.6559057169918766}}], LineBox[{ Offset[{1.5, 0}, {100., 0.6945216334354739}], Offset[{-1.5, 0}, {100., 0.6945216334354739}]}], LineBox[{ Offset[{1.5, 0}, {100., 0.6559057169918766}], Offset[{-1.5, 0}, {100., 0.6559057169918766}]}]}, { LineBox[{{119.1, 0.6779661016949152}, {118.9, 0.6779661016949152}}], LineBox[{ Offset[{0, 1.5}, {119.1, 0.6779661016949152}], Offset[{0, -1.5}, {119.1, 0.6779661016949152}]}], LineBox[{ Offset[{0, 1.5}, {118.9, 0.6779661016949152}], Offset[{0, -1.5}, {118.9, 0.6779661016949152}]}], LineBox[{{119., 0.6922440705635973}, {119., 0.6636881328262332}}], LineBox[{ Offset[{1.5, 0}, {119., 0.6922440705635973}], Offset[{-1.5, 0}, {119., 0.6922440705635973}]}], LineBox[{ Offset[{1.5, 0}, {119., 0.6636881328262332}], Offset[{-1.5, 0}, {119., 0.6636881328262332}]}]}, { LineBox[{{141.1, 0.6779661016949152}, {140.9, 0.6779661016949152}}], LineBox[{ Offset[{0, 1.5}, {141.1, 0.6779661016949152}], Offset[{0, -1.5}, {141.1, 0.6779661016949152}]}], LineBox[{ Offset[{0, 1.5}, {140.9, 0.6779661016949152}], Offset[{0, -1.5}, {140.9, 0.6779661016949152}]}], LineBox[{{141., 0.6922440705635973}, {141., 0.6636881328262332}}], LineBox[{ Offset[{1.5, 0}, {141., 0.6922440705635973}], Offset[{-1.5, 0}, {141., 0.6922440705635973}]}], LineBox[{ Offset[{1.5, 0}, {141., 0.6636881328262332}], Offset[{-1.5, 0}, {141., 0.6636881328262332}]}]}, { LineBox[{{160.1, 0.6779661016949152}, {159.9, 0.6779661016949152}}], LineBox[{ Offset[{0, 1.5}, {160.1, 0.6779661016949152}], Offset[{0, -1.5}, {160.1, 0.6779661016949152}]}], LineBox[{ Offset[{0, 1.5}, {159.9, 0.6779661016949152}], Offset[{0, -1.5}, {159.9, 0.6779661016949152}]}], LineBox[{{160., 0.6922440705635973}, {160., 0.6636881328262332}}], LineBox[{ Offset[{1.5, 0}, {160., 0.6922440705635973}], Offset[{-1.5, 0}, {160., 0.6922440705635973}]}], LineBox[{ Offset[{1.5, 0}, {160., 0.6636881328262332}], Offset[{-1.5, 0}, {160., 0.6636881328262332}]}]}, { LineBox[{{180.1, 0.6779661016949152}, {179.9, 0.6779661016949152}}], LineBox[{ Offset[{0, 1.5}, {180.1, 0.6779661016949152}], Offset[{0, -1.5}, {180.1, 0.6779661016949152}]}], LineBox[{ Offset[{0, 1.5}, {179.9, 0.6779661016949152}], Offset[{0, -1.5}, {179.9, 0.6779661016949152}]}], LineBox[{{180., 0.6922440705635973}, {180., 0.6636881328262332}}], LineBox[{ Offset[{1.5, 0}, {180., 0.6922440705635973}], Offset[{-1.5, 0}, {180., 0.6922440705635973}]}], LineBox[{ Offset[{1.5, 0}, {180., 0.6636881328262332}], Offset[{-1.5, 0}, {180., 0.6636881328262332}]}]}, { LineBox[{{199.1, 0.6806722689075629}, {198.9, 0.6806722689075629}}], LineBox[{ Offset[{0, 1.5}, {199.1, 0.6806722689075629}], Offset[{0, -1.5}, {199.1, 0.6806722689075629}]}], LineBox[{ Offset[{0, 1.5}, {198.9, 0.6806722689075629}], Offset[{0, -1.5}, {198.9, 0.6806722689075629}]}], LineBox[{{199., 0.6908376089740214}, {199., 0.6705069288411045}}], LineBox[{ Offset[{1.5, 0}, {199., 0.6908376089740214}], Offset[{-1.5, 0}, {199., 0.6908376089740214}]}], LineBox[{ Offset[{1.5, 0}, {199., 0.6705069288411045}], Offset[{-1.5, 0}, {199., 0.6705069288411045}]}]}, { LineBox[{{400.1, 0.6864406779661016}, {399.9, 0.6864406779661016}}], LineBox[{ Offset[{0, 1.5}, {400.1, 0.6864406779661016}], Offset[{0, -1.5}, {400.1, 0.6864406779661016}]}], LineBox[{ Offset[{0, 1.5}, {399.9, 0.6864406779661016}], Offset[{0, -1.5}, {399.9, 0.6864406779661016}]}], LineBox[{{400., 0.7008344987017865}, {400., 0.6720468572304168}}], LineBox[{ Offset[{1.5, 0}, {400., 0.7008344987017865}], Offset[{-1.5, 0}, {400., 0.7008344987017865}]}], LineBox[{ Offset[{1.5, 0}, {400., 0.6720468572304168}], Offset[{-1.5, 0}, {400., 0.6720468572304168}]}]}, { LineBox[{{604.2, 0.6806722689075629}, {603.8, 0.6806722689075629}}], LineBox[{ Offset[{0, 1.5}, {604.2, 0.6806722689075629}], Offset[{0, -1.5}, {604.2, 0.6806722689075629}]}], LineBox[{ Offset[{0, 1.5}, {603.8, 0.6806722689075629}], Offset[{0, -1.5}, {603.8, 0.6806722689075629}]}], LineBox[{{604., 0.6948668844009943}, {604., 0.6664776534141316}}], LineBox[{ Offset[{1.5, 0}, {604., 0.6948668844009943}], Offset[{-1.5, 0}, {604., 0.6948668844009943}]}], LineBox[{ Offset[{1.5, 0}, {604., 0.6664776534141316}], Offset[{-1.5, 0}, {604., 0.6664776534141316}]}]}, { LineBox[{{803.3, 0.6864406779661016}, {802.7, 0.6864406779661016}}], LineBox[{ Offset[{0, 1.5}, {803.3, 0.6864406779661016}], Offset[{0, -1.5}, {803.3, 0.6864406779661016}]}], LineBox[{ Offset[{0, 1.5}, {802.7, 0.6864406779661016}], Offset[{0, -1.5}, {802.7, 0.6864406779661016}]}], LineBox[{{803., 0.7008344987017865}, {803., 0.6720468572304168}}], LineBox[{ Offset[{1.5, 0}, {803., 0.7008344987017865}], Offset[{-1.5, 0}, {803., 0.7008344987017865}]}], LineBox[{ Offset[{1.5, 0}, {803., 0.6720468572304168}], Offset[{-1.5, 0}, {803., 0.6720468572304168}]}]}, { LineBox[{{1010., 0.6864406779661016}, {990., 0.6864406779661016}}], LineBox[{ Offset[{0, 1.5}, {1010., 0.6864406779661016}], Offset[{0, -1.5}, {1010., 0.6864406779661016}]}], LineBox[{ Offset[{0, 1.5}, {990., 0.6864406779661016}], Offset[{0, -1.5}, {990., 0.6864406779661016}]}], LineBox[{{1000., 0.7008344987017865}, {1000., 0.6720468572304168}}], LineBox[{ Offset[{1.5, 0}, {1000., 0.7008344987017865}], Offset[{-1.5, 0}, {1000., 0.7008344987017865}]}], LineBox[{ Offset[{1.5, 0}, {1000., 0.6720468572304168}], Offset[{-1.5, 0}, {1000., 0.6720468572304168}]}]}, { LineBox[{{1210., 0.6864406779661016}, {1190., 0.6864406779661016}}], LineBox[{ Offset[{0, 1.5}, {1210., 0.6864406779661016}], Offset[{0, -1.5}, {1210., 0.6864406779661016}]}], LineBox[{ Offset[{0, 1.5}, {1190., 0.6864406779661016}], Offset[{0, -1.5}, {1190., 0.6864406779661016}]}], LineBox[{{1200., 0.7008344987017865}, {1200., 0.6720468572304168}}], LineBox[{ Offset[{1.5, 0}, {1200., 0.7008344987017865}], Offset[{-1.5, 0}, {1200., 0.7008344987017865}]}], LineBox[{ Offset[{1.5, 0}, {1200., 0.6720468572304168}], Offset[{-1.5, 0}, {1200., 0.6720468572304168}]}]}, { LineBox[{{1400., 0.6864406779661016}, {1380., 0.6864406779661016}}], LineBox[{ Offset[{0, 1.5}, {1400., 0.6864406779661016}], Offset[{0, -1.5}, {1400., 0.6864406779661016}]}], LineBox[{ Offset[{0, 1.5}, {1380., 0.6864406779661016}], Offset[{0, -1.5}, {1380., 0.6864406779661016}]}], LineBox[{{1390., 0.7008344987017865}, {1390., 0.6720468572304168}}], LineBox[{ Offset[{1.5, 0}, {1390., 0.7008344987017865}], Offset[{-1.5, 0}, {1390., 0.7008344987017865}]}], LineBox[{ Offset[{1.5, 0}, {1390., 0.6720468572304168}], Offset[{-1.5, 0}, {1390., 0.6720468572304168}]}]}, { LineBox[{{1600., 0.6949152542372881}, {1580., 0.6949152542372881}}], LineBox[{ Offset[{0, 1.5}, {1600., 0.6949152542372881}], Offset[{0, -1.5}, {1600., 0.6949152542372881}]}], LineBox[{ Offset[{0, 1.5}, {1580., 0.6949152542372881}], Offset[{0, -1.5}, {1580., 0.6949152542372881}]}], LineBox[{{1590., 0.7094254237344725}, {1590., 0.6804050847401036}}], LineBox[{ Offset[{1.5, 0}, {1590., 0.7094254237344725}], Offset[{-1.5, 0}, {1590., 0.7094254237344725}]}], LineBox[{ Offset[{1.5, 0}, {1590., 0.6804050847401036}], Offset[{-1.5, 0}, {1590., 0.6804050847401036}]}]}, { LineBox[{{1820., 0.711864406779661}, {1800., 0.711864406779661}}], LineBox[{ Offset[{0, 1.5}, {1820., 0.711864406779661}], Offset[{0, -1.5}, {1820., 0.711864406779661}]}], LineBox[{ Offset[{0, 1.5}, {1800., 0.711864406779661}], Offset[{0, -1.5}, {1800., 0.711864406779661}]}], LineBox[{{1810., 0.7266087173806705}, {1810., 0.6971200961786516}}], LineBox[{ Offset[{1.5, 0}, {1810., 0.7266087173806705}], Offset[{-1.5, 0}, {1810., 0.7266087173806705}]}], LineBox[{ Offset[{1.5, 0}, {1810., 0.6971200961786516}], Offset[{-1.5, 0}, {1810., 0.6971200961786516}]}]}, { LineBox[{{2000., 0.7203389830508474}, {1980., 0.7203389830508474}}], LineBox[{ Offset[{0, 1.5}, {2000., 0.7203389830508474}], Offset[{0, -1.5}, {2000., 0.7203389830508474}]}], LineBox[{ Offset[{0, 1.5}, {1980., 0.7203389830508474}], Offset[{0, -1.5}, {1980., 0.7203389830508474}]}], LineBox[{{1990., 0.7352010632516494}, {1990., 0.7054769028500455}}], LineBox[{ Offset[{1.5, 0}, {1990., 0.7352010632516494}], Offset[{-1.5, 0}, {1990., 0.7352010632516494}]}], LineBox[{ Offset[{1.5, 0}, {1990., 0.7054769028500455}], Offset[{-1.5, 0}, {1990., 0.7054769028500455}]}]}}}, {}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["\"f [Hz]\"", TraditionalForm], FormBox[ "\"\\!\\(\\*FractionBox[SubscriptBox[\\(U\\), \\(ind\\)], \ SubscriptBox[\\(U\\), \\(helmholtz\\)]]\\)\"", TraditionalForm]}, AxesOrigin->{0, 0}, ImageSize->Full, Method->{}, PlotLabel->FormBox[ "\"Abbildung 1.4: Frequenz(un)abh\[ADoubleDot]ngigkeit des Spannungsverh\ \[ADoubleDot]ltnisses\"", TraditionalForm], PlotRange->{{0, 2000}, {0, 1}}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.5762411942242503`*^9, 3.576241306342408*^9, 3.5762413397274556`*^9, 3.5762415643322215`*^9, 3.5762603189389143`*^9, 3.5762611282948637`*^9, 3.5762612226745157`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["plot", RowBox[{"quotients", ",", "2"}]], "=", RowBox[{"ErrorListPlot", "[", RowBox[{ SubscriptBox["data2", "4"], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "101"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<\!\(\*FractionBox[SubscriptBox[\(U\), \(ind\)], \ SubscriptBox[\(U\), \(helmholtz\)]]\)\>\""}], "}"}]}], ",", RowBox[{ "PlotLabel", "\[Rule]", "\"\\""}], ",", RowBox[{"ImageSize", "\[Rule]", "Full"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5762413489284687`*^9, 3.5762413650114913`*^9}, { 3.5762415914616694`*^9, 3.576241644202162*^9}, 3.5762611390226583`*^9}], Cell[BoxData[ GraphicsBox[{{}, {{}, {RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQBmIQDQEmDimshzyswx7YQ/guDpynbXs33HlsP2smEEj6 OXwN4Aeip/ZpIKAW4rAtcvbWyNlPoeojUfkHYh0uFAR9f7oRyl+QiMpnSEHl N6Sh8h9kOJgKngAimPpKhxxXsAqofBOqvEQnqrxDPyr/wCRU/o6pqPwbMxw4 pPxe7bN5BuF7zHFwPOx5d/pxKF9ivgOQE8bC+9weAGG7bE0= "]], {{ LineBox[{{20.1, 0.5105263157894737}, {19.9, 0.5105263157894737}}], LineBox[{ Offset[{0, 1.5}, {20.1, 0.5105263157894737}], Offset[{0, -1.5}, {20.1, 0.5105263157894737}]}], LineBox[{ Offset[{0, 1.5}, {19.9, 0.5105263157894737}], Offset[{0, -1.5}, {19.9, 0.5105263157894737}]}], LineBox[{{20., 0.5474109775342619}, {20., 0.47364165404468545`}}], LineBox[{ Offset[{1.5, 0}, {20., 0.5474109775342619}], Offset[{-1.5, 0}, {20., 0.5474109775342619}]}], LineBox[{ Offset[{1.5, 0}, {20., 0.47364165404468545`}], Offset[{-1.5, 0}, {20., 0.47364165404468545`}]}]}, { LineBox[{{40.1, 0.6206896551724138}, {39.9, 0.6206896551724138}}], LineBox[{ Offset[{0, 1.5}, {40.1, 0.6206896551724138}], Offset[{0, -1.5}, {40.1, 0.6206896551724138}]}], LineBox[{ Offset[{0, 1.5}, {39.9, 0.6206896551724138}], Offset[{0, -1.5}, {39.9, 0.6206896551724138}]}], LineBox[{{40., 0.6539315568725159}, {40., 0.5874477534723117}}], LineBox[{ Offset[{1.5, 0}, {40., 0.6539315568725159}], Offset[{-1.5, 0}, {40., 0.6539315568725159}]}], LineBox[{ Offset[{1.5, 0}, {40., 0.5874477534723117}], Offset[{-1.5, 0}, {40., 0.5874477534723117}]}]}, { LineBox[{{60.300000000000004`, 0.6581196581196581}, {60.1, 0.6581196581196581}}], LineBox[{ Offset[{0, 1.5}, {60.300000000000004`, 0.6581196581196581}], Offset[{0, -1.5}, {60.300000000000004`, 0.6581196581196581}]}], LineBox[{ Offset[{0, 1.5}, {60.1, 0.6581196581196581}], Offset[{0, -1.5}, {60.1, 0.6581196581196581}]}], LineBox[{{60.2, 0.6984113050421915}, {60.2, 0.6178280111971247}}], LineBox[{ Offset[{1.5, 0}, {60.2, 0.6984113050421915}], Offset[{-1.5, 0}, {60.2, 0.6984113050421915}]}], LineBox[{ Offset[{1.5, 0}, {60.2, 0.6178280111971247}], Offset[{-1.5, 0}, {60.2, 0.6178280111971247}]}]}, { LineBox[{{81.6, 0.6752136752136753}, {79.6, 0.6752136752136753}}], LineBox[{ Offset[{0, 1.5}, {81.6, 0.6752136752136753}], Offset[{0, -1.5}, {81.6, 0.6752136752136753}]}], LineBox[{ Offset[{0, 1.5}, {79.6, 0.6752136752136753}], Offset[{0, -1.5}, {79.6, 0.6752136752136753}]}], LineBox[{{80.6, 0.6945216334354739}, {80.6, 0.6559057169918766}}], LineBox[{ Offset[{1.5, 0}, {80.6, 0.6945216334354739}], Offset[{-1.5, 0}, {80.6, 0.6945216334354739}]}], LineBox[{ Offset[{1.5, 0}, {80.6, 0.6559057169918766}], Offset[{-1.5, 0}, {80.6, 0.6559057169918766}]}]}, { LineBox[{{100.1, 0.6752136752136753}, {99.9, 0.6752136752136753}}], LineBox[{ Offset[{0, 1.5}, {100.1, 0.6752136752136753}], Offset[{0, -1.5}, {100.1, 0.6752136752136753}]}], LineBox[{ Offset[{0, 1.5}, {99.9, 0.6752136752136753}], Offset[{0, -1.5}, {99.9, 0.6752136752136753}]}], LineBox[{{100., 0.6945216334354739}, {100., 0.6559057169918766}}], LineBox[{ Offset[{1.5, 0}, {100., 0.6945216334354739}], Offset[{-1.5, 0}, {100., 0.6945216334354739}]}], LineBox[{ Offset[{1.5, 0}, {100., 0.6559057169918766}], Offset[{-1.5, 0}, {100., 0.6559057169918766}]}]}, { LineBox[{{119.1, 0.6779661016949152}, {118.9, 0.6779661016949152}}], LineBox[{ Offset[{0, 1.5}, {119.1, 0.6779661016949152}], Offset[{0, -1.5}, {119.1, 0.6779661016949152}]}], LineBox[{ Offset[{0, 1.5}, {118.9, 0.6779661016949152}], Offset[{0, -1.5}, {118.9, 0.6779661016949152}]}], LineBox[{{119., 0.6922440705635973}, {119., 0.6636881328262332}}], LineBox[{ Offset[{1.5, 0}, {119., 0.6922440705635973}], Offset[{-1.5, 0}, {119., 0.6922440705635973}]}], LineBox[{ Offset[{1.5, 0}, {119., 0.6636881328262332}], Offset[{-1.5, 0}, {119., 0.6636881328262332}]}]}, { LineBox[{{141.1, 0.6779661016949152}, {140.9, 0.6779661016949152}}], LineBox[{ Offset[{0, 1.5}, {141.1, 0.6779661016949152}], Offset[{0, -1.5}, {141.1, 0.6779661016949152}]}], LineBox[{ Offset[{0, 1.5}, {140.9, 0.6779661016949152}], Offset[{0, -1.5}, {140.9, 0.6779661016949152}]}], LineBox[{{141., 0.6922440705635973}, {141., 0.6636881328262332}}], LineBox[{ Offset[{1.5, 0}, {141., 0.6922440705635973}], Offset[{-1.5, 0}, {141., 0.6922440705635973}]}], LineBox[{ Offset[{1.5, 0}, {141., 0.6636881328262332}], Offset[{-1.5, 0}, {141., 0.6636881328262332}]}]}, { LineBox[{{160.1, 0.6779661016949152}, {159.9, 0.6779661016949152}}], LineBox[{ Offset[{0, 1.5}, {160.1, 0.6779661016949152}], Offset[{0, -1.5}, {160.1, 0.6779661016949152}]}], LineBox[{ Offset[{0, 1.5}, {159.9, 0.6779661016949152}], Offset[{0, -1.5}, {159.9, 0.6779661016949152}]}], LineBox[{{160., 0.6922440705635973}, {160., 0.6636881328262332}}], LineBox[{ Offset[{1.5, 0}, {160., 0.6922440705635973}], Offset[{-1.5, 0}, {160., 0.6922440705635973}]}], LineBox[{ Offset[{1.5, 0}, {160., 0.6636881328262332}], Offset[{-1.5, 0}, {160., 0.6636881328262332}]}]}, { LineBox[{{180.1, 0.6779661016949152}, {179.9, 0.6779661016949152}}], LineBox[{ Offset[{0, 1.5}, {180.1, 0.6779661016949152}], Offset[{0, -1.5}, {180.1, 0.6779661016949152}]}], LineBox[{ Offset[{0, 1.5}, {179.9, 0.6779661016949152}], Offset[{0, -1.5}, {179.9, 0.6779661016949152}]}], LineBox[{{180., 0.6922440705635973}, {180., 0.6636881328262332}}], LineBox[{ Offset[{1.5, 0}, {180., 0.6922440705635973}], Offset[{-1.5, 0}, {180., 0.6922440705635973}]}], LineBox[{ Offset[{1.5, 0}, {180., 0.6636881328262332}], Offset[{-1.5, 0}, {180., 0.6636881328262332}]}]}, { LineBox[{{199.1, 0.6806722689075629}, {198.9, 0.6806722689075629}}], LineBox[{ Offset[{0, 1.5}, {199.1, 0.6806722689075629}], Offset[{0, -1.5}, {199.1, 0.6806722689075629}]}], LineBox[{ Offset[{0, 1.5}, {198.9, 0.6806722689075629}], Offset[{0, -1.5}, {198.9, 0.6806722689075629}]}], LineBox[{{199., 0.6908376089740214}, {199., 0.6705069288411045}}], LineBox[{ Offset[{1.5, 0}, {199., 0.6908376089740214}], Offset[{-1.5, 0}, {199., 0.6908376089740214}]}], LineBox[{ Offset[{1.5, 0}, {199., 0.6705069288411045}], Offset[{-1.5, 0}, {199., 0.6705069288411045}]}]}, { LineBox[{{400.1, 0.6864406779661016}, {399.9, 0.6864406779661016}}], LineBox[{ Offset[{0, 1.5}, {400.1, 0.6864406779661016}], Offset[{0, -1.5}, {400.1, 0.6864406779661016}]}], LineBox[{ Offset[{0, 1.5}, {399.9, 0.6864406779661016}], Offset[{0, -1.5}, {399.9, 0.6864406779661016}]}], LineBox[{{400., 0.7008344987017865}, {400., 0.6720468572304168}}], LineBox[{ Offset[{1.5, 0}, {400., 0.7008344987017865}], Offset[{-1.5, 0}, {400., 0.7008344987017865}]}], LineBox[{ Offset[{1.5, 0}, {400., 0.6720468572304168}], Offset[{-1.5, 0}, {400., 0.6720468572304168}]}]}, { LineBox[{{604.2, 0.6806722689075629}, {603.8, 0.6806722689075629}}], LineBox[{ Offset[{0, 1.5}, {604.2, 0.6806722689075629}], Offset[{0, -1.5}, {604.2, 0.6806722689075629}]}], LineBox[{ Offset[{0, 1.5}, {603.8, 0.6806722689075629}], Offset[{0, -1.5}, {603.8, 0.6806722689075629}]}], LineBox[{{604., 0.6948668844009943}, {604., 0.6664776534141316}}], LineBox[{ Offset[{1.5, 0}, {604., 0.6948668844009943}], Offset[{-1.5, 0}, {604., 0.6948668844009943}]}], LineBox[{ Offset[{1.5, 0}, {604., 0.6664776534141316}], Offset[{-1.5, 0}, {604., 0.6664776534141316}]}]}, { LineBox[{{803.3, 0.6864406779661016}, {802.7, 0.6864406779661016}}], LineBox[{ Offset[{0, 1.5}, {803.3, 0.6864406779661016}], Offset[{0, -1.5}, {803.3, 0.6864406779661016}]}], LineBox[{ Offset[{0, 1.5}, {802.7, 0.6864406779661016}], Offset[{0, -1.5}, {802.7, 0.6864406779661016}]}], LineBox[{{803., 0.7008344987017865}, {803., 0.6720468572304168}}], LineBox[{ Offset[{1.5, 0}, {803., 0.7008344987017865}], Offset[{-1.5, 0}, {803., 0.7008344987017865}]}], LineBox[{ Offset[{1.5, 0}, {803., 0.6720468572304168}], Offset[{-1.5, 0}, {803., 0.6720468572304168}]}]}, { LineBox[{{1010., 0.6864406779661016}, {990., 0.6864406779661016}}], LineBox[{ Offset[{0, 1.5}, {1010., 0.6864406779661016}], Offset[{0, -1.5}, {1010., 0.6864406779661016}]}], LineBox[{ Offset[{0, 1.5}, {990., 0.6864406779661016}], Offset[{0, -1.5}, {990., 0.6864406779661016}]}], LineBox[{{1000., 0.7008344987017865}, {1000., 0.6720468572304168}}], LineBox[{ Offset[{1.5, 0}, {1000., 0.7008344987017865}], Offset[{-1.5, 0}, {1000., 0.7008344987017865}]}], LineBox[{ Offset[{1.5, 0}, {1000., 0.6720468572304168}], Offset[{-1.5, 0}, {1000., 0.6720468572304168}]}]}, { LineBox[{{1210., 0.6864406779661016}, {1190., 0.6864406779661016}}], LineBox[{ Offset[{0, 1.5}, {1210., 0.6864406779661016}], Offset[{0, -1.5}, {1210., 0.6864406779661016}]}], LineBox[{ Offset[{0, 1.5}, {1190., 0.6864406779661016}], Offset[{0, -1.5}, {1190., 0.6864406779661016}]}], LineBox[{{1200., 0.7008344987017865}, {1200., 0.6720468572304168}}], LineBox[{ Offset[{1.5, 0}, {1200., 0.7008344987017865}], Offset[{-1.5, 0}, {1200., 0.7008344987017865}]}], LineBox[{ Offset[{1.5, 0}, {1200., 0.6720468572304168}], Offset[{-1.5, 0}, {1200., 0.6720468572304168}]}]}, { LineBox[{{1400., 0.6864406779661016}, {1380., 0.6864406779661016}}], LineBox[{ Offset[{0, 1.5}, {1400., 0.6864406779661016}], Offset[{0, -1.5}, {1400., 0.6864406779661016}]}], LineBox[{ Offset[{0, 1.5}, {1380., 0.6864406779661016}], Offset[{0, -1.5}, {1380., 0.6864406779661016}]}], LineBox[{{1390., 0.7008344987017865}, {1390., 0.6720468572304168}}], LineBox[{ Offset[{1.5, 0}, {1390., 0.7008344987017865}], Offset[{-1.5, 0}, {1390., 0.7008344987017865}]}], LineBox[{ Offset[{1.5, 0}, {1390., 0.6720468572304168}], Offset[{-1.5, 0}, {1390., 0.6720468572304168}]}]}, { LineBox[{{1600., 0.6949152542372881}, {1580., 0.6949152542372881}}], LineBox[{ Offset[{0, 1.5}, {1600., 0.6949152542372881}], Offset[{0, -1.5}, {1600., 0.6949152542372881}]}], LineBox[{ Offset[{0, 1.5}, {1580., 0.6949152542372881}], Offset[{0, -1.5}, {1580., 0.6949152542372881}]}], LineBox[{{1590., 0.7094254237344725}, {1590., 0.6804050847401036}}], LineBox[{ Offset[{1.5, 0}, {1590., 0.7094254237344725}], Offset[{-1.5, 0}, {1590., 0.7094254237344725}]}], LineBox[{ Offset[{1.5, 0}, {1590., 0.6804050847401036}], Offset[{-1.5, 0}, {1590., 0.6804050847401036}]}]}, { LineBox[{{1820., 0.711864406779661}, {1800., 0.711864406779661}}], LineBox[{ Offset[{0, 1.5}, {1820., 0.711864406779661}], Offset[{0, -1.5}, {1820., 0.711864406779661}]}], LineBox[{ Offset[{0, 1.5}, {1800., 0.711864406779661}], Offset[{0, -1.5}, {1800., 0.711864406779661}]}], LineBox[{{1810., 0.7266087173806705}, {1810., 0.6971200961786516}}], LineBox[{ Offset[{1.5, 0}, {1810., 0.7266087173806705}], Offset[{-1.5, 0}, {1810., 0.7266087173806705}]}], LineBox[{ Offset[{1.5, 0}, {1810., 0.6971200961786516}], Offset[{-1.5, 0}, {1810., 0.6971200961786516}]}]}, { LineBox[{{2000., 0.7203389830508474}, {1980., 0.7203389830508474}}], LineBox[{ Offset[{0, 1.5}, {2000., 0.7203389830508474}], Offset[{0, -1.5}, {2000., 0.7203389830508474}]}], LineBox[{ Offset[{0, 1.5}, {1980., 0.7203389830508474}], Offset[{0, -1.5}, {1980., 0.7203389830508474}]}], LineBox[{{1990., 0.7352010632516494}, {1990., 0.7054769028500455}}], LineBox[{ Offset[{1.5, 0}, {1990., 0.7352010632516494}], Offset[{-1.5, 0}, {1990., 0.7352010632516494}]}], LineBox[{ Offset[{1.5, 0}, {1990., 0.7054769028500455}], Offset[{-1.5, 0}, {1990., 0.7054769028500455}]}]}}}, {}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["\"f [Hz]\"", TraditionalForm], FormBox[ "\"\\!\\(\\*FractionBox[SubscriptBox[\\(U\\), \\(ind\\)], \ SubscriptBox[\\(U\\), \\(helmholtz\\)]]\\)\"", TraditionalForm]}, AxesOrigin->{0, 0}, ImageSize->Full, Method->{}, PlotLabel->FormBox[ "\"Abbildung 1.5: Frequenzabh\[ADoubleDot]ngigkeit des Spannungsverh\ \[ADoubleDot]ltnisses bei f \[LessEqual] 100 Hz\"", TraditionalForm], PlotRange->{{0, 101}, {0, 1}}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.576241353779475*^9, 3.576241365351492*^9}, 3.5762416467605667`*^9, 3.57626031899815*^9, {3.5762611319741364`*^9, 3.576261139372287*^9}, 3.576261222731697*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["plot", "res"], "=", RowBox[{"ErrorListPlot", "[", RowBox[{ SubscriptBox["data3", "4"], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "2012"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "700"}], "}"}]}], "}"}]}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{ "PlotLabel", "\[Rule]", "\"\\""}], ",", RowBox[{"ImageSize", "\[Rule]", "Full"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.576261252648053*^9, 3.5762612895478573`*^9}, { 3.576261329218837*^9, 3.576261343784183*^9}, {3.576261375232148*^9, 3.576261434817299*^9}, 3.5762620647132874`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["fit", "res"], "=", RowBox[{"LinearModelFit", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ SubscriptBox["freqs", "4"], ",", SubscriptBox["res", "4"]}], "}"}], "]"}], ",", "x", ",", "x", ",", RowBox[{"VarianceEstimatorFunction", "\[Rule]", RowBox[{"(", RowBox[{"1", "&"}], ")"}]}], ",", RowBox[{"Weights", "\[Rule]", RowBox[{"1", "/", RowBox[{"(", RowBox[{ SubscriptBox["\[CapitalDelta]freqs", "4"], "+", SubscriptBox["\[CapitalDelta]res", "4"]}], ")"}]}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5762620677755537`*^9, 3.5762620880051622`*^9}, { 3.576262163400731*^9, 3.576262175831882*^9}, {3.57626224796308*^9, 3.5762622850081043`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"FittedModel", "[", TagBox[ PanelBox[ TagBox[ RowBox[{ RowBox[{"-", "4.467748900011546`"}], "+", RowBox[{"0.21361436934385516`", " ", "x"}]}], Short], FrameMargins->5], Editable -> False], "]"}], InterpretTemplate[ FittedModel[{ "Linear", {-4.467748900011546, 0.21361436934385516`}, {{$CellContext`x}, {1, $CellContext`x}}, {0, 0}}, {{2.2778640219270634`, 2.0101260183878846`, 1.3317857987524289`, 0.7317414454903945, 1.8245693892938153`, 2.169412024943419, 1.8901004629019071`, 1.6817253235363852`, 1.5209269136930395`, 2.165229347660472, 0.6336332592227846, 0.3293076240456061, 0.20202471308477818`, 0.05762245045404011, 0.047487693362558696`, 0.03910157388634824, 0.029516548840071506`, 0.019300886274535797`, 0.014318143407500348`}}, {{20, 4.830508474576272}, { 40, 7.682119205298013}, {60.2, 10.87360594795539}, {80.6, 14.233576642335766`}, {100, 17.359050445103854`}, { 119, 20.848056537102476`}, {141, 24.583333333333336`}, { 160, 28.0952380952381}, {180, 31.382978723404257`}, { 199, 35.20710059171598}, {400, 71.08433734939759}, { 604, 112.26415094339623`}, {803, 151.2820512820513}, { 1000, 196.66666666666669`}, {1200, 245.83333333333334`}, {1390, 295.}, { 1590, 368.75}, {1810, 491.6666666666667}, {1990, 590.}}, CompressedData[" 1:eJxTTMoPSmViYGAQBmIQDQEf7CG0iQMq3wXOnzUTCCT94Pw0EFALQVMfico/ EIvKX5CIpj4Fld+Qhsp/kIGmvhJNvgmVL9GJynfoR3PPJFT+jqmo/BszUPke c9DMn+8AAIX+MVE= "], Function[Null, Internal`LocalizedBlock[{$CellContext`x}, #], {HoldAll}], VarianceEstimatorFunction -> (1& )]& ], Editable->False, SelectWithContents->True, Selectable->True]], "Output", CellChangeTimes->{{3.576262273942388*^9, 3.576262285590392*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ SubscriptBox["plot", "res"], ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{ SubscriptBox["fit", "res"], "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "2012"}], "}"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.5762621066754932`*^9, 3.5762621228332653`*^9}}], Cell[BoxData[ GraphicsBox[{{{}, {{}, {RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQBmIQDQEmDlU5rhcKgoQdIHwXh28vf5XU7pJzmDUTCCT9 HErkEtw996s6pIGAWoiD1KP+6OnlOlD1kQ7XQu/vehVtCOEfiHWYz7zFWuqm CYS/INEhLBQIplpA1ac4tCdKtCVK2ED4DWkOp0SPPOFKsofwH2Q4NBqvc22a 5QhVX+kwN776ROrRQKh8kwPXseibzwViIHyJToeJbJkT2F4mQfgO/VD7MqDu meSwehUQ7MqD8HdMhdAFRRD6xgwIzVMOoT3mQNXXQc2fD1Xf5AAA1vdWXA== "]], {{LineBox[{{20.1, 4.830508474576272}, {19.9, 4.830508474576272}}], LineBox[{ Offset[{0, 1.5}, {20.1, 4.830508474576272}], Offset[{0, -1.5}, {20.1, 4.830508474576272}]}], LineBox[{ Offset[{0, 1.5}, {19.9, 4.830508474576272}], Offset[{0, -1.5}, {19.9, 4.830508474576272}]}], LineBox[{{20., 5.169516242543915}, {20., 4.491500706608628}}], LineBox[{ Offset[{1.5, 0}, {20., 5.169516242543915}], Offset[{-1.5, 0}, {20., 5.169516242543915}]}], LineBox[{ Offset[{1.5, 0}, {20., 4.491500706608628}], Offset[{-1.5, 0}, {20., 4.491500706608628}]}]}, { LineBox[{{40.1, 7.682119205298013}, {39.9, 7.682119205298013}}], LineBox[{ Offset[{0, 1.5}, {40.1, 7.682119205298013}], Offset[{0, -1.5}, {40.1, 7.682119205298013}]}], LineBox[{ Offset[{0, 1.5}, {39.9, 7.682119205298013}], Offset[{0, -1.5}, {39.9, 7.682119205298013}]}], LineBox[{{40., 8.079600453166243}, {40., 7.284637957429784}}], LineBox[{ Offset[{1.5, 0}, {40., 8.079600453166243}], Offset[{-1.5, 0}, {40., 8.079600453166243}]}], LineBox[{ Offset[{1.5, 0}, {40., 7.284637957429784}], Offset[{-1.5, 0}, {40., 7.284637957429784}]}]}, { LineBox[{{60.300000000000004`, 10.87360594795539}, {60.1, 10.87360594795539}}], LineBox[{ Offset[{0, 1.5}, {60.300000000000004`, 10.87360594795539}], Offset[{0, -1.5}, {60.300000000000004`, 10.87360594795539}]}], LineBox[{ Offset[{0, 1.5}, {60.1, 10.87360594795539}], Offset[{0, -1.5}, {60.1, 10.87360594795539}]}], LineBox[{{60.2, 11.5244774476641}, {60.2, 10.22273444824668}}], LineBox[{ Offset[{1.5, 0}, {60.2, 11.5244774476641}], Offset[{-1.5, 0}, {60.2, 11.5244774476641}]}], LineBox[{ Offset[{1.5, 0}, {60.2, 10.22273444824668}], Offset[{-1.5, 0}, {60.2, 10.22273444824668}]}]}, { LineBox[{{81.6, 14.233576642335766`}, {79.6, 14.233576642335766`}}], LineBox[{ Offset[{0, 1.5}, {81.6, 14.233576642335766`}], Offset[{0, -1.5}, {81.6, 14.233576642335766`}]}], LineBox[{ Offset[{0, 1.5}, {79.6, 14.233576642335766`}], Offset[{0, -1.5}, {79.6, 14.233576642335766`}]}], LineBox[{{80.6, 14.600179567676186`}, {80.6, 13.866973716995346`}}], LineBox[{ Offset[{1.5, 0}, {80.6, 14.600179567676186`}], Offset[{-1.5, 0}, {80.6, 14.600179567676186`}]}], LineBox[{ Offset[{1.5, 0}, {80.6, 13.866973716995346`}], Offset[{-1.5, 0}, {80.6, 13.866973716995346`}]}]}, { LineBox[{{100.1, 17.359050445103854`}, {99.9, 17.359050445103854`}}], LineBox[{ Offset[{0, 1.5}, {100.1, 17.359050445103854`}], Offset[{0, -1.5}, {100.1, 17.359050445103854`}]}], LineBox[{ Offset[{0, 1.5}, {99.9, 17.359050445103854`}], Offset[{0, -1.5}, {99.9, 17.359050445103854`}]}], LineBox[{{100., 17.807124969354774`}, {100., 16.910975920852934`}}], LineBox[{ Offset[{1.5, 0}, {100., 17.807124969354774`}], Offset[{-1.5, 0}, {100., 17.807124969354774`}]}], LineBox[{ Offset[{1.5, 0}, {100., 16.910975920852934`}], Offset[{-1.5, 0}, {100., 16.910975920852934`}]}]}, { LineBox[{{119.1, 20.848056537102476`}, {118.9, 20.848056537102476`}}], LineBox[{ Offset[{0, 1.5}, {119.1, 20.848056537102476`}], Offset[{0, -1.5}, {119.1, 20.848056537102476`}]}], LineBox[{ Offset[{0, 1.5}, {118.9, 20.848056537102476`}], Offset[{0, -1.5}, {118.9, 20.848056537102476`}]}], LineBox[{{119., 21.209010928662135`}, {119., 20.487102145542817`}}], LineBox[{ Offset[{1.5, 0}, {119., 21.209010928662135`}], Offset[{-1.5, 0}, {119., 21.209010928662135`}]}], LineBox[{ Offset[{1.5, 0}, {119., 20.487102145542817`}], Offset[{-1.5, 0}, {119., 20.487102145542817`}]}]}, { LineBox[{{141.1, 24.583333333333336`}, {140.9, 24.583333333333336`}}], LineBox[{ Offset[{0, 1.5}, {141.1, 24.583333333333336`}], Offset[{0, -1.5}, {141.1, 24.583333333333336`}]}], LineBox[{ Offset[{0, 1.5}, {140.9, 24.583333333333336`}], Offset[{0, -1.5}, {140.9, 24.583333333333336`}]}], LineBox[{{141., 25.012405739603572`}, {141., 24.1542609270631}}], LineBox[{ Offset[{1.5, 0}, {141., 25.012405739603572`}], Offset[{-1.5, 0}, {141., 25.012405739603572`}]}], LineBox[{ Offset[{1.5, 0}, {141., 24.1542609270631}], Offset[{-1.5, 0}, {141., 24.1542609270631}]}]}, { LineBox[{{160.1, 28.0952380952381}, {159.9, 28.0952380952381}}], LineBox[{ Offset[{0, 1.5}, {160.1, 28.0952380952381}], Offset[{0, -1.5}, {160.1, 28.0952380952381}]}], LineBox[{ Offset[{0, 1.5}, {159.9, 28.0952380952381}], Offset[{0, -1.5}, {159.9, 28.0952380952381}]}], LineBox[{{160., 28.58986552101603}, {160., 27.600610669460167`}}], LineBox[{ Offset[{1.5, 0}, {160., 28.58986552101603}], Offset[{-1.5, 0}, {160., 28.58986552101603}]}], LineBox[{ Offset[{1.5, 0}, {160., 27.600610669460167`}], Offset[{-1.5, 0}, {160., 27.600610669460167`}]}]}, { LineBox[{{180.1, 31.382978723404257`}, {179.9, 31.382978723404257`}}], LineBox[{ Offset[{0, 1.5}, {180.1, 31.382978723404257`}], Offset[{0, -1.5}, {180.1, 31.382978723404257`}]}], LineBox[{ Offset[{0, 1.5}, {179.9, 31.382978723404257`}], Offset[{0, -1.5}, {179.9, 31.382978723404257`}]}], LineBox[{{180., 31.94047251288021}, {180., 30.825484933928305`}}], LineBox[{ Offset[{1.5, 0}, {180., 31.94047251288021}], Offset[{-1.5, 0}, {180., 31.94047251288021}]}], LineBox[{ Offset[{1.5, 0}, {180., 30.825484933928305`}], Offset[{-1.5, 0}, {180., 30.825484933928305`}]}]}, { LineBox[{{199.1, 35.20710059171598}, {198.9, 35.20710059171598}}], LineBox[{ Offset[{0, 1.5}, {199.1, 35.20710059171598}], Offset[{0, -1.5}, {199.1, 35.20710059171598}]}], LineBox[{ Offset[{0, 1.5}, {198.9, 35.20710059171598}], Offset[{0, -1.5}, {198.9, 35.20710059171598}]}], LineBox[{{199., 35.56894543096153}, {199., 34.84525575247043}}], LineBox[{ Offset[{1.5, 0}, {199., 35.56894543096153}], Offset[{-1.5, 0}, {199., 35.56894543096153}]}], LineBox[{ Offset[{1.5, 0}, {199., 34.84525575247043}], Offset[{-1.5, 0}, {199., 34.84525575247043}]}]}, { LineBox[{{400.1, 71.08433734939759}, {399.9, 71.08433734939759}}], LineBox[{ Offset[{0, 1.5}, {400.1, 71.08433734939759}], Offset[{0, -1.5}, {400.1, 71.08433734939759}]}], LineBox[{ Offset[{0, 1.5}, {399.9, 71.08433734939759}], Offset[{0, -1.5}, {399.9, 71.08433734939759}]}], LineBox[{{400., 72.56253733408053}, {400., 69.60613736471464}}], LineBox[{ Offset[{1.5, 0}, {400., 72.56253733408053}], Offset[{-1.5, 0}, {400., 72.56253733408053}]}], LineBox[{ Offset[{1.5, 0}, {400., 69.60613736471464}], Offset[{-1.5, 0}, {400., 69.60613736471464}]}]}, { LineBox[{{604.2, 112.26415094339623`}, {603.8, 112.26415094339623`}}], LineBox[{ Offset[{0, 1.5}, {604.2, 112.26415094339623`}], Offset[{0, -1.5}, {604.2, 112.26415094339623`}]}], LineBox[{ Offset[{0, 1.5}, {603.8, 112.26415094339623`}], Offset[{0, -1.5}, {603.8, 112.26415094339623`}]}], LineBox[{{604., 115.10082524724262`}, {604., 109.42747663954984`}}], LineBox[{ Offset[{1.5, 0}, {604., 115.10082524724262`}], Offset[{-1.5, 0}, {604., 115.10082524724262`}]}], LineBox[{ Offset[{1.5, 0}, {604., 109.42747663954984`}], Offset[{-1.5, 0}, {604., 109.42747663954984`}]}]}, { LineBox[{{803.3, 151.2820512820513}, {802.7, 151.2820512820513}}], LineBox[{ Offset[{0, 1.5}, {803.3, 151.2820512820513}], Offset[{0, -1.5}, {803.3, 151.2820512820513}]}], LineBox[{ Offset[{0, 1.5}, {802.7, 151.2820512820513}], Offset[{0, -1.5}, {802.7, 151.2820512820513}]}], LineBox[{{803., 155.93194075215962`}, {803., 146.63216181194298`}}], LineBox[{ Offset[{1.5, 0}, {803., 155.93194075215962`}], Offset[{-1.5, 0}, {803., 155.93194075215962`}]}], LineBox[{ Offset[{1.5, 0}, {803., 146.63216181194298`}], Offset[{-1.5, 0}, {803., 146.63216181194298`}]}]}, { LineBox[{{1010., 196.66666666666669`}, {990., 196.66666666666669`}}], LineBox[{ Offset[{0, 1.5}, {1010., 196.66666666666669`}], Offset[{0, -1.5}, {1010., 196.66666666666669`}]}], LineBox[{ Offset[{0, 1.5}, {990., 196.66666666666669`}], Offset[{0, -1.5}, {990., 196.66666666666669`}]}], LineBox[{{1000., 204.0210136637213}, {1000., 189.31231966961207`}}], LineBox[{ Offset[{1.5, 0}, {1000., 204.0210136637213}], Offset[{-1.5, 0}, {1000., 204.0210136637213}]}], LineBox[{ Offset[{1.5, 0}, {1000., 189.31231966961207`}], Offset[{-1.5, 0}, {1000., 189.31231966961207`}]}]}, { LineBox[{{1210., 245.83333333333334`}, {1190., 245.83333333333334`}}], LineBox[{ Offset[{0, 1.5}, {1210., 245.83333333333334`}], Offset[{0, -1.5}, {1210., 245.83333333333334`}]}], LineBox[{ Offset[{0, 1.5}, {1190., 245.83333333333334`}], Offset[{0, -1.5}, {1190., 245.83333333333334`}]}], LineBox[{{1200., 256.89142079117653`}, {1200., 234.77524587549016`}}], LineBox[{ Offset[{1.5, 0}, {1200., 256.89142079117653`}], Offset[{-1.5, 0}, {1200., 256.89142079117653`}]}], LineBox[{ Offset[{1.5, 0}, {1200., 234.77524587549016`}], Offset[{-1.5, 0}, {1200., 234.77524587549016`}]}]}, { LineBox[{{1400., 295.}, {1380., 295.}}], LineBox[{ Offset[{0, 1.5}, {1400., 295.}], Offset[{0, -1.5}, {1400., 295.}]}], LineBox[{ Offset[{0, 1.5}, {1380., 295.}], Offset[{0, -1.5}, {1380., 295.}]}], LineBox[{{1390., 310.5744181271725}, {1390., 279.4255818728275}}], LineBox[{ Offset[{1.5, 0}, {1390., 310.5744181271725}], Offset[{-1.5, 0}, {1390., 310.5744181271725}]}], LineBox[{ Offset[{1.5, 0}, {1390., 279.4255818728275}], Offset[{-1.5, 0}, {1390., 279.4255818728275}]}]}, { LineBox[{{1600., 368.75}, {1580., 368.75}}], LineBox[{ Offset[{0, 1.5}, {1600., 368.75}], Offset[{0, -1.5}, {1600., 368.75}]}], LineBox[{ Offset[{0, 1.5}, {1580., 368.75}], Offset[{0, -1.5}, {1580., 368.75}]}], LineBox[{{1590., 392.62929955559053`}, {1590., 344.87070044440947`}}], LineBox[{ Offset[{1.5, 0}, {1590., 392.62929955559053`}], Offset[{-1.5, 0}, {1590., 392.62929955559053`}]}], LineBox[{ Offset[{1.5, 0}, {1590., 344.87070044440947`}], Offset[{-1.5, 0}, {1590., 344.87070044440947`}]}]}, { LineBox[{{1820., 491.6666666666667}, {1800., 491.6666666666667}}], LineBox[{ Offset[{0, 1.5}, {1820., 491.6666666666667}], Offset[{0, -1.5}, {1820., 491.6666666666667}]}], LineBox[{ Offset[{0, 1.5}, {1800., 491.6666666666667}], Offset[{0, -1.5}, {1800., 491.6666666666667}]}], LineBox[{{1810., 533.47775895414}, {1810., 449.8555743791934}}], LineBox[{ Offset[{1.5, 0}, {1810., 533.47775895414}], Offset[{-1.5, 0}, {1810., 533.47775895414}]}], LineBox[{ Offset[{1.5, 0}, {1810., 449.8555743791934}], Offset[{-1.5, 0}, {1810., 449.8555743791934}]}]}, { LineBox[{{2000., 590.}, {1980., 590.}}], LineBox[{ Offset[{0, 1.5}, {2000., 590.}], Offset[{0, -1.5}, {2000., 590.}]}], LineBox[{ Offset[{0, 1.5}, {1980., 590.}], Offset[{0, -1.5}, {1980., 590.}]}], LineBox[{{1990., 649.8414572015088}, {1990., 530.1585427984912}}], LineBox[{ Offset[{1.5, 0}, {1990., 649.8414572015088}], Offset[{-1.5, 0}, {1990., 649.8414572015088}]}], LineBox[{ Offset[{1.5, 0}, {1990., 530.1585427984912}], Offset[{-1.5, 0}, {1990., 530.1585427984912}]}]}}}, {}}, {}}, {{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVxXk01AkAB3C33qp0rGyqjTS0FtX2VsY6vhhXGIUURoTck3vwK2FIMmiM O2N+UatcqVeuZ/lNmy6KmEhqJ6l0t2pKba7d/ePzPjqB0e4HFOTk5Fz/8/+Z A9vfbzymbHX1XTPji3S5eOR2tUIk9dQq3MgwfnbPcnHI1J5PVpTMahn7XLX8 4DKxscI2tgGliM5R6znNbHXxCt6puvXUSkwN68ZaM9XEWW73HbQoXfjefbG3 WKog7rr4sVST2gZtj9nsGtkANRaYbrmKsoXernRTglKHvSLvU3ORJ4Rdjv25 ZgZY1rp/jZVgH/Qec1Ljz/6KNm2vL8zNwThtzTejVCzhtWOdoC8tHMJ/xAsP 8m0RFVy/OzXxIMxf7vUT9zqAftGQ1v06FmHzjywPBbpgv1517taCBEhsJlIC 43biWlFylpVSEvwKn+/qynOHjmx8VUJzCppk0kjuPU907Gi0sDU6jJfjoZmp n73AKS92yxYdQVN2jZJYzRsab1XmkmrSsR2SG1FuvliyKHHtN2kGGrOKctyi /CBf9XOOukkmJh858YSt/ljUFPNKmp2F4enRQz/MBMCI/qJ4RnwU53vuXUhV DQTTsjavQeMYwoR9KuUGQcinSvvPeeSggp7r62oWjBsdAyx643E0jtsOtgUc wPeby8Yz53OhGDwycy0jBGna/PNrzPIw2LiFFn0iFJO5gzft+fnIWDgafedS GCJjGUbUQAHOap5uv94TDu6rmqvJSnysXFzRGnQ3ArdHbpT6nucj4Lvc4ZaP kaBxldWfuxRiY7+NrEaejdnwUKP2r4XorZzeaqd/EKwTfPuwagFa7DJpPIdo 9MUNKVGWReCNvVEzMYhBu8A03P9VEQzLijTk/4jB5Zi2uNqcYuSYkKLVjFjQ 8+Y4vRtLoMrQVMi6FQvzZ6E6pv0lSBpZPO3oEwfmt9cxLlGlqHEOCfd9Egep iyCkXrMM3XYW7Jvx8Uj1c5dvbitDyYbkKe5sPH5veFDK9yxHAXs98wQ3Ac4m R4c658uRYsEwn16ZCLk0p0v5VRX4cep2XX1lIrYp/WJW53QSLfqSsx3GHPx9 /Uln9ceTOHjHLl2L4qDToX4C/Eo83b129KZdEpSUy5p/+k0Ix6AY8eD9JLDS hTodY0KEeWzatCkgGZb08AJaUhUaLrpE3H2eDJGxT/VDbREeF783l3BSsGQi yNuUEmHA51OB7nwKzBiSpJkrIjxKf/dnmhyBsFqb0u4eEd7UTk4/VCDQE6Ej YfSKoCob3VesSuCwTOqya1gEa16XsfJyAm+VfBDxRoTLndn9k7oE+vR36gs1 SVSsXb203onA1+OUnb8WiVqbFTYqLgT03hoHb1hHoiVMjRPIJMC9sKT63AYS Q5fn/tLyIGBG79NqMSKh5jrRxGMRqN9hv7TflsSR1AZXdjSB0cYWw0J7Enmn z2TciiWgok5z9nQiUXmrqoWWQCBQopgzxiTRpsFfJ00moMW6Iv/Cm8SHpoR3 TC4Bx+4t2vUsEgsStk5DFgGO9ilLtj+Jpd9CdqseIzD07MghWTAJA3vvLopH QM7hfUVrKAl6lPuHNQUEjOv82lMiSDgInGnJfAIstTsj5mwSXu0M73sCAsfZ 5p8XokkESS3yt5QQ+BeYIECT "]]}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["\"f [Hz]\"", TraditionalForm], FormBox["\"R [\[CapitalOmega]]\"", TraditionalForm]}, AxesOrigin->{0, 0}, ImageSize->Full, Method->{}, PlotLabel->FormBox[ "\"Abbildung 1.6: Widerstand der Helmholtzspule\"", TraditionalForm], PlotRange->{{0, 2012}, {0, 700}}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.576262112756268*^9, 3.57626212310832*^9}, { 3.576262166204101*^9, 3.576262177563635*^9}, {3.576262252616967*^9, 3.576262288094314*^9}}] }, Open ]], Cell["\<\ Offensichtlich erachtet die Fit-Funktion, die Datenpunkte mit dem Inversen \ der Summe ihrer Fehler gewichtet, die letzten Punkte mit den gro\[SZ]en \ Fehlern f\[UDoubleDot]r nicht fittenswert.\ \>", "Text", CellChangeTimes->{{3.57626219446196*^9, 3.5762622285295353`*^9}, 3.576262292700761*^9}, FontFamily->"Helvetica Neue"], Cell["Die Steigung des Fits betr\[ADoubleDot]gt:", "Text", CellChangeTimes->{{3.5762623143235617`*^9, 3.57626232098707*^9}}, FontFamily->"Helvetica Neue"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["m", "res"], ",", SubscriptBox["\[CapitalDelta]m", "res"]}], "}"}], "=", RowBox[{"Quantity", "[", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["fit", "res"], "[", "\"\\"", "]"}], "[", RowBox[{"[", RowBox[{"2", ",", RowBox[{"1", ";;", "2"}]}], "]"}], "]"}], ",", RowBox[{"\"\\"", "/", RowBox[{"(", RowBox[{"\"\\"", "*", "\"\\""}], ")"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.576262323988145*^9, 3.576262349427047*^9}, { 3.576262503761775*^9, 3.576262530294813*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"0.21361436934385516`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"V\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"A\"", "\[ThinSpace]", "\"Hz\"", "\[InvisibleSpace]", "\")\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts per ampere hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Volts\"", RowBox[{"\"Amperes\"", " ", "\"Hertz\""}]]}], "]"}]& )], ",", TemplateBox[{"0.0012896898595779166`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"V\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"A\"", "\[ThinSpace]", "\"Hz\"", "\[InvisibleSpace]", "\")\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts per ampere hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Volts\"", RowBox[{"\"Amperes\"", " ", "\"Hertz\""}]]}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{{3.576262328975425*^9, 3.576262350108255*^9}, { 3.576262512070663*^9, 3.576262531670437*^9}}] }, Open ]], Cell["\<\ Wir erhalten also f\[UDoubleDot]r die Induktivit\[ADoubleDot]t:\ \>", "Text", CellChangeTimes->{{3.5762623717700233`*^9, 3.5762623771108723`*^9}}, FontFamily->"Helvetica Neue"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["L", "helmholtz"], ",", SubscriptBox["\[CapitalDelta]L", "helmholtz"]}], "}"}], "=", RowBox[{ FractionBox[ RowBox[{"{", RowBox[{ SubscriptBox["m", "res"], ",", SubscriptBox["\[CapitalDelta]m", "res"]}], "}"}], RowBox[{"2", "\[Pi]"}]], "//", RowBox[{ RowBox[{"UnitConvert", "[", RowBox[{"#", ",", "\"\\""}], "]"}], "&"}]}]}], ";", RowBox[{ RowBox[{"NumberForm", "[", RowBox[{ SubscriptBox["L", "helmholtz"], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}]}], "]"}], "\[PlusMinus]", RowBox[{"NumberForm", "[", RowBox[{ SubscriptBox["\[CapitalDelta]L", "helmholtz"], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.5762623808662233`*^9, 3.576262478195489*^9}, { 3.576262537926045*^9, 3.576262543186141*^9}, {3.576263034085978*^9, 3.576263038925474*^9}}], Cell[BoxData[ RowBox[{ TagBox[ TemplateBox[{ InterpretationBox["\"34.0\"", 33.997782796532384`, AutoDelete -> True]}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mH\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millihenries"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millihenries\""}], "]"}]& )], NumberForm[#, {3, 1}]& ], "\[PlusMinus]", TagBox[ TemplateBox[{ InterpretationBox["\"0.2\"", 0.2052605162073178, AutoDelete -> True]}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mH\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millihenries"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millihenries\""}], "]"}]& )], NumberForm[#, {1, 1}]& ]}]], "Output", CellChangeTimes->{{3.576262429259109*^9, 3.576262478725664*^9}, { 3.5762625385452013`*^9, 3.5762625439736834`*^9}, 3.576263039386929*^9}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Bestimmung des Erdmagntfeldes durch Kompensation", "Section", CellChangeTimes->{{3.5757179299675293`*^9, 3.5757179563860407`*^9}}], Cell[CellGroupData[{ Cell["Messung", "Subsection", CellChangeTimes->{{3.576262587899475*^9, 3.57626258862495*^9}}], Cell["Frequenz ohne Kompensation:", "Text", CellChangeTimes->{{3.576262590673472*^9, 3.576262594832428*^9}}, FontFamily->"Helvetica Neue"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["f", "ohne"], ",", SubscriptBox["\[CapitalDelta]f", "ohne"]}], "}"}], "=", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"15.2", ",", "0.2"}], "}"}], ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.575718399991413*^9, 3.575718464588108*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"15.2`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Hz\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Hertz\""}], "]"}]& )], ",", TemplateBox[{"0.2`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Hz\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Hertz\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.57571846899436*^9, 3.5762330846225843`*^9, 3.576233505412123*^9, 3.5762603190306473`*^9, 3.576261222774397*^9}] }, Open ]], Cell[TextData[{ "Induktionsspannung ohne Kompensation (", Cell[BoxData[ FormBox[ FractionBox["1", "2"], TraditionalForm]], FormatType->"TraditionalForm"], "-mal Spitze-Spitze):" }], "Text", CellChangeTimes->{{3.5762625966562567`*^9, 3.5762626488366547`*^9}}, FontFamily->"Helvetica Neue"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["U", "ohne"], ",", SubscriptBox["\[CapitalDelta]U", "ohne"]}], "}"}], "=", RowBox[{ RowBox[{ RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"158", ",", "5"}], "}"}], ",", "\"\\""}], "]"}]}], "//", "N"}], "//", RowBox[{ RowBox[{"UnitConvert", "[", RowBox[{"#", ",", "\"\\""}], "]"}], "&"}]}]}]], "Input", CellChangeTimes->{{3.575718472465559*^9, 3.5757185251215706`*^9}, { 3.576262633816197*^9, 3.576262634431321*^9}, {3.57626266495059*^9, 3.576262667742426*^9}, {3.576262854409992*^9, 3.576262861297679*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"0.079`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.0025`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.5757185276977177`*^9, 3.5762330846537848`*^9, 3.5762335054589233`*^9, 3.576260319079474*^9, 3.5762612228073807`*^9, 3.576262635225436*^9, 3.576262668711177*^9, 3.576262861970166*^9}] }, Open ]], Cell["\<\ Stromst\[ADoubleDot]rke des Kompensationsstroms:\ \>", "Text", CellChangeTimes->{{3.5762626404139853`*^9, 3.5762626457971783`*^9}}, FontFamily->"Helvetica Neue"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["I", "comp"], ",", SubscriptBox["\[CapitalDelta]I", "comp"]}], "}"}], "=", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.061"}], ",", "0.001"}], "}"}], ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.5757188551204453`*^9, 3.575718937256143*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{RowBox[{"-", "0.061`"}]}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )], ",", TemplateBox[{"0.001`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"A\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: amperes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Amperes\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.5757189380111866`*^9, 3.576233084684984*^9, 3.5762335054901237`*^9, 3.5762603191295643`*^9, 3.5762612228526173`*^9}] }, Open ]], Cell[TextData[{ "Induktionsspannung mit Kompensation", " (", Cell[BoxData[ FormBox[ FractionBox["1", "2"], TraditionalForm]], FormatType->"TraditionalForm"], "-mal Spitze-Spitze):" }], "Text", CellChangeTimes->{{3.5762626551083*^9, 3.576262676831183*^9}}, FontFamily->"Helvetica Neue"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["U", "mit"], ",", SubscriptBox["\[CapitalDelta]U", "mit"]}], "}"}], "=", RowBox[{ RowBox[{ RowBox[{ FractionBox["1", "2"], RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"30", ",", "2"}], "}"}], ",", "\"\\""}], "]"}]}], "//", "N"}], "//", RowBox[{ RowBox[{"UnitConvert", "[", RowBox[{"#", ",", "\"\\""}], "]"}], "&"}]}]}]], "Input", CellChangeTimes->{{3.575718943355492*^9, 3.5757189824567285`*^9}, { 3.576262680636265*^9, 3.5762626845800247`*^9}, {3.576262824747816*^9, 3.576262848666334*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"0.015`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )], ",", TemplateBox[{"0.001`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"V\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Volts\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{ 3.575718987398011*^9, 3.5762330847473845`*^9, 3.5762335055369234`*^9, 3.576260319165208*^9, 3.57626122290243*^9, 3.576262685404559*^9, { 3.57626282666254*^9, 3.5762628490324297`*^9}}] }, Open ]], Cell["\<\ Drehfrequenz nochmals aufgenommen bei der Messung mit Kompensation:\ \>", "Text", CellChangeTimes->{{3.5762626889942827`*^9, 3.576262710648856*^9}}, FontFamily->"Helvetica Neue"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["f", "mit"], ",", SubscriptBox["\[CapitalDelta]f", "mit"]}], "}"}], "=", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"15.0", ",", "0.5"}], "}"}], ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.575719006139083*^9, 3.575719022334009*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"15.`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Hz\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Hertz\""}], "]"}]& )], ",", TemplateBox[{"0.5`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Hz\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Hertz\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.5762330847785845`*^9, 3.5762335055837235`*^9, 3.5762603192127523`*^9, 3.5762612229520597`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Auswertung", "Subsection", CellChangeTimes->{{3.576262722385496*^9, 3.5762627233593082`*^9}}], Cell[CellGroupData[{ Cell["Ohne Kompensation", "Subsubsection", CellChangeTimes->{{3.5762631534533567`*^9, 3.576263156938437*^9}}], Cell["\<\ Wir ermitteln wieder das Verh\[ADoubleDot]ltnis U/f und den Fehler darauf:\ \>", "Text", CellChangeTimes->{{3.5762627336883907`*^9, 3.576262736790309*^9}, { 3.5762627786521187`*^9, 3.5762627871155453`*^9}}, FontFamily->"Helvetica Neue"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"q", "=", FractionBox[ SubscriptBox["U", "ohne"], SubscriptBox["f", "ohne"]]}]], "Input", CellChangeTimes->{{3.576262770351817*^9, 3.576262810308351*^9}, { 3.576262869992469*^9, 3.576262873759645*^9}}], Cell[BoxData[ TemplateBox[{"0.005197368421052631`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ "\"V\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"Hz\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts per hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Volts\"", "\"Hertz\""]}], "]"}]& )]], "Output", CellChangeTimes->{{3.576262797606752*^9, 3.57626281096233*^9}, 3.57626287435261*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[CapitalDelta]q", "=", RowBox[{"Sqrt", "[", RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ SubscriptBox["\[CapitalDelta]U", "ohne"], SubscriptBox["f", "ohne"]], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{ SubscriptBox["U", "ohne"], " ", SubscriptBox["\[CapitalDelta]f", "ohne"]}], SuperscriptBox[ SubscriptBox["f", "ohne"], "2"]], ")"}], "2"]}], "]"}]}]], "Input", CellChangeTimes->{{3.576262814487927*^9, 3.576262816747367*^9}, { 3.576262877551627*^9, 3.576262918781604*^9}}], Cell[BoxData[ TemplateBox[{"0.00017812438390045325`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ "\"V\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"Hz\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts per hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Volts\"", "\"Hertz\""]}], "]"}]& )]], "Output", CellChangeTimes->{3.576262920112444*^9}] }, Open ]], Cell["\<\ Anschlie\[SZ]end nutzen wir die Formel wie oben:\ \>", "Text", CellChangeTimes->{{3.576262932179206*^9, 3.576262936889529*^9}}, FontFamily->"Helvetica Neue"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["B", "abs"], ",", SubscriptBox["\[CapitalDelta]B", "abs"]}], "}"}], "=", RowBox[{ FractionBox[ RowBox[{"{", RowBox[{"q", ",", "\[CapitalDelta]q"}], "}"}], RowBox[{"2", "\[Pi]", " ", SubscriptBox["A", "ind"], SubscriptBox["N", "ind"]}]], "//", RowBox[{ RowBox[{"UnitConvert", "[", RowBox[{"#1", ",", "\"\\""}], "]"}], "&"}]}]}], ";", RowBox[{ RowBox[{"NumberForm", "[", RowBox[{ SubscriptBox["B", "abs"], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}]}], "]"}], "\[PlusMinus]", RowBox[{"NumberForm", "[", RowBox[{ SubscriptBox["\[CapitalDelta]B", "abs"], ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.57626275967435*^9, 3.576262764799574*^9}, { 3.576262926917883*^9, 3.576262963451269*^9}, {3.576263016120021*^9, 3.576263024070013*^9}, {3.5762630778436747`*^9, 3.576263080635181*^9}}], Cell[BoxData[ RowBox[{ TagBox[ TemplateBox[{ InterpretationBox["\"0.050\"", 0.04959153928538641, AutoDelete -> True]}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mT\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: milliteslas"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Milliteslas\""}], "]"}]& )], NumberForm[#, {2, 3}]& ], "\[PlusMinus]", TagBox[ TemplateBox[{ InterpretationBox[ "\"0.002\"", 0.0016996028886664002`, AutoDelete -> True]}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mT\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: milliteslas"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Milliteslas\""}], "]"}]& )], NumberForm[#, {1, 3}]& ]}]], "Output", CellChangeTimes->{{3.57626293858645*^9, 3.57626296413195*^9}, 3.576263025155122*^9, {3.576263078507807*^9, 3.576263081337263*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Mit Kompensation", "Subsubsection", CellChangeTimes->{{3.576263161412107*^9, 3.576263163067993*^9}}], Cell["\<\ Wir ermitteln die Vertikalkomponente aus dem gemessenen Kompensationsstrom: \ Ihr Betrag mu\[SZ] so gro\[SZ] sein wie der des Helmholtz-Feldes.\ \>", "Text", CellChangeTimes->{{3.5762631648661823`*^9, 3.576263189416182*^9}, { 3.576263241652644*^9, 3.576263245198882*^9}}, FontFamily->"Helvetica Neue"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["B", "vert"], ",", SubscriptBox["\[CapitalDelta]B", "vert"]}], "}"}], "=", RowBox[{ RowBox[{ RowBox[{ FractionBox[ RowBox[{"Quantity", "[", "\"\\"", "]"}], "2"], FractionBox[ RowBox[{"8", " ", RowBox[{"{", RowBox[{ SubscriptBox["I", "comp"], ",", SubscriptBox["\[CapitalDelta]I", "comp"]}], "}"}], " ", RowBox[{"(", RowBox[{ SubscriptBox["N", "helmholtz"], "+", SubscriptBox["N", "helmholtz"]}], ")"}]}], RowBox[{ SqrtBox["125"], SubscriptBox["R", "helmholtz"]}]]}], "//", "Abs"}], "//", RowBox[{ RowBox[{"UnitConvert", "[", RowBox[{"#", ",", "\"\\""}], "]"}], "&"}]}]}], ";", RowBox[{ RowBox[{"NumberForm", "[", RowBox[{ SubscriptBox["B", "vert"], ",", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}]}], "]"}], "\[PlusMinus]", RowBox[{"NumberForm", "[", RowBox[{ SubscriptBox["\[CapitalDelta]B", "vert"], ",", RowBox[{"{", RowBox[{"1", ",", "4"}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.57626320361939*^9, 3.576263284182678*^9}}], Cell[BoxData[ RowBox[{ TagBox[ TemplateBox[{ InterpretationBox[ "\"0.0461\"", 0.046110979146276494`, AutoDelete -> True]}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mT\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: milliteslas"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Milliteslas\""}], "]"}]& )], NumberForm[#, {3, 4}]& ], "\[PlusMinus]", TagBox[ TemplateBox[{ InterpretationBox[ "\"0.0008\"", 0.0007559176909225655, AutoDelete -> True]}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mT\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: milliteslas"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Milliteslas\""}], "]"}]& )], NumberForm[#, {1, 4}]& ]}]], "Output", CellChangeTimes->{{3.576263221177458*^9, 3.5762632851071177`*^9}}] }, Open ]], Cell["\<\ Die Horizontalkomponente ergibt sich wieder wie oben:\ \>", "Text", CellChangeTimes->{{3.5762633011067266`*^9, 3.576263312992038*^9}}, FontFamily->"Helvetica Neue"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"q2", "=", FractionBox[ SubscriptBox["U", "mit"], SubscriptBox["f", "mit"]]}]], "Input", CellChangeTimes->{{3.576263315287066*^9, 3.576263323791553*^9}}], Cell[BoxData[ TemplateBox[{"0.001`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ "\"V\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"Hz\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts per hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Volts\"", "\"Hertz\""]}], "]"}]& )]], "Output", CellChangeTimes->{3.576263324726099*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[CapitalDelta]q2", "=", RowBox[{"Sqrt", "[", RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ SubscriptBox["\[CapitalDelta]U", "mit"], SubscriptBox["f", "mit"]], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{ SubscriptBox["U", "mit"], " ", SubscriptBox["\[CapitalDelta]f", "mit"]}], SuperscriptBox[ SubscriptBox["f", "mit"], "2"]], ")"}], "2"]}], "]"}]}]], "Input", CellChangeTimes->{{3.576263330167017*^9, 3.576263345558742*^9}}], Cell[BoxData[ TemplateBox[{"0.000074535599249993`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{ "\"V\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"Hz\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: volts per hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Volts\"", "\"Hertz\""]}], "]"}]& )]], "Output", CellChangeTimes->{3.576263346382285*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["B", "hor"], ",", SubscriptBox["\[CapitalDelta]B", "hor"]}], "}"}], "=", RowBox[{ FractionBox[ RowBox[{"{", RowBox[{"q2", ",", "\[CapitalDelta]q2"}], "}"}], RowBox[{"2", "\[Pi]", " ", SubscriptBox["A", "ind"], SubscriptBox["N", "ind"]}]], "//", RowBox[{ RowBox[{"UnitConvert", "[", RowBox[{"#1", ",", "\"\\""}], "]"}], "&"}]}]}], ";", RowBox[{ RowBox[{"NumberForm", "[", RowBox[{ SubscriptBox["B", "hor"], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}]}], "]"}], "\[PlusMinus]", RowBox[{"NumberForm", "[", RowBox[{ SubscriptBox["\[CapitalDelta]B", "hor"], ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.5762633538738832`*^9, 3.576263395860984*^9}}], Cell[BoxData[ RowBox[{ TagBox[ TemplateBox[{ InterpretationBox["\"0.010\"", 0.009541663254909792, AutoDelete -> True]}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mT\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: milliteslas"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Milliteslas\""}], "]"}]& )], NumberForm[#, {2, 3}]& ], "\[PlusMinus]", TagBox[ TemplateBox[{ InterpretationBox["\"0.001\"", 0.0007111935885463401, AutoDelete -> True]}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mT\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: milliteslas"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Milliteslas\""}], "]"}]& )], NumberForm[#, {1, 3}]& ]}]], "Output", CellChangeTimes->{{3.576263369729546*^9, 3.576263396516685*^9}}] }, Open ]], Cell["\<\ Damit ergibt sich der Inklinationswinkel in Radian zu:\ \>", "Text", CellChangeTimes->{{3.576263406123045*^9, 3.576263412169197*^9}, { 3.5762637678807898`*^9, 3.5762637690089903`*^9}}, FontFamily->"Helvetica Neue"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[Alpha]", "=", RowBox[{"ArcTan", "[", FractionBox[ SubscriptBox["B", "vert"], SubscriptBox["B", "hor"]], "]"}]}]], "Input", CellChangeTimes->{{3.576263692754445*^9, 3.576263708102951*^9}}], Cell[BoxData["1.3667479703824228`"], "Output", CellChangeTimes->{3.5762637088334618`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[CapitalDelta]\[Alpha]", "=", RowBox[{"Sqrt", "[", RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{ SubscriptBox["B", "hor"], SubscriptBox["\[CapitalDelta]B", "vert"]}], RowBox[{ SuperscriptBox[ SubscriptBox["B", "hor"], "2"], "+", SuperscriptBox[ SubscriptBox["B", "vert"], "2"]}]], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{ SubscriptBox["\[CapitalDelta]B", "hor"], SubscriptBox["B", "vert"]}], RowBox[{ SuperscriptBox[ SubscriptBox["B", "hor"], "2"], "+", SuperscriptBox[ SubscriptBox["B", "vert"], "2"]}]], ")"}], "2"]}], "]"}]}]], "Input", CellChangeTimes->{{3.57626370971557*^9, 3.5762637604601*^9}}], Cell[BoxData["0.015143720016829064`"], "Output", CellChangeTimes->{3.576263761700716*^9}] }, Open ]], Cell["Das entspricht in Grad:", "Text", CellChangeTimes->{{3.5762637720810757`*^9, 3.5762637747048607`*^9}}, FontFamily->"Helvetica Neue"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"NumberForm", "[", RowBox[{ RowBox[{ FractionBox["\[Alpha]", RowBox[{"2", "\[Pi]"}]], "*", "360"}], ",", "3"}], "]"}], "\[PlusMinus]", RowBox[{"NumberForm", "[", RowBox[{ RowBox[{ FractionBox["\[CapitalDelta]\[Alpha]", RowBox[{"2", "\[Pi]"}]], "*", "360"}], ",", "1"}], "]"}]}]], "Input", CellChangeTimes->{{3.5762638079123697`*^9, 3.576263863989547*^9}}], Cell[BoxData[ RowBox[{ TagBox[ InterpretationBox["\<\"78.3\"\>", 78.30889036098407, AutoDelete->True], NumberForm[#, 3]& ], "\[PlusMinus]", TagBox[ InterpretationBox["\<\"0.9\"\>", 0.8676712430920894, AutoDelete->True], NumberForm[#, 1]& ]}]], "Output", CellChangeTimes->{{3.576263838000958*^9, 3.576263864292328*^9}}] }, Open ]], Cell[TextData[{ "Der Literaturwert f\[UDoubleDot]r Heidelberg betr\[ADoubleDot]gt indes etwa \ 65\[Degree] (vgl. ", StyleBox["ftp://ftp.ngdc.noaa.gov/geomag/images/I_map_mf_2005_large.jpeg, ", FontFamily->"Courier"], "30. 4. 2012, 00:45)." }], "Text", CellChangeTimes->{{3.5762638757142687`*^9, 3.576263881265579*^9}, { 3.5762639919242353`*^9, 3.5762640168324947`*^9}, {3.57626423387431*^9, 3.576264255848398*^9}}, FontFamily->"Helvetica Neue"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{824, 778}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, FrontEndVersion->"9.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (November 20, \ 2012)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[579, 22, 98, 1, 92, "Title"], Cell[680, 25, 272, 6, 28, "Input"], Cell[CellGroupData[{ Cell[977, 35, 97, 1, 80, "Section"], Cell[1077, 38, 668, 15, 151, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[1782, 58, 101, 1, 80, "Section"], Cell[CellGroupData[{ Cell[1908, 63, 126, 1, 44, "Subsection"], Cell[2037, 66, 156, 2, 31, "Text"], Cell[CellGroupData[{ Cell[2218, 72, 489, 16, 35, "Input"], Cell[2710, 90, 574, 14, 32, "Output"] }, Open ]], Cell[3299, 107, 167, 2, 31, "Text"], Cell[CellGroupData[{ Cell[3491, 113, 144, 3, 28, "Input"], Cell[3638, 118, 146, 2, 28, "Output"] }, Open ]], Cell[3799, 123, 141, 2, 31, "Text"], Cell[CellGroupData[{ Cell[3965, 129, 367, 10, 28, "Input"], Cell[4335, 141, 462, 11, 28, "Output"] }, Open ]], Cell[4812, 155, 140, 2, 31, "Text"], Cell[CellGroupData[{ Cell[4977, 161, 344, 9, 28, "Input"], Cell[5324, 172, 489, 11, 62, "Output"] }, Open ]], Cell[5828, 186, 147, 2, 31, "Text"], Cell[CellGroupData[{ Cell[6000, 192, 151, 3, 28, "Input"], Cell[6154, 197, 121, 2, 28, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[6324, 205, 99, 1, 44, "Subsection"], Cell[6426, 208, 147, 2, 31, "Text"], Cell[CellGroupData[{ Cell[6598, 214, 604, 17, 35, "Input"], Cell[7205, 233, 897, 22, 28, "Output"] }, Open ]], Cell[8117, 258, 190, 4, 31, "Text"], Cell[CellGroupData[{ Cell[8332, 266, 213, 5, 28, "Input"], Cell[8548, 273, 478, 11, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9063, 289, 489, 14, 35, "Input"], Cell[9555, 305, 913, 23, 28, "Output"] }, Open ]], Cell[10483, 331, 398, 9, 71, "Text"], Cell[CellGroupData[{ Cell[10906, 344, 363, 11, 28, "Input"], Cell[11272, 357, 882, 22, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12191, 384, 365, 11, 28, "Input"], Cell[12559, 397, 887, 22, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[13483, 424, 2647, 78, 257, "Input"], Cell[16133, 504, 8486, 216, 63, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[24656, 725, 265, 8, 28, "Input"], Cell[24924, 735, 878, 22, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[25839, 762, 4182, 132, 409, "Input"], Cell[30024, 896, 15130, 383, 97, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[45203, 1285, 98, 1, 44, "Subsection"], Cell[45304, 1288, 282, 5, 51, "Text"], Cell[45589, 1295, 496, 13, 31, "Input"], Cell[46088, 1310, 462, 12, 31, "Input"], Cell[46553, 1324, 450, 12, 31, "Input"], Cell[47006, 1338, 465, 12, 31, "Input"], Cell[47474, 1352, 994, 29, 49, "Input"], Cell[48471, 1383, 228, 5, 31, "Text"], Cell[48702, 1390, 577, 16, 33, "Input"], Cell[CellGroupData[{ Cell[49304, 1410, 835, 23, 57, "Input"], Cell[50142, 1435, 1006, 27, 42, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[51185, 1467, 727, 19, 74, "Input"], Cell[51915, 1488, 5231, 106, 455, "Output"] }, Open ]], Cell[57161, 1597, 216, 3, 31, "Text"], Cell[CellGroupData[{ Cell[57402, 1604, 654, 18, 35, "Input"], Cell[58059, 1624, 1171, 31, 28, "Output"] }, Open ]], Cell[59245, 1658, 304, 6, 31, "Text"], Cell[CellGroupData[{ Cell[59574, 1668, 949, 28, 75, "Input"], Cell[60526, 1698, 1099, 27, 28, "Output"] }, Open ]], Cell[61640, 1728, 337, 7, 31, "Text"], Cell[CellGroupData[{ Cell[62002, 1739, 1380, 40, 121, "Input"], Cell[63385, 1781, 1162, 29, 28, "Output"] }, Open ]], Cell[64562, 1813, 243, 5, 31, "Text"], Cell[64808, 1820, 614, 11, 71, "Text"], Cell[65425, 1833, 553, 14, 28, "Input"], Cell[65981, 1849, 538, 13, 28, "Input"], Cell[66522, 1864, 502, 13, 31, "Input"], Cell[67027, 1879, 515, 13, 31, "Input"], Cell[67545, 1894, 1056, 30, 64, "Input"], Cell[68604, 1926, 630, 17, 31, "Input"], Cell[CellGroupData[{ Cell[69259, 1947, 897, 24, 57, "Input"], Cell[70159, 1973, 1198, 29, 42, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[71394, 2007, 838, 20, 81, "Input"], Cell[72235, 2029, 7268, 148, 459, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[79564, 2184, 132, 1, 80, "Section"], Cell[CellGroupData[{ Cell[79721, 2189, 99, 1, 44, "Subsection"], Cell[79823, 2192, 246, 5, 31, "Text"], Cell[80072, 2199, 265, 7, 33, "Text"], Cell[CellGroupData[{ Cell[80362, 2210, 329, 9, 28, "Input"], Cell[80694, 2221, 936, 24, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[81667, 2250, 3058, 93, 333, "Input"], Cell[84728, 2345, 7125, 188, 63, "Output"] }, Open ]], Cell[91868, 2536, 325, 6, 51, "Text"], Cell[92196, 2544, 262, 6, 31, "Text"], Cell[CellGroupData[{ Cell[92483, 2554, 15977, 505, 1511, "Input"], Cell[108463, 3061, 62376, 1563, 335, "Output"] }, Open ]], Cell[170854, 4627, 314, 6, 51, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[171205, 4638, 98, 1, 44, "Subsection"], Cell[171306, 4641, 322, 8, 31, "Text"], Cell[171631, 4651, 574, 14, 31, "Input"], Cell[172208, 4667, 513, 13, 31, "Input"], Cell[172724, 4682, 500, 13, 31, "Input"], Cell[173227, 4697, 513, 13, 31, "Input"], Cell[173743, 4712, 1048, 30, 49, "Input"], Cell[CellGroupData[{ Cell[174816, 4746, 865, 24, 83, "Input"], Cell[175684, 4772, 5816, 120, 453, "Output"] }, Open ]], Cell[181515, 4895, 203, 4, 31, "Text"], Cell[181721, 4901, 594, 14, 31, "Input"], Cell[182318, 4917, 563, 14, 31, "Input"], Cell[182884, 4933, 543, 14, 28, "Input"], Cell[183430, 4949, 565, 14, 28, "Input"], Cell[183998, 4965, 597, 14, 28, "Input"], Cell[184598, 4981, 565, 14, 28, "Input"], Cell[185166, 4997, 594, 14, 28, "Input"], Cell[185763, 5013, 611, 14, 28, "Input"], Cell[186377, 5029, 442, 11, 63, "Text"], Cell[186822, 5042, 342, 9, 51, "Input"], Cell[187167, 5053, 777, 23, 54, "Input"], Cell[187947, 5078, 387, 10, 40, "Text"], Cell[188337, 5090, 315, 8, 51, "Input"], Cell[188655, 5100, 734, 22, 54, "Input"], Cell[189392, 5124, 1234, 32, 49, "Input"], Cell[190629, 5158, 1277, 33, 49, "Input"], Cell[CellGroupData[{ Cell[191931, 5195, 1109, 28, 124, "Input"], Cell[193043, 5225, 14160, 293, 470, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[207240, 5523, 1009, 26, 141, "Input"], Cell[208252, 5551, 14178, 293, 470, "Output"] }, Open ]], Cell[222445, 5847, 919, 24, 64, "Input"], Cell[CellGroupData[{ Cell[223389, 5875, 807, 22, 49, "Input"], Cell[224199, 5899, 1837, 41, 42, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[226073, 5945, 362, 10, 31, "Input"], Cell[226438, 5957, 15788, 318, 451, "Output"] }, Open ]], Cell[242241, 6278, 341, 7, 51, "Text"], Cell[242585, 6287, 156, 2, 31, "Text"], Cell[CellGroupData[{ Cell[242766, 6293, 664, 20, 46, "Input"], Cell[243433, 6315, 1433, 35, 28, "Output"] }, Open ]], Cell[244881, 6353, 188, 4, 31, "Text"], Cell[CellGroupData[{ Cell[245094, 6361, 1021, 30, 67, "Input"], Cell[246118, 6393, 1117, 27, 28, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[247296, 6427, 137, 1, 80, "Section"], Cell[CellGroupData[{ Cell[247458, 6432, 94, 1, 44, "Subsection"], Cell[247555, 6435, 140, 2, 31, "Text"], Cell[CellGroupData[{ Cell[247720, 6441, 362, 11, 28, "Input"], Cell[248085, 6454, 882, 22, 28, "Output"] }, Open ]], Cell[248982, 6479, 300, 9, 39, "Text"], Cell[CellGroupData[{ Cell[249307, 6492, 714, 20, 48, "Input"], Cell[250024, 6514, 958, 23, 28, "Output"] }, Open ]], Cell[250997, 6540, 173, 4, 31, "Text"], Cell[CellGroupData[{ Cell[251195, 6548, 391, 12, 35, "Input"], Cell[251589, 6562, 911, 22, 28, "Output"] }, Open ]], Cell[252515, 6587, 298, 10, 39, "Text"], Cell[CellGroupData[{ Cell[252838, 6601, 666, 20, 48, "Input"], Cell[253507, 6623, 960, 24, 28, "Output"] }, Open ]], Cell[254482, 6650, 190, 4, 31, "Text"], Cell[CellGroupData[{ Cell[254697, 6658, 360, 11, 28, "Input"], Cell[255060, 6671, 864, 22, 28, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[255973, 6699, 100, 1, 44, "Subsection"], Cell[CellGroupData[{ Cell[256098, 6704, 110, 1, 35, "Subsubsection"], Cell[256211, 6707, 250, 5, 31, "Text"], Cell[CellGroupData[{ Cell[256486, 6716, 237, 6, 50, "Input"], Cell[256726, 6724, 597, 15, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[257360, 6744, 628, 18, 54, "Input"], Cell[257991, 6764, 551, 14, 28, "Output"] }, Open ]], Cell[258557, 6781, 169, 4, 31, "Text"], Cell[CellGroupData[{ Cell[258751, 6789, 1055, 30, 69, "Input"], Cell[259809, 6821, 1120, 28, 28, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[260978, 6855, 107, 1, 35, "Subsubsection"], Cell[261088, 6858, 315, 6, 51, "Text"], Cell[CellGroupData[{ Cell[261428, 6868, 1279, 39, 96, "Input"], Cell[262710, 6909, 1061, 28, 28, "Output"] }, Open ]], Cell[263786, 6940, 176, 4, 31, "Text"], Cell[CellGroupData[{ Cell[263987, 6948, 187, 5, 50, "Input"], Cell[264177, 6955, 534, 14, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[264748, 6974, 575, 17, 54, "Input"], Cell[265326, 6993, 549, 14, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[265912, 7012, 914, 28, 71, "Input"], Cell[266829, 7042, 1044, 26, 28, "Output"] }, Open ]], Cell[267888, 7071, 228, 5, 31, "Text"], Cell[CellGroupData[{ Cell[268141, 7080, 230, 6, 50, "Input"], Cell[268374, 7088, 90, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[268501, 7094, 843, 26, 54, "Input"], Cell[269347, 7122, 90, 1, 28, "Output"] }, Open ]], Cell[269452, 7126, 140, 2, 31, "Text"], Cell[CellGroupData[{ Cell[269617, 7132, 436, 13, 48, "Input"], Cell[270056, 7147, 353, 12, 28, "Output"] }, Open ]], Cell[270424, 7162, 456, 10, 52, "Text"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)