MainAnalysis.nb

(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 13.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    195953,       4368]
NotebookOptionsPosition[    186599,       4191]
NotebookOutlinePosition[    187334,       4216]
CellTagsIndexPosition[    187248,       4211]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Superradiant Proca on Kerr Background", "Title",
 CellChangeTimes->{{3.867375966696577*^9, 3.867375991462843*^9}},
 Background->GrayLevel[
  0.85],ExpressionUUID->"a520f2fe-30e2-445d-9acc-363a9a1c0ab5"],

Cell[CellGroupData[{

Cell["Initialization", "Chapter",
 CellChangeTimes->{{3.8673677641749287`*^9, 
  3.867367766222218*^9}},ExpressionUUID->"49477c42-b03c-4122-976e-\
ee09d9710d3b"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"$FKKSRoot", " ", "=", " ", 
   RowBox[{"NotebookDirectory", "[", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"$SolutionPath", " ", "=", " ", 
   RowBox[{"$FKKSRoot", "<>", "\"\<Solutions/\>\""}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PlotPath", " ", "=", " ", 
   RowBox[{"$FKKSRoot", "<>", "\"\<Plots/\>\""}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LogFile", " ", "=", " ", 
   RowBox[{"$FKKSRoot", "<>", "\"\<Logs/LogFile.log\>\""}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PlotFileExtension", " ", "=", " ", "\"\<.png\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"NumberofSlaveKernels", " ", "=", " ", "Automatic"}], ";"}], " ", 
  RowBox[{"(*", 
   RowBox[{"Default", " ", "should", " ", "be", " ", "Automatic"}], "*)"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Import", " ", "some", " ", "helper", " ", "functions"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Import", "[", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
     "$FKKSRoot", ",", " ", "\"\<Packages\>\"", ",", " ", 
      "\"\<HelperFunctions.wl\>\""}], "}"}], "]"}], "]"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Setup", " ", "xAct", " ", "definitions"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Import", "[", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
     "$FKKSRoot", ",", " ", "\"\<Packages\>\"", ",", " ", 
      "\"\<xActSetup.wl\>\""}], "}"}], "]"}], "]"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Setup", " ", "Proca", " ", "Solver"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Import", "[", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
     "$FKKSRoot", ",", " ", "\"\<Packages\>\"", ",", " ", 
      "\"\<KerrWithProca.wl\>\""}], "}"}], "]"}], "]"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "Import", " ", "mode", " ", "overtone", " ", "worker", " ", "function", 
    " ", "for", " ", "iteration", " ", "routine"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Import", "[", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
     "$FKKSRoot", ",", " ", "\"\<Packages\>\"", ",", " ", 
      "\"\<ModeOvertoneWorker.wl\>\""}], "}"}], "]"}], "]"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Setup", " ", "Energy", " ", "Momentum", " ", "Definitions"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Import", "[", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
     "$FKKSRoot", ",", " ", "\"\<Packages\>\"", ",", " ", 
      "\"\<EnergyMomentum.wl\>\""}], "}"}], "]"}], "]"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Setup", " ", "MST", " ", "Solver"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Import", "[", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
     "$FKKSRoot", ",", " ", "\"\<Packages\>\"", ",", " ", 
      "\"\<MSTSolver.wl\>\""}], "}"}], "]"}], "]"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Setup", " ", "Inhomogeneous", " ", "Teukolsky", " ", "Solver"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"Import", "[", 
  RowBox[{"FileNameJoin", "[", 
   RowBox[{"{", 
    RowBox[{
    "$FKKSRoot", ",", " ", "\"\<Packages\>\"", ",", " ", 
     "\"\<TeukolskySolver.wl\>\""}], "}"}], "]"}], "]"}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.867367772674797*^9, 3.867367824697199*^9}, {
   3.867367868484721*^9, 3.867367988547168*^9}, {3.8673758747552023`*^9, 
   3.867375895844741*^9}, {3.867381152880926*^9, 3.8673811670077333`*^9}, {
   3.867478790401656*^9, 3.867478801977219*^9}, {3.86748066826404*^9, 
   3.867480673468967*^9}, 3.86754897620187*^9, {3.8678415238267813`*^9, 
   3.867841549337219*^9}, {3.867988137044244*^9, 3.867988172007448*^9}, 
   3.8680029784103413`*^9, {3.8680035822901983`*^9, 3.868003582399714*^9}, {
   3.868004287023408*^9, 3.868004287287722*^9}, {3.868005117299487*^9, 
   3.8680051173899508`*^9}, {3.868060893686482*^9, 3.86806089864186*^9}, {
   3.8680770063188343`*^9, 3.8680770074134483`*^9}, {3.868350634802803*^9, 
   3.868350635473279*^9}, {3.8684950234186773`*^9, 3.86849504510859*^9}, {
   3.870330903918868*^9, 3.870330904171301*^9}, {3.870409495589938*^9, 
   3.870409495951126*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"0a8963d9-1258-4765-941f-27f15cb0a19d"]
}, Closed]],

Cell[CellGroupData[{

Cell["Proca Equations of Motion Analysis", "Chapter",
 CellChangeTimes->{{3.867368608599358*^9, 
  3.867368620698938*^9}},ExpressionUUID->"df48b12c-51f1-4ad9-8ea2-\
45bd9e6e503b"],

Cell[CellGroupData[{

Cell["Symmetries of Proca Field", "Subsection",
 CellChangeTimes->{{3.867368905095788*^9, 
  3.867368909109441*^9}},ExpressionUUID->"dd52479d-ea50-4784-a350-\
bc34131f0e0a"],

Cell[BoxData[{
 RowBox[{"DefTensor", "[", 
  RowBox[{
   RowBox[{"A", "[", "\[Zeta]", "]"}], ",", " ", "\[ScriptCapitalM]"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"sym1", " ", "=", " ", 
   RowBox[{
    RowBox[{"ContractBasis", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"LieD", "[", 
         RowBox[{
          RowBox[{"SpacelikeKilling", "[", "\[Alpha]", "]"}], ",", 
          "PDsphericalchart"}], "]"}], "@", 
        RowBox[{"A", "[", "\[Zeta]", "]"}]}], "//", 
       RowBox[{"ToBasis", "[", "sphericalchart", "]"}]}], ",", " ", 
      RowBox[{"OverDerivatives", "->", "True"}]}], "]"}], "//", 
    "Simplify"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"sym2", " ", "=", " ", 
   RowBox[{
    RowBox[{"ContractBasis", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"LieD", "[", 
         RowBox[{
          RowBox[{"TimelikeKilling", "[", "\[Alpha]", "]"}], ",", 
          "PDsphericalchart"}], "]"}], "@", 
        RowBox[{"A", "[", "\[Zeta]", "]"}]}], "//", 
       RowBox[{"ToBasis", "[", "sphericalchart", "]"}]}], ",", " ", 
      RowBox[{"OverDerivatives", "->", "True"}]}], "]"}], "//", 
    "Simplify"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"procafieldsymmetry", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"sym1", ",", "sym2"}], "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.867368640301733*^9, 3.867368695863059*^9}, 
   3.8673688983743773`*^9},
 CellLabel->"In[23]:=",ExpressionUUID->"30d1db00-df40-4fd1-9db0-cdcf650ecbc8"]
}, Closed]],

Cell[CellGroupData[{

Cell["Define Proca Field in FKKS Ansatz", "Subsection",
 CellChangeTimes->{{3.867368936874564*^9, 
  3.8673689461429*^9}},ExpressionUUID->"ea9ac301-8558-472f-bdb1-802de9550baa"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Z", " ", "=", " ", 
   RowBox[{
    RowBox[{"R", "[", 
     RowBox[{"r", "[", "]"}], "]"}], "*", 
    RowBox[{"S", "[", 
     RowBox[{"\[Theta]", "[", "]"}], "]"}], "*", 
    RowBox[{"Exp", "[", 
     RowBox[{
      RowBox[{"-", "I"}], "*", "\[Omega]", "*", 
      RowBox[{"t", "[", "]"}]}], "]"}], "*", 
    RowBox[{"Exp", "[", 
     RowBox[{"I", "*", "m", "*", 
      RowBox[{"\[Phi]", "[", "]"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"gradZ", " ", "=", " ", 
   RowBox[{"Head", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Cd", "[", 
       RowBox[{"-", "\[Zeta]"}], "]"}], "@", "Z"}], "//", "FromBasisExpand"}],
     "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FKKSAnsatz", " ", "=", " ", 
   RowBox[{"Head", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Polarization", "[", 
       RowBox[{"\[Zeta]", ",", "\[Xi]"}], "]"}], "*", 
      RowBox[{"gradZ", "[", 
       RowBox[{"-", "\[Xi]"}], "]"}]}], "//", "Simplification"}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.867368954974019*^9, 3.867369020994437*^9}},
 CellLabel->"In[32]:=",ExpressionUUID->"aca69425-6b64-4811-a536-1b6edee34364"]
}, Closed]],

Cell[CellGroupData[{

Cell["Separation of Equations of Motion (WIP)", "Subsection",
 CellChangeTimes->{{3.867369118316214*^9, 
  3.8673691339175158`*^9}},ExpressionUUID->"afdb163e-d71b-45c1-82b3-\
251942227ab9"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"To", " ", "Do"}], "*)"}]], "Input",
 CellChangeTimes->{{3.867369124697679*^9, 
  3.867369129336055*^9}},ExpressionUUID->"55f3cee1-490c-4f94-a89c-\
1da637252a83"]
}, Closed]],

Cell[CellGroupData[{

Cell["Asymptotic Solutions", "Subsection",
 CellChangeTimes->{{3.8673691609809933`*^9, 
  3.8673691637027197`*^9}},ExpressionUUID->"d7e57549-5c04-4622-ba6e-\
e8eeec5978fc"],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{"r", " ", "->", " ", "\[Infinity]", " "}], 
  TraditionalForm]],ExpressionUUID->"9ec9f957-fd9e-4dd4-9f0c-2bc7224395cc"]], \
"Subsubsection",
 CellChangeTimes->{{3.8673691706186953`*^9, 3.867369174572537*^9}, {
  3.867374142242728*^9, 
  3.8673741465781116`*^9}},ExpressionUUID->"5470a568-efaf-4798-8e08-\
dabda5bae63a"],

Cell[BoxData[
 RowBox[{"Block", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"DiffAtInfinity", ",", " ", "SolAtInfinity"}], "}"}], ",", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"DiffAtInfinity", " ", "=", " ", 
     RowBox[{
      RowBox[{"Series", "[", 
       RowBox[{
        RowBox[{
         FractionBox[
          RowBox[{"ProcaDiffOpRad", "@", 
           RowBox[{"R", "[", "r", "]"}]}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"r", "-", 
             RowBox[{"(", 
              RowBox[{"1", "+", 
               RowBox[{"Sqrt", "[", 
                RowBox[{"1", "-", 
                 SuperscriptBox["\[Chi]", "2"]}], "]"}]}], ")"}]}], ")"}], 
           RowBox[{"(", 
            RowBox[{"r", "-", 
             RowBox[{"(", 
              RowBox[{"1", "-", 
               RowBox[{"Sqrt", "[", 
                RowBox[{"1", "-", 
                 SuperscriptBox["\[Chi]", "2"]}], "]"}]}], ")"}]}], ")"}]}]], 
         "//", "Simplify"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"r", ",", "\[Infinity]", ",", "2"}], "}"}]}], "]"}], "//", 
      "Normal"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"Off", "[", 
     RowBox[{"Attributes", "::", "notfound"}], "]"}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"SolAtInfinity", " ", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"R", "[", "r", "]"}], "/.", " ", 
       RowBox[{"DSolve", "[", 
        RowBox[{
         RowBox[{"DiffAtInfinity", "==", "0"}], ",", " ", "R", ",", " ", 
         "r"}], "]"}]}], "//", "First"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"On", "[", 
     RowBox[{"Attributes", "::", "notfound"}], "]"}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"SeriesSolAtInfinity", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"Series", "[", 
        RowBox[{"SolAtInfinity", ",", " ", 
         RowBox[{"{", 
          RowBox[{"r", ",", "Infinity", ",", "1"}], "}"}]}], "]"}], "//", 
       "Normal"}], "//", "Simplify"}]}], ";", "\[IndentingNewLine]", 
    "SeriesSolAtInfinity"}]}], "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.8673692596523447`*^9, 3.867369261077381*^9}, {
   3.867369591122654*^9, 3.867369609002543*^9}, 3.867369696776678*^9, {
   3.867370226423731*^9, 3.867370227106594*^9}, {3.867370287992868*^9, 
   3.867370321492928*^9}, {3.867370488838223*^9, 3.867370491577985*^9}, {
   3.867372247699052*^9, 3.867372359974091*^9}, {3.867372625756372*^9, 
   3.867372650937707*^9}, {3.8673727179900084`*^9, 3.8673727206835003`*^9}, 
   3.867372856060177*^9, {3.8673728902970552`*^9, 3.867372890633994*^9}, {
   3.867373008507039*^9, 3.867373034356431*^9}, {3.867373362057294*^9, 
   3.867373418109849*^9}, {3.867374028668844*^9, 3.867374056700816*^9}, 
   3.867374110209929*^9, {3.867374815088305*^9, 3.8673748761185627`*^9}},
 CellLabel->
  "In[140]:=",ExpressionUUID->"2b353289-d1a9-4b2a-a64d-c504e0a438d6"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 " ",
 Cell[BoxData[
  FormBox[
   RowBox[{"r", " ", "->", " ", 
    SubscriptBox["r", "+"], " "}], TraditionalForm]],ExpressionUUID->
  "62e9f48a-2c4f-404e-92c3-b8b7475d17bf"]
}], "Subsubsection",
 CellChangeTimes->{{3.867374121065316*^9, 
  3.867374139059208*^9}},ExpressionUUID->"a2f779c5-7d31-4050-93ec-\
787e0a9ca755"],

