(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 6.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 63648, 1614] NotebookOptionsPosition[ 60508, 1504] NotebookOutlinePosition[ 61050, 1525] CellTagsIndexPosition[ 61007, 1522] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[{ RowBox[{"Off", "[", RowBox[{"General", "::", "\"\\""}], "]"}], "\n", RowBox[{"Off", "[", RowBox[{"General", "::", "\"\\""}], "]"}]}], "Input", CellChangeTimes->{3.4609497845179996`*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"loss", "=", "45"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dloss", "=", "15"}], ";"}]}], "Input", CellChangeTimes->{{3.4609514261289997`*^9, 3.4609514340150003`*^9}, { 3.4609522546809998`*^9, 3.460952268455*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"PRloss", "=", "0.02"}], ";"}]], "Input", CellChangeTimes->{{3.460951435392*^9, 3.4609514403269997`*^9}, 3.4609514864049997`*^9}], Cell[CellGroupData[{ Cell["Equations", "Section"], Cell[CellGroupData[{ Cell["D, a, and M [eqs.(40)(41)(42)(46)and(47)]", "Subsection"], Cell[BoxData[{ RowBox[{ RowBox[{"D11", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Rho]", " ", RowBox[{"Exp", "[", RowBox[{"2", " ", "I", " ", "\[Beta]"}], "]"}]}]}], ")"}], RowBox[{"Cos", "[", "\[Phi]", "]"}]}], "-", RowBox[{"\[Rho]", " ", RowBox[{"Exp", "[", RowBox[{"2", " ", "I", " ", "\[Beta]"}], "]"}], "\[Kappa]", " ", RowBox[{"Sin", "[", "\[Phi]", "]"}]}]}]}], ";", " ", RowBox[{"(*", " ", RowBox[{"This", " ", "term", " ", "had", " ", "been", " ", RowBox[{"wrong", "!"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"D12", "=", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"1", "+", RowBox[{"\[Rho]", " ", RowBox[{"Exp", "[", RowBox[{"2", " ", "I", " ", "\[Beta]"}], "]"}]}]}], ")"}]}], " ", RowBox[{"Sin", "[", "\[Phi]", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"D21", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"\[Rho]", " ", RowBox[{"Exp", "[", RowBox[{"2", " ", "I", " ", "\[Beta]"}], "]"}]}]}], ")"}], RowBox[{"Sin", "[", "\[Phi]", "]"}]}], "-", RowBox[{"\[Rho]", " ", RowBox[{"Exp", "[", RowBox[{"2", " ", "I", " ", "\[Beta]"}], "]"}], "\[Kappa]", " ", RowBox[{"Cos", "[", "\[Phi]", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"D22", "=", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Rho]", " ", RowBox[{"Exp", "[", RowBox[{"2", " ", "I", " ", "\[Beta]"}], "]"}]}]}], ")"}], " ", RowBox[{"Cos", "[", "\[Phi]", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"M", "=", RowBox[{"1", "-", RowBox[{"2", "\[Rho]", " ", RowBox[{"Exp", "[", RowBox[{"2", " ", "I", " ", "\[Beta]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", RowBox[{"2", "\[Phi]"}], "]"}], "+", RowBox[{ FractionBox["\[Kappa]", "2"], RowBox[{"Sin", "[", RowBox[{"2", "\[Phi]"}], "]"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["\[Rho]", "2"], " ", RowBox[{"Exp", "[", RowBox[{"4", " ", "I", " ", "\[Beta]"}], "]"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Mfree", "=", RowBox[{"1", "-", RowBox[{"2", "\[Rho]", " ", RowBox[{"Cos", "[", RowBox[{"2", "\[Phi]"}], "]"}]}], "+", SuperscriptBox["\[Rho]", "2"]}]}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Mdc", "=", RowBox[{"1", "-", RowBox[{"2", "\[Rho]", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", RowBox[{"2", "\[Phi]"}], "]"}], "+", RowBox[{ FractionBox["\[Kappa]0", "2"], RowBox[{"Sin", "[", RowBox[{"2", "\[Phi]"}], "]"}]}]}], ")"}]}], "+", SuperscriptBox["\[Rho]", "2"]}]}], ";"}]}], "Input", CellChangeTimes->{3.460949809936*^9}] }, Open ]], Cell[CellGroupData[{ Cell["Imbalance factors", "Subsection"], Cell[CellGroupData[{ Cell["\<\ Mirror parameters and derivation of \[Xi] \ \>", "Subsubsection"], Cell[BoxData[ RowBox[{ RowBox[{"\[Chi]0", "=", "0"}], ";"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"T", "=", "0.004"}], ";"}]], "Input", CellChangeTimes->{3.4609501673599997`*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"ra1", "=", SqrtBox[ RowBox[{"1", "-", "T"}]]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ra2", "=", SqrtBox[ RowBox[{"1", "-", RowBox[{ RowBox[{"(", RowBox[{"loss", "+", "5", "+", "dloss"}], ")"}], "*", RowBox[{"10", "^", RowBox[{"-", "6"}]}]}]}]]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ta1", "=", SqrtBox[ RowBox[{"1", "-", RowBox[{"ra1", "^", "2"}], "-", RowBox[{ RowBox[{"(", RowBox[{"loss", "+", "dloss"}], ")"}], "*", RowBox[{"10", "^", RowBox[{"-", "6"}]}]}]}]]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ra0", "=", RowBox[{"ra1", "-", FractionBox[ RowBox[{ RowBox[{"ta1", "^", "2"}], " ", "ra2", " ", RowBox[{"Exp", "[", RowBox[{"2", "I", " ", "\[Chi]0"}], "]"}]}], RowBox[{"1", "-", RowBox[{"ra1", " ", "ra2", " ", RowBox[{"Exp", "[", RowBox[{"2", "I", " ", "\[Chi]0"}], "]"}]}]}]]}]}], ";"}]}], "Input", CellChangeTimes->{{3.460950061251*^9, 3.460950084564*^9}, 3.460950169847*^9, {3.460951360348*^9, 3.460951370487*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"rb1", "=", SqrtBox[ RowBox[{"1", "-", "T"}]]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rb2", "=", SqrtBox[ RowBox[{"1", "-", RowBox[{ RowBox[{"(", RowBox[{"loss", "+", "5", "-", "dloss"}], ")"}], "*", RowBox[{"10", "^", RowBox[{"-", "6"}]}]}]}]]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tb1", "=", SqrtBox[ RowBox[{"1", "-", RowBox[{"rb1", "^", "2"}], "-", RowBox[{ RowBox[{"(", RowBox[{"loss", "-", "dloss"}], ")"}], "*", RowBox[{"10", "^", RowBox[{"-", "6"}]}]}]}]]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rb0", "=", RowBox[{"rb1", "-", FractionBox[ RowBox[{ RowBox[{"tb1", "^", "2"}], " ", "rb2", " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "2"}], "I", " ", "\[Chi]0"}], "]"}]}], RowBox[{"1", "-", RowBox[{"rb1", " ", "rb2", " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "2"}], "I", " ", "\[Chi]0"}], "]"}]}]}]]}]}], ";"}]}], "Input", CellChangeTimes->{{3.46095009262*^9, 3.4609501006879997`*^9}, 3.460950171756*^9, {3.460951374208*^9, 3.460951385086*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"r0", "=", RowBox[{ RowBox[{"(", RowBox[{"ra0", "+", "rb0"}], ")"}], "/", "2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"\[Xi]", "=", RowBox[{"Re", "[", RowBox[{"ra0", "-", "rb0"}], "]"}]}]}], "Input"], Cell[BoxData["0.02924034394716246`"], "Output", CellChangeTimes->{ 3.460950510392*^9, 3.460951014012*^9, 3.460951441398*^9, 3.460951487388*^9, 3.460951626951*^9, 3.46095171721*^9, {3.460952256793*^9, 3.460952269649*^9}, 3.4609523642650003`*^9, 3.460953077742*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"rF", "=", SqrtBox[ RowBox[{"1", "-", "T"}]]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rR", "=", SqrtBox["0.817758"]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Rho]", "=", "0.92"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tR", "=", SqrtBox[ RowBox[{"1", "-", SuperscriptBox["rR", "2"], "-", "PRloss"}]]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Tau]", "=", SqrtBox[ RowBox[{"1", "-", SuperscriptBox["\[Rho]", "2"]}]]}], ";"}]}], "Input", CellChangeTimes->{{3.460950153781*^9, 3.4609501642869997`*^9}, { 3.460950273259*^9, 3.460950291939*^9}, {3.460950932212*^9, 3.460950941311*^9}, {3.4609513931540003`*^9, 3.460951404856*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["\[Xi]2", "Subsubsection"], Cell[BoxData[ RowBox[{ RowBox[{"\[Xi]2", "=", FractionBox["\[Xi]", RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[Phi]", "-", "\[Zeta]"}], "]"}], "-", RowBox[{"\[Rho]", " ", RowBox[{"Cos", "[", RowBox[{"\[Phi]", "+", "\[Zeta]"}], "]"}]}]}]]}], ";"}]], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["\[CapitalDelta]LD", "Subsubsection"], Cell["\<\ This is tricky. Looking at eqs.(61) and (71), one may think \[CapitalDelta]LD \ should not include \[CapitalDelta]Lrms, but it should. Because \ \[CapitalDelta]LD inside a1 and a2 represents laser noise on offset light \ including rms fluctuation, while \[CapitalDelta]LD in the sencond line \ represents offset light or rms fluctuation light as a local oscillator that \ works in a different way. \[CapitalDelta]LD=(\[CapitalDelta]Lcd+\[CapitalDelta]Lctrl)+\[CapitalDelta]\ Lrms; the first term in bracket is shown in eq.(55). Be careful not to put \ tilde.\ \>", "Text"], Cell[BoxData[ RowBox[{ RowBox[{"\[CapitalDelta]LD", "=", RowBox[{ RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"Sin", "[", RowBox[{"\[Phi]", "+", "\[Zeta]"}], "]"}], "+", RowBox[{"\[Rho]", " ", RowBox[{"Sin", "[", RowBox[{"\[Phi]", "-", "\[Zeta]"}], "]"}]}]}], RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[Phi]", "+", "\[Zeta]"}], "]"}], "-", RowBox[{"\[Rho]", " ", RowBox[{"Cos", "[", RowBox[{"\[Phi]", "-", "\[Zeta]"}], "]"}]}]}]]}], FractionBox[ RowBox[{"L", " ", "\[Omega]c", " ", "\[Xi]"}], RowBox[{"2", " ", "\[Omega]0"}]]}], "+", "\[CapitalDelta]Lrms"}]}], ";"}]], "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Other equations", "Subsection"], Cell[CellGroupData[{ Cell["Frequency and cavity poles [eqs.(4)(12)and(14)]", "Subsubsection"], Cell[BoxData[{ RowBox[{ RowBox[{"\[Omega]", "=", RowBox[{"2", "\[Pi]", " ", "f"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Omega]c", "=", FractionBox[ RowBox[{"T", " ", "c"}], RowBox[{"4", "L"}]]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Omega]cc", "=", RowBox[{ FractionBox[ RowBox[{"1", "+", RowBox[{"rR", " ", "r0"}]}], RowBox[{"1", "+", RowBox[{"rR", "/", "rF"}]}]], "\[Omega]c"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sc", "=", FractionBox[ RowBox[{ RowBox[{"-", "I"}], " ", "\[Omega]"}], "\[Omega]c"]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"scc", "=", FractionBox[ RowBox[{ RowBox[{"-", "I"}], " ", "\[Omega]"}], "\[Omega]cc"]}], ";"}]}], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["KLMTV equations", "Subsubsection"], Cell[BoxData[{ RowBox[{ RowBox[{"\[Kappa]", "=", FractionBox[ RowBox[{"2", " ", RowBox[{"(", RowBox[{"I0", "/", "ISQL"}], ")"}], " ", SuperscriptBox["\[Omega]c", "4"]}], RowBox[{ SuperscriptBox["\[Omega]", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[Omega]c", "2"], "+", SuperscriptBox["\[Omega]", "2"]}], ")"}]}]]}], ";"}], "\n", RowBox[{ RowBox[{"\[Kappa]0", "=", RowBox[{"\[Kappa]", "/.", RowBox[{"{", RowBox[{"f", "\[Rule]", "1"}], "}"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"hSQL", "=", SqrtBox[ FractionBox[ RowBox[{"8", " ", "hb"}], RowBox[{"m", " ", SuperscriptBox["\[Omega]", "2"], " ", SuperscriptBox["L", "2"]}]]]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ISQL", "=", FractionBox[ RowBox[{"m", " ", SuperscriptBox["L", "2"], " ", SuperscriptBox["\[Omega]c", "4"]}], RowBox[{"4", " ", "\[Omega]0"}]]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Beta]", "=", RowBox[{"ArcTan", "[", RowBox[{"\[Omega]", "/", "\[Omega]c"}], "]"}]}], ";"}]}], "Input"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Parameters", "Section"], Cell[CellGroupData[{ Cell["Constant parameters", "Subsection"], Cell[BoxData[{ RowBox[{ RowBox[{"c", "=", "2.99792458000000117`*^8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Omega]0", "=", RowBox[{"1.8", " ", SuperscriptBox["10", "15"]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"hb", "=", RowBox[{"1.05457266912510183", " ", SuperscriptBox["10", RowBox[{"-", "34"}]]}]}], ";"}]}], "Input"] }, Closed]], Cell[CellGroupData[{ Cell["LCGT parameters", "Subsection", CellChangeTimes->{{3.4609509071730003`*^9, 3.4609509078599997`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"gpr", "=", FractionBox["tR", RowBox[{"1", "+", RowBox[{"rR", " ", "r0"}]}]]}], ";"}]], "Input", CellChangeTimes->{{3.4609509025179996`*^9, 3.4609509051730003`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"L", "=", "3000"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"m", "=", "30"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"I0", "=", RowBox[{"100", "*", SuperscriptBox["gpr", "2"]}]}], ";", " ", RowBox[{"(*", " ", RowBox[{ RowBox[{"100", " ", "W", " ", "with", " ", "T"}], "=", "0.004"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"\[Phi]", "=", RowBox[{"86.5", "*", RowBox[{"\[Pi]", "/", "180"}]}]}], ";", " ", RowBox[{"(*", " ", RowBox[{ RowBox[{"It", " ", "was", " ", RowBox[{"\[Pi]", "/", "2"}]}], "-", RowBox[{"0.04", " ", "in", " ", "the", " ", "paper"}]}], " ", "*)"}]}]}], "Input", CellChangeTimes->{{3.460950312017*^9, 3.460950347358*^9}, 3.460950386638*^9, {3.460950892163*^9, 3.460950896983*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"E0", "=", RowBox[{ SqrtBox[ RowBox[{"I0", "/", RowBox[{"(", RowBox[{"hb", " ", "\[Omega]0"}], ")"}]}]], "/", "gpr"}]}], ";"}]], "Input", CellChangeTimes->{{3.46095097512*^9, 3.4609510107139997`*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Imbalance parameters", "Subsection"], Cell[BoxData[{ RowBox[{ RowBox[{"\[CapitalDelta]F", "=", RowBox[{"0.01", "*", "F"}]}], ";", " ", RowBox[{"(*", " ", RowBox[{"Miyakawa", " ", "choice"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"\[Sigma]", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[CapitalDelta]m", "=", "0"}], ";"}]}], "Input", CellChangeTimes->{{3.460950401826*^9, 3.460950410802*^9}}] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Eq.(45) of Laser Noise Paper", "Section", CellChangeTimes->{{3.4609499091809998`*^9, 3.4609499192200003`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"\[CapitalDelta]Lrms", "=", SuperscriptBox["10", RowBox[{"-", "13"}]]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Zeta]", "=", RowBox[{"\[Zeta]DC", "+", RowBox[{"\[Pi]", "/", "2"}]}]}], ";", " ", RowBox[{"(*", " ", RowBox[{"eq", ".", RowBox[{"(", "72", ")"}]}], " ", "*)"}]}]}], "Input", CellChangeTimes->{{3.460952351387*^9, 3.460952369674*^9}, { 3.4609530419820004`*^9, 3.4609530883529997`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"B1", "=", RowBox[{ FractionBox[ RowBox[{"gpr", " ", "E0"}], RowBox[{"2", SqrtBox["2"]}]], RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"\[Tau]", " ", "\[Xi]", RowBox[{"(", RowBox[{"1", "-", "\[Rho]"}], ")"}], RowBox[{"Cos", "[", "\[Phi]", "]"}]}], "Mfree"], "-", RowBox[{ FractionBox[ RowBox[{"\[Tau]", RowBox[{"(", RowBox[{"1", "+", "\[Rho]"}], ")"}], RowBox[{"Sin", "[", "\[Phi]", "]"}]}], "Mdc"], FractionBox[ RowBox[{"2", "\[Omega]0", " ", "\[CapitalDelta]LD"}], RowBox[{"L", " ", "\[Omega]c"}]]}]}], ")"}]}]}], ";"}]], "Input", CellChangeTimes->{{3.460949925174*^9, 3.4609500172060003`*^9}, { 3.460950683725*^9, 3.460950687076*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"B2", "=", RowBox[{ FractionBox[ RowBox[{"gpr", " ", "E0"}], RowBox[{"2", SqrtBox["2"]}]], RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"\[Tau]", " ", "\[Xi]", RowBox[{"(", RowBox[{"1", "+", "\[Rho]"}], ")"}], RowBox[{"Sin", "[", "\[Phi]", "]"}]}], "Mfree"], "+", RowBox[{ FractionBox[ RowBox[{"\[Tau]", RowBox[{"(", RowBox[{"1", "-", "\[Rho]"}], ")"}], RowBox[{"Cos", "[", "\[Phi]", "]"}]}], "Mdc"], FractionBox[ RowBox[{"2", "\[Omega]0", " ", "\[CapitalDelta]LD"}], RowBox[{"L", " ", "\[Omega]c"}]]}]}], ")"}]}]}], ";"}]], "Input", CellChangeTimes->{{3.460949925174*^9, 3.460950041601*^9}, { 3.4609506893970003`*^9, 3.460950692116*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["B1", "2"], "+", SuperscriptBox["B2", "2"]}], ")"}], "*", "hb", " ", "\[Omega]0"}], "/.", RowBox[{"\[Zeta]DC", "\[Rule]", RowBox[{"135", "*", RowBox[{"\[Pi]", "/", "180"}]}]}]}]], "Input", CellChangeTimes->{{3.4609505126140003`*^9, 3.4609505239630003`*^9}, { 3.4609506609560003`*^9, 3.460950664443*^9}, 3.460950703361*^9, { 3.460950766486*^9, 3.460950786212*^9}, {3.460951095293*^9, 3.46095116112*^9}, {3.460951646924*^9, 3.460951656683*^9}, 3.460952355243*^9, {3.460953066955*^9, 3.460953067098*^9}}], Cell[BoxData["0.0038072617814709996`"], "Output", CellChangeTimes->{ 3.460950524517*^9, 3.46095066512*^9, {3.460950704006*^9, 3.4609507124449997`*^9}, {3.460950771067*^9, 3.4609507869370003`*^9}, 3.46095101419*^9, {3.460951101303*^9, 3.460951117134*^9}, { 3.460951150383*^9, 3.460951161717*^9}, 3.460951441519*^9, 3.460951487502*^9, 3.460951627098*^9, 3.4609517173929996`*^9, { 3.460952256927*^9, 3.460952269792*^9}, 3.4609523644110003`*^9, 3.460953077973*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"LogLogPlot", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["B1", "2"], "+", SuperscriptBox["B2", "2"]}], ")"}], "*", "hb", " ", "\[Omega]0"}], ",", RowBox[{"{", RowBox[{"\[Zeta]DC", ",", "1.57", ",", "1.6"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0.003", ",", "0.02"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.46095118312*^9, 3.460951263649*^9}, { 3.4609515121099997`*^9, 3.4609515760959997`*^9}, 3.460951670796*^9, 3.460952357756*^9, {3.4609527860030003`*^9, 3.460952948689*^9}, { 3.460953069259*^9, 3.4609530693710003`*^9}, {3.460953102225*^9, 3.460953181046*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV1Hk4VVsfwHGRSsp0zt6X6LyZFXKEDMWWIkMhGVPIENeUrllv5qlThlAi qY5CnErJDefGMtSrkkxd5d05CCFknof7u3/sZz+fZ/2x9/Nd67ckXS9aeXBz cXHlwPPv+7trhZFvD0kwA/8TuvsIjnC7hXvx4GoB9BsFbGqmvZQHXs3MY24D l6m9Lv0IfpxIDZnRx1Hk5jdCKhySeJhN29kE3lXY2T0F5rzPr/MFm+fi6tt7 SQJnhP5wAcek2qdIgUUKLWaswcMhJHEa3LirmX0YXHF84OFLsFPrma38YMuR Gf/QPpK40S6uzyRwFP9NoykNHGXKupcFftUWKlkM7m8b5SSCadUrHV/AuvyT XD7gnwwebZ1+klCp06lWBScqUXjWwGu/P39SqYej1xcPZMcOkITa0HHHx7o4 itVsWM0D8ylteN4EG2+cdn0FvhjI1o0Bd6YGK4+BBdjYEXvw6JPKBptBktCL PJrOAxYd05tUGCKJsG3LDPPDOOop/2RzFCxemoIOgh9edmGfA0so5ZbRwCr8 sYkZYPuubvb4IRwZ7XsjsQruUFhzTgYHeZmZfPpBEiMNop1PdXCkQyefjoAn FGplM8Bci77UzcMk4eBFpwWDryWlcrTABQ4P1rTBzMK2YCbYY+rkiVptHH0a sGMGj8B+p0xU/amFoyzW8NZ0sH54QWUm+ExQuF8J+GXahkEAeIjnjhYHTHxL m5YHr0r1tBiPksRYek3MDU0c7TvvviL+kyQsLjPPmh3EkeB+2Qfq4PDFx2NS 4NnlQaOTYBuayPySBo5qszwzIsE/q+/6FIKtm7z39oH95n7kLarDeVK5ZFc4 RhJzOU31UWo4cltVXasBC7ibPT8JNn43zewCLzWTY7vAFLegiW3jJPHGD+mW H8BR8a3QBB/w6xypgW5VHLWvXSmnT5CEgkjwEDcdzst7PQcTsBWrZbBBBUd5 2Rvr58F6VfLTcWBP1RjTTLBisxJtE3jVPb5vDiwaUH3glzKO+lQNkwR+kYTh MWx7MfjtOq+yPPhp49MGZ/CN20lh9uCivclvPijhSK6ZIcgG87irWN1UxBF/ jllFBzhMo5dxDDzpscNxDHzl7fFL0/twxN5IKdw9SRL1iZF7TcGWajd0o8GO T175DCvgKCI328dwiiRQjvCtL7Kw/jzj5jmwBY9lSwBYrimlNhh8tvmt+lZw 21wcpRAsrHXFZb8MjhROBbC3TJPEcyxk3F0KR+uePoM0sA/Xr9PjkjjqiLwg qAk2oU0lBYIjWWfdPMGyV/klw/fg6PNWE/4mcOqW4AhPGo5KaMc0esEnEt6/ IHfjKFqDcF4EyxjV6FqAldw0yhVmSEK1NGizkgTMV42k41Xw/0y6DerFcEQP Xi4xnYX7wVuvzpyKoy3X5zpdwbPhraFpFByRzMn1CPCY3iy1WQRHSa1DVqVg aUMJhpYwzJdixzL/HEn4PvnU0b0TRy8NWmRkwHLWmdoLO3DEcHhnfhi8rtUe LADWSKpl+oIXFmtalbbj6Hp/qelHMMvT9pTMFhy5LhUGDYJlvbwrRHhxpCXE zF8D82ODscs8OPque3taeZ4kjlyfiarYBPOYE5+bCr7jdCilfRVDQmVRjYXg opX6zoQVDA2+jZioARuyrTPpyxhKnw0w+AW2+fuFsc8Chn5YnBu1WID9Sle6 7zuFIUudoj3e4N7L/FHPfmGoUmbKNh7MLr4uOjiOoeSl+IZK8J5bYo5yoxia /N6y1A6+r8D3nT6MIfsWUfo4mNmT1a84hCGFAlae5CJJRIs0v5jsg++nzLcf ArM+G0hXcTC0GKrPZwsuMeSYXPyGoaYTncEMcN1fHmkPvmDIa37FfAZc5ZJ8 lrcFQ629hgk7l0gikONOk/6AIa0PaWx5cIVyCq98E4a23ZdWOAsW4GN4kXUY CmD4OYWA5/Y8MrlWg6EvQa+y0sG4q4SoOBtDxSZmm96AJ7yUPbrKoZ/6TU0O mCLYnMdVhqEwGsdvCRzC60/fzMKQ8cwf3crLJPHo0lp5RgGGhvNyy2+BNfU8 udPToV/SwEgZ+By32z2La9Dv0v49H8AVkUFX/06Afkb11zfA1oyCaOUI6Eff 0SC2QhK8c/n584HQT9x2SQ2s6K4vFe4H/SZHPLzAyaymohxn6NetlhcL5vRL p+23h36NV9rzwHS7iRxvS+iXI0y0gX8rf7RWR2CIHu8Y/BO8kX/gcNtBDN32 f1TKuwqmu9heVIa+R7VFdcB/7s0J1BGDvspx5tbgeYFSeTsB6Cv6Md4fnLnt 5FofN/Qdd5ligtspRc/ERqkooKtE/jW4yPcv/TKSir7UzZ7rAh94PaCa3EKF +zD5Pf8a2B/5Nz6jIqGYdi45MD3RsZHvHhWF+Uho6oO3OkietEqhol6bC35n wOzEsH5GBBUZ65cVBIGrH8Xdzb9ARWX7lr+mgk840YtCTlGRKHZM6DH4cr0F 97IOFQ2PdP33Gzjk7v6EDD74v6+nZubAHO/e/xtNUtBC04ffBdbhvi2853Th MwVFVhr2yoGfjFzuaa2koC3FtbYEeOyaM8Utl4JSs7U/2oEtNinqz4dTEJZU fjQALBt9452zHQXJXCiiPwBTXfmN5rZTEMtGsqgKbL+jhu9lrwhSM7yzux0s zVvv7VcugqrVsaxR8MYh6eLuWBFkIJO2nWeDJAS5dDpY5iLoPYUvRhysWOWX fg0XQVY8cQtq4JL0nixKtzA63x8y4P6vbzHELK2E0XDb5Jkr4JClOO9ZXmEU UOfddhO83Fi5T7xcCC2WDRx/Cv6jNDuTx0EIRd93qnkLLq4K08wZF0QxxsJK X8HPxFmv2s0E0T9vpfWK "]], LineBox[CompressedData[" 1:eJwd13k4FusbB3BCZF/eGVtKSJI1yppBZItIQosipJIKCYeQtVKh5BzJUSF7 qUQhj5KKkiwlGVoIKZ2USot+X7+/3utzvc8118x9P3M/31ngs2et3ywuLq7F 3FxcM7/ZaTzRtbNY5pJ8WXWHgxgZOackXQ9HKDHu7RvEyN70nGPd8GeZHedY Spx8j6V5x2HfhBu6sfvFSczetMjZPCyz1nNq0OGRODm+JmG7Aex7u3NZdoAE oZlpdg3cmNmTHVouQc5qha8LgE/fPJWp+0GCqMybaImFe0OTdzioSZIykUCL f+A/90oFtbZIEv3fQ9WVsEK0prlRhiSpe79FqwW29J+/9XajJGltdZX/CRe1 qz88IC1FBo/PzaV4WabeYN9FawspMu0ypKgD6xypPaYZIEVkqIoL9nCn7J7q oFQpsrQnTNUPVj936LdFhRRZfYYpjoH5P3id6X0kRfy9BDSy4ZOdit3+Y1Ik e/Af3cfwz776c78VOeTaRZ9ro7CGcu9pZyMOadu5xICXj2XePI6pVnPmEO5P daZG8PCVI/w9ERwidy2xwRUukF/65WUqh+gfcLIMgkWvUtyduRwS8HvA5gLc l2tnTRo45BApaqmHP46c9elv45Cc+H2OPXB/YnvNEpZD2ufwuIrMZhnXZ/7r j37jkHcPW7sXwXfTLqde56EIb9opD0v4sTxHaKUYRQxoVa8DcO+4dsdFFYo4 Px9/mQ6/zty0PEOLIjtzqreVwWHn1I1nGVIkV8luxyvYOityX5odRWqGJN7/ hId8w6ZrXSjSUdQbRPPjf2byc7InRWZrB4Y6wGezEsboAIooTuh/84OTfDNG 3gRRxLjqd0QsrJMv5+q3nyJBJidiquAnawuHM+MokjLtPqsdXjRvIG91MkXO NyomvoONnLf915xKkW6bK0fmC7CMmP6vIcksiowL/iViDK/zb3B/d4YiAm0r 09bBc85ETaflUcR0XXfmYTg07+15t2KK5G/9nvcZfhncvP97DUVuKTcqi85B vQcTx5LqKNLz9nChGly40fXilwaKCO2WL9sMh97NGw9ppoiKzqBWONyvXLIy 5QFFzD6XVWbAduWZoXEPKRIcYVZ9D74Vc1J7UQdFUk35jV/DwT5/f+7uokjh n8d1v2Cfb7vnBD2jSG+i921dQZbJmy3H5dVHEYuMhEdn4Ha629ptiCKr/03u qoIFxy/kbx6myPqyIy8ew/7GgzvXj6JfzWmjPEIsc1NbIVP+A0VO/cjhC4T/ uZZbyvMF/ePPE06ClVQUWnInKVLEuSCVB69emRGi9Y0i9VrFC7rglmY9Ec0f FHnrU7XCVJhlahuGhiv/UOS/PTVW62GZxZOiv7ho8iOq1mEv/HeGVu6KWTQR y2r0zIet0w8oFPHSxLD10X5hEZZJe6gtpTSHJpY97VGqcGeXKr+2IE0chzrj zWHVlsady4Ro4vPneXoo3FxX6qYtQpOjem/L+2Bvg0k5Vpwmp81Hr32FP41d /nVTgiZ5ju9rxUVZ5lzw0N2TkjS5tn3igRW8VC6uZDmHJv1npofKYJ3e3svW 0jQZKeL+0AxfP1j9aBqeqOL98hL+3MYZvipDE/52wVmUGMv8ktwSLylHEx1e 6XnR8NwvW9zz59LEWEJuYRZ8aOsSN3MFmljNU9CohG/cV5j/HPY0VDYegnny 7fZwz6fJoUDt9Y7iLPM+7D6jvYAm3V02xxUkWOZKT+5RsYU0mX4b2b0MlmqW LYuA1abK5zrBsv2/Jl/BUQqc0oPwmGSJTrkqTVT8X94bgJ97fN+orUYTp3Ap se/wynLHwaNw+JFV68UlWcZCQHzwLdxaUTZoDrdkTe76ezFNgr+Fc5+HleK8 Y96p0yRnTpntTfiJ4WShyRKaNMsPnOiAjaKTEo7CcubW83ikcL3xBdGLNGjS mCJh4guL2P2Wc9GkibhcSagqh2Vybxwz3quN+miwtWbwPRfpgkuwr5k4jzv8 SShtwThc4xOWngxn9xX6BOjQZEupZcUIrCraErNWlyYVpi+GSyiWSZiwKOTS o0mPk6j2HfgTXaKoB8/ytgh7AWuvVRzzhd0SL/IK06hX6ZOoZvjXo5AFu2FG s3A4Tp8mDluEN2pLs8yFsDbbvmU0EbA+XmEH6z/ZnSywnCZN6uKzfOHrvAvV 9WHTr1LFf8PCG1UvHoY1jsl/45ZhmVeTvK2aBjQRrVU/2QWLyMS93WRIk5a8 srfjsFDs5uxYOClJy3iOLOphOd5zAZ52WfpqBcytKj89An8cMdK+CJ/I7VUI MqJJO23XGiHHMgJWr0z9jGmS+qtl3in4gkzI/kOw7evVwRXwN/656/6FSbmz 7Bu4Sdx/Tg9caeWxfbU8yyzXWhppbUKTjODtPPPn4rzs60qXMMX+8BhdbwQ7 qn+8vxgWNNtV4gr3tf64YQHHz9njkgLvqpZq2wuH5oX9+wmOHInobYXd2hJN mhRY5urg8fVhK/A+3DB43AcL75SxOwwL54/6TMLx/C5COXBThOMR1Xks05C6 gbsRXrqQep4CN3kI3BUww36Jyg9znI/3RT1aIw1+779e0B9WlxX1zoPvuwjk HoRD5b2CLsMxiwLvXoI1BJZS7fB4hx5HUpFlVoz9zBNhsL8X36l8Ct+7e4k6 BBdy9lt/hH19rUXS4EN/VJ/zL2CZA7svDJ6FjbuPcBnBXm0W+jfgoti1a87A R8PCvMfhpGev3m9RwvX6ay1dzWlikcilNqrMMpmFNh5zLND/m+8ZbhXMhx3k hhTcO97jLgt/tGzlmwcHe1Qm28FpAXFeS+HzS3yGi+GIulKZDTBvx53CnQtx /tcGDxTAzfOSF75XZZnU3gIxHUv0zzVkBe8i1DMzZ5Eh7JWyxW0uHGKurWMO f/1kkLga7t53R8oZXnR3ZLAM9tdvUdsDp+yyz9+thnls+rG4BLavEVH+uJhl zCrGP0qvxPMSW5s56izz/UrL6DyY/0H8LmXYlXJ5uhBuej511R3e/PtNsh5s 9nPIisCGqXXOTrCu2S3/9CUsc6y84VQcLNMUVKKnyTL347ZeGoDDHha3OcLd C7sMh1bOzLvBie1wcVREzTs4Y2iDSQ5c7lyVPQkL89s85NVimY2e2z8IWtGE y37+eDf8zi+9Xw8efvxYN1yHZbalPY6MgX1Z49NpsPY7k8J4+PW7gh9F8KGT pq3JcD9f1J3ncK6N9qw0+KmJmpuJLstslbVcmAc3X4wNn4az7n22b4ALY3Qb EvSQ30qV/aZglWM5ymfhbB7T3l/w+Wz+lCrYzcPVnsuaJrlVrPNb+Mb2Anl+ +PTY4dc2+uiXykA8B05yf80ntAz9/ZAXrAX7a59cnb6cZaZ/vObdAoeJO9aX wjwKfIt9ZtZ/mq3VDHOVx9n6wRevRor9XD6T1yoidsEjBj4dvgYsk//mScEB eJe5roehIc638IcaJ+C9Lo+3DRhh/twb0ayFY5ce7pqCee9EP6qH06RWWnOM kbfv79xB4Mru66p2sO3v7afvwhOeuaNXYL6poruP4VCf3XuSTJA3jr85+AaO CBH6S3MFyxhUOiYJrKJJZO6fPTbwksWnrwjO+MFnX2/YSlmsTxiOmt/nlAlP vStQlYBjWsuUfsNX8seyZeFEZaeWh2aYp79ZHnU4vTNNNtCcZQZu5k/awhnT CaJJcEF8Xrv9jBdH8OTBBxzcilfDp2K8P3TCWZe/uzrDWUuWNppYYH5IHzvu Dp+N7wwQsmSZM4Wzc/zgYj26pmQlywTUFWrHwi3bjD/chpf7/lcWB7876aX0 AuYqyVaLh9W/FKYKWSEPh8jJJ8Fl1wy8A+HoDv4PR+GKZZ6CWtYsE/4kY1UW fMUgZ1PlKpapaPUbKIM7tpP0B/Di5byaFfBE1mDzKzh7bFXEJVjvu4aupA3y aj0RuQJfq6nnC4HFP9xQrYavGw1U6NsiHxN3uUa41kSJu8YO++G6I6cLDmIy LTvgbNXitd2w4kqBhPdwCik98RROsh+fvcAe/dWr4HsOO3veFD4C559mX7Hw YNhamU0OLNPhnrxpGBa9ckiby5Fl5jX4b5+CvdXebLZ1ZpmJ0k4NORua6Osm DWyF70dPScjDs40Xe0fAr2vtv864xGGPbwmsmRlSpwBPBP3cKeyCvCb602wB HF8lFd4OpxXcUlCDCyytMjxcMS+rq22XwaObCpoD1rOMXjt3oiPsZJS1Lh4e /rXfwQm+Qh1+fRZex6UrsQaObAuc7oCrFsRkO8PC5vrLV7izTPLZU/musI7y nQIJD+zneP8sT/jA6MuEm54sIxEb/NsX5gubu1J4M/IPUzYZAW/IsXVThc/V m6RHwhW3Q7ebwwO/Vmn8BXuIPToaCrtJdW6NgsuKorv64LqWJ3cOwute9PuV e+H7hzOyLx4+b34uxWkr6qFiHZwKmwmptqVtw/Npds4/O/M8yw8pFsMaCd8y Z7zIpz+4EV6wrkkoFxa/cVp6Ah6r9vg649f+/N6uviwj93b/vTw48fbIZ8qP ZU5ZtHrmww8jSmXP+LPMwTQZi1LYc0THr2AH6v28Qb0G3jr84k4DPLyoJnPG /m+TlHrh14e3cN2AQwf7BkR34vujra5rxsdfpmwIh+3Vb0bUwk09L9c47ML7 EshXdWumvg/SjD8F4n5XfZloggVK/hNbsZdlnvHfOtMO/3O1stk3DHl5lfWj N7CNEV/q7ih8f1/bP/gZPnxBxG/qEPLTZHb/LFualLtJ21OHsf5y5UdR2O99 t+W1EzjvnpWsloON/6ja65/GPMmV5VGBP3lGbLbKYRnFJ6W/l8Cm/8QmPDuP +a9VX6AH71A8XP2jCPPOVOKPEXxNWWVquoJl/hIeOsnAGUKhTklVyPsh8jzW 8FqTu5fO1rLMSIjjSTu4cE2riuFtnD8i/wo6wX2lHQU+97E/tLmeuMA6CYHL gtpYJl1gSscNlrao7fnVhfmy7GSyB/zSWihF/gXLsPL7tm6EV2iLO9S/Yhll kad6XnD1qYtzzUdYZnS+1q2tMMfS/MfacZbZ0yb1wQfm7To2NvKFZSYjts31 g5+W942I/kQ+TxP54w8389z6QnH3M+LC964HwHZm6zh5/P3M9ZSxfTvhS2SM uSnSz1yQi5nYBRctMoxx5/Qz04VVYbvhq6EvizbA604HHJjxrcaUjs1wZIx8 +Iy7Nz5f6AsbMnERM56VFvlwL5wYujpqxiKs0tcQ2G/pn/9bRr11/gFY+l1l 9Iy1muRDouEvq6RjZmwk0ZQTCyu+f/B/W3kFNsfP+GhU7IydSzn/Jc2sV9aO m/HG73WyR+Az11/93/8DMzqUbQ== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0.45107561936021673`, -5.809142990314028}, 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]}}, { NCache[-Log[250], -5.521460917862246], FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, { NCache[-Log[ Rational[500, 3]], -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]}}, { NCache[-Log[25], -3.2188758248682006`], FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, { NCache[-Log[ Rational[50, 3]], -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]}}, { NCache[-Log[250], -5.521460917862246], FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, { NCache[-Log[ Rational[500, 3]], -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]}}, { NCache[-Log[25], -3.2188758248682006`], FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, { NCache[-Log[ Rational[50, 3]], -2.8134107167600364`], FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}, {{{0.45107561936021673`, FormBox["1.57`", TraditionalForm], {0.00625, 0.}, { GrayLevel[0.], AbsoluteThickness[0.25]}}, {0.4542552722775964, FormBox["1.575`", TraditionalForm], {0.00625, 0.}, { GrayLevel[0.], AbsoluteThickness[0.25]}}, {0.4574248470388755, FormBox["1.58`", TraditionalForm], {0.00625, 0.}, { GrayLevel[0.], AbsoluteThickness[0.25]}}, {0.46058440732924394`, FormBox["1.585`", TraditionalForm], {0.00625, 0.}, { GrayLevel[0.], AbsoluteThickness[0.25]}}, {0.4637340162321402, FormBox["1.59`", TraditionalForm], {0.00625, 0.}, { GrayLevel[0.], AbsoluteThickness[0.25]}}, {0.4668737362368079, FormBox["1.595`", TraditionalForm], {0.00625, 0.}, { GrayLevel[0.], AbsoluteThickness[0.25]}}, {0.47000362924573563`, FormBox["1.6`", TraditionalForm], {0.00625, 0.}, { GrayLevel[0.], AbsoluteThickness[0.25]}}, {0.4517123592734841, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.45234869400701483`, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.45298462407614076`, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.45362014999521155`, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.45488999143568726`, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.4555243079809013, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.4561582224236824, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.45679173527350503`, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.45805755822733496`, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.4586898693454622, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.4593217808988751, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.4599532933922342, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.4612151232126562, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.461845441544272, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.4624753628249439, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.4631048875545789, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.4643627493556498, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.4649910874221913, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.46561903092791146`, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.46624658036802336`, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.4675004990276169, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.4681268692328754, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.46875284734408285`, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.46937843385181716`, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}}, {{0.45107561936021673`, FormBox["\" \"", TraditionalForm], {0.00625, 0.}, { GrayLevel[0.], AbsoluteThickness[0.25]}}, {0.4542552722775964, FormBox["\" \"", TraditionalForm], {0.00625, 0.}, { GrayLevel[0.], AbsoluteThickness[0.25]}}, {0.4574248470388755, FormBox["\" \"", TraditionalForm], {0.00625, 0.}, { GrayLevel[0.], AbsoluteThickness[0.25]}}, {0.46058440732924394`, FormBox["\" \"", TraditionalForm], {0.00625, 0.}, { GrayLevel[0.], AbsoluteThickness[0.25]}}, {0.4637340162321402, FormBox["\" \"", TraditionalForm], {0.00625, 0.}, { GrayLevel[0.], AbsoluteThickness[0.25]}}, {0.4668737362368079, FormBox["\" \"", TraditionalForm], {0.00625, 0.}, { GrayLevel[0.], AbsoluteThickness[0.25]}}, {0.47000362924573563`, FormBox["\" \"", TraditionalForm], {0.00625, 0.}, { GrayLevel[0.], AbsoluteThickness[0.25]}}, {0.4517123592734841, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.45234869400701483`, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.45298462407614076`, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.45362014999521155`, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.45488999143568726`, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.4555243079809013, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.4561582224236824, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.45679173527350503`, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.45805755822733496`, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.4586898693454622, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.4593217808988751, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.4599532933922342, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.4612151232126562, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.461845441544272, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.4624753628249439, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.4631048875545789, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.4643627493556498, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.4649910874221913, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.46561903092791146`, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.46624658036802336`, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.4675004990276169, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.4681268692328754, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.46875284734408285`, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.46937843385181716`, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}}}}, GridLines->{None, None}, Method->{}, PlotRange->{{0.45107561936021673`, 0.47000362924573563`}, {-5.809142990314028, -3.912023005428146}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], {None, None}}, Ticks->{{{0.45107561936021673`, FormBox["1.57`", TraditionalForm], {0.00625, 0.}, { GrayLevel[0.], AbsoluteThickness[0.25]}}, {0.4542552722775964, FormBox["1.575`", TraditionalForm], {0.00625, 0.}, { GrayLevel[0.], AbsoluteThickness[0.25]}}, {0.4574248470388755, FormBox["1.58`", TraditionalForm], {0.00625, 0.}, { GrayLevel[0.], AbsoluteThickness[0.25]}}, {0.46058440732924394`, FormBox["1.585`", TraditionalForm], {0.00625, 0.}, { GrayLevel[0.], AbsoluteThickness[0.25]}}, {0.4637340162321402, FormBox["1.59`", TraditionalForm], {0.00625, 0.}, { GrayLevel[0.], AbsoluteThickness[0.25]}}, {0.4668737362368079, FormBox["1.595`", TraditionalForm], {0.00625, 0.}, { GrayLevel[0.], AbsoluteThickness[0.25]}}, {0.47000362924573563`, FormBox["1.6`", TraditionalForm], {0.00625, 0.}, { GrayLevel[0.], AbsoluteThickness[0.25]}}, {0.4517123592734841, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.45234869400701483`, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.45298462407614076`, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.45362014999521155`, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.45488999143568726`, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.4555243079809013, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.4561582224236824, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.45679173527350503`, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.45805755822733496`, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.4586898693454622, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.4593217808988751, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.4599532933922342, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.4612151232126562, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.461845441544272, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.4624753628249439, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.4631048875545789, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.4643627493556498, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.4649910874221913, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.46561903092791146`, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.46624658036802336`, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.4675004990276169, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.4681268692328754, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.46875284734408285`, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}, {0.46937843385181716`, FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { GrayLevel[0.], AbsoluteThickness[0.125]}}}, {{-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]}}, { NCache[-Log[250], -5.521460917862246], FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, { NCache[-Log[ Rational[500, 3]], -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]}}, { NCache[-Log[25], -3.2188758248682006`], FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, { NCache[-Log[ Rational[50, 3]], -2.8134107167600364`], FormBox["\" \"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}]], "Output", CellChangeTimes->{{3.460951197091*^9, 3.460951264013*^9}, 3.460951441677*^9, 3.46095148766*^9, {3.460951519499*^9, 3.4609515764630003`*^9}, 3.46095162724*^9, 3.4609517179630003`*^9, {3.4609522571730003`*^9, 3.460952270065*^9}, 3.460952364543*^9, {3.460952786297*^9, 3.4609527983380003`*^9}, {3.460952838922*^9, 3.4609529493640003`*^9}, { 3.460953078145*^9, 3.4609531813789997`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"135", "*", RowBox[{"\[Pi]", "/", "180."}]}]], "Input", CellChangeTimes->{3.460952772219*^9}], Cell[BoxData["2.356194490192345`"], "Output", CellChangeTimes->{{3.460952769955*^9, 3.460952772441*^9}, 3.460953078212*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Abs", "[", "\[CapitalDelta]LD", "]"}], ",", RowBox[{"{", RowBox[{"\[Zeta]DC", ",", "2.3", ",", "2.5"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.46095118312*^9, 3.460951263649*^9}, { 3.4609515121099997`*^9, 3.4609515760959997`*^9}, 3.460951670796*^9, { 3.460951814491*^9, 3.460951821602*^9}, 3.460951855856*^9, { 3.460951892719*^9, 3.460951924311*^9}, 3.4609522059300003`*^9, 3.460952361091*^9, {3.4609529573050003`*^9, 3.460952961008*^9}, { 3.460953072674*^9, 3.460953072818*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[{{2.3000000040816326`, 2.839314643906402*^-12}, { 2.3019628681609694`, 2.8285100375261205`*^-12}, {2.303925732240306, 2.8177528553928495`*^-12}, {2.308181671417092, 2.7945898343583656`*^-12}, {2.3121555767140305`, 2.7731579131645793`*^-12}, {2.3160515297637754`, 2.7523271631789156`*^-12}, {2.3202776938316325`, 2.7299298265238696`*^-12}, {2.324221824019643, 2.709210866620238*^-12}, { 2.328496165225765, 2.6869540863737636`*^-12}, {2.3326925541846935`, 2.665298984505043*^-12}, {2.336606909263775, 2.645271202185075*^-12}, { 2.3408514753609686`, 2.62373827331645*^-12}, {2.3448140075783153`, 2.6038064275945198`*^-12}, {2.3486985875484683`, 2.58442372786126*^-12}, {2.3529133785367335`, 2.5635664175709913`*^-12}, {2.3568461356451516`, 2.5442645839455485`*^-12}, {2.361109103771682, 2.5235134618547704`*^-12}, {2.3652941196510184`, 2.5033123748627174`*^-12}, {2.369197101650508, 2.484622496362329*^-12}, { 2.3734302946681094`, 2.4645121970855596`*^-12}, {2.377381453805864, 2.4458903555301568`*^-12}, {2.3816628239617312`, 2.425871589724649*^-12}, {2.385866241870404, 2.406375968148417*^-12}, { 2.3897876258992303`, 2.3883278916065496`*^-12}, {2.3940392209461687`, 2.3689097058977037`*^-12}, {2.39800878211326, 2.3509180310322513`*^-12}, {2.4019003910331573`, 2.3334073877640337`*^-12}, {2.406122210971167, 2.314551734837596*^-12}, { 2.41006199702933, 2.2970858698263434`*^-12}, {2.4143319941056047`, 2.278295782731738*^-12}, {2.418524038934686, 2.2599878497742442`*^-12}, { 2.42243404988392, 2.2430339600022282`*^-12}, {2.426674271851266, 2.2247796421663503`*^-12}, {2.4306324599387654`, 2.207860988638145*^-12}, {2.434512695779071, 2.191387694508887*^-12}, { 2.438723142637489, 2.17363626154486*^-12}, {2.4426515556160595`, 2.1571883201863325`*^-12}, {2.4469101796127424`, 2.139480683722711*^-12}, {2.4508867697295784`, 2.1230594474614697`*^-12}, {2.4547854075992204`, 2.1070651134448*^-12}, { 2.4590142564869746`, 2.089831878768998*^-12}, {2.462961071494882, 2.073855100490653*^-12}, {2.4672380975209016`, 2.0566566263885643`*^-12}, {2.471437171299727, 2.039886229606798*^-12}, { 2.475354211198706, 2.0243430779241533`*^-12}, {2.479601462115797, 2.007597982261138*^-12}, {2.483566679153041, 1.992065105593125*^-12}, { 2.487453943943091, 1.9769302256036507`*^-12}, {2.4916714197512535`, 1.9606119210469923`*^-12}, {2.495606861679569, 1.9454794530744126`*^-12}, {2.4998725146259964`, 1.9291788716584983`*^-12}, {2.499936255272182, 1.928936089519664*^-12}, { 2.499999995918367, 1.9286933306264024`*^-12}}]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{2.3000000000000003`, 2.*^-12}, PlotRange->{{2.3, 2.5}, {1.9286933306264024`*^-12, 2.839314643906402*^-12}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{{3.460951915146*^9, 3.4609519246429996`*^9}, 3.460952206171*^9, {3.460952257242*^9, 3.460952270135*^9}, 3.460952364632*^9, 3.460952961308*^9, 3.460953078307*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["B1", "2"], "+", SuperscriptBox["B2", "2"]}], ")"}], "*", "hb", " ", "\[Omega]0"}], "/.", RowBox[{"\[Zeta]DC", "\[Rule]", "1.5734015"}]}]], "Input", CellChangeTimes->{{3.460953903898*^9, 3.4609539386879997`*^9}}], Cell[BoxData["0.10019707167622037`"], "Output", CellChangeTimes->{{3.4609539106949997`*^9, 3.460953938909*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[CapitalDelta]LD", "/.", RowBox[{"\[Zeta]DC", "\[Rule]", "1.5734015"}]}]], "Input", CellChangeTimes->{{3.4609537586429996`*^9, 3.4609537673059998`*^9}, 3.46095388738*^9, {3.460953947968*^9, 3.460953948615*^9}}], Cell[BoxData["4.291818273165626`*^-8"], "Output", CellChangeTimes->{3.460953767495*^9, 3.460953887583*^9, 3.460953948932*^9}] }, Open ]] }, Open ]] }, WindowToolbars->"EditBar", WindowSize->{692, 634}, WindowMargins->{{Automatic, 189}, {19, Automatic}}, DockedCells->(FrontEndExecute[{ FrontEnd`NotebookApply[ FrontEnd`InputNotebook[], #, Placeholder]}]& ), PrintingCopies->1, PrintingPageRange->{Automatic, Automatic}, FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (June 19, 2007)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[568, 21, 227, 5, 52, "Input"], Cell[798, 28, 264, 6, 52, "Input"], Cell[1065, 36, 168, 4, 31, "Input"], Cell[CellGroupData[{ Cell[1258, 44, 28, 0, 71, "Section"], Cell[CellGroupData[{ Cell[1311, 48, 63, 0, 36, "Subsection"], Cell[1377, 50, 2987, 90, 198, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[4401, 145, 39, 0, 36, "Subsection"], Cell[CellGroupData[{ Cell[4465, 149, 75, 2, 28, "Subsubsection"], Cell[4543, 153, 73, 2, 31, "Input"], Cell[4619, 157, 115, 3, 31, "Input"], Cell[4737, 162, 1175, 37, 117, "Input"], Cell[5915, 201, 1231, 40, 117, "Input"], Cell[CellGroupData[{ Cell[7171, 245, 263, 9, 52, "Input"], Cell[7437, 256, 274, 4, 70, "Output"] }, Open ]], Cell[7726, 263, 765, 23, 134, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[8528, 291, 31, 0, 28, "Subsubsection"], Cell[8562, 293, 298, 9, 47, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[8897, 307, 42, 0, 28, "Subsubsection"], Cell[8942, 309, 582, 10, 83, "Text"], Cell[9527, 321, 738, 22, 47, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[10314, 349, 37, 0, 36, "Subsection"], Cell[CellGroupData[{ Cell[10376, 353, 72, 0, 28, "Subsubsection"], Cell[10451, 355, 801, 28, 170, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[11289, 388, 40, 0, 28, "Subsubsection"], Cell[11332, 390, 1162, 37, 182, "Input"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[12555, 434, 29, 0, 41, "Section"], Cell[CellGroupData[{ Cell[12609, 438, 41, 0, 36, "Subsection"], Cell[12653, 440, 384, 12, 72, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[13074, 457, 107, 1, 28, "Subsection"], Cell[13184, 460, 215, 6, 46, "Input"], Cell[13402, 468, 829, 23, 92, "Input"], Cell[14234, 493, 266, 9, 38, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[14537, 507, 42, 0, 28, "Subsection"], Cell[14582, 509, 398, 9, 72, "Input"] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[15029, 524, 117, 1, 71, "Section"], Cell[15149, 527, 478, 13, 52, "Input"], Cell[15630, 542, 829, 25, 51, "Input"], Cell[16462, 569, 829, 25, 51, "Input"], Cell[CellGroupData[{ Cell[17316, 598, 622, 15, 33, "Input"], Cell[17941, 615, 485, 8, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[18463, 628, 713, 18, 33, "Input"], Cell[19179, 648, 36224, 738, 244, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[55440, 1391, 120, 3, 31, "Input"], Cell[55563, 1396, 124, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[55724, 1402, 573, 11, 31, "Input"], Cell[56300, 1415, 3309, 56, 208, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[59646, 1476, 310, 9, 33, "Input"], Cell[59959, 1487, 112, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[60108, 1493, 243, 4, 31, "Input"], Cell[60354, 1499, 126, 1, 30, "Output"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)