(* 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[ 248802, 6734] NotebookOptionsPosition[ 240209, 6438] NotebookOutlinePosition[ 240552, 6453] CellTagsIndexPosition[ 240509, 6450] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["245 Induktion", "Title", CellChangeTimes->{{3.575709285834113*^9, 3.5757093124346347`*^9}}], Cell[BoxData[ RowBox[{"Needs", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.57623342376158*^9, 3.576233433386797*^9}}], 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 des \ Magnetenmaterials (Aua).\ \>", "Text", CellChangeTimes->{{3.5757093528539467`*^9, 3.5757095801579475`*^9}}] }, 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}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["A", "ind"], "=", RowBox[{ RowBox[{"Quantity", "[", RowBox[{"41.7", ",", SuperscriptBox["\"\\"", "2"]}], "]"}], "//", "UnitConvert"}]}]], "Input", CellChangeTimes->{{3.5762358756206884`*^9, 3.576235905635141*^9}, { 3.5762359576612325`*^9, 3.576235958534834*^9}}], 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}] }, Open ]], Cell["\<\ Windungszahl der Induktionsspule\ \>", "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}}] }, Open ]], Cell["Radius der Helmholtzspulen", "Text", CellChangeTimes->{{3.5762359651336455`*^9, 3.576235973838461*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["R", "helmholtz"], "=", RowBox[{ RowBox[{"Quantity", "[", RowBox[{ RowBox[{"295", "/", "2"}], ",", "\"\\""}], "]"}], "//", "UnitConvert"}]}]], "Input", CellChangeTimes->{{3.576235998564504*^9, 3.576236032213763*^9}}], Cell[BoxData[ TemplateBox[{FractionBox["59", "400"]}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"m\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Meters\""}], "]"}]& )]], "Output", CellChangeTimes->{3.5762360326817636`*^9}] }, Open ]], Cell["Abstand der Helmholtzspulen", "Text", CellChangeTimes->{{3.576236051885398*^9, 3.576236055567004*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["D", "helmholtz"], "=", RowBox[{ RowBox[{"Quantity", "[", RowBox[{"147", ",", "\"\\""}], "]"}], "//", "UnitConvert"}]}]], "Input", CellChangeTimes->{{3.5762360573454075`*^9, 3.576236097640278*^9}}], Cell[BoxData[ TemplateBox[{FractionBox["147", "1000"]}, "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}}] }, Open ]], Cell["\<\ Windungszahl der Helmholtzspulen\ \>", "Text", CellChangeTimes->{{3.5762360814474497`*^9, 3.576236089013463*^9}}], 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}] }, 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}}], 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}] }, Open ]], Cell["\<\ Der maximale Strom darf 5 A nicht \[UDoubleDot]berschreiten. Also: \ \>", "Text", CellChangeTimes->{{3.5757099089807553`*^9, 3.575709933132137*^9}}], 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}] }, 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}] }, 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}}], 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}] }, 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}] }, 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}] }, 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}] }, 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}] }, 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}}], Cell[CellGroupData[{ Cell[BoxData[ 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}}], Cell[BoxData[ RowBox[{"{", RowBox[{"3", ",", "6.1`", ",", "9.1`", ",", "11.9`", ",", "14.9`"}], "}"}]], "Output", CellChangeTimes->{{3.5762330728289633`*^9, 3.576233082984582*^9}, { 3.5762331287706623`*^9, 3.576233216114015*^9}, {3.5762335034153194`*^9, 3.576233527049361*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ 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}}], Cell[BoxData[ RowBox[{"{", RowBox[{"0.2`", ",", "0.2`", ",", "0.2`", ",", "0.1`", ",", "0.1`"}], "}"}]], "Output", CellChangeTimes->{{3.5762332319324427`*^9, 3.5762332397480564`*^9}, 3.5762335034777203`*^9, 3.576233533772973*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ 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}}], Cell[BoxData[ RowBox[{"{", RowBox[{"1.12`", ",", "2.41`", ",", "3.6`", ",", "4.8`", ",", "5.95`"}], "}"}]], "Output", CellChangeTimes->{3.5762332642244997`*^9, 3.57623350354012*^9, 3.5762335395137835`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ 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}}], Cell[BoxData[ RowBox[{"{", RowBox[{"0.015`", ",", "0.025`", ",", "0.1`", ",", "0.05`", ",", "0.1`"}], "}"}]], "Output", CellChangeTimes->{3.5762332767201214`*^9, 3.57623350360252*^9, 3.5762335454105935`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ 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}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "1.12`"}], "}"}], ",", RowBox[{"ErrorBar", "[", RowBox[{"0.2`", ",", "0.015`"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"6.1`", ",", "2.41`"}], "}"}], ",", RowBox[{"ErrorBar", "[", RowBox[{"0.2`", ",", "0.025`"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"9.1`", ",", "3.6`"}], "}"}], ",", RowBox[{"ErrorBar", "[", RowBox[{"0.2`", ",", "0.1`"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"11.9`", ",", "4.8`"}], "}"}], ",", RowBox[{"ErrorBar", "[", RowBox[{"0.1`", ",", "0.05`"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"14.9`", ",", "5.95`"}], "}"}], ",", RowBox[{"ErrorBar", "[", RowBox[{"0.1`", ",", "0.1`"}], "]"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.576233568171034*^9, 3.576233605002698*^9}}] }, Open ]], 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}}], 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}}] }, 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}}] }, Open ]], Cell["\<\ Die Steigung ergibt sich aus dem Diagramm mit Fehler als:\ \>", "Text", CellChangeTimes->{{3.576235798728153*^9, 3.576235807167768*^9}}], 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}] }, 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}}], 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}] }, 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}}], 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}}] }, 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}}], 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}}], Cell[CellGroupData[{ Cell[BoxData[ 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}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.5`", ",", "1", ",", "1.5`", ",", "2", ",", "2.5`", ",", "3", ",", "3.5`", ",", "4", ",", "4.5`"}], "}"}]], "Output", CellChangeTimes->{{3.5762330728289633`*^9, 3.576233082984582*^9}, { 3.5762331287706623`*^9, 3.576233216114015*^9}, {3.5762335034153194`*^9, 3.576233527049361*^9}, 3.57623370269007*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ 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}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`"}], "}"}]], "Output", CellChangeTimes->{{3.5762332319324427`*^9, 3.5762332397480564`*^9}, 3.5762335034777203`*^9, 3.576233533772973*^9, 3.576233711550885*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ 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}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.525`", ",", "0.945`", ",", "1.375`", ",", "1.725`", ",", "2.19`", ",", "2.575`", ",", "2.95`", ",", "3.325`", ",", "3.89`"}], "}"}]], "Output", CellChangeTimes->{3.5762332642244997`*^9, 3.57623350354012*^9, 3.5762335395137835`*^9, 3.576233726542512*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ 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}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.025`", ",", "0.015`", ",", "0.025`", ",", "0.025`", ",", "0.015`", ",", "0.025`", ",", "0.025`", ",", "0.025`", ",", "0.02`"}], "}"}]], "Output", CellChangeTimes->{3.5762332767201214`*^9, 3.57623350360252*^9, 3.5762335454105935`*^9, 3.5762337332973237`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ 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}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.5`", ",", "0.525`"}], "}"}], ",", RowBox[{"ErrorBar", "[", RowBox[{"0.1`", ",", "0.1`"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0.945`"}], "}"}], ",", RowBox[{"ErrorBar", "[", RowBox[{"0.1`", ",", "0.1`"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.5`", ",", "1.375`"}], "}"}], ",", RowBox[{"ErrorBar", "[", RowBox[{"0.1`", ",", "0.1`"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1.725`"}], "}"}], ",", RowBox[{"ErrorBar", "[", RowBox[{"0.1`", ",", "0.1`"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2.5`", ",", "2.19`"}], "}"}], ",", RowBox[{"ErrorBar", "[", RowBox[{"0.1`", ",", "0.1`"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "2.575`"}], "}"}], ",", RowBox[{"ErrorBar", "[", RowBox[{"0.1`", ",", "0.1`"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3.5`", ",", "2.95`"}], "}"}], ",", RowBox[{"ErrorBar", "[", RowBox[{"0.1`", ",", "0.1`"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "3.325`"}], "}"}], ",", RowBox[{"ErrorBar", "[", RowBox[{"0.1`", ",", "0.1`"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"4.5`", ",", "3.89`"}], "}"}], ",", RowBox[{"ErrorBar", "[", RowBox[{"0.1`", ",", "0.1`"}], "]"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.576233568171034*^9, 3.576233605002698*^9}, 3.5762337725781927`*^9}] }, Open ]], 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}] }, 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}] }, 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}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[CapitalOmega]", "1"], "=", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"103", ",", "1"}], "}"}], ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.575713604339118*^9, 3.575713641103221*^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}] }, 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}] }, 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}}], 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}}], 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}] }, 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}}] }, Open ]], Cell[CellGroupData[{ Cell["Auswertung", "Subsection", CellChangeTimes->{{3.576238695922247*^9, 3.576238697014249*^9}}], Cell["\<\ Zun\[ADoubleDot]chst bringen wir wieder die Me\[SZ]daten in eine vern\ \[UDoubleDot]nftige Form:\ \>", "Text", CellChangeTimes->{{3.576239092725745*^9, 3.5762391115237784`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["angles", "3"], "=", RowBox[{ RowBox[{"Transpose", "[", SubscriptBox["data", "3"], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "All", ",", "1"}], "]"}], "]"}]}]], "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}}], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", RowBox[{"30", " ", "\[Degree]"}], ",", RowBox[{"60", " ", "\[Degree]"}], ",", RowBox[{"90", " ", "\[Degree]"}], ",", RowBox[{"120", " ", "\[Degree]"}], ",", RowBox[{"150", " ", "\[Degree]"}], ",", RowBox[{"180", " ", "\[Degree]"}]}], "}"}]], "Output", CellChangeTimes->{{3.5762330728289633`*^9, 3.576233082984582*^9}, { 3.5762331287706623`*^9, 3.576233216114015*^9}, {3.5762335034153194`*^9, 3.576233527049361*^9}, {3.5762391240194006`*^9, 3.5762391529262514`*^9}, 3.5762392168707633`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ 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}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[Degree]"}], ",", RowBox[{"2", " ", "\[Degree]"}], ",", RowBox[{"2", " ", "\[Degree]"}], ",", RowBox[{"2", " ", "\[Degree]"}], ",", RowBox[{"2", " ", "\[Degree]"}], ",", RowBox[{"2", " ", "\[Degree]"}], ",", RowBox[{"2", " ", "\[Degree]"}]}], "}"}]], "Output", CellChangeTimes->{{3.5762332319324427`*^9, 3.5762332397480564`*^9}, 3.5762335034777203`*^9, 3.576233533772973*^9, 3.576239253562028*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ 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}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "4", ",", "3.55`", ",", "2.1`", ",", "0.03`", ",", "2", ",", "3.45`", ",", "4"}], "}"}]], "Output", CellChangeTimes->{3.5762332642244997`*^9, 3.57623350354012*^9, 3.5762335395137835`*^9, 3.576239265496049*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ 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}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.05`", ",", "0.05`", ",", "0.05`", ",", "0.005`", ",", "0.05`", ",", "0.05`", ",", "0.05`"}], "}"}]], "Output", CellChangeTimes->{ 3.5762332767201214`*^9, 3.57623350360252*^9, 3.5762335454105935`*^9, { 3.5762392694272556`*^9, 3.5762392739668636`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ 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}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "4"}], "}"}], ",", RowBox[{"ErrorBar", "[", RowBox[{ RowBox[{"2", " ", "\[Degree]"}], ",", "0.05`"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"30", " ", "\[Degree]"}], ",", "3.55`"}], "}"}], ",", RowBox[{"ErrorBar", "[", RowBox[{ RowBox[{"2", " ", "\[Degree]"}], ",", "0.05`"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"60", " ", "\[Degree]"}], ",", "2.1`"}], "}"}], ",", RowBox[{"ErrorBar", "[", RowBox[{ RowBox[{"2", " ", "\[Degree]"}], ",", "0.05`"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"90", " ", "\[Degree]"}], ",", "0.03`"}], "}"}], ",", RowBox[{"ErrorBar", "[", RowBox[{ RowBox[{"2", " ", "\[Degree]"}], ",", "0.005`"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"120", " ", "\[Degree]"}], ",", "2"}], "}"}], ",", RowBox[{"ErrorBar", "[", RowBox[{ RowBox[{"2", " ", "\[Degree]"}], ",", "0.05`"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"150", " ", "\[Degree]"}], ",", "3.45`"}], "}"}], ",", RowBox[{"ErrorBar", "[", RowBox[{ RowBox[{"2", " ", "\[Degree]"}], ",", "0.05`"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"180", " ", "\[Degree]"}], ",", "4"}], "}"}], ",", RowBox[{"ErrorBar", "[", RowBox[{ RowBox[{"2", " ", "\[Degree]"}], ",", "0.05`"}], "]"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.576233568171034*^9, 3.576233605002698*^9}, 3.5762393033885155`*^9}] }, Open ]], 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}] }, Open ]], Cell["\<\ Nun m\[UDoubleDot]ssen wir auch den zweiten Datensatz pr\[ADoubleDot]parieren.\ \>", "Text", CellChangeTimes->{{3.5762406854145336`*^9, 3.5762406945765467`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ 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}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "20", ",", "40", ",", "60.2`", ",", "80.6`", ",", "100", ",", "119", ",", "141", ",", "160", ",", "180", ",", "199", ",", "400", ",", "604", ",", "803", ",", "1000", ",", "1200", ",", "1390", ",", "1590", ",", "1810", ",", "1990"}], "}"}]], "Output", CellChangeTimes->{{3.5762330728289633`*^9, 3.576233082984582*^9}, { 3.5762331287706623`*^9, 3.576233216114015*^9}, {3.5762335034153194`*^9, 3.576233527049361*^9}, {3.5762391240194006`*^9, 3.5762391529262514`*^9}, 3.5762392168707633`*^9, {3.5762408138767147`*^9, 3.576240819116722*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ 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}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.1`", ",", "0.1`", ",", "0.1`", ",", "1", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.2`", ",", "0.3`", ",", "10", ",", "10", ",", "10", ",", "10", ",", "10", ",", "10"}], "}"}]], "Output", CellChangeTimes->{{3.5762332319324427`*^9, 3.5762332397480564`*^9}, 3.5762335034777203`*^9, 3.576233533772973*^9, 3.576239253562028*^9, 3.57624084592076*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ 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}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.91`", ",", "3.6`", ",", "3.85`", ",", "3.95`", ",", "3.95`", ",", "4", ",", "4", ",", "4", ",", "4", ",", "4.05`", ",", "4.05`", ",", "4.05`", ",", "4.05`", ",", "4.05`", ",", "4.05`", ",", "4.05`", ",", "4.1`", ",", "4.2`", ",", "4.25`"}], "}"}]], "Output", CellChangeTimes->{3.5762332642244997`*^9, 3.57623350354012*^9, 3.5762335395137835`*^9, 3.576239265496049*^9, 3.576240867714791*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ 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}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.05`", ",", "0.05`", ",", "0.05`", ",", "0.05`", ",", "0.05`", ",", "0.05`", ",", "0.05`", ",", "0.05`", ",", "0.05`", ",", "0.05`", ",", "0.05`", ",", "0.05`", ",", "0.05`", ",", "0.05`", ",", "0.05`", ",", "0.05`", ",", "0.05`", ",", "0.05`", ",", "0.05`"}], "}"}]], "Output", CellChangeTimes->{ 3.5762332767201214`*^9, 3.57623350360252*^9, 3.5762335454105935`*^9, { 3.5762392694272556`*^9, 3.5762392739668636`*^9}, 3.5762408870078177`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ 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}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.18`", ",", "0.755`", ",", "0.538`", ",", "0.411`", ",", "0.337`", ",", "0.283`", ",", "0.24`", ",", "0.21`", ",", "0.188`", ",", "0.169`", ",", "0.083`", ",", "0.053`", ",", "0.039`", ",", "0.03`", ",", "0.024`", ",", "0.02`", ",", "0.016`", ",", "0.012`", ",", "0.01`"}], "}"}]], "Output", CellChangeTimes->{3.5762332642244997`*^9, 3.57623350354012*^9, 3.5762335395137835`*^9, 3.576239265496049*^9, 3.576240867714791*^9, 3.576240910520851*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ 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}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.001`", ",", "0.001`", ",", "0.001`", ",", "0.001`", ",", "0.001`", ",", "0.001`", ",", "0.001`", ",", "0.001`", ",", "0.001`", ",", "0.001`", ",", "0.001`", ",", "0.001`", ",", "0.001`", ",", "0.001`", ",", "0.001`", ",", "0.001`", ",", "0.001`", ",", "0.001`", ",", "0.001`"}], "}"}]], "Output", CellChangeTimes->{ 3.5762332767201214`*^9, 3.57623350360252*^9, 3.5762335454105935`*^9, { 3.5762392694272556`*^9, 3.5762392739668636`*^9}, 3.5762408870078177`*^9, 3.576240918221862*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ 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}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "5.7`", ",", "5.8`", ",", "5.85`", ",", "5.85`", ",", "5.85`", ",", "5.9`", ",", "5.9`", ",", "5.9`", ",", "5.9`", ",", "5.95`", ",", "5.9`", ",", "5.95`", ",", "5.9`", ",", "5.9`", ",", "5.9`", ",", "5.9`", ",", "5.9`", ",", "5.9`", ",", "5.9`"}], "}"}]], "Output", CellChangeTimes->{3.5762332642244997`*^9, 3.57623350354012*^9, 3.5762335395137835`*^9, 3.576239265496049*^9, 3.576240867714791*^9, 3.5762409410148935`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ 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}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.4`", ",", "0.3`", ",", "0.35`", ",", "0.15`", ",", "0.15`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.05`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`"}], "}"}]], "Output", CellChangeTimes->{ 3.5762332767201214`*^9, 3.57623350360252*^9, 3.5762335454105935`*^9, { 3.5762392694272556`*^9, 3.5762392739668636`*^9}, 3.5762408870078177`*^9, 3.5762409478369036`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FractionBox[ SubscriptBox["uind", "4"], SubscriptBox["uhelm", "4"]]], "Input", CellChangeTimes->{{3.576241254104335*^9, 3.576241270046357*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.5105263157894737`", ",", "0.6206896551724138`", ",", "0.6581196581196581`", ",", "0.6752136752136753`", ",", "0.6752136752136753`", ",", "0.6779661016949152`", ",", "0.6779661016949152`", ",", "0.6779661016949152`", ",", "0.6779661016949152`", ",", "0.6806722689075629`", ",", "0.6864406779661016`", ",", "0.6806722689075629`", ",", "0.6864406779661016`", ",", "0.6864406779661016`", ",", "0.6864406779661016`", ",", "0.6864406779661016`", ",", "0.6949152542372881`", ",", "0.711864406779661`", ",", "0.7203389830508474`"}], "}"}]], "Output", CellChangeTimes->{3.5762412708573585`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["\[CapitalDelta]utot", "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}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["data2", "4"], "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["freqs", "4"], "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{ RowBox[{ SubscriptBox["uind", "4"], "[", RowBox[{"[", "i", "]"}], "]"}], "/", RowBox[{ SubscriptBox["uhelm", "4"], "[", RowBox[{"[", "i", "]"}], "]"}]}]}], "}"}], ",", RowBox[{"ErrorBar", "[", RowBox[{ RowBox[{ SubscriptBox["\[CapitalDelta]freqs", "4"], "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{ SubscriptBox["\[CapitalDelta]utot", "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}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"20", ",", "0.5105263157894737`"}], "}"}], ",", RowBox[{"ErrorBar", "[", RowBox[{"0.1`", ",", "0.036884661744788265`"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"40", ",", "0.6206896551724138`"}], "}"}], ",", RowBox[{"ErrorBar", "[", RowBox[{"0.1`", ",", "0.03324190170010214`"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"60.2`", ",", "0.6581196581196581`"}], "}"}], ",", RowBox[{"ErrorBar", "[", RowBox[{"0.1`", ",", "0.040291646922533376`"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"80.6`", ",", "0.6752136752136753`"}], "}"}], ",", RowBox[{"ErrorBar", "[", RowBox[{"1", ",", "0.019307958221798604`"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"100", ",", "0.6752136752136753`"}], "}"}], ",", RowBox[{"ErrorBar", "[", RowBox[{"0.1`", ",", "0.019307958221798604`"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"119", ",", "0.6779661016949152`"}], "}"}], ",", RowBox[{"ErrorBar", "[", RowBox[{"0.1`", ",", "0.01427796886868203`"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"141", ",", "0.6779661016949152`"}], "}"}], ",", RowBox[{"ErrorBar", "[", RowBox[{"0.1`", ",", "0.01427796886868203`"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"160", ",", "0.6779661016949152`"}], "}"}], ",", RowBox[{"ErrorBar", "[", RowBox[{"0.1`", ",", "0.01427796886868203`"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"180", ",", "0.6779661016949152`"}], "}"}], ",", RowBox[{"ErrorBar", "[", RowBox[{"0.1`", ",", "0.01427796886868203`"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"199", ",", "0.6806722689075629`"}], "}"}], ",", RowBox[{"ErrorBar", "[", RowBox[{"0.1`", ",", "0.010165340066458405`"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"400", ",", "0.6864406779661016`"}], "}"}], ",", RowBox[{"ErrorBar", "[", RowBox[{"0.1`", ",", "0.014393820735684869`"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"604", ",", "0.6806722689075629`"}], "}"}], ",", RowBox[{"ErrorBar", "[", RowBox[{"0.2`", ",", "0.01419461549343134`"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"803", ",", "0.6864406779661016`"}], "}"}], ",", RowBox[{"ErrorBar", "[", RowBox[{"0.3`", ",", "0.014393820735684869`"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1000", ",", "0.6864406779661016`"}], "}"}], ",", RowBox[{"ErrorBar", "[", RowBox[{"10", ",", "0.014393820735684869`"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1200", ",", "0.6864406779661016`"}], "}"}], ",", RowBox[{"ErrorBar", "[", RowBox[{"10", ",", "0.014393820735684869`"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1390", ",", "0.6864406779661016`"}], "}"}], ",", RowBox[{"ErrorBar", "[", RowBox[{"10", ",", "0.014393820735684869`"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1590", ",", "0.6949152542372881`"}], "}"}], ",", RowBox[{"ErrorBar", "[", RowBox[{"10", ",", "0.014510169497184458`"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1810", ",", "0.711864406779661`"}], "}"}], ",", RowBox[{"ErrorBar", "[", RowBox[{"10", ",", "0.014744310601009468`"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1990", ",", "0.7203389830508474`"}], "}"}], ",", RowBox[{"ErrorBar", "[", RowBox[{"10", ",", "0.014862080200801882`"}], "]"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.576233568171034*^9, 3.576233605002698*^9}, 3.5762393033885155`*^9, 3.5762411623102055`*^9}] }, Open ]], 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}] }, 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", ",", "100"}], "}"}], ",", 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}}], 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, 100}, {0, 1}}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.576241353779475*^9, 3.576241365351492*^9}, 3.5762416467605667`*^9}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Bestimmung des Erdmagntfeldes durch Kompensation", "Section", CellChangeTimes->{{3.5757179299675293`*^9, 3.5757179563860407`*^9}}], 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}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["U", RowBox[{"ohne", ",", "ss"}]], ",", SubscriptBox["\[CapitalDelta]U", RowBox[{"ohne", ",", "ss"}]]}], "}"}], "=", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"158", ",", "5"}], "}"}], ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.575718472465559*^9, 3.5757185251215706`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"158"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mV\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millivolts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millivolts\""}], "]"}]& )], ",", TemplateBox[{"5"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mV\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millivolts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millivolts\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.5757185276977177`*^9, 3.5762330846537848`*^9, 3.5762335054589233`*^9}] }, Open ]], 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}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["U", RowBox[{"mit", ",", "ss"}]], ",", SubscriptBox["\[CapitalDelta]U", RowBox[{"mit", ",", "ss"}]]}], "}"}], "=", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"30", ",", "2"}], "}"}], ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.575718943355492*^9, 3.5757189824567285`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"30"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mV\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millivolts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millivolts\""}], "]"}]& )], ",", TemplateBox[{"2"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"mV\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: millivolts"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Millivolts\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.575718987398011*^9, 3.5762330847473845`*^9, 3.5762335055369234`*^9}] }, Open ]], 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}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "Subsubtitle", CellChangeTimes->{{3.575717900144824*^9, 3.5757179016399093`*^9}, { 3.575718993724373*^9, 3.5757190000287333`*^9}}], Cell[BoxData[""], "Input", CellChangeTimes->{{3.57623262267916*^9, 3.5762326240207624`*^9}}] }, Open ]] }, Open ]] }, WindowSize->{784, 822}, WindowMargins->{{Automatic, 0}, {0, Automatic}}, FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (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, 90, "Title"], Cell[680, 25, 144, 2, 31, "Input"], Cell[CellGroupData[{ Cell[849, 31, 97, 1, 79, "Section"], Cell[949, 34, 537, 12, 125, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[1523, 51, 101, 1, 79, "Section"], Cell[CellGroupData[{ Cell[1649, 56, 126, 1, 43, "Subsection"], Cell[1778, 59, 125, 1, 30, "Text"], Cell[CellGroupData[{ Cell[1928, 64, 339, 9, 33, "Input"], Cell[2270, 75, 503, 13, 31, "Output"] }, Open ]], Cell[2788, 91, 124, 3, 30, "Text"], Cell[CellGroupData[{ Cell[2937, 98, 144, 3, 31, "Input"], Cell[3084, 103, 98, 1, 31, "Output"] }, Open ]], Cell[3197, 107, 110, 1, 30, "Text"], Cell[CellGroupData[{ Cell[3332, 112, 290, 8, 31, "Input"], Cell[3625, 122, 409, 10, 46, "Output"] }, Open ]], Cell[4049, 135, 109, 1, 30, "Text"], Cell[CellGroupData[{ Cell[4183, 140, 266, 7, 31, "Input"], Cell[4452, 149, 435, 10, 46, "Output"] }, Open ]], Cell[4902, 162, 124, 3, 30, "Text"], Cell[CellGroupData[{ Cell[5051, 169, 151, 3, 31, "Input"], Cell[5205, 174, 74, 1, 31, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[5328, 181, 99, 1, 43, "Subsection"], Cell[5430, 184, 116, 1, 30, "Text"], Cell[CellGroupData[{ Cell[5571, 189, 604, 17, 31, "Input"], Cell[6178, 208, 850, 21, 31, "Output"] }, Open ]], Cell[7043, 232, 159, 3, 30, "Text"], Cell[CellGroupData[{ Cell[7227, 239, 213, 5, 31, "Input"], Cell[7443, 246, 435, 11, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7915, 262, 489, 14, 31, "Input"], Cell[8407, 278, 863, 22, 31, "Output"] }, Open ]], Cell[9285, 303, 367, 8, 68, "Text"], Cell[CellGroupData[{ Cell[9677, 315, 363, 11, 31, "Input"], Cell[10043, 328, 836, 22, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10916, 355, 365, 11, 31, "Input"], Cell[11284, 368, 843, 22, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12164, 395, 2647, 78, 247, "Input"], Cell[14814, 475, 8438, 215, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[23289, 695, 265, 8, 31, "Input"], Cell[23557, 705, 833, 22, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[24427, 732, 4182, 132, 391, "Input"], Cell[28612, 866, 15084, 383, 112, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[43745, 1255, 98, 1, 43, "Subsection"], Cell[43846, 1258, 251, 4, 49, "Text"], Cell[CellGroupData[{ Cell[44122, 1266, 446, 12, 31, "Input"], Cell[44571, 1280, 290, 6, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[44898, 1291, 413, 11, 31, "Input"], Cell[45314, 1304, 241, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[45592, 1314, 399, 11, 31, "Input"], Cell[45994, 1327, 216, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[46247, 1337, 414, 11, 31, "Input"], Cell[46664, 1350, 218, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[46919, 1360, 925, 27, 72, "Input"], Cell[47847, 1389, 1071, 33, 72, "Output"] }, Open ]], Cell[48933, 1425, 197, 4, 30, "Text"], Cell[49133, 1431, 577, 16, 33, "Input"], Cell[CellGroupData[{ Cell[49735, 1451, 835, 23, 55, "Input"], Cell[50573, 1476, 958, 26, 50, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[51568, 1507, 727, 19, 96, "Input"], Cell[52298, 1528, 5184, 105, 436, "Output"] }, Open ]], Cell[57497, 1636, 147, 3, 30, "Text"], Cell[CellGroupData[{ Cell[57669, 1643, 654, 18, 52, "Input"], Cell[58326, 1663, 1125, 30, 31, "Output"] }, Open ]], Cell[59466, 1696, 273, 5, 30, "Text"], Cell[CellGroupData[{ Cell[59764, 1705, 949, 28, 70, "Input"], Cell[60716, 1735, 1056, 27, 31, "Output"] }, Open ]], Cell[61787, 1765, 306, 6, 30, "Text"], Cell[CellGroupData[{ Cell[62118, 1775, 1380, 40, 116, "Input"], Cell[63501, 1817, 1114, 28, 31, "Output"] }, Open ]], Cell[64630, 1848, 212, 4, 49, "Text"], Cell[64845, 1854, 583, 10, 68, "Text"], Cell[CellGroupData[{ Cell[65453, 1868, 497, 12, 31, "Input"], Cell[65953, 1882, 358, 7, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[66348, 1894, 467, 12, 31, "Input"], Cell[66818, 1908, 319, 6, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[67174, 1919, 450, 12, 31, "Input"], Cell[67627, 1933, 306, 6, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[67970, 1944, 465, 12, 31, "Input"], Cell[68438, 1958, 310, 6, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[68785, 1969, 987, 28, 72, "Input"], Cell[69775, 1999, 1851, 58, 112, "Output"] }, Open ]], Cell[71641, 2060, 630, 17, 31, "Input"], Cell[CellGroupData[{ Cell[72296, 2081, 897, 24, 33, "Input"], Cell[73196, 2107, 1155, 29, 50, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[74388, 2141, 838, 20, 52, "Input"], Cell[75229, 2163, 7218, 147, 731, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[82508, 2317, 132, 1, 79, "Section"], Cell[CellGroupData[{ Cell[82665, 2322, 99, 1, 43, "Subsection"], Cell[82767, 2325, 215, 4, 30, "Text"], Cell[CellGroupData[{ Cell[83007, 2333, 279, 8, 31, "Input"], Cell[83289, 2343, 836, 22, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[84162, 2370, 3058, 93, 319, "Input"], Cell[87223, 2465, 7081, 188, 52, "Output"] }, Open ]], Cell[94319, 2656, 294, 5, 30, "Text"], Cell[94616, 2663, 231, 5, 30, "Text"], Cell[CellGroupData[{ Cell[94872, 2672, 15977, 505, 751, "Input"], Cell[110852, 3179, 62330, 1563, 212, "Output"] }, Open ]], Cell[173197, 4745, 283, 5, 30, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[173517, 4755, 98, 1, 43, "Subsection"], Cell[173618, 4758, 188, 4, 30, "Text"], Cell[CellGroupData[{ Cell[173831, 4766, 446, 10, 31, "Input"], Cell[174280, 4778, 574, 12, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[174891, 4795, 464, 12, 31, "Input"], Cell[175358, 4809, 489, 11, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[175884, 4825, 448, 12, 31, "Input"], Cell[176335, 4839, 259, 6, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[176631, 4850, 463, 12, 31, "Input"], Cell[177097, 4864, 305, 7, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[177439, 4876, 979, 28, 31, "Input"], Cell[178421, 4906, 1910, 60, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[180368, 4971, 865, 24, 54, "Input"], Cell[181236, 4997, 5770, 120, 726, "Output"] }, Open ]], Cell[187021, 5120, 172, 3, 30, "Text"], Cell[CellGroupData[{ Cell[187218, 5127, 543, 13, 31, "Input"], Cell[187764, 5142, 602, 10, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[188403, 5157, 509, 12, 31, "Input"], Cell[188915, 5171, 467, 9, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[189419, 5185, 489, 12, 31, "Input"], Cell[189911, 5199, 451, 8, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[190399, 5212, 509, 12, 31, "Input"], Cell[190911, 5226, 504, 9, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[191452, 5240, 546, 13, 31, "Input"], Cell[192001, 5255, 508, 9, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[192546, 5269, 511, 12, 31, "Input"], Cell[193060, 5283, 549, 10, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[193646, 5298, 543, 13, 31, "Input"], Cell[194192, 5313, 483, 9, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[194712, 5327, 561, 13, 31, "Input"], Cell[195276, 5342, 517, 10, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[195830, 5357, 164, 4, 48, "Input"], Cell[195997, 5363, 667, 13, 52, "Output"] }, Open ]], Cell[196679, 5379, 726, 22, 50, "Input"], Cell[CellGroupData[{ Cell[197430, 5405, 1223, 34, 31, "Input"], Cell[198656, 5441, 4340, 119, 152, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[203033, 5565, 1109, 28, 77, "Input"], Cell[204145, 5595, 14085, 292, 741, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[218267, 5892, 984, 26, 77, "Input"], Cell[219254, 5920, 14083, 292, 773, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[233398, 6219, 137, 1, 79, "Section"], Cell[CellGroupData[{ Cell[233560, 6224, 362, 11, 31, "Input"], Cell[233925, 6237, 836, 22, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[234798, 6264, 420, 13, 31, "Input"], Cell[235221, 6279, 856, 22, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[236114, 6306, 391, 12, 31, "Input"], Cell[236508, 6320, 863, 22, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[237408, 6347, 417, 13, 31, "Input"], Cell[237828, 6362, 853, 22, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[238718, 6389, 360, 11, 31, "Input"], Cell[239081, 6402, 813, 21, 31, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[239943, 6429, 142, 2, 28, "Subsubtitle"], Cell[240088, 6433, 93, 1, 31, "Input"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)