Cell[BoxData[
 RowBox[{"Block", "[", 
  RowBox[{
   RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"DiffAtHorizon", " ", "=", " ", 
    RowBox[{
     RowBox[{"Series", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"ProcaDiffOpRad", "@", 
         RowBox[{"R", "[", "r", "]"}]}], "//", "Simplify"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"r", ",", 
         RowBox[{"1", "+", 
          RowBox[{"Sqrt", "[", 
           RowBox[{"1", "-", 
            SuperscriptBox["\[Chi]", "2"]}], "]"}]}], ",", "1"}], "}"}]}], 
      "]"}], "//", "Normal"}]}]}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.867374150070537*^9, 3.867374212913639*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"6fcf914e-67af-4512-b94e-3984ccb62ab8"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"ReorganizedODE", " ", "=", " ", 
   RowBox[{"Collect", "[", 
    RowBox[{
     RowBox[{"ReorganizedODE", "//", "Expand"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"R", "[", "r", "]"}], ",", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"Derivative", "[", "1", "]"}], "[", "R", "]"}], "[", "r", 
        "]"}], ",", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"Derivative", "[", "2", "]"}], "[", "R", "]"}], "[", "r", 
        "]"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"ODECoefficients", " ", "=", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ReorganizedODE", "/.", 
      RowBox[{
       RowBox[{
        RowBox[{"c1_", "*", 
         RowBox[{"R", "[", "r", "]"}]}], "+", 
        RowBox[{"c2_", "*", 
         RowBox[{
          RowBox[{
           RowBox[{"Derivative", "[", "1", "]"}], "[", "R", "]"}], "[", "r", 
          "]"}]}], "+", 
        RowBox[{"c3_", "*", 
         RowBox[{
          RowBox[{
           RowBox[{"Derivative", "[", "2", "]"}], "[", "R", "]"}], "[", "r", 
          "]"}]}]}], "->", 
       RowBox[{"{", 
        RowBox[{"c1", ",", "c2", ",", "c3"}], "}"}]}]}], ")"}], "/", 
    FractionBox[
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{
        SuperscriptBox["r", "2"], "*", 
        SuperscriptBox["\[Nu]", "2"]}]}], ")"}], 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "r", "-", 
        SqrtBox[
         RowBox[{"1", "-", 
          SuperscriptBox[
           InterpretationBox[
            StyleBox["\[Chi]",
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`\[Chi],
            Editable->False], "2"]}]]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "r", "+", 
        SqrtBox[
         RowBox[{"1", "-", 
          SuperscriptBox[
           InterpretationBox[
            StyleBox["\[Chi]",
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`\[Chi],
            Editable->False], "2"]}]]}], ")"}]}]]}], "//", 
   "FullSimplify"}]}], "\[IndentingNewLine]", 
 RowBox[{"ODECoefficientHorizon", " ", "=", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"Series", "[", 
     RowBox[{"ODECoefficients", ",", " ", 
      RowBox[{"{", 
       RowBox[{"r", ",", 
        RowBox[{"1", "+", 
         RowBox[{"Sqrt", "[", 
          RowBox[{"1", "-", 
           SuperscriptBox["\[Chi]", "2"]}], "]"}]}], ",", "1"}], "}"}]}], 
     "]"}], "//", "Normal"}], "//", "Simplify"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ODEAtHorizon", " ", "=", " ", 
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"ODECoefficientHorizon", "[", 
       RowBox[{"[", 
        RowBox[{"i", "+", "1"}], "]"}], "]"}], "*", 
      RowBox[{
       RowBox[{
        RowBox[{"Derivative", "[", "i", "]"}], "[", "R", "]"}], "[", "r", 
       "]"}]}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"i", ",", "0", ",", "2"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SolutionAtHorizon", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"R", "[", "r", "]"}], "/.", 
     RowBox[{"DSolve", "[", 
      RowBox[{
       RowBox[{"ODEAtHorizon", "==", "0"}], ",", "R", ",", "r"}], "]"}]}], "//",
     "First"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"Series", "[", 
     RowBox[{"SolutionAtHorizon", ",", " ", 
      RowBox[{"{", 
       RowBox[{"r", ",", "\[Infinity]", ",", "1"}], "}"}]}], "]"}], "//", 
    "Normal"}], ")"}], "/.", 
  RowBox[{
   RowBox[{"Times", "[", 
    RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "->", 
   RowBox[{"x", "*", "y"}]}]}]}], "Input",
 CellChangeTimes->{{3.867374220033971*^9, 3.867374365419558*^9}, {
   3.867374398598778*^9, 3.867374507089448*^9}, {3.867374548526143*^9, 
   3.867374682368063*^9}, {3.867374723936728*^9, 3.867374766879581*^9}, {
   3.867374843852083*^9, 3.8673748486711683`*^9}, {3.867374889249981*^9, 
   3.867374921883802*^9}, 3.867375051770279*^9, {3.867375088177997*^9, 
   3.867375125993672*^9}, {3.867375175446303*^9, 3.867375187903409*^9}},
 CellLabel->
  "In[195]:=",ExpressionUUID->"95798df5-921e-4da8-9066-58f1004e79de"]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Solving Proca on Kerr", "Chapter",
 CellChangeTimes->{{3.867375817585087*^9, 
  3.867375820407386*^9}},ExpressionUUID->"2091a228-ef80-4d16-a310-\
cad9135d04d4"],

Cell[CellGroupData[{

Cell["Solving the FKKS ansatz", "Section",
 CellChangeTimes->{{3.8673691609809933`*^9, 3.8673691637027197`*^9}, {
  3.867375754363*^9, 
  3.867375757476163*^9}},ExpressionUUID->"686bc62d-5e64-4273-aacc-\
5af0f84a0162"],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Parameters", "Abstract"]], "Subsection",
 CellGroupingRules->{"GroupTogetherGrouping", 10009.},
 CellChangeTimes->{{3.8601948804043617`*^9, 3.860194885373921*^9}, {
   3.860195006967104*^9, 3.860195008349834*^9}, 3.8602847045467567`*^9, {
   3.860299502012169*^9, 3.8602995040667133`*^9}, {3.861625372925462*^9, 
   3.861625377900035*^9}, 3.862222350994478*^9, {3.862222389646859*^9, 
   3.862222404705523*^9}, 3.862222445070656*^9, {3.863053939930953*^9, 
   3.863053946837596*^9}, {3.8679728143676367`*^9, 3.867972816167554*^9}},
 FontSize->18,ExpressionUUID->"b93c60da-0d21-4555-8038-a4293d7370bd"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "Define", " ", "parameters", " ", "of", " ", "numerical", " ", 
    "calculation"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"ClearAll", "[", 
    RowBox[{
    "\[Epsilon]", ",", "\[Mu]Nv", ",", "\[Mu]N", ",", "\[Nu]N", ",", 
     "\[Omega]N", ",", "\[Chi]v", ",", "mode", ",", "eta", ",", "\[Mu]range", 
     ",", "overtone", ",", "polarization", ",", "\[Chi]v", ",", "omegaRes", 
     ",", "precision", ",", "KMax", ",", "\[Mu]", ",", "\[Nu]", ",", 
     "\[Omega]", ",", "a", ",", "r", ",", "branch"}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Mu]range", " ", "=", " ", 
     RowBox[{"{", 
      RowBox[{
       FractionBox["1", "100"], ",", " ", 
       FractionBox["50", "100"]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"mrange", " ", "=", " ", 
     RowBox[{"{", 
      RowBox[{"1", ",", "1"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"nrange", " ", "=", " ", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Chi]range", " ", "=", " ", 
     RowBox[{"{", 
      RowBox[{"0.6", ",", "0.9"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Chi]res", "=", "0.05"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Delta]\[Mu]", " ", "=", " ", 
     FractionBox["1", "100"]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Delta]n", "=", "1"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Delta]m", "=", "1"}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Epsilon]", " ", "=", " ", 
     FractionBox["1", "10000"]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Mu]Nv", " ", "=", 
     FractionBox["6", "100"]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"mode", " ", "=", " ", "1"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eta", " ", "=", " ", "0"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"overtone", " ", "=", " ", "0"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"polarization", " ", "=", " ", 
     RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"orbitalnumber", " ", "=", " ", 
     RowBox[{"mode", " ", "+", " ", "polarization"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Chi]v", " ", "=", " ", 
     FractionBox["600", "1000"]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"BHMass", " ", "=", " ", "1"}], ";"}], " ", 
   RowBox[{"(*", 
    RowBox[{"Solar", " ", "masses"}], "*)"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"omegaRes", " ", "=", " ", "800"}], ";"}], "\[IndentingNewLine]", 
   
   RowBox[{
    RowBox[{"precision", " ", "=", " ", "30"}], ";"}], "\[IndentingNewLine]", 
   
   RowBox[{
    RowBox[{"OptimizationPrecision", " ", "=", " ", "8"}], ";"}], " ", 
   RowBox[{"(*", 
    RowBox[{"Precision", " ", "of", " ", "function", " ", "values"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"OptimizationAccuracy", " ", "=", " ", "29"}], ";"}], " ", 
   RowBox[{"(*", 
    RowBox[{
    "Accuracy", " ", "in", " ", "location", " ", "of", " ", "minima"}], 
    "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"FrequencyInterpolatingOrder", " ", "=", " ", "3"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"MaxInterationsMinimization", " ", "=", " ", 
     SuperscriptBox["10", "3"]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"MaxStepRadialIntegrator", " ", "=", " ", 
     SuperscriptBox["10", "6"]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"PrecisionGoalRadialIntegrator", " ", "=", " ", "8"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"KMax", " ", "=", " ", "4"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"branch", " ", "=", " ", "1"}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"StartingX", " ", "=", " ", "\[Epsilon]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"EndingX", " ", "=", " ", 
     RowBox[{"calcEndingX", "[", 
      RowBox[{"<|", 
       RowBox[{
        RowBox[{"\"\<m\>\"", "->", "mode"}], ",", " ", 
        RowBox[{"\"\<n\>\"", "->", "overtone"}], ",", " ", 
        RowBox[{"\"\<\[Mu]Nv\>\"", "->", "\[Mu]Nv"}], ",", " ", 
        RowBox[{"\"\<\[Chi]\>\"", "->", "\[Chi]v"}]}], "|>"}], "]"}]}], ";"}],
    "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"StartingR", " ", "=", " ", 
     RowBox[{
      RowBox[{"rplusN", "[", "\[Chi]v", "]"}], "+", "StartingX"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"EndingR", " ", "=", "  ", 
     RowBox[{
      RowBox[{"rplusN", "[", "\[Chi]v", "]"}], "+", "EndingX"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Numerical", " ", "Variables"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Mu]", " ", "=", " ", 
     FractionBox["\[Mu]N", "M"]}], ";", " ", 
    RowBox[{"\[Nu]", " ", "=", " ", 
     FractionBox["\[Nu]N", "M"]}], ";", " ", 
    RowBox[{"\[Omega]", " ", "=", " ", 
     FractionBox["\[Omega]N", "M"]}], ";", " ", 
    RowBox[{"a", " ", "=", " ", 
     RowBox[{"\[Chi]", "*", "M"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"parameters", " ", "=", " ", 
     RowBox[{"<|", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"\"\<\[Mu]range\>\"", "\[Rule]", " ", "\[Mu]range"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"\"\<\[Delta]\[Mu]\>\"", "\[Rule]", " ", "\[Delta]\[Mu]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"\"\<nrange\>\"", "\[Rule]", " ", "nrange"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"\"\<\[Delta]n\>\"", "\[Rule]", "\[Delta]n"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"\"\<mrange\>\"", "\[Rule]", " ", "mrange"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"\"\<\[Delta]m\>\"", "\[Rule]", "\[Delta]m"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"\"\<\[Chi]range\>\"", "->", "\[Chi]range"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"\"\<\[Chi]res\>\"", "->", "\[Chi]res"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"\"\<EndingX\>\"", "\[Rule]", " ", "EndingX"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"\"\<StartingX\>\"", "\[Rule]", " ", "StartingX"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"\"\<precision\>\"", "\[Rule]", " ", "precision"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"\"\<omegaRes\>\"", "\[Rule]", " ", "omegaRes"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
       "\"\<FrequencyInterpolatingOrder\>\"", "->", 
        "FrequencyInterpolatingOrder"}], ",", "\[IndentingNewLine]", " ", 
       RowBox[{
       "\"\<MaxIterationsMinimization\>\"", "\[Rule]", " ", 
        "MaxInterationsMinimization"}], ",", "\[IndentingNewLine]", 
       RowBox[{
       "\"\<RadialIntegratorMaxStep\>\"", "\[Rule]", " ", 
        "MaxStepRadialIntegrator"}], ",", "\[IndentingNewLine]", 
       RowBox[{
       "\"\<RadialIntegratorPrecisionGoal\>\"", "\[Rule]", " ", 
        "PrecisionGoalRadialIntegrator"}], ",", "\[IndentingNewLine]", 
       RowBox[{
       "\"\<OptimizationPrecision\>\"", "\[Rule]", "OptimizationPrecision"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{
       "\"\<OptimizationAccuracy\>\"", "\[Rule]", " ", 
        "OptimizationAccuracy"}], ",", "\[IndentingNewLine]", 
       RowBox[{"\"\<StartingX\>\"", "\[Rule]", "StartingX"}], ",", 
       "\[IndentingNewLine]", " ", 
       RowBox[{"\"\<EndingX\>\"", "\[Rule]", " ", "EndingX"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"\"\<branch\>\"", "\[Rule]", "branch"}], ",", 
       "\[IndentingNewLine]", " ", 
       RowBox[{"\"\<KMax\>\"", "\[Rule]", " ", "KMax"}], ",", 
       "\[IndentingNewLine]", " ", 
       RowBox[{"\"\<\[Epsilon]\>\"", "\[Rule]", " ", "\[Epsilon]"}], ",", 
       "\[IndentingNewLine]", " ", 
       RowBox[{"\"\<\[Mu]Nv\>\"", "\[Rule]", " ", "\[Mu]Nv"}], ",", 
       "\[IndentingNewLine]", " ", 
       RowBox[{"\"\<m\>\"", "\[Rule]", "mode"}], ",", "\[IndentingNewLine]", 
       RowBox[{"\"\<\[Eta]\>\"", "\[Rule]", " ", "eta"}], ",", 
       "\[IndentingNewLine]", " ", 
       RowBox[{"\"\<n\>\"", "\[Rule]", " ", "overtone"}], ",", 
       "\[IndentingNewLine]", " ", 
       RowBox[{"\"\<l\>\"", "\[Rule]", " ", "orbitalnumber"}], ",", 
       "\[IndentingNewLine]", " ", 
       RowBox[{"\"\<s\>\"", "\[Rule]", " ", "polarization"}], ",", 
       "\[IndentingNewLine]", " ", 
       RowBox[{"\"\<\[Chi]\>\"", "\[Rule]", " ", "\[Chi]v"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"\"\<M\>\"", "->", " ", "BHMass"}]}], "\[IndentingNewLine]", 
      "|>"}]}], ";"}]}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10009.},
 CellChangeTimes->{{3.860194928327922*^9, 3.860195021632811*^9}, {
   3.860195755160973*^9, 3.860195766800269*^9}, {3.860199308023983*^9, 
   3.860199308711672*^9}, {3.8601993599205313`*^9, 3.86019937791541*^9}, {
   3.860199425712974*^9, 3.86019943445149*^9}, 3.860199465369635*^9, {
   3.860199506726255*^9, 3.8601995113919992`*^9}, {3.860199672322213*^9, 
   3.86019974697406*^9}, {3.860200137589139*^9, 3.860200137682482*^9}, {
   3.860200183382043*^9, 3.860200183543586*^9}, {3.860200947368668*^9, 
   3.860200947580274*^9}, 3.860201385806364*^9, {3.8602014523798*^9, 
   3.860201452572953*^9}, {3.860212755413309*^9, 3.860212777861911*^9}, {
   3.8602149411678133`*^9, 3.860214941403267*^9}, {3.86021803062112*^9, 
   3.860218067776383*^9}, {3.860218108884794*^9, 3.8602181169546947`*^9}, {
   3.860226908253031*^9, 3.86022691081765*^9}, {3.8602274918128242`*^9, 
   3.860227497065959*^9}, {3.860233800566646*^9, 3.860233807622451*^9}, 
   3.860285093291175*^9, {3.8603748413829174`*^9, 3.8603748415639315`*^9}, {
   3.860375022772334*^9, 3.860375022942072*^9}, 3.860455400344495*^9, {
   3.860458017177841*^9, 3.8604580257496853`*^9}, {3.860463414841033*^9, 
   3.8604634168971453`*^9}, {3.8604639227461*^9, 3.860463926760758*^9}, {
   3.860733010755395*^9, 3.860733039211011*^9}, {3.860824640027919*^9, 
   3.8608246413297777`*^9}, {3.860828771265779*^9, 3.860828771711357*^9}, {
   3.8610644154992447`*^9, 3.861064420045219*^9}, {3.86106810438181*^9, 
   3.861068104452186*^9}, {3.8610682909936666`*^9, 3.861068311022924*^9}, {
   3.86107759726029*^9, 3.8610776081589737`*^9}, {3.861173500776527*^9, 
   3.861173545978887*^9}, {3.861176909163074*^9, 3.861176911027669*^9}, {
   3.861180476571012*^9, 3.861180477359043*^9}, {3.861187658585383*^9, 
   3.861187701963153*^9}, 3.8611877534107428`*^9, {3.861189346360421*^9, 
   3.861189346448429*^9}, {3.861190129385975*^9, 3.8611901294340277`*^9}, {
   3.861193025657754*^9, 3.8611930257253237`*^9}, {3.861195028015946*^9, 
   3.8611950281085873`*^9}, {3.861347270776425*^9, 3.861347271053545*^9}, {
   3.861412862069378*^9, 3.8614128623463297`*^9}, 3.861413637863587*^9, {
   3.861413671454216*^9, 3.861413671533247*^9}, {3.8614137510612783`*^9, 
   3.8614137690904284`*^9}, 3.861414368983858*^9, {3.861414688577716*^9, 
   3.8614146886924877`*^9}, {3.861415634673929*^9, 3.8614157080156*^9}, {
   3.861415762608178*^9, 3.861415800916638*^9}, {3.861415969914872*^9, 
   3.86141597247928*^9}, {3.861436056613315*^9, 3.861436075386662*^9}, {
   3.861509059409156*^9, 3.861509081363414*^9}, {3.861538935749393*^9, 
   3.861538993968066*^9}, {3.861595981181588*^9, 3.861596042708453*^9}, {
   3.861602589070819*^9, 3.861602589669895*^9}, {3.861603439046858*^9, 
   3.861603446199502*^9}, {3.861604092955793*^9, 3.8616040932700644`*^9}, {
   3.861604640582059*^9, 3.861604640856399*^9}, {3.861604886203526*^9, 
   3.8616048877439833`*^9}, {3.86162369123713*^9, 3.8616237005298*^9}, {
   3.86162378046762*^9, 3.861623780615988*^9}, {3.861623810720971*^9, 
   3.8616238310565853`*^9}, 3.861625390977539*^9, {3.86166867574231*^9, 
   3.8616686807501783`*^9}, {3.8616688623264027`*^9, 3.861668886913686*^9}, {
   3.86166961629766*^9, 3.861669637283948*^9}, 3.861670808039701*^9, {
   3.861672784564942*^9, 3.861672816458376*^9}, {3.861672891829884*^9, 
   3.861672940617256*^9}, {3.861673104397788*^9, 3.861673111192273*^9}, {
   3.861673153523527*^9, 3.8616731850417137`*^9}, {3.861676997673259*^9, 
   3.86167699889924*^9}, {3.861685546751273*^9, 3.86168555386872*^9}, {
   3.8616897703477907`*^9, 3.861689781897277*^9}, {3.8616899540207977`*^9, 
   3.861689954377509*^9}, {3.8616910033881893`*^9, 3.861691003558131*^9}, {
   3.861691179971583*^9, 3.861691180033929*^9}, {3.8616940557205133`*^9, 
   3.861694058597929*^9}, 3.861695356540698*^9, 3.8616963044105387`*^9, 
   3.861696575372346*^9, 3.861696720762941*^9, {3.861714009026482*^9, 
   3.861714010630728*^9}, {3.861714092768898*^9, 3.861714093034459*^9}, {
   3.861754284803967*^9, 3.861754284867276*^9}, 3.861779129343066*^9, 
   3.861780464024086*^9, {3.8617835565126877`*^9, 3.8617835604444323`*^9}, {
   3.8617873407026043`*^9, 3.861787342690629*^9}, {3.8618425059045553`*^9, 
   3.861842506148015*^9}, {3.861842870199422*^9, 3.8618428936552963`*^9}, {
   3.861843395346499*^9, 3.861843395521372*^9}, {3.8618507148655567`*^9, 
   3.8618507150059223`*^9}, {3.861851025166094*^9, 3.861851028220557*^9}, {
   3.861857756953817*^9, 3.86185776092913*^9}, {3.861879287918866*^9, 
   3.8618792880196943`*^9}, {3.861926192962194*^9, 3.861926206434453*^9}, {
   3.861933936980653*^9, 3.86193393833116*^9}, {3.8619398664990797`*^9, 
   3.8619398748876047`*^9}, {3.862088585117201*^9, 3.862088586132571*^9}, {
   3.862088633799789*^9, 3.862088634452323*^9}, {3.862112419903138*^9, 
   3.862112433744131*^9}, {3.862112742659886*^9, 3.8621127431837254`*^9}, {
   3.862114427877726*^9, 3.8621144281754303`*^9}, {3.862117266811754*^9, 
   3.862117267059823*^9}, {3.862117544468017*^9, 3.862117544745632*^9}, {
   3.862119298307963*^9, 3.8621193000556183`*^9}, {3.862124056024208*^9, 
   3.8621240660023813`*^9}, {3.8621365815777273`*^9, 3.862136610601699*^9}, {
   3.862137014624992*^9, 3.86213704513874*^9}, {3.862139131022596*^9, 
   3.8621391322046213`*^9}, {3.8621467923787527`*^9, 3.8621468167265787`*^9}, 
   3.862147382899172*^9, {3.862172731949945*^9, 3.8621727321129293`*^9}, {
   3.862199723397778*^9, 3.862199733683486*^9}, 3.862200411602359*^9, {
   3.862201321612831*^9, 3.862201332991548*^9}, {3.8622014209726973`*^9, 
   3.8622014212802277`*^9}, {3.862202420024732*^9, 3.8622024211978197`*^9}, {
   3.862203313015359*^9, 3.862203313206469*^9}, {3.862204581856687*^9, 
   3.862204658528726*^9}, {3.862207123326639*^9, 3.86220712389224*^9}, {
   3.8622139696000566`*^9, 3.862213969832436*^9}, {3.862214155934476*^9, 
   3.862214159017975*^9}, 3.8622223509946737`*^9, {3.862222389646984*^9, 
   3.8622224047056704`*^9}, 3.862222445070938*^9, {3.862223060536867*^9, 
   3.8622231152566*^9}, {3.862223393409565*^9, 3.86222339749957*^9}, 
   3.86222439145315*^9, {3.862231174142769*^9, 3.862231175267881*^9}, {
   3.862242564348675*^9, 3.862242574245535*^9}, {3.8622431911230783`*^9, 
   3.862243195668647*^9}, {3.862247584127715*^9, 3.8622475843582363`*^9}, {
   3.862248412472472*^9, 3.862248416477509*^9}, {3.862266832081113*^9, 
   3.8622668323654947`*^9}, {3.862266892584403*^9, 3.862266892845428*^9}, {
   3.862290931273076*^9, 3.8622909321666117`*^9}, {3.862315776363503*^9, 
   3.862315776705905*^9}, {3.862321368085434*^9, 3.862321389676902*^9}, {
   3.862440311094406*^9, 3.862440322950466*^9}, {3.862881936526572*^9, 
   3.8628819561139183`*^9}, {3.863145337417894*^9, 3.863145344969575*^9}, {
   3.8631660683709793`*^9, 3.8631660685426073`*^9}, {3.86325345651341*^9, 
   3.863253458803342*^9}, {3.863354822680254*^9, 3.863354860124031*^9}, {
   3.863412105099183*^9, 3.863412105755437*^9}, 3.863414084313704*^9, {
   3.863418987116878*^9, 3.863418989233288*^9}, 3.863432568146456*^9, {
   3.863566641601309*^9, 3.86356664171172*^9}, {3.863619986956538*^9, 
   3.8636199914640083`*^9}, 3.863620140641596*^9, 3.863620202243011*^9, {
   3.8636204895425262`*^9, 3.863620489698607*^9}, {3.8636746537618093`*^9, 
   3.8636746541308937`*^9}, {3.8636782894211397`*^9, 
   3.8636782953751783`*^9}, {3.863678782886496*^9, 3.863678783122671*^9}, 
   3.8641996829679537`*^9, {3.864199718771603*^9, 3.8641997547571*^9}, {
   3.864199912265009*^9, 3.8641999151265306`*^9}, {3.864200085750496*^9, 
   3.8642000859205503`*^9}, 3.8642005063933573`*^9, {3.864204524904241*^9, 
   3.86420452539205*^9}, {3.864204727386767*^9, 3.86420472765679*^9}, 
   3.8642057082282867`*^9, {3.864206046699664*^9, 3.8642060479543743`*^9}, {
   3.8642067365252047`*^9, 3.86420674680112*^9}, {3.864206777516736*^9, 
   3.864206778931288*^9}, {3.8642095552541933`*^9, 3.8642095555021353`*^9}, {
   3.864209586974473*^9, 3.864209590343689*^9}, {3.864209701221596*^9, 
   3.8642097016170387`*^9}, {3.864261707227496*^9, 3.864261707498219*^9}, {
   3.8642619598618107`*^9, 3.86426196668927*^9}, {3.864262072193301*^9, 
   3.864262073732091*^9}, {3.864263524963828*^9, 3.864263526072596*^9}, {
   3.8642635971857023`*^9, 3.864263598584381*^9}, {3.864282061063354*^9, 
   3.864282061208202*^9}, {3.867847955311718*^9, 3.867847959473247*^9}, {
   3.867848438930958*^9, 3.8678484663061543`*^9}, 3.867922342333788*^9, {
   3.8679366032364283`*^9, 3.867936609181806*^9}, {3.867975808710066*^9, 
   3.8679758112034597`*^9}, {3.867976165257475*^9, 3.8679761819107447`*^9}, {
   3.8679870911767807`*^9, 3.867987109987011*^9}, {3.867987675014119*^9, 
   3.867987678394402*^9}, {3.867988922615583*^9, 3.86798892527043*^9}, {
   3.8679890434432907`*^9, 3.867989044831395*^9}, {3.867989166906548*^9, 
   3.867989167048822*^9}, {3.867989460796513*^9, 3.8679894650744543`*^9}, 
   3.867989949818183*^9, 3.867990205349906*^9, 3.8679926883547*^9, {
   3.8680031535590553`*^9, 3.868003154885586*^9}, {3.8680046283803797`*^9, 
   3.8680046296508083`*^9}, 3.8683325115169477`*^9, {3.868343128765325*^9, 
   3.868343142826008*^9}, {3.868421310395713*^9, 3.86842131389075*^9}, {
   3.8684218563069077`*^9, 3.86842186947403*^9}, {3.868495552800601*^9, 
   3.868495556850762*^9}, {3.868497886557234*^9, 3.868497934492675*^9}, {
   3.883205418385137*^9, 3.883205421111969*^9}, {3.883205550231975*^9, 
   3.8832055503182707`*^9}, {3.883205648970772*^9, 3.883205650444166*^9}, {
   3.883205889281506*^9, 3.883205889416341*^9}, {3.883206071084796*^9, 
   3.883206072762381*^9}, {3.883206440602861*^9, 3.883206441679147*^9}, {
   3.88349586080536*^9, 3.883495870995223*^9}, {3.8835375175540037`*^9, 
   3.883537531585254*^9}, {3.883546476808103*^9, 3.883546486883609*^9}, {
   3.88355000537354*^9, 3.883550005653578*^9}, {3.883550083983886*^9, 
   3.883550084492293*^9}, {3.883553002435289*^9, 3.883553014523713*^9}, {
   3.883559675366713*^9, 3.883559677797179*^9}, {3.883561555263783*^9, 
   3.883561555763023*^9}, {3.883639775335012*^9, 3.883639786468145*^9}, {
   3.8836398909110327`*^9, 3.883639921569551*^9}, 3.883643064712614*^9},
 FontSize->12,
 CellTags->"CalculationParameters",
 CellLabel->"In[14]:=",ExpressionUUID->"2d372041-7545-4f64-ba88-a8d6900c9986"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["The Calculation (Single Mass search)", "Abstract"]], \
