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

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

(* CreatedBy='Mathematica 12.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     19347,        530]
NotebookOptionsPosition[     17712,        501]
NotebookOutlinePosition[     18046,        516]
CellTagsIndexPosition[     18003,        513]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell["\<\
Analytical template for gravitational-wave echoes from spinning exotic \
compact objects. 
Obtained by solving Teukolsky\[CloseCurlyQuote]s equations in the \
low-frequency limit.
Reference: Elisa Maggio, Adriano Testa, Swetha Bhagwat, Paolo Pani, \
\[OpenCurlyDoubleQuote]Analytical model for gravitational-wave echoes from \
spinning remnants\[CloseCurlyDoubleQuote], arXiv:1907.03091
\
\>", "Text",
 CellChangeTimes->{{3.7713001010640793`*^9, 3.7713001908396482`*^9}, {
  3.77130300138286*^9, 3.771303001700029*^9}, {3.7752242251176453`*^9, 
  3.775224253686388*^9}},ExpressionUUID->"30badd30-87ab-4375-bfcf-\
658a2ad07731"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Quit", "[", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.771267015799213*^9, 3.7712670177850018`*^9}},
 CellLabel->"In[35]:=",ExpressionUUID->"dc140df3-069b-42d7-b66d-bfcdccbfed43"],

Cell["BH reflection coefficient at low frequency [Eq. (A12)]", "Text",
 CellChangeTimes->{{3.771264054683609*^9, 3.771264058270648*^9}, {
  3.77130026279175*^9, 
  3.7713002744317827`*^9}},ExpressionUUID->"569c5f69-2a3d-4a7a-ab9c-\
19634b14833c"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"k", "=", 
   RowBox[{"\[Omega]", "-", 
    FractionBox[
     RowBox[{"m", "*", "a"}], 
     RowBox[{"2", " ", "M", " ", "rp"}]]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Gamma]", "=", 
   RowBox[{"rm", "/", "rp"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Xi]", "=", 
   RowBox[{"1", "+", 
    SqrtBox[
     RowBox[{"1", "-", 
      SuperscriptBox["\[Chi]", "2"]}]]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Zeta]", "=", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "\[Omega]", " ", "M"}], "-", 
       RowBox[{"m", 
        SqrtBox["\[Gamma]"]}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"\[Gamma]", "+", "1"}], ")"}], " ", "\[Xi]"}], 
    RowBox[{"\[Gamma]", "-", "1"}]]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RBHlf", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "8"}], " ", "M", " ", "k", "  ", 
      SuperscriptBox["\[ExponentialE]", 
       FractionBox[
        RowBox[{"\[Zeta]", 
         RowBox[{"(", 
          RowBox[{"\[Gamma]", "-", "1"}], ")"}]}], 
        RowBox[{"\[Gamma]", "+", "1"}]]], 
      FractionBox[
       RowBox[{
        RowBox[{"2", " ", "M", " ", "k"}], "-", 
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{"(", 
          RowBox[{"\[Gamma]", "-", "1"}], ")"}]}]}], 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Gamma]", "-", "1"}], ")"}], "2"], " "}]], 
      SuperscriptBox[
       RowBox[{"(", 
        FractionBox[
         RowBox[{
          RowBox[{"-", "M"}], " ", 
          RowBox[{"(", 
           RowBox[{"\[Gamma]", "-", "1"}], ")"}], " ", "\[Xi]"}], "L"], ")"}], 
       RowBox[{"\[Zeta]", 
        RowBox[{"(", 
         RowBox[{"\[Gamma]", "-", "1"}], ")"}]}]], "   ", 
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{"16", " ", 
          SuperscriptBox["k", "2"], " ", 
          SuperscriptBox["M", "2"]}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"\[Gamma]", "-", "1"}], ")"}], "2"]], "+", "1"}], ")"}], 
      " ", 
      RowBox[{"Gamma", "[", 
       RowBox[{
        RowBox[{"-", "2"}], "+", "\[Zeta]"}], "]"}], " ", 
      RowBox[{"Gamma", "[", 
       RowBox[{
        RowBox[{"-", "1"}], "-", "\[Zeta]"}], "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"1800", " ", "\[ImaginaryI]", " ", 
         RowBox[{"Gamma", "[", 
          RowBox[{
           RowBox[{"-", "2"}], "-", "\[Zeta]"}], "]"}]}], "+", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"\[Omega]", " ", "M", " ", 
            RowBox[{"(", 
             RowBox[{"\[Gamma]", "-", "1"}], ")"}], " ", "\[Xi]"}], ")"}], 
          "5"], " ", 
         RowBox[{"Gamma", "[", 
          RowBox[{"3", "-", "\[Zeta]"}], "]"}]}]}], ")"}]}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Gamma", "[", 
       RowBox[{
        RowBox[{"-", "2"}], "-", "\[Zeta]"}], "]"}], " ", 
      RowBox[{"Gamma", "[", 
       RowBox[{"3", "-", "\[Zeta]"}], "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"1800", " ", "\[ImaginaryI]", " ", 
         RowBox[{"Gamma", "[", 
          RowBox[{
           RowBox[{"-", "2"}], "+", "\[Zeta]"}], "]"}]}], "+", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"\[Omega]", " ", "M", " ", 
            RowBox[{"(", 
             RowBox[{"\[Gamma]", "-", "1"}], ")"}], " ", "\[Xi]"}], ")"}], 
          "5"], " ", 
         RowBox[{"Gamma", "[", 
          RowBox[{"3", "+", "\[Zeta]"}], "]"}]}]}], ")"}]}], ")"}]}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.771263585758217*^9, 3.7712637325203753`*^9}, {
   3.771263822035418*^9, 3.771263852353937*^9}, {3.771263896311071*^9, 
   3.771263926656309*^9}, {3.771263995156858*^9, 3.771264011331415*^9}, {
   3.771264041854755*^9, 3.77126404765366*^9}, {3.771264586962769*^9, 
   3.771264627970652*^9}, {3.771264827673991*^9, 3.77126484365067*^9}, {
   3.771264999070881*^9, 3.7712650426425953`*^9}, {3.771265106479332*^9, 
   3.7712651112482567`*^9}, {3.771265200136325*^9, 3.771265206609351*^9}, 
   3.771265286486986*^9, 3.771300220584674*^9},
 CellLabel->"In[1]:=",ExpressionUUID->"cdc3783b-a436-47af-82df-556fca611c7f"],

Cell["\<\
Interpolating function from low to high frequencies [Eq. (23)]\
\>", "Text",
 CellChangeTimes->{{3.771264054683609*^9, 3.771264058270648*^9}, {
  3.771264204421282*^9, 3.771264205035653*^9}, {3.771300240423223*^9, 
  3.771300258959771*^9}},ExpressionUUID->"5df25f19-c76e-4a58-8430-\
07614d07679e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"kH", "=", 
    RowBox[{
     FractionBox["1", "2"], 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"rp", "-", "rm"}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["rp", "2"], "+", 
        SuperscriptBox["a", "2"]}], ")"}]}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RBH", "=", 
   RowBox[{"RBHlf", "*", 
    FractionBox[
     RowBox[{
      RowBox[{"Exp", "[", 
       FractionBox[
        RowBox[{
         RowBox[{"-", "2"}], " ", "\[Pi]", " ", "\[Omega]R"}], "kH"], "]"}], 
      "+", "1"}], 
     RowBox[{
      RowBox[{"Exp", "[", 
       FractionBox[
        RowBox[{"2", " ", "\[Pi]", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Abs", "[", "\[Omega]", "]"}], "-", "\[Omega]R"}], ")"}]}],
         "kH"], "]"}], "+", "1"}]]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.771264064355687*^9, 3.771264068241952*^9}, 
   3.7712641139318*^9, {3.771264155084779*^9, 3.77126418462668*^9}, {
   3.771265124760701*^9, 3.7712651286307297`*^9}, {3.771265251978634*^9, 
   3.771265280753645*^9}, 3.771265441937893*^9, {3.7712656574433603`*^9, 
   3.7712656850811253`*^9}},
 CellLabel->"In[6]:=",ExpressionUUID->"9a60f9ef-9eb2-4612-9d05-afd8f1773228"],

Cell["BH ringdown at infinity [Eq. (26)]", "Text",
 CellChangeTimes->{{3.771264054683609*^9, 3.771264058270648*^9}, {
  3.771264204421282*^9, 3.771264205035653*^9}, {3.77126429672788*^9, 
  3.771264297440054*^9}, {3.7712643822052193`*^9, 3.7712643827175913`*^9}, {
  3.771300284543807*^9, 
  3.7713002949757423`*^9}},ExpressionUUID->"8360eb10-de64-48cd-bca3-\
0cfdba1f7c70"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Omega]QNM", "=", 
   RowBox[{"\[Omega]R", "+", 
    RowBox[{"I", "*", "\[Omega]I"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Alpha]1", "=", 
   RowBox[{"I", "*", 
    RowBox[{"Exp", "[", 
     RowBox[{
      RowBox[{"-", "I"}], 
      RowBox[{"(", 
       RowBox[{"\[Phi]", "+", 
        RowBox[{"t0", "*", "\[Omega]QNM"}]}], ")"}]}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Alpha]1p", "=", 
   RowBox[{"\[Alpha]1", "/.", 
    RowBox[{"{", 
     RowBox[{"\[Phi]", "\[Rule]", "\[Phi]p"}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Alpha]1c", "=", 
   RowBox[{"\[Alpha]1", "/.", 
    RowBox[{"{", 
     RowBox[{"\[Phi]", "\[Rule]", "\[Phi]c"}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Alpha]2p", "=", 
   RowBox[{"-", 
    RowBox[{"Conjugate", "[", "\[Alpha]1p", "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Alpha]2c", "=", 
    RowBox[{"-", 
     RowBox[{"Conjugate", "[", "\[Alpha]1c", "]"}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ZBHp", "=", 
   RowBox[{
    FractionBox[
     RowBox[{"Exp", "[", 
      RowBox[{"I", " ", "\[Omega]", " ", "t0"}], "]"}], 
     RowBox[{"2", " ", 
      SqrtBox[
       RowBox[{"2", " ", "\[Pi]"}]]}]], 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{"\[Alpha]1p", "*", "Ap"}], "+", 
        RowBox[{"\[Alpha]1c", "*", "Ac"}]}], 
       RowBox[{"\[Omega]", "-", "\[Omega]QNM"}]], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"\[Alpha]2p", "*", "Ap"}], "-", 
        RowBox[{"\[Alpha]2c", "*", "Ac"}]}], 
       RowBox[{"\[Omega]", "+", 
        RowBox[{"Conjugate", "[", "\[Omega]QNM", "]"}]}]]}], ")"}]}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.771264384698072*^9, 3.771264494479579*^9}, {
  3.771265747982669*^9, 3.771265777252091*^9}, {3.771265888633168*^9, 
  3.771265896607956*^9}, {3.7712659436877317`*^9, 3.771266088929369*^9}, {
  3.771386718383759*^9, 3.771386723660274*^9}, {3.777719860499877*^9, 
  3.777719861529142*^9}, {3.780484536718814*^9, 
  3.780484539568947*^9}},ExpressionUUID->"b6331bfc-e0d3-434b-a68d-\
ede649a712cf"],

Cell["Transfer function [Eq. (30)]", "Text",
 CellChangeTimes->{{3.771264054683609*^9, 3.771264058270648*^9}, {
  3.771264204421282*^9, 3.771264205035653*^9}, {3.77126429672788*^9, 
  3.771264297440054*^9}, {3.7713003004073753`*^9, 
  3.771300305710556*^9}},ExpressionUUID->"f0295247-e84d-45d6-9a97-\
2cc943eb18d0"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"x", "=", 
   RowBox[{
    RowBox[{"1", "/", 
     RowBox[{"(", 
      RowBox[{"\[Sqrt]", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["a", "2"]}], "+", 
         SuperscriptBox["M", "2"]}], ")"}]}], ")"}]}], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"\[Sqrt]", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox["a", "2"]}], "+", 
          SuperscriptBox["M", "2"]}], ")"}]}], " ", "r"}], "+", 
      RowBox[{"M", " ", 
       RowBox[{"(", 
        RowBox[{"M", "+", 
         RowBox[{"\[Sqrt]", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "2"]}], "+", 
            SuperscriptBox["M", "2"]}], ")"}]}]}], ")"}], " ", 
       RowBox[{"Log", "[", 
        FractionBox[
         RowBox[{
          RowBox[{"-", "M"}], "-", 
          RowBox[{"\[Sqrt]", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              SuperscriptBox["a", "2"]}], "+", 
             SuperscriptBox["M", "2"]}], ")"}]}], "+", "r"}], "L"], "]"}]}], 
      "+", 
      RowBox[{"M", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "M"}], "+", 
         RowBox[{"\[Sqrt]", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "2"]}], "+", 
            SuperscriptBox["M", "2"]}], ")"}]}]}], ")"}], " ", 
       RowBox[{"Log", "[", 
        FractionBox[
         RowBox[{
          RowBox[{"-", "M"}], "+", 
          RowBox[{"\[Sqrt]", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              SuperscriptBox["a", "2"]}], "+", 
             SuperscriptBox["M", "2"]}], ")"}]}], "+", "r"}], "L"], "]"}]}]}],
      ")"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"x0", "=", 
    RowBox[{"x", "//.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"r", "\[Rule]", "r0"}], ",", 
       RowBox[{"r0", "\[Rule]", " ", 
        RowBox[{"rp", 
         RowBox[{"(", 
          RowBox[{"1", "+", "\[Epsilon]"}], ")"}]}]}]}], "}"}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"KZBHm", "=", 
   RowBox[{
    FractionBox[
     RowBox[{"RBH", "*", "R", "*", 
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", "2"}], " ", "I", " ", "k", " ", "x0"}], "]"}]}], 
     RowBox[{"1", "-", 
      RowBox[{"RBH", "*", "R", "*", 
       RowBox[{"Exp", "[", 
        RowBox[{
         RowBox[{"-", "2"}], " ", "I", " ", "k", " ", "x0"}], "]"}]}]}]], 
    "ZBHp"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7712642806837683`*^9, 3.771264338295176*^9}, {
   3.771266228722438*^9, 3.77126623130628*^9}, {3.771266265655671*^9, 
   3.77126636004591*^9}, {3.771266813245679*^9, 3.7712668171834183`*^9}, 
   3.7712671217839003`*^9, {3.775197974296562*^9, 3.775197984992661*^9}},
 CellLabel->"In[15]:=",ExpressionUUID->"d83bf7d0-1793-4b0f-b25a-ab55b5eca742"],

Cell["Final template [Eq. (14)]", "Text",
 CellChangeTimes->{{3.771264054683609*^9, 3.771264058270648*^9}, {
  3.771264204421282*^9, 3.771264205035653*^9}, {3.77126429672788*^9, 
  3.771264297440054*^9}, {3.7712669694312277`*^9, 3.771266971067518*^9}, {
  3.7713003116229687`*^9, 
  3.771300319677897*^9}},ExpressionUUID->"cde61d40-4e46-40d8-9c4e-\
3e06528c347e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Zp", "=", 
   RowBox[{"ZBHp", "+", "KZBHm"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7712669773936033`*^9, 3.771267007285472*^9}},
 CellLabel->"In[18]:=",ExpressionUUID->"edd9a56b-e8ac-496e-8ebf-dfca6c68eeec"],

