(* 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[ 93874, 2492] NotebookOptionsPosition[ 87943, 2287] NotebookOutlinePosition[ 88287, 2302] CellTagsIndexPosition[ 88244, 2299] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["\<\ 241/341 Luftstromeigenschaften von RLC-Glidern\ \>", "Title", CellChangeTimes->{{3.5828076363035*^9, 3.5828076704935484`*^9}, { 3.5828191067792163`*^9, 3.582819107169217*^9}}], Cell[BoxData[ RowBox[{"Needs", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.5828085408857737`*^9, 3.582808561967803*^9}}], Cell[CellGroupData[{ Cell["Aufgabe 3", "Section", CellChangeTimes->{{3.582807686335571*^9, 3.5828076895955753`*^9}}], Cell[CellGroupData[{ Cell["Auswertung", "Subsection", CellChangeTimes->{{3.5828077100846043`*^9, 3.582807715009611*^9}}], Cell["\<\ Zun\[ADoubleDot]chst \[UDoubleDot]bernehmen wir die Daten aus dem Heft um \ daraus das entsprechende Diagramm zur Phase zu generieren. Wir verzichten auf \ \[UDoubleDot]bernahme der gesamten Daten, sondern tragen nur Frequenz und \ Phase ein. {f,\[Phi],\[CapitalDelta]\[Phi]}\ \>", "Text", CellChangeTimes->{{3.582807719670618*^9, 3.5828077441726522`*^9}, { 3.582808257515375*^9, 3.5828082833294115`*^9}, {3.5828083135434537`*^9, 3.5828083141234546`*^9}, {3.5828086075288672`*^9, 3.582808637337909*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["data", RowBox[{"3", "Hochpass"}]], "=", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "18"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"2", ",", RowBox[{"-", "32"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"3", ",", RowBox[{"-", "44"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"4", ",", RowBox[{"-", "51"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"5", ",", RowBox[{"-", "58"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"6", ",", RowBox[{"-", "62"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"7", ",", RowBox[{"-", "65"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"8", ",", RowBox[{"-", "69"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"9", ",", RowBox[{"-", "70"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"10", ",", RowBox[{"-", "72"}]}], "}"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.582807766434684*^9, 3.5828078478007984`*^9}, { 3.582808011286029*^9, 3.5828080907951403`*^9}, {3.5828081958622885`*^9, 3.582808209994308*^9}, {3.5828083234754677`*^9, 3.5828085253787518`*^9}, { 3.5828085706198153`*^9, 3.582808599237856*^9}, {3.582810748785882*^9, 3.5828107640139036`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "18"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", RowBox[{"-", "32"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", RowBox[{"-", "44"}]}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", RowBox[{"-", "51"}]}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", RowBox[{"-", "58"}]}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", RowBox[{"-", "62"}]}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", RowBox[{"-", "65"}]}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", RowBox[{"-", "69"}]}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", RowBox[{"-", "70"}]}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", RowBox[{"-", "72"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.58280804761508*^9, 3.582808239162349*^9, 3.5828085278097553`*^9, 3.5828104865505133`*^9, 3.5828107655089054`*^9, 3.582836228750697*^9, 3.582837299372692*^9, 3.582837583140206*^9, 3.582864330392324*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[CapitalDelta]data", RowBox[{"3", "Hochpass"}]], "=", RowBox[{"{", RowBox[{ "0.4", ",", "1", ",", "2", ",", "2", ",", "2", ",", "3", ",", "3", ",", "3", ",", "3", ",", "4"}], "}"}]}]], "Input", CellChangeTimes->{{3.582810722543845*^9, 3.5828107440808754`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.4`", ",", "1", ",", "2", ",", "2", ",", "2", ",", "3", ",", "3", ",", "3", ",", "3", ",", "4"}], "}"}]], "Output", CellChangeTimes->{3.582810744695876*^9, 3.5828362287606974`*^9, 3.5828372994026923`*^9, 3.582837583160206*^9, 3.582864330422324*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["data", RowBox[{"3", "Tiefpass"}]], "=", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "71"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"2", ",", "55"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"3", ",", "45"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"4", ",", "37"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"5", ",", "31"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"6", ",", "27"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"7", ",", "24"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"8", ",", "22"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"9", ",", "18"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"10", ",", "18"}], "}"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.582808652644931*^9, 3.58280873738605*^9}, { 3.5828107981369514`*^9, 3.582810821004984*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "71"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "55"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "45"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "37"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "31"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "27"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "22"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "18"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.5828087418670564`*^9, 3.5828108224449854`*^9, 3.582836228780697*^9, 3.5828372994226923`*^9, 3.582837583180206*^9, 3.582864330442324*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[CapitalDelta]data", RowBox[{"3", "Tiefpass"}]], "=", RowBox[{"{", RowBox[{ "1", ",", "1", ",", "2", ",", "2", ",", "2", ",", "2", ",", "1", ",", "1", ",", "2", ",", "2"}], "}"}]}]], "Input", CellChangeTimes->{{3.5828107704089127`*^9, 3.5828107925809436`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "1", ",", "2", ",", "2", ",", "2", ",", "2", ",", "1", ",", "1", ",", "2", ",", "2"}], "}"}]], "Output", CellChangeTimes->{3.5828107932259445`*^9, 3.582836228790697*^9, 3.5828372994426923`*^9, 3.582837583200206*^9, 3.582864330462324*^9}] }, Open ]], Cell["\<\ Nun tragen wir diese Daten in einem logarithmischen Plot auf. \ \>", "Text", CellChangeTimes->{{3.5828087530230722`*^9, 3.582808777071106*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"JetPlot1", "=", RowBox[{"ListLogLinearPlot", "[", RowBox[{ SubscriptBox["data", RowBox[{"3", "Hochpass"}]], ",", RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5828088058341465`*^9, 3.5828088464892035`*^9}, { 3.5828089098822927`*^9, 3.582808960325364*^9}, {3.5828090567085*^9, 3.582809077940529*^9}, {3.5828091236215935`*^9, 3.582809143813622*^9}, { 3.582810302430254*^9, 3.5828103094862633`*^9}, {3.582810369898349*^9, 3.5828104399404473`*^9}, {3.58281049851153*^9, 3.582810502121535*^9}, 3.5828105646126227`*^9, {3.582810842218014*^9, 3.582810867331049*^9}, { 3.5828109090011077`*^9, 3.5828109266881323`*^9}, {3.582811248425585*^9, 3.5828113386357117`*^9}, {3.582811393522789*^9, 3.582811395697792*^9}, { 3.5828115810210524`*^9, 3.582811597042075*^9}, {3.582818526207398*^9, 3.582818536249412*^9}, {3.5828185734834642`*^9, 3.5828186443015647`*^9}, { 3.582818703452648*^9, 3.582818736886695*^9}, {3.582818882901901*^9, 3.5828189174789495`*^9}, 3.5828190842251844`*^9, {3.5828191480162745`*^9, 3.582819157527288*^9}, {3.582819202184351*^9, 3.582819203774353*^9}, { 3.5828197383051057`*^9, 3.5828197383951063`*^9}, {3.5828201704517155`*^9, 3.5828201739927206`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"\[CapitalDelta]JetPlot1", "=", RowBox[{"ListLogLinearPlot", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["data", RowBox[{"3", "Hochpass"}]], "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", RowBox[{ RowBox[{ SubscriptBox["data", RowBox[{"3", "Hochpass"}]], "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "-", SubscriptBox["\[CapitalDelta]data", RowBox[{"3", "Hochpass"}]]}]}], "}"}], "]"}], ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.582819211955364*^9, 3.5828192227663794`*^9}, { 3.582819366347582*^9, 3.5828194946697626`*^9}, {3.5828195948749037`*^9, 3.582819673306014*^9}, {3.5828197181820774`*^9, 3.58281974803712*^9}, { 3.582819813260212*^9, 3.5828198203912215`*^9}, {3.5828198760303*^9, 3.582819912618352*^9}, {3.582820018706501*^9, 3.5828200236775084`*^9}, { 3.5828203957100334`*^9, 3.582820396940035*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"JetPlot2", "=", RowBox[{"ListLogLinearPlot", "[", RowBox[{ SubscriptBox["data", RowBox[{"3", "Tiefpass"}]], ",", RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.582811526524976*^9, 3.5828115391009936`*^9}, { 3.5828116041620855`*^9, 3.5828116083920913`*^9}, {3.5828187737627473`*^9, 3.5828187951047773`*^9}, {3.582818943812987*^9, 3.5828189468439913`*^9}, 3.5828190878051896`*^9, 3.582819986271456*^9, 3.5828200332185216`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"\[CapitalDelta]JetPlot2", "=", RowBox[{"ListLogLinearPlot", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["data", RowBox[{"3", "Tiefpass"}]], "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", RowBox[{ RowBox[{ SubscriptBox["data", RowBox[{"3", "Tiefpass"}]], "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "-", SubscriptBox["\[CapitalDelta]data", RowBox[{"3", "Tiefpass"}]]}]}], "}"}], "]"}], ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.582820408382051*^9, 3.582820424454074*^9}, { 3.5828204968851757`*^9, 3.5828205018751826`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"JetPlot1", ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Red", ",", "Dashed", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2.92", "//", "Log"}], ",", RowBox[{"-", "20"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2.92", "//", "Log"}], ",", RowBox[{"-", "80"}]}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"3.11", "//", "Log"}], ",", RowBox[{"-", "20"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"3.11", "//", "Log"}], ",", RowBox[{"-", "80"}]}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}], ",", "\[CapitalDelta]JetPlot1", ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{"-", "45"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1"}], ",", "10"}], "}"}]}], "]"}], ",", RowBox[{"ImageSize", "\[Rule]", "Full"}]}], "]"}]], "Input", CellChangeTimes->{{3.5828116146231003`*^9, 3.58281173508727*^9}, { 3.5828137028500423`*^9, 3.582813711417055*^9}, {3.5828138034891844`*^9, 3.582813827825219*^9}, {3.5828138594982634`*^9, 3.582813889979307*^9}, { 3.582814012015479*^9, 3.5828140953385963`*^9}, {3.5828183457751436`*^9, 3.582818436931272*^9}, 3.5828188300608263`*^9, {3.582819756178131*^9, 3.582819761859139*^9}, 3.5828198813013077`*^9, {3.582819935152384*^9, 3.5828199442053967`*^9}, {3.5828199911724625`*^9, 3.5828200095254884`*^9}, {3.582820058133557*^9, 3.5828200878185987`*^9}, { 3.5828201289056573`*^9, 3.582820153819692*^9}, {3.5828201887047415`*^9, 3.5828202539958334`*^9}, {3.5828202901908846`*^9, 3.582820366505992*^9}}], Cell[BoxData[ GraphicsBox[{{{{}, {{}, {}, {RGBColor[0.24720000000000014`, 0.24, 0.6], LineBox[{{0., -18.}, {0.6931471805599453, -32.}, { 1.0986122886681098`, -44.}, {1.3862943611198906`, -51.}, { 1.6094379124341003`, -58.}, {1.791759469228055, -62.}, { 1.9459101490553132`, -65.}, {2.0794415416798357`, -69.}, { 2.1972245773362196`, -70.}, {2.302585092994046, -72.}}]}}, {}}, {}}, {RGBColor[1, 0, 0], Dashing[{Small, Small}], LineBox[{{1.0715836162801904`, -20}, {1.0715836162801904`, -80}}]}, {GrayLevel[0], LineBox[{{1.1346227261911428`, -20}, { 1.1346227261911428`, -80}}]}, {{{}, {{}, {}, {RGBColor[1, 0, 0], LineBox[{{0., -18.4}, {0.6931471805599453, -33.}, { 1.0986122886681098`, -46.}, {1.3862943611198906`, -53.}, { 1.6094379124341003`, -60.}, {1.791759469228055, -65.}, { 1.9459101490553132`, -68.}, {2.0794415416798357`, -72.}, { 2.1972245773362196`, -73.}, { 2.302585092994046, -76.}}]}}, {}}, {}}, {{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAwAWIQXRdd1f7///v9DCDQ4HbAM+OVwZzuN3C+SGnULQvx l3D+ZCHH9lUzH8L5fo5nH8SaXYXzU5oP/Z3yby+cr3q/entX0157GN9p/Qal o05X4fyS9bsKrdUfwfnTnn7g/tr5Es6fJPrly1mzD3B+StkbM9bPn+H8N3FH pTbnf4fzZ5t1RF+89QvODz3jnh884R+c/+hLsZAaM6MDjL8g6VBYyGMmOP/j 8daTu3axwPmyhZa9MUVscL5/ZbaVgT8HnB9ztNfCnocLzs8r0FNoeMcN54sI u5j9PM4L50/96Tl3bSM/nN8n//yb5wYBON8uZeHxW/2CcP4OlWnr2bOF4Pyt Il49ZyOE4fz5amWCG81E4HyejMRuXXVRON9ZtV3GTVgMzk9nUQ2reY/g8wk3 tXjfE4fzFzuHR1vslYDzGT+keR6cLgnnPzptqvO4RQrO33iyZrtSkjScz/S9 yfx3oAyc7+jGmPDRUBbO9xLcNb+ZVw7Ov8ZtdGXdbwTfX0Np4/eb8nC+6q6M gzmpCnA+x7y7W1ffRvAfTeqr++mpCOfXys8/OPkggs+/9/UNG0MlOL9txtXf m+ch+Pu55WeWiyrD+e/6l3B5tSD4l6X6GFUPIfg7lpb/+P8fwQcAL1ELiA== "]]}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{None, None}, AxesOrigin->{0, -72.}, CoordinatesToolOptions:>{"DisplayFunction" -> ({ Exp[ Part[#, 1]], Part[#, 2]}& ), "CopiedValueFunction" -> ({ Exp[ Part[#, 1]], Part[#, 2]}& )}, FrameTicks->{{Automatic, Automatic}, {{{0., FormBox[ TagBox[ InterpretationBox["\"1.0\"", 1., AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {2.302585092994046, FormBox[ TagBox[ InterpretationBox["\"10.0\"", 10., AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {1.6094379124341003`, FormBox[ TagBox[ InterpretationBox["\"5.0\"", 5., AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {3.912023005428146, FormBox[ TagBox[ InterpretationBox["\"50.0\"", 50., AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {0.6931471805599453, FormBox[ TagBox[ InterpretationBox["\"2.0\"", 2., AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {2.995732273553991, FormBox[ TagBox[ InterpretationBox["\"20.0\"", 20., AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {1.0986122886681098`, FormBox[ TagBox[ InterpretationBox["\"3.0\"", 3., AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {3.4011973816621555`, FormBox[ TagBox[ InterpretationBox["\"30.0\"", 30., AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {0.4054651081081644, FormBox[ TagBox[ InterpretationBox["\"1.5\"", 1.5, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {2.70805020110221, FormBox[ TagBox[ InterpretationBox["\"15.0\"", 15., AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {1.9459101490553132`, FormBox[ TagBox[ InterpretationBox["\"7.0\"", 7., AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {4.248495242049359, FormBox[ TagBox[ InterpretationBox["\"70.0\"", 70., AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {0.09531017980432493, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.1823215567939548, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.26236426446749106`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.336472236621213, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.47000362924573563`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.5306282510621705, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.5877866649021191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.6418538861723948, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.3978952727983707`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.4849066497880004`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.5649493574615367`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.6390573296152584`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.772588722239781, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.833213344056216, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.8903717578961645`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.9444389791664403`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, {{0., FormBox["\"\"", TraditionalForm]}, {2.302585092994046, FormBox["\"\"", TraditionalForm]}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm]}, {3.912023005428146, FormBox["\"\"", TraditionalForm]}, {0.6931471805599453, FormBox["\"\"", TraditionalForm]}, {2.995732273553991, FormBox["\"\"", TraditionalForm]}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm]}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm]}, {0.4054651081081644, FormBox["\"\"", TraditionalForm]}, {2.70805020110221, FormBox["\"\"", TraditionalForm]}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm]}, {4.248495242049359, FormBox["\"\"", TraditionalForm]}, {0.09531017980432493, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.1823215567939548, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.26236426446749106`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.336472236621213, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.47000362924573563`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.5306282510621705, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.5877866649021191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.6418538861723948, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.3978952727983707`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.4849066497880004`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.5649493574615367`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.6390573296152584`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.772588722239781, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.833213344056216, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.8903717578961645`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.9444389791664403`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}}, GridLines->{None, None}, ImageSize->Full, Method->{}, PlotRange->{{0, 2.302585092994046}, {-72., -18.}}, PlotRangeClipping->True, PlotRangePadding->{{0.04605170185988092, 0.04605170185988092}, {1.08, 1.08}}, Ticks->{{{0., FormBox[ TagBox[ InterpretationBox["\"1.0\"", 1., AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {2.302585092994046, FormBox[ TagBox[ InterpretationBox["\"10.0\"", 10., AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {1.6094379124341003`, FormBox[ TagBox[ InterpretationBox["\"5.0\"", 5., AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {3.912023005428146, FormBox[ TagBox[ InterpretationBox["\"50.0\"", 50., AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {0.6931471805599453, FormBox[ TagBox[ InterpretationBox["\"2.0\"", 2., AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {2.995732273553991, FormBox[ TagBox[ InterpretationBox["\"20.0\"", 20., AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {1.0986122886681098`, FormBox[ TagBox[ InterpretationBox["\"3.0\"", 3., AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {3.4011973816621555`, FormBox[ TagBox[ InterpretationBox["\"30.0\"", 30., AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {0.4054651081081644, FormBox[ TagBox[ InterpretationBox["\"1.5\"", 1.5, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {2.70805020110221, FormBox[ TagBox[ InterpretationBox["\"15.0\"", 15., AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {1.9459101490553132`, FormBox[ TagBox[ InterpretationBox["\"7.0\"", 7., AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {4.248495242049359, FormBox[ TagBox[ InterpretationBox["\"70.0\"", 70., AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {0.09531017980432493, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.1823215567939548, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.26236426446749106`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.336472236621213, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.47000362924573563`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.5306282510621705, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.5877866649021191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.6418538861723948, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.3978952727983707`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.4849066497880004`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.5649493574615367`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.6390573296152584`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.772588722239781, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.833213344056216, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.8903717578961645`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.9444389791664403`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, Automatic}]], "Output", CellChangeTimes->{ 3.5828138289252205`*^9, {3.5828138652582717`*^9, 3.582813890769308*^9}, { 3.582814054246538*^9, 3.582814096018597*^9}, {3.5828183564361587`*^9, 3.582818389113205*^9}, {3.582818426909258*^9, 3.5828184374312725`*^9}, 3.582818860326869*^9, {3.58281889629492*^9, 3.582818922679957*^9}, { 3.582819152837281*^9, 3.5828191606082926`*^9}, {3.5828197509181232`*^9, 3.5828197630091405`*^9}, 3.582819823172226*^9, {3.5828199217593646`*^9, 3.582819944675397*^9}, {3.582819992732465*^9, 3.5828200100554895`*^9}, { 3.5828200614935617`*^9, 3.58282011690464*^9}, 3.582820154449693*^9, { 3.582820193274748*^9, 3.582820218029783*^9}, {3.5828202922308874`*^9, 3.582820367025993*^9}, 3.5828205132571983`*^9, 3.5828362290106974`*^9, 3.582837299582692*^9, 3.582837583340206*^9, 3.5828643306023245`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"JetPlot2", ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Red", ",", "Dashed", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2.79", "//", "Log"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2.79", "//", "Log"}], ",", "80"}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"3", "//", "Log"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"3", "//", "Log"}], ",", "80"}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}], ",", "\[CapitalDelta]JetPlot2", ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{"+", "45"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1"}], ",", "10"}], "}"}]}], "]"}], ",", RowBox[{"ImageSize", "\[Rule]", "Full"}]}], "]"}]], "Input", CellChangeTimes->{{3.5828141241266365`*^9, 3.58281413319765*^9}, { 3.582814172737705*^9, 3.582814214062763*^9}, {3.5828143540909605`*^9, 3.5828143817439995`*^9}, {3.5828144919121547`*^9, 3.582814516534189*^9}, { 3.582814603118311*^9, 3.582814610839322*^9}, {3.5828147603935328`*^9, 3.582814764958539*^9}, {3.582814871487689*^9, 3.5828149000907288`*^9}, { 3.58281883937284*^9, 3.5828188506348553`*^9}, {3.582820096271611*^9, 3.5828201091736293`*^9}, {3.58282045029811*^9, 3.5828204727411413`*^9}, { 3.582820533750228*^9, 3.5828205527332544`*^9}, {3.5828208000256023`*^9, 3.5828208023756056`*^9}}], Cell[BoxData[ GraphicsBox[{{{{}, {{}, {}, {RGBColor[0.24720000000000014`, 0.24, 0.6], LineBox[{{0., 71.}, {0.6931471805599453, 55.}, {1.0986122886681098`, 45.}, {1.3862943611198906`, 37.}, {1.6094379124341003`, 31.}, { 1.791759469228055, 27.}, {1.9459101490553132`, 24.}, { 2.0794415416798357`, 22.}, {2.1972245773362196`, 18.}, { 2.302585092994046, 18.}}]}}, {}}, {}}, {RGBColor[1, 0, 0], Dashing[{Small, Small}], LineBox[{{1.0260415958332743`, 0}, {1.0260415958332743`, 80}}]}, {GrayLevel[0], LineBox[NCache[{{Log[3], 0}, {Log[3], 80}}, {{1.0986122886681098`, 0}, { 1.0986122886681098`, 80}}]]}, {{{}, {{}, {}, {RGBColor[1, 0, 0], LineBox[{{0., 70.}, {0.6931471805599453, 54.}, {1.0986122886681098`, 43.}, {1.3862943611198906`, 35.}, {1.6094379124341003`, 29.}, { 1.791759469228055, 25.}, {1.9459101490553132`, 23.}, { 2.0794415416798357`, 21.}, {2.1972245773362196`, 16.}, { 2.302585092994046, 16.}}]}}, {}}, {}}, {{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAwAWIQXRdd1f7///v9DCDQ4ObgmfHKYE73GzhfpDTqloX4 Szh/spBj+6qZD+F8P8ezD2LNrsL5Kc2H/k75txfOV71fvb2raa89jO+0foPS UaercH7J+l2F1uqP4PxpTz9wf+18CedPEv3y5azZBzg/peyNGevnz3D+m7ij Upvzv8P5s806oi/e+gXnh55xzw+e8A/Of/SlWEiNmdEBxl+QdCgs5DETnP/x eOvJXbtY4HzZQsvemCI2ON+/MtvKwJ8Dzo852mthz8MF5+cV6Ck0vOOG80WE Xcx+HueF86f+9Jy7tpEfzu+Tf/7Nc4MAnG+XsvD4rX5BOH+HyrT17NlCcP5W Ea+esxHCcP58tTLBjWYicD5PRmK3rroonO+s2i7jJiwG56ezqIbVvEfw+YSb WrzvicP5i53Doy32SsD5jB/SPA9Ol4TzH5021XncIgXnbzxZs10pSRrOZ/re ZP47UAbOd3RjTPhoKAvnewnumt/MKwfnX+M2urLuN4Lvr6G08ftNeThfdVfG wZxUBTifY97dratvI/iPJvXV/fRUhPNr5ecfnHwQweff+/qGjaESnN824+rv zfMQ/P3c8jPLRZXh/Hf9S7i8WhD8y1J9jKqHEPwdS8t//P+P4AMAotvxeQ== "]]}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{None, None}, AxesOrigin->{0, 18.}, CoordinatesToolOptions:>{"DisplayFunction" -> ({ Exp[ Part[#, 1]], Part[#, 2]}& ), "CopiedValueFunction" -> ({ Exp[ Part[#, 1]], Part[#, 2]}& )}, FrameTicks->{{Automatic, Automatic}, {{{0., FormBox[ TagBox[ InterpretationBox["\"1.0\"", 1., AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {2.302585092994046, FormBox[ TagBox[ InterpretationBox["\"10.0\"", 10., AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {1.6094379124341003`, FormBox[ TagBox[ InterpretationBox["\"5.0\"", 5., AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {3.912023005428146, FormBox[ TagBox[ InterpretationBox["\"50.0\"", 50., AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {0.6931471805599453, FormBox[ TagBox[ InterpretationBox["\"2.0\"", 2., AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {2.995732273553991, FormBox[ TagBox[ InterpretationBox["\"20.0\"", 20., AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {1.0986122886681098`, FormBox[ TagBox[ InterpretationBox["\"3.0\"", 3., AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {3.4011973816621555`, FormBox[ TagBox[ InterpretationBox["\"30.0\"", 30., AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {0.4054651081081644, FormBox[ TagBox[ InterpretationBox["\"1.5\"", 1.5, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {2.70805020110221, FormBox[ TagBox[ InterpretationBox["\"15.0\"", 15., AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {1.9459101490553132`, FormBox[ TagBox[ InterpretationBox["\"7.0\"", 7., AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {4.248495242049359, FormBox[ TagBox[ InterpretationBox["\"70.0\"", 70., AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {0.09531017980432493, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.1823215567939548, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.26236426446749106`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.336472236621213, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.47000362924573563`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.5306282510621705, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.5877866649021191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.6418538861723948, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.3978952727983707`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.4849066497880004`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.5649493574615367`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.6390573296152584`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.772588722239781, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.833213344056216, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.8903717578961645`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.9444389791664403`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, {{0., FormBox["\"\"", TraditionalForm]}, {2.302585092994046, FormBox["\"\"", TraditionalForm]}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm]}, {3.912023005428146, FormBox["\"\"", TraditionalForm]}, {0.6931471805599453, FormBox["\"\"", TraditionalForm]}, {2.995732273553991, FormBox["\"\"", TraditionalForm]}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm]}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm]}, {0.4054651081081644, FormBox["\"\"", TraditionalForm]}, {2.70805020110221, FormBox["\"\"", TraditionalForm]}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm]}, {4.248495242049359, FormBox["\"\"", TraditionalForm]}, {0.09531017980432493, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.1823215567939548, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.26236426446749106`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.336472236621213, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.47000362924573563`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.5306282510621705, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.5877866649021191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.6418538861723948, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.3978952727983707`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.4849066497880004`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.5649493574615367`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.6390573296152584`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.772588722239781, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.833213344056216, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.8903717578961645`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.9444389791664403`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}}, GridLines->{None, None}, ImageSize->Full, Method->{}, PlotRange->{{0, 2.302585092994046}, {18., 71.}}, PlotRangeClipping->True, PlotRangePadding->{{0.04605170185988092, 0.04605170185988092}, {1.06, 1.06}}, Ticks->{{{0., FormBox[ TagBox[ InterpretationBox["\"1.0\"", 1., AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {2.302585092994046, FormBox[ TagBox[ InterpretationBox["\"10.0\"", 10., AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {1.6094379124341003`, FormBox[ TagBox[ InterpretationBox["\"5.0\"", 5., AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {3.912023005428146, FormBox[ TagBox[ InterpretationBox["\"50.0\"", 50., AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {0.6931471805599453, FormBox[ TagBox[ InterpretationBox["\"2.0\"", 2., AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {2.995732273553991, FormBox[ TagBox[ InterpretationBox["\"20.0\"", 20., AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {1.0986122886681098`, FormBox[ TagBox[ InterpretationBox["\"3.0\"", 3., AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {3.4011973816621555`, FormBox[ TagBox[ InterpretationBox["\"30.0\"", 30., AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {0.4054651081081644, FormBox[ TagBox[ InterpretationBox["\"1.5\"", 1.5, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {2.70805020110221, FormBox[ TagBox[ InterpretationBox["\"15.0\"", 15., AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {1.9459101490553132`, FormBox[ TagBox[ InterpretationBox["\"7.0\"", 7., AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {4.248495242049359, FormBox[ TagBox[ InterpretationBox["\"70.0\"", 70., AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {0.09531017980432493, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.1823215567939548, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.26236426446749106`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.336472236621213, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.47000362924573563`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.5306282510621705, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.5877866649021191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.6418538861723948, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.3978952727983707`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.4849066497880004`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.5649493574615367`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.6390573296152584`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.772588722239781, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.833213344056216, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.8903717578961645`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.9444389791664403`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, Automatic}]], "Output", CellChangeTimes->{ 3.5828188544348607`*^9, 3.582818951353997*^9, {3.5828200978026133`*^9, 3.58282010964363*^9}, 3.5828204737611427`*^9, {3.5828205166482034`*^9, 3.5828205534832554`*^9}, 3.582820803445607*^9, 3.5828362290906973`*^9, 3.582837299662692*^9, 3.582837583420206*^9, 3.5828643306923246`*^9}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Aufgabe 4 - Frequenzgang eines Serienschwingkreises\ \>", "Section", CellChangeTimes->{{3.5828218307171693`*^9, 3.582821848444195*^9}}], Cell["\<\ Wir berechnen die Induktivit\[ADoubleDot]t mit der Formel:\ \>", "Text", CellChangeTimes->{{3.582821857155207*^9, 3.58282188028924*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["L", "F"], "[", RowBox[{"C_", ",", "\[Omega]_"}], "]"}], ":=", FractionBox["1", RowBox[{"4", "*", RowBox[{"\[Pi]", "^", "2"}], "*", RowBox[{"\[Omega]", "^", "2"}], "*", "C"}]]}]], "Input", CellChangeTimes->{{3.582821883790245*^9, 3.5828218974722643`*^9}, { 3.5828219275963063`*^9, 3.5828219598603516`*^9}, {3.5828227790135093`*^9, 3.5828227833445153`*^9}, {3.582837255941631*^9, 3.582837266203645*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["\[CapitalDelta]L", "F"], "[", RowBox[{"C_", ",", "\[Omega]_", ",", "\[CapitalDelta]\[Omega]_"}], "]"}], ":=", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"(", FractionBox["\[CapitalDelta]\[Omega]", RowBox[{"4", "*", RowBox[{"\[Pi]", "^", "2"}], "*", RowBox[{"\[Omega]", "^", "3"}], "*", "C"}]], ")"}], "^", "2"}], "]"}]}]], "Input", CellChangeTimes->{{3.5828219632913566`*^9, 3.582822030312451*^9}, { 3.5828227870155206`*^9, 3.582822787255521*^9}, 3.582837282987669*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[Omega]", "R"], "=", RowBox[{"Quantity", "[", RowBox[{ FractionBox[ RowBox[{"4.06", "+", "3.89", "+", "3.87"}], "3"], ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.5828220617464952`*^9, 3.582822134259598*^9}, { 3.5828225515111876`*^9, 3.5828225597531986`*^9}, {3.5828226248222904`*^9, 3.582822653377331*^9}, {3.5828237604928923`*^9, 3.5828237657028995`*^9}, { 3.582823888994073*^9, 3.5828238972260847`*^9}, {3.582823940246146*^9, 3.5828239498381596`*^9}}], Cell[BoxData[ TemplateBox[{"3.94`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"kHz\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: kilohertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Kilohertz\""}], "]"}]& )]], "Output", CellChangeTimes->{3.5828220833605256`*^9, 3.5828221348695984`*^9, 3.5828225835452323`*^9, 3.582822654308332*^9, 3.5828239517981625`*^9, 3.5828362291406975`*^9, 3.5828372997126923`*^9, 3.5828375834902067`*^9, 3.5828643307523246`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[CapitalDelta]\[Omega]", "R"], "=", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"Sqrt", "[", FractionBox[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"4.06", "-", "3.94"}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{"3.89", "-", "3.94"}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{"3.87", "-", "3.94"}], ")"}], "^", "2"}]}], "2"], "]"}], ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.5828220852315283`*^9, 3.582822096102544*^9}, { 3.582822141780608*^9, 3.5828221457716136`*^9}, {3.5828225752642207`*^9, 3.582822580385228*^9}, {3.582823900036089*^9, 3.582823902837093*^9}, { 3.582823963789179*^9, 3.5828239711401896`*^9}, {3.582824020257259*^9, 3.582824118541397*^9}}], Cell[BoxData[ TemplateBox[{"0.10440306508910521`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"kHz\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: kilohertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Kilohertz\""}], "]"}]& )]], "Output", CellChangeTimes->{3.582822146561615*^9, 3.5828225814952297`*^9, 3.582824122001402*^9, 3.582836229160698*^9, 3.582837299742693*^9, 3.582837583510206*^9, 3.582864330782325*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cr", "=", RowBox[{"Quantity", "[", RowBox[{"47", ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.5828221487016177`*^9, 3.582822212940708*^9}}], Cell[BoxData[ TemplateBox[{"47"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"nF\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: nanofarads"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Nanofarads\""}], "]"}]& )]], "Output", CellChangeTimes->{{3.5828221844066677`*^9, 3.58282221426071*^9}, 3.582822586706237*^9, 3.582824216554535*^9, 3.5828362291906977`*^9, 3.5828372997626925`*^9, 3.5828375835402064`*^9, 3.5828643308123245`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["L", "1"], "=", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["L", "F"], "[", RowBox[{"Cr", ",", SubscriptBox["\[Omega]", "R"]}], "]"}], "//", RowBox[{ RowBox[{"UnitConvert", "[", RowBox[{"#", ",", "\"\\""}], "]"}], "&"}]}], "//", "N"}]}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.582822218451716*^9, 3.5828222889018154`*^9}, { 3.5828223877649546`*^9, 3.582822498094112*^9}, {3.5828226025382595`*^9, 3.5828226029982595`*^9}, {3.58282265994834*^9, 3.5828228291715803`*^9}}], Cell[BoxData[ TemplateBox[{"0.03471762131094899`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"H\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: henries"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Henries\""}], "]"}]& )]], "Output", CellChangeTimes->{ 3.582822699930397*^9, 3.5828227376644506`*^9, {3.582822815899561*^9, 3.582822830041581*^9}, 3.5828242189565387`*^9, 3.582836229390698*^9, 3.5828372999426928`*^9, 3.5828375837202063`*^9, 3.582864330992325*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[CapitalDelta]L", "1"], "=", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[CapitalDelta]L", "F"], "[", RowBox[{"Cr", ",", SubscriptBox["\[Omega]", "R"], ",", SubscriptBox["\[CapitalDelta]\[Omega]", "R"]}], "]"}], "//", RowBox[{ RowBox[{"UnitConvert", "[", RowBox[{"#", ",", "\"\\""}], "]"}], "&"}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.582822749545467*^9, 3.5828227508954687`*^9}, { 3.5828228048875456`*^9, 3.5828228329415855`*^9}}], Cell[BoxData[ TemplateBox[{"0.0009199558572248512`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"H\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: henries"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Henries\""}], "]"}]& )]], "Output", CellChangeTimes->{{3.582822823190572*^9, 3.5828228339755874`*^9}, 3.5828242223465433`*^9, 3.5828362298606987`*^9, 3.5828373004026937`*^9, 3.5828375841902075`*^9, 3.5828643314423256`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["L", "1"], "\[PlusMinus]", SubscriptBox["\[CapitalDelta]L", "1"]}]], "Input", CellChangeTimes->{{3.5828228425265994`*^9, 3.582822851487612*^9}}], Cell[BoxData[ RowBox[{ TemplateBox[{"0.03471762131094899`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"H\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: henries"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Henries\""}], "]"}]& )], "\[PlusMinus]", TemplateBox[{"0.0009199558572248512`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"H\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: henries"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Henries\""}], "]"}]& )]}]], "Output", CellChangeTimes->{3.5828228524076133`*^9, 3.5828242258375483`*^9, 3.582836229950699*^9, 3.5828373004426937`*^9, 3.582837584240207*^9, 3.5828643315023255`*^9}] }, Open ]], Cell[TextData[{ "Nun berechnen wir den Gesamtwiderstand ", Cell[BoxData[ FormBox[ RowBox[{"R", "+", RowBox[{ SubscriptBox["R", "v"], "."}]}], TraditionalForm]], FormatType->"TraditionalForm"] }], "Text", CellChangeTimes->{{3.5828247057072268`*^9, 3.5828247252602544`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["R", "G"], "[", RowBox[{"\[CapitalDelta]f_", ",", "\[CapitalLambda]_"}], "]"}], ":=", RowBox[{ "2", "*", "\[Pi]", "*", "\[CapitalDelta]f", "*", "\[CapitalLambda]"}]}]], "Input", CellChangeTimes->{{3.5828247339222665`*^9, 3.5828247827593355`*^9}, { 3.582837551435161*^9, 3.5828375601661735`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["\[CapitalDelta]R", "G"], "[", RowBox[{ "\[CapitalDelta]f_", ",", "\[CapitalDelta]\[CapitalDelta]f_", ",", "\[CapitalLambda]_", ",", "\[CapitalDelta]\[CapitalLambda]_"}], "]"}], ":=", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ "2", "*", "\[Pi]", "*", "\[CapitalLambda]", "*", "\[CapitalDelta]\[CapitalDelta]f"}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ "2", "*", "\[Pi]", "*", "\[CapitalDelta]f", "*", "\[CapitalDelta]\[CapitalLambda]"}], ")"}], "^", "2"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5828247867603407`*^9, 3.5828248939854918`*^9}, { 3.582837575178194*^9, 3.5828375767881966`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["R", RowBox[{"G", ",", RowBox[{"1000", "\[CapitalOmega]"}]}]], "=", RowBox[{ RowBox[{ SubscriptBox["R", "G"], "[", RowBox[{ RowBox[{"Quantity", "[", RowBox[{"5.43", ",", "\"\\""}], "]"}], ",", SubscriptBox["L", "1"]}], "]"}], "//", RowBox[{ RowBox[{"UnitConvert", "[", RowBox[{"#", ",", "\"\\""}], "]"}], "&"}]}]}]], "Input", CellChangeTimes->{{3.582824905648508*^9, 3.5828250350506926`*^9}}], Cell[BoxData[ TemplateBox[{"1184.485257298005`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"\[CapitalOmega]\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: ohms"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Ohms\""}], "]"}]& )]], "Output", CellChangeTimes->{{3.582824974562607*^9, 3.582825036490694*^9}, 3.5828362300706987`*^9, 3.5828373005626936`*^9, 3.582837584370208*^9, 3.582864331622326*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[CapitalDelta]R", RowBox[{"G", ",", RowBox[{"1000", "\[CapitalOmega]"}]}]], "=", RowBox[{ RowBox[{ SubscriptBox["\[CapitalDelta]R", "G"], "[", RowBox[{ RowBox[{"Quantity", "[", RowBox[{"5.43", ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{"0.03", ",", "\"\\""}], "]"}], ",", SubscriptBox["L", "1"], ",", SubscriptBox["\[CapitalDelta]L", "1"]}], "]"}], "//", RowBox[{ RowBox[{"UnitConvert", "[", RowBox[{"#", ",", "\"\\""}], "]"}], "&"}]}]}]], "Input", CellChangeTimes->{{3.5828250428217034`*^9, 3.58282513267383*^9}, { 3.582825165768876*^9, 3.582825195834919*^9}}], Cell[BoxData[ TemplateBox[{"32.06173864271934`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"\[CapitalOmega]\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: ohms"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Ohms\""}], "]"}]& )]], "Output", CellChangeTimes->{3.582825198204922*^9, 3.5828362304107*^9, 3.5828373008826942`*^9, 3.582837584720208*^9, 3.5828643319423265`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["R", RowBox[{"G", ",", RowBox[{"220", "\[CapitalOmega]"}]}]], "=", RowBox[{ RowBox[{ SubscriptBox["R", "G"], "[", RowBox[{ RowBox[{"Quantity", "[", RowBox[{"1.33", ",", "\"\\""}], "]"}], ",", SubscriptBox["L", "1"]}], "]"}], "//", RowBox[{ RowBox[{"UnitConvert", "[", RowBox[{"#", ",", "\"\\""}], "]"}], "&"}]}]}]], "Input", CellChangeTimes->{{3.5828252098409395`*^9, 3.582825225162961*^9}, { 3.58282530267407*^9, 3.582825303094071*^9}}], Cell[BoxData[ TemplateBox[{"290.1225400011689`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"\[CapitalOmega]\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: ohms"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Ohms\""}], "]"}]& )]], "Output", CellChangeTimes->{3.582825230963969*^9, 3.5828362305206995`*^9, 3.5828373009926944`*^9, 3.5828375848502083`*^9, 3.5828643320623264`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[CapitalDelta]R", RowBox[{"G", ",", RowBox[{"220", "\[CapitalOmega]"}]}]], "=", RowBox[{ RowBox[{ SubscriptBox["\[CapitalDelta]R", "G"], "[", RowBox[{ RowBox[{"Quantity", "[", RowBox[{"1.33", ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{"0.03", ",", "\"\\""}], "]"}], ",", SubscriptBox["L", "1"], ",", SubscriptBox["\[CapitalDelta]L", "1"]}], "]"}], "//", RowBox[{ RowBox[{"UnitConvert", "[", RowBox[{"#", ",", "\"\\""}], "]"}], "&"}]}]}]], "Input", CellChangeTimes->{{3.58282524596499*^9, 3.5828252602270107`*^9}, { 3.5828253002730665`*^9, 3.5828253004030666`*^9}}], Cell[BoxData[ TemplateBox[{"10.095878764104114`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"\[CapitalOmega]\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: ohms"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Ohms\""}], "]"}]& )]], "Output", CellChangeTimes->{{3.582825255217003*^9, 3.5828252612170115`*^9}, 3.5828362308507*^9, 3.582837301322695*^9, 3.5828375851902084`*^9, 3.582864332382327*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["R", RowBox[{"G", ",", RowBox[{"47", "\[CapitalOmega]"}]}]], "=", RowBox[{ RowBox[{ SubscriptBox["R", "G"], "[", RowBox[{ RowBox[{"Quantity", "[", RowBox[{"0.68", ",", "\"\\""}], "]"}], ",", SubscriptBox["L", "1"]}], "]"}], "//", RowBox[{ RowBox[{"UnitConvert", "[", RowBox[{"#", ",", "\"\\""}], "]"}], "&"}]}]}]], "Input", CellChangeTimes->{{3.582825307464077*^9, 3.582825323106099*^9}}], Cell[BoxData[ TemplateBox[{"148.33332872240214`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"\[CapitalOmega]\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: ohms"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Ohms\""}], "]"}]& )]], "Output", CellChangeTimes->{3.582825337288119*^9, 3.5828362309607005`*^9, 3.582837301432695*^9, 3.582837585300209*^9, 3.5828643324923267`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[CapitalDelta]R", RowBox[{"G", ",", RowBox[{"47", "\[CapitalOmega]"}]}]], "=", RowBox[{ RowBox[{ SubscriptBox["\[CapitalDelta]R", "G"], "[", RowBox[{ RowBox[{"Quantity", "[", RowBox[{"0.68", ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{"0.03", ",", "\"\\""}], "]"}], ",", SubscriptBox["L", "1"], ",", SubscriptBox["\[CapitalDelta]L", "1"]}], "]"}], "//", RowBox[{ RowBox[{"UnitConvert", "[", RowBox[{"#", ",", "\"\\""}], "]"}], "&"}]}]}]], "Input", CellChangeTimes->{{3.5828252935620575`*^9, 3.582825328347106*^9}}], Cell[BoxData[ TemplateBox[{"7.633797898025099`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"\[CapitalOmega]\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: ohms"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Ohms\""}], "]"}]& )]], "Output", CellChangeTimes->{3.5828253401591225`*^9, 3.5828362313207006`*^9, 3.5828373017726955`*^9, 3.582837585640209*^9, 3.5828643328223276`*^9}] }, Open ]], Cell[TextData[{ "Nun berechnen wir die Verlustwiderst\[ADoubleDot]nde aus ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["U", RowBox[{"A", " "}]], "und", " ", RowBox[{ SubscriptBox["U", "E"], "."}]}], TraditionalForm]], FormatType->"TraditionalForm"] }], "Text", CellChangeTimes->{{3.582825943021973*^9, 3.5828259809070263`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["R", "V"], "[", RowBox[{"R_", ",", "UE_", ",", "UA_"}], "]"}], ":=", RowBox[{ FractionBox[ RowBox[{"UE", "*", "R"}], "UA"], "-", "R"}]}]], "Input", CellChangeTimes->{{3.5828324226305523`*^9, 3.5828325022596645`*^9}, { 3.582832547086728*^9, 3.58283257664977*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["\[CapitalDelta]R", "V"], "[", RowBox[{ "R_", ",", "UE_", ",", "\[CapitalDelta]UE_", ",", "UA_", ",", "\[CapitalDelta]UA_"}], "]"}], ":=", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"R", "*", FractionBox["\[CapitalDelta]UE", "UA"]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{"UE", "*", "R", "*", FractionBox["\[CapitalDelta]UA", RowBox[{"UA", "^", "2"}]]}], ")"}], "^", "2"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.582832586881784*^9, 3.5828327285909834`*^9}, { 3.582836270098812*^9, 3.582836271048814*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["R", RowBox[{"V", ",", RowBox[{"1000", "\[CapitalOmega]"}]}]], "=", RowBox[{ SubscriptBox["R", "V"], "[", RowBox[{ RowBox[{"Quantity", "[", RowBox[{"1000", ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{"0.97", ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{"0.93", ",", "\"\\""}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5828327407020006`*^9, 3.5828327674060383`*^9}, { 3.582832829045125*^9, 3.5828328308951273`*^9}, {3.5828360870832996`*^9, 3.5828361989566555`*^9}, {3.5828362552857914`*^9, 3.5828362739298177`*^9}}], Cell[BoxData[ TemplateBox[{"43.01075268817203`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"\[CapitalOmega]\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: ohms"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Ohms\""}], "]"}]& )]], "Output", CellChangeTimes->{{3.582836205177664*^9, 3.5828362592467966`*^9}, 3.582837302082696*^9, 3.5828375859402094`*^9, 3.582864333122328*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[CapitalDelta]R", RowBox[{"V", ",", RowBox[{"1000", "\[CapitalOmega]"}]}]], "=", RowBox[{ SubscriptBox["\[CapitalDelta]R", "V"], "[", RowBox[{ RowBox[{"Quantity", "[", RowBox[{"1000", ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{"0.97", ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{"0.01", ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{"0.93", ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{"0.01", ",", "\"\\""}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.582836291043842*^9, 3.5828364064616737`*^9}}], Cell[BoxData[ TemplateBox[{"15.537063018191617`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"\[CapitalOmega]\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: ohms"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Ohms\""}], "]"}]& )]], "Output", CellChangeTimes->{{3.582836408592677*^9, 3.5828364202866936`*^9}, 3.582837302702697*^9, 3.582837586550211*^9, 3.5828643337023287`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["R", RowBox[{"V", ",", RowBox[{"220", "\[CapitalOmega]"}]}]], "=", RowBox[{ SubscriptBox["R", "V"], "[", RowBox[{ RowBox[{"Quantity", "[", RowBox[{"220", ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{"0.98", ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{"0.76", ",", "\"\\""}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5828327407020006`*^9, 3.5828327674060383`*^9}, { 3.582832829045125*^9, 3.5828328308951273`*^9}, {3.5828360870832996`*^9, 3.5828361989566555`*^9}, {3.5828362552857914`*^9, 3.5828362739298177`*^9}, { 3.582839540445356*^9, 3.582839547716366*^9}, {3.582840066683323*^9, 3.5828400704033284`*^9}}], Cell[BoxData[ TemplateBox[{"63.68421052631584`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"\[CapitalOmega]\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: ohms"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Ohms\""}], "]"}]& )]], "Output", CellChangeTimes->{{3.582836205177664*^9, 3.5828362592467966`*^9}, 3.582837302082696*^9, 3.5828375859402094`*^9, 3.5828400713733296`*^9, 3.582864334002329*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[CapitalDelta]R", RowBox[{"V", ",", RowBox[{"1000", "\[CapitalOmega]"}]}]], "=", RowBox[{ SubscriptBox["\[CapitalDelta]R", "V"], "[", RowBox[{ RowBox[{"Quantity", "[", RowBox[{"220", ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{"0.98", ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{"0.01", ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{"0.76", ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{"0.01", ",", "\"\\""}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.582836291043842*^9, 3.5828364064616737`*^9}, { 3.582840055740308*^9, 3.5828400608823147`*^9}, {3.582840103687375*^9, 3.5828401051273775`*^9}}], Cell[BoxData[ TemplateBox[{"4.72360598274799`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"\[CapitalOmega]\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: ohms"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Ohms\""}], "]"}]& )]], "Output", CellChangeTimes->{{3.582836408592677*^9, 3.5828364202866936`*^9}, 3.582837302702697*^9, 3.582837586550211*^9, 3.582840076454337*^9, 3.5828401075583806`*^9, 3.5828643345823298`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["R", RowBox[{"V", ",", RowBox[{"1000", "\[CapitalOmega]"}]}]], "=", RowBox[{ SubscriptBox["R", "V"], "[", RowBox[{ RowBox[{"Quantity", "[", RowBox[{"47", ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{"0.98", ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{"0.36", ",", "\"\\""}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5828327407020006`*^9, 3.5828327674060383`*^9}, { 3.582832829045125*^9, 3.5828328308951273`*^9}, {3.5828360870832996`*^9, 3.5828361989566555`*^9}, {3.5828362552857914`*^9, 3.5828362739298177`*^9}, { 3.5828401273204083`*^9, 3.582840138232424*^9}}], Cell[BoxData[ TemplateBox[{"80.94444444444443`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"\[CapitalOmega]\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: ohms"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Ohms\""}], "]"}]& )]], "Output", CellChangeTimes->{{3.582836205177664*^9, 3.5828362592467966`*^9}, 3.582837302082696*^9, 3.5828375859402094`*^9, 3.5828401558544483`*^9, 3.5828643348623304`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[CapitalDelta]R", RowBox[{"V", ",", RowBox[{"1000", "\[CapitalOmega]"}]}]], "=", RowBox[{ SubscriptBox["\[CapitalDelta]R", "V"], "[", RowBox[{ RowBox[{"Quantity", "[", RowBox[{"47", ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{"0.98", ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{"0.01", ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{"0.36", ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{"0.01", ",", "\"\\""}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.582836291043842*^9, 3.5828364064616737`*^9}, { 3.58284014265243*^9, 3.582840170177469*^9}}], Cell[BoxData[ TemplateBox[{"3.7862222678919437`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"\[CapitalOmega]\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: ohms"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Ohms\""}], "]"}]& )]], "Output", CellChangeTimes->{{3.582836408592677*^9, 3.5828364202866936`*^9}, 3.582837302702697*^9, 3.582837586550211*^9, {3.582840146813436*^9, 3.582840171717471*^9}, 3.5828643354623313`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ 5 Bestimmung der D\[ADoubleDot]mpfungskonstanten eines freien, ged\ \[ADoubleDot]mpften Schwingkreises\ \>", "Section", CellChangeTimes->{{3.5828414254126453`*^9, 3.58284145028668*^9}}], Cell["\<\ Zun\[ADoubleDot]chst berechnen wir das logarithmische Dekrement. Wir mitteln \ \[UDoubleDot]ber alle Nachbarn.\ \>", "Text", CellChangeTimes->{{3.5828422387738223`*^9, 3.5828422601468525`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"\[CapitalLambda]", "[", RowBox[{"B_", ",", "C_"}], "]"}], ":=", RowBox[{"Log", "[", FractionBox["B", "C"], "]"}]}]], "Input", CellChangeTimes->{{3.5828414559066877`*^9, 3.5828414887707343`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[CapitalLambda]12", "=", RowBox[{"\[CapitalLambda]", "[", RowBox[{ RowBox[{"Quantity", "[", RowBox[{"2.25", ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{"1.42", ",", "\"\\""}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.582841498611748*^9, 3.582841574505968*^9}}], Cell[BoxData["0.4602733446031595`"], "Output", CellChangeTimes->{3.5828415414619217`*^9, 3.58284157562597*^9, 3.5828643356123314`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[CapitalLambda]23", " ", "=", RowBox[{"\[CapitalLambda]", "[", RowBox[{ RowBox[{"Quantity", "[", RowBox[{"1.42", ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{"0.91", ",", "\"\\""}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5828415777559724`*^9, 3.5828415963989987`*^9}}], Cell[BoxData["0.44496755108441055`"], "Output", CellChangeTimes->{3.5828415968189993`*^9, 3.5828643357423315`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[CapitalLambda]34", "=", RowBox[{"\[CapitalLambda]", "[", RowBox[{ RowBox[{"Quantity", "[", RowBox[{"0.91", ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{"0.60", ",", "\"\\""}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5828416018800063`*^9, 3.5828416181920295`*^9}}], Cell[BoxData["0.41651494429474945`"], "Output", CellChangeTimes->{3.582841619342031*^9, 3.582864335882332*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[CapitalLambda]45", "=", RowBox[{"\[CapitalLambda]", "[", RowBox[{ RowBox[{"Quantity", "[", RowBox[{"0.60", ",", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{"0.39", ",", "\"\\""}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.582841625243039*^9, 3.5828416590980873`*^9}}], Cell[BoxData["0.43078291609245417`"], "Output", CellChangeTimes->{3.582841659868088*^9, 3.582864336032332*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[CapitalLambda]M", "=", FractionBox[ RowBox[{ "\[CapitalLambda]12", "+", "\[CapitalLambda]23", "+", "\[CapitalLambda]34", "+", "\[CapitalLambda]45"}], "4"]}]], "Input", CellChangeTimes->{{3.582841669599102*^9, 3.5828417180904484`*^9}}], Cell[BoxData["0.43813468901869346`"], "Output", CellChangeTimes->{3.5828417183804483`*^9, 3.582864336052332*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[CapitalDelta]\[CapitalLambda]M", "=", RowBox[{"Sqrt", "[", RowBox[{ FractionBox["1", "3"], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"\[CapitalLambda]12", "-", "\[CapitalLambda]M"}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{"\[CapitalLambda]23", "-", "\[CapitalLambda]M"}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{"\[CapitalLambda]34", "-", "\[CapitalLambda]M"}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{"\[CapitalLambda]45", "-", "\[CapitalLambda]M"}], ")"}], "^", "2"}]}], ")"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.582841721461453*^9, 3.5828418062225723`*^9}}], Cell[BoxData["0.018781817467826117`"], "Output", CellChangeTimes->{3.5828418069925737`*^9, 3.5828643360823317`*^9}] }, Open ]], Cell["\<\ F\[UDoubleDot]r die Berechnung der D\[ADoubleDot]mpfungskonstante ist es n\ \[ODoubleDot]tig auch die Periode zu messen. Wir mitteln \[UDoubleDot]ber \ alle unsere Werte und multiplizieren sie mit 2.\ \>", "Text", CellChangeTimes->{{3.582842269937866*^9, 3.5828423008691883`*^9}, { 3.582842332873233*^9, 3.5828423468152523`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"T", "=", RowBox[{"2", "*", RowBox[{"{", RowBox[{ "128", ",", "126", ",", "127", ",", "128", ",", "124", ",", "126"}], "}"}]}]}]], "Input", CellChangeTimes->{{3.5828419605117893`*^9, 3.5828420166788683`*^9}, { 3.5828421393216825`*^9, 3.5828421431916876`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"256", ",", "252", ",", "254", ",", "256", ",", "248", ",", "252"}], "}"}]], "Output", CellChangeTimes->{3.58284201779887*^9, 3.5828421473026934`*^9, 3.5828643361123323`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TM", "=", RowBox[{ RowBox[{"Median", "[", "T", "]"}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.5828420252998805`*^9, 3.5828420545539217`*^9}, { 3.582842085533078*^9, 3.5828420860030785`*^9}, 3.582842150802698*^9, { 3.582842438651495*^9, 3.582842440121497*^9}}], Cell[BoxData["253.`"], "Output", CellChangeTimes->{{3.582842032890891*^9, 3.5828420552339225`*^9}, 3.5828420865530796`*^9, 3.582842158323709*^9, 3.582842448962509*^9, 3.582864336132332*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[CapitalDelta]TM", "=", RowBox[{ RowBox[{"StandardDeviation", "[", "T", "]"}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.5828420960750933`*^9, 3.5828421083986387`*^9}, 3.582842153902703*^9, {3.5828424428515005`*^9, 3.5828424464515057`*^9}}], Cell[BoxData["3.03315017762062`"], "Output", CellChangeTimes->{{3.582842104977634*^9, 3.5828421088886395`*^9}, 3.582842155503705*^9, 3.5828424469915066`*^9, 3.5828643361623325`*^9}] }, Open ]], Cell["\<\ Jetzt ergibt sich die D\[ADoubleDot]mpfungskonstante\ \>", "Text", CellChangeTimes->{{3.5828423561162653`*^9, 3.582842362067274*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[Delta]", "=", RowBox[{"Quantity", "[", RowBox[{ FractionBox["\[CapitalLambda]M", "TM"], ",", FractionBox["1", "\"\\""]}], "]"}]}]], "Input", CellChangeTimes->{{3.582842402526444*^9, 3.58284242087947*^9}, 3.582842452802515*^9, {3.582843275026989*^9, 3.5828433068210335`*^9}}], Cell[BoxData[ TemplateBox[{"0.0017317576641055076`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ "\"reciprocal microseconds\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal microseconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Microseconds\""]}], "]"}]& )]], "Output", CellChangeTimes->{{3.582842424449475*^9, 3.582842453702516*^9}, 3.582843307631035*^9, 3.5828643362223325`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[CapitalDelta]\[Delta]", "=", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", FractionBox["\[CapitalDelta]\[CapitalLambda]M", "TM"], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", FractionBox[ RowBox[{"\[CapitalDelta]TM", "*", "\[CapitalLambda]M"}], RowBox[{"TM", "^", "2"}]], ")"}], "^", "2"}]}], "]"}], ",", FractionBox["1", "\"\\""]}], "]"}]}]], "Input", CellChangeTimes->{{3.582842457463521*^9, 3.5828425230201416`*^9}, { 3.582843316142047*^9, 3.5828433307330675`*^9}}], Cell[BoxData[ TemplateBox[{"0.00007708496194932422`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ "\"reciprocal microseconds\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal microseconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Microseconds\""]}], "]"}]& )]], "Output", CellChangeTimes->{3.5828425243501434`*^9, 3.582843331423068*^9, 3.582864336272332*^9}] }, Open ]], Cell[TextData[{ "Nun berechnen wir aus ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["L", "1"], "und", " ", "\[Delta]", " ", "den", " ", RowBox[{"Gesamtwiderstand", "."}]}], TraditionalForm]], FormatType->"TraditionalForm"] }], "Text", CellChangeTimes->{{3.582843174982848*^9, 3.5828431965198784`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["R", "GG"], "=", RowBox[{ RowBox[{"\[Delta]", "*", "2", "*", SubscriptBox["L", "1"]}], "//", RowBox[{ RowBox[{"UnitConvert", "[", RowBox[{"#", ",", "\"\\""}], "]"}], "&"}]}]}]], "Input", CellChangeTimes->{{3.582843241823942*^9, 3.582843259755967*^9}, { 3.5828433445950866`*^9, 3.5828433620871115`*^9}}], Cell[BoxData[ TemplateBox[{"120.24501356949723`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"\[CapitalOmega]\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: ohms"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Ohms\""}], "]"}]& )]], "Output", CellChangeTimes->{ 3.582843260215968*^9, {3.5828433348540726`*^9, 3.5828433632571125`*^9}, 3.5828643364023323`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[CapitalDelta]R", "GG"], "=", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[CapitalDelta]L", "1"], "*", "2", "*", "\[Delta]"}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["L", "1"], "*", "2", "*", "\[CapitalDelta]\[Delta]"}], ")"}], "^", "2"}]}], "]"}], "//", RowBox[{ RowBox[{"UnitConvert", "[", RowBox[{"#", ",", "\"\\""}], "]"}], "&"}]}]}]], "Input", CellChangeTimes->{{3.5828433705881233`*^9, 3.582843454608241*^9}}], Cell[BoxData[ TemplateBox[{"6.229021854910669`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"\[CapitalOmega]\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: ohms"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Ohms\""}], "]"}]& )]], "Output", CellChangeTimes->{{3.582843447517231*^9, 3.5828434555482426`*^9}, 3.5828643367523327`*^9}] }, Open ]], Cell[TextData[{ "Wir berechnen nun mit ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["L", RowBox[{"1", " "}]], "die", " ", RowBox[{"Resonanzfrequenz", "."}]}], TraditionalForm]], FormatType->"TraditionalForm"] }], "Text", CellChangeTimes->{{3.5828640663499517`*^9, 3.5828640883929834`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Resonanz", "=", RowBox[{ FractionBox["1", RowBox[{"2", "*", "\[Pi]", "*", RowBox[{"Sqrt", "[", RowBox[{ SubscriptBox["L", "1"], "*", "Cr"}], "]"}]}]], "//", RowBox[{ RowBox[{"UnitConvert", "[", RowBox[{"#", ",", "\"\\""}], "]"}], "&"}]}]}]], "Input", CellChangeTimes->{{3.5828440239137683`*^9, 3.5828440664473567`*^9}, { 3.582844099358451*^9, 3.582844156022636*^9}, {3.582863309009884*^9, 3.582863331881917*^9}, {3.5828640469069247`*^9, 3.582864054387935*^9}}], Cell[BoxData[ TemplateBox[{"3940.`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Hz\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Hertz\""}], "]"}]& )]], "Output", CellChangeTimes->{ 3.582844041903322*^9, {3.582844110837532*^9, 3.582844121388547*^9}, 3.5828441566576457`*^9, {3.5828633177798967`*^9, 3.582863332581918*^9}, 3.582864056857939*^9, 3.5828643369923334`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[CapitalDelta]Resonanz", "=", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"(", FractionBox[ RowBox[{ SubscriptBox["\[CapitalDelta]L", "1"], "*", "Cr"}], RowBox[{"2", "*", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["L", "1"], "*", "Cr"}], ")"}], "^", RowBox[{"(", RowBox[{"3", "/", "2"}], ")"}]}]}]], ")"}], "^", "2"}], "]"}], "//", RowBox[{ RowBox[{"UnitConvert", "[", RowBox[{"#", ",", "\"\\""}], "]"}], "&"}]}]}]], "Input", CellChangeTimes->{{3.582864058407941*^9, 3.5828640608589444`*^9}, { 3.5828640934439907`*^9, 3.582864180607113*^9}, {3.5828642392571955`*^9, 3.5828643177303066`*^9}, 3.582864350443352*^9}], Cell[BoxData[ TemplateBox[{"327.99190229618995`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"Hz\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: hertz"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Hertz\""}], "]"}]& )]], "Output", CellChangeTimes->{ 3.582864170086098*^9, {3.582864310949297*^9, 3.582864352604355*^9}}] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{707, 637}, WindowMargins->{{3, Automatic}, {Automatic, -8}}, 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, 188, 4, 144, "Title"], Cell[770, 28, 147, 2, 31, "Input"], Cell[CellGroupData[{ Cell[942, 34, 96, 1, 79, "Section"], Cell[CellGroupData[{ Cell[1063, 39, 100, 1, 43, "Subsection"], Cell[1166, 42, 519, 8, 68, "Text"], Cell[CellGroupData[{ Cell[1710, 54, 1520, 40, 232, "Input"], Cell[3233, 96, 1096, 36, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4366, 137, 321, 8, 31, "Input"], Cell[4690, 147, 300, 6, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5027, 158, 1094, 27, 232, "Input"], Cell[6124, 187, 818, 25, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6979, 217, 321, 8, 31, "Input"], Cell[7303, 227, 297, 6, 31, "Output"] }, Open ]], Cell[7615, 236, 154, 3, 30, "Text"], Cell[7772, 241, 1318, 22, 31, "Input"], Cell[9093, 265, 1197, 28, 72, "Input"], Cell[10293, 295, 539, 11, 31, "Input"], Cell[10835, 308, 902, 24, 72, "Input"], Cell[CellGroupData[{ Cell[11762, 336, 1976, 48, 92, "Input"], Cell[13741, 386, 16585, 334, 371, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[30363, 725, 1758, 44, 92, "Input"], Cell[32124, 771, 16061, 326, 375, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[48246, 1104, 146, 3, 113, "Section"], Cell[48395, 1109, 147, 3, 30, "Text"], Cell[48545, 1114, 480, 11, 46, "Input"], Cell[49028, 1127, 568, 14, 46, "Input"], Cell[CellGroupData[{ Cell[49621, 1145, 550, 12, 46, "Input"], Cell[50174, 1159, 599, 13, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[50810, 1177, 862, 22, 76, "Input"], Cell[51675, 1201, 553, 12, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[52265, 1218, 195, 4, 31, "Input"], Cell[52463, 1224, 569, 12, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[53069, 1241, 605, 16, 52, "Input"], Cell[53677, 1259, 604, 13, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[54318, 1277, 550, 15, 31, "Input"], Cell[54871, 1294, 563, 12, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[55471, 1311, 187, 4, 31, "Input"], Cell[55661, 1317, 921, 22, 31, "Output"] }, Open ]], Cell[56597, 1342, 292, 9, 30, "Text"], Cell[56892, 1353, 362, 9, 31, "Input"], Cell[57257, 1364, 767, 21, 31, "Input"], Cell[CellGroupData[{ Cell[58049, 1389, 507, 15, 31, "Input"], Cell[58559, 1406, 537, 12, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[59133, 1423, 729, 19, 72, "Input"], Cell[59865, 1444, 506, 11, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[60408, 1460, 554, 16, 31, "Input"], Cell[60965, 1478, 512, 11, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[61514, 1494, 732, 19, 72, "Input"], Cell[62249, 1515, 536, 12, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[62822, 1532, 503, 15, 31, "Input"], Cell[63328, 1549, 509, 11, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[63874, 1565, 679, 18, 72, "Input"], Cell[64556, 1585, 512, 11, 31, "Output"] }, Open ]], Cell[65083, 1599, 360, 11, 32, "Text"], Cell[65446, 1612, 330, 9, 46, "Input"], Cell[65779, 1623, 672, 19, 46, "Input"], Cell[CellGroupData[{ Cell[66476, 1646, 674, 16, 52, "Input"], Cell[67153, 1664, 511, 11, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[67701, 1680, 724, 18, 72, "Input"], Cell[68428, 1700, 512, 11, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[68977, 1716, 772, 18, 52, "Input"], Cell[69752, 1736, 539, 12, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[70328, 1753, 825, 20, 72, "Input"], Cell[71156, 1775, 560, 12, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[71753, 1792, 723, 17, 52, "Input"], Cell[72479, 1811, 541, 12, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[73057, 1828, 770, 19, 72, "Input"], Cell[73830, 1849, 562, 12, 31, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[74441, 1867, 196, 4, 113, "Section"], Cell[74640, 1873, 204, 4, 30, "Text"], Cell[74847, 1879, 241, 6, 46, "Input"], Cell[CellGroupData[{ Cell[75113, 1889, 355, 8, 31, "Input"], Cell[75471, 1899, 138, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[75646, 1906, 364, 8, 31, "Input"], Cell[76013, 1916, 115, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[76165, 1922, 359, 8, 31, "Input"], Cell[76527, 1932, 111, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[76675, 1938, 357, 8, 31, "Input"], Cell[77035, 1948, 111, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[77183, 1954, 275, 6, 46, "Input"], Cell[77461, 1962, 113, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[77611, 1968, 797, 23, 46, "Input"], Cell[78411, 1993, 116, 1, 31, "Output"] }, Open ]], Cell[78542, 1997, 342, 6, 49, "Text"], Cell[CellGroupData[{ Cell[78909, 2007, 306, 8, 31, "Input"], Cell[79218, 2017, 220, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[79475, 2027, 302, 6, 31, "Input"], Cell[79780, 2035, 198, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[80015, 2043, 280, 5, 31, "Input"], Cell[80298, 2050, 186, 2, 31, "Output"] }, Open ]], Cell[80499, 2055, 144, 3, 30, "Text"], Cell[CellGroupData[{ Cell[80668, 2062, 336, 7, 46, "Input"], Cell[81007, 2071, 560, 13, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[81604, 2089, 647, 17, 46, "Input"], Cell[82254, 2108, 536, 13, 31, "Output"] }, Open ]], Cell[82805, 2124, 323, 9, 30, "Text"], Cell[CellGroupData[{ Cell[83153, 2137, 376, 10, 31, "Input"], Cell[83532, 2149, 495, 12, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[84064, 2166, 630, 19, 31, "Input"], Cell[84697, 2187, 467, 11, 31, "Output"] }, Open ]], Cell[85179, 2201, 317, 10, 32, "Text"], Cell[CellGroupData[{ Cell[85521, 2215, 543, 13, 48, "Input"], Cell[86067, 2230, 565, 13, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[86669, 2248, 779, 21, 48, "Input"], Cell[87451, 2271, 452, 11, 31, "Output"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)