"Subsection",
 CellChangeTimes->{{3.860224045473876*^9, 3.860224047225518*^9}, 
   3.860284705561998*^9, {3.861676948808226*^9, 3.86167697034481*^9}, 
   3.862222354271736*^9, 3.862222389647099*^9, {3.863250071080227*^9, 
   3.863250073780374*^9}, 3.867972826759501*^9, 3.8679729210645237`*^9},
 FontSize->16,ExpressionUUID->"db6d0b1a-31fc-43a7-a059-29f2fdf09cca"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "Turn", " ", "off", " ", "irrelevant", " ", "error", " ", "messages"}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Off", "[", 
     StyleBox[
      RowBox[{"ClebschGordan", "::", "phy"}], "MessageName"], 
     StyleBox["]", "MessageName"]}], 
    StyleBox[";", "MessageName"]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"WatchEvaluation", " ", "=", " ", "True"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"SaveToDisk", " ", "=", " ", "True"}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"omegaNINonRel", "[", "parameters", "]"}], "<", "0"}], ",", 
      RowBox[{
       RowBox[{"Print", "[", 
        RowBox[{
        "\"\<Superradiant condition fails for parameter \
(\[Mu],m,n,\[Chi],s)=(\>\"", "<>", 
         RowBox[{"ToString", "[", 
          RowBox[{
           RowBox[{"parameters", "[", "\"\<\[Mu]Nv\>\"", "]"}], ",", " ", 
           "InputForm"}], "]"}], "<>", "\"\<,\>\"", "<>", 
         RowBox[{"ToString", "[", 
          RowBox[{
           RowBox[{"parameters", "[", "\"\<m\>\"", "]"}], ",", " ", 
           "InputForm"}], "]"}], "<>", "\"\<,\>\"", "<>", 
         RowBox[{"ToString", "[", 
          RowBox[{
           RowBox[{"parameters", "[", "\"\<n\>\"", "]"}], ",", " ", 
           "InputForm"}], "]"}], "<>", "\"\<,\>\"", "<>", 
         RowBox[{"ToString", "[", 
          RowBox[{
           RowBox[{"parameters", "[", "\"\<\[Chi]\>\"", "]"}], ",", " ", 
           "InputForm"}], "]"}], "<>", "\"\<,\>\"", "<>", 
         RowBox[{"ToString", "[", 
          RowBox[{
           RowBox[{"parameters", "[", "\"\<s\>\"", "]"}], ",", " ", 
           "InputForm"}], "]"}], "<>", "\"\<)\>\""}], "]"}], ";", 
       RowBox[{"Abort", "[", "]"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"printData", "=", 
     RowBox[{"parameters", "[", 
      RowBox[{"[", 
       RowBox[{"{", 
        RowBox[{
        "\"\<\[Epsilon]\>\"", ",", " ", "\"\<\[Mu]Nv\>\"", ",", " ", 
         "\"\<m\>\"", ",", " ", "\"\<\[Eta]\>\"", ",", " ", "\"\<n\>\"", ",", 
         " ", "\"\<l\>\"", ",", " ", "\"\<s\>\"", ",", " ", 
         "\"\<\[Chi]\>\""}], "}"}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Messenger", " ", "=", " ", "\"\<\>\""}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"If", "[", 
    RowBox[{"WatchEvaluation", ",", 
     RowBox[{"Dynamic", "[", "Messenger", "]"}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"If", "[", 
     RowBox[{"WatchEvaluation", ",", 
      RowBox[{"Print", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<Parameters: \>\"", ",", " ", "Bold"}], "]"}], ",", " ", 
        
        RowBox[{"Grid", "[", 
         RowBox[{
          RowBox[{"Partition", "[", 
           RowBox[{
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"parameters", "//", "Keys"}], ")"}], "[", 
                RowBox[{"[", "i", "]"}], "]"}], " ", "\[Rule]", " ", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"parameters", "//", "Values"}], ")"}], "[", 
                RowBox[{"[", "i", "]"}], "]"}]}], ",", " ", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", " ", 
                RowBox[{"Length", "@", "parameters"}]}], "}"}]}], "]"}], ",", 
            "2"}], "]"}], ",", " ", 
          RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}], "]"}]}], "]"}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{"If", "[", 
    RowBox[{"WatchEvaluation", ",", " ", 
     RowBox[{"Dynamic", "[", "RMMessenger", "]"}]}], "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Minimization", " ", "using", " ", "Nelder", " ", "Mead"}], 
    "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Messenger", "=", 
     RowBox[{"Style", "[", 
      RowBox[{
      "\"\<Performing Minimization\>\"", ",", "Blue", ",", " ", "Italic", ",",
        " ", "24"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"minimizetimestart", " ", "=", " ", 
     RowBox[{"AbsoluteTime", "[", "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"omegaGuess", " ", "=", " ", 
     RowBox[{
      RowBox[{"ToPrecision", "[", "parameters", "]"}], "@", 
      RowBox[{"N", "[", 
       RowBox[{
        RowBox[{"omegaNRNonRel", "[", "parameters", "]"}], " ", "+", " ", 
        RowBox[{"I", "*", 
         RowBox[{"omegaNINonRel", "[", "parameters", "]"}]}]}], "]"}]}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"nuGuess", " ", "=", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"getNuValue", "[", 
        RowBox[{"omegaGuess", ",", " ", "parameters", ",", 
         RowBox[{"nuNNonRel", "[", 
          RowBox[{"omegaGuess", ",", "parameters"}], "]"}]}], "]"}], "//", 
       "N"}], "//", 
      RowBox[{"ToPrecision", "[", "parameters", "]"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"omegaBoundarySize", " ", "=", " ", 
     RowBox[{
      FractionBox["1", "2"], "*", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"omegaNRNonRel", "[", 
          RowBox[{"ReplacePart", "[", 
           RowBox[{"parameters", ",", 
            RowBox[{"\"\<n\>\"", "\[Rule]", 
             RowBox[{
              RowBox[{"parameters", "[", "\"\<n\>\"", "]"}], "+", "1"}]}]}], 
           "]"}], "]"}], " ", "-", " ", "omegaGuess"}], "//", "Re"}], 
       ")"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"omegaBoundary", " ", "=", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"omegaGuess", " ", "-", " ", "omegaBoundarySize"}], ",", " ", 
       RowBox[{"omegaGuess", "+", "omegaBoundarySize"}]}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Perform", " ", "minimization"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"MinimizationResults", "=", 
     RowBox[{"RadialMinimize", "[", 
      RowBox[{
      "omegaGuess", ",", "  ", "nuGuess", ",", " ", "omegaBoundary", ",", 
       "  ", "parameters", ",", " ", "WatchEvaluation"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"If", "[", 
     RowBox[{"WatchEvaluation", ",", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<Minimization Results: \>\"", "<>", 
        RowBox[{"ToString", "[", 
         RowBox[{
          RowBox[{"MinimizationResults", "//", "N"}], ",", " ", "InputForm"}],
          "]"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"minimizetimestop", " ", "=", " ", 
     RowBox[{"AbsoluteTime", "[", "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"If", "[", 
     RowBox[{"WatchEvaluation", ",", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<minimization time: \>\"", "<>", 
        RowBox[{"ToString", "[", 
         RowBox[{
          RowBox[{"N", "[", 
           RowBox[{"minimizetimestop", "-", "minimizetimestart"}], "]"}], ",",
           " ", "InputForm"}], "]"}]}], "]"}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"--", 
       RowBox[{"--", 
        RowBox[{"--", 
         RowBox[{"--", 
          RowBox[{"-", " ", "Solve"}]}]}]}]}], " ", "for", " ", "kernel", " ",
       "of", " ", "angular", " ", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"matrix", " ", "--"}], "--"}], "--"}], "--"}]}], "-"}], " ", 
    "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Messenger", " ", "=", " ", 
     RowBox[{"Row", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"ProgressIndicator", "[", 
         RowBox[{"Appearance", "\[Rule]", " ", "\"\<Percolate\>\""}], "]"}], 
        ",", 
        RowBox[{"Style", "[", 
         RowBox[{
         "\"\<Solving the angular equation for the undetermined \
coefficients\>\"", ",", "Blue", ",", " ", "Italic", ",", " ", "24"}], "]"}]}],
        "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Sfunctemp", " ", "=", " ", 
     RowBox[{"Sum", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"C", "[", "k", "]"}], "*", 
        RowBox[{"SphericalHarmonicY", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Abs", "[", 
            RowBox[{"parameters", "[", "\"\<m\>\"", "]"}], "]"}], "+", 
           RowBox[{"2", "*", "k"}], "+", 
           RowBox[{"parameters", "[", "\"\<\[Eta]\>\"", "]"}]}], ",", 
          RowBox[{"parameters", "[", "\"\<m\>\"", "]"}], ",", "\[Theta]", ",",
           "\[Phi]"}], "]"}], "*", 
        RowBox[{"Exp", "[", 
         RowBox[{
          RowBox[{"-", "I"}], "*", 
          RowBox[{"parameters", "[", "\"\<m\>\"", "]"}], "*", "\[Phi]"}], 
         "]"}]}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"k", ",", "0", ",", 
         RowBox[{"parameters", "[", "\"\<KMax\>\"", "]"}]}], "}"}]}], "]"}]}],
     ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"coeffs", " ", "=", " ", 
     RowBox[{"SolveAngularSystem", "[", 
      RowBox[{
       RowBox[{"MinimizationResults", "[", "\"\<\[Omega]\>\"", "]"}], ",", 
       " ", 
       RowBox[{"MinimizationResults", "[", "\"\<\[Nu]\>\"", "]"}], ",", 
       "parameters"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Sfunc", "=", 
     RowBox[{"FunctionInterpolation", "[", 
      RowBox[{
       RowBox[{"Evaluate", "[", 
        RowBox[{"Sfunctemp", "/.", "coeffs"}], "]"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"\[Theta]", ",", "0", ",", "\[Pi]"}], "}"}]}], "]"}]}], ";"}],
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"--", 
       RowBox[{"--", 
        RowBox[{"--", 
         RowBox[{"--", 
          RowBox[{"-", " ", "Output"}]}]}]}]}], " ", "solution", " ", "and", 
      " ", "save", " ", "to", " ", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"disk", " ", "--"}], "--"}], "--"}], "--"}]}], "-"}], " ", 
    "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"TheSolution", " ", "=", " ", 
     RowBox[{"<|", 
      RowBox[{
       RowBox[{"\"\<\[Omega]\>\"", " ", "\[Rule]", " ", 
        RowBox[{"MinimizationResults", "[", "\"\<\[Omega]\>\"", "]"}]}], ",", 
       "\[IndentingNewLine]", "\t\t\t    ", 
       RowBox[{"\"\<\[Nu]\>\"", "\[Rule]", "  ", 
        RowBox[{"MinimizationResults", "[", "\"\<\[Nu]\>\"", "]"}]}], ",", 
       "\[IndentingNewLine]", "\t\t    \t", 
       RowBox[{"\"\<R\>\"", "\[Rule]", " ", 
        RowBox[{"getRadialSolution", "[", 
         RowBox[{
          RowBox[{"MinimizationResults", "[", "\"\<\[Omega]\>\"", "]"}], ",", 
          " ", 
          RowBox[{"MinimizationResults", "[", "\"\<\[Nu]\>\"", "]"}], ",", 
          " ", "parameters"}], "]"}]}], ",", "\[IndentingNewLine]", 
       "\t\t             ", 
       RowBox[{"\"\<S\>\"", "\[Rule]", " ", "Sfunc"}], ",", 
       "\[IndentingNewLine]", "\t\t\t    ", 
       RowBox[{"\"\<AngularKernelVector\>\"", "\[Rule]", " ", "coeffs"}], ",",
        "\[IndentingNewLine]", "\t\t\t    ", 
       RowBox[{"\"\<Q\>\"", "\[Rule]", " ", 
        RowBox[{"QValue", "[", 
         RowBox[{
          RowBox[{"parameters", "[", "\"\<\[Mu]Nv\>\"", "]"}], ",", " ", 
          RowBox[{"MinimizationResults", "[", "\"\<\[Omega]\>\"", "]"}]}], 
         "]"}]}]}], "\[IndentingNewLine]", "\t\t\t", "|>"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"RadialPlot", "=", 
     RowBox[{"LogLinearPlot", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"TheSolution", "[", "\"\<R\>\"", "]"}], "[", "x", "]"}], "//",
         "Abs"}], ",", " ", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"parameters", "[", "\"\<StartingX\>\"", "]"}], ",", " ", 
         RowBox[{"parameters", "[", "\"\<EndingX\>\"", "]"}]}], "}"}], ",", 
       " ", "\[IndentingNewLine]", 
       RowBox[{
       "PlotLabel", "\[Rule]", 
        "\"\<|R(\!\(\*SubscriptBox[\(x\), \(N\)]\))|\>\""}], ",", 
       "\[IndentingNewLine]", " ", 
       RowBox[{"PlotRange", "\[Rule]", "All"}], ",", "\[IndentingNewLine]", 
       " ", 
       RowBox[{"AxesLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
         "\"\<\!\(\*SubscriptBox[\(x\), \(N\)]\)\>\"", ",", " ", 
          "\"\<R(\!\(\*SubscriptBox[\(x\), \(N\)]\))\>\""}], "}"}]}], ",", 
       "\[IndentingNewLine]", " ", 
       RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", " ", 
       "\[IndentingNewLine]", 
       RowBox[{"Epilog", "\[Rule]", " ", 
        RowBox[{"Inset", "[", 
         RowBox[{"Style", "[", 
          RowBox[{
           RowBox[{"Grid", "[", 
            RowBox[{
             RowBox[{"Partition", "[", 
              RowBox[{
               RowBox[{"Table", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"parameters", "//", "Keys"}], ")"}], "[", 
                   RowBox[{"[", "i", "]"}], "]"}], " ", "\[Rule]", " ", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"parameters", "//", "Values"}], ")"}], "[", 
                   RowBox[{"[", "i", "]"}], "]"}]}], ",", " ", 
                 RowBox[{"{", 
                  RowBox[{"i", ",", "1", ",", " ", 
                   RowBox[{"Length", "@", "parameters"}]}], "}"}]}], "]"}], 
               ",", "2"}], "]"}], ",", " ", 
             RowBox[{"ItemSize", "\[Rule]", "18"}]}], "]"}], ",", " ", "10"}],
           "]"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"AngularPlot", " ", "=", 
     RowBox[{"Plot", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"TheSolution", "[", "\"\<S\>\"", "]"}], "[", "\[Theta]", 
         "]"}], "//", "Abs"}], ",", " ", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"\[Theta]", ",", "0", ",", "\[Pi]"}], "}"}], ",", " ", 
       "\[IndentingNewLine]", 
       RowBox[{"PlotLabel", "\[Rule]", "\"\<|S(\[Theta])|\>\""}], ",", " ", 
       "\[IndentingNewLine]", 
       RowBox[{"AxesLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"\"\<\[Theta]\>\"", ",", " ", "\"\<\>\""}], "}"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", "\[IndentingNewLine]", 
       
       RowBox[{"Epilog", "\[Rule]", " ", 
        RowBox[{"Inset", "[", 
         RowBox[{"Style", "[", 
          RowBox[{
           RowBox[{"Grid", "[", 
            RowBox[{
             RowBox[{"Partition", "[", 
              RowBox[{
               RowBox[{"Table", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"parameters", "//", "Keys"}], ")"}], "[", 
                   RowBox[{"[", "i", "]"}], "]"}], " ", "\[Rule]", " ", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"parameters", "//", "Values"}], ")"}], "[", 
                   RowBox[{"[", "i", "]"}], "]"}]}], ",", " ", 
                 RowBox[{"{", 
                  RowBox[{"i", ",", "1", ",", " ", 
                   RowBox[{"Length", "@", "parameters"}]}], "}"}]}], "]"}], 
               ",", "2"}], "]"}], ",", " ", 
             RowBox[{"ItemSize", "\[Rule]", "18"}]}], "]"}], ",", " ", "10"}],
           "]"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"TheSolution", ",", " ", 
      RowBox[{"\"\<RadialPlot\>\"", "\[Rule]", " ", "RadialPlot"}]}], "]"}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"TheSolution", ",", " ", 
      RowBox[{"\"\<AngularPlot\>\"", "\[Rule]", " ", "AngularPlot"}]}], "]"}],
     ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "Prepare", " ", "solution", " ", "data", " ", "and", " ", "write", " ", 
     "to", " ", "disk"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"printData", "=", 
     RowBox[{"parameters", "[", 
      RowBox[{"[", 
       RowBox[{"{", 
        RowBox[{
        "\"\<\[Epsilon]\>\"", ",", " ", "\"\<\[Mu]Nv\>\"", ",", " ", 
         "\"\<m\>\"", ",", " ", "\"\<\[Eta]\>\"", ",", " ", "\"\<n\>\"", ",", 
         " ", "\"\<l\>\"", ",", " ", "\"\<s\>\"", ",", " ", 
         "\"\<\[Chi]\>\""}], "}"}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"CacheData", " ", "=", " ", 
     RowBox[{"<|", " ", 
      RowBox[{
       RowBox[{"\"\<Parameters\>\"", "\[Rule]", " ", "parameters"}], ",", " ", 
       RowBox[{"\"\<Solution\>\"", "\[Rule]", " ", "TheSolution"}]}], 
      "|>"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"WatchEvaluation", "&&", "SaveToDisk"}], ",", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<Caching results to: RunData_\>\"", "<>", 
        RowBox[{"assocToString", "[", "printData", "]"}]}], "]"}]}], "]"}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"OutputFilename", " ", "=", " ", 
     RowBox[{"SolutionToFilename", "[", 
      RowBox[{"parameters", ",", " ", 
       RowBox[{"$FKKSRoot", "<>", "\"\<Solutions/\>\""}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"If", "[", 
    RowBox[{"SaveToDisk", ",", 
     RowBox[{"Export", "[", 
      RowBox[{"OutputFilename", ",", " ", "CacheData"}], "]"}]}], "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Messenger", "=", 
     RowBox[{"Style", "[", 
      RowBox[{
      "\"\<Finished!\>\"", ",", "Blue", ",", " ", "Italic", ",", " ", "24"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<\\n\\n Solution: \\n\>\"", ",", " ", "Blue", ",", " ", "Italic", 
      ",", " ", "24"}], "]"}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"Column", "@", 
    RowBox[{"(", 
     RowBox[{"List", "@@", "TheSolution"}], ")"}]}]}]}]], "Input",
 PageWidth:>Infinity,
 CellChangeTimes->{{3.860218071935429*^9, 3.860218129753003*^9}, {
   3.8602182014582872`*^9, 3.860218235873823*^9}, {3.8602184532856073`*^9, 
   3.8602184674659567`*^9}, {3.860218514815071*^9, 3.860218538429093*^9}, {
   3.860218613449876*^9, 3.860218615622143*^9}, {3.8602186804131947`*^9, 
   3.8602186982251263`*^9}, {3.860218808834868*^9, 3.860218811909597*^9}, {
   3.860220171569087*^9, 3.8602202011925697`*^9}, 3.860222477997163*^9, {
   3.860223401720533*^9, 3.86022341772269*^9}, 3.860223501858367*^9, {
   3.860223828151783*^9, 3.860223894070693*^9}, {3.860223928535366*^9, 
   3.860223934089285*^9}, {3.860223978460816*^9, 3.860223980092784*^9}, {
   3.86022428405302*^9, 3.860224296920547*^9}, {3.8602244141479*^9, 
   3.8602244490077887`*^9}, {3.860224688903058*^9, 3.8602247931837177`*^9}, {
   3.860225598158699*^9, 3.860225598329269*^9}, {3.860226930673759*^9, 
   3.860226935795244*^9}, {3.860226986211421*^9, 3.860226997365333*^9}, {
   3.860227120300364*^9, 3.8602271912647543`*^9}, {3.86022740448752*^9, 
   3.860227438257477*^9}, 3.860227507696493*^9, 3.860227586919176*^9, 
   3.860227669932047*^9, {3.860227939758111*^9, 3.8602279428577833`*^9}, {
   3.860228069559908*^9, 3.860228105839409*^9}, {3.860228748746233*^9, 
   3.860228753772113*^9}, {3.86022884793296*^9, 3.860228882577859*^9}, {
   3.860228967181501*^9, 3.860228968363586*^9}, {3.860229063449039*^9, 
   3.8602290879314423`*^9}, {3.860229121331485*^9, 3.86022917161091*^9}, {
   3.860229332489588*^9, 3.860229333573535*^9}, {3.860229385135828*^9, 
   3.860229425544908*^9}, {3.860229654744739*^9, 3.8602296592223253`*^9}, {
   3.860233130039051*^9, 3.860233142562756*^9}, {3.86023346024767*^9, 
   3.860233464667954*^9}, {3.860285122415093*^9, 3.860285155588696*^9}, 
   3.8603760680424814`*^9, 3.860455640188904*^9, {3.860455879218882*^9, 
   3.860455937054812*^9}, {3.860455993601866*^9, 3.86045599556004*^9}, {
   3.860456076321294*^9, 3.860456088648787*^9}, {3.860456150294819*^9, 
   3.8604561640879507`*^9}, {3.860456297862204*^9, 3.860456297941825*^9}, {
   3.860458054230884*^9, 3.8604580587206783`*^9}, {3.8604587412656803`*^9, 
   3.86045874257368*^9}, {3.8604587917008057`*^9, 3.860458808202284*^9}, {
   3.860459513324128*^9, 3.860459573490147*^9}, {3.860464221778441*^9, 
   3.860464240685156*^9}, {3.860464412369869*^9, 3.860464422429614*^9}, 
   3.860464500249593*^9, 3.860464591594919*^9, {3.860464655625136*^9, 
   3.8604646920791407`*^9}, {3.860464750560466*^9, 3.8604647619468803`*^9}, {
   3.8604648336517878`*^9, 3.86046486541317*^9}, 3.8604649298945208`*^9, {
   3.860476873020987*^9, 3.8604768753583107`*^9}, {3.86048279418967*^9, 
   3.86048279581796*^9}, {3.860482866960065*^9, 3.860482894026547*^9}, {
   3.86048444228508*^9, 3.860484444707691*^9}, {3.860562240886323*^9, 
   3.860562242345702*^9}, {3.8605623574812317`*^9, 3.860562368488749*^9}, {
   3.860562402198995*^9, 3.860562402498929*^9}, {3.860564641321744*^9, 
   3.860564641597534*^9}, {3.860564759178618*^9, 3.8605647807964897`*^9}, 
   3.8607433200167217`*^9, {3.861064028825851*^9, 3.861064174126122*^9}, {
   3.8610642185398417`*^9, 3.861064402986043*^9}, {3.861064438614457*^9, 
   3.8610644394151287`*^9}, {3.8610646669214993`*^9, 
   3.8610646685659437`*^9}, {3.8610648704557734`*^9, 
   3.8610648801158867`*^9}, {3.8610655204629183`*^9, 
   3.8610656395185223`*^9}, {3.861065691189526*^9, 3.861065691383315*^9}, {
   3.861065753792177*^9, 3.86106585496527*^9}, {3.861066008815124*^9, 
   3.86106605998641*^9}, {3.861066459471241*^9, 3.861066473011086*^9}, {
   3.8610681972460613`*^9, 3.861068222732217*^9}, 3.861068376445616*^9, {
   3.861069792734974*^9, 3.861069830441571*^9}, {3.861073783303804*^9, 
   3.861073784297456*^9}, {3.861073917638719*^9, 3.861073918047284*^9}, {
   3.861074122956951*^9, 3.8610741235149717`*^9}, {3.8610779212301207`*^9, 
   3.8610779232061577`*^9}, {3.8611757759201183`*^9, 3.861175816295718*^9}, {
   3.8611767787773533`*^9, 3.86117678628369*^9}, {3.861177579884959*^9, 
   3.861177593515799*^9}, {3.8611805143324537`*^9, 3.861180514747325*^9}, {
   3.8611874868905087`*^9, 3.861187507331943*^9}, {3.861188508748684*^9, 
   3.8611885184112253`*^9}, {3.8611955693759937`*^9, 3.861195727697332*^9}, {
   3.861199406963944*^9, 3.8611994190424337`*^9}, {3.861199451126943*^9, 
   3.861199530638987*^9}, {3.8613488934506598`*^9, 3.861348909895602*^9}, 
   3.8614130291651278`*^9, {3.861413557258045*^9, 3.861413565440425*^9}, {
   3.8614158338513527`*^9, 3.8614158747923317`*^9}, {3.861416569717813*^9, 
   3.861416571523233*^9}, 3.8614167524838552`*^9, {3.861426837117322*^9, 
   3.861426837866927*^9}, {3.861427295208181*^9, 3.861427298355741*^9}, {
   3.861539020593759*^9, 3.861539021715767*^9}, {3.861539312127049*^9, 
   3.861539322805683*^9}, {3.861596055818624*^9, 3.861596062984468*^9}, {
   3.861597113013611*^9, 3.861597138446138*^9}, {3.861597944609825*^9, 
   3.861597953191736*^9}, 3.861597998069479*^9, {3.861598151023589*^9, 
   3.861598151257847*^9}, {3.861598617925407*^9, 3.8615986180633707`*^9}, {
   3.861602582374786*^9, 3.8616025834086523`*^9}, {3.861602796137472*^9, 
   3.861602822291726*^9}, 3.861604569937421*^9, {3.861623967294018*^9, 
   3.8616239700610447`*^9}, {3.8616250872146473`*^9, 3.861625129844143*^9}, {
   3.861625197859056*^9, 3.861625210080472*^9}, {3.8616681916087637`*^9, 
   3.86166820185376*^9}, {3.861669100660719*^9, 3.861669107318418*^9}, {
   3.861670928817808*^9, 3.861670931201479*^9}, {3.861671114655267*^9, 
   3.861671160282731*^9}, {3.8616723995544558`*^9, 3.861672494596488*^9}, {
   3.8616726670374823`*^9, 3.8616727124816236`*^9}, 3.861672897010029*^9, {
   3.8616730480752287`*^9, 3.861673048632483*^9}, 3.861673094405196*^9, {
   3.8616731252371817`*^9, 3.861673141723789*^9}, {3.8616731925631113`*^9, 
   3.86167326293321*^9}, {3.861673299009275*^9, 3.861673367910596*^9}, 
   3.8616736310771103`*^9, {3.861675631634446*^9, 3.861675638436213*^9}, {
   3.861675782241973*^9, 3.861675794155408*^9}, {3.8616758958389997`*^9, 
   3.861675896477054*^9}, {3.861676975661537*^9, 3.861677017617381*^9}, {
   3.861689799690036*^9, 3.861689807137363*^9}, 3.861689986869322*^9, {
   3.8616936893998528`*^9, 3.86169369064569*^9}, {3.861693901777494*^9, 
   3.86169391144281*^9}, {3.861781875803761*^9, 3.861781876832206*^9}, 
   3.861783316425568*^9, {3.861842901344056*^9, 3.861842939424614*^9}, {
   3.8618484860852003`*^9, 3.8618484878611507`*^9}, {3.86193422279593*^9, 
   3.861934228003229*^9}, {3.861934360168829*^9, 3.861934364426461*^9}, 
   3.862199754334384*^9, {3.8621997983306227`*^9, 3.862199877497995*^9}, {
   3.862199964482121*^9, 3.862199994647243*^9}, {3.862200052817713*^9, 
   3.862200077803678*^9}, {3.862200235577297*^9, 3.862200236335433*^9}, {
   3.8622023006033154`*^9, 3.86220230875463*^9}, {3.86220263440679*^9, 
   3.862202668813685*^9}, {3.862202774872568*^9, 3.862202859114674*^9}, {
   3.862203640007555*^9, 3.862203694119381*^9}, 3.862222354271961*^9, 
   3.8622223896473007`*^9, {3.8622295825268307`*^9, 3.862229589101757*^9}, {
   3.862231026262388*^9, 3.862231027077985*^9}, {3.862231487505787*^9, 
   3.862231489851981*^9}, 3.86223496805639*^9, 3.862486639795092*^9, 
   3.862486865671677*^9, {3.862487055992427*^9, 3.8624870566790543`*^9}, {
   3.8632224761555643`*^9, 3.863222476388475*^9}, {3.863327374864794*^9, 
   3.863327391794018*^9}, {3.863677735079962*^9, 3.8636777695378*^9}, {
   3.864256721708733*^9, 3.864256722849125*^9}, {3.864264197689608*^9, 
   3.864264216166597*^9}, {3.867936964224986*^9, 3.86793707827348*^9}, {
   3.867937151701666*^9, 3.867937194049159*^9}, {3.867937235041394*^9, 
   3.8679372444468927`*^9}, 3.867972921065797*^9, 3.8835501500222483`*^9, {
   3.883552111711735*^9, 3.8835521513786907`*^9}, {3.883552723256094*^9, 
   3.883552723631673*^9}, {3.8835537386936083`*^9, 3.883553767995364*^9}},
 CellLabel->
  "In[402]:=",ExpressionUUID->"1cdf1743-22cc-4298-945b-b4b5d651dc93"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["The Calculation (Serial routine over \[Mu]-n-m \
space)", "Abstract"]], "Subsection",
 CellChangeTimes->{{3.860224045473876*^9, 3.860224047225518*^9}, 
   3.860284705561998*^9, {3.861676948808226*^9, 3.861676953867208*^9}, {
   3.8621996987623777`*^9, 3.8621997003073587`*^9}, 3.8622223566649714`*^9, 
   3.8622223896473722`*^9, 3.862222466824465*^9, {3.863250078694422*^9, 
   3.863250087598233*^9}, 3.86797282888741*^9, 3.8679729210660067`*^9},
 FontSize->16,ExpressionUUID->"a791602b-d17e-4f63-9c9a-bc14d52a3d4c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "Specify", " ", "if", " ", "iterations", " ", "should", " ", "produces", 
    " ", "logs", " ", "during", " ", "evaluation", " ", "that", " ", "get", 
    " ", "printed", " ", "to", " ", "output"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"WatchEvaluation", " ", "=", " ", "True"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"TrackIteration", "=", "True"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"LogRun", "=", "True"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"SaveToDisk", "=", "True"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"OverwritePreviousSolutions", " ", "=", " ", "True"}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Display", " ", "progress", " ", "bar"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Mu]Iterations", " ", "=", 
     RowBox[{
      RowBox[{"Floor", "@", " ", 
       FractionBox[
        RowBox[{
         RowBox[{
          RowBox[{"parameters", "[", "\"\<\[Mu]range\>\"", "]"}], "[", 
          RowBox[{"[", "2", "]"}], "]"}], "-", 
         RowBox[{
          RowBox[{"parameters", "[", "\"\<\[Mu]range\>\"", "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], 
        RowBox[{"parameters", "[", "\"\<\[Delta]\[Mu]\>\"", "]"}]]}], "+", 
      "1"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Row", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Style", "[", 
       RowBox[{"\"\<Progress   \>\"", ",", " ", "Bold"}], "]"}], ",", 
      RowBox[{"ProgressIndicator", "[", 
       RowBox[{
        RowBox[{"Dynamic", "[", "\[Mu]IterationCounter", " ", "]"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"1", ",", " ", "\[Mu]Iterations"}], "}"}]}], "]"}]}], "}"}], 
    "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "Initialize", " ", "various", " ", "iteration", " ", "variables", " ", 
     "and", " ", "loggers"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Messenger", " ", "=", " ", "\"\<\>\""}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ParameterWatcher", "=", "\"\<\>\""}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"MinimizationResults", "=", "\"\<\>\""}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"KernelsRule", " ", "=", " ", 
     RowBox[{"{", 
      RowBox[{"0", "->", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"CurrentParameterPoint", " ", "=", " ", 
     RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"CurrentResult", " ", "=", " ", 
     RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"instantiate", " ", "dynamical", " ", "symbols"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"If", "[", 
    RowBox[{"WatchEvaluation", ",", " ", 
     RowBox[{"Dynamic", "[", "Messenger", "]"}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"If", "[", 
    RowBox[{"TrackIteration", ",", 
     RowBox[{"Dynamic", "[", "ParameterWatcher", "]"}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"If", "[", 
     RowBox[{"WatchEvaluation", ",", " ", 
      RowBox[{"Dynamic", "[", "RMMessenger", "]"}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Mu]Messenger", "=", " ", 
     RowBox[{"\"\< Current \[Mu] value: \>\"", "<>", 
      RowBox[{"ToString", "[", 
       RowBox[{
        RowBox[{"parameters", "[", "\"\<\[Mu]Nv\>\"", "]"}], ",", " ", 
        "InputForm"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"nMessenger", " ", "=", " ", 
     RowBox[{"\"\< Current n value: \>\"", "<>", 
      RowBox[{"ToString", "[", 
       RowBox[{
        RowBox[{"parameters", "[", "\"\<n\>\"", "]"}], ",", " ", 
        "InputForm"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"mMessenger", " ", "=", " ", 
     RowBox[{"\"\< Current m value: \>\"", "<>", 
      RowBox[{"ToString", "[", 
       RowBox[{
        RowBox[{"parameters", "[", "\"\<m\>\"", "]"}], ",", " ", 
        "InputForm"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Begin", " ", "iterations"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"runStartTime", " ", "=", " ", 
     RowBox[{"AbsoluteTime", "[", "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", "\[IndentingNewLine]", 
    RowBox[{"Do", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"WorkerFunction", "[", 
       RowBox[{
       "mval", ",", " ", "nval", ",", " ", "parameters", ",", " ", "LogFile", 
        ",", 
        RowBox[{
        "OverwritePrevious", " ", "->", " ", "OverwritePreviousSolutions"}]}],
        "]"}], ",", " ", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"mval", ",", 
        RowBox[{
         RowBox[{"parameters", "[", "\"\<mrange\>\"", "]"}], "//", "First"}], 
        ",", 
        RowBox[{
         RowBox[{"parameters", "[", "\"\<mrange\>\"", "]"}], "//", "Last"}]}],
        "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"nval", ",", " ", 
        RowBox[{
         RowBox[{"parameters", "[", "\"\<nrange\>\"", "]"}], "//", "First"}], 
        ",", 
        RowBox[{
         RowBox[{"parameters", "[", "\"\<nrange\>\"", "]"}], "//", "Last"}]}],
        "}"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", "*)"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Do", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"WorkerFunction", "[", 
      RowBox[{
       RowBox[{"Rationalize", "[", "\[Chi]v", "]"}], ",", " ", "parameters", 
       ",", " ", "LogFile", ",", 
       RowBox[{
       "OverwritePrevious", " ", "->", " ", "OverwritePreviousSolutions"}]}], 
      "]"}], ",", " ", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\[Chi]v", ",", 
       RowBox[{
        RowBox[{"parameters", "[", "\"\<\[Chi]range\>\"", "]"}], "//", 
        "First"}], ",", 
       RowBox[{
        RowBox[{"parameters", "[", "\"\<\[Chi]range\>\"", "]"}], "//", 
        "Last"}], ",", " ", 
       RowBox[{"parameters", "[", "\"\<\[Chi]res\>\"", "]"}]}], "}"}]}], 
    "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"runEndTime", "=", 
     RowBox[{"AbsoluteTime", "[", "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Messenger", "=", 
     RowBox[{"Style", "[", 
      RowBox[{
       RowBox[{"\"\<Finished! Total Time: \>\"", "<>", 
        RowBox[{"ToString", "[", 
         RowBox[{
          RowBox[{"N", "@", 
           FractionBox[
            RowBox[{"Round", "[", 
             RowBox[{"runEndTime", "-", "runStartTime"}], "]"}], "60"]}], ",",
           " ", "InputForm"}], "]"}], "<>", "\"\< Minutes\>\""}], ",", "Blue",
        ",", " ", "Italic", ",", " ", "24"}], "]"}]}], ";"}]}]}]], "Input",
 PageWidth:>Infinity,
 CellChangeTimes->{{3.860218071935429*^9, 3.860218129753003*^9}, {
   3.8602182014582872`*^9, 3.860218235873823*^9}, {3.8602184532856073`*^9, 
   3.8602184674659567`*^9}, {3.860218514815071*^9, 3.860218538429093*^9}, {
   3.860218613449876*^9, 3.860218615622143*^9}, {3.8602186804131947`*^9, 
   3.8602186982251263`*^9}, {3.860218808834868*^9, 3.860218811909597*^9}, {
   3.860220171569087*^9, 3.8602202011925697`*^9}, 3.860222477997163*^9, {
   3.860223401720533*^9, 3.86022341772269*^9}, 3.860223501858367*^9, {
   3.860223828151783*^9, 3.860223894070693*^9}, {3.860223928535366*^9, 
   3.860223934089285*^9}, {3.860223978460816*^9, 3.860223980092784*^9}, {
   3.86022428405302*^9, 3.860224296920547*^9}, {3.8602244141479*^9, 
   3.8602244490077887`*^9}, {3.860224688903058*^9, 3.8602247931837177`*^9}, {
   3.860225598158699*^9, 3.860225598329269*^9}, {3.860226930673759*^9, 
   3.860226935795244*^9}, {3.860226986211421*^9, 3.860226997365333*^9}, {
   3.860227120300364*^9, 3.8602271912647543`*^9}, {3.86022740448752*^9, 
   3.860227438257477*^9}, 3.860227507696493*^9, 3.860227586919176*^9, 
   3.860227669932047*^9, {3.860227939758111*^9, 3.8602279428577833`*^9}, {
   3.860228069559908*^9, 3.860228105839409*^9}, {3.860228748746233*^9, 
   3.860228753772113*^9}, {3.86022884793296*^9, 3.860228882577859*^9}, {
   3.860228967181501*^9, 3.860228968363586*^9}, {3.860229063449039*^9, 
   3.8602290879314423`*^9}, {3.860229121331485*^9, 3.86022917161091*^9}, {
   3.860229332489588*^9, 3.860229333573535*^9}, {3.860229385135828*^9, 
   3.860229425544908*^9}, {3.860229654744739*^9, 3.8602296592223253`*^9}, {
   3.860233130039051*^9, 3.860233142562756*^9}, {3.86023346024767*^9, 
   3.860233464667954*^9}, {3.860285122415093*^9, 3.860285155588696*^9}, 
   3.8603760680424814`*^9, 3.860455640188904*^9, {3.860455879218882*^9, 
   3.860455937054812*^9}, {3.860455993601866*^9, 3.86045599556004*^9}, {
   3.860456076321294*^9, 3.860456088648787*^9}, {3.860456150294819*^9, 
   3.8604561640879507`*^9}, {3.860456297862204*^9, 3.860456297941825*^9}, {
   3.860458054230884*^9, 3.8604580587206783`*^9}, {3.8604587412656803`*^9, 
   3.86045874257368*^9}, {3.8604587917008057`*^9, 3.860458808202284*^9}, {
   3.860459513324128*^9, 3.860459573490147*^9}, {3.860464221778441*^9, 
   3.860464240685156*^9}, {3.860464412369869*^9, 3.860464422429614*^9}, 
   3.860464500249593*^9, 3.860464591594919*^9, {3.860464655625136*^9, 
   3.8604646920791407`*^9}, {3.860464750560466*^9, 3.8604647619468803`*^9}, {
   3.8604648336517878`*^9, 3.86046486541317*^9}, 3.8604649298945208`*^9, {
   3.860476873020987*^9, 3.8604768753583107`*^9}, {3.86048279418967*^9, 
   3.86048279581796*^9}, {3.860482866960065*^9, 3.860482894026547*^9}, {
   3.86048444228508*^9, 3.860484444707691*^9}, {3.860562240886323*^9, 
   3.860562242345702*^9}, {3.8605623574812317`*^9, 3.860562368488749*^9}, {
   3.860562402198995*^9, 3.860562402498929*^9}, {3.860564641321744*^9, 
   3.860564641597534*^9}, {3.860564759178618*^9, 3.8605647807964897`*^9}, 
   3.8607433200167217`*^9, {3.861064028825851*^9, 3.861064174126122*^9}, {
   3.8610642185398417`*^9, 3.861064402986043*^9}, {3.861064438614457*^9, 
   3.8610644394151287`*^9}, {3.8610646669214993`*^9, 
   3.8610646685659437`*^9}, {3.8610648704557734`*^9, 
   3.8610648801158867`*^9}, {3.8610655204629183`*^9, 
   3.8610656395185223`*^9}, {3.861065691189526*^9, 3.861065691383315*^9}, {
   3.861065753792177*^9, 3.86106585496527*^9}, {3.861066008815124*^9, 
   3.86106605998641*^9}, {3.861066459471241*^9, 3.861066473011086*^9}, {
   3.8610681972460613`*^9, 3.861068222732217*^9}, 3.861068376445616*^9, {
   3.861069792734974*^9, 3.861069830441571*^9}, {3.861073783303804*^9, 
   3.861073784297456*^9}, {3.861073917638719*^9, 3.861073918047284*^9}, {
   3.861074122956951*^9, 3.8610741235149717`*^9}, {3.8610779212301207`*^9, 
   3.8610779232061577`*^9}, {3.8611757759201183`*^9, 3.861175816295718*^9}, {
   3.8611767787773533`*^9, 3.86117678628369*^9}, {3.861177579884959*^9, 
   3.861177593515799*^9}, {3.8611805143324537`*^9, 3.861180514747325*^9}, {
   3.8611874868905087`*^9, 3.861187507331943*^9}, {3.861188508748684*^9, 
   3.8611885184112253`*^9}, {3.8611955693759937`*^9, 3.861195727697332*^9}, {
   3.861199406963944*^9, 3.8611994190424337`*^9}, {3.861199451126943*^9, 
   3.861199530638987*^9}, {3.8613488934506598`*^9, 3.861348909895602*^9}, 
   3.8614130291651278`*^9, {3.861413557258045*^9, 3.861413565440425*^9}, {
   3.8614158338513527`*^9, 3.8614158747923317`*^9}, {3.861416569717813*^9, 
   3.861416571523233*^9}, 3.8614167524838552`*^9, {3.861426837117322*^9, 
   3.861426837866927*^9}, {3.861427295208181*^9, 3.861427298355741*^9}, {
   3.861539020593759*^9, 3.861539021715767*^9}, {3.861539312127049*^9, 
   3.861539322805683*^9}, {3.861596055818624*^9, 3.861596062984468*^9}, {
   3.861597113013611*^9, 3.861597138446138*^9}, {3.861597944609825*^9, 
   3.861597953191736*^9}, 3.861597998069479*^9, {3.861598151023589*^9, 
   3.861598151257847*^9}, {3.861598617925407*^9, 3.8615986180633707`*^9}, {
   3.861602582374786*^9, 3.8616025834086523`*^9}, {3.861602796137472*^9, 
   3.861602822291726*^9}, 3.861604569937421*^9, {3.861623967294018*^9, 
   3.8616239700610447`*^9}, {3.8616250872146473`*^9, 3.861625129844143*^9}, {
   3.861625197859056*^9, 3.861625210080472*^9}, {3.8616681916087637`*^9, 
   3.86166820185376*^9}, {3.861669100660719*^9, 3.861669107318418*^9}, {
   3.861670928817808*^9, 3.861670931201479*^9}, {3.861671114655267*^9, 
   3.861671160282731*^9}, {3.8616723995544558`*^9, 3.861672494596488*^9}, {
   3.8616726670374823`*^9, 3.8616727124816236`*^9}, 3.861672897010029*^9, {
   3.8616730480752287`*^9, 3.861673048632483*^9}, 3.861673094405196*^9, {
   3.8616731252371817`*^9, 3.861673141723789*^9}, {3.8616731925631113`*^9, 
   3.86167326293321*^9}, {3.861673299009275*^9, 3.861673367910596*^9}, 
   3.8616736310771103`*^9, {3.861675631634446*^9, 3.861675638436213*^9}, {
   3.861675782241973*^9, 3.861675794155408*^9}, {3.8616758958389997`*^9, 
   3.861675896477054*^9}, {3.86168461464762*^9, 3.8616846152745123`*^9}, {
   3.861684827910777*^9, 3.8616848380902033`*^9}, {3.861684940156095*^9, 
   3.8616849823234167`*^9}, {3.861685556231164*^9, 3.861685558471168*^9}, {
   3.861689006770458*^9, 3.861689078593573*^9}, {3.861689408438002*^9, 
   3.861689410816971*^9}, {3.8616953296906137`*^9, 3.8616953413672543`*^9}, {
   3.86169544275476*^9, 3.861695488637363*^9}, {3.8616955228793488`*^9, 
   3.861695525485515*^9}, {3.861695881964405*^9, 3.861696039482136*^9}, {
   3.8616961974062138`*^9, 3.861696214494916*^9}, {3.861696316918873*^9, 
   3.861696358812828*^9}, {3.861696392682376*^9, 3.8616964233570023`*^9}, {
   3.8616978596043997`*^9, 3.861697859850156*^9}, {3.861698335062518*^9, 
   3.861698342353216*^9}, {3.861708372480571*^9, 3.8617083920321093`*^9}, {
   3.861753798806817*^9, 3.861753820169071*^9}, {3.861753851677629*^9, 
   3.861754001105809*^9}, {3.861754685276383*^9, 3.8617546870402517`*^9}, {
   3.861774915797184*^9, 3.8617751331587067`*^9}, {3.861775275477346*^9, 
   3.861775426013453*^9}, {3.861775530419093*^9, 3.861775551558823*^9}, {
   3.8617755968459063`*^9, 3.8617756006801043`*^9}, {3.861780387322413*^9, 
   3.8617803927891417`*^9}, {3.861787328255629*^9, 3.861787331795238*^9}, {
   3.8618360931765003`*^9, 3.8618361135247183`*^9}, {3.86183615083785*^9, 
   3.861836247910145*^9}, {3.86183637581851*^9, 3.861836419481563*^9}, {
   3.861836904185822*^9, 3.861837109490231*^9}, {3.861838009935526*^9, 
   3.861838012610943*^9}, {3.861842952862281*^9, 3.861842955042075*^9}, {
   3.861848503081914*^9, 3.8618485062511797`*^9}, {3.8618548103639393`*^9, 
   3.861854834840377*^9}, {3.8618579295960703`*^9, 3.861857961868635*^9}, {
   3.861858018193478*^9, 3.861858052878525*^9}, {3.8618581061778708`*^9, 
   3.861858155884314*^9}, {3.8618581863832207`*^9, 3.861858189105811*^9}, {
   3.861858394643589*^9, 3.861858431968974*^9}, {3.861863688366263*^9, 
   3.86186372152837*^9}, {3.8619260860426407`*^9, 3.861926125974717*^9}, {
   3.861927719976769*^9, 3.8619277228849573`*^9}, {3.8619305265245132`*^9, 
   3.861930553605378*^9}, {3.861934396430708*^9, 3.8619344878305283`*^9}, {
   3.8619444753582773`*^9, 3.86194458173697*^9}, {3.8619452685027037`*^9, 
   3.861945272440289*^9}, {3.861946156720126*^9, 3.861946179302799*^9}, {
   3.8619505778290367`*^9, 3.861950579906802*^9}, {3.8619506152099733`*^9, 
   3.8619506157819643`*^9}, {3.8619581286583233`*^9, 
   3.8619582093303013`*^9}, {3.862051094678162*^9, 3.8620511300693417`*^9}, {
   3.8620516849685793`*^9, 3.862051685115032*^9}, {3.8620519277795486`*^9, 
   3.8620519282601557`*^9}, {3.862111035695836*^9, 3.862111037808073*^9}, {
   3.8621390725354548`*^9, 3.862139113273028*^9}, {3.862139170969646*^9, 
   3.862139186206169*^9}, {3.862139377822874*^9, 3.862139409365011*^9}, {
   3.8621394871131983`*^9, 3.8621395088804007`*^9}, {3.862140265179339*^9, 
   3.86214036477982*^9}, 3.862140436470168*^9, 3.862140538440365*^9, {
   3.862140576153571*^9, 3.862140581654482*^9}, {3.86214146280355*^9, 
   3.862141480154777*^9}, {3.862142300661442*^9, 3.862142308781681*^9}, {
   3.862142414404896*^9, 3.862142415976488*^9}, 3.862142545951351*^9, {
   3.862142705248096*^9, 3.862142706487314*^9}, {3.86214273855195*^9, 
   3.862142753871893*^9}, {3.862146161040064*^9, 3.8621462422723513`*^9}, {
   3.862146339993246*^9, 3.862146416064871*^9}, {3.8621464530149603`*^9, 
   3.862146476684523*^9}, {3.862146718955257*^9, 3.8621467407706757`*^9}, {
   3.8621469104969187`*^9, 3.8621470121174097`*^9}, {3.86214716139629*^9, 
   3.862147218212287*^9}, {3.8621475983335857`*^9, 3.8621476448942013`*^9}, {
   3.8621476835694323`*^9, 3.8621477063406878`*^9}, {3.8621478936028967`*^9, 
   3.86214796777846*^9}, {3.8621482017146482`*^9, 3.862148345403242*^9}, {
   3.862148497270735*^9, 3.862148527238975*^9}, {3.862148710178751*^9, 
   3.86214871445487*^9}, 3.86214891793777*^9, {3.862170412947249*^9, 
   3.862170427052011*^9}, {3.862172454274568*^9, 3.862172475083294*^9}, {
   3.8621727254584846`*^9, 3.862172725575307*^9}, {3.862172763191524*^9, 
   3.862172779287253*^9}, 3.86217281408665*^9, 3.862172871227024*^9, {
   3.862202893308456*^9, 3.862202898174296*^9}, {3.8622041983722143`*^9, 
   3.862204221300877*^9}, {3.862204255537795*^9, 3.862204373757313*^9}, {
   3.862204415767964*^9, 3.862204452048641*^9}, {3.8622044923826733`*^9, 
   3.862204554251829*^9}, {3.862204735462481*^9, 3.8622047773751793`*^9}, 
   3.862204814476593*^9, {3.862205074040058*^9, 3.8622051416179047`*^9}, 
   3.862222356665247*^9, 3.8622223896474667`*^9, 3.862222466824682*^9, {
   3.8622228192270927`*^9, 3.862222837094522*^9}, {3.862223877452456*^9, 
   3.862223884188869*^9}, {3.862226184176712*^9, 3.862226187706491*^9}, {
   3.862228006081016*^9, 3.8622280568392982`*^9}, 3.8622428651688843`*^9, {
   3.862243221476885*^9, 3.862243228068851*^9}, {3.8622438443451777`*^9, 
   3.8622438573925467`*^9}, {3.862244039239039*^9, 3.8622440447237997`*^9}, {
   3.862244551408627*^9, 3.8622445566255827`*^9}, {3.8622454918695087`*^9, 
   3.86224549335087*^9}, {3.862246261505794*^9, 3.8622462649581747`*^9}, {
   3.862247660255802*^9, 3.862247661960401*^9}, {3.862297194768178*^9, 
   3.862297261806366*^9}, {3.862313181025262*^9, 3.8623131906431503`*^9}, {
   3.862321535496035*^9, 3.862321569311535*^9}, {3.8623217004907103`*^9, 
   3.862321743037469*^9}, {3.862321773782977*^9, 3.8623219088091583`*^9}, {
   3.862321963948554*^9, 3.86232199257559*^9}, {3.8623220315353327`*^9, 
   3.8623220647325583`*^9}, {3.862322100365534*^9, 3.862322102397649*^9}, {
   3.862322166985574*^9, 3.86232217351335*^9}, {3.862322252139565*^9, 
   3.86232234845358*^9}, {3.862322531782146*^9, 3.86232253931851*^9}, {
   3.862322837900638*^9, 3.862322874432033*^9}, {3.8624865944340076`*^9, 
   3.862486606465146*^9}, {3.862486882993545*^9, 3.862486884288014*^9}, {
   3.862487070245331*^9, 3.862487070892701*^9}, {3.863075104790923*^9, 
   3.863075120173973*^9}, {3.863075271825234*^9, 3.8630752767600393`*^9}, {
   3.863145371693593*^9, 3.863145413650444*^9}, {3.863145444072616*^9, 
   3.8631454454151917`*^9}, {3.863148361153661*^9, 3.863148400266531*^9}, {
   3.863150206122425*^9, 3.8631502117591877`*^9}, {3.863153028820757*^9, 
   3.863153147917138*^9}, {3.863155181240074*^9, 3.863155221402049*^9}, {
   3.8631574792184143`*^9, 3.863157489992834*^9}, {3.863166079349331*^9, 
   3.863166127732184*^9}, {3.863166348768301*^9, 3.863166351715105*^9}, {
   3.863222448067152*^9, 3.863222448315186*^9}, {3.863228078827804*^9, 
   3.863228083594301*^9}, {3.863236001609524*^9, 3.863236050949092*^9}, {
   3.863237949720119*^9, 3.863237950400366*^9}, {3.8632394712764606`*^9, 
   3.863239507532659*^9}, {3.863327440230406*^9, 3.863327509661529*^9}, {
   3.863328030530488*^9, 3.863328068927957*^9}, {3.863356793316621*^9, 
   3.863356794927248*^9}, {3.863356936437751*^9, 3.8633569381756163`*^9}, {
   3.863357086754628*^9, 3.863357089082449*^9}, {3.8633573202436867`*^9, 
   3.8633573372322474`*^9}, {3.863357369195628*^9, 3.8633573796815863`*^9}, {
   3.863357493641047*^9, 3.8633574962363367`*^9}, {3.8633654472281237`*^9, 
   3.8633654523727303`*^9}, 3.8634070638401537`*^9, {3.863414041027639*^9, 
   3.863414057256003*^9}, {3.863414094331374*^9, 3.863414132079369*^9}, {
   3.863417954729272*^9, 3.863418004078779*^9}, {3.863418054459484*^9, 
   3.863418059492817*^9}, {3.863418089557406*^9, 3.8634180915539913`*^9}, {
   3.8636776888083572`*^9, 3.863677713740465*^9}, 3.864264262574586*^9, 
   3.867549011787765*^9, {3.8678476255797462`*^9, 3.867847641740012*^9}, {
   3.8678476718803253`*^9, 3.86784768178745*^9}, {3.867847724868535*^9, 
   3.8678477434138412`*^9}, {3.8678478288480263`*^9, 3.867847846682456*^9}, {
   3.8678486119482107`*^9, 3.867848627603351*^9}, 3.867972921067038*^9, {
   3.867977040917808*^9, 3.8679770436061163`*^9}, {3.8679776446709137`*^9, 
   3.867977654206362*^9}, 3.867978453599512*^9, {3.867978719403584*^9, 
   3.867978733959692*^9}, {3.867987737568203*^9, 3.867987752242115*^9}, {
   3.8679894330490217`*^9, 3.8679894334244347`*^9}, {3.86799007386418*^9, 
   3.867990075768284*^9}, {3.868001004550202*^9, 3.868001011448432*^9}, {
   3.868001280317449*^9, 3.868001290087904*^9}, {3.868332525139639*^9, 
   3.86833254951961*^9}, {3.868409301433259*^9, 3.868409302026947*^9}, {
   3.8684093333794403`*^9, 3.868409339410809*^9}, {3.8684922051471567`*^9, 
   3.868492205881434*^9}, {3.868495073347629*^9, 3.868495127643291*^9}, {
   3.868495163441225*^9, 3.8684952751197147`*^9}, 3.8684953204427423`*^9, {
   3.883206624745369*^9, 3.883206626070141*^9}, {3.883206945970776*^9, 
   3.883206947082345*^9}, {3.883207309540988*^9, 3.883207309907856*^9}, {
   3.88320734063663*^9, 3.883207340987465*^9}, {3.883470300164818*^9, 
   3.883470301008567*^9}, {3.8834710800553856`*^9, 3.8834710804402843`*^9}, {
   3.883546425849969*^9, 3.8835464526465883`*^9}, {3.8835465056048717`*^9, 
   3.883546506130947*^9}, {3.883548142999762*^9, 3.8835481437254744`*^9}, {
   3.88355668461695*^9, 3.883556688121335*^9}, {3.883557506715147*^9, 
   3.883557509129837*^9}},ExpressionUUID->"cf7c96fd-2cb1-4459-9fa8-\
c235c0656ebb"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["The Calculation (Parallelized routine over m-n space, \
serial over \[Mu] space)", "Abstract"]], "Subsection",
 CellChangeTimes->{{3.860224045473876*^9, 3.860224047225518*^9}, 
   3.860284705561998*^9, {3.861676948808226*^9, 3.861676953867208*^9}, {
   3.8621996987623777`*^9, 3.8621997003073587`*^9}, 3.8622223566649714`*^9, 
   3.8622223896473722`*^9, 3.862222466824465*^9, {3.863250059236438*^9, 
   3.863250097798524*^9}, 3.867972830526935*^9},
 FontSize->16,ExpressionUUID->"65ca2ede-3c4e-4450-aeab-1eb1c21a354d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "Specify", " ", "if", " ", "iterations", " ", "should", " ", "produces", 
    " ", "logs", " ", "during", " ", "evaluation", " ", "that", " ", "get", 
    " ", "printed", " ", "to", " ", "output"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"WatchEvaluation", " ", "=", " ", "True"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"TrackIteration", "=", "True"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"LogRun", " ", "=", " ", "True"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"SaveToDisk", "=", "True"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"OverwritePreviousSolutions", "=", "False"}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"--", 
       RowBox[{"--", 
        RowBox[{"-", " ", "Prepare"}]}]}], " ", 
      RowBox[{
       RowBox[{"logging", " ", "--"}], "--"}]}], "-"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"FileExistsQ", "[", "LogFile", "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"DeleteFile", "[", "LogFile", "]"}], ";"}]}], 
     "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"CreateFile", "[", "LogFile", "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Messenger", " ", "=", " ", 
     RowBox[{"Row", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"ProgressIndicator", "[", 
         RowBox[{"Appearance", "->", "\"\<Percolate\>\""}], "]"}], ",", " ", 
        "\"\<Executing Parameter space iteration\>\""}], "}"}], "]"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{"Dynamic", "[", "Messenger", "]"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"--", 
       RowBox[{"--", 
        RowBox[{"-", " ", "Setup"}]}]}], " ", 
      RowBox[{
       RowBox[{"Parallelization", " ", "--"}], "--"}]}], "-"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"CloseKernels", "[", "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"TrueQ", "[", 
       RowBox[{"NumberofSlaveKernels", "==", "Automatic"}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"LaunchKernels", "[", 
        RowBox[{"Min", "[", 
         RowBox[{"$ProcessorCount", ",", 
          RowBox[{
           FractionBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Last", "@", 
               RowBox[{"parameters", "[", "\"\<\[Chi]range\>\"", "]"}]}], " ",
               "-", " ", 
              RowBox[{"First", "@", 
               RowBox[{"parameters", "[", "\"\<\[Chi]range\>\"", "]"}]}], " ",
               "+", " ", "1"}], ")"}], 
            RowBox[{"parameters", "[", "\"\<\[Chi]res\>\"", "]"}]], "*", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"Last", "@", 
              RowBox[{"parameters", "[", "\"\<mrange\>\"", "]"}]}], " ", "-", 
             " ", 
             RowBox[{"First", "@", 
              RowBox[{"parameters", "[", "\"\<mrange\>\"", "]"}]}], " ", "+", 
             " ", "1"}], ")"}], "*", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"Last", "@", 
              RowBox[{"parameters", "[", "\"\<nrange\>\"", "]"}]}], " ", "-", 
             " ", 
             RowBox[{"First", "@", 
              RowBox[{"parameters", "[", "\"\<nrange\>\"", "]"}]}], " ", "+", 
             " ", "1"}], ")"}]}]}], "]"}], "]"}], ";"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"LaunchKernels", "[", "NumberofSlaveKernels", "]"}], ";"}]}], 
     "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"DistributeDefinitions", "[", 
     RowBox[{
     "parameters", ",", " ", "WorkerFunction", ",", "$SolutionPath", ",", 
      "$FKKSRoot"}], "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ParallelEvaluate", "[", 
     RowBox[{"Import", "[", 
      RowBox[{"$FKKSRoot", "<>", "\"\<Packages/KerrWithProca.wl\>\""}], "]"}],
      "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Setup", " ", "parallelized", " ", "watcher"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"KernelsRule", " ", "=", " ", 
     RowBox[{"ParallelTable", "[", 
      RowBox[{
       RowBox[{"$KernelID", "->", "i"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"i", ",", "$KernelCount"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"CurrentParameterPoint", " ", "=", " ", 
     RowBox[{"ConstantArray", "[", 
      RowBox[{"0", ",", " ", "$KernelCount"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"CurrentResult", " ", "=", " ", 
     RowBox[{"ConstantArray", "[", 
      RowBox[{"0", ",", " ", "$KernelCount"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"SetSharedVariable", "[", 
     RowBox[{
     "KernelsRule", ",", " ", "CurrentParameterPoint", ",", "CurrentResult"}],
      "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"PrintTemporary", "@", 
     RowBox[{"Dynamic", "[", 
      RowBox[{"CurrentParameterPoint", "//", "Column"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"PrintTemporary", "@", 
     RowBox[{"Dynamic", "[", 
      RowBox[{"CurrentResult", "//", "Row"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "Turn", " ", "off", " ", "irrelevant", " ", "error", " ", "messages"}], 
    "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Off", "[", 
     StyleBox[
      RowBox[{"ClebschGordan", "::", "phy"}], "MessageName"], 
     StyleBox["]", "MessageName"]}], 
    StyleBox[";", "MessageName"], 
    RowBox[{"ParallelEvaluate", "[", 
     RowBox[{"Off", "[", 
      StyleBox[
       RowBox[{"ClebschGordan", "::", "phy"}], "MessageName"], 
      StyleBox["]", "MessageName"]}], "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Off", "[", 
     RowBox[{"NMinimize", "::", "nnum"}], "]"}], ";", 
    RowBox[{"ParallelEvaluate", "[", 
     RowBox[{"Off", "[", 
      RowBox[{"NMinimize", "::", "nnum"}], "]"}], "]"}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"--", 
       RowBox[{"--", 
        RowBox[{"-", " ", "Execute"}]}]}], " ", "Parallelized", " ", 
      RowBox[{
       RowBox[{"Iterations", " ", "--"}], "--"}]}], "-"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"runStartTime", " ", "=", " ", 
     RowBox[{"AbsoluteTime", "[", "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(", 
    RowBox[{"Evaluators", " ", "=", " ", 
     RowBox[{"Flatten", "@", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"ParallelSubmit", "[", 
         RowBox[{
          RowBox[{"{", "\[Chi]v", "}"}], ",", 
          RowBox[{"WorkerFunction", "[", 
           RowBox[{
            RowBox[{"Rationalize", "[", "\[Chi]v", "]"}], ",", "parameters", 
            ",", "LogFile", ",", " ", 
            RowBox[{
            "OverwritePrevious", " ", "->", " ", 
             "OverwritePreviousSolutions"}]}], "]"}]}], "]"}], ",", " ", 
        "\[IndentingNewLine]", "\t\t\t", 
        RowBox[{"{", 
         RowBox[{"\[Chi]v", ",", " ", 
          RowBox[{
           RowBox[{"parameters", "[", "\"\<\[Chi]range\>\"", "]"}], "//", 
           "First"}], ",", " ", 
          RowBox[{
           RowBox[{"parameters", "[", "\"\<\[Chi]range\>\"", "]"}], "//", 
           "Last"}], ",", " ", 
          RowBox[{"parameters", "[", "\"\<\[Chi]res\>\"", "]"}]}], "}"}]}], 
       "\[IndentingNewLine]", "\t\t\t", "]"}]}]}], ")"}], 
   "\[IndentingNewLine]", 
   RowBox[{"WaitAll", "[", "Evaluators", "]"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"runEndTime", "=", 
     RowBox[{"AbsoluteTime", "[", "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Messenger", "=", 
     RowBox[{"Style", "[", 
      RowBox[{
       RowBox[{"\"\<Finished! Total Time: \>\"", "<>", 
        RowBox[{"ToString", "[", 
         RowBox[{
          RowBox[{"N", "@", 
           FractionBox[
            RowBox[{"Round", "[", 
             RowBox[{"runEndTime", "-", "runStartTime"}], "]"}], "60"]}], ",",
           " ", "InputForm"}], "]"}], "<>", "\"\< Minutes\>\""}], ",", "Blue",
        ",", " ", "Italic", ",", " ", "24"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Clean", " ", "up"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"CloseKernels", "[", "]"}], ";"}]}]}]], "Input",
 PageWidth:>Infinity,
 CellChangeTimes->{{3.860218071935429*^9, 3.860218129753003*^9}, {
   3.8602182014582872`*^9, 3.860218235873823*^9}, {3.8602184532856073`*^9, 
   3.8602184674659567`*^9}, {3.860218514815071*^9, 3.860218538429093*^9}, {
   3.860218613449876*^9, 3.860218615622143*^9}, {3.8602186804131947`*^9, 
   3.8602186982251263`*^9}, {3.860218808834868*^9, 3.860218811909597*^9}, {
   3.860220171569087*^9, 3.8602202011925697`*^9}, 3.860222477997163*^9, {
   3.860223401720533*^9, 3.86022341772269*^9}, 3.860223501858367*^9, {
   3.860223828151783*^9, 3.860223894070693*^9}, {3.860223928535366*^9, 
   3.860223934089285*^9}, {3.860223978460816*^9, 3.860223980092784*^9}, {
   3.86022428405302*^9, 3.860224296920547*^9}, {3.8602244141479*^9, 
   3.8602244490077887`*^9}, {3.860224688903058*^9, 3.8602247931837177`*^9}, {
   3.860225598158699*^9, 3.860225598329269*^9}, {3.860226930673759*^9, 
   3.860226935795244*^9}, {3.860226986211421*^9, 3.860226997365333*^9}, {
   3.860227120300364*^9, 3.8602271912647543`*^9}, {3.86022740448752*^9, 
   3.860227438257477*^9}, 3.860227507696493*^9, 3.860227586919176*^9, 
   3.860227669932047*^9, {3.860227939758111*^9, 3.8602279428577833`*^9}, {
   3.860228069559908*^9, 3.860228105839409*^9}, {3.860228748746233*^9, 
   3.860228753772113*^9}, {3.86022884793296*^9, 3.860228882577859*^9}, {
   3.860228967181501*^9, 3.860228968363586*^9}, {3.860229063449039*^9, 
   3.8602290879314423`*^9}, {3.860229121331485*^9, 3.86022917161091*^9}, {
   3.860229332489588*^9, 3.860229333573535*^9}, {3.860229385135828*^9, 
   3.860229425544908*^9}, {3.860229654744739*^9, 3.8602296592223253`*^9}, {
   3.860233130039051*^9, 3.860233142562756*^9}, {3.86023346024767*^9, 
   3.860233464667954*^9}, {3.860285122415093*^9, 3.860285155588696*^9}, 
   3.8603760680424814`*^9, 3.860455640188904*^9, {3.860455879218882*^9, 
   3.860455937054812*^9}, {3.860455993601866*^9, 3.86045599556004*^9}, {
   3.860456076321294*^9, 3.860456088648787*^9}, {3.860456150294819*^9, 
   3.8604561640879507`*^9}, {3.860456297862204*^9, 3.860456297941825*^9}, {
   3.860458054230884*^9, 3.8604580587206783`*^9}, {3.8604587412656803`*^9, 
   3.86045874257368*^9}, {3.8604587917008057`*^9, 3.860458808202284*^9}, {
   3.860459513324128*^9, 3.860459573490147*^9}, {3.860464221778441*^9, 
   3.860464240685156*^9}, {3.860464412369869*^9, 3.860464422429614*^9}, 
   3.860464500249593*^9, 3.860464591594919*^9, {3.860464655625136*^9, 
   3.8604646920791407`*^9}, {3.860464750560466*^9, 3.8604647619468803`*^9}, {
   3.8604648336517878`*^9, 3.86046486541317*^9}, 3.8604649298945208`*^9, {
   3.860476873020987*^9, 3.8604768753583107`*^9}, {3.86048279418967*^9, 
   3.86048279581796*^9}, {3.860482866960065*^9, 3.860482894026547*^9}, {
   3.86048444228508*^9, 3.860484444707691*^9}, {3.860562240886323*^9, 
   3.860562242345702*^9}, {3.8605623574812317`*^9, 3.860562368488749*^9}, {
   3.860562402198995*^9, 3.860562402498929*^9}, {3.860564641321744*^9, 
   3.860564641597534*^9}, {3.860564759178618*^9, 3.8605647807964897`*^9}, 
   3.8607433200167217`*^9, {3.861064028825851*^9, 3.861064174126122*^9}, {
   3.8610642185398417`*^9, 3.861064402986043*^9}, {3.861064438614457*^9, 
   3.8610644394151287`*^9}, {3.8610646669214993`*^9, 
   3.8610646685659437`*^9}, {3.8610648704557734`*^9, 
   3.8610648801158867`*^9}, {3.8610655204629183`*^9, 
   3.8610656395185223`*^9}, {3.861065691189526*^9, 3.861065691383315*^9}, {
   3.861065753792177*^9, 3.86106585496527*^9}, {3.861066008815124*^9, 
   3.86106605998641*^9}, {3.861066459471241*^9, 3.861066473011086*^9}, {
   3.8610681972460613`*^9, 3.861068222732217*^9}, 3.861068376445616*^9, {
   3.861069792734974*^9, 3.861069830441571*^9}, {3.861073783303804*^9, 
   3.861073784297456*^9}, {3.861073917638719*^9, 3.861073918047284*^9}, {
   3.861074122956951*^9, 3.8610741235149717`*^9}, {3.8610779212301207`*^9, 
   3.8610779232061577`*^9}, {3.8611757759201183`*^9, 3.861175816295718*^9}, {
   3.8611767787773533`*^9, 3.86117678628369*^9}, {3.861177579884959*^9, 
   3.861177593515799*^9}, {3.8611805143324537`*^9, 3.861180514747325*^9}, {
   3.8611874868905087`*^9, 3.861187507331943*^9}, {3.861188508748684*^9, 
   3.8611885184112253`*^9}, {3.8611955693759937`*^9, 3.861195727697332*^9}, {
   3.861199406963944*^9, 3.8611994190424337`*^9}, {3.861199451126943*^9, 
   3.861199530638987*^9}, {3.8613488934506598`*^9, 3.861348909895602*^9}, 
   3.8614130291651278`*^9, {3.861413557258045*^9, 3.861413565440425*^9}, {
   3.8614158338513527`*^9, 3.8614158747923317`*^9}, {3.861416569717813*^9, 
   3.861416571523233*^9}, 3.8614167524838552`*^9, {3.861426837117322*^9, 
   3.861426837866927*^9}, {3.861427295208181*^9, 3.861427298355741*^9}, {
   3.861539020593759*^9, 3.861539021715767*^9}, {3.861539312127049*^9, 
   3.861539322805683*^9}, {3.861596055818624*^9, 3.861596062984468*^9}, {
   3.861597113013611*^9, 3.861597138446138*^9}, {3.861597944609825*^9, 
   3.861597953191736*^9}, 3.861597998069479*^9, {3.861598151023589*^9, 
   3.861598151257847*^9}, {3.861598617925407*^9, 3.8615986180633707`*^9}, {
   3.861602582374786*^9, 3.8616025834086523`*^9}, {3.861602796137472*^9, 
   3.861602822291726*^9}, 3.861604569937421*^9, {3.861623967294018*^9, 
   3.8616239700610447`*^9}, {3.8616250872146473`*^9, 3.861625129844143*^9}, {
   3.861625197859056*^9, 3.861625210080472*^9}, {3.8616681916087637`*^9, 
   3.86166820185376*^9}, {3.861669100660719*^9, 3.861669107318418*^9}, {
   3.861670928817808*^9, 3.861670931201479*^9}, {3.861671114655267*^9, 
   3.861671160282731*^9}, {3.8616723995544558`*^9, 3.861672494596488*^9}, {
   3.8616726670374823`*^9, 3.8616727124816236`*^9}, 3.861672897010029*^9, {
   3.8616730480752287`*^9, 3.861673048632483*^9}, 3.861673094405196*^9, {
   3.8616731252371817`*^9, 3.861673141723789*^9}, {3.8616731925631113`*^9, 
   3.86167326293321*^9}, {3.861673299009275*^9, 3.861673367910596*^9}, 
   3.8616736310771103`*^9, {3.861675631634446*^9, 3.861675638436213*^9}, {
   3.861675782241973*^9, 3.861675794155408*^9}, {3.8616758958389997`*^9, 
   3.861675896477054*^9}, {3.86168461464762*^9, 3.8616846152745123`*^9}, {
   3.861684827910777*^9, 3.8616848380902033`*^9}, {3.861684940156095*^9, 
   3.8616849823234167`*^9}, {3.861685556231164*^9, 3.861685558471168*^9}, {
   3.861689006770458*^9, 3.861689078593573*^9}, {3.861689408438002*^9, 
   3.861689410816971*^9}, {3.8616953296906137`*^9, 3.8616953413672543`*^9}, {
   3.86169544275476*^9, 3.861695488637363*^9}, {3.8616955228793488`*^9, 
   3.861695525485515*^9}, {3.861695881964405*^9, 3.861696039482136*^9}, {
   3.8616961974062138`*^9, 3.861696214494916*^9}, {3.861696316918873*^9, 
   3.861696358812828*^9}, {3.861696392682376*^9, 3.8616964233570023`*^9}, {
   3.8616978596043997`*^9, 3.861697859850156*^9}, {3.861698335062518*^9, 
   3.861698342353216*^9}, {3.861708372480571*^9, 3.8617083920321093`*^9}, {
   3.861753798806817*^9, 3.861753820169071*^9}, {3.861753851677629*^9, 
   3.861754001105809*^9}, {3.861754685276383*^9, 3.8617546870402517`*^9}, {
   3.861774915797184*^9, 3.8617751331587067`*^9}, {3.861775275477346*^9, 
   3.861775426013453*^9}, {3.861775530419093*^9, 3.861775551558823*^9}, {
   3.8617755968459063`*^9, 3.8617756006801043`*^9}, {3.861780387322413*^9, 
   3.8617803927891417`*^9}, {3.861787328255629*^9, 3.861787331795238*^9}, {
   3.8618360931765003`*^9, 3.8618361135247183`*^9}, {3.86183615083785*^9, 
   3.861836247910145*^9}, {3.86183637581851*^9, 3.861836419481563*^9}, {
   3.861836904185822*^9, 3.861837109490231*^9}, {3.861838009935526*^9, 
   3.861838012610943*^9}, {3.861842952862281*^9, 3.861842955042075*^9}, {
   3.861848503081914*^9, 3.8618485062511797`*^9}, {3.8618548103639393`*^9, 
   3.861854834840377*^9}, {3.8618579295960703`*^9, 3.861857961868635*^9}, {
   3.861858018193478*^9, 3.861858052878525*^9}, {3.8618581061778708`*^9, 
   3.861858155884314*^9}, {3.8618581863832207`*^9, 3.861858189105811*^9}, {
   3.861858394643589*^9, 3.861858431968974*^9}, {3.861863688366263*^9, 
   3.86186372152837*^9}, {3.8619260860426407`*^9, 3.861926125974717*^9}, {
   3.861927719976769*^9, 3.8619277228849573`*^9}, {3.8619305265245132`*^9, 
   3.861930553605378*^9}, {3.861934396430708*^9, 3.8619344878305283`*^9}, {
   3.8619444753582773`*^9, 3.86194458173697*^9}, {3.8619452685027037`*^9, 
   3.861945272440289*^9}, {3.861946156720126*^9, 3.861946179302799*^9}, {
   3.8619505778290367`*^9, 3.861950579906802*^9}, {3.8619506152099733`*^9, 
   3.8619506157819643`*^9}, {3.8619581286583233`*^9, 
   3.8619582093303013`*^9}, {3.862051094678162*^9, 3.8620511300693417`*^9}, {
   3.8620516849685793`*^9, 3.862051685115032*^9}, {3.8620519277795486`*^9, 
   3.8620519282601557`*^9}, {3.862111035695836*^9, 3.862111037808073*^9}, {
   3.8621390725354548`*^9, 3.862139113273028*^9}, {3.862139170969646*^9, 
   3.862139186206169*^9}, {3.862139377822874*^9, 3.862139409365011*^9}, {
   3.8621394871131983`*^9, 3.8621395088804007`*^9}, {3.862140265179339*^9, 
   3.86214036477982*^9}, 3.862140436470168*^9, 3.862140538440365*^9, {
   3.862140576153571*^9, 3.862140581654482*^9}, {3.86214146280355*^9, 
   3.862141480154777*^9}, {3.862142300661442*^9, 3.862142308781681*^9}, {
   3.862142414404896*^9, 3.862142415976488*^9}, 3.862142545951351*^9, {
   3.862142705248096*^9, 3.862142706487314*^9}, {3.86214273855195*^9, 
   3.862142753871893*^9}, {3.862146161040064*^9, 3.8621462422723513`*^9}, {
   3.862146339993246*^9, 3.862146416064871*^9}, {3.8621464530149603`*^9, 
   3.862146476684523*^9}, {3.862146718955257*^9, 3.8621467407706757`*^9}, {
   3.8621469104969187`*^9, 3.8621470121174097`*^9}, {3.86214716139629*^9, 
   3.862147218212287*^9}, {3.8621475983335857`*^9, 3.8621476448942013`*^9}, {
   3.8621476835694323`*^9, 3.8621477063406878`*^9}, {3.8621478936028967`*^9, 
   3.86214796777846*^9}, {3.8621482017146482`*^9, 3.862148345403242*^9}, {
   3.862148497270735*^9, 3.862148527238975*^9}, {3.862148710178751*^9, 
   3.86214871445487*^9}, 3.86214891793777*^9, {3.862170412947249*^9, 
   3.862170427052011*^9}, {3.862172454274568*^9, 3.862172475083294*^9}, {
   3.8621727254584846`*^9, 3.862172725575307*^9}, {3.862172763191524*^9, 
   3.862172779287253*^9}, 3.86217281408665*^9, 3.862172871227024*^9, {
   3.862202893308456*^9, 3.862202898174296*^9}, {3.8622041983722143`*^9, 
   3.862204221300877*^9}, {3.862204255537795*^9, 3.862204373757313*^9}, {
   3.862204415767964*^9, 3.862204452048641*^9}, {3.8622044923826733`*^9, 
   3.862204554251829*^9}, {3.862204735462481*^9, 3.8622047773751793`*^9}, 
   3.862204814476593*^9, {3.862205074040058*^9, 3.8622051416179047`*^9}, 
   3.862222356665247*^9, 3.8622223896474667`*^9, 3.862222466824682*^9, {
   3.8622228192270927`*^9, 3.862222837094522*^9}, {3.862223877452456*^9, 
   3.862223884188869*^9}, {3.862226184176712*^9, 3.862226187706491*^9}, {
   3.862228006081016*^9, 3.8622280568392982`*^9}, 3.8622428651688843`*^9, {
   3.862243221476885*^9, 3.862243228068851*^9}, {3.8622438443451777`*^9, 
   3.8622438573925467`*^9}, {3.862244039239039*^9, 3.8622440447237997`*^9}, {
   3.862244551408627*^9, 3.8622445566255827`*^9}, {3.8622454918695087`*^9, 
   3.86224549335087*^9}, {3.862246261505794*^9, 3.8622462649581747`*^9}, {
   3.862247660255802*^9, 3.862247661960401*^9}, {3.862297194768178*^9, 
   3.862297261806366*^9}, {3.862313181025262*^9, 3.8623131906431503`*^9}, {
   3.862321535496035*^9, 3.862321569311535*^9}, {3.8623217004907103`*^9, 
   3.862321743037469*^9}, {3.862321773782977*^9, 3.8623219088091583`*^9}, {
   3.862321963948554*^9, 3.86232199257559*^9}, {3.8623220315353327`*^9, 
   3.8623220647325583`*^9}, {3.862322100365534*^9, 3.862322102397649*^9}, {
   3.862322166985574*^9, 3.86232217351335*^9}, {3.862322252139565*^9, 
   3.86232234845358*^9}, {3.862322531782146*^9, 3.86232253931851*^9}, {
   3.862322837900638*^9, 3.862322874432033*^9}, {3.8624865944340076`*^9, 
   3.862486606465146*^9}, {3.862486882993545*^9, 3.862486884288014*^9}, {
   3.862487070245331*^9, 3.862487070892701*^9}, {3.863223864586584*^9, 
   3.863224047990267*^9}, {3.8632240790423937`*^9, 3.8632240796836557`*^9}, {
   3.863224130394554*^9, 3.863224208843101*^9}, {3.863224243494918*^9, 
   3.863224354168298*^9}, {3.863224419296102*^9, 3.863224489793606*^9}, 
   3.8632249110170107`*^9, {3.863224942443657*^9, 3.863224974362039*^9}, {
   3.863225065100862*^9, 3.8632251004147377`*^9}, {3.8632257471700907`*^9, 
   3.863225755211791*^9}, {3.863225821149938*^9, 3.8632259309128323`*^9}, {
   3.863226108732707*^9, 3.863226121938992*^9}, {3.863226181379362*^9, 
   3.863226231807206*^9}, {3.8632262996972303`*^9, 3.863226358611054*^9}, 
   3.863226453520253*^9, {3.863226493881365*^9, 3.8632265286807423`*^9}, {
   3.8632269617535057`*^9, 3.8632271557055473`*^9}, {3.863236122151928*^9, 
   3.8632361260391397`*^9}, {3.86323642908633*^9, 3.8632364407658253`*^9}, {
   3.863237135292055*^9, 3.863237166704392*^9}, {3.863247126874173*^9, 
   3.863247127825644*^9}, {3.863248133739979*^9, 3.8632484121737337`*^9}, 
   3.863269670805814*^9, {3.8633132161197166`*^9, 3.8633133985680447`*^9}, {
   3.86331343464882*^9, 3.863313463775867*^9}, {3.863314311535776*^9, 
   3.8633143246353083`*^9}, {3.863317305489273*^9, 3.8633174327246723`*^9}, {
   3.863365466644932*^9, 3.863365469587306*^9}, {3.8633655929821653`*^9, 
   3.863365643012149*^9}, {3.8633657897030907`*^9, 3.863365816932727*^9}, {
   3.8633676900614653`*^9, 3.863367690561839*^9}, {3.863406865442212*^9, 
   3.863406867021865*^9}, 3.8634324778662148`*^9, {3.863432551858769*^9, 
   3.8634325528739767`*^9}, {3.863433113754377*^9, 3.863433138168206*^9}, {
   3.863439588092175*^9, 3.863439590598789*^9}, {3.863485714711351*^9, 
   3.8634857270414553`*^9}, {3.863507704964795*^9, 3.863507764567943*^9}, {
   3.863567335598165*^9, 3.8635673359698877`*^9}, {3.863677627457718*^9, 
   3.863677657580221*^9}, {3.8637426011779757`*^9, 3.863742601489278*^9}, {
   3.864198714049328*^9, 3.864198795478853*^9}, {3.864199627707446*^9, 
   3.86419962997858*^9}, {3.8642576307614117`*^9, 3.864257631941186*^9}, 
   3.864264273223247*^9, {3.867548988440027*^9, 3.867548988444059*^9}, {
   3.8678414863063507`*^9, 3.867841486684473*^9}, {3.867841568305182*^9, 
   3.867841580103458*^9}, {3.867841670190611*^9, 3.8678417254023237`*^9}, {
   3.867847758182901*^9, 3.8678477699621058`*^9}, {3.8678509773152647`*^9, 
   3.867850990367594*^9}, {3.867851097217211*^9, 3.867851100623987*^9}, {
   3.8678517017319603`*^9, 3.8678517027031393`*^9}, {3.8678517624604673`*^9, 
   3.8678517672120867`*^9}, {3.867852350941918*^9, 3.867852352228747*^9}, 
   3.867900175402791*^9, 3.867900320760133*^9, {3.867922024947173*^9, 
   3.867922025348239*^9}, 3.867922090561597*^9, {3.867922180155077*^9, 
   3.867922200835054*^9}, {3.8679372587730207`*^9, 3.8679372663021193`*^9}, {
   3.867937315486479*^9, 3.867937321677486*^9}, {3.867937352092514*^9, 
   3.8679373928529043`*^9}, {3.867937424084188*^9, 3.867937453891058*^9}, {
   3.8679374859849367`*^9, 3.867937609945511*^9}, {3.8679729634470253`*^9, 
   3.867972974800158*^9}, {3.867973166641494*^9, 3.867973171317254*^9}, {
   3.867988203202816*^9, 3.867988219803647*^9}, {3.8680044538873167`*^9, 
   3.8680044593563023`*^9}, {3.868004603412876*^9, 3.86800460434538*^9}, {
   3.8680046548580847`*^9, 3.8680046556220903`*^9}, {3.883495743983397*^9, 
   3.88349574434439*^9}, {3.883495798194345*^9, 3.883495855718889*^9}, {
   3.883639807046739*^9, 3.8836398091224117`*^9}, {3.8836399696631527`*^9, 
   3.883639982247225*^9}, {3.883640062698758*^9, 3.883640063488881*^9}, 
   3.8836403036709833`*^9, {3.883643077432197*^9, 3.8836430781236153`*^9}},
 CellLabel->"In[48]:=",ExpressionUUID->"42f8a604-ae9a-4065-9966-d42107d60481"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Analyzing the solutions", "Section",
 CellChangeTimes->{{3.867375855598752*^9, 
  3.867375858589342*^9}},ExpressionUUID->"0f0159d4-aae5-4778-ad0f-\
df114d41c87d"],

Cell[CellGroupData[{

Cell["Import Data", "Subsection",
 CellChangeTimes->{{3.867375867270616*^9, 
  3.8673758688015747`*^9}},ExpressionUUID->"2ef3a4d8-28fa-47e4-a320-\
f4193f419f5a"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"AllProcaSolutions", " ", "=", " ", 
   RowBox[{"getResults", "[", "$SolutionPath", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Mu]OrderingIndex", " ", "=", " ", 
   RowBox[{"Ordering", "@", 
    RowBox[{"AllProcaSolutions", "[", 
     RowBox[{"[", 
      RowBox[{
      "All", ",", " ", "\"\<Parameters\>\"", ",", " ", "\"\<\[Mu]Nv\>\""}], 
      "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"AllProcaSolutions", " ", "=", " ", 
    RowBox[{"AllProcaSolutions", "[", 
     RowBox[{"[", "\[Mu]OrderingIndex", "]"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Omega]values", " ", "=", " ", 
   RowBox[{"AllProcaSolutions", "[", 
    RowBox[{"[", 
     RowBox[{
     "All", ",", " ", "\"\<Solution\>\"", ",", " ", "\"\<\[Omega]\>\""}], 
     "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Nu]values", " ", "=", " ", 
   RowBox[{"AllProcaSolutions", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", " ", "\"\<Solution\>\"", ",", " ", "\"\<\[Nu]\>\""}],
      "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Mu]values", " ", "=", " ", 
   RowBox[{"AllProcaSolutions", "[", 
    RowBox[{"[", 
     RowBox[{
     "All", ",", " ", "\"\<Parameters\>\"", ",", " ", "\"\<\[Mu]Nv\>\""}], 
     "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"mvalues", " ", "=", " ", 
   RowBox[{"AllProcaSolutions", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", " ", "\"\<Parameters\>\"", ",", " ", "\"\<m\>\""}], 
     "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nvalues", " ", "=", " ", 
   RowBox[{"AllProcaSolutions", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", " ", "\"\<Parameters\>\"", ",", " ", "\"\<n\>\""}], 
     "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"angularcoeffs", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"C", "[", "i", "]"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"i", ",", "0", ",", "4"}], "}"}]}], "]"}], "/.", "#"}], 
     "&"}], "/@", 
    RowBox[{"AllProcaSolutions", "[", 
     RowBox[{"[", 
      RowBox[{
      "All", ",", " ", "\"\<Solution\>\"", ",", 
       "\"\<AngularKernelVector\>\""}], "]"}], "]"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.867375910374372*^9, 3.867375942519999*^9}, 
   3.867548988451167*^9, {3.8683292866573772`*^9, 3.868329300160684*^9}},
 CellLabel->
  "In[274]:=",ExpressionUUID->"f2ba615f-113b-48fc-8d83-653055ff1a8b"]
}, Closed]],

Cell[CellGroupData[{

Cell["Plot Data", "Subsection",
 CellChangeTimes->{{3.867376010910434*^9, 
  3.867376012281042*^9}},ExpressionUUID->"f972d1d7-bd5c-4ef6-8ac2-\
b353ef509d74"],

Cell[CellGroupData[{

Cell[TextData[{
 "                ",
 Cell[BoxData[
  FormBox[
   FractionBox[
    SubscriptBox["\[Omega]", "R"], "\[Mu]"], TraditionalForm]],ExpressionUUID->
  "e2d4627c-473c-4b9b-a4b3-975f3a139da1"],
 " vs \[Mu]"
}], "Subsubsection",
 CellChangeTimes->{
  3.8622308766661997`*^9, {3.862265748137693*^9, 3.862265756940606*^9}, {
   3.8630721988458853`*^9, 
   3.86307219944993*^9}},ExpressionUUID->"2b1d7e6f-dcee-4621-b5dc-\
146ec7010549"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"nmin", " ", "=", " ", "0"}], ";", " ", 
  RowBox[{"nmax", " ", "=", "  ", "4"}], ";", " ", 
  RowBox[{"mmin", "=", " ", "1"}], ";", " ", 
  RowBox[{"mmax", "=", " ", "4"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DataCollection", " ", "=", " ", 
   RowBox[{"Association", "@@", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Table", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"\[Omega]vs", " ", "=", " ", 
           RowBox[{
            RowBox[{"OvertoneModeGroup", "[", 
             RowBox[{"ni", ",", "mi", ",", " ", "AllProcaSolutions"}], "]"}], 
            "[", 
            RowBox[{"[", 
             RowBox[{
             "All", ",", " ", "\"\<Solution\>\"", ",", " ", 
              "\"\<\[Omega]\>\""}], "]"}], "]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"\[Mu]vs", " ", "=", " ", 
           RowBox[{
            RowBox[{"OvertoneModeGroup", "[", 
             RowBox[{"ni", ",", "mi", ",", "AllProcaSolutions"}], "]"}], "[", 
            
            RowBox[{"[", 
             RowBox[{
             "All", ",", " ", "\"\<Parameters\>\"", ",", " ", 
              "\"\<\[Mu]Nv\>\""}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"\"\<n\>\"", "<>", 
            RowBox[{"ToString", "[", "ni", "]"}], "<>", "\"\<m\>\"", "<>", 
            RowBox[{"ToString", "[", "mi", "]"}]}], "\[Rule]", " ", 
           RowBox[{"Thread", "[", 
            RowBox[{"{", 
             RowBox[{"\[Mu]vs", ",", " ", 
              FractionBox[
               RowBox[{"Re", "@", "\[Omega]vs"}], "\[Mu]vs"]}], "}"}], 
            "]"}]}]}], "\[IndentingNewLine]", ")"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"ni", ",", " ", "nmin", ",", "nmax"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"mi", ",", " ", "mmin", ",", "mmax"}], "}"}]}], "]"}], "//", 
      
      RowBox[{
       RowBox[{"Flatten", "[", 
        RowBox[{"#", ",", "1"}], "]"}], "&"}]}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"OmegaRMuRelativePlots", " ", "=", " ", 
  RowBox[{"Row", "[", 
   RowBox[{"Flatten", "@", 
    RowBox[{"{", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Table", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"ListPlot", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"DataCollection", "[", 
             RowBox[{"\"\<n\>\"", "<>", 
              RowBox[{"ToString", "[", "i", "]"}], "<>", "\"\<m\>\"", "<>", 
              RowBox[{"ToString", "[", "\[CapitalMu]", "]"}]}], "]"}], ",", 
            " ", 
            RowBox[{"{", 
             RowBox[{"i", ",", " ", "nmin", ",", " ", "nmax"}], "}"}]}], 
           "]"}], ",", " ", "\[IndentingNewLine]", 
          RowBox[{"ImageSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"500", ",", "350"}], "}"}]}], ",", " ", 
          "\[IndentingNewLine]", 
          RowBox[{"PlotLabels", "\[Rule]", 
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{"\"\<n=\>\"", "<>", 
              RowBox[{"ToString", "[", "i", "]"}], "<>", "\"\<  m=\>\"", "<>", 
              RowBox[{"ToString", "[", "\[CapitalMu]", "]"}]}], ",", "  ", 
             RowBox[{"{", 
              RowBox[{"i", ",", " ", "nmin", ",", "nmax"}], "}"}]}], "]"}]}], 
          ",", "\[IndentingNewLine]", 
          RowBox[{"PlotRange", "\[Rule]", "All"}], ",", "\[IndentingNewLine]", 
          RowBox[{"Frame", "\[Rule]", " ", "True"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"FrameLabel", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{
            "\"\<\!\(\*SubscriptBox[\(\[Mu]\), \(N\)]\)\>\"", ",", " ", 
             "None"}], "}"}]}], ",", "\[IndentingNewLine]", 
          RowBox[{"Epilog", "\[Rule]", 
           RowBox[{"Inset", "[", 
            RowBox[{
             RowBox[{"Framed", "@", 
              RowBox[{"Style", "[", 
               RowBox[{
               "\"\<\!\(\*FractionBox[SubscriptBox[\(\[Omega]\), \(real\)], \
\(\[Mu]\)]\)\>\"", ",", "20"}], "]"}]}], ",", " ", 
             RowBox[{"{", 
              RowBox[{"0.1", ",", "Center"}], "}"}]}], "]"}]}]}], 
         "\[IndentingNewLine]", "]"}], ",", " ", "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"\[CapitalMu]", ",", " ", "mmin", ",", "mmax"}], "}"}]}], 
       "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"ListPlot", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"DataCollection", "[", 
            RowBox[{"\"\<n0m\>\"", "<>", 
             RowBox[{"ToString", "[", "i", "]"}]}], "]"}], ",", " ", 
           RowBox[{"{", 
            RowBox[{"i", ",", " ", "mmin", ",", "mmax"}], "}"}]}], "]"}], "//", 
         RowBox[{
          RowBox[{"Select", "[", 
           RowBox[{"#", ",", " ", 
            RowBox[{
             RowBox[{"Not", "[", 
              RowBox[{"EmptyQ", "[", "#", "]"}], "]"}], "&"}]}], "]"}], 
          "&"}]}], ",", "\[IndentingNewLine]", " ", 
        RowBox[{"ImageSize", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"500", ",", "350"}], "}"}]}], ",", " ", 
        "\[IndentingNewLine]", 
        RowBox[{"PlotLabels", "\[Rule]", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"\"\<n=\>\"", "<>", 
            RowBox[{"ToString", "[", "0", "]"}], "<>", "\"\<  m=\>\"", "<>", 
            RowBox[{"ToString", "[", "i", "]"}]}], ",", "  ", 
           RowBox[{"{", 
            RowBox[{"i", ",", " ", "mmin", ",", " ", "mmax"}], "}"}]}], 
          "]"}]}], ",", "\[IndentingNewLine]", 
        RowBox[{"PlotRange", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               FractionBox["\[Omega]values", "\[Mu]values"], "//", "Re"}], "//",
               "Min"}], ")"}], "-", "0.05"}], ",", "1."}], "}"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Frame", "\[Rule]", " ", "True"}], ",", "\[IndentingNewLine]", 
        RowBox[{"FrameLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
          "\"\<\!\(\*SubscriptBox[\(\[Mu]\), \(N\)]\)\>\"", ",", " ", 
           "None"}], "}"}]}], ",", "\[IndentingNewLine]", 
        RowBox[{"Epilog", "\[Rule]", 
         RowBox[{"Inset", "[", 
          RowBox[{
           RowBox[{"Framed", "@", 
            RowBox[{"Style", "[", 
             RowBox[{
             "\"\<\!\(\*FractionBox[SubscriptBox[\(\[Omega]\), \(real\)], \(\
\[Mu]\)]\)\>\"", ",", "20"}], "]"}]}], ",", " ", 
           RowBox[{"{", 
            RowBox[{"0.1", ",", "Center"}], "}"}]}], "]"}]}]}], 
       "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"ListLinePlot", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"Flatten", "[", 
          RowBox[{
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{"DataCollection", "[", 
              RowBox[{"\"\<n\>\"", "<>", 
               RowBox[{"ToString", "[", "j", "]"}], "<>", "\"\<m\>\"", "<>", 
               RowBox[{"ToString", "[", "i", "]"}]}], "]"}], ",", " ", 
             RowBox[{"{", 
              RowBox[{"i", ",", " ", "mmin", ",", "mmax"}], "}"}], ",", " ", 
             RowBox[{"{", 
              RowBox[{"j", ",", " ", "nmin", ",", " ", "nmax"}], "}"}]}], 
            "]"}], ",", "1"}], "]"}], "//", 
         RowBox[{
          RowBox[{"Select", "[", 
           RowBox[{"#", ",", " ", 
            RowBox[{
             RowBox[{"Not", "[", 
              RowBox[{"EmptyQ", "[", "#", "]"}], "]"}], "&"}]}], "]"}], 
          "&"}]}], ",", "\[IndentingNewLine]", " ", 
        RowBox[{"ImageSize", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"500", ",", "350"}], "}"}]}], ",", " ", 
        "\[IndentingNewLine]", 
        RowBox[{"PlotLabels", "\[Rule]", 
         RowBox[{"Flatten", "[", 
          RowBox[{
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{"\"\<n=\>\"", "<>", 
              RowBox[{"ToString", "[", "j", "]"}], "<>", "\"\<  m=\>\"", "<>", 
              RowBox[{"ToString", "[", "i", "]"}]}], ",", "  ", 
             RowBox[{"{", 
              RowBox[{"i", ",", " ", "mmin", ",", " ", "mmax"}], "}"}], ",", 
             " ", 
             RowBox[{"{", 
              RowBox[{"j", ",", "nmin", ",", " ", "nmax"}], "}"}]}], "]"}], 
           ",", "1"}], "]"}]}], ",", "\[IndentingNewLine]", 
        RowBox[{"PlotRange", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               FractionBox["\[Omega]values", "\[Mu]values"], "//", "Re"}], "//",
               "Min"}], ")"}], "-", "0.05"}], ",", "1."}], "}"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Frame", "\[Rule]", " ", "True"}], ",", "\[IndentingNewLine]", 
        RowBox[{"FrameLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
          "\"\<\!\(\*SubscriptBox[\(\[Mu]\), \(N\)]\)\>\"", ",", " ", 
           "None"}], "}"}]}], ",", "\[IndentingNewLine]", 
        RowBox[{"Epilog", "\[Rule]", 
         RowBox[{"Inset", "[", 
          RowBox[{
           RowBox[{"Framed", "@", 
            RowBox[{"Style", "[", 
             RowBox[{
             "\"\<\!\(\*FractionBox[SubscriptBox[\(\[Omega]\), \(real\)], \(\
\[Mu]\)]\)\>\"", ",", "20"}], "]"}]}], ",", " ", 
           RowBox[{"{", 
            RowBox[{"0.1", ",", "Center"}], "}"}]}], "]"}]}]}], 
       "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "}"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{
    "PlotPath", "<>", "\"\<OmegaRMuRelative\>\"", "<>", "PlotFileExtension"}],
     ",", " ", "OmegaRMuRelativePlots"}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.861838277683825*^9, 3.861838304428774*^9}, {
   3.8618383852388277`*^9, 3.8618384295260773`*^9}, {3.861838480734024*^9, 
   3.861838505082623*^9}, {3.861838560473899*^9, 3.861838701685602*^9}, 
   3.862222365887404*^9, {3.8622656131254873`*^9, 3.862265731858061*^9}, {
   3.8622658233214684`*^9, 3.8622659685030212`*^9}, {3.8622660056069193`*^9, 
   3.862266026236923*^9}, {3.8622660763319483`*^9, 3.862266395225721*^9}, {
   3.8622664420955067`*^9, 3.862266624594511*^9}, {3.862266663612136*^9, 
   3.862266673397606*^9}, {3.862266805492919*^9, 3.862266805729545*^9}, 
   3.862291874056851*^9, 3.8622928427969418`*^9, {3.8622958429756517`*^9, 
   3.862295843921451*^9}, {3.862296394052499*^9, 3.862296396394062*^9}, {
   3.862342687532233*^9, 3.862342702487673*^9}, {3.862342820538952*^9, 
   3.862342823569874*^9}, 3.8624853811394997`*^9, {3.862485465125153*^9, 
   3.862485487488717*^9}, {3.86307206115058*^9, 3.863072064694254*^9}, {
   3.863072258675548*^9, 3.863072262948688*^9}, {3.863072452200657*^9, 
   3.8630724554727173`*^9}, 3.863074962252742*^9, {3.863490029935831*^9, 
   3.863490056101831*^9}, {3.863490091438938*^9, 3.863490131394615*^9}, 
   3.8634901673312283`*^9, 3.863650366032467*^9, 3.863674673919244*^9, {
   3.868329470592298*^9, 3.868329474851144*^9}, {3.868403818520522*^9, 
   3.8684038306767406`*^9}, {3.868671439836314*^9, 3.868671440241493*^9}},
 CellLabel->
  "In[287]:=",ExpressionUUID->"0e9013f5-13f5-4ef4-b734-509d2323fcd8"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "                ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Omega]", "I"], TraditionalForm]],ExpressionUUID->
  "b9d1f9b2-69ea-42f2-adcd-e2ec5eff4f39"],
 " vs \[Mu]"
}], "Subsubsection",
 CellChangeTimes->{
  3.8622308766661997`*^9, {3.862265748137693*^9, 3.862265756940606*^9}, {
   3.863072193922454*^9, 3.8630722023234777`*^9}, {3.8630750333712807`*^9, 
   3.8630750353872623`*^9}},ExpressionUUID->"12d3a0bb-5ece-4d8d-85f3-\
6ce0001e769a"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"nmin", " ", "=", " ", "0"}], ";", " ", 
  RowBox[{"nmax", " ", "=", "  ", "4"}], ";", " ", 
  RowBox[{"mmin", "=", " ", "1"}], ";", " ", 
  RowBox[{"mmax", "=", " ", "4"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"DataCollection", " ", "=", " ", 
    RowBox[{"Association", "@@", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Table", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"\[Omega]vs", " ", "=", " ", 
            RowBox[{
             RowBox[{"OvertoneModeGroup", "[", 
              RowBox[{"ni", ",", "mi", ",", "AllProcaSolutions"}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{
              "All", ",", " ", "\"\<Solution\>\"", ",", " ", 
               "\"\<\[Omega]\>\""}], "]"}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"\[Mu]vs", " ", "=", " ", 
            RowBox[{
             RowBox[{"OvertoneModeGroup", "[", 
              RowBox[{"ni", ",", "mi", ",", "AllProcaSolutions"}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{
              "All", ",", " ", "\"\<Parameters\>\"", ",", " ", 
               "\"\<\[Mu]Nv\>\""}], "]"}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"\"\<n\>\"", "<>", 
             RowBox[{"ToString", "[", "ni", "]"}], "<>", "\"\<m\>\"", "<>", 
             RowBox[{"ToString", "[", "mi", "]"}]}], "\[Rule]", " ", 
            RowBox[{"Thread", "[", 
             RowBox[{"{", 
              RowBox[{"\[Mu]vs", ",", " ", 
               RowBox[{"Im", "@", "\[Omega]vs"}]}], "}"}], "]"}]}]}], 
          "\[IndentingNewLine]", ")"}], ",", " ", 
         RowBox[{"{", 
          RowBox[{"ni", ",", " ", "nmin", ",", "nmax"}], "}"}], ",", " ", 
         RowBox[{"{", 
          RowBox[{"mi", ",", " ", "mmin", ",", "mmax"}], "}"}]}], "]"}], "//", 
       RowBox[{
        RowBox[{"Flatten", "[", 
         RowBox[{"#", ",", "1"}], "]"}], "&"}]}], ")"}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"OmegaIMuPlots", " ", "=", " ", 
  RowBox[{"Row", "@", 
   RowBox[{"Table", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"ListLogPlot", "[", 
      RowBox[{
       RowBox[{"KeySelect", "[", 
        RowBox[{"DataCollection", ",", " ", 
         RowBox[{"StringContainsQ", "[", 
          RowBox[{"\"\<m\>\"", "<>", 
           RowBox[{"ToString", "[", "\[CapitalMu]", "]"}]}], "]"}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", "\[IndentingNewLine]", 
       
       RowBox[{"AxesLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
         "\"\<\[Mu]\>\"", ",", " ", 
          "\"\<\!\(\*SubscriptBox[\(M\[Omega]\), \(I\)]\)\>\""}], "}"}]}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Epilog", "\[Rule]", 
        RowBox[{"Inset", "[", 
         RowBox[{
          RowBox[{"Framed", "[", 
           RowBox[{"Style", "[", 
            RowBox[{
            "\"\<\!\(\*SubscriptBox[\(\[Omega]\), \(I\)]\)\>\"", ",", " ", 
             "Black", ",", " ", "32"}], "]"}], "]"}], ",", " ", 
          RowBox[{"{", 
           RowBox[{"0.25", ",", " ", "Automatic"}], "}"}]}], "]"}]}]}], 
      "\[IndentingNewLine]", "]"}], ",", " ", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\[CapitalMu]", ",", " ", "mmin", ",", "mmax"}], "}"}]}], 
    "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{"PlotPath", "<>", "\"\<OmegaIMu\>\"", "<>", "PlotFileExtension"}],
     ",", " ", "OmegaIMuPlots"}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.863072249250345*^9, 3.8630722517046757`*^9}, {
   3.8630723972115297`*^9, 3.863072397564781*^9}, {3.863072428958448*^9, 
   3.863072429498588*^9}, 3.863072523056204*^9, {3.863072569048457*^9, 
   3.863072617590886*^9}, {3.863072808327079*^9, 3.8630728379498463`*^9}, {
   3.863074910921196*^9, 3.8630749882512217`*^9}, {3.863406948013164*^9, 
   3.8634069702687063`*^9}, 3.863490178198011*^9, 3.863490231353195*^9, 
   3.86365038682017*^9, {3.8636747031415043`*^9, 3.8636747209814796`*^9}, {
   3.8636748040277843`*^9, 3.8636748092104187`*^9}, 3.8636748420962048`*^9, {
   3.868061676965394*^9, 3.86806167717153*^9}, {3.868329512606966*^9, 
   3.868329514912904*^9}, 3.868403856035654*^9},
 CellLabel->
  "In[291]:=",ExpressionUUID->"f044434d-7393-4784-9bbb-b2afdad14b32"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.863072431159972*^9, 3.863072432132847*^9}, {
  3.86307252853654*^9, 
  3.863072557718277*^9}},ExpressionUUID->"ba0d9ba9-e471-4b4e-a4b5-\
cb518f35eb56"]
}, Closed]],

Cell[CellGroupData[{

Cell["                Angular Matrix Kernel Vector", "Subsubsection",
 CellChangeTimes->{
  3.8622308766661997`*^9, {3.862265748137693*^9, 3.862265756940606*^9}, {
   3.8622986636549788`*^9, 
   3.862298676713861*^9}},ExpressionUUID->"b8311731-8dce-48b3-8eb3-\
12408408a25c"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"AngularCoeffPlot", " ", "=", " ", 
   RowBox[{"ListLinePlot", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"angularcoeffs", "//", "Abs"}], "//", "Log10"}], ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<Index\>\"", ",", " ", 
        "\"\<Log(\!\(\*SubscriptBox[\(C\), \(i\)]\))\>\""}], "}"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"RotateLabel", "\[Rule]", "False"}], ",", "\[IndentingNewLine]", 
     
     RowBox[{"FrameTicks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Automatic", ",", "None"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Table", "[", 
           RowBox[{"i", ",", " ", 
            RowBox[{"{", 
             RowBox[{"i", ",", "1", ",", " ", 
              RowBox[{"Length", "@", 
               RowBox[{"angularcoeffs", "[", 
                RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}]}], "]"}], ",", " ", 
          "Automatic"}], "}"}]}], "}"}]}], ",", " ", "\[IndentingNewLine]", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", " ", "All"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"All", ",", "All"}], "}"}]}], "}"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"Inset", "[", 
       RowBox[{
        RowBox[{"Framed", "[", 
         RowBox[{"Style", "[", 
          RowBox[{
          "\"\<Angular Matrix Kernel Coefficients\>\"", ",", " ", "Black"}], 
          "]"}], "]"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"1.7", ",", " ", 
          RowBox[{"-", "15"}]}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{
    "PlotPath", "<>", "\"\<AngularMatrixKernelVector\>\"", "<>", 
     "PlotFileExtension"}], ",", " ", "AngularCoeffPlot"}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.862297531786174*^9, 3.862297648646707*^9}, {
   3.8622977011531353`*^9, 3.8622977195173407`*^9}, {3.862297842735515*^9, 
   3.862297845331727*^9}, {3.8622979088153963`*^9, 3.862298015669243*^9}, {
   3.8622981495040216`*^9, 3.862298256361257*^9}, {3.862298291157267*^9, 
   3.8622983591794767`*^9}, {3.862298421717045*^9, 3.862298443116496*^9}, {
   3.8622984986639547`*^9, 3.862298607060782*^9}, {3.862342933193986*^9, 
   3.862342938696267*^9}, 3.8634902507438*^9},
 CellLabel->
  "In[295]:=",ExpressionUUID->"993e5d16-caae-46cd-8607-b80059ab54ab"]
}, Closed]],

Cell[CellGroupData[{

Cell["                Angular Function", "Subsubsection",
 CellChangeTimes->{
  3.8622308766661997`*^9, {3.862265748137693*^9, 3.862265756940606*^9}, {
   3.8622986636549788`*^9, 3.862298676713861*^9}, {3.862303416374349*^9, 
   3.862303418282565*^9}},ExpressionUUID->"9627d492-1f6c-48bc-9267-\
65adcc75042f"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   StyleBox["ParallelDo",
    FontSize->14], "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"func", " ", "=", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"AllProcaSolutions", "//", 
         RowBox[{
          RowBox[{"Select", "[", 
           RowBox[{"#", ",", " ", 
            RowBox[{
             RowBox[{
              RowBox[{"#", "[", 
               RowBox[{"\"\<Parameters\>\"", ",", " ", "\"\<m\>\""}], "]"}], 
              "\[Equal]", "i"}], "&"}]}], "]"}], "&"}]}], ")"}], "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", " ", "\"\<Solution\>\"", ",", " ", "\"\<S\>\""}], 
        "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"funcMax", " ", "=", " ", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"#", "[", 
              FractionBox["\[Pi]", "2"], "]"}], "&"}], "/@", "func"}], ")"}], 
          "//", "Re"}], "//", "Max"}], "//", "N"}], "//", 
       RowBox[{
        RowBox[{"SetPrecision", "[", 
         RowBox[{"#", ",", "6"}], "]"}], "&"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"funcMin", " ", "=", " ", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"#", "[", 
              FractionBox["\[Pi]", "2"], "]"}], "&"}], "/@", "func"}], ")"}], 
          "//", "Re"}], "//", "Min"}], "//", "N"}], "//", 
       RowBox[{
        RowBox[{"SetPrecision", "[", 
         RowBox[{"#", ",", "6"}], "]"}], "&"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"funcAngularPlot", " ", "=", " ", 
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"func", "[", 
             RowBox[{"[", "i", "]"}], "]"}], "[", "\[Theta]", "]"}], ",", " ", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{"Length", "@", "func"}]}], "}"}]}], "]"}], "//", "Re"}], 
        ",", " ", 
        RowBox[{"{", 
         RowBox[{"\[Theta]", ",", "0", ",", "\[Pi]"}], "}"}], ",", " ", 
        "\[IndentingNewLine]", "\t\t\t\t\t", 
        RowBox[{"PlotLabel", "\[Rule]", " ", "\"\<S(\[Theta])\>\""}], ",", 
        "\[IndentingNewLine]", "\t\t\t\t\t", 
        RowBox[{"Ticks", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", " ", 
             FractionBox["\[Pi]", "2"], ",", " ", "\[Pi]"}], "}"}], ",", " ", 
           "Automatic"}], "}"}]}], ",", "\[IndentingNewLine]", "\t\t\t\t\t", 
        RowBox[{"AxesLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"\"\<\[Theta]\>\"", ",", " ", "Automatic"}], "}"}]}], ",", 
        "\[IndentingNewLine]", "\t\t\t\t\t", 
        RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", "\[IndentingNewLine]",
         "\t\t\t\t\t", 
        RowBox[{"Epilog", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Inset", "[", "\[IndentingNewLine]", "\t\t\t\t\t\t\t\t", 
            RowBox[{
             RowBox[{"Plot", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"Table", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"func", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "[", "\[Theta]", "]"}], 
                  ",", " ", 
                  RowBox[{"{", 
                   RowBox[{"i", ",", "1", ",", 
                    RowBox[{"Length", "@", "func"}]}], "}"}]}], "]"}], "//", 
                "Re"}], ",", "\[IndentingNewLine]", "\t\t\t\t\t\t\t\t\t ", 
               RowBox[{"{", 
                RowBox[{"\[Theta]", ",", 
                 RowBox[{
                  FractionBox["999", "2000"], "\[Pi]"}], ",", " ", 
                 RowBox[{
                  FractionBox["1001", "2000"], "*", "\[Pi]"}]}], "}"}], ",", 
               "\[IndentingNewLine]", "\t\t\t\t\t\t\t\t\t ", 
               RowBox[{"Frame", "\[Rule]", "True"}], ",", 
               "\[IndentingNewLine]", "\t\t\t\t\t\t\t\t\t ", 
               RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
               "\[IndentingNewLine]", "\t\t\t\t\t\t\t\t\t", 
               RowBox[{"ImageSize", "\[Rule]", "Small"}], ",", 
               "\[IndentingNewLine]", "\t\t\t\t\t\t\t\t\t", 
               RowBox[{"FrameTicks", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{"funcMin", ",", " ", "funcMax"}], "}"}], ",", " ",
                     "None"}], "}"}], ",", " ", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    FractionBox["999", "2000"], "\[Pi]"}], ",", " ", 
                    RowBox[{
                    FractionBox["1001", "2000"], "*", "\[Pi]"}]}], "}"}], ",",
                     " ", "None"}], "}"}]}], "}"}]}]}], "\[IndentingNewLine]",
               "\t\t\t\t\t\t\t\t\t", "]"}], ",", "\[IndentingNewLine]", 
             "\t\t\t\t\t\t\t\t ", 
             RowBox[{"{", 
              RowBox[{"Center", ",", " ", 
               FractionBox["funcMax", "2"]}], "}"}]}], "]"}], ",", 
           "\[IndentingNewLine]", "\t\t\t\t\t\t\t", 
           RowBox[{"Circle", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               FractionBox["\[Pi]", "2"], ",", " ", "funcMax"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               FractionBox[
                FractionBox["\[Pi]", "2"], "18"], ",", " ", "0.02"}], "}"}]}],
             "]"}], ",", "\[IndentingNewLine]", "\t\t\t\t\t\t\t", 
           RowBox[{"Arrow", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                FractionBox["\[Pi]", "2"], ",", " ", 
                RowBox[{
                 RowBox[{"Sign", "[", "funcMax", "]"}], "*", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"funcMax", "//", "Abs"}], ")"}], " ", "-", 
                   "0.02"}], ")"}]}]}], "}"}], ",", " ", 
              RowBox[{"{", 
               RowBox[{
                FractionBox["\[Pi]", "2"], ",", 
                RowBox[{
                 RowBox[{"Sign", "[", "funcMax", "]"}], "*", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"funcMax", "//", "Abs"}], ")"}], " ", "-", 
                   "0.1"}], ")"}]}]}], "}"}]}], "}"}], "]"}]}], 
          "\[IndentingNewLine]", "\t\t\t\t\t\t\t", "}"}]}]}], 
       "\[IndentingNewLine]", "\t\t\t\t\t", "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"Export", "[", 
      RowBox[{
       RowBox[{"PlotPath", "<>", "\"\<AngularFuncm\>\"", "<>", 
        RowBox[{"ToString", "[", "i", "]"}], "<>", "PlotFileExtension"}], ",",
        " ", "funcAngularPlot"}], "]"}]}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"i", ",", 
      RowBox[{"Min", "[", "mvalues", "]"}], ",", " ", 
      RowBox[{"Max", "[", "mvalues", "]"}]}], "}"}]}], "\[IndentingNewLine]", 
   "]"}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.862299024677194*^9, 3.8622990716979227`*^9}, {
   3.86229912794062*^9, 3.862299211467621*^9}, {3.862299260533495*^9, 
   3.862299322100532*^9}, {3.862299509883308*^9, 3.862299548497334*^9}, {
   3.862299836427539*^9, 3.862299854619482*^9}, {3.8622999561206007`*^9, 
   3.8623000514225492`*^9}, {3.8623000997569103`*^9, 3.862300173778702*^9}, {
   3.862300218158839*^9, 3.862300275410446*^9}, {3.862300334554634*^9, 
   3.862300338697877*^9}, {3.86230047764511*^9, 3.862300518697529*^9}, {
   3.8623007239589567`*^9, 3.8623007388385477`*^9}, {3.862300796500863*^9, 
   3.862300804213533*^9}, {3.862300868793663*^9, 3.862300871212267*^9}, {
   3.8623009082125587`*^9, 3.862300915799781*^9}, {3.862300992830956*^9, 
   3.8623010237395887`*^9}, {3.8623010738903112`*^9, 3.862301135893158*^9}, {
   3.8623012017595673`*^9, 3.8623012029845867`*^9}, {3.862301298863329*^9, 
   3.862301327213069*^9}, {3.8623013619633102`*^9, 3.8623014119570637`*^9}, {
   3.8623014524979067`*^9, 3.8623016249620333`*^9}, {3.8623017085168552`*^9, 
   3.86230171329723*^9}, {3.8623019117322197`*^9, 3.86230211426606*^9}, {
   3.862302626966*^9, 3.862302637763466*^9}, {3.862302671434236*^9, 
   3.862302703542778*^9}, {3.862302767811048*^9, 3.862302774890416*^9}, {
   3.86230281622298*^9, 3.8623028167076063`*^9}, {3.862302872428513*^9, 
   3.862302978232568*^9}, {3.862303020550366*^9, 3.862303052197612*^9}, 
   3.862303134731495*^9, {3.862303225171434*^9, 3.862303249618239*^9}, {
   3.8623033060038157`*^9, 3.862303307540555*^9}, {3.8630629189563723`*^9, 
   3.863062928263524*^9}, {3.863490259009941*^9, 3.863490261308242*^9}, {
   3.863490330888914*^9, 3.863490373061301*^9}, {3.863490421419014*^9, 
   3.863490453389407*^9}, {3.8680611889431877`*^9, 3.868061207710903*^9}, {
   3.868061423506879*^9, 3.8680614520873528`*^9}, {3.868671796414193*^9, 
   3.868671816337984*^9}, {3.868671855772584*^9, 3.868671911203999*^9}, 
   3.868672316319468*^9, {3.86867236802242*^9, 3.868672377313987*^9}},
 CellLabel->
  "In[315]:=",ExpressionUUID->"a457ea1a-a38a-4b6a-ac86-37cd9dca030a"]
}, Closed]],

Cell[CellGroupData[{

Cell["                Radial Function", "Subsubsection",
 CellChangeTimes->{
  3.8622308766661997`*^9, {3.862265748137693*^9, 3.862265756940606*^9}, {
   3.8622986636549788`*^9, 3.862298676713861*^9}, {3.862303416374349*^9, 
   3.862303418282565*^9}, {3.862307324750525*^9, 
   3.862307325321187*^9}},ExpressionUUID->"bf93cd77-8b54-49e3-bd60-\
976f39019417"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"sample", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Select", "[", 
         RowBox[{
          RowBox[{"OvertoneModeGroup", "[", 
           RowBox[{"i", ",", "2", ",", " ", "AllProcaSolutions"}], "]"}], ",",
           " ", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"#", "[", "\"\<Parameters\>\"", "]"}], "[", 
             "\"\<\[Mu]Nv\>\"", "]"}], "\[Equal]", 
            FractionBox["17", "100"]}], "&"}]}], "]"}], "//", "First"}], 
       ")"}], "[", 
      RowBox[{"\"\<Solution\>\"", ",", "\"\<R\>\""}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"Min", "[", "nvalues", "]"}], ",", " ", 
       RowBox[{"Max", "[", "nvalues", "]"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"RadialPlots", " ", "=", " ", 
  RowBox[{"Row", "[", "\[IndentingNewLine]", "\t\t", 
   RowBox[{
    RowBox[{
     RowBox[{"Table", "[", "\[IndentingNewLine]", "\t\t", 
      RowBox[{
       RowBox[{"LogLinearPlot", "[", "\[IndentingNewLine]", "\t\t\t", 
        RowBox[{
         RowBox[{"Callout", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"sample", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "[", "r", "]"}], "//", "Abs"}], 
           ",", "\[IndentingNewLine]", "\t\t\t\t       ", 
           RowBox[{"\"\<n=\>\"", "<>", 
            RowBox[{"ToString", "[", 
             RowBox[{
              RowBox[{"Sort", "[", 
               RowBox[{"DeleteDuplicates", "[", "nvalues", "]"}], "]"}], "[", 
              
              RowBox[{"[", "i", "]"}], "]"}], "]"}]}], ",", " ", 
           "\[IndentingNewLine]", "\t\t\t\t\t", "Above"}], 
          "\[IndentingNewLine]", "\t\t\t\t", "]"}], ",", 
         "\[IndentingNewLine]", "\t\t\t", 
         RowBox[{"{", 
          RowBox[{"r", ",", "10", ",", " ", 
           RowBox[{
            RowBox[{
             RowBox[{"sample", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "[", "\"\<Domain\>\"", "]"}], "//",
             "Max"}]}], "}"}], ",", " ", "\[IndentingNewLine]", "\t\t\t", 
         RowBox[{"PlotRange", "\[Rule]", "All"}], ",", "\[IndentingNewLine]", 
         "\t\t\t", 
         RowBox[{"PlotStyle", "\[Rule]", "Black"}], ",", 
         "\[IndentingNewLine]", "\t\t\t", 
         RowBox[{"ImageSize", "\[Rule]", "Medium"}], ",", 
         "\[IndentingNewLine]", "\t\t\t", 
         RowBox[{"PlotLabel", "\[Rule]", "\"\<R(x)\>\""}], ",", 
         "\[IndentingNewLine]", "\t\t\t", 
         RowBox[{"Frame", "\[Rule]", " ", "True"}], ",", 
         "\[IndentingNewLine]", "\t\t\t", 
         RowBox[{"FrameLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"\"\<x\>\"", ",", " ", "None"}], "}"}]}], ",", 
         "\[IndentingNewLine]", "\t\t\t", 
         RowBox[{"PlotTheme", "\[Rule]", "\"\<Scientific\>\""}]}], 
        "\[IndentingNewLine]", "\t\t\t", "]"}], ",", " ", 
       "\[IndentingNewLine]", "\t\t", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", " ", 
         RowBox[{"Length", "@", "sample"}]}], "}"}]}], "\[IndentingNewLine]", 
      "\t\t", "]"}], "//", 
     RowBox[{
      RowBox[{"Append", "[", 
       RowBox[{"#", ",", 
        RowBox[{"Graphics", "[", 
         RowBox[{
          RowBox[{"Text", "[", 
           RowBox[{"Framed", "[", 
            RowBox[{
             RowBox[{"Style", "[", 
              RowBox[{
              "\"\<\[Mu]Nv=\!\(\*FractionBox[\(17\), \(100\)]\)\\n m = 2\>\"",
                ",", "15"}], "]"}], ",", " ", 
             RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "]"}], "]"}], ",", 
          " ", 
          RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "]"}]}], "]"}], 
      "&"}]}], ",", " ", "\[IndentingNewLine]", 
    RowBox[{"Spacer", "[", "2", "]"}]}], "\[IndentingNewLine]", 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{
    "PlotPath", "<>", "\"\<RadialSamples\>\"", "<>", "PlotFileExtension"}], 
    ",", " ", "RadialPlots"}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.8623038929039593`*^9, 3.862303974404997*^9}, {
   3.862304013882452*^9, 3.862304212095402*^9}, {3.862304269188553*^9, 
   3.862304328468195*^9}, {3.86230436133567*^9, 3.8623044182269363`*^9}, {
   3.862304468540114*^9, 3.862304468668899*^9}, {3.862304725630622*^9, 
   3.8623048235460453`*^9}, {3.862304865672968*^9, 3.862304910808628*^9}, {
   3.862305008803503*^9, 3.862305025115796*^9}, {3.862305089748184*^9, 
   3.8623051293557167`*^9}, {3.862305193379418*^9, 3.862305255819038*^9}, {
   3.862305300692031*^9, 3.862305364430644*^9}, {3.862305394432897*^9, 
   3.862305421462701*^9}, {3.8623054866441927`*^9, 3.862305624104205*^9}, {
   3.862305678469154*^9, 3.862305813106329*^9}, {3.8623058778160543`*^9, 
   3.8623060299184504`*^9}, {3.862306076120028*^9, 3.862306093401374*^9}, {
   3.862306128458613*^9, 3.862306193990457*^9}, {3.862306300567438*^9, 
   3.862306314665207*^9}, {3.86230638603928*^9, 3.8623064948903027`*^9}, {
   3.8623065386712914`*^9, 3.862306552808022*^9}, {3.862307125208356*^9, 
   3.862307142330264*^9}, {3.862307247601983*^9, 3.86230726124083*^9}, {
   3.862343088675358*^9, 3.862343151352265*^9}, {3.863491729002091*^9, 
   3.8634917719168177`*^9}, {3.868061488764113*^9, 3.8680615136862993`*^9}, 
   3.868403924292145*^9, {3.8686729685575857`*^9, 3.8686729823482*^9}, {
   3.8686730632257843`*^9, 3.8686730747486067`*^9}},
 CellLabel->
  "In[334]:=",ExpressionUUID->"d285c069-b263-41aa-bedb-5472ab7728e2"]
}, Closed]]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Black Hole Evolution", "Chapter",
 CellChangeTimes->{{3.8673806383736057`*^9, 
  3.8673806407750807`*^9}},ExpressionUUID->"b6ad402b-a606-42fe-80b9-\
907a1bd7ddee"],

Cell[CellGroupData[{

Cell["Sample Data", "Section",
 CellChangeTimes->{{3.867376313687027*^9, 
  3.867376329509112*^9}},ExpressionUUID->"b2232ef9-8ebe-40b2-86a8-\
1b75ec4d4d02"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"SampleSolutionSets", " ", "=", " ", 
    RowBox[{"{", "\[IndentingNewLine]", "\t\t\t\t\t", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"\"\<m\>\"", ",", "1"}], "}"}], ",", " ", 
         RowBox[{"{", 
          RowBox[{"\"\<n\>\"", ",", "0"}], "}"}], ",", " ", 
         RowBox[{"{", 
          RowBox[{"\"\<\[Mu]Nv\>\"", ",", " ", "\"\<1_4\>\""}], "}"}]}], 
        "}"}], ",", "\[IndentingNewLine]", "\t\t\t\t\t", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"\"\<m\>\"", ",", "1"}], "}"}], ",", " ", 
         RowBox[{"{", 
          RowBox[{"\"\<n\>\"", ",", "0"}], "}"}], ",", " ", 
         RowBox[{"{", 
          RowBox[{"\"\<\[Mu]Nv\>\"", ",", " ", "\"\<13_50\>\""}], "}"}]}], 
        "}"}], ",", "\[IndentingNewLine]", "\t\t\t\t\t", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"\"\<m\>\"", ",", "1"}], "}"}], ",", " ", 
         RowBox[{"{", 
          RowBox[{"\"\<n\>\"", ",", "0"}], "}"}], ",", " ", 
         RowBox[{"{", 
          RowBox[{"\"\<\[Mu]Nv\>\"", ",", " ", "\"\<27_100\>\""}], "}"}]}], 
        "}"}], ",", "\[IndentingNewLine]", "\t\t\t\t\t", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"\"\<m\>\"", ",", "1"}], "}"}], ",", " ", 
         RowBox[{"{", 
          RowBox[{"\"\<n\>\"", ",", "0"}], "}"}], ",", " ", 
         RowBox[{"{", 
          RowBox[{"\"\<\[Mu]Nv\>\"", ",", " ", "\"\<7_25\>\""}], "}"}]}], 
        "}"}], ",", "\[IndentingNewLine]", "\t\t\t\t\t", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"\"\<m\>\"", ",", "1"}], "}"}], ",", " ", 
         RowBox[{"{", 
          RowBox[{"\"\<n\>\"", ",", "0"}], "}"}], ",", " ", 
         RowBox[{"{", 
          RowBox[{"\"\<\[Mu]Nv\>\"", ",", " ", "\"\<29_100\>\""}], "}"}]}], 
        "}"}], ","}], "*)"}], "\[IndentingNewLine]", "\t\t\t\t\t", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\"\<m\>\"", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\"\<n\>\"", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\"\<\[Mu]Nv\>\"", ",", "\"\<3_10\>\""}], "}"}]}], "}"}], 
     "\[IndentingNewLine]", "\t\t\t\t", "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SampleData", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"First", "[", 
      RowBox[{"getResults", "[", 
       RowBox[{"$SolutionPath", ",", "#"}], "]"}], "]"}], "&"}], "/@", 
    "SampleSolutionSets"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.8673807083533382`*^9, 3.867380754352996*^9}, {
   3.86738085224306*^9, 3.867381004099524*^9}, {3.8673812485612373`*^9, 
   3.867381253184318*^9}, 3.8673890277824783`*^9, 3.86740097314485*^9, 
   3.867548988462461*^9, 3.867549356070084*^9, {3.867549522743676*^9, 
   3.867549528541643*^9}, {3.867549571998876*^9, 3.867549588773261*^9}, {
   3.8675496889343853`*^9, 3.867549698780707*^9}, 3.867550074267935*^9, 
   3.867550222726726*^9, {3.867987848759081*^9, 3.867987880735622*^9}, {
   3.868063456744988*^9, 3.868063471497113*^9}, {3.868063532268065*^9, 
   3.8680635533221693`*^9}, 3.868430571140168*^9, {3.868430888153367*^9, 
   3.868431020023121*^9}, {3.8684324289262323`*^9, 3.868432429249434*^9}, {
   3.868673749622188*^9, 3.868673796662228*^9}, {3.868677427768177*^9, 
   3.868677428367323*^9}, {3.870063835982286*^9, 3.870063840007394*^9}, {
   3.8702419002578583`*^9, 3.8702419021611223`*^9}, {3.8702434151914787`*^9, 
   3.87024341677255*^9}, {3.87025089865197*^9, 3.8702509080363503`*^9}, {
   3.870250959523102*^9, 3.87025098700727*^9}, {3.8703308956664877`*^9, 
   3.8703309224395733`*^9}, {3.870414101422653*^9, 3.870414122980062*^9}, {
   3.8730300172290287`*^9, 3.873030018736574*^9}, {3.873087001506556*^9, 
   3.873087024299909*^9}, {3.8730877596071453`*^9, 3.873087774769904*^9}, {
   3.874050515168895*^9, 3.874050535366046*^9}, {3.874055685030798*^9, 
   3.874055737415606*^9}, {3.87515627927076*^9, 3.87515628244847*^9}},
 CellLabel->"In[66]:=",ExpressionUUID->"a8b7b696-ff34-4915-8ea7-93939818e6c8"]
}, Closed]],

Cell[CellGroupData[{

Cell["Normalization", "Section",
 CellChangeTimes->{{3.8673763367896423`*^9, 
  3.867376339675844*^9}},ExpressionUUID->"6c03c1fc-50a4-48ca-aac8-\
e7a7759679ad"],

Cell["\<\
Normalize the proca field such that the total energy of the proca cloud \
corresponds to the reduction in energy of the Kerr black hole\
\>", "Text",
 CellChangeTimes->{{3.867383471257303*^9, 
  3.867383506474774*^9}},ExpressionUUID->"baa5c382-90db-48ed-ab99-\
50a4cf0a13d9"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Normalizations", " ", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"FKKSNormalization", "[", 
      RowBox[{"#", ",", "1", ",", 
       RowBox[{"Recalculate", "->", "True"}]}], "]"}], "&"}], "/@", 
    "SampleData"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"NormedData", " ", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"RenormalizeProcaSolution", "[", 
      RowBox[{
       RowBox[{"SampleData", "[", 
        RowBox[{"[", "i", "]"}], "]"}], ",", 
       RowBox[{
        RowBox[{"Normalizations", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "[", "\"\<Normalization\>\"", 
        "]"}]}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "@", "SampleData"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FinalMasses", " ", "=", " ", 
   RowBox[{"Normalizations", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", " ", "\"\<FinalMass\>\""}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FinalSpins", " ", "=", " ", 
   RowBox[{"Normalizations", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", " ", "\"\<FinalSpin\>\""}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Normalization", " ", "=", " ", 
  RowBox[{"Normalizations", "[", 
   RowBox[{"[", 
    RowBox[{"All", ",", "\"\<Normalization\>\""}], "]"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"TotalEnergy", "=", 
  RowBox[{"Normalizations", "[", 
   RowBox[{"[", 
    RowBox[{"All", ",", " ", "\"\<TotalEnergy\>\""}], "]"}], 
   "]"}]}]}], "Input",
 CellChangeTimes->{{3.867383508354951*^9, 3.867383529388908*^9}, {
   3.867387112902588*^9, 3.867387128521677*^9}, {3.8673871724833183`*^9, 
   3.86738720501989*^9}, {3.867388449590757*^9, 3.8673884587218323`*^9}, {
   3.867465134958857*^9, 3.867465139765503*^9}, {3.867467317797014*^9, 
   3.867467320335121*^9}, {3.867468350368044*^9, 3.867468352653112*^9}, {
   3.8675494765420847`*^9, 3.867549481270966*^9}, {3.868063595473694*^9, 
   3.868063674155603*^9}, {3.8684310504655647`*^9, 3.8684310510127068`*^9}, {
   3.868431579568008*^9, 3.868431636468965*^9}, {3.868432491134098*^9, 
   3.868432560429534*^9}, {3.8686738177614098`*^9, 3.868673822196105*^9}, {
   3.868673984822864*^9, 3.868673987441757*^9}, {3.868674031886825*^9, 
   3.868674043774935*^9}, {3.868675203509254*^9, 3.868675207656049*^9}, {
   3.868676577709692*^9, 3.868676590938236*^9}, {3.868677807000589*^9, 
   3.868677807885396*^9}, {3.8686779769885397`*^9, 3.868678032537839*^9}, {
   3.868678092416545*^9, 3.8686780931973658`*^9}, {3.868678166449048*^9, 
   3.868678186149111*^9}, {3.868678645168178*^9, 3.868678650585434*^9}, 
   3.868679026365299*^9, {3.868682360941916*^9, 3.868682373233013*^9}, 
   3.868682923820949*^9, 3.8686834341564007`*^9, {3.8686836433334084`*^9, 
   3.868683662245792*^9}, {3.870064062813534*^9, 3.870064114900358*^9}, {
   3.874053443880913*^9, 3.874053472399456*^9}, {3.874117433781357*^9, 
   3.874117434581259*^9}},
 CellLabel->"In[68]:=",ExpressionUUID->"180d938b-c76a-404a-998a-c5258f1fb554"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Gravitational Radiation from Proca Cloud", "Chapter",
 CellChangeTimes->{{3.8673762349813023`*^9, 
  3.867376245830078*^9}},ExpressionUUID->"cc81f585-dbb3-4427-8c6c-\
d8c8e7a9dde2"],

Cell[CellGroupData[{

Cell["Asymptotic Flux", "Section",
 CellChangeTimes->{{3.8673763489495077`*^9, 
  3.8673763522857637`*^9}},ExpressionUUID->"7effbeaf-fcea-4309-852f-\
f71dc546b812"],

Cell[TextData[{
 "Calculate the modal decomposition of the Teukolsky Source Term\n",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["\[ScriptCapitalT]", "lm\[Omega]"], " ", "=", " ", 
    RowBox[{"\[Integral]", 
     RowBox[{"d\[CapitalOmega]dt", " ", 
      SuperscriptBox["\[Rho]", 
       RowBox[{"-", "5"}]], 
      SuperscriptBox[
       OverscriptBox["\[Rho]", "_"], 
       RowBox[{"-", "1"}]], "2", "*", "\[ScriptCapitalT]", "*", 
      SubscriptBox[
       RowBox[{
        SuperscriptBox["e", 
         RowBox[{
          RowBox[{"-", "im\[Phi]"}], " ", "+", " ", "i\[Omega]t"}]], " "}], 
       RowBox[{"-", "2"}]], 
      SubsuperscriptBox["S", "lm", "a\[Omega]"]}]}]}], TraditionalForm]],
  InitializationCell->True,ExpressionUUID->
  "2ef9fdfc-abe6-4394-a736-df4197ab1bfb"]
}], "Text",
 CellChangeTimes->{{3.8675126777349873`*^9, 3.867512760789974*^9}, {
  3.867512879844679*^9, 3.867512884125413*^9}},
 Background->GrayLevel[
  0.85],ExpressionUUID->"2c531abd-4478-472b-ac46-7a8c9c859ab3"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"orbitalnumber", " ", "=", " ", "2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"modenumber", " ", "=", " ", "2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AllTlmw", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"TeukolskySourceModal", "[", 
      RowBox[{"#", ",", "orbitalnumber", ",", "modenumber", ",", " ", 
       RowBox[{"Recalculate", "->", "True"}]}], "]"}], "&"}], "/@", 
    "NormedData"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.867549642480877*^9, 3.867549658423389*^9}, {
   3.868432573801433*^9, 3.86843261162488*^9}, {3.8686836836841516`*^9, 
   3.868683782660529*^9}, {3.869268402748661*^9, 3.869268404441082*^9}, {
   3.869268495277995*^9, 3.86926853525879*^9}, {3.87303052666105*^9, 
   3.873030529939507*^9}, 3.874060046681773*^9},
 CellLabel->"In[74]:=",ExpressionUUID->"198aea45-f49d-4cbb-8804-2b7904622ef0"],

Cell[TextData[{
 "Calculate the asymptotic amplitude \n",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox[
     SuperscriptBox["Z", "*"], "lm\[Omega]"], " ", "=", " ", 
    RowBox[{
     FractionBox["1", 
      RowBox[{"2", 
       SubscriptBox[
        SuperscriptBox["i\[Omega]B", "inc"], "lm\[Omega]"]}]], 
     RowBox[{
      SubsuperscriptBox["\[Integral]", 
       SubscriptBox["r", "+"], "\[Infinity]"], " ", 
      RowBox[{
       RowBox[{"\[DifferentialD]", "r"}], 
       FractionBox[
        RowBox[{" ", 
         RowBox[{
          SubscriptBox["\[ScriptCapitalT]", "lm\[Omega]"], 
          RowBox[{"(", "r", ")"}], " ", "*", " ", 
          RowBox[{
           SubsuperscriptBox["R", "lm\[Omega]", "in"], "(", "r", ")"}]}]}], 
        RowBox[{
         SuperscriptBox["\[CapitalDelta]", "2"], "(", "r", ")"}]]}]}]}]}], 
   TraditionalForm]],ExpressionUUID->"2e6fdd70-1241-4fd1-842a-f287e42a8bbf"],
 " "
}], "Text",
 CellChangeTimes->{{3.8675127699691963`*^9, 3.8675128343340282`*^9}, {
  3.8675128731346903`*^9, 3.867512935287451*^9}},
 Background->GrayLevel[
  0.85],ExpressionUUID->"6302690b-57ec-4015-a568-76e809b545bf"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"PrintTemporary", "@", 
   RowBox[{"Dynamic", "[", "$Messenger", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Block", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"$MSTMaxN", "=", "15"}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"AsymptoticAmplitudes", " ", "=", " ", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"TeukolskyZInfinity", "[", 
       RowBox[{
        RowBox[{"NormedData", "[", 
         RowBox[{"[", "i", "]"}], "]"}], ",", 
        RowBox[{"AllTlmw", "[", 
         RowBox[{"[", "i", "]"}], "]"}], ",", "2", ",", "2"}], "]"}], ",", 
      " ", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", 
        RowBox[{"Length", "@", "SampleData"}]}], "}"}]}], "]"}]}]}], 
  "\[IndentingNewLine]", "]"}]}], "Input",
 CellChangeTimes->{{3.8675128375708847`*^9, 3.867512838768152*^9}, 
   3.867512944380774*^9, {3.867550618150486*^9, 3.867550635109185*^9}, {
   3.867551111284355*^9, 3.867551118395651*^9}, 3.867555814846551*^9, {
   3.867557881678536*^9, 3.867557884242544*^9}, {3.868432618507454*^9, 
   3.868432640168586*^9}, {3.8751578228943357`*^9, 3.8751578313371897`*^9}},
 CellLabel->"In[77]:=",ExpressionUUID->"e66e92f4-14eb-460c-bec2-af15c564d717"],

Cell[TextData[{
 "From the modal decomposition of the NP scalar ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Psi]", "4"], TraditionalForm]],ExpressionUUID->
  "c82d1bc1-71d4-46a7-8846-35adf78e5cae"],
 ", we derive the asymptotic flux as\n",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox[
     RowBox[{"(", 
      FractionBox["dE", "dt"], ")"}], "lmn"], "=", " ", 
    FractionBox[
     RowBox[{"|", 
      SubscriptBox["Z", "lm\[Omega]"], 
      SuperscriptBox["|", "2"]}], 
     RowBox[{"4", 
      SuperscriptBox[
       RowBox[{"\[Pi]", "(", 
        SubscriptBox["\[Omega]", "n"], ")"}], "2"]}]]}], TraditionalForm]],
  ExpressionUUID->"c7488c3c-6999-4ef4-b517-f4f056e07042"],
 "\nand the total emitted flux is\n",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"(", 
     FractionBox["dE", "dt"], ")"}], " ", "=", 
    SubscriptBox[
     RowBox[{
      UnderscriptBox[
       StyleBox["\[CapitalSigma]",
        StripOnInput->False,
        FontSize->20], 
       RowBox[{"{", 
        RowBox[{"l", ",", "m", ",", "n"}], "}"}]], "(", 
      FractionBox["dE", "dt"], ")"}], "lmn"]}], TraditionalForm]],
  ExpressionUUID->"4f457f03-2759-4078-8cfd-78dd8ef69c00"]
}], "Text",
 CellChangeTimes->{{3.867512959955249*^9, 3.867513022007683*^9}, {
  3.867513066853297*^9, 3.8675131190886097`*^9}, {3.867513268333197*^9, 
  3.8675133008326674`*^9}},
 Background->GrayLevel[
  0.85],ExpressionUUID->"963c74b4-a79b-4e72-910c-946e92abd747"],

Cell[BoxData[{
 RowBox[{"AsymptoticFluxes", " ", "=", " ", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"EnergyFlux", "[", 
     RowBox[{
      RowBox[{"NormedData", "[", 
       RowBox[{"[", "i", "]"}], "]"}], ",", "2", ",", "2", ",", " ", 
      RowBox[{"TeukolskyTlmw", "->", 
       RowBox[{"AllTlmw", "[", 
        RowBox[{"[", "i", "]"}], "]"}]}], ",", " ", 
      RowBox[{"ZCoefficient", "->", 
       RowBox[{"AsymptoticAmplitudes", "[", 
        RowBox[{"[", "i", "]"}], "]"}]}]}], "]"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", 
      RowBox[{"Length", "@", "SampleData"}]}], "}"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"NormalizedAsymptoticFluxes", " ", "=", " ", 
  FractionBox["AsymptoticFluxes", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "-", "FinalMasses"}], ")"}], "2"]]}]}], "Input",
 CellChangeTimes->{{3.868432645141614*^9, 3.868432673006874*^9}, {
   3.8692772312017403`*^9, 3.869277236683167*^9}, 3.870065621342999*^9, {
   3.870248851867909*^9, 3.870248934134313*^9}, {3.874060076731303*^9, 
   3.874060077118827*^9}, {3.876280049538184*^9, 3.8762800739672413`*^9}},
 CellLabel->"In[81]:=",ExpressionUUID->"e6fded0f-9d8e-4cb8-9730-b1618829cb0f"],

Cell[BoxData[" "], "Input",
 CellChangeTimes->{
  3.874065526949252*^9},ExpressionUUID->"fd1cfd06-c3a1-44b7-a8db-\
0e840d643114"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Analysis of Solutions", "Chapter",
 CellChangeTimes->{{3.8673762349813023`*^9, 3.867376245830078*^9}, {
  3.8730299846771317`*^9, 
  3.873029990388459*^9}},ExpressionUUID->"42aa7e31-a495-4d1e-a26c-\
c2ee4f219e45"],

Cell[CellGroupData[{

Cell["Import all data", "Text",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.873424539191313*^9, 3.873424541215406*^9}, 
   3.8877912569853287`*^9},ExpressionUUID->"59631159-af52-4102-ba46-\
9c670464e032"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"AllData", " ", "=", " ", 
   RowBox[{"Import", "/@", 
    RowBox[{
     RowBox[{"FileNames", "[", 
      RowBox[{"All", ",", " ", "$SolutionPath"}], "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"1", ";;", "450"}], "]"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SampleData", " ", "=", " ", "AllData"}], ";"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.8734245455052023`*^9, 3.873424547535491*^9}, {
   3.873424597933467*^9, 3.8734246175676203`*^9}, {3.873424841913724*^9, 
   3.873424844608837*^9}, 3.88779125698682*^9},
 CellLabel->"In[14]:=",ExpressionUUID->"5c6270c4-0dbc-4bc8-b6d8-08da4bfe88cf"]
}, Closed]],

Cell[CellGroupData[{

Cell["Partition data", "Text",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.87342476726005*^9, 3.8734247691993427`*^9}, 
   3.887791250109861*^9},ExpressionUUID->"dac0d81a-291f-486c-9059-\
d31fb5f190c8"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"n0m1Data", " ", "=", " ", 
   RowBox[{"OvertoneModeGroup", "[", 
    RowBox[{"0", ",", "1", ",", "AllData"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n0m1Data", "=", 
   RowBox[{"Pick", "[", 
    RowBox[{"n0m1Data", ",", 
     RowBox[{
      RowBox[{
       RowBox[{"KeyExistsQ", "[", 
        RowBox[{"#", ",", "\"\<Derived\>\""}], "]"}], "&"}], "/@", 
      "n0m1Data"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n0m1Fluxes", " ", "=", " ", 
   RowBox[{"n0m1Data", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", " ", "\"\<Derived\>\"", ",", " ", "\"\<Einf\>\""}], 
     "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n0m1TotalEn", " ", "=", " ", 
   RowBox[{"n0m1Data", "[", 
    RowBox[{"[", 
     RowBox[{
     "All", ",", " ", "\"\<Derived\>\"", ",", " ", "\"\<TotalEnergy\>\""}], 
     "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n0m1Masses", " ", "=", " ", 
   RowBox[{"n0m1Data", "[", 
    RowBox[{"[", 
     RowBox[{
     "All", ",", " ", "\"\<Parameters\>\"", ",", " ", "\"\<\[Mu]Nv\>\""}], 
     "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n0m1Freq", " ", "=", " ", 
   RowBox[{"n0m1Data", "[", 
    RowBox[{"[", 
     RowBox[{
     "All", ",", " ", "\"\<Solution\>\"", ",", " ", "\"\<\[Omega]\>\""}], 
     "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"m1Data", " ", "=", " ", 
   RowBox[{"Select", "[", 
    RowBox[{"AllData", ",", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"#", "[", 
         RowBox[{"\"\<Parameters\>\"", ",", " ", "\"\<m\>\""}], "]"}], "==", 
        "1"}], ")"}], "&"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"m1Data", " ", "=", " ", 
   RowBox[{"Pick", "[", 
    RowBox[{"m1Data", ",", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"KeyExistsQ", "[", 
        RowBox[{"#", ",", " ", "\"\<Derived\>\""}], "]"}], "&"}], "/@", 
      "m1Data"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"m1Masses", " ", "=", " ", 
   RowBox[{"m1Data", "[", 
    RowBox[{"[", 
     RowBox[{
     "All", ",", " ", "\"\<Parameters\>\"", ",", " ", "\"\<\[Mu]Nv\>\""}], 
     "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"m1Freq", " ", "=", " ", 
   RowBox[{"m1Data", "[", 
    RowBox[{"[", 
     RowBox[{
     "All", ",", " ", "\"\<Solution\>\"", ",", " ", "\"\<\[Omega]\>\""}], 
     "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"partdat", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Select", "[", 
      RowBox[{"m1Data", ",", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"#", "[", 
           RowBox[{"\"\<Parameters\>\"", ",", " ", "\"\<n\>\""}], "]"}], "==",
           "i"}], ")"}], "&"}]}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"i", ",", "0", ",", "4"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"partdatmasses", " ", "=", " ", 
   RowBox[{"partdat", "[", 
    RowBox[{"[", 
     RowBox[{
     "All", ",", " ", "All", ",", " ", "\"\<Parameters\>\"", ",", " ", 
      "\"\<\[Mu]Nv\>\""}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"partdatfreqs", " ", "=", " ", 
   RowBox[{"partdat", "[", 
    RowBox[{"[", 
     RowBox[{
     "All", ",", " ", "All", ",", " ", "\"\<Solution\>\"", ",", " ", 
      "\"\<\[Omega]\>\""}], "]"}], "]"}]}], ";"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8734247802090693`*^9, 3.873424801134733*^9}, {
   3.873424873710408*^9, 3.873424927728098*^9}, {3.873425320472348*^9, 
   3.873425334690342*^9}, {3.873425540563198*^9, 3.8734255673217373`*^9}, {
   3.873426006629476*^9, 3.873426035746581*^9}, {3.8877862436841803`*^9, 
   3.887786252704977*^9}, {3.8877862902201757`*^9, 3.8877863022971973`*^9}, {
   3.887786343275853*^9, 3.887786354833961*^9}, {3.887787114303129*^9, 
   3.8877871680553293`*^9}, {3.887787218036441*^9, 3.8877872651213417`*^9}, {
   3.8877883908645372`*^9, 3.887788391047461*^9}, {3.887788486154663*^9, 
   3.887788486366117*^9}, 
   3.887791250110345*^9},ExpressionUUID->"7aac3621-2ce8-44c3-8acd-\
3f013416e55e"]
}, Closed]],

Cell[CellGroupData[{

Cell["Energy vs Mass", "Text",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.8734259869702682`*^9, 3.873425990010127*^9}, 
   3.8877912448122597`*^9},ExpressionUUID->"2d76f1d5-99f9-4e43-bfe6-\
863400a2e609"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Thread", "[", 
   RowBox[{"{", 
    RowBox[{"n0m1Masses", ",", " ", "n0m1TotalEn"}], "}"}], "]"}], "//", 
  "ListLogPlot"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.87342599143754*^9, 3.8734260005025873`*^9}, 
   3.8877912448125563`*^9},
 CellLabel->"In[64]:=",ExpressionUUID->"6159d338-cf78-4cd6-bbed-9da475c7937c"]
}, Closed]],

Cell[CellGroupData[{

Cell["Mass vs Rescaled Flux", "Text",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.873426124076877*^9, 3.8734261289011593`*^9}, 
   3.887791240139245*^9},ExpressionUUID->"47056b5f-da1c-43d3-b284-\
0bd9fa3979bf"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Thread", "[", 
   RowBox[{"{", 
    RowBox[{"n0m1Masses", ",", 
     RowBox[{"n0m1Fluxes", "/", "n0m1TotalEn"}]}], "}"}], "]"}], "//", 
  "ListLogPlot"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.873086494458193*^9, 3.873086541204618*^9}, {
   3.873086581355887*^9, 3.8730866036436853`*^9}, {3.8730911939801283`*^9, 
   3.873091259881689*^9}, {3.8734253415530653`*^9, 3.873425351213266*^9}, {
   3.873426132697441*^9, 3.87342613529733*^9}, 3.887791240139523*^9},
 CellLabel->"In[65]:=",ExpressionUUID->"b01e3402-7b81-4e26-aeb3-900bec2c83fe"]
}, Closed]],

Cell[CellGroupData[{

Cell["Mass vs  Frequency", "Text",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.873426124076877*^9, 3.8734261289011593`*^9}, {
   3.887786363783794*^9, 3.8877863646083193`*^9}, {3.88778640531208*^9, 
   3.8877864069088087`*^9}, 3.887788813457027*^9, 
   3.887791235563884*^9},ExpressionUUID->"5b6b9493-24e1-4892-9631-\
48124c79bf51"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tdata", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Thread", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"partdatmasses", "[", 
         RowBox[{"[", "i", "]"}], "]"}], " ", ",", " ", 
        RowBox[{
         FractionBox[
          RowBox[{"partdatfreqs", "[", 
           RowBox[{"[", "i", "]"}], "]"}], 
          RowBox[{"partdatmasses", "[", 
           RowBox[{"[", "i", "]"}], "]"}]], "//", "Re"}]}], "}"}], "]"}], ",",
      " ", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "5"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"interps", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Interpolation", "[", 
      RowBox[{"tdata", "[", 
       RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "5"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"reomegaplot", " ", "=", " ", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"interps", "[", 
         RowBox[{"[", "1", "]"}], "]"}], "[", "r", "]"}], ",", " ", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"interps", "[", 
         RowBox[{"[", "2", "]"}], "]"}], "[", "r", "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"interps", "[", 
         RowBox[{"[", "3", "]"}], "]"}], "[", "r", "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"interps", "[", 
         RowBox[{"[", "4", "]"}], "]"}], "[", "r", "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"interps", "[", 
         RowBox[{"[", "5", "]"}], "]"}], "[", "r", "]"}]}], 
      "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", " ", 
     RowBox[{"{", 
      RowBox[{"r", ",", "0.06", ",", "0.32"}], "}"}], ",", " ", 
     RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<n=0\>\"", ",", " ", "\"\<n=1\>\"", ",", " ", "\"\<n=2\>\"", ",", 
        " ", "\"\<n=3\>\"", ",", " ", "\"\<n=4\>\""}], "}"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"AxesLabel", "->", 
      RowBox[{"{", 
       RowBox[{"\"\<\[Mu]\>\"", ",", "\"\<Re(\[Omega]/\[Mu])\>\""}], "}"}]}], 
     ",", "\[IndentingNewLine]", 
     RowBox[{"PlotLabel", "->", "\"\<Proca Frequency\>\""}], ",", " ", 
     RowBox[{"ImageSize", "\[Rule]", "Large"}]}], "]"}]}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"tdata", ",", " ", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<n=0\>\"", ",", " ", "\"\<n=1\>\"", ",", " ", "\"\<n=2\>\"", ",", 
        " ", "\"\<n=3\>\"", ",", " ", "\"\<n=4\>\""}], "}"}]}], ",", " ", 
     RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", " ", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\[Alpha]\>\"", ",", " ", "\"\<Re(\[Omega]M/\[Alpha])\>\""}], 
       "}"}]}], ",", " ", 
     RowBox[{"PlotLabel", "\[Rule]", "\"\<Proca Cloud Frequency\>\""}]}], 
    "]"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tdata", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Thread", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"partdatmasses", "[", 
         RowBox[{"[", "i", "]"}], "]"}], " ", ",", " ", 
        RowBox[{
         RowBox[{"partdatfreqs", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "//", "Im"}]}], "}"}], "]"}], ",", 
     " ", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "5"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"interps", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Interpolation", "[", 
      RowBox[{"tdata", "[", 
       RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "5"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"imomegaplot", "=", 
  RowBox[{"LogPlot", "[", 
   RowBox[{
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"interps", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "[", "r", "]"}], ",", " ", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"interps", "[", 
        RowBox[{"[", "2", "]"}], "]"}], "[", "r", "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"interps", "[", 
        RowBox[{"[", "3", "]"}], "]"}], "[", "r", "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"interps", "[", 
        RowBox[{"[", "4", "]"}], "]"}], "[", "r", "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"interps", "[", 
        RowBox[{"[", "5", "]"}], "]"}], "[", "r", "]"}]}], 
     "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", " ", 
    RowBox[{"{", 
     RowBox[{"r", ",", "0.06", ",", "0.32"}], "}"}], ",", " ", 
    RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
    RowBox[{"PlotLegends", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<n=0\>\"", ",", " ", "\"\<n=1\>\"", ",", " ", "\"\<n=2\>\"", ",", 
       " ", "\"\<n=3\>\"", ",", " ", "\"\<n=4\>\""}], "}"}]}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"AxesLabel", "->", 
     RowBox[{"{", 
      RowBox[{"\"\<\[Mu]\>\"", ",", "\"\<Im(\[Omega])\>\""}], "}"}]}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"PlotLabel", "->", "\"\<Proca Frequency\>\""}], ",", " ", 
    RowBox[{"ImageSize", "\[Rule]", "Large"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"NotebookDirectory", "[", "]"}], ",", " ", "\"\<Plots\>\"", ",",
       " ", "\"\<m1RealOmega.png\>\""}], "}"}], "]"}], ",", " ", 
   "reomegaplot"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"NotebookDirectory", "[", "]"}], ",", " ", "\"\<Plots\>\"", ",",
       " ", "\"\<m1ImagOmega.png\>\""}], "}"}], "]"}], ",", " ", 
   "imomegaplot"}], "]"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.887786366235379*^9, 3.887786400080913*^9}, {
   3.887787226251318*^9, 3.887787285615329*^9}, {3.887787321991789*^9, 
   3.88778739408219*^9}, {3.887788792780142*^9, 3.887788934475731*^9}, {
   3.8877889872583227`*^9, 3.8877889903155317`*^9}, {3.887790981757409*^9, 
   3.887791048948297*^9}, {3.887791081361475*^9, 3.887791175571755*^9}, 
   3.887791235564499*^9},
 CellLabel->
  "In[440]:=",ExpressionUUID->"6def47b0-af4f-4f45-98a2-363f5a22b788"]
}, Closed]],