Cell["Example: evaluation for some parameters", "Text",
 CellChangeTimes->{{3.771264054683609*^9, 3.771264058270648*^9}, {
  3.771264204421282*^9, 3.771264205035653*^9}, {3.77126429672788*^9, 
  3.771264297440054*^9}, {3.7712669694312277`*^9, 3.771266971067518*^9}, {
  3.7712671046574287`*^9, 3.77126710585135*^9}, {3.7713003235829973`*^9, 
  3.771300329382359*^9}},ExpressionUUID->"1c2a73e2-c0e6-4d8f-ae27-\
dd23acf98937"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"param", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"L", "\[Rule]", 
      RowBox[{"LL", "*", "M"}]}], ",", 
     RowBox[{"rp", "\[Rule]", 
      RowBox[{"M", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         SqrtBox[
          RowBox[{"1", "-", 
           SuperscriptBox["\[Chi]", "2"]}]]}], ")"}]}]}], ",", 
     RowBox[{"rm", "\[Rule]", 
      RowBox[{"M", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SqrtBox[
          RowBox[{"1", "-", 
           SuperscriptBox["\[Chi]", "2"]}]]}], ")"}]}]}], ",", 
     RowBox[{"a", "\[Rule]", 
      RowBox[{"\[Chi]", "*", "M"}]}], ",", 
     RowBox[{"\[Epsilon]", "\[Rule]", " ", 
      RowBox[{
       SqrtBox[
        RowBox[{"1", "-", 
         SuperscriptBox["\[Chi]", "2"]}]], 
       FractionBox[
        SuperscriptBox["\[Delta]", "2"], 
        RowBox[{"4", 
         SuperscriptBox["rp", "2"]}]]}]}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"sost", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"LL", "\[Rule]", "1"}], ",", 
      RowBox[{"M", "\[Rule]", "1"}], ",", 
      RowBox[{"m", "\[Rule]", "2"}], ",", 
      RowBox[{"\[Chi]", "\[Rule]", "0"}], ",", 
      RowBox[{"\[Omega]R", "\[Rule]", "0.37367"}], ",", 
      RowBox[{"\[Omega]I", "\[Rule]", " ", 
       RowBox[{"-", "0.08896"}]}], ",", 
      RowBox[{"t0", "\[Rule]", "0"}], ",", 
      RowBox[{"Ap", "\[Rule]", "1"}], ",", 
      RowBox[{"Ac", "\[Rule]", "0"}], ",", 
      RowBox[{"\[Phi]p", "\[Rule]", "0"}], ",", 
      RowBox[{"\[Phi]c", "\[Rule]", "0"}], ",", 
      RowBox[{"R", "\[Rule]", "1"}], ",", 
      RowBox[{"\[Delta]", "\[Rule]", 
       RowBox[{
        SuperscriptBox["10", 
         RowBox[{"-", "5"}]], "M"}]}]}], "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Zp", "//.", "param"}], "//.", "sost"}], "/.", 
  RowBox[{"\[Omega]", "\[Rule]", "0.1"}]}]}], "Input",
 CellChangeTimes->{{3.771264648493062*^9, 3.771264704280242*^9}, {
  3.771264762413961*^9, 3.771264800423979*^9}, {3.771265020844386*^9, 
  3.7712650688227158`*^9}, {3.771265291914579*^9, 3.771265294934041*^9}, {
  3.771265676921332*^9, 3.771265681236784*^9}, {3.771265900710355*^9, 
  3.771265902636944*^9}, {3.771265994539733*^9, 3.771265996222754*^9}, {
  3.77126610967544*^9, 3.771266121811721*^9}, {3.771266157754677*^9, 
  3.771266174899325*^9}, {3.7712662929499807`*^9, 3.771266294781268*^9}, {
  3.7712668209194183`*^9, 3.771266853553224*^9}, {3.771266917763135*^9, 
  3.7712669228356123`*^9}, {3.771267082596615*^9, 3.7712670894531593`*^9}, {
  3.771303017686132*^9, 3.771303018301553*^9}, {3.7751980497793417`*^9, 
  3.7751980501056213`*^9}},
 CellLabel->"In[19]:=",ExpressionUUID->"16b53f5a-fcbc-4626-8fb6-5ae1fc866401"],

