https://github.com/APJansen/QNMspectral
Tip revision: 9c5959fb06da8d9f929794f860a8d09924e203d2 authored by APJansen on 19 July 2019, 12:53:41 UTC
Update README.md
Update README.md
Tip revision: 9c5959f
QNMspectralExamples.nb
(* Content-type: application/vnd.wolfram.mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 10.4' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 241358, 5690]
NotebookOptionsPosition[ 232463, 5384]
NotebookOutlinePosition[ 232973, 5406]
CellTagsIndexPosition[ 232885, 5401]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell["QNMspectral examples", "Title",
CellChangeTimes->{{3.6755975358863983`*^9, 3.675597539125764*^9}}],
Cell["\<\
Here we present a few examples illustrating the use of the package \
QNMspectral found at https://github.com/APJansen/QNMspectral, and explained \
in more detail in https://arxiv.org/abs/1709.09178 .\
\>", "Text",
CellChangeTimes->{{3.715567357666697*^9, 3.715567420856071*^9}}],
Cell[CellGroupData[{
Cell["Loading the package", "Subchapter",
CellChangeTimes->{{3.675675735780755*^9, 3.675675738329797*^9}}],
Cell[BoxData[
RowBox[{"Needs", "[", "\"\<QNMspectral`\>\"", "]"}]], "Input",
InitializationCell->True,
CellChangeTimes->{{3.6755981503465357`*^9, 3.6755981537636967`*^9}, {
3.675675730057618*^9, 3.675675730232636*^9}, {3.685102153442478*^9,
3.6851021748076563`*^9}}],
Cell[CellGroupData[{
Cell["Getting started", "Section",
CellChangeTimes->{{3.685102633063609*^9, 3.685102634594584*^9}}],
Cell["\<\
To find out how this package works, apart from going through this notebook \
one can go to Help -> Documentation and type in \
\[OpenCurlyDoubleQuote]QNMspectral\[CloseCurlyDoubleQuote], to find an \
introduction and several tutorials.
Also one can get information about its functions just as you would for \
Mathematica functions, e.g.:\
\>", "Text",
CellChangeTimes->{{3.685102641461422*^9, 3.685102707406454*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"?", "GetModes"}]], "Input",
CellChangeTimes->{{3.685102703392085*^9, 3.685102704513818*^9}}],
Cell[BoxData[
RowBox[{
StyleBox["\<\"GetModes[\!\(\*\\nStyleBox[\\\"equation\\\",\\nFontSlant->\\\"\
Italic\\\"]\),{\!\(\*\\nStyleBox[\\\"N\\\",\\nFontSlant->\\\"Italic\\\"]\)\!\(\
\*\\nStyleBox[\\\",\\\",\\nFontSlant->\\\"Italic\\\"]\)\!\(\*\\nStyleBox[\\\"\
prec\\\",\\nFontSlant->\\\"Italic\\\"]\)}] computes the quasinormal mode \
spectrum of \
\!\(\*\\nStyleBox[\\\"equation\\\",\\nFontSlant->\\\"Italic\\\"]\) using a \
spectral grid of \
\!\(\*\\nStyleBox[\\\"N\\\",\\nFontSlant->\\\"Italic\\\"]\)+1 points with \
\!\(\*\\nStyleBox[\\\"prec\\\",\\nFontSlant->\\\"Italic\\\"]\) digits of \
precision.\"\>", "MSG"], "\[NonBreakingSpace]",
ButtonBox[
StyleBox["\[RightSkeleton]", "SR"],
Active->True,
BaseStyle->"Link",
ButtonData->"paclet:QNMspectral/ref/GetModes"]}]], "Print", "PrintUsage",
CellChangeTimes->{3.714306340451638*^9},
CellTags->"Info23714313540-6835410"]
}, Open ]]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[TextData[{
"Reproducing the ",
Cell[BoxData[
FormBox[
SubscriptBox["AdS", "5"], TraditionalForm]]],
" QNM\[CloseCurlyQuote]s of Kovtun, Starinets ",
"0506184"
}], "Subchapter",
CellChangeTimes->{{3.6755975628438253`*^9, 3.675597564782013*^9}, {
3.6755976005109053`*^9, 3.6755976227396383`*^9}}],
Cell[CellGroupData[{
Cell["The equations in EF coordinates", "Section",
CellChangeTimes->{{3.6755976264657717`*^9, 3.6755976302266397`*^9}}],
Cell[TextData[{
"These are the equations of the 5 different modes of the ",
Cell[BoxData[
FormBox[
SubscriptBox["AdS", "5"], TraditionalForm]]],
"-Schwarzschild black brane considered in 0506184 (the modes of the metric, \
and of an external massless vector field).\nThe coordinates are such that z=0 \
is the boundary and z=1 is the horizon. \nFor ease of comparison ",
Cell[BoxData[
FormBox[
RowBox[{"\[Lambda]", "=",
FractionBox["\[Omega]",
RowBox[{"2", "\[Pi]", " ", "T"}]]}], TraditionalForm]]],
" and ",
Cell[BoxData[
FormBox[
RowBox[{"k", "=",
FractionBox["q",
RowBox[{"2", "\[Pi]", " ", "T"}]]}], TraditionalForm]]],
".\nAll equations and functions are rescaled so that the function goes \
linearly to 0 towards the boundary and the equation itself goes to a \
nontrivial constant (proportional to the function)."
}], "Text",
CellChangeTimes->{{3.675597648704706*^9, 3.675597752875843*^9}, {
3.675597841500278*^9, 3.675597881234396*^9}, {3.675597920271044*^9,
3.675597923933269*^9}, {3.675598000379126*^9, 3.6755980182864943`*^9}, {
3.675598052032113*^9, 3.675598086532653*^9}}],
Cell[BoxData[{
RowBox[{
RowBox[{"hscalar", "=",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"3", " ",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"4", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox["z", "2"]}], "+",
RowBox[{"9", " ",
SuperscriptBox["z", "4"]}]}], ")"}]}], "-",
RowBox[{"18", " ", "\[ImaginaryI]", " ", "z", " ", "\[Lambda]"}]}],
")"}], " ",
RowBox[{"Z3", "[", "z", "]"}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"3", " ", "z", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "+",
RowBox[{"7", " ",
SuperscriptBox["z", "4"]}]}], ")"}]}], "-",
RowBox[{"12", " ", "\[ImaginaryI]", " ",
SuperscriptBox["z", "2"], " ", "\[Lambda]"}]}], ")"}], " ",
RowBox[{
SuperscriptBox["Z3", "\[Prime]",
MultilineFunction->None], "[", "z", "]"}]}], "+",
RowBox[{"3", " ",
SuperscriptBox["z", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["z", "4"]}], ")"}], " ",
RowBox[{
SuperscriptBox["Z3", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "z", "]"}]}]}]}], ";"}], "\n",
RowBox[{
RowBox[{"hshear", "=",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"12", " ",
SuperscriptBox["k", "2"], " ",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"4", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox["z", "2"]}], "-",
RowBox[{"3", " ",
SuperscriptBox["z", "4"]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["z", "4"]}], ")"}]}], "+",
RowBox[{"24", " ", "\[ImaginaryI]", " ",
SuperscriptBox["k", "2"], " ", "z", " ",
RowBox[{"(",
RowBox[{"3", "+",
SuperscriptBox["z", "4"]}], ")"}], " ", "\[Lambda]"}], "+",
RowBox[{"12", " ",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"4", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox["z", "2"]}], "+",
RowBox[{"9", " ",
SuperscriptBox["z", "4"]}]}], ")"}], " ",
SuperscriptBox["\[Lambda]", "2"]}], "-",
RowBox[{"72", " ", "\[ImaginaryI]", " ", "z", " ",
SuperscriptBox["\[Lambda]", "3"]}]}], ")"}], " ",
RowBox[{"Z1x", "[", "z", "]"}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"36", " ",
SuperscriptBox["k", "2"], " ", "z", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["z", "4"]}], ")"}], "2"]}], "-",
RowBox[{"48", " ", "\[ImaginaryI]", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox["z", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["z", "4"]}], ")"}], " ", "\[Lambda]"}], "+",
RowBox[{"12", " ", "z", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "+",
RowBox[{"7", " ",
SuperscriptBox["z", "4"]}]}], ")"}], " ",
SuperscriptBox["\[Lambda]", "2"]}], "-",
RowBox[{"48", " ", "\[ImaginaryI]", " ",
SuperscriptBox["z", "2"], " ",
SuperscriptBox["\[Lambda]", "3"]}]}], ")"}], " ",
RowBox[{
SuperscriptBox["Z1x", "\[Prime]",
MultilineFunction->None], "[", "z", "]"}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"12", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox["z", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["z", "4"]}], ")"}], "2"]}], "+",
RowBox[{"12", " ",
SuperscriptBox["z", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["z", "4"]}], ")"}], " ",
SuperscriptBox["\[Lambda]", "2"]}]}], ")"}], " ",
RowBox[{
SuperscriptBox["Z1x", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "z", "]"}]}]}]}], ";"}], "\n",
RowBox[{
RowBox[{
RowBox[{"hsound", "=",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"4", " ",
SuperscriptBox["k", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "+",
SuperscriptBox["z", "4"]}], ")"}], " ",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"4", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox["z", "2"]}], "+",
SuperscriptBox["z", "4"]}], ")"}]}], "+",
RowBox[{"8", " ", "\[ImaginaryI]", " ",
SuperscriptBox["k", "2"], " ", "z", " ",
RowBox[{"(",
RowBox[{"9", "+",
RowBox[{"5", " ",
SuperscriptBox["z", "4"]}]}], ")"}], " ", "\[Lambda]"}], "+",
RowBox[{"12", " ",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"4", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox["z", "2"]}], "+",
RowBox[{"9", " ",
SuperscriptBox["z", "4"]}]}], ")"}], " ",
SuperscriptBox["\[Lambda]", "2"]}], "-",
RowBox[{"72", " ", "\[ImaginaryI]", " ", "z", " ",
SuperscriptBox["\[Lambda]", "3"]}]}], ")"}], " ",
RowBox[{"Z2", "[", "z", "]"}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "4"}], " ",
SuperscriptBox["k", "2"], " ", "z", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "9"}], "+",
RowBox[{"16", " ",
SuperscriptBox["z", "4"]}], "+",
SuperscriptBox["z", "8"]}], ")"}]}], "-",
RowBox[{"16", " ", "\[ImaginaryI]", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox["z", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "+",
SuperscriptBox["z", "4"]}], ")"}], " ", "\[Lambda]"}], "+",
RowBox[{"12", " ", "z", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "+",
RowBox[{"7", " ",
SuperscriptBox["z", "4"]}]}], ")"}], " ",
SuperscriptBox["\[Lambda]", "2"]}], "-",
RowBox[{"48", " ", "\[ImaginaryI]", " ",
SuperscriptBox["z", "2"], " ",
SuperscriptBox["\[Lambda]", "3"]}]}], ")"}], " ",
RowBox[{
SuperscriptBox["Z2", "\[Prime]",
MultilineFunction->None], "[", "z", "]"}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"4", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox["z", "2"], " ",
RowBox[{"(",
RowBox[{"3", "-",
RowBox[{"4", " ",
SuperscriptBox["z", "4"]}], "+",
SuperscriptBox["z", "8"]}], ")"}]}], "+",
RowBox[{"12", " ",
SuperscriptBox["z", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["z", "4"]}], ")"}], " ",
SuperscriptBox["\[Lambda]", "2"]}]}], ")"}], " ",
RowBox[{
SuperscriptBox["Z2", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "z", "]"}]}]}]}], ";"}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Atransverse", "=",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox["z", "2"]}], "+",
RowBox[{"3", " ",
SuperscriptBox["z", "4"]}], "-",
RowBox[{"2", " ", "\[ImaginaryI]", " ", "z", " ", "\[Lambda]"}]}],
")"}], " ",
RowBox[{"Ex", "[", "z", "]"}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"z", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"5", " ",
SuperscriptBox["z", "4"]}]}], ")"}]}], "-",
RowBox[{"4", " ", "\[ImaginaryI]", " ",
SuperscriptBox["z", "2"], " ", "\[Lambda]"}]}], ")"}], " ",
RowBox[{
SuperscriptBox["Ex", "\[Prime]",
MultilineFunction->None], "[", "z", "]"}]}], "+",
RowBox[{
SuperscriptBox["z", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["z", "4"]}], ")"}], " ",
RowBox[{
SuperscriptBox["Ex", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "z", "]"}]}]}]}], ";"}], "\n",
RowBox[{
RowBox[{"Adiffusive", "=",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"4", " ",
SuperscriptBox["k", "2"], " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox["z", "2"]}], "-",
SuperscriptBox["z", "4"]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["z", "4"]}], ")"}]}], "+",
RowBox[{"8", " ", "\[ImaginaryI]", " ",
SuperscriptBox["k", "2"], " ", "z", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"3", " ",
SuperscriptBox["z", "4"]}]}], ")"}], " ", "\[Lambda]"}], "+",
RowBox[{"4", " ",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"4", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox["z", "2"]}], "+",
RowBox[{"3", " ",
SuperscriptBox["z", "4"]}]}], ")"}], " ",
SuperscriptBox["\[Lambda]", "2"]}], "-",
RowBox[{"8", " ", "\[ImaginaryI]", " ", "z", " ",
SuperscriptBox["\[Lambda]", "3"]}]}], ")"}], " ",
RowBox[{"Ez", "[", "z", "]"}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"4", " ",
SuperscriptBox["k", "2"], " ", "z", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["z", "4"]}], ")"}], "2"]}], "-",
RowBox[{"16", " ", "\[ImaginaryI]", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox["z", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["z", "4"]}], ")"}], " ", "\[Lambda]"}], "+",
RowBox[{"4", " ", "z", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"5", " ",
SuperscriptBox["z", "4"]}]}], ")"}], " ",
SuperscriptBox["\[Lambda]", "2"]}], "-",
RowBox[{"16", " ", "\[ImaginaryI]", " ",
SuperscriptBox["z", "2"], " ",
SuperscriptBox["\[Lambda]", "3"]}]}], ")"}], " ",
RowBox[{
SuperscriptBox["Ez", "\[Prime]",
MultilineFunction->None], "[", "z", "]"}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"4", " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox["z", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["z", "4"]}], ")"}], "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["z", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["z", "4"]}], ")"}], " ",
SuperscriptBox["\[Lambda]", "2"]}]}], ")"}], " ",
RowBox[{
SuperscriptBox["Ez", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "z", "]"}]}]}]}], ";"}]}], "Input",
InitializationCell->True,
CellChangeTimes->{{3.6755974877962227`*^9, 3.675597516684429*^9}, {
3.675597888511064*^9, 3.675597890556528*^9}, {3.675598137170508*^9,
3.675598143722136*^9}, {3.675598212497631*^9, 3.67559826315042*^9}, {
3.6755983061906977`*^9, 3.6755983091836643`*^9}}]
}, Open ]],
Cell[CellGroupData[{
Cell["Computing modes at k=1 in all channels", "Section",
CellChangeTimes->{{3.675675762014955*^9, 3.67567577665331*^9}}],
Cell[CellGroupData[{
Cell["Scalar channel", "Subsection",
CellChangeTimes->{{3.675598314107692*^9, 3.675598316567528*^9}}],
Cell[CellGroupData[{
Cell["\<\
First at machine precision, using 40 and 60 gridpoints and taking only the \
converged values\
\>", "Subsubsection",
CellChangeTimes->{{3.67559852715554*^9, 3.6755985532513523`*^9}}],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{"scalarModes", "=",
RowBox[{"GetAccurateModes", "[",
RowBox[{
RowBox[{"hscalar", "/.",
RowBox[{"k", "\[Rule]", "1"}]}], ",",
RowBox[{"{",
RowBox[{"40", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"60", ",", "0"}], "}"}]}], "]"}]}], ";"}], "//",
"AbsoluteTiming"}], "\[IndentingNewLine]",
RowBox[{"ShowModes", "[", "scalarModes", "]"}]}], "Input",
CellChangeTimes->{{3.675598317885212*^9, 3.6755983929211693`*^9}, {
3.6868126479108257`*^9, 3.686812648670698*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{"0.035303`", ",", "Null"}], "}"}]], "Output",
CellChangeTimes->{
3.675598394164893*^9, 3.675679755833089*^9, 3.675762369708473*^9,
3.675933457386528*^9, 3.685102196012492*^9, 3.6851935251876574`*^9,
3.685194119464284*^9, 3.685194221149126*^9, 3.685194253898512*^9,
3.685194326554193*^9, 3.685199080512429*^9, 3.6857824449613037`*^9, {
3.686812626782868*^9, 3.686812651917984*^9}, 3.686816569504964*^9,
3.714301338641651*^9, 3.714301387397571*^9, 3.714306340608946*^9}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
GraphicsBox[{{}, {{},
{RGBColor[0, 0, 1], PointSize[Large], AbsoluteThickness[1.6],
StyleBox[
PointBox[{{
1.9543308837954625`, -1.2673272634041308`}, {-1.9543308837936273`, \
-1.2673272634094777`}, {-2.8802625608359675`, -2.2979570209234645`}, {
2.880262564056592, -2.297957022921613}, {
3.836625509588087, -3.3149009087033074`}, {-3.8366221776344, \
-3.3149037112890767`}}],
FontSize->30]}, {}}, {}, {}, {{}, {}}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{0., 0.},
BaseStyle->{FontSize -> 30},
DisplayFunction->Identity,
Frame->{{True, True}, {True, True}},
FrameLabel->{{
FormBox["\"Im \[Omega]\"", TraditionalForm], None}, {
FormBox["\"Re \[Omega]\"", TraditionalForm], None}},
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
GridLines->{None, None},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
ImagePadding->All,
ImageSize->600,
LabelStyle->{FontSize -> 30},
Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
(Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
Part[#, 1]],
(Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
(Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
Part[#, 1]],
(Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
Part[#, 2]]}& )}},
PlotRange->{{-3.8366221776344, 3.836625509588087}, {-3.3149037112890767`,
0.}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.02]}},
Ticks->{Automatic, Automatic}], ",",
TagBox[GridBox[{
{"\<\"n\"\>", "\<\"Re \\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(n\\)]\\)\
\"\>", "\<\"Im \\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(n\\)]\\)\"\>"},
{"1", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"1.95433088379546249235829691315302625299`10.\\\", \
TraditionalForm]\\)\"\>",
RowBox[{
"-", "1.2673272634041308215557819494279101491`9.886182787180948"}]},
{"2", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"2.8802625608359675446`7.043552862994862\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "2.2979570209234645439`6.945462685479504"}]},
{"3", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"3.836625509588087013`3.0294280379923695\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "3.3149009087033074472`2.9659491786205336"}]}
},
AutoDelete->False,
GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
"Grid"]}], "}"}]], "Output",
CellChangeTimes->{
3.675598394164893*^9, 3.675679755833089*^9, 3.675762369708473*^9,
3.675933457386528*^9, 3.685102196012492*^9, 3.6851935251876574`*^9,
3.685194119464284*^9, 3.685194221149126*^9, 3.685194253898512*^9,
3.685194326554193*^9, 3.685199080512429*^9, 3.6857824449613037`*^9, {
3.686812626782868*^9, 3.686812651917984*^9}, 3.686816569504964*^9,
3.714301338641651*^9, 3.714301387397571*^9, 3.7143063407971992`*^9}]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["\<\
Now increase the gridsize and use higher precision (half of the gridsize as \
by default)\
\>", "Subsubsection",
CellChangeTimes->{{3.6755985560516357`*^9, 3.6755985726228123`*^9}}],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{"scalarModesAccurate", "=",
RowBox[{"GetAccurateModes", "[",
RowBox[{
RowBox[{"hscalar", "/.",
RowBox[{"k", "\[Rule]", "1"}]}], ",",
RowBox[{"{", "80", "}"}], ",",
RowBox[{"{", "60", "}"}]}], "]"}]}], ";"}], "//",
"AbsoluteTiming"}], "\[IndentingNewLine]",
RowBox[{"ShowModes", "[", "scalarModesAccurate", "]"}]}], "Input",
CellChangeTimes->{{3.675598317885212*^9, 3.6755984137783957`*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{"20.630203`", ",", "Null"}], "}"}]], "Output",
CellChangeTimes->{3.6755984292610197`*^9, 3.675679777993935*^9,
3.67576239128891*^9, 3.675933480533312*^9, 3.685102218959323*^9,
3.685193547416953*^9, 3.6851941310400047`*^9, 3.6851943471873617`*^9,
3.6851991032275743`*^9, 3.685782465090556*^9, 3.686812674121438*^9,
3.686816588269261*^9, 3.714301365570436*^9, 3.714301410347158*^9,
3.714304461844286*^9, 3.7143063614499197`*^9}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
GraphicsBox[{{}, {{},
{RGBColor[0, 0, 1], PointSize[Large], AbsoluteThickness[1.6],
StyleBox[
PointBox[{{
1.9543308837904205`, -1.267327263417064}, {-1.9543308837904205`, \
-1.267327263417064}, {
2.880262564849642, -2.297957046519873}, {-2.880262564849642, \
-2.297957046519873}, {
3.836632222933903, -3.314907160289994}, {-3.836632222933903, \
-3.314907160289994}, {
4.807392343053173, -4.325871369550775}, {-4.807392343053173, \
-4.325871369550775}, {
5.786181876737801, -5.3336222039393615`}, {-5.786181876737801, \
-5.3336222039393615`}, {
6.769957867493677, -6.33943016081114}, {-6.769957867493677, \
-6.33943016081114}, {
7.757067391771362, -7.343968329549084}, {-7.757067391771362, \
-7.343968329549084}, {
8.741077653078984, -8.344658678454831}, {-8.741077653078984, \
-8.344658678454831}}],
FontSize->30]}, {}}, {}, {}, {{}, {}}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{0., 0.},
BaseStyle->{FontSize -> 30},
DisplayFunction->Identity,
Frame->{{True, True}, {True, True}},
FrameLabel->{{
FormBox["\"Im \[Omega]\"", TraditionalForm], None}, {
FormBox["\"Re \[Omega]\"", TraditionalForm], None}},
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
GridLines->{None, None},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
ImagePadding->All,
ImageSize->600,
LabelStyle->{FontSize -> 30},
Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
(Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
Part[#, 1]],
(Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
(Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
Part[#, 1]],
(Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
Part[#, 2]]}& )}},
PlotRange->{{-8.741077653078984, 8.741077653078984}, {-8.344658678454831,
0.}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.02]}},
Ticks->{Automatic, Automatic}], ",",
TagBox[GridBox[{
{"\<\"n\"\>", "\<\"Re \\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(n\\)]\\)\
\"\>", "\<\"Im \\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(n\\)]\\)\"\>"},
{"1", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"1.95433088379042054659643156009409358897`10.\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "1.26732726341706410285040874004416730597`10."}]},
{"2", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"2.88026256484964186186910686804374392977`10.\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "2.29795704651987325803990291860176494709`10."}]},
{"3", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"3.83663222293390334207731362514692818877`10.\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "3.31490716028999405306197656440048149307`10."}]},
{"4", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"4.8073923430531724345`10.\\\", TraditionalForm]\\)\"\>",
RowBox[{"-", "4.3258713695507752899`10."}]},
{"5", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"5.7861818767378003502`10.\\\", TraditionalForm]\\)\"\>",
RowBox[{"-", "5.33362220393936163`10."}]},
{"6", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"6.7699578674936767129`9.013799466713193\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "6.3394301608111393864`8.985263722570554"}]},
{"7", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"7.7570673917713620046`6.011558387605022\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "7.343968329549084448`5.98779161841192"}]},
{"8", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"8.7410776530789834`3.009844410539543\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "8.3446586784548301489`2.989688009578922"}]}
},
AutoDelete->False,
GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
"Grid"]}], "}"}]], "Output",
CellChangeTimes->{3.6755984292610197`*^9, 3.675679777993935*^9,
3.67576239128891*^9, 3.675933480533312*^9, 3.685102218959323*^9,
3.685193547416953*^9, 3.6851941310400047`*^9, 3.6851943471873617`*^9,
3.6851991032275743`*^9, 3.685782465090556*^9, 3.686812674121438*^9,
3.686816588269261*^9, 3.714301365570436*^9, 3.714301410347158*^9,
3.714304461844286*^9, 3.714306361482512*^9}]
}, Open ]]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["Transverse channel", "Subsection",
CellChangeTimes->{{3.675598314107692*^9, 3.675598316567528*^9}, {
3.675598650482747*^9, 3.6755986516087227`*^9}}],
Cell[CellGroupData[{
Cell["\<\
First at machine precision, using 40 and 60 gridpoints and taking only the \
converged values\
\>", "Subsubsection",
CellChangeTimes->{{3.67559852715554*^9, 3.6755985532513523`*^9}}],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{"AtransverseModes", "=",
RowBox[{"GetAccurateModes", "[",
RowBox[{
RowBox[{"Atransverse", "/.",
RowBox[{"k", "\[Rule]", "1"}]}], ",",
RowBox[{"{",
RowBox[{"40", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"60", ",", "0"}], "}"}]}], "]"}]}], ";"}], "//",
"AbsoluteTiming"}], "\[IndentingNewLine]",
RowBox[{"ShowModes", "[", "AtransverseModes", "]"}]}], "Input",
CellChangeTimes->{{3.675598317885212*^9, 3.6755983929211693`*^9}, {
3.675598653785355*^9, 3.6755986620474377`*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{"0.021124`", ",", "Null"}], "}"}]], "Output",
CellChangeTimes->{3.675598394164893*^9, 3.675679778378462*^9,
3.675762391836213*^9, 3.675933480742525*^9, 3.685102226286789*^9,
3.685193547650613*^9, 3.68519434743925*^9, 3.685199103481749*^9,
3.6857824654252663`*^9, 3.686812674256654*^9, 3.686816588478252*^9,
3.714301415019886*^9, 3.714306361653886*^9}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
GraphicsBox[{{}, {{},
{RGBColor[0, 0, 1], PointSize[Large], AbsoluteThickness[1.6],
StyleBox[
PointBox[{{
1.5471869782078773`, -0.8497231684015698}, {-1.5471869782085812`, \
-0.8497231684022052}, {-2.398903398556553, -1.8743431603276115`}, {
2.398903398579717, -1.8743431613279178`}, {
3.3232293909082546`, -2.894901134303262}, {-3.3232291726162235`, \
-2.894901226247172}, {
4.276523846050275, -3.9095403042552155`}, {-4.276544222976214, \
-3.9095723451829256`}}],
FontSize->30]}, {}}, {}, {}, {{}, {}}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{0., 0.},
BaseStyle->{FontSize -> 30},
DisplayFunction->Identity,
Frame->{{True, True}, {True, True}},
FrameLabel->{{
FormBox["\"Im \[Omega]\"", TraditionalForm], None}, {
FormBox["\"Re \[Omega]\"", TraditionalForm], None}},
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
GridLines->{None, None},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
ImagePadding->All,
ImageSize->600,
LabelStyle->{FontSize -> 30},
Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
(Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
Part[#, 1]],
(Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
(Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
Part[#, 1]],
(Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
Part[#, 2]]}& )}},
PlotRange->{{-4.276544222976214,
4.276523846050275}, {-3.9095723451829256`, 0.}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.02]}},
Ticks->{Automatic, Automatic}], ",",
TagBox[GridBox[{
{"\<\"n\"\>", "\<\"Re \\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(n\\)]\\)\
\"\>", "\<\"Im \\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(n\\)]\\)\"\>"},
{"1", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"1.54718697820787731700420408742502331734`10.\\\", \
TraditionalForm]\\)\"\>",
RowBox[{
"-", "0.84972316840156980610743175930110737681`9.833006485798725"}]},
{"2", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"2.3989033985565528795`8.047037092705564\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "1.8743431603276115016`7.939873438748931"}]},
{"3", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"3.3232293909082546435`5.027902560619891\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "2.8949011343032617916`4.967975976913134"}]},
{"4", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"4.276523846050275246`2.018609775426546\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "3.9095403042552154815`1.9796445721331675"}]}
},
AutoDelete->False,
GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
"Grid"]}], "}"}]], "Output",
CellChangeTimes->{3.675598394164893*^9, 3.675679778378462*^9,
3.675762391836213*^9, 3.675933480742525*^9, 3.685102226286789*^9,
3.685193547650613*^9, 3.68519434743925*^9, 3.685199103481749*^9,
3.6857824654252663`*^9, 3.686812674256654*^9, 3.686816588478252*^9,
3.714301415019886*^9, 3.714306361682776*^9}]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["\<\
Now increase the gridsize and use higher precision (half of the gridsize as \
by default)\
\>", "Subsubsection",
CellChangeTimes->{{3.6755985560516357`*^9, 3.6755985726228123`*^9}}],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{"AtransverseModesAccurate", "=",
RowBox[{"GetAccurateModes", "[",
RowBox[{
RowBox[{"Atransverse", "/.",
RowBox[{"k", "\[Rule]", "1"}]}], ",",
RowBox[{"{", "80", "}"}], ",",
RowBox[{"{", "60", "}"}]}], "]"}]}], ";"}], "//",
"AbsoluteTiming"}], "\[IndentingNewLine]",
RowBox[{"ShowModes", "[", "AtransverseModesAccurate", "]"}]}], "Input",
CellChangeTimes->{{3.675598317885212*^9, 3.6755984137783957`*^9}, {
3.6755986676449137`*^9, 3.6755986744315863`*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{"17.660793`", ",", "Null"}], "}"}]], "Output",
CellChangeTimes->{3.6755984292610197`*^9, 3.675620188955912*^9,
3.675679800281062*^9, 3.675762415179003*^9, 3.6759335038156967`*^9,
3.685102250988865*^9, 3.685193568378018*^9, 3.68519436741251*^9,
3.685199126965226*^9, 3.685782486246586*^9, 3.686812692860731*^9,
3.686816607550621*^9, 3.714301436896633*^9, 3.7143044435526342`*^9,
3.71430637935747*^9}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
GraphicsBox[{{}, {{},
{RGBColor[0, 0, 1], PointSize[Large], AbsoluteThickness[1.6],
StyleBox[
PointBox[{{
1.547186978210234, -0.8497231684015037}, {-1.547186978210234, \
-0.8497231684015037}, {
2.3989033992904885`, -1.874343159998409}, {-2.3989033992904885`, \
-1.874343159998409}, {
3.3232288980330793`, -2.8949007855921125`}, {-3.3232288980330793`, \
-2.8949007855921125`}, {
4.276431261944132, -3.9095831795450464`}, {-4.276431261944132, \
-3.9095831795450464`}, {
5.24405829684295, -4.92034642927949}, {-5.24405829684295, \
-4.92034642927949}, {
6.22003627355275, -5.928545740798645}, {-6.22003627355275, \
-5.928545740798645}, {
7.201340843525983, -6.935003776172906}, {-7.201340843525983, \
-6.935003776172906}, {
8.186296756398184, -7.9400618378194725`}, {-8.186296756398184, \
-7.9400618378194725`}}],
FontSize->30]}, {}}, {}, {}, {{}, {}}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{0., 0.},
BaseStyle->{FontSize -> 30},
DisplayFunction->Identity,
Frame->{{True, True}, {True, True}},
FrameLabel->{{
FormBox["\"Im \[Omega]\"", TraditionalForm], None}, {
FormBox["\"Re \[Omega]\"", TraditionalForm], None}},
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
GridLines->{None, None},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
ImagePadding->All,
ImageSize->600,
LabelStyle->{FontSize -> 30},
Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
(Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
Part[#, 1]],
(Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
(Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
Part[#, 1]],
(Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
Part[#, 2]]}& )}},
PlotRange->{{-8.186296756398184,
8.186296756398184}, {-7.9400618378194725`, 0.}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.02]}},
Ticks->{Automatic, Automatic}], ",",
TagBox[GridBox[{
{"\<\"n\"\>", "\<\"Re \\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(n\\)]\\)\
\"\>", "\<\"Im \\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(n\\)]\\)\"\>"},
{"1", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"1.54718697821023408847267832530012689762`10.\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "0.84972316840150369577037330572481349522`10."}]},
{"2", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"2.39890339929048856704467060363406005763`10.\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "1.87434315999840904700009895613177844691`10."}]},
{"3", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"3.3232288980330792177550654209472469347`10.\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "2.89490078559211244522064374051772972507`10."}]},
{"4", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"4.2764312619441314191`10.\\\", TraditionalForm]\\)\"\>",
RowBox[{"-", "3.90958317954504632206523886961413438712`10."}]},
{"5", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"5.2440582968429498607`10.\\\", TraditionalForm]\\)\"\>",
RowBox[{"-", "4.9203464292794900201`10."}]},
{"6", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"6.2200362735527493128`10.\\\", TraditionalForm]\\)\"\>",
RowBox[{"-", "5.9285457407986449489`10."}]},
{"7", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"7.2013408435259832163`7.008029171891457\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "6.9350037761729063411`6.99166250696786"}]},
{"8", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"8.1862967563981838978`4.006530545871556\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "7.9400618378194723764`3.9932669466948445"}]}
},
AutoDelete->False,
GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
"Grid"]}], "}"}]], "Output",
CellChangeTimes->{3.6755984292610197`*^9, 3.675620188955912*^9,
3.675679800281062*^9, 3.675762415179003*^9, 3.6759335038156967`*^9,
3.685102250988865*^9, 3.685193568378018*^9, 3.68519436741251*^9,
3.685199126965226*^9, 3.685782486246586*^9, 3.686812692860731*^9,
3.686816607550621*^9, 3.714301436896633*^9, 3.7143044435526342`*^9,
3.7143063793928347`*^9}]
}, Open ]]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["Shear channel", "Subsection",
CellChangeTimes->{{3.6755984638705807`*^9, 3.675598465088423*^9}}],
Cell["\<\
For this equation, notice first that it contains a third power of \[Lambda]. \
We have to linearize the equations in \[Lambda] by defining new functions \
which are \[Lambda]-multiples of the original.
This is done automatically, but it results in a matrix which is of size 3x \
the grid size.
Of course this slows down the computation, alternatively one can sweep the \
complex plane looking for zeroes of the determinant.\
\>", "Text",
CellChangeTimes->{{3.6755987173126497`*^9, 3.67559880677428*^9}, {
3.675598925091873*^9, 3.6755989384570303`*^9}, {3.68510226773531*^9,
3.6851022751757383`*^9}}],
Cell[TextData[{
StyleBox["Note that near the boundary the equation is proportional to ",
FontSlant->"Italic"],
Cell[BoxData[
FormBox[
RowBox[{
SuperscriptBox["\[Lambda]", "2"], "-",
SuperscriptBox["k", "2"]}], TraditionalForm]],
FontSlant->"Italic"],
StyleBox[":",
FontSlant->"Italic"]
}], "Text",
CellChangeTimes->{{3.6756833289079647`*^9, 3.675683339053824*^9}, {
3.714301435682748*^9, 3.7143014368841047`*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"Series", "[",
RowBox[{"hshear", ",",
RowBox[{"{",
RowBox[{"z", ",", "0", ",", "0"}], "}"}]}], "]"}], "//",
"Simplify"}]], "Input",
CellChangeTimes->{{3.675683340725554*^9, 3.67568335382516*^9}}],
Cell[BoxData[
InterpretationBox[
RowBox[{
RowBox[{"36", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox["k", "2"]}], "+",
SuperscriptBox["\[Lambda]", "2"]}], ")"}], " ",
RowBox[{"Z1x", "[", "0", "]"}]}], "+",
InterpretationBox[
SuperscriptBox[
RowBox[{"O", "[", "z", "]"}], "1"],
SeriesData[$CellContext`z, 0, {}, 0, 1, 1],
Editable->False]}],
SeriesData[$CellContext`z, 0, {
36 (-$CellContext`k^2 + $CellContext`\[Lambda]^2) $CellContext`Z1x[0]}, 0,
1, 1],
Editable->False]], "Output",
CellChangeTimes->{{3.675683349611149*^9, 3.6756833540698757`*^9},
3.6757624153892937`*^9, 3.675933504107267*^9, 3.6851022782040453`*^9,
3.68519356852409*^9, 3.685194367562284*^9, 3.685199127105166*^9,
3.685782486468521*^9, 3.68681269304681*^9, 3.686816607647745*^9,
3.71430144027481*^9, 3.714306379514257*^9}]
}, Open ]],
Cell[TextData[{
StyleBox["This causes the appearance of incorrect solutions where ",
FontSlant->"Italic"],
Cell[BoxData[
FormBox[
RowBox[{"\[Lambda]", "\[TildeTilde]",
RowBox[{"\[PlusMinus]", "k"}]}], TraditionalForm]],
FormatType->"TraditionalForm"],
StyleBox[", which unfortunately are not filtered out by \
\[OpenCurlyQuote]GetAccurateModes\[CloseCurlyQuote].",
FontSlant->"Italic"]
}], "Text",
CellChangeTimes->{{3.675683358560062*^9, 3.675683420474979*^9}, {
3.685102265026834*^9, 3.685102271232235*^9}, {3.714301460547606*^9,
3.714301494428072*^9}}],
Cell[CellGroupData[{
Cell["\<\
First at machine precision, using 40 and 60 gridpoints and taking only the \
converged values\
\>", "Subsubsection",
CellChangeTimes->{{3.67559852715554*^9, 3.6755985532513523`*^9}}],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{"shearModes", "=",
RowBox[{"GetAccurateModes", "[",
RowBox[{
RowBox[{"hshear", "/.",
RowBox[{"k", "\[Rule]", "1"}]}], ",",
RowBox[{"{",
RowBox[{"40", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"60", ",", "0"}], "}"}]}], "]"}]}], ";"}], "//",
"AbsoluteTiming"}], "\[IndentingNewLine]",
RowBox[{"ShowModes", "[", "shearModes", "]"}]}], "Input",
CellChangeTimes->{{3.675598479085763*^9, 3.675598485524274*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{"0.202068`", ",", "Null"}], "}"}]], "Output",
CellChangeTimes->{3.675598486236977*^9, 3.675679800794517*^9,
3.675762415892929*^9, 3.675933504696094*^9, 3.685102281362576*^9,
3.685193568710473*^9, 3.6851943677671833`*^9, 3.68519912740583*^9,
3.685782486709981*^9, 3.686812699147786*^9, 3.686816607846601*^9,
3.714301448175516*^9, 3.714302140274012*^9, 3.714302532970352*^9,
3.71430637973308*^9}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
GraphicsBox[{{}, {{},
{RGBColor[0, 0, 1], PointSize[Large], AbsoluteThickness[1.6],
StyleBox[PointBox[CompressedData["
1:eJxTTMoPSmViYGDQBmIQzcIAAh/sGaBgLvO/////v4fzTbu2/EPmG215/QyZ
zwTRvx/GP/f/L0g/nP+qF6wfzreF6Ifz1bWfGSCbpwDhw+W/X1K8+BtJfi+E
D5e/dYzx83skeenjYD5c/tv03f/OIsnrzgDz4fIasy+0VSHJM0P4cPlU/rqv
h/8h5PcdbwLx4fJHE68pRPxFyM88cQ7Eh8tvLNvgveMXQp41cjOID5cXltpT
rPMNIV8iDuYjwi9RSWL7O4R8kKomiA+XF3v/5QLXY4T8km3PQHy4vNmytQLN
FxHyR5W3gvhw+fli4Q6KOxDyl1jBfLj84wMSgv1TEPIPr4P5cHkY2KS2+mCU
8uP9sx5pJoWp/rHf6f7OMW7Vl/3Fplog/v5Z/9+C+eW5W7ZF3mU9EHxV22v1
EqYDwp06O4B8h38iNWD+/CpXaYtdvA5+j+YvdzrMdcC+QkzWfBfvgR7zBiYX
IB8A/inmJQ==
"]],
FontSize->30]}, {}}, {}, {}, {{}, {}}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{0., 0.},
BaseStyle->{FontSize -> 30},
DisplayFunction->Identity,
Frame->{{True, True}, {True, True}},
FrameLabel->{{
FormBox["\"Im \[Omega]\"", TraditionalForm], None}, {
FormBox["\"Re \[Omega]\"", TraditionalForm], None}},
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
GridLines->{None, None},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
ImagePadding->All,
ImageSize->600,
LabelStyle->{FontSize -> 30},
Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
(Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
Part[#, 1]],
(Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
(Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
Part[#, 1]],
(Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
Part[#, 2]]}& )}},
PlotRange->{{-3.7159254333955967`,
3.7159273272112183`}, {-3.3453445620897977`, 0.}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.02]}},
Ticks->{Automatic, Automatic}], ",",
TagBox[GridBox[{
{"\<\"n\"\>", "\<\"Re \\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(n\\)]\\)\
\"\>", "\<\"Im \\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(n\\)]\\)\"\>"},
{"1", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"1.00000000000000088817841970012523233891`10.\\\", \
TraditionalForm]\\)\"\>", "0``17.23253275820529"},
{"2", "\<\"\\!\\(\\*FormBox[\\\"0``12.333546441139616\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "0.59806573701754062177826654078671708703`10."}]},
{"3", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"1.75911558480416951866232011525426059961`10.\\\", \
TraditionalForm]\\)\"\>",
RowBox[{
"-", "1.29159379724704437286675329232821241021`9.922714236038189"}]},
{"4", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"2.7330812715351231468`7.031863937010106\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "2.3304048342348919753`6.962642763373591"}]},
{"5", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"3.7159273272112183228`4.021617166371545\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "3.3453419776599622182`3.975990474647084"}]}
},
AutoDelete->False,
GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
"Grid"]}], "}"}]], "Output",
CellChangeTimes->{3.675598486236977*^9, 3.675679800794517*^9,
3.675762415892929*^9, 3.675933504696094*^9, 3.685102281362576*^9,
3.685193568710473*^9, 3.6851943677671833`*^9, 3.68519912740583*^9,
3.685782486709981*^9, 3.686812699147786*^9, 3.686816607846601*^9,
3.714301448175516*^9, 3.714302140274012*^9, 3.714302532970352*^9,
3.71430637980155*^9}]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["\<\
Now increase the gridsize and use higher precision (half of the gridsize as \
by default)\
\>", "Subsubsection",
CellChangeTimes->{{3.6755985560516357`*^9, 3.6755985726228123`*^9}}],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{"shearModesAccurate", "=",
RowBox[{"GetAccurateModes", "[",
RowBox[{
RowBox[{"hshear", "/.",
RowBox[{"k", "\[Rule]", "1"}]}], ",",
RowBox[{"{", "80", "}"}], ",",
RowBox[{"{", "60", "}"}]}], "]"}]}], ";"}], "//",
"AbsoluteTiming"}], "\[IndentingNewLine]",
RowBox[{"ShowModes", "[",
RowBox[{"shearModesAccurate", ",",
RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], "Input",
CellChangeTimes->{{3.675598479085763*^9, 3.675598511403153*^9},
3.675598987881298*^9}],
Cell[BoxData[
RowBox[{"{",
RowBox[{"249.424274`", ",", "Null"}], "}"}]], "Output",
CellChangeTimes->{3.675598818266225*^9, 3.6756801069970417`*^9,
3.675762720823135*^9, 3.675933829241963*^9, 3.685102574951898*^9,
3.685193863680276*^9, 3.685194656880142*^9, 3.6851994290266438`*^9,
3.685782781130724*^9, 3.686812979599247*^9, 3.686813451531514*^9,
3.686814413450905*^9, 3.686816869379678*^9, 3.714301765033238*^9,
3.714302413934568*^9, 3.7143028683939037`*^9, 3.714306629253522*^9}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
GraphicsBox[{{}, {{},
{RGBColor[0, 0, 1], PointSize[Large], AbsoluteThickness[1.6],
StyleBox[PointBox[CompressedData["
1:eJxlzV1IU3EYx/G5maTiRZqOFtpWE8pNULxcuGNKtVIMFbFFvkEHBGnG2IUk
1o00IkFFTFF6oUHQEoNAOCWe49sEIVjWhQj5tgIbs825oRxmZfj8n//f9cDh
nA9fOD9ds63qjlKhUJQfPP/ehxcyk6+3/j8HF0QPKXaOOKNTecSuMXGXdfw9
mFr6+n8PiXF7aNhDwx4a9tDwf3R1ja6O3QNj1/icgX2mg7H3XUy+JTMdjP3e
pscaZjoYeyz9aXSd6WDsi/1rH6eZDsZu0l+de8x0MPa1hNFOA9PB2C/bH1p6
ftMOxs4buMjIPu1g7EJRn9oYox2MPbPDz6fJtIOxXzvbnpS4SzsY+4BbL8+G
aQdjt8/cmI4GaAdjP+lMMhl+0A6m+x3vvZvLzP6hsbc15Z9+8Yl2MPaRV7rA
uwnawdgrvu9ZkrtpB2Nv0DyLTbbSDsa+yjsdwSzawdiNjSue/tVf5jhjJ+c5
7p6ynvOJd1cuNNfmxsyFFVsl9W8ixCLa+nL85rdjXNelhXK3SymBJeKa6115
pg9p3JWfKnXpTAqxRDy5sxx65E3n+A1Pgdxyglgi1t/u1qbOZ3GV2/eFWlsm
sUT8/PWZ4mFRw5VpFwM59lPEEjGvWnoyKORw+i8LcsSRTSwRC5W9s7Y6HVd2
fvhzu6Alloj/AiFloKo=
"]],
FontSize->30]}, {}}, {}, {}, {{}, {}}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{0., 0.},
BaseStyle->{FontSize -> 30},
DisplayFunction->Identity,
Frame->{{True, True}, {True, True}},
FrameLabel->{{
FormBox["\"Im \[Omega]\"", TraditionalForm], None}, {
FormBox["\"Re \[Omega]\"", TraditionalForm], None}},
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
GridLines->{None, None},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
ImagePadding->All,
ImageSize->600,
LabelStyle->{FontSize -> 30},
Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
(Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
Part[#, 1]],
(Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
(Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
Part[#, 1]],
(Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
Part[#, 2]]}& )}},
PlotRange->{{-8.672727720964632, 8.672727720964632}, {-8.362257528486346,
0.}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.02]}},
Ticks->{Automatic, Automatic}], ",",
TagBox[GridBox[{
{"\<\"n\"\>", "\<\"Re \\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(n\\)]\\)\
\"\>", "\<\"Im \\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(n\\)]\\)\"\>"},
{"1", "\<\"\[PlusMinus] \\!\\(\\*FormBox[\\\"1.`10.\\\", \
TraditionalForm]\\)\"\>", "0``42.35813771481077"},
{"2", "\<\"\\!\\(\\*FormBox[\\\"0``26.18105601589543\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "0.59806573701669015450248129549086833797`10."}]},
{"3", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"1.75911558480393235914524102134490314451`10.\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "1.29159379723280342580059792695611200767`10."}]},
{"4", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"2.73308127097998646850510878758555577406`10.\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "2.33040485374687259792665650071086247408`10."}]},
{"5", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"3.71593316287309412911023936976206982763`10.\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "3.34534280758558433206727514286349389749`10."}]},
{"6", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"4.7036435731542361729`10.\\\", TraditionalForm]\\)\"\>",
RowBox[{"-", "4.3534934636487373733`10."}]},
{"7", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"5.6943783842355383836`10.\\\", TraditionalForm]\\)\"\>",
RowBox[{"-", "5.3587292653940742695`10."}]},
{"8", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"6.687115641290715844`9.010539290307547\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "6.3624226573229556548`8.988922972743625"}]},
{"9", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"7.6812459952205694757`6.008932171623297\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "7.3651923357290660528`5.990684590378773"}]},
{"10", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"8.6727277209646327967`3.007771828666234\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "8.3622575284863458832`2.991939654856391"}]}
},
AutoDelete->False,
GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
"Grid"]}], "}"}]], "Output",
CellChangeTimes->{3.675598818266225*^9, 3.6756801069970417`*^9,
3.675762720823135*^9, 3.675933829241963*^9, 3.685102574951898*^9,
3.685193863680276*^9, 3.685194656880142*^9, 3.6851994290266438`*^9,
3.685782781130724*^9, 3.686812979599247*^9, 3.686813451531514*^9,
3.686814413450905*^9, 3.686816869379678*^9, 3.714301765033238*^9,
3.714302413934568*^9, 3.7143028683939037`*^9, 3.714306629322543*^9}]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["Filter eigenfunctions", "Subsubsection",
CellChangeTimes->{{3.686812724064094*^9, 3.686812731448102*^9}}],
Cell["\<\
Note that there are still a lot of unphysical eigenvalues, those with \
imaginary part equal or close to zero.
To filter these out, we can check if the corresponding eigenfunctions are \
finite, smooth and nonzero.
To do this we must of course compute them. Instead of setting Eigenfunctions \
-> True, we use Eigenfunctions -> \[OpenCurlyDoubleQuote]Later\
\[CloseCurlyDoubleQuote] here. This will first compute the eigenvalues \
without the eigenfunctions, then check which have converged, and only for \
those compute the corresponding eigenfunction. This is not always faster, but \
in this case it is.
Finally we also do a more strict test on convergence by setting Cutoff -> 6, \
demanding 6 digits of agreement between the two computations\
\>", "Text",
CellChangeTimes->{{3.686812732835678*^9, 3.686812911059391*^9}}],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{"shearModesAccurate2", "=",
RowBox[{"GetAccurateModes", "[",
RowBox[{
RowBox[{"hshear", "/.",
RowBox[{"k", "\[Rule]", "1"}]}], ",",
RowBox[{"{", "80", "}"}], ",",
RowBox[{"{", "60", "}"}], ",",
RowBox[{"Eigenfunctions", "\[Rule]", "\"\<Later\>\""}], ",",
RowBox[{"Cutoff", "\[Rule]", "6"}], ",",
RowBox[{"FilterEigenfunctions", "\[Rule]", "True"}]}], "]"}]}], ";"}], "//",
"AbsoluteTiming"}], "\[IndentingNewLine]",
RowBox[{"ShowModes", "[",
RowBox[{"shearModesAccurate2", ",",
RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], "Input",
CellChangeTimes->{{3.675598479085763*^9, 3.675598511403153*^9},
3.675598987881298*^9, {3.686812913893065*^9, 3.686812926463379*^9},
3.686813013247878*^9, {3.68681345923351*^9, 3.686813477777375*^9}, {
3.686813518203722*^9, 3.686813524034335*^9}, {3.686813566398716*^9,
3.686813566857815*^9}, {3.686814160046775*^9, 3.68681416038093*^9}, {
3.714302019731122*^9, 3.714302022880464*^9}, {3.714302935935425*^9,
3.714302968155938*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{"0.533244`", ",", "Null"}], "}"}]], "Output",
CellChangeTimes->{
3.686812984999432*^9, {3.686813452400556*^9, 3.68681347904315*^9},
3.6868135258041553`*^9, 3.686813567614285*^9, 3.686814414308247*^9,
3.686816870163033*^9, 3.714301868168334*^9, 3.714302025774983*^9,
3.714302415131584*^9, 3.714302465000184*^9, 3.71430286923827*^9, {
3.714302936957271*^9, 3.714302968880124*^9}, 3.7143066299695377`*^9}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
GraphicsBox[{{}, {{},
{RGBColor[0, 0, 1], PointSize[Large], AbsoluteThickness[1.6],
StyleBox[
PointBox[{{0., 0.}, {0., -0.5980657370166902}, {
1.7591155848039324`, -1.2915937972328033`}, {-1.7591155848039324`, \
-1.2915937972328033`}, {
2.7330812709799863`, -2.3304048537468725`}, {-2.7330812709799863`, \
-2.3304048537468725`}, {
3.7159331628730943`, -3.345342807585584}, {-3.7159331628730943`, \
-3.345342807585584}, {
4.7036435731542365`, -4.3534934636487375`}, {-4.7036435731542365`, \
-4.3534934636487375`}, {
5.694378384235538, -5.358729265394074}, {-5.694378384235538, \
-5.358729265394074}, {
6.687115641290716, -6.362422657322956}, {-6.687115641290716, \
-6.362422657322956}, {
7.68124599522057, -7.365192335729066}, {-7.68124599522057, \
-7.365192335729066}}],
FontSize->30]}, {}}, {}, {}, {{}, {}}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{0., 0.},
BaseStyle->{FontSize -> 30},
DisplayFunction->Identity,
Frame->{{True, True}, {True, True}},
FrameLabel->{{
FormBox["\"Im \[Omega]\"", TraditionalForm], None}, {
FormBox["\"Re \[Omega]\"", TraditionalForm], None}},
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
GridLines->{None, None},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
ImagePadding->All,
ImageSize->600,
LabelStyle->{FontSize -> 30},
Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
(Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
Part[#, 1]],
(Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
(Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
Part[#, 1]],
(Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
Part[#, 2]]}& )}},
PlotRange->{{-7.68124599522057, 7.68124599522057}, {-7.365192335729066,
0.}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.02]}},
Ticks->{Automatic, Automatic}], ",",
TagBox[GridBox[{
{"\<\"n\"\>", "\<\"Re \\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(n\\)]\\)\
\"\>", "\<\"Im \\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(n\\)]\\)\"\>"},
{"1", "\<\"\\!\\(\\*FormBox[\\\"0\\\", TraditionalForm]\\)\"\>", "0"},
{"2", "\<\"\\!\\(\\*FormBox[\\\"0``26.18105601589543\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "0.59806573701669015450248129549086833797`10."}]},
{"3", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"1.75911558480393235914524102134490314451`10.\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "1.29159379723280342580059792695611200767`10."}]},
{"4", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"2.73308127097998646850510878758555577406`10.\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "2.33040485374687259792665650071086247408`10."}]},
{"5", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"3.71593316287309412911023936976206982763`10.\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "3.34534280758558433206727514286349389749`10."}]},
{"6", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"4.7036435731542361729`10.\\\", TraditionalForm]\\)\"\>",
RowBox[{"-", "4.3534934636487373733`10."}]},
{"7", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"5.6943783842355383836`10.\\\", TraditionalForm]\\)\"\>",
RowBox[{"-", "5.3587292653940742695`10."}]},
{"8", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"6.687115641290715844`9.010539290307547\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "6.3624226573229556548`8.988922972743625"}]},
{"9", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"7.6812459952205694757`6.008932171623297\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "7.3651923357290660528`5.990684590378773"}]}
},
AutoDelete->False,
GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
"Grid"]}], "}"}]], "Output",
CellChangeTimes->{
3.686812984999432*^9, {3.686813452400556*^9, 3.68681347904315*^9},
3.6868135258041553`*^9, 3.686813567614285*^9, 3.686814414308247*^9,
3.686816870163033*^9, 3.714301868168334*^9, 3.714302025774983*^9,
3.714302415131584*^9, 3.714302465000184*^9, 3.71430286923827*^9, {
3.714302936957271*^9, 3.714302968880124*^9}, 3.714306630007304*^9}]
}, Open ]],
Cell["\<\
Note that in this case the computation is much faster because we could use \
the already computed eigenvalues. \
\>", "Text",
CellChangeTimes->{{3.6868129458357363`*^9, 3.686812973011135*^9}}]
}, Open ]],
Cell[CellGroupData[{
Cell["filter modes", "Subsubsection",
CellChangeTimes->{{3.686815287002925*^9, 3.6868152879767*^9}}],
Cell["\<\
Unfortunately there is still one unphysical mode left, with frequency exactly \
zero.
We can see why this is there by inspecting our equation at zero frequency:\
\>", "Text",
CellChangeTimes->{{3.686815293261125*^9, 3.686815321441575*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"hshear", "/.",
RowBox[{"k", "\[Rule]", "1"}]}], "/.",
RowBox[{"\[Lambda]", "\[Rule]", "0"}]}], "//", "Simplify"}]], "Input",
CellChangeTimes->{{3.686815323551248*^9, 3.686815332953676*^9}}],
Cell[BoxData[
RowBox[{"12", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["z", "4"]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"4", " ",
SuperscriptBox["z", "2"]}], "-",
RowBox[{"3", " ",
SuperscriptBox["z", "4"]}]}], ")"}], " ",
RowBox[{"Z1x", "[", "z", "]"}]}], "+",
RowBox[{"z", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["z", "4"]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"3", " ",
RowBox[{
SuperscriptBox["Z1x", "\[Prime]",
MultilineFunction->None], "[", "z", "]"}]}], "+",
RowBox[{"z", " ",
RowBox[{
SuperscriptBox["Z1x", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "z", "]"}]}]}], ")"}]}]}],
")"}]}]], "Output",
CellChangeTimes->{{3.686815328348104*^9, 3.6868153332107067`*^9},
3.6868168702924213`*^9, 3.714301882823247*^9, 3.714306630068437*^9}]
}, Open ]],
Cell[TextData[{
"We see that ",
Cell[BoxData[
FormBox[
RowBox[{"(",
RowBox[{"1", "-",
SuperscriptBox["z", "4"]}], ")"}], TraditionalForm]]],
" factors out, this is trivially satisfied at the horizon. If we actually \
take out this factor and solve at the horizon we find that Z1x has to vanish \
there:"
}], "Text",
CellChangeTimes->{{3.686815345132326*^9, 3.686815409838805*^9},
3.714303219324958*^9}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"hshear", "/",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SuperscriptBox["z", "4"]}], ")"}]}], "/.",
RowBox[{"k", "\[Rule]", "1"}]}], "/.",
RowBox[{"\[Lambda]", "\[Rule]", "0"}]}], "//", "Simplify"}], ")"}], "/.",
RowBox[{"z", "\[Rule]", "1"}]}]], "Input",
CellChangeTimes->{{3.686815323551248*^9, 3.686815332953676*^9}, {
3.6868154113741198`*^9, 3.686815422584857*^9}}],
Cell[BoxData[
RowBox[{"48", " ",
RowBox[{"Z1x", "[", "1", "]"}]}]], "Output",
CellChangeTimes->{{3.6868154169678288`*^9, 3.6868154228844557`*^9},
3.686816870359151*^9, 3.7143019151682158`*^9, 3.714306630135234*^9}]
}, Open ]],
Cell["\<\
We can also plug it back into the equation and see explicitly that it isn\
\[CloseCurlyQuote]t solved:\
\>", "Text",
CellChangeTimes->{{3.71430331346483*^9, 3.714303329054694*^9}}],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"zeromodeSol", "=",
RowBox[{"Interpolation", "@",
RowBox[{"Transpose", "[",
RowBox[{"{",
RowBox[{
RowBox[{"MakeGrid", "[", "60", "]"}], ",",
RowBox[{
RowBox[{"shearModesAccurate2", "\[LeftDoubleBracket]",
RowBox[{"1", ",", "2", ",", "1"}], "\[RightDoubleBracket]"}], "//",
"Re"}]}], "}"}], "]"}]}]}], ";"}], "\[IndentingNewLine]",
RowBox[{"Plot", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"hshear", "/.",
RowBox[{"k", "\[Rule]", "1"}]}], "/.",
RowBox[{"\[Lambda]", "\[Rule]", "0"}]}], "/.",
RowBox[{"Z1x", "\[Rule]", "zeromodeSol"}]}], ",",
RowBox[{"{",
RowBox[{"z", ",", "0", ",", "1"}], "}"}]}], "]"}]}], "Input",
CellChangeTimes->{{3.714303256111027*^9, 3.714303300403447*^9}}],
Cell[BoxData[
GraphicsBox[{{{}, {},
{RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
1.], LineBox[CompressedData["
1:eJwU2nc4lX8UAPCLhhWyVxkhSchM6R6bZI9sWRmRlYwoIwlZRVJRQpKUUSRx
XyQkq5LKyg5JkoyS3+/cv3o+z/me8373e99HIq7+5idoSSRS2VYSifqvwYnp
tw0zVuTJ8qJqy9y+uk1a/AFf+BRh6foWF4L7CkXhTnbOEz5tyD+1qkxj9pgy
ISgWEyphDOXC7CrpL+spRzs/VubyWcJTiv2ujewWiljyjnv/CdlC1gUu/kC9
Tsq6gdt1FwknOEVX+MG6vocyG9fb7JLlAk0fT2uLjfRQrN1X6q/yuYP+md9n
2+91UJq1+J+9zPEA9jVl/+aaBorcrsPlS0LeYDPJ9fz961vkHFrnB+IFPiDd
PuZpVtFDph+LzT8m4QetbG4q4blj5NqRd50vLQOAnNDP+njTAjnA1N3AISsQ
JsueFYRErpIlGn63LH0MgmJ3en75IBoYkr2klcIXDOync3Rcq7ZC5h3eBnH7
M1BxOblscScrGLCWqFFyQmCTXBfH5nEOIEUden5sOBQMCitqvo7wQvV8h9IP
oXAw8ym++zRzJ/g6OVVecjkL/ItnvjLvbKGIdv2QES6IAFuDhslW7xHKp8Mx
D2smImFPFXn7kv13SuojdkkzifPQyRfhVaO+TNHZUVg44xkF+XpE5vuNDcr5
lptsjZbRYEETR0c6t4mwPT9unPI7GoCznWdNhJFQVJZOsc2KgaGHErnXD7ER
rPPBb8RVYmFl0MOQ0sRBzN6rZ1j8GAuKEo8eDZXwEK8ct+hTwi7A3Pz6W9dV
ASKPyyQ+iS8OyCbX3IashYmIzuvNx2rjgOPzx6MPZkWJYxdHaHfZX4T8H3Dv
TbU4sf/wHo0ffy/Cuzm/n2cpkgTz78CoFznxcMrIleZWAQ18La2tv3T4EmwV
uhHPZEkLTe506xbDl8BjIejwkyFayBU0PCgclQCXJ5kSyGQ6COvNDJsTSoSk
zxpttqfpwCJ5qLqmIRH0G18erzhLBzLaEr/jXJKg7D/x8p9mdMCw7qdgRnsZ
Ttkv8Lcu08LEk2eBOwouQ1BWJc2wBy0QPqTyGa1kmN7C2TJ2hwZu7joyXzWR
DIyLE69j7pAgZOCKdOzFFIh+6zzc1bJBNsvoP2kskQqLb3Llot/9JUsf3fWA
vzUVpnfMmAQ4rpLp6Xy/TnmmwcJsCu2q6xI5yLH/qu2mdBAMeCg0UveDfPz5
RgVhmQ6mAc7RrlmTZEOuXW/F76VDW5DJGbOrveSDgXoLl3+nA8l66PNgXgVF
stOHdVHnCiRUfuwO/PCFwrUnXcYm6woIqioePPWIiaC9+NSIMnUFvumelebh
YCYWRj75iqlchdhZ8XdmFszEsNq/y0mXrsK/RMGvhC8z8SZb5OHCx6ugTu7Z
s8mJmahZ0mk/JpkBsYkW9o3izESR6cmZurAMCKgIgptNTERmaSr9rtcZ0B/Z
krNfgYmIoX+yO5EvEx5zdqpJhTASUnpXEioDMmE9yNJoRzAD8e6i/8xAayZI
tFr/4lelJyKajQw2C12D9ZtFuh4vtxBidNIPZUKugeTdNDfN7ZuJDg1GZpvO
azAyTvJZFKYjzkRP+8aIZQHv2YexzxdIxE6ipbMkIgvS9XRKqv6tU1r+Fcr0
vsuCtux/uxQyVij+ahfS/u25DqTifwOBt39SeCNcFiRirkMe6V7ygsoUpeE5
mJl+ug4j109fUhDpoXiv7qgMl80GdS/HQ8akTjK7yjp7QXw2jIT5qDM2fiXX
nuk/3TGUDXk/0i/drlsiuz2t6f2teAM+vWX62NLDAcy/spSEkm9AQIkT0+c+
DqjafyZLf/wGsIkfb5Bq4wCnAIuVwIM3QTCf/q5MIQdsKdtvc+vKTeioO2pt
fZIDyr6zPm+evgk9LhzJPPwcYCM9zzcPt0DyhNbX0Up2IPl0nOW5fgs6smtZ
9yiyw4MHJQPq87dglfbYw+O528F8OkHtpE4O1Cn+cFr9zgZ/JTxzM3JywD3P
ueuEOBsUntDZqPuVA84jjKpK8SxgWLjr+JRBLpgeDOtjT2GG32M0Daz5udDw
pqP6iBMj3BYZEVZdy4VPjJ/5iNWtoOtMiXE1vQ02vRGHbew3Q/bQWa2qjdvg
vLvCi2tmg6whaFs4bHUHhE09fw2arZJn7VQ20z+6A+maH1u5NH+S2zsYn/DS
5kG0l0Mup/84eedcuNujfXlAytXpNCa9IAcxzXBo2qKHtywSdgOUFimb5r64
PFA/ViCUWf+Dwm/QGuxTngcLl/V+nT+5RvH3VhYnDeZB3k9rSVoKDdGccO9D
5ta7UPqxJN34Mz/BW8wZv0fhLiwMJmyDMn7Ct/WCMsXpLoysyp3vCeQnGqYW
p8yT7gL9ix3JBcL8BOcW1+tfq+6C3PY74zYv+Ahv8bd6kaN3IXrruMIVDT6C
oq2+yrYtHxJSNst+r+Ql2N3Liu8dyAfTIa6kbay8hMeFnbYH3fNBrmXXv6tW
PMSL/BSG7rR8KD9kqLUznptga1p/7vYiH+jbGvhN87gI91Gfk6tT+fDpbp/2
6wJOooY0wJ/CXgCSk9vipdI5CGZhgzci5AIYMRUq4jzBTlQ5SUofvVYAC3u4
3LelshKM568PfmkoADmv3Ii8ImbCKXdLSvAcxtXKe46mMBBbBie+52oVQk8/
x8bPRlrC7q/FbXn/Qoh2s7k5IrhBKeN/adx6sxAatPnSBAyXKTa2d8sWfhYC
6cr8e5/cD5QfA5aM+fz3gJT8PeBeWhs53on+hIXWPYhmLJsR+fyVLDj6gtjk
i96716Fsz2/yEzd//upMbO/uZXWxfYNsMCV6xrMe3cmxS8xrE4x49XXzTqEN
WZq5bzNA6LdEqXaWInDmi1Ss2soKLH6HL0aoFEFPpsJDl1MicG9h4Yu0cxEk
fJfovqwmAmqnCw8OJxRBzeOe8Go6EXj/2/paWgU642nHqyZhOBnGtKDeXwQB
2UHTueHCQPOXYrBIex9sdJrnRCWFIftc0L2Cvfeh/Nq/hcAcIZAhSZCsLO9D
eqiQRcLHnfAq9rPdlnP3gRTwR9WMZic4bE6penbvPgQYtQ9l8u2AxUvqbN5d
90HYaTlYQFgQEhmXTvKv3IeeQk7FR5wCIJxy/9UboWLo2TpuxL7CB89Y7YXP
6ReDMJ3+L/ZWXjC+yhIhE1gM5X2mFqFxPBB5/YzclaZiIJ05tHy5hRM4+Pdc
1vxWDM5V0ykdBhxQkjM4+YvjAQSw9yReebEdPt7VunXsxAMQHg6Jv/qSGfzE
Vn5vTX0A6pvXkrP3McCm+yWmz6sfQLT1UNC032aQL92+RZC+BNTDKRlG3/6Q
X8u8cu6UKwHS8z4Tn+BFsnNF2IvztmiT9+tqZuPklOovAaMlaDmfwaCxUYqY
asabq+/RwaHf6RoXKbUvdCW019HLzk0qM+uU6YZHA0VGDyH65XOdfbsYiCgt
F2WbkIeg3qJ4JY7CQnC3cF5huPMQhLtkuaa12IlS/bZvta0PYaT9G00DcBFa
byJ0fRceQkO8cnigoATRbyR7dwdfKTgvF1Sf6BEnAnrG/nZplEKA6gmG9khx
YqtF1rHok6Uwcm2SP0lEnLj94UjF/oxSyDt2KOsKRYxQsvnHNP6iFEz190p2
WIgRHf3lHpkTpVBuszdKfHQX4ero3qiz7RGkK3scTfTYRax94RFcUXoE6k8I
8vi4KJHu+iak2Ant2ccsZCtKSEyef2t7Cc3N4CPZIkJYzk7G1316BAEZjNXm
l4SJb743Rk/RPIbo1jHprGohIvaHoZqQ1GNwTrEYjDLaSZQvPfkZE/EY1A8r
/7ulJ0Aw/RfjoLezDBrKJroTvTiJbG9rJ2ndMhB2eHDyQgo7IdYr7bzdrwxI
f85/n85jI8gPProN1JeBOsPjjxQxBuINx6MTDZNoc8G7+iObCGlofPJuSzk0
9OZ8CQ8lEc8fZFU9kykHUsynpqThOQrpeIxyiSbaKzqGnfSeosvp+yznGJpe
iElxppf8/rzG85jz6It2PLHsf8jfLebqjnZhvatsaUGftoMiw8fD5DGM37U2
ThrmhLOURorcMrrMMeTaKg80nC6FXYwVEK1ya+C5hABs3XO9gWtnBahHpRjv
8N4JxsMxGvTyFZD3azW7WmUvZGb4Nv3RqQASc0f8wS4p6Ne31vpui/ED52ya
HaVAZEOj+cupChhpUazXntoDXk+kdd7FVIBz4H3XUs898NiLp6X5GtbvZ/39
bVQSDr2fa31Qj6axSKpq2A2xCR/1c96iIzWGhcV3Q9vhptepk+hGg0aJWAmw
Kr7+5vS2Shg54N3SLC4OOY6xhh4ilSDccWMf2VcMxthPddoooZX4HnM+3AX+
5zS7DztWgjNnavCt7aJQLb/PVC4Q82VCf0mrisD6V563ohcrQT0549+QjTAk
mn9/t/URupaQbCLtwHvgk8WfhkogcdnekmQTAO76pt65Xoy/a+4zZ+WDgt3Z
fW/XK6FhUvJA6CAn1K9r9t8yfALRZ0jthx23wqbKffapzmjJl18vBtKCgSfv
YHTwEyAxBJ3oavlD/vj2+9CJHLRwk+j3lT7yz6LsUdk5bH8hXtLoLR1xwOGC
qyjpKUTzyGfQfmQgzm/3G+fkfAoNvgzel0hsBFOk1uTaIYw/VRC/6sJNmO+X
8ZgzwXhu40zvIz4ie4r367DbU1D/zeNFMO8ghm/Reb0NxTi7ltMBECbEzean
X15+CiO0znRxNKIEf5TeQc+7T8F59ov/i6VdBNujvMuMz56CXGYdaTpUjtg8
sDb4qAOfp7dWnSglR/yht5AxG3uK+8Fe9XSlLLGgXBq1tILPSy7cPLpVlph0
3/z2+rYqiCZvhBpbyRA9Dc9ODx+ogoaZlV/zH6WJV/Nsr2KMq0D9oo3N5m3S
RK3gSW5xd4z7WPOOqe4l7oUJPvdJQw/oXqw6u4c4KxezsTqJ9Q4WtSheFyf8
nfpNcv6i74YUzieIEe7J+GNhezVEDwTNrgfuIkymJ7Xi1aqh4Xfr8tAeEUIs
zyCRIwPjnsduHXXiJfi6Cvqri6uBZHpX9PsTLoJlfX2vHQXj8qnmVivsxJp1
WVfeDMZZ5bXYUxmJLlZOThn1Z/h79M3PZr8eysvDp068tULHDYifbRol1/i0
VAf7oOcj2a5KLZMLWsNsX2ShHxao87yjh+zfb0ucStF6d/xKZlkhddfedZqm
ZxBtIzy/+xoHhEUN3db/jvEgkf6PrAJw6pHywjfaGiBJi1+em90JrgNpGmm8
NaCu2fJg3VcEbBhmrsrLoCeq5pP9doGRiubEB60aaPDzm1Q8Kw6aJ24phdui
7ZbsaNN3w4GMpXhB/xqcHw1euvI9sK/R6BMRVwPOGhoNwnUKIPqjaI/bTYw3
WN3scFIAnh2kiC3lNSDMaHMy5588MB+17XjwCuM5zLGJ2fKwUsTkv7BQAyNW
Xq15Tfthrte9IWPLc3C+7ZReb7Yfxmgp21UEn4P6wN2Pg4Ny0OEU8PSc3nMg
JXUxsnXJQlPy680ijs9x/3b8Yu6QgWe1otbNQegC0+2fG/dBPveHNcbbmK/0
cr04cy+EdqlC9hLmG4fZPfogASwyVZOv6WuBtKVm/HaROBSmyCX/FUTTXn7C
FiAGbw13f3bSqcX9yrWmPycCe99wnhbPwnjxw8ul2/mgSSqdz7oEfSo8WlKV
G2ySmBoSKOjDkg2/TDng4hHabXNTaMPN+8n5jPCl9UdRpcoLIKmLP+Hd20QO
2e1jNHEUnTcVy6A6RWG+NPWLyxnt/HVyjVilqOoOqYcnoKf+nA33YCQymtv7
4TN6oNvsMK0gISWmGxP4Hb0k/Z/uiBDRcKFxdwFNHZB2JNM8/SpCfNesCd4i
VQfR6UC+tyBOxOUrCBwgo7+W3hKklST4acsavc3RR1/OGApKEeUuUl63PNBD
fDEaIE3oNd5j6TyL9TTk6zf7yBDDwiJVG6loencl3SQVIjg6x16uAB33sHRQ
UIVgHOGhdX1WB+pjq4/VSpWJu5BRnPEG64lSnrkeUCYO3GExefUF4+c1tY82
KhFdG4m/l39Rn1f0flFXifhbH61pJ1iP75MhUqC+InF1x/r0Zbl6UJ9SL1Jv
ViAkz4Wm1WvXQ0NkqWOjmgJhpeY3KHwK46VBEm275ImyWvuQr/WYr1vByJUh
S+jyfxTke1cPpMtdEpvw/hgMN39pMIVxwXHbnWz7CAbVI2yPWSj4/bHaWhMo
Rbg9Uy4JPk6BaIfI362jYgTP0+3DNDQEkH5Szg4OsxEOyX8tJ7jRfme/8AYx
Evnuk29apNHaAb0em+gIaa7nzy/boAMC4BD7MEUzxPkaVznaY//qRWdmSDA2
YF59hX4o27TXmR06JRQv9A+gXczb797lhtJvF2q66RqA1NQ+HmIrBMo51kWZ
sujrTs90uiXBNqFj9OJBdFvzCXOZvRAZrLEjVAdtOGfnkbUPbjtX23iZouVo
2prp5KDRcG+mrT3alWZ9VH0/TBzI6zbwQPf0Eqmx8rBFnItJLbABos0Vuyu+
HYI925N090Wiv+TfMfA+BIb/NmJ2XkInhpuwjh8Ev5nT9axXMT/e7cgfm4Nw
5cP0KikXzev6e/MbVeh79M5/vBLdrbrsVXAAXJyKHIuHMf/c0y0NYsoQZyBw
48YM+qcBK0eEEhQpp/cmLWH7lffFtp2KMMdy9ugpxkYgsWu0l5xQgBDCSFVe
uRGif/97U+cuBzceNgXv0sD4eOYMr6Is1F1XKec0RDefqdXC8dMEiOxecUFH
0N7epiEFycK/OetS0B1TCftkd8Fj5pOmj7LRW9/xTliKwNvV4cu3C9CSLspX
x3cC99s22pjn6GK7LV9EeOBuTM6CziQ1vtteSOAvuXpMq6NbrQlIB6e+/XDd
QfTpx/xM0UPvcD6wwS5CLD+mcBuaoz/ZfnpxbhehEqHq0uaJ1jnDwOQvSdiM
hsTHB6F7pa89+S1FhOk9fah9Dp1ecLrx4j6ihkN2ueFqE0RrPX28w2U/8Snc
VyAqF328Sf/4M3li9csD9cPF6Ay6qpPsigSv7tcTfysxX2KlWSdIiThQKnb5
eT06aZvRcp8yYcPuWh7ahu3fsl8Z7AYiLOzOB6X36JStlwbFgcgeHvzzawj9
q/64dxiZeK7NL1w5jTZs/BXdepjoL7HWCfiF9bL2CIlwHCb+sF07KbOBdstt
1LNXIw4OsVaVcLzE+05sXWj0IFF7ZrNBARld3bGpqUmFqCtaOJ2Z+RKiD4P2
lkE5YpBZ5ob5HYyXdj2UG5Yl1oN8KGwl6EjRKyL/9hGHYYo+hUATP2/ZiUsR
lI8DuRdn0be+KTXtFCUI+tbWEPVmIJGWpvL0+ygjfpu+Kx5FlyfZ9LXOkEkf
NNh/WaHDUjkdr/1HVr9b5+Dvg6Y9qlpxcjs0qFb+9MxCT9cqGGeKwsidH9wS
d9E9U//adorje2Cf2sRD9KLnWFv5btB4dz/euREd20Tr/k0amk7mCtjOoUUP
0z0aUoAnMz4+Tsvo3ote4nuUoNDr4As30isg8asc+x6qDJlf6Zm8GdExWbOb
21XgosdHOz9O9LcH6gFCqhAyea/k9E70IeWAfWEHwcM9+E+YJDqgJoXcewis
xzUNzsu/gmh1EXWpNk3Qd91+84IaurTn9v0wTVAd/TKToIvtPbknonZrgpTz
Y9VUU4yDye/yXg1gdjr6Odsdnd7HwCWlAd22F3kfJ1OfJytgEQPQ8MnC60kW
2qgjl6+ZDOXWojU1eeiTl+7505HhqhVh/fIpukCG7nmoGhwzW8v6NIh26kjQ
U1aFQf1TXHT7WvC+IZ0+v1UeOlsPnaBXQeuLn96/fT9QdBmrtmmgWY5d38cj
B3e071vyWqEl8q8My0qDq/poxr5z6J1JfAqfdsG0ihW7TSea9IJLwuUb+XP1
LlfHj2h1H0c+pT5Ku9Jihesousd8qzjTGuWhQprZqd9oaZqOrfJshJ/s6/TY
Ha34e+xq3Iy3KHH88fWRS7vRyaExlezihOk+D7mU/WjDFwxtL3cT8nvpeq7r
oEsOSP1H3kf8ljjM+ugUmsaU7ZiRIkEe02xNCkO70CYrjSsR8bn6UV4X0JZG
kmLnVYguG2MV3VR0aKeE5E5VgpvT8seuG+i4nk69lwcJp27b+zSFaIqdV+Ip
NaIo6fjxL4/Ru/bo/hIkE/M6J3jqn6MzZVOPh+kQyjQ+3Teb0Qycaaw0OsT5
uoBLYd1odg4z/gRtoiU0BI71t+J9sNAetU2bsJ6PKdu+gB451G3HoUWEDWSn
JQi0AYkxi8uMSYNoyLqt5yGBrr99fv9FdYLevPA/rf3oDNozn/8AcaOtzP8/
XfQbz8Gvbw8TtVUtJiFBaM1PEWk2qsR62hKr+2u0obpyYrosoX30T6tGLzpS
T3KFZR+RvIUULfQFvXF8/HO8FLHjHNNC/xJ6KfAJjZs4QT4p2mMm/Brn417l
4g0uIkrbNB1C0QnPxJ7K8EDbf1b6O2LRildfCdLuALYX9qS/yWjXIscDgSKQ
t98zoDofTS5XnXLfDQ07z5vu60LzTV6q7dgP9P0X6Jk+o5eT9c3sFcD0WmLD
9Dj68YWdAt8VYZTpmlzhGrrIpkyL/wDQrj1kExBvx/n8G9p2kwwCnZq/QBa9
MP9Bn0MdFO9+/uCuim5qNkntVwfDMwE1iVroB9G7FAs04MSRrbceG6HNstpU
T2nC+R23z723Rgt8e3L7gBZk/VR0XnVB/4w89VPpCJS9eqO5wxed86lt93t9
aLvhKq4Zgv444pTgpw+jp9a2ekajL5hms9Hrwx+N9NnLSdT2GQP1d/RAera+
7MNtdHHZtnOvdSHtIN9B71b02EC09hYdKGYpF0x9i36SH/4wXRsaxnT/qxxA
T7+3F+XThsWk4Ob1H2jtXCElMS04NtBtnM77BvMXfueLaoBgZLzbM2905Q/O
M5GqoGS6Q3fwNFr5PFOl6QEwFnsqSXMebRPXWC2sAlEdo98NrqIX2upITxVh
TPBw2HAtmnezyLyRLDyo/5W8mbkDSF6PpUIn2aHpSpK/FDfa1HF55yFG6D8h
Ym4ijBbW4zi67R+ZmcWE54Yi2lmMjTt/kRLgVHJX2hGdFxll6byDUP7Pudri
MTp5iCXohiJhaNQQq1ODlgphbzFWJtxuCZmoNKEHOz58oT9ApKsMf+XvQ3Ov
eERePkTM+Nvzjf1DV3GURp/QIEiU2sn3WzuB9IXZ75qFJsHNzF/5ajs6YkpA
XFuLkLYLP/9MAH3Ko0leRZvQLP5k8EAc7Su7vufVUcJmWYXnliw63XqT0N6j
hL/29fFkVTTtFq8vaQZEzohVZIAROv5mRIvVEaJSpkrf1RptWGjyo1qfaIvk
5LJ0QRudb/3KrU/85n3/SOUM2liHyfC9LmFsZvplIwfdFHaChqxN0DQZaKbM
oVOjLxvUHCZ42UpYopbRRVwp96zUCBknhoEAUhfm/3z7auEgYfen9bQlJzqe
NtxZ+ADxVF7nnoAaOuf9F70T8oRHAdCXXEaT/qbTivATHXGKXS1S3Xg/u2t2
1MjDQdY3tFeUqJa4LhGjCMU3XFTs1dEHXm+UH1WGC49T835YoeW7nmp/VYWD
n6aDeGPQ+76qLt9Sh2LXqPtjl9GT8tJFCRrA/Z1rsDSL2t7IwSFEE37SaOlo
lKLfn1V+Z6kNTsmfw5meoWu/Kabo6EAHd8DjD41othE+HRVdKN6by3PyI/qm
HVP+Dn3grlYwVBxDew3oaLIfgTj19uiNOfTujqYPWw1gsd25qm0FncmyzW7D
AMpL/gYfoenB72O2wYtppvD1h27a4y09QJqxWnM3N4WdSlcfcDCjhXvDt3Ka
wmVCcniIGz3wj1Fwtwk0bQpe1RREs8iFDuQbw+oRgr1YBC0ebcUmaAwevVZ6
QdLokPaxti1GoDkTW75FE31z5621OgMIl+lq99FDCxLsM7uwP6f5JnsM0f3a
EVIJR2DnRhnfLWv0zoqtV/T1YY19KFb2FJr8wOtUsQ7I2UjmZgahVwXGfNe0
wSP39LO1UHTqrXs39LShdzfj3MtY9JZxJ68BTShXU7GyyUYr6jc8agD4GhPr
X5+LVgsRPqtIhp2tnYmiBejIzQFW+WqQbOZOmXtErX/hGLuvKnh5XNkd8xJd
czrsWrU8CKV/W3swj5Y7ZJQcyQYUl6gHlb/QeSdrj1ykBScFDtsXq2jSbIb3
zi/knL6DNR20b4EU/fwneYaB4N2RFPKDG53NMV4/J06wl0j+UgS03IUDjAmH
iIqIuvzD2uiw7Qwfqg4Tpkam5rpH0OsP2YZngEhbCK2wtkBvKl/zkNckmFVa
/c96oiduRafieXlIby90wRddsuv+NJ0+YdA/33U5EC0cc+6iyhFi5mHs+cwQ
dOzGJW8/AyLhHLdMbgR64UT7UxczYrdJydC9aPSiu8PqT1OiRZic8vgi+jIh
0BljSmxuPjFHpKHjb7scVzchCq+t3WrLRJ9sLIp2NCa0PVOOvr2BprCf7Q43
ImIZq0rGCtCGR/bTlB8lNkw3eW+uQXs4lm3m0CdWh/InDUbQZ9vuSlarE99W
vgx/kHsHpJHlwDZPeqLaM63JQBkdPeKhfGOeEv2RXEQcQpN8b0frLpK5n+We
eqCLZjPeqPfgAs0Q+/VIB7Swo0VJ7l64udTHJ5aALpUJihsgwwn3+H/ZKdT2
Q4LdUeog16s0ui0D3Xa5iuOqBrQ8ySxeyUWLsZbLPdOCn0HmKm+eoCNjR+Xo
9EH/Z6dl0Be0J0vBb2NT4HA5d+DrBFraWiv9kykM90gLOsyiQx7473Q1gwfq
g//1/EAP0cXlfjOD4PLL4zq/0QxlnxjPmAMIH2qt/YNOONTktmEOjOmzJbKk
90Cam84iF1pB7383Ugs3o5vYdl5ztYI7/keC+JjQsh4i6kJWcPLLqlUqG7rP
QVut3xIUTYpV6bjRid8l4jMsoV1mK813YbSnwY3fJEtY/t6c1qCMXqs/Pd5i
Do2OwaeV1NCkh3PfT5tDcucu6xINtFhNkZSQOYg+it2ZaYje83ZAOsAMjHzV
H3m6onusxsdWTKBw9kU7Syp6ZC62wu8I+F032XUyA619fcvXNH1Q0R6PeJWN
jp08p/BID9pzGfdFFqCrG1h/D+jAT1PbtJkadMtKrQWDJtT+m/uqTUFv/Nx8
llED4kqi1fNeoo1zRc9vVQfeTcU/j3Whfe+Eb549BORnyxbN42gHtibngwpA
755UKjRDHc/r0oVVOXjHtnNzxDw6e+BfsuM+OHFSp3r/Gjrh1CgrSQySd2Ty
3mHpxfbCC69z35A/X9g/FK6KlszNXedUIvLlXil9IKPXV1flZlQI3yGbVDlt
tNjBS1ytBwmSSjR8NUYvjDrymKoT7eMc2ZqWaEuBgsZODSIj/f5Cri26dm3S
zVSLkJjtumvpTm3veaPcXZdYyHL9U+aNpieUfZb1iFqtZXMmf3SPyV5yyhEi
biHxoUcweuTnnf17jhJGuTs2NYWjyyebjdoNCW6DCocdUei5T29vBhgTI8va
VWFx6OZfsWwspkRJwadtvYlo33o3uzQrItjU10M2jToetoxfo5YE+d9/lKRM
NPPruQhFS2JrSQbP1A20+WrZcrwFcZPuRVtOITX/QlzPXnOisZphL2MtelDk
wfisMcGy4/6PiQm0+6/Lz7m1CfVjF4bGZ9C9HjVRvZpEUNrxN2PzaGFf5eSr
GkQfDe/9kVXq+DLUdgqRidtTCU6DzB/w/ntUWS+gSMiUn+x8r4gmqb3g8Oyh
GGnJPGyKQzsw3PJW0oLzkYw3GhPRgnMnDrhpQ3nVVHxDKlp6gnk9TQc4Je+4
UrLRbUxRelN6MMjMxl9biv4UY6540RB8+34mVPSiz3NFqb00h9usXSHln9Hp
5AZlUwvo0S9xLxtGJ9+eCx60AMUXruqPptELtVOPFy3BY4ksU/odfUzwVkGk
FWTvExB8uEit/2dr1+ZjsH7n/UrxOlq4vayKyxpkPpdN3qfpw/uu4YlPjjU4
sye/L9qC7j9Ee0TUBq4e9Wq8x4QWDVg+ct8GmuO0ywrZ0Jq9X0/utYXleuHc
Ai60oKhU8WNbkFxZT8rnR5ebb9uQswM7uc9hd4XQBv9KRe85QLJ3lUeeGDo/
wsQ50AFm1R8lMEmhJS5yLik7gB7vvZIQWbRrv57oH3ugbc2cNzyILrUyUA23
B+fbyWw1gO64WsWjZA+UM3Hyu3TQw1qtEfN2EC4WHLJmgj6Z9IWwtYO+vz7Z
7lboLB+7a0x2oPjerbbbDu1n5T5QawsLMRYb906gA972FWy3BY8v8vHmEWiW
wZW0O9bQXC1VXB9N7V9Qt4WaNYimirZLxqND1Lgd+47BkBo7y3/p6E8uNFK0
x8Dy5s9rD4uo/ZfPYz9gCZWBM8+4S9HL+zw9KRbAemT0c0wFujrmwAcNC2hf
6dlhU4dONvGYBHPQsCq/t+kd2pip6QCvKdyWLm71/4i2ySo6tc0E1unyZvoH
0ZmCMeoTRlBTmbav4is6x272UNRRkGHzr3L8R51/dV5Nb11I/urxsY32I74f
zneVcujALMVpTYEerWaqnY7vj3unjA8zcqCLjUqufFMHwTf7XlVLohscney3
KMPZfPGvIjLo9PZlgQV5+Bi+gyFFAR1NFPNly8JVyW1GbmT0wnbbg09FgSF+
rpfVkpq/su1HFxuxrP5wwisKzRbTnbtFg6gr/HYrNA4tfPdg07gmEUsvbRGf
iM4Z97zRqk2w9JQ2FmSgayQlkgr0iV6F72GV2ejkqv6aWwbEzev75Bpz0aTz
2c03DQmJ449vD99HmwfNdB0zJeaa5q2+l6JLtto3OJsRlRKy29Yr0D2vnyn5
mRNhSf7NjM+o4x9xU4yyIMjzZRF8dejHofyc+rbEJvMFeclG9MErFFdLG6K9
Sm5WuQXd4bPTzcWaOHauwsayB53X5pF8zooQHP3J6vYBvaG3hUi2JMa05VsD
+6nzfbG7OseC8GN+opQ2gbYJusBAmBHxt56yt6+itcu2JgsYElXPn3WAyCf8
PSWjReN8iDi7Y/WCsQS656d58EcVQj3mwCHHveiG/ZZgoUh06D9/cFYJHVAU
7lIuRUx8rI2vOoImZarZJ38mcy7Xq+8NouY3O9n/PAjB8s1PuV+i2U2fTM2Y
g4eicN6VNnSzW1bvIwuwUY68zNyFzt7U+NDfEg4dVHSl/Yye2Eq/OmcFtJqF
rPPz6OjQaKVOG1jSIv31WkI/9ly+GWULkzoOU+NraGntvY9k7aDtCGf9502f
8XvOj+Z5gj2kmcWdfMWP7hFgubbDCaItRqzUhanxh46X6pwgyEpN44U4esyX
cdrmOByzXeKpkEMLxjnNajuDvr0pnbQyuiTISzLNGVQdS+eLDqFl1h9v++QM
gi7ur3J00aHpffUnXIDFraGcxxB9JyEvusQFSCcEc66aof1/hfV/d4FFj7BL
26zRZ/sMWmVdYdyrNyjBAb2/p2uC2Q16T8o50bmiX0i49f/nCi2+yUfOe6KD
jhTMLrhCjd+04pov2t7RZvuIK5QEaAsHB1Hj/XoGna6QE5TH9CMUPZ+ocKXG
FVKC15e9z6HtLn4evesK50NsxiZi0eJKSyqJrhAQ9rTzeAK6zuRgmp8ruJ5l
e96fgmb75DRu5gqWkb6FVhloCcHtcgquoBItFnH0Nnr6wuu7P1xAMjbao6WA
+rwKAUq7C/DHDZppPKC2L8toLHCBjUuZkipPqe1l3X1NXGAhcYGj8jm6aGaW
UdQFRi8b/idNoPsHfp1fdIbmtE19ou1U3yM+JDtD9RXnxtxudG/N1bJjzlCc
UVfK+4HqMHqjnc5w+XrwBZYRdLp4UYzRcYi80eOXOIk2ZVMU7HYCv1vSdpu+
oefqu/kMncD8zoTcn99oyfx7fAccQfuuuuCZv2i1+EsM9x1AqSBn6wKpH/db
bIvKdgfgvW85PMmENky1lvpoB18eN19+K4L2KvvnKmkDPd83zcnvRjs0/C06
bQ0N0jqGmdJod0urbbXHIK/kFbO1Clr9rPSOA1bgWtSSMmiILh6wNFw1A/PJ
LfOHzdG+6wZFAmagJaZnfMca3Za6uV/VFMTyW1lcXdFsPtMWnYYwlduW9jWU
aq/KHhod6BukX9A/h3auSuFf0oRWgSOmJbHoA6f3XhjA7+sbr9lOpaDzDAPa
2VXh5LX2K4v51P44Bbz+ww/fkzsy/nWi0zsS2wU1iOE3zEtO79GmzheTRrWI
LkYjy4ZPaP0ceedKXeJxQifnhXF0+c6GW2GGxO3WbWcmptELRyz3+JkQaVuM
P+jMo0dWSCwHzIhonVSl+7/QwcvjWoQ5ERDXdY1+jTp/v20bDC0J55csy94b
6BzZwJQRK8KM1uTYG7oBIBWef//gtgOhqZFWLc2Azr65uYfbnpCP7uZOZUHr
14naXLElRAnW0B8c6Lj8maMsNgTHhslHUz50wmeRqpRjxFJEz3UOMfTSGTnW
TAtiopZtNXgPOpKxiUPAnPiwZmrTJ0N9ntmhqkJTojr0Le8NVbS6avj3qKNE
2Ol3N3aaoOVu5/HJqhN/T/be2nMWLSz1u9pZHCyVHa/IRKGdI0Lz6WShlGYq
XiEOnfdqdUVPEZyyVwIPp6JJYV3dFYeh8RW/vlk+ulzb7ddfPbgk7LIU1o5u
dqh7e9kSRr7NzJzrpvZPInIi1QoOPAv6EtuL3tTXej31GMwaxbUnD6MzOcTr
LtiAUcT9vLxF9JyW639aDsDR992wjX8Q39/PDh5McgHfuyGanULo9bT2onkX
aPb9T+WdGLo8xYwfz3cI3fZdgzLoap5QOjY3+CynuPZDEx32tNb2jDvIr9fN
L+mhWy5Vh792h6RWnYk1Q/SqV+VZgROg5mTdTWeNZpvxYX5+Au5cPnuPxwct
s9fn62cPWD1Gd0swAF3svjlB0BNMRZPTRc6gWRZbxhw8gfZ5bsTeKHSXO9uT
Pk+wj5MIlItDZ914tpPNC56alHkoJaLnKc1yel5wYqrBDDLQSS6Sio+9gFJx
RE87G02qixEY9gLuc+/UjuSiFRt0rzF5g7++vbxxPjphyT9H2RvaOCZ2W9xH
jxkt7j3uDSJffHfYlKLNz2lG3/GGsyW/2R0r0H2jplFPvOHdmfP0rtVoYSWb
qWZv2KuxdcPjBXriCrn8vTeUlzzc/amBOj8865QRb1DkNDU70oL+8/fW41lv
qDm3dLb2DTW/Oi3spzeofc0u3PsW7fVWi/u3NzSYHu7K6Ruk/j1WKAatUzu6
sm0Q3VsdX7noDe274kWiRtGFix8K5rzBOEXq6MIU2iPQw3gc+7fcFewyh97E
lfywzxusnU/ffvcTXdN57WmLNwy+5mnTWkHn3+x0xfE4K9T9fLqOXroUVpbj
DRM5zgIStENAojzuy4j1Bu8tm3Wub0XPKexiOOEN8/4P/Oi3oQ/oZ9Jre0PQ
Z6PscPYh6v60vyzkDcuai42zPOhejsKkFS+IKM36Zr8DbeqU9d8bL3zPHuLq
FEXPO1iO53hBXNQXMlkS7eH3V+akF9DPXPAq24cuXi0YUPCCFHPJq8IKQ9T/
D+oytuYJWeKBk7RkNKnNZOysJ/CncbEGa6EHS1M7lTzhzurzA5P66FWnjeU5
Dyh+Q5vcaoFuVreaNvEAaaX7VQds0cExovl/T0D57aNfHjihj5XPnSs4Ac8D
M+WTvdEtzNuivroDeeCAwz8/tL6VSNYFd2jSHrroF4wubXhcKeAO7TwSn02j
0LxyZ7+AGxjHtNM2xaGT9IxH37jC+1k/aYUktHJx6xsLVxisfxbFdQ0dZHLn
sLULOO92eBB/Ex131af6nTNMppPer9yh9o/7+Z8jzjDvdkSivwSdbraWbu0E
JMaBjtsNaEtvQctQW4g7HbXM2jJEve+/OO+xAYahXcIxb9ANngqp744Be7nv
abc+an/HM1gYLUHs2Aaf5Bx6wTecxGsIxUS+1o2f6Da1mx9n9WHfHr1TjCvU
9X3941+JDiivpzXM0Qzj/WWXEDF5GPTyRTwreNCkQ82p136RFbNZJFoE0eoc
e0J1eAjh1L8T/SLU9vo8D9f3EH/CP7hukkaP5Ka/Jw4RX/2bRPj2oz9NTx8v
0SB6T5SN7FNGe8UnO8TrEI/MEp2s1an1DtCZnjYibuqF7PDVofrn7sNNpkT8
YbfBaAO0w3GG1+/NidMKpreumaClI6/bzOP7Y89huxJLtMFo0iY5Z8JISIqP
sEWX01bT7HYiDnLxfHrvRM3XZ7m7aE9w0Py0+ueFlnT9QZ9tTZBWhjjZ/dCC
/zjmAq2Iubn29xKn0Zwykg9NLYiWT4VmpufQ6YznJlWNifByG6OCK+gFfuW4
tkPEl+MN2kdq0Wwha8rt6tBh9YjOiUC3zdoc9NOGmqM3m4Ka0dE/THu26MNV
lWD1nC50wCV2bS4T0GGVVPsxhhabChEwPwbym7n+0k2jtbl7h5asYedfmlre
72gbmrSwK7awOjWgormC7r2y+O+ZAzykpClcY/qC34NnuO0dXCD7aeTiAza0
ofkLS05XiCvxrqBwoeVlp0mvXcEpS0t2WgidoFVqIekO2/1WpA4pon0PZnJR
PGDDbWLGRBU9Vm/aZ+cJs7Zvi93J6MWTFJYlT2jWeSiRqo8+lvS1TcAbQncc
Fx11QJvf2UgHH3A1lTs26IJueWz/qs4HjC/QJH30QOvz09sr+4LETMHPzgB0
0/vKlJ2ngF3wjPjrM2hOFhvBlFPwz1jXthlPFuld5M0fK6eg9+l0Q20cmjeW
U6/JDxq+Pl+qSkT3jXXXifjDQ/7LkhWpaOFtcnbn/CE2el/6/Wy0Gp19KGcA
+D3ZeJmfi96jfttHLQBsp7pXcvPRwcmcJ1wDQM4w6HhmKXr685hNcQAIRmll
pFWg/7v7+WhbAGyt5GxNqkanbtVQmgqAxYnJPxdfoO0WXbfTBsIwzzOZmAbq
83gvDQoEQrtBgmvkKzTXxuJVhUCoOmebFdqOdluZkTsSCHnlUu1B3egLEo8q
HQIhefzvv1O96J7ICE6/QAjj7tzv/RntWnvF/FwguB25fcJ9GM3jL+WdFAjG
kf43jo9T662ds7wWCAfL1DvtptFXLjWx3Q4EibHtNMe+U8fHI32zMBC2c40r
mi2idUPm5ooDYV3vqZfhClpIQ2Hzw0CYPnsxR2+dOj+T+76UBMLssb1ed0kj
WC/ohsrRQHBe4KAVokNzZv06fiYQ+hLXb+VsRhszZHrnBsLRXZNK/PToOsGb
pi8DoaGus/s6I1p9RHT710BQPlbtzbUNrSx65D59EIgmXsplY0fbcHdp6wRB
tmiASionepOItbZzELDU2bxl4kGn279jCA+COCsNn0Q+9LqpyZW0IFib37N5
qyDa2XCgryAI/BLY78TtRGfaxPRVBcGEyN8DtCLoGnWD5FdBYPdi/F3ULrRv
utrSuyDosezw/SeOfpfhwDgcBLrzT7dESKJ7rUvbp4Kg7lJu3qoUOrlk7/7v
QSAvEn8wZB96nv+T6s8guF/r1/tLFj2xVjqyGASCltZ+gfLoaNsCEfTV70D/
QxFNy1K5Oh8E9Jck831V0J8edbrMBMF54e1qs6rokivTNqNBsPR87YOnGnq4
d/FzXxCctBjznySjy636R14HwchcO4ObBjq+Ksm7Ngis4p8UjGih5Wy/+xcH
QbtQzmEnXfQW75kfGUGg/jzu44A+9Xlv3SYjg6Da/FSg7VE0uzYYugWB9JwV
00cj6noqOQjrBUGNpSGRZIpm/vUyXzwItOo1T5Mt0FLz9Rw0QdAlrrp70Qrd
nv7v1OdAsEuVHbhnQ+2frELp40CYWhZPs7VHSzIyv44OhKDjglrbnKjjMZAn
TAIhUY7hYbAbelabJDoRAJw3/nOS9EBzL8xdeBAAeTTL7INe6LCp8gc+AVDz
buyslh91/W4YHevwB+1Dn2VWAtALBxlX1fyhu6B7rOQ0df+sSCwX+cFUcJ0B
ezg6Z3h+wOMUBA1VbryKQFt2ND6q84V/Og8qw89T6zlqlzP5AidPFv/oBbR7
k7vAtZOQF5XclRmPdohZO9XtDdLTsbH6idT1pex9ResNWs/9Z8tSqfshi8PK
0hO6RDxuu11Bd/inhQZ5gF2SgzlPJlpYXyko8QQE2R+pPX+Dut+e67+86wZ5
/0STjArRI8LRir+dQNqDj0xzH52Q332pzgGedbEuPn0wQv0ePP4x2A667qzb
CpZR43UWbDVW8E+jb8+359T17njZy6wHCSUdQ7fr0CSdNo0iDeDkeHnFnKDW
L9ULUj8A0hNla8+bqXHNWw13l8k1hkWPTrVSz2NFRHOjGKFVleMi0o7O+xtB
9lUm7OITXyd0o9mqXjXl6xFT81Hn1N5R6/ld42I0JgKtQ/Yv9FLb6/LsOWJO
rBO+kwUfqefzs5V9ynEiQdLthnU/tb89Dp7z9gTnFVsjpiF0T96+D7Y2xJ01
ExriC3rV+Ed9tyVR3a7mLTFJrZdh3159lNBUUNjR/5Xa361JpWPaROetPW9T
Zqnnu3HrbX01YsKXW/X3D2pc/zi74j8KB+sCffMf6nwXS/48pw/v6pMuHflH
7e8vYQ9lY7jqK76l+z9q/FaV1nczYG+3o+vfNIr5XfsygqyB/eKrfz9Y0Op+
gp3/OcM7BefIM9vRvgKf+LVd4erYnz9/ONClDi0bsW6wXV1udTMfeoTD0Wnh
BLD9vbkosAudPSVuknASeh4oBd4VR9dVm4rk+UC6Tc8PCUm0pMpxhUpfYK3e
/H3/PvQCd+a3Zj9gCQz4qqeCbrfaVm8WCF1CTB6dquh4mkLmlkBI7bo3Ya6G
Nv/PxFQlCLZJD4w6aqAX1Ztz2U4D81edwdNH0beNL1XlBkPHtRG7NSM0/30d
xrVgSNaO+HzeFE2vmyhhdgaY8sv7Eq3Q1W677qycgXbTo1asNmiPcMUFnRBI
+m/yfaYd2m+z+mJ6CDA6Cry9cxztrp67KBgK7UzVJuKu1Od5Z0w6hkJSrWlX
iTta+7+OoFuhYOD9zVDOEx3meC3zQygw8Ma/qfJGM4oo6TCHQVuLsMEhX7TY
nsXzEAYJZ160Nfihh6+zqvmHgb7YMT3dQLRyb2fIrTCgf7/w6s1pdE3iyT3N
mB9zWdssBN1TImw8g/lyEi/7wtCZAZJfGMNB/0uDhkMEdfyOz/okw2Frqn3D
6Dn02CGSrFY4tKgtkz2j0a6iCmO24RD/Lb1+LhYdEnRu1jccdG/uVQu6iNbs
Z9CMDIctR1pqVy6hJ6xI45cwf8VZ9VwS2lAuvjUN84v+PqNNQVM2UWYyMN8q
SzkhDV1MtGplhsPmTfurtl1F/7nT0J0eDs2VbxQyMqlWeXkpMRziXDwqea+j
W/y+njgfDtpsNPtv30Cnxmi6+4fDJuJW2a4cav82fY10CId+NW39L7ep++Gs
+1UcT1nt3MjNu9T9MOu4WQLrHbgWfqwQbbek1kUXDnbVh9nZ71P7n+Y5ORgG
copTJZ0P0E851bUqwmBLZapWYimauVrsVkIoDMqqDGqXUedrae/8r1CoePQl
mFSJLiox/G0XBvF7E7bVPaWub2FxcX0YODyQKwp9hs5pcCQJhgP9vZiP83XU
+odUzr0Jh2FRqYASgjpfxIWrgmfhSd47eo8m9M7KcGnvs+CUs+vgUCua2+BS
19JZUOTveJfdjrb8dr9FIQIYsoN9LDvRXasXdvlFwDDXjk1sPejHWtxDBRHw
NONVzpt31PlvsvrWGwFJ2/2ULn1AN2Uo6dJEgnMad5fmJ2r+v8JJyUhQ3kZ4
bPSjaU+nNR6NBKbLnv89H0LLZwy+9Y6EEXq27DMj6E0yASwXIqE6vkZu/zj1
vGhL+V+PhORNLq/nJtGVzF+/FUWCayyDa/E02vTn+ciKSDhAqvzj9g09l9XC
+ywStp23yxCap67HYGoNeuwvrfTAAjpoqNDiSSTUhD9szvpFnc/fb0cfRELq
ioWj+TJ1vRsH7G5FgtuZ9d/b1qjnSzSu+hLW/1WY+vov9bxC4pxfJN4fRrsv
bqD7Eu4tmUbCxPxvQp1mDEjLz9Na9kVCre9tm3U6dMfAH9vNkZA+q/vz2Ra0
sV5W0ccIOOH1I/E0A1queFthYQQcnLouKsuMbtmgN/CNADZ39RezLOirBdLp
MhEwNTptUbQd3a/P5/ftLNQdvzLnwomO++czkH8Wrg6pXtzBgy6WpXRbngVP
+7Edn/nQHmX3NGnOAru1gompEFr9bXjskXCY7h34yiSKtuGMJk+GQb15XHSr
GLX/c8bWEWHgZfyhgiyFdrI0P5cVCuSOcwZ/pNHRGxfCBUKBw0BivEoWrRke
Vn4zBCg6oZz7lNB/tM+VXjoDmS+FHk2rjFH/Huvn/DsYvDXadAoPosNOT0g7
BgPnYb5QAXW0w/zaHP9p8FF88ZnhKDoy3oDXOAAaej6U1hihLTOWT+/0B65T
C1Gepmhn8uuezFNA3BOXeGWFfho/lOl4Ejh40oOinan5s2Jhjm7g9aRER9YN
Xdhxu+a8C9SbvOIdPoFuCyML7j4Ongl/KId80PTsHD6y1vBizZ1p5Qy1/iM9
No0DwJYVNXwvjDre8pnBeF44IX+zwjIC3dBrat4uSdR2PY2jO48W/l3MYwkE
q0+3dWU0ekTlTqfVEcJ966yUywW017NH3NHWxPOCTRus8egFOaOzW80JFnWh
t5QEav1Dpi+1jhBug6qFpy5T6/MMtx8+TNSEWYYKpo5R/3+OVE6sMLGNy9/g
TTq1/bGcx/2S8MyocEEyi1ovNdjB3wCYCJbDE3nU8X+KEFV3Bmf7PWwZBWhJ
zvCmNFeoWtEa1yhCl5b/3PbBHY7LhSfeeYiuWf1mq+4NT+6Of7CrRuezy7x/
EwD05I1ihufo5BeuGq8DwbGfN7LmBdr0SKxKYxBs5TAW5W6k7i9ew8y8YLCP
q/F7+wY9zVa5LhAG5cLvNaK70LRJNNfnwmBz/XdO2bfoTZu8Tz7D+/O36Ivk
Pmp9+o7MQxGw6erh1EOfqeszN/5xKQJsZWxcZgfQY8mG0sWRQOeZslV/FM0S
uHN0/RzY0BX3L49T95/HxX23z8OjO02P7k2h56MPuKlGgfWnFQu6OfSOUKkK
mWgoDWbfXTlPXe+xLqbT0UCzfd8f55/oJ1Oruk+j4eER1zzKMpqnvdhgXwwo
SouQYQ0tfibf1SUGKCwjA8Rf9LBRS8XVGND7eTtcfYN6PmN/KzTGQM97R55G
0jiQKkZZJ+diwLZasEqDDu088KuBKxbGsgfMmzajb8aef3koFnwibi5o0qOr
Uy9PO8XCkqNt6ktGtIDj771RsXBOnVdaexu6fTEzMScWtuz6+LqZFe3yT+Nf
dSykb87y1GFHe394F9sVC3zTlptbONGaUYLc47GQ385RoMuDfl+6WLkUC9KP
3qm38qH9id1WdBegKu3KsJ4gurkteZXlApCDTCPbdqK5U35m81yAVktW/iMi
6JA4MfkdF8BUpevZ611oy8FFQugCfOZLscIrAEjHwyXJaNf1o7/aJdGDq2nF
Ahfg2zDjlaN70X6Vi384L0Bw42uZjn3ou8959zNdgI2ChA5DOTTlS5vuRixc
itc72SmP3l/VpjIfC2zeW+iNldAWlwf/64+Fm0df3etSQeuEtN5sjoVdMnFa
JgfRB4yPbnoYC6VsWqPdaugrFZIHUmNB6RdNlCmg9bcIyfvFAuVDg+BbDep8
RMx9N4gFvZqoWjNt9CtmY0+xWOi5SbZ5p4uOif7vxh9cv3P/fpsfQZucehHT
GQNjx+sy3h9F31M9xJ8bAz6aEfstjdFSO1WOe8fAktjB7l5T9I3dHobyMXBu
65qvlQXa+MD5oZVo2DL7jLHPCm04KvX2eDSkd4QUH7NBHypSuV4fDXxlSrof
7dCz+hOmvDGQf2Vp3NoR/Vfo7pp/DEgHP4n5dBw9uWMouTkGyKr76z+7o/+v
6L7jqWzDOICTpozMjEJCtuwoXUISZRaykhAyskrJ3nvvfex9zPDKqqxktSSp
ZBYVIUq81/nz+/ld9/Xcz/3c9znP+Xz0vntdQswt/aGH/aeR0S3S/ng+kFLt
D9rbVRvjtuhd+lD82x8snghLTTiiRxg1znjj8yn8NmLijA7xIDa14vMJLXP6
4IrmufP+z298Pna21GZ30TIdottigRBymb980gPtO3GwzTIQDp2cU7vuSVqv
hVHp5EBIpy+a/eiFHm2bMn8aCMfXLAPNfdGb86nyPwKh4u1x7s/+aNpynTbm
IJBumWq/EYQ+R24zJx8EbZl5plMhpP4E6RrjILjgY/7XIhwduYvh8P0gGL7B
mfYlEv1bz4AxIQiuqUzKWMaQ9kO4YUFpEEzxZb2ajkPvGN/uag0C+wMmLlaJ
aH+VL7YDQbD2je3QbDJaP5g+eSwIErPmejLTSPsxMuvV5yCQ1Kr30ctER88/
/DEbBKNkfrKUOWgDqP80FwTOtZd/dOSh8+POE6aD8PuZrfheAbr6rLjohyCo
ZpozEy1G8+276z0SBJo9dcwzpaTndYguqjMIljx8BzMqSPUL//QqgyBS8HKw
bjWaP0LmRWIQCE2wnj1QixY1rVu5FwT9UbNr7fXo4/K32/SDAD+hK+8+Iu0/
Zz1B8SDYv+xjJdKC3j1w/eS+ICgmXDo63YqejPLvHwsE1Susr9Pb0Wc8K1YK
A2Fmz2ykThda8v0AwTEQAh/Vqux/hmbyHHklgc/L1merrQdtX1vkvxIAXWyX
6t370UVWskWVAXBjgMVe+AXajNJBzjIAyLxnjn8ZQpuUickwB0COWO37tFG0
w5xV8hN/+BCvobFvDP1koMPmkD88VGGhaBsnjR8uH6z2A/b16Ra3D+gy0RQf
dTxv17wFp6bQ6rOLpc6+8Jqz5sDjJdJ5mPNYoPICtxGvTtef6I1vj6h3PIEh
QP2+4C/0vGSF1dwD0Jn9Mp+ygV69dN0n3QNeVDD3ulBMAxl3KRNZmCvYm33x
EdiLbmOTsRFygYOHiLKf9qP33+TJe3IHLrpeLL5Mg/6Zm1JcdhueyT0M5mdF
k0l+9ls2Bctvamc/sqPHXvC8wPcFiiym9SQO9KEvwy+UtYGgOVV56Ri6o5Wm
wEgJzpFVW1HwoH2n+b27OOBTjefRFj40cbewUte5dp+baq/vCJD6G966p/yv
jYOJKeqEMKk+UEdFB+Bx92eVSVFSnnfWb00LTDyqthLF0adYEvZsG8BfAc96
DSm0zRXi9IfrIBfFyNMsh6ZapVFKuwUNehcoElXQq82fxCldIVSjKejIBfTJ
FtfkQjcwURbYX3gR3etAN3nqLuySPEjdqImefjY4o3ofNOmHmMcMSfcbf9t/
xxuOUSqmmRujRWsUrwr7wip5DfuCKXqQn67slS9kLMdz/bFAc/0J92Lxh/lh
fcEjDugCHkMu+0D4r7enosAJrQo0tOuBEN1xSkzEhXS/Dp5RnkEgRWSTOnsP
fXbuA9f9YNhXEtHYfR/9acpPYDkYxnO2Tmk9RF+6Jl9qGQJ+MZMK5n7oLhX5
NYVQuBKi1TEfQFrfLyca8kOB36dDyTkYHWh49+XuMBh0JFzwjyBdf/YufXMY
5Fkz9FNGo3ex9PBRhYObWeClhFj0gGG9r1E4sGla6xQkoYPLUxbnw2Hp/NuX
wqno8TM8K/wR0KGgpt+Qjg7/8oDHMgISpJvHFLLQVVmWXukRYC0iaNydg/YI
K11/HgFyvBkfNAno2vlD4RsRQHWUyvxtAfoPzw1xrkj4xOg1db2YdL2X12eV
IqGO6rvlfClp/zaPEMwjIXj39bk7FWjFwQfm9yPBaGvIdrOKdP9KHKxRkSCy
qrjoV4Oe8vPuzojE30E1jpT16FcyphaFkfDyC/dyfCPpfrU9Z0sjoeh9git7
M3qSIu0S+v7L3ev5/5H2xyv36PxIuPTc3UO4Db0YP1yYGgmcT2b/1HegZ61u
RYZGwkqLgZfCE9L8nv8+7RoJ3bW9O8+ekdYv82yVYSSklcn5a/aSzLQxcSoS
7Allu9/2ox++/tjJEAmK6ewh11+g1aaJ+gsRwBAfeWB+CN34iDepOQJmw/5F
3BlFz8ts3A2MgGY/R5rNV+j0ts9rFyMg8v7HWL+3pPXizThIGQHXnbUZKMfR
3zsmap6Gg4RtZ1L8BPqNjdnU/XDYc0OChf0j2vDh22SBcBgzzE/P/0w6L7Pb
vS/DwEctKKd+lnR9eYmow2EwamZjcnKBdJ7pBHjrQoHHXYO14htan6zj2sVQ
uBch+ubEdzSj8gHe8RDoz6NLyP+JvvuE2c8qBI40rWpx/iLdX1QSr2YwOA2+
pcpYI53fwkCh9WDomm7pY95AV/Sd5ksLAca/WcHxf0jr78dPKxsK1nR+yjT/
0FI5jz4OhULzCUuy8B3S/rlwNe5mGJhdEXzgt3sGr3/P1sszHIh21LL/9s6Q
/r1wQ9lOOFD4/fzlcQD9ibc52zsCSiobHe7QoJmjozvsI+HPkzTBxUNoHsqT
n99HwuXxh3O3GNBdaYJV56Mg9+f1gi9M6P3/prnKomBlr/KN6yzo2TvPJA5E
g8pRPo73bOiHdeIfLKIhRfLAe/2j6Kn9MayPouGM+dAVTW702YZqEa0YiL5b
S9fPg64wOr0RHwOfI5MGz59AWzaryY/EgFS+R0SnALrTM2t9dywENxurKQij
nRzlgzhiYWzo7J5mUXTu7Yrz0rEgNHusS0qcNF+fAqmLseC9tduHKEm6v5iX
mkaxMEw/f1pYBk1j+DXWJha4BZ5vFJ9CN7un/XaNBXeoajh+Gk1rEefzMBZ6
r8a55Cig4zz8ef1jgc3eTYxdkbSeG0dmA2PB3t9gMVkJTbePrg3dnipfSn8e
3V5LU+YXC/TVR62jL6D7V58VecaC5TOy45TqaO76WaJLLDS+//Ix6BL6bQ/X
M+tYOLDSnUmuhXbfPP7JIBZM9pdd89IhzW9f7vb5WKjiiGLe1EN/LFE5Kh4L
ZNJ3Xrrpo+2jOk+xxoKehl7sT0N049PIjK0YKLohc9neGD1dvKe2IwY27rFS
zpuiTbguV3nHgHr0VvdN8xnS38t2hcnEQFbBx4CPFqT5Oj9TmI+Gny1disZW
6FalhicJ0aA0UvjvzS20Uf4yo1w0JM6FtujakcZrjguORcHcv9v3Bu1Jz5t7
aPtOFL7PSCw/cyY93zDT7phImFRkqjrnRtpfDY8qmCJB3GDD7vFdNOF8jkxS
BLwJaJuu90SHq6Sz+YWDQHpe3klvdKLMnVtLYfCQGGhW4YtezzFU0AuDYx/U
x/KD0GUaC7YHQyG863T11VC07zedLM0QWCkWDt4XgZYp12MMx/PlQiN1O5a0
XhvXyhcCQdBwh/JoAmm+vZ4t1IGQoPDz82AS+oi28zeBALDcPxojkYEejmKN
w/eRgaUu6+kstIrQj1VNX5B+WaeQnIvubW2tSfaGvdlJ3zYL0ZnFxG2DB1Ai
ee1CJxG9tS3QeNgZDrGqc7jWoVmIJ7UVHOD+tvwaTyM6dfDSCUEbmPoiNPCm
Ca3GzTy8ZgHqfUfyQ/9D/zy2raNoDLVV1A/k29DaE2QK8jrAlritvdiBJvvU
u/DJFPzv/ziR/YR0vrXurvFawTezT9ta3WgPlc/uCrfhisrIa/I+ND/tvFXG
HWgV6Kqoe06qb7w7G+oKkav5RodH0ObEKgaZ+yAafqtx8j361LFl629+kOxk
GBU7iRYm3v0qFAA7Vy5aKn1GB7pwBuL7/zCnEL7xkz4PNMKHHgfDqT1HFgwW
0EVcvPaTIZD7larjwCJpvZsSV9dDwbnhu4PDMuk83C7Jpo2A8fSPKpyraPmv
/OW0kaDkO8w+so7ePih7f18U0GvU9kltoQdj/xObjIYHJ/NzZ7fRT68wUDyO
gS9MifdSyWfxfbPvQyOe//pP7rxbe9G7rlo6McTBkW7rrcoDaK8synnnOAgq
N3h5nQo9M6N4eCAO9O/K+T2hQ1/VVw90jYc2Y0FDd0Z0tkzSo4544DvHLnbi
MLo8/nrkgQT4ffDfRPgRdP5lmz3RCWC+vFR3hhPttMad05cAvW8mw78fQys0
Xn1GlggnW4du5PKgo7U6XCQTITWv45TuCXSK2HHCjUT83VVDu1sQfQHftSIS
wdaeMNsgjD5I+daZmAijOgmPb4mhn/lU7BtJBHnZwERWCXTJ2QDKpUR4Y8Eq
kyWFNrS8s58iCVyjq95yyaKPqZ7cxZQEh1qU7xfIoVU2An5xJ0HFzBgb/xl0
v4zImHASqNE5tpafRb+x/V4ukQQzZyjMxM6h/5aG20klgb9N6k6tMtrg6TNa
zDkSRfJkVNFXwDJFKAla2ruUWtTQoWZC/7iSwOCbwbSCBtroxOcz9EmwyrwU
1HkZbWZ1SXcnEWKV/E+c10ZXVUnJzSeCsOPhvl5dUn8bi6WBROhLq7C7dBX9
oz/brjIRrJ+doxo2IM13tq4iLBF2Lb+p1DNC15bYV+P6ZR+x13prglaaTHSU
ToTTauTLRtfRjvKbM7sTYcw1OX7yBlrW6BbdcAK45QhJWViit3orF5MT4NDz
jtcz1mj+PZmu1xKgcv3qPVtb9KfAXYTDCTB72bfljiM6itVnOjgezxuTyeod
9AO20z9l44GzsOzfPVd0suJ/8dNx0DoMOX/d0Z1HX/dExoHh1itFHw800eB6
xMk4WDthN7XLE61XIf5uKBbi9XYCgr3QPes8lXaxIOqTyEvpi/4nyUBBHgvP
ywR6ovzRXXX3nvFGg82bNhu6ILT/rEPghRjYvesKZVII2sqbqH4yFs5e876c
GYn+z5lP+UwcjAcy/OCMQasP2JT+Fwf3iCWx+XFolxDpQpl4IO57+bIsGc1E
tVudMwEuSdq4i6ah60T0FiITYMHsH3NtBnrSrodyPQG4G08YNeei11897WhJ
hLbPrX/P5KNP3srXYE4CY2rdrI5CNOVXnfMOSZBo+fBTTxla1OK1M3UynIyl
89eoRD9x3Z+hnwwv/is6PlRNev7NPZwZyWA3d/qZbi1alff83/Fk2MswYv2m
Hs06UcfPnAKEs9b7jR6h7eXU8i+lANj9Lf3QTFqv17LW3ikwkRSrcaOV9Hwj
m+3LU8Cjk3dpug390G9P7csUYFxqibbpRIvwXBX/nQI1LNonF5+gh099mWFK
BU2VmRGnbvT+iW/9Yqnw1emB669e9EhoxXuVVAjOoGW695w0Pw5LhqupcLyn
oPHPC7TgjK6DeSp0rMgZeg+jF5Japq1TwYRjaJP8JXrVdNLNJhVoWF0a/nuN
nrUTSbFMhU4GJmf3MbSHUNtXo1Rwo2kSFnuPjg+OstVIBb4DxvPzH9CMoenU
MqkwRrGdT/iE1redHWZLhfDt3OsmX0jrne5WuZkCZzaV2Zln0bx96lmjKfDj
1+yboXk0YelOeiGu3/ew+LBvpP2rtZztkgJXFoQ1lb+jG2LHCuRSYO/00IF/
P9EmjdJFf5KhadLlWeMv0v4RZ8tqwOfzjsnvzjrp/M6lBdglw9FXTWcEN9F9
Cs/1WJPBv2+7Lmub9HmwvzTNMgmknuY5GZDP4eccbQwFeRLMtakI0e0meSkN
UhLhUn04IfAAOvJBFXNNAmxXiZidpSKZc1+RVAIQS4dZN2jQquncP2vigSmH
Oe42Izqu0ywrLQ5605ov8R5GM61Nr1LEwYNEk/0fWdHunJs/bsXCZBjBR5cT
vZ3j4IrvLyVuoo5yguii3yprzqFg5DQi8EsYzeWhkPExGKjt3GYqxNAFHrnC
ikHgcr3FhEsaTZavOv3OD3iMTFnGZUl+/vUXvS+8uUL2KkEeHSt2L8DrIYRq
5cdcVkB3sK4FtnjAaXVVjX2K6IFzn15PuMF3lYW9nUpow4K316fvQC5Edj04
T3Kg6ffbDqArL+YtpYbW3lZNCnCF3dKjct/V0Ru5ST9kPKBRzH2t+DLJjaZz
Qw/BVpCl5oY2uvfdumixLwxymvG/vormz7Uv+hcIvmzk09GG6N1Ce58yhoAk
U0GOmjG63/T9TY4wSKX8ytxqjq7V1VvaHwXqe6JG3W+iiYcTmhai4d+OWLSY
9Rzp70ULLM1iwWLNfU/+bXS1hUb7kXhg/MnSaeI4R/q+9PVfjoeer/89ZHZG
C2mfU29PAOFP5Kthd9E3z1zvO58Ea/1RU3f80I954+r/4Xk9+NpmK4D0fMgM
K2NSoevSkR8hweiuwF/G7GkQO1j2NzsCXVEV38WZDndpV/wEo9E6r+MdU9PB
VFtuf2MsuuyReRNlBgiO9jC+SELHH/WlnsiAQwy0GYap6JicWarTmfBbT//Y
dDraY1ElPiETJhOzip2y0KZulSkzmfD09bTI3xw074z0YfEsKGMWrg8moFck
f1PezYI4A1d5+kJ0UBG1Q30WeKS2dGQVo30mUmUXs8DsHfkFgTLSer/7z/Jo
NqiwXXxRX0HqR5X1/UI2CBnH6ilWo/VNrIduZwN95tt3z2vQR06eJw/Lho0J
DnODenTlPTvvnGyYPGo9O9WIvthIea46G56ZVdo7NqNPU5kpN2VDRc7qyuZ/
aD/FXJ+WbIj/dPp+UBv6Sv+hnw3Z4HEsYOdQJ1rm/Up0WTZct+gPynyCTrCJ
0k/NBtV8Oir+bnSbtNA5n2wQnjaMr+sl+QPbxes4P95cFniOVvtQZXMqGzat
5rL7X6CnMxXSKbPhU5Eor/4wOvrBsbHXWdA9517+eRTN96rpSHoWVPA/Fnd4
jb5BZ21hkAUJtrubNt6i+ypj8qmz4EGZxtnAcfQJ5dzx1kww/xb/lPYD6fwl
7N1llQmqwuPqGR/RHxOkGfdmgojDsRG+KbSZe8HB3Az48736g8IcuvWQVGJb
OnwS+32zbwF99j9DNuV06Llz9uuVRTS1wjOnjjRIXBlYv71Mup9TVS6FqeAp
yej1+xe6XECXiToVLNyMKQLW0b6/I50dUkCtgRBGs4kOGPjn150MYusLtOl/
0cb31c6xJAOzrHgy7zbazoepzCIJtu55HKkhm0dXHz3glQhfmtoJZyjQ68c2
T9slQf/mXoHePegNQYtfWslAlNes1tuPHswN4hdNgRTPJOmPlOj77xNf7U4F
y3/HldZp0R8Hde9mpIH62du9fvRoZiFPM+N0EPep1aRmQm+V+RMYMmCb7Jwx
DxvaR0T/uEMmTJ8L/Vx9BC3U0alLkwXP/YduneZEU1ZrPCnOgtTdZm66PKT5
lopdfpIN2zcPS4/woSme/f2olAOWT4bXtATQb08nzbXkQD93eOOgEHrJe7aK
KRdO+ivfuyxKqr9xhkM9F5I/b8kOnJwH35nQ5rYHubCl2LihLok+XHY5qjgX
LHKdmvuksf7N4tfg4Vzo3eF/oHYKXfArqGQtF0SvT8n3yKOPfWb6wZwHiW0Z
f88r4PiPpokGUnnw5+jV1qeAFsj+N3k5D8y9aLyUlbD+8S1t/5t50D3Ro9Cl
gh44HH3WPQ+Ez/htK17A+p6SlkMBeRCfId/efhFztaaJtcg8+P3nl8/ZS6T7
ifz3NT4PTIwqFR9rYr3JEYGlxDzoarYmP6ODFqJz3MScn5Wrq0UP/XP4A1VU
HkR7vPOX058n/T1sJA/2X30br9xkiDkjfZwCXt9I9tJuWWO03uk9V3F+Hcl7
njWYoq9F7LHB+fOttwVJmeP4UZsaV8k8iLzqoVpnga5kFXJnyoOVevF9Elbo
C30ptr9ywZDxWw/xFjogmlPzRS60uRaEitlhPxqXJc78XOB5aXqxyh5zLzex
CbdcCJc4TCnihE5MZPZVygX95bAIQTe0SLjmHCEHWrWVL5XeJa3H7kBP3hzg
Jm5R8d9HBwX19uLnz3dHp2heb7RSQIiHZxZcGeTXKvBFc0oyD09kQovIFO3x
ADTRbqJfOhOCFq/EcYWi2c94Jw6mw1cNGt2ccHTHwzxDmnTQLu+h54hCR1VE
lJ1PgyN28ons8ej5p5FT6SlQP8eZwpyJNgkgHPqYAGwX3hkkZaO7X4sRx+PB
tyiehTEPfStnuu5FHFyy2pNOV4QOVlkukoyB2qdtRrElaEWTkP6ZSGDh8WCn
LUd7fGGPDg6H6amvmVRE9Kpv9IuEIFBXKjCNqEWr32ySJgsAYp4pB2UDKQ/w
YDb2BWbywx9DH5HOl4GhIv9DeGg+nLOvBf3pjgL9DT+Yag8zD25Fz5qzyWQE
ghqn8rE97WijfsOHXSHAMNlA2PWUtB+pMiTGoiCaysvrUTf6Tqp5qn8sUJ5W
MbTvIz1v+7h31PGwK3WU+s0gWuNpl+euJPDuTpsPH0E/lUnru50Mf1bNn8Ar
tKynXF1fCqzo/PAofUf6/KD+K3kzHRx9G/XMJtCC4xebsjPga5WXKMNHtE3x
49rBTPh8kGr64TT6/MVv0wdzwET+ZZv4HGn/ljIHUeXCmE162uwC6bx76ipG
5cLwM34t7R/oznULDq88uLT6Q2DPCun8VgqeWsyDXu5Hu1tWcf+x3Ha1uUoA
FR3vj46/0br9z8qaCNDuc77l+B/0rhDiH6Z8kK+iShrbQseE9eo55EPjxEun
qB3s57taUtOWDxIHM9SVdi2A74j4L1rKAqiSs+D9vRvNTqZlp1UAgjYCZBX7
0Od97VqjC6Ao+ee4OSW6QukPeW8BcD971MBEjR6+0izztwCyfnnH9tMuAFm7
pq0+fyGwcKve9qFH15iPmmgVQqI2taoUE9b3mT85f6cQDvm84lo4jK4Zo6OO
KITIyoy/WWxodYb0qpxC2D9h8Ub3KDpXEPiqCiGQUrBmHxeawPTNqbEQyOSW
I1q5SfNtjA5pKgTPW03WzrzostljtvWFsJ7kc46PH6/fEpp/qKwQXJ6qHnkv
iI6JZ32QVgjfV6h/x4igHx6Ny/MvBLtjr0dUTuL4v64cAVaFMKuVWbEpgZ7k
/MCmVAgW3jdDqqSx/r+NH5YshTBZIWhx8xTmhyT8TOcL4Nr75TMsp9EDtl1k
tQXw6kDz4RcK6MbGRXX3AtA+5bvip4jj3zcqnpIogAHrCy9klDE/mb332Xw+
qCXRlHw7jznn+eil1Hx4+uS1f64a5sKyYlVK+aC4kml6VQPz7k41ilkCyGoJ
MbRroxd/h5mwEqDWa2XJVQ+dG5lyrTQPRCuae/n1cfyP0oUJCfz8O6DmHW+M
+TVHHxuJXCDI0l67YLZA+vur0ZfaOcBh/UZyyxz9nauvRywb0hOzaGpuovnc
xYvIs4D5ieWClTX60vxtm+4MiF8WespmizbrM7xElgk0XL+yh26jRddP9YRk
Qbhmy/1AR/S9bzPrZDmwx8vvipwzOlKkbV46F+qXFzfbXXF+MkKUnWO5YGlt
mKN6F/P5kcN6+Hn+VEvsq54n5oe12hIzCOD2ND1m3As9rRpxhjcfeOT2St/w
xXovZf/oknwI5P7g4xiEvh1GOJZZAFIparxrIaT9dE/WmKoQpg/W93uGo2MG
Xojdxf3oy3lnVxTWO7NVZrwrBJW1cKawGPRVbp4MmSJYtV1voY3H+vmpUMGo
IiiYvGGenIheLTil+qEIrui92HM0Beu996d+5SuG3b2nyvPT0MV0DIx2xVB/
pkBbMBPrV6SPthcVg2UN7ToxG3MdW/H5iWJg5PPMkM3D3FxoNIKqBJ6mzyq2
5WOekhhWJF0CbrS6sypF6LCbC1KGJcAT+DjieQmpnjJC0q0EXm3wi+uWo//9
R5sTVgIBDolvxipJ5+U+l1tqCUhM7XheJ5LWl8uxOrcEpvRvH5utJT1f95rL
hBKIf/6m276BdP5kyzWySkBJUcn+1yP0Ah9PUVwJfh9W0j1oQf9hXrrmUwIE
AdZHZI9J5+PP5E3rEtDNDjQJaSet56/xDtUS2MXwk5ymC/unmvQ7cJVAbYhx
ceJTNM377Fu/isFiq/sSew+pv51ueXsx0DtLrOT1Yb7fYU46qBi6ZrJS+AfQ
kg02u1WKwcXogEL1INZzpS4wbBUB95DblPQI+t5m0I3KIvBv0hBRfoOemSkv
/1sIEiKPRvvG0IX+qYTUQpjK4/bQfo/O+GA9IFoIShGbXaafsL90x1ClagGs
7FjaTE+hr1MymvfmA8FtmPr2DLq8PkpeOR/IzYoNPb6Szufvt6Y8BCCO0m9v
L6JLhtPzwvF96IJ3ftAP0udP2T2Kr7nQcfLq9/hVHC9yJUGMPwd8KSgCK7fR
h+2f+wmmwUkPRwEp8q+Yx2RZh6bAp8V3gy0U6HqfZouxJIi9cd7t3F60bcSY
M1siKL4hsvbuRyfl9cRoxsNP9SPtmgfRPc63mtxiIbc9xPI1NVqf8doQaxRo
S/06YHIIrbR4VlI0DMhKzaqn6NE/3b3prcOhe/GtYw4T+s+5nnc1MRB5UkfU
hAXNIBxlczseDjcpV74+inYWkfp7FX8v/m21j+dC661zblWmAQFkhLWOoyn/
LNmsZIBoD395Lz+a14EowpULq5QEuyChr+DbQbk+w5MHLZrsgkqi6DhThnZO
Apx/Q136nySaWsCu/Xc+ULKF2HjI4Hhp2+SJVwUwbErGLy2Hjjzhu7ekEExm
VoqqzmL928u8DieLgVvA3vr2OTRLg37uTDHM28/w8qug/70UfxFbAlVEs5lp
VRzvksz+Q7wUXFffFuRdRFdMhZH3lcKpUzqWZpfQXxopyPTLYNuz/zi7Fo6/
cuHY7FgZPG1X/vJWB3PWI5HVOuUQTvGYkHgFbSm2Y9BRDtoXZCx0DLC+7eCF
9zwVwBxRfYzGCHOdr+ekfSpgYpD/c78JWmXk442hCiDQE3JDrqMjarlNmSrB
Rp/dXMUCx2uHcxzXqQTR9EROcivMJ702q/0rYfUD9cfHtzB3+fNtp7QSmo+F
ZD+wQ+u/UqTtqQRvKzIzWQf0hNXV8XeVoFJ6/+iqE7q2Ks10qhIol1YmiC7Y
T9g1NulTJQyftM90cMe803jI+1UlJLvNGAt6YB7MuMPUVgkmTWbscw8w/27/
3iCrEri33o7ne2Eedk/ynEslvvnrpJv7oqnKFgbPVEJVQP+1owEk//v1b6sC
3HqUWceDSPuFyuR5bQXIH3w8lhyK/e7LgpRZBexoyqTqRaBPdw5K75TD0/hq
g0PR6NWfWi+ScH3f8B9+EYvjP0gc2ThWDsxm7MmqyWgNthv/2MpgIi/xKkUa
+vy9ldGQUiDMUDN1ZOB4uRQyia8l+PuULFEuD/NNrZKAmGJYId7XW88n7a8l
MpfRImhaXaGvK0LXp175TFkEKg9n4oQrsF6TcOW0SQFQdpjpLFShz/nacbvn
wzDF2KGiGnQeUTMggADJF3SGLepx/J6L9iYheWAc0R/D+QhzGnK9pQ0CcA0p
a000Y86V+P4STwHM0j+mSWtFa16JUFDG94306ij6LvQJ4Z8dxsXwaCs9pOsp
aT8u3n+vXQJbZsF+Lj2YVz4fX5ArBaVOZ0/ufsy9ky/OM5dByHFT99EBzA0t
GF/OlcFAkJqT/xDmyrW5RRXlQD8vaSsxivlA5u3rVhWQWUFpGv8W8yMW/K61
lfCZZl1faRzdSojoUa0CPufP2isTWK+XfGh1sApuvxxQJ3xES7lUrKlXA1G6
SUV3Cq0xY9/XUg1rKflnd82gvTnPyNASQf5P9Knaua+gePD53u/yRPzd9kDC
4iv2n7/XFW5OhGdtVsL0S6TzW3fioC8RKI/p8HX9+AodP0v/OqQRQTvgDJfL
CuYGcodqK4iQNHOCjXsN++3aq/KmmQjjFxgYR3/j9WSj/d91EIGzbJva/w+a
/uzTlk4iWFJ93SfxD50XQHO/lQiljq/Jp3Zw/PyUK0MNEb4Pd/yN2/UNOugp
GcNyiCApWbF2bs83ICuZYX8XQgSPpJQfy/vQ4/XPdtkRoe23/0IeJfrd0Wt7
VIlAYeT4RYcax6srCX1iJ4Ja67UP5IcwDy5W4H1bDdEc59/W0KN7tdVO2VXD
S9+TIzeY0APZLhs/q4DlC/tzOhb0kMYry9tVYHp+37NOtm/ge/Nt7kM8r4Ti
lTbno5hvVJ+A05Uwd2Cy6RgXesrkVXlsBQjb99WOcGO9Volo17tycB6sr/Dj
xfxi37gfczk0nswtEufH/Eh02lfVMji3djc9TgRNKTbV6F8CwQYWiedOosXY
vNmii2Gg+XL0sgS69YjOCXx/0ffm8dc5hTbaQ3HWugDs9o3a0ilj/xfdgx/3
50C17eObnefRaSG+14wyYfV5iamzGrqhW1s8IQ3kRRMNjmmQ7u9gj21dMvjE
+uiMXEZv95fs+S8Bnq7Yafhpo2VnKmqfJwDlVf3z4npoWnfxZkIKaD06B5+v
ogsyPrtey4BEVhG5OEM0w6v3Ez+y4Z0ni+Q5Y5wfObfKb3xf5ZikEFk2Ja13
8sDIBwKUEMa5dG6Srn+NYWVXESzt7mYjt0aHSYOkVzFI3KphrLFBW05snJkr
gcdCofvpHLEfK20CIbwcZF4dfhF/B/OfZUHO1RVAfFgcx+iKeXaKIEd3JQjw
yuonu2OuG+hYjOeD8KKbjcUDrfXZmKqvGo7c1f+Y9gDrNwKpi4xw/3LM5rN7
fQNFadnN2j4ihDrtEeH0x/3jGPoiPr4GyFmSlnMDMY8MU7NarIEHHTyN3CFo
+ZTV41ALqzb1DwrCsH+dUedgeC040KkAXyT2f763ymqoFmabX1KURGN+36Fv
nqoOzC1u9grEYf8zTBKGynXwjvJXZHkC9nuiyVzvUge6df46Isk43l+9fiu9
Dp4b0zNXp2JuLWok0VoHKrsJ4yczSOsvZH31TR20VYjn1GZhfXCiqvVCHche
7bwplYu+snLfaq0OiP+0+RsJWK/HHqP3pw4Eiz4tyhaih9V4xTfqIF/zTk1z
MVpCZHH7ex0c+b3jfroMLU1Z8HiyDpJzYuQfV2A/np6jjj11QKvGuXO2GufD
v+80XWkdhP6setJRg26G78UBdbAr7WyoUj3e3+9BeUmDOvA8N3jpaSP2u0Iv
XX+8DlYXTOlUmzGn9dolvFALjvFLr3v+w/4/q95lFNfCnLxX+sU2zHfCd+25
XgvmX6iuP+9A62i+saGthfGIzOOXn6C/FrX3NtWAnpTw/OAzHF/VL89nXAMD
E/9VaPdibhf92n+dCKpBGs6j/Xj9hYdin8KJ0C7yXvrKC8wPfd8EFiLUev9p
MxjFPCV8m/1MFQidCA949wr7tZss7QhXQsEQq5rxW9L4rOrftBXA4VFK9eEd
5nyPTfbNlEEKl9yI2QTmnRMnJStK4VBfb9KnSfQD8igfqxIIdzY0sviMPqL0
++ehYqBgm+eY/oLeWWeLxN/DD7vufbGaxX4X36wZ/iuBNbt9JXPzaG+CsXpq
GTgypNjbfkPXq5icO1YBNywb1+x/ovutOC78q4JxKtWW7yvYj3jzizA/Ea40
vPa+s4b57NHF1l68/71r+9z+oPN4N9a+10BHVeDA2hZ61Y2Q51YLcgaMcfd2
8PkRorSuLddC7U7+1U3yRVB8sR3BYVUHwiWSbJ67F6Gjx/zvylAdFGo/mdza
i3msq+GYeD1wbOrmex/A3EHBfTi8HlLzpm6RUS3i+7DA6Q/j9UCn7iLsT4P1
7ifKybgbILeT9qA83SJ+3/FOMlg1wEm5yoVlBhw/zMdTm9UA7UT13lJmHK/V
Zzv5vAE0+eeLbrBi/fFPrRk/GuBDTlAQ6xE0Xd6lpf2NYH/4uOUIB46feGn7
5nAj/I3uUAo7hvYjDzE60gjhe82OnePBfpH5p7yYG4HV++/OBh/mpXrSSnsb
oWQtdZIogPMz+Hu18lsDnHKQeWwjjK6hSO7qboCe6ZcZXGJ4vaAghuCUBtA3
cX4wJo62u0+7ZdoAsy9prsVKYf3R+SV+tgZw16iQVZNF/2KToRuoh91PLjKT
yaPDB+KbXeshQX5u9dEZdMi1UT66euCuDXzpBDifpOVZ04I6qBHgrj2hhLlP
7+xNkTpQzGuP/aiCdrtAdbaiFoZYTJ1SLpDu72zjMlctmMX+uayljjkfs01g
RA14+UgfbNdC84iWmioRger36MJdXbz/N6s/rh+thkzHO72iV3H+31Uzl/Mq
ocW0PCjbCHNVPgMapzK4+FrNUt8UXflXoe5RCYxdmlWiMUeLzU57LBbB+ulj
ZN5WaIl39lls+RBU1zYpbYP99tJGsjDmAaOQyeMlO8w59oy8+5UFBYTNjEIH
9Gdir25qGkiypTwwvYNOIGQWjeRAV5zUNSZXHK9yz3mbSADdA6OyL9zRmvKH
WU0K4c4G1doZT7Qh46fzxmWw41T2ctULx9eF33fAz//ouQu1Fb7o3rsB1bNV
cPT6TKxlANZfjH8fge8vFW/8nY4E43rIKrFd86mB05pcmq9CMX9n0vnMqRb6
nz0WjozAfP2K2phOHSzUbyz8jcX1/dk6duBbPXgIJ/fWJWD9+vYbGUID7C+Q
LL6djI7Uy+HVaIQU9pGg42l4fesB4oeZRuBLcLR8n4H9Imk6rF0eQQMllXJC
NtaXZzzq/fkIVPxLj2nkoR3Zmw7eaIKXm6pkFAVYL1/IcupJE1g4T0+2FGE/
Vspb+oebYXne77FLKc5ngcPGifT//THnzBSsQPfuZYlMaoZDY60PpqpwfK1X
WUN7M+RoGV1Lr8HxLscj1t434++737K69Zi3dpte/doMbWeTmCkf4fhk4vYk
+nKjxFpnM3r5h3/mh2aYEBl+eb8V66MKT6V2Yb9vdF4U7dgv/HPDv8xmsCjV
44vqxPquIb97t5uB71bSEPNTvB8XqRAa0WZY4HnrkduNNqX98Hy6CSqmWLgF
+3B8wGh3U0wT3Mk1el73HL2QWj8p2gSSZpluCoNYn2eqfKHrEayzTx7tGcb+
nyUUti4+gpZ3nD3aLzE3u5+2r7sRvFJu3Bl/jfNrP+zlKtMIilfzWS3H0Bdq
5dUzGmA3w0zX0jg6b0o3ebUeeob57O99wPHvndwslOohPNqGifwT9o8Mftgc
WAd0lIu3GGew3lI7W2quBl71iNBlz+H8yK6YOO2rgdQgp5YTX9Gevy5aHCGC
sXLNzZpF0nnQvC5xqQo4yH9Rnf6B/SmUDiperICpNqnGp8uYn5rbCpqrhMKH
d69rruL1NocenJMhgvDGZs2NTaxP30y4hO8LPxpOG3/7S/r84u74kVEHta5e
u923cfyITLd5Vj3cFW+v3CZbgo5+leDy6AaQ+0FmEEqxBGQ1Y0cnnBphq0KJ
jH4v5sYX5rcVH+H3XmBpxv4l8OX/6821qwkC+Lt1eQ9iPtTRfLmuCVRn921V
UeN4T8bqhCvNcKDgYuGpQ5gfdKrfmWmGgRsRml30S6T/Hr9Zzq0WqM43UZJj
XIKEyOec10pb4H9h9VWq
"]], LineBox[CompressedData["
1:eJxTTMoPSmViYGCQAWIQ/c3rxls/y7f2k3tOy0eu3GXPZLf8UYz1W/sDqyqa
VHx22R/9/aL7mS2QrxyT4npqp33HTi3TAoe39gxebGy7LHfa+5Tn3Pvp9Na+
oaD25ZRZO+z5Tde1N7u+tXf4EXjtxZvt9tM2GN6a5gWUN/3m7pG2zT4yr7hZ
wRfIn9ewq6p3q72MzladVf5APkeLUMmyLfaLl1vU7w0B6o9+FsWzbpN9WmqV
hns40D5dz6IrczbaaynvuXghEuie31f2bq3dYL9hnr3KkzigfMG6LUY6a+w/
V31mT0wEmndP/c3OFSvtzcKXv76bDOQbfNimx73cvsI4+nxUGlB9RF7w7uAl
9rv5+TdfzwDKT/7e0dW00P7f60PTQrKB/Fl/GNjllto7nCirupgL5MtZLkt7
tML+WMM9x9NFQH7G6xNmz9bbc8ROUvUoBbrnz7MQxskb7b0t3TiPlgPdP634
6x+ZzfZ9or/eOFYB7fP341ObuMX+wse1F/bVANW/Mjox5f1We+FziVus64F8
jhtrEi2224etEp2xoxFofkvi8qXZO+xvJ9XGb2oD6pduLvkxcZf9pViTKe/b
EPEFAHt34qQ=
"]],
LineBox[{{0.9885845190657561, 0.10414654756782431`}, {0.9886739303824263,
0.09832305768194183}, {0.9890171439948328, 0.07446096207363007}, {
0.9890291161255931, -0.06257493347660355}}],
LineBox[{{0.9423010226613139, 0.10414654756782431`}, {0.9425415644756441,
0.10023617644662153`}, {0.9428710547731567, 0.09447542790886576}, {
0.9432005450706694, 0.0883153079695429}, {0.9438595256656948,
0.07481729891303424}, {0.9441890159632074, 0.06748972793709296}, {
0.9445185062607201, 0.05978342238104872}, {0.9448479965582328,
0.051703688157552996`}, {0.9451774868557454, 0.043255890404014785`}, {
0.945506977153258, 0.05616437159467402}, {0.9458364674507708,
0.06788012932617526}, {0.9461659577482835, 0.07882536333411938}, {
0.9464954480457961, 0.08900718224076165}, {0.9468249383433087,
0.09843278645372333}, {0.9470419140048901, 0.10414654756782431`}}],
LineBox[{{0.9302584455155006, 0.10414654756782431`}, {0.9302847907958202,
0.10383976913220128`}, {0.9305884833575429, 0.10002604495479961`}, {
0.9311958684809881, 0.0915752812030668}, {0.9314995610427108,
0.08694269896137641}, {0.9318032536044334, 0.08204166491035547}, {
0.9321069461661561, 0.07687447320668461}, {0.9324106387278788,
0.0714434444090628}, {0.9327143312896015, 0.06575092559312079}, {
0.9330180238513242, 0.07357232381600998}, {0.9333217164130467,
0.0807113525489962}, {0.9336254089747694, 0.08740668573934762}, {
0.9339291015364921, 0.09366106236210303}, {0.9342327940982147,
0.09947725796174733}, {0.9344963276703411, 0.10414654756782431`}}],
LineBox[{{0.9648616915314199, 0.10414654756782431`}, {0.9651211395705442,
0.09658246914588897}, {0.9657360523718435, 0.07695813013331865}, {
0.9660435087724931, 0.06632727393199556}, {0.9663509651731428,
0.05517068602966546}, {0.9666584215737923, 0.0435035841751672}, {
0.966965877974442, 0.08518513369614222}, {0.9672733343750917,
0.1009157583144864}, {0.9673428235358307, 0.10414654756782431`}}],
LineBox[{{0.9553697180273434, 0.10414654756782431`}, {0.9557211763761511,
0.09597564298234129}, {0.9560506666736637, 0.0875371896234931}, {
0.9563801569711764, 0.0785932611849427}, {0.9567096472686891,
0.0691540203431753}, {0.9570391375662017, 0.10070383815455486`}, {
0.9571455434583279, 0.10414654756782431`}}],
LineBox[{{0.9817224278327729, 0.10414654756782431`}, {0.981809658134299,
0.10008866600453015`}, {0.9821528717467053, 0.08290778685696498}, {
0.9824960853591116, 0.06460084010245115}, {0.982839298971518,
0.045257475765248856`}, {0.9830947099192038, 0.10414654756782431`}}],
LineBox[{{0.9930326538128269, -0.06257493347660355}, {
0.9931357073437093, -0.01955942446647141}, {0.9934789209561157,
0.09280459430346699}, {0.9935252127162274, 0.10414654756782431`}}],
LineBox[{{0.9747532005628013, 0.10414654756782431`}, {0.9749597443913325,
0.09600863954488714}, {0.9752672007919821, 0.08315841917619693}, {
0.9754610758169241, 0.10414654756782431`}}],
LineBox[{{0.996503981947814, -0.06257493347660355}, {
0.9965678434677729, -0.011565444993718699`}, {0.9967956123846754,
0.10414654756782431`}}],
LineBox[{{0.9986886436166278, 0.10414654756782431`}, {0.9989703387546176,
0.04308995737871399}, {0.999313552367024, -0.012980536697104597`}, {
0.9996567659794304, -0.03323138975427601}, {
0.9999999795918367, -3.918241324647925*^-6}}],
LineBox[{{0.9938270280911412, 0.10414654756782431`}, {
0.993838242769931, -0.06257493347660355}}]}}, {}, {}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{0, 0},
DisplayFunction->Identity,
Frame->{{False, False}, {False, False}},
FrameLabel->{{None, None}, {None, None}},
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
GridLines->{None, None},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
ImagePadding->All,
Method->{
"DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" ->
AbsolutePointSize[6], "ScalingFunctions" -> None,
"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
(Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
Part[#, 1]],
(Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
(Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
Part[#, 1]],
(Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
Part[#, 2]]}& )}},
PlotRange->{{0, 1}, {-0.06257493347660355, 0.10414654756782431`}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.05]}},
Ticks->{Automatic, Automatic}]], "Output",
CellChangeTimes->{{3.71430327294204*^9, 3.714303300884516*^9},
3.714306630465499*^9}]
}, Open ]],
Cell["\<\
We stress that one can never guarantee that these filters filter out all the \
unphysical modes and none of the physical ones, one has to be careful with \
these and check on a case by case basis.\
\>", "Text",
CellChangeTimes->{{3.6868154683960123`*^9, 3.686815513617673*^9}}]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["Diffusive channel", "Subsection",
CellChangeTimes->{{3.675599068330777*^9, 3.675599070374464*^9}}],
Cell["\<\
Similar to the shear channel, there are incorrect solutions here at \[Lambda]\
\[TildeTilde]\[PlusMinus]k, and an incorrect zero mode, for the same reason.\
\>", "Text",
CellChangeTimes->{{3.675683451219371*^9, 3.675683477793561*^9}, {
3.714303363305998*^9, 3.7143033672771387`*^9}, {3.714304055179719*^9,
3.714304064165884*^9}}],
Cell[CellGroupData[{
Cell["\<\
First at machine precision, using 40 and 60 gridpoints and taking only the \
converged values\
\>", "Subsubsection",
CellChangeTimes->{{3.67559852715554*^9, 3.6755985532513523`*^9}}],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{"AdiffusiveModes", "=",
RowBox[{"GetAccurateModes", "[",
RowBox[{
RowBox[{"Adiffusive", "/.",
RowBox[{"k", "\[Rule]", "1"}]}], ",",
RowBox[{"{",
RowBox[{"40", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"60", ",", "0"}], "}"}]}], "]"}]}], ";"}], "//",
"AbsoluteTiming"}], "\[IndentingNewLine]",
RowBox[{"ShowModes", "[",
RowBox[{"AdiffusiveModes", ",",
RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], "Input",
CellChangeTimes->{{3.675598479085763*^9, 3.675598485524274*^9}, {
3.6755991032002087`*^9, 3.675599113939678*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{"0.144022`", ",", "Null"}], "}"}]], "Output",
CellChangeTimes->{3.675598486236977*^9, 3.675599114911199*^9,
3.6756801076941566`*^9, 3.675762721718388*^9, 3.675933831344491*^9,
3.685102592312191*^9, 3.685193864166987*^9, 3.68519389436093*^9,
3.685194657193622*^9, 3.685199429396703*^9, 3.685782781926367*^9,
3.6868155278697653`*^9, 3.686816871248439*^9, 3.7143033442336273`*^9,
3.7143066306570463`*^9}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
GraphicsBox[{{}, {{},
{RGBColor[0, 0, 1], PointSize[Large], AbsoluteThickness[1.6],
StyleBox[PointBox[CompressedData["
1:eJxTTMoPSmViYGDQBWIQzcwAAh/sGaBA4e7f////v4fzox5u/YfMv7Tt1TNk
PlT/fhif8R5YP5xvA9EP53NtB+uH87kXPjNANm/HAjAfLt/YJHvxN5K8cjOY
D5dnk2b//B5JXlgKzIfLT9u/499ZJPlrB8B8uLxa9rW2KiR5U5cbID5c3q2m
9evhfwj5NRObQHy4/JtH9xQi/iLkn364D+LD5ROdTnrv+IXkPw8wHy6vfPB+
sc43hDzjTjAfLt9ZEi6x/R1CPrsOzIfLbywzv8j1GCH/OQvMh8u7W4gINl9E
yKu7gvlw+bmSpxwUdyDk5XjBfLi80pwZgv1TEPLbl4P5cPlVB77VtcR+sn/R
9f3+vycP97NB+PsrWiH8/XWf4pP6/9mL/Svp4VD8s7987XUQf7/Kkzlgvqdi
xZMPluwHrpYdWKipxH7g6GPnVUC+w+ZpF3aC+DB7JkR3qwcwch1wuHr8AGse
/4GWr8sPn+zhP3DifecxiTx+h+MvPY0fAfkAj1j+QA==
"]],
FontSize->30]}, {}}, {}, {}, {{}, {}}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{0., 0.},
BaseStyle->{FontSize -> 30},
DisplayFunction->Identity,
Frame->{{True, True}, {True, True}},
FrameLabel->{{
FormBox["\"Im \[Omega]\"", TraditionalForm], None}, {
FormBox["\"Re \[Omega]\"", TraditionalForm], None}},
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
GridLines->{None, None},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
ImagePadding->All,
ImageSize->600,
LabelStyle->{FontSize -> 30},
Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
(Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
Part[#, 1]],
(Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
(Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
Part[#, 1]],
(Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
Part[#, 2]]}& )}},
PlotRange->{{-3.9287219105705447`,
3.9287581930966304`}, {-3.943790817921783, 0.}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.02]}},
Ticks->{Automatic, Automatic}], ",",
TagBox[GridBox[{
{"\<\"n\"\>", "\<\"Re \\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(n\\)]\\)\
\"\>", "\<\"Im \\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(n\\)]\\)\"\>"},
{"1", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"1.00000000000000066613381477509392425418`10.\\\", \
TraditionalForm]\\)\"\>", "0``16.421394517440664"},
{"2", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"1.14783143611206606138352981361094862223`10.\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "0.55920356505916135603229122352786362171`10."}]},
{"3", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"1.9100059268893543329`8.017254740934009\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "1.7580647932626383145`7.981254902939009"}]},
{"4", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"2.9032914971504948376`5.0008683893537045\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "2.8916809689388665028`4.9991281239388465"}]},
{"5", "\<\"\\!\\(\\*FormBox[\\\"0``6.157160308799992\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "3.2506411637691101646`5.150514997831982"}]},
{"6", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"3.9287219105705446509`1.9991696936091985\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "3.9437442098266632939`2.0008271436359917"}]}
},
AutoDelete->False,
GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
"Grid"]}], "}"}]], "Output",
CellChangeTimes->{3.675598486236977*^9, 3.675599114911199*^9,
3.6756801076941566`*^9, 3.675762721718388*^9, 3.675933831344491*^9,
3.685102592312191*^9, 3.685193864166987*^9, 3.68519389436093*^9,
3.685194657193622*^9, 3.685199429396703*^9, 3.685782781926367*^9,
3.6868155278697653`*^9, 3.686816871248439*^9, 3.7143033442336273`*^9,
3.714306630709058*^9}]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["\<\
Now increase the gridsize and use higher precision, and filters\
\>", "Subsubsection",
CellChangeTimes->{{3.6755985560516357`*^9, 3.6755985726228123`*^9}, {
3.686816000477667*^9, 3.6868160017712383`*^9}}],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{"AdiffusiveModesAccurate", "=",
RowBox[{"GetAccurateModes", "[",
RowBox[{
RowBox[{"Adiffusive", "/.",
RowBox[{"k", "\[Rule]", "1"}]}], ",",
RowBox[{"{", "80", "}"}], ",",
RowBox[{"{", "60", "}"}], ",",
RowBox[{"Eigenfunctions", "\[Rule]", "\"\<Later\>\""}], ",",
RowBox[{"Cutoff", "\[Rule]", "6"}], ",",
RowBox[{"FilterEigenfunctions", "\[Rule]", "True"}]}], "]"}]}], ";"}], "//",
"AbsoluteTiming"}], "\[IndentingNewLine]",
RowBox[{"ShowModes", "[",
RowBox[{"AdiffusiveModesAccurate", ",",
RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], "Input",
CellChangeTimes->{{3.675598479085763*^9, 3.675598511403153*^9},
3.675598987881298*^9, {3.675599100752067*^9, 3.6755991301373463`*^9}, {
3.686815860921197*^9, 3.686815864035667*^9}, {3.6868161895177603`*^9,
3.6868161923255053`*^9}, {3.714303697573928*^9, 3.714303697718185*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{"241.129497`", ",", "Null"}], "}"}]], "Output",
CellChangeTimes->{3.675598818266225*^9, 3.675599447375236*^9,
3.675680406057725*^9, 3.6757630125358553`*^9, 3.675934142135874*^9,
3.68510287861003*^9, 3.685193890031125*^9, 3.6851949389473133`*^9,
3.6851997143765373`*^9, 3.6857830672889147`*^9, 3.6868155327979794`*^9,
3.686816124833795*^9, 3.686816193564953*^9, 3.686817124600716*^9,
3.7143036479033117`*^9, 3.714303698680345*^9, 3.7143040829093103`*^9,
3.714306871862823*^9}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
GraphicsBox[{{}, {{},
{RGBColor[0, 0, 1], PointSize[Large], AbsoluteThickness[1.6],
StyleBox[
PointBox[{{0., 0.}, {
1.1478314361117639`, -0.5592035650598038}, {-1.1478314361117639`, \
-0.5592035650598038}, {
1.9100059253775765`, -1.7580647942412817`}, {-1.9100059253775765`, \
-1.7580647942412817`}, {
2.9032930807127166`, -2.891680854707115}, {-2.9032930807127166`, \
-2.891680854707115}, {0., -3.250637029211618}, {
3.9285553165733362`, -3.943385928782132}, {-3.9285553165733362`, \
-3.943385928782132}, {
4.946818212035725, -4.965185140879754}, {-4.946818212035725, \
-4.965185140879754}, {
5.958793511450295, -5.976169494266855}, {-5.958793511450295, \
-5.976169494266855}, {
6.966916431412914, -6.982483321051846}, {-6.966916431412914, \
-6.982483321051846}}],
FontSize->30]}, {}}, {}, {}, {{}, {}}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{0., 0.},
BaseStyle->{FontSize -> 30},
DisplayFunction->Identity,
Frame->{{True, True}, {True, True}},
FrameLabel->{{
FormBox["\"Im \[Omega]\"", TraditionalForm], None}, {
FormBox["\"Re \[Omega]\"", TraditionalForm], None}},
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
GridLines->{None, None},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
ImagePadding->All,
ImageSize->600,
LabelStyle->{FontSize -> 30},
Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
(Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
Part[#, 1]],
(Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
(Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
Part[#, 1]],
(Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
Part[#, 2]]}& )}},
PlotRange->{{-6.966916431412914, 6.966916431412914}, {-6.982483321051846,
0.}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.02]}},
Ticks->{Automatic, Automatic}], ",",
TagBox[GridBox[{
{"\<\"n\"\>", "\<\"Re \\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(n\\)]\\)\
\"\>", "\<\"Im \\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(n\\)]\\)\"\>"},
{"1", "\<\"\\!\\(\\*FormBox[\\\"0\\\", TraditionalForm]\\)\"\>", "0"},
{"2", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"1.14783143611176378137711763505777860205`10.\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "0.55920356505980382785446048439437331092`10."}]},
{"3", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"1.91000592537757654513882575472597723214`10.\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "1.75806479424128172236313806445625143943`10."}]},
{"4", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"2.90329308071271657457979378791357305545`10.\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "2.89168085470711491778532387098010758564`10."}]},
{"5", "\<\"\\!\\(\\*FormBox[\\\"0``29.67318685631454\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "3.25063702921161758798438215500858916585`10."}]},
{"6", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"3.92855531657333628269175573866078821084`10.\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "3.94338592878213200609415628461462688392`10."}]},
{"7", "\<\"\[PlusMinus] \\!\\(\\*FormBox[\\\"4.946818212035725659`10.\\\
\", TraditionalForm]\\)\"\>",
RowBox[{"-", "4.9651851408797538613`10."}]},
{"8", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"5.95879351145029454`10.\\\", TraditionalForm]\\)\"\>",
RowBox[{"-", "5.9761694942668550611`10."}]},
{"9", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"6.9669164314129137903`6.9995148062474195\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "6.9824833210518458127`7.0004841120522565"}]}
},
AutoDelete->False,
GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
"Grid"]}], "}"}]], "Output",
CellChangeTimes->{3.675598818266225*^9, 3.675599447375236*^9,
3.675680406057725*^9, 3.6757630125358553`*^9, 3.675934142135874*^9,
3.68510287861003*^9, 3.685193890031125*^9, 3.6851949389473133`*^9,
3.6851997143765373`*^9, 3.6857830672889147`*^9, 3.6868155327979794`*^9,
3.686816124833795*^9, 3.686816193564953*^9, 3.686817124600716*^9,
3.7143036479033117`*^9, 3.714303698680345*^9, 3.7143040829093103`*^9,
3.714306871915036*^9}]
}, Open ]],
Cell["\<\
By comparing with the time it took to compute the shear channel without \
computing the eigenfunctions, we see that this added computation when \
computing them only for the converged modes takes very little time, as \
opposed to calculating them at the start, where it would take roughly twice \
as long.\
\>", "Text",
CellChangeTimes->{{3.68681601615536*^9, 3.68681606280704*^9}}]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["Sound channel", "Subsection",
CellChangeTimes->{{3.675599068330777*^9, 3.675599070374464*^9}, {
3.67559948599083*^9, 3.675599486680106*^9}}],
Cell["\<\
Similar to the shear channel, there are incorrect solutions here at \[Lambda]\
\[TildeTilde]\[PlusMinus]k, but no zero mode.\
\>", "Text",
CellChangeTimes->{{3.675683451219371*^9, 3.675683477793561*^9}, {
3.7143041836455393`*^9, 3.7143041898470087`*^9}}],
Cell[CellGroupData[{
Cell["\<\
First at machine precision, using 40 and 60 gridpoints and taking only the \
converged values\
\>", "Subsubsection",
CellChangeTimes->{{3.67559852715554*^9, 3.6755985532513523`*^9}}],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{"soundModes", "=",
RowBox[{"GetAccurateModes", "[",
RowBox[{
RowBox[{"hsound", "/.",
RowBox[{"k", "\[Rule]", "1"}]}], ",",
RowBox[{"{",
RowBox[{"40", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"60", ",", "0"}], "}"}]}], "]"}]}], ";"}], "//",
"AbsoluteTiming"}], "\[IndentingNewLine]",
RowBox[{"ShowModes", "[",
RowBox[{"soundModes", ",",
RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], "Input",
CellChangeTimes->{{3.675598479085763*^9, 3.675598485524274*^9}, {
3.6755991032002087`*^9, 3.675599113939678*^9}, {3.675620247004318*^9,
3.675620267495995*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{"0.160439`", ",", "Null"}], "}"}]], "Output",
CellChangeTimes->{
3.675598486236977*^9, 3.675599114911199*^9, {3.675620248297655*^9,
3.6756202684295473`*^9}, 3.675680406610744*^9, 3.6757630132815857`*^9,
3.675934143967081*^9, 3.685102886413837*^9, 3.6851949392711353`*^9,
3.685199715079155*^9, 3.685783067662559*^9, 3.686815815288286*^9,
3.686817125907267*^9, 3.714304136910494*^9, 3.7143068723149767`*^9}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
GraphicsBox[{{}, {{},
{RGBColor[0, 0, 1], PointSize[Large], AbsoluteThickness[1.6],
StyleBox[PointBox[CompressedData["
1:eJxTTMoPSmViYGBwA2IQDQEf7GEsy9v//v///x7Ol3hvisIvnF77EZn/Hwze
74fxlS/9Q+Fr/zBF4VdB9MP5Uz9r9iGbB+XD5T9p7jn3F0l+ghaYD5c/x77j
/XckeVYIHy7/ZYfN6edI8sd2gvlw+Zuc34oOIskHQ/hweeO93JwFSPJR+8B8
hPuj4r5c/IeQb48E8+HyYTVxG7f8RcgL62eA+HB5KRmpeRd+I+QLfDlBfER4
vZOyPfoDId/AqQTiI+yXNK8Q+4KQ3y4F5sPlrVOW52i/RciLJYP5cPklmgx2
/o+R/A/hw+XfZ5v5brmKkC/PBfPh8uff9HJVHUbI274C8xHuz7yVsXU1Qp4v
B8yHy7PnTf39Ph0h758L5iPMPyrY+1fpFVxe5LwxiA+XzytjyeRkQeh3h/Dh
8oXF1fmpNe/g8jtLwXy4/P2jZ/T5L72Fy88+CebD5WPZnkd58SDkv3GA+XD5
nw1N2woNEO7h4FkC4sPV75JNfxlq+QbOl7YC8+HqeX6tygnzR6hnWLIaxEek
31s/z9zMfQ2Xn3T6I4gPl5e5dvtQ9SGE/s1TwXy4/NaSfaGndz63TyzUSMwM
urRf/9ReEH+/l6MmmP/QW02xbM9v+6qPD6u/1nzdf+kVmL//9LNHYP7mvECx
T0tYD2S9X+PqfJvpwBsbfyEg3+H14sdgfmfgo+8Pm3kPuAv/mGXwkusA9/9T
9+428zowMnbeswTyAeWxb2M=
"]],
FontSize->30]}, {}}, {}, {}, {{}, {}}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{0., 0.},
BaseStyle->{FontSize -> 30},
DisplayFunction->Identity,
Frame->{{True, True}, {True, True}},
FrameLabel->{{
FormBox["\"Im \[Omega]\"", TraditionalForm], None}, {
FormBox["\"Re \[Omega]\"", TraditionalForm], None}},
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
GridLines->{None, None},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
ImagePadding->All,
ImageSize->600,
LabelStyle->{FontSize -> 30},
Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
(Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
Part[#, 1]],
(Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
(Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
Part[#, 1]],
(Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
Part[#, 2]]}& )}},
PlotRange->{{-3.6893958440725254`,
3.689388027734713}, {-3.3638799081383017`, 0.}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.02]}},
Ticks->{Automatic, Automatic}], ",",
TagBox[GridBox[{
{"\<\"n\"\>", "\<\"Re \\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(n\\)]\\)\
\"\>", "\<\"Im \\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(n\\)]\\)\"\>"},
{"1", "\<\"\[PlusMinus] \\!\\(\\*FormBox[\\\"1.`10.\\\", \
TraditionalForm]\\)\"\>", "0``18.123111689385155"},
{"2", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"0.74142996546620187903187115807668305933`10.\\\", \
TraditionalForm]\\)\"\>",
RowBox[{
"-", "0.28628000724872576521207179212069604546`9.707059297904928"}]},
{"3", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"1.7335110945612017819`9.048426427171467\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "1.3430075492061335218`8.937578255559702"}]},
{"4", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"2.7055398696519090684`6.027883733867898\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "2.3570619052315366915`5.968000784523639"}]},
{"5", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"3.68939584407252541`3.01913340838976\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "3.3638622385937284598`2.9790163558519906"}]}
},
AutoDelete->False,
GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
"Grid"]}], "}"}]], "Output",
CellChangeTimes->{
3.675598486236977*^9, 3.675599114911199*^9, {3.675620248297655*^9,
3.6756202684295473`*^9}, 3.675680406610744*^9, 3.6757630132815857`*^9,
3.675934143967081*^9, 3.685102886413837*^9, 3.6851949392711353`*^9,
3.685199715079155*^9, 3.685783067662559*^9, 3.686815815288286*^9,
3.686817125907267*^9, 3.714304136910494*^9, 3.714306872375448*^9}]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["\<\
Now increase the gridsize and use higher precision, and filters\
\>", "Subsubsection",
CellChangeTimes->{{3.6755985560516357`*^9, 3.6755985726228123`*^9}, {
3.686815557866712*^9, 3.686815559096187*^9}}],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{"soundModesAccurate", "=",
RowBox[{"GetAccurateModes", "[",
RowBox[{
RowBox[{"hsound", "/.",
RowBox[{"k", "\[Rule]", "1"}]}], ",",
RowBox[{"{", "80", "}"}], ",",
RowBox[{"{", "60", "}"}], ",",
RowBox[{"Eigenfunctions", "\[Rule]", "\"\<Later\>\""}], ",",
RowBox[{"Cutoff", "\[Rule]", "6"}], ",",
RowBox[{"FilterEigenfunctions", "\[Rule]", "True"}]}], "]"}]}], ";"}], "//",
"AbsoluteTiming"}], "\[IndentingNewLine]",
RowBox[{"ShowModes", "[",
RowBox[{"soundModesAccurate", ",",
RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], "Input",
CellChangeTimes->{{3.686815564454595*^9, 3.686815569950736*^9},
3.714304451408092*^9}],
Cell[BoxData[
RowBox[{"{",
RowBox[{"245.598169`", ",", "Null"}], "}"}]], "Output",
CellChangeTimes->{3.686815759557476*^9, 3.6868173669618196`*^9,
3.714304409566266*^9, 3.71430447017117*^9, 3.714307117999552*^9}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
GraphicsBox[{{}, {{},
{RGBColor[0, 0, 1], PointSize[Large], AbsoluteThickness[1.6],
StyleBox[
PointBox[{{
0.7414299654586609, -0.28628000724646535`}, {-0.7414299654586609, \
-0.28628000724646535`}, {
1.7335110945350494`, -1.3430075492360067`}, {-1.7335110945350494`, \
-1.3430075492360067`}, {
2.7055398662280017`, -2.3570619084216666`}, {-2.7055398662280017`, \
-2.3570619084216666`}, {
3.68939146179252, -3.3638633790136283`}, {-3.68939146179252, \
-3.3638633790136283`}, {
4.678735426214905, -4.367980846305987}, {-4.678735426214905, \
-4.367980846305987}, {
5.671090621486605, -5.370783925763623}, {-5.671090621486605, \
-5.370783925763623}, {
6.665291123161469, -6.372835299058312}, {-6.665291123161469, \
-6.372835299058312}, {
7.660711067779076, -7.374413448313257}, {-7.660711067779076, \
-7.374413448313257}}],
FontSize->30]}, {}}, {}, {}, {{}, {}}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{0., 0.},
BaseStyle->{FontSize -> 30},
DisplayFunction->Identity,
Frame->{{True, True}, {True, True}},
FrameLabel->{{
FormBox["\"Im \[Omega]\"", TraditionalForm], None}, {
FormBox["\"Re \[Omega]\"", TraditionalForm], None}},
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
GridLines->{None, None},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
ImagePadding->All,
ImageSize->600,
LabelStyle->{FontSize -> 30},
Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
(Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
Part[#, 1]],
(Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
(Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
Part[#, 1]],
(Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
Part[#, 2]]}& )}},
PlotRange->{{-7.660711067779076, 7.660711067779076}, {-7.374413448313257,
0.}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.02]}},
Ticks->{Automatic, Automatic}], ",",
TagBox[GridBox[{
{"\<\"n\"\>", "\<\"Re \\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(n\\)]\\)\
\"\>", "\<\"Im \\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(n\\)]\\)\"\>"},
{"1", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"0.74142996545866091148928851194923789691`10.\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "0.28628000724646535456620485271160615559`10."}]},
{"2", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"1.73351109453504941974355208387205371141`10.\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "1.34300754923600677741344115490226395733`10."}]},
{"3", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"2.70553986622800156423927081528191251891`10.\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "2.35706190842166641392571579949333226978`10."}]},
{"4", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"3.68939146179251983165021250288262422146`10.\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "3.36386337901362820785190060890457175446`10."}]},
{"5", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"4.6787354262149049724`10.\\\", TraditionalForm]\\)\"\>",
RowBox[{"-", "4.36798084630598706`10."}]},
{"6", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"5.6710906214866049099`10.\\\", TraditionalForm]\\)\"\>",
RowBox[{"-", "5.3707839257636238233`10."}]},
{"7", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"6.6652911231614693057`9.00952470260353\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "6.3728352990583121039`8.990038274171958"}]},
{"8", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"7.6607110677790759003`6.008113327113822\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "7.3744134483132577286`5.991571727143881"}]}
},
AutoDelete->False,
GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
"Grid"]}], "}"}]], "Output",
CellChangeTimes->{3.686815759557476*^9, 3.6868173669618196`*^9,
3.714304409566266*^9, 3.71430447017117*^9, 3.714307118051161*^9}]
}, Open ]]
}, Open ]]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["Tables", "Section",
CellChangeTimes->{{3.675620802279018*^9, 3.675620804177595*^9}}],
Cell[CellGroupData[{
Cell["The tables found on page 26", "Subsubsection",
CellChangeTimes->{{3.675676727515349*^9, 3.6756767308105927`*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"MakeTable", "[",
RowBox[{"#", ",",
RowBox[{"\"\<Precision\>\"", "\[Rule]", "7"}]}], "]"}], "&"}], "/@",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"Select", "[",
RowBox[{"#", ",",
RowBox[{
RowBox[{
RowBox[{"If", "[",
RowBox[{
RowBox[{"NumericQ", "[", "#", "]"}], ",",
RowBox[{"Abs", "[",
RowBox[{"Im", "@", "#"}], "]"}], ",",
RowBox[{"Abs", "[",
RowBox[{"Im", "@",
RowBox[{
"#", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}],
"]"}]}], "]"}], ">", ".1"}], "&"}]}], "]"}], "&"}], "/@",
RowBox[{"{",
RowBox[{
"AtransverseModesAccurate", ",", "AdiffusiveModesAccurate", ",",
"scalarModesAccurate", ",", "shearModesAccurate2", ",",
"soundModesAccurate"}], "}"}]}], ")"}]}]], "Input",
CellChangeTimes->{{3.675620085980069*^9, 3.675620105600864*^9}, {
3.6756201462437572`*^9, 3.675620152240712*^9}, {3.6756201937026*^9,
3.675620233686159*^9}, {3.6756758341948843`*^9, 3.675675861143073*^9}, {
3.6756758994032097`*^9, 3.675675957944272*^9}, {3.6868175584371433`*^9,
3.686817608203414*^9}, {3.714304359488946*^9, 3.714304359563869*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
TagBox[GridBox[{
{"\<\"n\"\>", "\<\"Re \\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(n\\)]\\)\
\"\>", "\<\"Im \\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(n\\)]\\)\"\>"},
{"1", "\<\"\[PlusMinus] \\!\\(\\*FormBox[\\\"1.5471869782102340885`7.\\\
\", TraditionalForm]\\)\"\>",
RowBox[{"-", "0.8497231684015036958`7."}]},
{"2", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"2.398903399290488567`7.\\\", TraditionalForm]\\)\"\>",
RowBox[{"-", "1.874343159998409047`7."}]},
{"3", "\<\"\[PlusMinus] \\!\\(\\*FormBox[\\\"3.3232288980330792178`7.\\\
\", TraditionalForm]\\)\"\>",
RowBox[{"-", "2.8949007855921124452`7."}]},
{"4", "\<\"\[PlusMinus] \\!\\(\\*FormBox[\\\"4.2764312619441314191`7.\\\
\", TraditionalForm]\\)\"\>",
RowBox[{"-", "3.9095831795450463221`7."}]},
{"5", "\<\"\[PlusMinus] \\!\\(\\*FormBox[\\\"5.2440582968429498607`7.\\\
\", TraditionalForm]\\)\"\>",
RowBox[{"-", "4.9203464292794900201`7."}]},
{"6", "\<\"\[PlusMinus] \\!\\(\\*FormBox[\\\"6.2200362735527493128`7.\\\
\", TraditionalForm]\\)\"\>",
RowBox[{"-", "5.9285457407986449489`7."}]},
{"7", "\<\"\[PlusMinus] \\!\\(\\*FormBox[\\\"7.2013408435259832163`7.\\\
\", TraditionalForm]\\)\"\>",
RowBox[{"-", "6.9350037761729063411`6.99166250696786"}]},
{"8", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"8.1862967563981838978`4.006530545871556\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "7.9400618378194723764`3.9932669466948445"}]}
},
AutoDelete->False,
GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
"Grid"], ",",
TagBox[GridBox[{
{"\<\"n\"\>", "\<\"Re \\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(n\\)]\\)\
\"\>", "\<\"Im \\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(n\\)]\\)\"\>"},
{"1", "\<\"\[PlusMinus] \\!\\(\\*FormBox[\\\"1.1478314361117637814`7.\\\
\", TraditionalForm]\\)\"\>",
RowBox[{"-", "0.5592035650598038278`7."}]},
{"2", "\<\"\[PlusMinus] \\!\\(\\*FormBox[\\\"1.9100059253775765451`7.\\\
\", TraditionalForm]\\)\"\>",
RowBox[{"-", "1.7580647942412817224`7."}]},
{"3", "\<\"\[PlusMinus] \\!\\(\\*FormBox[\\\"2.9032930807127165746`7.\\\
\", TraditionalForm]\\)\"\>",
RowBox[{"-", "2.8916808547071149178`7."}]},
{"4", "\<\"\\!\\(\\*FormBox[\\\"0``29.67318685631454\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "3.250637029211617588`7."}]},
{"5", "\<\"\[PlusMinus] \\!\\(\\*FormBox[\\\"3.9285553165733362827`7.\\\
\", TraditionalForm]\\)\"\>",
RowBox[{"-", "3.9433859287821320061`7."}]},
{"6", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"4.946818212035725659`7.\\\", TraditionalForm]\\)\"\>",
RowBox[{"-", "4.9651851408797538613`7."}]},
{"7", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"5.95879351145029454`7.\\\", TraditionalForm]\\)\"\>",
RowBox[{"-", "5.9761694942668550611`7."}]},
{"8", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"6.9669164314129137903`6.9995148062474195\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "6.9824833210518458127`7."}]}
},
AutoDelete->False,
GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
"Grid"], ",",
TagBox[GridBox[{
{"\<\"n\"\>", "\<\"Re \\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(n\\)]\\)\
\"\>", "\<\"Im \\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(n\\)]\\)\"\>"},
{"1", "\<\"\[PlusMinus] \\!\\(\\*FormBox[\\\"1.9543308837904205466`7.\\\
\", TraditionalForm]\\)\"\>",
RowBox[{"-", "1.2673272634170641028`7."}]},
{"2", "\<\"\[PlusMinus] \\!\\(\\*FormBox[\\\"2.8802625648496418619`7.\\\
\", TraditionalForm]\\)\"\>",
RowBox[{"-", "2.297957046519873258`7."}]},
{"3", "\<\"\[PlusMinus] \\!\\(\\*FormBox[\\\"3.8366322229339033421`7.\\\
\", TraditionalForm]\\)\"\>",
RowBox[{"-", "3.3149071602899940531`7."}]},
{"4", "\<\"\[PlusMinus] \\!\\(\\*FormBox[\\\"4.8073923430531724345`7.\\\
\", TraditionalForm]\\)\"\>",
RowBox[{"-", "4.3258713695507752899`7."}]},
{"5", "\<\"\[PlusMinus] \\!\\(\\*FormBox[\\\"5.7861818767378003502`7.\\\
\", TraditionalForm]\\)\"\>",
RowBox[{"-", "5.33362220393936163`7."}]},
{"6", "\<\"\[PlusMinus] \\!\\(\\*FormBox[\\\"6.7699578674936767129`7.\\\
\", TraditionalForm]\\)\"\>",
RowBox[{"-", "6.3394301608111393864`7."}]},
{"7", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"7.7570673917713620046`6.011558387605022\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "7.343968329549084448`5.98779161841192"}]},
{"8", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"8.7410776530789834`3.009844410539543\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "8.3446586784548301489`2.989688009578922"}]}
},
AutoDelete->False,
GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
"Grid"], ",",
TagBox[GridBox[{
{"\<\"n\"\>", "\<\"Re \\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(n\\)]\\)\
\"\>", "\<\"Im \\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(n\\)]\\)\"\>"},
{"1", "\<\"\\!\\(\\*FormBox[\\\"0``26.18105601589543\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "0.5980657370166901545`7."}]},
{"2", "\<\"\[PlusMinus] \\!\\(\\*FormBox[\\\"1.7591155848039323591`7.\\\
\", TraditionalForm]\\)\"\>",
RowBox[{"-", "1.2915937972328034258`7."}]},
{"3", "\<\"\[PlusMinus] \\!\\(\\*FormBox[\\\"2.7330812709799864685`7.\\\
\", TraditionalForm]\\)\"\>",
RowBox[{"-", "2.3304048537468725979`7."}]},
{"4", "\<\"\[PlusMinus] \\!\\(\\*FormBox[\\\"3.7159331628730941291`7.\\\
\", TraditionalForm]\\)\"\>",
RowBox[{"-", "3.3453428075855843321`7."}]},
{"5", "\<\"\[PlusMinus] \\!\\(\\*FormBox[\\\"4.7036435731542361729`7.\\\
\", TraditionalForm]\\)\"\>",
RowBox[{"-", "4.3534934636487373733`7."}]},
{"6", "\<\"\[PlusMinus] \\!\\(\\*FormBox[\\\"5.6943783842355383836`7.\\\
\", TraditionalForm]\\)\"\>",
RowBox[{"-", "5.3587292653940742695`7."}]},
{"7", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"6.687115641290715844`7.\\\", TraditionalForm]\\)\"\>",
RowBox[{"-", "6.3624226573229556548`7."}]},
{"8", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"7.6812459952205694757`6.008932171623297\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "7.3651923357290660528`5.990684590378773"}]}
},
AutoDelete->False,
GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
"Grid"], ",",
TagBox[GridBox[{
{"\<\"n\"\>", "\<\"Re \\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(n\\)]\\)\
\"\>", "\<\"Im \\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(n\\)]\\)\"\>"},
{"1", "\<\"\[PlusMinus] \\!\\(\\*FormBox[\\\"0.7414299654586609115`7.\\\
\", TraditionalForm]\\)\"\>",
RowBox[{"-", "0.2862800072464653545`7."}]},
{"2", "\<\"\[PlusMinus] \\!\\(\\*FormBox[\\\"1.7335110945350494197`7.\\\
\", TraditionalForm]\\)\"\>",
RowBox[{"-", "1.3430075492360067774`7."}]},
{"3", "\<\"\[PlusMinus] \\!\\(\\*FormBox[\\\"2.7055398662280015642`7.\\\
\", TraditionalForm]\\)\"\>",
RowBox[{"-", "2.3570619084216664139`7."}]},
{"4", "\<\"\[PlusMinus] \\!\\(\\*FormBox[\\\"3.6893914617925198317`7.\\\
\", TraditionalForm]\\)\"\>",
RowBox[{"-", "3.3638633790136282079`7."}]},
{"5", "\<\"\[PlusMinus] \\!\\(\\*FormBox[\\\"4.6787354262149049724`7.\\\
\", TraditionalForm]\\)\"\>",
RowBox[{"-", "4.36798084630598706`7."}]},
{"6", "\<\"\[PlusMinus] \\!\\(\\*FormBox[\\\"5.6710906214866049099`7.\\\
\", TraditionalForm]\\)\"\>",
RowBox[{"-", "5.3707839257636238233`7."}]},
{"7", "\<\"\[PlusMinus] \\!\\(\\*FormBox[\\\"6.6652911231614693057`7.\\\
\", TraditionalForm]\\)\"\>",
RowBox[{"-", "6.3728352990583121039`7."}]},
{"8", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"7.6607110677790759003`6.008113327113822\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "7.3744134483132577286`5.991571727143881"}]}
},
AutoDelete->False,
GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
"Grid"]}], "}"}]], "Output",
CellChangeTimes->{{3.675620194425582*^9, 3.6756202055154333`*^9},
3.6756207256064453`*^9, {3.675675840395151*^9, 3.675675861481813*^9}, {
3.675675900523939*^9, 3.675675958276265*^9}, 3.675680720751371*^9,
3.675763310937999*^9, 3.675934463895838*^9, 3.6851031893814917`*^9,
3.685195222908305*^9, 3.685200028019392*^9, 3.685783358619417*^9,
3.6868173675130377`*^9, {3.6868175818784733`*^9, 3.686817608585782*^9},
3.71430447946795*^9, 3.714307118199572*^9}]
}, Open ]],
Cell["\<\
Note the additional hydrodynamic modes compared to the table on page 26, \
which they write above the table.
Also note the occasional discrepancy in the last few digits of some higher \
modes.\
\>", "Text",
CellChangeTimes->{{3.675676074640954*^9, 3.675676128103754*^9}, {
3.6756766906760178`*^9, 3.675676713879692*^9}}]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["Plots (at low accuracy)", "Section",
CellChangeTimes->{{3.675620892398662*^9, 3.6756208936016808`*^9}, {
3.675934207150198*^9, 3.675934209866308*^9}}],
Cell[BoxData[{
RowBox[{
RowBox[{"removeIncorrectModes", "[", "modes_", "]"}], ":=",
RowBox[{"Select", "[",
RowBox[{"modes", ",",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"Abs", "[",
RowBox[{"Im", "[", "#", "]"}], "]"}], ">", ".005"}], "&&",
RowBox[{
RowBox[{"Re", "[", "#", "]"}], ">",
RowBox[{"-", "0.01"}]}]}], "&"}]}], "]"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"\[Omega]0Sound", "[", "kval_", "]"}], ":=",
RowBox[{
RowBox[{"GetAccurateModes", "[",
RowBox[{
RowBox[{"hsound", "/.",
RowBox[{"k", "\[Rule]", "kval"}]}], ",",
RowBox[{"{",
RowBox[{"50", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"80", ",", "0"}], "}"}], ",",
RowBox[{"\"\<Quiet\>\"", "\[Rule]", "True"}]}], "]"}], "//",
"removeIncorrectModes"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"\[Omega]0Scalar", "[", "kval_", "]"}], ":=",
RowBox[{
RowBox[{"GetAccurateModes", "[",
RowBox[{
RowBox[{"hscalar", "/.",
RowBox[{"k", "\[Rule]", "kval"}]}], ",",
RowBox[{"{",
RowBox[{"50", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"80", ",", "0"}], "}"}], ",",
RowBox[{"\"\<Quiet\>\"", "\[Rule]", "True"}]}], "]"}], "//",
"removeIncorrectModes"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"\[Omega]0Transverse", "[", "kval_", "]"}], ":=",
RowBox[{
RowBox[{"GetAccurateModes", "[",
RowBox[{
RowBox[{"Atransverse", "/.",
RowBox[{"k", "\[Rule]", "kval"}]}], ",",
RowBox[{"{",
RowBox[{"50", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"80", ",", "0"}], "}"}], ",",
RowBox[{"\"\<Quiet\>\"", "\[Rule]", "True"}]}], "]"}], "//",
"removeIncorrectModes"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"\[Omega]0Diffusive", "[", "kval_", "]"}], ":=",
RowBox[{
RowBox[{"GetAccurateModes", "[",
RowBox[{
RowBox[{"Adiffusive", "/.",
RowBox[{"k", "\[Rule]", "kval"}]}], ",",
RowBox[{"{",
RowBox[{"50", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"80", ",", "0"}], "}"}], ",",
RowBox[{"\"\<Quiet\>\"", "\[Rule]", "True"}]}], "]"}], "//",
"removeIncorrectModes"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"\[Omega]0Shear", "[", "kval_", "]"}], ":=",
RowBox[{
RowBox[{"GetAccurateModes", "[",
RowBox[{
RowBox[{"hshear", "/.",
RowBox[{"k", "\[Rule]", "kval"}]}], ",",
RowBox[{"{",
RowBox[{"50", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"80", ",", "0"}], "}"}], ",",
RowBox[{"\"\<Quiet\>\"", "\[Rule]", "True"}]}], "]"}], "//",
"removeIncorrectModes"}]}]}], "Input",
InitializationCell->True,
CellChangeTimes->{{3.675620895386094*^9, 3.675620950251998*^9}, {
3.675621155095273*^9, 3.6756211584479322`*^9}, {3.675621381733274*^9,
3.675621408165607*^9}, 3.675621443378845*^9, {3.6756251313487873`*^9,
3.675625157125246*^9}, {3.675625240499452*^9, 3.675625248976039*^9}, {
3.675625313004796*^9, 3.6756253305790253`*^9}, {3.675657017279838*^9,
3.675657023514298*^9}, {3.675657098523511*^9, 3.675657138295931*^9}, {
3.675657754521062*^9, 3.675657771609531*^9}, 3.675657966831479*^9, {
3.675658183679709*^9, 3.675658184151621*^9}, {3.6756583719671297`*^9,
3.675658374302434*^9}, {3.6756597242257853`*^9, 3.6756597297830467`*^9}, {
3.6756598484406977`*^9, 3.675659850713666*^9}, {3.675659938857314*^9,
3.675659954551222*^9}, {3.675679764153309*^9, 3.675679774760392*^9}}],
Cell[BoxData[{
RowBox[{
RowBox[{"removeIncorrectModes", "[", "modes_", "]"}], ":=",
RowBox[{"Select", "[",
RowBox[{"modes", ",",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"Abs", "[",
RowBox[{"Im", "[", "#", "]"}], "]"}], ">", ".005"}], "&&",
RowBox[{
RowBox[{"Re", "[", "#", "]"}], ">",
RowBox[{"-", "0.01"}]}]}], "&"}]}], "]"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"\[Omega]0Sound", "[", "kval_", "]"}], ":=",
RowBox[{
RowBox[{"GetAccurateModes", "[",
RowBox[{
RowBox[{"hsound", "/.",
RowBox[{"k", "\[Rule]", "kval"}]}], ",",
RowBox[{"{",
RowBox[{"50", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"80", ",", "0"}], "}"}]}], "]"}], "//",
"removeIncorrectModes"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"\[Omega]0Scalar", "[", "kval_", "]"}], ":=",
RowBox[{
RowBox[{"GetAccurateModes", "[",
RowBox[{
RowBox[{"hscalar", "/.",
RowBox[{"k", "\[Rule]", "kval"}]}], ",",
RowBox[{"{",
RowBox[{"50", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"80", ",", "0"}], "}"}]}], "]"}], "//",
"removeIncorrectModes"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"\[Omega]0Transverse", "[", "kval_", "]"}], ":=",
RowBox[{
RowBox[{"GetAccurateModes", "[",
RowBox[{
RowBox[{"Atransverse", "/.",
RowBox[{"k", "\[Rule]", "kval"}]}], ",",
RowBox[{"{",
RowBox[{"50", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"80", ",", "0"}], "}"}]}], "]"}], "//",
"removeIncorrectModes"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"\[Omega]0Diffusive", "[", "kval_", "]"}], ":=",
RowBox[{
RowBox[{"GetAccurateModes", "[",
RowBox[{
RowBox[{"Adiffusive", "/.",
RowBox[{"k", "\[Rule]", "kval"}]}], ",",
RowBox[{"{",
RowBox[{"50", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"80", ",", "0"}], "}"}]}], "]"}], "//",
"removeIncorrectModes"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"\[Omega]0Shear", "[", "kval_", "]"}], ":=",
RowBox[{
RowBox[{"GetAccurateModes", "[",
RowBox[{
RowBox[{"hshear", "/.",
RowBox[{"k", "\[Rule]", "kval"}]}], ",",
RowBox[{"{",
RowBox[{"50", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"80", ",", "0"}], "}"}]}], "]"}], "//",
"removeIncorrectModes"}]}]}], "Input",
InitializationCell->True,
CellChangeTimes->{{3.675620895386094*^9, 3.675620950251998*^9}, {
3.675621155095273*^9, 3.6756211584479322`*^9}, {3.675621381733274*^9,
3.675621408165607*^9}, 3.675621443378845*^9, {3.6756251313487873`*^9,
3.675625157125246*^9}, {3.675625240499452*^9, 3.675625248976039*^9}, {
3.675625313004796*^9, 3.6756253305790253`*^9}, {3.675657017279838*^9,
3.675657023514298*^9}, {3.675657098523511*^9, 3.675657138295931*^9}, {
3.675657754521062*^9, 3.675657771609531*^9}, 3.675657966831479*^9, {
3.675658183679709*^9, 3.675658184151621*^9}, {3.6756583719671297`*^9,
3.675658374302434*^9}, {3.6756597242257853`*^9, 3.6756597297830467`*^9}, {
3.6756598484406977`*^9, 3.675659850713666*^9}, {3.675659938857314*^9,
3.675659954551222*^9}, {3.675679764153309*^9, 3.675679774760392*^9}, {
3.685103017064554*^9, 3.685103026739335*^9}}],
Cell[CellGroupData[{
Cell["Sound, figure 5", "Subsection",
CellChangeTimes->{{3.6756254768612947`*^9, 3.675625499054893*^9}}],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"$QNMQuiet", "=", "True"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"soundlist", "=",
RowBox[{"Monitor", "[",
RowBox[{
RowBox[{"Table", "[",
RowBox[{
RowBox[{"{",
RowBox[{"k", ",",
RowBox[{"\[Omega]0Sound", "[", "k", "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"k", ",", ".1", ",", "5", ",", ".1"}], "}"}]}], "]"}], ",",
"k"}], "]"}]}], ";"}], "//", "AbsoluteTiming"}]}], "Input",
CellChangeTimes->{{3.675621025424962*^9, 3.6756210495782013`*^9}, {
3.675621175458848*^9, 3.6756211755225353`*^9}, {3.685103399602933*^9,
3.6851034022964077`*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{"10.16749`", ",", "Null"}], "}"}]], "Output",
CellChangeTimes->{
3.6756210601941547`*^9, {3.675621162941062*^9, 3.6756211928478928`*^9},
3.6756213937379227`*^9, 3.6756214489463053`*^9, 3.675657145810384*^9,
3.675657831104488*^9, 3.675658190546865*^9, 3.675658380809202*^9,
3.675659991035932*^9, 3.6756807524635363`*^9, 3.675763342523559*^9,
3.675934497083486*^9, 3.685103414767983*^9, 3.6851952353422623`*^9,
3.685200039870241*^9, 3.685783373775394*^9, 3.686817380468754*^9,
3.714304499785028*^9, 3.714307128472124*^9}]
}, Open ]],
Cell[BoxData[{
RowBox[{"ClearAll", "[", "sortModes", "]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"sortModes", "[",
RowBox[{"modes_", ",",
RowBox[{"nmodes_", " ", ":", " ",
RowBox[{"-", "1"}]}]}], "]"}], ":=",
RowBox[{"Block", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"\[Omega]lists", "=",
RowBox[{
RowBox[{"modes", "/.",
RowBox[{
RowBox[{"{",
RowBox[{"k_", ",", "\[Omega]list_List"}], "}"}], "\[RuleDelayed]",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"{",
RowBox[{"k", ",", "#"}], "}"}], "&"}], "/@",
RowBox[{"\[Omega]list", "\[LeftDoubleBracket]",
RowBox[{"1", ";;",
RowBox[{"Min", "[",
RowBox[{"nmodes", ",",
RowBox[{"Length", "@", "\[Omega]list"}]}], "]"}]}],
"\[RightDoubleBracket]"}]}], ")"}]}]}], "//", "Transpose"}]}],
",", "splitlists"}], "}"}], ",", "\[IndentingNewLine]",
RowBox[{
RowBox[{"splitlists", "=",
RowBox[{
RowBox[{
RowBox[{
RowBox[{
RowBox[{"Split", "[",
RowBox[{"#", ",",
RowBox[{
RowBox[{
RowBox[{"Abs", "[",
RowBox[{
RowBox[{
"#1", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}],
"-",
RowBox[{
"#2", "\[LeftDoubleBracket]", "2",
"\[RightDoubleBracket]"}]}], "]"}], "<", ".3"}], "&"}]}],
"]"}], "&"}], "/@", "\[Omega]lists"}], "//",
RowBox[{
RowBox[{"Flatten", "[",
RowBox[{"#", ",", "1"}], "]"}], "&"}]}], "//",
RowBox[{
RowBox[{"DeleteCases", "[",
RowBox[{"#", ",",
RowBox[{"list_List", " ", "/;",
RowBox[{
RowBox[{"Length", "[", "list", "]"}], "<", "3"}]}]}], "]"}],
"&"}]}]}], ";", "\[IndentingNewLine]",
RowBox[{
RowBox[{"SortBy", "[", "First", "]"}], "/@",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"Flatten", "[",
RowBox[{"#", ",", "1"}], "]"}], "&"}], "/@",
RowBox[{"Gather", "[",
RowBox[{"splitlists", ",",
RowBox[{
RowBox[{
RowBox[{"Min", "[",
RowBox[{"DistanceMatrix", "[",
RowBox[{"#1", ",", "#2"}], "]"}], "]"}], "<", "0.25"}], "&"}]}],
"]"}]}], ")"}]}]}]}], "\[IndentingNewLine]", "]"}]}]}], "Input",
InitializationCell->True,
CellChangeTimes->{{3.675657798724436*^9, 3.6756578244851103`*^9}, {
3.675657881677134*^9, 3.675657947516243*^9}, {3.675657978592924*^9,
3.6756580048191833`*^9}, {3.675659530902481*^9, 3.675659668745905*^9}, {
3.6756809254055357`*^9, 3.67568093815453*^9}, {3.675681027932371*^9,
3.675681145671534*^9}, {3.675681176292015*^9, 3.675681220160042*^9}}],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"plotopts", "=",
RowBox[{"Sequence", "[",
RowBox[{
RowBox[{"Frame", "\[Rule]", "True"}], ",",
RowBox[{"Joined", "\[Rule]", "True"}], ",",
RowBox[{"PlotStyle", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"Black", ",", "Thick"}], "}"}], ",",
RowBox[{"{",
RowBox[{"Blue", ",", "Thick"}], "}"}], ",",
RowBox[{"{",
RowBox[{"Green", ",", "Thick"}], "}"}]}], "}"}]}], ",",
RowBox[{"ImageSize", "\[Rule]", "500"}], ",",
RowBox[{"BaseStyle", "\[Rule]", "20"}]}], "]"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"soundlist", "//",
RowBox[{
RowBox[{"sortModes", "[",
RowBox[{"#", ",", "2"}], "]"}], "&"}]}], ")"}], "/.",
RowBox[{
RowBox[{"Complex", "[",
RowBox[{"a_", ",", "b_"}], "]"}], "\[RuleDelayed]",
RowBox[{"Abs", "[", "a", "]"}]}]}], "//",
RowBox[{
RowBox[{"ListPlot", "[",
RowBox[{"#", ",",
RowBox[{"FrameLabel", "\[Rule]",
RowBox[{"{",
RowBox[{"\"\<q/4\[Pi]T\>\"", ",", "\"\<Re(\[Omega])/4\[Pi]T\>\""}],
"}"}]}], ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "5"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "5"}], "}"}]}], "}"}]}], ",", "plotopts"}],
"]"}], "&"}]}], ",", "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"soundlist", "//",
RowBox[{
RowBox[{"sortModes", "[",
RowBox[{"#", ",", "2"}], "]"}], "&"}]}], ")"}], "/.",
RowBox[{
RowBox[{"Complex", "[",
RowBox[{"a_", ",", "b_"}], "]"}], "\[RuleDelayed]", "b"}]}], "//",
RowBox[{
RowBox[{"ListPlot", "[",
RowBox[{"#", ",",
RowBox[{"FrameLabel", "\[Rule]",
RowBox[{"{",
RowBox[{"\"\<q/4\[Pi]T\>\"", ",", "\"\<Im(\[Omega])/4\[Pi]T\>\""}],
"}"}]}], ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "5"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "2"}], ",", "0"}], "}"}]}], "}"}]}], ",",
"plotopts"}], "]"}], "&"}]}]}], "}"}]}], "Input",
CellChangeTimes->{{3.6756578298730593`*^9, 3.6756578553335037`*^9}, {
3.675657954702353*^9, 3.675657971536319*^9}, {3.675658024389185*^9,
3.675658045451496*^9}, {3.675658250127233*^9, 3.6756582877357807`*^9}, {
3.675658324100874*^9, 3.675658330455152*^9}, {3.675658407689312*^9,
3.67565847716856*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
GraphicsBox[{{}, {{}, {},
{GrayLevel[0], PointSize[0.011000000000000001`], Thickness[Large],
LineBox[CompressedData["
1:eJwt0l9IU3EUB/B759x255z33hU9JJRCSPZHY6L0Z55T1IMZWKYSviwtZyRZ
S4OwlDQQNfRFCBaIoQn9o4ei9ceZYW1jmaOyzAzL4bC5Iieb4p+lud3zhR+/
h985n3O43KTS8/llMoZh0tdO5L5licQFef6HLr2nDzL0kQxDx/HPt9HqAOn9
G5jtE57iMTcw0UxAZspAi7F/GKLl+knodOzxZp8ahXJTJFOQbrrQ2Xx2nPqn
AbfkwY4qDwy9j+QP+EJg/XHRS14AhPlXhYMvflH9LMyFrSO+nN+0TxCy0paT
mM0z4I72h2BZ0evm1uqkefPQVrb3dPmzILBRbwG2quwW68858hahvaG+Il+x
QN4yBC7HlWQmL5EXhsrEAm39zjB5K+BvrObY1BXaj0HlO3OyV82gtD+D+1VP
zDOLDEo+ixtHHD37JlmU+mVoulkzNeSUoTQvBr1tgaq6uzEo7SfHgmBvqqxR
Tp4c+1Jmi/wnY8mLxfbvubYHuxXkKfBqoiHrDq8kT4mXth2s2TSlJE+FztXn
48UvVeSpsJoJG5taOfI49MUf+/fBqCZPjYfljoaiXXHkxWHFx5ylDJmGPA3a
aged1z9pyNPguYqa5qKuePLiscWz3tVn1pKnRc2B0SYnJpCXgCX5Z8b6lTxK
n4/H4Nfu7IVKHqPlJh5tXw4dFUZ48nnsels6rDUIKP1PArI3rnChbgGj4ywC
Djy6Z3+jFskTcdpiqL1mFskTse5pR+H2UZE8ERWr7jRXto48HR7JZR+f6NHh
Bu7v/detOnLW4X9zpj9Z
"]]},
{RGBColor[0, 0, 1], PointSize[0.011000000000000001`], Thickness[Large],
LineBox[CompressedData["
1:eJxTTMoPSmViYGDQAWIQPWsmCJy077z4ZuJavp/2JsYgcNn++NllalX6P+0h
8jftT57eJPQg9qc9Axg8sH8s39GdNOunPVi58WP7J4V2azc//WmfngYCz+xL
pf9Y7XD4BdX/0v62eqZ4z5pf9mfPgMAbe04D7n89Wr+h5n2w//RBSbFsz2+o
+o/2OpmJ3jNT/kDd89n+YN0nA3O1v/bnwPq/2K9e+STyAus/qH3f7A0q1D//
4vhvzwg274d92v3Ch51SDA4Q837ab3izRybsGIMDxLzf9tssO0K72hgdIOb9
sf8mxl/MG87kADHvn/2u3SF7rI2YHSDuY3CIuT/pxwwhFgeI+xkcfj1cc+73
Zxao+YwOs+Y99Lh1mRWqn8lh2T7WhH8b2KD2MTtYv2Fay9vN7gBxH4vDlL9v
/ikncUDNY3G4ri4aP9GME2oeq0P1hAvFWzm4oOaxObg72C5/e4MLah67w1OO
gL29y7mh5nE45MpeXH+3hAdqHofDlSKBr5KOvFDzOB2O+nTsLeHhg5rH5ZDM
eqJE/Dof1DxuB3XzlaYqC/mh5vE48LxR6Io2FYCax+Pge6dy1ueZAlDzeB0C
ni27mfxPAGoen8Ptg036W5IEoebxO9zMytV6fUwQGn4CDrXCzbZ82kIOYOVp
Ag71Sss/KfYLQc0XcLhTlSqs9VnIAZKeBB2+twic0gwXdgBbNxNo7pEle5R3
Czs8Mpu9TfkBzFwRBwBFkiad
"]]}}, {}, {}, {{}, {}}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{0, 0},
BaseStyle->20,
DisplayFunction->Identity,
Frame->{{True, True}, {True, True}},
FrameLabel->{{
FormBox["\"Re(\[Omega])/4\[Pi]T\"", TraditionalForm], None}, {
FormBox["\"q/4\[Pi]T\"", TraditionalForm], None}},
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
GridLines->{None, None},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
ImagePadding->All,
ImageSize->500,
Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
(Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
Part[#, 1]],
(Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
(Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
Part[#, 1]],
(Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
Part[#, 2]]}& )}},
PlotRange->{{0, 5}, {0, 5}},
PlotRangeClipping->True,
PlotRangePadding->{{0, 0}, {0, 0}},
Ticks->{Automatic, Automatic}], ",",
GraphicsBox[{{}, {{}, {},
{GrayLevel[0], PointSize[0.011000000000000001`], Thickness[Large],
LineBox[CompressedData["
1:eJw10m1IU2EUB/BpzlabOu9saKCoLAiLymarD9JzAhMqoiZFCmWWuLFPgxjF
kCx7EctlhiCsrFhFsylkLyyo1lMOs8km3Lvp3MstcWWFSwzNGoarrdOBh+fD
Ped3/jzcouP6qoZUgUBQ+vck7uvmRLnInQZmnbmsjZYpE+UlBy9LaicNt+i/
7wHybo12l++DjQqSNUFmC87PDQ49pcl2ZYRYymUtxnMOqtUkaopYH7NpumdO
nP9KruUciLYqXNTjTlSUFKqaOgOhEfRmySPF2mO6Kg77v5OC3iPz0/mjmGeO
xJ9PzHy0+elIcn6efHqx43S+L4D7FsigpUbc0xiiKUnvF2kq9rdv6AyjFyPG
28rgdCGP3iLhRfcqrpbz6P0mh/O6AgYhj94Sqdm6d0hiDmM+AbypG85lMsOY
XwBZ8r5NckMI/RQwfYu9XvQFcT4VevkMi10VxH3LYCbivdLfHcB8aaApctpf
iQLopcFwvWqeNo6jJ4Q6z7YH8R9+9NIhJWvBceKUH73lkN7oF/LxMfRE8ITX
yb+0j6EnAl1lxeZSxRh6K0Ax1WFV01H0VoInutEZOfr/fcVwY19Gz0XhKHoS
WBI5uOBDH3oS6O4Kuk21PvQy4L2Yqd+T7UMvE87IJk3uIS96WVDIrCpxN3vx
/aTQf8lqExMvTbZrpNBc4rmvjnPoS+GlbNyoG+Dwf8oGsa4nVNzK0eQ6czZc
sOrPqvdz6DFgZ7c73Ks59BjoOJS7Rf+ZRY+BnScr2+R2Fj0ZDESrC+62sJhf
BrtVnW9/VrPo5UCe1nUztp6lfwBgWnRf
"]]},
{RGBColor[0, 0, 1], PointSize[0.011000000000000001`], Thickness[Large],
LineBox[CompressedData["
1:eJw10mtIU2EYB/AznXmbNbcyoYsGpgldDJeX0t4nIoogoT6IghzqgLPbGEkX
y9mHQqKClXMFMySMWEUXQ/ygRLxgOiwzszJZdhkImtrlnJ0LTqfljs/5w+Hw
cp739/55Oes4+6HKKIZhti48kXeTJ5LX5LS7p5ATZGrJjeQjmUnROwfGZbr4
3U9aEvnjA19kyqgJEC59omTsjUzV8dxRws/s+D7eIdMqayRjxPfclWLyavsn
SI4znJDllmn/20h+kbOjN5446jWPJ1z7j1rZoc0LJNTN9vXXaX1E4g1ZX625
LtN36n6JZLe214x7tfMUUnwbznvfy1SnetMk9XNCxUi0gl6IbI4rLhjKV9Cb
JYOeZv3QEQW9MPn0yOj31SjozRNx+8nuzIX1Yj8GGsKBv7bDCvZnoHFftuXc
Ns3XQVqh/h8b1vpEQc+HFsdcp9Y/GqaFK60F1Vo/Pbw8aL4zmaXdhx78Gwoe
x3+T0IuB1MHyjoBLQm8JlJSGk3btl9CLhfk2W9/DaAm9OCizXz3AUhG9OPi9
l1t5uU5ELx6aQs330neK6CVASujobI5ORC8Rbm60XrrvC6JnANez1b5KZxA9
A2TONZgqyoLoJcHutVkZtowgekthxL9pz8WggN4ymLQMx57pEvD+jOD+uf5F
vlug6rjVCJMupu1plYC+EdjhaydokYD/UzLUSxe8pWaBqsd5kmFmlcHKTvHo
maC8OuZPVzePngm2sA86T93l0TOBPa3SVl7Lo2eGoq+u3mNlPPY3Q3Mn527M
07zlkDd1q7F3BU//A67sf1s=
"]]}}, {}, {}, {{}, {}}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{0, 0},
BaseStyle->20,
DisplayFunction->Identity,
Frame->{{True, True}, {True, True}},
FrameLabel->{{
FormBox["\"Im(\[Omega])/4\[Pi]T\"", TraditionalForm], None}, {
FormBox["\"q/4\[Pi]T\"", TraditionalForm], None}},
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
GridLines->{None, None},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
ImagePadding->All,
ImageSize->500,
Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
(Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
Part[#, 1]],
(Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
(Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
Part[#, 1]],
(Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
Part[#, 2]]}& )}},
PlotRange->{{0, 5}, {-2, 0}},
PlotRangeClipping->True,
PlotRangePadding->{{0, 0}, {0, 0}},
Ticks->{Automatic, Automatic}]}], "}"}]], "Output",
CellChangeTimes->{{3.675657833410715*^9, 3.675657855749854*^9}, {
3.6756579119666843`*^9, 3.675658006768633*^9}, {3.675658038344352*^9,
3.675658045856647*^9}, 3.6756581912421618`*^9, {3.6756582687392282`*^9,
3.675658288507845*^9}, 3.6756583312276993`*^9, {3.675658383837604*^9,
3.675658443016858*^9}, 3.675658477541699*^9, {3.67565956601789*^9,
3.675659604734424*^9}, 3.675659671854845*^9, 3.675659997937335*^9,
3.6756807526940804`*^9, 3.675681255669668*^9, 3.675763342954651*^9,
3.6759344986427794`*^9, 3.685103420101741*^9, 3.685195235854102*^9,
3.685200040299254*^9, 3.685783374245284*^9, 3.686817381112351*^9,
3.714304504885634*^9, 3.7143071288916483`*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell["Or in movie form:", "Subsubsection",
CellChangeTimes->{{3.675679646616209*^9, 3.675679648421216*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Manipulate", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"soundlist", "\[LeftDoubleBracket]",
RowBox[{"n", ",", "2"}], "\[RightDoubleBracket]"}], "~", "Join", "~",
RowBox[{"(",
RowBox[{
RowBox[{"soundlist", "\[LeftDoubleBracket]",
RowBox[{"n", ",", "2"}], "\[RightDoubleBracket]"}], "/.",
RowBox[{
RowBox[{"Complex", "[",
RowBox[{"a_", ",", "b_"}], "]"}], "\[RuleDelayed]",
RowBox[{"Complex", "[",
RowBox[{
RowBox[{"-", "a"}], ",", "b"}], "]"}]}]}], ")"}]}], "//",
RowBox[{
RowBox[{"PlotFrequencies", "[",
RowBox[{"#", ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"-", "7"}], ",", "7"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "5"}], ",", "0"}], "}"}]}], "}"}]}], ",",
RowBox[{"PlotLabel", "\[Rule]",
RowBox[{"\"\<k = \>\"", "<>",
RowBox[{"ToString", "[",
RowBox[{"soundlist", "\[LeftDoubleBracket]",
RowBox[{"n", ",", "1"}], "\[RightDoubleBracket]"}], "]"}]}]}]}],
"]"}], "&"}]}], ",",
RowBox[{"{",
RowBox[{"n", ",", "1", ",",
RowBox[{"Length", "@", "soundlist"}], ",", "1"}], "}"}]}],
"]"}]], "Input",
CellChangeTimes->{{3.675679320014071*^9, 3.675679432408594*^9}, {
3.675679535480323*^9, 3.6756795595947866`*^9}}],
Cell[BoxData[
TagBox[
StyleBox[
DynamicModuleBox[{$CellContext`n$$ = 1, Typeset`show$$ = True,
Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu",
Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ =
"\"untitled\"", Typeset`specs$$ = {{
Hold[$CellContext`n$$], 1, 50, 1}}, Typeset`size$$ = {
600., {228., 232.}}, Typeset`update$$ = 0, Typeset`initDone$$,
Typeset`skipInitDone$$ = True, $CellContext`n$18133$$ = 0},
DynamicBox[Manipulate`ManipulateBoxes[
1, StandardForm, "Variables" :> {$CellContext`n$$ = 1},
"ControllerVariables" :> {
Hold[$CellContext`n$$, $CellContext`n$18133$$, 0]},
"OtherVariables" :> {
Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$,
Typeset`animator$$, Typeset`animvar$$, Typeset`name$$,
Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
Typeset`skipInitDone$$},
"Body" :> (
QNMspectral`PlotFrequencies[#, PlotRange -> {{-7, 7}, {-5, 0}},
PlotLabel -> StringJoin["k = ",
ToString[
Part[$CellContext`soundlist, $CellContext`n$$, 1]]]]& )[
Join[
Part[$CellContext`soundlist, $CellContext`n$$, 2],
ReplaceAll[
Part[$CellContext`soundlist, $CellContext`n$$, 2], Complex[
Pattern[$CellContext`a,
Blank[]],
Pattern[$CellContext`b,
Blank[]]] :> Complex[-$CellContext`a, $CellContext`b]]]],
"Specifications" :> {{$CellContext`n$$, 1, 50, 1}}, "Options" :> {},
"DefaultOptions" :> {}],
ImageSizeCache->{645., {273., 279.}},
SingleEvaluation->True],
Deinitialization:>None,
DynamicModuleValues:>{},
SynchronousInitialization->True,
UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
UnsavedVariables:>{Typeset`initDone$$},
UntrackedVariables:>{Typeset`size$$}], "Manipulate",
Deployed->True,
StripOnInput->False],
Manipulate`InterpretManipulate[1]]], "Output",
CellChangeTimes->{3.714307128948984*^9}]
}, Open ]]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["scalar", "Subsection",
CellChangeTimes->{{3.675625506752161*^9, 3.675625507500321*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"scalarlist", "=",
RowBox[{"Monitor", "[",
RowBox[{
RowBox[{"Table", "[",
RowBox[{
RowBox[{"{",
RowBox[{"k", ",",
RowBox[{"\[Omega]0Scalar", "[", "k", "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"k", ",", ".1", ",", "5", ",", ".1"}], "}"}]}], "]"}], ",",
"k"}], "]"}]}], ";"}], "//", "AbsoluteTiming"}]], "Input",
CellChangeTimes->{{3.675625145154604*^9, 3.675625151988078*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{"1.54859`", ",", "Null"}], "}"}]], "Output",
CellChangeTimes->{3.67562516555684*^9, 3.675657150160946*^9,
3.6756596908510323`*^9, 3.675659735167211*^9, 3.6756807596234627`*^9,
3.675934507693638*^9, 3.685103445194892*^9, 3.685195237702168*^9,
3.6852000418708277`*^9, 3.685783378334855*^9, 3.6868173909190702`*^9,
3.714304525295117*^9, 3.714307130606225*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"scalarlist", "//",
RowBox[{
RowBox[{"sortModes", "[",
RowBox[{"#", ",", "2"}], "]"}], "&"}]}], ")"}], "/.",
RowBox[{
RowBox[{"Complex", "[",
RowBox[{"a_", ",", "b_"}], "]"}], "\[RuleDelayed]",
RowBox[{"Abs", "[", "a", "]"}]}]}], "//",
RowBox[{
RowBox[{"ListPlot", "[",
RowBox[{"#", ",",
RowBox[{"FrameLabel", "\[Rule]",
RowBox[{"{",
RowBox[{"\"\<q/4\[Pi]T\>\"", ",", "\"\<Re(\[Omega])/4\[Pi]T\>\""}],
"}"}]}], ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "5"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "6"}], "}"}]}], "}"}]}], ",", "plotopts"}],
"]"}], "&"}]}], ",", "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"scalarlist", "//",
RowBox[{
RowBox[{"sortModes", "[",
RowBox[{"#", ",", "2"}], "]"}], "&"}]}], ")"}], "/.",
RowBox[{
RowBox[{"Complex", "[",
RowBox[{"a_", ",", "b_"}], "]"}], "\[RuleDelayed]", "b"}]}], "//",
RowBox[{
RowBox[{"ListPlot", "[",
RowBox[{"#", ",",
RowBox[{"FrameLabel", "\[Rule]",
RowBox[{"{",
RowBox[{"\"\<q/4\[Pi]T\>\"", ",", "\"\<Im(\[Omega])/4\[Pi]T\>\""}],
"}"}]}], ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "5"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "3"}], ",", "0"}], "}"}]}], "}"}]}], ",",
"plotopts"}], "]"}], "&"}]}]}], "}"}]], "Input",
CellChangeTimes->{{3.6756596923210983`*^9, 3.675659742503583*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
GraphicsBox[{{}, {{}, {},
{GrayLevel[0], PointSize[0.009166666666666668], Thickness[Large],
LineBox[CompressedData["
1:eJw10ntIU3EUB/C7l2666+6eZWVoURrYomkUSpwjPaCyiITCdP8oapSyf2aF
M8wywYVUNio1ZAWCj1QkUNKShVIOfBCGZv2Ro9JVgubUnG4zt3s68ONy+Z3z
OV8uNy7HdC5PyDCMYeMEn3W1wXoFd5hqiJJ6gX93QvPE5W5HmheSk4I1Bl0j
VZmx9v/3k6B9OTH4OnYVmFBNQXuLI/qxYxVC7Unf4OvJ3vDC0jUoyA/WNCSw
96s9Z300/xOO/bXEKFL9MDwUrFnofJra8uNggLx5qNCvFM8fXaf+P/BorLIi
sI9BPo8Htr7LTbP1MzgSml+EXelL/VeyBcjvW4ap5G3l414BCkLeClwYeVCG
9ULkPS/8dt1KTEQReWvgicnr1rtF5PnAut7hna0RkxeA01nGqc0oQT4fg7rs
xeOmOQny+Rm83vTe0GUPI1+A0T6/sTcjnOaF2FYZJ86QSmmfCFMOxH8/3yel
fGJ8wvqLGotl5InxreWuOk4fQZ4EpyNbuzpmIsgLw4UGhz7leSR54fhsi9PV
apSTJ8X+ycKihWiWPCnm9KQb/eMseTKMzz0z+8YWRV4E1pTqRndnKMiLxE9m
rUgn48iTozLlSJbrEkeeHJesQ7fnBznyWCy5MSeEPUryonBTedvAYJWSPAUa
BzoV1l9K+n4cjh5usJSdUmGoPZ9Dd91Dd+MLFfkcmi/2XVtl1cj/T0rcMTNU
UWJSY2hdrRJP3Eyw7/ygJk+F7c4vVR6DhrwNd5jd67ZpyFNhT52vfn1ZQ54a
P+8vlB/K1FJ+NSabzB/v9WrJ0yB3tblAsl2H/wBhRknl
"]]},
{RGBColor[0, 0, 1], PointSize[0.009166666666666668], Thickness[Large],
LineBox[CompressedData["
1:eJw10m1IU2EUB/Dr3Mvd+72727QIYyyKqEFhkkL5nCxnBZkZA4uBQ2zGwGYg
EQn5QUwqraDXJWXGGIibFrqF9MVioDITzaBcRPZCM7XSbcpsztXW6Q8Pl8tz
zu8cLldXZS8/xaMoauffk3red6QyQOKWZ5MN/Xz49z5CmFa3hB7hw67cVCbJ
XJmTfTf7/36KuK6GT5atEwCVzjRpshZFu48LIF2e+4VUPvqZI3MIoMaayjdS
cOChtWVGgP3fyb3D0+68fUJ4NZrKPOkoufi24LEQvQUS6jyfPSQRYf0iqZt9
+kR/QYT7REhNa2F91y8RjKX7oyTzciDst9E4b5kEZs6+jszSkJH2YuRHYu3r
S7sYvRXC9FXtGI2J0YuTwUtxvbdZgt4qMdqW+AatFL01Ys4xX5nrkuJ+FKz4
deO9IMP9KdhdyhWToAz9DGjS03PV5+TYz4Obe3TuBbUC52VCj/eI3+dV4H58
GDayFdcrlOjxYSLYHDYllOgJwFoi74geY9ATQsuNMZPGxaAnAptHr0n+ZtCj
odYaiTnLWPRoKJ94sznuYtETg5MO9y4nWPQksNo/0dhmUqEnBVm966DPo0JP
Bic+BeynhRx6MnguXp9sr+TQk0Ofb+jOoQEOPQUYbu232Dg1ekpoq/vIi9Wq
8fsxsHXeeHd+WA3pcisDn0PdnUWbNOgzUP2hWLDUqMH/iYVthu1U8r0G0uMc
LGzxhDaa87XoqeBMfl0hfVuLngp6Hkw1JBe16KmgXTyYV3g0Cz0Oxl0W0Qt3
FuydSQQ3XOPQyYY/5PM/RQ==
"]]}}, {}, {}, {{}, {}}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{0, 0},
BaseStyle->20,
DisplayFunction->Identity,
Frame->{{True, True}, {True, True}},
FrameLabel->{{
FormBox["\"Re(\[Omega])/4\[Pi]T\"", TraditionalForm], None}, {
FormBox["\"q/4\[Pi]T\"", TraditionalForm], None}},
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
GridLines->{None, None},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
ImagePadding->All,
ImageSize->500,
Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
(Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
Part[#, 1]],
(Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
(Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
Part[#, 1]],
(Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
Part[#, 2]]}& )}},
PlotRange->{{0, 5}, {0, 6}},
PlotRangeClipping->True,
PlotRangePadding->{{0, 0}, {0, 0}},
Ticks->{Automatic, Automatic}], ",",
GraphicsBox[{{}, {{}, {},
{GrayLevel[0], PointSize[0.009166666666666668], Thickness[Large],
LineBox[CompressedData["
1:eJw10m1IU2EUB/A724strbtNG4SBiR8ie/OlD6vmc0qmhYLkRNMaZqETQjJJ
hKJSECaVQrLCRZT5IbRwkEPRrO6HEhVTQd3ILNBMzbrb7t3damqu2jo78HC5
POf8zp/L3XX+Ul5ZBEVRKf9O8PnAEqx+cqfPGsgVfMz/9xEyW3rKxM37mLTU
YE2R+OWFFvtg+H6GHCh9lri7zcdQoZoj2eZXbH61jwm1py6QnCbJuWWtjzGW
B2uJSJMKJivE4fkVsnRj/+2sIS8z9j5YLKnUV8QOmbzocURydFbwZ3qxnyd2
un94QOLFPAKpWd8+8OadwIyH5r3k42J3kqlBwH0/iTb77IlancCIQp6fVMuN
zdMyAb1Vkjne1zM26kFvnaysTQ/fvOtB7zepXTAY1k570AuQwNzE2vEED+aj
4Ej265FCJ4/5KWi5mNKZ/JJHXwQPdWeGBht5nI+ADD/vkBbxuG8TqEoUvxb3
8JhPDI5DySX6AIeeGDa0ms/pUxx6EnCrRg+2dnLoSYG3ZeTk1nPoyUBWs1Gf
X8yhFwmP0ufbW9PCXiToemXKaDrsbYamuidtWTNu9ORg1ySKH5vd6G0BR1Xc
vDTPjV4U/Pk6QBsVbvSiwKCued4x6UIvGm7xtkDPPRd6W+FKs63uarELvW1w
TXfs7Zd4F34/Gn6YP5R9+uZkQu3lNIzv7ZAVdDvRp0E/8VRDrjvxf1JAUZen
qvGkkwmtsyig4cKL1QS1Ez0lxFmN36klFj0lHL7vVsf2sugpoWtRJdebWPRU
sCPGxlmLWMyvgsu17Zad+1j0YqCyMNJoFrHMX6CthY8=
"]]},
{RGBColor[0, 0, 1], PointSize[0.009166666666666668], Thickness[Large],
LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAmIQPWsmCOy055O/2PaTm/kAhH/S/uWdjQw2bMwHTIxB
4LK93KGP1/f9YYLK37RXmSJquvA90wEGMHhgf+rfpXcC95kOgJUbP7Z3MTQI
9DrNdCA9DQSe2V/pbL86dQtM/0v75MpZam6zmQ6cPQMCb+xvJtbEb66HmffB
3mHTAj/zJJj6j/YC905WaDozQd3z2T5B6fi8O0pMB86B9X+x13PrmT2HEWbf
N3sJ8zuua+8zHmAEm/fD3neFpZXXXkaoeT/tb3SrXVw2ixFq3m97od0/d74r
Z4Sa98deobVxk1soI9S8f/afy9j5zhoxQt3H4JDzZPqFWQKMUPczOOh7S0od
eccANZ/R4bLnec7IswxQ/UwOFjG1IWlrGKD2MTscvyKx42s3A9R9LA5fNI92
8eUwQM1jcQhdWSO5zQdmHquD1Zmdf9/rwsxjc/hi+ylvHz/MPHaHWTovvro8
+b8fYh6Hg9NR5gaLVf/3Q8zjcJhYaW4YVvh/P8Q8TodF2y1aZ1v+3w8xj8th
b+7ltyzM//dDzON2ONakKtN39h/UPB6Hy6a6ikYz/0HN43HYpnV6+uvUf1Dz
eB32lZTv22L8D2oen4NZ7OWedqZ/UPP4HTYeUb4de+nvfkjwCTg89tQLNVz8
dz9YeZqAw2yG6KW/S/5CzRdwKK19X7TN/e9+SHoSdHgnq5IVLf13P9i6mYIO
YhzPPZ68/wM1T8jhXI3BQ6+jf6DmCTkU6c+X75z9B2qekEP8/36BmUV/oOYJ
O5z5cO9eidcfqPuFHQJluW+LKcPME3HwjdlRXvnn934AJS9o0Q==
"]]}}, {}, {}, {{}, {}}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{0, 0},
BaseStyle->20,
DisplayFunction->Identity,
Frame->{{True, True}, {True, True}},
FrameLabel->{{
FormBox["\"Im(\[Omega])/4\[Pi]T\"", TraditionalForm], None}, {
FormBox["\"q/4\[Pi]T\"", TraditionalForm], None}},
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
GridLines->{None, None},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
ImagePadding->All,
ImageSize->500,
Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
(Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
Part[#, 1]],
(Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
(Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
Part[#, 1]],
(Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
Part[#, 2]]}& )}},
PlotRange->{{0, 5}, {-3, 0}},
PlotRangeClipping->True,
PlotRangePadding->{{0, 0}, {0, 0}},
Ticks->{Automatic, Automatic}]}], "}"}]], "Output",
CellChangeTimes->{{3.675659695904454*^9, 3.675659742907043*^9},
3.675680759787436*^9, 3.6756812595169086`*^9, 3.675934508102504*^9,
3.685103447115838*^9, 3.6851952380947933`*^9, 3.68520004214215*^9,
3.685783378531245*^9, 3.68681739110001*^9, 3.714304526190792*^9,
3.714307130857031*^9}]
}, Open ]],
Cell[BoxData[""], "Input",
CellChangeTimes->{3.6756251789327917`*^9}]
}, Closed]],
Cell[CellGroupData[{
Cell["transverse", "Subsection",
CellChangeTimes->{{3.67562551812052*^9, 3.675625519357007*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"transverselist", "=",
RowBox[{"Monitor", "[",
RowBox[{
RowBox[{"Table", "[",
RowBox[{
RowBox[{"{",
RowBox[{"k", ",",
RowBox[{"\[Omega]0Transverse", "[", "k", "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"k", ",", ".1", ",", "5", ",", ".1"}], "}"}]}], "]"}], ",",
"k"}], "]"}]}], ";"}], "//", "AbsoluteTiming"}]], "Input",
CellChangeTimes->{{3.675625145154604*^9, 3.675625151988078*^9}, {
3.6756252623343782`*^9, 3.675625268715866*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{"1.503447`", ",", "Null"}], "}"}]], "Output",
CellChangeTimes->{3.67562516555684*^9, 3.675625273180318*^9,
3.675657154329419*^9, 3.675659751226634*^9, 3.675680767420165*^9,
3.675934515037218*^9, 3.685103458248839*^9, 3.6851952396903152`*^9,
3.6852000435667677`*^9, 3.685783380235114*^9, 3.686817392904722*^9,
3.714304533070527*^9, 3.714307132424844*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"transverselist", "//",
RowBox[{
RowBox[{"sortModes", "[",
RowBox[{"#", ",", "2"}], "]"}], "&"}]}], ")"}], "/.",
RowBox[{
RowBox[{"Complex", "[",
RowBox[{"a_", ",", "b_"}], "]"}], "\[RuleDelayed]",
RowBox[{"Abs", "[", "a", "]"}]}]}], "//",
RowBox[{
RowBox[{"ListPlot", "[",
RowBox[{"#", ",",
RowBox[{"FrameLabel", "\[Rule]",
RowBox[{"{",
RowBox[{"\"\<q/4\[Pi]T\>\"", ",", "\"\<Re(\[Omega])/4\[Pi]T\>\""}],
"}"}]}], ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "5"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "6"}], "}"}]}], "}"}]}], ",", "plotopts"}],
"]"}], "&"}]}], ",", "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"transverselist", "//",
RowBox[{
RowBox[{"sortModes", "[",
RowBox[{"#", ",", "2"}], "]"}], "&"}]}], ")"}], "/.",
RowBox[{
RowBox[{"Complex", "[",
RowBox[{"a_", ",", "b_"}], "]"}], "\[RuleDelayed]", "b"}]}], "//",
RowBox[{
RowBox[{"ListPlot", "[",
RowBox[{"#", ",",
RowBox[{"FrameLabel", "\[Rule]",
RowBox[{"{",
RowBox[{"\"\<q/4\[Pi]T\>\"", ",", "\"\<Im(\[Omega])/4\[Pi]T\>\""}],
"}"}]}], ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "5"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "3"}], ",", "0"}], "}"}]}], "}"}]}], ",",
"plotopts"}], "]"}], "&"}]}]}], "}"}]], "Input",
CellChangeTimes->{{3.675659757072769*^9, 3.67565975786932*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
GraphicsBox[{{}, {{}, {},
{GrayLevel[0], PointSize[0.009166666666666668], Thickness[Large],
LineBox[CompressedData["
1:eJwt0ntIU3EUB/C7h25uU+8errIXZgWiCLl8pMQ5ZmarPxQNpLKkmhN6MNGV
aChWpJWPPyQC9Q9NqJCyIP/QCUn2x6BIy5bkizKt2GbYzDW13c3a7jnw43L5
nfM5Xy435qwpv0TIMEzS/xN4trcFygI5+vhNghgX8O+voeLI5Gz5NRfs1QXK
BnabT1gZvUT3kzB1P6V9Zm4JmGDNQtPhhk9xY78h2K6bh8qnndF/Zpah1Bio
H3DdeX7UtO6meQeI6qxlBp0HRt4G6idUKS/muM0r5LngdL5oR87wKvUvAVd/
q+yg9i/lWYbujppjReVeGA3Ou2Hi0N2x4o8c7fPAkPSJ05DhB0HQW4UNCafO
9D1cJ28NHvWEW6bvMMh7Xrg0n5jHZQmQ9zho/nqz87ZfgLznh8LQFvvxQSHy
+RhMwI5xfaUI+fwMbjWk7stIFiPvC7BpzhmtcYtpXoiYmu190RdC+0SY2rAN
d5lDkc8nxo1vBobSkiXkidFfXVvk8EjIC0GFNWE4ziIlLxT7y7u0i1fDyJMg
O1JhiwcZeVK0cEdbJoVy8qTIje2ZWLTKyQtD16/eLYZGBXkyrE15UJ+UF06e
HDPTdzsKoiLIU+Bla93jV1MR5CnQV7N9oKorkrxwbE2aSknXseRFoMiQqC+8
x5IXibaCtJ2tayx9PxavZBYLHUVKDLYbWXx/Yf3AiZdK8lnsbewxfotVIf8/
KdFZMi6vb1BhcF2bErXvVhb2L6jIU6Gvc3FClqsmT4XZ5v7Bhedq8lR4zlTa
/EWrIU+N9mcni79Xayi/GqdvdORynzXkafDDZmNTbFYU/gPCYU2+
"]]},
{RGBColor[0, 0, 1], PointSize[0.009166666666666668], Thickness[Large],
LineBox[CompressedData["
1:eJw10ntIU3EUB/C7l3s5t927zTJaZX9lZeVWEQa/U2ENMyuR0QqMRE1sKRku
NNZTghI0YXNtFZZrFGlK+EpMRUFb5aaWQmZQVI4esxUNUzKr3U4Hflwuv3M+
58vlLssuysjlUhSV9PdEni5npDqIy3Jh+7CEgn/vj0n55uUdzQkU6HWRek7a
PC1V8Vn/78eJI7WhZ6qOAoqtN6T6Wr7dPU0B2657R8K7r5BJIwcO50UqQOor
LT+u9nJw/iOZkAUGZOu54BuMVJCYHbr6iSYuel/J4NyrbeG1POz/RjzpLTvO
t/Mwz3fCXWJa93YrH/zsfJisjFs1WfGMj/umiWGNpJjJEwCH9WbIrDtkXfxL
gN4scdr2tR5wRKH3k7iaSpou6oXozZHxRoO/YFSI3jw5yVi8XosI81Gg0A7f
LF4kxvwUGEpMweQ+Mfoc8Fs/b5wrkOA8F7JDZTcq1VLcxwN+muDYSK8U8/HB
ZdaNeoqi0eODvJt3OaSVoSeAPiPPaxuSoRcFjasXPrKejUFPCPm3bT6bXo6e
CF4aVe/7P8jRE0Fbz1HT73QFemLwjCxNjL2rQE8Cte5z9+oESvSkIM1qve86
pEQvGhIr6twzXUr0osFYlVbYFkejJwNJf+Zx/wkavRjoLCs/kzxGoyeHmu6D
AzNJDH4/BTydrxniVDPAtucpwPxiZ2lGiEFfAbpCUTCwS4X/kxJen8qxdzao
gF3nVMKDWynxPqkaPRq0KddLFxxRo0dDLjS3u56o0aNhS+bYir0JGvQYeDiV
k7rpkgbzM3DntKlrzycNeirYv+FLmj01Fv4A8utBJQ==
"]]}}, {}, {}, {{}, {}}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{0, 0},
BaseStyle->20,
DisplayFunction->Identity,
Frame->{{True, True}, {True, True}},
FrameLabel->{{
FormBox["\"Re(\[Omega])/4\[Pi]T\"", TraditionalForm], None}, {
FormBox["\"q/4\[Pi]T\"", TraditionalForm], None}},
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
GridLines->{None, None},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
ImagePadding->All,
ImageSize->500,
Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
(Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
Part[#, 1]],
(Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
(Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
Part[#, 1]],
(Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
Part[#, 2]]}& )}},
PlotRange->{{0, 5}, {0, 6}},
PlotRangeClipping->True,
PlotRangePadding->{{0, 0}, {0, 0}},
Ticks->{Automatic, Automatic}], ",",
GraphicsBox[{{}, {{}, {},
{GrayLevel[0], PointSize[0.009166666666666668], Thickness[Large],
LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAmIQPWsmCOy0f/tgT6/Pq/f7IfyT9rGdSrnRq9/vNzEG
gcv2mTJiPXyeMPmb9i/97hQ3nX63nwEMHti3BifwRFu/2w9WbvzYfnPywVtF
C97uT08DgWf2d+dEXFFnfAvV/9I+1/rdeYOkN/vPngGBN/Y8l+wyjx17DTXv
g/1cmbgl7wxeQ9V/tI8rU4o/s/AV1D2f7Q2Pr33yWPLV/nNg/V/sq19v9gqY
+RJq3zd7FjX32FfyL/czgs37Yb9s09T9yWtfQM37af9q9zqtSMcXUPN+24fH
8fnH3X4ONe+PfeVXZz/W6udQ8/7ZN0Q9tn4s/xzqPgaHLz6HV0w6+QzqfgYH
x/auV1vKn0HNZ3TYJN0+/ZPmM6h+JoeiWbFtv+8/hdrH7CA4qbW1beZTqPtY
HOYZfX4dEPYUah6Lw/nG3+JyYk+h5rE6PN8d+3LbjSdQ89gc1mTI2r2c+wRq
HruD0OrCsvbUJ1DzOBwk9D4wZug/gZrH4WBcfOhbyu/HUPM4HQKPvd8UffIx
1DwuB61W73admY+h5nE7dOjHZ+/Kegw1j8fhr3/nzle2j6Hm8Tgc2dj6aYkQ
zDxeh1KzGe2XXjyCmsfnkHN9/qq4A4+g5vE7sFdkKJvNfAQNPwGHfwHzNN2L
H+0HK08TcGjjvOvU6PcIar6Ag7thjMpVrUfQ9CTokL/v/HQTjkf7wdbNFHRQ
fS2dPOnZQ6h5Qg4S6zqMHh19CDVPyKHggXarxLKHUPOEHHT9PWdrtT+Emifs
8OV2fhpf5kOo+4UdDv5SrN7lDTNPxEHi9z1mNf2H+wFTIn+4
"]]},
{RGBColor[0, 0, 1], PointSize[0.009166666666666668], Thickness[Large],
LineBox[CompressedData["
1:eJw10ntIU3EUB/A7c25OZ84NjFXOUnuIQ3ArRavfmVkhJUOTQv+yQh0lWRAW
FD1IfDAI7DFwMdQyCTV7WImk3pLClm4Vk8oiSsxlsNWk7nbvnrV1PPDjcvmd
8zlfLnfNwfqy6iiKonL+nfDT2B6uYeL61aju5UL0/3czUTyOM4/bQ7RaFS4b
mRx8eL5nYul+hmhmX9yQmEI0FamvJE+wsFapC9GRdtUcKVMWd53JDNG1NeGy
k3zDgPzRfBDnf5DCogXnpetB2jIVLgfp5g4PdpUE0XORSo1Mow0EsH+RWKTp
KSN9Aczzm2Q/ObLxbUWAtkbm/xBZR+7KQmEA97mJakOy49qQn+ZFPJZ0r2OL
snV+9Djyclvd6nK5Hz0fkefPpamtPvT8RHFO73Ne9KEXJHtNXNWVAh/mo8A1
VKvLYryYn4KBXn1g+J4XfR4IXvVbco96cT4KBJanoyalF/ctgzHznZjZnxzm
iwZxKS1i7nPoRUPj3RZ2soFDjw8p04bt+7dy6MWA6Lsv1Mzn0BPASHVphvY1
i54QWuennpmMLHpC2NHybVV1LYteLLypSrYZNrHoiaCv1WZP57PoxcHzj2ct
vHce9OLhs8vRkHrbg148GBy3Sk+c9qAnBkV5/55FrQe9BBAnqN/rMzzoLYer
E8Vf8vxu/H6JIB7rtDptbjrSXpMIOy+MNnf2u9FPhLaZpgO7mtz4P0lgtq4g
babKTUfWtUtgnL+ZKtmy5CVBhfrTZeOKJS8JOmLrPwwzDHpJcCzmVNZNG4Oe
FHbvSy3SPmAwvxQq1/Mzh9oY9GRw8lBO/vRxhv4LFYyEhA==
"]]}}, {}, {}, {{}, {}}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{0, 0},
BaseStyle->20,
DisplayFunction->Identity,
Frame->{{True, True}, {True, True}},
FrameLabel->{{
FormBox["\"Im(\[Omega])/4\[Pi]T\"", TraditionalForm], None}, {
FormBox["\"q/4\[Pi]T\"", TraditionalForm], None}},
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
GridLines->{None, None},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
ImagePadding->All,
ImageSize->500,
Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
(Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
Part[#, 1]],
(Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
(Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
Part[#, 1]],
(Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
Part[#, 2]]}& )}},
PlotRange->{{0, 5}, {-3, 0}},
PlotRangeClipping->True,
PlotRangePadding->{{0, 0}, {0, 0}},
Ticks->{Automatic, Automatic}]}], "}"}]], "Output",
CellChangeTimes->{3.6756597582884903`*^9, 3.675680767538575*^9,
3.675681262272002*^9, 3.67593451565733*^9, 3.685103459007181*^9,
3.685195239809904*^9, 3.685200043672552*^9, 3.6857833803767233`*^9,
3.686817393059882*^9, 3.7143045332706347`*^9, 3.714307132565405*^9}]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell["diffusive", "Subsection",
CellChangeTimes->{{3.6756255245978107`*^9, 3.675625525716566*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"diffusivelist", "=",
RowBox[{"Monitor", "[",
RowBox[{
RowBox[{"Table", "[",
RowBox[{
RowBox[{"{",
RowBox[{"k", ",",
RowBox[{"\[Omega]0Diffusive", "[", "k", "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"k", ",", ".1", ",", "5", ",", ".1"}], "}"}]}], "]"}], ",",
"k"}], "]"}]}], ";"}], "//", "AbsoluteTiming"}]], "Input",
CellChangeTimes->{{3.675625145154604*^9, 3.675625151988078*^9}, {
3.6756252623343782`*^9, 3.675625268715866*^9}, {3.6756253506544743`*^9,
3.6756253543270073`*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{"10.512661`", ",", "Null"}], "}"}]], "Output",
CellChangeTimes->{3.67562516555684*^9, 3.675625273180318*^9,
3.6756253767565928`*^9, 3.675657035681946*^9, 3.675657163659257*^9,
3.675659771128989*^9, 3.6756600437300377`*^9, 3.675680802249895*^9,
3.675934548439012*^9, 3.6851034772703457`*^9, 3.6851952529535847`*^9,
3.6852000567241783`*^9, 3.685783396128722*^9, 3.686817405474894*^9,
3.714304547486738*^9, 3.714307143116025*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"diffusivelist", "//",
RowBox[{
RowBox[{"sortModes", "[",
RowBox[{"#", ",", "2"}], "]"}], "&"}]}], ")"}], "/.",
RowBox[{
RowBox[{"Complex", "[",
RowBox[{"a_", ",", "b_"}], "]"}], "\[RuleDelayed]",
RowBox[{"Abs", "[", "a", "]"}]}]}], "//",
RowBox[{
RowBox[{"ListPlot", "[",
RowBox[{"#", ",",
RowBox[{"FrameLabel", "\[Rule]",
RowBox[{"{",
RowBox[{"\"\<q/4\[Pi]T\>\"", ",", "\"\<Re(\[Omega])/4\[Pi]T\>\""}],
"}"}]}], ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "5"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "6"}], "}"}]}], "}"}]}], ",", "plotopts"}],
"]"}], "&"}]}], ",", "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"diffusivelist", "//",
RowBox[{
RowBox[{"sortModes", "[",
RowBox[{"#", ",", "2"}], "]"}], "&"}]}], ")"}], "/.",
RowBox[{
RowBox[{"Complex", "[",
RowBox[{"a_", ",", "b_"}], "]"}], "\[RuleDelayed]", "b"}]}], "//",
RowBox[{
RowBox[{"ListPlot", "[",
RowBox[{"#", ",",
RowBox[{"FrameLabel", "\[Rule]",
RowBox[{"{",
RowBox[{"\"\<q/4\[Pi]T\>\"", ",", "\"\<Im(\[Omega])/4\[Pi]T\>\""}],
"}"}]}], ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "5"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "3"}], ",", "0"}], "}"}]}], "}"}]}], ",",
"plotopts"}], "]"}], "&"}]}]}], "}"}]], "Input",
CellChangeTimes->{{3.675659774705118*^9, 3.675659775610763*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
GraphicsBox[{{}, {{}, {},
{GrayLevel[0], PointSize[0.011000000000000001`], Thickness[Large],
LineBox[{{0.1, 0.}, {0.2, 0.}, {0.30000000000000004`, 0.}, {0.4, 0.}, {
0.5, 0.}, {0.6, 0.}}]},
{RGBColor[0, 0, 1], PointSize[0.011000000000000001`], Thickness[Large],
LineBox[CompressedData["
1:eJw10ntIU3EUB/C7uc3Nbe7uboVUosHw8U/UrP7Jdg7SA8sIbq2UJZTQxIxE
KQhKZ5SC+RpB6VIs/9A1IpGwP1SSYiBqaUgqFEWLmuaL6Xw0N5e13dOBH5fL
75zP+XK5uwtK+MtihmGM/07k+dgRqV6oD8/YXm75QHgfBu5u4bQs5IP9GZH6
CF5H0N3u/X//Cdp2uM63d/qAiZYHHuY8L8nV+CDanvEDDte9SnaOLkKhNVLT
kO7Z+zl15wLNz0Lm7BvP1YlFGH0fqQXIrk9qa3m6RN4S7Olfr7iX76f+ZWi2
GDsPsKuUZwUO+Ye2JfWtwVh0fhVs3yonevN/0751OJdpVc1vBkAU9QKQUlN8
X+oIkrcB+ubtW37jJnkhSJv60GV+FyZvEypvfG96UrBF3h9oaHTP2G8zKORj
cO3KVG7tcREK+RnsugV5ZzkxCr4IBxUiW+iLGIV5MYbLp/g6ZwwK+2KwNLWj
WFMmQSGfBPnuuoO1mVLyJHgq8WuVJFZGnhR9Z64FKsZl5Mlw7JLhaLgllrxY
HBh5UXbHKidPjqulKpF6n4I8OWZVjcrbQwryFLhxvZs3DcaRF4e8oafIa1eS
p0RTydqzRxYVeSrcNVR4jE9Rk6dCqEi3JCyryVOj/Yhs7ld/PHnxmHux8ae7
WkOeBovy7U0TaSx9PxbL30r5nAYWo+1WFp1ZSuXwCks+i9XZJteJPC0K/5MW
TZMm7fiAFqPrHFpMnzudcsHAkcdhx83JkfkajjwOC8b7PDYfRx6HS8HX2Qlm
HXk6dIW6Z3r6dJRfh9pEV6s5WU+eHlsfGE4Gq/T4F1WgUNM=
"]]},
{RGBColor[0, 1, 0], PointSize[0.011000000000000001`], Thickness[Large],
LineBox[CompressedData["
1:eJxTTMoPSmViYGDQAmIQffYMCLyxf3w9XO5M4D97BjD4YJ++jSs+qf+f/ayZ
IPDRvlvVnje68r+9iTEIfLZ/1f6h/lIYg8M5sP4v9rKXu9y2/WNwSE8DgW/2
IRdm8YWuYXRgBJv3w75m08nCOzFMDhDzftrHu/zwt+RndoCY99v+71bx2z8P
MUPN+2O/8pTZ85flLFDz/tk/VM5Y9FaX1QHiPgaHXZV+nz89YXWAuJ/B4fkK
79mv57BBzWd0mLNG/vGpUHaofiaHmmt5e1v4OaD2MTvs6VVq4j3FAXUfi8P1
DeJPI1s5oeaxODwXmcgQ78gFNY/Vob+TO1noHxfUPDaHoq7ZUlm7uaHmsTuo
aDzaHVPJAzWPw+HFAvHUh+a8UPM4HNJVyve+/8YLNY/TwavW7VP9Nj6oeVwO
p69829hVxg81j9uhok9kcou0ANQ8HocC9bqyX9UCUPN4HKwl2DiX3BGAmsfr
sGP6zuY6W0GoeXwOB9fE+LfPE4Sax+/gmKrCuOe/IDT8BBxm+BaESyUKOYCV
pwk4zN92y2zBISGo+QIOERrhy71VhB3A2o0FHfbyTr8o1SbsALZupqDDGrVZ
f7hfCEPNE3IQMUnulvUSgZon5MCy+tUv3zUiUPOEHHp7dR/M5hOFmifsoGOS
/oy1UBTqfmGHBZKFZ7sui0LNE3FoyHHJ0DQTcwAAEucKWw==
"]]}}, {}, {}, {{}, {}}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{0, 0},
BaseStyle->20,
DisplayFunction->Identity,
Frame->{{True, True}, {True, True}},
FrameLabel->{{
FormBox["\"Re(\[Omega])/4\[Pi]T\"", TraditionalForm], None}, {
FormBox["\"q/4\[Pi]T\"", TraditionalForm], None}},
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
GridLines->{None, None},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
ImagePadding->All,
ImageSize->500,
Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
(Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
Part[#, 1]],
(Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
(Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
Part[#, 1]],
(Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
Part[#, 2]]}& )}},
PlotRange->{{0, 5}, {0, 6}},
PlotRangeClipping->True,
PlotRangePadding->{{0, 0}, {0, 0}},
Ticks->{Automatic, Automatic}], ",",
GraphicsBox[{{}, {{}, {},
{GrayLevel[0], PointSize[0.011000000000000001`], Thickness[Large],
LineBox[{{0.1, -0.010070148742418935`}, {
0.2, -0.041164751572644834`}, {
0.30000000000000004`, -0.09629965492778854}, {
0.4, -0.18208417393231102`}, {0.5, -0.31318843896114024`}, {
0.6, -0.5288055131066626}}]},
{RGBColor[0, 0, 1], PointSize[0.011000000000000001`], Thickness[Large],
LineBox[CompressedData["
1:eJw10m1IU2EUB/Dr2zZtqzkFsZDch4gUA50oE9ZzKrKoJhVqQWQUNjOJWkVZ
VlbIwJX2YcTYwHS9kA2Doi0LyweCylq1u1fbauhyXBXLFaVpq1VbZwceLpfn
nN/5c7nSvYe27UtmGKbk34k9jYZYPSJl5nnr1J8w/f/+kuyRCm+YomFaKouV
iyzfrinKnkvc+4i8e0y5MRimTLxGiVcV4V4YwzTeLhsj1tvt0o7+adqgihVH
rjwI9B3tnML5STIfHBoP9HL0zetYfSKTQWFu75Mx9L6Qev2PkWgoiP1fSfPl
aVO1bhTzfCPpvIDNkz9C38bnv5NyZePDnvMB3DdL7txP6Vhd8IEmxb05IlZN
5Tzmv0dvnnhHuVVakR+9CDl8r3LD7xIfer/IK6tov1v9Dr0o+ckzH2l6Noz5
GCgzzxoqCoYxPwPrXKHCti4v+klQV/3RlZfnxflk8HcWCzbd8uC+FOCfKdJd
q/BgvlSQ1Uy3RTxu9FLBuExbtrvZjV4a+LrLfdF8N3o82GUs6Si0u9DjgzEy
ULXlggs9AVzXGBWf5S70BJC7pHVcN+NELx1EdH1tyOJELwNK1WDRnnCitwB2
PlXUKxRO9IQw2Fd3bCDNiZ4Q1swId9hYB3oiMLU898uvOtBbCJLTcvAddKC3
CJScuP0cceD3E4O6+LgnI8tB4+0qMbBnQyO1Eyz6YmjZmnKpkrL4P2VCa1eq
ZlDP0vg6QyZEdUPhm2oWPQkUyU/lcptZ9CRgWRxZe2BFwpNAvzuzaSk/4WVB
FZuzcsJmx/xZ0Kjvabh70Y5eNjQP1fhPKu30L2OBgrY=
"]]},
{RGBColor[0, 1, 0], PointSize[0.011000000000000001`], Thickness[Large],
LineBox[CompressedData["
1:eJxTTMoPSmViYGDQAmIQffYMCLyxn93+aaPZhb/7GcDggz3XgifdHIp/9s+a
CQIf7WMW7DrKPv/XfhNjEPhsfyLuY8bEgp/7z4H1f7Gf8En3gUXDj/3paSDw
zf4+w5KcwF3f9zOCzfthv0sy57aT0HeoeT/tj+zaFy3b8A1q3m/7Cd92+278
9xVq3h/77tqqSaVdX6Hm/bPvNO2tfaHwFeo+BgfvttU5xge+7Ie4n8EhReXb
v09pX6DmMzpk7cyXEBH5AtXP5FDak6ax99hnqH3MDg6dy97a1X2Guo/FQXIG
8zdOq89Q81gc9obFGi3/+QlqHqtDq878mZv2fIKax+awcscVk+tNn6DmsTvs
u2+hccb7E9Q8DofPjokFQeKfoOZxOKxU3q1k/PQj1DxOhzMhl/nstn6Emsfl
kPfeYoVH+0eoedwOP69kqOtGf4Sax+Mg/1Tu6kmDj1DzeBwOdK4pY+CAmcfr
MCdM6crWBx+g5vE5/HDkD7646wPUPH4H7u1nF9pM+wANPwGHa7N+5D8u+rAf
rDxNwOF4617DzQEfoOYLOISf9XozS//DfrB2Y0GHz5b6nN38H/aDrZsp6BD0
KDTh1YP3UPOEHOwarnjPWPIeap6Qgw93QRx71nuoeUIOp5dJvVcwfA81T9ih
LVLo2/mf76DuF3bQDqx+ynDkHdQ8EYdie7H2hf3v9gMApONCSA==
"]]}}, {}, {}, {{}, {}}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{0, 0},
BaseStyle->20,
DisplayFunction->Identity,
Frame->{{True, True}, {True, True}},
FrameLabel->{{
FormBox["\"Im(\[Omega])/4\[Pi]T\"", TraditionalForm], None}, {
FormBox["\"q/4\[Pi]T\"", TraditionalForm], None}},
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
GridLines->{None, None},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
ImagePadding->All,
ImageSize->500,
Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
(Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
Part[#, 1]],
(Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
(Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
Part[#, 1]],
(Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
Part[#, 2]]}& )}},
PlotRange->{{0, 5}, {-3, 0}},
PlotRangeClipping->True,
PlotRangePadding->{{0, 0}, {0, 0}},
Ticks->{Automatic, Automatic}]}], "}"}]], "Output",
CellChangeTimes->{3.6756597759857264`*^9, 3.675660075910696*^9,
3.67567966194697*^9, 3.675680802410713*^9, 3.6756812646218853`*^9,
3.6756813064346313`*^9, 3.6759345487936277`*^9, 3.685103481828146*^9,
3.685195253119721*^9, 3.685200056859455*^9, 3.6857833963005657`*^9,
3.68681740565233*^9, 3.7143045484375362`*^9, 3.714307143277348*^9}]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell["shear", "Subsection",
CellChangeTimes->{{3.6756255283772984`*^9, 3.67562552881573*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"shearlist", "=",
RowBox[{"Monitor", "[",
RowBox[{
RowBox[{"Table", "[",
RowBox[{
RowBox[{"{",
RowBox[{"k", ",",
RowBox[{"\[Omega]0Shear", "[", "k", "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"k", ",", ".1", ",", "5", ",", ".1"}], "}"}]}], "]"}], ",",
"k"}], "]"}]}], ";"}], "//", "AbsoluteTiming"}]], "Input",
CellChangeTimes->{{3.675625395227799*^9, 3.675625399202702*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{"10.762752`", ",", "Null"}], "}"}]], "Output",
CellChangeTimes->{3.675625423472438*^9, 3.675657052524983*^9,
3.67565725422118*^9, 3.675659808279208*^9, 3.675659859435471*^9,
3.675660426147108*^9, 3.675680835229075*^9, 3.675934582030352*^9,
3.685103504336356*^9, 3.685195267059065*^9, 3.685200069909569*^9,
3.685783410211837*^9, 3.686817418225176*^9, 3.714304567583206*^9,
3.714307154058053*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"shearlist", "//",
RowBox[{
RowBox[{"sortModes", "[",
RowBox[{"#", ",", "3"}], "]"}], "&"}]}], ")"}], "/.",
RowBox[{
RowBox[{"Complex", "[",
RowBox[{"a_", ",", "b_"}], "]"}], "\[RuleDelayed]",
RowBox[{"Abs", "[", "a", "]"}]}]}], "//",
RowBox[{
RowBox[{"ListPlot", "[",
RowBox[{"#", ",",
RowBox[{"FrameLabel", "\[Rule]",
RowBox[{"{",
RowBox[{"\"\<q/4\[Pi]T\>\"", ",", "\"\<Re(\[Omega])/4\[Pi]T\>\""}],
"}"}]}], ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "5"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "6"}], "}"}]}], "}"}]}], ",", "plotopts"}],
"]"}], "&"}]}], ",", "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"shearlist", "//",
RowBox[{
RowBox[{"sortModes", "[",
RowBox[{"#", ",", "3"}], "]"}], "&"}]}], ")"}], "/.",
RowBox[{
RowBox[{"Complex", "[",
RowBox[{"a_", ",", "b_"}], "]"}], "\[RuleDelayed]", "b"}]}], "//",
RowBox[{
RowBox[{"ListPlot", "[",
RowBox[{"#", ",",
RowBox[{"FrameLabel", "\[Rule]",
RowBox[{"{",
RowBox[{"\"\<q/4\[Pi]T\>\"", ",", "\"\<Im(\[Omega])/4\[Pi]T\>\""}],
"}"}]}], ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "5"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "3"}], ",", "0"}], "}"}]}], "}"}]}], ",",
"plotopts"}], "]"}], "&"}]}]}], "}"}]], "Input",
CellChangeTimes->{{3.6756598119763327`*^9, 3.6756598129265738`*^9}, {
3.675659876074066*^9, 3.675659881881589*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
GraphicsBox[{{}, {{}, {},
{GrayLevel[0], PointSize[0.009166666666666668], Thickness[Large],
LineBox[{{0.1, 0.}, {0.2, 0.}, {0.30000000000000004`, 0.}, {0.4, 0.}, {
0.5, 0.}, {0.6, 0.}, {0.7000000000000001, 0.}, {0.8, 0.}, {0.9, 0.}, {
1., 0.}, {1.1, 0.}, {1.2000000000000002`, 0.}, {1.3000000000000003`,
0.}}]},
{RGBColor[0, 0, 1], PointSize[0.009166666666666668], Thickness[Large],
LineBox[CompressedData["
1:eJwt0m1IU2EUB/C7uzm925x7M6lgrQ8rKyNzZhbaOaBGTDGyEtuHoGkmSQ1J
slfIwCLM7OVDTFJC0gkLEy1sUYoViaYiicSg1F4MAtNqunbdnLl7zx8uDw/3
nN85XO56u6PgOMswTMrKEzkbnJF4wNm+8P1IOADifQD6JrlA9loeUi2RjIHN
PP7hhZWn917obCtg3bU8MEKmIHGreffjTzwI5ZZvUJv790xcxiKcKI3kB/Cj
jcC7Fqn/J1w5HzVdYwzC8FAkMzDhyiqSNgXJ+w3tG7bYC80hqv8DOVVNY+6n
IdrHB60HZzLr8pdgROifh+5Z7xLHL9E8P3T7y5rqXoVBIngBqOwqvFTcskwe
Dx+repVGG4OiF4S8HJNvm49B0QvB3av2yegGCYpeGFQPM6w9VhbF/RhMfLBq
NpuVorg/g+y/ctfZHimKvgT7JiX+L5dl1M9ilqLj5W2IonlS9FuepEywchT3
k2HaSH6brV9OngxHFuayPDejyYvCDke89W1BDHlyjDWcvnV4NUdeNKo3DdYc
mOLIi8H99+5LH7kU5MXgBf0yt8ehJI/DmTeDeYadKvIUyJhsm43LKvKUWL3X
7TvUH0ueCi9a4k921avJU6F6zn9sR1EcebFY/+tOb7lGQ54aT017qt9XasiL
wySfaTzdq6Hvt3LmNr7rzNSiUF6qQS5//np6s5Z8DV5rNpYNyHUo/k9aDJ07
OlxSrkNhnFOLaa+fJStGdeTpcFdO8RpPqp48HSY4TOsqnHrydOguYSa2h/Xk
6fHzwvPwot1A++uRS9iXPNRvIM+AFTe+bmxJisf/wFpIAg==
"]]},
{RGBColor[0, 1, 0], PointSize[0.009166666666666668], Thickness[Large],
LineBox[CompressedData["
1:eJw10l9IU3EUB/C7df/Nuz/3n5MaUZqC9kdIQ4JZv5OmiNOXtML1JuXIGFZi
ZEGsQtOHHjJaTSeWYVT4oIYuqR5KY6VbmDGiNLRWSmL/yHSSVG4dD/y4XH7n
fM6Xy00sr9pzSEtRVMbyiT6bPdHqJ9OV91p13TT8f39O1t92FpQ+oGFbZrRe
kdzj/priwMr9G9Lef7K3J0wDFatJUjyx35qqYSDWnhkmVre3yprMgKMiWlNE
TO2arChicP4zmfAuTMm1DAQD0Zol2/0Fdd47DHrfSeJDoa3s3Ur/D2KlLVm3
FBbz/CS1ylwoYmPhRWx+joSuZ2n5ehb3zZM8fbrF+IQFTcyLEIfbyKRpOPQW
SVPGroSBPA6936RuLFTSdplDb4mM555I//WVQ+8PWdh88UCnncd8FDja1/ml
1zzmp6CPaFM2levQ14AwcqqQXdThvBa+UN7g8LU43LcKfHHVg1uJgPloaGik
V9fPCOjRcEQzeqzJo0ePAbam1HTaZkCPhX0U13PzrwE9Ds4N3f/W0mtEjwd7
ibVVcprQ46FNyAmEZRE9HVQP9Q36q0T04uCsdWQkKSiiJ4DL1fB2aqOEnh7U
SLyHb5TQ00N7c/bYmWkJPQOkjyYxOfkyekY4rO3qtnXI6Jlgy5XAUTet4PcT
4cLd5EtrDyoQa68Q4bGzaWl8QEFfBJ9qXvNyg4r/kwSWkNs3f16F2DrPco6W
T5HCjyp6MlTesBUO745HT4ZwinFvTUc8ejLMjncu5LNm9BTgXU937HSYMb8C
7x/N2MuemdFT4UP21Q53WgL8A83xNgM=
"]]},
{GrayLevel[0], PointSize[0.009166666666666668], Thickness[Large],
LineBox[CompressedData["
1:eJxTTMoPSmViYGCQAWIQnZ4GAv/sq70XO2nM4HdggACHF+xH1jx4zO9w9gwI
MDg4i/6WLJYTcJg1EwQYHXYm9AZbBQk4QPQzObwWOazA2SvgYGIMAswOl243
/vl5VsCBEWwci0PJlYSH14UFoeaxOCSsqd06OVYQah6rw4sLE1L8VglCzWNz
mFtx+UHCT0GoeewOgSc5Xvp4CUHN43BgM7U/tWWOENQ8DgcxU8XCsA9CUPM4
HQo3L7JkcBWGmsflsInN2K57ljDUPG6HpGPWN259EIaax+PA8ctc+oa7CNQ8
HocG3sYLhfNFoObxOohcYneb+V0Eah6fw5fbv9QdA0Sh5vE7cFlvzE1cKQoN
PwGH2RdybT8wiTmAlacJODzf+O3KsxgxqPkCDu9ORay12y7mANZuLOjwzOWJ
2SdBcQewdTMFHezOzBD6kyMONU/I4UHOvHPhJ8Qd1PdM99O1E4KKSzgAAOKu
qMg=
"]]}}, {}, {}, {{}, {}}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{0, 0},
BaseStyle->20,
DisplayFunction->Identity,
Frame->{{True, True}, {True, True}},
FrameLabel->{{
FormBox["\"Re(\[Omega])/4\[Pi]T\"", TraditionalForm], None}, {
FormBox["\"q/4\[Pi]T\"", TraditionalForm], None}},
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
GridLines->{None, None},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
ImagePadding->All,
ImageSize->500,
Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
(Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
Part[#, 1]],
(Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
(Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
Part[#, 1]],
(Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
Part[#, 2]]}& )}},
PlotRange->{{0, 5}, {0, 6}},
PlotRangeClipping->True,
PlotRangePadding->{{0, 0}, {0, 0}},
Ticks->{Automatic, Automatic}], ",",
GraphicsBox[{{}, {{}, {},
{GrayLevel[0], PointSize[0.009166666666666668], Thickness[Large],
LineBox[{{0.1, -0.00500768878810833}, {0.2, -0.020123857997647446`}, {
0.30000000000000004`, -0.04563423847157739}, {
0.4, -0.08203722280526293}, {0.5, -0.13007994988566224`}, {
0.6, -0.1908147384566229}, {
0.7000000000000001, -0.26568224917847094`}, {
0.8, -0.35662929337874166`}, {0.9, -0.4662674943170415}, {
1., -0.5980657370141007}, {1.1, -0.7565237261563998}, {
1.2000000000000002`, -0.9471608486960079}, {
1.3000000000000003`, -1.1759863003450184`}}]},
{RGBColor[0, 0, 1], PointSize[0.009166666666666668], Thickness[Large],
LineBox[CompressedData["
1:eJw10ntIU3EUB/A7p2tN03l9gJQrCyIrM1ulA/N3pIIKIs0chqTmaAZK6YpZ
svpHA2k66KFjovSHkI9QyBQfQ66JZYqrLKgkGLa7l6+c7m4lVtbW2YEfl8vv
nM/5crkJxdfPXwmiKOrQv+N7Nhl8NUgE9WduHfN6mP/vE+T3WGlT4ZKHOSz1
1UeSyNXI6syB+xmSJ4+uaJvwMJS/Zkm/VNmu7vYw/nYpS4QnDmq1dR6mROkr
O1HVF+h3KwLzcyS2bFYTkeJhTFO+WiR3RpujFRyHnot8tjkzCzo57F8hncbH
+0+e4zCPm1we7OWPmN3MW/88R3bQbbF5uW7c5yUhWUe+3H2xyvD83k+if9N3
UU6tordGxJIe0b5TK+itk6zjaQ+eNbrQ+0VMOQq+zraM3h/Cb7lqbxz+jvko
eD1E57b2LmF+CpTp97Ofji+iz4OBElm20L2A80FwiY5vL5Iu4D4+aLT6tZ57
85gvGLZV961XOubQCwZV98ynh/I59EKgJ8WVnjntRE8AVa3Jz0PlTvQ2QWXN
t/f9rAM9IQg15d702w70hBBy84PAGONAbzO4YBd9Y8COnggq8gevvSyyoxcK
uuGjvLhwO3phMCk5oNpgbOiFgaBhQSJS29DbAqMd71q+JtvQC4ek0tr+hCUr
ehFQtT1u+FGXFb+fGJzVe/eslFsZf7tSDA2182oq1Yq+GAqTktN0Gyz+T5Hg
MnVklE2yjH+dIRKshkSuXM+iR8PQyNZxtZJFj4axjOmu/FQWPRp+XHhipEQB
LwqmlmWvTpstmD8KdrLNkfG9FvSi4WxOcYxCa2H+AuaJfFw=
"]]},
{RGBColor[0, 1, 0], PointSize[0.009166666666666668], Thickness[Large],
LineBox[CompressedData["
1:eJw10ntIU3EUB/C7O1+zVXthZi+NFpposGVpzH7HCmuUfygDg0Zk+cCkzD8C
qbD8p+zhtAhsK63AZGAlERYt5F6Knkwr1hgTJu1BkAwfzfberO2eHfhxufzO
+Zwvl1twor2uiaYoSvH/JJ4GfaJek6MCXd68kM9y75+J+bD8anY2n92hTJSF
lDz2r1Gkp+7tRNU6tkEbp1kqWT9Jg50u7fxLs8l2pZtsvaFRnpml2ZbmRP0i
/UvG+rUOGud/k4d1m9T7Jml20pwoLznlnmu5Z0p5C+SymK8dHU71L5KqC1XO
j9dpzOMjUtKnj7XR7FRyfomc7ys3x6tT+/wkV11euS6PZnlJL0jyG9mcRjcP
vRCJ5zwbKXrEQy9Cpss2Gn11PPSiZLHXmn8rTKEXJ+LB1pmi+xTmo+C5wnHu
vYrC/BTYLa4BL7vMcD4Pqj8wTVukyww3T4NG/eKKtyPOcPv4IK6d2lPhiDFc
vjSYfiLpKdTEGM5Lg66a4js6axS9dBC89EzsPh5FLwM6zD8MMl8EvUzIqlAr
5b0R9LKgVuzpHCiJoJcF0tMNm8ctYfQE4LF90bm6wuhlw6zTOWYoDaO3Ajpi
++vbXCH0hNBd0J77Rx9CTwhm+rvRrgmhtxIeZNgnbJIQeqtgb6H7wKgliN5q
8N3VxvMGggz3+UTwTt9dtqQNMsn2ZhFsLx5yCuRB9EWwU6b6pJwPMNz/JAbT
+rfWmjcBJrlOL4bmk5f6d10LoCcB/tOFQcuRAHoSGP96+1jmtgB6Eug5W2kw
Rf3oSeEQNaS0ffNjfimMzsjnDo740ZNB5NXNsthFP/MPTKZwJw==
"]]},
{GrayLevel[0], PointSize[0.009166666666666668], Thickness[Large],
LineBox[CompressedData["
1:eJxTTMoPSmViYGCQBWIQPW/PhAQTdyYHBjDgOJCeBgJMDjP639Rv/ch+wMQY
BJgdwhW0OG9OYz/ACFbH4nBkUuvlDgf2A2fPgACLQ/L0BfUB79kOzJoJAqwO
nBOPf1BbzAY1j81BavbOzcei2aDmsTvEuhReOyDBBjWPw+GG7gvPNTdZoeZx
OFif3vVRZh4r1DxOB1X+npMbUlmh5nE5bHqgNV/MgBVqHrfD88vcs1n+skDN
43FQWmGwxvYMC9Q8Hofdaib/O+eyQM3jdfhU19O7u4AFah6fw7xnGRwrXVmg
5vE77NnAN0dPhuUAJFwEHMzSd7nrfmE+AFaeJuBwuT79Q+dZZqj5Ag6OkSf9
dFYwHwBrNxZ0WPtZu+dvM/MBsHUzBR1MRWuUXicwQ80Tcri3dNH8x3Yw84Qc
/r6yfnlNFmaekMM3F8vr2/8yQc0Tdsjgd5pccY8J6n5hB7XkgjreA0xQ80Qc
vtVz+2QvYjoAADzYupw=
"]]}}, {}, {}, {{}, {}}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{0, 0},
BaseStyle->20,
DisplayFunction->Identity,
Frame->{{True, True}, {True, True}},
FrameLabel->{{
FormBox["\"Im(\[Omega])/4\[Pi]T\"", TraditionalForm], None}, {
FormBox["\"q/4\[Pi]T\"", TraditionalForm], None}},
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
GridLines->{None, None},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
ImagePadding->All,
ImageSize->500,
Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
(Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
Part[#, 1]],
(Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
(Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
Part[#, 1]],
(Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
Part[#, 2]]}& )}},
PlotRange->{{0, 5}, {-3, 0}},
PlotRangeClipping->True,
PlotRangePadding->{{0, 0}, {0, 0}},
Ticks->{Automatic, Automatic}]}], "}"}]], "Output",
CellChangeTimes->{
3.675659813323296*^9, {3.675659859975754*^9, 3.6756598821667337`*^9},
3.6756605351780157`*^9, 3.6756808354447813`*^9, 3.6756812784353933`*^9,
3.6759345826660633`*^9, 3.685103504595489*^9, 3.685195267322287*^9,
3.685200070149476*^9, 3.68578341056289*^9, 3.686817418605665*^9,
3.714304567848195*^9, 3.714307154349247*^9}]
}, Open ]]
}, Closed]]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["\<\
Reproducing the massless probe scalar modes in Lifshitz of 1602.01375\
\>", "Subchapter",
CellChangeTimes->{{3.675676770548375*^9, 3.675676784384171*^9},
3.675681421823827*^9}],
Cell[TextData[{
"The equation for a massless probe scalar in the background of an \
asymptotically Lifshitz black brane of d+1 bulk dimensions with Lifshitz \
scaling z. \nThe function \[Delta]\[Phi] is scaled such that it goes linearly \
to zero near the boundary, and the equation goes to a constant on the \
boundary (proportional to \[Delta]\[Phi]).\nThe frequency is ",
Cell[BoxData[
FormBox[
RowBox[{"\[Lambda]", "=",
FractionBox["\[Omega]",
RowBox[{"4", " ", "\[Pi]", " ", "T"}]]}], TraditionalForm]]],
".\n\nNote that the QNM\[CloseCurlyQuote]s depend only on the ratio ",
Cell[BoxData[
FormBox[
RowBox[{"\[Alpha]", "=",
RowBox[{"z", "/",
RowBox[{"(",
RowBox[{"d", "-", "1"}], ")"}]}]}], TraditionalForm]]],
", which is not immediately apparent from this form of the equation, but \
this form turns out to be more convenient numerically than the form where it \
is apparent."
}], "Text",
CellChangeTimes->{{3.675681494947204*^9, 3.6756817227950783`*^9},
3.675682665553581*^9}],
Cell[BoxData[
RowBox[{
RowBox[{"eqLifshitz", "=",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"2", "-", "d", "-", "z", "-",
RowBox[{
SuperscriptBox["u",
RowBox[{
RowBox[{"-", "1"}], "+", "d", "+", "z"}]], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+", "d", "+", "z"}], ")"}], "2"]}], "+",
RowBox[{"\[ImaginaryI]", " ",
SuperscriptBox["u", "z"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "d", "+", "z"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "+", "d", "+",
RowBox[{"2", " ", "z"}]}], ")"}], " ", "\[Lambda]"}]}], ")"}], " ",
RowBox[{"\[Delta]\[Phi]", "[", "u", "]"}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
SuperscriptBox["u",
RowBox[{"d", "+", "z"}]], " ",
RowBox[{"(",
RowBox[{"3", "-",
RowBox[{"2", " ", "d"}], "-",
RowBox[{"2", " ", "z"}]}], ")"}]}], "+",
RowBox[{"u", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+", "d", "+", "z", "+",
RowBox[{"2", " ", "\[ImaginaryI]", " ",
SuperscriptBox["u", "z"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "d", "+", "z"}], ")"}], " ",
"\[Lambda]"}]}], ")"}]}]}], ")"}], " ",
RowBox[{
SuperscriptBox["\[Delta]\[Phi]", "\[Prime]",
MultilineFunction->None], "[", "u", "]"}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
SuperscriptBox["u", "2"], "-",
SuperscriptBox["u",
RowBox[{"1", "+", "d", "+", "z"}]]}], ")"}], " ",
RowBox[{
SuperscriptBox["\[Delta]\[Phi]", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "u", "]"}]}]}]}], ";"}]], "Input",
InitializationCell->True,
CellChangeTimes->{{3.675681489685487*^9, 3.6756814928642483`*^9}, {
3.675681538549938*^9, 3.6756815589399033`*^9}, {3.675681734887586*^9,
3.6756817352010107`*^9}}],
Cell[CellGroupData[{
Cell["Relaxation time", "Section",
CellChangeTimes->{{3.67568173862707*^9, 3.6756817402964277`*^9}}],
Cell["\<\
The lowest mode, which determines the relaxation time, can be found quite \
accurately with low precision.\
\>", "Text",
CellChangeTimes->{{3.675682230052805*^9, 3.6756822477021503`*^9}}],
Cell[BoxData[
RowBox[{
RowBox[{"\[Tau]", "[",
RowBox[{"\[Alpha]_", "?", "NumericQ"}], "]"}], ":=",
RowBox[{
RowBox[{"-", "1"}], "/",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"GetAccurateModes", "[",
RowBox[{
RowBox[{
RowBox[{"eqLifshitz", "/.",
RowBox[{"z", "\[Rule]",
RowBox[{"\[Alpha]",
RowBox[{"(",
RowBox[{"d", "-", "1"}], ")"}]}]}]}], "/.",
RowBox[{"d", "\[Rule]", "3"}]}], ",",
RowBox[{"{",
RowBox[{"50", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"80", ",", "0"}], "}"}]}], "]"}], "//", "First"}], "//",
"Im"}], ")"}]}]}]], "Input",
InitializationCell->True,
CellChangeTimes->{{3.675681743475651*^9, 3.67568184881525*^9}, {
3.675682227442458*^9, 3.675682228169516*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"taulist", "=",
RowBox[{"Monitor", "[",
RowBox[{
RowBox[{"Table", "[",
RowBox[{
RowBox[{"{",
RowBox[{"\[Alpha]", ",",
RowBox[{"\[Tau]", "[", "\[Alpha]", "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"\[Alpha]", ",",
RowBox[{"1", "/", "3"}], ",", "3", ",",
RowBox[{"1", "/", "100"}]}], "}"}]}], "]"}], ",",
RowBox[{"\[Alpha]", "//", "N"}]}], "]"}]}], ";"}], "//",
"AbsoluteTiming"}]], "Input",
CellChangeTimes->{{3.675681996012282*^9, 3.675682020959632*^9}, {
3.6756821410901003`*^9, 3.6756821517285137`*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{"7.646686`", ",", "Null"}], "}"}]], "Output",
CellChangeTimes->{3.6756820418521976`*^9, 3.675682200530785*^9,
3.6756822919611073`*^9, 3.675765755771673*^9, 3.675765885591505*^9,
3.67593463168346*^9, 3.685103520075233*^9, 3.68519527450793*^9,
3.6852000790294523`*^9, 3.685783419172592*^9, 3.686817425650806*^9,
3.714304583286283*^9, 3.71430716207751*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"ListPlot", "[",
RowBox[{"taulist", ",",
RowBox[{"Joined", "\[Rule]", "True"}], ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{".9", ",", "1.7"}], "}"}]}]}], "]"}]], "Input",
CellChangeTimes->{{3.67568202760916*^9, 3.6756820317740517`*^9}, {
3.675682153519305*^9, 3.675682171622938*^9}}],
Cell[BoxData[
GraphicsBox[{{}, {{}, {},
{RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.007333333333333334],
AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJw11nlcjfkXB/C7X1slIiFjK4Mkg1acrywhUyYGWQeFkPGrJtFCpRl7yCRL
M1mzJFJZspSyNSOyZJkkWm6r7n6f5bb87r2d5/zT676q0/d53p3z+Q5Z/atf
oIDH43Xn83jGrz+bqgw0T20ab82igHl8ZKUDUwY53y29kPBcB6nOpUHC1HcQ
siT/wNNFOpiabhb2H3kPs6+/eJ7UoIVaa++YrJr3UNlzCX92rBb27DbWB7jN
G+oTOUgLDqaGH6Gb77M8WYEGjN2cSz9CdsqlwoD1GjA0M3aE0z80O1VbaaCf
sZ11OWx2PtCw5Ika7t01Vjnwl42UPolSwy+mhp/g0DDyto+rGoSmA1bA1qhJ
i0bRKjAdL70CIiEws+SeCkztvD+DYtP4RzkJKpC3GOszxN8cJE7wU0HSSmPD
Siid+Ir5NFQFA+pzYn0GfAHrKSvalumUEJz2RuIe/AVelhS3Xn2uhPzFqn12
+V/g2L9pmxPOK8HSVF8h6UT+7Qs7lbCmeGxy6+qvkOBx+E7VciXkGrrV53yF
VeYPnfpOVoLU3dixCqJ+OZ48YpAS/I3tFlfB0eUWRSK+Eq5cNlYVDP8Y+Hda
rQLaVhsbVkH+6vt6xb8K8DUdsBr2pTpmNWcrwHS8tGrQpbUP2JuqAFM7VTW8
mWzR5cFuBUw3VQ1sGrveOvI3BRgOZ2hYA9SfVFrWGgWYHre+BkZRGYzvfAWY
judeC1taroqnTVfAfmO7fbUQ6ZOoDHdWwOcKY9XCM22o/P1IBTiZGsqgsrWq
wm+QAuKMjxsrA9ug+c/KeivgrfF4b2TQPiDcdV43BdibXmAd3HaBldl8BWw1
VR3MDnQdXaOWg+n1FddBaP8V+/kyOXrUQ5h/Rczlj3L0qAde3DdRyQs5etSD
0sLGzP+xHD0aYMeADV3JfTl6NIAy5N7vYTfl6NEAHU6l5Q3X5ejRCG0HY8uT
MuTo0QgZs/Xpay/J0aMRFjX+GL8wXY4ejXAkryR/0QU5ejTBsYSQjBWGz50e
TdDs4Jiy0vDznR5NYOG0+LWPoV+nRzPkVnfJGWz4e50ezRBztDCz+JocPZrh
7UHZgik5cvT4BlduZq8PvSNHj2/QMjqzYXm+HD2+QUmErbXa8PydHi3AjL0d
/32JHD1awEd0zEzzVo4eLVAwrEnpXSFHDzncXTruib3hfXd6yCGkynNbpJzz
kMPf83mLpzJyMDcNrAIol5yyvpEKcDENtAJ4Zvq6B+0KnE8F+Fn16BG1SIn7
QAHSrZnHHNKUYJzGmCwFsF7T+idWKqFz/BXwj8Di0Ml+KpxnJRxIESWp5qpw
fyih2sf2bnK0Cjr3lWEuV0mGOl9RgWm8Y5Qw4dE51dx33PwrYUXh0NMuHSrc
N0pof/1l+WR7Ne43JdRF/Bme7K2GoaZSQdSu+C1bflXjvlDBZjPbp4rDatxP
KhiXZPbGOVuN+1AFY1zt7Ja/UcMTY7vHKggNSY7frlLjflFB2MCD6Wd6cvtM
Dbm5M5/Lxmhwf6pBUn9z0MI5GthgemA1VHg4WLUHanAfqeFE7slrjTs1uP/U
sOnozDv2JzW4b9VQkHGi6W6OBj004HgxuF92iQY9NCC7EOplJdOghwYWjyp5
KWvToIcGti3dHTyujxY9DOc8kzafHa1FDw1In6Z6eHlq0UMLY9POh9gu5va5
FqbXtNbEBmvRQwvlecUjtsVp0UMLw5cVxkqPadFDCzMbjqqcrmjRQwuF/O1u
zAMtemihOM2qfM1rLXroIDExyj6sVoseOvjp2HO3MbQWPXTwHT1BcqQbl086
sNueNP/8QB166KDuz6yiIEcdeuhAmeZY9hV06EHB3qs2MoufuDyjYOWDBc66
VTr0oKBlw62G5BAdelAQVMrrponToQcF02pO7bZI0qEHBf6jZpGmMzr0oGGX
a5Ru9w0detBQW/tyWeNDHXrQsPb4pF6Wr3ToQYNZ8dhz7ZU69KDh9aXziTmG
c3d60GAjHuQ5oU2HHgzc8Y/pv6M7hR4MNLh/Dkq2odCDgU89FoZFjqDQgwHR
iuz/jZ1IoQcDWbf6Hsz2pNCDgbOXTjZ2mcflPwMWExpSnZZT6MFC4IbrOaM3
UOjBApx1/0EfTqEHC2NmvO2ZFk+hBwsb1k31HHCIQg8WDuQNvx58ikIPFs6Y
rZ6UcpFCDz2EQsTDkzkUeuih2fZjr20FFHroYU9ftzan5xR66MF649eZj95T
6KGHaz5N18ZXU+ihh30jjqh2tFDo0Qr/uGwsusRQ6NEK866ffZUlotGjFeKX
uT9NsaDRoxXO3nOevbI/jR6tkLinnBLb0ejRCnuiyzYfGEujRxvUhATP0LnR
6NEGZluumU+dTqNHG1BrU/w3+9Do0QbemR5ZMYtp9GiDD4WyUyGrafRoA8n6
OWlzNtHo0QZxU5M9pOE0erTDuqepTRd30OjRDo67VCOd9tDo0Q7rrboFpx6h
0aMdSst9v1eepNGjHcZ/mPV89HkaPdpBm3r2yY+ZNHp0QOLspXGLbtHo0QGn
tz1bN7uARo8OEAy7/WlYMY0eHfBIFz+97hWNHh3Amg/nHTX833Z6dMAnmefm
UdU05i2PBPrMb7rcRGO+88hc31Ov+mhozC8euf7Sb9vGVhrzkkdslp51zRAx
mM88MiC9aM2HHgzeB3jkeA/xjworBvOOR/J+r5yuGchgvhq+f4p/omY4g3nO
I3VWK44/NMxN5/2BR1z+cz24bwKD+cgjSe/HF3pOYjCPeSR/ln903TQG859H
EoeMlmz3ZvC+wSfeXS+fZv0YzFM+ETkGJAUtYTC/+SQyPsr26SoG7wt8EpB4
c2fvIAbvJ3wifbGj1WcLg/nLJ/l69sW2rQzmPZ9c8hVOPGqY4877BZ9sOuKx
4a8EBu8zfNLvcZ9LKfsZzGs+YWVlo+KTGLwf8EneH2kjVpxg8D7CJ7NcY96N
PM2gh4A8TAsIlhn2QqeHgNwNnzTkaCaDHgKS16XRbnwugx4CkvjNL7PoLuch
IKPy1jTPKOQ8BKS41toy7xnnISCv/4ueO/gl5yEg5mPySyLKOA8BKTg0vKio
nPMQEMuU/kv4VZyHgHyLds8fV895CEiN+9xBP7dwHgLiysw5s1HDeQjJS2Hw
b7+xnIeQ/H7R7mEIj0UPIfllsEPmGgmLHkIy91V0wKweLHoIibfbmu5DerHo
ISRZ9uHF36xZ9BCSiLenH2XasughJI3jRg8NGMaih5Cs+i5LYj6SRQ8hqRjz
Q3KGI4seQuIXbaGBCSx6CInHaMtpz9xY9BCRL63rzs8AFj1ExFuZNen2dBY9
RCR4QfvIwXNY9BCRubwXB6J9WfQQEf+/bHaXLmDRQ0TsvPxcbZaw6CEiq83X
3l+0kkUPEalofDhxfwCLHiJSVDk//2YQix4istjp0Nb3m1n0EBFL518jW0JZ
9DB87hZep49g0UNE6AfZ7zuiWfQQE5fiJ+vYOBY9xCQ+oeJG0x+ch5jYe+S9
ebOf8xATL5ucmhuHOQ8xuXvlTsfuZM5DTB7J/KYsPMl5iMmUqWfv9E/jPMTE
z3fT3nfnOA8xmZlkXrznEuchJr277z8wIZPzEJPSnnvl725wHmIyad98yf9u
cR4S4hbysV5wj/OQEPZ67tX9BZyHhER4OWw0f8x5SEhRxhiX3cWch4TEdF80
gi3hPCQkboh2XsBrzkNCwsLFxU/ecR4Skmfhcm5IOechIbHhzbqwSs7D+PtT
ygqqOQ8JEduzfuJ6zkNC1s28EO/ZzHlIyM6NsdsjFJyHlHhNTpiTruE8pCT3
+lrJS5rzkJJd7scK5K2ch5T06u21rytfjx5SsswtMGKgWI8eUuIfevr49131
6CElX5hNPEczPXpIyWEz/X0HSz16SMlby+nVw/vo0UNK/i4Wxva10aOHlGgj
7qXzbfXoISXbF9xaJxush/8DwGJjqA==
"]]}}, {}, {}, {{}, {}}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{0, 0.904},
DisplayFunction->Identity,
Frame->{{False, False}, {False, False}},
FrameLabel->{{None, None}, {None, None}},
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
GridLines->{None, None},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
ImagePadding->All,
Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
(Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
Part[#, 1]],
(Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
(Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
Part[#, 1]],
(Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
Part[#, 2]]}& )}},
PlotRange->{{0, 2.993333333333333}, {0.9, 1.7}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {0, 0}},
Ticks->{Automatic, Automatic}]], "Output",
CellChangeTimes->{
3.675682041979364*^9, {3.675682161322476*^9, 3.6756822014597683`*^9},
3.67568229538428*^9, 3.675765755882736*^9, 3.6757683391511497`*^9,
3.675934631793356*^9, 3.685103522372612*^9, 3.68519527460929*^9,
3.685200079104602*^9, 3.685783419242333*^9, 3.686817425735482*^9,
3.71430458568078*^9, 3.714307162181758*^9}]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["Underdamped vs overdamped", "Section",
CellChangeTimes->{{3.675682683737116*^9, 3.6756826866204967`*^9}}],
Cell[TextData[{
"For ",
Cell[BoxData[
FormBox[
RowBox[{"\[Alpha]", "\[GreaterEqual]", " ", "1"}], TraditionalForm]]],
" all modes are overdamped, while for \[Alpha]<1 all are underdamped:"
}], "Text",
CellChangeTimes->{{3.67568268795793*^9, 3.675682706102169*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"overdamped", "=",
RowBox[{"GetAccurateModes", "[",
RowBox[{
RowBox[{
RowBox[{"eqLifshitz", "/.",
RowBox[{"z", "\[Rule]", "4"}]}], "/.",
RowBox[{"d", "\[Rule]", "4"}]}], ",",
RowBox[{"{", "50", "}"}], ",",
RowBox[{"{", "100", "}"}]}], "]"}]}], ";"}], "//",
"AbsoluteTiming"}]], "Input",
CellChangeTimes->{{3.675682708221944*^9, 3.6756827534444933`*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{"22.507139`", ",", "Null"}], "}"}]], "Output",
CellChangeTimes->{3.675682743685381*^9, 3.6756827792722807`*^9,
3.675753478651161*^9, 3.6757536680334187`*^9, 3.675765783681117*^9,
3.675768372408823*^9, 3.675934660409865*^9, 3.6851035528828487`*^9,
3.6851953003970833`*^9, 3.685200105996447*^9, 3.685783445588107*^9,
3.68681744908498*^9, 3.7143046107800703`*^9, 3.7143071847037992`*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"overdamped", "//", "ShowModes"}]], "Input",
CellChangeTimes->{{3.675682755202381*^9, 3.675682757168384*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
GraphicsBox[{{}, {{},
{RGBColor[0, 0, 1], PointSize[Large], AbsoluteThickness[1.6],
StyleBox[
PointBox[{{0., -0.7438517908100236}, {0., -1.1570790487631937`}, {
0., -1.7014300763757406`}, {0., -2.1805296495874087`}, {
0., -2.6908648303385214`}, {0., -3.1858531008094415`}, {
0., -3.6883031834931757`}, {0., -4.187299569283064}, {
0., -4.678616257202936}, {0., -106.85495822793618`}}],
FontSize->30]}, {}}, {}, {}, {{}, {}}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{0., 0.},
BaseStyle->{FontSize -> 30},
DisplayFunction->Identity,
Frame->{{True, True}, {True, True}},
FrameLabel->{{
FormBox["\"Im \[Omega]\"", TraditionalForm], None}, {
FormBox["\"Re \[Omega]\"", TraditionalForm], None}},
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
GridLines->{None, None},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
ImagePadding->All,
ImageSize->600,
LabelStyle->{FontSize -> 30},
Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
(Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
Part[#, 1]],
(Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
(Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
Part[#, 1]],
(Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
Part[#, 2]]}& )}},
PlotRange->{{-1., 1.}, {-9.144395528443729, 0.}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.02]}},
Ticks->{Automatic, Automatic}], ",",
TagBox[GridBox[{
{"\<\"n\"\>", "\<\"Re \\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(n\\)]\\)\
\"\>", "\<\"Im \\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(n\\)]\\)\"\>"},
{"1", "\<\"\\!\\(\\*FormBox[\\\"0``17.87223184436072\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "0.74385179081002357387318256031837932415`10."}]},
{"2", "\<\"\\!\\(\\*FormBox[\\\"0``15.433997812669386\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "1.15707904876319374031934537890142243352`10."}]},
{"3", "\<\"\\!\\(\\*FormBox[\\\"0``13.017079615511824\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "1.70143007637574071179737226073617320393`10."}]},
{"4", "\<\"\\!\\(\\*FormBox[\\\"0``11.29501200984156\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "2.18052964958740882904526362407663823512`10."}]},
{"5", "\<\"\\!\\(\\*FormBox[\\\"0``10.225985916483785\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "2.6908648303385212482`9.15051499783199"}]},
{"6", "\<\"\\!\\(\\*FormBox[\\\"0``8.087250372476769\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "3.1858531008094413436`7.150514997831991"}]},
{"7", "\<\"\\!\\(\\*FormBox[\\\"0``6.2826836446217404\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "3.6883031834931757372`5.150514997831987"}]},
{"8", "\<\"\\!\\(\\*FormBox[\\\"0``4.789120894935315\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "4.1872995692830635457`3.15051499782872"}]},
{"9", "\<\"\\!\\(\\*FormBox[\\\"0``3.5216161924887257\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "4.6786162572029362361`2.1505149969339685"}]},
{"10", "\<\"\\!\\(\\*FormBox[\\\"0``11.483609684604986\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "106.8549582279361768266`2.1505149978319906"}]}
},
AutoDelete->False,
GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
"Grid"]}], "}"}]], "Output",
CellChangeTimes->{3.675682779386702*^9, 3.675753482532782*^9,
3.675753674313545*^9, 3.675765783778205*^9, 3.675768372527384*^9,
3.675934660558069*^9, 3.685103557784773*^9, 3.685195300474822*^9,
3.68520010606192*^9, 3.685783445668833*^9, 3.686817449188121*^9,
3.714304641190011*^9, 3.7143071848139772`*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"underdamped", "=",
RowBox[{"GetAccurateModes", "[",
RowBox[{
RowBox[{
RowBox[{"eqLifshitz", "/.",
RowBox[{"z", "\[Rule]", "2"}]}], "/.",
RowBox[{"d", "\[Rule]", "4"}]}], ",",
RowBox[{"{", "50", "}"}], ",",
RowBox[{"{", "100", "}"}]}], "]"}]}], ";"}], "//",
"AbsoluteTiming"}]], "Input",
CellChangeTimes->{{3.675682708221944*^9, 3.675682767255231*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{"26.001881`", ",", "Null"}], "}"}]], "Output",
CellChangeTimes->{3.675682811973639*^9, 3.675765816578568*^9,
3.675768406205892*^9, 3.675934694164054*^9, 3.685103589377782*^9,
3.685195329973477*^9, 3.685200136463152*^9, 3.685783476233939*^9,
3.6868174775217953`*^9, 3.7143046870576572`*^9, 3.714307210834893*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"underdamped", "//", "ShowModes"}]], "Input",
CellChangeTimes->{{3.675682768783091*^9, 3.67568277209804*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
GraphicsBox[{{}, {{},
{RGBColor[0, 0, 1], PointSize[Large], AbsoluteThickness[1.6],
StyleBox[
PointBox[{{
0.42875275552201836`, -0.9843138988348652}, {-0.4287527555220183, \
-0.9843138988348654}, {
0.7237153606694224, -1.8895234426224434`}, {-0.7237153606800181, \
-1.8895234426233165`}, {-1.0178671097868834`, -2.7940917530846714`}, {
1.0178670725184096`, -2.794091802609702}, {-1.3119271995953163`, \
-3.6985825057443016`}, {1.3119317570209472`, -3.6986605875217}}],
FontSize->30]}, {}}, {}, {}, {{}, {}}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{0., 0.},
BaseStyle->{FontSize -> 30},
DisplayFunction->Identity,
Frame->{{True, True}, {True, True}},
FrameLabel->{{
FormBox["\"Im \[Omega]\"", TraditionalForm], None}, {
FormBox["\"Re \[Omega]\"", TraditionalForm], None}},
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
GridLines->{None, None},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
ImagePadding->All,
ImageSize->600,
LabelStyle->{FontSize -> 30},
Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
(Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
Part[#, 1]],
(Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
(Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
Part[#, 1]],
(Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
Part[#, 2]]}& )}},
PlotRange->{{-1.3119271995953163`,
1.3119317570209472`}, {-3.6986605875217, 0.}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.02]}},
Ticks->{Automatic, Automatic}], ",",
TagBox[GridBox[{
{"\<\"n\"\>", "\<\"Re \\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(n\\)]\\)\
\"\>", "\<\"Im \\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(n\\)]\\)\"\>"},
{"1", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"0.428752755522018334336653809168286022`10.\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "0.9843138988348652202388408602346756042`10."}]},
{"2", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"0.72371536066942238486409317535175370105`10.\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "1.88952344262244335386738777609337749832`10."}]},
{"3", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"1.0178671097868833349`6.684906213133726\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "2.7940917530846715319`7.123455795328992"}]},
{"4", "\<\"\[PlusMinus] \
\\!\\(\\*FormBox[\\\"1.3119271995953163419`3.6746549895366263\\\", \
TraditionalForm]\\)\"\>",
RowBox[{"-", "3.6985825057443016917`4.1247805644719575"}]}
},
AutoDelete->False,
GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
"Grid"]}], "}"}]], "Output",
CellChangeTimes->{3.6756828120639772`*^9, 3.675765816689642*^9,
3.675768406357154*^9, 3.675934694384631*^9, 3.685103593265375*^9,
3.685195330053083*^9, 3.6852001365412903`*^9, 3.685783476331002*^9,
3.686817477601602*^9, 3.7143046871573153`*^9, 3.714307210937068*^9}]
}, Open ]]
}, Open ]]
}, Open ]]
}, Open ]]
},
WindowSize->{1440, 851},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"11.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (July 28, \
2016)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
"Info23714313540-6835410"->{
Cell[2086, 65, 895, 18, 43, "Print",
CellTags->"Info23714313540-6835410"]}
}
*)
(*CellTagsIndex
CellTagsIndex->{
{"Info23714313540-6835410", 232781, 5395}
}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 105, 1, 92, "Title"],
Cell[688, 25, 289, 5, 30, "Text"],
Cell[CellGroupData[{
Cell[1002, 34, 107, 1, 63, "Subchapter"],
Cell[1112, 37, 274, 5, 48, "Input",
InitializationCell->True],
Cell[CellGroupData[{
Cell[1411, 46, 100, 1, 64, "Section"],
Cell[1514, 49, 427, 8, 49, "Text"],
Cell[CellGroupData[{
Cell[1966, 61, 117, 2, 32, "Input"],
Cell[2086, 65, 895, 18, 43, "Print",
CellTags->"Info23714313540-6835410"]
}, Open ]]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[3042, 90, 311, 9, 63, "Subchapter"],
Cell[CellGroupData[{
Cell[3378, 103, 120, 1, 64, "Section"],
Cell[3501, 106, 1138, 26, 97, "Text"],
Cell[4642, 134, 12058, 347, 236, "Input",
InitializationCell->True]
}, Open ]],
Cell[CellGroupData[{
Cell[16737, 486, 122, 1, 64, "Section"],
Cell[CellGroupData[{
Cell[16884, 491, 102, 1, 44, "Subsection"],
Cell[CellGroupData[{
Cell[17011, 496, 193, 4, 35, "Subsubsection"],
Cell[CellGroupData[{
Cell[17229, 504, 573, 15, 54, "Input"],
Cell[17805, 521, 529, 9, 32, "Output"],
Cell[18337, 532, 3348, 75, 408, "Output"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[21734, 613, 192, 4, 35, "Subsubsection"],
Cell[CellGroupData[{
Cell[21951, 621, 482, 12, 54, "Input"],
Cell[22436, 635, 481, 8, 32, "Output"],
Cell[22920, 645, 4676, 104, 429, "Output"]
}, Open ]]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[27657, 756, 157, 2, 44, "Subsection"],
Cell[CellGroupData[{
Cell[27839, 762, 193, 4, 35, "Subsubsection"],
Cell[CellGroupData[{
Cell[28057, 770, 587, 15, 54, "Input"],
Cell[28647, 787, 403, 7, 32, "Output"],
Cell[29053, 796, 3514, 79, 429, "Output"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[32616, 881, 192, 4, 35, "Subsubsection"],
Cell[CellGroupData[{
Cell[32833, 889, 549, 13, 54, "Input"],
Cell[33385, 904, 454, 8, 32, "Output"],
Cell[33842, 914, 4669, 104, 429, "Output"]
}, Open ]]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[38572, 1025, 103, 1, 44, "Subsection"],
Cell[38678, 1028, 617, 11, 68, "Text"],
Cell[39298, 1041, 439, 13, 31, "Text"],
Cell[CellGroupData[{
Cell[39762, 1058, 248, 7, 32, "Input"],
Cell[40013, 1067, 895, 23, 35, "Output"]
}, Open ]],
Cell[40923, 1093, 580, 14, 31, "Text"],
Cell[CellGroupData[{
Cell[41528, 1111, 193, 4, 35, "Subsubsection"],
Cell[CellGroupData[{
Cell[41746, 1119, 517, 14, 54, "Input"],
Cell[42266, 1135, 449, 8, 32, "Output"],
Cell[42718, 1145, 3818, 84, 413, "Output"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[46585, 1235, 192, 4, 35, "Subsubsection"],
Cell[CellGroupData[{
Cell[46802, 1243, 566, 15, 54, "Input"],
Cell[47371, 1260, 501, 8, 32, "Output"],
Cell[47875, 1270, 4931, 105, 429, "Output"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[52855, 1381, 112, 1, 35, "Subsubsection"],
Cell[52970, 1384, 836, 14, 106, "Text"],
Cell[CellGroupData[{
Cell[53831, 1402, 1111, 23, 54, "Input"],
Cell[54945, 1427, 459, 8, 32, "Output"],
Cell[55407, 1437, 4669, 102, 429, "Output"]
}, Open ]],
Cell[60091, 1542, 203, 4, 30, "Text"]
}, Open ]],
Cell[CellGroupData[{
Cell[60331, 1551, 101, 1, 35, "Subsubsection"],
Cell[60435, 1554, 250, 5, 49, "Text"],
Cell[CellGroupData[{
Cell[60710, 1563, 246, 6, 32, "Input"],
Cell[60959, 1571, 1057, 33, 35, "Output"]
}, Open ]],
Cell[62031, 1607, 426, 12, 34, "Text"],
Cell[CellGroupData[{
Cell[62482, 1623, 522, 15, 35, "Input"],
Cell[63007, 1640, 223, 4, 32, "Output"]
}, Open ]],
Cell[63245, 1647, 191, 4, 30, "Text"],
Cell[CellGroupData[{
Cell[63461, 1655, 822, 22, 54, "Input"],
Cell[64286, 1679, 43604, 722, 225, "Output"]
}, Open ]],
Cell[107905, 2404, 288, 5, 30, "Text"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[108242, 2415, 105, 1, 44, "Subsection"],
Cell[108350, 2418, 345, 6, 30, "Text"],
Cell[CellGroupData[{
Cell[108720, 2428, 193, 4, 35, "Subsubsection"],
Cell[CellGroupData[{
Cell[108938, 2436, 645, 17, 54, "Input"],
Cell[109586, 2455, 456, 8, 32, "Output"],
Cell[110045, 2465, 4023, 87, 427, "Output"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[114117, 2558, 217, 4, 35, "Subsubsection"],
Cell[CellGroupData[{
Cell[114359, 2566, 959, 20, 54, "Input"],
Cell[115321, 2588, 533, 9, 32, "Output"],
Cell[115857, 2599, 4734, 101, 429, "Output"]
}, Open ]],
Cell[120606, 2703, 393, 7, 49, "Text"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[121048, 2716, 149, 2, 44, "Subsection"],
Cell[121200, 2720, 267, 5, 30, "Text"],
Cell[CellGroupData[{
Cell[121492, 2729, 193, 4, 35, "Subsubsection"],
Cell[CellGroupData[{
Cell[121710, 2737, 680, 18, 54, "Input"],
Cell[122393, 2757, 463, 8, 32, "Output"],
Cell[122859, 2767, 4071, 88, 413, "Output"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[126979, 2861, 215, 4, 35, "Subsubsection"],
Cell[CellGroupData[{
Cell[127219, 2869, 747, 18, 54, "Input"],
Cell[127969, 2889, 220, 4, 32, "Output"],
Cell[128192, 2895, 4450, 100, 423, "Output"]
}, Open ]]
}, Open ]]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[132715, 3003, 91, 1, 64, "Section"],
Cell[CellGroupData[{
Cell[132831, 3008, 120, 1, 35, "Subsubsection"],
Cell[CellGroupData[{
Cell[132976, 3013, 1293, 32, 75, "Input"],
Cell[134272, 3047, 8929, 175, 187, "Output"]
}, Open ]],
Cell[143216, 3225, 333, 7, 49, "Text"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[143598, 3238, 159, 2, 64, "Section"],
Cell[143760, 3242, 3529, 89, 154, "Input",
InitializationCell->True],
Cell[147292, 3333, 3294, 85, 154, "Input",
InitializationCell->True],
Cell[CellGroupData[{
Cell[150611, 3422, 105, 1, 44, "Subsection"],
Cell[CellGroupData[{
Cell[150741, 3427, 686, 18, 54, "Input"],
Cell[151430, 3447, 585, 10, 32, "Output"]
}, Open ]],
Cell[152030, 3460, 2970, 79, 133, "Input",
InitializationCell->True],
Cell[CellGroupData[{
Cell[155025, 3543, 2741, 77, 75, "Input"],
Cell[157769, 3622, 7008, 139, 365, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[164814, 3766, 108, 1, 35, "Subsubsection"],
Cell[CellGroupData[{
Cell[164947, 3771, 1486, 40, 54, "Input"],
Cell[166436, 3813, 2078, 45, 569, "Output"]
}, Open ]]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[168575, 3865, 94, 1, 44, "Subsection"],
Cell[CellGroupData[{
Cell[168694, 3870, 503, 14, 32, "Input"],
Cell[169200, 3886, 408, 7, 70, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[169645, 3898, 1860, 55, 54, "Input"],
Cell[171508, 3955, 6745, 136, 70, "Output"]
}, Open ]],
Cell[178268, 4094, 70, 1, 32, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[178375, 4100, 97, 1, 36, "Subsection"],
Cell[CellGroupData[{
Cell[178497, 4105, 562, 15, 32, "Input"],
Cell[179062, 4122, 405, 7, 70, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[179504, 4134, 1865, 55, 54, "Input"],
Cell[181372, 4191, 6750, 136, 70, "Output"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[188171, 4333, 99, 1, 36, "Subsection"],
Cell[CellGroupData[{
Cell[188295, 4338, 613, 16, 32, "Input"],
Cell[188911, 4356, 481, 8, 70, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[189429, 4369, 1864, 55, 54, "Input"],
Cell[191296, 4426, 7110, 142, 70, "Output"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[198455, 4574, 94, 1, 36, "Subsection"],
Cell[CellGroupData[{
Cell[198574, 4579, 501, 14, 32, "Input"],
Cell[199078, 4595, 449, 8, 70, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[199564, 4608, 1909, 56, 54, "Input"],
Cell[201476, 4666, 8993, 175, 70, "Output"]
}, Open ]]
}, Closed]]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[210542, 4849, 191, 4, 63, "Subchapter"],
Cell[210736, 4855, 1033, 23, 132, "Text"],
Cell[211772, 4880, 2111, 61, 52, "Input",
InitializationCell->True],
Cell[CellGroupData[{
Cell[213908, 4945, 101, 1, 64, "Section"],
Cell[214012, 4948, 198, 4, 30, "Text"],
Cell[214213, 4954, 842, 25, 48, "Input",
InitializationCell->True],
Cell[CellGroupData[{
Cell[215080, 4983, 658, 18, 32, "Input"],
Cell[215741, 5003, 405, 7, 32, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[216183, 5015, 346, 8, 32, "Input"],
Cell[216532, 5025, 5654, 103, 253, "Output"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[222235, 5134, 112, 1, 64, "Section"],
Cell[222350, 5137, 273, 7, 31, "Text"],
Cell[CellGroupData[{
Cell[222648, 5148, 458, 13, 32, "Input"],
Cell[223109, 5163, 436, 7, 32, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[223582, 5175, 133, 2, 32, "Input"],
Cell[223718, 5179, 4210, 88, 422, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[227965, 5272, 457, 13, 32, "Input"],
Cell[228425, 5287, 360, 6, 32, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[228822, 5298, 133, 2, 32, "Input"],
Cell[228958, 5302, 3453, 76, 413, "Output"]
}, Open ]]
}, Open ]]
}, Open ]]
}, Open ]]
}
]
*)