Cell[CellGroupData[{

Cell["Example Radial Plots", "Text",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.887791936826518*^9, 3.887791940122822*^9}, 
   3.887795950660152*^9},ExpressionUUID->"0199a78f-aaec-4aee-bc7b-\
6ec5d9e9bcf5"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"exampdata", " ", "=", " ", 
   RowBox[{"Select", "[", 
    RowBox[{"AllData", ",", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"\"\<Parameters\>\"", ",", " ", "\"\<m\>\""}], "]"}], "==", 
         "2"}], "&&", 
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"\"\<Parameters\>\"", ",", " ", "\"\<\[Mu]Nv\>\""}], "]"}], 
         "==", 
         FractionBox["11", "100"]}]}], ")"}], "&"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"plots", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Do", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"radsol", " ", "=", " ", 
     RowBox[{
      RowBox[{"exampdata", "[", 
       RowBox[{"[", "i", "]"}], "]"}], "[", 
      RowBox[{"\"\<Solution\>\"", ",", " ", "\"\<R\>\""}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"AppendTo", "[", 
     RowBox[{"plots", ",", "\[IndentingNewLine]", 
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{"Callout", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"radsol", "[", "r", "]"}], "//", "Abs"}], ",", " ", 
          RowBox[{"\"\<n=\>\"", "<>", 
           RowBox[{"ToString", "[", "i", "]"}]}], ",", " ", "Above"}], "]"}], 
        ",", " ", 
        RowBox[{"{", 
         RowBox[{"r", ",", 
          RowBox[{
           RowBox[{
            RowBox[{"radsol", "[", "\"\<Domain\>\"", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
          RowBox[{
           RowBox[{
            RowBox[{"radsol", "[", "\"\<Domain\>\"", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", " ", 
        RowBox[{"PlotRange", "\[Rule]", "All"}], ",", " ", 
        RowBox[{"ScalingFunctions", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"\"\<Log\>\"", ",", " ", "\"\<Linear\>\""}], "}"}]}], ",", 
        " ", 
        RowBox[{"ImageSize", "\[Rule]", "Medium"}], ",", " ", 
        RowBox[{"AxesLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"\"\<x\>\"", ",", " ", "\"\<|R|\>\""}], "}"}]}], ",", " ", 
        RowBox[{"PlotStyle", "\[Rule]", "Black"}]}], "]"}]}], 
     "\[IndentingNewLine]", "]"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"i", ",", "1", ",", "5"}], "}"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"allplots", " ", "=", " ", 
  RowBox[{"Grid", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"plots", "[", 
      RowBox[{"[", 
       RowBox[{"1", ";;", "3"}], "]"}], "]"}], ",", " ", 
     RowBox[{"plots", "[", 
      RowBox[{"[", 
       RowBox[{"4", ";;", "5"}], "]"}], "]"}]}], "}"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{"FileNameJoin", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"NotebookDirectory", "[", "]"}], ",", " ", "\"\<Plots\>\"", 
       ",", " ", "\"\<RadialPlots.png\>\""}], "}"}], "]"}], ",", " ", 
    "allplots"}], "]"}], ";"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.887791952335618*^9, 3.887791973312353*^9}, {
   3.88779200554116*^9, 3.8877920111968403`*^9}, {3.887792093612623*^9, 
   3.887792374813819*^9}, {3.887792898473947*^9, 3.8877929413922253`*^9}, {
   3.887793151434442*^9, 3.88779326323217*^9}, {3.887795386860085*^9, 
   3.887795390387027*^9}, 3.8877959506605797`*^9},
 CellLabel->
  "In[563]:=",ExpressionUUID->"cf4b6ac7-b1d6-44b2-be9e-f7c334cd6d3d"]
}, Closed]]
}, Closed]]
}, Open  ]]
},
WindowSize->{1440, 756},
WindowMargins->{{0, Automatic}, {0, Automatic}},
TaggingRules-><|"TryRealOnly" -> False|>,
Magnification:>0.75 Inherited,
FrontEndVersion->"13.0 for Linux x86 (64-bit) (February 4, 2022)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"d54a4841-54dd-424d-bcdd-de508451de63"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "CalculationParameters"->{
  Cell[19483, 552, 19155, 351, 1200, "Input",ExpressionUUID->"2d372041-7545-4f64-ba88-a8d6900c9986",
   CellGroupingRules->{"GroupTogetherGrouping", 10009.},
   CellTags->"CalculationParameters"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"CalculationParameters", 187027, 4204}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 208, 3, 86, "Title",ExpressionUUID->"a520f2fe-30e2-445d-9acc-363a9a1c0ab5"],
Cell[CellGroupData[{
Cell[813, 29, 161, 3, 52, "Chapter",ExpressionUUID->"49477c42-b03c-4122-976e-ee09d9710d3b"],
Cell[977, 34, 4639, 116, 458, "Input",ExpressionUUID->"0a8963d9-1258-4765-941f-27f15cb0a19d",
 InitializationCell->True]
}, Closed]],
Cell[CellGroupData[{
Cell[5653, 155, 179, 3, 45, "Chapter",ExpressionUUID->"df48b12c-51f1-4ad9-8ea2-45bd9e6e503b"],
Cell[CellGroupData[{
Cell[5857, 162, 173, 3, 41, "Subsection",ExpressionUUID->"dd52479d-ea50-4784-a350-bc34131f0e0a"],
Cell[6033, 167, 1538, 41, 73, "Input",ExpressionUUID->"30d1db00-df40-4fd1-9db0-cdcf650ecbc8"]
}, Closed]],
Cell[CellGroupData[{
Cell[7608, 213, 177, 2, 30, "Subsection",ExpressionUUID->"ea9ac301-8558-472f-bdb1-802de9550baa"],
Cell[7788, 217, 1189, 34, 52, "Input",ExpressionUUID->"aca69425-6b64-4811-a536-1b6edee34364"]
}, Closed]],
Cell[CellGroupData[{
Cell[9014, 256, 189, 3, 30, "Subsection",ExpressionUUID->"afdb163e-d71b-45c1-82b3-251942227ab9"],
Cell[9206, 261, 202, 5, 22, "Input",ExpressionUUID->"55f3cee1-490c-4f94-a89c-1da637252a83"]
}, Closed]],
Cell[CellGroupData[{
Cell[9445, 271, 172, 3, 30, "Subsection",ExpressionUUID->"d7e57549-5c04-4622-ba6e-e8eeec5978fc"],
Cell[CellGroupData[{
Cell[9642, 278, 367, 8, 33, "Subsubsection",ExpressionUUID->"5470a568-efaf-4798-8e08-dabda5bae63a"],
Cell[10012, 288, 2903, 68, 220, "Input",ExpressionUUID->"2b353289-d1a9-4b2a-a64d-c504e0a438d6"]
}, Closed]],
Cell[CellGroupData[{
Cell[12952, 361, 339, 10, 30, "Subsubsection",ExpressionUUID->"a2f779c5-7d31-4050-93ec-787e0a9ca755"],
Cell[13294, 373, 788, 20, 75, "Input",ExpressionUUID->"6fcf914e-67af-4512-b94e-3984ccb62ab8"],
Cell[14085, 395, 4275, 125, 141, "Input",ExpressionUUID->"95798df5-921e-4da8-9066-58f1004e79de"]
}, Closed]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[18421, 527, 166, 3, 45, "Chapter",ExpressionUUID->"2091a228-ef80-4d16-a310-cad9135d04d4"],
Cell[CellGroupData[{
Cell[18612, 534, 218, 4, 50, "Section",ExpressionUUID->"686bc62d-5e64-4273-aacc-5af0f84a0162"],
Cell[CellGroupData[{
Cell[18855, 542, 625, 8, 37, "Subsection",ExpressionUUID->"b93c60da-0d21-4555-8038-a4293d7370bd",
 CellGroupingRules->{"GroupTogetherGrouping", 10009.}],
Cell[19483, 552, 19155, 351, 1200, "Input",ExpressionUUID->"2d372041-7545-4f64-ba88-a8d6900c9986",
 CellGroupingRules->{"GroupTogetherGrouping", 10009.},
 CellTags->"CalculationParameters"]
}, Closed]],
Cell[CellGroupData[{
Cell[38675, 908, 443, 6, 26, "Subsection",ExpressionUUID->"db6d0b1a-31fc-43a7-a059-29f2fdf09cca"],
Cell[39121, 916, 26292, 571, 1207, "Input",ExpressionUUID->"1cdf1743-22cc-4298-945b-b4b5d651dc93"]
}, Closed]],
Cell[CellGroupData[{
Cell[65450, 1492, 540, 7, 26, "Subsection",ExpressionUUID->"a791602b-d17e-4f63-9c9a-bc14d52a3d4c"],
Cell[65993, 1501, 22189, 385, 784, "Input",ExpressionUUID->"cf7c96fd-2cb1-4459-9fa8-c235c0656ebb"]
}, Closed]],
Cell[CellGroupData[{
Cell[88219, 1891, 542, 7, 26, "Subsection",ExpressionUUID->"65ca2ede-3c4e-4450-aeab-1eb1c21a354d"],
Cell[88764, 1900, 24503, 444, 873, "Input",ExpressionUUID->"42f8a604-ae9a-4065-9966-d42107d60481"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[113316, 2350, 168, 3, 40, "Section",ExpressionUUID->"0f0159d4-aae5-4778-ad0f-df114d41c87d"],
Cell[CellGroupData[{
Cell[113509, 2357, 161, 3, 51, "Subsection",ExpressionUUID->"2ef3a4d8-28fa-47e4-a320-f4193f419f5a"],
Cell[113673, 2362, 2603, 70, 217, "Input",ExpressionUUID->"f2ba615f-113b-48fc-8d83-653055ff1a8b"]
}, Closed]],
Cell[CellGroupData[{
Cell[116313, 2437, 157, 3, 36, "Subsection",ExpressionUUID->"f972d1d7-bd5c-4ef6-8ac2-b353ef509d74"],
Cell[CellGroupData[{
Cell[116495, 2444, 440, 13, 47, "Subsubsection",ExpressionUUID->"2b1d7e6f-dcee-4621-b5dc-146ec7010549"],
Cell[116938, 2459, 11481, 259, 1014, "Input",ExpressionUUID->"0e9013f5-13f5-4ef4-b734-509d2323fcd8"]
}, Closed]],
Cell[CellGroupData[{
Cell[128456, 2723, 464, 12, 35, "Subsubsection",ExpressionUUID->"12d3a0bb-5ece-4d8d-85f3-6ce0001e769a"],
Cell[128923, 2737, 4480, 101, 344, "Input",ExpressionUUID->"f044434d-7393-4784-9bbb-b2afdad14b32"],
Cell[133406, 2840, 200, 4, 27, "Input",ExpressionUUID->"ba0d9ba9-e471-4b4e-a4b5-cb518f35eb56"]
}, Closed]],
Cell[CellGroupData[{
Cell[133643, 2849, 275, 5, 35, "Subsubsection",ExpressionUUID->"b8311731-8dce-48b3-8eb3-12408408a25c"],
Cell[133921, 2856, 2709, 67, 216, "Input",ExpressionUUID->"993e5d16-caae-46cd-8607-b80059ab54ab"]
}, Closed]],
Cell[CellGroupData[{
Cell[136667, 2928, 309, 5, 35, "Subsubsection",ExpressionUUID->"9627d492-1f6c-48bc-9267-65adcc75042f"],
Cell[136979, 2935, 9510, 211, 713, "Input",ExpressionUUID->"a457ea1a-a38a-4b6a-ac86-37cd9dca030a"]
}, Closed]],
Cell[CellGroupData[{
Cell[146526, 3151, 358, 6, 35, "Subsubsection",ExpressionUUID->"bf93cd77-8b54-49e3-bd60-976f39019417"],
Cell[146887, 3159, 5586, 123, 497, "Input",ExpressionUUID->"d285c069-b263-41aa-bedb-5472ab7728e2"]
}, Closed]]
}, Closed]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[152546, 3290, 169, 3, 45, "Chapter",ExpressionUUID->"b6ad402b-a606-42fe-80b9-907a1bd7ddee"],
Cell[CellGroupData[{
Cell[152740, 3297, 156, 3, 50, "Section",ExpressionUUID->"b2232ef9-8ebe-40b2-86a8-1b75ec4d4d02"],
Cell[152899, 3302, 4189, 90, 168, "Input",ExpressionUUID->"a8b7b696-ff34-4915-8ea7-93939818e6c8"]
}, Closed]],
Cell[CellGroupData[{
Cell[157125, 3397, 160, 3, 40, "Section",ExpressionUUID->"6c03c1fc-50a4-48ca-aac8-e7a7759679ad"],
Cell[157288, 3402, 285, 6, 27, "Text",ExpressionUUID->"baa5c382-90db-48ed-ab99-50a4cf0a13d9"],
Cell[157576, 3410, 3098, 67, 108, "Input",ExpressionUUID->"180d938b-c76a-404a-998a-c5258f1fb554"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[160723, 3483, 187, 3, 45, "Chapter",ExpressionUUID->"cc81f585-dbb3-4427-8c6c-d8c8e7a9dde2"],
Cell[CellGroupData[{
Cell[160935, 3490, 164, 3, 50, "Section",ExpressionUUID->"7effbeaf-fcea-4309-852f-f71dc546b812"],
Cell[161102, 3495, 1012, 26, 55, "Text",ExpressionUUID->"2c531abd-4478-472b-ac46-7a8c9c859ab3"],
Cell[162117, 3523, 898, 18, 56, "Input",ExpressionUUID->"198aea45-f49d-4cbb-8804-2b7904622ef0"],
Cell[163018, 3543, 1145, 32, 67, "Text",ExpressionUUID->"6302690b-57ec-4015-a568-76e809b545bf"],
Cell[164166, 3577, 1231, 28, 76, "Input",ExpressionUUID->"e66e92f4-14eb-460c-bec2-af15c564d717"],
Cell[165400, 3607, 1447, 43, 107, "Text",ExpressionUUID->"963c74b4-a79b-4e72-910c-946e92abd747"],
Cell[166850, 3652, 1219, 27, 60, "Input",ExpressionUUID->"e6fded0f-9d8e-4cb8-9730-b1618829cb0f"],
Cell[168072, 3681, 129, 3, 22, "Input",ExpressionUUID->"fd1cfd06-c3a1-44b7-a8db-0e840d643114"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[168250, 3690, 219, 4, 45, "Chapter",ExpressionUUID->"42aa7e31-a495-4d1e-a26c-c2ee4f219e45"],
Cell[CellGroupData[{
Cell[168494, 3698, 237, 4, 27, "Text",ExpressionUUID->"59631159-af52-4102-ba46-9c670464e032",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[168734, 3704, 707, 16, 40, "Input",ExpressionUUID->"5c6270c4-0dbc-4bc8-b6d8-08da4bfe88cf",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[169478, 3725, 235, 4, 25, "Text",ExpressionUUID->"dac0d81a-291f-486c-9059-d31fb5f190c8",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[169716, 3731, 4258, 115, 225, "Input",ExpressionUUID->"7aac3621-2ce8-44c3-8acd-3f013416e55e",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[CellGroupData[{
Cell[174011, 3851, 238, 4, 25, "Text",ExpressionUUID->"2d76f1d5-99f9-4e43-bfe6-863400a2e609",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[174252, 3857, 398, 9, 22, "Input",ExpressionUUID->"6159d338-cf78-4cd6-bbed-9da475c7937c",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[174687, 3871, 243, 4, 25, "Text",ExpressionUUID->"47056b5f-da1c-43d3-b284-0bd9fa3979bf",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[174933, 3877, 622, 12, 22, "Input",ExpressionUUID->"b01e3402-7b81-4e26-aeb3-900bec2c83fe",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[CellGroupData[{
Cell[175592, 3894, 365, 6, 25, "Text",ExpressionUUID->"5b6b9493-24e1-4892-9631-48124c79bf51",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[175960, 3902, 6713, 179, 474, "Input",ExpressionUUID->"6def47b0-af4f-4f45-98a2-363f5a22b788",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[182710, 4086, 240, 4, 25, "Text",ExpressionUUID->"0199a78f-aaec-4aee-bc7b-6ec5d9e9bcf5",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[182953, 4092, 3606, 94, 209, "Input",ExpressionUUID->"cf4b6ac7-b1d6-44b2-be9e-f7c334cd6d3d",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]]
}, Closed]]
}, Open  ]]
}
]
*)