Cell[BoxData[
 RowBox[{"0.11319756860372676`", "\[VeryThinSpace]", "-", 
  RowBox[{"0.16338410537899412`", " ", "\[ImaginaryI]"}]}]], "Output",
 CellChangeTimes->{3.771303025017565*^9, 3.775198051802477*^9},
 CellLabel->"Out[21]=",ExpressionUUID->"835f8a1e-bad6-4a71-bf0e-4d9e7e19e92f"]
}, Open  ]]
},
WindowSize->{1440, 775},
WindowMargins->{{6, Automatic}, {Automatic, 37}},
FrontEndVersion->"11.3 for Linux x86 (64-bit) (March 6, 2018)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 637, 13, 112, "Text",ExpressionUUID->"30badd30-87ab-4375-bfcf-658a2ad07731"],
Cell[1198, 35, 217, 4, 33, "Input",ExpressionUUID->"dc140df3-069b-42d7-b66d-bfcdccbfed43"],
Cell[1418, 41, 246, 4, 37, "Text",ExpressionUUID->"569c5f69-2a3d-4a7a-ab9c-19634b14833c"],
Cell[1667, 47, 4334, 122, 294, "Input",ExpressionUUID->"cdc3783b-a436-47af-82df-556fca611c7f"],
Cell[6004, 171, 307, 6, 37, "Text",ExpressionUUID->"5df25f19-c76e-4a58-8430-07614d07679e"],
Cell[6314, 179, 1284, 37, 164, "Input",ExpressionUUID->"9a60f9ef-9eb2-4612-9d05-afd8f1773228"],
Cell[7601, 218, 374, 6, 37, "Text",ExpressionUUID->"8360eb10-de64-48cd-bca3-0cfdba1f7c70"],
Cell[7978, 226, 2244, 67, 243, "Input",ExpressionUUID->"b6331bfc-e0d3-434b-a68d-ede649a712cf"],
Cell[10225, 295, 315, 5, 37, "Text",ExpressionUUID->"f0295247-e84d-45d6-9a97-2cc943eb18d0"],
Cell[10543, 302, 3005, 92, 181, "Input",ExpressionUUID->"d83bf7d0-1793-4b0f-b25a-ab55b5eca742"],
Cell[13551, 396, 363, 6, 37, "Text",ExpressionUUID->"cde61d40-4e46-40d8-9c4e-3e06528c347e"],
Cell[13917, 404, 246, 5, 33, "Input",ExpressionUUID->"edd9a56b-e8ac-496e-8ebf-dfca6c68eeec"],
Cell[14166, 411, 424, 6, 37, "Text",ExpressionUUID->"1c2a73e2-c0e6-4d8f-ae27-dd23acf98937"],
Cell[CellGroupData[{
Cell[14615, 421, 2792, 71, 155, "Input",ExpressionUUID->"16b53f5a-fcbc-4626-8fb6-5ae1fc866401"],
Cell[17410, 494, 286, 4, 37, "Output",ExpressionUUID->"835f8a1e-bad6-4a71-bf0e-4d9e7e19e92f"]
}, Open  ]]
}
]
*)