Skip to content

Instantly share code, notes, and snippets.

@tobin

tobin/README

Created February 20, 2012 09:11
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save tobin/1868513 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save tobin/1868513 to your computer and use it in GitHub Desktop.
Download ZIP
Analysis of the twin-T notch filter
Raw
README
Analysis of the twin-T notch filter
Raw
twint.m
f = logspace(log10(1), log10(10000), 101);
omega = 2*pi*f;
s = 1j * omega;
resistor = @(r) r * ones(size(s));
capacitor = @(c) 1./(s * c);
divider = @(Z1, Z2) Z2./(Z1+Z2);
R = 100;
C = 1/(2*pi*100*R);
H1 = divider(capacitor(C), resistor(R));
H2 = divider(resistor(R), capacitor(C));
subplot(2,1,1);
semilogx(f, db(H1), f, db(H2), f, db(H1+H2));
subplot(2,1,2);
semilogx(f, angle(H1)*180/pi, f, angle(H2)*180/pi);
set(gca, 'ytick', 45*(-4:4));
%%
f = logspace(log10(0.01), log10(10), 101);
omega = 2*pi*f;
s = 1j * omega;
R = 1;
C = 1;
H = 1 - 4 * R * C * s ./ (1 + R * C * s .* (4 + R * C * s));
alpha = 0.5;
G = 1./((1-alpha)./H + alpha);
subplot(2,1,1);
semilogx(omega, db(H), omega, db(G));
subplot(2,1,2);
semilogx(omega, angle(H));
set(gca, 'ytick', 45*(-4:4));
%%
w0 = 1;
w = logspace(log10(0.01), log10(100), 301);
s = 1j * w;
for alpha=[0 0.1 0.5 0.9 ]
H = (s.^2 + w0^2)./(s.^2 + 4*s*w0*(alpha-1) + w0^2);
semilogx(w, abs(H));
hold all
end
hold off
Raw
twinT.nb
(* Content-type: application/vnd.wolfram.mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 8.0' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 157, 7]
NotebookDataLength[ 71498, 1625]
NotebookOptionsPosition[ 69396, 1548]
NotebookOutlinePosition[ 69752, 1564]
CellTagsIndexPosition[ 69709, 1561]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
RowBox[{
RowBox[{"(*", " ",
RowBox[{
RowBox[{"Analysis", " ", "of", " ", "the", " ", "passive", " ", "Twin"}],
"-",
RowBox[{
"T", " ", "network", "\[IndentingNewLine]", "\[IndentingNewLine]",
"Tobin", " ", "Fricke", " ", "2012"}], "-", "02", "-",
RowBox[{"10", "\[IndentingNewLine]",
RowBox[{"tobin", ".", "fricke"}], " ", "AT", " ",
RowBox[{"aei", ".", "mpg", ".", "de"}]}]}], "\[IndentingNewLine]",
"*)"}], "\[IndentingNewLine]"}]], "Input",
CellChangeTimes->{{3.5378173741731987`*^9, 3.537817403583556*^9}}],
Cell[BoxData[
RowBox[{"(*", " ",
RowBox[{
RowBox[{"Define", " ", "the", " ", "delta"}], "-",
RowBox[{"star", " ", "and", " ", "star"}], "-",
RowBox[{"delta", " ", "transforms"}]}], " ", "*)"}]], "Input",
CellChangeTimes->{{3.537817414646283*^9, 3.5378174227732477`*^9}}],
Cell[BoxData[{
RowBox[{
RowBox[{"deltaToStar", "[",
RowBox[{"{",
RowBox[{"z1_", ",", "z2_", ",", "z3_"}], "}"}], "]"}], ":=",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"z2", " ", "z3"}], ",", " ",
RowBox[{"z1", " ", "z3"}], ",", " ",
RowBox[{"z1", " ", "z2"}]}], "}"}], "/",
RowBox[{"(",
RowBox[{"z1", "+", "z2", "+", "z3"}], ")"}]}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"starToDelta", "[", "z_", "]"}], ":=",
RowBox[{"1", "/",
RowBox[{"deltaToStar", "[",
RowBox[{"1", "/", "z"}], "]"}]}]}], "\[IndentingNewLine]"}], "Input",
CellChangeTimes->{{3.537814391390563*^9, 3.537814606053191*^9}, {
3.5378146413224993`*^9, 3.537814678746356*^9}, {3.5378148225512657`*^9,
3.5378148828644342`*^9}, {3.5378155844258747`*^9, 3.537815633232807*^9}}],
Cell[BoxData[
RowBox[{"(*", " ",
RowBox[{"Check", " ", "the", " ", "definition"}], " ", "*)"}]], "Input",
CellChangeTimes->{{3.537815786548417*^9, 3.5378157919521713`*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"deltaToStar", "[",
RowBox[{"{",
RowBox[{"Ra", ",", "Rb", ",", "Rc"}], "}"}], "]"}]], "Input",
CellChangeTimes->{{3.537815654106745*^9, 3.537815660633039*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
FractionBox[
RowBox[{"Rb", " ", "Rc"}],
RowBox[{"Ra", "+", "Rb", "+", "Rc"}]], ",",
FractionBox[
RowBox[{"Ra", " ", "Rc"}],
RowBox[{"Ra", "+", "Rb", "+", "Rc"}]], ",",
FractionBox[
RowBox[{"Ra", " ", "Rb"}],
RowBox[{"Ra", "+", "Rb", "+", "Rc"}]]}], "}"}]], "Output",
CellChangeTimes->{3.5378156609252243`*^9, 3.537816720419799*^9,
3.537817485501587*^9, 3.537817521115481*^9, 3.5378176660370493`*^9,
3.5378876247196627`*^9, 3.53788766246907*^9, 3.537887711434533*^9,
3.537888110639563*^9, 3.538717953675082*^9}]
}, Open ]],
Cell[BoxData[
RowBox[{"(*", " ",
RowBox[{
"Make", " ", "sure", " ", "these", " ", "transforms", " ", "are", " ",
"inverses", " ", "of", " ", "each", " ", "other"}], " ", "*)"}]], "Input",
CellChangeTimes->{{3.537815772906369*^9, 3.537815784095365*^9}}],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{"starToDelta", "[",
RowBox[{"deltaToStar", "[",
RowBox[{"{",
RowBox[{"z1", ",", "z2", ",", "z3"}], "}"}], "]"}], "]"}], "\[Equal]",
RowBox[{"{",
RowBox[{"z1", ",", "z2", ",", "z3"}], "}"}]}], "//",
"FullSimplify"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"deltaToStar", "[",
RowBox[{"starToDelta", "[",
RowBox[{"{",
RowBox[{"z1", ",", "z2", ",", "z3"}], "}"}], "]"}], "]"}], "\[Equal]",
RowBox[{"{",
RowBox[{"z1", ",", "z2", ",", "z3"}], "}"}]}], "//",
"FullSimplify"}]}], "Input",
CellChangeTimes->{{3.53781570620995*^9, 3.53781576953612*^9}}],
Cell[BoxData["True"], "Output",
CellChangeTimes->{{3.537815710672125*^9, 3.537815770053687*^9},
3.537816720484323*^9, 3.537817485543673*^9, 3.537817521154644*^9,
3.537817666164851*^9, 3.537887624923894*^9, 3.537887662515381*^9,
3.537887711480276*^9, 3.5378881107121153`*^9, 3.538717953737831*^9}],
Cell[BoxData["True"], "Output",
CellChangeTimes->{{3.537815710672125*^9, 3.537815770053687*^9},
3.537816720484323*^9, 3.537817485543673*^9, 3.537817521154644*^9,
3.537817666164851*^9, 3.537887624923894*^9, 3.537887662515381*^9,
3.537887711480276*^9, 3.5378881107121153`*^9, 3.5387179537391577`*^9}]
}, Open ]],
Cell[BoxData[{
RowBox[{
RowBox[{"res", "[", "R_", "]"}], ":=", "R"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"cap", "[", "C_", "]"}], ":=",
RowBox[{"1", "/",
RowBox[{"(",
RowBox[{"s", " ", "C"}], ")"}]}]}]}], "Input",
CellChangeTimes->{{3.5378158282021513`*^9, 3.537815848821851*^9}, {
3.537815881936014*^9, 3.537815884240839*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"starToDelta", "[",
RowBox[{"{",
RowBox[{
RowBox[{"res", "[", "R", "]"}], ",", " ",
RowBox[{"cap", "[",
RowBox[{"2", "C"}], "]"}], ",", " ",
RowBox[{"res", "[", "R", "]"}]}], "}"}], "]"}], "//",
"FullSimplify"}]], "Input",
CellChangeTimes->{{3.537814948969667*^9, 3.537814968583583*^9}, {
3.53781502493088*^9, 3.537815028391301*^9}, {3.537815852604476*^9,
3.537815878906239*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"R", "+",
FractionBox["1",
RowBox[{"C", " ", "s"}]]}], ",",
RowBox[{"2", " ", "R", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"C", " ", "R", " ", "s"}]}], ")"}]}], ",",
RowBox[{"R", "+",
FractionBox["1",
RowBox[{"C", " ", "s"}]]}]}], "}"}]], "Output",
CellChangeTimes->{{3.5378149644595823`*^9, 3.537814969003119*^9},
3.537815029074346*^9, 3.537815886030197*^9, 3.537815989592557*^9,
3.537816645492568*^9, 3.53781672055687*^9, 3.537817485741589*^9,
3.537817521165887*^9, 3.5378176663744583`*^9, 3.537887624973906*^9,
3.5378876625792093`*^9, 3.537887711491417*^9, 3.5378881107806396`*^9,
3.5387179538547163`*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"starToDelta", "[",
RowBox[{"{",
RowBox[{
RowBox[{"cap", "[", "C", "]"}], ",", " ",
RowBox[{"res", "[",
RowBox[{"R", "/", "2"}], "]"}], ",", " ",
RowBox[{"cap", "[", "C", "]"}]}], "}"}], "]"}], "//",
"FullSimplify"}]], "Input",
CellChangeTimes->{{3.537815058073386*^9, 3.5378150906625557`*^9}, {
3.537816625996291*^9, 3.5378166375983047`*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"R", "+",
FractionBox["1",
RowBox[{"C", " ", "s"}]]}], ",",
FractionBox[
RowBox[{"2", "+",
RowBox[{"2", " ", "C", " ", "R", " ", "s"}]}],
RowBox[{
SuperscriptBox["C", "2"], " ", "R", " ",
SuperscriptBox["s", "2"]}]], ",",
RowBox[{"R", "+",
FractionBox["1",
RowBox[{"C", " ", "s"}]]}]}], "}"}]], "Output",
CellChangeTimes->{{3.537815086095438*^9, 3.537815091200314*^9},
3.537815887649528*^9, 3.5378159910573874`*^9, 3.537816647307399*^9,
3.537816720591298*^9, 3.537817485790057*^9, 3.537817521171932*^9,
3.5378176664417257`*^9, 3.537887625022681*^9, 3.537887662623486*^9,
3.537887711497485*^9, 3.537888110832065*^9, 3.5387179539139853`*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"1", "/",
RowBox[{"(",
RowBox[{
RowBox[{"1", "/", "%"}], " ", "+", " ",
RowBox[{"1", "/", "%%"}]}], ")"}]}], "//", "FullSimplify"}]], "Input",
CellChangeTimes->{{3.537815927181383*^9, 3.537815944601171*^9}, {
3.537815981688727*^9, 3.5378159869243107`*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"R", "+",
FractionBox["1",
RowBox[{"C", " ", "s"}]]}], ")"}]}], ",",
FractionBox[
RowBox[{"2", " ", "R", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"C", " ", "R", " ", "s"}]}], ")"}]}],
RowBox[{"1", "+",
RowBox[{
SuperscriptBox["C", "2"], " ",
SuperscriptBox["R", "2"], " ",
SuperscriptBox["s", "2"]}]}]], ",",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"R", "+",
FractionBox["1",
RowBox[{"C", " ", "s"}]]}], ")"}]}]}], "}"}]], "Output",
CellChangeTimes->{{3.5378159358924932`*^9, 3.537815945182193*^9},
3.537815992109303*^9, 3.537816650320616*^9, 3.537816720598359*^9,
3.5378174858656063`*^9, 3.5378175211777077`*^9, 3.537817666535966*^9,
3.537887625110505*^9, 3.537887662629768*^9, 3.5378877115041122`*^9,
3.537888110840767*^9, 3.538717953990899*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"deltaToStar", "[", "%", "]"}], "//", "FullSimplify"}]], "Input",
CellChangeTimes->{{3.537815269168317*^9, 3.537815280714417*^9}, {
3.53781595332644*^9, 3.537815954996377*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
FractionBox["R",
RowBox[{"1", "+",
RowBox[{"C", " ", "R", " ", "s"}]}]], ",",
FractionBox[
RowBox[{"1", "+",
RowBox[{
SuperscriptBox["C", "2"], " ",
SuperscriptBox["R", "2"], " ",
SuperscriptBox["s", "2"]}]}],
RowBox[{
RowBox[{"4", " ", "C", " ", "s"}], "+",
RowBox[{"4", " ",
SuperscriptBox["C", "2"], " ", "R", " ",
SuperscriptBox["s", "2"]}]}]], ",",
FractionBox["R",
RowBox[{"1", "+",
RowBox[{"C", " ", "R", " ", "s"}]}]]}], "}"}]], "Output",
CellChangeTimes->{{3.53781527507446*^9, 3.537815281149365*^9},
3.5378159556805887`*^9, 3.537815994737412*^9, 3.537816653733865*^9,
3.537816720605253*^9, 3.5378174859272213`*^9, 3.53781752122159*^9,
3.537817666593465*^9, 3.5378876251955223`*^9, 3.537887662636065*^9,
3.537887711560206*^9, 3.537888110847109*^9, 3.538717954070071*^9}]
}, Open ]],
Cell[BoxData[
RowBox[{
RowBox[{"starToVoltageDivider", "[", "z_", "]"}], ":=",
RowBox[{
RowBox[{"z", "[",
RowBox[{"[", "2", "]"}], "]"}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"z", "[",
RowBox[{"[", "1", "]"}], "]"}], "+",
RowBox[{"z", "[",
RowBox[{"[", "2", "]"}], "]"}]}], ")"}]}]}]], "Input",
CellChangeTimes->{{3.5378153279397297`*^9, 3.537815377628936*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"starToVoltageDivider", "[", "%%", "]"}], "//",
"FullSimplify"}]], "Input",
CellChangeTimes->{{3.537815385134493*^9, 3.537815395844799*^9}, {
3.537816005768062*^9, 3.537816005933206*^9}}],
Cell[BoxData[
RowBox[{"1", "-",
FractionBox[
RowBox[{"4", " ", "C", " ", "R", " ", "s"}],
RowBox[{"1", "+",
RowBox[{"C", " ", "R", " ", "s", " ",
RowBox[{"(",
RowBox[{"4", "+",
RowBox[{"C", " ", "R", " ", "s"}]}], ")"}]}]}]]}]], "Output",
CellChangeTimes->{{3.5378153904053507`*^9, 3.537815396310142*^9},
3.537816006838121*^9, 3.537816658223173*^9, 3.537816720614896*^9,
3.537817486026064*^9, 3.5378175212350807`*^9, 3.537817666748622*^9,
3.537887625208774*^9, 3.537887662646257*^9, 3.5378877115722017`*^9,
3.537888110856978*^9, 3.538717954190325*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"%", " ", "/.", " ",
RowBox[{"R", " ", "\[Rule]",
RowBox[{"1", "/",
RowBox[{"(",
RowBox[{"\[Omega]0", " ", "C"}], ")"}]}]}]}], " ", "//", " ",
"FullSimplify", " "}]], "Input",
CellChangeTimes->{{3.537887580993495*^9, 3.537887614404235*^9}, {
3.537887657583881*^9, 3.537887659772264*^9}, {3.53788769456593*^9,
3.537887702954208*^9}}],
Cell[BoxData[
RowBox[{"1", "-",
FractionBox[
RowBox[{"4", " ", "s", " ", "\[Omega]0"}],
RowBox[{
SuperscriptBox["s", "2"], "+",
RowBox[{"4", " ", "s", " ", "\[Omega]0"}], "+",
SuperscriptBox["\[Omega]0", "2"]}]]}]], "Output",
CellChangeTimes->{3.5378876252172956`*^9, 3.537887662711421*^9,
3.537887711578062*^9, 3.537888110900722*^9, 3.538717954281219*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", "//", "Together"}]], "Input",
CellChangeTimes->{{3.537887679453567*^9, 3.53788769170636*^9}}],
Cell[BoxData[
FractionBox[
RowBox[{
SuperscriptBox["s", "2"], "+",
SuperscriptBox["\[Omega]0", "2"]}],
RowBox[{
SuperscriptBox["s", "2"], "+",
RowBox[{"4", " ", "s", " ", "\[Omega]0"}], "+",
SuperscriptBox["\[Omega]0", "2"]}]]], "Output",
CellChangeTimes->{3.53788811090668*^9, 3.538717954345261*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", " ", "/.", " ",
RowBox[{"s", "\[Rule]", " ",
RowBox[{"I", " ", "\[Omega]"}]}]}]], "Input",
CellChangeTimes->{{3.537816026699335*^9, 3.537816099845963*^9}, {
3.537887597861169*^9, 3.537887617565172*^9}}],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{"-",
SuperscriptBox["\[Omega]", "2"]}], "+",
SuperscriptBox["\[Omega]0", "2"]}],
RowBox[{
RowBox[{"-",
SuperscriptBox["\[Omega]", "2"]}], "+",
RowBox[{"4", " ", "\[ImaginaryI]", " ", "\[Omega]", " ", "\[Omega]0"}],
"+",
SuperscriptBox["\[Omega]0", "2"]}]]], "Output",
CellChangeTimes->{3.537816100329608*^9, 3.5378166601263647`*^9,
3.537816720644856*^9, 3.537817486036129*^9, 3.5378175212408237`*^9,
3.5378176667960997`*^9, 3.537887625223024*^9, 3.5378876627755833`*^9,
3.537887711627901*^9, 3.537888111148587*^9, 3.5387179543539543`*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"%", "//", "FullSimplify"}]], "Input",
CellChangeTimes->{{3.537816101646716*^9, 3.537816105525468*^9}}],
Cell[BoxData[
RowBox[{"1", "+",
FractionBox[
RowBox[{"4", " ", "\[ImaginaryI]", " ", "\[Omega]", " ", "\[Omega]0"}],
RowBox[{
SuperscriptBox["\[Omega]", "2"], "-",
RowBox[{"4", " ", "\[ImaginaryI]", " ", "\[Omega]", " ", "\[Omega]0"}],
"-",
SuperscriptBox["\[Omega]0", "2"]}]]}]], "Output",
CellChangeTimes->{3.537816105999427*^9, 3.53781666218863*^9,
3.537816720691675*^9, 3.5378174861166153`*^9, 3.537817521288025*^9,
3.537817666921764*^9, 3.537887625270447*^9, 3.537887662856762*^9,
3.537887711703885*^9, 3.537888111533228*^9, 3.53871795440984*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"%", "/.",
RowBox[{"\[Omega]0", "\[Rule]", "1"}]}], " ", "//", " ",
"FullSimplify"}]], "Input",
CellChangeTimes->{{3.537816136082471*^9, 3.5378161643949537`*^9}, {
3.5378166638689537`*^9, 3.537816666000064*^9}}],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["\[Omega]", "2"]}],
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"\[Omega]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "4"}], " ", "\[ImaginaryI]"}], "+", "\[Omega]"}],
")"}]}]}]]], "Output",
CellChangeTimes->{{3.537816140690688*^9, 3.537816164815021*^9},
3.5378166665876913`*^9, 3.537816720753374*^9, 3.5378174861774387`*^9,
3.5378175213528*^9, 3.5378176669784*^9, 3.537887625644002*^9,
3.537887662920755*^9, 3.537887711748736*^9, 3.537888111601993*^9,
3.538717954465034*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"LogLogPlot", "[",
RowBox[{
RowBox[{"Abs", "[", "%", "]"}], ",",
RowBox[{"{",
RowBox[{"\[Omega]", ",", "0.01", ",", " ", "10"}], "}"}]}],
"]"}]], "Input",
CellChangeTimes->{{3.5378161173032103`*^9, 3.537816131794093*^9}, {
3.5378161682976627`*^9, 3.537816171724751*^9}, {3.5378165433944283`*^9,
3.53781655250121*^9}, {3.537816681636845*^9, 3.537816683447822*^9},
3.53781671454637*^9}],
Cell[BoxData[
GraphicsBox[{{}, {},
{Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVlnc4FQ4bhs9x7HlQQiWUMkqREJGsRBmREKIoCtkqJCNCKFtKFJFNyH5f
q1BKipA9MrNlHXy/76/n3+e+nut6rlvg2p2L1lQEAsGCSCD8P0/bnC4suM2B
OnTZUb2SmhC/QdELtOXARo/ZPH0dTVgIL583ucmBybpfCsdva0Jq8QkJ6usc
+E7eZ+FOmibQkw7nG5pwIDUThXmFRwvaXnLnbmhwYMHcLNIwnAerH/Pv1A5y
4Jj6nPdegjZU3cg7x3uAAx03+48U8WsD17rdxIwAB+7j/afgcEYbGvnHheP3
cmBnjyD3BX9tOOLQlz65gwPv3fOYK6PXgX/0n9MiSBzYX/L6wkkWXQhWTE3p
GmBHKTsbWsUjelBYoxHi08eOXUxjX++e0YMe1b/OQj3s6DTTbP35kh6Ia0mr
Ov1ixxNHGxxKH+hB2+XGP/Rf2bHftIm6+Lse7HGaFpOtYMfexy02el4XIf+N
VElsDDuefDpiPDaiD10Hu5JORbFjrF9KvgFFH6gyvYOGnrJjdpJ6XC+nAVzK
/2gk/oQd+/aPxSirGMB6pdFGgx87CswJTZu+MQDVDi+l5TvsyJ55jXvO5hJ0
0jc062uyo7qqs7Mv42XgC3mfIKDBjqnn6+Xa918Ga6bXNrNq7HiJ/LZNVeEy
LLD40IaeYcdSXr4pD8fLwMJ5UrlWlh3LZPX3SHReBuW9OWXHDrHjXj/XbsYc
I8iRiMlgoWbHL8dflivYm8BSob/HbyI72luU7ToXYgJyUs7q77bJOHym2tA1
3QQapXVGVDfIWHFbm1ZsyASG5Bn4vRbIqKl2j3av8RXgVveOmxwgo5ZGxKDk
BVPwM7EO/FRFxjg/+T5hHXMQbPcyTa4gY6T6Ls9vd8yhRida8l4ZGR9qokzC
U3MgqNX1iRaT8X2OcXpsmzn4HBWQCc8m427K88cKRlfBi7p3zCCRjHrqQU/F
T1iAe67BuaG7ZGyW3jTyvmQJXCJ2+yrcyXjzxUSxsI0lFL/xX45yJSM56NjB
8fuWsBRfmKLmSMZ93Suxb5ItwcWfvJ5xk4y1Z57zsP21BEejL5l3DMmo7Ld3
/nPwNbClUmXePE7GIwoKSl4/rkOnnbJYugQZ1X1eNqVNXgeNX0qaekfJuNc2
5dIk0QqEsxUep4mSsST59GL9MSv4c0mGWluAjEKJ9yrrIqzA6p0oJYn1P34u
QhVJ3xqqkwU7fdvY0Jpe4K/77A1IctvH1dHChjkVLXZKjDfBW3OPgWgTG34S
zjkgInQTTi3tbG0DNqQz5P1qdOUmlJ1laNyfw4ZLDM70J5puQtHM7IeGIDZc
NIzIJmbZQNapqjgGBTY8PtUgsRZ0Cz6yaL/OkWXDGOLkr4HUWzDQ15etJ8WG
n2+wjY/V3IIdvoTaBDE2PBN686sB5RZ4NahMi/D+18fpiUuO823Q1m5W0lxh
xW9eHIl3re1g4eqviZACVnT9d5PkbOUAzBI2S+I5rPhZsTcy9JEDHKRa22rL
YEXkntvR9NYBrqTy7tidzIo2fy2e5E84QP24mWJWOCs+6cl8dsLpDsQ4jUR+
vs2KJ+WYrF+qOIKs/7w880FW/GTDXyZs4wQLx3U7Lwqwon3W2mqhlxPkjOS6
JuxhRcOYDMtLz5xAUN0u5yAnKx6+Esc3XO4ETAxjfGcIrHifR9daiM0Z+sJ7
iO7dLDhsjkHmlc4Q8PzTp/5wFkwNeyHqJuoKiloHrQ6GsODJ6vh6BWVXWNsI
INg/YsHbBb90BU1cwcFM+eS6JwuuKb2uPR3iCpf5qzJ32LIgKimnfZtyBdG3
hWHnVFjQkC640KLIDb4XvNR/v8KM218NDeRMPUDxkvYW2yIzct3Ld1L28IDM
1a0Muxlm5LS7VmQb6QF+py22hEaZUVRZTZaryQOkWgTfxbcxI40WrfCUzF2I
HU/f8s5hRonrzS9Sd9+DK/sK32lcZ8byEY4d5pT70Fh7zSDNnBkZFejHI3d7
gtQNzm2iCTOKKHqnTsl5AnOOq0GFLjOabb+/z3DfE6rlZLaPKDJjqQiFf2PN
E/gNKw04eZgxWDyd4zfBG0affNzu/cqEO3XXFavEfODJYSaPkGYm5AwMWjC4
4ANSX3RmpD8y4UWbpVTyHR/wY+rqiahiwsbLXK+WCn3++6upsjPZTCjcORh+
ku8hXA4iu6YFM2EkSe2kdNZDaPI1GbdTZcK7NuoixT98wVHg1VUeJSbs9Ne2
HfvjC9w1wx0N8kwos+krKb7uCzcI9g18x5kw9vrJD2v8fkDl4/O6VYAJtc47
z4Tc8QN5r1RTqW1GPNYZ5veO7A857jOtG2WMuCEV6OZxPQCWlgndmsWMaKN+
x/iMZwCccuMcTshnRB2lpqaDUQHQ7CK7LJPOiN8s3rSo1gXAuKMfj2s0I+ad
Nu5uPfAIBG9zXZt2YMRNyoai2t9HEHdVcbFnPyNKFhNNH0cHQV+fLkVsHyPy
LCVakfKD4KD5dRpPXkakqz19JOlzEBSZPt7Fw86Igqpr4cdJj6HNuE3+0hYD
xltIRgy6PAZmgxsBLZ0MaF54vu/WlWDw1QjfWR3GgKr6qkRF1VCgrpeaMg1m
wEQ/V+pey1AIPP0bNwIYkPpM1HCiTyiESAvbnfRiQMkfLJX3KkIh8kBtbdEt
BqQo+IeUST2BN4R/d7LOMmDss0+FN4+EQUOpWXM8kQEf27txustGgIYUdbLM
Jj2Gl9qrGZhEQHNeplvHKj0qlfxtMvSKgK9vV/h3zNFjscbYtSaMgI7oZx4R
ffTIuzzsXyT0FMYcGw4EVtDjrzMLPN3vnwKDyBEfFzd6lG7OdmjqewaKcULX
hZ3ocZq0x6x2/hk40/Cd7bWjx3NJvEe+UUdC9yAr21kreqxd2Kw9IBYJmc/n
knj16fEM2zFS7d1I0GQuqq45Ro/3LKcpHbuiIHRWbottmg5H0hJOEm5EA5od
H6ofo8M51yqxJM9oWPos9vHeMB0GO1XnXXwWDaYZe8KHu+kwQaencbsyGg5b
bu390ESHkDheb7czBr601SiYp9Ohm7nt5bfNMcBSouGdfY0OZyXqdymdjYMh
EtsiyZwOz6plCq5YxkGJXrvNFWM61K6VuvjFKw7M/1oaMOrSobVZ5evvhXGQ
e8BTzEaBDqP3PHqnxR8PulE5Xfu56XDMeLSCl5gA0Y4c0okttPg7adp+1+/n
YFPdmbXQSIsfDzxWbV97DqeYXwlo1tPi8Jzpy2LuRBhNF2NZK6fFEO28W32G
iSDdrzpimEGL47Xz4T9/JkLnBY9IDn9ajIoe1nH99QL2iPXMBMvSooW3IGP0
ahKIuUlLSEjRYmDcE6NwnlcgB09dOo/S4uOy15RMuVdgpK+2evAQLZb2unzV
8n4F0Z65xPqdtBhfOJSziyoZWL483LG1QIP3KxsuaD9Jhi07ITnnHBr00PjB
+Cg3BVg++HjxvKNBCw+35nM1KbCH2F2NqTTYb2+1LPAzBeRiwlXYXtDg7G6n
Lub1FHCvWjmfHUKDM9XDi1/VX8MMS/PVPzdpMCBpr/vOkdfQn+vwyESQBpfo
d5+XEU+F8M5Y49S9NNiSuNf9iloqKFLBkRluGpSefXAjwTQVXlxi6/Blo8E6
92Da66GpYETJO/iOQo2ZHwwVj02mQtu5+U8rHdQo5qLwvjk7DT6OuDDGhFLj
PYb9HB/V08GN9UVfXyA1shyMUje2TIcDsvWFwn7UWCf8rY3BKx38Q3dcqbxL
jbEd8bfrCtJBSbI4a9iaGif2VS0k8mVAuc+/85JK1BhZPaK7uZkBObz3Ir4t
kfCApWCS+c9MYJVZdDo6R0KGLRVzzYVMcNS3N4iYIqFHzmF5Q3IWSD6x5NEZ
IqHjUmTz1/NZULJ57s3XbyQsJfCh+qcswAHeDy2ZJDwUwHLVoTYb2t5W9n22
IGG5qldcQFsuHK+TrhEzJeHhI9O+75dyIbo//03oZRJe/C5dTLsrDwy502y0
tEmoO9Phx2uaB7+Dwxaa5UnIHBEQtzGWByN25rTNXCRMpwdXS/98WJEkiDd+
ocKLZkIzhfkFEKnF2uvRSIVlH/JWB2oLQNxqz5ND9VQ4vzbZyN9eADdiZCcD
K6iQK2VhtX2tADpWHN+qZVKh72lqHW7VQiipHOSrC6LC5Sj794w9heCuXsdW
rUyFpXTsj3bxFgHH1e/V9opU2NzyQveleBHkevTb75WjwqSCmglplSL4k7Hx
2UuCCi01IxvT7IrAkEnqsTw/Fd5fLdvhikUg3ZpKKNsk4sq/7unB28WwbBw4
/76UiDTMAzNebSUgefGaJG0REcVb01aipkrAQVPRxSiPiPI7W4bqqT/AH7l/
S5Q0InaoGFe5ynyAjt03VtWiiHhLUIaDLekDlPaqbf+yJ2LpoNiAsmMp3Lek
YaEIElGiLn63jkg5lBgPXtDmI6Ivl3V0q1o5LOhVhSfzEDHZ+eyiw7VyuKXs
RlYjEzEr1/YT1YtyuLJ/lDN8k4CLXQOPg8kVcGq0npe/k4DJBgyJItsVsG0T
IKwaRkB+1GOzWawCd7OlE38eE/BHpVZuBHs1TOtZqTwOICBnxXeNH0eroVtO
1fyLJwEt1lU/5dpVQwkzdbTBLQKe/XdSq2ysGhzy/betzhJQuuv486PDAH0r
fh2PiATkm7DW4ltF8GQhMURMbQHT4dttY8frILP4wVnuoS0YWU36a6NRB51m
649SOreAsG/y26ZpHUjlzlMVNWzBKYL/weuBdTCjPUDpfLUFDOpMH/d214HF
06o5QYMtSKYvkLB4VA+qnHc7Syo3wUFopOvRVAOw8vxN7wujAGH2QGT9WiMk
v2UmRQdQoI/ybUuWswkkpQ6bn/OkwI43sWfrDzfBZZ3bO4psKBC4wZO1z6IJ
kh9NPAxWocAsi8itqU9NILEwaiy1tgFMMlEGI4nNYPC5jynEagNSo0oGGi99
gQTv1jsn5NdhUNzz6k3GVkgmcVuFSK7DOI2MtyhPK2QEXzXqF1kHcRUX1bVD
rVAaM6MUzL0OMmYpE2VqrdCZw8zRu7wGZ8MfqDf6tgJXn0ZRQP4acF3YxbSP
0gqRijWrP4TWYNoqkjC89h2ebBf4OpNXIUNzPFJu90/4qRqTwEy3Ckp+r+4l
if+EPSF3C95uroD5J1tWDuWfkL3j9GD35ArQNOlaC9v+hBaRL0oqDSvwZzWj
mqP0J7Aa/NnmvL8CZ6U0u0eN2uFZBu+D4uF/sBjGKVT/tgNi9fzvr5YsAzvV
8C4Lty4wiAgXk8xdhumXq97WoV3A0ZLQczttGbJYFiLup3RBmEa+Yn/UMvTb
ev360dIFAad7qT46LgOds1u7yqFucD4iExolugwfX86n8Pd2gw7DVKJ40hLc
95XXoLvUA/Q1F6usHi1CSJVDtJ1HPzgF7xbpNJ+HqgmTryayw/Dj9g1e/0vz
8O86+9UmjWE4oV3AJH5+HkISi1JUjIdhjePsjP/JeeinizS7cn8YfF84vz+6
Yx6mQ6ziuauG4Vlek0JQ0xzIZZ6P+K46AgXtHhelpeZAX3ZFx8tsFIZUMlaE
OWcgt7EoeLR4DJ6thTFXE2dgcCuVKN84Bkp5LgL6c39hNzXt+IvuMXjFe1rL
u+UvMCe0igZuj4HpfHvS96C/oDXFXzp7bhw6kkjq9ynTMGPHUiI8OA7Na+bR
n0en4IBm36FHPJPwPm+nhEPpBOwXttfqKJqGoWHJsLC0CQhSiNjz8Ms0cHDr
TmRHTkCT6uWXp0amwflhSMqU3QToNrEzznD+BUm9bXZbgQlwStISPOH6FwoX
xheuh4zDEYrba1vZGSg8UVlkbDoGcgNfK/e3zsKQbRf53rmx//aKaTCYnAWO
pH928dL/cTRf+HuBag6caSWEfpHH4PdXPoOSPXMg+SstxqDhD5C/HxJnvTgH
hXcj3HXE/8D9xa5v49VzUFBxTVaNMArve5Vim1LmIaP8U0vl3xHILC94w58/
D8llh69L/R4Ba7OCyIDqeXj64V/Y/pIREPLcfcvl9zw4vA8ZJtqNwPvqo2az
OxfgcFZhePWvYaBv7+F1DVuAjOdUozJ5Q7AVsuVvFrQIyQk37+e9GAJluvKG
B3GLEB//he1QyBCUJ8btyE9fhKDYWDku6yHovJxqoNK4CDciRZ8u8Q6Buc7o
t6OMS7A/5KJ8QeAgdH+NiFZ4tgRJ914/EzUfAM4Gk1bRnGXwtb1sPHh+AGqU
f1TrVy+DlTGzQLz8AMxgTUn4t2UQPemeT8MzAGvzucbyC8tgNx+VVJPeDw4D
h966yP6DxNkhHvGoPrii9G7Qv/EfrE89JNPd6oFp1eBEs9UVwM+Tr1zP9kCR
N7/wbuZVCMwyODp0oAeMaxMj5vatAsdtYe2q/t/gPRnfOXx2FUQmv4W6XPoN
U1qcowvxq2A0zkc3oNQN8QoljydPr8GHkcrN0l2d8Dh9xk3qzTo8qInZLb/w
Czo6ayRsK9dBPcnhZNWXX+B513+tvn0dfl7md6vx/QXVscGJi/QbsNDsP900
1QFZDoEn5J024HCB5u9uaAey18vI6XMUWArbv2b6vB3e3llW/m5NgYpbFK5+
13boHvabHPWlgOaB3IvDIu0QoJ9Ql1JOgZtx7M1TUT+hwLFx1F18E157d5ZS
bv6AyBefeBT5t8DWpKDjgfIPmI/zenjv9BYckwlZIuz9AYO2kirz5lsAc/LH
aNraYGDO73lC0hb0XH+VznKqDZQiWUgT/NuwS/NGLB/5O3jreEWd5CEg95Hx
sYeOLTCjFqApeo6IBpld076iLSA+c53HxJSITw99nvcb+QJGQzrtH+4QkU4w
dyPA6AtEqh9PJMQR8R+XK1uw0mdQnq0OGhwj4g8CQeYZuQmOSS9Kf46iQtYH
8/KRzY3QL1LGqP+fd2huDClFBTTCUAGDJ28NFdYuN2jGrH6C7Jqfy/azVJg/
GWqeMPARVkhV4Rd1SBj+c1dgSn49VHySpUraS43Negyhr2/Vw9cb66JTstRI
82094s2BeshOqjwWa0CNXk29CWnxdeAfdkqaHEaNt6vf5Lx7WAvBjy4cH6ai
wbfyMYWZcrXAOOWTbi9Ag0OlgR+ylmqgpvT8iL0SDZq8t63JsakBQ+OPZn0+
NKiRcbS9QBfBnuK+PEtNiwFCAt2FjAim3g568f95uY+aUPXNYADZG6d/dGrS
ooPc1PfbTtXQcFVqSCaKFrUOeKy5nKmEJkbmYK7DdFjLZ0JyL64AcW2u5oMG
dCjHo8ByV6QC3HaWc5O86VCYlSTgxV4OCU9fJJ35TofcL9zDw6NL4VLA1asu
WvT4P6Fllos=
"]], LineBox[CompressedData["
1:eJwVyXk81IkbwPGZaUJEoWMr5EqopNRSyvN1JZFSy5KQishZRKJDJUcktclR
ZMfZtpGjcj7f3NdqHDPrCOPKkXPEuP3298fn9f7jI3PR/Yw9jUKhxP7X//UW
a5RNiPgMZg9tbT2NBEgn+YDfbGc/Q9zZPek+SgLk+y7GMcPwPIj0Xh+oN89P
apgPKUt+yof3kWoLlAR+0ljXa6pMsAiK9PeFf53iIyOXo/rfJxSBKm+QvrOW
j2Tn5f0bfaAYfO/4+Rxn8JEXVFcKXGwQjHRvddeY8ZH5Ivo6gq0kOAQsXF5X
upqsX/gqmLW7FPjOJ9tm5dFJD8vuVTt9SsG5SXX111g6Kf6Juxj3pRSeXj8Q
dMGfTlpc3zgeaF4GGmD5spmgkz2D55os75WD3+Gi+fT6VSSP1R9Hba6EbS9m
xnMWaOSI+6da3y1VkBo97eHZRyN71oQsTNpUgXdXsI7XPzSy/uhuq56hKjDN
6aSov6GRScnXt5auVMPg4cqk2OM08vSNleiHu+rgj7WFl2oYVPLYuoaqRY86
ODpfIrzxKZXUTP9z1utjHSS7FxpF+FNJhQ59C3vtf+Ctmd6UiDmVXNQL23zs
93rQy/5mKSdEJX8LXVv7QJsJ7byW0Wl/Cnnq9+keuMyEgRJGXpszhTwh3zm/
8IgJ0l7xJr3nKCQUZyh71THhCqFx1/oQhVTmngm9/HsDpC6pdtaNryDlXIyh
vmsj9JOvbT5ML+M7JYUqvphmMNpSSvooL2HyXILp++JmcP7FoWab8BLGV29p
N+trBo6KvfHP8UWMdBIeS9rLgktvhWvh4yJ6p/8U161ggV4djW+P/iJqK5Xa
3p1ig5mUHaPeeQHZihd4vJOtoHt2t6JWyxwyZ1vvJXi2Ah+fcZ4uOYfVVWcF
DWJawU8na5dL2hwWOhpIRvW1goNNvZS87xwmpqnoHvBrA1VLgeAdEnPoorj0
xCOtHTymm2YkHWeRqhirMETrhPB33bf/2shD+U1eRmIKnXBq022VQhoPj9FN
PDQNO6G+TCC+Z3wGwzjU/PCITniua/PTvWYGf4lxOrlfogsqohKPBN2bwc2B
EvlFWzlQvlro2L2JaVSZ+cHhO9ANyRSxiFudP9GqJVQlxqEXqNVNeUI/uJhE
zwxi+fTCd0pKdco3Lo6psjiiIb3QGQsxJvVcvB+y/XnoX70Qr+UiV/aBi2mH
c3h+E71Q4FaRqOfLxZlXHaTNrT7ghIyOhAhy8amd6ln5J/0gei3dPvngJFYM
s3wycgdA2PfVfQuzcYyILg2xqxqAPyUc2ns0x9Hi2Ic48fYBOBBfIHRfdhyH
E8PQhzIIjadrApbHx1DEUpefMBqE4A/2+SOPx9C8MjOKyRmEn5XqvEeVo9jP
eJw7KTQMjj9uh9JPjiDdWntK7eIILKqoyjiFDWHPlq7GFM8RsDy3soN9cwhJ
tn/WlsAR0HYTzThtP4R+pz9fW0kdAS3HI9vctIaQq7t3omZ0BAJ4q5ePTw4i
R1ly1M53FLg62894WQ5iwezs94inY8Bu3K5kqjaAh05YjN6wnYBdWq3KA4L9
6Oj0+NCw4wSIPeG2LM32YVRwcaDN9QmQvH3JXWagD6cq5KUMAidgflJmT0Rp
H/6tO2nyy18TwP00yV51uw9ljoZm5s9MQN+E3g1Dbi+uUS30XAmfhIyuMObq
7z3YulF6PriQC8/lJQ5dn+Bg0qkMpYZyLiwqCwWVdnPQLUTLcstXLgjWHTXa
3sRB+tL5z+nd/31XquRMLgdV+mK8a/imIKSFfVDan4MPssSnhEynQF3uFOuC
IAf3nOIfedI/BRYvTOWaz3diQPBYxx8i02Dg/oJbodCO7Gozr6Obp4EiHfZt
dF077hIqEvy+fRqe0U9Eys+1ISv8sbr6vmnYcGK35pfaNlR6rhjZenYaRNV+
zfp4rQ0bXl/Uk4qZBlVZGePHZCvKZLPfpsrNgHvFnwrJTi34paPYJ1+DB7EF
zOHZARaybUOHJXV4sGYgRfdwEwuHu82sA4x4YJ8lsvi4mIUbvo/oHLfhgeCO
3CsXXrDQYWyrCPsBDx61UlTrdFm4dsU7abKeB6Fy7IJURjOaS+9tULSfBVGe
37p97k3442KC8svIOTiZ08WXqtaAoSM6dKvYORAIo4e2yTWgsvf3DinGHPT0
Lblv3dCAjiF7IlNy5oBRLGyIP5nYl1HAy/13DqiB2h6vPjLx2+K/Zc2S87D/
+Ze4+CNMrItabyv2dh46gg0adjDq8V1NwPPwkgW4qfGG/kizFgfcAk7vqF2A
l5U3mAdla1FWPEC4qGkB3DL37J8XqMVoq3tBI30LcMW0NpBk12DgyB0/I/5F
uC81JK7jWYM2Iv6X1hgvgrXYVbpIZjWKnvFWC2Qtgu7gfm9PjSr0br3a5D+4
BEGj+iX1AeV4rbje5evkEmQp1Go+ci5HF8Z+PtmFJRC5a3TxjFk52rnOa1QK
L8OHoy63FJXK0ZgaGi+qtgwXDZwO1jSUoZxSulPK7WVwPVTGZiuUIfPmwMpX
sRVYNrYo/LurBDeu3R8VKUUhDHYkdymFkGhBO73phyyFMKGNjpbfJDF21jVK
byeF4Ltzs8PDkUTp/vQo3l4KERYzqDZlQKJyscxLa20KERwpFJzGT6KWh2i0
0mUKYSR1xDxaHNGxeSLmSzqFkG0Tv2m+rwjf1ohs3faeQrytf/VAYkMRjpK7
Y72yKERH/aZXSzOFeP1vx9idBRTiWW1ywvqiQrz9iBMbXkch9mVXJ/ucKMRn
Gsw4y3EKMf2rjqf61QIseJXxevIAlWAkrzcYK8zDX+nfXtcdohK3jFR/G0rI
w0xngfhULSqhLtjRS3uQhymH7eKtj1OJ8jslEpGGefi0RSyh2opK/BB+OL2p
5TM6bPB+k3ifSpz1P3gnc/4TioUdYZgyqYTJSYr0BbOPGD7lyNjNohInTF6f
52l+RAGrFwz+NioRL7K6Jl32Iy4pjTGKeqmE8aBJg+1ELg5WJiQp8ajEnjdK
dcLhuVi8alUKVYpGMEtq/K1qc/CQ896Ub7I0Ir8IeTHZOZjTaJXyaSeNSM/y
F+fG5WB6Yk6K6z4acWUmunbMJQf/AIfUVj0a4RYhGrV5fQ6uS32WmmNII3wv
BrlJz2VjqAimRpjQiJPW6xR0erLxbsfmNH0LGmGTmN/4NScb5/X00qStaUS2
6+Fozfhs9HrnkbZgRyPOOwZ2YFA2jou/TmM70AiHH1Oh569l41W/6rQPzjTi
7s7xYFGrbPwfFjkMOQ==
"]]}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->True,
AxesOrigin->{-4.605170185988091, -3.0368411494278384`},
CoordinatesToolOptions:>{"DisplayFunction" -> ({
Exp[
Part[#, 1]],
Exp[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
Exp[
Part[#, 1]],
Exp[
Part[#, 2]]}& )},
FrameTicks->{{{{-2.3025850929940455`,
FormBox[
TagBox[
InterpretationBox["\"0.10\"", 0.1, AutoDelete -> True],
NumberForm[#, {
DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ],
TraditionalForm]}, {0.,
FormBox[
TagBox[
InterpretationBox["\"1.00\"", 1., AutoDelete -> True], NumberForm[#, {
DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ],
TraditionalForm]}, {-0.6931471805599453,
FormBox[
TagBox[
InterpretationBox["\"0.50\"", 0.5, AutoDelete -> True],
NumberForm[#, {
DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ],
TraditionalForm]}, {1.6094379124341003`,
FormBox[
TagBox[
InterpretationBox["\"5.00\"", 5., AutoDelete -> True], NumberForm[#, {
DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ],
TraditionalForm]}, {-1.6094379124341003`,
FormBox[
TagBox[
InterpretationBox["\"0.20\"", 0.2, AutoDelete -> True],
NumberForm[#, {
DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ],
TraditionalForm]}, {0.6931471805599453,
FormBox[
TagBox[
InterpretationBox["\"2.00\"", 2., AutoDelete -> True], NumberForm[#, {
DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ],
TraditionalForm]}, {-1.203972804325936,
FormBox[
TagBox[
InterpretationBox[
"\"0.30\"", 0.30000000000000004`, AutoDelete -> True], NumberForm[#, {
DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ],
TraditionalForm]}, {1.0986122886681098`,
FormBox[
TagBox[
InterpretationBox["\"3.00\"", 3., AutoDelete -> True], NumberForm[#, {
DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ],
TraditionalForm]}, {-1.897119984885881,
FormBox[
TagBox[
InterpretationBox[
"\"0.15\"", 0.15000000000000002`, AutoDelete -> True], NumberForm[#, {
DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ],
TraditionalForm]}, {0.4054651081081644,
FormBox[
TagBox[
InterpretationBox["\"1.50\"", 1.5, AutoDelete -> True],
NumberForm[#, {
DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ],
TraditionalForm]}, {-0.3566749439387323,
FormBox[
TagBox[
InterpretationBox[
"\"0.70\"", 0.7000000000000001, AutoDelete -> True], NumberForm[#, {
DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ],
TraditionalForm]}, {1.9459101490553132`,
FormBox[
TagBox[
InterpretationBox["\"7.00\"", 7., AutoDelete -> True], NumberForm[#, {
DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ],
TraditionalForm]}, {-2.2072749131897207`,
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
Thickness[0.001]}}, {-2.120263536200091,
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
Thickness[0.001]}}, {-2.040220828526554,
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
Thickness[0.001]}}, {-1.9661128563728327`,
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
Thickness[0.001]}}, {-1.8170772772123447`,
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
Thickness[0.001]}}, {-1.7429693050586228`,
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
Thickness[0.001]}}, {-1.6739764335716714`,
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
Thickness[0.001]}}, {-0.916290731874155,
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
Thickness[0.001]}}, {-0.5108256237659907,
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.09531017980432493,
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
Thickness[0.001]}}, {0.1823215567939548,
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
Thickness[0.001]}}, {0.26236426446749106`,
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
Thickness[0.001]}}, {0.336472236621213,
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
Thickness[0.001]}}, {0.47000362924573563`,
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
Thickness[0.001]}}, {0.5306282510621705,
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
Thickness[0.001]}}, {0.5877866649021191,
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
Thickness[0.001]}}, {0.6418538861723948,
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
Thickness[0.001]}}, {1.3862943611198906`,
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
Thickness[0.001]}}, {1.791759469228055,
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
Thickness[0.001]}}}, {{-2.3025850929940455`,
FormBox["\"\"", TraditionalForm]}, {0.,
FormBox["\"\"", TraditionalForm]}, {-0.6931471805599453,
FormBox["\"\"", TraditionalForm]}, {1.6094379124341003`,
FormBox["\"\"", TraditionalForm]}, {-1.6094379124341003`,
FormBox["\"\"", TraditionalForm]}, {0.6931471805599453,
FormBox["\"\"", TraditionalForm]}, {-1.203972804325936,
FormBox["\"\"", TraditionalForm]}, {1.0986122886681098`,
FormBox["\"\"", TraditionalForm]}, {-1.897119984885881,
FormBox["\"\"", TraditionalForm]}, {0.4054651081081644,
FormBox["\"\"", TraditionalForm]}, {-0.3566749439387323,
FormBox["\"\"", TraditionalForm]}, {1.9459101490553132`,
FormBox["\"\"", TraditionalForm]}, {-2.2072749131897207`,
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
Thickness[0.001]}}, {-2.120263536200091,
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
Thickness[0.001]}}, {-2.040220828526554,
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
Thickness[0.001]}}, {-1.9661128563728327`,
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
Thickness[0.001]}}, {-1.8170772772123447`,
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
Thickness[0.001]}}, {-1.7429693050586228`,
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
Thickness[0.001]}}, {-1.6739764335716714`,
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
Thickness[0.001]}}, {-0.916290731874155,
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
Thickness[0.001]}}, {-0.5108256237659907,
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.09531017980432493,
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
Thickness[0.001]}}, {0.1823215567939548,
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
Thickness[0.001]}}, {0.26236426446749106`,
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
Thickness[0.001]}}, {0.336472236621213,
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
Thickness[0.001]}}, {0.47000362924573563`,
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
Thickness[0.001]}}, {0.5306282510621705,
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
Thickness[0.001]}}, {0.5877866649021191,
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
Thickness[0.001]}}, {0.6418538861723948,
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
Thickness[0.001]}}, {1.3862943611198906`,
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
Thickness[0.001]}}, {1.791759469228055,
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
Thickness[0.001]}}}}, {{{-4.605170185988092,
FormBox[
TagBox[
InterpretationBox["\"0.01\"", 0.01, AutoDelete -> True],
NumberForm[#, {
DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ],
TraditionalForm]}, {-2.995732273553991,
FormBox[
TagBox[
InterpretationBox["\"0.05\"", 0.05, AutoDelete -> True],
NumberForm[#, {
DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ],
TraditionalForm]}, {-2.302585092994046,
FormBox[
TagBox[
InterpretationBox["\"0.10\"", 0.1, AutoDelete -> True],
NumberForm[#, {
DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ],
TraditionalForm]}, {-0.6931471805599453,
FormBox[
TagBox[
InterpretationBox["\"0.50\"", 0.5, AutoDelete -> True],
NumberForm[#, {
DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ],
TraditionalForm]}, {0.,
FormBox[
TagBox[
InterpretationBox["\"1.00\"", 1., AutoDelete -> True], NumberForm[#, {
DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ],
TraditionalForm]}, {1.6094379124341003`,
FormBox[
TagBox[
InterpretationBox["\"5.00\"", 5., AutoDelete -> True], NumberForm[#, {
DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ],
TraditionalForm]}, {2.302585092994046,
FormBox[
TagBox[
InterpretationBox["\"10.00\"", 10., AutoDelete -> True],
NumberForm[#, {
DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ],
TraditionalForm]}, {3.912023005428146,
FormBox[
TagBox[
InterpretationBox["\"50.00\"", 50., AutoDelete -> True],
NumberForm[#, {
DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ],
TraditionalForm]}, {-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.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.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.5108256237659907,
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
Thickness[0.001]}}, {-0.35667494393873245`,
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.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.605170185988092,
FormBox["\"\"", TraditionalForm]}, {-2.995732273553991,
FormBox["\"\"", TraditionalForm]}, {-2.302585092994046,
FormBox["\"\"", TraditionalForm]}, {-0.6931471805599453,
FormBox["\"\"", TraditionalForm]}, {0.,
FormBox["\"\"", TraditionalForm]}, {1.6094379124341003`,
FormBox["\"\"", TraditionalForm]}, {2.302585092994046,
FormBox["\"\"", TraditionalForm]}, {3.912023005428146,
FormBox["\"\"", TraditionalForm]}, {-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.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.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.5108256237659907,
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
Thickness[0.001]}}, {-0.35667494393873245`,
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.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]}}}}},
GridLines->{None, None},
Method->{},
PlotRange->NCache[{{-4.605170185988091,
Log[10]}, {-3.0368411494278384`, 0.}}, {{-4.605170185988091,
2.302585092994046}, {-3.0368411494278384`, 0.}}],
PlotRangeClipping->True,
PlotRangePadding->{
Scaled[0.02],
Scaled[0.02]},
Ticks->{{{-4.605170185988092,
FormBox[
TagBox[
InterpretationBox["\"0.01\"", 0.01, AutoDelete -> True],
NumberForm[#, {
DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ],
TraditionalForm]}, {-2.995732273553991,
FormBox[
TagBox[
InterpretationBox["\"0.05\"", 0.05, AutoDelete -> True],
NumberForm[#, {
DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ],
TraditionalForm]}, {-2.302585092994046,
FormBox[
TagBox[
InterpretationBox["\"0.10\"", 0.1, AutoDelete -> True], NumberForm[#, {
DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ],
TraditionalForm]}, {-0.6931471805599453,
FormBox[
TagBox[
InterpretationBox["\"0.50\"", 0.5, AutoDelete -> True], NumberForm[#, {
DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ],
TraditionalForm]}, {0.,
FormBox[
TagBox[
InterpretationBox["\"1.00\"", 1., AutoDelete -> True],
NumberForm[#, {
DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ],
TraditionalForm]}, {1.6094379124341003`,
FormBox[
TagBox[
InterpretationBox["\"5.00\"", 5., AutoDelete -> True],
NumberForm[#, {
DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ],
TraditionalForm]}, {2.302585092994046,
FormBox[
TagBox[
InterpretationBox["\"10.00\"", 10., AutoDelete -> True],
NumberForm[#, {
DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ],
TraditionalForm]}, {3.912023005428146,
FormBox[
TagBox[
InterpretationBox["\"50.00\"", 50., AutoDelete -> True],
NumberForm[#, {
DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ],
TraditionalForm]}, {-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.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.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.5108256237659907,
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
Thickness[0.001]}}, {-0.35667494393873245`,
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.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]}}}, {{-2.3025850929940455`,
FormBox[
TagBox[
InterpretationBox["\"0.10\"", 0.1, AutoDelete -> True], NumberForm[#, {
DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ],
TraditionalForm]}, {0.,
FormBox[
TagBox[
InterpretationBox["\"1.00\"", 1., AutoDelete -> True],
NumberForm[#, {
DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ],
TraditionalForm]}, {-0.6931471805599453,
FormBox[
TagBox[
InterpretationBox["\"0.50\"", 0.5, AutoDelete -> True], NumberForm[#, {
DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ],
TraditionalForm]}, {1.6094379124341003`,
FormBox[
TagBox[
InterpretationBox["\"5.00\"", 5., AutoDelete -> True],
NumberForm[#, {
DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ],
TraditionalForm]}, {-1.6094379124341003`,
FormBox[
TagBox[
InterpretationBox["\"0.20\"", 0.2, AutoDelete -> True], NumberForm[#, {
DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ],
TraditionalForm]}, {0.6931471805599453,
FormBox[
TagBox[
InterpretationBox["\"2.00\"", 2., AutoDelete -> True],
NumberForm[#, {
DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ],
TraditionalForm]}, {-1.203972804325936,
FormBox[
TagBox[
InterpretationBox[
"\"0.30\"", 0.30000000000000004`, AutoDelete -> True],
NumberForm[#, {
DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ],
TraditionalForm]}, {1.0986122886681098`,
FormBox[
TagBox[
InterpretationBox["\"3.00\"", 3., AutoDelete -> True],
NumberForm[#, {
DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ],
TraditionalForm]}, {-1.897119984885881,
FormBox[
TagBox[
InterpretationBox[
"\"0.15\"", 0.15000000000000002`, AutoDelete -> True],
NumberForm[#, {
DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ],
TraditionalForm]}, {0.4054651081081644,
FormBox[
TagBox[
InterpretationBox["\"1.50\"", 1.5, AutoDelete -> True], NumberForm[#, {
DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ],
TraditionalForm]}, {-0.3566749439387323,
FormBox[
TagBox[
InterpretationBox["\"0.70\"", 0.7000000000000001, AutoDelete -> True],
NumberForm[#, {
DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ],
TraditionalForm]}, {1.9459101490553132`,
FormBox[
TagBox[
InterpretationBox["\"7.00\"", 7., AutoDelete -> True],
NumberForm[#, {
DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ],
TraditionalForm]}, {-2.2072749131897207`,
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
Thickness[0.001]}}, {-2.120263536200091,
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
Thickness[0.001]}}, {-2.040220828526554,
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
Thickness[0.001]}}, {-1.9661128563728327`,
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
Thickness[0.001]}}, {-1.8170772772123447`,
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
Thickness[0.001]}}, {-1.7429693050586228`,
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
Thickness[0.001]}}, {-1.6739764335716714`,
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
Thickness[0.001]}}, {-0.916290731874155,
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
Thickness[0.001]}}, {-0.5108256237659907,
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.09531017980432493,
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
Thickness[0.001]}}, {0.1823215567939548,
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
Thickness[0.001]}}, {0.26236426446749106`,
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
Thickness[0.001]}}, {0.336472236621213,
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
Thickness[0.001]}}, {0.47000362924573563`,
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
Thickness[0.001]}}, {0.5306282510621705,
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
Thickness[0.001]}}, {0.5877866649021191,
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
Thickness[0.001]}}, {0.6418538861723948,
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
Thickness[0.001]}}, {1.3862943611198906`,
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
Thickness[0.001]}}, {1.791759469228055,
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
Thickness[0.001]}}}}]], "Output",
CellChangeTimes->{
3.5378161728333178`*^9, 3.5378165534423103`*^9, {3.537816669442375*^9,
3.537816684160062*^9}, 3.5378167208744802`*^9, 3.537817486327688*^9,
3.5378175214425373`*^9, 3.5378176672079563`*^9, 3.537887626388879*^9,
3.53788766304333*^9, 3.537887711874461*^9, 3.537888111902123*^9,
3.538717954633259*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"LogLinearPlot", "[",
RowBox[{
RowBox[{
RowBox[{"Arg", "[", "%%", "]"}],
RowBox[{"(",
RowBox[{"180", "/", "\[Pi]"}], ")"}]}], ",",
RowBox[{"{",
RowBox[{"\[Omega]", ",", "0.01", ",", " ", "10"}], "}"}]}],
"]"}]], "Input",
CellChangeTimes->{{3.537817461227673*^9, 3.5378174822486*^9}, {
3.53781751627316*^9, 3.53781751687873*^9}}],
Cell[BoxData[
GraphicsBox[{{{}, {},
{Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVxX081HcAB/DrVO7B4y9Co5VVKmRZjWXKlnK11rpz98usVI6Sp0NcYoST
dUJF0S3Zy2OKMzflYdL3I2KF6XmntGR6sNpxK84Q2/54v94L/SWCQCaDwdj4
n/9fF7TuJ1UIBbvLwuRibybOTEzy0/ZTWOKfdOzUTib+zvpZ67uPwsJXD3Xp
+5goubx65UwxhW/O1zGPxjPB0nOopn0p1BUXO7cUM3HnnGXVBI9CdvB4hscI
EwF3tRc2LKGQUFvGDc3Xg3xtSWFPnykqk3YddJ6cCTXr+k3vzaaQiBOZFV+y
kOIbmNbeZIJc6oderydc7Gd6Grz7yASnCof2JPQZo+LTpjy2uzHCRDnVARIK
rjKtm8ESIzRSeYoVNua4rTrnXaMzwHeFca620ZZ4ltE2/fhXLlpHc3q47tZQ
SjW3Jho4sG/Y8zR10QIk87LMr2ay8adC+lpQbgv2MsfDB2JYaOLEWOf7LIZh
LS+h0l8fj3LePxG8fSms7Xs1ctfZiA0JWVzBccCTqvAjvrazYN9TqQsbdYJy
3qHj3W/1YKMb9DIRO0PnzFjxSycTsWEFHJ7Raox8naatqZ+Bre3szBf3XTAd
lLrUM5OB5gBVZ6mjG+IN9djHX02R0LzcSJuza2Fk9df53zMnCcslInCK/xkU
Cbckq93GSQeZMpVGrUfGtCo5ymSMcC3HA9zTNyCXL4sbqx0hYQ/eFuU88wKr
WdAUcOQN+bjt3o2yxZsRKX9vmdpPS1zGEx3j/bagf325bukcDZFoOprtW7ei
5kfzleH1g8R4Xqz0j/htUDX6u25gPCO2dlq/T8r4KDhUdHK5Xx8Jnu/jYdEi
QN3AlXf1FmoyvCBTOHTdG5aOL18kRXQRO+Fr3SG1EMKLPa+Tl3eRGZ5Nkshe
IU7YdWhTBjpJvmNXRVCfEPq2VROpPp3ELOZSFP1SiNG50cZyjw7yAZna5DQm
xF0Gw+WkyQ1yRZaX/cBChKx7FmmF1a2EtQfu07QIN/nsY0XBrYRdMeQx7CvC
rO7x48WLWklEm8DqqZ8I3954rCg900IO5D//4tpeEUKuFisvJF0jsRpVe4pU
BF65033VNpBdg6zcydMizB7L4qU+rSMysTLut3siNPKqrXk+dcQXBZJqtQgR
itvD3O5a0l5yaYu8V4RHa8wUOVcuk/6TB5vXDIhQnaAYLMqrIaVUakn+GxEu
zeaZy85WEZ1b6M0dFI355elNHLmS5GtaU1bNpSHf1BWYLa0kD4ZG7A3m0fDL
ENQW8i+SEYGpd+NCGixq53bolxGG+xE9q5U0GtYMOE+8+J48vOUTdOcrGlkJ
+2WcljNEPYcTccGbhhiau1YFuWSV187IpO00DDf+E+0qzCbjShvxil00+o8m
XvdyOkFGDEqFs8Q0wvP0HarMMki/ivl5714a14qsw18lyYhhaAyVHk5DvW3r
fLPwREJ6S0Z3R9Fw2CHezX8YQ5S8J2oXKY0Z3cOeNpnBxPG5qsEojkZq23hR
NNef1H942no0nsa/Uq1ECA==
"]], LineBox[CompressedData["
1:eJwBUQOu/CFib1JlAgAAADQAAAACAAAADsb6onQLYj+4MJUc9ntWQAXtkC5z
6Wg//97Apmx6VkAuazNVfAh1P1Y/CcaVdlZA2l8eEz+cfT/8T/fjvnJWQEKq
hOgAGIM/X9r9/+duVkCYJHpH4mGHP6uqjxkRa1ZARBllBaX1jz8hYCBDY2NW
QE6BnUCVjpg/1hKGYAdUVkBTtTleDdukP6FV+0hONVZA3it/QuEEpj/41A1N
IzFWQGiixCa1Lqc/tYPOQ/gsVkB8j0/vXIKpP3NLjAaiJFZApGllgKwprj8A
/1vN9BNWQPuOSNElvLM/tkS+w5byVUBMQ3TzxAq9P8RfjXbHr1VA99XlmwHU
xz+3NduztSlVQKwpJsgGmdQ/szDS2/QsVEABKJom6QLePwZ4FIBaFVNAW9iK
Lplm4z+bxGr6hAlSQMbq1Xevtec/roZYR/r7UEAEXUHzM2LsP1wHQpVfoE9A
OUpY7XVf8D950aRHv2VNQNkVIPqIvPI/ojdX3Bn1SkCBiO7dlA71P288U6lo
kUhAwd2+d7o49z+XDmCtZmBGQOtinyqXkfk//meLi7gTRECsyoGTjcL7PwTy
qABBCEJAdtlq03zo/T/g0msnaiVAQBUMMpaRHgBANmEwaTOAPEC7nK+d8TQB
QGKGUYqfQzlANgTcncw5AUB+J5gb2DU5QLBrCJ6nPgFAs15tmBYoOUCmOmGe
XUgBQDLrWFSlDDlAkNgSn8lbAUAF8GrRCdY4QGYUdqChggFAm7xOte5pOEAS
jDyjUdABQNan4QImljdAjfNooyzVAUAHoV6JG4k3QAhblaMH2gFAR5TR8BZ8
N0D9Ke6jveMBQPmbVGAfYjdA6MefpCn3AUANijCxdi43QL4DA6YBHgJAplBq
ij7INkA5ay+m3CICQFFXUtWRuzZAtNJbprcnAkDdBJ726q42QKmhtKZtMQJA
GbdLua6VNkCUP2an2UQCQJMrxCh8YzZAD6eSp7RJAkA9AqMQ/lY2QIoOv6eP
TgJAh/tsyIVKNkB/3ReoRVgCQBYaTaSmMTZA+kREqCBdAkAcTaHGPyU2QHSs
cKj7YQJA38dctd4YNkDvE52o1mYCQIlSl2+DDDZAanvJqLFrAkAJ2GX0LQA2
QHDfbm4=
"]]}, {}}, {{}, {}, {}}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->True,
AxesOrigin->{-4.605170185988091, -89.93689646310202},
CoordinatesToolOptions:>{"DisplayFunction" -> ({
Exp[
Part[#, 1]],
Part[#, 2]}& ), "CopiedValueFunction" -> ({
Exp[
Part[#, 1]],
Part[#, 2]}& )},
FrameTicks->{{Automatic, Automatic}, {{{-4.605170185988092,
FormBox[
TagBox[
InterpretationBox["\"0.01\"", 0.01, AutoDelete -> True],
NumberForm[#, {
DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ],
TraditionalForm]}, {-2.995732273553991,
FormBox[
TagBox[
InterpretationBox["\"0.05\"", 0.05, AutoDelete -> True],
NumberForm[#, {
DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ],
TraditionalForm]}, {-2.302585092994046,
FormBox[
TagBox[
InterpretationBox["\"0.10\"", 0.1, AutoDelete -> True],
NumberForm[#, {
DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ],
TraditionalForm]}, {-0.6931471805599453,
FormBox[
TagBox[
InterpretationBox["\"0.50\"", 0.5, AutoDelete -> True],
NumberForm[#, {
DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ],
TraditionalForm]}, {0.,
FormBox[
TagBox[
InterpretationBox["\"1.00\"", 1., AutoDelete -> True], NumberForm[#, {
DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ],
TraditionalForm]}, {1.6094379124341003`,
FormBox[
TagBox[
InterpretationBox["\"5.00\"", 5., AutoDelete -> True], NumberForm[#, {
DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ],
TraditionalForm]}, {2.302585092994046,
FormBox[
TagBox[
InterpretationBox["\"10.00\"", 10., AutoDelete -> True],
NumberForm[#, {
DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ],
TraditionalForm]}, {3.912023005428146,
FormBox[
TagBox[
InterpretationBox["\"50.00\"", 50., AutoDelete -> True],
NumberForm[#, {
DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ],
TraditionalForm]}, {-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.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.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.5108256237659907,
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
Thickness[0.001]}}, {-0.35667494393873245`,
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.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.605170185988092,
FormBox["\"\"", TraditionalForm]}, {-2.995732273553991,
FormBox["\"\"", TraditionalForm]}, {-2.302585092994046,
FormBox["\"\"", TraditionalForm]}, {-0.6931471805599453,
FormBox["\"\"", TraditionalForm]}, {0.,
FormBox["\"\"", TraditionalForm]}, {1.6094379124341003`,
FormBox["\"\"", TraditionalForm]}, {2.302585092994046,
FormBox["\"\"", TraditionalForm]}, {3.912023005428146,
FormBox["\"\"", TraditionalForm]}, {-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.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.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.5108256237659907,
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
Thickness[0.001]}}, {-0.35667494393873245`,
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.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]}}}}},
GridLines->{None, None},
Method->{},
PlotRange->NCache[{{-4.605170185988091,
Log[10]}, {-89.93689646310202,
89.93689646310202}}, {{-4.605170185988091,
2.302585092994046}, {-89.93689646310202, 89.93689646310202}}],
PlotRangeClipping->True,
PlotRangePadding->{
Scaled[0.02],
Scaled[0.02]},
Ticks->{{{-4.605170185988092,
FormBox[
TagBox[
InterpretationBox["\"0.01\"", 0.01, AutoDelete -> True],
NumberForm[#, {
DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ],
TraditionalForm]}, {-2.995732273553991,
FormBox[
TagBox[
InterpretationBox["\"0.05\"", 0.05, AutoDelete -> True],
NumberForm[#, {
DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ],
TraditionalForm]}, {-2.302585092994046,
FormBox[
TagBox[
InterpretationBox["\"0.10\"", 0.1, AutoDelete -> True], NumberForm[#, {
DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ],
TraditionalForm]}, {-0.6931471805599453,
FormBox[
TagBox[
InterpretationBox["\"0.50\"", 0.5, AutoDelete -> True], NumberForm[#, {
DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ],
TraditionalForm]}, {0.,
FormBox[
TagBox[
InterpretationBox["\"1.00\"", 1., AutoDelete -> True],
NumberForm[#, {
DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ],
TraditionalForm]}, {1.6094379124341003`,
FormBox[
TagBox[
InterpretationBox["\"5.00\"", 5., AutoDelete -> True],
NumberForm[#, {
DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ],
TraditionalForm]}, {2.302585092994046,
FormBox[
TagBox[
InterpretationBox["\"10.00\"", 10., AutoDelete -> True],
NumberForm[#, {
DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ],
TraditionalForm]}, {3.912023005428146,
FormBox[
TagBox[
InterpretationBox["\"50.00\"", 50., AutoDelete -> True],
NumberForm[#, {
DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ],
TraditionalForm]}, {-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.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.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.5108256237659907,
FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
Thickness[0.001]}}, {-0.35667494393873245`,
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.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]}}}, Automatic}]], "Output",
CellChangeTimes->{{3.537817472890794*^9, 3.537817486484375*^9}, {
3.537817518096181*^9, 3.537817521581739*^9}, 3.537817667403172*^9,
3.53788762657953*^9, 3.537887663158497*^9, 3.5378877120163517`*^9,
3.537888112103669*^9, 3.538717954957345*^9}]
}, Open ]]
},
WindowSize->{869, 842},
WindowMargins->{{Automatic, 41}, {Automatic, 0}},
ShowSelection->True,
FrontEndVersion->"8.0 for Linux x86 (64-bit) (November 7, 2010)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 578, 13, 126, "Input"],
Cell[1138, 35, 286, 6, 30, "Input"],
Cell[1427, 43, 811, 20, 69, "Input"],
Cell[2241, 65, 177, 3, 30, "Input"],
Cell[CellGroupData[{
Cell[2443, 72, 190, 4, 30, "Input"],
Cell[2636, 78, 598, 15, 47, "Output"]
}, Open ]],
Cell[3249, 96, 263, 5, 30, "Input"],
Cell[CellGroupData[{
Cell[3537, 105, 669, 19, 50, "Input"],
Cell[4209, 126, 309, 4, 30, "Output"],
Cell[4521, 132, 311, 4, 30, "Output"]
}, Open ]],
Cell[4847, 139, 354, 9, 50, "Input"],
Cell[CellGroupData[{
Cell[5226, 152, 455, 12, 30, "Input"],
Cell[5684, 166, 732, 18, 47, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[6453, 189, 416, 11, 30, "Input"],
Cell[6872, 202, 763, 19, 47, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[7672, 226, 313, 8, 30, "Input"],
Cell[7988, 236, 1010, 29, 47, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[9035, 270, 213, 4, 30, "Input"],
Cell[9251, 276, 929, 24, 50, "Output"]
}, Open ]],
Cell[10195, 303, 408, 12, 30, "Input"],
Cell[CellGroupData[{
Cell[10628, 319, 227, 5, 30, "Input"],
Cell[10858, 326, 605, 13, 50, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[11500, 344, 397, 10, 30, "Input"],
Cell[11900, 356, 385, 9, 47, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[12322, 370, 122, 2, 30, "Input"],
Cell[12447, 374, 325, 9, 50, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[12809, 388, 240, 5, 30, "Input"],
Cell[13052, 395, 630, 15, 50, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[13719, 415, 127, 2, 30, "Input"],
Cell[13849, 419, 591, 12, 49, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[14477, 436, 255, 6, 30, "Input"],
Cell[14735, 444, 623, 17, 53, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[15395, 466, 437, 10, 30, "Input"],
Cell[15835, 478, 37216, 729, 234, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[53088, 1212, 387, 11, 30, "Input"],
Cell[53478, 1225, 15902, 320, 232, "Output"]
}, Open ]]
}
]
*)
(* End of internal cache information *)
Display the source blob
Display the rendered blob
Raw
twinT.svg
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment