(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 7.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 490447, 10053] NotebookOptionsPosition[ 483643, 9843] NotebookOutlinePosition[ 484154, 9863] CellTagsIndexPosition[ 484111, 9860] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["\<\ Calculation of Loudspeaker Blocked Coil Impedance vs Frequency and Position\ \>", "Subsection", CellChangeTimes->{{3.6554166224941163`*^9, 3.655416667122701*^9}}], Cell["\<\ David Meeker dmeeker@ieee.org 01 Nov2015\ \>", "Text", CellChangeTimes->{{3.6554166766006255`*^9, 3.6554166859143133`*^9}}], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ "Base", " ", "problem", " ", "name", " ", "and", " ", "configuration"}], " ", "*)"}]], "Input", CellChangeTimes->{{3.655373921787345*^9, 3.655373929754051*^9}, { 3.6553759582928953`*^9, 3.655375960480101*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"myFile", "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"myCoilName", "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"myCoilGroup", "=", "1"}], ";"}]}], "Input", CellChangeTimes->{{3.655373932501089*^9, 3.6553739530733147`*^9}, { 3.6553746356151104`*^9, 3.6553746500733533`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"Displacement", " ", "range", " ", "under", " ", "consideration"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"xmin", "=", RowBox[{"-", "15"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"xmax", "=", "15"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dx", "=", "5"}], ";"}]}]}]], "Input", CellChangeTimes->{{3.655280703650724*^9, 3.655280746015973*^9}, { 3.6553730983051124`*^9, 3.655373166074688*^9}, 3.656442068652462*^9, { 3.6571971397839146`*^9, 3.6571971816431828`*^9}}], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{"Frequency", " ", "range", " ", "under", " ", RowBox[{"consideration", ".", " ", "Specified"}], " ", "as", " ", RowBox[{"Log", "[", RowBox[{"10", ",", "frequency"}], "]"}]}], " ", "*)"}]], "Input", CellChangeTimes->{{3.6553731687636366`*^9, 3.6553732250032697`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"wmin", " ", "=", " ", "0"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{ RowBox[{"10", "^", "0"}], " ", "=", " ", RowBox[{"1", " ", "Hz"}]}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"wmax", " ", "=", " ", "4"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{ RowBox[{"10", "^", "4"}], " ", "=", " ", RowBox[{"10000", " ", "Hz"}]}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dw", " ", "=", " ", "1"}], ";", " ", RowBox[{"(*", " ", RowBox[{ "5", " ", "points", " ", "per", " ", "decade", " ", "on", " ", "a", " ", "log", " ", "scale"}], " ", "*)"}]}]}], "Input", CellChangeTimes->{{3.6553732278444443`*^9, 3.655373294346163*^9}, 3.6553759725928974`*^9, {3.656197961827503*^9, 3.6561979628900523`*^9}, { 3.656198133658907*^9, 3.656198133768609*^9}, {3.6564420821162615`*^9, 3.656442096142662*^9}, 3.6571971898857965`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"<<", "c:\\\\femm42\\\\mathfemm\\\\mathfemm.m"}]], "Input", CellChangeTimes->{{3.65066233971396*^9, 3.650662350002658*^9}}], Cell[BoxData["\<\"MathFEMM loaded at Sun 22 Nov 2015 11:06:59\"\>"], "Print", CellChangeTimes->{3.650662352044657*^9, 3.650696874524295*^9, 3.651247756333335*^9, 3.6512670218728223`*^9, 3.65523882081086*^9, 3.655239089112357*^9, 3.65523955792373*^9, 3.655240090402815*^9, 3.655242132132358*^9, 3.6552433036085076`*^9, 3.6552434220161924`*^9, 3.65527802719343*^9, 3.655281842836109*^9, 3.6552821220826902`*^9, 3.6552823179156237`*^9, 3.6553361661249247`*^9, 3.6553738657940607`*^9, 3.655374237541568*^9, 3.655374761874628*^9, 3.6553792658850737`*^9, 3.6561989037760863`*^9, 3.656356857637063*^9, 3.6563686871758986`*^9, 3.6564420998242617`*^9, 3.657197219208377*^9}] }, Open ]], Cell[BoxData[ RowBox[{"OpenFEMM", "[", "]"}]], "Input", CellChangeTimes->{{3.650662352112756*^9, 3.650662353868338*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "Open", " ", "up", " ", "base", " ", "problem", " ", "and", " ", "save", " ", "as", " ", "the", " ", "DC", " ", "operating", " ", "point", " ", "with", " ", "no", " ", "coil", " ", "current"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"OpenDocument", "[", RowBox[{ RowBox[{"NotebookDirectory", "[", "]"}], "<>", "myFile"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MISetCurrent", "[", RowBox[{"myCoilName", ",", "0"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MISaveAs", "[", RowBox[{ RowBox[{"NotebookDirectory", "[", "]"}], "<>", "\"\\""}], "]"}], ";"}]}]}]], "Input", CellChangeTimes->{{3.6552393204653215`*^9, 3.655239376530694*^9}, { 3.6552805606546173`*^9, 3.6552805772429895`*^9}, {3.6552806563552303`*^9, 3.6552806704910016`*^9}, {3.655282036396492*^9, 3.655282077154399*^9}, { 3.6553361022242346`*^9, 3.655336116876528*^9}, {3.6553362140573688`*^9, 3.6553362675864363`*^9}, {3.6553729889680552`*^9, 3.655373056655919*^9}, { 3.655373713694087*^9, 3.655373778016602*^9}, {3.655373957909419*^9, 3.6553739615247355`*^9}, {3.6553746560631604`*^9, 3.6553746605417356`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "Open", " ", "up", " ", "base", " ", "problem", " ", "and", " ", "save", " ", "as", " ", "the", " ", "incremental", " ", "AC", " ", "problem", " ", "with", " ", "a", " ", "coil", " ", "current", " ", "of", " ", "1", "A"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "Incremental", " ", "AC", " ", "problem", " ", "points", " ", "back", " ", "to", " ", "the", " ", "DC", " ", "solution", " ", "via", " ", "the", " ", RowBox[{"MISetPrevious", "[", "\"\\"", "]"}], " ", "call"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"OpenDocument", "[", RowBox[{ RowBox[{"NotebookDirectory", "[", "]"}], "<>", "myFile"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MISetCurrent", "[", RowBox[{"myCoilName", ",", "1"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MISetPrevious", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MISaveAs", "[", RowBox[{ RowBox[{"NotebookDirectory", "[", "]"}], "<>", "\"\\""}], "]"}], ";"}]}]}]], "Input", CellChangeTimes->{{3.655373759112839*^9, 3.6553738426295404`*^9}, { 3.655373966768437*^9, 3.6553739707112303`*^9}, {3.6553746726294947`*^9, 3.655374677582779*^9}}], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{ "Move", " ", "the", " ", "coil", " ", "to", " ", "the", " ", "xmin", " ", "position"}], ",", " ", RowBox[{ RowBox[{ "assuming", " ", "that", " ", "the", " ", "geometry", " ", "is", " ", "drawn", " ", "so", " ", "that", " ", "the", " ", "coil", " ", "is", " ", "nominally", " ", "at", " ", "x"}], "=", "0"}]}], " ", "*)"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"DCSetFocus", "[", "]"}], ":=", RowBox[{"MISetFocus", "[", "\"\\"", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.6552809540797234`*^9, 3.655280970018139*^9}, { 3.655282086309848*^9, 3.6552820882016315`*^9}, {3.655282261985264*^9, 3.6552822623317738`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"ACSetFocus", "[", "]"}], ":=", RowBox[{"MISetFocus", "[", "\"\\"", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.6552806761823664`*^9, 3.6552806921137714`*^9}, { 3.655280764529174*^9, 3.6552809653863335`*^9}, {3.655282096916437*^9, 3.655282098560853*^9}, {3.655282264585087*^9, 3.6552822649676466`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"DCSetFocus", "[", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MISelectGroup", "[", "myCoilGroup", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MIMoveTranslate", "[", RowBox[{"0", ",", "xmin"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ACSetFocus", "[", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MISelectGroup", "[", "myCoilGroup", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MIMoveTranslate", "[", RowBox[{"0", ",", "xmin"}], "]"}], ";"}]}], "Input", CellChangeTimes->{{3.655280975345973*^9, 3.6552810587755537`*^9}, { 3.6552822475330334`*^9, 3.6552822714792166`*^9}, {3.655374719593508*^9, 3.6553747293227963`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "Step", " ", "through", " ", "the", " ", "full", " ", "range", " ", "of", " ", "coil", " ", "positions"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Lx", "=", RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Vx", "=", RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Bl", "=", RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Xx", "=", RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Lo", "=", RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"At", " ", "each", " ", "coil", " ", "position"}], ",", " ", RowBox[{ "evaluate", " ", "Bl", " ", "and", " ", "coil", " ", "inductance", " ", "over", " ", "a", " ", "range", " ", "of", " ", "frequencies"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"x", "=", "xmin"}], ",", RowBox[{"x", "\[LessEqual]", "xmax"}], ",", RowBox[{"x", "+=", "dx"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Lfd", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"Vfd", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"DCSetFocus", "[", "]"}], ";", "\[IndentingNewLine]", RowBox[{"MIAnalyze", "[", "]"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"k", "=", RowBox[{"-", "6"}]}], ",", RowBox[{"k", "\[LessEqual]", "wmax"}], ",", RowBox[{"k", "+=", "dw"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"ACSetFocus", "[", "]"}], ";", "\[IndentingNewLine]", RowBox[{"MIProbDef", "[", RowBox[{"10", "^", "k"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"MIAnalyze", "[", "]"}], ";", "\[IndentingNewLine]", RowBox[{"MILoadSolution", "[", "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Get", " ", "Bl"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"k", "\[Equal]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"MOGroupSelectBlock", "[", "1", "]"}], ";", "\[IndentingNewLine]", RowBox[{"f", "=", RowBox[{"Abs", "[", RowBox[{"MOBlockIntegral", "[", "29", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Bl", "=", RowBox[{"Append", "[", RowBox[{"Bl", ",", RowBox[{"{", RowBox[{"x", ",", "f"}], "}"}]}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Get", " ", "Inductance", " ", "and", " ", "Voltage"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"u", "=", RowBox[{"MOGetCircuitProperties", "[", "myCoilName", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"{", RowBox[{"x", ",", RowBox[{"10.", "^", "k"}], ",", RowBox[{"u", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"k", "\[Equal]", RowBox[{"-", "6"}]}], ",", RowBox[{ RowBox[{"Lo", "=", RowBox[{"Append", "[", RowBox[{"Lo", ",", RowBox[{"Abs", "[", RowBox[{"u", "[", RowBox[{"[", "3", "]"}], "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"k", "=", RowBox[{"wmin", "-", "dw"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Lfd", "=", RowBox[{"Append", "[", RowBox[{"Lfd", ",", RowBox[{"{", RowBox[{ RowBox[{"10.", "^", "k"}], ",", RowBox[{"u", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Vfd", "=", RowBox[{"Append", "[", RowBox[{"Vfd", ",", RowBox[{"{", RowBox[{ RowBox[{"10.", "^", "k"}], ",", RowBox[{"u", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"Lx", "=", RowBox[{"Append", "[", RowBox[{"Lx", ",", "Lfd"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Vx", "=", RowBox[{"Append", "[", RowBox[{"Vx", ",", "Vfd"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Xx", "=", RowBox[{"Append", "[", RowBox[{"Xx", ",", "x"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"x", "<", "xmax"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"DCSetFocus", "[", "]"}], ";", "\[IndentingNewLine]", RowBox[{"MISelectGroup", "[", "myCoilGroup", "]"}], ";", "\[IndentingNewLine]", RowBox[{"MIMoveTranslate", "[", RowBox[{"0", ",", "dx"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"ACSetFocus", "[", "]"}], ";", "\[IndentingNewLine]", RowBox[{"MISelectGroup", "[", "myCoilGroup", "]"}], ";", "\[IndentingNewLine]", RowBox[{"MIMoveTranslate", "[", RowBox[{"0", ",", "dx"}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}]}]], "Input", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmViYGAQBWIQff5eA5eY8WvHZ0kckiBayu20DIie9zJGHkRvZxBT A9Fh879pgWjvWwEGINpJ6imY5rlcUAOiO6T+1oNojfQFiy5Yv3ZsYd0Bpqu7 u348AdKau9T+g2iLVax8T4G0SbIFP4iOkf9uCqL1Dtv4g2jh/LUxINpA4XYi iHabNCEPRN84nVkFouWb/7eC6B3PlnaB6HOXfp0E0Vvmhp8B0e2SoXoMNq8d f8nMtATRjVK/BYSA9Iveh4Ig+gZXuj2IvuT7wwFENzDzvgHRGqyv34Holgcc f4VsXzuyNP35B6Iv2Lm/XQKkrRQiPoNok0oOlqVAOq5MXRpE97VdiNoGpMvX BsaAaADbX52N "]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "15"}], ",", "1.`*^-6", ",", RowBox[{"0.02129089441046626`", "\[InvisibleSpace]", "-", RowBox[{"0.000150202428588102`", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Print", CellChangeTimes->{3.6563683848736715`*^9, 3.6563688759947786`*^9, 3.656442291676262*^9, 3.6571980833174095`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "15"}], ",", "1", ",", RowBox[{"0.02108894589141449`", "\[InvisibleSpace]", "-", RowBox[{"0.001528590019682796`", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Print", CellChangeTimes->{3.6563683848736715`*^9, 3.6563688759947786`*^9, 3.656442291676262*^9, 3.6571983404739056`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "15"}], ",", "10.`", ",", RowBox[{"0.01546435621017363`", "\[InvisibleSpace]", "-", RowBox[{"0.00760888564129944`", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Print", CellChangeTimes->{3.6563683848736715`*^9, 3.6563688759947786`*^9, 3.656442291676262*^9, 3.657198606867284*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "15"}], ",", "100.`", ",", RowBox[{"0.003183151991556779`", "\[InvisibleSpace]", "-", RowBox[{"0.003945216536864219`", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Print", CellChangeTimes->{3.6563683848736715`*^9, 3.6563688759947786`*^9, 3.656442291676262*^9, 3.657198902241061*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "15"}], ",", "1000.`", ",", RowBox[{"0.001720673255662559`", "\[InvisibleSpace]", "-", RowBox[{"0.0007396896823388715`", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Print", CellChangeTimes->{3.6563683848736715`*^9, 3.6563688759947786`*^9, 3.656442291676262*^9, 3.657199245368617*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "15"}], ",", "10000.`", ",", RowBox[{"0.001185313415432746`", "\[InvisibleSpace]", "-", RowBox[{"0.000385831990150034`", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Print", CellChangeTimes->{3.6563683848736715`*^9, 3.6563688759947786`*^9, 3.656442291676262*^9, 3.6571995678052397`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "1.`*^-6", ",", RowBox[{"0.01842961981845112`", "\[InvisibleSpace]", "-", RowBox[{"0.0001185112557760772`", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Print", CellChangeTimes->{3.6563683848736715`*^9, 3.6563688759947786`*^9, 3.656442291676262*^9, 3.6572005357650566`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "1", ",", RowBox[{"0.01826386899084354`", "\[InvisibleSpace]", "-", RowBox[{"0.001236947289113283`", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Print", CellChangeTimes->{3.6563683848736715`*^9, 3.6563688759947786`*^9, 3.656442291676262*^9, 3.657200888515629*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "10.`", ",", RowBox[{"0.01374373476155758`", "\[InvisibleSpace]", "-", RowBox[{"0.006120750485914292`", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Print", CellChangeTimes->{3.6563683848736715`*^9, 3.6563688759947786`*^9, 3.656442291676262*^9, 3.6572012292735853`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "100.`", ",", RowBox[{"0.003786014118502253`", "\[InvisibleSpace]", "-", RowBox[{"0.003317920298535457`", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Print", CellChangeTimes->{3.6563683848736715`*^9, 3.6563688759947786`*^9, 3.656442291676262*^9, 3.657201589481909*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "1000.`", ",", RowBox[{"0.002412019299500185`", "\[InvisibleSpace]", "-", RowBox[{"0.0007936969339473047`", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Print", CellChangeTimes->{3.6563683848736715`*^9, 3.6563688759947786`*^9, 3.656442291676262*^9, 3.6572019441006804`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "10000.`", ",", RowBox[{"0.001645569299458631`", "\[InvisibleSpace]", "-", RowBox[{"0.0006199294564385723`", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Print", CellChangeTimes->{3.6563683848736715`*^9, 3.6563688759947786`*^9, 3.656442291676262*^9, 3.657202278318485*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "1.`*^-6", ",", RowBox[{"0.01476220429744418`", "\[InvisibleSpace]", "-", RowBox[{"0.00008235802359820404`", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Print", CellChangeTimes->{3.6563683848736715`*^9, 3.6563688759947786`*^9, 3.656442291676262*^9, 3.6572031359322004`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "1", ",", RowBox[{"0.01464274853935528`", "\[InvisibleSpace]", "-", RowBox[{"0.0008729478863917293`", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Print", CellChangeTimes->{3.6563683848736715`*^9, 3.6563688759947786`*^9, 3.656442291676262*^9, 3.6572033907549033`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "10.`", ",", RowBox[{"0.01148459093037972`", "\[InvisibleSpace]", "-", RowBox[{"0.004268531169616177`", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Print", CellChangeTimes->{3.6563683848736715`*^9, 3.6563688759947786`*^9, 3.656442291676262*^9, 3.6572036498256226`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "100.`", ",", RowBox[{"0.004536441126684007`", "\[InvisibleSpace]", "-", RowBox[{"0.002439186919240191`", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Print", CellChangeTimes->{3.6563683848736715`*^9, 3.6563688759947786`*^9, 3.656442291676262*^9, 3.6572039555919886`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "1000.`", ",", RowBox[{"0.003298335617569424`", "\[InvisibleSpace]", "-", RowBox[{"0.0008782566315779027`", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Print", CellChangeTimes->{3.6563683848736715`*^9, 3.6563688759947786`*^9, 3.656442291676262*^9, 3.6572042896639304`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "10000.`", ",", RowBox[{"0.002213361744717548`", "\[InvisibleSpace]", "-", RowBox[{"0.0009050262032421681`", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Print", CellChangeTimes->{3.6563683848736715`*^9, 3.6563688759947786`*^9, 3.656442291676262*^9, 3.6572046149608107`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", "1.`*^-6", ",", RowBox[{"0.01098654133120518`", "\[InvisibleSpace]", "-", RowBox[{"0.00004950782031446833`", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Print", CellChangeTimes->{3.6563683848736715`*^9, 3.6563688759947786`*^9, 3.656442291676262*^9, 3.657205486400029*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", "1", ",", RowBox[{"0.01091205721510967`", "\[InvisibleSpace]", "-", RowBox[{"0.0005284357416853119`", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Print", CellChangeTimes->{3.6563683848736715`*^9, 3.6563688759947786`*^9, 3.656442291676262*^9, 3.657205753026243*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", "10.`", ",", RowBox[{"0.009027106115723237`", "\[InvisibleSpace]", "-", RowBox[{"0.002531957444025401`", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Print", CellChangeTimes->{3.6563683848736715`*^9, 3.6563688759947786`*^9, 3.656442291676262*^9, 3.6572060215515738`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", "100.`", ",", RowBox[{"0.004944121250444033`", "\[InvisibleSpace]", "-", RowBox[{"0.001537866912659688`", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Print", CellChangeTimes->{3.6563683848736715`*^9, 3.6563688759947786`*^9, 3.656442291676262*^9, 3.6572063228022346`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", "1000.`", ",", RowBox[{"0.003963081573314762`", "\[InvisibleSpace]", "-", RowBox[{"0.0008679713801628394`", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Print", CellChangeTimes->{3.6563683848736715`*^9, 3.6563688759947786`*^9, 3.656442291676262*^9, 3.6572066661981354`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", "10000.`", ",", RowBox[{"0.002692307057085665`", "\[InvisibleSpace]", "-", RowBox[{"0.001086387349064655`", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Print", CellChangeTimes->{3.6563683848736715`*^9, 3.6563688759947786`*^9, 3.656442291676262*^9, 3.657206996133922*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"5", ",", "1.`*^-6", ",", RowBox[{"0.007943417795723294`", "\[InvisibleSpace]", "-", RowBox[{"0.00002560054726637665`", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Print", CellChangeTimes->{3.6563683848736715`*^9, 3.6563688759947786`*^9, 3.656442291676262*^9, 3.657207870732113*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"5", ",", "1", ",", RowBox[{"0.007903578829655051`", "\[InvisibleSpace]", "-", RowBox[{"0.0002730797803026425`", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Print", CellChangeTimes->{3.6563683848736715`*^9, 3.6563688759947786`*^9, 3.656442291676262*^9, 3.657208126163704*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"5", ",", "10.`", ",", RowBox[{"0.006952228928830613`", "\[InvisibleSpace]", "-", RowBox[{"0.001273817025673502`", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Print", CellChangeTimes->{3.6563683848736715`*^9, 3.6563688759947786`*^9, 3.656442291676262*^9, 3.6572083871229753`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"5", ",", "100.`", ",", RowBox[{"0.004922315279439839`", "\[InvisibleSpace]", "-", RowBox[{"0.0008580791790190876`", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Print", CellChangeTimes->{3.6563683848736715`*^9, 3.6563688759947786`*^9, 3.656442291676262*^9, 3.6572086923511305`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"5", ",", "1000.`", ",", RowBox[{"0.004228468310281537`", "\[InvisibleSpace]", "-", RowBox[{"0.000753780534854109`", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Print", CellChangeTimes->{3.6563683848736715`*^9, 3.6563688759947786`*^9, 3.656442291676262*^9, 3.657209116456815*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"5", ",", "10000.`", ",", RowBox[{"0.002980374691445163`", "\[InvisibleSpace]", "-", RowBox[{"0.001109715514038073`", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Print", CellChangeTimes->{3.6563683848736715`*^9, 3.6563688759947786`*^9, 3.656442291676262*^9, 3.6572095147689962`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"10", ",", "1.`*^-6", ",", RowBox[{"0.005659985429545682`", "\[InvisibleSpace]", "-", RowBox[{"0.00001104549985767862`", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Print", CellChangeTimes->{3.6563683848736715`*^9, 3.6563688759947786`*^9, 3.656442291676262*^9, 3.657210394640374*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"10", ",", "1", ",", RowBox[{"0.005641925710117635`", "\[InvisibleSpace]", "-", RowBox[{"0.0001188329467405208`", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Print", CellChangeTimes->{3.6563683848736715`*^9, 3.6563688759947786`*^9, 3.656442291676262*^9, 3.657210657191471*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"10", ",", "10.`", ",", RowBox[{"0.005242797189147662`", "\[InvisibleSpace]", "-", RowBox[{"0.0005375162982677607`", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Print", CellChangeTimes->{3.6563683848736715`*^9, 3.6563688759947786`*^9, 3.656442291676262*^9, 3.6572109187157764`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"10", ",", "100.`", ",", RowBox[{"0.004393357492460224`", "\[InvisibleSpace]", "-", RowBox[{"0.000431984067031485`", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Print", CellChangeTimes->{3.6563683848736715`*^9, 3.6563688759947786`*^9, 3.656442291676262*^9, 3.6572112161442776`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"10", ",", "1000.`", ",", RowBox[{"0.003944583591515108`", "\[InvisibleSpace]", "-", RowBox[{"0.0005595104572182883`", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Print", CellChangeTimes->{3.6563683848736715`*^9, 3.6563688759947786`*^9, 3.656442291676262*^9, 3.6572115508038187`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"10", ",", "10000.`", ",", RowBox[{"0.002957064054674032`", "\[InvisibleSpace]", "-", RowBox[{"0.0009088898827760997`", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Print", CellChangeTimes->{3.6563683848736715`*^9, 3.6563688759947786`*^9, 3.656442291676262*^9, 3.657211870432304*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"15", ",", "1.`*^-6", ",", RowBox[{"0.004097260578497177`", "\[InvisibleSpace]", "-", RowBox[{"3.942195991909463`*^-6", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Print", CellChangeTimes->{3.6563683848736715`*^9, 3.6563688759947786`*^9, 3.656442291676262*^9, 3.657212743608192*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"15", ",", "1", ",", RowBox[{"0.004089983090369144`", "\[InvisibleSpace]", "-", RowBox[{"0.00004532288815877725`", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Print", CellChangeTimes->{3.6563683848736715`*^9, 3.6563688759947786`*^9, 3.656442291676262*^9, 3.6572130059294977`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"15", ",", "10.`", ",", RowBox[{"0.003944261114239699`", "\[InvisibleSpace]", "-", RowBox[{"0.0001991872082511042`", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Print", CellChangeTimes->{3.6563683848736715`*^9, 3.6563688759947786`*^9, 3.656442291676262*^9, 3.657213272895094*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"15", ",", "100.`", ",", RowBox[{"0.003630268876148595`", "\[InvisibleSpace]", "-", RowBox[{"0.0001976326980942006`", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Print", CellChangeTimes->{3.6563683848736715`*^9, 3.6563688759947786`*^9, 3.656442291676262*^9, 3.6572135728767605`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"15", ",", "1000.`", ",", RowBox[{"0.0033824834247604`", "\[InvisibleSpace]", "-", RowBox[{"0.0003352269741466191`", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Print", CellChangeTimes->{3.6563683848736715`*^9, 3.6563688759947786`*^9, 3.656442291676262*^9, 3.6572139116155615`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"15", ",", "10000.`", ",", RowBox[{"0.002771169989817102`", "\[InvisibleSpace]", "-", RowBox[{"0.0005875137107328284`", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Print", CellChangeTimes->{3.6563683848736715`*^9, 3.6563688759947786`*^9, 3.656442291676262*^9, 3.65721423841862*^9}] }, Open ]] }, Open ]], Cell[BoxData[ RowBox[{"CloseFEMM", "[", "]"}]], "Input", CellChangeTimes->{{3.6553360645032964`*^9, 3.655336066648449*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListLogLogPlot", "[", RowBox[{ RowBox[{"Abs", "[", "Vx", "]"}], ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", " ", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "}"}]}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "200"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.6553727392901435`*^9, 3.655372759435745*^9}, { 3.6553733400342903`*^9, 3.655373444881341*^9}, {3.657233334381731*^9, 3.65723335403639*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[{{0., 1.753910231109348}, {2.302585092994046, 1.843600970000644}, {4.605170185988092, 2.138181104489394}, { 6.907755278982137, 2.708776422639579}, {9.210340371976184, 4.385668940369396}}]}, {Hue[0.9060679774997897, 0.6, 0.6], LineBox[{{0., 1.753527277732719}, {2.302585092994046, 1.826310224783512}, {4.605170185988092, 2.1045268640951744`}, { 6.907755278982137, 2.922212922492107}, {9.210340371976184, 4.724266188212472}}]}, {Hue[0.14213595499957954`, 0.6, 0.6], LineBox[{{0., 1.753060653919447}, {2.302585092994046, 1.804546827226237}, {4.605170185988092, 2.0586568016576283`}, { 6.907755278982137, 3.1611210668731036`}, {9.210340371976184, 5.027294330561564}}]}, {Hue[0.37820393249936934`, 0.6, 0.6], LineBox[{{0., 1.7526290972698129`}, {2.302585092994046, 1.7837604862428533`}, {4.605170185988092, 2.003430360230338}, { 6.907755278982137, 3.3073145406700686`}, {9.210340371976184, 5.218453589350936}}]}, {Hue[0.6142719099991583, 0.6, 0.6], LineBox[{{0., 1.7523174145198517`}, {2.302585092994046, 1.7685518612051905`}, {4.605170185988092, 1.9491697022476293`}, { 6.907755278982137, 3.3523090804776787`}, {9.199180911799282, 5.298317366548036}}]}, {Hue[0.8503398874989481, 0.6, 0.6], LineBox[{{0., 1.7521311986436736`}, {2.302585092994046, 1.7594333899372252`}, {4.605170185988092, 1.8928979636993963`}, { 6.907755278982137, 3.275839915221587}, {9.210340371976184, 5.278858828956093}}]}, {Hue[0.08640786499873876, 0.6, 0.6], LineBox[{{0., 1.7520421396545978`}, {2.302585092994046, 1.7550698046669322`}, {4.605170185988092, 1.8431538207317475`}, { 6.907755278982137, 3.1207737754836895`}, {9.210340371976184, 5.188899967779491}}]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0., 0.}, BaseStyle->{FontFamily -> "Tahoma", FontSize -> 14}, CoordinatesToolOptions:>{"DisplayFunction" -> ({ Exp[ Part[#, 1]], Exp[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Exp[ Part[#, 1]], Exp[ Part[#, 2]]}& )}, Frame->True, FrameLabel->{ FormBox["\"Frequency, Hz\"", TraditionalForm], FormBox["\"Impedance, Ohms\"", TraditionalForm]}, FrameTicks->{{{{0., FormBox["1", TraditionalForm]}, {0.6931471805599453, FormBox["2", TraditionalForm]}, {1.6094379124341003`, FormBox["5", TraditionalForm]}, {2.302585092994046, FormBox["10", TraditionalForm]}, {2.995732273553991, FormBox["20", TraditionalForm]}, {3.912023005428146, FormBox["50", TraditionalForm]}, {4.605170185988092, FormBox["100", TraditionalForm]}, {5.298317366548036, FormBox["200", TraditionalForm]}, {6.214608098422191, FormBox["500", TraditionalForm]}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, {{0., FormBox["\"\"", TraditionalForm]}, {0.6931471805599453, FormBox["\"\"", TraditionalForm]}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm]}, {2.302585092994046, FormBox["\"\"", TraditionalForm]}, {2.995732273553991, FormBox["\"\"", TraditionalForm]}, {3.912023005428146, FormBox["\"\"", TraditionalForm]}, {4.605170185988092, FormBox["\"\"", TraditionalForm]}, {5.298317366548036, FormBox["\"\"", TraditionalForm]}, {6.214608098422191, FormBox["\"\"", TraditionalForm]}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}, {{{0, FormBox["1", TraditionalForm]}, {2.302585092994046, FormBox["10", TraditionalForm]}, {4.605170185988092, FormBox["100", TraditionalForm]}, {6.907755278982137, FormBox["1000", TraditionalForm]}, {9.210340371976184, FormBox[ TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {7.600902459542082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.006367567650246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.294049640102028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.517193191416238, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.699514748210191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.85366542803745, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.987196820661973, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {9.104979856318357, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, {{0, FormBox["\"\"", TraditionalForm]}, {2.302585092994046, FormBox["\"\"", TraditionalForm]}, {4.605170185988092, FormBox["\"\"", TraditionalForm]}, {6.907755278982137, FormBox["\"\"", TraditionalForm]}, {9.210340371976184, FormBox["\"\"", TraditionalForm]}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {7.600902459542082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.006367567650246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.294049640102028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.517193191416238, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.699514748210191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.85366542803745, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.987196820661973, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {9.104979856318357, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}}, GridLines->{{ 0, 2.302585092994046, 4.605170185988092, 6.907755278982137, 9.210340371976184, 0.6931471805599453, 1.0986122886681098`, 1.3862943611198906`, 1.6094379124341003`, 1.791759469228055, 1.9459101490553132`, 2.0794415416798357`, 2.1972245773362196`, 2.995732273553991, 3.4011973816621555`, 3.6888794541139363`, 3.912023005428146, 4.0943445622221, 4.248495242049359, 4.382026634673881, 4.499809670330265, 5.298317366548036, 5.703782474656201, 5.991464547107982, 6.214608098422191, 6.396929655216146, 6.551080335043404, 6.684611727667927, 6.802394763324311, 7.600902459542082, 8.006367567650246, 8.294049640102028, 8.517193191416238, 8.699514748210191, 8.85366542803745, 8.987196820661973, 9.104979856318357}, {0., 0.6931471805599453, 1.6094379124341003`, 2.302585092994046, 2.995732273553991, 3.912023005428146, 4.605170185988092, 5.298317366548036, 6.214608098422191, 1.0986122886681098`, 1.3862943611198906`, 1.791759469228055, 1.9459101490553132`, 2.0794415416798357`, 2.1972245773362196`, 3.4011973816621555`, 3.6888794541139363`, 4.0943445622221, 4.248495242049359, 4.382026634673881, 4.499809670330265, 5.703782474656201, 5.991464547107982}}, ImageSize->500, Method->{}, PlotRange->{{0., 9.210340371976184}, {0., 5.298317366548036}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], {None, None}}, Ticks->{{{0, FormBox["1", TraditionalForm]}, {2.302585092994046, FormBox["10", TraditionalForm]}, {4.605170185988092, FormBox["100", TraditionalForm]}, {6.907755278982137, FormBox["1000", TraditionalForm]}, {9.210340371976184, FormBox[ TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {7.600902459542082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.006367567650246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.294049640102028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.517193191416238, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.699514748210191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.85366542803745, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.987196820661973, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {9.104979856318357, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, {{0., FormBox["1", TraditionalForm]}, {0.6931471805599453, FormBox["2", TraditionalForm]}, {1.6094379124341003`, FormBox["5", TraditionalForm]}, {2.302585092994046, FormBox["10", TraditionalForm]}, {2.995732273553991, FormBox["20", TraditionalForm]}, {3.912023005428146, FormBox["50", TraditionalForm]}, {4.605170185988092, FormBox["100", TraditionalForm]}, {5.298317366548036, FormBox["200", TraditionalForm]}, {6.214608098422191, FormBox["500", TraditionalForm]}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}]], "Output", CellChangeTimes->{{3.6553727512106547`*^9, 3.6553727599595118`*^9}, { 3.655373343294078*^9, 3.655373396702551*^9}, 3.6553734453009586`*^9, 3.6553889429810734`*^9, 3.656209399931597*^9, 3.6563791387669525`*^9, 3.6564878324002733`*^9, 3.6572142396999288`*^9, {3.6572333439289045`*^9, 3.6572333548804927`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListLogLogPlot", "[", RowBox[{ RowBox[{"Abs", "[", "Lx", "]"}], ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", " ", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "}"}]}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.655372793469757*^9, 3.6553727940956736`*^9}, { 3.6553734639473577`*^9, 3.6553734847268896`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[{{0., -3.8563862511823377`}, { 2.302585092994046, -4.060819427081068}, { 4.605170185988092, -5.284564452866559}, { 6.907755278982137, -6.280252584371464}, { 9.210340371976184, -6.68739249645072}}]}, {Hue[0.9060679774997897, 0.6, 0.6], LineBox[{{0., -4.000542349636328}, { 2.302585092994046, -4.196705577993363}, { 4.605170185988092, -5.291513904049191}, { 6.907755278982137, -5.975886411556667}, { 9.210340371976184, -6.343312118682268}}]}, {Hue[0.14213595499957954`, 0.6, 0.6], LineBox[{{0., -4.2220361394819745`}, { 2.302585092994046, -4.402050491236802}, { 4.605170185988092, -5.268637343770455}, { 6.907755278982137, -5.680087058001899}, { 9.210340371976184, -6.035942003335413}}]}, {Hue[0.37820393249936934`, 0.6, 0.6], LineBox[{{0., -4.516715731085932}, { 2.302585092994046, -4.669658486299919}, { 4.605170185988092, -5.263379560173876}, { 6.907755278982137, -5.50730721531209}, { 9.210340371976184, -5.841930755972781}}]}, {Hue[0.6142719099991583, 0.6, 0.6], LineBox[{{0., -4.839843061771598}, { 2.302585092994046, -4.952183000191592}, { 4.605170185988092, -5.299008091676159}, { 6.907755278982137, -5.45027379154536}, { 9.210340371976184, -5.750789943888604}}]}, {Hue[0.8503398874989481, 0.6, 0.6], LineBox[{{0., -5.177308068942345}, { 2.302585092994046, -5.245671879454213}, { 4.605170185988092, -5.422850694422822}, { 6.907755278982137, -5.525452065377831}, { 9.210340371976184, -5.778422550989462}}]}, {Hue[0.08640786499873876, 0.6, 0.6], LineBox[{{0., -5.499153047971442}, { 2.302585092994046, -5.534220111359324}, { 4.605170185988092, -5.616968884788912}, { 6.907755278982137, -5.684257985131284}, { 9.210340371976184, -5.866502141642339}}]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0., -6.68739249645072}, BaseStyle->{FontFamily -> "Tahoma", FontSize -> 14}, CoordinatesToolOptions:>{"DisplayFunction" -> ({ Exp[ Part[#, 1]], Exp[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Exp[ Part[#, 1]], Exp[ Part[#, 2]]}& )}, Frame->True, FrameLabel->{ FormBox["\"Frequency, Hz\"", TraditionalForm], FormBox["\"Inductance, Henries\"", TraditionalForm]}, FrameTicks->{{{{-6.907755278982137, FormBox[ TagBox[ InterpretationBox["\"0.0010\"", 0.001, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-4.605170185988091, FormBox[ TagBox[ InterpretationBox["\"0.0100\"", 0.01, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-5.298317366548036, FormBox[ TagBox[ InterpretationBox["\"0.0050\"", 0.005, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-2.995732273553991, FormBox[ TagBox[ InterpretationBox["\"0.0500\"", 0.05, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-6.214608098422191, FormBox[ TagBox[ InterpretationBox["\"0.0020\"", 0.002, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-3.912023005428146, FormBox[ TagBox[ InterpretationBox["\"0.0200\"", 0.02, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-5.809142990314028, FormBox[ TagBox[ InterpretationBox["\"0.0030\"", 0.003, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-3.506557897319982, FormBox[ TagBox[ InterpretationBox["\"0.0300\"", 0.03, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-6.502290170873972, FormBox[ TagBox[ InterpretationBox["\"0.0015\"", 0.0015, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-4.199705077879927, FormBox[ TagBox[ InterpretationBox["\"0.0150\"", 0.015, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-4.961845129926823, FormBox[ TagBox[ InterpretationBox["\"0.0070\"", 0.007, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-2.659260036932778, FormBox[ TagBox[ InterpretationBox["\"0.0700\"", 0.07, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-6.812445099177812, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.725433722188182, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.6453910145146455`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.571283042360924, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.437751649736401, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.3771270279199666`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.319968614080018, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.2659013928097425`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.521460917862246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.115995809754082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.8283137373023015`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.710530701645918, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.487387150331708, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.382026634673882, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.286716454869556, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.135166556742356, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.074541934925921, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.017383521085972, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.9633162998156966`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, {{-6.907755278982137, FormBox["\"\"", TraditionalForm]}, {-4.605170185988091, FormBox["\"\"", TraditionalForm]}, {-5.298317366548036, FormBox["\"\"", TraditionalForm]}, {-2.995732273553991, FormBox["\"\"", TraditionalForm]}, {-6.214608098422191, FormBox["\"\"", TraditionalForm]}, {-3.912023005428146, FormBox["\"\"", TraditionalForm]}, {-5.809142990314028, FormBox["\"\"", TraditionalForm]}, {-3.506557897319982, FormBox["\"\"", TraditionalForm]}, {-6.502290170873972, FormBox["\"\"", TraditionalForm]}, {-4.199705077879927, FormBox["\"\"", TraditionalForm]}, {-4.961845129926823, FormBox["\"\"", TraditionalForm]}, {-2.659260036932778, FormBox["\"\"", TraditionalForm]}, {-6.812445099177812, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.725433722188182, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.6453910145146455`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.571283042360924, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.437751649736401, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.3771270279199666`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.319968614080018, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.2659013928097425`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.521460917862246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.115995809754082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.8283137373023015`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.710530701645918, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.487387150331708, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.382026634673882, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.286716454869556, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.135166556742356, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.074541934925921, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.017383521085972, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.9633162998156966`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}, {{{0, FormBox["1", TraditionalForm]}, {2.302585092994046, FormBox["10", TraditionalForm]}, {4.605170185988092, FormBox["100", TraditionalForm]}, {6.907755278982137, FormBox["1000", TraditionalForm]}, {9.210340371976184, FormBox[ TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {7.600902459542082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.006367567650246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.294049640102028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.517193191416238, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.699514748210191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.85366542803745, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.987196820661973, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {9.104979856318357, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, {{0, FormBox["\"\"", TraditionalForm]}, {2.302585092994046, FormBox["\"\"", TraditionalForm]}, {4.605170185988092, FormBox["\"\"", TraditionalForm]}, {6.907755278982137, FormBox["\"\"", TraditionalForm]}, {9.210340371976184, FormBox["\"\"", TraditionalForm]}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {7.600902459542082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.006367567650246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.294049640102028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.517193191416238, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.699514748210191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.85366542803745, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.987196820661973, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {9.104979856318357, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}}, GridLines->{{ 0, 2.302585092994046, 4.605170185988092, 6.907755278982137, 9.210340371976184, 0.6931471805599453, 1.0986122886681098`, 1.3862943611198906`, 1.6094379124341003`, 1.791759469228055, 1.9459101490553132`, 2.0794415416798357`, 2.1972245773362196`, 2.995732273553991, 3.4011973816621555`, 3.6888794541139363`, 3.912023005428146, 4.0943445622221, 4.248495242049359, 4.382026634673881, 4.499809670330265, 5.298317366548036, 5.703782474656201, 5.991464547107982, 6.214608098422191, 6.396929655216146, 6.551080335043404, 6.684611727667927, 6.802394763324311, 7.600902459542082, 8.006367567650246, 8.294049640102028, 8.517193191416238, 8.699514748210191, 8.85366542803745, 8.987196820661973, 9.104979856318357}, {-6.907755278982137, -4.605170185988091, \ -5.298317366548036, -2.995732273553991, -6.214608098422191, \ -3.912023005428146, -5.809142990314028, -3.506557897319982, \ -6.502290170873972, -4.199705077879927, -4.961845129926823, \ -2.659260036932778, -6.812445099177812, -6.725433722188182, \ -6.6453910145146455`, -6.571283042360924, -6.437751649736401, \ -6.3771270279199666`, -6.319968614080018, -6.2659013928097425`, \ -5.521460917862246, -5.115995809754082, -4.8283137373023015`, \ -4.710530701645918, -4.487387150331708, -4.382026634673882, \ -4.286716454869556, -4.135166556742356, -4.074541934925921, \ -4.017383521085972, -3.9633162998156966`, -3.2188758248682006`, \ -2.8134107167600364`}}, ImageSize->500, Method->{}, PlotRange->{{0., 9.210340371976184}, {-6.68739249645072, -3.8563862511823377`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}, Ticks->{{{0, FormBox["1", TraditionalForm]}, {2.302585092994046, FormBox["10", TraditionalForm]}, {4.605170185988092, FormBox["100", TraditionalForm]}, {6.907755278982137, FormBox["1000", TraditionalForm]}, {9.210340371976184, FormBox[ TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {7.600902459542082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.006367567650246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.294049640102028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.517193191416238, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.699514748210191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.85366542803745, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.987196820661973, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {9.104979856318357, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, {{-6.907755278982137, FormBox[ TagBox[ InterpretationBox["\"0.0010\"", 0.001, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-4.605170185988091, FormBox[ TagBox[ InterpretationBox["\"0.0100\"", 0.01, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-5.298317366548036, FormBox[ TagBox[ InterpretationBox["\"0.0050\"", 0.005, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-2.995732273553991, FormBox[ TagBox[ InterpretationBox["\"0.0500\"", 0.05, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-6.214608098422191, FormBox[ TagBox[ InterpretationBox["\"0.0020\"", 0.002, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-3.912023005428146, FormBox[ TagBox[ InterpretationBox["\"0.0200\"", 0.02, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-5.809142990314028, FormBox[ TagBox[ InterpretationBox["\"0.0030\"", 0.003, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-3.506557897319982, FormBox[ TagBox[ InterpretationBox["\"0.0300\"", 0.03, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-6.502290170873972, FormBox[ TagBox[ InterpretationBox["\"0.0015\"", 0.0015, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-4.199705077879927, FormBox[ TagBox[ InterpretationBox["\"0.0150\"", 0.015, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-4.961845129926823, FormBox[ TagBox[ InterpretationBox["\"0.0070\"", 0.007, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-2.659260036932778, FormBox[ TagBox[ InterpretationBox["\"0.0700\"", 0.07, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-6.812445099177812, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.725433722188182, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.6453910145146455`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.571283042360924, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.437751649736401, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.3771270279199666`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.319968614080018, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.2659013928097425`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.521460917862246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.115995809754082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.8283137373023015`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.710530701645918, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.487387150331708, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.382026634673882, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.286716454869556, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.135166556742356, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.074541934925921, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.017383521085972, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.9633162998156966`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}]], "Output", CellChangeTimes->{3.6553727950260363`*^9, 3.655373497663898*^9, 3.6553889431214733`*^9, 3.656209400053609*^9, 3.6563791388909655`*^9, 3.6564878325406733`*^9, 3.6572142401847076`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListLogLogPlot", "[", RowBox[{ RowBox[{"Re", "[", "Lx", "]"}], ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", " ", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "}"}]}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.656024496451789*^9, 3.65602451202532*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[{{0., -3.859006267181322}, { 2.302585092994046, -4.169217502539695}, { 4.605170185988092, -5.749883380783339}, { 6.907755278982137, -6.365039637033827}, { 9.210340371976184, -6.737748053767938}}]}, {Hue[0.9060679774997897, 0.6, 0.6], LineBox[{{0., -4.0028305428616475`}, { 2.302585092994046, -4.287172212416155}, { 4.605170185988092, -5.576441497067714}, { 6.907755278982137, -6.027290998698055}, { 9.210340371976184, -6.409668875937966}}]}, {Hue[0.14213595499957954`, 0.6, 0.6], LineBox[{{0., -4.2238100463110095`}, { 2.302585092994046, -4.466749061204638}, { 4.605170185988092, -5.39561246713438}, { 6.907755278982137, -5.714337296053434}, { 9.210340371976184, -6.113242767775519}}]}, {Hue[0.37820393249936934`, 0.6, 0.6], LineBox[{{0., -4.5178869345746095`}, { 2.302585092994046, -4.707523437365407}, { 4.605170185988092, -5.309556034361287}, { 6.907755278982137, -5.530733381257505}, { 9.210340371976184, -5.9173568108938985`}}]}, {Hue[0.6142719099991583, 0.6, 0.6], LineBox[{{0., -4.8404396056780845`}, { 2.302585092994046, -4.968692961637373}, { 4.605170185988092, -5.313976273916436}, { 6.907755278982137, -5.46591545308685}, { 9.210340371976184, -5.815706250984572}}]}, {Hue[0.8503398874989481, 0.6, 0.6], LineBox[{{0., -5.177529833784726}, { 2.302585092994046, -5.250900108354744}, { 4.605170185988092, -5.427661539548466}, { 6.907755278982137, -5.535411883737055}, { 9.210340371976184, -5.82355837629906}}]}, {Hue[0.08640786499873876, 0.6, 0.6], LineBox[{{0., -5.499214443320046}, { 2.302585092994046, -5.535493638997202}, { 4.605170185988092, -5.618448562884115}, { 6.907755278982137, -5.689145098223902}, { 9.210340371976184, -5.888485668964444}}]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0., -6.737748053767938}, BaseStyle->{FontFamily -> "Tahoma", FontSize -> 14}, CoordinatesToolOptions:>{"DisplayFunction" -> ({ Exp[ Part[#, 1]], Exp[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Exp[ Part[#, 1]], Exp[ Part[#, 2]]}& )}, Frame->True, FrameLabel->{ FormBox["\"Frequency, Hz\"", TraditionalForm], FormBox["\"Re[Inductance], Henries\"", TraditionalForm]}, FrameTicks->{{{{-6.907755278982137, FormBox[ TagBox[ InterpretationBox["\"0.0010\"", 0.001, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-4.605170185988091, FormBox[ TagBox[ InterpretationBox["\"0.0100\"", 0.01, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-5.298317366548036, FormBox[ TagBox[ InterpretationBox["\"0.0050\"", 0.005, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-2.995732273553991, FormBox[ TagBox[ InterpretationBox["\"0.0500\"", 0.05, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-6.214608098422191, FormBox[ TagBox[ InterpretationBox["\"0.0020\"", 0.002, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-3.912023005428146, FormBox[ TagBox[ InterpretationBox["\"0.0200\"", 0.02, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-5.809142990314028, FormBox[ TagBox[ InterpretationBox["\"0.0030\"", 0.003, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-3.506557897319982, FormBox[ TagBox[ InterpretationBox["\"0.0300\"", 0.03, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-6.502290170873972, FormBox[ TagBox[ InterpretationBox["\"0.0015\"", 0.0015, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-4.199705077879927, FormBox[ TagBox[ InterpretationBox["\"0.0150\"", 0.015, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-4.961845129926823, FormBox[ TagBox[ InterpretationBox["\"0.0070\"", 0.007, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-2.659260036932778, FormBox[ TagBox[ InterpretationBox["\"0.0700\"", 0.07, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-6.812445099177812, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.725433722188182, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.6453910145146455`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.571283042360924, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.437751649736401, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.3771270279199666`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.319968614080018, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.2659013928097425`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.521460917862246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.115995809754082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.8283137373023015`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.710530701645918, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.487387150331708, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.382026634673882, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.286716454869556, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.135166556742356, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.074541934925921, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.017383521085972, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.9633162998156966`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, {{-6.907755278982137, FormBox["\"\"", TraditionalForm]}, {-4.605170185988091, FormBox["\"\"", TraditionalForm]}, {-5.298317366548036, FormBox["\"\"", TraditionalForm]}, {-2.995732273553991, FormBox["\"\"", TraditionalForm]}, {-6.214608098422191, FormBox["\"\"", TraditionalForm]}, {-3.912023005428146, FormBox["\"\"", TraditionalForm]}, {-5.809142990314028, FormBox["\"\"", TraditionalForm]}, {-3.506557897319982, FormBox["\"\"", TraditionalForm]}, {-6.502290170873972, FormBox["\"\"", TraditionalForm]}, {-4.199705077879927, FormBox["\"\"", TraditionalForm]}, {-4.961845129926823, FormBox["\"\"", TraditionalForm]}, {-2.659260036932778, FormBox["\"\"", TraditionalForm]}, {-6.812445099177812, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.725433722188182, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.6453910145146455`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.571283042360924, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.437751649736401, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.3771270279199666`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.319968614080018, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.2659013928097425`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.521460917862246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.115995809754082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.8283137373023015`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.710530701645918, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.487387150331708, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.382026634673882, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.286716454869556, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.135166556742356, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.074541934925921, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.017383521085972, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.9633162998156966`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}, {{{0, FormBox["1", TraditionalForm]}, {2.302585092994046, FormBox["10", TraditionalForm]}, {4.605170185988092, FormBox["100", TraditionalForm]}, {6.907755278982137, FormBox["1000", TraditionalForm]}, {9.210340371976184, FormBox[ TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {7.600902459542082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.006367567650246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.294049640102028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.517193191416238, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.699514748210191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.85366542803745, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.987196820661973, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {9.104979856318357, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, {{0, FormBox["\"\"", TraditionalForm]}, {2.302585092994046, FormBox["\"\"", TraditionalForm]}, {4.605170185988092, FormBox["\"\"", TraditionalForm]}, {6.907755278982137, FormBox["\"\"", TraditionalForm]}, {9.210340371976184, FormBox["\"\"", TraditionalForm]}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {7.600902459542082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.006367567650246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.294049640102028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.517193191416238, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.699514748210191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.85366542803745, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.987196820661973, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {9.104979856318357, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}}, GridLines->{{ 0, 2.302585092994046, 4.605170185988092, 6.907755278982137, 9.210340371976184, 0.6931471805599453, 1.0986122886681098`, 1.3862943611198906`, 1.6094379124341003`, 1.791759469228055, 1.9459101490553132`, 2.0794415416798357`, 2.1972245773362196`, 2.995732273553991, 3.4011973816621555`, 3.6888794541139363`, 3.912023005428146, 4.0943445622221, 4.248495242049359, 4.382026634673881, 4.499809670330265, 5.298317366548036, 5.703782474656201, 5.991464547107982, 6.214608098422191, 6.396929655216146, 6.551080335043404, 6.684611727667927, 6.802394763324311, 7.600902459542082, 8.006367567650246, 8.294049640102028, 8.517193191416238, 8.699514748210191, 8.85366542803745, 8.987196820661973, 9.104979856318357}, {-6.907755278982137, -4.605170185988091, \ -5.298317366548036, -2.995732273553991, -6.214608098422191, \ -3.912023005428146, -5.809142990314028, -3.506557897319982, \ -6.502290170873972, -4.199705077879927, -4.961845129926823, \ -2.659260036932778, -6.812445099177812, -6.725433722188182, \ -6.6453910145146455`, -6.571283042360924, -6.437751649736401, \ -6.3771270279199666`, -6.319968614080018, -6.2659013928097425`, \ -5.521460917862246, -5.115995809754082, -4.8283137373023015`, \ -4.710530701645918, -4.487387150331708, -4.382026634673882, \ -4.286716454869556, -4.135166556742356, -4.074541934925921, \ -4.017383521085972, -3.9633162998156966`, -3.2188758248682006`, \ -2.8134107167600364`}}, ImageSize->500, Method->{}, PlotRange->{{0., 9.210340371976184}, {-6.737748053767938, -3.859006267181322}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}, Ticks->{{{0, FormBox["1", TraditionalForm]}, {2.302585092994046, FormBox["10", TraditionalForm]}, {4.605170185988092, FormBox["100", TraditionalForm]}, {6.907755278982137, FormBox["1000", TraditionalForm]}, {9.210340371976184, FormBox[ TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {7.600902459542082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.006367567650246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.294049640102028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.517193191416238, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.699514748210191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.85366542803745, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.987196820661973, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {9.104979856318357, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, {{-6.907755278982137, FormBox[ TagBox[ InterpretationBox["\"0.0010\"", 0.001, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-4.605170185988091, FormBox[ TagBox[ InterpretationBox["\"0.0100\"", 0.01, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-5.298317366548036, FormBox[ TagBox[ InterpretationBox["\"0.0050\"", 0.005, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-2.995732273553991, FormBox[ TagBox[ InterpretationBox["\"0.0500\"", 0.05, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-6.214608098422191, FormBox[ TagBox[ InterpretationBox["\"0.0020\"", 0.002, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-3.912023005428146, FormBox[ TagBox[ InterpretationBox["\"0.0200\"", 0.02, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-5.809142990314028, FormBox[ TagBox[ InterpretationBox["\"0.0030\"", 0.003, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-3.506557897319982, FormBox[ TagBox[ InterpretationBox["\"0.0300\"", 0.03, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-6.502290170873972, FormBox[ TagBox[ InterpretationBox["\"0.0015\"", 0.0015, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-4.199705077879927, FormBox[ TagBox[ InterpretationBox["\"0.0150\"", 0.015, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-4.961845129926823, FormBox[ TagBox[ InterpretationBox["\"0.0070\"", 0.007, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-2.659260036932778, FormBox[ TagBox[ InterpretationBox["\"0.0700\"", 0.07, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-6.812445099177812, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.725433722188182, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.6453910145146455`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.571283042360924, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.437751649736401, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.3771270279199666`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.319968614080018, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.2659013928097425`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.521460917862246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.115995809754082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.8283137373023015`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.710530701645918, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.487387150331708, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.382026634673882, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.286716454869556, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.135166556742356, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.074541934925921, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.017383521085972, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.9633162998156966`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}]], "Output", CellChangeTimes->{3.656209400173621*^9, 3.6563791390219784`*^9, 3.656487832681073*^9, 3.6572142405437174`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"Rx", "=", "Lx"}], ";"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"k", "=", "1"}], ",", RowBox[{"k", "\[LessEqual]", RowBox[{"Length", "[", "Rx", "]"}]}], ",", RowBox[{"k", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"r", "=", RowBox[{"Transpose", "[", RowBox[{"Rx", "[", RowBox[{"[", "k", "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"r", "[", RowBox[{"[", "2", "]"}], "]"}], "=", RowBox[{ RowBox[{"r", "[", RowBox[{"[", "2", "]"}], "]"}], "*", "2", "*", "Pi", "*", "I", "*", RowBox[{"r", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{"Re", "[", RowBox[{"Transpose", "[", "r", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"Rx", "[", RowBox[{"[", "k", "]"}], "]"}], "=", "r"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], "Input", CellChangeTimes->{{3.656024548531176*^9, 3.656024668396659*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListLogLogPlot", "[", RowBox[{ RowBox[{"Re", "[", "Rx", "]"}], ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", " ", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "}"}]}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.656024673068573*^9, 3.6560247202085986`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[{{0., -4.6455324578249}, { 2.302585092994046, -0.7379763918967719}, {4.605170185988092, 0.9077958151457604}, {6.907755278982137, 1.5363525374836682`}, { 9.210340371976184, 3.188108896454862}}]}, {Hue[0.9060679774997897, 0.6, 0.6], LineBox[{{0., -4.8572317319432035`}, { 2.302585092994046, -0.955608402155393}, {4.605170185988092, 0.7346301439593784}, {6.907755278982137, 1.606823480529686}, { 9.210340371976184, 3.6623125720491765`}}]}, {Hue[0.14213595499957954`, 0.6, 0.6], LineBox[{{0., -5.20575763235197}, { 2.302585092994046, -1.3160233398960732`}, {4.605170185988092, 0.42695672736742296`}, {6.907755278982137, 1.7080606294446115`}, { 9.210340371976184, 4.040670777560774}}]}, {Hue[0.37820393249936934`, 0.6, 0.6], LineBox[{{0., -5.707712279851954}, { 2.302585092994046, -1.8383004226950104`}, { 4.605170185988092, -0.034311691976442855`}, {6.907755278982137, 1.6962805293813374`}, {9.210340371976184, 4.223319992335218}}]}, {Hue[0.6142719099991583, 0.6, 0.6], LineBox[{{0., -6.367869503521642}, { 2.302585092994046, -2.525275194663718}, { 4.605170185988092, -0.6177669270976812}, {6.907755278982137, 1.5552230452339546`}, {9.210340371976184, 4.244565848219407}}]}, {Hue[0.8503398874989481, 0.6, 0.6], LineBox[{{0., -7.1999147936094285`}, { 2.302585092994046, -3.388089316660154}, { 4.605170185988092, -1.3040745998744423`}, {6.907755278982137, 1.2571840052963739`}, {9.210340371976184, 4.044930826200166}}]}, {Hue[0.08640786499873876, 0.6, 0.6], LineBox[{{0., -8.163821329297315}, { 2.302585092994046, -4.380803271079202}, { 4.605170185988092, -2.086053057757518}, {6.907755278982137, 0.7449296245952448}, {9.210340371976184, 3.608606463584835}}]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0., -8.163821329297315}, BaseStyle->{FontFamily -> "Tahoma", FontSize -> 14}, CoordinatesToolOptions:>{"DisplayFunction" -> ({ Exp[ Part[#, 1]], Exp[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Exp[ Part[#, 1]], Exp[ Part[#, 2]]}& )}, Frame->True, FrameLabel->{ FormBox["\"Frequency, Hz\"", TraditionalForm], FormBox["\"Re[j\[Omega]*Inductance], Ohms\"", TraditionalForm]}, FrameTicks->{{{{-9.210340371976182, FormBox[ TemplateBox[{"10", RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {-6.907755278982137, FormBox["0.001`", TraditionalForm]}, {-4.605170185988091, FormBox["0.01`", TraditionalForm]}, {-2.3025850929940455`, FormBox["0.1`", TraditionalForm]}, {0, FormBox["1", TraditionalForm]}, {2.302585092994046, FormBox["10", TraditionalForm]}, {4.605170185988092, FormBox["100", TraditionalForm]}, {-8.517193191416238, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-8.111728083308073, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-7.824046010856292, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-7.600902459542082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-7.418580902748127, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-7.264430222920869, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-7.1308988302963465`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-7.013115794639964, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.809142990314028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.521460917862246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.115995809754082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.961845129926823, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.8283137373023015`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.710530701645918, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.506557897319982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.659260036932778, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.5257286443082556`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.4079456086518722`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.203972804325936, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.916290731874155, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.5108256237659905, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.3566749439387323, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.2231435513142097, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.10536051565782628`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, {{-9.210340371976182, FormBox["\"\"", TraditionalForm]}, {-6.907755278982137, FormBox["\"\"", TraditionalForm]}, {-4.605170185988091, FormBox["\"\"", TraditionalForm]}, {-2.3025850929940455`, FormBox["\"\"", TraditionalForm]}, {0, FormBox["\"\"", TraditionalForm]}, {2.302585092994046, FormBox["\"\"", TraditionalForm]}, {4.605170185988092, FormBox["\"\"", TraditionalForm]}, {-8.517193191416238, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-8.111728083308073, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-7.824046010856292, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-7.600902459542082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-7.418580902748127, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-7.264430222920869, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-7.1308988302963465`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-7.013115794639964, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.809142990314028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.521460917862246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.115995809754082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.961845129926823, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.8283137373023015`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.710530701645918, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.506557897319982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.659260036932778, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.5257286443082556`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.4079456086518722`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.203972804325936, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.916290731874155, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.5108256237659905, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.3566749439387323, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.2231435513142097, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.10536051565782628`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}, {{{0, FormBox["1", TraditionalForm]}, {2.302585092994046, FormBox["10", TraditionalForm]}, {4.605170185988092, FormBox["100", TraditionalForm]}, {6.907755278982137, FormBox["1000", TraditionalForm]}, {9.210340371976184, FormBox[ TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {7.600902459542082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.006367567650246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.294049640102028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.517193191416238, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.699514748210191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.85366542803745, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.987196820661973, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {9.104979856318357, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, {{0, FormBox["\"\"", TraditionalForm]}, {2.302585092994046, FormBox["\"\"", TraditionalForm]}, {4.605170185988092, FormBox["\"\"", TraditionalForm]}, {6.907755278982137, FormBox["\"\"", TraditionalForm]}, {9.210340371976184, FormBox["\"\"", TraditionalForm]}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {7.600902459542082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.006367567650246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.294049640102028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.517193191416238, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.699514748210191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.85366542803745, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.987196820661973, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {9.104979856318357, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}}, GridLines->{{ 0, 2.302585092994046, 4.605170185988092, 6.907755278982137, 9.210340371976184, 0.6931471805599453, 1.0986122886681098`, 1.3862943611198906`, 1.6094379124341003`, 1.791759469228055, 1.9459101490553132`, 2.0794415416798357`, 2.1972245773362196`, 2.995732273553991, 3.4011973816621555`, 3.6888794541139363`, 3.912023005428146, 4.0943445622221, 4.248495242049359, 4.382026634673881, 4.499809670330265, 5.298317366548036, 5.703782474656201, 5.991464547107982, 6.214608098422191, 6.396929655216146, 6.551080335043404, 6.684611727667927, 6.802394763324311, 7.600902459542082, 8.006367567650246, 8.294049640102028, 8.517193191416238, 8.699514748210191, 8.85366542803745, 8.987196820661973, 9.104979856318357}, {-9.210340371976182, -6.907755278982137, \ -4.605170185988091, -2.3025850929940455`, 0, 2.302585092994046, 4.605170185988092, -8.517193191416238, -8.111728083308073, \ -7.824046010856292, -7.600902459542082, -7.418580902748127, \ -7.264430222920869, -7.1308988302963465`, -7.013115794639964, \ -6.214608098422191, -5.809142990314028, -5.521460917862246, \ -5.298317366548036, -5.115995809754082, -4.961845129926823, \ -4.8283137373023015`, -4.710530701645918, -3.912023005428146, \ -3.506557897319982, -3.2188758248682006`, -2.995732273553991, \ -2.8134107167600364`, -2.659260036932778, -2.5257286443082556`, \ -2.4079456086518722`, -1.6094379124341003`, -1.203972804325936, \ -0.916290731874155, -0.6931471805599453, -0.5108256237659905, \ -0.3566749439387323, -0.2231435513142097, -0.10536051565782628`, 0.6931471805599453, 1.0986122886681098`, 1.3862943611198906`, 1.6094379124341003`, 1.791759469228055, 1.9459101490553132`, 2.0794415416798357`, 2.1972245773362196`, 2.995732273553991, 3.4011973816621555`, 3.6888794541139363`, 3.912023005428146, 4.0943445622221, 4.248495242049359, 4.382026634673881, 4.499809670330265}}, ImageSize->500, Method->{}, PlotRange->{{0., 9.210340371976184}, {-8.163821329297315, 4.244565848219407}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}, Ticks->{{{0, FormBox["1", TraditionalForm]}, {2.302585092994046, FormBox["10", TraditionalForm]}, {4.605170185988092, FormBox["100", TraditionalForm]}, {6.907755278982137, FormBox["1000", TraditionalForm]}, {9.210340371976184, FormBox[ TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {7.600902459542082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.006367567650246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.294049640102028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.517193191416238, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.699514748210191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.85366542803745, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.987196820661973, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {9.104979856318357, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, {{-9.210340371976182, FormBox[ TemplateBox[{"10", RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {-6.907755278982137, FormBox["0.001`", TraditionalForm]}, {-4.605170185988091, FormBox["0.01`", TraditionalForm]}, {-2.3025850929940455`, FormBox["0.1`", TraditionalForm]}, {0, FormBox["1", TraditionalForm]}, {2.302585092994046, FormBox["10", TraditionalForm]}, {4.605170185988092, FormBox["100", TraditionalForm]}, {-8.517193191416238, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-8.111728083308073, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-7.824046010856292, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-7.600902459542082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-7.418580902748127, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-7.264430222920869, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-7.1308988302963465`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-7.013115794639964, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.809142990314028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.521460917862246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.115995809754082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.961845129926823, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.8283137373023015`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.710530701645918, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.506557897319982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.659260036932778, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.5257286443082556`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.4079456086518722`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.203972804325936, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.916290731874155, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.5108256237659905, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.3566749439387323, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.2231435513142097, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.10536051565782628`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}]], "Output", CellChangeTimes->{3.6560247264500513`*^9, 3.656209400479652*^9, 3.6563791393350096`*^9, 3.6564878328370733`*^9, 3.6572142409597335`*^9}, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztfQt4VNW97zSZBPD9aJU+zq3nPnq895zvXu/j9PPzu221VFFEQEQILwPE hECAEBJDCDEkk2TyJiEEAvJSQF6iYKFBPVGsVJHKgRalWKFFVAq2UlqtbVHv t+7+/ff671l7z9qTGSaYzGTbJhn27Nmz9trrt/7v3/++qUW52bOnFs3ImnrT 0HlT5+bOyCq86a78ecah1K/4fF/5i/Ez/CYfXgufj38J4//iU/zCEeOPn16n +sTxVt9txv9ajwvft/mY6PTlGJ+6rfW472A3n7mJj3Xm4AO+4/IK1rGcTvrX q9FeR353TqdyHTpmniev8wfN6X7N6eYlBlnnhf4z38e75jB8vhQ6fpUvpzU0 LPV9878cX2dnjvlXyPfNa5sfT1MuHRpaCp2Ybrtj86PHfa23GaPEfwNowoWw vRU2qeaXm5Pqd500vzn58quMl376ilTrcjhpR2xzmeI4D6Mwj32NbiyHRh+6 hu0urJs2/x26U34uPJ/Oa6dpr62fUPldOZ3m2wPNj8jJsj9K+gjP6XFziJo7 V+c03TanIrQKdl/kPCrryK+ORD4i7T2GXqfYBiWnL/Radx/aK4Y+ki6XDi8x GkxO52XRzogQ/NGLnBH17m0zIh/hRcyIcsloZ0T5SBq/rS5rOpWuPsh1ZgaE zYx6zq44pkf+l8q/Q88p9FAiTY/fOT1pdCW/nGRrJFHOjPrIFHC7z0yqbWZ0 WPixfnZCd62OVbkzuxDi3cPaL5VvuFhkmZcOu3L0CAs93dA2qJuCgZp7t3Zw ZVHxZ1Wh8Gx3i+tqza5rX5/h/3YOt5u5+5p97iJeWg5FkUu6NeUUCLdZj1Qv nHBt5yy6LcJUzXndzuJAZQFqZRjrA3ahbp6a6tQVlMnUrj7nZQeFSVBTa+H/ nJPCUpg/j42j1ZpYnfQZ4Dp5dt3C+Iy1MhVJG0G3uCvKx7Knu33Ars3cHttl wzTiPvR6iG3YzucWmuRJruel2c7j55+imbaxF3WNdNs1lPd1X3HfpfiKmEYw ogcmytxNfHdqsDJVc4yFsbo140f+e3zsH0mJ/PaoHr9iN2/fH/sXDoptDq39 K2x7tB/LiOmz3cgu+0dG9uSlY/pm3fOMdkJiXKs6FUQnUCPOs06/UgV96H3d pSPOc6yXjumbI85zNxPizbM3z948e/P8Zc2zJwdjmxD73JvPw1RRpI6dZlMJ +fKZEd7rRsMZd/Ef7UbdGnHJrtzN2yMv/otT3eef177qs5mqOWY5tRQbVhnB +Ng/khL57VE9fsVu3r7f9QsHun3EZwsc2O2Ur5jzS/84Jx+dGYgRuudgO8+8 LN7Xn/dHeu03MXbbbewHVU85r9kC1fc15u738QcvfLsF3U7oqC9Vxq+ENYfO Y9/SHLtac+wyzbEBUX6HX3MsVXMsJcpjujFfE8eY07wxa4/9Qw+vjXjGbB5L sx2Ty549lbb3vnJxMKioqAi7VfXYZZpjAzTH0jXH/JpjqZpjKRGOdTfma+IY c5o35ogw6Km1Ec+YGQbqMQ8GCbekEnHMSQ4D9VIeDDwYJDIM8O8YYSCHcc2F v34i2uaNuunjc2d6/FYvFQy6g25fXFKJPuZkgUEK3hlAp6aKmrIC0V4wTNSV 5vno45vwKyUqs5q+HvDZ8fyq0pbXnm4b+MVnF3zf8CDkQSjJIaSFQ7p6qblH 9m7bu6ttzuBP/3zu6x4iPET0R0QMcF7q1rMn3zq2tXri3e/96nXfYA8WHiz6 Iyy0tw89ak/n8qLaAz9e4bvRg4YHDQ8achglh1/YuH9ncy50KWSKe9DwxpzU 0CDz+2o61bTQl80dKmoXzvbRx9fiV3QWunap2yTN9R6cPDglOZyigIa8hE3S XOtBw4OGBw1Zmcmm++2n3zmkfTweNLwx9zNoyFuAQgVfb8XBzrXaW/Wg4Y05 maBBxscNdGqqaJ6fKZbOGyEC5aU++ngHfl2MfXKleQwS5vD2+mkkaa7w4OTB KcnhFAU0rjKPwS6xJM3lHjQ8aHjQkI8CkOCAO9ssHjS8MSctNEjD+qZUwoIL 8ymNy/jro4+3XawSdp15jCUNPGLa2/bg5I05meAUBTS+ah5D3ATxE5j92uF6 0PDGnEzQIDHybSlpahfOpnBkTVmBjz6+OBpJY+Xaf/J30Taq6aaPz/yZk1wg aRBzIUmjG7oHJ2/MyQQnF0lTU1B9ePu0J+9+7/V3ZWpkmk3S8OV1YUkPDv1v zEkAB3OZw7flRlohfE5aa+VYVLx+aeFvq+zWCgUJTTIJsoFS1gXKKiGtRPOk et9gN/nX4JR/fFcuFCeudxUL94qdwVU+EhvjjY55QFOnUHJ44xv7d+ZuHfzp uU8dAlk0zZ/q7TbemOknCXabG/nD3XBA6boNMChjoKFyBSUN7jK5nRhSX7QP axbB/Gpri2kuniSWFI4WgUVlPrqrIH6lKluMdSvd0Ib5Xc+Libkstv1Fu5iw v+zdNWd7xcG1++Xw/Thv1MlfvoJgH9JLropjPXl7TfKMOZn2ml4GKLEHXc77 SmadWDqiCWqN70Z5rKq8hKL3jSVZPrqrAH6lJeZeI8+7/fSh949tnbj+1rNv nZFOO1slGsqUUa6MsmUyrXSRVG/j6X9j9jaeLxOt8hg0A1ggsES05Qjye1VN QfsEPMT2vzEnE2J72SyJArHyLmoPrHh1x/Olu+DN1zoI5HeAUQcxZHAhaFMy PMT2vzEnAWIHy0Xp4qFLj/x2VP49PXlytDiVWBt18pUTCCmQHqxbF+Y8+Z36 sG6aPaj2vzEnEVRdIgzpkd9Oify2TYeOEaJyzhAIh1ts7pFth7RzKz8L5Rc+ +Vs+ev+dSNfz8NmPxpwE+Iw29cr00BiS6sIXLa+1/XRzV8UeaJ9Xut/ZzefP ngJico/u26m9Mw8x/W/M/QgxEhoZJ7p+De/KLR+983ttMdVARtZnFzr2bW3a 3PU4UTrqRuwhpv+NuR8hRoYfbz5/6o9ATO7RnUciRQYyThzsslQy3dR5cOl/ Y+5HcDFvi1Syjn1NL617OfgCXuv8fCaK0mwqGY9EJ5M8lCT3mPsRSqR7fMrb nUfhioNwsS6rnncFoymkhiH/x0NH/xtzkqKDS0A++fSCyJzdPPDCZ19wuBeo ADpgrGhvQapmULlEe8FwCBKtauZBI7nHnKTQ4CWald+4d071rsHnzn8qoUHq FbxdULHwOlK9YfWjxUiQmPL2652e8dEPx5zU6KBs4VvfOn722MSirbcf+tVp WY0LMx3mOmlWutFdHRoJtKt1L28M4od6leg0MQ8lyT3mpEaJdSmoWZAlFWu3 H+TCdfiAARXkBWiHY06DrT4IwgRCBSqX7u49tCT3mJMFLSlqIrxhfohR2W2i rDzgu56O+anWb8noRrF4Qr2oLK/k/HhDpyJilfoF0330TQX4dTHEKnJ27379 F+9BhEGUSWD6Ef1HFgCyAfAZXU6d+XG/U4Tp5s7DZHKPOVkwGQVo5FfCIoI0 m7ut8whLM2S1wWkgamfXaLNQ5S2oEkx7Cx5cknvM/QgunNB54bMvWto2vLa5 YmkXFEHpZmP2FeRva5+avDMgBYiBu007ox5iknvM/Qgx8lhG12sn9ueW77zl nXc/YtcbzlPpEXTlydLqgiaGkA1CN3hN5+gioR5KkmfM/QglnFN56vR5oGRK 50/flkSR1leyOobiW58uL1MOA8F/YhcxLCsPIkk+5n4EEc6jNFSvdcEVL3c0 rdmH1+YTsrnUVCoMXXxfggJ5ZQh2khamc1R7QEmeMfcjoMhbyN3ZdRSy5KYz v/9Ye6tymoASoIWKTd3Lvv3IllFVsAjKnrf6kmDMyYIYeuerdGqqKFxQI4ZN bRd5RXXWsWB+tVg2dDGYoiyGqIaSbIgG0qHoa7LxS2WISrUGZpI14L8B9DvV x3wPOOO/R4laKajgTdhRuvh5eBe0Wp6cMiZ1oLo2nfAyH4tNLkLgQTOEwNPN vIfe5BlzEqDXjjAdb4OJsv+tuYQc7uBzn54Xw9ofuvnU+Q/49uHihlykJCBd jpuEAcrgLBIGdzk70HlbKO6BnETBN+Sk7ul4SEueMfdzpPFSLq5esD9358KM rhOv8u0jAnt42oLtSCaKdPs2GoVoK0nlrYL6BBQooEIJu1VvqSb+mJMOXiav lwUvZiHJ6YwAL3KVX/PJhb9sruhqbWl77XE5Axy2pSQkna9PjopZEKjkTne3 utmTsS7QgSFYBYYEvO+BK3nGnATgMi8/SEv+fVsOpJlFJ+L7n64As9lJc7cd +QlkGbRHORsA2J6i+k6YZ9o7N8FnFesxf0K0ZavmxPmhO4IkSCx+ZAJ0R903 ees2McecNFjDAEM+DxZe5ql8nHTIW3DQRsZdUDMf5pjIDxb7rpbHZj9SSy6Z gpIayyVTPyMo2oc3i5rCKssl01iSRUS6VeUlPhrpZPxSXTKXW3PAbEKktv4P V9RrHxpQv3fOrsqSjYd38AOCDxVyFj5V7cTL6kIubUc1It53ry40s+0V0erB JnnGnARQl65HQ6zG7sqUQ6tdcWDTjtLnG6G3ygJDit4hcseJU7oRXylPNUQp at5F69gGvHYvR7SEN4tPdr3oru6tz8QccxJgKtoAnhzaqFdO/vzwtO3Ft7zz 0Um+VU6jQqKIdpp4SuqnB61yePcpGeC8BXanUJNf3fW9pZiYY04C+AzgDyvE rSky4nZb63Hr9Gj1PXnspjMf/x7WXu7Ooy9wLSPgBc8l4GYNzUyBJ8WN9TzU 0+vcLroZM59KGnS+Y1urJ9793q9ety4dITO/36zQRBxzEqDKXHoDFbpy03ii 3gRsSOV0ki1HVVnX0hX9orxykchomS7Gtubg9VV8eFGlGDO9VWTMaMFrtfqr dUyjaMloUKu/AovKRNu8UejI5KOhZuCXWv2VZk1gKDYhbGMUaoxCB36rN+rf PxH1NdPVJzKl8+29AL8aIISRJ4ZPa6fEGXMFhslJLoqmPqsREjp1Txd9WJFc QDJW98T7G4oSccxJgPyokBV6L5JYXVw7YXPX7oqBX3x+ge8YWiuQBS3WmpnC BTUQq6NeeeNkpJQ01FFDe6U6at3MRKqPqSkrsOSrt1ITc8xJgC5zOapxCZ3M MlFH0LI1Rq2vniHaG4aJ6kCx5TwtCzwqRi/JEpOaZ1rO07LygBids0RMmtUs naeuhdZhonaMU9TykJ1s7DxkuhUZSnHfDayZuvn8uVP7dz6Zm3HiWBcn2sCp CucqnKzSaWrvlrrx2cPM0KNznsoHyfXcyIKLsYDOlq8DUYyMOBLF8qHq1koy Yy0Rx5wE+4O7M8gGCCitEK0tr+1tkxi6/dDpo/AL3frW2XckrsL0U6TcWKk3 7kluaUi5QSc/aorOo3YvGgpLduMIxu2n3znkgScxxpzU4NHe/twjB7dBEg3+ 9C/n+LYggaCfItivvVUrHGim2EAyRZgSP6L9ezqLdqL2G+9HW3nHX2NIIDhe RfP8TO2MJvOKTMQxJwGK5OVN14/87zLpUA0ZgML33/CbFMUrpS5ZU1VA6mmw Kt/i/JmwOJfUU0NNtdRTQy0l9RQ8QBzbb5oqm+SWBkINuednUmw/UF7qo2GP cOqmobG2WvHIQXzzhmLK4/3nCDtDdXG5c2qxI+zdtXUOdgiWk7BYsTNQ3CXC o4IVCxlLREO68/jRB/OrrcLd2JgdyNkM2coyNtrVmSwoS8QxJ9XOEAXaCKbp EsmBskUGuh8RDdmlUisl75BYUjdaBCrLLGO2uHqBGN6eKabXz7V2i5KFVWLE w0tFdkGDtVsYuwTtFs2ZddZuYewStFtAVNKtDHfuFjfRH+QcaPuKyduV74Uf M6NKaY63BN26X26QamfBFM1McuJuZXlFx76mp9a9HNw88IsLn1vtxo6/Ao3k lo8+fIcLLAde+OKzdcGXl3c07VuF1+7MY7Y0Crx2T+m1GRMo9YSOAl0ltgKw MAOj4mDnWtJXsGXrrpUsaE7EMSfBDnQ1f1gpP7lKotqlsacrqm2NP1Ntp3Nq fnTNeq27mPJ254H9O3Nbb/r4zDlGjc7dhZgyVAnEmLWzIzdVxJmhSlBah+68 y/QohNkO850qZ3Sfi7bQTM4NmfHtBcPwN+oVmIgIScQxJwGq06wPh0JOVlqH gvQrbccupmV3anQ9uVPU7OSawkdF+7AiUZe3UMpNQ3xXlIvWujGipTYDr/nU wpoSSmSeXVtkqS/FpdUIG4sZhfU29QWJzI1ZtWHqS9P8qT6asbud6kukaVJv wZomc0ujqUuxfdZ03vujPC/a3dDqNPHJBXH/qLbB50JeeEO1+OuO50vXGqrG czzm3KO/2Akj66aP/3xGrs40JIXuKeoMVqw1DC9eOVfye59egGbDFC/0ni4a II0ktVIX78dWoWRpSLUHfrxiT+fyImSR4pjuI4m4byTimJNgr0u1voQBRn8H sv2gcER8aThOw0D9ch+aV1Aj7hm6TMzND8o7TjXMrAVkvhlmnGXS6Zw9mc15 YsTSqTZnj2G2kflmmHHW/leXV2Nsqc02bo3ahbPFsrlDEaj30Sz+EL/SlP3v 2720r9mKLT+5sDd/zq6SJzcelh+//fSh44ayVWsoW++yYoXwDLa2ioOvrvUp 8RkxdNlkis8opdCocgE5dSTSASKoNuxdKtSMrforTDmESxl5Rghyahd2Im4M iTjmJNjMBsov7rSVfZnouq5X0WpzcNSuXHFgx8LS54FeK7By7uO9u+YsMxD1 Ks8m0Lqn8+kioNea9dJAGTITKB7ET6esPICqz9oVWw5Eiv0gzUKt+ox/UdFd qQoJP6T/kIDr38NsL2YghcI7KrbUsq5r+EsutbGlxW+Y2Bq175WT+2fk7rzl +DsfyeujFuxzeFENgK1XvKh3v/fb1w9vXz+NvKiDQrME7ylYEsCWQNVnV9pn UM0yitCiyDqfe3y7tkC6CHDjFXIUkauILAoP3B64YwC35SKAMJXOTAaoCu5r JdRcfKbpkd9O4dtT5X63kNY+gJtPnToPWGe82GX1RjJwdQhuVANXH4Y04D+f gRsVTgM5ATYRD4IhztjXJBBy4hMUbvd2SraPcHNMFG3HXzFq28+gghMXc/P8 TJLiupXX19HiIbxXEC6tRBKjHG+9zkKZNq6ZHvltmwIeI4qlN2PghQtfbK6s 6OpobtqH16GE/Q8A5FEnXznCVjSKATr2/VvTupefC+K1i7gHjpHNSMRhLtmM kNOoeqXuNO7VNmFTjLJxXwqKyH2p9JqnPf56Oz8gfXLTogdRaw7ysW8mIEo8 ZPduIatCo8KFrGrcMtpCVnkLuc/uPAqXlc4dX3tgxW7+3ilvv9UJCUvuePdU Q8pHgAbN+Qi6jEY5K2CrBWst0SO55y1otxSIXVau8X782CTpDnGLanZgFL3c QH779QRc7x5GewWjMtxk06VjLCy/9ehbZ49Nnrj19sOHTvPQSg5v7II3Crjk 82C9wopFTlAk6xLJBFbtTIQYF+clUqsd3ZRE8CtzB1MwMPWAlAyrF+BecXBr wfq9MQFXt4fIXtWHSbnNMaXkLVEiUt6CGtThoblFdXY8v7O09sArK7S3IG8f EZ5jE7cWIOITaZpQSQ79lejDoi1XsygBP/k7Kue5P31PrwwphQFGgJL7238t ARe5B8zed0VJ9TVFPSb9wu7sm/ZhSD1TjeWEqmTCgjlpJYcPbEQIloI5juHC +QuRSVkm7qI6jfNp0VjIyjhxr+ChCDFCtNxT2H02L25VmFOaBp0Vuit0WOiy 5EK6LgFXuYfMXowApcvoTJg/6H9FCUh5h9EHZvy3n37v0LGtayfeevZ3FNiQ VwAMkfRFMRndvct7Qfs7aLBIqYsAw7DWeMQX4S7kLm4dyG0GPh74eoBFBGap ZFy3hvv6uvaw2KdLVqWaG224hAvYRGNNFn/27tffO2wViEfIOke2OTJWieXM vQGezYiDOopcS+Rc8m3HU64qo7aQbMhTYm8NtXPQ9YPt6yvVQ1efRpfkaY4x jKHyG8lJQEUHNEtiDdRNKnfNKysPIJcZHlJoltF2zbMq17cdIn8MqmXjwZm5 NVAfZZh3wBmYcqnQQ5da3dfXrIezXs0DDLEZhViNorXv5LYeKVxhSJedqq2F miq4SFFjJQsIEJFAZAIRCrymr7jCfleIF1p5PrrZiuDhhE6JtoDEjBJtgaPu mGS+Bsc7CiaRDoDXuofc1xewB7peAZ1Vea1QiJHtRjVDX6eP69P5G7NkOn9p KJ2/OlAs2uuHi7rqPCudf0b9PCpnKq5eYKXzF5TUiKFTlqE/Q6icqaxStI0y q7FvomNpSOMXSwpHi+X5d1LbzMpFYFkw3vuv+KWWNQ1w3IeMePqcBL7R8szL pefm1TUswiby6jrqfPDDHl6FVgmJCChJj5SIgPgmEoKp35LuCUdRQc39dom7 jJ9+tBuM7AkP9Rh9eCHGUYlNjiHdyuzr6PR2lD6xowB90XqDpP8xknvW0Fpf jjSdOj4mlBJxd7NIDf8APch0SjVw3moE2OEHDCzMxBIT7L5qfjd8PoDbmQ0L RwJ+ZKXqHktfX8Ie7HoRdn6fmbNrQS9axfl685jGD5sG3yuUZvbDmrLZPB9O WCjP+KtmyeOV2uosAor8SKs9NrFoK9WxVUQqsdWUoZ37FPIOxE9RA+4G81ow V3OP7tsJOYeeugiIWBOtC4T0pQXrgaxPu4LMPd3V0QrtkRjDFEcrZBYxhWny 0uFshdMVuQARZoJTWUVWfmPMfWqbJ9UzfU/UT9TMefOj5zti+8TZU1ea54HH A08c4DHTQyw/asvSttcUPyoCFKJ9eBH5UeWdwdKCxUVhepdccFvrvUhdFSbk LbbSTWPrpU6YtdHmyFnRfcTM6fYTK45h4qJUC87Tvr4OPez0IuEDp3WbaaPp mmPRppHK3Mi5T2074vSTgp/B8pPK22dKOfhII7UVsbXli8Axh2NIJYW0Qipp bDNqyUZW/xDJcMPZt0Ifufn82VMIAMLEQkAQno0r+/ja9fDWB/Bm/jfAcirG 3rZyMP0ehLTtw1nTtlPaNg9DoDXetpfh3ICTQ+V8g2lFnG8RUrdtrfzcU7JD rRNOnT4P3CERJsaCY5tQRcIoIvXoB0Fao+67zeVri/LD0YEkFy5wwr91rCV9 aUV7KOwDKIxf6kl7BdIOUg/SD+/L2bP59ZUIPaLzKDbEa/eESnuvP/dkL78N Qxc++yIFiaEm7ao6L7EWSNTl1cD9iCKLqJewdPBwORPkIpczaVPj+tLy9iDZ e0YcBd7+C52aKiZOWCweGL1ElJUFfCnyWKDUZGpuzFpgMTU31GSLpfUjRKCy VLIihvX54/Dg9Hn1xHaIFE0OD1aVmGyHDdm1vpvlx+sXTAejKLUeCi7Mp8Hf QIh2JTw0/0uLQ5TzwpuVVwffDnw8asYqe0qRbiA3EThHkbGKzFVcytEfkCKj 7gWQfijIENhQmGPfGSxlGfKaiYQQbNURgsgtCgUbcOZwwYZunfUlXHl7Qa+S AFEKuCzO+NeYUGQ2vDUQBKUYXtII2ahMhyeag5mcjQqdF3F1agQYIcQAZw6c OnDuQNBGMGE1Dy6s0hCcPcjfQbgdNqhu/clgiLPMAlGHCDl9fWNtenjqVTyZ tU5mzkpseApt9u7OU+AK+LLu2sCT5TxVAubw48CfE7GtSFZ+o5UEF/8TTUMq KkB1ZsPIVZBT1NbkG5rzTfync+EENFcEz4mW0jhPl3XqgalfgUnHc/3dmMAU FkLQeUuh5kHdc2aVwmPK9HGOuLitT6V75ihdBjFxxMYRI4+/ENAmyCDE4DxF sAL1hvDh6ErmmTjbMBIBMQgy0Vo0lvJTdH4bD2cezmLCmXaabJ5SOVx4SSG9 yEvqtw+3O2o3tbGlbkYcVX9QGCHYKBmzp6v+pLADKQ0MspObHlyLv8QAqauN N1cE1VfA5OX6CjA7au1GD4H9CoGq2sg8i6Q2khfkX+jjqaK0NCBGjlgqHs5q lF+bKmoKzKYUxl9bUwo0pHA0pSgNlFFPrazGOb5r5LHM2c1iVHYbdeAzO0Gn URZ3Q3YtrCNy14Drhd01daV54AynH7zG4UH4Fd4o2p7I7e8Bd43mIUE51qWZ Yo/pLs0U+0xEoiv5MJFyakVEnQ9Tc12QuEPgI0U+rqIsGfVBGgI0aWjUaB9K meHupcWDnIsPmww2G2w6cAWR/RotC5e36STtphNtMo/u8XCfOplrSh5U6etU vaf4jLyzKGms/Gp7TbyvA5qcBJisaClBvI/x1GBJ7R7AKjm88Q02Xam2K9oq Y/kQoFOzs8gqvXAHtwe2fgK2SKSOanFTtHFQ3WOU36E6Y53cAGrKKhc5UXMS 3a2m8fXOf0BBDjTjjOChFeWLKlHHjHpmKN+x6dL2Y7JSEwYuUlqhX7OBq7VY dSvYHH66WpXBbKyktngA7E8AtEU6nO0JWFE1VG/ijCNt9n9Knbe8vFI8OKaV oqTGaw6QGkhCEquhHi+0AqTNwUwZIC2zBUgRHEWQVAmQzig0A6SFC2p835Ka NwKkLRkNomNIi2gd22B8RZXvO/K9ykXlorEki+ooW4vGiJqyQp9wat5pjhvC zqLryxDPLiOfsVveoeVJk4FIJ9ePLHLBS7X9pfuKsPnw1Mwnc36jXMEmwlAI 8wUYZeExA3ECXmtXqDsiEbOewbnyCLNG4Nz1NpLk20h03jK/5lg8GDNFXMRc Q8uL5mT6aajJdpZxQZeG5wzMPxF077AgKeKsSG0SGTNa8DraJ29WopHhCnZ1 NlxBhaf9evdVazkAkWQPAkpOstddxgNd/wSd0hk2HtBJ8h+X1EKkFCK1ECmG NvKfltoMJv/RdA9RG5nq5iPSvGUXNEDWgR426mdtOp8tUxaKM/i4yJR1l4u6 dXC58xmpufcW3SQ/u9iaEXrYSyDs6XIaUjXHCHt0he9KHTfavML66hnEOVId KI7YQtTQldElU+QV1fn+UerFaCEKzpHldy5GG2V4r2VeYxq1Ul78yATSmfHX +Lfvr06dOWQEhCxzXRfWeLzV/MTVhEM5hdCVUatDlO+OiBh8ZvBQk8/M3UPt R2QMRNOIjOF99/RCa2/idCoY7DimW0Nm1kYaxDZVCRhmCcQ5lcVFiztJVcv5 yaIjfwj2EOwlnrxO3j0jHt+yeatueYUoGrXyCh2Lmha2Qt0ToTSGa0kpGuaO l/AEkm2dR2C3U7qUe7lMOnp+cusSNjRhfMZWrEbzDnUXaq9FyBerHuHhJmFw o8t092uEEclakmK30SUje6mG2b1UjTVZ2jT+CYtzxZjWhyFyVZYvSNz8+UHf f5ZStaagmrxT8FI1T6qH10pKXDM+vHTeCErpr18w409OYct9U9Tmn/Ho7Fe7 oDTcOUUcKOyccnCgpMFJZXGg2B+TSTCodBWMLYeL9iZsFlYqiry8LnffKub5 5O+svMP7Tcp7PMU88rpIZAZNCuV/NZRkUyA4tjxqb+PooxvHFdaHe8YDpbv9 bvK6UP1qUgmaN6xSouA6A+13ZuvsF1t+lk3gA1Qg3UMOiw5UEuIAEYeSAC7K oohAZ9/tQ5a6OoWTWh7JUPOXIzxYD1TJACo6+3tSRkZKywrml1lid3HtBNFa NyYsOASRawsO+UGqKe7MXA6/K0Qwx4AQH4LEha0LCWxIYksqBxaVoeck2brG chRV5SW+D93Er9l3xVQnzIpa6KXarqByTuR76jHjGpZqovQGTtHMZzy7ToRM L+w2FqEgr5n66hkWz0UE6mxul4a0uBiztNKx1aBZE7xzyPSCUQAZr2sgaMrt gRx4gi3A3YTVnqOxlTvYPPUqCxpsBFCuxpN25m02vbrZqC41c0Fd7tZ/W4tN ds2pKnaa5mvjwaT52UG29C++ReOPzaclG5XhPZUPI4LeSW6socsmU9+02PK6 bMBAsBj+rTMjZ26ArwuNLHTlETLZBHX3HK5CMjcZNvGUIUnvHOi8kTCLeDFe e4pAwmEz2gL0G/k8XZKJcoyzwcIwSsL6h1JhKC6uFvcOaxczZ9RbikVd3kLK OqE8LqktIN8bigUUDCXf2zDjyYOe2Zznu15qCXlFdWLM9FYx5KEOUi5Qnm95 y2XeN7QLeNSR983aBUrzmcUbJftg8X7PqV38E9+pol04vesgJ3e9+x7coaTx zkWUcIs4iigRzKMiSjdPn2G2IKBOLMS6de0k7la7V/Gainb34lw1Q4mAYgGl Ah2u8Bqe+mtdYW8R1iFhVbVtdMiJDU22vVTNaxVN86fCoR/tpuBtWr2bctrJ W5bSR1xRJgbHC9s0ddMyrCCyhgyrSMb8jA2qvEK0jikWLRnz8ZpbDdRUFYhl DUNFsCrfCvvNri2iVgMFNfN9X5ObD8J+2KywaWHzQssB3rTYJKKUuTGNZBL9 J97QyktFc/EkxJwo/AeT6DjeS9MUqxw3EwCVu8fjsalWcU9UD+5vnItmHFP9 MVLlQANMJiOjGzYPM/8CemLisAvPJjcvEtkN+VHvYDJfB2lC0LPgkTn5YP6m 2hVbDiCBIdomQnKtI/EXphJXtpKpdGnS6Gk1woZS28EjvdKditDbynpV/3LP uet7CLVuVU0rsgyds2+BaLbWdBOZx9BUWiypG01cDu5mvJ+aGmW0TOcGR9Gu BjMAmQ5Mlmx89jAwygm1wK4uzBAhuZ4LYNlmwr9xXvzJ9dre8Igrcdqtp2n0 UXiaEIsIz4s1j3ocnmGyT+dmpEq2pSMeMVTrLmvK66rzmByiO+GCCAciHYh4 8HS6p8GmgTACWbfn73l4Hf7i31HnqMu8AYQQITchP2HMQZ5qa3fiX+F0i5ye y3RjOKYLxnhg/HJryR0+QfXY1yWEXHyL6Tx+xXq4tFjUPh2bi1GKPpxXe2DF bnYxKh5G5pCY8vZbne5zasUPubQNCHVDpdkKgRRbCEkISwhNCE+Y67Hls6eJ 2tk1XMzN3GPaVRL/arftbUxiBg8Omj1oV7qHzkuOzpstsGijbQP52mYU4EtD m3k3g2ylo3w3xh9OukMHXKd3CInv615+Lsj8uvy5NDvU8APXGPRVZBrp5lkm r0M3hd0Ivz3sSGpAHVvyurX2ga8wOrIIxa49vH79cDog5wZ9PUHE8E0Pdr2v ocZPcRTt7cvSaJXLj7LzzFNtXH4uZo/KUhKClf6hZTXOsbp16R6kqX+ngaAE RdpQMDua1uyjGtRoO/5IpU9HPYbzLk0diLWLAEKAEiAFl7Qu4u7B6ctjdSej zfyPeyvA+OPTe6Jmorspkdejcq2RI5YqKZ/pnPLZsa/pKbzmW5Ozw5QkorZq dgRXCy0+tX8XX0ameiNAg0ANEmURuMFraIax7RFpqisFVeDEJRZb96Jo16OG DfdgF1LM0dQBkR1dlNyDVVJUOcY6JfMKahzJni7RBeITEW31o4hPxD1sEGr9 o7TzwrH/EHobmRuQTNAAIanAmx5t5YQ0XBExQDibK/3JAxJbr5SLW4fsn/3i swvoUARYITvrBg9SfQ5SlzBX2n1KyE+hRgN0wQCFPxZwQtAO8IphSwfvM9I/ 0KIA8QFz4GHkcLCtkBsFpMHmAvK0g3e/IeuaWqI6fkaxNkPp7pjUrJFujV7L cDwiKvBVD2Z9Dma9IrlsjgfVq+9w6lccXPucHL7lNNCWA7lLtDSRHyxeF3x5 +fl71k2Ff4N6Geg4z6X7Edoh/IfQFjn4Bi1S9zCjwB3/OPnr4GvscdzJnQn+ RDj88YNiXp356OHukuNOpoHI7BXLjXjLlwazsACam8MeOGOHvSbjDu4NSDm4 O7qBW8jzaIg1eO5Bznpm5IacjqZ9q0B1o7NepFbIsTWIO/yFK0T73GKsAqJ2 Im2jmmxEdT1dBSRzGiHmoFWCzA7GmjsVrAe9Sy7yMMAQ1xqOEBQ5nhbKQ/ky bbbw2R9k62POdydMzz4yYcmz76JKwqsP7z6SjPE6Rt8d7DxU28B9ApYKJMoi xUynqknadw62cRYZavwQFXBPPIt2idDNgdGCXS3I+CdXi5yUeCpn5G7MiWQw /2AGRksh6wH0EgE0pJOaYOXXQn2vtwAqnSpQTa0QQQXTToF85RxCBFPe7jxg 3TRPplrqFu2D5cStU+c/ABBPPrgpj1teIjynyzTnTj0GAAFEABLAJA7G8kWV sZXI2LRWJx2jqJ8epFTPeNicL5cTaohG+DMhKlF2o/MfeSjsJRSGGr/S6SEL MVReO5aubCaU3ze8PTyhfOz8sITyQCHxSNVV5/mupWPpSCSn6to7OsaL0Uuy xIz6eai0/bYJJKq0HZsbKogBZ/9/lO8x0QUKYpjo4ltyBFXlJVQQA7KLmrLC nxFkw5hYB/ls2oFiCONdaAo4/uVp6zqd2HLxIo+cnzxcvLCOsf3IFRKijpIM O5SpWqFPmjExmAZDGAYxtHMYyBQ9cU8FDyus5SSb+ItZyNjQseJ1Y2zoZtuP bDc4nBCFhAMq2qRZb2vp0a3FTuls/ufnApceZm67eHxZ/l6o34q/FxwBFqGk Sw0aFWosrR9BNWi6mZPZ3JDccPQinAKJjpYlkPDuCzOsUJYTbrhQVvc8Y3vu Yf4pw9Y4AQoObKhzj2w7REZytOvVVEz8iFRybwXo1rFxN3vQ6yHoxc/vFg+k bNSkUJihOFPGthw6nEyIUJJzN9JjCVblW45e9wyzdJirc7cd+QnMV/zgNcxa 3S1HqGpCGBPhTOAM4U0KtlyqqiZDWwFrI9u4CM64SWvTeUshS+4PiCTuaO/O w9Yl0Ji7LzbvXbEWnkPyYtcJdvySNmzOler3Da0/kxZNUpaj0ponxkwBJfMU QgyKI4QahBuEnG6aI/X+0NRTQ8fswfIkldgF7dKY2EW3OE2PF8UskYsNFRKq ZGwp5B7OLoX6eFG9z3veFNNMO3tuTRoI8xh7bUVN4aNO8wweWpCfgpQcXFNm 0ucAmF4wwYAoK0bJs6SL3km6tlveefcjShI1LGTILoqYXJpVlw6L29kwgDYK 82KIOaL6DyRHSP6MLSXcw00P4+bie5xfWtzIW4U+CEZU6Id8DO4M0KeQN9Ul 4RrkRKAlQMQDGaLm4kt3BhvhVEJSqM5hyr0ryhdVci0859fAiXppeldYxqNK HyqWjG4Er5Gs9kqDI1SNHbqi38PMJdTpvrz6g2gxI7OpcAwuCsgbuCx4X64s rzD25c36POp0EAkjbg9L6uSmVQ/CMYiYhEQODCVQSSDMAOcEx/90YTFN6wlO lnFWqlvTfmlKDvzoLACmPjgKASEphFSmCDTk8sDjgYd+X8HHmI+F/Ol8ewKV PDtfRSiPhJCFHttsIAsGPj9fClqm+VLxmtoT433TNLLkFSDEETyE1hHBA9R0 7RHdS/7Cqs0pAnKJq3jgCNRAiwTS4kcmcMTO0+W+3GLxsMbj0+jjJsMtQnA2 httCk+G2djaz2aajf4toDk4SyxvvFO0Nw4ho3pANg+XbhTUlFIob0jFBDcX9 g3zb0JbE9HlmV0SQ306d0yRKywJmpI62Y+MLm4nlqaokMFgern60WA3E7cbh L7sZ+aXZULQLkNIDDK02jJ+ibZSZyqpbHOZ3pEObhWV4ZkPHSM61QzDP3YES FsCjDnKxsWZTGEBX0msT4j2dpiqzKpCXBz0YViWsSXMPtcVZOJiHLHIi79bF J71tp0e3nd4NH0R/qzNn1DtyWUmGAWh7OotWEr+tvF2ZJIPUcViO59ctvQdB chBRwCOjyz6RieocvAN5JHDGwTvdfMeQDc5VvhxsoCrfnoaZpN6A01OF2fWu H/ejFgoCngN4sdWaeGi7hESQvZUBFxsqyTh0S2e9+73Xj3E6Kx0zjcw0dFAD SQVgCcconDzaRuKSPgKKtBrwQ40iFG46N9qEt1TGt74+uKfTwwfYsYgEVyS8 6BxUnHNoKNwc8ENgPZ4eMx4WY1K4o6AbTQw4Kh0FdQmsfk5gFU1TF6Bg2BxZ OmQiQAgwApQA593v/fZ1HUeZTHKBTERVIwxermyE7LyIBHBdfTE/vXgSwGVz c1SAAIKIvwOC7m0tKBao8sPEVgLmQTApSoLjwZ+29xmsdScRhmieVHJmw8hy 5MXAFaWAEUYgFNU9nU8XwTiEAouUGN3DkSSFXPLI4UTq4qQDb5SZ4PhRa5HF pFnNlB4TTya45FxDOB75Ziokfe4KuZ9JZjjOGE99mIfJi8CkO4NoqO/hTLok JS9TkwTjrxm/MCRSML+MUsM7hsyjXsP100tFoEx2V6JwhWioyaZUcbiq0Deh OlB8o3wbPZngmkJfJmSNw2VVUDOf3VSlZQFyTQ2dsoxcVdkFDUgp+Qa9nYa+ n9SHmJPG0Y/YvLLZHXHZ3KFESh5YVLaVxKTGV9UddWNi7Ey6hSvbIYaSYXlx yFASkmERaTq/7p5SZA0hUAsrW25U8IUjWwjecfyAG0FUBUp0QRj5hdAQ4Brn 6BM0CGgS8afdWTsvXOisTZALHQT10e5bV4X2KA7agq+OcmPd9fEwepH4K+O8 PaqbPSpRnFYuqONjnC+LruzSA4V0ogioQyyXkGZslojxAoHI3XNXaylhFjYz bGcOTqHTWmyJd1c4HxHXhYpR2W1qXah9F9EqLAAUgGUDmG66ZTcoJhYBwFBx TefE0w3KQ1QYoiI5pjizCD+JK++0WbLinqHLOpqb9oFTa2BkBJrSgSSNW/RG uyjlZcGGAFYEhNyQuMRkQLobi+3505CcFaEI31FURzch14XjEAKPyj11323e uh/kIiAZEW3zRuG1zmnnQfCiISiTuRWqfdMHZbI4Sn9UTieVKNIF5rAaXBoQ OdkN1OvnziEdYnxGi5iVVzdQvo0+ZajQ7LhjnlgyuphU8MryClbBg1X5oqU2 Q3Q03oFmF6K+Zjpal90olei8ukIxtjWH1G/8nV1b5PsH+Z6uYnOwfA8tzLhB KpRwQxn33SCV79qFs0n5RiegQHnpeqfy7V4u7gtxWjoKVRNyT9Ids9ni0M9z n915FIxJ5++9Z9262uDLoHXxaTYr0GuCvhYeBp35L5NctP53d1+XLQEMG5Ya H2OaF2t5x5+tQrsZ++m5+BRWHo7Jrn4D4DaA+wA7F9wJavtWZonnayNDDJoD U0DEX8Dq7VrKrhUVVnuf2uHSYFX32XR436fs6XzbiVnJ0gR4AqaAqxO22gco U0bc3PS6u3BPMgujgBFTm2bBRIh/gsKciHAawnnIxjg5EU0Ep6kIho9eQa7N jeqkjtA+SA++cSodg5SsM52YTSQv/MU9Stl/z4ldWOewE8Aaz+dEBLB7KGqg zrWPHBV+TDrjQWIfXjIxqXkmvGaowWOKGN0d91ByKNv3EL8wKBCXM7HrB3ap K7Oh2yHErQtrWyHHc2fgu0etEHz5usF56I0bvc4WJozeME81XaXUVNXgdUJa FXIYxZA7Ougv/l1uqOrp0joAvUv9jIXUMxQGBP4a/3b675fWj7D89zWBQjYe 8oPFFuMLfPgz6udJ2hbTeBids4TyS6Xj3jIQ0EqU6V7qpwf5MFoftxcMF61F Y2A3PIbDqYrdkLhuwe6PXSE3H2MjwoaEjcllg0pXNyg8NBgIMBQUzz3ygeE/ ZM89/IrRhgwlHRbCjAg3gmkVliERyugwEL9KRW1o4NaHdwN/ydH41dBmhVdI dkPSGzQKZLXrooqSelJlrrBKr+IvRO6321Ay4+7qcNz97c4hq6EgQFGg5G+J OwQ24S2E1xCKAePOXImW/5F9+MAe+/CByWhpXmR8DvJfTK+fy0QzkaJp8eeV prFJDggiM4CKj6+z3xn/AIooKEFhCaDo7ii0iC6g34uGkmwPhfGhkN6pltJ5 Vl6dGDfWFO4PjF4icqfXQ+izbDeWKzkD4RQk2T52PpyFLNtB4QZ5DrkO+Q45 b8j7G+TbJVULYTuKocsmU5vwrMY5CCtx8D2vqA6hIYrNo5SkfFGl7CLuFzWF VaiGpRqSurwaPowm4S2PZKCzLET9chxW3YKchXC8tdWqFRnEM2aoOqz1/HMS b0dm74oB8CfArwAVgLci+ArNyZcbxIVP/qrbjtyXq5UyD/OEU+ZBXBAtKqX9 AJcgUucR64CrkGMd0d5khAQi+BCYNZqLuLUJRDKpDzVtvBWh4Zy7o5PwpvIa IMRxifpB9ov9yIOr1dmV4Xrm/pEbEKaBSx9wTQ9HKvICUdyN9BvdaCzHv+nF Fx2NQ9iLDw9hbOFEcrWhkMzZMsHckaO8SRmmh4bA1eHI5KVmyRFEP6CJvnX4 ATTdc/tsHkEnb4L2+XgQjRGiIefBZTLqrzaP+2/4TVdoltJ/bn6Q4oyINyLu iPhjaWlItShdJBqySynlD6l/SAEM5pddJd+urCgHYzJYzLGAjb9jwRTLqgWn /aEyFRWqcCEU1pR8XaoWMwrNytRhU9st1eKrUocI5lcbX9pEP8ZrU7VIBTsA 2u3ir2+JU6/4P8qmFKkoJ0UzkcmyUWl6EiEnArkR2LQ4R/CmM2c+ZnMHWcvc fwy7Fh4ydi0T8ra4Ibs+oVPoXJ8xxg3ToWg6eeyhkOo+YnoniTwJigPnKqHs RzuzVvXgofd5dwJhHw9V56WV6MNuhF0JrgXsUhdxZ/12J/quuhOp3ZYJqO1y Y0CG8cQJi8XQO5dTpjEIqUtKqqLcdVyclbzrFFcvEJnNeeLO5RPF8PZM8KSI ssCj7MtEsnHm7GZKdkDSA2o41V2nfXgzGTWGccOHHczUzc6N5yrHxoNEq//i NhFJvfHovjf9luPvfIQUyZPjHtwEFg/egMwhWF4HdR86uenBqpbX2nai6DBC LNXNBRp/PIVUFZBRITUCGhVyvSDMYP/I4KcfcRVwICK9AZUWEfit4T6Bncz8 HJGa2Rk2s1o9rxu4t/OE7TyXW18c4vhkMH7HAyNHL1UwHps8cWvFurUHqRhf TrGfkXXm3Nwj215G5a8KRvccf0vncPOLmttzTHcazncNm2ZM68NAJGwdolyU qQiwU7g6H/YLRaKuCy0mlSKH2tO4B0qsYATqAFRubN3te1h0waK9zuhmNwym 4QqPsfAurhZTMpuRz0s/eG0cY82gqqRcNGYtIJqc5XcWisUTSkCbw5qBi6vz a4o9Mr1+LtkjnAeZHyy+QdEMJs0KaQbFpdW+66UKAKqcZUMXUzSzqiTAhysX lYvm+Zlkk9QvmFGDw2mKZuCqDvWjjYdLHkBibDxObDq88WAzskS5ueHg0aob jrsjZCBSXp1eTkrflis0trLjy5yLXO0AwEmS0Ai+JjFhmKvOxAqfjoBPplA4 CT2iTaGQH1ermqEh9DTtSBLsOh7YwlpRAHQAGtRuSHxIfoBO6c7qlPRg4jHE 44cR/HE2sezMQ4ZDCB7MuMqMpRbCSY5caYhgBIISmngl4piIZ8IvMHdb5xF4 MXVOS384GpEHFW3tovw4cqBgDnI9s6cDeGh0RaPus+kwgGEIO5GpKS/ED1AK ZKagn7kvlUFKp7kT5aQR83Jr3RhONAZYo74jd0xY3TtUxx2SFnQPSeYZIcLX 0rbhNVvujy4gKZN7GKFML0DnuAcwpYpvxhSQaUwxhZ5OokgCXP4f/mLFS+7h 0/lItPhEtIQzeQ3wAYSAo2EYFDIgu4nRQTCyAx2YpB6whhobtbCUPOjca1Lt ngNM6rzasl5ITfyBvuradcA8ZqP4MOyseqL40JnMCgkQXqll9KjZ4TUZDwlQ EsDOzlLlHpxiM1mYvQA8WMpjA+2wRLASAS0u+uXUvericoYlfhiW7jpmWEE8 LEhqmb60fgQsSxQIo1CYH7JuAhQ6LaioTv5ondSSKAMKgUZmsaNaX91XDAqh EnWYLBmp5j6Sjey4O5iRiG1Rnl7twtn9HJV+60uk09hEnI0hRvqverulaF8A oZLGwRWte/Pn7FKBqHsSLCx9UnslP09VSbnrU1cK4sGKAQ8yd0IQzcFM6s6s u1/ZW45r9LnVFZfZ6KZS4kqlr7Py0SIIYFOYhyQk819E24hE0kUiNw1l+CjH R85aP9dNOY9F5U5nHivVjkzmCrbYsHi5c4qduOSqVTqPO5UbeIR/FS50uH2A RxiY7k9SY4/++QygKLsq2GI8suEcCknU6GmkhnMyWcOZenb7oV+dxnmmWmsT ZjryGfe0d1eFHDw0NqpyXqXRKuRJgLpU68OhmlF7I+DkrxuNDXW6saQDeVxz ilR9Rp6iiSGgAeDBz6oCL7J9ZKs4gTpKcrC9YRiirEi/4mTyV07+3EkgiXQF +rjkbEKawt451buQdGe1/dHdFHO9OWBG+qdxnrtv1JbkydTkMAgRLOufsAoF QdM1xzxYRRpzOipddDQMLlE7FWKIJUaSbe53MQChZMALtFBiZdP38Bf/prbG smKR+9ep1ZPAoMxURGZZWKZiBEIXFWow8YgMxf0hhZl2TLEASh5URkZ7x0kF NU+CXTzUbFhSGRRQKEn8hjNn1KOAkqOHNYWPqtKMKZC70Z/CVFaIMGBr/84n c/+2unUIiBXQpouwdn0Ia8jdgCLJyT9QMBU2N7wCxoA1piqh2gXd7MsgAwUW Fk+otxEQxZZwl470UJVvnBes7iNJgDXPRusJrOnGYhUng8EhjBRAkxEHWYca I8raXzriEQZgjGH2gYhKgIIIXSYZhIhQwKqD69ORVOCWGKMLt3Pyi6FqIkuW M2Xdk19oPTp5wbQPK4oGCkw7DniiLDWpIel5MXsYlYrh5kbXAeVUOlVQocBg 5IYAqGRwL/4j3CEiD5sO/k3ucIXwA2w9XTRP2mVumTHu+uUAZ34s6aO8ugaF 7y4qCBGMt851Tz3TdH4+2IXkSA7IJ6n+GW1wz0NfrI8xTFlUkQgvi43AQ6Ng opINsEQhkdqnw3qspgZJrF7AIiLy8Gki9Id0Nsaie+TbNRnGvXAlDdhDmAG2 IfHbI9dYFya0+LdCpDhgUoot+zMdrheV2p5v/tuJD70QW8Z+c3NyY8tIk2/r OlkYx641v4iKy1DSCirdZQ1DKZUcZa2g060KlDCpBheZgTUDP2DNKKlaeCW9 nWY1XgVrxoiHl4JFw2cmqTtIsWYEr5WHHawZRAqskmKlWLMUqm8ZyHtMAnVd 7Xt7jG7MYWkBXPrPew6X/vMaNW9rELYbELBgqxErv1eAgCf6WiL8CdIOqOw8 zQiYIBkIiXm+FDh1fX68RtIewp64bITMAhTPXiHxbZyJWIkzAdY9GklowK6y uatiD/P7xJguFybtEcFEViyimYhsJpFkJy+StGz/1UPYJXpk5McB0rheHVFM cBIQ0sxzrlI/h0gmGlQCXmDdgBsKsEN7PNDm4TggCQ+wpO9i1EG4Q8hjl4fQ Z9RJxKk8/2oOwaDwpc+ZrdwWFv92D0XaPqrS2lCJaEWsiXK0ohHFtHFpfDN5 kGfmwZmdKzzkXapHFu6UPXzoNJhBGIUs75THdvmtZ996FwSVQBlXbf9t9ZBH 8Bo6N2IvQB81db5crv7qQDF0aoYf7F7Yv9C9oYNfHtoI3BIItI9DarqIZzqz XHFehMoqxiDKs4HB2OpWbJkRyHdFuSj+fiPxIahr6/hdD4JfYhcwC5YqiQta UcL8RWEXYIn3qIRbwhK8sYAdTF3EZwBHEMexZ6r2wIrdoKnCOXJew9RduH3h /uVEdcAU7mFqKPvF5xc0ESP8uKUguNeSWRmwsJWsDFj3mSPWQcCV6aZiq2bR Rk05IRZidLAHWw+2l2LMV4H1Bp4rwBZQhlRFIbT4wfdWspTVwVoiFE4rILbk 8MYuUEBGsjBDEm8AgIxgKoKqiOsgvsNAjnBXA53JDRbbglyAMm8WjivOm4UO THmzUURrgFxfCjDsS8Vr69xoJ1VJoIW5ySbnDYkPX1vLUuk89hTf3oav7npX QyEGTC8G1vIal8diwnJvMWRGMKjV7CRkUmCcsliG2zxx0gQI+KBUm29bwR54 iuAxUrNurYUqvzHMPJC0aiDow+toJ1PSuToN1q8mD2zVHg5+zz/b56FsulC/ FReU5fKIxR6WQVnOfeI8Q1vuk4QxMcRnN+Sr+RZwT7k7iqw0X2q6xi0k3etQ EBWpBpyZnozvKAJJiWrryiythMYvBZKI1e+PdOrXqR8j+FHRSwU8ROBJBUcq eImMFWFxpqLfCt4HdyrOn19UTVEmUBiCoIhoDO+YZ0WcmieVcNRJDn2AqK2a LZqDk6iB+oqmH4i2+lGiKTgVaagyu43IMonMECztIDecsDgXcShzHydNjGiL 0IgFNEalZQFpP5r0RWBpl8SGV8vDgUVl1LwRTRxrF86eisMqsWEyN4RIxL3K HPM/YmXGslcVP/Pkwbk/3fp689723U7TQbSNekQ1HdRcMDUnhXPBLCgxUZwM fnMlOlG4GqvSnCLSGxDsRsKJLSlTXsalTNVJl+heiRdmAejWXYJtRXYD3vwv zVMlEgSeuu/9ZrTqxU9qip8Vcx+s2f3k/A37tuUtP7ZpUr3TGhh+6ue/zPnV G52cNkZRrNa6MZyqYpX5SZIIJCggaMwkEX79qkSOpi8FGZrGLRg6QxRTQs5v 5lVkYjMck52mnWq+rsFDgmHTUvNhnnvWecLg0Fx6N6o4hNLmxOFHU+5dcbR8 8uo3mzM7Tq4aW/fR6nvLLzx2R9GBp3KWPLG36QnRWvDws89tfvSdLasncIoY osmIKssxkz7GrVOQsIEcTaaCsJaY9H5DFkJrsyVlRqpLUo4xQxKyiYidRa4l m2auyyFNMMh5/uzEhJw7+9n1OnH404LZz56a9cAqkfW9elH0g8D5lmGBCx13 FP/lseFFv1uTl/+bDfXZf1zXct+ZDctGIU2KmhpVBUrYhmW2bmZ9QLkQTGeF 69CZdkmdjUPKrG6ofqRbAmW1B1a8ihI9KdqccSPdw0honJlVdB7OEhNn5piv Vi3FprXLfvZsa8kzv6ka1/6nqrtrRXBokVgxcfLnHfPGiI6qH326snb4sbUN s1d2PrlmyFtHOBuQeBxQ2qqmYYS6gNlMN7XZMPJe4YZyv1taoKi4Kzm88Q3D Fl1PpT6SMN9p1unyrxMMX/aK1G48xOSGMZO06brXUZvf4twqseChgKjMeEQ0 T5sm2ufdL1bW/FAsr7hLNM8aJyomzRK5o6rF9In1IqOoVIxqyBW3L7ea9oIB 2xx2msifHxRjppvuoqz8RmJLNx+mXwRKA6iKJMbrurwadhfVLpxNriK4jAKL ysbisOouspVBeLpxEmwg3Y/Z/I4bx504sH9918Ylp55omCJW1N3+xcqKYf9v Zd6Df2nLnHUucH9QZEwu/vzusjzxg7ZJp8YsLttSsXozeNywOYH2lK+p5lKK jBktkNAR7tcPIn/OBoGjSKcC66Y1wbYOTwXuf8gyxzwYx+B4LfrFgS37nn0i /7NVi+/43Ybmce9vLMsWbROm/XVBbt6nE6tzvvjhsonnx1XO+yArtwmWLMoU YdmiWKF69eo3xJgpracemPXkqzMXPUvcn3LZmY/TjyAuvDioB4Ax6aLm6iYo obHkqbn9B0u67/0a51Ig5Pb31S1Djm57bMrLT68ofatmcfH5iS054s4l4/+U u2jmm0vn1m55pmLLljWLdojpY+qArd9kZG4S3x+98v99P+MxcfcDy4AzCghL UGWc6Pp1uO2Y7tRtedVem1hAikmf9cDVr8BljvkGPgaQqWkOorFh5MvN20o/ GL8u9/zIx6adKGx6RNSOzVdDHR0/aX1WjJ3ccv6erMd/d//E9Wq3KpkLzMYj 80RI21ENO8BQSTBchUpa6dR/pfOvB004GBcpRaC5+YdidusD4p7lGeLu5RPF 1JoZorzAsAkzF1CKQcudj4iJE5vFPQ+1iwcnL6GUBTRbRNPFosIaOU7D0Cur JEMPtaiWoWdvs3ofjqmFqF5SQH+Fs27MN6jHOHkAqSy/WLsh+/PZy4Z/PGrN pA8mrM8ROU053/n92bPIXz7dNrb2bNa0lUezCzdndP3suHsjDKp8ZwMP/Vul XgpYq3qprvFSH4a4uZaRQ600K5TlpVYCoUek5OEtqjF/nY8xoczG7c/Viqyl 9//93lUZWxa/0IQwCHKMX1w9f93fMsa3H80r2DjkyC9PuTWhwbVgEBqieCsM QoDQGUkkxTUFKqwvlZVY1/vuw1BMswZows6sNVVfC5VD0EOjh8bYx0xS8ke/ ee/gsYVP5n4+bOXYnY17gkAlsvqfXlO9/bP7M9p/Ozt3zfg3X/wlPqFDJgVy DIsSoRK2KM3bCsufUzVg0FonLCZD7k4cUUtilPcIk6GAyRC6/FfFoupHxPQl Y8XdHQ+Ih1smifKqBXhHzMoKiqHjl4mH768XNdllhhK8iI6XlFRRJ3Lk9CK3 d+K4VlGV0UjKcWNWLUdBoBwjCtI0fyp4de7CYTUKYh+86V+iAZujN81i2lDo tbeh9DY4E3/Mslj4O78///7+wPYibDD7qp6Zj38jJBvYsPX1j++buuqTuWOa 1nfVbEadAicUqf0CPhw7Yv0v2zM3n3l85Crig4nQAZHZhrHLoO2a7tQ+vMNI Hi5zR3Eo3szcZgFXeD6svrbiE3HMklnq2+c+/rAr+OyjQOnBqq35//TRH99H CV71mq0//8OonHXvlk9tR2Y+SvRRym8xPppA3V+Uu+NvgSHLTy+/f83cl7b+ wp1lzo/OpOhQundX2xxwM+lO7cMYdfjB7qbzrxCPBhaKKa0PGWJ9jJjV8qCo qppHrbsn5C0Wdz20XBSPC1CpDUjeqovLzaGkUzXPvImNouGHS8TC7y8VmQ+0 giruSinVgwvziXoNFGyB8tI7nFLd83r1LTAl4pjNtX4F8oA7q3ZXXbj3sXHH F61/eMRvTryKvAewtx2ZOn/b4h2rXsAGAEc4NgFZaTPtrd1Hf7d21OpfN47f +KdRd68lNjpjBUsOOLXVBnowMsJ0CcB9CeAepvrM+kzEMct+bMDUU7XPN/x1 +OoJHyxcOzn7zSO7bnnn3Y9SUAXrS5u8/8U3UfkGChzQ31AxvUxg5CDSqY0P rNm0rfI58eD9S9RGI+Y3pDkVXlMa9V1w/Qt/WOnzm8KlZAonsVPrDWnD8qtD hvVI+s4rqRB1UkuWGNoxVuQvuU/UBbPF3PnV6CkkRucsEaXFAdE0dQHai6G8 UNTPWOhLoc9eZkWckFpYkxskdlawtIKtFYW0KLYtL6/kTMSq8hKxpHA0WCVF TVnh/3WKZamX2zoPyHxwh7fA8h74NXPm7TrerhPLmM1w0zew66xpennZx/et mXyu5LGx1a//bPXEl147hvoCZDGi3gB+d4SzQQaA2JdFPl1VEkBgCz52BLZA YK2jmAfhtXmbpKSqzerc+8r2+u6jw2UKX1DpyKM7Rl8Z0vtH03d9k3Yd5OMM 7Rgn5i4ZLprqJoiH5wYpgTlzdjMSmNFUlMrrof+3jikWtbPL8GlRU1At2oeb 9e/gX8YxY5eh3Qa7jmP3kax+ftFQkq36+m6NZvuxbknx91nHFJ9gqmb2vH3I 24diGfN19Pt67ENLl/xszbmRj0/BPvTkc7uD7cs3vMhc0ET/IdCOoesQJDL2 IrADgogEjj5EFKxu0ub3DHJreUFE+7wDyCC9UzfSLbFE2JiiQWyatTGNMb+L NiZwcdzVkSHyW0eI+uA4MXl2LW1M0+fVm5rPINqbmHi+dex8EcwvR1iBwwui 0th3zFscELY3KTz28pww1eh/4XCatzclJc4TccwmFd9A7E2ohP7w/iey4O04 tH7NrBdLG7YenrZgO/oihKywz+HsgNMDzo+Zb+14demrLXuxNWGLMldGOrUy HjeW2mOprT/kRnT76XcOqRqSblzJshF58OwzSz0RxzzYDs93xz05898bNs86 3dYyTTyYWw+/CYgAza8YAJZCdqBsfCmwpWt3wXa2XORwLWJ+bpXhxCjec3op 8RmdGdPXABmNyeIBss8s7kQcs0kYPxAMPSDbff+BjbmiYPHYc/V1U49nzV+7 u6TpJ/BoSkBCdYcKD1n55raHWk9szlgDdwKl6rkPY5AKTub1/87Z079n9V3U leZpO1H1mgszzebC9Jx8Cbm4E3fMBEjwH7w35skZz7ftXPhhTXDm2Yw5K7cE 2p+Hg8/82oFIqoGEPP/4PVUfPXHv8jUv1z5P9rRc6JIQTyXyB/4WPrPlFdFS 8ADH6PuYdirM9is2yKkMtwokPcj1xeWbWGM2O4YRgxbLwVMG7J5a0Rn8w6Kq OZ/cl9OxpmnNvyFdhgko4U8vO/TEv517/N66v6750ZInXqreBV+KeVsDGG/I 6Dy8YPay99eUTniia30drEPtLXlx8H6/ChNxzCZybG2cGEHvPvjkzHWrXlhy rqS88C/35SxfseyJFxRC6LQHfrv3zbe3TlghVn6/af1L1c9QhErCB9djCP15 zsTST9tmj9y1obnpn06//5F2vB58+v1STMQx61pVygxphhGoHNc+9vzyM4+U l//t3ofbVzy2YRfnEYtgQcWvt0xY9dnqO5pf3JW/BkFfbsfkXM7DD75+/OfL Fz36WcuM+35blF2PMg+Ue9B57hnXHnz6yVJMxDHr4OMPh8/S1f+27uS8RfUX 7s1qa9v89NPyHKt8Cd7Eo9smP352/Yil728cXcMxSvfOBQOQ4/zSMy1F76+Y P+X0w+PbxL3D2hlRnjDyVmYijlmHJvP5XqaiafGark2nckqWXrg/p2nxjl3b UP3LS1Ta6oicGUBa/cvtmas/3DBiERwUcFS4a24DOYQmGuZOeGzp4udRfYgq RAaVe2WDh6l+sj4Tccw6TJlLbqANUyue3346s3D53zLy6lY8++waEagsk8AA wcy7m8aseeqFR585sGN6q1qjg8uaTvNByBnjCNd3f/2rM6jcBYaYvkYUF1dr V5YHmKRdfIk4Zh1gLgsHTN2q53afyZjzmBg/s3zNT368FET4UquD9xt16kjh mHdkyxscP0YWFOLJshwG38AJZODszDhxsAvvgOeJAHPP0GUq95M7TjzsJOE6 TMQx67BzRQg7YNFGQxYxeUH5uZEzVv05b/7CLbt31KJ5i8QOwrhgXkGOxfBT r55AMzG1JsxcLTbfAjzam7ser9i/szn31rMn3+LFzjjypQBFvlTGEX3W3bLy gJPgizARx6wDjllrMRAdVcToJVkAzpq6jbv/MGrmmj8UlpXufvapMnRRNIcy CC4Eaky6ZHQjQMRhWVvll/sQ/UAOEAQkoRBYGlIMIuoTYwik2pUrDoApyRM8 SbsWE3HMOvyYa8PqSgTh88up2+ZvqVj94w/vn7n2+KJg5YHtG2aCN0yO53Jw QYJTk2sCEBFC7RLqBtBrHHUE1pK2uG4PdoE0suJg51pk9kn3H8ydkic3HnZS jCnSJ45WnXTqI+b5orCmBBuEuGfJNHF/fr24K7NdFMyfJZY33inqa6b76bTL rJz7pql1iBPjKNUJoV4IFYuoXAyULuISoMpF5aJ5fibxYdYvmGEeTrfIgu4d 1q4yaxJJkMcb0HcRkohjdke17rODGOVvZW5c8GJ+0/ajU4o3v9jxWBP6laGN J3waocqdkI0GbjHzcBqkJArpIDVRvEjxLIez3k3f5H5LBkKcDGa3Hn3rLH1c Nxu8Yj3R2OcXZCKOOVoQ+e0genvimkdfn1695dW8ymee2rBpKaQJeuMO/vQv zCBwlWqsgTaTkYC/EJUQmWrJHb9v3k6YymnOhiOVw6QD3D8jdycymZCOgbQM 65s8vTJhFmIijjla8KTbwXM8Y0X5m5llm8QDOa1Ldu1ef3LTqgfRuo+6ZVoG l2mwIXkdtdnSeoIE6tjX9BQkEOw3UVPwqLzVMFXT3Qgj2iemt0PKLZq4oxaF J9LDS59fe4k45mjxMtCOF3FXoOC34wrXr69Z/lL+z1/fBbygwyw1Xpd4odbo hv0C2wyNeuRC5/pJ0T68SI1MSRkDMwZwYQe7btAMGeUYSOdETnYD5I8HmYRZ fok45mghw50tDWsfkDk1prnqw/vy1oFuZdqRX7yAhujoMoI2BDgTn0XkFgYO WJ7A9iTHSQWLamEj5A3+zZ8jBDisHByPx23hoaTPrLhEHHNsKLmGj0HA/Lik s+n4+MbGMyNnPVGxdvvBu9797b/v6Xy6CIiBfwznsTsAzr+QO8BGL64WHiIa JeqnlzoMGdFaNAa48Xs4SYY1l4hjjg0n1zuXKHoe78t7purk2GAz8AISHShh orVuLJSy3KO/2Il0OyhgsPzRORGWP11HigdEnkD0ouEc9MOTDFWMLZiUOJAS YsqqpvOvEvnBYnFfc474UVGlGDJlGVg20ChdtNRmkDMcXaQClWWiprBKLB3R RKxY1cVVpuZ3GZzfTvo+vOP0hBNzrufq7rsYSMQxx4Zb3fiuAnb3526pFj+c VXt8fNFGsFjAW4f+c3CBt7y2tw0OCAS5mPgqZEhd6cQg8/cBDszfpyqFoqas wPNnJ/aqS8Qxx4MUc8zXQFC88fD64PlhBUsPT3t0C+glINUQJIKUg7RDTlKY /WR8GtdjR3VVCQk4NVhEplJ7wXCghEpt5Uc8vS9xVlgijrknUCGPQY4cnrqm 9pOhee378oLbQdFOy9iwlY5tXTtxx/M7S4efevvnqr2kokK5tBoEQibftLd/ 1snqH9QqDxWJs8IScczxo+Jap1oEdLz5UEf934ZkL3+qbMVutODAcaQRwf+2 f+eTuVPePvgSrCPRPqyZ4qK6++IqW2QctGSQtbR+b83G1T99ogWWBrUW9FzP CbPUEnHM8cNDN5YrARE43MQPprY9Hly3h1hLhNkMG8KDVKym+fkc/bz5/Kk/ asenBGZUmkzRfl/+P51//2x36Ag5CFrpsleKOTXzxV3Fj2JgYvy8GlG+yEyD g5PA0PlER+MQ0TKnQCwb2kxk/YHSgO8y+mwqWuqIyvIK+hel1Hm9ofvuyk7E Mfc0Gs0xX83Hhr/6myPvjw60QHCVr/vJz3AM78FFANcAUNm1u679+Obx60Rz Zh0ZPJ4nOymWViKO+dLAIaxj7OifHjt87t4FTX+6Z9ZyMW1+wBxK+jUX/v5J yeEDG09tWjZeLMsqfH/jA6sM+XPUq3FIisWViGO+NIDQjc9fsOW1n4o7ZgX/ cN+85Q//+PV/l+FQ+MjgBXhvY9vE326e2fD2lofWqnmfnjc4oRdYIo75ywCF OWYKkJQ9/tKLnwzNX/K7USXLxnX98givfPzNOHGs6+2tLXnnH8+oe+OZvMcR WryoAEmowmcVfc4vJi1YJG7PXizuzK8RcyoWmpdLE8GqfNFeOE2suCcolk6o IHOF6p286GTfXbGJOOYvD2W6sfjbWp/eI74/re1ERvXS7/3i/eOshNUECl/b GWz4bNW9tbv31D4uAuWLPCUscVZVIo65t5BgjvkKeKxQBH7hjuxlxybVt333 6Nnf4B0+97+f+917bzxTtlisvKt2yAdH3/EcyAmzshJxzL2LhgF8DA5mlHUD FUcyW5YgR9q6r+qFj3LsPgbNa71UsdBgHTXVhvQR91YU0ZU9FauPL8tEHHPv Qkl3LE2ULKxCCehffzSjbd/M9Ytp8Xv6VcIsqUQcc9+DgVUXhiwxKuq8Y0Yj rJDudKuQMNlCl0gV+fOD1K3XFC0xCBH1WKKgp7sx98WVmOhj7nvoCY+UYLxR cdwMkKjBOcYr+ld2Dx+LG4Xqsd5GoTqWL3NFq9/h1xxLjTC+3kLhpRxzJBSq 512mOaYTKr2FwjhhcDG3qvuOWB9PtDBQj10Tx5h7Ykkl45j/QXOsJ2BwMWNm GKjHooUBnbVbkRF0yqf957XvK/8fG0fAzQ==\ \>"]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"Interpolation", "[", "Bl", "]"}], "[", "X", "]"}], ",", RowBox[{"{", RowBox[{"X", ",", RowBox[{"Min", "[", RowBox[{"Bl", ".", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "]"}], ",", RowBox[{"Max", "[", RowBox[{"Bl", ".", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "]"}]}], "}"}], ",", " ", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "}"}]}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.65537358639227*^9, 3.655373636402752*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwt2Xc4Vv8bB3B77x1ZmeF5DkUkdW4jo1Iou0VlRL6FjEpRCiWySgkVURnJ aCjOyUgkKXs/RvZeIfL7uK7fX67XdT3nPJ/7nM/9ed73Rdb5P6szDHR0dJH0 dHQbf3d1+I6tr1PIxHSy6GKTBLR+eDpl9pdCdp7NHLjbLQF+iXVzcYsUstyp 0CBjSALyrJVXlSYoZIwiLaJlWQLk6zu4LNoppMtU23Y9qc3AVWlAfVJIIZ0S KRe4XTdDdy7fBXCnkK3iPG7fljZDyPXsxeBfauTy5UurcZulIELU49vzO6qk P0PvyZx9MiBVoZzm46BCWrhrmghfkIU1eTfhPdhWcuqmnO6d6C2Q4kO1zB5V Il2K/hVdLZOD721z0eUfFclzp/T8ZDvloZQCiVd9FMjSew8qn7MowrIWz64d GvLkj5ucRtfklOCzdQftPpMcGfhnZDxGXhn2n8IskkplSdqzNsYb6lvhVPj1 MtMoGZImmn5wu7QKRJTnpvyukiIfcWVI6q+pQL2ly/4Q2EzKMZdw+/eowjbe zf+8BjaRmxcYfl1MUwOxFz2G6daipHxz0RyXCwXVU7OWuF+UpJ0cEOxzo4A8 rejdXX1R8iKb1b8iDwqoi0Wq+lNEyaipQHWHCxQwCdcR3McsSh4YGlyPu0IB P7eYvqlCEfLUtzsrtbEUaFI2DNklJEL+11bQZomKbTei7lLnECFp2Vuj10kK 0E5uWpCnEyGPvbBjzC6nwHjilBvPuDDZb3dBkb6aAkzsjy16y4XJCfcA88cN FNAcmZcO8xEmPR5tr0sYpkDsy4zSX7+EyIAXfMJx/FQ4UvqS9K0WIrduORs6 LkgFkYbsMhFSiHxgc+SXkQgVklbzvzjkCJEfG1+zzYpTIf0QUdcXJkS+dbdu 2SNPhXcLLd2zekLkjMBE8dMdVOjUZ18XyBQkl8bFdeltqZBiw0VflCxI1rfY pzTbUcHJg5fRNl6QVJde7HzlQIXBeGHWpBBBcqybf/TQcSpMDcnyyh0VJNn7 TplFnqECQ5Su9HZ+QTJjvse0zocKSu0e+OHLAmTZzhe5AdFUsFP8eELlggCZ w/3A9mAMFcK9OYLpXQXIGN77uVviqDDM8ZJ8bSVAdn+ucq26T4VXuwb1uVQE SJLGy0OfQgVq8kmjylZ+0oq931krmwqaJ63NtHfwkx0CwnNpVVQIrg3K2NHH S2pdeNGWsUIFB5sD/vgPXvJlp60h3yoVttPETU0/8ZLWQe/iA9ZQPXPvRuzv 85J0og5Te+kwMJeYVQvax0veeT8V0cCMgfhZl4LyfB7ygsTF68V8GBSyHiIt bnCTAYlZM+8VMIiKkYyxP89N8sr6vFtXxMBVYtzJ+Rg3+V96sMdeZXQ9FsHo q81N6h6B1O8qGITYlBs/GOMie04L7/qJYXDwufb3rsNcpNMbqvfznRiMGMi0 n5XnJA2x3oM3DmCQsitsqIuXk8ykCRWQ5hgc0Zyct/jLQVJX07tWD2JAKnzi 1f7FQSpFDN66YIlBIpvdXsZgDtIs1VDjgA0GxnXReUkd7GQMjUOm6gQGz+zX b9XGspH6bYu6TRcwsLNyicevspH3NeLGx7wx4Nn//Wm+OxspljfuSe+LQaBe 0qdEYCNltfvblf0wsJDWnj09yUo28W/3cb+Ewb8Br2NrZqwkixRj/ZvrGDie 795OpWch4wvu8jrFYmATOsFBP8FMKrjVfjCPQ9cnrvY2tDKTYTu69+6Mx8CI FL8XmMdMHmoJYOK+jwGVz3a84gQz2ah4aUvmQwwY8n6kO5YykYITapsynmDw YooUjrjMSG6Nscqpz0H1MNaPO7oykvsmWrke5WKQLNpTTj3MSL4VlbFxfo1B LL52oVGFkWSImsyYysPgcvTOOul2BtL832XTtQL0/LH8W291GEjOrtaygQ8Y zHul/elfoCOnuR9ZDFag9+nbd5y/n450imvWul6JQXug7Jc99XQkY34tJvkF g8+hqfEPX9GRKh8KnC2q0H54lKRx6AQduaOfpyarGtUbqdTiG7NOLJuw1+6o w+C9Lhshq71GPHa6w5zajN7v3lt3r/CvEUZ6Zb8lWzC4acF0tGVslUh7tqU3 CdnKhW458skq0cJHVUloxWA8ZmnbEvsqYe7KzxnUjoHMyHBGXecKIZ2ySWtL NwZhD6qjLl9fIr5CTmz5AAaKwQHNr+yXCI/FqGDqbwwq3JSk2tWXCJF+FvdE ZAbdmzk6PX8I3jFCxX0QgyudULuw6w+BB4QG/BvCwFv2Pfv5hQXCNrnSb2kU A34OV8vU2gXiQm+d2uExDPJmhR/WpS0QRdfDe7ORJ8p9lClWC4Sei6DpsXEM 3Fwwk9HceYLVt4gvfwKD41kZoafd5oh9ZGK16jQGa3HWtXH4HNE+7xHhh/z4 CpNQucgc8Sab/QCJ3GbunCZbOUt8xrLaLWbQ/p+WLOuWnSU2GRfKu8xiMNda y86zPEM8tWVneIkc+/my5e76GSJkXWtgFPlHbBst6eoM8Stp83uPOQz2aSWs 23VMEx7VB547zaN+kzQyCc9HtojMe4wczjIX9S5immgIzitrRq5ssZAS0Zkm TrvmrJosYBA8L3YpY+sUocuTWSe1iIHHVdaFR4/HiWutrPIpfzCIFFaoPGUx TmQ+TOz5gpydbZCgxjROCL6LqZxEnmwP0ir1GCNeFMby6y2h56s9f7FXd5Sw uJL5uhY5ro7f+NXkCKHQa1UxiVx4BhPxeTZCSP3jZ+ZbxmAx7uxbJo4RwpXn KacFcuA0bVGpbYjoM2vf9gX5Udi/L9ORQ4S9xt+cXuRiqc0PPsAQ8VOtw2YV efWArfb+F4NEAXfuNmwFA8kBX1aho4OEcA2niwnynsuxLZ28g4Sr6b+q48jB L7/7e/n/Jr7p+IvdQX4KYybaqr+JphA31ifIZS1sYnQ9AwShW6FQiMzEYvQ+ xniAkH51b6YNWSHZKdxhpZ+I0vZMHUM21rxmJ5fbT3zrCwtaRQ5zLl4qFO4n noD1N4m/qL+XW74GVfcR6jUXdqkgf723kGgc1EcESad3aiOPKAm682r0EUzZ sq+NkDkI9Z2tA72Efod0gQWyqs1B9qeJvcRrscZhR+QDEx5t7gd6ieofPhYu yOdCI15uo+sluDw1R/9DjpLIDPxbQCPm7fa/DUB+nV9hVuFKI1bpJwuDkevN +jbdlaART39ZDoYh931eb8hK6SGO7cjeF4UsN63ru5ulh8hJ3NYXh3xayk/o x7luguuMeE4icsaBN4Unm7qIRZaHWY+Rhy+NH5nV6yKGR/q7UpFVXiot3Ejv JI4Gqhs9Q/ZscU4Q5uokfsgUdqch5zKnaGX6dBAl+9Nz0pGnt7c16XS0E0/P 7HizYQ1nIb8ag3ZisS11ZOPz3vcOiRx91UboConYbtyvsPT22wn+NmLoWt3y xvctjlfaXAtsJQLD//3cWI+OBP0fvt4W4tzDjp6N9V4y03vwzLSF2COVJBeP /MnfX1szr5lwve6dvFHvv+f5LZWizcQZjQfm4ch444S/7bUmouD+Hs0Q5GCG rWIjg43Ed8kUy0DkMvXT7y8dbCSwbWPPzyMb321fSpZsIIrz5OaPImcn2AxS wn8RXsn1SlbIgim/GkpmfxJDBuxJxsi03Jrcrqp6woJnCCjIJu+MH5/bVk/Y 9Uz7SCM7Xrsp+HfnD8KKODTEt1Hfk4vVugO1hAlDc/QM2l8Vb86lO3z4Rtjz OVfSkGPKzly7FFVDRNzg0vuBrDZgrVWs85Xwnbo58RLZSWnH0513y4lsnUgX G2SqDvWKvXMZMVMT+QpHXjVVtA3U/ky89tqjobxxfZOauHd5CVEJV1n/oP56 4Dgxc96zkIg7O9N5B3lbUFdmnkg+Qev/u+s/5MTdSR9pIa8JOol9PZbIjBWO cT0qGcSY2OU5IWQdVr3149eeErW3y04voP7viNdp/pT5kMjlE5VoQjaWWM75 aHGPkKTLEilEJm8NiowOXibSc/NsY5HVCKqQ1qgznsDKlh2CvPjsdkK0WxjO WXClNh2Z7xvTnClnAr6v9ta2KuQMIyOJfc4peOqz1a5hZKmez0+fd6bh9jcL 69jReoaTerUUw1/g5eWhTCrIxG2+13FTefjAvao9bsjy7jLLh/cW4Fqlgwa3 kG+bqBsKJRXhXqH+d9KQjzBZtMQbF+PfxUxGOpAXSqvWa+o+42XcvA2G6Pkp 5/6Qz1ouw3/kqi46Ijskt5jdka/A1U95HvVBJi8Pxe2/9AVXMiyYSUWePTv1 XvV5FW7H7SJTtHG+OPzp4qz/igsq34+pRr6tw6pcq/ANd46s0p1GLlHiNc+2 qMVjfC96M2z0j4iod+Tl73jw6PKYILL1guKnAz9/4O2fetI0kY28H5wXuVqP 97yb6DVE7nKXuHFL8CfeGaTqtLE/+ezlXrjs+YXPZ0ZvObdxPrX1N4XSfuEh IQ1nLiGHOKQzpl1vwNdNSqpuIet2nNb4LN+I95OiprHIs44KJ3q+NOLP3uQM bvTfq87fkWtuTXhej1laBrLzsYxiCc5m/Abfu6DXyOLdLsM7c5rxKHby4jvk huNKInaHWnCTe9idUuTIniFDv5kWXO5sfUnFxvpPvrgQH9eKJxw9x12DvEpz S83XasMFKT8D6zbOA6et3+tb2nCBp18Yfm2cN30jK5OB7TjzVbEXjcgKp14p c2/uwE9FxLg3I3f3n7VRLe3AU8NXjVuQ759WDTU72Ylj+vKw4YO/x964MnTh YQENRzY+z+KS3XMzvQuXmG8M3bhf6aAnd7pxN+4UOPfjJ7K/K2VX2XA3/v37 stbGetSHJ9xot3vwxrf5b6uRfTVt918ToeFjy8OWG/XU+2o7R7nS8FtHXVk3 6lUrEg1Mfk/DxdOXmt8ihy/8ic5m78Ul7ruSucgDWq0ZHx16cbqlq+XPkcHv fUlNVi++K5qdloSc/DaxsW21FzeU/SUcg7yyGDA2bN6H3/FJO30T2UbbnmEp pQ8P329au/F7wPN+k7qIfj/u90z798Z5dXZp2Vghth8/lC163xz5i077Mc3+ fvyN5eLx3chXPzy6Y3VzAO8NbdcWR25fvvTMqXkAT0y+aMKKvEPX8cN5pd/4 K1ddrzm0P6eKJYaiqn/j+QqedBv798Dfv2vJ4oN4TLqXRz7yi12dQjkeg3jq aOX4I+STnx4bfOMewkX6kjXcketLJFNYrYZxPVHZ0hXUX2r/1gpF0obxQ25/ mjqRw/d0f1OYH8Z3ZAcwlCLrEynLhvdHcMstmYlByPmktHVw+yh+42RvwQzq fx56Os9o1TF8iabnsZFHzurTrqdcGcMHrz3UykDeUvYk75PUOE6HhTDYbuSV clmuZecJfHFU2z8H5RuuPQZ9ybkTeKb2QMUN5ND3zu8NViZwd70SA3tkv5y0 05Exk7i0i2kdPbLdA4USaXIKt2BgkzFDeWqYLc2sj3kav9VyfFQMWcG4oLBQ dRqvPRLeP4TyVwrZcNvefxqPwDOcbiBHFwlpp/HM4FXJVuF5KK/Vzso/u6g5 gwdfvlERiMymrsVt6jCDm86oUQ2Qg19Z948/n8E5kvUi6lEe9E69H71j9yxu URJn34/yonWE2HC1xxzefdJkdy/Kn7FflA8/jpnDE38U6yUj1zHuLPV6N4c7 vZ11sUM2vmofL8g4j8sNMOyqnULnt88jOPZoHncJH+l8OYmBxLHND6e/LuAd 2xd79VAe7lWX2SequIQfE8HLSJS3Xe6t7xI+tIQTDMFf7JFHp7opggFLuMqO keoZlM9nc5P5eWuW8Dhlu+9SG3mdItHG4rWMz+o8Iz370fm7VcRtsWgFb5p5 q9zag/ZL+IL9fPcK/j4vi9kJWW24cf8s61/82j3b7mE0H2hmxmGT9n9xzH0p ZKELg70K/H9+r/3Fj12xi2ToROuR5brVtHcNpwk6B42h+WM0eMy/wWsNnzRY +nsK2YtW4/7zwRr+ybPRuwPNL36pEebfR9ZwDtfrplVNKM9JsgpX3v2HF8zl 3o1tQOvZxJBe2LSOU2zFD/1B888C2yqtehs9nLv/QW0JzVfeyYZ8I8b00MUt 5GSFPK1xB2dzpAedwOR7WeXo+x3EU4xv0ENqsSfNoQzlgWwdx/IGeuiuN9ud Q6D3bXGx6ZMvA5y/d6ZUphiDtMTJ6tdvGcH81rEL+mgelKHsWK6rYQTWD6kZ l9C8mPI5SHmymxHMbO/W52ej3+NRrjA1ViawPfOIXiYL5UE9VaOXtkxgmPf1 10QmykM019JnS0yQZ9zFaPsUA0vl3vwEXRYweiKjeRzNszbfliwdzFlg3j/Z 9Caadx28+GakTrJA8zDNKysG5cFCHHtxkwXGvQWm56PR84KUrOJ6FripEUxe iUR53c4xvceFFZKe3vI9cROdX+FNCVvj2GD2vj79eTRv+41UB5SMccDAluvn Cq3R+iXNOkTpOOHPlzKFsCMYVFl+3e0txAl3g1w/2B3GQKz4C4PSbk7Q82T2 XrJA+f92eeS9KE7wtM7ZonIA5TfVkienNLjA8WaQlY0Bmje98r6y+3ND7fcn 3vUUDGoC93Op0vPB6bh/wzg96ncJn4VXHHzA1E3fQ1unwqVPj7pVhPjA3vRg TfA/KmxdH8lTUeKDCCbB4JK/VAgPDbdWMeeDmqZrp1QWqWASXZmy9SEf6OSH 9v8cpUJFOq6hrMEPHCwqCTYNVNhs7Cr+Qpcf+u0O9zT9pILvUBSjshE/POfZ t+lIPRXkVLqblGz5wUx12tH8OxWuv75ySSmIH9r7rUS3V1FBv/hDuWI1P9xV 5oNvxVQo/bHdRsFJAPwL7BQpT9H9ToU5XDwrAJGjmXaxqWi9f9qPV/oIgMmK ZPBiMhXipa67nrklAOI2bTkfH1Hh7Ln6gOdZAsBJYw3eGU8FEc5zSQqLAtBo KNHBEEYFL+MMmsIdQaAPadj3zYMK8u3LAxfjBeGQ9vhPnrNUaDtnPlKZLAih 9vRmlm5UMEqYnzmTJwic8ZdZGk5TQXzAgDGjSRCcy1SKq49R4UtIj4KijBD0 q4xzOR2kglSJmIdikRCozRD7K1Wp4LJJxlKfEIKTZttfOm+lQs5FJe2j1UKw GpVa80+RCnrUHYyxXUKQUEE4bN9CBYfUw0lrzMLgx/byw10xKiSERH1rtBGG 3Z7nS1mZqcBlzKR2Y0kYxL2OGwt2UWClbmq8Z5co8OYIn06KoMDHN1/dTB5s giJ9P82cXjVYeh9n6aqwGTLtPv7+Ia4Gm2JOamqFS0GQ/l+vcCtVOEwnPBP6 nwwcob9IpIWogG2N99X9hbLgdbb0r0nsVqi78pPNvX8LFImlFAq9UIYb+i+r +1TlYeXWqmZLqhJMWq5PnfBSgHMJ2ds14hTh2z4bQc0kRTiUqyYXGaMAg9aK 5073KsE7/tTJOh958DX7Uz7GvxXkEhIPGpyWg/fhxsF+eirQcfvz5GubLaDb zuNzLFgVLj+qNyvCZIEq1OqclKsGrIyCX4wlZGBf2Mo8rUANph85PPERkQGX lc1hih/UIJ/CffkJvwyk0pyy3pSrwYVofPsKqwzw5YzNVbWqAWfWcR/HEWmY 2bseOs9AAfq55lGVx9JQ6K+YaW5LAd5NRR8b6aWhftR0Z9xRCpwwH+dQX5KC 8WMe31qdKCC6rdTnzqQUKBjlTZ3ypMCm9H0JBh1ScJ9PV+dSCAW+mOdT8gul IOCleXVGFgXyf0k6PXCVgvjN5x3H89B7qe7NmD8mBXnRsRMabykQUfdMwOqI FIxcbOEvISlQkah5gltfChwMnBwamigge9iw76a4FPgV3RgX66BAZkfSuQE+ KYhVzrh6nEaBlCdbFAxZpaCGZ+zZyCgFtPwbJOjnJWEwhFsLm6ZASGPE0ZOj ksCwgFX5LlAgnjmslqBJgpSblX3xCgWM1GM8pVsk4f//rwCXS167r32XhP8B qT/yJA== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 8.}, BaseStyle->{FontFamily -> "Tahoma", FontSize -> 14}, Frame->True, FrameLabel->{ FormBox["\"Coil Displacement, mm\"", TraditionalForm], FormBox["\"Bl, Newtons/Ampere\"", TraditionalForm]}, GridLines->Automatic, ImageSize->500, PlotRange->{{-15., 15.}, {6.958456840403549, 15.991876810385575`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{{3.655373628880697*^9, 3.6553736370286694`*^9}, 3.6553889432462735`*^9, 3.6562094006266665`*^9, 3.6563791395020266`*^9, 3.6564878329930735`*^9, 3.6572142412566175`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ang", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ RowBox[{"Abs", "[", RowBox[{ RowBox[{"Lx", "[", RowBox[{"[", "k", "]"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "]"}], ",", RowBox[{ RowBox[{"Arg", "[", RowBox[{ RowBox[{"Lx", "[", RowBox[{"[", "k", "]"}], "]"}], ".", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "]"}], "/", "Degree"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", RowBox[{"Length", "[", "Xx", "]"}]}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.655414378663431*^9, 3.6554144724632545`*^9}, { 3.6564953014125357`*^9, 3.656495306281536*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.`", ",", RowBox[{"-", "4.145719766887236`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"10.`", ",", RowBox[{"-", "26.198446003274267`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"100.`", ",", RowBox[{"-", "51.10207981458121`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1000.`", ",", RowBox[{"-", "23.262089230873592`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"10000.`", ",", RowBox[{"-", "18.030614010879205`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.`", ",", RowBox[{"-", "3.874523866237072`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"10.`", ",", RowBox[{"-", "24.005724846274884`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"100.`", ",", RowBox[{"-", "41.23010513646383`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1000.`", ",", RowBox[{"-", "18.214261684131255`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"10000.`", ",", RowBox[{"-", "20.64271811831788`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.`", ",", RowBox[{"-", "3.4117297759115095`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"10.`", ",", RowBox[{"-", "20.388823539169902`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"100.`", ",", RowBox[{"-", "28.266356369889316`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1000.`", ",", RowBox[{"-", "14.910339479336418`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"10000.`", ",", RowBox[{"-", "22.23926667358492`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.`", ",", RowBox[{"-", "2.77248388866126`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"10.`", ",", RowBox[{"-", "15.667950152577252`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"100.`", ",", RowBox[{"-", "17.278284745018635`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1000.`", ",", RowBox[{"-", "12.353536058582668`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"10000.`", ",", RowBox[{"-", "21.974834393685214`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.`", ",", RowBox[{"-", "1.97886267522223`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"10.`", ",", RowBox[{"-", "10.382811675128899`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"100.`", ",", RowBox[{"-", "9.888677004729757`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1000.`", ",", RowBox[{"-", "10.107559476398954`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"10000.`", ",", RowBox[{"-", "20.422358910406622`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.`", ",", RowBox[{"-", "1.2066127950744345`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"10.`", ",", RowBox[{"-", "5.853780442891576`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"100.`", ",", RowBox[{"-", "5.615650126017633`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1000.`", ",", RowBox[{"-", "8.073134453575241`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"10000.`", ",", RowBox[{"-", "17.08545237366098`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.`", ",", RowBox[{"-", "0.6348935589039018`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"10.`", ",", RowBox[{"-", "2.891010257099255`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"100.`", ",", RowBox[{"-", "3.116119790969816`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1000.`", ",", RowBox[{"-", "5.659916527945239`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"10000.`", ",", RowBox[{"-", "11.969994345822947`"}]}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.6562094006676707`*^9, 3.65637913953903*^9, 3.656487833024273*^9, 3.6564953071285357`*^9, 3.657214241318987*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListLogLinearPlot", "[", RowBox[{"ang", ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", " ", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "}"}]}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.655414497609203*^9, 3.6554145218147664`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[{{0., -4.145719766887236}, { 2.302585092994046, -26.198446003274267`}, { 4.605170185988092, -51.10207981458121}, { 6.907755278982137, -23.262089230873592`}, { 9.210340371976184, -18.030614010879205`}}]}, {Hue[0.9060679774997897, 0.6, 0.6], LineBox[{{0., -3.874523866237072}, { 2.302585092994046, -24.005724846274884`}, { 4.605170185988092, -41.23010513646383}, { 6.907755278982137, -18.214261684131255`}, { 9.210340371976184, -20.64271811831788}}]}, {Hue[0.14213595499957954`, 0.6, 0.6], LineBox[{{0., -3.4117297759115095`}, { 2.302585092994046, -20.388823539169902`}, { 4.605170185988092, -28.266356369889316`}, { 6.907755278982137, -14.910339479336418`}, { 9.210340371976184, -22.23926667358492}}]}, {Hue[0.37820393249936934`, 0.6, 0.6], LineBox[{{0., -2.77248388866126}, { 2.302585092994046, -15.667950152577252`}, { 4.605170185988092, -17.278284745018635`}, { 6.907755278982137, -12.353536058582668`}, { 9.210340371976184, -21.974834393685214`}}]}, {Hue[0.6142719099991583, 0.6, 0.6], LineBox[{{0., -1.97886267522223}, { 2.302585092994046, -10.382811675128899`}, { 4.605170185988092, -9.888677004729757}, { 6.907755278982137, -10.107559476398954`}, { 9.210340371976184, -20.422358910406622`}}]}, {Hue[0.8503398874989481, 0.6, 0.6], LineBox[{{0., -1.2066127950744345`}, { 2.302585092994046, -5.853780442891576}, { 4.605170185988092, -5.615650126017633}, { 6.907755278982137, -8.073134453575241}, { 9.210340371976184, -17.08545237366098}}]}, {Hue[0.08640786499873876, 0.6, 0.6], LineBox[{{0., -0.6348935589039018}, { 2.302585092994046, -2.891010257099255}, { 4.605170185988092, -3.116119790969816}, { 6.907755278982137, -5.659916527945239}, { 9.210340371976184, -11.969994345822947`}}]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0., -51.10207981458121}, BaseStyle->{FontFamily -> "Tahoma", FontSize -> 14}, CoordinatesToolOptions:>{"DisplayFunction" -> ({ Exp[ Part[#, 1]], Part[#, 2]}& ), "CopiedValueFunction" -> ({ Exp[ Part[#, 1]], Part[#, 2]}& )}, Frame->True, FrameLabel->{ FormBox["\"Frequency, Hz\"", TraditionalForm], FormBox["\"Phase Shift, Degrees\"", TraditionalForm]}, FrameTicks->{{Automatic, Automatic}, {{{0, FormBox["1", TraditionalForm]}, {2.302585092994046, FormBox["10", TraditionalForm]}, {4.605170185988092, FormBox["100", TraditionalForm]}, {6.907755278982137, FormBox["1000", TraditionalForm]}, {9.210340371976184, FormBox[ TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {7.600902459542082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.006367567650246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.294049640102028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.517193191416238, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.699514748210191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.85366542803745, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.987196820661973, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {9.104979856318357, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, {{0, FormBox["\"\"", TraditionalForm]}, {2.302585092994046, FormBox["\"\"", TraditionalForm]}, {4.605170185988092, FormBox["\"\"", TraditionalForm]}, {6.907755278982137, FormBox["\"\"", TraditionalForm]}, {9.210340371976184, FormBox["\"\"", TraditionalForm]}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {7.600902459542082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.006367567650246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.294049640102028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.517193191416238, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.699514748210191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.85366542803745, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.987196820661973, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {9.104979856318357, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}}, GridLines->{{ 0, 2.302585092994046, 4.605170185988092, 6.907755278982137, 9.210340371976184, 0.6931471805599453, 1.0986122886681098`, 1.3862943611198906`, 1.6094379124341003`, 1.791759469228055, 1.9459101490553132`, 2.0794415416798357`, 2.1972245773362196`, 2.995732273553991, 3.4011973816621555`, 3.6888794541139363`, 3.912023005428146, 4.0943445622221, 4.248495242049359, 4.382026634673881, 4.499809670330265, 5.298317366548036, 5.703782474656201, 5.991464547107982, 6.214608098422191, 6.396929655216146, 6.551080335043404, 6.684611727667927, 6.802394763324311, 7.600902459542082, 8.006367567650246, 8.294049640102028, 8.517193191416238, 8.699514748210191, 8.85366542803745, 8.987196820661973, 9.104979856318357}, Automatic}, ImageSize->500, Method->{}, PlotRange->{{0., 9.210340371976184}, {-51.10207981458121, 0.}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}, Ticks->{{{0, FormBox["1", TraditionalForm]}, {2.302585092994046, FormBox["10", TraditionalForm]}, {4.605170185988092, FormBox["100", TraditionalForm]}, {6.907755278982137, FormBox["1000", TraditionalForm]}, {9.210340371976184, FormBox[ TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {7.600902459542082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.006367567650246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.294049640102028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.517193191416238, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.699514748210191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.85366542803745, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.987196820661973, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {9.104979856318357, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, Automatic}]], "Output", CellChangeTimes->{{3.655414512178609*^9, 3.655414522656005*^9}, 3.6562094007226763`*^9, 3.6563791395930357`*^9, 3.6564878330710735`*^9, 3.656495316722536*^9, 3.6572142415064955`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"ang", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ RowBox[{"Abs", "[", RowBox[{ RowBox[{"Vx", "[", RowBox[{"[", "k", "]"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "]"}], ",", RowBox[{ RowBox[{"Arg", "[", RowBox[{ RowBox[{"Vx", "[", RowBox[{"[", "k", "]"}], "]"}], ".", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "]"}], "/", "Degree"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", RowBox[{"Length", "[", "Xx", "]"}]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.655414716151456*^9, 3.6554147192950745`*^9}, 3.6562337216604247`*^9, {3.6564953418395357`*^9, 3.6564953576365356`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListLogLinearPlot", "[", RowBox[{"ang", ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", " ", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "}"}]}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{3.655416536584888*^9}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[{{0., 1.3142619169708627`}, {2.302585092994046, 8.844941084483526}, {4.605170185988092, 13.635365985593406`}, { 6.907755278982137, 46.07352998889966}, {9.210340371976184, 68.05735170967901}}]}, {Hue[0.9060679774997897, 0.6, 0.6], LineBox[{{0., 1.1386143396432065`}, {2.302585092994046, 7.992084535886843}, {4.605170185988092, 16.85714432761786}, { 6.907755278982137, 54.64347439799876}, {9.210340371976184, 66.6142495378567}}]}, {Hue[0.14213595499957954`, 0.6, 0.6], LineBox[{{0., 0.9132694431234972}, {2.302585092994046, 6.819289409680849}, {4.605170185988092, 21.33216247908814}, { 6.907755278982137, 61.4317636019444}, {9.210340371976184, 65.7571973037162}}]}, {Hue[0.37820393249936934`, 0.6, 0.6], LineBox[{{0., 0.6808668831588611}, {2.302585092994046, 5.468058706334202}, {4.605170185988092, 24.770020993893716`}, { 6.907755278982137, 65.74499730444266}, {9.210340371976184, 66.36724390598916}}]}, {Hue[0.6142719099991583, 0.6, 0.6], LineBox[{{0., 0.49329858742270644`}, {2.302585092994046, 4.273236719097381}, {4.605170185988092, 26.12865088583699}, { 6.907755278982137, 68.43169905508518}, {9.210340371976184, 68.0454279414455}}]}, {Hue[0.8503398874989481, 0.6, 0.6], LineBox[{{0., 0.3522018947428161}, {2.302585092994046, 3.2507709765716966`}, {4.605170185988092, 24.57071894777196}, { 6.907755278982137, 69.46975177378428}, {9.210340371976184, 71.30582308832346}}]}, {Hue[0.08640786499873876, 0.6, 0.6], LineBox[{{0., 0.25534256547391376`}, {2.302585092994046, 2.455749170463285}, {4.605170185988092, 21.16876944969786}, { 6.907755278982137, 69.67480320092663}, {9.210340371976184, 76.22856596759729}}]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0., 0.}, BaseStyle->{FontFamily -> "Tahoma", FontSize -> 14}, CoordinatesToolOptions:>{"DisplayFunction" -> ({ Exp[ Part[#, 1]], Part[#, 2]}& ), "CopiedValueFunction" -> ({ Exp[ Part[#, 1]], Part[#, 2]}& )}, Frame->True, FrameLabel->{ FormBox["\"Frequency, Hz\"", TraditionalForm], FormBox["\"Phase Shift, Degrees\"", TraditionalForm]}, FrameTicks->{{Automatic, Automatic}, {{{0, FormBox["1", TraditionalForm]}, {2.302585092994046, FormBox["10", TraditionalForm]}, {4.605170185988092, FormBox["100", TraditionalForm]}, {6.907755278982137, FormBox["1000", TraditionalForm]}, {9.210340371976184, FormBox[ TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {7.600902459542082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.006367567650246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.294049640102028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.517193191416238, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.699514748210191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.85366542803745, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.987196820661973, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {9.104979856318357, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, {{0, FormBox["\"\"", TraditionalForm]}, {2.302585092994046, FormBox["\"\"", TraditionalForm]}, {4.605170185988092, FormBox["\"\"", TraditionalForm]}, {6.907755278982137, FormBox["\"\"", TraditionalForm]}, {9.210340371976184, FormBox["\"\"", TraditionalForm]}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {7.600902459542082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.006367567650246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.294049640102028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.517193191416238, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.699514748210191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.85366542803745, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.987196820661973, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {9.104979856318357, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}}, GridLines->{{ 0, 2.302585092994046, 4.605170185988092, 6.907755278982137, 9.210340371976184, 0.6931471805599453, 1.0986122886681098`, 1.3862943611198906`, 1.6094379124341003`, 1.791759469228055, 1.9459101490553132`, 2.0794415416798357`, 2.1972245773362196`, 2.995732273553991, 3.4011973816621555`, 3.6888794541139363`, 3.912023005428146, 4.0943445622221, 4.248495242049359, 4.382026634673881, 4.499809670330265, 5.298317366548036, 5.703782474656201, 5.991464547107982, 6.214608098422191, 6.396929655216146, 6.551080335043404, 6.684611727667927, 6.802394763324311, 7.600902459542082, 8.006367567650246, 8.294049640102028, 8.517193191416238, 8.699514748210191, 8.85366542803745, 8.987196820661973, 9.104979856318357}, Automatic}, ImageSize->500, Method->{}, PlotRange->{{0., 9.210340371976184}, {0., 76.22856596759729}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}, Ticks->{{{0, FormBox["1", TraditionalForm]}, {2.302585092994046, FormBox["10", TraditionalForm]}, {4.605170185988092, FormBox["100", TraditionalForm]}, {6.907755278982137, FormBox["1000", TraditionalForm]}, {9.210340371976184, FormBox[ TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {7.600902459542082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.006367567650246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.294049640102028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.517193191416238, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.699514748210191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.85366542803745, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.987196820661973, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {9.104979856318357, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, Automatic}]], "Output", CellChangeTimes->{3.656233750723425*^9, 3.6563791396760435`*^9, 3.6564878331958733`*^9, 3.656495361578536*^9, 3.6572142416783795`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["Lx"], "Input", CellChangeTimes->{{3.6554050892008734`*^9, 3.6554050896532736`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"0.02108894589141449`", "\[InvisibleSpace]", "-", RowBox[{"0.001528590019682796`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"10.`", ",", RowBox[{"0.01546435621017363`", "\[InvisibleSpace]", "-", RowBox[{"0.00760888564129944`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"100.`", ",", RowBox[{"0.003183151991556779`", "\[InvisibleSpace]", "-", RowBox[{"0.003945216536864219`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"1000.`", ",", RowBox[{"0.001720673255662559`", "\[InvisibleSpace]", "-", RowBox[{"0.0007396896823388715`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"10000.`", ",", RowBox[{"0.001185313415432746`", "\[InvisibleSpace]", "-", RowBox[{"0.000385831990150034`", " ", "\[ImaginaryI]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"0.01826386899084354`", "\[InvisibleSpace]", "-", RowBox[{"0.001236947289113283`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"10.`", ",", RowBox[{"0.01374373476155758`", "\[InvisibleSpace]", "-", RowBox[{"0.006120750485914292`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"100.`", ",", RowBox[{"0.003786014118502253`", "\[InvisibleSpace]", "-", RowBox[{"0.003317920298535457`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"1000.`", ",", RowBox[{"0.002412019299500185`", "\[InvisibleSpace]", "-", RowBox[{"0.0007936969339473047`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"10000.`", ",", RowBox[{"0.001645569299458631`", "\[InvisibleSpace]", "-", RowBox[{"0.0006199294564385723`", " ", "\[ImaginaryI]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"0.01464274853935528`", "\[InvisibleSpace]", "-", RowBox[{"0.0008729478863917293`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"10.`", ",", RowBox[{"0.01148459093037972`", "\[InvisibleSpace]", "-", RowBox[{"0.004268531169616177`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"100.`", ",", RowBox[{"0.004536441126684007`", "\[InvisibleSpace]", "-", RowBox[{"0.002439186919240191`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"1000.`", ",", RowBox[{"0.003298335617569424`", "\[InvisibleSpace]", "-", RowBox[{"0.0008782566315779027`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"10000.`", ",", RowBox[{"0.002213361744717548`", "\[InvisibleSpace]", "-", RowBox[{"0.0009050262032421681`", " ", "\[ImaginaryI]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"0.01091205721510967`", "\[InvisibleSpace]", "-", RowBox[{"0.0005284357416853119`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"10.`", ",", RowBox[{"0.009027106115723237`", "\[InvisibleSpace]", "-", RowBox[{"0.002531957444025401`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"100.`", ",", RowBox[{"0.004944121250444033`", "\[InvisibleSpace]", "-", RowBox[{"0.001537866912659688`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"1000.`", ",", RowBox[{"0.003963081573314762`", "\[InvisibleSpace]", "-", RowBox[{"0.0008679713801628394`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"10000.`", ",", RowBox[{"0.002692307057085665`", "\[InvisibleSpace]", "-", RowBox[{"0.001086387349064655`", " ", "\[ImaginaryI]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"0.007903578829655051`", "\[InvisibleSpace]", "-", RowBox[{"0.0002730797803026425`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"10.`", ",", RowBox[{"0.006952228928830613`", "\[InvisibleSpace]", "-", RowBox[{"0.001273817025673502`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"100.`", ",", RowBox[{"0.004922315279439839`", "\[InvisibleSpace]", "-", RowBox[{"0.0008580791790190876`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"1000.`", ",", RowBox[{"0.004228468310281537`", "\[InvisibleSpace]", "-", RowBox[{"0.000753780534854109`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"10000.`", ",", RowBox[{"0.002980374691445163`", "\[InvisibleSpace]", "-", RowBox[{"0.001109715514038073`", " ", "\[ImaginaryI]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"0.005641925710117635`", "\[InvisibleSpace]", "-", RowBox[{"0.0001188329467405208`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"10.`", ",", RowBox[{"0.005242797189147662`", "\[InvisibleSpace]", "-", RowBox[{"0.0005375162982677607`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"100.`", ",", RowBox[{"0.004393357492460224`", "\[InvisibleSpace]", "-", RowBox[{"0.000431984067031485`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"1000.`", ",", RowBox[{"0.003944583591515108`", "\[InvisibleSpace]", "-", RowBox[{"0.0005595104572182883`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"10000.`", ",", RowBox[{"0.002957064054674032`", "\[InvisibleSpace]", "-", RowBox[{"0.0009088898827760997`", " ", "\[ImaginaryI]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"0.004089983090369144`", "\[InvisibleSpace]", "-", RowBox[{"0.00004532288815877725`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"10.`", ",", RowBox[{"0.003944261114239699`", "\[InvisibleSpace]", "-", RowBox[{"0.0001991872082511042`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"100.`", ",", RowBox[{"0.003630268876148595`", "\[InvisibleSpace]", "-", RowBox[{"0.0001976326980942006`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"1000.`", ",", RowBox[{"0.0033824834247604`", "\[InvisibleSpace]", "-", RowBox[{"0.0003352269741466191`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"10000.`", ",", RowBox[{"0.002771169989817102`", "\[InvisibleSpace]", "-", RowBox[{"0.0005875137107328284`", " ", "\[ImaginaryI]"}]}]}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.6571452921709347`*^9, 3.657214241756507*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["Vx"], "Input", CellChangeTimes->{{3.655405091790474*^9, 3.655405093756074*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"5.775628765240838`", "\[InvisibleSpace]", "+", RowBox[{"0.1325057549688513`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"10.`", ",", RowBox[{"6.244104730368638`", "\[InvisibleSpace]", "+", RowBox[{"0.9716541572475565`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"100.`", ",", RowBox[{"8.244876486117006`", "\[InvisibleSpace]", "+", RowBox[{"2.000033382386905`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"1000.`", ",", RowBox[{"10.41357943293217`", "\[InvisibleSpace]", "+", RowBox[{"10.81130891843105`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"10000.`", ",", RowBox[{"30.00334794542575`", "\[InvisibleSpace]", "+", RowBox[{"74.47543788293622`", " ", "\[ImaginaryI]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"5.773796319921178`", "\[InvisibleSpace]", "+", RowBox[{"0.1147552732955314`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"10.`", ",", RowBox[{"6.150602440934509`", "\[InvisibleSpace]", "+", RowBox[{"0.8635443231959311`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"100.`", ",", RowBox[{"7.850734635325386`", "\[InvisibleSpace]", "+", RowBox[{"2.378822828214779`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"1000.`", ",", RowBox[{"10.75291700271941`", "\[InvisibleSpace]", "+", RowBox[{"15.1551642232483`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"10000.`", ",", RowBox[{"44.71212555174673`", "\[InvisibleSpace]", "+", RowBox[{"103.39416796348`", " ", "\[ImaginaryI]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"5.771509244222166`", "\[InvisibleSpace]", "+", RowBox[{"0.09200310247921203`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"10.`", ",", RowBox[{"6.034224068996118`", "\[InvisibleSpace]", "+", RowBox[{"0.721598129927311`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"100.`", ",", RowBox[{"7.29861016955377`", "\[InvisibleSpace]", "+", RowBox[{"2.850330023406618`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"1000.`", ",", RowBox[{"11.28422125245155`", "\[InvisibleSpace]", "+", RowBox[{"20.72405389045451`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"10000.`", ",", RowBox[{"62.62528245815754`", "\[InvisibleSpace]", "+", RowBox[{"139.0696194592645`", " ", "\[ImaginaryI]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"5.769344610576404`", "\[InvisibleSpace]", "+", RowBox[{"0.0685624775650905`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"10.`", ",", RowBox[{"5.925111923821474`", "\[InvisibleSpace]", "+", RowBox[{"0.5671898051266434`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"100.`", ",", RowBox[{"6.732294107312407`", "\[InvisibleSpace]", "+", RowBox[{"3.106482999770428`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"1000.`", ",", RowBox[{"11.21959711187977`", "\[InvisibleSpace]", "+", RowBox[{"24.90077591260062`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"10000.`", ",", RowBox[{"74.0205393254083`", "\[InvisibleSpace]", "+", RowBox[{"169.1626409554025`", " ", "\[ImaginaryI]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"5.767740161751735`", "\[InvisibleSpace]", "+", RowBox[{"0.04965965037663482`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"10.`", ",", RowBox[{"5.846060629911881`", "\[InvisibleSpace]", "+", RowBox[{"0.4368214265777871`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"100.`", ",", RowBox[{"6.305170877311253`", "\[InvisibleSpace]", "+", RowBox[{"3.09278190410821`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"1000.`", ",", RowBox[{"10.50211487042157`", "\[InvisibleSpace]", "+", RowBox[{"26.56824995903061`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"10000.`", ",", RowBox[{"75.48629115945268`", "\[InvisibleSpace]", "+", RowBox[{"187.2624642322195`", " ", "\[ImaginaryI]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"5.766771000313431`", "\[InvisibleSpace]", "+", RowBox[{"0.03544926472602017`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"10.`", ",", RowBox[{"5.799797490790871`", "\[InvisibleSpace]", "+", RowBox[{"0.3294146626737626`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"100.`", ",", RowBox[{"6.037447422601103`", "\[InvisibleSpace]", "+", RowBox[{"2.760427924581344`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"1000.`", ",", RowBox[{"9.281479972995523`", "\[InvisibleSpace]", "+", RowBox[{"24.78454966514459`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"10000.`", ",", RowBox[{"62.86804460294992`", "\[InvisibleSpace]", "+", RowBox[{"185.7978137276053`", " ", "\[ImaginaryI]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"5.766309122993405`", "\[InvisibleSpace]", "+", RowBox[{"0.02569812166003089`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"10.`", ",", RowBox[{"5.778539647117037`", "\[InvisibleSpace]", "+", RowBox[{"0.2478252348067197`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"100.`", ",", RowBox[{"5.890200114798683`", "\[InvisibleSpace]", "+", RowBox[{"2.280965206372826`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"1000.`", ",", RowBox[{"7.872265287516555`", "\[InvisibleSpace]", "+", RowBox[{"21.25277015622815`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"10000.`", ",", RowBox[{"42.67538418035076`", "\[InvisibleSpace]", "+", RowBox[{"174.1177451575955`", " ", "\[ImaginaryI]"}]}]}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.6571453093902335`*^9, 3.6572142418658857`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["Bl"], "Input", CellChangeTimes->{{3.6554050962676735`*^9, 3.6554050969228735`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "15"}], ",", "6.958456249449689`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "11.65270212993632`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "15.13549686030987`"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "15.98529559576462`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "15.16739661548118`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "11.88227327505773`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "7.450680135526501`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.6571453267237606`*^9, 3.657214241959642*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["Xx"], "Input", CellChangeTimes->{{3.656198389205393*^9, 3.6561983922007613`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "15"}], ",", RowBox[{"-", "10"}], ",", RowBox[{"-", "5"}], ",", "0", ",", "5", ",", "10", ",", "15"}], "}"}]], "Output", CellChangeTimes->{3.6571453345522532`*^9, 3.6572142420377693`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["Lo"], "Input", CellChangeTimes->{{3.656198394919633*^9, 3.6561983950915174`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.02129142422589849`", ",", "0.018430000856494606`", ",", "0.014762434032487`", ",", "0.010986652877312179`", ",", "0.007943459049144388`", ",", "0.005659996207219271`", ",", "0.004097262474996722`"}], "}"}]], "Output", CellChangeTimes->{3.6571453411736836`*^9, 3.6572142421315236`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"myPrecision", "=", "32"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"n", "=", "8"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{ "Number", " ", "of", " ", "time", " ", "constants", " ", "in", " ", "the", " ", "eddy", " ", "current", " ", "model"}], " ", "*)"}]}]}], "Input", CellChangeTimes->{{3.6558945181684513`*^9, 3.6558945229965467`*^9}, { 3.655899738491682*^9, 3.6558997388331842`*^9}, {3.6558998277798767`*^9, 3.655899828360731*^9}, {3.655899927008675*^9, 3.655899929199896*^9}, { 3.655900024267582*^9, 3.6559000277036304`*^9}, {3.65590014549971*^9, 3.655900145607869*^9}, {3.6562469315800185`*^9, 3.6562469333253484`*^9}, { 3.6562470350184593`*^9, 3.6562470358780055`*^9}, {3.6562471916121244`*^9, 3.6562472155173697`*^9}}], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ "Function", " ", "to", " ", "regress", " ", "network", " ", "model", " ", "inductances", " ", "and", " ", "resistances"}], " ", "*)"}]], "Input", CellChangeTimes->{{3.656247085180442*^9, 3.6562471094073715`*^9}, { 3.656248475384707*^9, 3.656248485662279*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"GetModel", "[", RowBox[{"Ll_", ",", "Lo_", ",", "n_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "Ff", ",", "k", ",", "p", ",", "s", ",", "f", ",", "ics", ",", "cost", ",", "ans", ",", "T", ",", "eqs", ",", "L", ",", "R", ",", "vars", ",", "Lfd", ",", "ans2"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Off", "[", RowBox[{"FindMinimum", "::", "\"\\""}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Lfd", "=", RowBox[{"SetPrecision", "[", RowBox[{"Ll", ",", "myPrecision"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Ff", "=", "0"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"k", "=", "n"}], ",", RowBox[{"k", ">=", "1"}], ",", RowBox[{"k", "--"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Ff", "=", RowBox[{ RowBox[{"(", RowBox[{"s", " ", "/", RowBox[{"10", "^", RowBox[{"p", "[", "k", "]"}]}]}], ")"}], "/", RowBox[{"(", RowBox[{"1", "+", "Ff"}], ")"}]}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"L", "[", "0", "]"}], "=", RowBox[{"SetPrecision", "[", RowBox[{"Lo", ",", "myPrecision"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Ff", "=", RowBox[{ RowBox[{"L", "[", "0", "]"}], "/", RowBox[{"(", RowBox[{"1", "+", "Ff"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"f", "=", RowBox[{"SetPrecision", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"(", RowBox[{"4", "*", RowBox[{"k", "/", "n"}]}], ")"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", "myPrecision"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ics", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"p", "[", "k", "]"}], ",", RowBox[{"f", "[", RowBox[{"[", "k", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"cost", "=", RowBox[{ RowBox[{"Total", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Abs", "[", RowBox[{ RowBox[{"(", RowBox[{"Ff", " ", "/.", " ", RowBox[{"s", " ", "\[Rule]", " ", RowBox[{"I", " ", RowBox[{"Lfd", "[", RowBox[{"[", RowBox[{"k", ",", "1"}], "]"}], "]"}]}]}]}], ")"}], "-", RowBox[{"Lfd", "[", RowBox[{"[", RowBox[{"k", ",", "2"}], "]"}], "]"}]}], "]"}], "^", "2"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", RowBox[{"Length", "[", "Lfd", "]"}]}], "}"}]}], "]"}], "]"}], "/", RowBox[{"Total", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Lfd", ".", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "]"}], "^", "2"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ans", "=", RowBox[{ RowBox[{"FindMinimum", "[", RowBox[{"cost", ",", "ics", ",", RowBox[{"MaxIterations", "\[Rule]", "1000"}], ",", RowBox[{"WorkingPrecision", "\[Rule]", "myPrecision"}]}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"2.", " ", "Pi", " ", "*", " ", RowBox[{"10", "^", RowBox[{"p", "[", "k", "]"}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}], " ", "/.", " ", "ans"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"k", "=", "1"}], ",", RowBox[{"k", "\[LessEqual]", RowBox[{"(", RowBox[{"n", "/", "2"}], ")"}]}], ",", RowBox[{"k", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"R", "[", "k", "]"}], "=", RowBox[{ RowBox[{"L", "[", RowBox[{"k", "-", "1"}], "]"}], "/", RowBox[{"T", "[", RowBox[{"[", RowBox[{ RowBox[{"2", "*", "k"}], "-", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"L", "[", "k", "]"}], "=", RowBox[{ RowBox[{"R", "[", "k", "]"}], "*", RowBox[{"T", "[", RowBox[{"[", RowBox[{"2", "*", "k"}], "]"}], "]"}]}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"L", "[", "k", "]"}], " ", ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"n", "/", "2"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"R", "[", "k", "]"}], " ", ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", RowBox[{"n", "/", "2"}]}], "}"}]}], "]"}]}], "]"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.655895925298678*^9, 3.6558959502464733`*^9}, { 3.655896076260622*^9, 3.655896109271133*^9}, {3.6558961755825586`*^9, 3.655896206477955*^9}, {3.6558962568679953`*^9, 3.655896265174198*^9}, { 3.6558963040032516`*^9, 3.655896440782225*^9}, {3.6558965101271143`*^9, 3.655896530231656*^9}, {3.655897151658885*^9, 3.655897188311739*^9}, { 3.6558972216537304`*^9, 3.6558972888013906`*^9}, {3.6558973360047483`*^9, 3.6558973363943214`*^9}, {3.655897374583432*^9, 3.6558973840523467`*^9}, { 3.655898156137843*^9, 3.6558981899104652`*^9}, {3.6558982277430534`*^9, 3.6558982296728883`*^9}, {3.6558982617590322`*^9, 3.655898263631784*^9}, { 3.6559020088002486`*^9, 3.655902085969634*^9}, {3.6559038256961765`*^9, 3.655903835256218*^9}, 3.655903991150275*^9, {3.6559058430553303`*^9, 3.655905843966668*^9}, {3.6561077972483826`*^9, 3.6561078158024693`*^9}, { 3.656108486121718*^9, 3.656108486277975*^9}, {3.6562346373918004`*^9, 3.6562347053761253`*^9}, {3.656247016514052*^9, 3.6562470295805645`*^9}, { 3.656247536297082*^9, 3.6562476106151686`*^9}, {3.656247841560734*^9, 3.656247916281782*^9}, 3.6562479720641003`*^9, {3.656248127535838*^9, 3.6562481854263496`*^9}, {3.6562482347960677`*^9, 3.6562482430961404`*^9}, {3.656248347591762*^9, 3.6562483740895853`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"parms", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"GetModel", "[", RowBox[{ RowBox[{"Lx", "[", RowBox[{"[", "k", "]"}], "]"}], ",", RowBox[{"Lo", "[", RowBox[{"[", "k", "]"}], "]"}], ",", "n"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", RowBox[{"Length", "[", "Lx", "]"}]}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.6558977511868353`*^9, 3.655897764444316*^9}, { 3.655898421954414*^9, 3.6558984234215717`*^9}, {3.6558993446230364`*^9, 3.655899345326069*^9}, {3.655900264967241*^9, 3.655900265486009*^9}, { 3.6562347199483767`*^9, 3.656234723982774*^9}, {3.656247175003684*^9, 3.6562471857525463`*^9}, {3.656247647994958*^9, 3.656247649245204*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.02129142422589849`", ",", "0.008393460994519014`", ",", "0.0028748797422730303`", ",", "0.00493747910915512`", ",", "0.0025565294933380133`", ",", "2.2201458820196778`", ",", "1.9308187224385236`", ",", "39.04327326830544`", ",", "206.363234571487`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.018430000856494606`", ",", "0.009178284896934173`", ",", "0.004733951806540527`", ",", "0.0062687631094001245`", ",", "0.002157640003046569`", ",", "2.0679037923684196`", ",", "2.513073381484878`", ",", "63.138717009608015`", ",", "278.4551594221932`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.014762434032487`", ",", "0.010593953620700139`", ",", "0.00881557696273573`", ",", "0.007617271067649506`", ",", "0.001964501257152776`", ",", "1.8999232885000867`", ",", "3.7953759805777274`", ",", "88.68096871126023`", ",", "356.90044083248955`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.010986652877312179`", ",", "0.012653055964193135`", ",", "0.015794143387221807`", ",", "0.008731269578796236`", ",", "0.001839846563654071`", ",", "1.7671989824792786`", ",", "6.25436515811011`", ",", "116.43802330174164`", ",", "441.43568928152547`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.007943459049144388`", ",", "0.016545175464347053`", ",", "0.026443236836323093`", ",", "0.009357818213955852`", ",", "0.001538178110335637`", ",", "1.8332147307541529`", ",", "11.360925677103408`", ",", "143.80181570073023`", ",", "525.0336998947561`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.005659996207219271`", ",", "0.023683638995187453`", ",", "0.0374292215723363`", ",", "0.00978060689898876`", ",", "0.0013044116225109869`", ",", "2.2101264930323716`", ",", "20.339720756113497`", ",", "159.18968473890754`", ",", "631.7587266324542`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.004097262474996722`", ",", "0.03724745123044929`", ",", "0.04771907946361704`", ",", "0.011494594816438145`", ",", "0.001218845621126671`", ",", "3.135747341963125`", ",", "33.5364578340352`", ",", "187.25085168547812`", ",", "876.1801573181575`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.655904449770976*^9, 3.655906300649684*^9, 3.656108454851395*^9, 3.6561088153355293`*^9, 3.6562356492553415`*^9, 3.6562358725296926`*^9, 3.656247143674573*^9, 3.6562473533412094`*^9, 3.656247806868808*^9, 3.6562479407606173`*^9, 3.6562480859894485`*^9, 3.6562483403258038`*^9, 3.656248417846334*^9, 3.6562485305916996`*^9, 3.6563791504371195`*^9, 3.656409925284254*^9, 3.6564878766126733`*^9, 3.6571455320049157`*^9, 3.6572142547364807`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Ls", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"Xx", ",", RowBox[{ RowBox[{"Transpose", "[", "parms", "]"}], "[", RowBox[{"[", "k", "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", RowBox[{ RowBox[{"n", "/", "2"}], "+", "1"}]}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.655898591102947*^9, 3.6558986283997517`*^9}, { 3.655898767084526*^9, 3.655898769688352*^9}, {3.655899210554516*^9, 3.655899211103321*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "15"}], ",", "0.02129142422589849`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "0.018430000856494606`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "0.014762434032487`"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0.010986652877312179`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "0.007943459049144388`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "0.005659996207219271`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "0.004097262474996722`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "15"}], ",", "0.008393460994519014`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "0.009178284896934173`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "0.010593953620700139`"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0.012653055964193135`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "0.016545175464347053`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "0.023683638995187453`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "0.03724745123044929`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "15"}], ",", "0.0028748797422730303`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "0.004733951806540527`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "0.00881557696273573`"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0.015794143387221807`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "0.026443236836323093`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "0.0374292215723363`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "0.04771907946361704`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "15"}], ",", "0.00493747910915512`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "0.0062687631094001245`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "0.007617271067649506`"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0.008731269578796236`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "0.009357818213955852`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "0.00978060689898876`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "0.011494594816438145`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "15"}], ",", "0.0025565294933380133`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "0.002157640003046569`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "0.001964501257152776`"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0.001839846563654071`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "0.001538178110335637`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "0.0013044116225109869`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "0.001218845621126671`"}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.6558986286811595`*^9, 3.6558987725805955`*^9, 3.65589925523015*^9, 3.6559017112392855`*^9, 3.6559025361521044`*^9, 3.65590444991018*^9, 3.655906300722791*^9, 3.6561084549295244`*^9, 3.6561088154136577`*^9, 3.6562358726546974`*^9, 3.6562471438152018`*^9, 3.6562473537474785`*^9, 3.6562478073844566`*^9, 3.6562479417920513`*^9, 3.6562480865047426`*^9, 3.6562484183307295`*^9, 3.6562485310760965`*^9, 3.656379150460122*^9, 3.656409925330933*^9, 3.6564878766594734`*^9, 3.657145532083045*^9, 3.6572142548772373`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Rs", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"Xx", ",", RowBox[{ RowBox[{"Transpose", "[", "parms", "]"}], "[", RowBox[{"[", "k", "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{ RowBox[{"n", "/", "2"}], "+", "2"}], ",", RowBox[{"n", "+", "1"}]}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.655898637824595*^9, 3.6558986538120866`*^9}, { 3.6558987760096397`*^9, 3.655898783168157*^9}, {3.6558992140666723`*^9, 3.6558992146074705`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "15"}], ",", "2.2201458820196778`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "2.0679037923684196`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "1.8999232885000867`"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1.7671989824792786`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "1.8332147307541529`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "2.2101264930323716`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "3.135747341963125`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "15"}], ",", "1.9308187224385236`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "2.513073381484878`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "3.7953759805777274`"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "6.25436515811011`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "11.360925677103408`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "20.339720756113497`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "33.5364578340352`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "15"}], ",", "39.04327326830544`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "63.138717009608015`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "88.68096871126023`"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "116.43802330174164`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "143.80181570073023`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "159.18968473890754`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "187.25085168547812`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "15"}], ",", "206.363234571487`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "278.4551594221932`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "356.90044083248955`"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "441.43568928152547`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "525.0336998947561`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "631.7587266324542`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "876.1801573181575`"}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.6558986546142654`*^9, 3.6558987835767517`*^9, 3.655899255337309*^9, 3.6559017123088565`*^9, 3.655901787345046*^9, 3.655902536245245*^9, 3.655904449980282*^9, 3.655906300780877*^9, 3.6561084549764013`*^9, 3.656108815460535*^9, 3.6562358727328253`*^9, 3.6562471438933306`*^9, 3.6562473538412313`*^9, 3.6562478075094614`*^9, 3.6562479429013405`*^9, 3.6562480866141243`*^9, 3.656248418440107*^9, 3.6562485311854753`*^9, 3.6563791504661226`*^9, 3.656409925362053*^9, 3.656487876675073*^9, 3.6571455322080507`*^9, 3.6572142549708686`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"LogIt", "[", "x_", "]"}], ":=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ RowBox[{"x", ".", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], ",", RowBox[{"Log", "[", RowBox[{"x", ".", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "]"}]}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.6571450500029397`*^9, 3.657145071937269*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"LsFit", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Exp", "[", RowBox[{"Fit", "[", RowBox[{ RowBox[{"LogIt", "[", RowBox[{"Ls", "[", RowBox[{"[", "k", "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"1", ",", "d", ",", RowBox[{"d", "^", "2"}], ",", RowBox[{"d", "^", "3"}]}], "}"}], ",", "d"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", RowBox[{"Length", "[", "Ls", "]"}]}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.6558988237778206`*^9, 3.655898943174259*^9}, { 3.657145076328094*^9, 3.6571451100731764`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "4.5092630108382235`"}], "-", RowBox[{"0.06252885266378244`", " ", "d"}], "-", RowBox[{"0.0007318624268857693`", " ", SuperscriptBox["d", "2"]}], "+", RowBox[{"0.00003384625969143791`", " ", SuperscriptBox["d", "3"]}]}]], ",", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "4.364023815695299`"}], "+", RowBox[{"0.0449098636747544`", " ", "d"}], "+", RowBox[{"0.0014640254151265693`", " ", SuperscriptBox["d", "2"]}], "+", RowBox[{"0.000021416740643339356`", " ", SuperscriptBox["d", "3"]}]}]], ",", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "4.159395734474093`"}], "+", RowBox[{"0.11146200215087744`", " ", "d"}], "-", RowBox[{"0.0013268610136655263`", " ", SuperscriptBox["d", "2"]}], "-", RowBox[{"0.0000793002434058751`", " ", SuperscriptBox["d", "3"]}]}]], ",", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "4.763058338075178`"}], "+", RowBox[{"0.01837196256498792`", " ", "d"}], "-", RowBox[{"0.0006066072088741759`", " ", SuperscriptBox["d", "2"]}], "+", RowBox[{"0.00004320123286877544`", " ", SuperscriptBox["d", "3"]}]}]], ",", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "6.348993885642963`"}], "-", RowBox[{"0.025088333383438074`", " ", "d"}], "-", RowBox[{"0.00003498360676773147`", " ", SuperscriptBox["d", "2"]}], "+", RowBox[{"1.5902697152517024`*^-6", " ", SuperscriptBox["d", "3"]}]}]]}], "}"}]], "Output", CellChangeTimes->{{3.6558988442539067`*^9, 3.6558988659257507`*^9}, { 3.655898906005641*^9, 3.655898944226802*^9}, 3.6558992556027007`*^9, 3.6559017123689475`*^9, 3.655902536321354*^9, 3.655904450060401*^9, 3.655906300836961*^9, 3.656108455054531*^9, 3.656108815523038*^9, 3.6562358728734574`*^9, 3.656247144127717*^9, 3.656247353966236*^9, 3.656247807603215*^9, 3.6562479440890255`*^9, 3.656248086723505*^9, 3.656248418549489*^9, 3.656248531294859*^9, 3.6563791504921255`*^9, 3.6564099253776126`*^9, 3.656487876690673*^9, 3.657145532645569*^9, 3.657214255622953*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"ListLogPlot", "[", RowBox[{"Ls", ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"PointSize", "[", "0.01", "]"}]}]}], "]"}], ",", RowBox[{"LogPlot", "[", RowBox[{"LsFit", ",", RowBox[{"{", RowBox[{"d", ",", RowBox[{"-", "15"}], ",", "15"}], "}"}]}], "]"}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontSize", "\[Rule]", "14"}], ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "}"}]}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}]}], "]"}]], "Input", CellChangeTimes->{{3.6558989452613187`*^9, 3.655898966235139*^9}, { 3.6562433979677677`*^9, 3.6562434350307465`*^9}, {3.657233022685458*^9, 3.657233043681717*^9}}], Cell[BoxData[ GraphicsBox[{{{}, {Hue[0.67, 0.6, 0.6], PointSize[0.01], PointBox[{{-15., -3.849450905841767}, {-10., -3.9937754608275573`}, \ {-5., -4.215669566055465}, {0., -4.511074117708776}, { 5., -4.835406450083502}, {10., -5.174332056869872}, { 15., -5.497436217300653}}]}, {Hue[0.9060679774997897, 0.6, 0.6], PointSize[0.01], PointBox[{{-15., -4.780302329318219}, {-10., -4.690914922204039}, {-5., \ -4.54747185375308}, {0., -4.369856514786836}, {5., -4.101660732385435}, { 10., -3.7429708069896845`}, {15., -3.2901717598411953`}}]}, {Hue[0.14213595499957954`, 0.6, 0.6], PointSize[0.01], PointBox[{{-15., -5.851744434382269}, {-10., -5.352994948225112}, {-5., \ -4.731235012893533}, {0., -4.148116079359772}, {5., -3.632754849542927}, { 10., -3.2853035541739546`}, {15., -3.042423972306944}}]}, {Hue[0.37820393249936934`, 0.6, 0.6], PointSize[0.01], PointBox[{{-15., -5.310900379821039}, {-10., -5.072176215025886}, {-5., \ -4.87733710103164}, {0., -4.7408444925797}, {5., -4.671543112463507}, { 10., -4.627353741749425}, {15., -4.465878370066958}}]}, {Hue[0.6142719099991583, 0.6, 0.6], PointSize[0.01], PointBox[{{-15., -5.969104606902899}, {-10., -6.138740245781072}, {-5., \ -6.232516879030726}, {0., -6.298073100156765}, {5., -6.477156608143633}, { 10., -6.642003203853458}, {15., -6.7098510803695675`}}]}, {}}, {{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwt1H0w1HkcB/DlGtdJu799+A1KO1ZrreyP1OqyxDd5inPZmqXIyeOpFe64 ra7OIYVzZbSX3FFUiKnEJQ919LnUdUvJQ7TsKKSmtSu5tVpa7e3N3B+fec/r n/cf7z8+rNjUnQmmJBIpxHj/pYciQ2UwECANsvvV7zEZ5G0XZ7Z/IAAXmG4q M1pS2qORzhPwJWW12azRDSKu3mGagMjr497ne8jA7lVYhI4Q4Fawzlr3hAwW D3ycK5sISA5SRrX0k+F5PfYN2k/Aoj/FfK+cDNk51+az+nmwXVbxh+ckGQos xd3VhU5Q5RUef4VEAeZ97uX0iHUw2HQuMZFJgSV2Eu7l4gg7DGGPjnlR4EK6 s/DalANMO071H46nwONhTVHnHQ6Mqu579f5EgQ4ClWam28PSX/LgAy0UWHAj e2xyZYOsbXTQ5TUF/hQpxkqWrYWOhGdlruYYBMe5hJZ1sKCvjV1YysYgLj/n XuBpW2DbLQ0e8sKgoLP+wquHTEj/Ma58ZjcGvcLE4GxkA82XbzQ/k2CwgWLz MWXSGsJPbb3UJ8XAqvbFtiqRJZxXPNixuwmDM3U1Hf39DFjWuEoTMYiBw4jY e9dRGkSNVptTtBhkPfqhZtMEBQoiG1MTrKig9LEdOcBeAZUiOk8goEJk2vON ziZmoOsYZt2LpsJcyuX3L7UkaIKaf1JPUCHvnOz00Rzd3X3N0BdYRwVx5qfa 38rVd7m8Eb2ilwr+p0Z059cM3I1foW45OE8FbM/a2kSvfm+7FkuXR6tpIO1k WSzETntX+K2hTPrSYHy9bZAlR+ftUyQ83SymgXa5fky2wQQpuqNEW0toIOSO /35WYIbS2vlP04AGEqXscLvKHF3UEyuZb2jQdSTYwskEQ5vLunwz6HToeLIx zD6GhjbImrkOnnRgtluJObcYSDxRftIzng6LPTPqFx6W6AuB2nOyiA53Gv9O Cjhnjdx3Fh643UoHXatU+LW9Dapt4Sgpr+hgXbyP75bPRKThocQjZAbsIuGz uam2iPMO7VrxOQPCu77NDG5iIbJfTvf7WAb0HOtbvv+lHbKsch8cKmTA8a11 sgknNsrdVv14toUBb4WGmegUe+TbO99q8pIB3UFhdH4ZB+WfZDZOmePwWsQ5 GD/ugH42vChWuOGQsf19p4rqiCr2jmaUROHQmu+fJfFch8JahXRuLg6CEXJ6 VJYT2r2lyirvOg7ODHlsWT0PlR4sTqoawCEob3Fu7CYP2QQcyQh5ikPiok0e p42HJibJknmjK8ZirjZ28lCKKz8icAgH7LpK81DOQ47J+mqVHIdZP0PunCmB TEXOgeuf49B0iHMlJJxAzpGp5Y1vcOidCnSX7iWQRFYftkeJgzpK3C2PIdDQ Gjszkykc7H0bZuKSCbR6y1nfUBUOJZhg8/fZBBLd9PF+O43D4boQWc1VAu0X J3C5Ghx+sUmLVDcQiCVYxX9idEPRmWnXZgKNGh7wJXM4KL97Rm0HApXzNYz7 WhwifGIiBgYJNFDpHhqtw0Fy67jaSkGggBMen5gt4HCGW5P51RiB3JT41WtG d5FVl5RTBGrV+A4vLBr3zl7p5vKOQMn64ujKDziYal0eZmiNfYG1I/56HJhJ O/fcXiTQx89yg6aN/v9/oQ9prBvSJRz+BYYmV44= "]]}, {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData[" 1:eJwtlHs0lHkcxkcXOa8x3nmnSew0UczIzDui2GrK/KqtGMfKtDgxyaVcUiEa bUpjOEu1676phKxtylEOVkqF7zbtSlmmKREtQm3MMEpySVl7zv7xnOd8/vg8 fz5WwVGS/fMoFIrHXP5rYVecdnaWBKpLX+eO5QzoqC3Wu30iwe4TnrdijmXn W8ZyPpLQ15ru8ZnNgApv2xnuMAmePdGlVXNsre6i7uwkQRRdyFo2x9Q/tggu V5NwhcfWj7IY0F2Ox6CIOT9LuS7XggFJiusf5Ro+2IVlfH7IZMBps8jHV87y wFOSpaUZM4D9wLYk1s8O4sgl4nwKAz5bhzNd7FeBUCpO040TUBgr8Lo+xIVM mZPdk0EC/noxlqG6y4FtW6U5lG4C6kl0PjHWBkbiB1IuqgmYcqIJnR2swbvN 6qL6PgG/e3f1nluwEvRl5gf8bxLgHmK/M7/eCq4yFZZMJQEhaYr7rumWMKDj +3PzCDitKi983cgG5bsJ579TCVB7hbonIRYcHDR6q5AR4GjK+nJ4wByqiqbM c/YTsPRaz9Zfvc1g9MQNo70SArJLlfUazWKIzqQ1FrsQwO2MFO1KIKDlVrwu lEeAvPmk0rnPFI68iEKFTAIGt1h2HrA2hk9nxgaCKQT4R3evERgYgjhsk2HA Wzp8OFwy0T9OgdvyGemdVjqk5jWlJygmG2ICRrMe3KJDZOKi8YuXdA21J4NX VV2iw/afOicLlj1tkCf1D0kVdMB3r7wW6qIRabN7QlLD6JCjsqJOBQ+LyooE 20RudHi12lJsxpkUsbZqfV7y6DBuNNPb5GiAClb7vm7A6OBl+6rq5w2GqD5u vpH+LQ6ywaZjdVoM5Ro8b3d4iMOj792pPAMcLVn40sqvBIf61jU+NkEE2imc UVw/hQO7bmkk5+Zi9KTwinO8Pw7TLXpdj9AMFXQ19qkccbhb+TB8R545mlqy wCHaGIfJ2zleYTYsFPqF23a+3hTMswLXOqWx0bq2e+bbI0xhF4X5LiXKEr2/ 3/6gizAF30dHEt2rrVCN4/CliUoatJx4YhTRvwL943ZcnPIdDZI3lzb18awR vf1gQ7/WBEa8ZvV7D9ug1oTm2uokE3gs9mGszecgCVWaLf/KBN54cw7te8VF 3bUzwYJSKsS5Tai09FWomF/QbiGkwu207XLZRjvE8J1yoDQbw4ZOWuweOQ9F BWqeajyNQbC4Izi/nI/YsgvLEzowEKdOf+j9jY+Gwo+eCXiOQeg0K5VTy0cv 7kVUbn6GQVFvUFmlio/UKG3NIjUG+A3tWGMHH238k2mU0YjBu22zKR/mkSjQ XjiSVYNBdTznqocvifrq3v+4LxcD9ZDr+hwpidZ/mxIjysZAtyfycUcQiWQL c+kWmRjYfFOhDzlIot3FFiktZzE4h29YdzyJRJr8TY5rkzE4VurRpCwj0cj8 kvL3MRjksqL9dRUk2nztmWtTFAYVGdnDDjUkkvp8XVh0CIPBo+30OiBRSdqJ 4+4RGPhtCfJ72kaiU5JTk0WBGMhuJuuWdpGILamKjAvAINtWmRjQS6KPzfoL rlIMHtG0vwwOkch4WMYd9cXgTZKJk/3o3N5IzQ8qbwzmjds3xo2TSGA9cvnc LgzY4ZLdd6ZJ1HHXTBbhhcH//4Va+wWGGz0x+BcU9FAS "]]}, {Hue[0.14213595499957954`, 0.6, 0.6], LineBox[CompressedData[" 1:eJwt1Hs0lHkYB3C37K/BmMEYleZQjDHzviyiJpafUa7VUtGJZXPJbZbcIl1s SbmtrLtSpItLyqEk1cYjqXUpli0TLdNFW0xNhZIt9t1z9o/nPOdzznOec57v H49h0K7NO5UUFBQCqPqv244kTC4skJA5nt4si2OD5Hql3O0fyot6JxQoJ5Y+ mCr4SEKWSvkiViwbGrx5X0zekJDEXiS328UGo/4Rdc9hEghJXl62mA3qnSKz 000k3JhfvcwohA2j9YxYHEGCYr1rlMibDYdSL348OEAAqUSLtV7Nhky2uOd8 tgDKJDHJXdO6wLnDOxvvy4eHo8tKPK7qwlejcJa9uSmkba6J7tytC+XxZl4X J0wgJtxyJNtcF+4/nsrtuMkFjnBWIpWxoJXEpSnxxsB0Ct6ZdpYFn63ptjYW RpBITiUd8GVBu/eItFhlJTT7FDGLWCzwCDb3LGs1hObpMXdOtw4EZ6Tedj1m APZmfIHOYR3I7KgvH7/HAW5QqeEXOx3o9wr1OIT1QXMPTy/rnTZYaurPR79Y An02UaYfarRBr2bM6Rx1p3+/ix3hpw35tVWtAwM6sP28c3InXRtMhsUOW/Zp wXDuhjOF97TgYO+BKptnmpBv6/X2l71a8FpkMBxppAZDzwbOvLXUAr+YUSsz RVVorQ7/AONMmI4+++n5jAJIy1ucMk4wIb2k69i+1Nm2xuyf82a2MkGc8s3M iZOyNhGtznAjjQnOOcOzp5YPtkmyk7ZHdzKAsX1lTaj9gMMBnRPC3lQGFHQY qn8OeuPgls3Hp2wZ8PRbA3c2d9Zh1aaHZM20JsygL9IuS0UsXu+nORahCV68 p5eL1qriWacD4ooXdEh83bXn1iQNW1QWB9qJ6dCd7KEuUGRgtWOMv75OaEBr n5WPcaAW5mQ90qxP1ADOLT0x96oOln6dL1FHGjD3QC4bs2Xjvkvnz6kWqsPN xt/DXUqWYFHCkYrbAnWYbSnwCjPWx10RN10929RgSd6OVdYZHDx4+nFafoAa bFFgvU/bZYCj/fu5hIoabOuOS/FoMsQqRaZPvKpp8GD/Hyji+QpcurPX5bY3 DQ471nY9Exhh7+lsIaFMg7deC/Ifo43xlua5MquWxdDj7qO9qoyLX6ncjX+X tBheenOjQp6aYFZZe3v9msWQ4PapY5Jpis1FLvNjyouhJcP5YKIdH1f+vdae /wjBfC1T/6gjH1u/2BYa+xDBup4n14qc+ZivRyhf/xNBv0a8vMmTjys2Ccvc BhG8yq8ImArh41xGpXNMPwK9U7N2MTl8/H1bYulgN4LkxgufI0ap/SntxR/a EKwdpsf7HxTgzza0uKI6BCsW7kfqHhHgMeWllSqUaUY5QX2ZApwTKRQmXEDw OEpts2OBANN9hs9trUWwRxFZGFcJsM+ImnhpNYJrPEW5rEeAQzaEtV4/g2BV 0lTkfjaBn1rdH3Y5gUD/5OUga30CuwbUrbtzHIFKe6zvWwMCT9VYLXGkPEh7 57aDT+BX8t1KdqUI4splvHXfEXg6mTdkU4ygsXP8pVowgVWJnwtxPgIzHUlQ WT2BI+Kh5VwWAvf0uWnpFQJ/lU8+NqAcOqefzr1O4PIW5dRTmQgqpIF1jR0E VvzVIaw0AwHj0uTUPQmB6YuepBceRfB+/ULatBKJdyeut6hKRdCUxK3euI3E Cq86K833UXlPuAoLfiCxky+947e9CGT+4h5JIIm9eClR7pSN1zXIg38i8V3h soCwZATFjLVr9h4i8eiYfUN1EpVX7cauqjoSz1R1mYgSEBTqx/jJGih7jj8f ikfQkJv/xqKZxBWj6/nRlF/vHmLeAhJPqC73ORmHwFcU6Dv4kMQGQjaxEIMg 8ephmd4IidfUb7Q7TjmfV5USIKXmu7cNWVHupk+eeT1BYm1/s/rIXQheHtKw Nn9H4qOHOROqlJVmzO8lzJA464pp49loBJzwzdtvzJG4vDNQ2ZHy//8c2+dL pKNRCP4F/hi+ZA== "]]}, {Hue[0.37820393249936934`, 0.6, 0.6], LineBox[CompressedData[" 1:eJwt1Ps31Hkcx3HJ0gr5XmZpV3PGbcjMZ6Qol+IzadFYlURRbRllMUVFmkpy a+myClspulGqdWlsdMjindmyg6zLVtPYrSldlhm557rZ2XP2h9d5nsc/8DIX xqzfqa2lpeWn2X9164pTzcwgqFQGJ1zzYYC8+lr/6ikEC9UbtGZrHJ/bOpzz EUHgc+9rO7wZIAm0nbbpQ9Ar1nO19WKAVVuXwToFgjulpx5JPBlg8HAl72oF guahGz6N7gx4UWa8F0ci2Eu3yD93YkBySsnHpA4ulH+6Gf7GnAHHTUTNN05y QDtN0K2coIH5q21hbIgdTLTzu/2f0vCPVQTD3X4h9CYJaNNKGi7H8vxLem0g eN4Fi45sGh4/Hz4trWFDfl71YEwcDXUI5ybGWkNE6XVdh0AaJpyM3JY6WEGN JbeK7UzDg8Au5TkdSyh/kKt7gEmDb5j9urw6c5hitbRROjSEZaQ0+GSyYNFf YzUNagqOS8suv21kwuDhFSzGMwra/MN9k7EZaLcsF3QABYvnmX2KfjMfjt5d IuOWUmB666Xn9UATiLFjRetfoCD7dlFdRwcNevfjzgu/p8BGIfIIOExCSLpD qmo/BUktR4qWvp4Hzc5rPXV2UtCzkqWIspoLtxK2v6aCKNi858US3ixdqLNp H/vFi4KR6MKx7lEtmJupxxc7U5B+XpZ5OGW8ftfpY7mtHApEiXqjF/PV9QcD lCeqmBR4/aAYv7Sgs77C95ClAUWBcbDlrXD3Do+H2oYjRnMoyJGaG0wI+zyW HaWqz06T8GoRS2DCHveoF36TsWKIhNE500rZ4llYxBOqN78nwd/21c9nXXXx 7FWKt4N/khDfIxPXqvRxw5qhgshOEpoO+hpwZhnjxCidi04yEup+XxJkHUpi 0b6QZKgngVlrKmJX0ri+pJZz5B4Jk6396pduJrj4gWepsISEmvLfIrzPz8dn 5JFLFQUkjFfl+H9nbYbvCq+HB+WSMD9ru6NTBhPrOFi4CTJJCNBiDKbFsHBT oYk3J42EjU37En0rzHFDgVdSp5iE1oT2OZHdFjjroNWTp7tJSOXflr3mWOFW /am10aEkfPCf6d8WbY2v/vT4fskGEpoFQZRjHhvPWFy2dfQh4V0ge/eOVzaY 71cc/8mFhLjVY1IVsRCX2gWPfsYloSrDKyl+uR32TMvNyV9AgqvCKHZrEgev fUS/MTMkgUfLhXllXNydeiXj+TQBgvTJEeVdLk7dZ9+XqXH4pFk6u5qLn1X1 eKzS+IoytLhcysUDCtmdsikCjEtVw41yLt4WLKlKmSRg8OuZtBFthCXCJ1E2 4wRUHGDf9NuIsK9UzAsbJqCt18clZwvCJ/P+XvOFxuqtomZ5KMLe7u+3yIYI sF4l6Q/bhfCZvUf49hqfM3Z1PpSM8B+xx7iTAwSIb/vJiooRLtOXHjv1gYAf zfZsVksQdnSRJ7hrLDmd3edwD+F8ES90oI+Anv3PiFpAWBR1YjBA45CVoSGd TxAWV4gXfakmIL4yVW3ahfDRd4ZZzSoCsm2LEr9VIvyVS+2LBI2bjFQFPb0I R7YG8V/2EvAu2dDJfgBhn03Lgs5orD1q3xg3ijAji7mJrzEzYn3w/UmEw/P1 vId6CPj/v3D7pT6LQo3/BSOhU8M= "]]}, {Hue[0.6142719099991583, 0.6, 0.6], LineBox[CompressedData[" 1:eJwt1H8w1HkYB/ClTqb8WB233+9nt43sLuG7lFTHxSddpXU1YTCiH0S/NqVb yVHOjwyuLhPV6se5VEc7yW2h0OHJZmrjCm3ZVmkpRbtOYYtN7X1v5v545pnX zPPXe+Z5O8XtDU0wZzAYa+n5b/v1JOtMJgo2BMqqj79ngbq+bGTNJwp2agoJ Je2UkgdjxR8oEC6rzGCMskAe7jrlMkyBozZ33V7avI4eq/UaCmIs66d+GGOB VWug8HwNBaFB5sWWBhb0VjH34Z0UDN3wK8+cYEFWduWHzC4PyFU5b0k2saCA JW7744g7OLyriJDaEMC943pRssENFtWuG2vnEPCZt8PB33M+nE5seNPuRkCp RBhS+dYF4gf9e2x9Cfj76Vih4pYAtiyxPrk5iIAmCpdkSPhgO6XOHo8kYNLH xm/xAh5kMXJbQrcTcDu8R3tqujOo59hRdfsJCN7quf5skxM4f9b1x+cSsDU/ uyXomCN0y6seOpwgoEBRVTpwlwvTr7byfrlAQEfItuAszIE82fC+1dcJWGjL +bLnFQlNk7O4028TQFx+seJSOAsiNM1zZnUSUCQrb+rqsodDnSovlZYAF404 ICx9NoxOs3MoGSEgs/1Q+eJ+Wzg+NhpRYSJgKNBRs4s3C9jVLaYqGxKik3q9 hWYW4OMf0W0+l4TxPRc/vjQwYMVpRo29Jwl5UuWx9OyJZnYpcwbbnwRxxgzD mXP65sO1g68S15Gw6lfNxG9zHjWXxuRxqzeSwIxyvrzNvytAnh4nuL6bhGKF k9Vk3HDAU+nc2s8HSejzchSxBBMB0kDN9qVHSTBYTmmVC81wi1FyuvkcCSGu fddP+lrgSf43DV8qSUgZUqY26mZi5kAO2+0vEu7/FGzlbsbEeTP6RGXtdC4P vSP4sbNx2s2v3KY9I4HbSIgFtfb4yMNCFakjwfhgRP/Cj4WNkTEr0j+RcOva vR2rpSR+LDnl2ToTwURdcch2Pgfn6xsZUWwE5PEti3zyuVgnPWStckMQxnB4 f3ivIxbq+l3NfBFE3v8xI7jGCS+5cnN/igjBg4OdljtfzsP11QcSOqMQ5CyX Kfvdedg7nsGR7ELwT4hpZPMePubLbVLvpCFoE0V8veisAOv/jFxmLEDwOlyQ GN/nghmakk3JZxAkr/mo0NnNx2nKm15dMgR1+asyU75zw4MKi8W9dQh8NTaS jZnu+OSCyF53JQKhvTrubJUHft5idilGjUCUZxzXVnvglULZrvO0txk5eYJ6 D8wue+L1ivbv2tgr1xQeWD3Qckv8FAHzqm7srtoDGwZ72tI0CN6vNB0eN6ew Et6oSp4hqDkgqFgbSeEwW0GBSoug423Qt8UxFO6v8MFEHwL9RnGbOpbCFsda P0TT5n8vH9m6m8KqIwlxL2mfYvouTcui70Vl3qP9CFJla5XlVyj8/PaLRtsB BCc4SdF6OYU7G3p3h9GWFxYNL7hB4UReNFtKe2h/t10jUDihqC2F+xrRPRK7 4dFjCsuf5LpQbxCk1OboiR4KB4eKu5JoF7mWZ2zSUpjoaD9YQ/u+je7C0FsK W7OndfgN0nlnWft4vqOf+Gh36s+0zQ2ed5MNFEZrXJwUtLk7QqMajBS+M2/0 nsUQgv/7C9/TLUkS0f4XEt5dyA== "]]}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{-15., -6.7098510803695675`}, BaseStyle->{FontSize -> 14, FontFamily -> "Tahoma"}, CoordinatesToolOptions:>{"DisplayFunction" -> ({ Part[#, 1], Exp[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Part[#, 1], Exp[ Part[#, 2]]}& )}, Frame->True, FrameLabel->{ FormBox["\"Coil Displacement, mm\"", TraditionalForm], FormBox["\"Inductance, H\"", TraditionalForm]}, FrameTicks->{{{{-6.907755278982137, FormBox[ TagBox[ InterpretationBox["\"0.001\"", 0.001, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-6.214608098422191, FormBox[ TagBox[ InterpretationBox["\"0.002\"", 0.002, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-5.298317366548036, FormBox[ TagBox[ InterpretationBox["\"0.005\"", 0.005, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-4.605170185988092, FormBox[ TagBox[ InterpretationBox["\"0.010\"", 0.01, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-3.912023005428146, FormBox[ TagBox[ InterpretationBox["\"0.020\"", 0.02, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-2.995732273553991, FormBox[ TagBox[ InterpretationBox["\"0.050\"", 0.05, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-2.302585092994046, FormBox[ TagBox[ InterpretationBox["\"0.100\"", 0.1, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-1.6094379124341003`, FormBox[ TagBox[ InterpretationBox["\"0.200\"", 0.2, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-0.6931471805599453, FormBox[ TagBox[ InterpretationBox["\"0.500\"", 0.5, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-5.809142990314028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.521460917862246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.115995809754082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.961845129926823, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.8283137373023015`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.710530701645918, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.506557897319982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.6592600369327783`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.5257286443082556`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.4079456086518722`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.2039728043259361`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.916290731874155, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, {{-6.907755278982137, FormBox["\"\"", TraditionalForm]}, {-6.214608098422191, FormBox["\"\"", TraditionalForm]}, {-5.298317366548036, FormBox["\"\"", TraditionalForm]}, {-4.605170185988092, FormBox["\"\"", TraditionalForm]}, {-3.912023005428146, FormBox["\"\"", TraditionalForm]}, {-2.995732273553991, FormBox["\"\"", TraditionalForm]}, {-2.302585092994046, FormBox["\"\"", TraditionalForm]}, {-1.6094379124341003`, FormBox["\"\"", TraditionalForm]}, {-0.6931471805599453, FormBox["\"\"", TraditionalForm]}, {-5.809142990314028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.521460917862246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.115995809754082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.961845129926823, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.8283137373023015`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.710530701645918, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.506557897319982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.6592600369327783`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.5257286443082556`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.4079456086518722`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.2039728043259361`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.916290731874155, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}, {Automatic, Automatic}}, GridLines->Automatic, ImageSize->500, Method->{}, PlotRange->{{-15., 15.}, {-6.7098510803695675`, -3.042423972306944}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}, Ticks->{Automatic, {{-6.907755278982137, FormBox[ TagBox[ InterpretationBox["\"0.001\"", 0.001, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-6.214608098422191, FormBox[ TagBox[ InterpretationBox["\"0.002\"", 0.002, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-5.298317366548036, FormBox[ TagBox[ InterpretationBox["\"0.005\"", 0.005, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-4.605170185988092, FormBox[ TagBox[ InterpretationBox["\"0.010\"", 0.01, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-3.912023005428146, FormBox[ TagBox[ InterpretationBox["\"0.020\"", 0.02, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-2.995732273553991, FormBox[ TagBox[ InterpretationBox["\"0.050\"", 0.05, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-2.302585092994046, FormBox[ TagBox[ InterpretationBox["\"0.100\"", 0.1, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-1.6094379124341003`, FormBox[ TagBox[ InterpretationBox["\"0.200\"", 0.2, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-0.6931471805599453, FormBox[ TagBox[ InterpretationBox["\"0.500\"", 0.5, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-5.809142990314028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.521460917862246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.115995809754082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.961845129926823, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.8283137373023015`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.710530701645918, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.506557897319982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.6592600369327783`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.5257286443082556`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.4079456086518722`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.2039728043259361`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.916290731874155, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}]], "Output", CellChangeTimes->{{3.6558989546571255`*^9, 3.6558989665546055`*^9}, 3.6558992556938343`*^9, 3.655901712484113*^9, 3.6559025364855957`*^9, 3.655904450188588*^9, 3.6559063009491243`*^9, 3.656108455148284*^9, 3.6561088156167917`*^9, 3.656235872998464*^9, 3.6562387451578293`*^9, 3.6562387775309706`*^9, {3.6562434107029314`*^9, 3.6562434358901606`*^9}, 3.656247144518523*^9, 3.6562473541224957`*^9, 3.6562478078063536`*^9, 3.656247945823352*^9, 3.6562480868799024`*^9, 3.656248418737277*^9, 3.6562485314823647`*^9, 3.6563791505541315`*^9, 3.656409925735488*^9, 3.656487876753073*^9, 3.6571455329425955`*^9, 3.657214255763588*^9, { 3.6572330237322245`*^9, 3.6572330441504917`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RsFit", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Exp", "[", RowBox[{"Fit", "[", RowBox[{ RowBox[{"LogIt", "[", RowBox[{"Rs", "[", RowBox[{"[", "k", "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"1", ",", "d", ",", RowBox[{"d", "^", "2"}], ",", RowBox[{"d", "^", "3"}]}], "}"}], ",", "d"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", RowBox[{"Length", "[", "Rs", "]"}]}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.6558989328981543`*^9, 3.65589893831712*^9}, { 3.6558990120925217`*^9, 3.655899023967969*^9}, {3.657145088688068*^9, 3.6571451258034053`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"0.5786168084100802`", "\[InvisibleSpace]", "-", RowBox[{"0.004137366529459777`", " ", "d"}], "+", RowBox[{"0.0017528405445523848`", " ", SuperscriptBox["d", "2"]}], "+", RowBox[{"0.00006989393568492494`", " ", SuperscriptBox["d", "3"]}]}]], ",", SuperscriptBox["\[ExponentialE]", RowBox[{"1.8513252190272667`", "\[InvisibleSpace]", "+", RowBox[{"0.1118170399678359`", " ", "d"}], "+", RowBox[{"0.001060894098530919`", " ", SuperscriptBox["d", "2"]}], "-", RowBox[{"0.00007395035572774562`", " ", SuperscriptBox["d", "3"]}]}]], ",", SuperscriptBox["\[ExponentialE]", RowBox[{"4.755926412094395`", "\[InvisibleSpace]", "+", RowBox[{"0.044051278404721304`", " ", "d"}], "-", RowBox[{"0.00138299135574823`", " ", SuperscriptBox["d", "2"]}], "+", RowBox[{"0.00003547233145756423`", " ", SuperscriptBox["d", "3"]}]}]], ",", SuperscriptBox["\[ExponentialE]", RowBox[{"6.071362708215608`", "\[InvisibleSpace]", "+", RowBox[{"0.036085368557542484`", " ", "d"}], "-", RowBox[{"0.00012230439672100023`", " ", SuperscriptBox["d", "2"]}], "+", RowBox[{"0.000053483940526313646`", " ", SuperscriptBox["d", "3"]}]}]]}], "}"}]], "Output", CellChangeTimes->{{3.6558990196095643`*^9, 3.655899024286433*^9}, 3.6558992557358956`*^9, 3.655901712564231*^9, 3.6559025365216494`*^9, 3.655904450273712*^9, 3.655906301017225*^9, 3.6561084552107882`*^9, 3.6561088156792955`*^9, 3.6562358730922165`*^9, 3.656247144627741*^9, 3.6562473542006235`*^9, 3.6562478078844814`*^9, 3.6562479488708096`*^9, 3.6562480869578876`*^9, 3.6562484188151226`*^9, 3.6562485315604973`*^9, 3.6563791505661325`*^9, 3.6564099257666073`*^9, 3.656487876784273*^9, 3.6571455330205865`*^9, 3.6572142558729677`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"ListLogPlot", "[", RowBox[{"Rs", ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"PointSize", "[", "0.01", "]"}]}], ",", RowBox[{"Joined", "\[Rule]", "False"}]}], "]"}], ",", RowBox[{"LogPlot", "[", RowBox[{"RsFit", ",", RowBox[{"{", RowBox[{"d", ",", RowBox[{"-", "15"}], ",", "15"}], "}"}]}], "]"}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontSize", "\[Rule]", "14"}], ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "}"}]}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}]}], "]"}]], "Input", CellChangeTimes->{{3.6558990343081636`*^9, 3.655899046955747*^9}, { 3.656243285777796*^9, 3.6562432888873105`*^9}, {3.6562433256301303`*^9, 3.6562433773949237`*^9}, {3.6563799350465727`*^9, 3.6563799383459024`*^9}, { 3.6571455472712574`*^9, 3.657145549536989*^9}}], Cell[BoxData[ GraphicsBox[{{{}, {Hue[0.67, 0.6, 0.6], PointSize[0.01], PointBox[{{-15., 0.7975729063466849}, {-10., 0.7265354334984367}, {-5., 0.6418135108836852}, {0., 0.5693957973423001}, {5., 0.6060711091617608}, {10., 0.7930497505579375}, {15., 1.142867532266424}}]}, {Hue[0.9060679774997897, 0.6, 0.6], PointSize[0.01], PointBox[{{-15., 0.6579441214831686}, {-10., 0.9215064588851724}, {-5., 1.3337834785562277`}, {0., 1.8332796452604836`}, {5., 2.4301798956337404`}, {10., 3.012575661721527}, {15., 3.512633140622183}}]}, {Hue[0.14213595499957954`, 0.6, 0.6], PointSize[0.01], PointBox[{{-15., 3.664670601992925}, {-10., 4.145334163151587}, {-5., 4.485045308360755}, {0., 4.757359142623241}, {5., 4.968436071776983}, { 10., 5.070096476957442}, {15., 5.232449170774051}}]}, {Hue[0.37820393249936934`, 0.6, 0.6], PointSize[0.01], PointBox[{{-15., 5.329637890664767}, {-10., 5.62925703894354}, {-5., 5.877456865666239}, {0., 6.0900323452924585`}, {5., 6.263462450807242}, {10., 6.448507559599816}, {15., 6.775571728830463}}]}, {}}, {{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwt2Hk0Vev/B3BOMsQts2SIzHFIRaL6PBRFUfRV0S1Thih1zRKXEEqUuULD kZSSSjcN7B2VDJWoCHHax3RMOYNM4fe01u+vs15r7bX3s5+99+f9Xkfd84ST N01AQGCZoIDAn1+LzpDhhQU6GRlSov81gw3tz278tJ2lk7vSx2tUsMPyPvAy f9HJ9C2fO49cYkO5s+5vnVE6mTWmnslJZ4Nmc6fEng462XyDUF58gQ0Sb6wM r1fQSX71rlrZJDZ0l0n+g47SSSkNTm7bKTbEnbn3K7bFgBwWjzaecGdDikJA 463z+mTg3+2/alaxQfW1LiPYdTVZknr3UeuPQZjT9JPbYqRHnjDSWhySPwiF wYaO94Z0yFVFrwyu7hyE99946bUvtEmersW127MDUE1HeTHBWiRb6aQI7/oA TJsstTA11iTjPmseLdo2AK+cO5k5QhokY7hF4shIP+z0MtpztVqd5KtuuUk/ 3w9eyWdqdqSpkaGf4nbWGvVDSm1ZYV+dKjk+pli36WsfNDv67IxDyuQ272ia QFgfrF2mPB/Yq0iWdNh5Nqj0wfKSnq1Fzgqkhs+2xGqyFzLuFFe3tMiSl0tp x9v9ekGnIwD2RkmTo7IaBx6v6IXYpuhiU2oZWd93K5nTwAK2lVqHv6Y4qRDW IcRLZMHBk93rDAWFybvhF9bNWLKAH8iYZE0IkG+JHqkpYRb4hlCHpVgCpOgS 9Qh97I5I9bdbmgXIo4fNnN0Ws+BVwrWsy3cFSKSeH/JuEQvSrlw13u0mQP7N Uba/LsCCPak6bSGXFgjjptWpPjMUVJqLEuob5ggH3oMohzEKknLr06LOTBEH QHMou40C7diIr3ddpghC+enHb18peO2no9qxZopwl9B2UMWmmSfeN+uZJLbC afk7nyk43YWaJiwmCdVqm843nygIUq8UOzkxQdwLMfdVbqLgcGlxwhE/HnHg 6EcFeEXBXKZzUybwiKMZnkk5JAX5p4Vka+V5xIYn3JwxgoJv9p4M9TdcYkJo LOd6NQX/G1ep6VbnEpdyL6hJvKTAziR74UDnOPHu+75UwacUBMSITFzJHyH8 MrY5+96nIFVO643XnhFi0MhH8Ps9Cu7ds8o2EBohUh6shb3YYx3RJtUBw8T5 +cSTlqV4vRv4oT/Mh4hF0XoPNO9QEDnO/KXzbYCIEhF8I3wL74/n86kKORZh XN6Ra15AQcl027voeopIvWzTWpNPwbuLE3k20RTR+WB18U7sJcSaje29P4hS CTkZt6sUpCndjpx9zCRSdM8uvXCZgtV3dCbii7oILj+sYnEOBTYXOqYKVFoJ gy1RggHpeL3Z+/rpyS2EyrroaFFsmcKW1iruJ8JLsPhicRoFzLKGsu91zUSz olJ07wUKfl0PrTfvbSJS6w8G+6ZS4KFjemPjhVrC+lrUbEoKBYZmhqddPGuI fJuA+TXYv3do74/c8IoYOLv5ansyBQZfDFYE1VYRUGPG0MPOPTjKOXmsgrB7 7MRpOUsBebZffqg/irg0feCeVQI+njCUNRnyhB32XA9ePL7+zXPZ6X5JkDmt V1GEXbxtm5KdZyG826lhJIZNnJN8kPmzHMR9hBO+xVEwUV230PDhFdwfafmY +y8FumUfNUuna4Do/+TlhO1a0GZ7XvM1CE6vzv0Lm4wayNx56i2I7bvSlRhD wTkzEd0mrUbwjzMdiI6mQNJFo8RnSwuYLr+jnhqFn8c31pcEZgvo/nCu2okd 51q0iHGmFWTs6xUksLkHtdx63n4Gfz+WWPopCloP68gf2N0GjjoC7IJI/P70 DGwN47SB2Zm5WC/sbe4l/2RltoOtSew3PewKD733zW3fIGme31QZQUHOEf0E W/cuKMp9WtsTToFD3/BDX9p3UDCc9S7FFva515NY9B3Yn840hGOH+9Itaga7 wTJ/c6c0tsEThciCSiZMPzmt7hRGwdJKxTXyeA6offz9z0QIBf5T0zZaGSyI /Hbf6T32W7OOQ+tZLLh8UG36FnbMsyvnnRJ7oVpdL88F++dzpYG0+j6gjPo0 G4Ip2DU7O1ewoh+yg6o2lmCXWHTJ3g/oBytKTj4J2/1lvlXjXwOgzNDW3o7d XKVSKOI0COJarDvNQXh983MV8oxBeGTbLvAEO3lLd6MWfxDO7pFQv4JtSRRO b81hww43yWof7MKFGMm9A2yIl91j4YA9A246nmZDEC9cdsYU+xG50jm2YwiO zTJOimEvFRQ4lq4/DDdKSxX4/+D7tWSeKTw9DOt55Sk92Ktqrpe/VB0BSUbm x0rsGFpcXeOJEbhVyWQUY3dYeXR3kCOwllyyLRs7s1ZdYtpzFD4sfB4MwZbY YkUVlI1CrkLFgA92QqVnpdXMKBwP7sxzwZ5bG582YD0GdiERv3dhh91nHEm9 NAZKUZXSlthjOq/Njb+PQfvgu04TbN+bvZJfdX9CuGrbfn3sA7laVSvJn6Dn ffPocuxBUYYttXgctMyeLyzD1rJ5XFGhPw6f9yXaimJ7xteuTHIcB/1VxtsF sQvJ1nMu4eOgOjs0NXMS388ca0K/YBxuWjEPT2DLW/Dd52vGodRlS+Q4tlOE UFPz4DgY3Vi7YwQ7/YnsBsZSDqifGmocxG7iat4MXc+BcOtMoX5s0TUmf+1w 5YDGEVcuC3vbceuIFbEcUNlwPJvCjr3rzBq5xYH9K6dHf2C/HPB2IBo5UBet //uPpzXDnl3icMDjsTH553hTz7OaRxS4oKi+0bwXO+haTrrpZi7065zw/3O9 sq7iGVEvLjzXFXRkYw8rPvXuTObC+QTlsT/r1d1f13y/jAu78scsOdhHstos Yj9zgd9ctOsX9vVPA8VOM1wIiz+29Dd219IpKS01HryVDU6i4f1avks0etKa Bx19fU/FsJ1Tlg/WB/Dg9n7uNSnsjLe6e/Mv8UCt8Q2swP6waGN14FMemN+4 kKuBvcTSVs/yOw+GzMNv07FtYlyyZBbxQWv6wQkz7DMvji706fKhZ5P3+FZs YirSv9KBDxK+r/X2YJsFX0GHrvAhi2tS548dUn631IjkQ7scQz8S++Hoc3la Px88GCdsk7FX+3WOFBtPwIq4rocl2EqHlC+Pv5uArh+z5tw/788VA6HasQmQ 4rqeEMbfQ1bbphPZsr/AKCThsBK2hNMha3P3X0BzGjm+HXveppATP/kLypcK 7yvBNk8o+3ufyiTM7njgXYMd/qq6TnfrJHz9fcH4O/a4RU/B+7RJkHC+MS+L v+8fa9TsFLSnYLOnfPAFbJ+LCxZyu6dgzYP6leXYQz+76TIRU6BzEpW2YnPL CqSWNUxB4RE3NxU8X2h0pW/CgdNg+qTC6gX22dSZBqHcaXgDX4Z7sZeMfHtJ I6fBOSApdFkozq/SvOvzUjPw+0WSvi+2pp68368nM8Bk2uqq43lXkjzhwu+e gTlJ2y5HbIPBzzu5IrOwYllJUDz2+tuZRmMus9B2/th2Nra1ltRk39wstGh6 5BJ4fvqoS5z9Yj0HJWTiolw8n4dih8NbA+fgRXDO1BfsQGbD0U+5c9DkwGiV w/M+7FqK/Xv2HPhm5m3Kw05SEZF7c2EepnhWzNs4H0oUaUUVXxbAY17jBhfn i0Hkj+xH8wuw8bO4FML5c+AYc2u7jAASN0j1T8PuaiRMvm4SQKoRmzvpOK96 z8UotqQJoKiVFc/CY3Heif5m1q8VRN05MQUbcB4GFWyVZNsIol3pVlIZ2OPG 50H0oCB6GXTr6Cj2kOuKQpt4QfSbsaq+GOct857ZwdpWQWThOLFDE+dx057Q Ly9DaIj2oznKDue5Xd9Loa5kGgry0Nj7GLsuUmj9bD4NrQv6V1rlHAU1NzMz Nr6hoYVRQzsediX/4e7/5BYh2rg34y7uC4y8sfoH/2HritGtL1KgRjed/tCw CLkkZhW+xC58Fa071r0IOS7Pml1/iYK8IYkkAxEhFJzcEKGbgfvNJv1td/YL oY9rl51dkUXBKaZv9c0pIbTheZOSfh4Fjro/HmWbC6OZPvLRwnUK9jVOObra CyPlzX3sczdw3gdKclTdhZHcgw88+Zt4HlSAUUmiMCIcb8YaM/DzQoWlz5uF UUy2dvxJ3MeuHDhY1OMjgqrWBjvJ38X7nfwlWy9TFIncKthDq8DzV390/dgt UfT02T7TEuzRD0KfH1WKoilXd77DE9xXZNdLb+oWRV4P5WcK/8Pz8UZGmoOe GHJ7yF5j+4wC+rPdScGEGJJYMR30FvfPMHZ9RNXwEiR8Ysu/3g14P1RsOxUE xJGR2F31DY14vx3fbQ6SFUfZ1kL1YrjvLn/+lqazWRwVjfnoPHpPwfNztakX 08RRuZCc3jLcj+f1q657GUug4/uz/pnBfTsxsPydWPhfiOegxsjtp6AhcqeE vqAk+mkZPPin/69SCp64u0QSGWSmyM2KsODUyyvdq2Ul0dq7u9fOi7JAb4Fd vlpHEmVZMCxExFmQnJDsvNpeEt05ejJDcxkLtqe/KdS7LImYVH9EqgILXheB sa6xFGqt8wqQ1mNB9cd1+7Q8pBFyuDwpsJsFIV5JrqH+2EmVdPM9+PyTHYff BEujxSwL5xBHFmSpnvH1PiuNnAKUI4f3ssD/eHPErVJp1HyZpth3gAXy4sev av2SRletnXoWe7Eg0KaYqXVeBslkhD6ZD2eBatXyAO0nsqi5MW5RWxELZj78 HOmxUEBDsEuwVaYXXjx857c9VxE5rbu1/XtqL0xVZjr6aimjCnG3lN8afaB4 yX29SbIqOv9YJvvS6z7YKyDHSTihhg49HH44HdIP+xuCYnZWqKMmSrXskN0A fDj9SfQoaxXS8nJvn9IehHjLO/WUviZKKNyUZ2XIhjHHhZ9ugVro8UqlcRW7 IWi02yez/qo26kwRXfw//2Hod9Y+fuSHDvL33J5vUjUCIbaTtcNSemjVAw1b VZkxqEy2iQ3btBoJcbJCeKd+gnnH0uBDsfqIuyAR2JM2Doay7Z5XywxQc3BX 4aQbB+ySZvjMxwZovapDzwsvDvjMKCdpPzNAim4NhnG+HLjG9Ch9WGuAtCLd Z5ee4IDk/WFeXbsBSukJdtgQwwGO9UICn0ZHVxaqJp/nc6AiXPu2/X46Kvgu sy69gwPNQzs2Zv5NR3bejZdCuzkwciigsd2Djk7pnV50iOKA1rbyn17H6Ehv 03Y1oyEO5Eiam52Ko6Ppg3wr5jQHIu7Y1xeX0lHiMuMdYYpcyFI+eXCknI7m 7S36jqtwoTw9Y9T4PzqaUzLN9VHnAju0TaqKpCN7iyjzg3pccLXycG39Qkeh ByriHDfiHH8SP7K8k44O9z6ud8Q9IUO3OOYwk44c7lzT2WvJhYalwzfZQ3RE e/xMy8UW94i4v0yMxulIm9J+e8ieC7QJo7qQCTqSXjl/2suRC6p+Ti7PZ+iI 333Yzt+ZC////waaz/EzDHLhwv8BwTaNtQ== "]]}, {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData[" 1:eJwtlH0803kcwDd5yn4kebxbDs2m7EfS5HLX93OKsPTycKqhB6mohWpSqbSh Y9fFq4243JUSKeWIiqvmW3Q19DTnEpUlU2ysQh4qu+71uj/er/ef7//ejhuT wjbrUSiU4C/8Z5+uZLVOR2J+yTd7dB4q1FF/Whv4kcQVAuLnZQtVKKXwwbD0 A4lD4q65HvFSoaoIl0+sQRJL6sRfzfZRIcajLiKkk8T21KHi8GUqRNzxdSuu JbET3ZlFW61CLyrNd8JWErca3W89c1CFROkXPwgVbFzoTLHb9lCFxDb8ltIj rjhVXi3ekN+H7JtcSgSR8/BVP4snpnGv0WdGvNUS97nYi3fj8BzuG3RS4BZ6 cYCFp25U+Ksj+9H9p8O5jdeZ+LUYNZYkDiAZCYVpAmdMcdv69ckqNZrgmPl4 eTCwVuo732/aILoV0aU8rj8HB2ZxjQ6FDSFurHtIkcwRe1XkoEUKLYrNTr8d kOOAw6JC7q0sfYvEjZUnVXftsdWR7tT3m9+hR6FbuCKgY6VVtKwcvUcLZtCn EnvtsEy8dI/EYhjZlncvPRthg09Ze2q9dcNIcr5MplBY4gVj3zd5a0cQq5OP wvdbYH+y7Q9h+ygSth4s8+qZgQ2tEnyV7R9Qv69D5zYGDVtmsLInmsdQ1I4X nm5UQ0w/xatN6hxHI4klY69GKfhjyXOBYGACZRXIc/anjzdQaxZBnWYS8dOM Rk/8pmmov2DwljP9E/I/2jn+++y2hl6nO5HF1p+ROW9O+ZYlCrQyo1A85DiF pI2OxMTGQXQ7wHqX2XIdejnfIciGOY5yBzkGUpICo8aflPIFVGiN+VUc1USB UJeXl/MXG8KFM/m2a3hUSOmX772pNgFp2+ae0V4qNO/jEq5Uc+hh/PL42QE9 kD30XOUcYwE5R71lGpNpYH/Tls+8Ygl+AZJSdHwaTD7Qarp9bEAZGssKJPXh evW9+OUFdiAV+ox31+vDeJ00NM6ZDnq8BqeaUAOwO7ZhISfbHqSbTkPdCwMI p1i9y0xygLyUGLVlvCGsbt6Vxq11BM6xjr3PPxrCgwOPjbe+coKm5Nw1yZlG kPHDeXmPKwPyr203bbY2hqFQnXZ9ojMk8cQRWWeNoSVo1ayFRUxg8WdNKZjT oS+CmbDpJQvKLvgFyaunQ3LgWKN65lyombkileFhAnXZ/sKU7+ZBS+79SmmF CSzuNBOsFbpCsF6cVxpJAzfLjo1FlWwwL0qQ3SuhQVDW5Iiyhg1Wd2I9FaU0 2DJJz2LWs0G6XsvvOkeDU8qYiupGNrT/mMkarKCB+SX18N0ONuwLaPvLtJYG 7/x0mSN6JBzO212wtIkGtXuY54JXk3D7VjAh6qXBo4GAb6XRJNRcqmlL76OB Zi2/pSOGBKroRHTmGxo4L6vSxm4nQbKi/PJPGhocN1/snSoiIefQ+4TsERrs PR8sL6sggZNfbSHUJyCPviNKU0XCPyNrBg4aElCVKxn0uEqC/1hK+n5jAvp3 P5l5E5MgCP97eDdBQKRvTGRbOwkGO32fxlkSkHIlQ2PbRQJb23o51poAiUtZ 2jolCc8GA1astyWg2Ux9pn+AhNouhSyCTkCfyJTj/paEoPSGghB7AvRG3e8m j37p2UbN5zoQYB8fxvtzkoR1E3nZfk4E/P8v4IqiixGDgH8B0SQ6sg== "]]}, {Hue[0.14213595499957954`, 0.6, 0.6], LineBox[CompressedData[" 1:eJwt1H9cy3kcB/A1mbCt/fgkO5NF26J9l1Id+dH7QlrpVExEqE4XO8WthpD1 g5YTR35Fp3PY1aEbFqXb+txVj6S7pB9Uc+kXd/0yHrVM14/bPR73x/vxejz/ fT0er7djVHzoTjKJRAqy3H+51JDQNzFB4CQ3+bLdwTRoLrlmlPxD4BoPGSSF 0kBxqXYwe5jAim4t6cQGGmikzqPCAQJXMjc8yN9EA6c6AzW4lcAFcyOHO3fQ gFrpK/5eS+CjjHu1Afto0FbI2Ae7CLxWS7f5+wwNUlJvDyvrRbjU8PPLzfU0 yLSX1dz8xgWvPv8t/0Q4HRwqnK/Lwxdg9W6qPLaJDmNOsXYrXOfjHM2zT99K bOGqXBxyu1eIc7N00ZQKW/ijZfB0eakAhyqfrZvEYYCegEvJcj4Ou6+IOxbK gI+e9KVebk7YrmRnUY+KAb9KDe0XrOdh/+eD91tKGBAY7Rp8Re+IRaPuD60G GBCtSv3N/xQPS2Y4dFjPYkJmeeHV11UOOJ/u55npx4S6kJjAFODix6JPVJMT mOBuyx2P6+Zgd/17U2cuE2bmv1p5Q2qP+XPHXdOrmHC2QK2vr0fY6CztLTUy Qdgq81l/iIXLeA1tjWwWKH8/ovbqtMUZETrR0SUs6PHlte52mo7DRm9wPt/C gi172xaJrSh4Iydo3vFkFgzFXf/QZSLhnIGLe0ryWJBxsfrUoVRz2bVyp/Y0 HQtkyVNMl3P7y65Kf5ly7iUL/LJazd/NbiizO5z0cr+ZBYzN8/JjVtT7+F3L mlPHYkN2uSP1Y9SAj0qTWbxezIaOhbwAe4HZpz63qZS6hg0mm9H2ancrOJC/ psGwgw0hzh33zntTYLLL6odwkA2KnuoDur5pgM6ss/Y6zYYnBwOpLlYMWJwn UXqq2aB/umgjP5IFq/K4XaZHbHDQzZQJihB4lHW63allw0itsf/VUnsYi+92 l3WxofTu49g1Fznw7k7+mMcwG8zF2SFf8rmwb2vS9EnTEHDO7PDwVDlAhyLg BIWLYD3J7n16PA9mNy308icQhD35OjlQ6wh6nrM0xwdB7eFnNru65gKVfDg1 IhhB2mcF1Z0uTmBcOarzjkLwNmTCuD2OD0dUp46lyRHUBGxke1wRgFp5MjQx DcEbqWDPFx1CiI5l6C6fQ5Ag+VDex5wPlY3CuuM3EBSr/JSKZQtglq+yhaNF 4N1Kl0coXWC5NfkkuRKBGDVHXSkUwdRkiaa5EUFAxshQ+30RCHlFOXOaEMSM cDMEJSIYFoqPxVic1x556265CCq2b4oasphxp2+wqlkEk93HPBkvELxfPZE+ RCZAtJfi59+CQLtf8GNQGAHFNVP4j/5EUNfrvyR7KwHHXxjCrNoQ9EfIapoj CaCQl2f5W8xfpTFGf0WAz08PJp5bfIHhvTgphYCkqR8mDb1CcKAgqFp9iwAe a0GWuBPBOe7eLf0aAv4aL+xNtFhz+uyA2wMCut6QAnUW9yS+YOqwZXR5s9Da LgThvpHhDU0EtCbmPt7VjUBRlNY/00CAcNy87K7FZ53VydvaCeiJ99WaLX5C 7/uhp5eAAcrtWxmvLX2n0Dxd3xFQJmx0eWox2eRalWAiQDD/Y+GMNwgcYkM3 PxohoM9mjuc2i///X/C8QqK/afG/CXcnuw== "]]}, {Hue[0.37820393249936934`, 0.6, 0.6], LineBox[CompressedData[" 1:eJwt1H001XcABnDUSiVvc+/93d/1Otf1+iN5ma7h0aSQMzIV1QpNQjJM3RqR htJU7qI3rbpFTRORwwrfpcVlo9jmbROJk7wlrtxLmZ2zP57znM+fzz+PUej+ TV+qKCkp+S7kv3buThien2eIvCBnsMGLhY6qq+NeswyZTLvSfMSbhcRzzZPi aYb0UNPnHX1YKAk0mzMdZcizvONdko0s8J90q/l1MaTNtHFR0mcsqP261vpK OUNmRPEK80AWeoo1v8JehpQJE3NjdrGQevT2dEqrFWmTVogkiSwc50Q13ciy JIWn1+/zu8GC/iMzSXywBVnlp+Fs3MLCO34Ey9XGnPzVJdp/apqFy/HW/rdf mRJFR37NVQM2fu+cPFV3X0CEby6oxHmwUcPgXHK8CdGLzst/FMmG3EHd2dGW TxoPtFT0ZbPxS2B3b+5iY2Ji7y31vsOGT5iN38UaI8Ic2Vpm8JSNsMyjDzdk GxJli2qrk+NsHK8rvjxQr0/GVXLSg9U4eOIf7pMKXdKmk74sy4KD1Rq672Ne cElR+bWihnUcUDeffXo9kEOub0gThIRykHOroKa1VYes+rhxIjeJA9OuKLeA w9okVc7L9cjlIOW3pALH5xpEb+zy06ASDobWGnZF8leQ2qWZCYYNHGyL7bGz Vl5C8vQ2VgX1cTAVI3nbL1Miu11sqwrkHGTkSbMPH52p9RA+mlVoUIhKXiq7 cGmk1nCs7O6AKQXP77pm8vXaakd3af+4xJWCZpDxzXDXVre5Cqfs8wEUxHVG avLQUTdPQ/DfRFLoW2XozRHMuGm7L2usTaEgU53rla5WhmpQbN6hcxT8zfru nhUuwd+1DRNTdygkDkkPVg8vx7dvrsrYjyk0inzULJU1cYLvZ7qvh0JNi91m kxBtlJYJ32XIKOhXU1GCezpwcTyZdUmNC0Xz+MgzZw4+7xDXOwq4uF/aELE+ j4tCUbTbXVcuZirF/ntMdNGRM6f6NogL7pld9g6Z+giQS9JtErgIUGJNHNtv CAP3dllRNhdbGuOSfcqN8M+a+AdBt7lo/uap6t7+j9Ae5rJ3kZSLNPdb0ueW fFREb8+yH+JizH9+fGeMCSKssXvZchpN3ps/tL8oQOx7u4d/mNMYDBTs291n CtfShuqbvjQSvN7WDWuZw9vIuTI+lkZlpmdK4icWCFPmi/vFNIRd6vE7UiwR dkTkNXifhrVOR+jFYiskj1mrPH5OwztDMdVbZoU79hNaB/pphCt0MwRVVuic qoLZCxo/9IYUldZZIU2WOHtigIbmT8OT9R1WsBWtH/R/SWNi3fyxKRUGTWfS cwdGaZQfEBT6bmHw2jM/iy+n8eTVhjXi7Qy0qtozOhc8siOqqSOEgdipU5Kt oGHiUTIeFs3AIs7LWT5LI1dT6HQolcEFv4yXLe9pHLzlKy0oYhD+8IF72mIe vteN3TZSwiDSTugi/ICHklM5o7YVDI7N9mydWPDQ1+1a1YTBHknF651LeQhe GxLc9ieDgVZPietyHhLvpY1Q3QzOJhVemV5wjllB8he9DByu76wpXsFDo/rw taFXzMKOsWCDlTwMpq50sHnNQMo87WxfsIrMpj5BxsA5zlh0Wp0H/YhNQT8r GBR4DTt5afDw/3/hRqU1V0WTh38BR5AwGw== "]]}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{-15., 0.}, BaseStyle->{FontSize -> 14, FontFamily -> "Tahoma"}, CoordinatesToolOptions:>{"DisplayFunction" -> ({ Part[#, 1], Exp[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Part[#, 1], Exp[ Part[#, 2]]}& )}, Frame->True, FrameLabel->{ FormBox["\"Coil Displacement, mm\"", TraditionalForm], FormBox["\"Resistance, Ohms\"", TraditionalForm]}, FrameTicks->{{{{0., FormBox["1", TraditionalForm]}, {1.6094379124341003`, FormBox["5", TraditionalForm]}, {2.302585092994046, FormBox["10", TraditionalForm]}, {3.912023005428146, FormBox["50", TraditionalForm]}, {4.605170185988092, FormBox["100", TraditionalForm]}, {6.214608098422191, FormBox["500", TraditionalForm]}, {6.907755278982137, FormBox["1000", TraditionalForm]}, {8.517193191416238, FormBox["5000", TraditionalForm]}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {7.600902459542082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.006367567650246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.294049640102028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, {{0., FormBox["\"\"", TraditionalForm]}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm]}, {2.302585092994046, FormBox["\"\"", TraditionalForm]}, {3.912023005428146, FormBox["\"\"", TraditionalForm]}, {4.605170185988092, FormBox["\"\"", TraditionalForm]}, {6.214608098422191, FormBox["\"\"", TraditionalForm]}, {6.907755278982137, FormBox["\"\"", TraditionalForm]}, {8.517193191416238, FormBox["\"\"", TraditionalForm]}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {7.600902459542082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.006367567650246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.294049640102028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}, {Automatic, Automatic}}, GridLines->Automatic, ImageSize->500, Method->{}, PlotRange->{{-15., 15.}, {0., 6.775571728830463}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}, Ticks->{Automatic, {{0., FormBox["1", TraditionalForm]}, {1.6094379124341003`, FormBox["5", TraditionalForm]}, {2.302585092994046, FormBox["10", TraditionalForm]}, {3.912023005428146, FormBox["50", TraditionalForm]}, {4.605170185988092, FormBox["100", TraditionalForm]}, {6.214608098422191, FormBox["500", TraditionalForm]}, {6.907755278982137, FormBox["1000", TraditionalForm]}, {8.517193191416238, FormBox["5000", TraditionalForm]}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {7.600902459542082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.006367567650246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.294049640102028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}]], "Output", CellChangeTimes->{ 3.6558990476477585`*^9, 3.655899255949209*^9, 3.655901712805588*^9, 3.65590253678203*^9, 3.6559044505300903`*^9, 3.6559063012135115`*^9, 3.6561084554295483`*^9, 3.656108815851325*^9, 3.656235873483*^9, 3.656238745892237*^9, 3.656238777765355*^9, 3.6562432897311*^9, { 3.6562433272239513`*^9, 3.656243377832447*^9}, 3.656247144987131*^9, 3.6562473543881316`*^9, 3.6562478082285633`*^9, 3.656248087145531*^9, 3.656248419143265*^9, 3.6562485317948804`*^9, 3.65637915063614*^9, 3.656379939255994*^9, 3.6564099258444066`*^9, 3.656487876846673*^9, { 3.657145533348727*^9, 3.657145550177804*^9}, 3.657214256092039*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"Lfit", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"k", "=", RowBox[{"n", "-", "1"}]}], ",", RowBox[{"k", "\[GreaterEqual]", "0"}], ",", RowBox[{"k", "--"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"T", "=", RowBox[{ RowBox[{"L", "[", RowBox[{"Ceiling", "[", RowBox[{"k", "/", "2"}], "]"}], "]"}], "/", RowBox[{"R", "[", RowBox[{"Floor", "[", RowBox[{ RowBox[{"k", "/", "2"}], "+", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Lfit", "=", RowBox[{ RowBox[{"(", RowBox[{"s", " ", "T"}], ")"}], "/", RowBox[{"(", RowBox[{"1", "+", "Lfit"}], ")"}]}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Lfit", "=", RowBox[{ RowBox[{"L", "[", "0", "]"}], "/", RowBox[{"(", RowBox[{"1", "+", "Lfit"}], ")"}]}]}], ";"}]}], "Input", CellChangeTimes->{{3.6559008405629807`*^9, 3.6559008554768915`*^9}, { 3.655900898250741*^9, 3.655901064636217*^9}, {3.655901103916932*^9, 3.6559011741341043`*^9}, {3.6559012081911435`*^9, 3.655901220893808*^9}, { 3.655903742837431*^9, 3.655903754506572*^9}, {3.6559038716727276`*^9, 3.655903877085684*^9}, {3.6561088462260113`*^9, 3.656108880240511*^9}, { 3.6561089250923243`*^9, 3.656109010847427*^9}, {3.6562360484208136`*^9, 3.656236079482396*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Zzz", "=", " ", RowBox[{"Abs", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Lfit", " ", "/.", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"L", "[", RowBox[{"k", "-", "1"}], "]"}], "\[Rule]", RowBox[{"Ls", "[", RowBox[{"[", RowBox[{"k", ",", "j", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", RowBox[{"Length", "[", "LsFit", "]"}]}], "}"}]}], "]"}]}], " ", "/.", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"R", "[", "k", "]"}], "\[Rule]", RowBox[{"Rs", "[", RowBox[{"[", RowBox[{"k", ",", "j", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", RowBox[{"Length", "[", "RsFit", "]"}]}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", RowBox[{"Length", "[", "Xx", "]"}]}], "}"}]}], "]"}], " ", "/.", " ", RowBox[{"s", " ", "\[Rule]", " ", RowBox[{"2", " ", "Pi", " ", "I", " ", "w"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.656410175595957*^9, 3.6564101988493934`*^9}, { 3.656410294157736*^9, 3.656410299550353*^9}, {3.6564103377566533`*^9, 3.6564103459275045`*^9}, {3.6564104314580803`*^9, 3.6564105267892513`*^9}, { 3.6564106416541796`*^9, 3.656410645323474*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Lfit", " ", "=", " ", RowBox[{ RowBox[{"Lfit", " ", "/.", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"L", "[", RowBox[{"k", "-", "1"}], "]"}], "\[Rule]", RowBox[{"LsFit", "[", RowBox[{"[", "k", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", RowBox[{"Length", "[", "LsFit", "]"}]}], "}"}]}], "]"}]}], " ", "/.", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"R", "[", "k", "]"}], "\[Rule]", RowBox[{"RsFit", "[", RowBox[{"[", "k", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", RowBox[{"Length", "[", "RsFit", "]"}]}], "}"}]}], "]"}]}]}], ";"}]], "Input", CellChangeTimes->{{3.655904105858657*^9, 3.6559042045787077`*^9}, { 3.6559046107401247`*^9, 3.6559046108262477`*^9}, {3.655904651508026*^9, 3.655904654538479*^9}, {3.6561078606409693`*^9, 3.656107860797192*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Zz", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{ RowBox[{"Lfit", " ", "/.", " ", RowBox[{"d", "\[Rule]", RowBox[{"Xx", "[", RowBox[{"[", "k", "]"}], "]"}]}]}], "/.", " ", RowBox[{"s", " ", "\[Rule]", " ", RowBox[{"2.", " ", "Pi", " ", "I", " ", "w"}]}]}], "]"}], " ", ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", RowBox[{"Length", "[", "Xx", "]"}]}], "}"}]}], "]"}]}], ";"}]], "Input"], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ "Match", " ", "of", " ", "the", " ", "polynomial", " ", "model", " ", "to", " ", "the", " ", "FEA", " ", "results"}], " ", "*)"}]], "Input", CellChangeTimes->{{3.657145777635932*^9, 3.657145795759746*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"ListLogLogPlot", "[", RowBox[{ RowBox[{"Abs", "[", "Lx", "]"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"PointSize", "[", "0.01", "]"}]}]}], "]"}], ",", RowBox[{"LogLogPlot", "[", RowBox[{"Zz", ",", RowBox[{"{", RowBox[{"w", ",", "1", ",", "10000"}], "}"}]}], "]"}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontSize", "\[Rule]", "14"}], ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "}"}]}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\<|Inductance|, H\>\""}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.6559044792089167`*^9, 3.6559045389476385`*^9}, { 3.65590467541916*^9, 3.655904701918095*^9}, {3.6559047379880915`*^9, 3.655904763648799*^9}, {3.6559054053699284`*^9, 3.6559054163200197`*^9}, { 3.6559058645949845`*^9, 3.655905872512618*^9}, {3.655906984322229*^9, 3.655906989928466*^9}, {3.6559074455090446`*^9, 3.655907446416378*^9}, { 3.6559075653215184`*^9, 3.6559075891545367`*^9}, {3.655907643069759*^9, 3.655907753472974*^9}}], Cell[BoxData[ GraphicsBox[{{{}, {Hue[0.67, 0.6, 0.6], PointSize[0.01], PointBox[{{0., -3.8563862511823377`}, { 2.302585092994046, -4.060819427081068}, { 4.605170185988092, -5.284564452866559}, { 6.907755278982137, -6.280252584371464}, { 9.210340371976184, -6.68739249645072}}]}, {Hue[0.9060679774997897, 0.6, 0.6], PointSize[0.01], PointBox[{{0., -4.000542349636328}, { 2.302585092994046, -4.196705577993363}, { 4.605170185988092, -5.291513904049191}, { 6.907755278982137, -5.975886411556667}, { 9.210340371976184, -6.343312118682268}}]}, {Hue[0.14213595499957954`, 0.6, 0.6], PointSize[0.01], PointBox[{{0., -4.2220361394819745`}, { 2.302585092994046, -4.402050491236802}, { 4.605170185988092, -5.268637343770455}, { 6.907755278982137, -5.680087058001899}, { 9.210340371976184, -6.035942003335413}}]}, {Hue[0.37820393249936934`, 0.6, 0.6], PointSize[0.01], PointBox[{{0., -4.516715731085932}, { 2.302585092994046, -4.669658486299919}, { 4.605170185988092, -5.263379560173876}, { 6.907755278982137, -5.50730721531209}, { 9.210340371976184, -5.841930755972781}}]}, {Hue[0.6142719099991583, 0.6, 0.6], PointSize[0.01], PointBox[{{0., -4.839843061771598}, { 2.302585092994046, -4.952183000191592}, { 4.605170185988092, -5.299008091676159}, { 6.907755278982137, -5.45027379154536}, { 9.210340371976184, -5.750789943888604}}]}, {Hue[0.8503398874989481, 0.6, 0.6], PointSize[0.01], PointBox[{{0., -5.177308068942345}, { 2.302585092994046, -5.245671879454213}, { 4.605170185988092, -5.422850694422822}, { 6.907755278982137, -5.525452065377831}, { 9.210340371976184, -5.778422550989462}}]}, {Hue[0.08640786499873876, 0.6, 0.6], PointSize[0.01], PointBox[{{0., -5.499153047971442}, { 2.302585092994046, -5.534220111359324}, { 4.605170185988092, -5.616968884788912}, { 6.907755278982137, -5.684257985131284}, { 9.210340371976184, -5.866502141642339}}]}, {}}, {{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV0nk81NsbB/AhyZD5jn1mLNWQFnWjsiXOUbhyZUlJWUIXKWWr65ZESWkj 2UqUpCRSSCXiIdJtkSVb1hCyZR1jid/5/fF9ndf7dV7nfJ/zfJ4Vrt673ARp NFoJ+f6/PkxMuB6w5ZLBP9FfGr/VMmCtlluWh4oHyj2duLebeFL6H11NlQCk LCXSPUS8//z8vLzKRST+UERV4CsDxAtLXSiVeOTZXGO1mrinQUWKrpKG8vk0 m5PEtT/qBharvERrsnVvq9YxwEdxRkC19SXa6XBwUoOYsUeJZRL3Cq04+umA PrFZmbvRBZHXSD/lldtu4tKUqUThoUIkGhCqE0rc9HRp2iL7EvRUK4nRTfyf 1x92QioVyFb93JrcegbEXGfdcAyvQCqDF9pLiJ2fC356MViB0jnWmVXEvNl6 5Jn3Ht16CZeHiblXgldVmnxA7JBuJ7UGBpxOr+LFe35GhvwHoenELP/8D7EN 1aj2qUP5q0YGzJ/P8iil1yA9ge23PxB3xd0X+qVXg27lZV5tIc56fc3ANLkG dQ09K6U1McBY0DVn5lAtmj3KCjEj9osSTTgw8xUFuy117yL++NTec41iI9ra 0sha18yAGzGBdYLmjcgrut8IE+8/eduw5VQjYmzuv7abuH9bMzuysRFVOu4J CCIWqd//YSK6CWnst82sIjaa26cGos3oq2zk29MtDCgytRuy5bcitsXn+sFW BlxY/+8+9VVtKLXFaFyojQE7JW+W023bUJ3Sqo2KxC3NDUmFuW3oRWW/nAXx 7LG9FlzvdqQ/mheeTZxoltHA8+tAQWsOrg1uJ3n4PNYp/fkdGTc+qNX6zoC2 3Yt35tM6EZdTJG5D3Knj7PJMrhOdSVT09ibup8levmPciVBa2KNHxDPXzzaf uteJxmW/zCp0MkAh2+7Mpn1dCAY/2oh3McBpVLgs9X032pccYcP4wQDXOpfG 2+3d6Ox86/cNxO75hYM3eN1of/r1O9bEx876yZxV+YH0+DKpscTBEm3ujiE/ UILukZ5lPQxI1sijy+r0INEDV4P1e0l9vgctL6b1ooYHJZ/v/GTAj73Hn/pA L+rmbBf5QNynH0btb+pFJWHs0EniX/S0L+vE+tDLgxp6O/sZMHev37LmWB+K 3SNfvEAsU+Nrpaj1E1VLlHn4DjLAdGOIdW5ZP9q5a7rr0i8G/MWKyk5s7Uf0 NfKdb4gt5u9JXOD1I8fPtevGiPd8eFttt3oAXYvPTrcfIe91XbJr/soA2utX a75xlAGBNyJ27bAZRFL24/HDY2TexhJt2r8PoQ3FmrYPeWSet22XXzY9hAzX s6I6iOOifnY6MYfRyQ66vPwU6Ye6ll+bwTCyfP5IMYrY6tiX6623h9Gxxv/6 QvgMGP0pUNm85xdq+5bwy3uGAQk+m1QG/x5BdTfrEyPmGbD7prDIVZ8RtPd7 +9laYjIBA2qnR9D5JLW3rAUGnKNCco9EE7uZO6QSH8n6tG2gZATFrGVNFtMo 2Dro5tKvNIpCGxxX0hdR0OZx805f4ygS++fJ654lFNy8bvLo7I9RJDV9oNVA hALr/IlsztgomusaCIonLhO1LjcXG0P0IqaeGZ2CjCf0wWf6Y+g3bfPLPFEK /h0/pXsyZQxl6v40fiBOgWSw41e61ziibfy0a0CKgk9pYm0p/46jt8te+O6W piCsKr9XL2wc9cZHKRcR81fIzh69M45ONXVvi5ahoL2sckVN1TjKELoeaiRH QaYo9k7QnEC8JtOMtxwKTOK4omoLE+i/FIN7ulwKqrR52y6JTaIQTx2d58T7 m/4L7JWbRIZ31/tvUKbgqILv0H31SaRV1dOwSoWCmJTiKgXXSRTPz/ZZrkpB V5ZDPKN8EvFy2s5qrKUgpCJOZewyD3Gr1f9s3EiBqOdhR6t4HprN9a84tImc FzWIy7rPQxpnTRbNEKft/LHkSCEPJR28/0xJk4LK2k0DXUM8FL0kaMpHmwKF jqrsOqspFN5/sUN3KwX5fFGUL8tHcltrQ1xNKJizSM/YxuWjcvOJ87Q/KTB4 8Cfr03o+cnVPNbxLXGp9frTNiI+K12j3tpmSfj7+fV/In4/+8K+ccP+L5Okw ImL1hY+66EJpCVYUCJbU1fRcnEYtJtVfYuwpMJI7jnyip1H55T+U/nKg4MJR yczpO9NI8J2WrqAjBWIcy7ClL6ZRTXdZg58TBdL+77U3dk+jumqt944uFKxa WZAYhGeQs1shzd6DAvNLye7S0zNIhucoM+VPQUQHezpu8SzqN79b33T8/3lE X2FLziLXCK+7b05QYNMT9kxJbRbVqz00Cw8g+Ww/MrPacRatjrBRWBtIgedv zQj9klnUkn7IKvkcqc/3Y577pTk0sUFywv4GBe/fG5n+jJ1D4TvuirlEkzyW F307kjKHhtw3GXrEkP9XPlvwKZhDex2F6QFxFMSqxe0IHJpD2TmaiqkJFKT+ cG6NtP6NXrmu79p8n4KSfTyhfPY8OnomW0gzj4JCty0f3VfOowOnBjT+ekHB C98zUdIa80hYPvSQ60sKHl8SVvIxnUdeY+7j0fkk/3xZ7VUB84hFLb6yqIgC d7a2Z+zXeZTJpMvKVJD6mgI++0YuoAXtBzShbxSszZwziz1Hwz1qO5jXBZgQ eSy73CKchlObhjhbBJkwoe6ORSJoWOv0q8xu4uK8L5qBt2j45K0ONz0hJuwu Tlnu8oyG6QF6G34JM+FMjSlvXRvxSVjhs5QJNfyYe2W6AljM+HRQgxwTThmv 54+PCGCeuYWXrjoTCubfOAecWYTZ3k5F0l5MWGr5YJvLqBAWUy7xyMhggkXx YLt3qDBesEbfnkwxIXZHl4sKQwRrUhKsMFMJGDys7ojO0LFEwdTHsFsSsDmz VSpYXAwn2X1XTeFLwNXz37evPLcUWxYpZL3bJwl1p403jMgw8KW2got3P0uC cqTdgnMKhbcFqG/xM5MCQwUXFYXLTOybg6c+V0hBH+2dasIuCZzjCA2jttIg p1Hv9lFcEj++qbZXqUMadgzrx1uWS+I7IsfN7NxlwL9gj6r7VSm8tGjeK2xc BlZ+ZY1tMJHGa5UeVHt5y0LV3BX5q5QMXugJDi39KQtBObbaenUyWF1N/Fm0 jRzk5H6KTLomi4du0bfPPZKDjrIx4xt75PCNCIVEVb4cxK0o09nCZOF0T23Z y9ossBQbUtSsYOHcqalBh2MsoC1+51x6jY2DbAPjPVNZoGtm1iH4Jwd7GYgt y6hlweG7Z97UUfL4RMDvmn+F2KCMnRrsP8pjvfDakscb2NB+NLZrc6gCDowa PiW9lw0xGad3Jpsp4rVRJk1ZQWyo3kxNFAkpYWaNnfKJJDYIV1rzvSuV8FCu ff7DAjYYTAwM+8csw1XsrHub6tmwkMOKilVdjlsW7ptUDLGh2T963+vLy7HV d5o+JcKBwG8HQadvOQ43Wl6tpsyBxCXOyR3bV2AJ19mjJYYceL1181PrtBW4 b3F20qNDZF/OyUFBiIv9P3AUUm9wgLOlNPv1Yi4+FDdieCSaA7ccVJfsW8LF AutG322M4UDcveHsWFEunk4MGyyN5UCkWvASSoKLkzcp3ey9yYFzKDlHQImL GZHH5wzvcsDDo1OkV5uLGxYVzmplcqDnkolTmC4XbxF/OSXyhAN/Zz7OVdbj 4s2rdXAzsfOon5OzARfvlhR7HvKUA/sDFz1vMuLic5U2Ul9yOGAeqXLgkzUX W6hdZZzM58CH7PDnh224GNsuD7J8zYEdXwfp9D1czLEKX6dawAETdt5zYzty v1ae2ddCDqD7xqLFTlw8peh6bBNwoKg8/YCjMxf/XRL0WayEA1v7xPNmXbjY NU3co5tYZ339AR03Un+DoUncWw68sNySV+/Oxdwag8veZRzQ9LsjeuIQFxef cFm8o5wDz2MEnaUOc7HE0toX3Hcc2PjSPS/7COlfZkHSHPH/ADvfx+M= "]]}, {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV1Hk01N0fB/Ahsma+mPmaETITReqptFjCvZI1a6WQXSQee6IUkrSRyFKi pKS0WVKJcnmIJCFkKWTJXtbJ1vjd3x/33PP653Pe57zv57Jc/fa581IolFF8 /n8/SE+7FqJ5SSd1+kM0zwwVbdjp/uyowlFAF/apEcaepZ3Q2KEQAm5QbZk0 bLtoLne1wgVQf+BQ3zrsVaUVLlSFVJAZzitthv3zq4KkkEIOmHFjrE3H/jLQ Msqv8AposMRU9WepyF92gWfd91egOPKQviW2mLUcwyDlNahPPOl5GNuk0mNP jOAb8MDhblcAdkXWn/SV46Xg5rb52DvY7c9Fc1YcLgdi5X/5udgf/v3Hhk+h GrRF3hCv4VBR0jVGosPFavC79Ip3K7bzC966l2PVYENtYWc/NmexFRwrqgHf CpSXef5QEftKxPp6g1rgu9b7oDb26UcNnNRjn0CZdteR19iMoOLa5K+NQOk0 jad8joq40c+OVgg1gU2+PEebsPtS7vH93tUEREfKB/uwn72J0zHKbAI5LU6a AvNUpM/rWrDg+QVYl8YqWWAHJginOS00g2kzW7N+7I/PDx9Tlm0DVSldIwqL VJSYFNbCa9oGTrs1pKpj2528pfvtVBvIqpt1NsUe2d3JjG9rAzscThodxxZs taudud4O1KyQfxX2niVbFSTcCQ4I9hn7LFHROyOb8YNz38GcnatB818qitkU artlfRcQsdOtHcU2k7hRJXSwC1yLeey3gktF3zq/ZpQWdoEa+84127AXfQ+Z s/26wZWhj9JJ2Okmj79yAntAyfeG+/bLuA//XPWK4R9A8P2jgmgKgboO8JsV U3pBzonfwYnYverOLnlSveDOxCHTTOwRCnn5tn4v+EuZUy3FXrh2tvPU3V6g XG8yMoMtk28Tvs22D8yXH2R48RDIcXJl5f2afvCb+njrEV4Cuba4tN3q7gcv /4bEHcf2KC4dS+T0A83b35ajsX3PBtLPKgyApWv9Sg+wI8S7PBwiB4CPkVb8 MHbm1iIhUv0n6LceqT6+AucLcLO4kDMImhybqzP4CDRw6PhzfzQIEqwa2guw h7TPU+3aBwFLT06kBvu3UM7njSJDIHjBuW4Ke+nuiEWT7xAAhW71xvwEojcF WMruHAaElOLcX2wj1UirwsoRIBIZsjFSgEB7GQn56d9HQB4ZHXUT25x7VzyG MwJOvGr5W4BtXftfo43SKBhspLv/xHZ1FdjHvTIKDle/XDQXJFBY4tV9xvvH QI/K85D1QgR6NpW+v/vHOHje/EnpjzCB2Lv1Vq+ZHwcX3g7HSIoQKCVhuNeR +AWmckNFtmBHbNkZ2KXzC9iq5l08hm3p+/na91u/AGtVi00X9uQwT32n9W+Q /ZUI+yxKoDT/bQpjRybAYpjDhkYxAh24sVIw1n8CFDz6/GoKWwy1j6qcngCf 7zECaVQCRVEjC72vTwCZ24K+Ntjez+p2j5ZPgOV1Tpd6sbXG3F1G5CZBZX1k +DKB38vRG7eH2iaB5Ov6SQdJAt24ZvDw7MAkcNjA23ER26p4Jl96ahIESu5f LsSuFLaqMhWZAlFpUbwiNAI9fio0lqc9BcxQ+nQJduj0KY2TWVNA4iCqUiYJ JBHh0Cz07zTQmn7jpMYkUF2OSFdW6DTolg2O8cI+31A8uOv8NOChhc5kYM+x yEWf29Mga+FZDr80gbor61lNDdjXTY+3YT8Rhn5pO2bA5Cf/qSsyBDJIYQur LM+AB5uHf2+UJ1CDGmf3JZFZ0Dg5EOeJbdf+IWxQahYkX7cOu4/tIxMwfm/L LDhWO6YvyyJQUlZZg4zrLNANyLwnwSZQ3zP7VLGqWbDDvaNeVIFAkdUpClOX OeAD36KdrhKBhI95OVimcsDJXw+TLmAnCeukPLvHAcSohHI9do7ZgIB3KQeM 28W52SsTqP7LttG+cQ5QSdBVPrMB71dPQ36L5R/Q+Ztl3LCRQMVzwqCYnAOf nod4lW3F79n80ePd7DkQcKZOUVSVQDrZhoy6TXNgTBZo2mJXWEVPdu2ZA0f5 8vxmsOty/97jC5oD/5msoW/ejvu0nxC0/DwHpppl44p2Eoi3vKXp54V5YCEm ayikRaA9UseB/3XsJG6xC3aMj8ST+dvzILsgPP4Ntoi0xXnRl/NAcleMm482 gWhBNWqq/fNAdeDbq686BFqvWJJ+Bi6A7NLkfWW6BDK9lOlBm18AKs68lt8M CXS1hzmfwr8I/PXid5oY/b+P61eYEovgvG/1rdfY+3+ez5NTWQQqO9P7Uoxx P3reC0oOi4B9KiTQdi+Bjv3dcVW7fBHwKDa2ccxxvoCPRR6XlkBHZ65E8kEC 1dTsMRpOXgJp2oFBkodwH/LvOryzlkBitbZDIvbV+rxl/5IlABZWfUqwIVCy Sopx2PgSsPN7qphqR6D7A87f463+AnJheL7EkUDlthy+YiYXGGUKCvgfJVCp u+ZHD0UuqBuLDeVgvwwIT6Bt5QKhpFzPM54Eyr20Us7fiAvernCvij2G+y8m 1daHcMHwgfTgfG/8HzLVjiU3c8Gcp1OLhD/O1x7yKSB+GVQs9CXtPEmgDU+W TJKjKJBqnLtSMI5A8b75VeYXKfD2xeMNj7FntnhAwasUyE3pZFpeJVBZ0ecd YTcpUKL0vEpaPN7/six5lzwKZJQYm2xPJFB4kxFnYxcFfkjdGRSZSqCmuaS7 lRo8MMKGpRmaRaBT+pvmpid44Npiw7AfxQQq4b51DglfAd1mMxzlpgkkapG9 22WSD26KPhUau1kcmZeNdfudWwldgqZ+6IWIo2TjPhcFMUG47VWmxkSFOBrz 2uIAwoVgvj3lX1UxCbT9yXfJiFUicITatH3SXQLFRv/QU4wShfnI8N+ZdxKo 5bT+5gm6GPTsWJ9hoiSJ1sbbLDtnUSGzgnsn8YYk0pVxUZC5TMD/DJO23RWg oSHK+3Vp+8Th9880Iv0cDUltbXX/uEoCPsuac33JoSHjX9qpFlXYul9qh1zp KKjEep1HrCTMNduZt1hPR4rNjKnNBjQobn9/r7YSiWoy37laG9Pgoozjj/vK JPLyOfLllCkNehkYXhBRIVHeyrwXVfto0NS0m7d1E4k0NQxDDjvR4EKX9Aun bSSyvB28FBNKg9lyf77p65DolGfTyq5cGnx/UCfLfj+JGpaurI6l0mHP0j9K RadIlLN+8WuWBB2e4Pzg7wwjUfg+r6RiOh1mN3G4y6dJpPLQaNXgajr0y7bc YxhBopj9/Mu6SnTYL+W+9uM5Eu3KDe/9A+nwyw2Z4IexJHpwKOCRWyAdKg5T q0oySHSm4KDarhY6jBX/EG//lkRRl18jmTY6NNeOk9d6h+e5SptwO+hwxWZb 3tVlJLom0WVf3kOHfRrjb1oRie4HukcZjtEh5U7AKoNKEtWqHv+0fwUJX53M zeb7SCJGYYLbv1tJKGz7aDt/G4kKCuviM+JI+GBWz0p1gkR/9ma7vr1GwhnN kx/msbX6z+z4fp2E7TMaGWiSRFW0zZ0yaSR05Q21M50mUVtwwrr0ByTsLXyp a88hEVft4Nu0MhKa/CGDHJdIZFzaPZI6ScKxqbSpSQEp1FM5pZ9oLQVdE4uK o2SlUAqrUl2TYMAIC+ZNa10pZCEyLrujmgFNVuu5DztLIQr/e+eKOCY8fE4r MvusFNIwMenhNZSGZbwUe89MKeR1J/xtC3U1tA5u2/azQgqthY5fD39cDW9d vTQp0i+Fun2S+7afk4E2PxYH4/gYKOnxabNME1n43tjGNmgdAzVup86845OD cZo/o57oMdDKeqs5v3o5eHmtZbq0MwPpzIz+CkpaAzmnrzvynGSg5QJGQvI6 eehrxLQ9fZWBOoOu2765LA+NUnqiQ7MZKKzDDakPycN/uoFLUCkDbfnY55Qz LA83tDGXmrD7S9yW6aPyMOST/0fVtwxknuGmMz0uD02XXYWmseWd3UqfTstD uGFW7EQZA1UOuL5mL8vDT43Z2TEVDCQ66ZInSrJgyP1pxZYaBkoXcM7s0WPB 86l2trCVgfxtbh3x1WdB7cela99g6z9qVVoyYEGvp9pm278y0C8Ts3wpExZs THxfptzGQPCqZoW5JQvaIEFVZgfOR6P3l9qz4O/7HRXCXQykwq5dfzOYBf+o Qx2tnwz0Rmv7c6scFlQ+TLWb+cNA6/qH2isfsiBFqH8wYo6BEq5k8KnnsmDz mtQ+kXkG8uxYaSf3lAXVHo4qKi4wEBnazjdawIJVWwK77ZcYKLAw3C76HQv6 dQn5/KAwkcqGD/yvWlgw6oiZoK4wE6VLOdrL8LHh1lW3znrKMZG0ZkX+G342 FL9Y4qm4holu2q8TsBVgw9+X14z1Yqfc/ZWfLMyGuUk+NU4sJopXiRCgirMh 34mRTmcFJooCmQU8cmy4OBAcH7mBiY4e7RUcVGPD+RNpHTvVmOjnJQPH8xps WB21P0ZAnYmOPMktXLuLDY1DBRrbsJ0nAx2ddfC8BV29M5pMZBe24kX7HjYM ufT+5idtJjKNV3Cqs2LDA4fFlq/sYaLa/IsvvPaz4cknq6576DORcfOYkJA1 G64RKKrUNWAiA2bRC30bNvQed6MsGDIRuKcvXObIhvqUp80Be5noXdUjJwdn NgwuP2JlZcpEWkOrihZd2DDRz8VrqxkTqW9qdVJ3Z0Ou7j7/aXMmemmhWdTq wYbfi1vsWyyYaEfgbeFgTzbU+q+0/5UlE71I4nWW9GJDCe4HgVtWTKT6yqMo 35sNNfneVYXvY6L/ARkj6tQ= "]]}, {Hue[0.14213595499957954`, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV0nk01N8bB/Cxb2E+Yz4zY81MQ0pKK5m4V4UoS0khZSmyVER99aVslSKR JQn1VZKSFiTR4iZSVCRrasi+Rxhr+t3fH/fc8zrnnnuf574ftpvvLndhCoUy htf/97vpqVcCDaKM+uZcM106qWj5BvdHh7mHQah83NAh7En6PxvXcwOBneVP nhe247mFBWXuBWC7jDV8HFv2ZZmrPPca8F/7LvUsdk8TV0GKmw20/hXWvof9 tbthUIxbBIYpsS4CbD/VWSHNH0WAu2hN2By2nJ0ayzT5OfAIW55N6aIii3KP rZGSJeC67GYZGeyy21Pp4sMvQU6Jro46dsvjRdki+94AzfqDP7djfziy0l6U Wwkaegbt72MnXWEl7L9YCd49OzP/GNvlqfDHZ0OVYPT77pxn2IK5RuBV+B7c QoRGOTbnUujSz6ZVIFwoPKUN+/T9WsE1r09ARn/feVY3FbECiquuNn0BzHzu cAL2wrlHh8uk6sCjqYCZVOzO5EzRX7w64OmkTcvEflRy2WhbRh3wilX1KsA2 EXbLn/X8CjwbOY/rsf3jpVOdZ+uBRHlWrmIPFVU/3ue1TLUZlBXJzj3ETkgK bhDe0QzEUsfpRdiO/6YZfw9qBvtVu3gIe2Bzq2JcczO4Jbwyrw5bstGxaiKx BQz6e/GmsbfOO2gj6VbA6xvlm/RS0ett9sN7pn+AvQmUwUHsSJ1TDrpL+SDX 3adagG1JS6mQ2sMHvHr7F0J9VPS9tenGywI+0PclqpjYc8f2WnF824CCtkPW Vux0iwdNAv924N6b5nELu8UvR7+s/ycYK8x5erifivi7xSyLKR1A/RPyPYHd oe/i+oTZAaxjL24Kxx6gMKJvmnQA77lLMmnYs1fCW4NudQApD6GIGmyVPPuQ tQ6doFD3bzdvgIoOjImX33nfBZZ+N+ctGaQitwbX5rS2LjDm9N5pDbZH8cuh BEEXiO5clmiMfSzcnwzndoOUE6LABTuU4HvsD+sGVync5JvYGasLpRj6PUCJ /cNx8RCu7/hB6wvZvWBX2HOZNcNU1L33xGM/1AtOlHpdNMHuMzwv79jSC3wX y3EcsH9JZdeskOkDb09/zQ3Dnr81YF13rA8EuNVxv2CTdcdtVDf0g+zXe94G jlDRtjVhOwvKB0CKcfvA919UtJ0Vn5f+YwCU6jfbT2BbLdwiIgUDIPQB7JcZ pSK7qrdf7LUGQds7dX8etpubxK6FS4Og1s5xWTp2cELsLnPbIXC5ysr+0Bie t9/ptm0/h0FqUAWLGMfzvHmL8uKZYeAc7WqrjZ0c399xgDoCrObC80ywQ3U3 +PONRsB/Z4VagrBtjtVc+ZE2ArpT2lp6sMf6hT632v0Cm/fUVFVMUFGq31ru 0KFRULkq5kmGgIp2p4hLxviNAokiicJSbDnUMqh9ehQE2gx08LEj5MMKfBJH gaf8wxeqU1Tk8+jj5sE3o+Dd8oceN7A3Dbm7DqiNgbgbu2ruTON5OZxys695 DDjqBDs2zFJRyhXTe+HdY0DzwVXhP9g7iyfylH6PAVMas5M7R0Xl0jsrdsj8 BhsGva1OYj94KDX0xPA3eB69vJE1T0WnxoM2/nv7N7h83L/f+w8V0UL310sd GQdFdv2ahhQCfcyW4d8+NQ7cNVW9j2Cfry3u5Z0fBz1Wcr/SsKfZjLmjN8fB jRa30jnstvLP7LracfDu2KmI10IEypWGvqnrJ4BHuGazjQiBTJM50tp/J8Bo TO9sjjiBavUEm6NkJsEvf1eZDmzHlg/BvcxJsDdGzl1RgkBHVY4PZ+pOAvvo LZMXsZNul9aquE2CidL+eB9JAnU+cromVzEJ3DtXiABpAoVVJnN/RwvAGrVO UbYcgaS9vPfbXBOAYY7EN1fsJGmj5EeZArBib45wJna2ZbeEz0sB4BiXWmvK E+jz17WDncMCILH6QIculUAq7bV5DTZTIPH72bV7aAQqnpYGxYxpMLnjYXMn g0DzVvcfbOZMg+EjwlnLmQQyyjJjfdSZBq0CvbfHsct2nhvjb50GRlIOAgoL /2fOn0zRgGngoCECligSiO80KmlTMw0GDZ2SA5UJJPymoa7nwgzgUW4buqoT aCvzBPBLnAGKq82q87Ejj9JyZ27OAI9tjgWibALJKFmfX/RsBjhvbEy8j00P eK+3pmsGtMb735jiEGipxov0M3AWKChtkM3SINCOqAwP+swsEHm4R9NMm0Cx 7YozyWJz4Ke3tXuu9v/zSLykSJsDWuZsFm0FgWx7zj9R054D1ncvfuNjO27x mdXaPweYzt+/nVlJIK8/62MN38yB78ZKi+pW4/qOVxd6RM2Db0TbqgZ9Ar1x EIgWKy6A87si+bu3Eeilu0G1h8YCUIu0d6/FfnY8JJ6+egFYzg4d2GFOoJwo cTW/bQvAWm8gx8QC51XM0FsauABokxP3DXcQyENRz+tq/QLg2e1x2WKD820J /HQ87i8IjAg8dteeQMtz5y2uRlBgWPRIz2dvAsUdy6uwukiBPNLj4yEfAk3o ekDJWAos3/duyRx2aWHN+uDrFLh5VF1r2VEC7S69re76hAKLH6+LjPYlUEjd NsEKPgXWNC+77HaCQHXTSbfKNwpBYdtoi8MhBAoy0ZkeHxWCNUdNNr1KJNCL hVcugSEiMOWFTW1iJYEWWWdtdh0ThYoXJCj5fwhkVTrU5ntWHCpWG5v2b6Kh q+adrlw5SSixYnflxhAaGvLW3Q9CpOArtcwvD1/R0LrcHwqhsjIwLeaPeKeY Aoo593OLRsQiGBDkNxFqqYAaTpusGiXlYL7bj+xzGQpoSZz9X5fb8pBv1uTA nlJAxiquXJVoKvx188NIoQUd9VHeaabuIiDSORkllkVHzNWN7tWyNNjk/K+x 6yQdmY8YXrOuoEGz7OXVWw1JFGIZNObzngYN8otp3kYkys99tv1iNQ2G/up8 FAtIpOKzivLmCw2uD2J1NhiTaKRX3WsNnwa9Zz7oOJmSKOmnCI+cosH0by59 ZtYk4td/4H/TUoATiiG6111IFPDCTtMjRgEGy7k30sJJ1Fh5ztIyTgE26x2W nMXWry84sS5BAQbsXJLcHkGihSHirXCKAux0vlX+4ByJotU+O/+XqQDf7u48 YnCRRBnhptebSxQg2Sbcpx9Hoo9meou29ytAFOH7tCSdRBr1rN+rTOlw+YH2 D42FJHqf8drNzpwO04Lbt2c9I5H30UNfg3bQoW73DXpAEYmeiD95WrGLDvd/ PRu8qJhEBhvNAvc506Gtwr3sDS9JZHPz5HzkKTqU4d8v8ywjUZBnnTg/hw6L nmdEm34mker6U4Eij+hQ7bR93AI2ElLr08qjw2O/UnoKa0gklub1IaCIDj94 BsRyvpDoyidKjFQ5Hfqp/a0Z/0qirDWriPU/6BCd7g77p4VEtfOXlGPkSWj8 6ejM304SZS+da7pNI2F4Za1RRhfOa5d3UjFJQsElsSHQTSLte9tke5VJ+Gx+ IPRMD4kibcX+GmuR8HHTeNpYH4l4OSEdU5CEMoVbFF8Pk+ju3uP3D/qTMOpg cfeggERn8vfo8RrwfQtp0iUSDBQR/RypNJPQKlggqyvJQJFuShYL30iYPSuR m4V9hcZ3etNOwj5bUBInxUB3/N0jzIZI2Ckfv8JZhoGq1pz4ZCvCgHceZDYM yjEQqyD+4JHVDEhb3HKnlGSg/IKPcTcuM+DM3+inRzgMNLU9y+3VFQZEm50O NmBv6jqz/kciA77ZNl1quISBKuirWlVSGVBypdx5WS4DNZ+M10y/y4DrlJVt 7msw0ILenleppQyoWZ53ok6Lgcxftg1cG2PA5Wi3+a+VDNRe/tskwY4JTwmo q04aMFAyu1zfgMqCPOOwPfZWDGQtM6y6vpIFdb6YKxm4MhBF7J1L2WVFONqE bpf8w0AbLSzahc2UYOlEprUghoG8/wt51SCvDN15PNbqewy0BB5o2letDBXT 1305W85AbUevdq47qwINk7t4vA4GSnpw2jLDQhVGJDyf1RJhoi/r5Cdei6pB 39YA/b/qTCT+eee072c1GGNUsE0IMJHRxOBIQNJiWFy4wijRgYn+5rPir2qq Q7P+5ik1PyZqDUh0KIlWh3vNepaZX2Ci4G8HkX6fOhSZ3FlpeYOJ0iVcMtq3 sKGjdswIrZCJ/OzTDh0zYcPtZ7SfhmOb3G/Umjdlw6qwqMpR7BELyzymBRum kzLfap4xEYw1KLOyYUNn94HS+OdM1EUnu146saGG4ISqxksm0uZULb1+kg0D 91GSYt8yUcmmdY93ZrNh0Vb3mbivTKTZ1ddSfo8N7+bGLZarZ6L4SzdE9XPY UN02KTcG2/ObuKPaQzY8s3LFn+gGJmKcahEdzMfujYqMaWIi/4IQx3Ov2dDu yMC9zFb83vIPYkUNbLilQeiaRhfuj3nASUWUA3t+hx1LEDCRkkFZXokYB4a0 jK2GU0x03UlTwkGCA/+VSk4dwU6+NZJ3VZoDvQPQfssZJorTDpWQJzjw0jmP F7R5JooAGflCahyYmGpt/UqIhQ4f7pDs1eNA5emk8KuyLNQTZXrg/EYOnIsq n7CXY6FDuTkFS3gcKMJOUFWVZyGXMf8DLkYc+PtDdXw2lYUcg0WetmzF56fr qBUKLLQjjuv8cScHFuxtqOAosVBV3sWn3rYc6OlnWTGGbV4/JCVlx4GxIj/D 3iizkKli4VMTew70FarWOajKQiDTRLr0AK737FHPx+os9LrivvN+Fw7UsYrd dY7NQpv6ZAvnXDnQXjJyzoHDQvo6jc767hxoqbbpkgSXhZ5ZGxQ2enBgVfo1 /zbs9f43pU96cuAGC1Gl5xos9DRJ2EXBmwNTOz+Gx2uy0Joij8I8Hw48m2KQ 47OUhf4HPpkfGQ== "]]}, {Hue[0.37820393249936934`, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV1Xk4VVsfB/BT5qHUPmeffY6Qczrh6nYrJaSslVCUDJlCplAoY4OhaECR MmRIIUMolUgU17CIBhTJ7BpTZIoMkdK73r/283n286y99v5+129zHDyMnZbT aDShZTTa/69ZSbejzu4I0zguN7hdQJxAitudco/xjoHnN9J6hLFnGWfUlHln QZxS0jVxbMvgpaU1vCsgb9B5lo69orTKXoKXAGpVeSLrsL+08egivGxwb+O0 iib2x88towK85+D2ZNlIMLan9M9lct3PwVyXoW4Y9kpTGZZO/AvwwGRd7nVs vWpnrVDhEvB4a054PHZV+o8kwfFS0LBNLeo+dscT8Ww+q0qQSjNqeYf99sQ/ Fvy812DYJjtMegWBYqNYMUeuvgakxaTSOmy7Z8vri8ZegxemPwcVsOcWW4FL 4RvQnhV6dBs291qQ/HudWmA7uFC3H/vcg8a5BJd3YKuWmdk5bJZPcW1c2wew 1sK/cBB7KTj3WJVIEwgv3BIziv0pPoP/m3oTOB0W4PcdO7fkusa+1CbA9RY8 TltJIO3lDk9/Hv8IDO3LXklhe0eL3rb92QzKw6QTzbHrnli5/CXdDtb6iYu2 YsfEBrQsP9AOinNs67uxLf3u7P7Pvx2sEm9I/Iw9otnFjmxvB+Je0GwWW7jV snbmZgfY9ZpnTkoQSOvX4Q1ItAu0r5wMNccu32cxbjbfDWr+tBGfsUM3+h7e LN8D7gQaWUxg6xO3akTMesCZMNrDH9j/dbUllxb0gMr9+3xFVxFo0d38INej F6wauvRsM3aS3sO2Oe8+4CjOrA7C7vDMUa362g9mXPe9UVhNoB4TAf1i2gCY ShlI24o9oGpnn0cNAGv69XAN7BEaMzxFewCIWx8NM8H+GXWxyz9tAPyzyQBc xJbKtwjcevgTyNqjldKNbTMlWH3vzSB4bzZank4QyKHFvv1O7yC4/5d/xhNs 5+LSsZi5QZDFakgsxXa/6E1e5H0Gr2l/lbZiB63ucT5y4TNgCW3tFKMTKHVL oQhT9Qsojn4U5Yc94HXU4Er2EBgsOhd3lEGgz+annniiIWAvvHPTKezhXSES lh1DYCnudn8w9jeR7Ia/xYaB2YuKqCzsX2kjBk3uw+DI4wCpUWyyyctQevtX kLGqWdiPJNA+pQtGBdUjgN+xYfsDJoH2s6Lzk7pHAFs/R7EM++BS2urQuRFQ fqJW/QO2ae3LDxYKo0Csw79oAdvBQch46dooMDcQJQ5QBAqIuWGse2gMlHqP hcxh535POtTbPw4ozZLwo2zcZ809a9YujAPHlPgeP+z46K8DNqsmgMDEHcMo 7KDN2717NCbAGfg8sgzb0L0hqvvOBHj7xiiQLUmgqa/L3neZfgOaLxM12rBv e27ljTlOgjdPtWzdpAhkcktQOMJzEowE3noZgr0SdYxuODcJzsWL7U/FviRx ocDt5iRgm8y/bMF2y63XHK2cBAL80Q6a0gTaOeZkPyIzBcJ/OvhyZXBfjt1K GW6fAtESNup/1hLoVpTO/YufpwCtC83IyhLIqHgmX/L7FKgWGu/WxK4WNao5 IPYdnGBEwSvYDx+LjOXt+g6q/4vWJzgE8p32V/NL/w567HP/3cIlEBF0pFnk xDSIfXv7TgKPQPXZYj3pvtOgtsW8pgI7pLF4SD1kGjiEPJEbxp7nMBdPpkyD J3LK0WrrCdRb/Z7T1DgNfBwaxHuxH4lCj9vKMyCTGdC+TZ5AOvFc0Q1/ZkCF WMedFYoEalSZ0wwTmwVmVjzrndiWHW8DhqhZEN+nYumGfVLKazxj8yxo+Fq5 qhY7Nr2iUcphFow25rmHb8DzJNc6YWXNLEgVrVWgNhLowut43vfwOdA7bu7l sJlAoi6uRwwT5kCqcPTJROxYUY343Iw5cHUVPa8RO1v/s5Bb6RzQeyooArcQ 6P3HraOfxueAkSAkuEr4fPU15rcY/gBDJwvKp7cSqHheFBQz50H205XODSq4 zwcfPNTkzgNdqHBETJVAGpl7WfUb50H4valbe7GrjIKnerTmQZHsqV6EXZ/z O4PfZx4cijXLLVLDeVpPChs2zIMz6y2Cn6gTaHllS9OXKwsg+2P+zTaA5xN1 CnjeXAC+t3kRUhDPo5PEo4WUBaBuub7RHltM0iBEvGgB1Mdnqo9jM3zeqCgN LoDJdtcsIU0Cya//N+k8/Ak+XWub19Mi0IGwVGfGwk9A25s8J65LoBt97IV4 gUWwItPd3UH3/3ncvMYmFkF7WrjOC+xDX0LyZDYsAta+GJaTHs5nj9tPhSOL oFnZSu/lfgK5/Fa+satyESio+1AxB/H+vOoKncN+gfMsyzZ/EwJVHp7jL2Yv AVnXEPPL9gQqddpR57x+CRhnX1g5il3kFRjN2LIExHy01h1yIFBOmKCM574l UDPl58w7ivMqZqrIn10CDhp1pnWOeH6xVVzimpfApEz6kOJxnG/H2XdekX/A c4K5fYsH/h8/+qUXd4kGE9ZaWFkFEijSPb/m4FUa/G/1MZ127JnNzlD4Br5f 9POaaRCBKgoblAMSaXA20V7O6AI+rxXpsvZ5NKi9cyDuwCUCBTbtm/u7hwYv vqfvNwklUNN8bFq12jL41W2TdtYNAvlrb5yfnlwG394wGt2fSqB/l8rszgby Qei81vd5LYHEDTI17af4obFJSv+WOTy/KsZ6PS4Lwvd1a6xK5OkoTveTPW+l MFxurCukeZiOxlw3HwGBIrDYxdsz8wodbXvUTQ9aIQbBGCzxKKGjiOD+Pesv iUNrAadMgVE6ajmnvWmSXAlD5RKM0jgMtC7S4o9dugS8+8bp+erDDLRbyp4n Fb4K5p1t3aVxnYGGaa/kbhuvhoalSgeoagaitrQ61a0goExn8JDjNAPpTuxK MKghYAarPfOIFIkC9f2n3N4QcC8wpC2XJtHTR0X7r9YRkHl68FMmtpTbJlrl BwLu2d2lPSZDookhWRelHgLO3U/28uGQKLafT538QcA+oz1GbnIk6ml+29Op QIfshxmFtM0k8vnXVM45gg7F19ZOVO4mUevrYH39SDrsNP6gDzRJpNpccGpb DB3qRFRol2Ivja1+ufwWHQrzamiFe0gULvPe9m4GHW68+zorTZtEqRd1EttL 6NAy3aPhmC6J6veqiO//SoeuTbO37xuSaJOJ81alMTr8Y+NsxTYiUYxdnCX7 Gx3ya8QXh2Gb+03fH5qhw0qHOQMXYxIN5DzRDqYxoMCS3Mg6ExLNr1AIKqMY 8Letx7Ir5iRa38z6vkmHAdXDNDUEbUj0JrXcwVSXAT/tDrrhg+160vGj/wEG nHGO8enDzhPMe1ZjzIDHqgJ/v7Al0Q61vWetbBkwPc2O7WRPIsOU079CfRkQ DJwueeBIIv/jTYI9OQzI+HGDb8iVRNLKvmf5chlQlyMeu9eNRGiZzLBCPgOa R1tUZ2ML3HF56/OcAcOWdQgcO0GiqHe0CJFqBrwU08PsP0miTKVNq5W7GXA6 VKnmpSeJGn9dWxMhQcKhk1J8OmdIlC2/2JZOkHCwdlNpInagsWtsMUnCy6bu vHHsDff3rRhaQ0LzoEm+m2dJFHpI4M9uBRJqZeeIdPmSSD0ncOAHJGGolX+I dQCJssy9Hhz1JqHdg4VJ+QskOv/UTEW9hYRisY7uc1dJdCn8BZJqJ6G6ckjI tjC8noOk3lInCUdEFt28saOIHuvKPhK2Tfx9fxz7nrfTpb1jJOT7O+FLfziJ apVOvTvEx4Qz6v1VlREkYhVEHz2xhQl5yXVK9lG4rwX1kcnXmfB85pekzQkk 6qv+rh1jSsHHXQrxyfdIFM+pVt2xigWbJJ6CuDwSGYiNSyu/ZsF/vQsMvpeS aLvHvLFBLQvyPoROKJbhvn/ku+ryjgXzRXmPj2KP3Jb8nvyRBdtkf4W3YIcq 7nsl2MeCis86PpSUk6hUN8O9fZ4F/3rg9uEaIpHC1cMVAYpsuPrJaJFuNYlo Aq/sqq6z4a55wlK7nkQks9ohO4oNPZ6NvryMrShf5Rhxkw2lX1kdrsI20S0/ bpbIhuuvNwnBdziv60WeI/ew7ZHvrvckOsjMvkCUsqFA+ZdW2EiiJPmrqQ4j bNgzGtHm2kwiNT29vuV7JaGxUesp024S3VhTsUFOTxJ6fpT2y8IeGNt6Vldf ErpUipb9wI6IlF4ZdUgSsh1O8N/pwd+veVJd2k4SOgQYxg324ve1TUhQ8ZOE 4s6x3ZcHSNR0avDgiYeSMLNspnl6CPf/bmBZi8QaOJ3W6po8TaJ10KbNqm4N /Ofdu3sbxZmo92Tcp22XpWDyS2U/C3kmin14Tj9VTxoeUj1rJ7aXiT5sk5gp 55eBxV86Ldc5MZHge6N5j/cy8FFbmWpYMBNpzIxO+MSuhSlW92ZGU5noz1NW dJycLPSw+lj/7QUTdfncPFwSLgvDcm85DDYyUUDnUaQ6LAv/qTFJDPvCRElC dql9ezhw8Um8WMEvJvK0uOPors2Bn2sjf1C/mUj7QavCLx0OfNR3gXUee0JP P5/S40Axy6bFvUtMBG/sqDpoyIFHBWcP9/1hokEGOVhqzYFjx+X5pPgotIFb K594mgND6q5cfylCoZKd254YZXPgfWaQ2TxFIbnB4Y7q+xwo+vds+jEWhaKv JfOr5nCg1F0lzTbs452CljKPOVCrUiXgOZtCTN8O/tGnHPiO2/UlYA2FvAsC LYPLOfCB62ZZci1+nuJbgectHNh8bW4hQo5C8R/Ob1Zs48BTsYfyheQptNxP ySq5nQPbKuTfXcLufH0n73IXB/oquW3zV6DQVSd3K8N+DmR0f2w8qUihwVR6 /tcxDqRUskqP/0OhJMrGWoqfC3cfqFXJ304hyR1V+SUCXLyfWC9dFQolWssJ HRbiQotOX40B7Pi0ifw4US683B8TS6pRKHJDkJDEai6cXL+gc1mdQpdA6tNl MlzoViTsFgApdOzYgPCQCheuoIYbP+lR6EuYjk2IGhfOv07vitxPIcdHOQXr 1Lnwvw+vonYeoJDdlLeNnQYX5vWSvxP0KWQZwPesQ4sLtwrsnDIzpNCBSJ5t vREX6j0V6p81pVBt/tVnroe4UH2sd/CRGYV0m8dEREy50D9QIMXRnEI67MJn 2hZc+Fm8U6nVgkIgQ1u0woYLc64Nz1daUai85oHtETsuNNXyLA60ptDO4RWF i/ZcSNt/atvOIxRS3dhqq+rEheEFftbFNhQqMthR2OrMhR/VykT9bCmk7J0i evo4F8oaLTujZkehZ7HL7eiueL2RwZSf2ErPnQvz3bjwG1MwtNSeQv8Dgv17 aA== "]]}, {Hue[0.6142719099991583, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV1Xk41U0bB3BZs0T8zu841nI6IdqkshQz2YosIWXfyr7TQ4+KVETJvpTk USolWUIiMUSUJQlRkTV7WbLreOf9Y665Pn/N3Nf3nnukHH1MnFhZWFhm8fr/ /jg9LS5INUq9vMphbNGCQHIHnfJcGC5A+vuBFyvY85RAlQOMIGD0njP0L7bl NSZTjHEdBD4tYbBZEmhTRY2DACMVdKmPZPJj//zCILgZ2cD+aaGDNPbn4Y4J DkYp+DputMcC21diZYN0TykoqNa+ao3NbyZJ00l5BY6krn2zw9arddaK2FgO fDga7jpj1zxYTOecqgC/bBLNzmF35/Nls1lVg9Eljldx2O89d5uzM+pB7On7 7s3YSXG0BJvIepB3AJR/wrYvZm16OVkPopzDN3diL6x2AreSBhApp/ipF5t+ M1SmRecDOGyz7+E09sWnrQupbs3A9U3/HdKKQLSAsg/JXz6Bm6+0NjthM6/l udRwt4ED9Zm67tiDKVnsvw+1gVPrHDd9sPPKb6kfy2wDeobi0sHY2qyOL1Zc P4PXgy2Vsdj+8Txpdivt4MpLlfAK7MZ8K7cdEl3AW8WoWtyaQAlJFzpY9btA y5/FJ3Rsy3/vHvke3AWEKIJ3ZLHHNb6JxHZ1Ac1zbxP2Y2/stPzwJ7EbvG87 N6WPrbVmIY94vgHthXt6odiVx8ynTi31gNVHs6vj2BG7zlvslekFtLl47lls A6HbddyneoHAVyWpZezv377cqyjqBZUZLd5cNgRa9T5tSPf5ARr+Pr/GwE7X e/Zlwb8POPpnZNtjd/vmKNeM9YPesxYK/di9JzkMylgGAFf/eb8x7AFle4cC 4QGwmMT+ZgZ7nIV6I0N7AIi63QtktSXQSlzYt+D7A0B+55V/GNjiheYhihaD IPIWynfHtp3hrH3YMASkWA5fZ7EjkGOHQ9fdH0MgoKvElAfbuaxiMmFhCAyc fLyLgu0d5k+GMYZBUaECjyx2qGCvs83lYXCwctDlBHamQgk3VfkncNO+XpeF PeB3xuh69ghoO/ci2syeQMOnz+X7ohFwd3esrCP2qFq4gGX3CLilx/fFG/s3 d/bHnbyjQN3WyDMSe+3+uFGb9yj487ojuAKbbPM7IXFwDFyu2AtkHQh0bN9l 46LacTC9QpMWcCTQcVp8YXrPOMjtTNKTxDZk3heMWBgH5nflw3dhm314+8lc dgIwaqTU9LEdHblMmDcnQNfm0Nc3sC8kxJjomk4Ck/4+Pr4zuN9m001/9E+B TH2Lvq1ncT9raIptWZ4CAvvYWhSwU+LHBmw3/wItHS5tGtihew/696r/AqEF rVucsE94f4zrufsLNI4otOZgz4xtaPlm9ht85SUyVZ0IlOaryJg8Ow1GFOob PJ0JdPI258Zo32mw+iK37jI2P+qekL84DRQ0V74nYV8RuFzkkTgN5mX0rN5g e+Q1aUxUTwNqv1yagAuBDk86OYxLzoDnb4oPl2H3utzOGO2aAUHF1ktSbgS6 HafzJGx4BpCFWsGHsI3L/hSKzs6ArK/rW8ywa3mM6/R5Z4FycsaXSOxnz7kn C9RmQbqkwdoM9vm5YJV/H8yCIe9TGo3uBBIKtWnn9pwD6WeGmWmeBGrK5u19 cH4OOI8dNynDDm8tGzkUPgd8vFQ+fsFekqKuemXMAdUiFx3Si0A/aluk2lrn QOSo3p4E7Fwe6JN24A/IDzckk7wJpJNC55Ff/wN683Uiy3wJ1Kq0oBHFOw+2 b02u+Y5t2f3+wojwPHgR0CrH4kcgL3G/qay986BWrin8KHbSg6pWccd5wFIm 4NGFPZhnncpfNw8GaQXibAEEulyfwpi9sQDaD2Z5XfqHQDxu7jYnUhdAJ7xb 8xg7iUc9JS9rATDVI463YmcbDHN5VCwAM77F5W2BBGr5rDgxOLUA5BjxLc3Y 4n2thR0nFsGrLLYw+fMEKlviAWXUJVDNJ2a9+QLuZ8OnzzToS+Dw1WUDNWz1 R0dpTbuWgJblEX937BrjazO9Wksg590jkzrsppy/WewBS4Clayzw0kWcp/X0 xhMfl0Cahq334iUCsVZ3tP28vgzS5jaKE2F4PgmfA76Jy4BiaJWlgx3hJZS7 nLEMXBzyHIKxeUWNwvleLgOzzP6rA9iUgAalfUPLICgJOpZcIZDM9tfpl+AK 2H3+wkOnawTSj8p0piyvgP0nQ+kz1wkU0yeynMKxCs4yPar2Rv4/j8SbIkKr YE6+8r4vtunP8AJJ+VVg95ahNINtqemxImuzCjzXBp/MRxHI7e+BGLXqVTAR b/CONxrfz6+xxDlqDZSe5XnnFUegaosF9jIRJqiJUTPjTyNQhZNqo/N2JlCX ullqif3SLySeosAEEn1WVtnYOVGckr7HmED4UprLkbs4rzKqkkwQE4ROriSc T8fzS0TJLbmdCexcdyjNZeB8u4Oa/WLXQe+wYI7IQ/wf567pJV9hgWVdcYwd +QQK1t61NDe9AeY+swi5V0+g18w39kEhbFAo5XdC9DCB+IweaTjMsMOh3aud HmwUZFg1+cPnKidkCWFdPcmgoGTdQQcG/0boRl9aH9WkoEn3vTYghBu+9tRK VbSnoP25PUToJl6oPyP3quUSBUVf69fcfoUPNvMPv+G4Q0EdF7X3TJP8sCcp iRW9pKBtsebr9g8E4Pnr9bsD2inoiLgDQ/zGZsgrWjoEpylolOWddJqJIJzz /d0VsolEwgqdTo2bhGAvWo9tkCaR7i+1VKM6Ifjov00c1YdJFGIQPOPRIAQ5 fb30RdRI9CL35fHIRiH45Z6ymR+2uMcelupPQrDt7rucreok+jWy1W1frxDs j+s5cxGQKKmf7RC5KAS1fPk2yGqQqLf9fe9XWQI+N8l7YHSURAGvzaSdown4 LbrFt+8EiTrrrxkYxBKwDPISDGMSKbcXndufQEARI55QF2zmpOBb1tsEDOuO K57CviHZYvdfFgF132ekLpqQKDNM505XOQHNZuYMNpiRqOmoEt/xMQJ+/iOz ecqcRNvbabN7dCiQbYXjobw9iRoyKx3NdClQUZudwwXb3evs52B9CnTn37n7 AXYBZ0FxnQkFenPndws7kEhV5WiQlR0FekompbE4kuhExj9rEecpcMjXaqr+ DImCXds4e3MoMDGOV2GPC4la126KRQuQMPviqRoPLxJly6x+eSBEwtdinoN3 sENM3JPKSBJOKF78Vo8t/+TYphExEt7f6W68zZtEEaYc60dkSbh4N9WyC/tQ TsjAIiQhu6YNcciXRI9P+z0940/CntzDuUP+JLr04pTSoQ4SLl2J2dIRhPMq aoq9d4sK3QONFdgvk6ivdlY7wUwYMmUtKZKRJEqRqlVW3UyD3cKuC+9iSaRW Z86gEjQY0rpT+yf2kOuUwCxJgyma0/c54ki0r4A68lSMBgP89kVoYTeruyWL yNCgvlovswab3Zp/dkmNBjvz8r/WxJPIP8X8WakHDR6hP735MZFERrxTEgfq aZB1bpuZzG0SHfRZMjH6QIOe9yaLDbHFP7NFujXTYBT7acVA7PE00dl7n2lw awznrTrsCLlj7zj7aPC5dUS50x0SVehmeXct0aBeR7ZibhqJZCMtqi7IicC/ Cvx6pvdIxMLxzr7mlgg0aioBwlkkIqm1jtlxItAzbqJHC1tOpuZsdKII3Bvw Ncsf+6RupeupOyJQ1zQjuwU7+9ZL3/GHIpCp254Y+ZBEhtTsy0IVIjD/qLEM +2MSpctEZjqOi0BTWYMgsackUtHT62M9KgqFa+bl2vNJFCNWJS+tJwqN64t7 BAtINDCpGKRrgJ10p9EIOzpWgj/OVBTeIm5ZNGH3tU8fkrAXhVb/UDQbCnG9 dqmpSv+Kws7iIwGNRSRqOzdk6PlMFL5JXXNleYX79b+QNx0CYjAsPlFjZzWJ piR+drwVEoPXW2/XnMP2TTf4VUiKwb/lppfeYAfeEd8SIyYG+UIlsoxqSBSW WH5ZR0YMDl/RKwx8S6Lb1xc0S9XFYLBsVd/HOhK98/H+cNtLDLZCmdK8DyTa Bm2/WDWKQfVLgu0SHST64ZU8uP+qOKwa2LRXahK/92cXDTL1JGDD7wqm6kYq +rRf4E8luyTc7vVhqxSDijhbjJd8WiThq5RD29w0qEj9z8SvgKQtcHd1WVWS LRWtv6DFJ0tvhVGl8zoZgVT0LSDRovzGVtipUbe2O4aKLnw9g5RHt0LznSpH bjygonQu+8w+TSk4Yh23ecdLKio/vD/fOFsKckm88elroiLpodHu2idSkJ91 oVm1mYrib95jV86Rgl6XOuyTsV2/clpKPpeCM8Xx0sdbqIh6vpt94oUUvBpk AMs+UpF/UYjltUopWHR/bktmGxXJy73nKO2QgideRiimd+HzhW2txdnp8E+z kYPHMBWJqtYUlnPQ4cknbcmD2HespbksuOhwj7H3QeufVJRy/1dhMg8dTpaz VBmOUFGsfCiXgCAdet8WYFMZo6IrIPPFBkk6vJ+rxrZtiopcXAY2jijRobT4 KQOTeSr6GaVjG65ChzHCV652Y5/NzSnadogOsxQi1B0WqMh+xt/WXp0O+bcp 6vgvUpHlBbbibi06rC3+WZi2TEX6sQy7JmM6zDz47QkHk4o+FEYWu5vS4YpZ R1Qytm77JDe3GR0OR1DXtq9TkY5ISbG2Oa5n+HrqMRZhBLK0eaps6dDdsaMq iVUYVdY9tbOxp8PPHqVwB5swOjy6qWTVgQ77gKBFJbbyrk47ZSc6fLRfw3Sc XRi9NFIt6XSmw51jWQfDOITRAf8Mnn9c6ZARnVBM4xRGxUms9oQ7HeqttTUX YO8rdS4p9KDDv2M7rupyCaP/AWgTDHU= "]]}, {Hue[0.8503398874989481, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV1Xk01U8bAHAkawjf711cWm5K0b4RMdNCiJI2ZE9kzZIWCpUI2bJHEpWo 1xaKlCFbQpI1WSL7di3dLup65/fHnDmfMzPnzHmeZ55Za33J8AIfDw8PG4// 5udJDyOuqgZpNFUmrDJ8TSDFvRey7OTtwIGfGRMnsX8TV/btkb8KOAcMSk9j m/hzuQz5QPDNxcXBGFuspNxKQj4O/PtyttcSe7BNXlpYPh3E71E85or9baBl bLn8G2AXra4fie0qt8C7oesNCAwMuRKFLX56FU0r9i24lzyZGoOtW2F7OECo GLwLWL78IXZ56p8kgYkS4J3FmkzF7shekb7sXBmgmKeZFWB/ctpqxC9fDWyK 56p+YEdH0B6Y3asGhhTvqB5sy3y+usLxahA3dMKmD5u92ArsC2pAIo+o9DA2 M8RXoUGrFux8d/7ZLPaNjEZ2nH09ENeLThPNJxDNo6g2pu0r2DKzVhlgc/2z 7MqFm4DyWanEg9j9sWn8U2pNwKlyL78WdlZxqIZ2ShPQGVMd1MPW5LPOW7j4 DXiKiI2aYLtHijy0WGgG34f6/lzF/px9zn6TXDt4nyFoV4j9INq7hU+vHcRs TlYrxja5nnjgh1c76N2RSX7AHj3YSQ9vbwcsNvxeiS3UalI7F9UBwmY1nrdg H/5rrIREOoGVu44BG/uDttHEGU4XSLSUXr+/gEABW64Zb1foBhsd376B2PpS 8ZXCZ7rBtqE2A03sH51tj0ped4P9cRmxx7AXXc4eY17qAZe5kW5W2Em6L9vY 7r3AQ8TZ6R52h2umSvnIT2DzzPhtJ3b3qeX6RTx9ANl9W/kTu0/F0iqH2gck t75yHcQe5aEEJ2v2AZfnT7SmsRcibnV6PekDsmNZeoKFBJLNNfLZZdwPyC3i tbuxzacFKp7W/AK5VkpNMdjWLVbtiT2/QH2qimIStm1RyfgD9i+wFDYTnIrt csudvCU/APpOJdhmY/tKdtua+Q2A8papwE/YKTsKhCkqg+BnY/ONJew+t/PH A9OHwNBQ/W33NwQaOHs52xUNAa22okwv7GH1uxImHUOgXSel+zb2lHD6l82i w4AdmuwQhf33yejxJpdhQI3dQRZgk01uBnJ7RwD/xLWPC9jaO/1OvK4YBcN2 VdzwtwQ6SovMTeoaBW9XnqpOwD7GfSIZwB4FbMGVyWnYp2s/fjXaOAZcQs2v vMG2thY05IaMATUpp+YebO8HYYY6J8dBx+39Z3cV4XqbSTrZ83MCXPe4uWwQ m3nwEGP1/AS4EOkzxcKOjRzpM185CTQ9hUcXsX2373Xv1pgENmf4RKWKCWTg 8iWiK3ESGBs5cTWwp0d4GzpPT4G7Iq+LE7Efuu6SH7dhAT3eciGrdwQ6FS8g dN+VBZytxoedscVRx5jSDRa4uGa8wwv7toTfa8coFhBXKJqMxnbMqjs4VsYC HkGZA5+w949fsBpdNQ1aTOVllEtwvdjFJw+3T4MEt92Kq98TKD5C68WtgWmQ NVAdsQ37RNFcrszMNBDfKCMOsStETlTqic4A2QRbfSvsl/8THs9RnwHyMVE/ n2Jfm/Xadz11BtzpoV/b/oFAUr5mzcJOsyBcXHKNSSmB6tJFu1OvzQKlzPoo Z+y7jUVDandnwU9QsfYWNmctZdE5eRY8Dmm6/wK7p6JhbVPjLFDLSErlYL8S gZce7pkDgl6nBh8hAmnFMkWUluZAtXJ54r8yAjUqsw8Gif4G1SkD64hy/H47 PnkPUX+DqXXfaxSxnWXdJtK2/wYONun2RtjRqaWNsta/wczPEeEC7P4s0zjx yt9gIai+y+MjgfyqY+VngtlA9AAnXqiSQCL2DmYGcWxA/cedZmJHi2jEZqWx gXGpmaM6drr+gKBjCRuckYsqdcdu+LZrrH+CDUryR1jd2LK9jbktBn9AfVZg +PsqAhVxREARhQOU5Vq9o2twPR/LeHmQyQHPJIOX52JrPDtCq9vCAdrzp7Lq sctP+E93H+YAjf47ZoKfcDwz/6Xxe3DA84bw3Tewu01ZQgZfOOBRjmObYy2B +MpamgYD58Fdc5b3+Trcn6iXgWvUPPCM+iDhjx3gLPVqPnkeEF0ylU+xRWWO 311ROA/kfCujB7EJjxrlnb/mgXBS0yfHegIprH+XdBMugDcTHQk3GgikF5Ri S8wvgBTOzYNvGwkU1kufj12+CKZis7V6G//LR1QIXWoR9MAXl4W+Eujk4N2c VUqLoFlgxzFjbJNDjgsbzRZBkpD1/F9s+397wtTLFsGfXS7qet/w/dw+F9gG /QXvm0NbRVoJVGbM5i+ic4F0WIGkyA8ClVxQ/Wy7ngu85z9e24dd6OYTSezg gsNn85bbY2cGCaxy1eaCfDG5yBrs6CKKssJVLsgWTHQO6sL9i65sH9PMBT2L z5WlenB+O67Wu4UvAac/d76CPvwfv/qrG3ObB/KtrvknOEIgL80tnFkWL7zw vcDvyx8CveO+t7zqswzWTyxmegmTaMXxZwetpvnh45lNIY9kSHSsdLzn0h0B qC02OtO1mUQxOv1W8uJCcHuB9vNcdRKNO2w3Az7C0FfD02aDHol2v+qS9hUT hUG/70m8MCHRff+fh9bfXgG3Fe1pCbIjUcsNzW0sUhwOTYdmmHqSaF240ZJl qgQci08JU7tDogOyVvKywSvhLnGF7nsRJBrmqdrw0FASklW6NyQfk4i6o/XC ZzEpePLf4irlVyTSmVSPO14pBb89X/y3/i2JPN6d3mB7Xxo6iNnLh3wkUWu1 v75+uDS0na4Gedgqza8v734gDSt4tA90YHPHJT/yxUtDT9409oYKEgWvarB4 nCYNxZJjFcuwU25pJbQXS8OOp52FrEoS1R1RXnF0RBpm+Knb768h0fpm2sw2 LQLqZQTCwDoS1aR8sD6tQ0ATl/w3mdgOzjbfvPQIePGChFQDdo5ATn6lIQHP qYa7EvUkUt135Oo5CwKqqPu1PsY2SPb8G3CNgK+NdE/nNpDI62KTQHcmAfci 8LS0kUSNf0MY9yVIuCbYzymsmUTpCottqVIklOo8UZuJ7WPoEF1EkvC+fZtk NbbSC22xIQYJC+cczZewA04uXzqwkYSBm9+xXFpIpJbp0/cHkrAUWknptpLo +Vm3jPPuJGzIj5SebiPRzbwzymotJKwqjXst1EmivNd14Y9CKbDdIyxnfy+J eitmNB+cpkKH3rvNNwZIFLu2QkV1JQ3WNZe/CB4lkXqlkTxFmgbDDHfefIz9 6+KExAxJg5ptuqb52DtzKEMZDBqscVlU7cau17CPoSvQ4Lkzf2/uHCMRv6n4 DEedBud4M5W7sN1jjV6+caRBvsltF/ZPkOi46ITcnmoatD7Kv2ETi0R7L3EM j9fSoNjsqepD2LLflt2zr8fncw19zbFHH8rMPPpGgxm2orujsQMUtasEemnw yB/nAp5pEpXopLm0c2jQ9yYv7MbeeM+41FuRDvvYS4WvZkkkMW4zF7OFDvsD pwJqsdnHXTflbKdD/w0nPIaxP1IDo37tpUOv/PWp8nMkMk/Pt9M/RIcfvuwy S8aOrpJYudoU79fnuMX9JhHP8irL8lA6LNv5w+LJHxKRlArr9Ag6lCyoaUHY igrlNvej6PBnfYx9L/YpnQ8XzyTQYai+49hqDs5/aKHr6FM6PC691zQF+xgl 3U+qhA7LZ9ql0+dJlKRwL8V6lA4buYJDdYskylUJSD0yQYfT+3acZ2FX6fg/ 3cyiw1s+PHzEXxKxHP1esH/T4QvBjS/OYR/KuZYTzCsDq1hvH45jj6rYozya DGwiMvaRXBLt09Xt5TsiA7uUuFa3eSgojFGqtEFXBt6pSOv8H3bf+K6rOvoy MPqLy50O7PvhcuIRJ2Wg41NF8x28FNTbzFKTs5SBZS8UNPuxAyzi4pSvy0DO 9Z08BssoqOnyr2NOL2Xg4q8p42MCFOTw2Od9iwQD2vk3OQ+toKAJucGWj1IM 2HNr/T+GGAW5JulP5pIMeHQXeG+AfSVBdnUYgwE9wzY1FmPfiir201JgQI8Z n0OR4hQUH8g+9EaDAfen2V4+spKCqi651MY7M+Btca3IDmkKWgfN2859ZkBF VYut8QwK+i4brqbWwIBFazSU27Ej5ksfy3xlwLI0T3eaLAVx89Ze7GhlQPHE Od8E7O/rBzhn+hjwZKTmn0dyFPRA1EnGcJ4BZYTszuSspiDetutm2gqy8Fnx 2qKFdRTU4xzTv/uOLHQqz3u0bgsFRb+8oZ+iKwfLtz/d7HaIgr7ulpj7wL8K CviHFN43oSCBhhOcSw2r4EaRZbbZlylIY25s0iN6NdSbPcjfGUpBS3m0yJgN a2CRsIhXSRoFdXpEGRcHr4GKv+cqqUUU5P39PFIZXgNzVP24I7UUlCRomdJ7 aC1M7OlXEe+koOL9u7NPpK+F2VcrnI6O43WquaksPxNC2LkQ94+CZFTLc4uX M6FFerntKHaC6QZBY0EmvAZZoupcCop9MpkbI8KELiXx/P3Y4Uq+ghKSTPig ORTt4KGi2yAlj3cVdtLLqe98VGRn1yc0pMyE06n6qZZCVDQYpGV+dx8T3uRh uL3DtnmV+XqdGhNWSOSEUoSpyHLa3dxSgwnf+rbn1WObeC/L7zjMhEoj1aVA lIr0wuUt6k4wYZ2ohdcucSqqzb2X73CSCUf2TnlGYes0jwsLn2bCK0IitbPY WvSCfE0jJiSjE30KJKgIpGmKlJoz4YT1+c3qklT0oTLDwsySCfufeC89xt4/ LFawaMWEJ68kb18mRUUqW1otVC4woXnSp+xa7MLjqgWttkwYErxnaas0Fe1x TxbxvMiEploe2VHY+dF8ltIOTLjCZE8ZB3vnG9uCXEcmZDzcusecoKL/A3rH aqU= "]]}, {Hue[0.08640786499873876, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV1Xk0VfsXAHDzcMWVOHek53bRoEFliPh+UwlPISmEUBlSSIomUxkbzEOS RGX8mYfI00lUTyVDpkRoICGUG6nrt98fZ531WXuvs8767v3dW9nFe+9RIQEB gW/w/Pe+n54W668bZcDNkGzW5SuQq7WOFrlx3dDfphm1euBZ+TNbNLn+SPd5 dOFWsN1lPp/FjUCdL3wTDcDSdQ3OVG4KGr1U4WcI/tzNXSbJzUGmX8oDTMEd nzq/inKrUdK1t+kHwT6KvwRV+6sR96NRnT1YxlqJbpT8AL1rNut3AJs2uu4I l6hFM2gd1wnckPUzXWyiDkVvjmg6Au4tXpIjfPAxkq9LtvEC/3t8nY0I9xl6 u5bfGgpOjKXHO0Q+QwYhK3ZeBjtVCL2sGn+G2N1hD8PAvIUu5FH5HLlIUYsj wZwrQWotRs3IY11C6XXwhbxWXorHK/TjoLfaTTD9VE1zUncbui//9VslmH+5 yK1Bsh3N6KaVVYM/JGeLfNNrR50rfvvXgItqrxkYZ7ajjQ6jlH/AO4Vcyn65 d6CQK28sG8G+cZS0Q7/eoMmK224d4BfFBz1WKfagAjebtu/g+MTznUJmPahc 1qVl9r/zPntz27tzPWhWHLf8BI8Z9jFienpQwLnIrgWwRJdd84+EXtT+oEZS ZFGB3PHbdg1J6UPeEX/x5cH1xjYT++f60UyF2tYt4PC1AbYb1AZQpnf+TT3w brnUJsn9A+jYqki+PvhdX/etuvIB5NTn2mIIXvA6sIfj/R5JG2xMMQOnmxZ0 83wHUd4iq80J3OuTr9PwZQihoV0SV8ED+0R31wgMI88ojZbr4GEdJ+cS2jAK 7vyaEgceEyCiM3YOI67jZ60U8K/YkL5zd4aRwM3g7Cwwu9QmcJPtB8QMfa5X C3acFmu8+/wjoij1XhsHu3Q699x8/xEdyvzV/Q3sWlM3Hs/7iJpOpKp+B3uF +CqEcD8hAQGntnlw0NIBV4fgT+i0WIODuABBZmpUShI6n9FmmcX9K8DDJw+b R+SMIMmvHJ4j+NMBv2IfcgQ9kzXYcBg8qh9GtesdQcFro3zcwN8kc16rS42i Nqk2YR/w7ztj5u1eo6i4QuFMCFih/aSFotYXtLhKNO4e2HhjsGV54xj6ECr7 fgb8Nz2uNL1/DE116079BO/h31kazhtDNx9USvwBWzc/abNZ+RW9evrEXFyQ IF1cxPfyr3xF1ZOW2mzw+fjre02sxtE39QG/XeCimXSr90MTyOq66HQ2mGO4 nbV8fgK1d8+l5IGT474MO8pOoksJ7kbF4KANWr4DBpOoaniwphZs4fU6tv/m JCKXrv/dBp7+ItjSZ/0NbRJT5wkKEWSazybu+JEpFJ11ScAdvC9VTOKqzxQq rWjK9QLLkL1f11yYQn6hRbanwaHU4HLPhCkUeOlmZyjYs+il4dfHU2it5E+t DPDW8aPOY0rT6L37sdwu8IBbasZozzRKFLK5tkeYIFNjjXJDPk2jtDVDogfA ljU/Spkz0+j3yLLoQ+BGimWTmdQMCl9fWOkDLvif5HiJ/gw6bca9mQAO+H5u y9msGRTRt66gDywX5PBG8vh3xDCibDstQpAvc6QGsgK+o1bLMJMgcFhrzYhe 2Hek6OR+KAo8p0wsnMj4jkymbpffAr9vbFFub/2OdAfcFp+CCynYO03zB7q3 S1CDLUqQRskcyprFH+jPvR0ubeBWbZ5hlNQs0guK+v0ObNf77/kR2ixKwufv jYJPsE9OZG+YRXPUWysExAgyMetRK9tlFkUMO7avB38osk+RaZpFG8oFxOLB wc+SuTPRPBQwG6TqIk6QFI9jDhYpPDSQuLHUG5xIMUguyuYh0UVTs4vgnN2f xD3reChS70N5KrilY9PXDxM8VCW72rQVzB5sLe20+IlmteszDCUIsmaOgmqI OXT4ZPT2zZLQz3vyCgw5c0iscP6TIdjg3i76y7VzaEeVQqoluMHy8vTAjjlk 1np+jTf4Zf6fbJFTc6imTE62ADxgPyVh8XoOQQP2qFAIUuhxZ/vniHl0aehg npoUQe6g+SGfhHmkmH/LSgccfkKucD5jHgWuLJYxAUsxzcOWVM2jNn/n6mNg +VPPtTd+nEetGYMdRWA1lYfpF/EvtHp0BukuIUizqExX+flfyHzXUQVHaYK8 PsiYTxZdQIKbfwf6Sv9Xj4QrDLkF9OTdgT/hYKvPYSVKaxZQkUKATgnYbrvn r5UOC2jlD5k8YRmC9PijeV3/8QJ6FFYcUAQOP/mi0jXqN6rW1JxZJkuQj215 IjUMPnKjqdcrLSPIuqO6L1xV+KjYbrFOC1x1MjBOXoOP/Lw2tewB50eJKfkY 8xHvUaFaEDixhtBW8+cjDTvnqkGwK0PbI+kNH12XWGWQIw/17fV/dTJmESnn nX6+jSDI1YW/TZNCBXCEiWBVPoMgz+1cO/d9ShDnvxVPk1QmyIf8f5z8A4Ux McM4+3AVQS4xv2foPC2CX6h80BXfCPPl0fh770tiOD07UrNElyCTTD44c2Uk 8KCdHvWsIUGOH9vggAIlsaDVOuk5Y4LcXNi/LEhaChtJj242NifIq5eHtquE LsH2J00OP9xHkJ0Xdq6fUpDBLy8UNoTaEeSKGJtFpywq3hrL3O3mRJDb2M5c drQsLgqhRFm6wvwUeKqatncpNuhNXG54giBpGl1HX0jL4coTwRy2H0GaTOqn mDfJ4Uu7/2z9co4gTz20VnW9ugxnLHTnCoUSpMob+sx6I3ncNC3lsTQS6vn7 CusqVQHrnBkX7rhGkBfL9mvrdSpgx3tRAbnxBFlW/jLm1jUCd+YaDSUlE+Rg 48zOeGsarm9Ilb+YBvNQuVFHV5aOh/jNVcszCFK/yYZLLKPjsYr3XuvAH90n qDMKdMzzDVLXB28sIUbyWHSsrlP3wA78ysAjiaFGx+ExZbRksIi9zMycPh1n hcwIy9wmSN9km4JqTzqm3ZrUFc4kSHOpCUXNZ3S8ZNTTWyKLILW85/aaN9Nx YGx/JRPM7hCO9HhFx2/uCFPWgsfSmDO3OuiY4z/VZwkOX238VGyQjqNcR1el g+tMsr165iD+1v7KpmyCXBlp++j8agZ278s297pLkNTxIz+S1jLw6lmna6Fg nrnPqpINDKxwTrI/GfyEFpHwUYuBmw1zyh6BHXMq3HZvZ+A8+rCu3D3oz6dU 2eX2DGzLGOqvBQuIPnVquMbAsu4jR1g5sN+IRpecWAbmOlrc2gBerdZw5GoC A6vYrvqyE7zPpN59/w0GDo7IfOgDzrlW5TN2l4F/nu7d8wy8h8gJlqtj4Fb1 LcYBuQSZrhaZ6TIG//dDeP9YHkGW6oRn7ZpgYP3ku5pC+QT51OTyXfUpyH/j oc4ET3kG5/JmGXjzYO8hU/D2koCSaEEmHm9MHioAj+l4kGV0Js79u/7YqQKC 3GJqOii0i4kRq+Kowv9gPrAerVE1ZeJT5dT8jeDh8U3+JruZ2OKcuIwF+GqM okysFcTvHNa8Ah58M6Wn6MTEF7RmRYWLoB6HUlK0zzKxaseN13Pgdr+Pe44X MPF+21gpfgnMJyPbtJgiJp4bc7m6vJQgL9BaPpWVMvHzwxc1toFVaqsvzFcz cfw+1pfL4IDF6PzwRibeZP1tqUwZQSpFa4jd6WdiaomJh1o5QR67HfhPJ5WF 47/dXuFfSZATip87n8ix8D5XjZE0sE/67slSBRa+f391Sz34zA328ussFpZj 1YuJVxFkSEJtsJEaC3/q26FyA5wawdtebcDCmeqG6xqr4Xy9vZpTT7CwKrWL pVUL9xk7dh98wcKdctKbrj8iyLfsGD29FhZeDLHIrgXHzj+6zWxj4YHDRboj YH6ZsntvFwvPmEwOYBLyVT7N7R9mYWXlYf4sOF7qOHPvPAs7d/Tfd2sgSMHu sw7GamwcGCLV594E+/VE0ofNl9j4fXP1/IcXBNlF0Y/bG87G0c63JJe//G9f fzTwiWLjba6Vxnbg2qFNaQUxbOy0YLOvDZxs3W7BSWfj6tf7Mx+/gn2gT62n VrKxx5pygYLXkL8kKnXsMxuv8UjwzeyA/i64sDvTVBHHrVSpl31HkG2bqT/q RZTw3rgcjvcEQYq1WM55tyhhCZFnR98I0kiDH18nTyUux3soUV3qBI1cLKPH Jan+hSn2KkvMVtLIvlMJtrXRf2EffU9/ti6NPP/2MKkz+hfmJbaYlhrTyHRx p8zB7cpYItJjSM+aRtZu3VxsmaOMx/KcLwc5Q5zmaM8W4eC1+ZPbrh6nkUzd htJaUQ6W/eW+qx58w15V3FacgzUiDe2mwMl3JkuTKBzs8Dwrb98JGhmzJkic upSDp+yX/VL0opGhKLNMUImDM6sv1JZ700g3t2GJEW0OFslLuD7pSyM/Rxk5 hm3h4Eu8x2IrTtHII4X55Sv0OLjI2PrGAbDTtK+jkwEHP+Ucoj4G250Xrujd wcHHzv8xTfKjkWYx3EMvLTnYSMbCefsZGtlcGllxzIqDR69Gl58Fm7wZl5S0 5uDcAkW1ErARo7Jipw0Hv3JV8FP0p5EoeyflkSN8/0Zb6Ty4vinvkIMTBxOV 1iyNABq5dVS6csGZg2tb/s1zB+us7Tqkc5SDL+dbafeAq8x1K7tcOdiDaqUt e5ZGavpmUE67c3DSAwVHY3BFopDTsmMc7LNjaWEweGO1a2WpJwe3Zz9UrgH/ H5Gq8sY= "]]}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0., -6.68739249645072}, BaseStyle->{FontSize -> 14, FontFamily -> "Tahoma"}, CoordinatesToolOptions:>{"DisplayFunction" -> ({ Exp[ Part[#, 1]], Exp[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Exp[ Part[#, 1]], Exp[ Part[#, 2]]}& )}, Frame->True, FrameLabel->{ FormBox["\"Frequency, Hz\"", TraditionalForm], FormBox["\"|Inductance|, H\"", TraditionalForm]}, FrameTicks->{{{{-6.907755278982137, FormBox[ TagBox[ InterpretationBox["\"0.0010\"", 0.001, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-4.605170185988091, FormBox[ TagBox[ InterpretationBox["\"0.0100\"", 0.01, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-5.298317366548036, FormBox[ TagBox[ InterpretationBox["\"0.0050\"", 0.005, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-2.995732273553991, FormBox[ TagBox[ InterpretationBox["\"0.0500\"", 0.05, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-6.214608098422191, FormBox[ TagBox[ InterpretationBox["\"0.0020\"", 0.002, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-3.912023005428146, FormBox[ TagBox[ InterpretationBox["\"0.0200\"", 0.02, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-5.809142990314028, FormBox[ TagBox[ InterpretationBox["\"0.0030\"", 0.003, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-3.506557897319982, FormBox[ TagBox[ InterpretationBox["\"0.0300\"", 0.03, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-6.502290170873972, FormBox[ TagBox[ InterpretationBox["\"0.0015\"", 0.0015, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-4.199705077879927, FormBox[ TagBox[ InterpretationBox["\"0.0150\"", 0.015, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-4.961845129926823, FormBox[ TagBox[ InterpretationBox["\"0.0070\"", 0.007, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-2.659260036932778, FormBox[ TagBox[ InterpretationBox["\"0.0700\"", 0.07, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-6.812445099177812, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.725433722188182, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.6453910145146455`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.571283042360924, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.437751649736401, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.3771270279199666`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.319968614080018, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.2659013928097425`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.521460917862246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.115995809754082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.8283137373023015`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.710530701645918, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.487387150331708, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.382026634673882, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.286716454869556, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.135166556742356, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.074541934925921, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.017383521085972, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.9633162998156966`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, {{-6.907755278982137, FormBox["\"\"", TraditionalForm]}, {-4.605170185988091, FormBox["\"\"", TraditionalForm]}, {-5.298317366548036, FormBox["\"\"", TraditionalForm]}, {-2.995732273553991, FormBox["\"\"", TraditionalForm]}, {-6.214608098422191, FormBox["\"\"", TraditionalForm]}, {-3.912023005428146, FormBox["\"\"", TraditionalForm]}, {-5.809142990314028, FormBox["\"\"", TraditionalForm]}, {-3.506557897319982, FormBox["\"\"", TraditionalForm]}, {-6.502290170873972, FormBox["\"\"", TraditionalForm]}, {-4.199705077879927, FormBox["\"\"", TraditionalForm]}, {-4.961845129926823, FormBox["\"\"", TraditionalForm]}, {-2.659260036932778, FormBox["\"\"", TraditionalForm]}, {-6.812445099177812, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.725433722188182, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.6453910145146455`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.571283042360924, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.437751649736401, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.3771270279199666`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.319968614080018, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.2659013928097425`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.521460917862246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.115995809754082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.8283137373023015`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.710530701645918, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.487387150331708, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.382026634673882, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.286716454869556, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.135166556742356, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.074541934925921, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.017383521085972, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.9633162998156966`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}, {{{0, FormBox["1", TraditionalForm]}, {2.302585092994046, FormBox["10", TraditionalForm]}, {4.605170185988092, FormBox["100", TraditionalForm]}, {6.907755278982137, FormBox["1000", TraditionalForm]}, {9.210340371976184, FormBox[ TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {7.600902459542082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.006367567650246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.294049640102028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.517193191416238, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.699514748210191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.85366542803745, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.987196820661973, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {9.104979856318357, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, {{0, FormBox["\"\"", TraditionalForm]}, {2.302585092994046, FormBox["\"\"", TraditionalForm]}, {4.605170185988092, FormBox["\"\"", TraditionalForm]}, {6.907755278982137, FormBox["\"\"", TraditionalForm]}, {9.210340371976184, FormBox["\"\"", TraditionalForm]}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {7.600902459542082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.006367567650246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.294049640102028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.517193191416238, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.699514748210191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.85366542803745, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.987196820661973, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {9.104979856318357, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}}, GridLines->{None, None}, ImageSize->500, Method->{}, PlotRange->{{0., 9.210340371976184}, {-6.68739249645072, -3.8563862511823377`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}, Ticks->{{{0, FormBox["1", TraditionalForm]}, {2.302585092994046, FormBox["10", TraditionalForm]}, {4.605170185988092, FormBox["100", TraditionalForm]}, {6.907755278982137, FormBox["1000", TraditionalForm]}, {9.210340371976184, FormBox[ TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {7.600902459542082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.006367567650246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.294049640102028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.517193191416238, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.699514748210191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.85366542803745, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.987196820661973, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {9.104979856318357, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, {{-6.907755278982137, FormBox[ TagBox[ InterpretationBox["\"0.0010\"", 0.001, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-4.605170185988091, FormBox[ TagBox[ InterpretationBox["\"0.0100\"", 0.01, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-5.298317366548036, FormBox[ TagBox[ InterpretationBox["\"0.0050\"", 0.005, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-2.995732273553991, FormBox[ TagBox[ InterpretationBox["\"0.0500\"", 0.05, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-6.214608098422191, FormBox[ TagBox[ InterpretationBox["\"0.0020\"", 0.002, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-3.912023005428146, FormBox[ TagBox[ InterpretationBox["\"0.0200\"", 0.02, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-5.809142990314028, FormBox[ TagBox[ InterpretationBox["\"0.0030\"", 0.003, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-3.506557897319982, FormBox[ TagBox[ InterpretationBox["\"0.0300\"", 0.03, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-6.502290170873972, FormBox[ TagBox[ InterpretationBox["\"0.0015\"", 0.0015, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-4.199705077879927, FormBox[ TagBox[ InterpretationBox["\"0.0150\"", 0.015, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-4.961845129926823, FormBox[ TagBox[ InterpretationBox["\"0.0070\"", 0.007, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-2.659260036932778, FormBox[ TagBox[ InterpretationBox["\"0.0700\"", 0.07, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-6.812445099177812, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.725433722188182, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.6453910145146455`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.571283042360924, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.437751649736401, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.3771270279199666`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.319968614080018, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.2659013928097425`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.521460917862246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.115995809754082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.8283137373023015`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.710530701645918, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.487387150331708, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.382026634673882, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.286716454869556, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.135166556742356, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.074541934925921, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.017383521085972, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.9633162998156966`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}]], "Output", CellChangeTimes->{3.65590775413094*^9, 3.6561084558984547`*^9, 3.656108816226319*^9, 3.656108858083748*^9, 3.656109083022724*^9, 3.656235873998638*^9, 3.656236101186388*^9, 3.6562361644990215`*^9, 3.6562471455654187`*^9, 3.656247354872669*^9, 3.656247808650454*^9, 3.6562480877080545`*^9, 3.656248419565263*^9, 3.656248532323801*^9, 3.6563791507861547`*^9, 3.656409926000005*^9, 3.6564103634245386`*^9, 3.656410459233618*^9, 3.656487877127473*^9, 3.657145534380025*^9, 3.6572142564667454`*^9}, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztnQuAVNV9/8edmX0AItY8TBMTmqSpTVLrv01Sa7MNCVolPsAHiFKroiLa SBCRIEYFX5gIuvKQBTeg8kZUImbxQQShgkTiKgFRISIYs2KgqygajOl0Pr/f +d177uyd54KY/oPO7My9d+4553t+79/vnHvSecMHX3jpecMvPv+87scNO2/o 4IvPv7z7v31/WPZQ8oBE4oB3sq/juif4nEkk7C2T/T+zmzeOZP/UyudkIrOp IXF09r+GTZnE5+xYpjkxKPuroxs2JZ4q8pvudqx5ED9IbHJ3CI4NapZvT5R6 H9f2oGbvPnJMr3P3aYu5PBVzud6iLrgu/KfnOavdSCSq5HjXxKCGsFv+ef03 KNHcPEj/Ztx5vbf+PO3dOuxalVxYHRmx/nRTouHobC/5VyOAZzKRU+1A1cYV 1FRe0FIKvmsq+zElTSSD23HRveVhWZVzHb3QYx+XgQ2S3of3iIwiGLR+D0dq 82J45t47HXvveEBdW4Oa9XSt/sSBFZ1K+Ylhukm7GDNyH9PqCKaZkAoWVYij R0cpvyduimLHGH6uinTKwRd+jhtH7B3Dn1Q70jESk84Mau5UKiKZjP20QkT8 0UcQcVNYASLeLUtFxPtJ2k77ZC2Xyt3r8iJT0w4Z/5oHOgCP+5e093Cewkkp BE8qF5603CnlQA56UiIy/pR5zJ0fmWQEmTheuD8enXDUfl+9kUWVkEmPQF56 LVTKWXrrdncuncPC2Q3FYBwEtTFjDyS4R1T2W18p3FeMuA6KkbpR+mz/Pbe7 RbD7eBS7grd2XfH0UhxN5SqEo4MpjVdO3DsXxXxEmIy5riiKtR4Bxuowswei Sl0vTebaCh6YsdSXe9u6dhpUrRb7lwuKaWH7PYKjIQA2TvvU5AUvaltkfxNQ pqdpC9gW/1bitCwuJgei1kyP8m7bziL+CH0+IdLt3HkLQT4r73XpyHU2/1Ux sJ1e0T2qI/fwzsc1kX84HWiirB6cuBeAUmmSOCmGV86JOWbK2BfNvNz3M8r/ SVXh0yfv9TsWOd27/AbrysMwkF/txGP0WL+yfltEd0V/EtfVim9dVstx81kq IGXSapwJEqdQC+IcZ1/5ij48H3frgjiXe+uyWi6IcxFA/ozzn3H+M85/xvnD wvnPerA8QKLY63yoieKM0nTEJLTbn13gXBELp2/lPy1ibp24z+5c5PRJlTec zI+/EZQfszkn5lgQ1PJ8WK8HZ5T/k6rCp0/e63cscrp33gZr8/0kEUkcRP2U AxRf+bLTTZ0mYjJx8xC5Tm/L+fjr/ls+p5THjj7a4qD+JW3+aGJuEePuSkCA D4mFGRlOeDSRdPmrTIBh7rFPxxw7KOZYp5hjNTHH0jHHUjHHkjHHqko89pkS +1z3J9jnOJzj5i3uWFz/8h9LR445Ekp89iNHD/H9rI25/gCP9Ks4E9eh8/fy sXTQWpmc15FGByqO5y5pfoHjg3+6aEPtnj0fxDVzQP5erYs5tloHddSG9a9n vlU/1V60EDuKAreX9yY9Qe+WDrvsIe6VqJL35IyxNy0vSBPF7j1Nf8m9h967 YN2WM/rOmXB7w38l9fbHr3lqW4du3ygf6/zb3zZxwqpDd+4UyctfYOne2ror ltKK3f8Ohbrb22/vaXf/A0shbzk8We/Cr8ZObVwTuUvXUmhT3ifoXRgL08Jd Rs6e1ULfEgdXMLaGkIweuGrUI9wPYgXLxCEV3O9WncX+P1+6edn3hyxeffHg RX1WrtjyiQpudYt27fCtW9umjB+3su2EXjPmjhm9tEfLM68lDq3gfjcrhzM0 hkjXNp49YD6kAXx/WfJMjg0xYw5aT+k9k798V/VR0kxer905ctNLO6ADkKdL dI3ufK6CEY7WW4LY6BnT13LLlvMHLoRoIZjP57+l4gkZ5jPEMoncUg3vWEmx 6nT700HFRsozq8V/9BO/dnmc6pH3q0MoGTezyovPjPuvi487j2Gfd9zleBzR vKX5Cu39vFpnb+ZFPO/4r5SPNZANjGdEydyDAfSQODw/CJ+0jhVxM1N5ryvL 041DoCb/de2HO0KHy7Ag7SVXDG824QD3iET9SgnDLRK9SOW9rqwASoeHO0yH CyUzPJtdKBzBIerz7/8khquetecspQOZ+j29hLmDhBH4iSoEmJofwbweEfws +ZEZXiQ6EPnnV0O0n9hLlO1hW3Qkk8mkMrnQstks3/hIz60d82VcnJEl74N0 xKhgyBY7CCEF92J9wM1w9dEfaVlV1ojVKajBNkAUo+HfO7ZnEzILuw2VlfjX /MM9tLCCqS5F/xQ5XSjiVeIgzwkFMkTLVDKlDJZBi2H0neKDzGN8VBc+XSTs FCH9uMG5f0EuPLfuKLT7/j3kV1OzSCh4FnkFD3PumOBXxUzA/qFkj1Nk4rD0 yo9b3vtqdLYa3E2omLsB251UwS1P1VtifJsxzvQax/ap4JYaEIwYwLgMZo+f VsEtNXgcGMAM3DeA+xW5ZTjV39Ub5foKZk31L3mKj1MeYyrALeIrKKapc19o XrOkefjUwRsWPVn7wZ4/VOK9H6P9BTfwo6/0OYpl+qjX17+SmVp/mb1osaJg gTJzmqkzc4TRiaGpIKdHr53+sN/WjOU3za2orR56PziOITGfgYeqDJT+0pvb 3si2MdTaOn7bUxuLthVOtspf8cyRyaZ/ZY609ig9dN2C5RvnDxg7bcWPF1y2 bv7y7rtad2oLJVHBUSo56DdMzrR84/kNb5gEQQ/S+pnaGERAg60ze19z26oJ iw7dvXNXbByvGHT/pPIlN0b06umnzQogzGlzy5y+1wdtdqm4zfSiq0Y97Lcp MSTXFveGPCJtda2gra8pA/mBn3mjr10aF1dyCasjd7z0GygRaOmCNN0tf9Mf hl+cip5uHlTtDuesLoir1kpGKfkf5WAdLI+ogpIRraJIMjmRsL7hxCOBVi8a 3NCycOA4Pif+IpeyPww/Ofd0sESiiJWT174+UkdoaEAe/JVY2ZmhRDR64C/f KevNRw/73Pyszbd4JicIULQHed3JI0JpB21AIwEqKk+rkW7GoNAFNNFtz9vv frIEYD4cT0SPpXLBKbUwIS84X42CA8kgWURSag62+vC2rdtHtsxaCrMAEEAB WIH44X5x02pzwTHxUvSnoVd+eAE4VM9XwzFj1zQ+hHbkxWek7KeCO+0fR11v UxOshQoKySsljUJYaHVxDTzSf/PSZ0yiwDuQCiRjS/8+AvRhi1rkKqONkjz/ 9qh8qQAqanXWYI1BFaDRNqPXqLlLR9+DRBHd+4X9KGujP4ld6lNSdKA9Kl8M NY/legJU1FWqRe/2eO2ZTYiPZYuHTMZuxQuAXuCpv8kPzN4IChRT5dmpj9gs gTIuosrzKuPPh5CYMsbYFkhODiHxieW9pp5XAA0QAVWBmO7eCCHU5Tud8NWw JiaqI2P3zuc10uIwUZGQ9u3XQBWrK1uLZkGkTFk57l40Dpj4ZFIg8JvXbP6c fJQcnQWRaVJ93lruiicAmyLE0HF8xllEsP9jBS0epi0SPcB/w7vCBlXnuC6X FRgj849vwNhFUPxTBc1qzUwKt5SYFNEFXNZjtVmT1jQTR250K/EvFTT7KW0W mYhXDMbEhnoqvjTbZ8uKdTTLjJpIBHOw71FBiy4dChFZSjPx7ZCpcpt74JFR 02mO6TymguY0m5vCr8QlNwL6lsp7tB13h0zB1G8tcXwFzX1Mm6MJ8KRJmq7X 5myAcAi0ihHCYCUIcGIFzbm0Nx4yHClgflPbghvhA39ofJdwQO8K2jo4pFCG hZfMMDUA3s7UZIgMS2OCqXNfWN+8pPm+4YM3PLuo9oM/7KkkuuJ8X0QxnCkx j3/W1pmvOMvOlZQe9fpv12emjqu3F72oKMDTNYoBChOJ+E8hBkwn4wcHs6dU Z6RveHrlndqD8fWZxnH1M5Y/fFNFvTgwnPUAiG+EXUAoGBAQMzPuJhzoh65b u2Db7GmnZe+c7Uwiefy2l58K7l9JTUvnUIYQMYIwAEUjHoGDZj3iM73s4zhl z+/fHr32yemtM6f0vm3VsglVh+5+Z2ciyQx13/VWq96jgk51CjFCzEiARdVB NTIaTvC9Inp0ik7T4W07t05Z+dg4ekTP6GFF4SUtJ5OQD1rEGEb9ts65oVSh 8Ky85TiiHX0GE4ko0q5VM31w0upFswdvnD99gHFTJQEplyFBt0HKaNjE38mx utzYa9Pym+ch9pHH+AtoHBcRjqAFQcNqFVX3uEk2vSvZJvX/q4P47LT6Yfx9 eU6/G9CGpxqFvdUKEi0L7xloqDBpldQEudJCtBMqWMwbRaWGiWBCtt9z0tXS m0aN4orw7mOk9c5Oml+2eP6QLXPu7AsyR+7Y/lIlNUXOFDPyQXMlvmqgK5eb oJHgeJXYHslAxnPlSSYVdm6F7ekWE0W3ery27ZlPVdCtqhi6+XLIWAgcumSs Tlcc9fbfvHEpLA4wzBOf6UVcGWuxXhwQQy3q9VbnMhESmbnTKaqBQEe2rJkF FgjAuUsfGg02Im0+V0FXEkksJiSfUMuXjFX3/AEazeWb3kZM21+iVXTie00N PeHosWtWNIJHIUczrhf/E4o6TEdxU74YxcJ6wV965bwYWgMLetE2Y2IvOIhZ QSUgV75UXkf+GDJPUIepvlSNdQQrxOCgIyL5VEvX0SItI3RtdvgLLhwXQax+ SNaeeCprT9yRtSdWZiXg++XaEx/oMTwY4Su+dY9C5vcUm007WQuZQMiwEHAx ecBHp4HTudNHvb4la3FcWm8v+lmuHvuDHqODdFS+fbZwJwO/6LfroS5oG36H 4/iMaILyvmCCc2drj9deeobOjV7bPH3KyvlZhTi6X5IeJ5L3PD7zhqAzBQyD /VGQ52/a0GEH9309Bs1Cu/LtM4WB7tWegYyNYSAoBF2g8qQr1ADQQ9ctWwDQ c5feNXrZ4glZFXFtX7DmL9+ZAM4zISOXL5/rJmLi/IfvKGci9mXmIx09rctY 2m9rERwrK/ryez2GBEOSIdHcYpJAnuZOxPHhROSTG8gVuUsVc1AFwFWgXSXo 1qxeNH4wX29bdd8EzvXfvHYpF8IdjmXTo6evXZD5zh19M8dNPj1z7OTTZ9y0 /I5C7Lyf4oGRHY7Kjwe+F4UftZbQVEHaV2X8BfrEce11mWFv4tCiXd32vPs2 oCK3AfmBR+4cFcyBzobMC9ccaN344P3BizY8uu202RdnO1o/tV/WV3lqW0sp nLCfotR59hgqNUrt8MeUCBLCOpJqjExI3lfisITGh2rQSjgGJvB9RZ5Q47ML 0ELbPvyg3zZjRC8+z1g+6ybO9dny3AquVfO59siXdmyZMm7lna29Zw7ib/fW XW8cunN3G1PD5wKrFPZXGiVXxJWSRpH0zzuhIhDZw7ePm65s3UlUAYsSt83y jG4C0LgAjl2LtsUVMiXgFid0NlWLoAHw1plX9WYC+IxG8MG3ee/29p53QHrj gPmXtQxcOILPHKsN+rx/UlZBUjO6fV9Hkpq69DBJ2EziWHw7JBT+ZtLj8xBY wdnQgGANhiFgAzpmLFoYgYTb43zRzoe3vb4VcAEZw9FUr6ldVDPAH7r7rZ1O 6FUjgfov3fzk3NFLG9p6zTgP8j98a9tvlN0phtqQJYVFWY9rXbaHhVZK7TdO 0GMdSSgKT1RhgOpkSB0CfrDVIUg04JhQDpkqYCaQR8glMd11yV+nI3e8+hJq wNiAWdg4/4YByCRm5/htzz+F7j0sOgmoXCaByeB7TdCb1qwX3mAvJuMjq5nd 1mHla+a39RihT2KO8k0JO20FMbzw/RFKiZ4mtHQ6UAdIJVMJGi+qYyYQSNA/ VhAz0bLwRwPRBMYPzi2qQdQjfB4Y9cgt7/VsGsA0nNv8wjKmxy2KpY5utT8X Wep4tNBc7I3kYKdSk4MRczSf8Ru7/iXS9V16zFY3yDclbKkVQzJFCnTcTCCK sIn8mcBu0rhiHfSObh675sFG4wlmgplhhnAgnCtd3eOZ1zaMbVwzB3Wwpe+c /0Qq9Vmx5Rcahk0eueOlN2CCrKH8UCJrXtXfnh1BY33DyS//18vaz/wTEtl1 zv2rc05UWOHlUfWHl8I03omeL9XDeytm1pQJ0ih2y8eg4CWK9p3orKHVefGZ WesUzprpFGYNSwq9gjIf2fLoLOEf9bVrjlr/+ksjZ7U8sGzI4jHYsvzlO+aV 458uh7dt/e+sYffibasmPJFVdQvhoZaFA2dnu/f41AUTHs8c339qpseZUzPH 9m8cvGjphjLjCW/qMUzLIE6ktrYEFCFZQAgC0t/ODwLHNLzdKR8IJs4BAes/ B4clw5tvQo6sHrzoKqgZqnYLsLtmNcqrkLCPw8b5A+7JGr5Lhq5b8Aznj3zp lR1jG+et2dL3+3NePe17szP1Z06tytSfxRrgmxqXB4MuM6HRFoOR8mgKQgEj IpsI3SLwVIfazqzuQvBo3KgWGHA2jUwMHhwfRK1y3iHZvryVdQleQeKCClQC SqAFtRhKXF275/0P+qx4OmvE/2QlaLUMvHLhyFk/bene+sauQ3e27ca3Arbj n3q2pLXNQVWftyNFdcyxuCy47lYhwWPCthIwtfRRlu8I1Rq8mluuht3i4NVe dDa/EnWVq8bMpjaIXVC0Fu8FgXnbhFV3ga+xI7iDf8pu/fbvwTAr0p8GU6PE LI9Mx+wDe7gVgetAqYEqwXbZkBsWv9fznKYHRt36CJwK1oYpmAfHCnhPUZz1 X43JO08cxq250uh/EnwJ0kuxuwotKaJFS1l2UFhdy8oPNi8GDYWmMrAxis17 NxWF92KuI6ZcoKY0aFyLoYzBgN2GmsJ/xHgYumDdzxACOryU8XpW9D4JwlVZ D3dKIsVHDnGKS9Jmhbyx69zmJ16AxVt7XzITWkYK9Hjm+de0Enjv06zDMoiI mPLKdh6v3PQGdpfmwv+iafl9N//u7mtPmrN07pjTXn5hGbHi7fdMPHnDgiln 373s3hsaVj0wwUKA7zUN6wmU5oGb3gByrav6mIlM0MMCxhdE6WN+YZZxVZZ7 dptAyGr+xRCpLxAgYnCEqN3Aj1q/6fWhC5rXzR09cWmiCsmgohN8RS4UqC2O E5079Bj2KXaqUkHI2wTucJz5LFl7ifUkDpz989nXZaYOq89MHZF9XVH/ftOI 78DB2+8ZdZLvGVtYjmh/4m8V6HzSEu7GS0ZM9tmyYjOogAS0lbXO7jT25RzX KBfWdXt79x6k4OjpC9fCwcjF1YOvWXTbhJmr+i9dtVk4tkDOLB3DsekSOfZ3 egwKg9I89CSjB7dKzM2VRJvcs5fkFySElkghB0HOuNTFOV+cd9NZO++++oQ/ TrvyXzNTR9Yr6EPqX511/akux3kw1ohp51yxiIsLCRmJASRkxmeOGXm5btdC X8g5aGrjgOHz23pdMGPJ8B81gy78GrcrjAMyYE1vkXl9zOVv6DGyf4g50dY6 lyksGlwiTDtY8zBH9C4SL7SXlPe0ReXtBX6JJOgl0ugRP4+DxHPnuli03iL2 3G1EyxOzJ/zXow1m58P6eFxH7Gj9tYvm//CXj98djEBZvJt5VxZpwLY3tY9V iBjEm0LPv9fUcxLEbAQM6yvkdbAtqh6R6BMwqh+2Pnzra22JAlsrGO66/lBj BnG4bw/VC2rc363EaoDE+XH3szyTB3oSOWfgJVLyniQuY4TrQE4SGTDwEw5B i9h716Uteu9PiLWFDRb0XftUYylxy9zwl0wO9oZpaiYNGf7N1q3r3Ex1ZUYw HBDC5n0RjqjftmErVhfWGJyBvYrgJUiEhVBn9t3zr2EgYBggclFifOYY5wqU 0kali8YK4pbjvq7HYIYVV10+c+gTP3ssobK21ux0e41bfV/j9nuGDNg6e+SA Jx5suLRKEYXIA8xVeiQtReXPDaZA7hwSvcmda2JvQfc0Gl1rEWtidkSsrSDA EjYqkLpapNnCDggmLIg+63+5HrgRPkh1GAN3AYPMYwgkNpIbBoARYAgYAwaB UUSiF6jVLRXz51To5Gal5edOyliS1V5cZ8SLEeBLme1NPzjdnas2R4HXrMfv /HHrzMEXXvf0wlkpxVYMW+uG1mEkoW1SvUTfspo9K4aymj2LM3hLQFqVyIFI e4skWHj/skeXLxveMu/pXGCRNJ50TyJKkO6+9cBnjiH5E0eWJmYs1hInZtaG 8CWBr+mJOT/yafLFedefZWlUlQ0OT18yW0jREWNK7IfsfYkxE2t2wVzMYHSF mShHOH51Cd4HHlk0ioAmZIpMJ9wMCWtNcxcMDkuSgOb4ex6595afz1iaD0Wn InEXMMGQAKhH1CSkasbG10pQkV4QJXweRWFb43Edsi+WeSWVj7FCjdNRfx6w SYBd7uJTNgtZQr48yJe6bd2oyyGNJRrZ/J4sqgTwpVjpK44/XTUFnE/U3k/d 9tmyaYXEjR3GGHSYvOhIRMEj1ywYN2fOlPkPNF/9U5O4MRgboRrGuAwYdLA/ Bt9R5Vm5+iiUNCrFxw7OTyiAad/+4oUKc6or5YtRXg5zfm634tYuuI0T4MsF oeNuMco3ZdbN+lcC5fs3zqjNQmjZcZScXw+CApSCvf8n13Y2aYvZ99ZpEy9a Of62ScvnXjnrldl9f4Kph0IzCWtmHjYHtgXMjzYzGjZ8v5kf39wHWvDPInr+ MzrivLKfxM8DtpzNg7lY9sJsSKRkHsSu889B9PY7s+XsJerrE0bEb+3kvBC7 K3OMeIbO07RslbdwqBNqzZcnzAIyxfLlqD7E8z/o5WYTrr589vVvXnL1iBcm f39S612nTmUisAWxLHBe1LKoQeii1qBv5gGzGzkirlyBQv2Ird1uk96wnCOO T9wOav4kQKIOR1+QmC/i+KAd/phvhr95evaSqILbZ4X6nKBiy2GN901gTiIZ mq6og6pRgag9ZDYmni9YpNrva2Yk7HrjunnLF20dcd3ot0dfcN2uxpNuB2gf ZOfx10DRoAq1I00wKrDdkOSJAusT0jmIQt5xKaY4Uh+jKFsQxvL4ztuzNJpR uBM0PsCYGg5bX9AE6U63bwd15BS9itB2JACm1Btg1ifUh6qDRsEQLK3eBuGN XsTEkLSr6p3aM557at3iGbfd/ebN5978wcTjxr/VePKEnz547f2GqwalahDS wAicwAq8wAzcrsykZPss7nldcbD+Z7zNJkJJ7eUUxGw2BMau2scp3ykUB1sP W6SCF3JIbyIuZ9Bo3xjhbRW1u1p34rFS2uEy0LV4I2bJIS4Q3ogORAii5Bs2 Izt3o/amPdbw8JY7z5tC5OfdcX1//Iupo6Zdtupnq0Rea5y1mgCHhYKR1cgM ZMcJFaIcPnstFmXdOKrmjM2//LmvyR5a0viDwAoW/JJBJVAixVFDEkexKsaP O09vHBG+2RcoInilbP6TIYqoOpBDEOCctzfi2uXzXYLRD61xeseMkxrfmfrd ibtuOuemN0aOGH1X07yZBDs7hxLC9CEhYEIeQbj35OJy2Pe9kzHH4kA+OzQX fObG3YsLCmGEuKDQ7+6+8kR/Xlru+9HAwGIW2IfosCKC18NZSs0/5kyBrGCI q0JCWKD8VLF1jaTsG+sbmn824gGAxVDefvfJU9fdffH0X42/uuGdc67//trv zb6agJQHMLICo9lkhSk68hxuoUQswLkFD/yrzWcxyx2COo+ohDjGjC0vlCRQ peLtDrH/FO+0hXrthXdnU+TbHdgXVQWMwMuc0vdFdvYIVI8MkVnReHhQk4GI tlUaQWmSGn6sn3rDYnsWLH37J8dNJn/ckKjNTKtv2D7h7Ib5jXfftW7Q7JG4 OcT1CXxgljvRQgAD09pEC58RLbLkvNjmMypQ4gunRRoerELAkmmCWU1M4Cit roovpJ3VFw0ciaxJxZscYvJ1izH5LjMm9+S3wz0w9/R3kcSgpfwxSzSy0Qku sOQHkFuKySL3uIySEOEkjugzr86dcG9TZvjAkZmzfjg403PiWW/2nnaB5ZAd c/jWOMxBsANmEenTv1QRn9+djJM+ThWAZAD4Z3g/WGfC14s2Y5EwUTpGvGvB c7Uv3g1kwrmavJcCl7jsoGyjmgQzhS9lqWReIKuEXZPllfmWIuFCSzeJyefq FCBwCB3/nogf9aiZHnecmek3elDmuNv+XWpSnR0DB8QZ4WLHDMgPv1teFlnQ nx/qeJGgFXPVFtfIRcxl+uF83EAo0tCyoijLeErmWNBLpEkcmVQwDQjrDFmY SCGw/XqfZEivKctAS64+K13U1+uCrY0TD5gESqyiy6pJuap9dWmN78SjVCHr wOw+pziuxWzBdAyrOzzJncLqshHktqc2Gp7KcMH6N6t2k4pbFyOzjIkgWaV4 GrvbC8LUdCdhwJ6TfDwlFZrWcyRD/d9hkbh7yrwFQ+kSUi2USfaG4CkiG+pF bAOu1J2YgssKDDNT0KJuex8/xJfr2XPZwI7jvlkxBlvUGOoMjMkVgrFLWf/H i2ueXHP/7VdtnX3j4FtX3Ttv9Nq7nkwonaVx0oyxeREJwsnMcnfSMiWCoNJs 2jjdXtCpZqF1voKuaXFaJwwPonvgSPAZDCFaPnOMcxCsTnln1B1BZnvNGTNp aS5+gVc+qAQAvbrBvABKdabWiIMcPptpF7wCx5E+UqCkIjC9+ycn3/LcwkHT 7RSEZuBiERsB8xI/QvP7EisiLYgCIiFCzIiwHIkRCA5wIEDhalebBtUgIpcP uX6xlZ28MODy+QEilxRHpJgtHITio8a8Wh5dGIHh0rTkR0tfHXPaXU/ff+Hs t2Yc3/CmE2emFAjeKhDVBsTNT92/cNusCQPgdLwKDWMeCLOBBWrCGM5y0jAe nwm0k7mQVCpFk4pJLZrZks4wIcaTibhxk2etjqvOKQBTR3LQz8p7t1NefmKz 2eb8XeXwMMsE4uH7g0tGPvi7q05suvvRG5dsWHB2w4lbn9wc1heksPrRydib 6GmlG0k6GN1Y7t6qcGAsvqMRjLmkMEwnvzMSCfrBosG4tDIbMLPUMkCJteOc p0i5zaX5gYuzSbXQtisZWKsEMkPCwGi7y+nAaQrWyp/+5wKzIFyJCxWHwxfP fdrcJYcP/js2OV4pWkQjV12Nr9CSYIDABhPoCIzQmkZPlpqnQqSLwfvKDoMI ONCYWCNQEQIIyICO81wnXtPI/LAEMVpvA9q4B9/GseIKeT8IKIAEUWvOBcF6 K+szqWMmgxhfGa1pMVEu6s7u6xYfYBc+dPUI2X+HdL/TZmAJpoSmsLc/7SYx K8jz0Z3xKFhzDuy5lrlwGwkY6QkfVoFsFVAmaqE/wAVkA5fTaEkm49r82JrL r+W2fll+u93i4uB9TGc8Dl6rB4RK+Q7VWo0G1GyPMQJiJKRArsal7OPw3IXn 3bt24QW3YkC6wzjwRPxw6mFtDYgfaLACm6kBdCSwogriSNURVbXRKi9sEGDD elZkq+Fq06NGunC5oi8lX6JRAkBuKFUslhcofMiN1JMCVq1mZByHs9QFOsv6 kRHDHlo17+LJsleAAxRLHCucWB7gajahC7rB6NR43wcTIE2PoFuFYJKCRgqT GHB4YXUokCmMDwMSMtXDUuzFlfwq4fAUKWkDv7V0NRNZvFIEz/uK060vFqx0 TejWlfHg5Gya3H+8xEqdmCWegWeDbuazuoidDU/jeYgTO4XPExoen3XzlEd+ NnT+ShGIytiJJFQGRooTsCUVSajTAMZocaiJ7WLDm1qc4f01CMmYY3GozVHU zLADMaPCQtwuVPgFk2Fb294Yc9K44S1zHw8TVeub0dLit6gO6WKlm6jhrafd cdWeb4+7ZEu/m8YvHzLxnpaBV89bPXjM/Sb2oC1HZib5TAsLOPPK07jTVVib 52TFe2a7tuWYaJwz+mCkWhcotS9bbug3IWvh3WcS1cgDc4ScqBrs1cj1/3j4 F8/NGXPX/c//+82T93zn0vG7jx1ym9aSp9YMGi1S3cYVJ3YWlSd2NDz0J7xc fooiZ3NEQtjq0CUAgNuVqDYLmlNmPmMdal1IzaKmUfNbms6bZHeN0KFKki4I I9SomcYvn3H5PUzL+z0GTWCONpw9tnHumOmLTn2i5UXm5bH8ExEUAAfrFcNi an9li1uBsE+X0OfcvfCDdNr/vPgapdtVVMAQlrjwGcjcYibMitiZHXF/1S84 5JJV9/+ibVyv6/El4RaEqnEOPi7q2rfAt542ZPYvz79u9q/OuWXynm//6HuP D5l7axDTWV6hXvZSS7WRYx/esr2yH78RGeSPdSKMUyz241sOyG4rR/bZxCW8 D7HYzLXz569+99Zjfvj1X29sPeVX69duvW7siMeuGT/Pqtr4i0IfPvehluua lj764MjmcbhTFqYXl3NlhRPhHQsm4k9qZf2NagvAESauzIkzbrDAUGBqaM1E tyCi8+3+UzIXnTC29fQL73rrhEFN751wwaR7x0xcEhS8Za/GzgBw/AmUJ/7r 6r1I/Pthz10LGZS6F7M+36yzxVlyFyjx1+RO4OtpQq0bIhxRv/2Ui+4WxL/b b2Lm+FMmvXvp5SPuXvLT8RjJXIlMwaXAksOKw1sjAvNk0AmXZlLXLRUuZ1SR Wrev4UxHTzsBHruUsXxSHiXvnXLXyNnSBrOKbGWSGlkHxwXQwfr5URc1ZX5w 3OjMhSdcl7lx9Klv3nDpUH4B5Zq1jCcicnxtMVLulPDrWzgi0Pubxehg9zlF V8dOQfZLusSW46AfXpi2cxffiRjX4pXa3EV4ubF0F3JfPueaWzNX/sfFmZtv /G6md8MZv7mg8WKmgIAiwqWllBkIhYnOhr8/f3BunyvUnNMxM1DBUwG0Zqc2 N7ibK9erJAuQyuUF3R0rKCBArbZbpOcWmuFYvjdh2FmZUaNPzfSY2g8P/M1T pp8tfPBcubMQLjALLD79XueL2n3zzKyouZgu/JO4ZZ8Xh1R/yfr7nwuCndPq b4+T6BK1cw83wgvMLQjgmFsWdsyrzz6/a9zYvr/vO+68LMBnVOkmPz9c/It5 QevPFsM6XEcuMsdTmyZ/ON4pkAr74LldEaDdv8APi3k8RqmO1vk6QJM3/kJU rBZdgNVvuqzxryJaT5n/TY8Gv9eSrkhNgFUkBTUBLnE97NE1i//Yd9Lp75w4 aeCU8ffPP+I3v9syZ8ojt3xz8283JH6Vfw6i1aP6r9QydH1G2UE2vFw/0oaY uxTUsnR5w8O6JViwFjc3Fy++u8veIlOfu+je4R/0m9R3wYSmJtkcYGP+4caF LPSBCkHyXBOzkjbqhIyyZcM2lDivywnjSDTWba7lKw5/xatkvg+0ke7YQj5y w4Xzh/73zbececmzD61g01tZXl1gNB3JFbmnjllQ1HdvmCyXbTUvB+uEI1o9 IODInNkadfeEjoBUrVjfRLME2DSgJxtSoQ9JhEyf89itz947+eJbnpqyyLbN eqFEai2wrjDPBj9HRmfaL5OwIKa94FNLOZt9YC9AceeS5nXA2wmXzhfvw7py VqizrEDWiNlsB7fooo6wnQHTd/nmVfjr8x+bd6PsMmxVIS8WR6fY6r+gUsuV 8bk04a2rJj6R+IQOwcIOygY63wSDgmy8VjUkjT6EizUhnTRa0Sv0aoto2kt2 +XFwSYQzKjLbKR4rcnWbQZHXsUV8slZ4z+/fJjZ45TNPzCObdMSrv34DBpKy ugKIlbo8zCGWuz9O68w+dyY+oeO0GICPGNHPgNDSMcRxWXsBb6tsAwGvVYCS VsCQZ8ikDzhKVpYM5IlbX1xtSTTKMFi989JeGzVSzR+1CMgm7Xm+RQtSL6VV pV1w77CBcflw8zhK7p1ElOb6Rk1nabRtjrSpNAovtPAsKAfy5LGG9YMFAPS0 3QIA97ABsdSzTEgoAFJzxj2hTZKSUBtrFmR7eK+6qISOV7Laa3ooQSAKPD8r sYdoBGpNU6WQICgSPD/ErBoltWSqyKjScZAGcc7Y0w02l6cw7wx51HeH4FdC AMEjKUIepY5EqanaquEJBkCvLHciSCk1ML/O35Gy8thSq9rYXiW1q+fWMv1U LnM5y5T6OmrD+EY5E32lACCyXn1z0GAyOtcVZoUnmU3Q3voJFIZubptC9NFl 4yzXbfQGXbdboj9IXNJdui2bbb9cnnwoNTd4e5Q2ci0e3TMgRRKZ3D3aDo/M tQhNIMbJJTjI0sZofAu2pthSaufLS2yOV+iB2F8jZBQjRsznQuomQsgoGI2b dDgMESFZEDcC23qVb/YYk8QrJQq5MpOMPw5p3o8WRZbjdA9pnpwqojncjy+J TrHKCwsUWFU6fAoRoVqpnC4wiDi5MVbvBuPROQQZ9GFhFE1ypugLfaJv9DGn X7K+3/XL50mO2L6fWysTI8WWLGp5QrUJYuga2Uf/kXtfjNI21BEWFiZN48nC NZ1ObKjJsvti9huWLxZwYlsxyqj1qoxVmmiILFjqF7fSb0zYd8KGyGuT2fDl X2vf4UWfql2k1Vd8ru/VbPXE9kN8o+IEJcjfAt3PH+EKo3ye/x83BdfED4PP HNMStRSy0FQP5ORKgHw1aMPwmZOX1au/2sFhhOfihnFV4WHoyt+0z6FoJUkB 2XNR3DIdiakn27MpR2y3vN8Uo6g6z6CKmw4doxLDvs1717Q77WvRItsWxgW/ RjposjQOrecirfUGKTKdJnPC9TBJlKg85MfUB6J1985dwQqdDMmM1l2Bq1EC 0rl9j4S33dgN6X2ZxK5pd9oPw1UQZrwiirTtVIekBGnd2kJMFtt2BenoqoKx sgKTxSk7yBgJKYvhXYjOvBv5VgDtD3mX2Lhtk5MldiEucDhMu4BW8a0o8wm1 alncFN+K6mK4/WEPYk4ekuUmkp0xZN8G14L5Wr8tAcIPc0Pq6ALrZIldyJ9p 6OQvjfjkzjff9e06DBCz6/TBPCmcJpwnXihAt5W9mXXUTVqGAeWHErQWI07B RwfXghiWvLH6YDlbG66OOJNixGnvHnNuxLbUpXEpP5AFkbrHW2H6YAKJaelQ xC/BPzGUQA9TQnY8fDVo37lWpe5vmx+7fYuxR7sd2Un9IkXbDx239brwLkV+ AMg34g7qFjditBGpsGCY28IlYnA6r8g2VZM9pl1vWBQcPDWl9SNDt8EW6P7G 25lMRXheoPeCelH8hHz8vOHXN27enohbpuF0lh/JkFoFbQKrmOibmJNpExSe R+K6h75Cb8m31z8yOqvd0xb8erYy9dW5ei9/OyQABmgAl/KauN1TVZGlzV6P GLoOZbQYMQExdN3eb77fxMv3P2xvuziEu0ZIU/nUlbLvmwxukJb0n+uS++vi 9YCaaIvsPZe7ExKy4h9DNNu5DW6rGxYAWETLAg2+JxdrZxVA1KXhEn4GypCt DRqpPGVbm++0yQJNd3UsTXuGvNfZqpt8e81J8OTr7TE2p8EwhlJxzVgXYPEG bC9sMB/jyMMA3iiGcTR6Fefi69YJnfyiWygFd8eGArVYvZveQpxMqAThFozE 7cRr+QUcZxuJv0jRRhLZxeB3+UcSFxTSPGQXW55D72z3S1v2hCvBSGxVDtf+ S7T3zAMSBFHtHjqSxMyg9xIxcr33F1Rb7yN7Aewor/e6h3iwuEiKy3UNQid6 bCEufwUM5GW7RSIwv1VgJB8LZSDmp+z4EMTDvP07HFXzmEl5niPfyhxJnqXE bkdCW/ipA2y/WIXBulUExjo2Zjns1mUwe/xYIqnHFBj4x000LZuAuBLh7wbO 1AUbxLiBR54LsLO8gVs2NGfhLwAEVOOtc0p00RUEnLfRJ6p5r9bVJv6qp4Tb 0d4q9uSKqvZLUcDFrUywUlSPOQpCZK4JO4R469b/AI/KaqWkkWiYqLJt3OMg Cm3Z8nctt40ksiMKEKhTBGx1nYy9iyIFJ+RAGLOIqX8BDNymbmQR4XR5YJmL WbKhGJu4+RI34ly05ccguq+dSlzZBk+utrRoloZ9ghHL8ZoCnXX2HT4knZWN G1xnSXCQ6PBVVMQulwnzk0x5u5gnE+pbXVcX6KR7ujt2QhAqdZ2MhEpdJ5E2 SB359mYFiOZcfn3xriEEIXhRry4aijGIFylKKY7g3+p418YU6NqnQo2DyyV0 aOtOfZcrGaNxdnW8a9cW6JpmOJP29GBRIZ1iVIjj3ciz6/ZC1wrRmiVfnb2E sOdz3t5JividfSO6rirQz0+HUobZFWuoc34II1vAF+hunDK6skA33GOW7UnZ Ij86mxLwdKLrRuQZHbvL68YPtBu+lZvTjZSV3Jh6LtCTiNh9t7yeXGHCVl1w s7elJ4cZ8297JmcFZLQbTgZGrKNi3RBZq/XiaQuwmEMlJvJnQ0EZ8FUQgPXU r/dA8mD7tXdzpXncyLU2KE0U0hoPntf1WaM+tc9FFB6Yv/HIbr6/L28CNI6a pmkqS8iU0AW+J6qIPmetLz7b9a5r5KeCWF+BrkETRE2FSveU1zW3NSEIUXhs r7eOn3EuiMlK9e4htZLJsSVwBXoUEc7vV9KjdNPNyxsz9dOCHs27dmlD4q/0 eqgUapUah675u+FvqWNPki61GxeF7GvPnlx7wf0/yNQ39ktUxTyI9bBQEEPP sHW4AFt4yUpILGYQ2bWxQO/2yqOlcxfDahAwZediUlgl5RqLBwYulPc6Y0Hb Yp3wNmf8fa7syfNmAghLHhQVRhKysqCLb919UBzADqUCYyNMkb3KXAa5wjBX XDpQN5eqBisENjSItDARpsUSSWBCfIoyy4FLZHd1jPj8Y364Oh5DjQ12RrDK nwDs8HrTc0LQUDTkTywuwzFXpWHuDrwKzzrcbH92H7eILfI/JeBWcXA/PiMS i9teSbbEBEiryd4ZsfHCYuDY34TEFugkF162TXt90KKbcv7fAU0yaUGh/u42 eyqrPfTAyCxxeDydOcikythsXntCTFZZosYlAv9B0FjyTxOo2AUitahTe+yc PXHDnqIKnF+OobKDTSusfyUoGrFSQf/ZbtJQ1f8dUssZRR9FEOKyzSPhT9a3 2yPl4NOvxtOdA5HK5SB264EIq0pJq7QV1/z/DeWgq8HqAArOpeiXMgV7opxt DCkc/PcxtOiC+qR6ggC+gxFJh4OgKR+OFXh+5N546m86UoC576wQjTEHezLZ nmx4MmBm+7HBxtR/cw1srrsqp8yYM0IUBKvIl9WEuKFeNWIiYq84bpXlwyKc nYNXZase4/DSEE5XLFqwsI0zjdZsvzXbf8n2W5PHnGXpTrNjKV0gsaLRsi+O 8uxZBJJszItgmQ/FDfIWUf9UVL5USGW5wO0Yx4vo++IxiU7Murlntg+B7Xpp lIDdr3mmwGsTs97ll8wvkj2sXOTdKpC1exUMJ8hGRH1ahmXBHttgUJ+4q0Pk fDDEpL7bpMmAk/ruD1tdwZSesC3eFCO9qWwxax3rod3DLyQwbD6iw8LiYOLi 5MWiwMNS82Mhown6fKC6r7bhn3S+VoeAVsnFwKZSBxQzrJO0Ddu9SAq8XNbN lLaYhm5MLMFjKV44ptqK5pc59OdX3PGhegUcA+dYrCJIAi56MtiiXFqVeKjc tlORTkisqTokn8Br/X7IsIRfTVcE6bcJi8hai6qIa7JYDGuEdf3ZReyUJzmq IG+lXp4IA5dhwMOTrXADdDuXh+7wqNwmNsnQXJMWihcitTRRlkgDP1xu0qW8 JoeFfEEQ20Sey0xhs9jKPL/JKF8cWF6TQ8NJs73TiUk784Zcku2/HCQEs1I2 bJZjB5XXpD5EIo0SRATa5uOSHvpEOKG0K3msuqh0D9vtVl67Gn2shj0f+dnC YQseffCaV+ZMOx3lQttuyFb4Lg9YzWk6VCwHl9e0i+VBS5nGcfU8JIfXiJY1 sy0VRX4xd3bbt1vgscZx7V4cSqS2uyb1ykwbL09qG1efSAa16LxULATPvbMH KLlumHcRduOQ8roxKJxxusKM0/zXt7duzF4p3ZGAu12fowik2NgyOS4TERrp HytFXmn0Lc08IzisB1LP6GxmuA7hIscclxOmDJ6h5npAy+HjHoIeFBNfGsNK w8+IEh6+gZSUWP9fhvBD8RgC4Y7nEncJwtpys0+UB7+LBDF44EesINEYLFMS pKTUFZcFck5Wop4gwDB68cnymnYPoyGtYg/35K/4EIdFCV8wdu1SymTPLdB2 Dy2vXV0pHzx2g/kmNMjwGfJhJvXefhcjEnr3ADcJp0+u5thflte6FoHJ4+qR Lv4DKaCuILyrD+gTm89SXtk5xnkKhdyny2ta4wvVsJP/8HYELWC4xMHotdMf DmIInaN0HfptnymvaXXMa5hbyxDbw3T5Lnz1+ZDWaJ9+WKYLMsf9DvnqsFI4 W3eXkScbMmhzFew5ZIAA9UnVTxAo9h5L7FpnrqH0kMkOK4Wr9Zg8upLWmWE0 N7PNQyDsQcJC7xo5DB5GDafD8cF2+Hs+IKuoVXwc614e/GpUd2aW7RGPCBqb BiiB7nAcDS9R8r+NCh4eLA4oDhMCcMyIJjo59lfldUmXqx1kzzrkhdCxpVDW NeYKxOzZh1wTzNnfRZlFpNOBUYqVtJa0+Pn8/dvn2aOUF0eQCNZe2mE12H9k fTPzZ1JbhyoGvmHLJbLOjAcF657nPsT8reIAD77QJVL8IkD6H0KhCDGYMeLA RiIFUVnp2ReKg72PM016Xedytk1NFLh3rPOMyTY1NNlkIVTSaPK36w37RJ28 J00KyDSk5D3I6wv2SX03GaXWj7ynENR2HfyhcynPTrBmmCj39EusIhjW44iU aS5efJahfDH/PH0YUUwriu9gxDJ4sNST0wPc0ooeWAb41im+Jur8ebAHJepM 6btIZmujp2owLBLZJyeL8L/+tuXXyB3MYvGWHTtYrUGoqL9UAsz7MOIeC3P5 0fVgn5Z3dvpkL+a5PmWxGlGcmVp/mb1ennvG9XhNLsWPtgh2hpCbFniO/YeJ TEVbmLobRpwDZ8rf8PSdzT4OWJE+IxKBQKNjUoSM+GHnsvRYp8h+dPqvQzuP Os8SL3nT3P43Mn7Zs+kydZqC6zy3DVNCwyMc+/L+JQo75quBMu8X6bqWydSA B+KC4AXGNSIDMSKGtjOrcKOjZstX9q+ELohFBSu41NlO+VggHw6K6ijcnIA1 vpofgX2dIurwnpjn67hw4/zhuugUs8xsh4riiOJj3dtpnb2/HeW5ihbGIvS9 ZU7f6/GkJb7dLZxovBlLTMsP/z7/4EOfTgMWaaxP9G7rzN7X8FeY6OAorKGP fmTw8wL+mhZ3yDY6aHjsJ7ovQWkXWyNoHM2l/0ORPuecOlPbQE1a74FGxOIh Ye9pQwPUHPtaeW1o5QU7Lm7HhwZ+7HXGgsjRZlKwF1rI9uaS3369vJZO05aI cxPCpyVQo1XmQ0GrhrphaAJGFy5+8Hl2sUDWyz3idi1pN+cuesCIGAWItc3o NcrC+t6jhatlKN+qn2qvVZeoWxI2VowMNP1d6zfGNDEwpgzygLJV+KZvaLrz ab89XR3EuX8uD0sXLeDW4AmGUCHj9JsWO9OFnIiKbOt72mzazSpY3pNBTb28 SkE4PlQA1dMP7F36AtbvNfW8wnDnGFQr0X8XDCI6BN9JIViVOIMSJbSH31aE i17OMyp+4/cHg4p+YFbQLz5zjHNcJ1yrwbQU1iYEaAUccuNvlUJ4KlRTvtHP jW0Xoyzd0Zb1q0pCVmzVeS/d4eXsnmqEv99FLudnXwx7CGqgxwxKd3qUQq3h HpsRu1vC4k5occ66maiSd7HD6If0OMV7SrqbgtTtJvBzlR62fvPi3nIbt2zd 1p3TeUhSOtazvFkON7582B9G68w+1+oybNnuc5QdT9SqOYlcC6HW65ionKHp mIV1rEFXeYFsot+2DllOHltR37m93/cRLbN/nqjRpoVL7Ppe7vosf6ChWk/p PROpEfpEx5XXfrgJZWhOnqpnbNkUbaBuwwBNr1LI3y2Jo2dE3NtO6DUjXNzA uRNySXSvRNJSuYuvq93hcOuN0nd6Km6uuLA4Oh2du+WMvnMgCSRXYIOenB+u vRLPyjUq3cKiju4LEGeSOmWKBQa3YgMwZLQyww9D7KfkH3PHPY/adrv+52CU zPvTDoeLtBajBlMBBkQ1vHdszyYEMHZJiMDpJSCwl/zQqkCURFDYh7WSuvt5 rTyuOqtyEA9IQZDAJuR7oIoKPBB+3zjktblAmCiIjrLC2mRdTd8JaYjQhwiQ wHA9w4cgOMa5IFJ6RvDrfRSgCfZJcTvkB7tE7v2p162MO8MAjBG2R77b9KMt +AwJoCBDzXTuh0cHEWfbaKDj85/TeXWtDjJKMGoAEcQBKCAcsa1hCr5zDt1g 1KHIXLgvhWX0mCHjh2mKPVWlfCFpqSXPeWO0uuwujYw0wHjJGi19vHiNSRJ7 YTYAIGSVNdLYoSjNNVzN7/h9KHO/lx/IkqI9xRRxlh5innhY6m6GZWlas81z XNJbJ09clegkqXTJnIGDIJeW96SPn+6QkzV0s8Rnv8+2wnsawvRxVrdL72Ti y15h6vqK4vgWjDC131kyzrYrKb/ZYcvNvAZqBT2AW0/pMzPRSYFDrucC7IOj XqtGXcJu8F7gIcEFCy537pZ+cCr7V/zx82Ou78ixikqXkxoGSSSE1y7Yv12K u/yYmGNxRZJxVYyldjOubCWuRDEurLcXhhhXsBPXfFydbVxRc9wqgDhJFMc8 cauA4o6VClndn2Cf43COm7e4Y3H9y38sHTmWEapJ2CL2jxA9xPezWPG5XLXQ M47lkt3//3xOHPC/BCtgrg==\ \>"]] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ "Match", " ", "of", " ", "the", " ", "parameterized", " ", "model", " ", "to", " ", "the", " ", "FEA", " ", "results"}], " ", "*)"}]], "Input", CellChangeTimes->{{3.657145739800151*^9, 3.657145765832833*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"ListLogLogPlot", "[", RowBox[{ RowBox[{"Abs", "[", "Lx", "]"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"PointSize", "[", "0.01", "]"}]}]}], "]"}], ",", RowBox[{"LogLogPlot", "[", RowBox[{"Zzz", ",", RowBox[{"{", RowBox[{"w", ",", "1", ",", "10000"}], "}"}]}], "]"}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontSize", "\[Rule]", "14"}], ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "}"}]}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\<|Inductance|, H\>\""}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{3.656410371953858*^9}], Cell[BoxData[ GraphicsBox[{{{}, {Hue[0.67, 0.6, 0.6], PointSize[0.01], PointBox[{{0., -3.8563862511823377`}, { 2.302585092994046, -4.060819427081068}, { 4.605170185988092, -5.284564452866559}, { 6.907755278982137, -6.280252584371464}, { 9.210340371976184, -6.68739249645072}}]}, {Hue[0.9060679774997897, 0.6, 0.6], PointSize[0.01], PointBox[{{0., -4.000542349636328}, { 2.302585092994046, -4.196705577993363}, { 4.605170185988092, -5.291513904049191}, { 6.907755278982137, -5.975886411556667}, { 9.210340371976184, -6.343312118682268}}]}, {Hue[0.14213595499957954`, 0.6, 0.6], PointSize[0.01], PointBox[{{0., -4.2220361394819745`}, { 2.302585092994046, -4.402050491236802}, { 4.605170185988092, -5.268637343770455}, { 6.907755278982137, -5.680087058001899}, { 9.210340371976184, -6.035942003335413}}]}, {Hue[0.37820393249936934`, 0.6, 0.6], PointSize[0.01], PointBox[{{0., -4.516715731085932}, { 2.302585092994046, -4.669658486299919}, { 4.605170185988092, -5.263379560173876}, { 6.907755278982137, -5.50730721531209}, { 9.210340371976184, -5.841930755972781}}]}, {Hue[0.6142719099991583, 0.6, 0.6], PointSize[0.01], PointBox[{{0., -4.839843061771598}, { 2.302585092994046, -4.952183000191592}, { 4.605170185988092, -5.299008091676159}, { 6.907755278982137, -5.45027379154536}, { 9.210340371976184, -5.750789943888604}}]}, {Hue[0.8503398874989481, 0.6, 0.6], PointSize[0.01], PointBox[{{0., -5.177308068942345}, { 2.302585092994046, -5.245671879454213}, { 4.605170185988092, -5.422850694422822}, { 6.907755278982137, -5.525452065377831}, { 9.210340371976184, -5.778422550989462}}]}, {Hue[0.08640786499873876, 0.6, 0.6], PointSize[0.01], PointBox[{{0., -5.499153047971442}, { 2.302585092994046, -5.534220111359324}, { 4.605170185988092, -5.616968884788912}, { 6.907755278982137, -5.684257985131284}, { 9.210340371976184, -5.866502141642339}}]}, {}}, {{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV0nk0ld0XB/BLwpWe55rvvUm53ahQKCVin4SkQZRKokuhaDBUikKDRMpM Ca+hkiizfkocXooIGYqUZM6UOVP8nvePs876rLP2Ovuc75a3PW9mx0+j0Yqp 9d/+NCY62F3LX9fJe/bfXXUEXrfZ7qUD1wESBlL2HqA8IXlpqwbXHbTPCHYd o3z01vz8Mq4fiByS0XGmvLSgxIbkRsGNx4XhUZS7v3Al6Nxk4L1LHeulXN/V 2L+Y+woYvZL8UfUEdl4+w6fw/RVUC2ieTqRMmMsxDSP/B3cq09peUDYutde/ Lfwa5GJ7aGWUSxL/xAgOFoDOhg30ccrN6aLJiyyLIWPk817zBgJXnFl/RID7 HlSCOw+ubiRweDAz1OrOe9j/OXXZJsq8HP6qvIH3EDFvOq1HeXL2M5zOLQeW 67tpHmXOXW/FasMPEBOsJBFH+WpK7WTU6Y9A6zj/XvYzgZlu+R8ivnyC3Xz6 OipfCDx/66VDCb0OtJPtFYFyR2SSwG/tOqhZo6RiSvnl63u6RvF18E1ye+BF ygb8tlkzp+ph09btsUWUXUNEoo/PNEBQu62qRROBK9MtT69d3gRCoqWHkpoJ HBru2ci/pwl2Ojx6+Iry0SuPtn/zaIIAG5/pSsp9ei2soKYmEBSUFpugLPz5 6IfxsGa4lv47yegrgfXnLJSwSAuUk8S1CcqFRkcGD019B0chufUO3wh8W+Wy hapiKyzf8dTOm/Je8Qdl9EOtUOlRWBRF+VvLl9iC7FZY+tL6Wznl2XOH93HO /4BC7+cFyt8JHGOc+mXStQ3kohL1Zyk3Oz/XLPn1ExQS+JtzfhC49eDivfm0 dqj3DFP/RLldk2eTIdMOM/4R2YOU+2jSAXEG7SBrVqys2EbgmeDrLR4J7ZB2 OZQvhrJs5hGvjRYdcOPCx5P3fhLYekSw9HF5J9xPgdjgDgLbNto0PfrRCau+ pe3PomyfXzAQOtkJfBIv1Rson7vuKnWd2wWrbp+4yewksLdYq72VTxcYhThZ J1GOV8ulS2t2Q6/LefWSLqo/lxMmfsk9oJPNJ6fQS+CuwxfSnXEPeJ9o8zOl 3KvjSx5t7oG/OofUr1H+TU+uUV7SC6EtF4wbKc8l9JnUnesF1czwkDu/CCxV 57J/+eZfcPBZ6MfZPgIbqfuYZpf2gce+E09lhgi8mxmSGfO9D8K+VHzbTXnf fILY7ck+eNAvwfOhbP7h309H1vTDfeW5fX2UbW2FzObv9kPn1Nfm4t8E9gy9 b7brwAC0Jdgu8hmh5m005sCPn4MQq5hUoD1BzbPejmUrpgchZ+yRxiXKkSG/ 2q0ZQ5D9YvhvBmVv1c2urbpDkJC3zUtxksD7z9UEf380BKJcKyPmHwKP/OKr bjH/DeZu/Mfo0wSOdt7IHTg5DAJLzXjKfwl88IGgcKDzMGTih/dcKFMT0K90 dRhcxTxkXlG+QfpkO4UNQ3r6e70d8wR2elml1188DF1rBQR4CwTeNmBn0yc3 AjVtFRGpfCRudXgQ19s0AjvRY/X7giR+EGz47HrXCKzDw+ndlE3zxzPZoyNw pvd2KgiRuFTEtGzPklGodxVfOUY59QV9IENnFBxEDzF4dBJfHvPYeiVxFNa1 9MSYiZJY3NuqgX5mDOTLbOfjxElclbykNfHyGOzTjb0tLEFi39r8Hm3fMfC8 oZ/oSnlKXnr2bNwYKNkkRhpJkvhHabV8Xe0Y+IRu8ZuVInGaCDofrTEOThct FbxYJDaM5IgoLYzDzzveTrMrSVy7ZVLPf8kEWO+5e+WSPImPNld49shMAF+9 mPIo5bOyLoNJqhPQc/XM9X4OicMTi2plbSegusiTr5tL4o6Xx6KIsglgv+VN z6whsc/7SO5owCS0flwylKJGYpHTjlb7oybh+JWkCS11ql5EN/Jl0iTMHzfJ r6KcvLdLyKlgEhTe9ruPbiRxdf3G/o7BSfDz8+wx3Exi2bbazMb9f2B9aYuW pDaJ86dEIF96CpgSwRKGBiSe25eSqseZgos0+yedlHWf7GRWqUzBHQXd4ZuG JC4xvTXSqj8FAXoe2aU7qf98/jdJwG0KUsrf8ZkYU3keGxbeXzMFMlrNxn4m JOYvbqzr9psGzqvVkwFHSawvcwGcw6bB4Kl123ZLEt8+K542HTcNf/IzoqYp L2Gb+IrmTcMaCVlnJysSS7qVb1HvnIadBx2aj/BIrLj6Tcw1NAO8wRYZS3sS 7/GPt5ecnoGslEV+fG4kvt/Gmo5cPAuspIiFTrf/8gi7yxKfhXMGa3wqLpD4 QLdvhpzSLNyNNYqJuETls8NpZo3VLAgzVplreZD49F+N+zrFs3BTze9M3nWq P5fKXHv/OWgsaF/tFULi8nJ9o18RcxDyrzT/rVAqj5WFX50S54BrkjEXEEbd X52x4PxmDpz3PjWJiSBxhFLkLs/BOeD5n/Sqekjix12870Gmf+ED0eR/IpHE xRaTAvmseWhs2+binEPiAjutSvvV80DcPXPcL5fEeS5eIZJq89DyUe3wP3kk fu4vKOdsNA/LzaTs6v5H5Z8vvUXRfR6E6cqLDd6S2J615XREwzy864Lnx95R /TW7f3QJWoAZQ+mew80kXpc2Zxxxg4bo2ZHuhnwMHHQus2zfHRrSDFnROUx5 XNUeCd+noaC8qi+P+Bm4KLdGw/MhDZ1hZR8cW8TAB4sSV9pk0FBrzIknzwQZ 2KvOaFK5lYaaxqOfKIsycN1UeELpVj40uYMhHS3DwB4GKlNjw3xo28MwmrAq A7+Zf8tz91qEst4mq805MbCoyRM9mxEB5FLr9CIllYH3FQ38OH9TEKn1B6pU /GHgiF0dNlxCGIWWXDSsMBLDA46qVuBFRyrtgZv5o8XwprTvEt5LlyDbOo8P rtNiOPDWzx2rb4iiWyKbyamj4rjxqsGGYSkCcYsSdm+vEcergo4s8BJJdNKI Zn15jwTeLmvDlQ1goLNX5V2ZHyRwL+2dQrSZGKqsFKiwtJDEMmqf7SqXiqOC 7Zca3dol8a4hnSiTMnGUtvPrhN0pKez2xlzBPlACcdUU40UmpPDqBuboBkNJ lFsT3oCcpXHt3N1lgaQU4jg0hb/4JY2vZR3aot0ohQYe5If5msngrOyqoNh7 0ug06rCnJ8vgttJRg1BzGbTd0S/MfEIGR8qXamoxmCjRIMCS3MTEJksGl2u8 ZyKN3oLFJxyZmLb4Ha/kHgshnRJl0Xgm3mps3Ma/k40SPD0u0WuY2PEfr7eN 5DK0dVus3YMFJl6FrL9YVi5DMpXurvfXsfCPsxEdm27Kol5VWeVXpiwcnnp1 b7zxcnTQLvXT4sss/GkTOV4oIIemIhyLbkexsGC16dT5ajlUrm0RfSmXhXXH +4fcwlegntTaa3U1LLyQxQyJUFiJ0jYvyzXqYeEWtzCL1wErkX99g9gNPjb2 /HoCa/auRLJxtkpxsmwcI8SLb9shjw6dKpbQ0mbj19s2pZsmyyNitZikgi11 LmN9TFaAg37+XhvIDGRjtlZJ5uvFHLRuYLfFD8oPjykIWQhxkOXb+JtP77Fx ZMJQZoQIB/Eedw9qBLFxkJK3ECnGQWbGsSIWoWx8A+Kz+OQ4KNm1ZyD9ARs7 OLQL92zhINOUUN2YJ2zc7W9o7buVg5x9xx+dfcrGJ9OeZ6/S5qCMFe47IJmN eSOu1jxdDqKbip3reMbGRz0X5TTrc1CSV8ryDWlsvCeIe7zKlIPOqq/Uq89i 4w+Zd3IcD3CQre/lvmfZbLyrYYBON+egy3ckP3nlsLEhKzfH4AgHpbz7ba6U x8aQZCBSZM1BMevqFf3y2biwLOW4FY+qPzeaav2ajbf1Ls2dteGgCqVOh81v 2FhT5fNxTTsOUn42dLO7gI3zTLRyP9tz0Jv1x9oL37KxhmucyMVTHHS4zOBi VCEb54Tz8yQcqfd9r9N2LmJj9Vf2uZlOHORUvFZjF2bj/wMcHMTK "]]}, {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV1Hk4lc0bB3BkF+exnOecJ0vOSVqkpJQtM8mWspZIdiJElorSKwmFSspS qJBSUlGWlDL8SNmSsr+WshayJlvHb94/5prr88fc1/ea+55huZywPMrDxcU1 gtd/+8O0lOtBmtE6txauaKfP09DGHUefeSh4AE3bXz6PsX9LndZQUwgCEYOh uS+wbSM4HGmFS6DRLdiiClu0tMKZppAMTKq7tUewB1sVJIUUskGUq0OOxgIN fRloHuFTKAZ3944e/4btJ7vArdhVDDyKA71GscWs5JgGSa/AavPCoD/YxpXu elGCr8GLkbJy0UUaqsj8k8Y/Vgosuj1ILez25yuzVxwpB9Xm4i23sD8e32zD q1ANzp36YuW8REMJ15k37C9XA69deTdPYDsV8NQVjVYDB5fkoX+wZxdbgGfh B7C8TqQpBZsde35dg0ENOK8FC5uxzz1unE32rAfWdbpfzP7SEDOwpCax9TNw nPH2PsShIU7EM48KoSZgnHj6uQd2X9J93nGtJrBlkSV2BvvZ66s6RulNwH3f knQatj6Py4uFY18AU297aB92QLxwiuPCV9C6dvWFoGUaqn1+xHODbBtwCgls s+Ui0I2EkGae/W1gIa031Q3b9kzq7n/PtgHFrSY+vtg/dTupuLY2sCwTqBmO LdhiWzNzsx1k58iE5WDrLR1WQsKdwLz0Rs1f7HdGNmOH5rqAiTz3+HNuAkUp Bx9WWdcN0o8eTHmDbSJxq0roUDeYtDY9VI39b2frndKX3YCReYOrB3vR19qU faIHFP3+IU/jIVCa8ZPW2YBeMDGc/iAAu90vR73ixzeQcorvuOEKAnUf5DMp 4foO+pjCdCvs7+pOznmM7yC+TeyzC/ZPLjLmrv53MFQdGh6KvXD9QufZjO+g S7ymvghbJt8mdNvhPrAkwCerxEsgh0n+yqwP/UA2IMxuDR+BXJqd21J7+oFK revtbdjuJaWjN2b7QW9x0egebN8LAfQLCgNgQZnd6oZ9Xrzb3T5sAKyLtX6X jZ2+tVCIVB8Eqy9PTWzlx/n8Xc0uZQ8BmtOWShsBAg1Yn3zuh4aAxt+6Zz7Y w7siabbtQyDZMupVOPa4UPanTSLD4CRnccNT7KWMn2ZNvsPgiHlD9ApBAtGb /M1ld/wAboJ33IqwjVTDLF5W/gRv2bMNasIE2seMz0/r+gliVtvPmmKbcjLE o2Z/gtJ7NbrHsK1q/vfZZv0IuPg1cl8qtouLgCUndgT8O8NmrxAhUMiNa5Z7 D4wC8fPj4h3Yz6bSDvR8GwPzd3cHPxQlEFt3j/Tq+TGgoU27X4GdFP/juwPx C5j3i890Y59X2RHQrfMLfCROCzHFCGTu++l6V+ovoFPGI3AFe/IHd0On1Th4 UEgGh9AIlOK3TWHUbQIU7s25eUacQAdv8Qte8ZsAwCFjIAVbDLWPKJ2bAIFa G91KscNpYS+9b06ATsmaoWVs72d1uiPlE+BEgSYtWoJA2qNHnX/KTYJQHWNa liSeF49bd4fbJoFHdr8zh06gW9cNHl0YmAQLKl+X15MEsiiZyV81NQkarS93 HMCuFLao2i8yBYQ/BxjmYD95KjSat2sKhPXWC9gyCBQ8fVbjTOYUqJ7x9Khi EkjivP1XoePT4NLD1JZ6aQLVZYt0ZwZPg94VEdlcMgSKbCwZ0oqcBprQqmwb 9hyLXPS5Ow2qNwtWpWD3VDawmhqngU0eqXpclkC5wvBEitoMUMxt75ZZTSCD JLaw0vIMsMk8PV7MJlDjzlndaJHfwG1wtfI0tm37x5Ahxm/AVuks2byGQD4y /mP3VX4D9ebB8ofYCZlljTIuv0Fpye/EFAUC9T2zSxar+g24xDNT4xUJFFad pDAVMwvylx1vlm0kkLCnl7158iwY04124lPC54V1kp7dnwWnJEQv78PONhkQ 8C6dBZtrk4basBu+bBvpG5sFcoPtU3824ffV25jfbP4HaPQ8iTXcQqCSOWFQ Qs6BqQTCest2PM+mj5/osufA0lquzBBsnQeGzDrlOcDwK9X/gF1hETHZrTcH 9GQbbrmo4fvM+XufN3AOqBq9PpW6A/fTbkLQ/NMccLFsNJHTIBBPeXPT4KV5 oCKtdc1LB/9PjJPA7+Y80NYVulSBHeUjkTt/dx5AW+XvqwCBRFaZRa4smgc7 DLNQHbZU4Iedqv3z4Om9C4pquwm0bu2btH/gAijnaLcy9Qi0PzrdXWp+Afwc OvNJ2ZhA13qp+SS+RfCtOGt9qvF//bgZS0ksArsPalxC+wh0YDAyT05pEVCz 40qD2LZ7vBfW2y8C7pKg8w9NCOT5V+3arvJF4Jpn4QoscD7/2kL36CWg8FrF 96sNgT580DP6kbgEWAIempaHcT/k33V4Zy6BweRTcY3Y1xrylv3eLIHh9/ua G2wJlKiUtDdkbAlUXCPaPtsRKGvAqSvO4i+o3P1pftKJQOWHZ3lLKA5oWpN7 Nc2TQKVHNWvd13KAQ7W0P9uLQEX+ofFSWzmg5S/15RF2TjS/nJ8RB2Q+DpYs 9sb9LyF3rgviAG6dOzHtPvg/pHZ6Jn7lgC3WN4J2BOB87UH1/nHLoF5Z1Moi hEAbc5eME8O5oG2Gn654HIHifPOrTC9zwchx8cgC7BkVdyh4jQtWJ581tLlO oLLCT2oht7kg4ZmzLyMev/+yTHnnPC7ozkq20EggUGiT0eymbi74pbXX4sJt AjXNJWRUanBDIbvJcb8sAp3VV56bnuCG/1Qv3a55Q6A3nLdOQaErYCBHu394 hkArzR7oOk/ywokG41DNreLItGy058RFfuip3SH3PlgcJe7tc1YQE4S5XpbF ipXiaNRLxR6ECsH9UUoXZsQk0PbcLsnzoiKwN4nn89JRCXQl4tueteErYfn3 sQ3K7yRQ8zn9LRN0MTh+RVAoSVESrYmzWXbKpEGXHYxCuSRJtFvGWUEmhoDn jLzHGnil0DDXe8UUS3EoY5D7cyhMCjG2thytFZWAFpea//dsRgrt/bUr2axK Ano+lggmXOgo8I2VovsVSXik0v/Gj090tPYrc2qLgRTM5HNykVMi0Yf0dy5W e6Vgz0tYfm0Tibx83L6c3S8FGXNNWznKJMrjzyuossTu4zLsUCGRpoZh0BFH KVh37b7mpR0kMr97aikqWApKiOWQBbtJdPZYE393jhRUZG64bGNNosalWOkr NDrs619c/HieRNnrFlszJbB75Y7MhZEo1NIroYROh7Lb935ZG04ipUdGokPS dFh+5TItNIJEUQf4lnevp0PD8K63a6JJpJUT+v0PpMPdc2fX690g0UNr/8eu AXS4R6pDq/M+if55cWinVjMdGo26WQZVkig85hWSaaPDPwdix+yrcD2XVcac Djo0sQTNe96T6LpEt115Lx2mM6groh9IlBVwNNxwlA65bWDWrVoS1aierD+w goSeNw8PXm0iEfNlvOvxrST0Hq5nzvWQ6MXLurg7V0mobaKROjxHoj/7Hri8 vU5C0bJPpkXzJNLu/0et6yYJiwTVrS8ukKhKakunTAoJXUOiPaWXSNR2Kl4x 7SEJxZzSHu9ZJhFn56G3KWUknBgK0zvFx0B7S3t+Jk/i85caXV3EGai3ckr/ hhUDRhRxDOLXMVASq1Jdk2BCmGEdCvczkJnImKxaNRPe3yM2cfA4A3HxvXeq uEpBnT+6/iZXGUjD2LiXx3AVVFXap8HIZSCve6Fvm2nS0GL56arLDQy0Bjq0 HqmVhg75ApW54wzU45PYt/2iDGwN6bLfTzBRwpNzJunGspDqfiAdospEn7fT Zt7xykHFYfEI0pyJ+Bss5k40yEHRl24bFo8zkc7MyK/AhNWQnmL5aH8UEy2/ YMYnKsrDOB7pBsk0JuoMvHn4dYw8bBfcJQFfMlFIhytSH5aHNnloUK+GiVRq +xyzf8hD8VAxjyzs/jeuy/QReRjJnqB4a5nI9I6rzvSYPDROhFQltryTa+nT aXnIFm6KMahnosoBl1fsZXlY359wz6qRiVZOOuetJFkwoeXy23stTJQm4JTe u4cFj7c/Efnbx0R+NqluvvosqKr1C57uZyL9xy3rlwxY0Dzy6pdx7F/GJvkM Yxb07GdK9g8wEbymWWFqzoK+tvXCn4dwPil6f6kdC5aUc1u/HWEiJXbNutun WHCb6oY1fdNM9Fp7+3OLbBackVdRDOOjkGL/cHvlIxbsYAt3CvNTKD72Dq96 Dgsa0OX+JmIf6+C3lXvKgnCbTcxTAQqRwe28Iy9YUFmkoOmbEIUCXobaRrxj QdN+UXdHMQopbfzIV9yM68cZNeQxKJTGcLCT4WXD0WNvhUqVKLRKsyL/NR8b Ps3UWwraRKHbdooChwXY8P3AUOx2ZQolZfzKTxRmw6RXThefb6ZQnNJ5AZo4 G8aIdrTlbqVQOEh/wS3Hhr4PagyqdlLIw+O74NBONhQoWJb31aPQYLSBQ6QG G8qYfuTV0aeQW27OyzVabJiVGBctZkAhp8kABycdNtwSIX0635BCtiErCtr1 2HBMdmUnx5hC++MUHOss2NDpD6O+2IJCNfmXC7wO4HyO02/jLSm09+uokJAV G+plUWbHD1DIgCos0LdhQ++RVos1VhQC9/WFyxzYUCTlYfMtGwq9q3rsaO/E hnVR/lVBhymkPSxauOjMhmdaTh+0tqWQunKLo/pRNjz5K9yMaUehIjPNwhZ3 NlTvU34zj60WcFf41DE2HLp+pKrTnkIFCTxOkl5sWCzS7vPOgUKqxe6F+d5s GOvmX5DhSKH/A8S81IM= "]]}, {Hue[0.14213595499957954`, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV03k8lcsfB3AJWXOew/OcY0nOSbi5pYWIaqayRAmFdLJfS5JSKqUSkooQ WUqo6FJyZS8SQ1yyJVFUDsnukC3Z7vGb3x/zmtf7r/nOfD7Dcjl10E1QQECA h9f/9/SkxDt+erd2PtYc+tXQRUPrtrple6h4gMiwb7ofsH/Jnt+mreIH+Ot5 QW3YnBA+X0HlBiD4wapcbKnSSmdplQTQuzmk5Cd2/2cVGTGVDJCd8JSU7aah j31tI8IqL0Fw5z8dztg+q+aXqXa+BMnBPRPu2CutlZhG8a+AFN+JOIFtWuVu ECpaAi6nu7qfx65M/Z0kMloK1ipmeoZjd7yQzFh+tAIMVfpxi7DfndhgK6RS A9p2+TfJfKeh2DvMGPubNaAn7sQxeWynAsGGIl4NMLoQJ8nCnln4BDwLawGl 8s53AzY7/Kpak1EdaC73KTfBvvyseSbBsxFoNrYcCcZm+hbXxX3+ACpdnWmL 2PyQbI9KsRZAaxYnhHpo6Ed8mtBP/RbwLkJcSRI7uyRi595HLYD3+LC9Irah oEve/LGPoDJY13cH9plo8UTH+VZQJDcpGYxd/+Ko5x+r2kFjGD+E/EFDMbGX 2gT3t4OQmLJoJWzOxQe7vvm3A5OE88/VsId3f5WLam8HpusZInrYop84ddN3 O8CzPgWOI7bB4hENJP4VJMdERmRhl+21HbWZ7QSF35iZlr00FLr+wpGNalyw NqDN3w7bjH6vWsyGCywy+BwP7G9fPyeX5nOBiAjP5Ar2wsnDB9inuoCrXlTv M+wk0+efZ850A0eetrJIH87DJ1O3cug72Ef8sKjH5loJmxUL9ADhjZlzn7F7 dJ2ccxg9YHZIrKAXe1iACksx7AF7Eifs+djzd4K++j/uARf1/7u5uZ+GFHNt A7Yc+QFOieyyTMF2mBCpelLbC3Iqb3NCBmjIpc25/UFXL4jJsnW/i+1eXMqL mekFuVrDoanYJ4POkEEqfaB2sV6kAvsqwXW3D+wD6U9jhJawH20qFKN0+4EG 5yvt6iCe7/Rf5jcyBsAH4RrdO0M01Hf47AsfNAD+6Em5n4Y9uOO6NKdjAJR4 7GK8xP4plvH+T4lB8EfzTU8u9uLjYfOWk4PgSVPSyQ3DNES2nLZYtXUIyLx2 WN2KvXdzoGV+1TBw3bnaVIdHQ/uY0blJncPAxKQi/gD2Af5jInRmGFCrngi7 Y1vXvf1gqz4CnEYGTeOwXVxWHOSHj4DjrU8u/MK+FBN50OQQD5TcMQ0vHcV9 m0w61PV9FDR3SvPcf+I+796jsHpuFPSN3l4WhB0fPdTjQBsD9iX2eg+wr27c eoa7cwy4rntONWNbnHx/p/PBGOh69DFAf5yGJoaWNX21/gmGLLu15CZoKNFn iwrPdRwU2jlcmZikIat7IqK3fcbBJoWtNrQp/H9Rx4jG5XGwfnS7rSZ2sHRg vtfdcSCv8bDdG9sru2H3SMU4cC7e0szD3s5zcx5WmgBBh1g1k9O4Lx73Ugbb J0DTnw92Kf+moXt3jJ4G9U2ALy/M8oyxLYunc+UnJwCYUzh6CrtK3LJ6v8Qk 8OWq2pRjP/9HjJezYxKcDEJzzrM0dGHKf9vF1EkguMTamjdHQ/Sr9q1iJ6bA 0RvitwIXaaghQ4KbemEKSEw0hL3Avt5cPKB/fQrUtM40crFnWdSCd8oUCOUW y+38j4a6qppYLc1TgMaPf7+EnSUOTyVqTwOXK5vmo5ZoyCieLa6xNA308tqD +gQJ1Kwzs/uWxC8w/KnHSHE5gTgd7y4NMH4B00+VVoewvRVPj6Zt/AXKTA32 V2LHppY3K7r8Atskyfw0IQL9yLZLWFn9CywvfJ5+VoRAgTXxKpNhM0AhotbF UpxA4p7H7S0SZoDg9i3d0dix4jvjs9NmwO3HhTkt2BlmfSu8SmeA2T7L/dYS BGr6uGXkx+gM0Cqg/BwkCaTY3ZzbZvEbmG7P7A1cSaDiWXFQTM2Cc2Yap0Vl CLR44Nnz3exZMOzG6DqAvfNvY2bD+lmgPBSUEoddaRkywTWYBdFUP11FlkAN mf+lCfnOgtV/nOswIAnEtRsXtXg/C5ps+uTiGQQSrGhr6b8xBzaQWsYXFQlk wDgLfO7OAY+VTZ512KHe9Ky5lDlg1uPdr7CKQBLy5tcli+aAQWjdWDm2rG+t zubeOVDeCvdIriaQ2trXSVfgPIi7N6dVxCLQ/luP3GXn5oFFo7KgpRqBIrvl 5uKFF8CgcXJZodr/87gbLkdfAEXtvmPy6gQ61H89R0ljAdTRPJ71Y3P2eM2r 2y8ATnJH7LV1BPL8TztyR8UCuLDWMeTjejzf6fpC91uL4I3l1apGLQJVHJkR Kpbjg8Fny/7UMyBQqZtevftaPtjNgwqF2EWnA6JlN/HBz4y2yxsNCZR5S0TJ Zy8fcKsjEtSNcF7FlI6aHx/QnBc3KO0lkLucjmdcKx/c3CAquHo/zrfDr/F0 1BKI9I2f97Mi0LqsRdO4YAEY+PaqYrg7gaJO5lYfuCkAj3zMtlL2IND0Rnco GikA6yp8+IXY5YXvtS/dF4B330am9xwjkFV5qrJzjgCUX7517y4vAgW07J35 kysAx18N/SvjQ6CW2djHVduWwbLFa9uk/Ankb7h+dmp8GXSI7qrbF0Wg1/w3 Tn4ByyGpEWM/WkkgSfO/dztPCEGLnJWCX2YJdKCc13XqmggUC2dt7tKhoziT H84qK0Uhx46+TvgiHfGOb7QHAWLQPM++2vYVHWlldcpclZKA2tnjm88IyKDb Id/3rA2WhD1T97vmjGVQ22VDzXFyJdT0HfQaTJRBa6Jsl5xSpaFcLH+r14QM 2qXorKIYRoNifg8Xugxk0aDAv6qJBwlYd2xfhOBDWcTY9MmtXooOa98UrtL4 KYtMxnYkmFfTYemOnKOft5IowMx/wquWDgtENV4s6JAoL6to3816OrxdDA+v 3kYiRS9NgYoPdDjqdDDNVZ9EYwPKnpu5dChcK6o0AEgU+325PvmbDo3MXPXr 95KI2/qO+0VdBvLlg52kOCTyfW2t6n5bBjq6KQd7+pPoU02ImVmUDJQocOg0 v0Qi3db8s1oxMnBx7lWs9mUS8XnEW8F7MtBvJIWxdIVEYUpNjg/TZOBAc4h3 WBCJHgUZ3W8vkYERyNM2+CaJGox1JPcNycBOtRuOv+NItLaVOalpJAsH3sUl LWSTqPZRmYu1iSzsfWlx9N0LEh33dv3ov18W5hy45xyfQ6IckZyC6oOy8JS0 iNGGPBLpbTP2O+ooC0eo9X7WhSSySDm3GHpBFtqmqVQHvSaR/7EWEW6mLGxs DXhoVUOi5sVwhdvSJDyR5Kay8I1EGWoLn1PpJNx8aEN/Yid+34PHY4tJEk45 tdH0uCTSeLpXakCBhJVutannu0gUekh4aZc6Cdc+yKgZ/E4i/cyAnt+QhBez DMNy+0mUfvj0s7/OkNB+y/bC9p8kupJno6PfRsK3N55LJQtQKDjsFVJsJ6Fu 9u4v9GUUCnWRN+V/ISG3+tHum9h36Fy7im4SmoylDp4WpNCTM27BxjwSOvjY J0AhCtVtPtt4aDkFHX9O8OpXUIiZH/3XiU0UvOY80Z+8kkJ5+Q1RyREUhAHr M00VKPR7398ub+5QsNN88Xg+9vbeK9qddyk4cXT6i4IihaplNb8qJlIwOK6r bgS7/Vy0alI6BTW85RZvKFGIr2PzJrGcgp4KlzTzWBQyKe0aTpigYGB61oYW NQp1V00axlgzYNjYuiKXLRSKZ1Xp6tGYsL9ox1NPYwqZS4yu0q5hws7pOJdr HAoJCP/rVBkhB/tM9xcf9qHQNlPTbkFjeZjmbXV+OpRCxx8GvGmTVoDS4Z/f /p1KoTXQ4fPRegV4+7W6pmc5hbq8435oXVOE5Sa6tdc7KRT7/LLZI9NVcPcR qYoGPoU+aElPlwkpQTt1q3muIgOJNFnOnmpSgmkHA1Ul9Blo5/TImG/salg1 3PGqyJqBlvKY0XGqytDgcrmB1QkG+up790hJmDLMezIudfcaA1368hfSHVSG nH1vRnPvM1DSCqdH3XtYUHqUUfAgl4F8bB+4njRkQUOdS9oSeQxk+OyT+qIR C54NSRe+hD1mapbLMGXBF0o9sUfzGQhG6lUesGBBB+/6QOVCBuqVJXtL7Vgw hn51VckrBtJg16ndP8eCNM7h3o2IgUq2a72wzGDB2ZQujkUzA6n2DnZUPWXB sqnXvu+xo8OThXQzWXBFceD0gQ8MdOyLCEfpHxYUFa3WNG9hIOpCh9BIHgvq xug8sGploDP5AZyQMhZkbBMu9G3H5617J/yyjQVLtls7i3zH92M42CkKsaHu y/mlhCkGkterzC0RZsOtB82VjacZ6L6d6oojK9jQ4LPuwAx2/OOx3DhxNhwv oHvZzjBQlMbVFdIEG3ZefsZZM8dAweBR3jIlNow4lG7VwWcgD48e0QEdNtSz jeS8E2ei/ltGDte3saHflUibSAkmcs3KzF+jz4bmF2+IWUkykdPEGQennWw4 laka/12KiTiXlhd0GLChx1Y1G2GCifZHqTg2WLKhZYdr4ykGE9Xl3iw4fogN i52VvSCTiUxaeWJi1niedpN/CTkmMpIrLDC0ZcPT3lZFRfJMBNIMxcsd2FC9 aDZUTImJyqqfOdo7seG0KFeuG3v7oFThgjMbVpsOnHi5mol0139y1HVjw7O+ T6yOsZioyFyv8JM7Gwr9nhraxWYi7TMp4ueOseGy5BSouIaJCmIFnWSOs+G8 zZjtb+zNL90Lc73Y8PF1jS0fVZjof5KOA38= "]]}, {Hue[0.37820393249936934`, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV1Xk8Vc0fB/Brz55z77n3WsK9rqXUkywRZSZlLUoqpbJlSYVIj1C2EFIo WSJEpdJClJQYUoQku8qSfQ8h4tFvfn+d1/t1zpmZM9/PfA/L0XOfMzeFQhHl olD+f72fdivOVzdKX/NhcvWQKIHWbXZ+6spxBeWfLgWMYc/R/t2ixfEFGjwl Gj+xbcJWVqQ5l8HqvE2F89iiJRUO4pwkUPSOf55PjECDbRyqICcHmMjIhyli Nw20jPFxikDkjlhuN+wza/5wKXUWgY1avh7u2GIHZJlGia/AlaD8Hi9ss0qX nRGrXoPZGtjuj12R9TuNf6IEbLzzgXYVu+OZSA7PkXJwfnNA7XPsj6f/OcTL qQLarEhvHnECJcQxrx+LrALdfMIbBLHtC7nrXo5Xgd41blNi2PNLrcDtRTWQ rhmPl8JmXwlSrjeqAb6JsdvVsS88bJhPcvsEtNd42R3HZp4trrnZ9gXk/bRe qsNeCXvqWiHYCGp8O8ebsPsSs3l/6jWCyg7ayFfsp6+v6ptkNgLe0g6uEWxD bsfnf040gU2c8Jd8qwnkHS90y+5PMwgUW9Tdjl377Ijb2jXtYPWi6Lpy7OsJ AS3cu9uBvv4nno/YNn6p27/7t4Pi4x+HG7BHDb5Jxra3gwDxouYe7FWtNjWz NzpASb7CZi4JAu1cPqyKhL4B7gPOG3Zil5ocmji40AlG2iSON2FHbDh/WE25 C7j+dKr8jm1OJL8XPNgF3IRpGoPY37+13S4p6AJb5Rt0FrGXPKwt2J7d4HLa xyE5gkBpZrlt8949IPY/u35P7I4zj3QqRn6AOgvZXikqgbr285kXU3pBkbjc d0XsXh17hzxGL0h2OTKghj1KoUenG/YCZbN2RWPsP3Eh3/zv9IKAK2wHH2yZ /EOBGof7wJC4adMXbNtp/sq71f1gVe6TbSk0Ajm2OLSndveDiKnzJvexXYpL xq/P94Ool1udC7A9QrzJEM4AuOQm0vIJO0iiy+VY8ACol3CL4yEJlLnphSBd ZxD4RRy+4o3d63V8z+WcIWDlQTOwoxNowNrn2Rk0BAbackTOYA9vCxe36RgC jTS5qWDsn4I5n9cLD4OzT3dyZ2Mv3xnd0+gxDE6bGFsPY5ONXnvXbB4B8bti +3wZBDJRD7YsqBwFEnePRuUyCbSLGZ+f1jkKFB8ZF5VhW6zckYiYHwUON6q4 m7EP1Lz7ckhlDMQJq/xaxnZ0FNi3cmUMGD/p27ZXkkAB16/tM7UaByA/M2MZ ++lMmlX3jwnQWl6D3KVxng12SMstTgA91dr9YdiJ8SO9tqsnQcX+nQKp2EFq m7279CfBam6d6mrsvR6f4zpTJ0HRfYtSRRkCTY9w1X878BP00HhuD2DfOqPB GXeaAupNcbqBsgTan8y/KubMFIhdnzGSjC2GOsZUL0yBfdVKJQXYoeLBBadu TAHLN7vqRrBPPa0zGCufAj2ht25byxFo67izw6jsNJhhaq/Tlcd5cU1OH26f BlNSF9kybAIlxxk9CBmYBl2gZIs+tmXxbL7UzDTQOq0bYo9dKWT5frfwDLjF 1X/nHnbuE8HxvG0zoFYyUk1dgUDnf/lv8cuaAR90El/t5xCICDrWLHj6F9BY qVlbrkSguhzhrqzzv8CGtA40gh3eUDykF/4LHHjBG0coE2iBRV9yT/8FFta8 anPC7q6sZzU2/AKySU1UERUCPRaCnre0ZoHmM2c/57UEMkpkC6n+nQVGn91a DdcTqEF73iBKeA6kq6QQ57BtOj4GDDHmQEYp4+pdbHcZr4lstTlQzC+mz7sB 96ussgYZxznwe0Iz6QN239OjSWLv58DsRy8H640ECq5K5MxEzwNrq3j1XHUC CbmdPLY3aR5YBay86cVOENJPfJo9D2ppBjFSGgTKMR8QOFUyD7h/OnBfwa5v 0hjrm5gH2kGpuz018fnqachv2fsb6JEfbhpuJlDxghAopi8AE+meH+t0cZ4t HuYasBeAUdA+d1ds/XvGzLoNC0DcenrbXewKy7Dprp0LoNQ94ZmsHt7PR/9l 855dALuyrn6lb8X1PDq1au/nBaD1kDeYpk8g7vKWxsHLi2B9Wn60kQHuTwwf cObGIrj8fVApBjvCnXi8mL4IVEUVxBuxhaX2hIu8XAS6+mGVtjsIRDtbra3e vwiMUp5UB+wkkLLim7SL8A8QcNJyqjQi0O6oTBfa4h9wbdWFXfG7CHStR3Ix kW8JZDmUhA3t+n89blyRJJZAnGmNrP5uAlkNhufJqi6BhLCt/45j2+w49Ufl 2BK4kDz4ytyCQG7/aV3bVr4EGu28ytiWeH1etS9copbB0Ibo3UxrApUfnuct llwBtnwK9/ScCFTirFvrorgCDA5LrbuL/dIrMJ62aQXorpUXFXUm0KMoftkz JivAh//BRDd2QjFdW9l3BRQsl0pFu+L+JantdrN5BSie6tSYOonr2+H7ySv2 L0DeNsU83vh//HjZ7GYoBbYKKr8yCSFQrEf+e4tICuxb5vH9gD2r5gJXXaNA 5OMetzOUQGUvPmsFpFBgW+GNxu2X8Hkty5J3yKPAY++q4mE4gQIbTebXd1Gg zrfjgxZRBGpcSLhTuYULSkcxJZ/GE8jfcMPCryku2P6mcMQ9m0BvVt7a+wby wCidg4Pi9QQS2XPPwGGaF5YY5P18vYj7V9l4t+clftjSFup3QZWKbpr2OXDE VsG5jODG3ceoaPyk2jEQKAgfbAttEI2hIs3HndQgUWFoYTc0c6yMimLCfuxQ DBWBJsnav8OnqKjlguHGKVIMqmuxBt4o05BC7KG/9lnicEBumjfFjoa2yzhw ZKJXQ9mVqdv9N2homPJB6dY+Cei+8bVZSA0NMTa1OteKEjCY6etjuEhDIg2p /z5cTcAdDlNrZ7Apng6XL1MJqK1Dhqf/oaHRx+MPdkji+02aqvNLNFSqwjP+ hkPAufiKf+6s0JCTvJr3Yz0CJijfaxngIVGeeHTgVTcCZixN9iuLkch0clvS nvcEpJqdFwhjkSjQ3H/6VDUB16sq/OawSfT88ctdkbUE9Nfy83iPLXNqI6X8 CwFHOqt+8XJINDkk76beRcC+9JSDgUokSvjBo0f+JmD9NT0PG1USdTV/7Pqq QoVH/ljmFmmS6OybA0ouMVS4kTrDWmVEotaqMHPzWCrkqizfGoqt01zgo3md Cukc6vQS9sq4xDvuZCqsqHyvNGlMomjZeruMbCosVbKp+WRKoswQo5T211T4 NfIj1d+cRHXG2iK7RqiwYfLQt8v7SbRxv4uG+jgV1mxmnZvDvm5/00byJxWm zvQ/cTxAImu/Xw+GZqnwXYz6f3oHSdT76JlhGIUGCwTqmKPWJFoQVQl6y6DB xafPfTSPkEixmTmz0YgGCyVOHL3kQKLqzFLHA6Y02PE54twE9kl3pyb/3TSo cM9f0doR7zd/XuH7fXi8Qo1da4+TSHeLse8ROxp8HrWzqNqJRHvTzy1HnKfB J9Ns21lXEvmfaOTvekSD3uknbLk8SLRG67wvz1MabHsrtGKLjbhkh1XyaVBZ 8DsoweZLdft4togGKaXXcs95kijuEyVGsJIGu8NaN/SfIdE99Y0SWp00yPXo m0beWRI1LF+RjhEnoU7zbi4BPxLlKC+1ZREk9HbUVzyEHbjvZEIxSUKb9S1/ HmCrPjARHZImoYObX4mpP4kirPj+blch4Vep/XcvB5BI71Fg729IwiHB00fn LpLovrXXw+PeJDwo+kwhNZREF58f1NZrIaGg/6shxSskCo1+hWTaSTgBxlQd sSMcpcxWvuLxBm9tT8eOI7qOlveQUHzTi14yhkR3vZ1DjcdJKJLynJfnKolq 1H0+WfHQoejb22It10jELIg/fnoTHXbw5XvYXMd5LaiLvX2VDgsvKnYuJZOo p3LG8PoBBnwY4bZa7j6JElmVOrqrmVCoWSxlIp9Ee4Qn1mhVMaHcSXk57VIS bfZc2LenhglDFYOueWLLNPFEun1iQpW3SPYB9ugtqZnbTUxYXcDJlizD619n 8oG/hwnnhH/uWMEuMc32aF9gwq2cMZX6chKpRB4uC1gnCakyE3HR70lE4ftg X3FVEqY2Xb8V/olEJL3SMSdOEjrw1whWYq9TrnCKuSEJ9Q3F7nHXk2i/aemJ gymSEH0Ptw/Gzrn68szoXUmo0JwydfEziSzoOcFEiSS0Gn6UEfKFRGnKkZmO o5LweqXXhcctJNpiZtbDbSwFu5IPqqV0keiadJmqkpkUlO0cMhzF7h3X8DU1 l4ISkWO39LpJFBO7RizOSgo+Hmjk6cbuaZ7SW2MvBSdn3jSr/MDfa5eUpO0n BRf5c65W95Go0aff4nSuFFzVXie6ZQTnPyPwbYu4NEyqUPL6MUsiBWjbdqRW Goa0CFEcROmo2/1mn+YlGWijdfK+rQodJeReMM80WwMNV06XvDSmoy+a4rOl vLJQbYMrj5UzHfHXWy541stCM9/YJFoYHenPjk2eTZCDjz0FrGsz6Ojvc2b8 TSV52PBh7djmIjr6dvbG4dfR8rC7xetHWj0dBXw9jnSG5eHYCYeStj46ShOw z+zZwYKCVYPz+Yt0dOZQqpOHIQsGfdF5S/6hI8OHrSrLRiw4F7P6tR/2pJl5 PsOMBX/FfzlssERH8JpuhcVeFpyyVt3RukxH/TSyv+QoC6r1JZkJUhhIlV2j nHKOBQNO62Zn8jPQ662azyxzWPBEWm77KxoDKfUPd1Q+YMEdCsIOyiQDxV+5 zavziAWXlKnbErFPfOW3kX2C35cxmfGhMxD9fAfv2HMW7N173n4zk4G8CwJt wkpZUPLb3fcfpfF86z7yFbWwYNg/OSGbFRgo8ctFtXVtLGhhdDsmD5vbT/3I 7XYWdHyesbyOw0Bfq1LzLn3DzzfMirIUGSjS2ePI3h8s+LtUmI9QZqD+TGr+ yDgLLo8LlwqoMlAaw/aoDC8b/tjzj5yRBgNJ6Vbkv+Zjw8J655xO7JSjSgKH Bdiwy5Py7pwmnv/OZP5NITY88cq8KEeLgWJVgwTEJdjQ/+jbB4QOA4WCzOdc smz4SvOiJd82BnJ17V01pM2GeelGrx2NGWgwysg2fAsbel6IpoqZMJDT40cF CnpsyPEeor/Gtp/2trXXZ8PgS1myNDMGsgngKezYyYZN7NmdDbsZaHcsx67O kg0FSjNC3PYxUE1+ZOFJKzbkU/apk7NiINPmcUHBA2xo9HCithXbSPJFoeEh NjTUshkzOsBAINtQqMyWDav0X7zdeIiBSt8/tDtmz4ail6zKxrC3Dou+WHJg Q/3cRP8HhxlIZ0OrnY4zG2Z3BshzjjDQyz26L1pd2LCu3UqkD1vLO13o3Ak2 HLmxtTDrKAMVJnDbU0+yoWBDPfP4MQZSL3J5kX+KDaeds3Q5tgz0P0Zuml4= "]]}, {Hue[0.6142719099991583, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV1Xk0Vd0bB3AhU6Luued0jeV2o0iJyhD2ThEi0SQZ7iWEjBWFDKVEQqZM lTRokCHFjxdtM9Fk9iqEzIQkIn77/eOssz7rrLP2Pvv7PM+RsXU3s+fm4uKa xtd/9yepydE+GmHaGgJcQY4nCSS/2z7LkeUIDs6UHHLG/kX3Vt/F8gGr1wXL uGJbhCwtSbBCwYoKxSYv7NXF5RxR1h0wX1zmGIA90MYiBFkZ4GvmrEUCdtP3 ltGVrALQHGgeV4ftIfVnhezXAtCUb/mjAVvkmDRDL+F/wHRQweQTtmGlw/7r AkUgT1lPqg27PP13Kt94MTA5s2WmH7sjWziD51QZCM1CMSssCFR3dps5L6sG OGzvqdLGjotmxFjdqAHbgu9K78Nmv+ZuyB+rAW5r1wYcwJ5daAVOb2pB07N9 poexmTcD5T7ovQONzN8Gttj+zz7N3nF6D15JNtwKxWacK3wX3/YZbDMWzGzD XgrJciwXbAQbLc5OfsHuS3jI+2NPI/h7YFizFzur6Ja2floj0AvnTIxh63Lb vvpzpgkw2h+95j5FIK/bQsk2f5oBje3bsR27PvuU0xapdpC1Z29PNHZMnF8L t1E7OLHtRHMCtsWllL1ffNsB3++JT6nYIzqdYlHt7eCbVVPfU2yBVot3M7Ed YKtiqWcZ9v7FkwpIqBMklVSqzWCX6puPH5/7CgT0tzawLQl0XfHiSSW5LnDn bMKQI7YxLbFK8HgXYL+VEHXH/tLZdrc4rwt0hmT7XsZecDtxiOneDbZcC3mf jJ1q+KJt1qsHvJxzcGvD7vB4rlY+/A1sUB/mPWlFoK6jK40LuXrBD/X9xznY vWpsTs467FxmnhP2CBcVfk+3F2zemxHli/0nOrjT90EvMA4IbEnFlsw1D1A5 2QdG+ben92FbT/FVPqrtB+nErVxfawLZtnDaU7r7QauSfUwItkNh8VjMbD/w pn0MisR2C/Yig1nfwXfp+9fTsQPXdjlYBX0HVyo3qdVjp+14I0ipDYCSmWKd 9TZ4f552JqEZg6Du4NilRuzvJ85ne6BBMHm8fXs39pDWNVGLjkGQ3hY2N4r9 QzDj49ZVQ0As83H5SjaBFh+MmDS6DYHxu+maGthko+dhqd3D4ILhlu4n2PrK QaZ5lSPg7OWStCgOgQ4ybuemfh0BUV0G/fewDy09WHt9dgR4eEtqZ2Efe1fx 2XzzKNi1LLzrPbatLb/Z0s1RMF7jriJsSyC/mEgzgyNj4NjGQ7cisbOmU490 fxsHmjk88Y/tcD3r7JNYPz8OYCHjcT52wu3hXus1EyBHgd5Qgx2otNurS3sC xFtvsxnBPuz2MfprygSQNeC7q3SaQFPDKz50HvsBhAeMo8uwkz1UWGOnJ8FQ 1TJz1p5ARxP5BCI8JkEYlNEXcsD9izpGFfwnwWqnL6HS2FdEg/JcYifBK6m7 Jw5gu2Q16IyWTYLjB//Zk4ytOWbPGZGeArIHLJR1HXG9OCbeG2qfAilbJ0py zhAoMVrvafD3KZA+FuP1Dtu0cCZXfHoKsNlGB/uxK4VMq4xWTQMX8NKJ4USg Fy8Fx3K0poGdyl/rK9gXf/qqX0qfBnPvZ8ysnAlEC7RqFjz7Exillt9XOkug hoxVXekXfwKT5qhtJtjXPhUO7rn2Ezw5ojjoij0nQy243vsJ8iwTW19gd1d+ kGn89BMsd7rlbXElUKYQdE/eNQMCRM5HKboRSC+BKaSwPAMGeT02n/Ag0CfV WZ2wVb+A1kv/J77YFh11foPrfgGqtMLsHrarpOf4Q6VfoEgP7R7Ajkt/+0nS 9hcQ3JWz46InnidZlndEqn6BXpUAqcdeBAqqSWBNh8+ChNBT61kXCCTk5Gx1 +M4s+CEvWW6MHSeknZD1cBaU1DGTfLAzjL/zuxTPgpSgyv567A9NKqN947NA 8Mfz397euL96PuW2HP4Nqt0u727zIVDhnBAopOZA77imc5kvrudDz17oMOdA o8GtrAls7ccHGA2Kc4B7b8wmST88j01Dprr2z4HsRrNMH+yG538f8p7D7xPt G3b44zwtJwUOf5wDG4QWql9eJhB3WUvjQOg8aFNoE/oYhOfTuvPAI3YeGFas meAOxvPIlZY5f28eBJQnCKhirxI3uSacPw9Cq2n997Hp52pVlfvnwcDMLbXz Vwgkt+mf1MvwD7jAlrkgF0Igo7A0B/r8H9AR1La+MJRAkT1i8wkrF4Cl2m35 +dD/8oi9KUZbAN8D+fzUbxDoyMC1HGmFBcBX8Xq8CNtin8ufzVYLYGILr3RZ GIGc/u6K1CpbAC9p9rX/3sT786x/4xC2CDK+Vq3fH02gspOzvIViS6BJ7Oq+ mSQCFdtr1DtsWgIC4xzpvckEyvcMuE3fsQSCgxY1IrGfh/FJe+gvge4ub/Ut KTivQkpVzmcJpAb1HbRNxfNLTNUpvnkJiBlI1vbcw/l2+Lz3jFoGzNInoqKP 8P84c9Ew/goXHD9R/3RbNoF8dRXnfk6ugBadDXYVNQT6Z6mE7RPAA7/8cnZo /k4gYZPHOpwpXvg/5Z+LH3no6NDbsW73q3xQaZJLvolFR/EGfRyWiAD8U56a 5b+fjsaclaxAgCBcwxn9286mo52ZX4nA1atg0sUvIdcC6Cgi5Nu+TVeEofCI 03BdEh21+OtunyRFIK9u/92bBXS0Mcp8mZ0uCnmdNjHVW+horySHJRm+BrI6 tTSnJuloiKtaNtlsLRya99zAK0KidTta7etX0+DgE60lUo5EBhNad0yqaPCo 2JnxD5okCjD2nXKppUEZvtF1slokepWZf/BGPQ0yel/zXMaWdNnOVfaZBsnP /0rLa5NoYnCDk3IXDRbFlXOCAYnivvHsIX/T4GH/ChGWDom6muu6/t1MQKuS h+/VD5Do3D/HZB0iCCjUzN6ScZhErTUhxsZRBGT+IauHsdWa887vjCFglXLN 1q2mJFoaW1vBnUhAdR478xzscOkPNvcfEvCC7CX5fDMSpQXrJbUXETBlRLy+ 4CiJGg6oCh8cJiD3omtirDmJNjUzprfr0WFQYRvIsyFRbVqp7TEDOsyXlk8Z x3Z2Pd3ka0SH4QXUWzk2iXL4cl5XmdFhw3NvTgq2hvoBn1M2dJjZ5EwGcUh0 +N6FxesX6bB2Y5sdsCOR75lGvq7ndGjfWfsrwYFEnxZvSkSIktCE89zvzVkS ZcgttKXTSMh95F1BL3aAmXNcIUnCVt+D9aKuJFJ4qr96UIKEKnyHLjlhXz+y cnnvZhKKR3J+i7uRaM/zgN7fkIQj3Jcyvd1J9OSE5zM7LxKfr1IIzYtEl18d V93TQsLh6pgzQ944r7yGqLu3KOjfmyk8FECinspp3Zhj6+CMwut9H66TKEGm Uk1jDQNe26ZwVieSRFpV5iyKYEAH9OgrG7v/zLjoNImfT8RbBmIr51CDzyQY UHFH8tVi7PfaTvFicgxYEqjvpxpFIl5Lkek5LQb0YKlpKEWTyCvB/EWBCwOG 2nzT3hZDIpNV41K7ahhQPdY52yGBRLvd58xM3jFgp6bAdAS2ZBPPDaf3DBh9 kW2Whz2SLD59t4kBCwt2uHLdwechr1/N18OAtXsn1qZiFxs8dGufY0DdcT+j jkQSbb5x8q2fvBh0WoDyrikk4lpZzS6/JQbbrkZG8D8gEUlV2mZEi8FEj6Q+ FWx5ufLTEbFiMMvSlsPGPmpQeuZ4khg8vjzwuRA741a+x8gjMWgpXnnTLZ1E h6iMIFqxGPS6WBne/ZBEqXI30mxHxOAek7WTPU9IpG5o2MN9QBwKp8kVO78k UaTEWwVZQ3Eo41lY9QS7d0zFx8BYHOav1Bbsw46IkhKJPiIO8/Q7tC2zcD7N k3uk2OJw/aCFk2k2/l6bO3dUL4lDNZPQXr1cEjWe7z909oU4dDEKDLd5g+v1 fkBJi6gEVPjl429SSqJxqYGWCpoE5Bc2UkzA9kg1nsglJSCdewXjK7Z3kuT6 SAkJyNqgl+LylkTBsUVBenISUMM/2+ImIlFi6Oy+Am0J6M/hr2kpJ1G1u9u7 RFcJuKjqFZFQQ6KN0LrtVL0EbBW5W1PzmUTdrvF9O69KwgqX6BUmQ7jfX/gb pxlKQV1zymiIh0Kfd4rOlPJKQ/FQTy/H9RTi+2A65/5BGmYLXdxhoUUh7ZnR iXNx6+EFzgKX8UkKLb9i3I6X3QBzmt1HVTwp1Hku9mRR+AZ4ICnkzbMbFPL7 1w6pDW2AmbUuf8dSKZTKz07r2ScD9VrzjN1yKFSkuTPbNEMGgutReXPVFJLt H+qofCoDRbrOG5jVUOj2zbu8as9loGbFH1om9pl/+SykX8pAzoYJHXYthaiL Hbyjr2RgVelTVn0dhbzyAixCSmXgls/vOS8aKKQgX7eyoEUGWsY+ZSc14vXX WVtK8jLh1FDaX/1uColrlOcWrWTC0NVh3Ag7yVKW/yQ/E/rXr/JS7aFQwoOJ 3HghJhzW+BEr941CUQqB/KJrmVA7L3lOuI9CV0DaqxXSTHhVy3NqbIBCjo69 AoOqTCiXGs7P/4NCA2F61tfUmZC3zu5rBPbpzOd5G/cw4XZa+G5ikkLsKS9r tjYTnu/quCAzRSELP57XHfuZsLHYUHv/TwoZRbFsGkyZ8NnR+EcPf1PoXe6N 185HmLBjLlRYeY5CBs1jgoLHmFB2ZjdvGbae2JvXuuZM6He5/3HPPIXAQ12h t9ZMaAhUamUXKVRa9czGio3XdymtKMTWHFr9ZoHDhOlI7ZjxXwqpKbbaqNkz 4chBmpb3EoXyTTTetDowoWP3YtyqZQrt8rondOEME64+On7tAfbrOG424cyE 1OLTNWpc65BygcObXBcmNF7xa9dH7P8DHrQS7A== "]]}, {Hue[0.8503398874989481, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV1Xk41ssXAHDJTojv910teXvR5tbVQpQZRBEJLfZQKZS1tJA1SyVky1Yp 9bPkljWRy9hLSLZIhELW7Nn95v4xzzyf5/wzc86ZMzK2zkbnOTk4OObw+m// X1JCxDWVO2rc3su9pbkE2rbv/KsL7AtgQ97XtDLsWcJj/172NSASp+lWgW12 e3WVyQ4GT6sqhGqwNxSX24iwHwI/vR/WDdgDX9ji/OxUECT/LaQLu7m/dYSb XQA0Hf+ZWsF2kVxcJ9dVABbW9opx5BFI+KQUTTv2LTg0X7WHE1u30u5QEF8R IKgbAniwy5/9SeIZKwZ+9lmHRLA7XgulrjcvA3QfGWsZ7A+X/jLhYteAnvRE 6hHs6AhapGVIDZgUD/iii22dx1n3ZrQGWDSkJupjzy21Afv896Dza/kuY2zW PR/5Bu1a8HZoJswK2yu9ce6hfT2oTyZkPLBp7oW1MV8+A66W5Lo07NXbry6U 8zcBZvIJmUzsH7EpXL9Vm4BGsKzna+xXRffVjiQ3gbnjB9XeYGtx2uYsXmwG B75Jrq/EdnsgkHBmsQXYeYWH9WB/fG1uv1WyHeiqT/ZL5hMoMtqzlVOvHag0 2KbLYJvdSFT/drMdvOJUdJPFHtbopIe3twMeGi+hgM3XZlY7E9UBIvms4g9g H1o23Y4EOsHrFOdsC+ySIyZjp+a7wKkzeceeYgcpXDfdJd8NcssX6l5g64vF VfGf6gYe9x8ZZmB/6/zyqDi3G8gpbHbKxV5yOn2M5fwdpFZLzFZhJ+m+/DLn 1gNsTZ5ojGJ3uGQolw/1gmmNAQm1NwTqPsGtX8jRB9LMsiw1sfuUrW2yqH1g cLTwxRHsYQ7K3cdafUC7JvuoMfZihF/nzad9wO1fjYmL2BLZJt67TX+A+hr/ 5zHYVpM8lc/f/wQ5sv9wzGLbttq0J37/CXhv1B1YwrYrLB6NnPsJujvd/dYV EMjJz430Y/eDKNFgtjC2z8ZuO0vffsD17k+TPHby3/n8FOUBcGvq91cL7D7X swbBqYNg+K3hUD12/+krr13QIMieTRxrxf51MFDErGMQRK68WunC/s2f+mmH 4C8QbuSiPo69/HTYoMnpF/jLdZupyFsCkU2uxyX3DQEpQrjdGPuIoq9hbuUw cFWlhA5gH6U9yE7qGgZGHMbbJrCPrT7dGDQ3DHZ7325bwD5ZW/HZZMsIyNUV Nd1QiO9ry2u0em8EnBD/yrcX2zMyzEjHeBR8H/m9ORj71VSS8ffeMfDiJL1p XxHuZw1NpvTCGDDXdApXx459MNRnJToOHvmKm+th++za59atNg4iPkdJ2mIf d/oU0ZU4DuqCDA3DsCeH1jV0nvwNmmtkAoawE1x2s0fPTQDNRfWwl+8IdCKO hy/UZQLo27GV32ILo46R7V4ToCQrcaoS21/EN9cxagK0OcbEd2M7vqrTGCmb AHrBjdlixQQ6MHreZlhqEjzjcpLwxu6+EPf4V/sk0A7yO2/7L4HiIrTT/Pon wd0AoRA3bMPCmWzG1CQIc+Qs88euFDCs0hOcAlOX4j1SsF/+wz+adXAK3FCy me7Hvj59c/+NZ1PA1m5B17mEQGI+li38l6YBvzNSjC4lUF2qYPez69MgQOjG 6VTswMbCQdXAafCjQiS2CHtehrJ0+fE0sK7VsenF/l7ZINPUOA0UlsV270IE yhSAzgl7Z8BNXqWuJmztWJbA9rUZ8JKzgapQTqBGpTmNO4Kz4FRjrrYmtlnH B89B6izYJicUaYp9WcJ1LGXXLHiEbnsHYUc/K22UsJ0Fiq1p2b3YP15ZPBSu mgVtDKv4RxUE8q2JZU/dnQMcX1/s3lFFIAF7B8vjD+eAYLitvDZ2tIBa7KuU OfAxhFS1xk7V7+d1LJ4DXgP15dHYDc27R36MzYGZuqhTa9gSPY3Zrcf/gBnX 7NSv1QQqnBcAhZR5YJ2W+DrjPe7nY+kvNVjzQHXS5VM1ttqLw7Q6hXnwqYpP +Ad2ueHtye5D84AjrWWQ+QHnM2Mlhct9HuwP3ioajt1tMcF3/NM8OCI0ouVZ SyDOstamgeAFcM7dp8mxDs8n6hXgErUA7o5LTd3DDroslrnwGLtqWTETW5Bh ECj0ZgEk7S+mjWET7u+VFH8ugKLD0MOlnkDysu+SbsFFkKL4LORWA4H07iTb EQuLYEA481Z2I4HCeugLsdxLQFI7eaG98b96RN2jiy2Bq2N8Tzg+E8h4IDBL avsSEKzztDuObabpuLjFcgmUOBcMTWLbr+wNO1i2BDK8tnw60IzP5/ox3+7O MkhLt74y1UqgMtM5rkL6KrD47Cf+vZNAxedVPtrJroJPwSWjG74R6I2r9wPi 71Uwm1A0cgA74w6PlMuRVSC81muWiB1dSFGSv7YKyHfuK6ZdeH7RlexjWlYB h0rpse5uXN+Oa/Wu4WtAqHTzEGcf/o8zl3Vj/DngpYIQ4cJfBLqppTA/PbEO 9vIZxFv9IdC71X+tr3mvh6FuzG9DfCQSMnihYTPJBaXZDLlZOomOlY5+dw7g gSr5KVSZHSSK0flhwxbmg6FOaFPvARKNOuyyBN78cOBiQpHaURLtyewS99kg CO+oGv18ZEqi0Nu9mrL+QvCUx/qtp+xI1OqltXOCFIZs/YcNc+4k2hxusmb9 TASW2UpLZ/iRSF3Chi1xVxS6ZuWL9IaR6BdHtVyC0UZInBXwdXtEIurfbec/ bhCDOhvLKyszSKQzfvChQZUYVDmtEbjyhkTu707K2YWKQ7eGhZGachK11dzW 1w8Xh5ZXnGMnsJVbcq/siRSH6YlG8vQKEq2ObqzgjBOHvUtHl+2x70o1nHmS Ig7jBG67CVSSKNlPO769SBzW+uaGaleRqO6wktDRIXGYe+6w48saEsm20KZ2 ahOw/V013FJHovfJJbYndQioFuRwTh/b4fK55pt6BPy98sHBDTuLJyuvyoiA On4T0sXYKvsPXzM/Q8D3ReYKx+pJdPzx1eWg6wQs+hDTe6mBRDcvNvF0ZxDQ cJuAbEwjiRqX7zFDRUho0ybwIKaFRKnyS1+eiZGw07nHLhfb28ghupAk4a3q O7KfsbenHdkwyCRhTRiyFGolUZAx95r6FhK2Ob0o9sNWzfDu+wNJuNdlnd7F NhL977Rr+lk3EprrC3vItpPoVs4pJdVWEr4Q7Am26yRRTm5d+KP7FHj29MG8 rh4S9VROaUWepEL/iel00wESxcpUKquI0mBKun9Q7AiJDlaZsCniNGgf/Zk3 E/vnxTGRKZIGY2SDosqwFbMog+lMGnTPSqsdxa5Xs4+hy9OgSlfEO81REnFZ CE/NH6TB5U1LVdPYbrEmLwscafBKaJWz5TiJDATHJPfW0ODpO7X1VpMk2uc8 b2RQS4MKRRIyN7ElmteH2NfTYKEF414M9nACY+pRMw32mzSn1GEHbTtSzdND gw+eW42pTpGoWCfFqX2eBpPWKALS0yTaEmJa6rmNDnd1nH4zP0MikdFzMzEK dFiUUKJCnSXRnIHL1qxddPiWKO/ci11BDY76uY8Od66zvuKObZWad0Ffkw7V ZQH3BHZ0tYiotAUd5jd1fRqfIxEHd7V1+X06vHrwggXXAolISqVtagQdDvao +7Oxt8mXnwuNokO+E7rVh7BP6JRcPBVPh6Kr/umB2Kn337gMP6dD59DBHr5F /F4pqb5ixXQYvUbfRy6RKEk+JNl2mA4bnluFaa+QKFs56NnhMTrcEuJR7YBd rXP7+Y4JOvRCaTLh2BOOvmlzs3SYIzqv3o6tmXU96+46BjzJE/DXpVWcP2V7 lENjwJ6gbR0JayTar6vbw3mYAaXyO3wJTgoKY5Zul9NlwK6y9HaI3Te6+5qO PgNqfTx95jJ2aLikcIQxA2Y28S9WY/e0TKhKWjOg/7E+e6/1FBR05uFDpRsM WP2w2XyCi4Karvw8duklA8qcr61Y4aUghyfe/7aKMOF5HoWWAmEKGpMcaK0Q Y0LmLgOHMWyXJP3xbJIJFQr2KW4WoSCPeAnpMCYTOiiVnA7H9osq8tWWZ8Jw hZvL9qIUFBc8p1mgxoQFimLlW8QoqNrZqTbuMvaKWUcdSUGbodUX849MeFZZ ZyFHkoK+SoSrqjYw4RXd23oz2BELpU8Yn5nQp9Siea8UBa3myFzsaGNCa5MJ z0Lsr7L986f6mNBTqkW5QpqCIgUvMYwWmLBsR7ZNjwwFrftyw/KIvAT02Wpr qi5HQd8vx/zYEyABA2fjkxN3UlD0Sy/9ZF1JGFRs8+OiNgV93iMyU8IlBcd3 dpYSVhTE02A479wgBW94sJqGrlOQ2szIuHu0NHS/y576FElBazm0BzFymyCH 3XNkmU5Bne5RpkV3N8Et55V3XiilIM+vZ5Hyr00wLKLieu1nCkritU7u0ZSB FXdN9l3qo6CiA3teG6bKwMn9PLs3z+A41cpCgosFeTcslnzlpiKGSnl2ETcL ctUe4tnJQ0XxFnK8prwsuL10ISgAO/bpeHaMAAs25mxRUuClovDtPrwiG1lQ Otb8XAAfFfmD5Jx1Uix4laHjpypIRRcu9PENKrFg5VsPw++iVDRwR9sqcD8L hvJ1cB/YSEXnMjNyN6uyYIVWIF88tvWkm5W1Ggs+i3NaMhajIjPP9Xkdh1hQ O9Mro16civTC2WfqDFnQPMysupFCRbXZIXkOxiwI1/NkK1KpSKdllJ//JAvy JIzNRGNr0/PztExYMHFI+Z4ZjYpAipZAqRULBvof5h6mU1FJVfoZS2sWPKhl Wn+MQUUHfm3IX7JhQYMktZlcbGWFtjPK51nwm9dJGx8mFb0xUMlvs2PBtlsT af3Ye90eC1y9yIKb1ika6UlQUV40p7W4AwtOen2yzMVWLLDLz3ZkQals7zqG JBX9HzLnVlc= "]]}, {Hue[0.08640786499873876, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV1Xc4l+0XAHAJ9UWU8Xwn5ZtRxlvJDvcdEb1kRcguOyOaWtIk2aOkQQnx KgqvUT1EA9lEQpllZX5fox+/0x/P9Vyf67mv5zrXOec+R8otwNKdm4uL6xc8 f95PUlNiTmmF63o8uLB57bI4Ka/mnucp7YnyuJ+JU8BzYic1VaVPIcp5TQo/ 2P7K8jJT+jrqtD4yKwBeV17pKiydjChhe7uEwUOfpUUp0pmosXppjApuGWwb 5ZUuRqyDvn9tBQdKLK6S7S5Gm7wqzeTBQtaSNMOkf5F/aWGQAnhflceea2tL UdmWkFdK4Mr0/1L5xsuR4UqJhzK485lg5upDFeiQlSS/Nvjj0b9seaTfo8IG jwxzcEIMLc7xxnskVM7LsgS7vOSuKxp7j0K8BxOswJylduRd+AF53T9+ywbM vnlRrt6wBjWnK6c4gM9lN3KSvT+h44u6Mt5gWnBJTeLnJhR1WJV5Bbx8Jc+z ktKM1AS+f7sK7k96xPNrVzMyn9TPvg7OK72la/SwGWnmIr2bYANut4JFrxb0 tvxSYhw4KJY/xXmxFQn3dlalgWufHfLeKtGBmte4uleC4xLOtnGbdKDbdu/c q/7k+8zd3V9DOpBIGo/3O/CIXhc9uqMD5VUyT9eA17bb18zGd6KOPZtLmsF7 ftspkPxd6M2DjTX94NdGtuM2892orpFtsHZFnLymdNpuu1wPYjinZ/GDTUVu V1NselCVW5jwOvDXrs/3yl/0oDHZk8MbwEv+B/ezA3rRgk8eyQSn7sv5zAn6 hpLFLrO2gzsDn2pU/vyOkhx/3z0E7jnAa1rC1YeGqq97OIH7NFxcn1P70IeZ nyqu4BEuIuK+QR8KrjTs9gAvxlzqCknrQ/8emXQIArPybS/stOtHX4XCWRFg pym+qscfBpAtj2ZlOditzbXjbu8A8tJp2ECCPUrKx+I4A+hY1w/3t2D/S0Hi l6QHkfP5V8wa8MUNPR6OoYMoTj/m9Wfwwx2FFEJjCD1JXD808ye+Y4fNrmcO I5Gq88PbuAhy8ODxZ4HkMBJMityiAv6hc1XYvnMYsf/XGqAB/kXJbFAU+IF0 Tqts2A3+nTZi1uz/Ax0ul3hoCRZvPmYuofYTtYuocU6CjZRDLV5UjaAonyOV VeC/abH5qd0jiNJZ1/URvH85bcM1zgiSHov5XQ+2rnnbZLtlFOl0WR7oBLu5 rbFcvjmK5NY1Ok6Az8ZFWRpbjaEyc7fv9FUEmTedatX7fRwtfY2cPglm6+kz Ny6Mox8jcennwEmxP/uc1k+gicBN9mHgi9vVgnp0J9Cz6LneW2Bz/4aY7rsT 6LP35b0Z4Kmfq+q7rH8h0Z+botrAKYE7pceOTKKRk9e0tLkJ8sBtvrWRgZPo 06LZuB5YiOwcVTg3iUpv1GUZg8OEQ1/4xk+iUQk+rYNg37w6vdGKSaSoFvMu CKw95u46IjmF1iu9ickB93jevv+jYwrt+N63XXo1Qd6OMcy6NDiFGL6JRYpg i5LZfMb0FKr3W2WkCq7it6g2EZhG96S0owzBOf9Qxp7rTKOB7pJsb/DpmRDN M+nTaLj965YCsMhFx1bK0RmUkeWTbcJDkHWZAj3pp2dQ2BmpChvw1caS4V1X Z9CLmxZDLuB5KWLJ7/4McuY9aHcC3FtVL9XcOIM+md7svw/O5ccBKaqzaER5 b+Is2DCJza+wMoteRSm1PuUlyEZ1jl64wByqtk+4WAS27/x4dpg6h/YnlWhW gv1Yx8YfbZ9DvatPfekEJ6S/aWS5zaEsLf0GCh9B9uc5JAtVzyGRGeO4o+DQ 90nS0xEclB8x1KOzhiD5vX0czZM5SN5n+tzf4AR+3aS8Rxx0afCEgh0403Rw jW85B8m8pJceB9e37BztH+egsL2mD3LBrG+N+W3m/yGVQOHEjWsJsmSeH5UQ 80jJxz9chAL9vD87R489jyof/4ekwLoZe2l1SvNI+6U233ZwpcWVqZ498+hc nVSlKbju6f8e8QTPo+ps7/lwcI/D5Frzhnk0G2rtyctPkNwVbc1D1xdQ64vZ qLUCBLmHehwFxi+gj0c3mtHB1/xEchfuLyCHBLlN8mABhtlVwaIFdFJucvZv sFjwB3XlgQXEt6zjEwOWkylLPY8XUWyEVwRLkCBNwh96iC0sIu3Bs0271xFk 1Df6QhLvEhI/G3XAZt2fesTfpIssoZf6wWM+YKuhq88lFZZQzz+f7BPA9vq+ i1scl5DThRPKP8De/1ON0qlYQiEm0c3xQhDfsdpCj/DfyCAtZG5RmCAr7Dg8 JfRlNBMepUQRJchyd61aD5llFClkZCgFLjp2IVZsxzL6fNH9mCb4aTifZKDR MhLWLV32BieUEOpyp5bRhXn9uVqwB13dO7F1GY0e5jeNF4P6dp76dCx6BSWe PH1qG0GQ8rm/9yWGcWFV38W7d+kEGWKgND8zuQqXHexz4JIiyLLlVy6nLqzG b2WbXIu3EqSgWYae6xQP5ruoFMmnDPPlzVhvwGU+bBTRK1qgRZCJxv2u0kJr 8UMTTXRejyDHfLY7ogsUvGZZxGLFiCBVcrtFL64TwLVyWp0HzAgy8sp3fZkw QWzBpXi94QBBtp0z2DYpLoTfuXRnpdkT5OZo2xWXdGF86a/8Q3EuBLmb5SrN iliPiy1yna97wPzkeiebYrkBt4mZcC76ESR1R7t77ToRfEZvUOLQcYI0ntBJ NqsWwae3aTRJnSXI4DJrWY9IUXywuVtPMYwgZVpp09sMxXD24NYKuRtQz983 mZHC4tjIpHx38y2CPF9go76rTRx/POT2KzaOIAte1EXfu0Xg/rsqqX5JBPmt atogzpqKucfeMg1SYB5KVWloradhQ4rBnq/3CFKn2laaEKXhwLza1hHwgNe4 8LQ4DadNr/ZdACs/J4azmTR85etAFnGfID/peifS5WhYizl61ALM4yA0Pa9D w8239eQ/gIOSbHOKfWlYyXadZNkDgjQTGJdQfU/DE9MMxfI0glQLmLc0q6Fh j5/h5vVgVsvqG96faHiVW13YN/BICmP6XgsNq+js38CbDv0nb/SO7xsNm4R0 du4Hlxs/8u+Yp+GZyS7VQfCWG3ZvzsrTsT5XP7fkY4IUHjsym6hExz/UOVLK YI5Z4Nbn2+m4vIvfyhD8lno9fkCNjtXyK0b9wU6ZLz1N9enYxGXrEglOeCe8 fqMDHffqb3nulUGQXLzvXCpv0XENNdbz/RPYb0SVW2YMHRdoOV39CpaXqzwS GU/H6c8yiqbAB4xfe9ncoeO6+9QDrEyYR7eKAkce03F7SOH5IPB+IjNUpJyO vyQ6ZrCzCDJV7sZDtxE6ftb0VDQ+myDzNa6l7x2n41FJ386n4HfGVx4rTtLx wqx5USV40jc0izNHx9YvVhdNg/Wfn34esYqBA5X1G62eQv40vMkCGgPLlLEi GDkEqblv3zfuvQzsatHeV5oL84H5RkF2HwPXWCTwd4D7xnaeMjZlYLdffRZz 4MhoCaEYKwYeU/+Atv8D/dM6uUvChYGlOutSM8HXnJOT1c8wMCMi8FxqHkE2 Hx/YfzSHgbnND7Y9eA7zydAuJTqPgT03y6tXgM9R6wcL8hnYw3Xrqz6wTGnx uYViBr6jo60mmw/7aiXi6bUqBt5peftbHlgyYgdfWjcDbzBcUXlfQJA+Dy68 ahNm4v7fNp/ECglyXGKo7a0IE+8sKgvQAAemmk7kizNxFcVF1QF88g5rYxST iRMpDfKPwZfiS0MN5ZhYZkG0QrUI9ut1jn6xLhMfNVfJdy6G/Ab419z2Y2Lr ou69DSVwn7HT50O1TCzWaftb6g1BfmFF79pVz8TcyZM6+8ExC28eMJqYmIiw fRICXi6Q8upsZ2Iz/9rRlj/nZQbnbfqYmCcnet8NkiDjBI4yLBeYOO+Miet8 BUGu+nzG0UiOhTn/sndyqmC/+iX2q1xm4dIFBR/vWoJs59eJtbzGwszuSaXH tX/29YBuYDgLt8i6buoFl37fmZITzcIdv1ix1nVwn62bzdmpLOyn2PJwzyfY BzrCr4ULWfjSEUF/hQY4Lxh+e2SIhRV/NRkzW6C/c86ZPtwngb+E2IRe6CLI JhXh2dc8kvjCXYmP5WMEyVdvMR9QL4m1BC//PcNFJXVnRyeCEzbimXbDYFFx KrlSQItNlN2EhXYE1MzLUsmu4Hi70ohNODLrsWiEBpU8++UwqfFjE971oZAz bEglU9e4PPymL4VVFP9r0bOikqXaKs8sMqWwaIPTOntn+E51cmDxsHGK4Q45 fR8qydCqzC/lZeMmTdvk4+A7DrJr7NawMY+RjPgTcFLaRH4iPxsvtOrsovhS yWiFi2uEN7DxL35T7UZwGHpYsEqSjf9VmvR29aOSnp59a4fV2VhW118vPpBK DoUbOl3VZOPyxFDF9+AjuU9fbN7FxsF7N+9YArtMBTm56LJxn3HNzcPHqKT9 2dUvO/ewca795TjVICppEi3tXGfBxpTQCoPeYCpZk3/jpY8VG/fmbBEUP04l jVvHKBRrNp7W5J3dBzakF740sGXjUve+rcVg9MiA/40TxF92Ryv2BJV8XZ3t 7OjCxslxBP0DWPvHusIlVzY2LrrNWgFrKLU7a7izMW4KSfA7SSWLzLQK2z3g f+GVlAywatB9/hNebLxFpDfjK/hlAreLqA8bI6qBt9gpKqlc7FGY78vG75O9 D5iA/w8C4/WF "]]}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0., -6.68739249645072}, BaseStyle->{FontSize -> 14, FontFamily -> "Tahoma"}, CoordinatesToolOptions:>{"DisplayFunction" -> ({ Exp[ Part[#, 1]], Exp[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Exp[ Part[#, 1]], Exp[ Part[#, 2]]}& )}, Frame->True, FrameLabel->{ FormBox["\"Frequency, Hz\"", TraditionalForm], FormBox["\"|Inductance|, H\"", TraditionalForm]}, FrameTicks->{{{{-6.907755278982137, FormBox[ TagBox[ InterpretationBox["\"0.0010\"", 0.001, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-4.605170185988091, FormBox[ TagBox[ InterpretationBox["\"0.0100\"", 0.01, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-5.298317366548036, FormBox[ TagBox[ InterpretationBox["\"0.0050\"", 0.005, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-2.995732273553991, FormBox[ TagBox[ InterpretationBox["\"0.0500\"", 0.05, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-6.214608098422191, FormBox[ TagBox[ InterpretationBox["\"0.0020\"", 0.002, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-3.912023005428146, FormBox[ TagBox[ InterpretationBox["\"0.0200\"", 0.02, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-5.809142990314028, FormBox[ TagBox[ InterpretationBox["\"0.0030\"", 0.003, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-3.506557897319982, FormBox[ TagBox[ InterpretationBox["\"0.0300\"", 0.03, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-6.502290170873972, FormBox[ TagBox[ InterpretationBox["\"0.0015\"", 0.0015, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-4.199705077879927, FormBox[ TagBox[ InterpretationBox["\"0.0150\"", 0.015, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-4.961845129926823, FormBox[ TagBox[ InterpretationBox["\"0.0070\"", 0.007, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-2.659260036932778, FormBox[ TagBox[ InterpretationBox["\"0.0700\"", 0.07, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-6.812445099177812, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.725433722188182, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.6453910145146455`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.571283042360924, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.437751649736401, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.3771270279199666`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.319968614080018, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.2659013928097425`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.521460917862246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.115995809754082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.8283137373023015`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.710530701645918, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.487387150331708, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.382026634673882, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.286716454869556, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.135166556742356, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.074541934925921, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.017383521085972, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.9633162998156966`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, {{-6.907755278982137, FormBox["\"\"", TraditionalForm]}, {-4.605170185988091, FormBox["\"\"", TraditionalForm]}, {-5.298317366548036, FormBox["\"\"", TraditionalForm]}, {-2.995732273553991, FormBox["\"\"", TraditionalForm]}, {-6.214608098422191, FormBox["\"\"", TraditionalForm]}, {-3.912023005428146, FormBox["\"\"", TraditionalForm]}, {-5.809142990314028, FormBox["\"\"", TraditionalForm]}, {-3.506557897319982, FormBox["\"\"", TraditionalForm]}, {-6.502290170873972, FormBox["\"\"", TraditionalForm]}, {-4.199705077879927, FormBox["\"\"", TraditionalForm]}, {-4.961845129926823, FormBox["\"\"", TraditionalForm]}, {-2.659260036932778, FormBox["\"\"", TraditionalForm]}, {-6.812445099177812, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.725433722188182, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.6453910145146455`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.571283042360924, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.437751649736401, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.3771270279199666`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.319968614080018, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.2659013928097425`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.521460917862246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.115995809754082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.8283137373023015`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.710530701645918, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.487387150331708, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.382026634673882, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.286716454869556, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.135166556742356, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.074541934925921, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.017383521085972, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.9633162998156966`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}, {{{0, FormBox["1", TraditionalForm]}, {2.302585092994046, FormBox["10", TraditionalForm]}, {4.605170185988092, FormBox["100", TraditionalForm]}, {6.907755278982137, FormBox["1000", TraditionalForm]}, {9.210340371976184, FormBox[ TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {7.600902459542082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.006367567650246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.294049640102028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.517193191416238, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.699514748210191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.85366542803745, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.987196820661973, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {9.104979856318357, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, {{0, FormBox["\"\"", TraditionalForm]}, {2.302585092994046, FormBox["\"\"", TraditionalForm]}, {4.605170185988092, FormBox["\"\"", TraditionalForm]}, {6.907755278982137, FormBox["\"\"", TraditionalForm]}, {9.210340371976184, FormBox["\"\"", TraditionalForm]}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {7.600902459542082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.006367567650246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.294049640102028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.517193191416238, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.699514748210191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.85366542803745, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.987196820661973, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {9.104979856318357, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}}, GridLines->{None, None}, ImageSize->500, Method->{}, PlotRange->{{0., 9.210340371976184}, {-6.68739249645072, -3.8563862511823377`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}, Ticks->{{{0, FormBox["1", TraditionalForm]}, {2.302585092994046, FormBox["10", TraditionalForm]}, {4.605170185988092, FormBox["100", TraditionalForm]}, {6.907755278982137, FormBox["1000", TraditionalForm]}, {9.210340371976184, FormBox[ TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {7.600902459542082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.006367567650246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.294049640102028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.517193191416238, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.699514748210191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.85366542803745, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {8.987196820661973, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {9.104979856318357, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, {{-6.907755278982137, FormBox[ TagBox[ InterpretationBox["\"0.0010\"", 0.001, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-4.605170185988091, FormBox[ TagBox[ InterpretationBox["\"0.0100\"", 0.01, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-5.298317366548036, FormBox[ TagBox[ InterpretationBox["\"0.0050\"", 0.005, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-2.995732273553991, FormBox[ TagBox[ InterpretationBox["\"0.0500\"", 0.05, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-6.214608098422191, FormBox[ TagBox[ InterpretationBox["\"0.0020\"", 0.002, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-3.912023005428146, FormBox[ TagBox[ InterpretationBox["\"0.0200\"", 0.02, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-5.809142990314028, FormBox[ TagBox[ InterpretationBox["\"0.0030\"", 0.003, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-3.506557897319982, FormBox[ TagBox[ InterpretationBox["\"0.0300\"", 0.03, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-6.502290170873972, FormBox[ TagBox[ InterpretationBox["\"0.0015\"", 0.0015, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-4.199705077879927, FormBox[ TagBox[ InterpretationBox["\"0.0150\"", 0.015, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-4.961845129926823, FormBox[ TagBox[ InterpretationBox["\"0.0070\"", 0.007, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-2.659260036932778, FormBox[ TagBox[ InterpretationBox["\"0.0700\"", 0.07, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-6.812445099177812, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.725433722188182, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.6453910145146455`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.571283042360924, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.437751649736401, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.3771270279199666`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.319968614080018, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-6.2659013928097425`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.521460917862246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.115995809754082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.8283137373023015`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.710530701645918, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.487387150331708, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.382026634673882, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.286716454869556, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.135166556742356, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.074541934925921, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.017383521085972, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.9633162998156966`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}]], "Output", CellChangeTimes->{ 3.6564103727954807`*^9, {3.6564104619650946`*^9, 3.656410540282239*^9}, 3.6564878774258733`*^9, 3.65714553542695*^9, 3.657214256826136*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BlFit", "=", RowBox[{"Fit", "[", RowBox[{"Bl", ",", RowBox[{"{", RowBox[{"1", ",", "d", ",", RowBox[{"d", "^", "2"}], ",", RowBox[{"d", "^", "3"}]}], "}"}], ",", "d"}], "]"}]}]], "Input", CellChangeTimes->{{3.6559084565913444`*^9, 3.655908482927046*^9}, { 3.655908563152923*^9, 3.655908601721593*^9}, {3.6559086585540986`*^9, 3.655908658936661*^9}}], Cell[BoxData[ RowBox[{"15.976242070006114`", "\[InvisibleSpace]", "+", RowBox[{"0.005081370658238779`", " ", "d"}], "-", RowBox[{"0.03943056232645268`", " ", SuperscriptBox["d", "2"]}], "+", RowBox[{"0.00005127844128535114`", " ", SuperscriptBox["d", "3"]}]}]], "Output", CellChangeTimes->{{3.655908473350969*^9, 3.655908483151369*^9}, { 3.6559085651368337`*^9, 3.6559086023124533`*^9}, 3.6559086592561235`*^9, 3.656108456163961*^9, 3.65610881642933*^9, 3.656235874107891*^9, 3.6562361646240273`*^9, 3.656247145799669*^9, 3.656247354950658*^9, 3.6562478087438936`*^9, 3.6562480877862215`*^9, 3.6562484196433415`*^9, 3.656248532401888*^9, 3.65637915083816*^9, 3.6564099260466843`*^9, 3.656487877488273*^9, 3.6571455355675793`*^9, 3.6572142569823914`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"ListPlot", "[", RowBox[{"Bl", ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"PointSize", "[", "0.01", "]"}]}]}], "]"}], ",", RowBox[{"Plot", "[", RowBox[{"BlFit", ",", RowBox[{"{", RowBox[{"d", ",", RowBox[{"-", "15"}], ",", "15"}], "}"}]}], "]"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input", CellChangeTimes->{{3.6559084839605627`*^9, 3.655908539192718*^9}}], Cell[BoxData[ GraphicsBox[{ {Hue[0.67, 0.6, 0.6], PointSize[0.01], PointBox[{{-15., 6.958456249449689}, {-10., 11.65270212993632}, {-5., 15.13549686030987}, {0., 15.98529559576462}, {5., 15.16739661548118}, { 10., 11.88227327505773}, {15., 7.450680135526501}}]}, {{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwt2Hk0Ve/XAHBzRChTulzz7N5DEkWdHSWUIqkQCT+UvipEUpGkCYUQosE8 JBWV8ZxQxmTIPM/znDHyPq31/nXWZ62z7nOeZ++z9z5Xwvbyif8xMTAw8DAy MPy7arW7j29s0MiUWR2LaGcKtOS+njb4QyOfyvOZUj0p4PG8Zj5skUamMaZc feVHgSwz+TW5SRp5a5uK+MsoCkjXtnMZt9HI0EVl3YAyCnB906G/yqaRJuzu CX8kRaArk/cqXKCRx004Zv1aROCOX8aib70yud+15znLfio8FHKuSnysRPpk cPQPhIsDtVQ+3s1CkeTQSWbXH5CAdWkngf2YAmlzSV3XU1QK4tzoJhljciSH n2hwk400/Gidf1KSL0s6yKSvH/ORgSIaPL/tJkPG8ot7CyfKwoo6t9ZuVWly IulHaU62HHw1a++JYJEibbND7Pji5eGIHWYcUyRBhgjw+2qHK4DdA79i/WBx 8rVqYwyrkyI8LMmMGyyjkoeK2ees5JWg1sThyB0QIZn4MpyERpVgJ4/IX5cB YfKlY+adxSBl2J7SrZtgJkTGO1IsnVRoEJqaVFRfz09iz9e73AkayLU546be 28jFFr1hrd108K2+lbS7j4cMyjfxkkymg8Wpo574Tx4y//HjpJQUOqj17NDX L+AhNQVNJ2lpdBia/zxqHsFDmhFhZepv6WBEmVO+ZchDErKC7/Z+pMOOiw4f Sz5wk2aXF44IE3TI3nScNL67hbzG87NKoYkOozribRelOUn2Kk/z54wYxGnd H+7k4SR/hpcWMDBjcHLX1G/jP5vJUiORbU4sGJAyBTwa9ZvJSLWlULVNGDxn P3OI2XczeTcmcbKQCwO9midZMe0c5FVGLY5XQhi8Md8IqA5lJ98YrYxHKWNg eaVLjc7IRsrIGS3Ym2Jwyn9yM+MkK8nEoRjrfxID4+drvQ0trKSqmvuBeDMM DpI7nnplsZL7blr4dJ7GgM57eqL0HCtJic+pPXQWA6asnwmWRSykwcmOqkF7 DFKmSYGH3szktbIYdbtraH3m2glLR2ZyQXzTFVsPDGKFukvopsxk4CuVZBtP DELx9au/FJnJHFo5p4UXBt5P9tSItTGRLDrGmXALg2PYh4BPmkzklO2qRac/ Br9d4pf6FxjIVXZH+5NhGDi691lv7WcgJ9Zmjks/w6DNS+L7/loGkqGHajGP /NX/5bOoNAYyIsWlMjgCg+DoGNXj5xhI309ClPwotN9AuWb3kA2i1sry9uhL DL7sZSckNNYJ/ThWy9h0FI9DAUE3t64Tn6U2iZlkYHDPmOVs8/gaYQlTjCxv MTjhwLAS+GqNOOR+TdoxE4OJkOWdyxxrxLs9rzsk32MgPjqSVNOxSlg27KFc +YTB/ciKYG+/ZeIva3X3eRIDWd/rTWnmy4SMjgbO9hWDUic5apvKMnE6xTQi FZlp7723mt1LRIRTmtJkMQY3O6B6QWuJeDSzfd7xGwauEl84riwsEJ+7dJeU KjHYutnR5GX1AqFx/089gZw1JxBVE79AJKkEJ52owmCyxE2edmKBYFs7pn6t GgMnB+zwWOZvoifj/uzbGgys05P87Z3mifMaYsOT9Rish5lVh+HzhFMeeeBq AwYvbrLwlwjOEwcEHJ/NI7ca2cZLfJsjqOXVEgu/UL7OiBZ3ScwRzywOdY43 YWCoHr5xpn2GaJrb1ZrchoHz7U0L0S8miPl5yyXzXgwCBWS+2RlPEKqn1Fpz kDMydMKVWSaIm827Gnn7MJhqu6Ve5DxOJOYVUUqRXTV+X+vdO0Zwxyj0iw1g 4DXTsyjXOkxk+WlaZQxhEH3/7/eZwGGiU+t93wpyHlUkMheGiY8SHn56wxis HT2tcSRliChZnODtRPZN/eHp4jlIaFtXXtgYQfGxzVvOFugn+HrFtwiPo3xe aS6/VdFH9FRaap5BLn+68FzvVh8xN8VyOwJ5M6Gyp2WglzC4kHaGdwLlFyXZ 68/HHiKy6NaRFeR3H0oNSh17iNPbHAxVJzGoNegTDqL0EArJP+yckKVm9rrv Y+smLghJDTUgK6bKLdxN6CAU0yQVXk1hcKnZNlyAq4MwiIO1WuRM1jj1ZLd2 4nDb1CjDNAaqtvwelTpthP5bFgFrZE0K4xJvbzNBP22StmUGgxsG2pFv9JsJ IUnaCQ3kAk9PjV1ZTUSmVhq/DTL+a9LztE8jYdD1dDQTWS+obTlWtIFg8TrS cGAWxSP81BDtQT0hEgaJdsh8cfUNhXN1xN7m+mh/5J7MyszOslqCu79ppgT5 8Ge9F//trCUC3h416UO29LnH92fPT+J+smPjBvLiq2sVeweqiTQsXF9zDuX7 +/8SLHKriCAyXcMUOaT4fz43giuJWwGXDf9DVh4wU8/TLCfYP7O1xyGfl9v9 ek9QCWFZl56yhEzXpN80ty0mtFXtczjnUXz1ZU97aXwlVOtaB6nIyo3KO1xL ConmJpYPOshliyK17//LJwzxIiNTZNvtWwJmhXIJ00ntLXbIkZaTs1cuZRMZ YqFLPsg7b3UmZwl+IAqTLkkGIT/fF5Pfc+cdMXKd/2oUco2vt5xNUxoRFPm4 PwGZudQyrFsxidjC8svrHbLmJu0Na5/XRCUxrZaL3P5Ms6kgOYqQrO7ZWoys R1l5m2/8lPBSTOWrRCYDhgTHhrwJeofhnrp/z0/Q+dXHbPHXfWV+zciLbx6F P3G6j6vjkjMdyLxVLPP6nOG4wbzlnV7kpIMHKYa2cTjO4Ll7EJna/fV1Ykc8 7uF4jWcEeSSmV132QQpuomjONYb88QxjZZLaW1zFUJo2jkw84n0XNp2Fu5W3 XP1n6QviK6aHPuLeSdfb/t3/6LCKLn9MDp42yOo4ijwtA0G/Zj7jNvf9hIaR T7IYNz/Ty8PXA2fG+5Hz+s5JmL0owPuXTAa6kcW+XnYWmCvCXStSGNqRi38S bWPxJM7JvASNyAtFZRuVNV9xnqT9iTXI8pk/pdNXivGuj3doZcgWsc0Gj6VL 8TZacWsRclBgt4vz8W+4nQBTWs6/8/MeDjty4zve7qwbl448d3H6i1JiGf56 54NPr5BlLJY6OWvLcUHn+rln//ajuUm+WqYKD9vt03wDuVCOxyjDuBo/Wz3o cwl5RlDINdD7B36m1fyoFbLZgmzB0bqf+EVrVxNt5IOukVcEb9fiuq07Hiki d16g3A3gq8PraluGhP7Fx1wqxWF/PR6mFcs1g/K1vLW/0b+nHj/Zkf23BfmO RQJzvF8D7oGxTJHIc5Yy57q//8LzFU+WBiGndQwGrjs14pWz5umuyLZWSXkU ziZcMPX1k1PIDdZygmeON+Mgy2hMQQ7sHtb1mG3GOTmpymvofTtok3L1WVgL PiV6n7UDOfu8wo/a5la8kVM/6zlyhL2Sv4FNB07PrR5kRT42OP7ekakTzyFC M7pQPWBzyOi+l9CJc17JvfIJ2dORplU80oX/4VSbtUVWzhHyiv3Sg8/2Uhve ofrD/UVYRfBAPy4WLCgqjOrVxeUVPZnQflzj6o78XlTfvmu2We3q78cfLySf SkW+nRv9+MS9AbxQ7GKAOvJ0HmU4uGIQN0qvLz+A6mdtoWjcphMjOK+ca7vC GFrv73q2YPwI7m+la9o3isGD/V1VMr9H8JfKZeVRyAeIuBXdiFE8pX4mgxX5 Aylm5ts2hq9P8VnUoXofViLBtWI7iafNNBloDmLAtV+nLzZzEp80c7gzhPqJ /xfbLzqrk7hYnFxLGLLH23j7wJApnEdRv3+8H4MzkTKFYuQ0ruymdSUE9aMn Ofwa8dyz+Jb+AocP3RhUz0m/ubZrFqco2IeeQGZXUd+ibzGLM8Rad852oX6T ZtY/kYjuP29WR0N2fRnxZPe+OfxArL9qTAfKr4fbRyqc5/HCv/m/jrSi+ei7 vOmLkHmc99eTxc4WVG+Y9xS5fJ7HpSVbNC4j6902f8bH/BvX8a7Z/qQZ1Ru3 aLCK/o172AeeLG3EgGIlEjVTvoDbKonlsKB+3qsibigku4wnGKsqdFZg4PB0 Q0vg+DIuri+VcBh5bLqLxnd9Gc+69ErofTnKx8zYrTyVy3hmo96IbxmaR2iU VjaXFTzJNFiFH80f0gqCTos5q7ibnfk5DjTPOEhwBTQeWsdF5y7q03PQ7/mO eza4rOOJ3gOtntkYuPRUXqiLXMftl/bZkx/R+b58aPRjdB1XsI6xO/YB9V/R TQLfgv7iRgKGW6zfof4rzJSQ3biBzwWVcx9NRfWBfa2nYicjHCz/1WH7Ap1f rC7vqB4j5LZt+DyJQe+r6mOc3ZIRtt/plcmPRutb7IjTu8sIFk/rvXjQvNeT oWlZ0oA88l4nIxzFy/haY4E7E4SsRFh8CsYg/vlUxbtPzADeAdlcvhiYyPd+ CN/LBok15rHF59C8XLVsYmHEBkHaHneLrVE9cuGdpdqwgRBzadBXKwzss3Es 5R4bNBf84S60RPuDuPS8WjbwbeIvTUXzc/QZy4Ruh02wc3/OqvlxDAYeNIYr hLGDSOF4MvqwAo/RiuuF45th1knQfXU7mj9FDdqFGDgh88aUfCqa58tMyve5 8nOCvkt3+ylBDLbnfWeS28cJZy0Ftd/xoXr7qCTwaTAnbJ0WHzLlxuCvUuEr O1UuGOaa6ruEvifuuWSVc3huAd2EpyGdE3So9DrCpcTIC6EmWifzCuhQ9FPt lMz5bfC0+7r0jjN0oBZud5bN4YcpG+2f/cM0WK2ZnujWEoJce8HqJWsa5L8v dzocKQzNpynVrHXKsPwlzMRRRgSO8QxezpZTBuEQm13qD6hwiK9/UMJbCUwZ BGb9L4uDwiqfzYVSRThd6Xr7SLYEbNJNjdoxrQA1N+vYL/RLQqxcQU2XsALc PZBa0ackDZPaCTlOUvIwZbIxfc5FBnr/2j0akZCDKsNTfLtiZIHLNtG1U0oW hsxk/7PvlQMerqcx5owy4G6wVDK+VQGEXzJUsQ5IwZcHer4e2orARsVHRAlJ 2NvG7WblqwRSudX7olwlgM7fYhuTqQwtmt1r9+jiYHh/9XfPR2Xwae3MI+XF wWFV5L5srjK4MnFcWZUUh5c959PflyiDo+cMcVFIHHjfjs+XtSjD6+yTi/sZ xGH20Ib/byYa/L4w6+McLwbZnrLJRqdpECn9NSd3mAq1Y/p7ws7S4MJxbvbJ dipMWDlXtZynwXHafwbUWirIHMyatrtEg1hBz6gbX6gQwbtX88YdGrjRrC7v eEiF66lGFUnpNDDuvL20qECFZyJXLCeyaOAXHbOPg0qFrCehk6qfaMBwVtZN eBsVRq81by0kaaDGEJuhtioKFjrnLRoaaZBomWV+vFIUPHLuTmxvp4FzRRfF pEgUQuWTblv30EDEPvWH8QdRqOQefzM6RoOQXYoMhtGiMHRnizo2Q4Obv8d9 dYNFgWkBK3NfoMGbBZvZvX6iQHU6YZ63SgP+9WATFQ9R+P//N2Dkp/drqYui 8H98ox0O "]]}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, PlotRange->All, PlotRangeClipping->True]], "Output", CellChangeTimes->{{3.6559085262957644`*^9, 3.655908605124586*^9}, 3.655908662729227*^9, 3.6561084562264595`*^9, 3.6561088165230827`*^9, 3.6562358741860194`*^9, 3.656236164670904*^9, 3.656247145877799*^9, 3.6562473550287857`*^9, 3.6562478088220243`*^9, 3.6562480878641815`*^9, 3.656248419721418*^9, 3.6562485324798136`*^9, 3.6563791508541613`*^9, 3.6564099260778036`*^9, 3.656487877503873*^9, 3.6571455356457133`*^9, 3.6572142570761476`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ "Table", " ", "of", " ", "polynomial", " ", "coefficients", " ", "needed", " ", "to", " ", "interpolate", " ", "inductances", " ", "across", " ", "a", " ", "wide", " ", "range", " ", "of", " ", "positions"}], " ", "*)"}]], "Input", CellChangeTimes->{{3.6562473832769623`*^9, 3.6562474118221135`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Coefficient", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"LsFit", "[", RowBox[{"[", "j", "]"}], "]"}], " ", "/.", " ", RowBox[{ RowBox[{"Exp", "[", "X_", "]"}], "\[Rule]", " ", RowBox[{"d", " ", "X"}]}]}], ")"}], " ", ",", RowBox[{"d", "^", "k"}]}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", RowBox[{"Length", "[", "LsFit", "]"}]}], "}"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.655912153553501*^9, 3.655912256285449*^9}, { 3.6559124488123984`*^9, 3.6559125117338505`*^9}, 3.655912632288024*^9, { 3.655917974511359*^9, 3.655917985507513*^9}, {3.65624737107343*^9, 3.6562473755578594`*^9}, {3.6571451329867315`*^9, 3.657145152025737*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "4.5092630108382235`"}], RowBox[{"-", "0.06252885266378244`"}], RowBox[{"-", "0.0007318624268857693`"}], "0.00003384625969143791`"}, { RowBox[{"-", "4.364023815695299`"}], "0.0449098636747544`", "0.0014640254151265693`", "0.000021416740643339356`"}, { RowBox[{"-", "4.159395734474093`"}], "0.11146200215087744`", RowBox[{"-", "0.0013268610136655263`"}], RowBox[{"-", "0.0000793002434058751`"}]}, { RowBox[{"-", "4.763058338075178`"}], "0.01837196256498792`", RowBox[{"-", "0.0006066072088741759`"}], "0.00004320123286877544`"}, { RowBox[{"-", "6.348993885642963`"}], RowBox[{"-", "0.025088333383438074`"}], RowBox[{"-", "0.00003498360676773147`"}], "1.5902697152517024`*^-6"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{{3.655912164071956*^9, 3.6559122565478334`*^9}, { 3.6559124541372137`*^9, 3.6559125125941076`*^9}, 3.655912632649556*^9, { 3.6559179826453085`*^9, 3.6559179858229733`*^9}, 3.656108456288963*^9, 3.6561088165855856`*^9, 3.656235874232897*^9, 3.6562361647646604`*^9, 3.6562471459871774`*^9, {3.6562473550600395`*^9, 3.6562473759172487`*^9}, 3.6562478088845253`*^9, 3.6562480879110556`*^9, 3.6562484197682943`*^9, 3.6562485325266924`*^9, 3.6563791508781643`*^9, 3.656409926108923*^9, 3.6564878775350733`*^9, 3.6571455357238398`*^9, 3.657214257138653*^9}] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ "Table", " ", "of", " ", "polynomial", " ", "coefficients", " ", "needed", " ", "to", " ", "interpolate", " ", "resistances", " ", "across", " ", "a", " ", "wide", " ", "range", " ", "of", " ", "positions"}], " ", "*)"}]], "Input", CellChangeTimes->{{3.656247438771616*^9, 3.6562474405060673`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Coefficient", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"RsFit", "[", RowBox[{"[", "j", "]"}], "]"}], "/.", " ", RowBox[{ RowBox[{"Exp", "[", "X_", "]"}], "\[Rule]", " ", RowBox[{"d", " ", "X"}]}]}], ")"}], ",", RowBox[{"d", "^", "k"}]}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", RowBox[{"Length", "[", "RsFit", "]"}]}], "}"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.6559123616292987`*^9, 3.655912366947111*^9}, { 3.6559124378873453`*^9, 3.6559124419663353`*^9}, {3.655912520487711*^9, 3.6559125235191617`*^9}, 3.655912642206605*^9, {3.655917992510806*^9, 3.6559179988160725`*^9}, {3.6562474222132173`*^9, 3.656247430271226*^9}, { 3.6571451625944605`*^9, 3.6571451661805863`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0.5786168084100802`", RowBox[{"-", "0.004137366529459777`"}], "0.0017528405445523848`", "0.00006989393568492494`"}, {"1.8513252190272667`", "0.1118170399678359`", "0.001060894098530919`", RowBox[{"-", "0.00007395035572774562`"}]}, {"4.755926412094395`", "0.044051278404721304`", RowBox[{"-", "0.00138299135574823`"}], "0.00003547233145756423`"}, {"6.071362708215608`", "0.036085368557542484`", RowBox[{"-", "0.00012230439672100023`"}], "0.000053483940526313646`"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.655912367309639*^9, 3.6559124429187326`*^9, 3.6559125242482347`*^9, 3.655912642547098*^9, 3.6559179991175084`*^9, 3.6559181664327354`*^9, 3.656108456351466*^9, 3.6561088166637154`*^9, 3.6562358742953987`*^9, 3.65623616482716*^9, 3.656247146112183*^9, 3.6562473551225405`*^9, 3.65624743053686*^9, 3.656247808978279*^9, 3.656248087989185*^9, 3.656248419846424*^9, 3.656248532604819*^9, 3.6563791508861647`*^9, 3.656409926140043*^9, 3.6564878775506735`*^9, 3.657145535801974*^9, 3.6572142572324047`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ "List", " ", "of", " ", "polynomial", " ", "coefficients", " ", "needed", " ", "to", " ", "interpolate", " ", "Bl", " ", "curve", " ", "across", " ", "a", " ", "wide", " ", "range", " ", "of", " ", "positions"}], " ", "*)"}]], "Input", CellChangeTimes->{{3.6562474479907894`*^9, 3.6562474676424017`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"Coefficient", "[", RowBox[{ RowBox[{"d", " ", "*", "BlFit"}], " ", ",", RowBox[{"d", "^", "k"}]}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.655912462170021*^9, 3.655912463809434*^9}, { 3.6559125709638786`*^9, 3.655912594809908*^9}, {3.6559126461594057`*^9, 3.6559126465099225`*^9}, {3.6559180122247744`*^9, 3.6559180187083015`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"15.976242070006114`", ",", "0.005081370658238779`", ",", RowBox[{"-", "0.03943056232645268`"}], ",", "0.00005127844128535114`"}], "}"}]], "Output", CellChangeTimes->{3.6561084563983445`*^9, 3.6561088167105923`*^9, 3.6562358743579006`*^9, 3.6562361648896637`*^9, 3.656247146237192*^9, 3.6562473551850424`*^9, 3.6562478091345396`*^9, 3.656248088067314*^9, 3.656248420002681*^9, 3.6562485326673207`*^9, 3.6563791508931656`*^9, 3.6564099261556025`*^9, 3.656487877551673*^9, 3.6571455358801003`*^9, 3.657214257341785*^9}] }, Open ]] }, Open ]] }, WindowSize->{1344, 631}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, PrintingCopies->1, PrintingPageRange->{Automatic, Automatic}, ShowSelection->True, PrivateNotebookOptions -> { "VersionedStylesheet" -> {"Default.nb"[8.] -> False}}, FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (November 10, 2008)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[567, 22, 173, 3, 36, "Subsection"], Cell[743, 27, 134, 5, 65, "Text"], Cell[880, 34, 263, 6, 31, "Input"], Cell[1146, 42, 383, 9, 72, "Input"], Cell[1532, 53, 606, 15, 92, "Input"], Cell[2141, 70, 326, 6, 31, "Input"], Cell[2470, 78, 963, 24, 72, "Input"], Cell[CellGroupData[{ Cell[3458, 106, 147, 2, 31, "Input"], Cell[3608, 110, 690, 9, 23, "Print"] }, Open ]], Cell[4313, 122, 122, 2, 31, "Input"], Cell[4438, 126, 1298, 28, 92, "Input"], Cell[5739, 156, 1406, 33, 132, "Input"], Cell[7148, 191, 422, 10, 31, "Input"], Cell[7573, 203, 332, 8, 31, "Input"], Cell[7908, 213, 380, 8, 31, "Input"], Cell[8291, 223, 751, 19, 132, "Input"], Cell[CellGroupData[{ Cell[9067, 246, 6358, 150, 892, "Input"], Cell[CellGroupData[{ Cell[15450, 400, 349, 8, 26, "Print"], Cell[15802, 410, 343, 8, 23, "Print"], Cell[16148, 420, 343, 8, 23, "Print"], Cell[16494, 430, 346, 8, 23, "Print"], Cell[16843, 440, 348, 8, 23, "Print"], Cell[17194, 450, 350, 8, 23, "Print"], Cell[17547, 460, 350, 8, 26, "Print"], Cell[17900, 470, 341, 8, 23, "Print"], Cell[18244, 480, 346, 8, 23, "Print"], Cell[18593, 490, 346, 8, 23, "Print"], Cell[18942, 500, 350, 8, 23, "Print"], Cell[19295, 510, 349, 8, 23, "Print"], Cell[19647, 520, 350, 8, 26, "Print"], Cell[20000, 530, 343, 8, 23, "Print"], Cell[20346, 540, 345, 8, 23, "Print"], Cell[20694, 550, 347, 8, 23, "Print"], Cell[21044, 560, 349, 8, 23, "Print"], Cell[21396, 570, 350, 8, 23, "Print"], Cell[21749, 580, 329, 7, 26, "Print"], Cell[22081, 589, 322, 7, 23, "Print"], Cell[22406, 598, 327, 7, 23, "Print"], Cell[22736, 607, 328, 7, 23, "Print"], Cell[23067, 616, 330, 7, 23, "Print"], Cell[23400, 625, 328, 7, 23, "Print"], Cell[23731, 634, 330, 7, 26, "Print"], Cell[24064, 643, 323, 7, 23, "Print"], Cell[24390, 652, 327, 7, 23, "Print"], Cell[24720, 661, 329, 7, 23, "Print"], Cell[25052, 670, 327, 7, 23, "Print"], Cell[25382, 679, 330, 7, 23, "Print"], Cell[25715, 688, 331, 7, 26, "Print"], Cell[26049, 697, 324, 7, 23, "Print"], Cell[26376, 706, 329, 7, 23, "Print"], Cell[26708, 715, 329, 7, 23, "Print"], Cell[27040, 724, 331, 7, 23, "Print"], Cell[27374, 733, 330, 7, 23, "Print"], Cell[27707, 742, 330, 7, 26, "Print"], Cell[28040, 751, 327, 7, 23, "Print"], Cell[28370, 760, 327, 7, 23, "Print"], Cell[28700, 769, 330, 7, 23, "Print"], Cell[29033, 778, 329, 7, 23, "Print"], Cell[29365, 787, 329, 7, 23, "Print"] }, Open ]] }, Open ]], Cell[29721, 798, 125, 2, 31, "Input"], Cell[CellGroupData[{ Cell[29871, 804, 929, 22, 52, "Input"], Cell[30803, 828, 21619, 408, 355, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[52459, 1241, 786, 18, 52, "Input"], Cell[53248, 1261, 29055, 591, 342, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[82340, 1857, 739, 18, 52, "Input"], Cell[83082, 1877, 28990, 590, 342, "Output"] }, Open ]], Cell[112087, 2470, 1090, 30, 152, "Input"], Cell[CellGroupData[{ Cell[113202, 2504, 749, 18, 52, "Input"], Cell[113954, 2524, 63322, 1120, 347, 32952, 621, "CachedBoxData", "BoxData", \ "Output"] }, Open ]], Cell[CellGroupData[{ Cell[177313, 3649, 1030, 28, 52, "Input"], Cell[178346, 3679, 8869, 154, 344, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[187252, 3838, 845, 25, 31, "Input"], Cell[188100, 3865, 4227, 124, 145, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[192364, 3994, 707, 16, 52, "Input"], Cell[193074, 4012, 15008, 294, 354, "Output"] }, Open ]], Cell[208097, 4309, 912, 26, 31, "Input"], Cell[CellGroupData[{ Cell[209034, 4339, 681, 16, 52, "Input"], Cell[209718, 4357, 14841, 286, 360, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[224596, 4648, 98, 1, 31, "Input"], Cell[224697, 4651, 7486, 192, 145, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[232220, 4848, 94, 1, 31, "Input"], Cell[232317, 4851, 7135, 168, 145, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[239489, 5024, 98, 1, 31, "Input"], Cell[239590, 5027, 718, 20, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[240345, 5052, 96, 1, 31, "Input"], Cell[240444, 5055, 255, 7, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[240736, 5067, 96, 1, 31, "Input"], Cell[240835, 5070, 342, 7, 30, "Output"] }, Open ]], Cell[241192, 5080, 816, 16, 52, "Input"], Cell[242011, 5098, 314, 6, 31, "Input"], Cell[242328, 5106, 7009, 174, 412, "Input"], Cell[CellGroupData[{ Cell[249362, 5284, 767, 17, 31, "Input"], Cell[250132, 5303, 2822, 58, 145, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[252991, 5366, 588, 16, 31, "Input"], Cell[253582, 5384, 4069, 106, 107, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[257688, 5495, 621, 17, 31, "Input"], Cell[258312, 5514, 3333, 87, 88, "Output"] }, Open ]], Cell[261660, 5604, 434, 13, 31, "Input"], Cell[CellGroupData[{ Cell[262119, 5621, 668, 18, 31, "Input"], Cell[262790, 5641, 2295, 51, 69, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[265122, 5697, 1052, 26, 52, "Input"], Cell[266177, 5725, 21549, 414, 334, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[287763, 6144, 718, 19, 31, "Input"], Cell[288484, 6165, 1934, 38, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[290455, 6208, 1215, 29, 52, "Input"], Cell[291673, 6239, 22643, 406, 338, "Output"] }, Open ]], Cell[314331, 6648, 1520, 40, 132, "Input"], Cell[315854, 6690, 1564, 40, 31, "Input"], Cell[317421, 6732, 1019, 28, 31, "Input"], Cell[318443, 6762, 538, 15, 31, "Input"], Cell[318984, 6779, 258, 5, 31, "Input"], Cell[CellGroupData[{ Cell[319267, 6788, 1304, 29, 52, "Input"], Cell[320574, 6819, 83532, 1492, 342, 61949, 1137, "CachedBoxData", "BoxData", \ "Output"] }, Open ]], Cell[404121, 8314, 261, 5, 31, "Input"], Cell[CellGroupData[{ Cell[404407, 8323, 878, 23, 52, "Input"], Cell[405288, 8348, 62143, 1140, 342, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[467468, 9493, 411, 10, 31, "Input"], Cell[467882, 9505, 795, 13, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[468714, 9523, 492, 13, 31, "Input"], Cell[469209, 9538, 6517, 110, 237, "Output"] }, Open ]], Cell[475741, 9651, 360, 7, 31, "Input"], Cell[CellGroupData[{ Cell[476126, 9662, 997, 24, 31, "Input"], Cell[477126, 9688, 1950, 41, 104, "Output"] }, Open ]], Cell[479091, 9732, 358, 7, 31, "Input"], Cell[CellGroupData[{ Cell[479474, 9743, 1046, 25, 31, "Input"], Cell[480523, 9770, 1616, 32, 86, "Output"] }, Open ]], Cell[482154, 9805, 364, 7, 31, "Input"], Cell[CellGroupData[{ Cell[482543, 9816, 490, 11, 31, "Input"], Cell[483036, 9829, 579, 10, 30, "Output"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)