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

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

(* CreatedBy='Mathematica 13.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    464708,       9907]
NotebookOptionsPosition[    446410,       9640]
NotebookOutlinePosition[    446881,       9658]
CellTagsIndexPosition[    446838,       9655]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Numerical analysis - KL model - Heat current - Gapless- for fixed n different \
temperature \
\>", "Subsubsection",
 CellChangeTimes->{{3.8921949000502033`*^9, 3.892194909539785*^9}, {
   3.892195421277308*^9, 3.892195423733597*^9}, {3.892261325852085*^9, 
   3.8922613307160387`*^9}, {3.893745168228965*^9, 3.893745176677358*^9}, 
   3.89441741112214*^9, {3.89562174467109*^9, 3.895621750351262*^9}, {
   3.9018635419122*^9, 3.901863543400784*^9}, {3.908951512751371*^9, 
   3.908951523623046*^9}, {3.927591050638835*^9, 3.927591053886813*^9}, {
   3.931844641265348*^9, 3.931844658325081*^9}, {3.9798600420473003`*^9, 
   3.979860042970072*^9}, {3.979860183857518*^9, 3.979860199239171*^9}, 
   3.979860267761077*^9, {3.979894585282918*^9, 
   3.979894587477467*^9}},ExpressionUUID->"57b89fee-1e8e-419a-b3f8-\
f50557528b4e"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "In", " ", "this", " ", "section", " ", "we", " ", "analysed", " ", "the", 
   " ", "linear", " ", "temperature", " ", "dependence", " ", "of", " ", 
   "quantum", " ", "current", " ", "in", " ", "the", " ", "gapless", " ", 
   "regime"}], "*)"}]], "Input",
 CellChangeTimes->{{3.979860272672861*^9, 3.979860297116089*^9}, {
  3.9798603711508923`*^9, 3.979860375914154*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"af4b6ac6-3a20-4444-9f29-a5378aada736"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"d\[Omega]", "=", "0.00025"}], ";", 
  RowBox[{"\[Omega]tab", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"i", ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"-", 
        RowBox[{"N", "[", "1.8", "]"}]}], ",", 
       RowBox[{"N", "[", "1.8", "]"}], ",", "d\[Omega]"}], "}"}]}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"\[Omega]ntab", "=", 
   RowBox[{"Drop", "[", 
    RowBox[{"\[Omega]tab", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Position", "[", 
        RowBox[{"\[Omega]tab", ",", "0."}], "]"}], "\[LeftDoubleBracket]", 
       RowBox[{"1", ",", "1"}], "\[RightDoubleBracket]"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"zl", "[", 
    RowBox[{
    "m_", ",", " ", "r_", ",", "\[Omega]_", ",", "k_", ",", "v1_", ",", 
     "\[Gamma]_"}], "]"}], ":=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "m"}], " ", 
     SuperscriptBox["r", "2"], " ", 
     SuperscriptBox["\[Omega]", "2"]}], "+", 
    RowBox[{"k", " ", 
     SuperscriptBox["v1", "2"]}], "-", " ", 
    RowBox[{"I", " ", "*", 
     RowBox[{"(", 
      RowBox[{"\[Gamma]", " ", "*", "\[Omega]"}], ")"}]}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"zr", "[", 
    RowBox[{
    "m_", ",", " ", "r_", ",", "\[Omega]_", ",", "k_", ",", "v2_", ",", 
     "\[Gamma]_"}], "]"}], ":=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "m"}], " ", 
     SuperscriptBox["r", "2"], " ", 
     SuperscriptBox["\[Omega]", "2"]}], "+", 
    RowBox[{"k", " ", 
     SuperscriptBox["v2", "2"]}], "-", " ", 
    RowBox[{"I", " ", "*", 
     RowBox[{"(", 
      RowBox[{"\[Gamma]", " ", "*", "\[Omega]"}], ")"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"z", "[", 
    RowBox[{
    "m_", ",", "r_", ",", "\[Omega]_", ",", "k_", ",", "v1_", ",", "v2_"}], 
    "]"}], ":=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "m"}], " ", 
     SuperscriptBox["r", "2"], " ", 
     SuperscriptBox["\[Omega]", "2"]}], "+", 
    RowBox[{"k", " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["v1", "2"], " ", "+", " ", 
       SuperscriptBox["v2", "2"]}], ")"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"m", "=", "1.0"}], ";", 
  RowBox[{"r", "=", "2.0"}], ";", 
  RowBox[{"a", "=", "1.0"}], ";", " ", 
  RowBox[{"k", "=", "1.0"}], ";", 
  RowBox[{"\[Gamma]L", "=", "0.2"}], ";", 
  RowBox[{"\[Gamma]R", "=", "0.2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"\[Omega]_", ",", "T_"}], "]"}], ":=", " ", 
   FractionBox["1", 
    RowBox[{
     RowBox[{"Exp", "[", 
      FractionBox[
       RowBox[{"\[HBar]", " ", "\[Omega]"}], 
       RowBox[{"kb", " ", "T"}]], "]"}], "-", "1"}]]}], ";", 
  RowBox[{"kb", "=", "1.0"}], ";", 
  RowBox[{"\[HBar]", "=", "1.0"}], ";", " ", 
  RowBox[{"n", "=", "15"}], ";"}]}], "Input",
 CellChangeTimes->{{3.86840385771015*^9, 3.868403865082279*^9}, {
   3.868404213565318*^9, 3.868404229533517*^9}, {3.868404262893664*^9, 
   3.8684042634362087`*^9}, {3.868405051091968*^9, 3.868405051995028*^9}, {
   3.868405126354449*^9, 3.868405127537305*^9}, {3.8684065561216803`*^9, 
   3.868406556648838*^9}, {3.868407071065693*^9, 3.86840707196108*^9}, {
   3.868407127383185*^9, 3.8684071346465807`*^9}, 3.868407175808673*^9, {
   3.868407307080939*^9, 3.868407376100984*^9}, {3.868409764193202*^9, 
   3.8684098385813293`*^9}, {3.868409876621852*^9, 3.868409880300149*^9}, {
   3.868410129949355*^9, 3.868410175748075*^9}, {3.868411516031082*^9, 
   3.868411524246174*^9}, {3.868411667231938*^9, 3.8684116752482224`*^9}, 
   3.868411715451689*^9, {3.868412078707752*^9, 3.868412079928488*^9}, {
   3.868412399239757*^9, 3.868412399711008*^9}, {3.868412459249563*^9, 
   3.868412460238564*^9}, {3.868418574401619*^9, 3.868418575945039*^9}, {
   3.868418636520402*^9, 3.868418636983653*^9}, {3.868418667968072*^9, 
   3.8684187901577263`*^9}, {3.868418825485381*^9, 3.868418826045614*^9}, {
   3.868418866428574*^9, 3.868418866940524*^9}, {3.868418914579878*^9, 
   3.868418917251444*^9}, {3.86841912608714*^9, 3.8684191264143467`*^9}, {
   3.868419156814341*^9, 3.86841917957308*^9}, {3.868511204427794*^9, 
   3.868511205001893*^9}, {3.868511290314198*^9, 3.868511290616612*^9}, {
   3.868511354993012*^9, 3.868511355463366*^9}, {3.868602625620034*^9, 
   3.86860266920962*^9}, {3.8686027151611423`*^9, 3.868602715712357*^9}, {
   3.868602747344434*^9, 3.868602769631366*^9}, {3.868603260144537*^9, 
   3.868603285799528*^9}, {3.868603413390068*^9, 3.868603413557343*^9}, {
   3.868603824077499*^9, 3.868603848604155*^9}, {3.868603880907151*^9, 
   3.868603882539111*^9}, {3.868603925121768*^9, 3.868603925545188*^9}, {
   3.868603956096533*^9, 3.868603956335929*^9}, {3.868604380164731*^9, 
   3.868604380548272*^9}, {3.868605632947117*^9, 3.868605634513568*^9}, {
   3.8686056777691708`*^9, 3.8686056782724447`*^9}, {3.868605723383866*^9, 
   3.8686057530067577`*^9}, {3.868605794038369*^9, 3.868605842558017*^9}, {
   3.8686066000249147`*^9, 3.86860662210394*^9}, {3.868606655399979*^9, 
   3.868606713711356*^9}, {3.868606934555969*^9, 3.868606935388111*^9}, {
   3.868606994578874*^9, 3.868606996690547*^9}, {3.868607845149045*^9, 
   3.868607920482331*^9}, {3.868607967617207*^9, 3.868607977224205*^9}, {
   3.86860813051565*^9, 3.868608135649007*^9}, {3.868608179194238*^9, 
   3.868608179889978*^9}, {3.868608942491249*^9, 3.86860894968719*^9}, {
   3.868609271417534*^9, 3.868609277833392*^9}, {3.868609351279739*^9, 
   3.86860935195992*^9}, {3.868665669302395*^9, 3.868665708940984*^9}, {
   3.868665746596598*^9, 3.868665748756846*^9}, {3.86866624725371*^9, 
   3.868666273125188*^9}, {3.868666555210957*^9, 3.868666555938257*^9}, {
   3.868666588290728*^9, 3.868666589778351*^9}, {3.868667513180248*^9, 
   3.8686675136436787`*^9}, {3.868667578563308*^9, 3.868667604354793*^9}, {
   3.868667729464364*^9, 3.868667756776352*^9}, {3.868671876905162*^9, 
   3.868671896239921*^9}, {3.868671942503599*^9, 3.868671943935336*^9}, {
   3.8686720129422083`*^9, 3.868672013605905*^9}, {3.868952398284077*^9, 
   3.868952403323431*^9}, {3.868953002017135*^9, 3.868953004888228*^9}, {
   3.869204267149353*^9, 3.869204270628992*^9}, {3.869204398362966*^9, 
   3.869204413274459*^9}, {3.870394755959407*^9, 3.870394775757773*^9}, {
   3.874469292133422*^9, 3.8744692955075*^9}, {3.874469784769734*^9, 
   3.874469809609144*^9}, {3.874469880024169*^9, 3.874469931581843*^9}, {
   3.874469962053199*^9, 3.874469965085628*^9}, {3.874470285638688*^9, 
   3.874470293502266*^9}, {3.876204122378257*^9, 3.876204151287579*^9}, {
   3.876803319891176*^9, 3.876803327201121*^9}, {3.876803365537792*^9, 
   3.876803366002085*^9}, {3.876803404475884*^9, 3.87680340605978*^9}, 
   3.8787803862556677`*^9, {3.878780417895706*^9, 3.878780423263797*^9}, {
   3.8787804731209993`*^9, 3.87878051499361*^9}, {3.878780557451213*^9, 
   3.878780686821651*^9}, {3.878780739863353*^9, 3.878780766472425*^9}, {
   3.878780818633658*^9, 3.87878082108982*^9}, {3.878780927981073*^9, 
   3.878780928645149*^9}, {3.878781141427789*^9, 3.878781204197002*^9}, {
   3.878788433036141*^9, 3.878788450530957*^9}, {3.878788506516498*^9, 
   3.878788508851853*^9}, {3.878788769578144*^9, 3.878788770225845*^9}, {
   3.878792461953405*^9, 3.878792516152624*^9}, {3.878792654845168*^9, 
   3.8787926706511507`*^9}, {3.880587319670717*^9, 3.880587321276775*^9}, {
   3.880587351941907*^9, 3.880587366669932*^9}, {3.88732769465307*^9, 
   3.8873276951725616`*^9}, {3.887328590194618*^9, 3.8873285905847483`*^9}, {
   3.887328622688421*^9, 3.887328650087474*^9}, {3.887413981862784*^9, 
   3.887413982694622*^9}, {3.88742754456899*^9, 3.887427545792269*^9}, {
   3.8880304022348013`*^9, 3.888030411804422*^9}, {3.888030835003417*^9, 
   3.888030835347118*^9}, {3.88803086873506*^9, 3.8880308728842897`*^9}, {
   3.888030973239741*^9, 3.8880309842467318`*^9}, {3.888031082203557*^9, 
   3.888031083744651*^9}, {3.8889959115520782`*^9, 3.8889959207844*^9}, {
   3.888995982001768*^9, 3.888995983873726*^9}, {3.888996085388401*^9, 
   3.88899608567633*^9}, {3.8889968210685053`*^9, 3.888996821668586*^9}, {
   3.8889969366717043`*^9, 3.888996950743225*^9}, {3.888997124459343*^9, 
   3.888997130907942*^9}, {3.888997180884336*^9, 3.888997181204391*^9}, {
   3.888997272911078*^9, 3.888997273871207*^9}, {3.888997353802054*^9, 
   3.888997367489154*^9}, {3.888997602630905*^9, 3.888997603054173*^9}, {
   3.8921949442387877`*^9, 3.892194948339978*^9}, {3.892195014629484*^9, 
   3.8921950379895487`*^9}, {3.8921952506842003`*^9, 
   3.8921952571146603`*^9}, {3.8921954562071867`*^9, 3.892195457207259*^9}, {
   3.892195504743905*^9, 3.892195520176637*^9}, 3.892195595858009*^9, {
   3.892261368249839*^9, 3.892261392119915*^9}, {3.89226142555191*^9, 
   3.892261425935705*^9}, {3.892266790669443*^9, 3.892266791125068*^9}, 
   3.8922671879413033`*^9, {3.892267530003735*^9, 3.89226753066784*^9}, {
   3.893465104490781*^9, 3.893465113195031*^9}, {3.893466956299871*^9, 
   3.893466957451434*^9}, {3.893469317938162*^9, 3.893469355394409*^9}, 
   3.893469386011278*^9, {3.8943290752580023`*^9, 3.894329075720854*^9}, 
   3.8943291060018787`*^9, {3.894329141650915*^9, 3.894329144026731*^9}, 
   3.894329503551583*^9, {3.8943295791847887`*^9, 3.894329658322259*^9}, {
   3.894329826582612*^9, 3.894329826797347*^9}, {3.894329863254418*^9, 
   3.894329864341895*^9}, {3.894329901839355*^9, 3.894329933175375*^9}, {
   3.894329969520199*^9, 3.894329980064024*^9}, {3.894330014105261*^9, 
   3.894330019081537*^9}, {3.894330065586312*^9, 3.8943300674019*^9}, {
   3.894330104107654*^9, 3.894330104971154*^9}, {3.894331004192333*^9, 
   3.89433100440018*^9}, {3.894331034745393*^9, 3.894331064297709*^9}, {
   3.89433111915508*^9, 3.894331120514441*^9}, {3.894331161763747*^9, 
   3.894331162603915*^9}, {3.894331205349009*^9, 3.894331205884858*^9}, {
   3.894331249974222*^9, 3.894331250502007*^9}, {3.894331290439274*^9, 
   3.894331291007515*^9}, {3.894331326664509*^9, 3.894331326952735*^9}, {
   3.894331367034045*^9, 3.894331368738026*^9}, {3.894331404083208*^9, 
   3.894331404490985*^9}, {3.894331447476458*^9, 3.894331448284525*^9}, {
   3.894331483989017*^9, 3.894331484772949*^9}, {3.8943315284949527`*^9, 
   3.894331572944125*^9}, {3.894331604793625*^9, 3.894331605833008*^9}, {
   3.894331887778177*^9, 3.894331888408771*^9}, {3.894343387866048*^9, 
   3.894343414282322*^9}, {3.894864278159524*^9, 3.894864291749405*^9}, {
   3.894864353943188*^9, 3.894864356446884*^9}, {3.894864443641974*^9, 
   3.894864447601928*^9}, {3.894864829419112*^9, 3.894864834907456*^9}, {
   3.8948653589200983`*^9, 3.894865387328062*^9}, {3.894865421152905*^9, 
   3.894865454857673*^9}, {3.894865498634774*^9, 3.894865500330443*^9}, {
   3.894946108891407*^9, 3.894946127011511*^9}, {3.89494625582275*^9, 
   3.894946257783217*^9}, 3.894946389290127*^9, {3.895108479643525*^9, 
   3.895108485275545*^9}, 3.895108549422448*^9, {3.89556172935443*^9, 
   3.8955617295995007`*^9}, {3.8955617947603693`*^9, 3.895561795321059*^9}, {
   3.895561894827398*^9, 3.895561894979487*^9}, 3.895620748307724*^9, {
   3.895620801317152*^9, 3.895620812109129*^9}, {3.895620963169644*^9, 
   3.895620965908121*^9}, {3.895620996626018*^9, 3.895621086612134*^9}, {
   3.895621133245095*^9, 3.895621173429083*^9}, {3.8956213145393267`*^9, 
   3.8956213156803703`*^9}, {3.8956213485531607`*^9, 3.895621351809031*^9}, {
   3.895621402722004*^9, 3.895621403617743*^9}, {3.895621440739107*^9, 
   3.895621441330864*^9}, {3.895621649816761*^9, 3.8956216501337433`*^9}, {
   3.8957089076165524`*^9, 3.895708907950719*^9}, {3.895709348081283*^9, 
   3.895709380217978*^9}, {3.895709421218331*^9, 3.895709422226064*^9}, {
   3.89570947260378*^9, 3.895709494067134*^9}, {3.901859359330638*^9, 
   3.901859384921168*^9}, 3.901860193922276*^9, {3.901860227969263*^9, 
   3.901860439756713*^9}, {3.901860484548567*^9, 3.901860485316663*^9}, {
   3.901862550381569*^9, 3.9018625615815077`*^9}, {3.901862593225676*^9, 
   3.901862616370899*^9}, {3.901863257705104*^9, 3.901863257919154*^9}, {
   3.9018633570378103`*^9, 3.901863371564993*^9}, {3.901864380802061*^9, 
   3.901864386529272*^9}, {3.901864487087375*^9, 3.901864489950995*^9}, {
   3.901936921422677*^9, 3.901936921966583*^9}, {3.9019369672940893`*^9, 
   3.901936967621874*^9}, {3.901937010309692*^9, 3.901937086762596*^9}, {
   3.901937173482359*^9, 3.901937173994228*^9}, {3.901937255744856*^9, 
   3.901937257072501*^9}, {3.90193729251267*^9, 3.901937301144257*^9}, {
   3.901937394182691*^9, 3.901937401830097*^9}, {3.901960017001911*^9, 
   3.901960021512333*^9}, {3.908927581023949*^9, 3.908927582063386*^9}, {
   3.908927724797622*^9, 3.908927729602792*^9}, 3.908929533019766*^9, {
   3.908929600462516*^9, 3.908929644482918*^9}, {3.908929731495384*^9, 
   3.908929733446294*^9}, {3.908930697229319*^9, 3.908930697859748*^9}, 
   3.908948061250345*^9, {3.908951423321053*^9, 3.908951423705051*^9}, {
   3.90901435764253*^9, 3.909014375373171*^9}, {3.909555069484689*^9, 
   3.909555105059954*^9}, {3.909555397463691*^9, 3.909555401494233*^9}, {
   3.9095555439871407`*^9, 3.9095555522585297`*^9}, {3.909555723078628*^9, 
   3.909555724358447*^9}, {3.909555765821327*^9, 3.90955576883724*^9}, {
   3.909555803916922*^9, 3.909555819228349*^9}, {3.909555868653882*^9, 
   3.909555879499168*^9}, {3.909555948763439*^9, 3.909555948993187*^9}, {
   3.909556019679837*^9, 3.909556020039604*^9}, {3.909556064863696*^9, 
   3.909556098422133*^9}, {3.9095561486611776`*^9, 3.909556148900863*^9}, {
   3.909556371817337*^9, 3.909556375736775*^9}, {3.9095566585647793`*^9, 
   3.909556658675379*^9}, {3.909556821544057*^9, 3.909556824487949*^9}, {
   3.909556868175756*^9, 3.909556869543235*^9}, {3.909556905689513*^9, 
   3.90955690683827*^9}, {3.9095570081492434`*^9, 3.909557013316237*^9}, {
   3.909557074547624*^9, 3.909557075755292*^9}, {3.909557146282316*^9, 
   3.909557146777745*^9}, {3.909557178946028*^9, 3.909557180794894*^9}, {
   3.90955723137719*^9, 3.909557237208508*^9}, {3.9096185520022597`*^9, 
   3.909618552193584*^9}, {3.910049654725862*^9, 3.910049689308845*^9}, {
   3.927590670848628*^9, 3.927590710399373*^9}, {3.927591919330123*^9, 
   3.927591922184824*^9}, {3.927592025039203*^9, 3.927592028422969*^9}, {
   3.927592229284198*^9, 3.927592250723752*^9}, {3.927592586317094*^9, 
   3.927592604420136*^9}, {3.927592746001*^9, 3.927592754369512*^9}, {
   3.927592880446703*^9, 3.927592882558571*^9}, {3.92759310691317*^9, 
   3.927593112273161*^9}, {3.927593194265614*^9, 3.927593195865103*^9}, {
   3.927676021049372*^9, 3.927676048768753*^9}, {3.931841564322419*^9, 
   3.9318416829259443`*^9}, {3.93184171464529*^9, 3.931841726141107*^9}, {
   3.931842305729027*^9, 3.931842321376515*^9}, {3.93184235763234*^9, 
   3.931842363039794*^9}, {3.931842454037709*^9, 3.931842483389174*^9}, {
   3.931842544252232*^9, 3.931842545084244*^9}, {3.931844593207191*^9, 
   3.931844595302655*^9}, {3.931844678173288*^9, 3.931844678413064*^9}, {
   3.931844714685001*^9, 3.9318447163404913`*^9}, {3.9318447507242393`*^9, 
   3.931844802531241*^9}, {3.931844839986019*^9, 3.931844867929899*^9}, {
   3.931844941392971*^9, 3.931844976631922*^9}, {3.931845305090478*^9, 
   3.931845308746036*^9}, {3.93184536468119*^9, 3.931845379536525*^9}, {
   3.931845415560306*^9, 3.931845415999588*^9}, {3.931845447474188*^9, 
   3.931845468230789*^9}, {3.931846450983832*^9, 3.931846452399448*^9}, {
   3.931846611709145*^9, 3.931846612772694*^9}, {3.931846655188932*^9, 
   3.931846659524327*^9}, {3.931846886408743*^9, 3.9318469284556*^9}, {
   3.931847571374922*^9, 3.931847573804913*^9}, {3.931847706563249*^9, 
   3.931847728930748*^9}, {3.933913778083227*^9, 3.933913778232294*^9}, {
   3.933913820186062*^9, 3.933913825887947*^9}, {3.933913863097342*^9, 
   3.933913893118885*^9}, {3.93391408917644*^9, 3.9339141245072536`*^9}, {
   3.933914248977375*^9, 3.933914249448888*^9}, {3.93391435983158*^9, 
   3.933914371726583*^9}, {3.9339145515082808`*^9, 3.933914551681539*^9}, {
   3.933916069472368*^9, 3.933916077485342*^9}, {3.950076419298417*^9, 
   3.950076420634174*^9}, {3.95007763324118*^9, 3.950077633425228*^9}, {
   3.950077719624685*^9, 3.950077719912232*^9}, {3.950077834657084*^9, 
   3.950077855447936*^9}, {3.950077954576191*^9, 3.950077955599498*^9}, {
   3.950078121638562*^9, 3.950078122046585*^9}, {3.950078479639316*^9, 
   3.950078480613124*^9}, {3.950146351994965*^9, 3.950146353266458*^9}, {
   3.950255135497823*^9, 3.950255150981997*^9}, {3.95102867993883*^9, 
   3.951028683130299*^9}, {3.951028717865425*^9, 3.951028718452504*^9}, {
   3.951028770816467*^9, 3.951028804470745*^9}, {3.9511827899683228`*^9, 
   3.951182790839325*^9}, {3.9511828912360353`*^9, 3.951182893107565*^9}, {
   3.95118292805906*^9, 3.951182929498592*^9}, 3.951182968641434*^9, 
   3.95118300735994*^9, {3.951183062023226*^9, 3.951183094822544*^9}, {
   3.9511831560211153`*^9, 3.951183160292633*^9}, {3.9511832979780207`*^9, 
   3.951183298161976*^9}, {3.951183350153251*^9, 3.951183351552932*^9}, {
   3.951183841114215*^9, 3.951183842169937*^9}, {3.951184271653352*^9, 
   3.951184274557108*^9}, {3.951784418834997*^9, 3.9517844293222427`*^9}, {
   3.951784485121159*^9, 3.951784485648854*^9}, {3.951784531569015*^9, 
   3.951784535552806*^9}, {3.951784571096217*^9, 3.951784571583999*^9}, {
   3.95378418466431*^9, 3.9537841852562103`*^9}, {3.953784230535343*^9, 
   3.953784231327062*^9}, {3.979894598667671*^9, 3.979894599755568*^9}, {
   3.980584307742239*^9, 3.98058432037416*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"295a613f-f86c-411e-9ecb-265de5dd104c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[CapitalTheta]", "=", 
   RowBox[{"N", "[", "0.0", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.931842565966619*^9, 3.931842577746924*^9}, {
   3.933912132620206*^9, 3.933912133514466*^9}, {3.933912218413987*^9, 
   3.933912220292248*^9}, {3.933912625780994*^9, 3.9339126499319057`*^9}, {
   3.933912682715613*^9, 3.93391268562755*^9}, {3.933914597568397*^9, 
   3.93391459949608*^9}, {3.933914734200596*^9, 3.933914734475689*^9}, {
   3.933916097572337*^9, 3.933916109724107*^9}, {3.933916511022908*^9, 
   3.933916516748347*^9}, {3.933916607159955*^9, 3.93391660742772*^9}, {
   3.949640640898411*^9, 3.949640650690319*^9}, {3.950077904527635*^9, 
   3.950077909143482*^9}, 3.950078552469404*^9, {3.950146102812729*^9, 
   3.950146105712146*^9}, {3.950146166422617*^9, 3.950146169670293*^9}, {
   3.950146260348577*^9, 3.950146260548291*^9}, {3.950146311603748*^9, 
   3.9501463133470707`*^9}, {3.9510286349315777`*^9, 3.951028635339366*^9}, {
   3.95102874383292*^9, 3.951028745112499*^9}, {3.95118282808549*^9, 
   3.951182829493501*^9}, {3.951183795020094*^9, 3.95118379600141*^9}, {
   3.951784410322576*^9, 3.951784412258546*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"891d4ea6-9886-4f09-808d-123df7b2640b"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"v1", " ", "=", " ", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "r", " ", 
        RowBox[{"Sin", "[", "\[CapitalTheta]", "]"}]}], "+", "a"}], ")"}], 
     "r", " ", 
     RowBox[{"Cos", "[", "\[CapitalTheta]", "]"}]}], 
    SqrtBox[
     RowBox[{
      SuperscriptBox["a", "2"], "+", " ", 
      RowBox[{"4", " ", 
       SuperscriptBox["r", "2"], " ", 
       SuperscriptBox[
        RowBox[{"Cos", "[", "\[CapitalTheta]", "]"}], "2"]}]}]]]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"v2", "=", "  ", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "r", " ", 
        RowBox[{"Sin", "[", "\[CapitalTheta]", "]"}]}], "-", "a"}], ")"}], 
     "r", " ", 
     RowBox[{"Cos", "[", "\[CapitalTheta]", "]"}]}], 
    SqrtBox[
     RowBox[{
      SuperscriptBox["a", "2"], "+", " ", 
      RowBox[{"4", " ", 
       SuperscriptBox["r", "2"], " ", 
       SuperscriptBox[
        RowBox[{"Cos", "[", "\[CapitalTheta]", "]"}], "2"]}]}]]]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.93184254814852*^9, 3.931842651937689*^9}, {
  3.956044486780415*^9, 3.956044495897498*^9}},
 CellLabel->"In[10]:=",ExpressionUUID->"f4a1c207-08f9-41a6-b9a6-4cbf1f1fce36"],

Cell[CellGroupData[{

Cell[BoxData["v1"], "Input",
 CellChangeTimes->{{3.932010244175533*^9, 3.932010244526874*^9}},
 CellLabel->"In[12]:=",ExpressionUUID->"260f0f97-fb79-4aa9-a922-3f1c3464fd06"],

Cell[BoxData["0.48507125007266594`"], "Output",
 CellChangeTimes->{
  3.932010244910797*^9, 3.933912143762079*^9, 3.933912229977297*^9, 
   3.93391252481177*^9, {3.933912637526334*^9, 3.933912658897337*^9}, 
   3.933912695175101*^9, 3.933913789913594*^9, {3.933913856832857*^9, 
   3.933913901069459*^9}, 3.933914102726664*^9, 3.933914135057935*^9, 
   3.933914257696794*^9, 3.933914385521103*^9, 3.933914561486853*^9, 
   3.933914611020983*^9, 3.933914743272276*^9, 3.933916085204833*^9, 
   3.933916118736618*^9, 3.9339165275192947`*^9, 3.933916618072034*^9, 
   3.949629906216455*^9, 3.9496398278109818`*^9, 3.949640669655354*^9, 
   3.950076294662318*^9, 3.95007645330061*^9, {3.950077434281329*^9, 
   3.950077463919406*^9}, 3.9500775775236053`*^9, 3.95007767051988*^9, 
   3.950077730328622*^9, 3.9500778628958273`*^9, 3.9500779163910937`*^9, 
   3.950077964711911*^9, 3.950078059576083*^9, 3.950078097378381*^9, 
   3.950078130292156*^9, 3.950078488742296*^9, 3.9500785682122793`*^9, 
   3.95014611470316*^9, 3.950146177435438*^9, 3.950146268254474*^9, 
   3.950146322239085*^9, 3.95014636790208*^9, 3.950147497263881*^9, 
   3.951028642498837*^9, 3.951028690911489*^9, {3.951028725613956*^9, 
   3.9510287818013372`*^9}, 3.951028816297344*^9, 3.951182800217533*^9, 
   3.951182840640275*^9, 3.951182906025887*^9, 3.951182941902111*^9, 
   3.95118301853587*^9, 3.9511830736829853`*^9, 3.95118310498349*^9, 
   3.951183172464623*^9, 3.951183307971541*^9, 3.951183358462636*^9, 
   3.951183456770105*^9, 3.9511838051157837`*^9, 3.951183850273073*^9, 
   3.95118428227481*^9, 3.951784447813064*^9, 3.951784500111416*^9, 
   3.951784545647428*^9, 3.951784579236952*^9, 3.953784100779755*^9, 
   3.953784203801729*^9, 3.9560445170649643`*^9, 3.979859519073045*^9, 
   3.979859939611719*^9, 3.979876796736473*^9, 3.979877775693938*^9, 
   3.979879685952914*^9, 3.979894625041383*^9, 3.979900369515622*^9, 
   3.979902309401937*^9, 3.980584063967333*^9, 3.9805844073311167`*^9},
 CellLabel->"Out[12]=",ExpressionUUID->"a9509137-782a-4756-820f-bcfdbfac85e9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["v2"], "Input",
 CellChangeTimes->{{3.932010246199688*^9, 3.932010246455144*^9}, {
  3.979876798333867*^9, 3.979876799273221*^9}},
 CellLabel->"In[13]:=",ExpressionUUID->"d367d10f-aea6-43bb-bf3f-9682cf64b593"],

Cell[BoxData[
 RowBox[{"-", "0.48507125007266594`"}]], "Output",
 CellChangeTimes->{
  3.932010246797163*^9, 3.933912143777296*^9, 3.933912229997974*^9, 
   3.9339125248390923`*^9, {3.933912637536775*^9, 3.933912658911095*^9}, 
   3.933912695192689*^9, 3.933913789999742*^9, {3.933913856852144*^9, 
   3.933913901080988*^9}, 3.933914102741106*^9, 3.933914135074398*^9, 
   3.933914257717779*^9, 3.933914385545182*^9, 3.933914561498124*^9, 
   3.93391461103782*^9, 3.933914743287671*^9, 3.933916085217108*^9, 
   3.933916118751116*^9, 3.933916527534978*^9, 3.933916618079723*^9, 
   3.949629906235147*^9, 3.9496398278205633`*^9, 3.949640669666696*^9, 
   3.950076294678251*^9, 3.950076453309349*^9, {3.950077434292522*^9, 
   3.950077463930998*^9}, 3.95007757753278*^9, 3.9500776705317917`*^9, 
   3.9500777303388977`*^9, 3.950077862907949*^9, 3.950077916404453*^9, 
   3.950077964721533*^9, 3.950078059592309*^9, 3.9500780973899918`*^9, 
   3.950078130304915*^9, 3.950078488754057*^9, 3.950078568233926*^9, 
   3.950146114714862*^9, 3.950146177448991*^9, 3.950146268266678*^9, 
   3.950146322248744*^9, 3.950146367923324*^9, 3.950147497275825*^9, 
   3.951028642519265*^9, 3.951028690928585*^9, {3.951028725631336*^9, 
   3.951028781815786*^9}, 3.951028816315218*^9, 3.951182800228914*^9, 
   3.951182840653591*^9, 3.951182906043208*^9, 3.951182941915019*^9, 
   3.9511830185524282`*^9, 3.9511830737001667`*^9, 3.951183104992459*^9, 
   3.951183172477466*^9, 3.95118330798848*^9, 3.951183358483718*^9, 
   3.951183456807084*^9, 3.9511838051270657`*^9, 3.951183850284616*^9, 
   3.951184282287855*^9, 3.9517844478217*^9, 3.951784500131185*^9, 
   3.951784545665267*^9, 3.951784579253133*^9, 3.953784100789168*^9, 
   3.953784203814389*^9, 3.9560445170668507`*^9, 3.979859520155767*^9, 
   3.9798599396135*^9, 3.979876800580003*^9, 3.979877777895669*^9, 
   3.979879685957127*^9, 3.979894625043659*^9, 3.9799003695183277`*^9, 
   3.979902309404069*^9, 3.9805840639693117`*^9, 3.98058440737038*^9},
 CellLabel->"Out[13]=",ExpressionUUID->"8fe57e20-c563-4c4c-9183-82fd3659cb74"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"dtl1", "=", "0.025"}], ";", "\n", 
   RowBox[{"tl1tab", "=", 
    RowBox[{"Table", "[", 
     RowBox[{"i", ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "0.0101", ",", "0.1001", ",", "dtl1"}], "}"}]}], 
     "]"}]}], ";", "\n", 
   RowBox[{"dtl2", "=", "0.1"}], ";", "\n", 
   RowBox[{"tl2tab", "=", 
    RowBox[{"Table", "[", 
     RowBox[{"i", ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "0.1001", ",", "2.1001", ",", "dtl2"}], "}"}]}], 
     "]"}]}], ";", "\n", 
   RowBox[{"tltab", "=", 
    RowBox[{"Join", "[", 
     RowBox[{"tl1tab", ",", "tl2tab"}], "]"}]}], ";", "\n", 
   RowBox[{"dtr1", "=", "0.025"}], ";", "\n", 
   RowBox[{"tr1tab", "=", 
    RowBox[{"Table", "[", 
     RowBox[{"i", ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "0.01", ",", "0.10", ",", "dtr1"}], "}"}]}], "]"}]}],
    ";", "\n", 
   RowBox[{"dtr2", "=", "0.1"}], ";", "\n", 
   RowBox[{"tr2tab", "=", 
    RowBox[{"Table", "[", 
     RowBox[{"i", ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "0.10", ",", "2.10", ",", "dtr2"}], "}"}]}], "]"}]}],
    ";", "\n", 
   RowBox[{"trtab", "=", 
    RowBox[{"Join", "[", 
     RowBox[{"tr1tab", ",", "tr2tab"}], "]"}]}], ";", "\n", 
   RowBox[{"Ttab", "=", 
    FractionBox[
     RowBox[{"tltab", "+", "trtab"}], "2"]}], ";", "\n", 
   RowBox[{"tltab", "-", "trtab"}], ";"}], "*)"}]], "Input",
 CellChangeTimes->{{3.949639809402182*^9, 3.949639817856158*^9}, {
  3.950076152137186*^9, 3.95007615833678*^9}},
 CellLabel->"In[14]:=",ExpressionUUID->"1f4f49d0-c0c1-4223-81ae-0e87823dbff5"],

Cell[BoxData[
 RowBox[{"(*", "Ttab", "*)"}]], "Input",
 CellChangeTimes->{{3.949648633573525*^9, 3.949648634606041*^9}, {
  3.9500761969561977`*^9, 3.950076201060216*^9}},
 CellLabel->"In[15]:=",ExpressionUUID->"8ba05414-9409-4cef-aadf-e8fd79c86566"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"dtl", "=", "0.1"}], ";", 
   RowBox[{"tltab", "=", 
    RowBox[{"Table", "[", 
     RowBox[{"i", ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "2.9", ",", "3.0", ",", "dtl"}], "}"}]}], "]"}]}], 
   ";", 
   RowBox[{"trtab", "=", 
    RowBox[{"Table", "[", 
     RowBox[{"i", ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1.9", ",", "2.0", ",", "dtl"}], "}"}]}], "]"}]}], 
   ";", "\[IndentingNewLine]", 
   RowBox[{"Ttab", "=", 
    FractionBox[
     RowBox[{"tltab", "+", "trtab"}], "2"]}], ";"}], "*)"}]], "Input",
 CellChangeTimes->{{3.8949460757633753`*^9, 3.894946096474883*^9}, 
   3.894946294207357*^9, 3.89494635595314*^9, 3.894946394410119*^9, {
   3.894946792428321*^9, 3.8949467968922043`*^9}, {3.895108537429946*^9, 
   3.895108543469845*^9}, {3.895108575111008*^9, 3.895108584359124*^9}, {
   3.895109509233223*^9, 3.895109510801064*^9}, {3.927172828770138*^9, 
   3.927172859824037*^9}, {3.927175391351359*^9, 3.927175393303876*^9}, {
   3.9271755108294697`*^9, 3.927175582804019*^9}, {3.94962988436237*^9, 
   3.949629888193962*^9}, {3.950076162633923*^9, 3.950076187867282*^9}, {
   3.950076232383464*^9, 3.9500762329749126`*^9}, {3.950147480210596*^9, 
   3.950147483106159*^9}, {3.951028616084304*^9, 3.951028619539738*^9}},
 CellLabel->"In[16]:=",ExpressionUUID->"90e2d787-2045-4129-a6c5-d1c5928962e9"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"dtl", "=", "0.015"}], ";", 
  RowBox[{"tltab", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"i", ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "0.051", ",", "0.11", ",", "dtl"}], "}"}]}], "]"}]}], 
  ";", 
  RowBox[{"trtab", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"i", ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "0.05", ",", "0.1", ",", "dtl"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Ttab", "=", 
   FractionBox[
    RowBox[{"tltab", "+", "trtab"}], "2"]}], ";"}]}], "Input",
 CellChangeTimes->{{3.8949460757633753`*^9, 3.894946096474883*^9}, 
   3.894946294207357*^9, 3.89494635595314*^9, 3.894946394410119*^9, {
   3.894946792428321*^9, 3.8949467968922043`*^9}, {3.895108537429946*^9, 
   3.895108543469845*^9}, {3.895108575111008*^9, 3.895108584359124*^9}, {
   3.895109509233223*^9, 3.895109510801064*^9}, {3.927172828770138*^9, 
   3.927172859824037*^9}, {3.927175391351359*^9, 3.927175393303876*^9}, {
   3.9271755108294697`*^9, 3.927175582804019*^9}, {3.94962988436237*^9, 
   3.949629888193962*^9}, {3.950076162633923*^9, 3.950076166729498*^9}, {
   3.9500762419032793`*^9, 3.950076280554164*^9}, {3.950077240121854*^9, 
   3.95007725153759*^9}, 3.950077299841888*^9, {3.9500774563791847`*^9, 
   3.950077458153356*^9}, {3.950077564025478*^9, 3.9500775691052637`*^9}, {
   3.950078032159532*^9, 3.950078048863018*^9}, {3.950078084502996*^9, 
   3.950078088013819*^9}, {3.950147462594774*^9, 3.950147475114496*^9}, {
   3.951028621828494*^9, 3.951028625779782*^9}, {3.979859929250973*^9, 
   3.979859929505186*^9}},
 CellLabel->"In[17]:=",ExpressionUUID->"2eb9fc3a-a630-4507-a12a-27c19aa9687c"],

Cell[CellGroupData[{

Cell[BoxData["Ttab"], "Input",
 CellChangeTimes->{{3.9798595248421283`*^9, 3.979859526051168*^9}},
 CellLabel->"In[19]:=",ExpressionUUID->"18c673a4-2c7d-41a4-8ba3-a87ba3cec9b7"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.0505`", ",", "0.0655`", ",", "0.08049999999999999`", ",", "0.0955`"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.97985952642935*^9, 3.9798599396292534`*^9, 
  3.979876805323901*^9, 3.9798777845771627`*^9, 3.979879685971169*^9, 
  3.9798946250537143`*^9, 3.979900369533876*^9, 3.979902309417993*^9, 
  3.98058406398629*^9, 3.980584407381672*^9},
 CellLabel->"Out[19]=",ExpressionUUID->"e6a3351a-7cd6-4a71-aa22-bf365b262db0"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"GList", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"transcofflist", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"currlist", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"currclasslist", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"currQlist", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"gmatslist", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"mats", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", 
     RowBox[{"{", "n", "}"}], ",", 
     RowBox[{"{", "n", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"l", "=", "1"}], ",", 
   RowBox[{"l", "<=", 
    RowBox[{"Length", "[", "\[Omega]ntab", "]"}]}], ",", 
   RowBox[{"l", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"For", "[", 
     RowBox[{
      RowBox[{"i", "=", "1"}], ",", 
      RowBox[{"i", "<=", 
       RowBox[{"n", "-", "1"}]}], ",", 
      RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"mats", "\[LeftDoubleBracket]", 
         RowBox[{"i", ",", "i"}], "\[RightDoubleBracket]"}], "=", 
        RowBox[{"z", "[", 
         RowBox[{"m", ",", "r", ",", 
          RowBox[{
          "\[Omega]ntab", "\[LeftDoubleBracket]", "l", 
           "\[RightDoubleBracket]"}], ",", "k", ",", "v1", ",", "v2"}], 
         "]"}]}], ";", 
       RowBox[{
        RowBox[{"mats", "\[LeftDoubleBracket]", 
         RowBox[{"1", ",", "1"}], "\[RightDoubleBracket]"}], "=", 
        RowBox[{"zl", "[", 
         RowBox[{"m", ",", "r", ",", 
          RowBox[{
          "\[Omega]ntab", "\[LeftDoubleBracket]", "l", 
           "\[RightDoubleBracket]"}], ",", "k", ",", "v1", ",", "\[Gamma]L"}],
          "]"}]}], ";", 
       RowBox[{
        RowBox[{"mats", "\[LeftDoubleBracket]", 
         RowBox[{"n", ",", "n"}], "\[RightDoubleBracket]"}], "=", 
        RowBox[{"zr", "[", 
         RowBox[{"m", ",", "r", ",", 
          RowBox[{
          "\[Omega]ntab", "\[LeftDoubleBracket]", "l", 
           "\[RightDoubleBracket]"}], ",", "k", ",", "v2", ",", "\[Gamma]R"}],
          "]"}]}], ";", 
       RowBox[{
        RowBox[{"mats", "\[LeftDoubleBracket]", 
         RowBox[{"i", ",", 
          RowBox[{"i", "+", "1"}]}], "\[RightDoubleBracket]"}], "=", 
        RowBox[{
         RowBox[{"-", "k"}], " ", "*", " ", 
         RowBox[{"Abs", "[", 
          RowBox[{"v1", " ", "v2"}], "]"}]}]}], ";", 
       RowBox[{
        RowBox[{"mats", "\[LeftDoubleBracket]", 
         RowBox[{
          RowBox[{"i", "+", "1"}], ",", "i"}], "\[RightDoubleBracket]"}], "=", 
        RowBox[{
         RowBox[{"-", "k"}], " ", "*", " ", 
         RowBox[{"Abs", "[", 
          RowBox[{"v1", " ", "v2"}], "]"}]}]}], ";", " ", 
       RowBox[{"Z", "=", "mats"}], ";"}]}], "]"}], ";", 
    RowBox[{"GList", "=", 
     RowBox[{"Join", "[", 
      RowBox[{"GList", ",", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
          "\[Omega]ntab", "\[LeftDoubleBracket]", "l", 
           "\[RightDoubleBracket]"}], ",", 
          RowBox[{"Inverse", "[", "Z", "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
    
    RowBox[{"gmatslist", "=", 
     RowBox[{"Join", "[", 
      RowBox[{"gmatslist", ",", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
          "\[Omega]ntab", "\[LeftDoubleBracket]", "l", 
           "\[RightDoubleBracket]"}], ",", 
          SuperscriptBox[
           RowBox[{"Abs", "[", 
            RowBox[{"GList", "\[LeftDoubleBracket]", 
             RowBox[{"l", ",", "2", ",", "1", ",", "n"}], 
             "\[RightDoubleBracket]"}], "]"}], "2"]}], "}"}], "}"}]}], 
      "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"transcofflist", "=", 
     RowBox[{"Join", "[", 
      RowBox[{"transcofflist", ",", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
          "\[Omega]ntab", "\[LeftDoubleBracket]", "l", 
           "\[RightDoubleBracket]"}], ",", 
          RowBox[{
           RowBox[{"(", 
            SuperscriptBox[
             RowBox[{"Abs", "[", 
              RowBox[{"GList", "\[LeftDoubleBracket]", 
               RowBox[{"l", ",", "2", ",", "1", ",", "n"}], 
               "\[RightDoubleBracket]"}], "]"}], "2"], ")"}], "*", 
           SuperscriptBox[
            RowBox[{
            "\[Omega]ntab", "\[LeftDoubleBracket]", "l", 
             "\[RightDoubleBracket]"}], "2"], "*", "\[Gamma]L", "*", 
           "\[Gamma]R"}]}], "}"}], "}"}]}], "]"}]}], ";"}]}], "]"}]}], "Input",\

 CellChangeTimes->{{3.868239758807444*^9, 3.868239867477888*^9}, 
   3.868239986069236*^9, {3.868240055995058*^9, 3.868240071250601*^9}, {
   3.868240108906638*^9, 3.868240123330142*^9}, {3.868240194146141*^9, 
   3.868240231836074*^9}, {3.868240290059667*^9, 3.868240328907196*^9}, {
   3.868240364580038*^9, 3.868240371443502*^9}, {3.8682404599006367`*^9, 
   3.868240477107811*^9}, {3.8682405357192173`*^9, 3.868240592029715*^9}, {
   3.868240644086977*^9, 3.868240771424184*^9}, {3.8682408222901087`*^9, 
   3.868240869889131*^9}, {3.868240984516298*^9, 3.86824101363253*^9}, {
   3.8682410924950953`*^9, 3.86824109412467*^9}, {3.868241140901259*^9, 
   3.8682412991812353`*^9}, {3.868241335278407*^9, 3.868241335756639*^9}, {
   3.868241419076655*^9, 3.868241504392988*^9}, {3.868241547129361*^9, 
   3.868241584927587*^9}, {3.868241615313395*^9, 3.868241628062907*^9}, {
   3.868241735727869*^9, 3.86824175082208*^9}, {3.8682455695667343`*^9, 
   3.86824557347596*^9}, {3.868245632340785*^9, 3.86824571640849*^9}, {
   3.8682458159025097`*^9, 3.86824589734906*^9}, {3.8682488253466587`*^9, 
   3.868248864601956*^9}, {3.868248898772872*^9, 3.868248923187042*^9}, {
   3.868249094210797*^9, 3.868249133565991*^9}, {3.868249186158022*^9, 
   3.868249236018037*^9}, {3.868249295507097*^9, 3.868249334855221*^9}, {
   3.868249377609884*^9, 3.868249384742116*^9}, {3.868249422120757*^9, 
   3.868249467311349*^9}, {3.868249654639435*^9, 3.868249695007239*^9}, 
   3.868249737662425*^9, {3.8682498191500187`*^9, 3.868249842762375*^9}, {
   3.868321604820076*^9, 3.868321614412115*^9}, {3.868321742844755*^9, 
   3.868321786033757*^9}, {3.868403821036978*^9, 3.868403834140854*^9}, {
   3.868404281222009*^9, 3.868404421779862*^9}, {3.868404493858201*^9, 
   3.868404515673894*^9}, {3.868404567648616*^9, 3.86840456804852*^9}, {
   3.868404843602604*^9, 3.868404850002242*^9}, {3.868404907825197*^9, 
   3.868404922510221*^9}, {3.868405074604569*^9, 3.868405086084755*^9}, {
   3.868405178131298*^9, 3.868405228416995*^9}, {3.868405442000372*^9, 
   3.868405451044012*^9}, {3.868405751118957*^9, 3.868405754229269*^9}, 
   3.868405791676166*^9, {3.868406059004624*^9, 3.868406095500968*^9}, {
   3.868406347775814*^9, 3.868406352991544*^9}, {3.868406398366206*^9, 
   3.868406543570976*^9}, {3.868406598538824*^9, 3.868406603977841*^9}, {
   3.868406828144823*^9, 3.868406830485408*^9}, {3.868411547980481*^9, 
   3.868411561055891*^9}, {3.868411592768248*^9, 3.868411604377939*^9}, {
   3.86841175717209*^9, 3.868411777144916*^9}, {3.868412090604657*^9, 
   3.868412094674629*^9}, {3.868952287343454*^9, 3.8689522946231527`*^9}, {
   3.868952587578061*^9, 3.86895262533615*^9}, 3.868952864229818*^9, 
   3.868952896948552*^9, {3.874469843682806*^9, 3.874469846577838*^9}, 
   3.8762052997095194`*^9, {3.887327514476064*^9, 3.887327533466675*^9}, {
   3.8921956280114594`*^9, 3.892195629363922*^9}, {3.892195659772518*^9, 
   3.892195693901372*^9}, {3.892195742518705*^9, 3.892195759670965*^9}, {
   3.892195791071424*^9, 3.89219586109683*^9}, {3.892195902906152*^9, 
   3.892195950746016*^9}, {3.892196208217562*^9, 3.892196212505234*^9}, {
   3.892259861807678*^9, 3.892259864391444*^9}, {3.892261450626603*^9, 
   3.892261477067281*^9}, {3.892261507572434*^9, 3.892261540028993*^9}, {
   3.892261575781915*^9, 3.892261598133752*^9}, {3.8922616640564547`*^9, 
   3.892261679432684*^9}, 3.892261753206285*^9, {3.892265255497539*^9, 
   3.892265408514577*^9}, {3.8922654422444773`*^9, 3.89226563844037*^9}, {
   3.892266416784976*^9, 3.892266459839089*^9}, {3.89226683668649*^9, 
   3.892266852030231*^9}, {3.892266894075061*^9, 3.892266919915532*^9}, {
   3.892267020813009*^9, 3.89226702280445*^9}, {3.893465122080888*^9, 
   3.8934652255839167`*^9}, {3.893469408644718*^9, 3.893469409165545*^9}, {
   3.893469469422265*^9, 3.893469531559943*^9}, {3.895106845654242*^9, 
   3.895106846542061*^9}, {3.895107517684537*^9, 3.8951075248445787`*^9}, {
   3.8951081087760773`*^9, 3.895108109224338*^9}, {3.927172041108378*^9, 
   3.927172067484586*^9}, {3.927172148219726*^9, 3.927172209387004*^9}, {
   3.927172341514629*^9, 3.927172351416226*^9}, {3.927172882376528*^9, 
   3.927172890832237*^9}, {3.927174771197534*^9, 3.927174771637227*^9}, {
   3.927590851316572*^9, 3.927590889051449*^9}, {3.927590928426799*^9, 
   3.927590929075063*^9}, {3.927590996041872*^9, 3.927590996192959*^9}, {
   3.927591647901441*^9, 3.927591731780905*^9}, {3.927592455320681*^9, 
   3.927592457248389*^9}, {3.927592910078988*^9, 3.927592910750607*^9}, {
   3.931842502637334*^9, 3.931842521084917*^9}, {3.931842667266604*^9, 
   3.931842735456704*^9}, {3.931844483985033*^9, 3.931844515792603*^9}, {
   3.951183508679421*^9, 3.951183526382217*^9}, {3.980584337145578*^9, 
   3.980584357697363*^9}},
 CellLabel->"In[20]:=",ExpressionUUID->"f35a1ba7-9c65-442f-8a32-8692eda0fb47"],

Cell[BoxData[
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"p", "=", "1"}], ",", 
   RowBox[{"p", "<=", 
    RowBox[{"Length", "[", "Ttab", "]"}]}], ",", 
   RowBox[{"p", "++"}], ",", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"l", "=", "1"}], ",", 
     RowBox[{"l", "<=", 
      RowBox[{"Length", "[", "\[Omega]ntab", "]"}]}], ",", 
     RowBox[{"l", "++"}], ",", 
     RowBox[{
      RowBox[{"currlist", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"currlist", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
            "Ttab", "\[LeftDoubleBracket]", "p", "\[RightDoubleBracket]"}], 
            ",", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"Abs", "[", 
               RowBox[{"GList", "\[LeftDoubleBracket]", 
                RowBox[{"l", ",", "2", ",", "1", ",", "n"}], 
                "\[RightDoubleBracket]"}], "]"}], "2"], "*", 
             FractionBox[
              RowBox[{"\[HBar]", " ", 
               SuperscriptBox[
                RowBox[{
                "\[Omega]ntab", "\[LeftDoubleBracket]", "l", 
                 "\[RightDoubleBracket]"}], "3"]}], "\[Pi]"], "*", 
             "\[Gamma]L", "*", "\[Gamma]R", "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"f", "[", 
                RowBox[{
                 RowBox[{
                 "\[Omega]ntab", "\[LeftDoubleBracket]", "l", 
                  "\[RightDoubleBracket]"}], ",", 
                 RowBox[{
                 "tltab", "\[LeftDoubleBracket]", "p", 
                  "\[RightDoubleBracket]"}]}], "]"}], "-", 
               RowBox[{"f", "[", 
                RowBox[{
                 RowBox[{
                 "\[Omega]ntab", "\[LeftDoubleBracket]", "l", 
                  "\[RightDoubleBracket]"}], ",", 
                 RowBox[{
                 "trtab", "\[LeftDoubleBracket]", "p", 
                  "\[RightDoubleBracket]"}]}], "]"}]}], ")"}]}]}], "}"}], 
          "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"currclasslist", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"currclasslist", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
            "Ttab", "\[LeftDoubleBracket]", "p", "\[RightDoubleBracket]"}], 
            ",", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"Abs", "[", 
               RowBox[{"GList", "\[LeftDoubleBracket]", 
                RowBox[{"l", ",", "2", ",", "1", ",", "n"}], 
                "\[RightDoubleBracket]"}], "]"}], "2"], "*", 
             FractionBox[
              SuperscriptBox[
               RowBox[{
               "\[Omega]ntab", "\[LeftDoubleBracket]", "l", 
                "\[RightDoubleBracket]"}], "2"], "\[Pi]"], "*", "\[Gamma]L", 
             "*", "\[Gamma]R", "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
               "tltab", "\[LeftDoubleBracket]", "p", 
                "\[RightDoubleBracket]"}], "-", 
               RowBox[{
               "trtab", "\[LeftDoubleBracket]", "p", 
                "\[RightDoubleBracket]"}]}], ")"}]}]}], "}"}], "}"}]}], 
        "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"currQlist", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"currQlist", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
            "Ttab", "\[LeftDoubleBracket]", "p", "\[RightDoubleBracket]"}], 
            ",", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"Abs", "[", 
               RowBox[{"GList", "\[LeftDoubleBracket]", 
                RowBox[{"l", ",", "2", ",", "1", ",", "n"}], 
                "\[RightDoubleBracket]"}], "]"}], "2"], "*", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[HBar]", "2"], " ", 
               SuperscriptBox[
                RowBox[{
                "\[Omega]ntab", "\[LeftDoubleBracket]", "l", 
                 "\[RightDoubleBracket]"}], "4"]}], 
              RowBox[{
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"2", "*", "kb", "*", 
                  RowBox[{
                  "Ttab", "\[LeftDoubleBracket]", "p", 
                   "\[RightDoubleBracket]"}]}], ")"}], "2"], "*", "\[Pi]"}]], 
             "*", "\[Gamma]L", "*", "\[Gamma]R", "*", "kb", "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
               "tltab", "\[LeftDoubleBracket]", "p", 
                "\[RightDoubleBracket]"}], "-", 
               RowBox[{
               "trtab", "\[LeftDoubleBracket]", "p", 
                "\[RightDoubleBracket]"}]}], ")"}], "*", 
             RowBox[{"(", 
              RowBox[{"Csch", "[", 
               FractionBox[
                RowBox[{"\[HBar]", " ", 
                 RowBox[{
                 "\[Omega]ntab", "\[LeftDoubleBracket]", "l", 
                  "\[RightDoubleBracket]"}]}], 
                RowBox[{"2", "kb", "*", 
                 RowBox[{
                 "Ttab", "\[LeftDoubleBracket]", "p", 
                  "\[RightDoubleBracket]"}]}]], "]"}], ")"}], "*", 
             RowBox[{"(", 
              RowBox[{"Csch", "[", 
               FractionBox[
                RowBox[{"\[HBar]", " ", 
                 RowBox[{
                 "\[Omega]ntab", "\[LeftDoubleBracket]", "l", 
                  "\[RightDoubleBracket]"}]}], 
                RowBox[{"2", "kb", "*", 
                 RowBox[{
                 "Ttab", "\[LeftDoubleBracket]", "p", 
                  "\[RightDoubleBracket]"}]}]], "]"}], ")"}]}]}], "}"}], 
          "}"}]}], "]"}]}], ";"}]}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.895107570173476*^9, 3.8951076180786543`*^9}, {
  3.895108101863957*^9, 3.895108102407991*^9}, {3.927172238802765*^9, 
  3.92717228908939*^9}, {3.927172873272648*^9, 3.927172908033185*^9}, {
  3.92717295986409*^9, 3.927173032613894*^9}, {3.927174524322466*^9, 
  3.92717453539382*^9}, {3.927174744158129*^9, 3.927174744438196*^9}, {
  3.927174786893303*^9, 3.927174787237079*^9}, {3.927590943139256*^9, 
  3.927590954106472*^9}, {3.931844723286105*^9, 3.931844729540831*^9}, {
  3.980584364814403*^9, 3.980584389645598*^9}},
 CellLabel->"In[28]:=",ExpressionUUID->"ec5c55c2-e2fd-4149-9a2c-00115bad7c5e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Tau]", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\n", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"j", "=", "1"}], ",", 
   RowBox[{"j", "<=", 
    RowBox[{"Length", "[", "Ttab", "]"}]}], ",", 
   RowBox[{"j", "++"}], ",", 
   RowBox[{"\[Tau]", "=", 
    RowBox[{"Join", "[", 
     RowBox[{"\[Tau]", ",", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
         "Ttab", "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}], ",", 
         
         RowBox[{"Sum", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"currQlist", "\[LeftDoubleBracket]", 
             RowBox[{"i", ",", "2"}], "\[RightDoubleBracket]"}], "*", 
            "d\[Omega]"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{"j", "-", "1"}], ")"}], "*", 
               RowBox[{"Length", "[", "\[Omega]ntab", "]"}]}], "+", "1"}], 
             ",", 
             RowBox[{"j", "*", 
              RowBox[{"Length", "[", "\[Omega]ntab", "]"}]}]}], "}"}]}], 
          "]"}]}], "}"}], "}"}]}], "]"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.9101628551397038`*^9, 3.9101628589044657`*^9}, 
   3.91016410379875*^9},
 CellLabel->"In[29]:=",ExpressionUUID->"726ab15b-b9f9-43f5-95ac-3f097b020fbb"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Nu]", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\n", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"j", "=", "1"}], ",", 
   RowBox[{"j", "<=", 
    RowBox[{"Length", "[", "Ttab", "]"}]}], ",", 
   RowBox[{"j", "++"}], ",", 
   RowBox[{"\[Nu]", "=", 
    RowBox[{"Join", "[", 
     RowBox[{"\[Nu]", ",", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
         "Ttab", "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}], ",", 
         
         RowBox[{"Sum", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"currlist", "\[LeftDoubleBracket]", 
             RowBox[{"i", ",", "2"}], "\[RightDoubleBracket]"}], "*", 
            "d\[Omega]"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{"j", "-", "1"}], ")"}], "*", 
               RowBox[{"Length", "[", "\[Omega]ntab", "]"}]}], "+", "1"}], 
             ",", 
             RowBox[{"j", "*", 
              RowBox[{"Length", "[", "\[Omega]ntab", "]"}]}]}], "}"}]}], 
          "]"}]}], "}"}], "}"}]}], "]"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.910163443860358*^9, 3.910163447368085*^9}, 
   3.9101641572698174`*^9},
 CellLabel->"In[31]:=",ExpressionUUID->"ad2a36cd-c807-47bb-a49b-dd6494220461"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Eta]", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\n", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"j", "=", "1"}], ",", 
   RowBox[{"j", "<=", 
    RowBox[{"Length", "[", "Ttab", "]"}]}], ",", 
   RowBox[{"j", "++"}], ",", 
   RowBox[{"\[Eta]", "=", 
    RowBox[{"Join", "[", 
     RowBox[{"\[Eta]", ",", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
         "Ttab", "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}], ",", 
         
         RowBox[{"Sum", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"currclasslist", "\[LeftDoubleBracket]", 
             RowBox[{"i", ",", "2"}], "\[RightDoubleBracket]"}], "*", 
            "d\[Omega]"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{"j", "-", "1"}], ")"}], "*", 
               RowBox[{"Length", "[", "\[Omega]ntab", "]"}]}], "+", "1"}], 
             ",", 
             RowBox[{"j", "*", 
              RowBox[{"Length", "[", "\[Omega]ntab", "]"}]}]}], "}"}]}], 
          "]"}]}], "}"}], "}"}]}], "]"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.910163476196239*^9, 3.9101634826394978`*^9}, 
   3.910164245077711*^9, {3.927173954509731*^9, 3.927173958773443*^9}},
 CellLabel->"In[33]:=",ExpressionUUID->"abb3050e-9b23-4101-b19e-6c8d365c5272"],

Cell[CellGroupData[{

Cell[BoxData["\[Tau]"], "Input",
 CellChangeTimes->{{3.889060137885862*^9, 3.889060139461196*^9}},
 CellLabel->"In[35]:=",ExpressionUUID->"92eae0ce-e882-4e3a-822b-36c197c030ff"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0.0505`", ",", "9.94078028949748`*^-6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.0655`", ",", "0.000012392733027623992`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.08049999999999999`", ",", "0.000014453977050184257`"}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"0.0955`", ",", "0.00001612818170425563`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.889061237374879*^9, 3.8890618880832043`*^9, 3.889062014307485*^9, 
   3.8890624728917003`*^9, 3.889062730984872*^9, 3.889074666470482*^9, 
   3.889155716204911*^9, 3.889155764892806*^9, {3.889155876670807*^9, 
   3.889155933542015*^9}, 3.889155998365622*^9, {3.889156043361176*^9, 
   3.889156073261582*^9}, 3.889156224991242*^9, 3.893463738785331*^9, 
   3.893469850435135*^9, 3.89432948486725*^9, 3.894329522338371*^9, 
   3.894329587748966*^9, {3.894329618334278*^9, 3.894329646107745*^9}, 
   3.894329685176749*^9, 3.894329851404008*^9, {3.894329890655363*^9, 
   3.894329916282904*^9}, 3.894329948586635*^9, 3.894329994328145*^9, 
   3.894330045464219*^9, 3.894330094320993*^9, 3.894330478233759*^9, 
   3.894331015168208*^9, 3.894331049923642*^9, 3.894331090568263*^9, 
   3.894331145606526*^9, 3.894331188431937*^9, 3.894331232231037*^9, 
   3.894331276289238*^9, 3.894331317019688*^9, 3.894331352765613*^9, 
   3.894331393501113*^9, 3.894331432043529*^9, 3.894331474505144*^9, 
   3.894331510823575*^9, 3.894331550153776*^9, 3.894331589142036*^9, 
   3.894331641110214*^9, 3.894331906864876*^9, 3.894343427705933*^9, 
   3.894850607994218*^9, 3.894864314358807*^9, 3.89486442012834*^9, 
   3.894864624608816*^9, 3.89486532682972*^9, 3.894865368097454*^9, 
   3.894865405084442*^9, {3.894865439982894*^9, 3.894865466722527*^9}, 
   3.894865512046589*^9, 3.89486555981376*^9, 3.89486561135024*^9, 
   3.894946133818397*^9, {3.894946275651607*^9, 3.894946304303787*^9}, 
   3.894946606255337*^9, 3.894946817329254*^9, 3.895108141093198*^9, 
   3.895108500957192*^9, 3.895108561334672*^9, 3.8951085974651003`*^9, 
   3.895109330615923*^9, 3.895109458937882*^9, 3.895109527187046*^9, 
   3.895109584949457*^9, 3.895109767107719*^9, 3.8951099000252733`*^9, 
   3.895110105347149*^9, 3.895110188396207*^9, 3.895110238728147*^9, 
   3.8951106435089617`*^9, 3.895110730710728*^9, 3.895110797537619*^9, 
   3.895110904579151*^9, 3.895111035859169*^9, 3.8951110845272093`*^9, 
   3.895111131266259*^9, 3.895111282704257*^9, 3.8951171289542637`*^9, {
   3.895117176148871*^9, 3.895117227293726*^9}, 3.895117257903495*^9, 
   3.895652549854679*^9, 3.895652584080183*^9, 3.895652671160921*^9, 
   3.895652714333621*^9, 3.895652773004539*^9, 3.895797228484964*^9, 
   3.895797349645952*^9, 3.927172373940493*^9, 3.927172413852401*^9, 
   3.927172482108118*^9, 3.927173142503292*^9, 3.9271742009227*^9, 
   3.927174636470468*^9, 3.927174932769353*^9, 3.927175591024092*^9, {
   3.927175723172923*^9, 3.927175820616503*^9}, 3.927176122482758*^9, {
   3.9271833532138233`*^9, 3.927183375091401*^9}, 3.927183598388109*^9, 
   3.927187531995818*^9, 3.927242914061301*^9, 3.9273575125865545`*^9, 
   3.927591903520389*^9, 3.927592021343914*^9, 3.927592150312508*^9, 
   3.927592947414817*^9, 3.92759312139888*^9, 3.927593207576949*^9, 
   3.927594496064494*^9, {3.927676032176912*^9, 3.927676060678939*^9}, 
   3.931841210593863*^9, 3.931844538728214*^9, 3.931844611850122*^9, 
   3.931844693289757*^9, {3.931844759740613*^9, 3.931844812614624*^9}, {
   3.931844850100045*^9, 3.931844876105898*^9}, 3.931844953252952*^9, 
   3.931844984837416*^9, 3.931845320571047*^9, 3.9318453843917284`*^9, 
   3.931845424850724*^9, {3.931845456921471*^9, 3.931845476314992*^9}, 
   3.931846464317103*^9, 3.931846623030734*^9, 3.93184666884021*^9, 
   3.9318469032430944`*^9, 3.9318470072013197`*^9, 3.9318476403128753`*^9, {
   3.931847716234*^9, 3.931847740962039*^9}, 3.93201023210116*^9, 
   3.933912147424518*^9, 3.9339122335795317`*^9, 3.933912528548028*^9, {
   3.933912641153689*^9, 3.933912662465122*^9}, 3.9339126988973*^9, 
   3.9339137946268044`*^9, {3.933913859191309*^9, 3.933913878043262*^9}, 
   3.9339139158429346`*^9, 3.933914109679226*^9, 3.933914222960345*^9, 
   3.933914337090192*^9, 3.933914463857934*^9, 3.933914565936619*^9, 
   3.933914615372857*^9, 3.933914747864684*^9, 3.933916090797552*^9, 
   3.933916124458059*^9, 3.933916533340761*^9, 3.933916623873432*^9, 
   3.949640511894191*^9, 3.9496413630975857`*^9, 3.950076307813085*^9, 
   3.950076465013213*^9, 3.950077471832423*^9, 3.950077585221554*^9, 
   3.950077679436315*^9, 3.950077742448069*^9, 3.950077870425589*^9, 
   3.950077924163243*^9, 3.950077973040955*^9, 3.950078068161171*^9, 
   3.950078107060731*^9, 3.950078137982628*^9, 3.950078497774083*^9, 
   3.950078577393771*^9, 3.950146124211929*^9, 3.950146186885063*^9, 
   3.950146277488237*^9, 3.95014633165742*^9, 3.950146375678941*^9, 
   3.950147501976341*^9, 3.951028650305971*^9, 3.95102869905989*^9, {
   3.951028733322194*^9, 3.951028789500381*^9}, 3.95102882451871*^9, 
   3.951182808089381*^9, 3.951182848505858*^9, 3.951182913639984*^9, 
   3.95118294949816*^9, 3.951183026607648*^9, 3.951183082363344*^9, 
   3.951183122240282*^9, 3.951183189263739*^9, 3.951183323659581*^9, 
   3.9511833741820583`*^9, 3.951183472356778*^9, 3.951183820354644*^9, 
   3.951183865045891*^9, 3.951184297954819*^9, 3.951784462300691*^9, 
   3.951784515352829*^9, 3.951784560496456*^9, 3.95178459621551*^9, 
   3.9537841176657887`*^9, 3.953784218263357*^9, 3.956044526269082*^9, 
   3.979859554604081*^9, 3.979859954063369*^9, 3.979879700257822*^9, 
   3.979894640259503*^9, 3.979900384617669*^9, 3.979902324725158*^9, 
   3.980584079099704*^9, 3.9805844225137463`*^9},
 CellLabel->"Out[35]=",ExpressionUUID->"b6a947d1-017c-46d7-b3d1-3bc40ee9297b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["\[Nu]"], "Input",
 CellChangeTimes->{{3.927174395903734*^9, 3.927174396424341*^9}},
 CellLabel->"In[36]:=",ExpressionUUID->"0d7c03b5-35b1-4ba7-8677-287834ea64cc"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0.0505`", ",", "9.940720164633362`*^-6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.0655`", ",", "0.000012392659394786851`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.08049999999999999`", ",", "0.000014453904683320105`"}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"0.0955`", ",", "0.00001612811900442455`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.927174397065905*^9, 3.927174636483409*^9, 3.927174932782784*^9, 
   3.927175591041735*^9, {3.927175723181785*^9, 3.927175820645593*^9}, 
   3.927176122491855*^9, {3.927183353232407*^9, 3.927183375120266*^9}, 
   3.927183598407916*^9, 3.9271875320196347`*^9, 3.927242914081198*^9, 
   3.927357512606326*^9, 3.927592947429308*^9, 3.927593121419505*^9, 
   3.927593207601633*^9, 3.9275944960894814`*^9, {3.927676032196456*^9, 
   3.927676060694741*^9}, 3.9318412106047373`*^9, 3.9318445406016617`*^9, 
   3.931844613034884*^9, 3.931844693345727*^9, {3.931844759759865*^9, 
   3.931844812626183*^9}, {3.931844850132077*^9, 3.931844876116769*^9}, 
   3.931844953274714*^9, 3.931844984872756*^9, 3.93184532059284*^9, 
   3.931845384427683*^9, 3.931845424875576*^9, {3.931845456935329*^9, 
   3.931845476336025*^9}, 3.931846464350108*^9, 3.93184662307586*^9, 
   3.93184666886123*^9, 3.931846903263373*^9, 3.931847007219405*^9, 
   3.931847640330867*^9, {3.931847716251297*^9, 3.931847740983764*^9}, 
   3.932010232117587*^9, 3.933912147438423*^9, 3.933912233596366*^9, 
   3.933912528562896*^9, {3.933912641171082*^9, 3.933912662484125*^9}, 
   3.933912698913493*^9, 3.933913794648573*^9, {3.933913859388191*^9, 
   3.93391387806192*^9}, 3.933913915853669*^9, 3.9339141096923146`*^9, 
   3.933914222976613*^9, 3.9339143371087303`*^9, 3.933914463873061*^9, 
   3.933914565952691*^9, 3.933914615390435*^9, 3.933914747886495*^9, 
   3.933916090819305*^9, 3.933916124479079*^9, 3.933916533353796*^9, 
   3.933916623888104*^9, 3.949640511922168*^9, 3.949641363119142*^9, 
   3.950076307827639*^9, 3.950076465028844*^9, 3.950077471848251*^9, 
   3.9500775852376213`*^9, 3.9500776794545517`*^9, 3.950077742465541*^9, 
   3.9500778704412003`*^9, 3.950077924180283*^9, 3.950077973062521*^9, 
   3.950078068180501*^9, 3.950078107082684*^9, 3.950078138002266*^9, 
   3.950078497789799*^9, 3.9500785774080153`*^9, 3.950146124228097*^9, 
   3.950146186893211*^9, 3.950146277503209*^9, 3.9501463316783867`*^9, 
   3.950146375701055*^9, 3.950147501999199*^9, 3.951028650325194*^9, 
   3.951028699077319*^9, {3.951028733338854*^9, 3.9510287895183773`*^9}, 
   3.951028824538539*^9, 3.9511828081065702`*^9, 3.951182848523045*^9, 
   3.951182913656501*^9, 3.95118294951294*^9, 3.95118302662289*^9, 
   3.951183082380781*^9, 3.951183122257812*^9, 3.9511831892854147`*^9, 
   3.951183323674474*^9, 3.95118337419845*^9, 3.951183472379436*^9, 
   3.951183820375997*^9, 3.9511838650633917`*^9, 3.951184297974369*^9, 
   3.951784462311075*^9, 3.951784515369216*^9, 3.951784560513164*^9, 
   3.951784596237406*^9, 3.953784117686633*^9, 3.9537842182799687`*^9, 
   3.9560445262817183`*^9, 3.979859555924876*^9, 3.979859954067987*^9, 
   3.979879700263932*^9, 3.979894640271017*^9, 3.979900384629471*^9, 
   3.979902324736279*^9, 3.980584079110402*^9, 3.980584422520382*^9},
 CellLabel->"Out[36]=",ExpressionUUID->"0d033515-05a0-4234-bb04-374b99211860"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["\[Eta]"], "Input",
 CellChangeTimes->{{3.927174317137557*^9, 3.927174318873754*^9}},
 CellLabel->"In[37]:=",ExpressionUUID->"ce6d1425-5183-46cf-8e3c-4c69d8f0c72e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0.0505`", ",", "0.000023951696655705198`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.0655`", ",", "0.00002395169665570536`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.08049999999999999`", ",", "0.00002395169665570505`"}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"0.0955`", ",", "0.00002395169665570536`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.927174319884759*^9, 3.927174636496972*^9, 3.927174932794962*^9, 
   3.927175591061904*^9, {3.927175723197928*^9, 3.927175820676371*^9}, 
   3.927176122504594*^9, {3.9271833532530003`*^9, 3.927183375147422*^9}, 
   3.927183598474152*^9, 3.927187532040118*^9, 3.927242914100443*^9, 
   3.927357512629142*^9, 3.927592947440102*^9, 3.927593121437443*^9, 
   3.927593207625892*^9, 3.927594496114101*^9, {3.9276760322181797`*^9, 
   3.927676060711084*^9}, 3.931841210619516*^9, 3.931844541443225*^9, 
   3.931844613716106*^9, 3.931844693374402*^9, {3.931844759780394*^9, 
   3.931844812641865*^9}, {3.931844850161729*^9, 3.931844876133848*^9}, 
   3.931844953293456*^9, 3.9318449849087725`*^9, 3.931845320616421*^9, 
   3.931845384471159*^9, 3.931845424897929*^9, {3.931845456953265*^9, 
   3.931845476356649*^9}, 3.931846464379422*^9, 3.9318466231317*^9, 
   3.931846668885206*^9, 3.931846903284821*^9, 3.931847007230578*^9, 
   3.931847640352826*^9, {3.93184771627063*^9, 3.931847741005397*^9}, 
   3.9320102321326113`*^9, 3.933912147450537*^9, 3.933912233615838*^9, 
   3.933912528581693*^9, {3.933912641189252*^9, 3.933912662502579*^9}, 
   3.933912698932819*^9, 3.933913794671972*^9, {3.933913859509264*^9, 
   3.933913878851825*^9}, 3.9339139158662643`*^9, 3.933914109702652*^9, 
   3.933914222994018*^9, 3.933914337131007*^9, 3.93391446388827*^9, 
   3.933914565967428*^9, 3.933914615409837*^9, 3.933914747908101*^9, 
   3.93391609083889*^9, 3.933916124496533*^9, 3.933916533364666*^9, 
   3.933916623906097*^9, 3.949640511940298*^9, 3.949641363138571*^9, 
   3.950076307846452*^9, 3.950076465043686*^9, 3.950077471860458*^9, 
   3.950077585252773*^9, 3.950077679472178*^9, 3.950077742482228*^9, 
   3.9500778704560843`*^9, 3.950077924196519*^9, 3.950077973078291*^9, 
   3.950078068199634*^9, 3.950078107103712*^9, 3.950078138016492*^9, 
   3.950078497807233*^9, 3.950078577421197*^9, 3.950146124246071*^9, 
   3.950146186915406*^9, 3.950146277518063*^9, 3.950146331698979*^9, 
   3.950146375722641*^9, 3.950147502016087*^9, 3.951028650340675*^9, 
   3.951028699094572*^9, {3.95102873335544*^9, 3.951028789534848*^9}, 
   3.951028824555005*^9, 3.951182808123567*^9, 3.951182848539816*^9, 
   3.951182913672545*^9, 3.951182949527823*^9, 3.951183026638313*^9, 
   3.951183082397944*^9, 3.95118312227494*^9, 3.9511831893017187`*^9, 
   3.951183323689199*^9, 3.951183374214561*^9, 3.951183472401822*^9, 
   3.951183820393268*^9, 3.9511838650798407`*^9, 3.9511842979941883`*^9, 
   3.951784462321897*^9, 3.951784515385445*^9, 3.951784560530109*^9, 
   3.951784596253965*^9, 3.953784117701814*^9, 3.953784218296252*^9, 
   3.956044526283682*^9, 3.97985955705437*^9, 3.979859954069825*^9, 
   3.979879700266004*^9, 3.979894640273336*^9, 3.979900384637858*^9, 
   3.979902324738852*^9, 3.980584079112286*^9, 3.98058442252221*^9},
 CellLabel->"Out[37]=",ExpressionUUID->"2008a062-0e44-4c78-b548-44a5e05011c9"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "This", " ", "plot", " ", "shows", " ", "the", " ", "linear", " ", 
   "temperature", " ", "dependence", " ", "of", " ", "the", " ", "quantum", 
   " ", "current", " ", "in", " ", "the", " ", "gapless", " ", "regime"}], 
  "*)"}]], "Input",
 CellLabel->"In[38]:=",ExpressionUUID->"fef656d7-a6f1-4ab2-98ae-aa81acb75451"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"\[Tau]", ",", 
   RowBox[{"PlotRange", "->", 
    RowBox[{"{", 
     RowBox[{"0", ",", "All"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.949640554435458*^9, 3.949640560694473*^9}, {
  3.979900389158384*^9, 3.979900407969641*^9}, {3.979902328268883*^9, 
  3.979902329265368*^9}},
 CellLabel->"In[39]:=",ExpressionUUID->"fc98afd6-239c-406f-aa89-e13860d441b9"],

Cell[BoxData[
 GraphicsBox[{{}, 
   InterpretationBox[{
     TagBox[
      TagBox[
       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
        0.012833333333333334`], AbsoluteThickness[2], 
        PointBox[{{0.0505, 9.94078028949748*^-6}, {0.0655, 
         0.000012392733027623992`}, {0.08049999999999999, 
         0.000014453977050184257`}, {0.0955, 0.00001612818170425563}}]},
       Annotation[#, "Charting`Private`Tag#1"]& ],
      {"WolframDynamicHighlight", <|
       "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], 
     StyleBox[
      DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, 
        Slot["HighlightElements"], 
        Slot["LayoutOptions"], 
        Slot["Meta"], 
        Charting`HighlightActionFunction["DynamicHighlight", {{
           Annotation[{
             Directive[
              PointSize[0.012833333333333334`], 
              RGBColor[0.368417, 0.506779, 0.709798], 
              AbsoluteThickness[2]], 
             
             Point[{{0.0505, 9.94078028949748*^-6}, {0.0655, 
              0.000012392733027623992`}, {0.08049999999999999, 
              0.000014453977050184257`}, {0.0955, 0.00001612818170425563}}]}, 
            "Charting`Private`Tag#1"]}}, <|
         "HighlightElements" -> <|
           "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
          "LayoutOptions" -> <|
           "PanelPlotLayout" -> <||>, 
            "PlotRange" -> {{0.04956250000000034, 0.0955}, {0., 
             0.00001612818170425563}}, 
            "Frame" -> {{False, False}, {False, False}}, 
            "AxesOrigin" -> {0.04956250000000034, 0}, 
            "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
            "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
            "DefaultStyle" -> {
              Directive[
               PointSize[0.012833333333333334`], 
               RGBColor[0.368417, 0.506779, 0.709798], 
               AbsoluteThickness[2]]}, 
            "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
                Identity[
                 Part[#, 1]], 
                Identity[
                 Part[#, 2]]}& ), 
              "ScalingFunctions" -> {{Identity, Identity}, {
                Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
            False|>, 
          "Meta" -> <|
           "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
            ListPlot, "GroupHighlight" -> False|>|>]]& )[<|
        "HighlightElements" -> <|
          "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
         "LayoutOptions" -> <|
          "PanelPlotLayout" -> <||>, 
           "PlotRange" -> {{0.04956250000000034, 0.0955}, {0., 
            0.00001612818170425563}}, 
           "Frame" -> {{False, False}, {False, False}}, 
           "AxesOrigin" -> {0.04956250000000034, 0}, 
           "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
           "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
           "DefaultStyle" -> {
             Directive[
              PointSize[0.012833333333333334`], 
              RGBColor[0.368417, 0.506779, 0.709798], 
              AbsoluteThickness[2]]}, 
           "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
               Identity[
                Part[#, 1]], 
               Identity[
                Part[#, 2]]}& ), 
             "ScalingFunctions" -> {{Identity, Identity}, {
               Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
           False|>, 
         "Meta" -> <|
          "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
           ListPlot, "GroupHighlight" -> False|>|>],
       ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, {
        4.503599627370496*^15, -4.503599627370496*^15}}],
      Selectable->False]},
    Annotation[{{
       Annotation[{
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[2]], 
         Point[{{0.0505, 9.94078028949748*^-6}, {0.0655, 
          0.000012392733027623992`}, {0.08049999999999999, 
          0.000014453977050184257`}, {0.0955, 0.00001612818170425563}}]}, 
        "Charting`Private`Tag#1"]}}, <|
     "HighlightElements" -> <|
       "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
      "LayoutOptions" -> <|
       "PanelPlotLayout" -> <||>, 
        "PlotRange" -> {{0.04956250000000034, 0.0955}, {0., 
         0.00001612818170425563}}, 
        "Frame" -> {{False, False}, {False, False}}, 
        "AxesOrigin" -> {0.04956250000000034, 0}, 
        "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
        "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
          Directive[
           PointSize[0.012833333333333334`], 
           RGBColor[0.368417, 0.506779, 0.709798], 
           AbsoluteThickness[2]]}, 
        "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
            Identity[
             Part[#, 1]], 
            Identity[
             Part[#, 2]]}& ), 
          "ScalingFunctions" -> {{Identity, Identity}, {
            Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, 
      "Meta" -> <|
       "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
        ListPlot, "GroupHighlight" -> False|>|>, 
     "DynamicHighlight"]], {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0.04956250000000034, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "DefaultPlotStyle" -> {
      Directive[
       RGBColor[0.368417, 0.506779, 0.709798], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.880722, 0.611041, 0.142051], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.560181, 0.691569, 0.194885], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.922526, 0.385626, 0.209179], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.528488, 0.470624, 0.701351], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.772079, 0.431554, 0.102387], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.363898, 0.618501, 0.782349], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[1, 0.75, 0], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.647624, 0.37816, 0.614037], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.571589, 0.586483, 0.], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.915, 0.3325, 0.2125], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
       AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], 
    "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], 
    "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint", 
    "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->{{0.04956250000000034, 0.0955}, {0., 0.00001612818170425563}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {0, 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.949640561347951*^9, 3.949641363262444*^9, 3.950076307967383*^9, 
   3.950076465074743*^9, 3.950077472009079*^9, 3.950077585396762*^9, 
   3.950077679651401*^9, 3.950077742631005*^9, 3.950077870576664*^9, 
   3.950077924318104*^9, 3.950077973201948*^9, 3.9500780683335238`*^9, 
   3.950078107221238*^9, 3.950078138144259*^9, 3.950078497949533*^9, 
   3.950078577547597*^9, 3.950146124404922*^9, 3.950146187095255*^9, 
   3.950146277646315*^9, 3.950146331826647*^9, 3.950146375895235*^9, 
   3.950147502165617*^9, 3.951028650528721*^9, 3.951028699266307*^9, {
   3.951028733529207*^9, 3.951028789683823*^9}, 3.951028824716943*^9, 
   3.951182808278933*^9, 3.951182848667491*^9, 3.951182913790868*^9, 
   3.951182949649374*^9, 3.9511830267639427`*^9, 3.951183082518997*^9, 
   3.951183122445991*^9, 3.9511831894299726`*^9, 3.951183323813019*^9, 
   3.951183374339813*^9, 3.951183472523464*^9, 3.951183820519136*^9, 
   3.951183865204327*^9, 3.951184298117946*^9, 3.9517844624435043`*^9, 
   3.951784515508594*^9, 3.951784560652222*^9, 3.951784596424142*^9, 
   3.953784117873542*^9, 3.953784218465019*^9, 3.956044526510442*^9, 
   3.979859559568615*^9, 3.979859954286758*^9, 3.9798797004904613`*^9, 
   3.979894640454447*^9, {3.979900384877822*^9, 3.979900409886364*^9}, {
   3.9799023249859543`*^9, 3.979902329745262*^9}, 3.980584079322043*^9, 
   3.980584422745578*^9},
 CellLabel->"Out[39]=",ExpressionUUID->"bb7aed1e-1638-44a0-95e5-6dd4b3f65825"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"Linear", " ", "fitting"}], "*)"}]], "Input",
 CellChangeTimes->{{3.9799026871728983`*^9, 3.979902693630671*^9}},
 CellLabel->"In[40]:=",ExpressionUUID->"c648c0c8-4cbb-421b-9d32-4e73fe2fdab3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Fit", "[", 
  RowBox[{"\[Tau]", ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "x"}], "}"}], ",", "x"}], "]"}]], "Input",
 CellChangeTimes->{{3.979902331798837*^9, 3.979902358133223*^9}, {
  3.979902772087971*^9, 3.979902795808158*^9}},
 CellLabel->"In[41]:=",ExpressionUUID->"7fc7455f-3c00-449d-a22f-f866103a43a4"],

Cell[BoxData[
 RowBox[{"3.19217319469743`*^-6", "+", 
  RowBox[{"0.00013748965511223158`", " ", "x"}]}]], "Output",
 CellChangeTimes->{
  3.97990235863551*^9, {3.979902775400217*^9, 3.979902796243534*^9}, 
   3.980584079336854*^9, 3.980584422757123*^9},
 CellLabel->"Out[41]=",ExpressionUUID->"1b4ce413-ec30-4008-a35e-969d5bd0ac45"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"p1", "=", 
  RowBox[{"Show", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"ListPlot", "[", 
      RowBox[{"\[Tau]", ",", 
       RowBox[{"PlotRange", "->", 
        RowBox[{"{", 
         RowBox[{"0", ",", "All"}], "}"}]}]}], "]"}], ",", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"3.19217319469743", "*", 
         SuperscriptBox["10", 
          RowBox[{"-", "6"}]]}], "+", 
        RowBox[{"0.00013748965511223158", " ", "x"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0", ",", "0.1"}], "}"}]}], "]"}]}], "}"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.979902558736158*^9, 3.9799026639983*^9}, {
  3.9799027440372343`*^9, 3.979902769601379*^9}, {3.979902811696851*^9, 
  3.979902837553762*^9}},
 CellLabel->"In[42]:=",ExpressionUUID->"516772a0-5360-4d1d-8f42-5e1f582a2b50"],

Cell[BoxData[
 GraphicsBox[{{{}, 
    InterpretationBox[{
      TagBox[
       TagBox[
        {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
         0.012833333333333334`], AbsoluteThickness[2], 
         PointBox[{{0.0505, 9.94078028949748*^-6}, {0.0655, 
          0.000012392733027623992`}, {0.08049999999999999, 
          0.000014453977050184257`}, {0.0955, 0.00001612818170425563}}]},
        Annotation[#, "Charting`Private`Tag#1"]& ],
       {"WolframDynamicHighlight", <|
        "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], 
      StyleBox[
       DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, 
         Slot["HighlightElements"], 
         Slot["LayoutOptions"], 
         Slot["Meta"], 
         Charting`HighlightActionFunction["DynamicHighlight", {{
            Annotation[{
              Directive[
               PointSize[0.012833333333333334`], 
               RGBColor[0.368417, 0.506779, 0.709798], 
               AbsoluteThickness[2]], 
              
              Point[{{0.0505, 9.94078028949748*^-6}, {0.0655, 
               0.000012392733027623992`}, {0.08049999999999999, 
               0.000014453977050184257`}, {0.0955, 0.00001612818170425563}}]},
              "Charting`Private`Tag#1"]}}, <|
          "HighlightElements" -> <|
            "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
           "LayoutOptions" -> <|
            "PanelPlotLayout" -> <||>, 
             "PlotRange" -> {{0.04956250000000034, 0.0955}, {0., 
              0.00001612818170425563}}, 
             "Frame" -> {{False, False}, {False, False}}, 
             "AxesOrigin" -> {0.04956250000000034, 0}, 
             "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
             "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
             "DefaultStyle" -> {
               Directive[
                PointSize[0.012833333333333334`], 
                RGBColor[0.368417, 0.506779, 0.709798], 
                AbsoluteThickness[2]]}, 
             "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
                 Identity[
                  Part[#, 1]], 
                 Identity[
                  Part[#, 2]]}& ), 
               "ScalingFunctions" -> {{Identity, Identity}, {
                 Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
             False|>, 
           "Meta" -> <|
            "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, 
             "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<|
         "HighlightElements" -> <|
           "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
          "LayoutOptions" -> <|
           "PanelPlotLayout" -> <||>, 
            "PlotRange" -> {{0.04956250000000034, 0.0955}, {0., 
             0.00001612818170425563}}, 
            "Frame" -> {{False, False}, {False, False}}, 
            "AxesOrigin" -> {0.04956250000000034, 0}, 
            "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
            "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
            "DefaultStyle" -> {
              Directive[
               PointSize[0.012833333333333334`], 
               RGBColor[0.368417, 0.506779, 0.709798], 
               AbsoluteThickness[2]]}, 
            "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
                Identity[
                 Part[#, 1]], 
                Identity[
                 Part[#, 2]]}& ), 
              "ScalingFunctions" -> {{Identity, Identity}, {
                Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
            False|>, 
          "Meta" -> <|
           "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
            ListPlot, "GroupHighlight" -> False|>|>],
        ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, {
         4.503599627370496*^15, -4.503599627370496*^15}}],
       Selectable->False]},
     Annotation[{{
        Annotation[{
          Directive[
           PointSize[0.012833333333333334`], 
           RGBColor[0.368417, 0.506779, 0.709798], 
           AbsoluteThickness[2]], 
          
          Point[{{0.0505, 9.94078028949748*^-6}, {0.0655, 
           0.000012392733027623992`}, {0.08049999999999999, 
           0.000014453977050184257`}, {0.0955, 0.00001612818170425563}}]}, 
         "Charting`Private`Tag#1"]}}, <|
      "HighlightElements" -> <|
        "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
       "LayoutOptions" -> <|
        "PanelPlotLayout" -> <||>, 
         "PlotRange" -> {{0.04956250000000034, 0.0955}, {0., 
          0.00001612818170425563}}, 
         "Frame" -> {{False, False}, {False, False}}, 
         "AxesOrigin" -> {0.04956250000000034, 0}, 
         "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
         "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
         "DefaultStyle" -> {
           Directive[
            PointSize[0.012833333333333334`], 
            RGBColor[0.368417, 0.506779, 0.709798], 
            AbsoluteThickness[2]]}, 
         "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
             Identity[
              Part[#, 1]], 
             Identity[
              Part[#, 2]]}& ), 
           "ScalingFunctions" -> {{Identity, Identity}, {
             Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, 
       "Meta" -> <|
        "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
         ListPlot, "GroupHighlight" -> False|>|>, 
      "DynamicHighlight"]], {{}, {}}}, 
   InterpretationBox[{
     TagBox[{{{}, {}, 
        TagBox[
         {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], 
          Opacity[1.], LineBox[CompressedData["
1:eJwV0Hk41HkcwHFZ6SBXk2PoYPWsQuuhRdHng3Rsh0TO1XYQOkVKKzmeUtQI
JTJjcoVIMkJ+Nqzw1I6bmnGMo8bkmJi+KVdo7R/v5/3/S/u4n8MJaSkpqf0L
/f+MESqw8aY2KIXajf78mgunpFf9U0STQrW/T681buHChHpwYSxNCddMRR20
6uSC5aN8vVDaOjQIqCnxEHOhb7jO6yLNCHd7m4feV6wHDqNN2p9mhRF2OopL
XOuB3tvReo5mj+NrJoxGhuqhSdaDOks7irwqdmDh8kagvd/vFlN9HlsFiqzZ
0GbwN2YJF4suo1/kX6RtoAXWBN4ebfYLR3dyOs5bpg1m/I/9yK+5jr1cybyb
ZTsUbFBQZzVG4ScDg/krR96Ci0z7To1NMZgwO90wx3wHrCg1VVpFHK5Lf5NY
2cKDSbGRvG7lXdzcdIA8JXxoOuq8ImQkAYW+vppzGzsh3ngwXkASUZOxhRd8
oAvOs2v8F0seoNl1OYbZuW7gauR7XFJj4djwOeVDWQJQGv/BldDZaNBx65fU
1z3Q2nPElvN7KspuNl+xR7oP+IWRjNUv0vC48fhEsmY/WGrHl30sTUfZ2Oxf
s5/0w2GmzohjQwZeytCx/7DrPXyrPnl4R3Mm6s/MlJV0voe9X0x5XYOP8OnS
lGVU0AfYJMkNOfQ9C9MjKvjdKkK4wWzzcpjNxk6wGLufKYQUuwiHryqPsbco
4lOY1QDocUQRdLVc1Duta7KofQBs+iW9uqp5OBCzazL9uAg01MOt2zc+wbM+
JpkB8yLwma8TLTbMR4vIK0ldsR/hwmh8rMD2KfLcGBcCDAdBPvcnnySXAhQ+
WN244c0g0Ffqh/NcnqGJlpzfZdchGLc50ywwLUQH5+qpia9DkNDODosrK8Ti
t+1c+ZvDELInY2epGQejK7zpNqojUFN3UqmgmoP6h18dzOGMwA51+e8+NkWo
Yh3cmmkjhvV+/kPjjUVY2z1j3tInBis2Z8La/jm+LOcP3Qv4BBmcWk3plue4
XuY31SDpUfDkMrcnuBejh8wf+rcejsKR8r2Moe5i5O/uidpsNAblBVV8Bd8S
XGer16TQNAYe0bJbc0gJdueOxy09KYEtFnoViwJKsctRMyV5WgKBRH77prlS
dOyK3GW49zOMhDYMa4W9wG4DgxNuCZ8h58ufOVfnX2BK8V3rVYLPUHOq2Kcw
qgxrk3qUhzcQoJcP7M5aRqEC2/lGVACBuasydJEchW+MhhsaLhDot9YV6ypQ
eK32ykrliwSy//WMeaRC4ZQ4LS05iIBJ54fWTE0KhVvF5XkhBPZN9btnGFJY
1hEmabhB4Kppz5nUgxQeo+W6KrMIHJ2Z3dbnSKHWY4tUpxQCtpVaimudKeRb
NImS2QSW7/TgPHSncJ/neIBOGoFEp+5vbE8KTYu2xZhkESgI7AxNuUihnH1b
tdMzAvHm0wcEQRTWCb2WMgsJBM6qa2sFUxgeNGnXyyGw9bprDSuUwm8PtQTe
xQRe3+MvYd2ksH/UeyKIIpDnMtnRFU0hM2La8mU5gTuaanl0BoXOqxjXpF4S
OJTpvI8ZR2G9JUcpupKAmc+l1V13KYxs2e7SWLXgp584pnGfQisvHlu5esFv
rKTKLYnCmUnfAadXC35F7+KSkyksuf19I7OGwH9bp3fj
           "]]},
         Annotation[#, "Charting`Private`Tag#1"]& ]}, {}},
      {"WolframDynamicHighlight", <|
       "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], 
     StyleBox[
      DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, 
        Slot["HighlightElements"], 
        Slot["LayoutOptions"], 
        Slot["Meta"], 
        Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, 
            Annotation[{
              Directive[
               Opacity[1.], 
               RGBColor[0.368417, 0.506779, 0.709798], 
               AbsoluteThickness[2]], 
              Line[CompressedData["
1:eJwV0Hk41HkcwHFZ6SBXk2PoYPWsQuuhRdHng3Rsh0TO1XYQOkVKKzmeUtQI
JTJjcoVIMkJ+Nqzw1I6bmnGMo8bkmJi+KVdo7R/v5/3/S/u4n8MJaSkpqf0L
/f+MESqw8aY2KIXajf78mgunpFf9U0STQrW/T681buHChHpwYSxNCddMRR20
6uSC5aN8vVDaOjQIqCnxEHOhb7jO6yLNCHd7m4feV6wHDqNN2p9mhRF2OopL
XOuB3tvReo5mj+NrJoxGhuqhSdaDOks7irwqdmDh8kagvd/vFlN9HlsFiqzZ
0GbwN2YJF4suo1/kX6RtoAXWBN4ebfYLR3dyOs5bpg1m/I/9yK+5jr1cybyb
ZTsUbFBQZzVG4ScDg/krR96Ci0z7To1NMZgwO90wx3wHrCg1VVpFHK5Lf5NY
2cKDSbGRvG7lXdzcdIA8JXxoOuq8ImQkAYW+vppzGzsh3ngwXkASUZOxhRd8
oAvOs2v8F0seoNl1OYbZuW7gauR7XFJj4djwOeVDWQJQGv/BldDZaNBx65fU
1z3Q2nPElvN7KspuNl+xR7oP+IWRjNUv0vC48fhEsmY/WGrHl30sTUfZ2Oxf
s5/0w2GmzohjQwZeytCx/7DrPXyrPnl4R3Mm6s/MlJV0voe9X0x5XYOP8OnS
lGVU0AfYJMkNOfQ9C9MjKvjdKkK4wWzzcpjNxk6wGLufKYQUuwiHryqPsbco
4lOY1QDocUQRdLVc1Duta7KofQBs+iW9uqp5OBCzazL9uAg01MOt2zc+wbM+
JpkB8yLwma8TLTbMR4vIK0ldsR/hwmh8rMD2KfLcGBcCDAdBPvcnnySXAhQ+
WN244c0g0Ffqh/NcnqGJlpzfZdchGLc50ywwLUQH5+qpia9DkNDODosrK8Ti
t+1c+ZvDELInY2epGQejK7zpNqojUFN3UqmgmoP6h18dzOGMwA51+e8+NkWo
Yh3cmmkjhvV+/kPjjUVY2z1j3tInBis2Z8La/jm+LOcP3Qv4BBmcWk3plue4
XuY31SDpUfDkMrcnuBejh8wf+rcejsKR8r2Moe5i5O/uidpsNAblBVV8Bd8S
XGer16TQNAYe0bJbc0gJdueOxy09KYEtFnoViwJKsctRMyV5WgKBRH77prlS
dOyK3GW49zOMhDYMa4W9wG4DgxNuCZ8h58ufOVfnX2BK8V3rVYLPUHOq2Kcw
qgxrk3qUhzcQoJcP7M5aRqEC2/lGVACBuasydJEchW+MhhsaLhDot9YV6ypQ
eK32ykrliwSy//WMeaRC4ZQ4LS05iIBJ54fWTE0KhVvF5XkhBPZN9btnGFJY
1hEmabhB4Kppz5nUgxQeo+W6KrMIHJ2Z3dbnSKHWY4tUpxQCtpVaimudKeRb
NImS2QSW7/TgPHSncJ/neIBOGoFEp+5vbE8KTYu2xZhkESgI7AxNuUihnH1b
tdMzAvHm0wcEQRTWCb2WMgsJBM6qa2sFUxgeNGnXyyGw9bprDSuUwm8PtQTe
xQRe3+MvYd2ksH/UeyKIIpDnMtnRFU0hM2La8mU5gTuaanl0BoXOqxjXpF4S
OJTpvI8ZR2G9JUcpupKAmc+l1V13KYxs2e7SWLXgp584pnGfQisvHlu5esFv
rKTKLYnCmUnfAadXC35F7+KSkyksuf19I7OGwH9bp3fj
               "]]}, "Charting`Private`Tag#1"]}}, {}}, <|
         "HighlightElements" -> <|
           "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
          "LayoutOptions" -> <|
           "PanelPlotLayout" -> <||>, 
            "PlotRange" -> {{0, 0.1}, {3.192173475288563*^-6, 
              0.000016941138425329456`}}, 
            "Frame" -> {{False, False}, {False, False}}, 
            "AxesOrigin" -> {0, 3.1921734752885703`*^-6}, 
            "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
            "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
            "DefaultStyle" -> {
              Directive[
               Opacity[1.], 
               RGBColor[0.368417, 0.506779, 0.709798], 
               AbsoluteThickness[2]]}, 
            "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
                Identity[
                 Part[#, 1]], 
                Identity[
                 Part[#, 2]]}& ), 
              "ScalingFunctions" -> {{Identity, Identity}, {
                Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
            False|>, 
          "Meta" -> <|
           "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
            Plot, "GroupHighlight" -> False|>|>]]& )[<|
        "HighlightElements" -> <|
          "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
         "LayoutOptions" -> <|
          "PanelPlotLayout" -> <||>, 
           "PlotRange" -> {{0, 0.1}, {3.192173475288563*^-6, 
             0.000016941138425329456`}}, 
           "Frame" -> {{False, False}, {False, False}}, 
           "AxesOrigin" -> {0, 3.1921734752885703`*^-6}, 
           "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
           "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
           "DefaultStyle" -> {
             Directive[
              Opacity[1.], 
              RGBColor[0.368417, 0.506779, 0.709798], 
              AbsoluteThickness[2]]}, 
           "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
               Identity[
                Part[#, 1]], 
               Identity[
                Part[#, 2]]}& ), 
             "ScalingFunctions" -> {{Identity, Identity}, {
               Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
           False|>, 
         "Meta" -> <|
          "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
           Plot, "GroupHighlight" -> False|>|>],
       ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, {
        4.503599627370496*^15, -4.503599627370496*^15}}],
      Selectable->False]},
    Annotation[{{{{}, {}, 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[0.368417, 0.506779, 0.709798], 
           AbsoluteThickness[2]], 
          Line[CompressedData["
1:eJwV0Hk41HkcwHFZ6SBXk2PoYPWsQuuhRdHng3Rsh0TO1XYQOkVKKzmeUtQI
JTJjcoVIMkJ+Nqzw1I6bmnGMo8bkmJi+KVdo7R/v5/3/S/u4n8MJaSkpqf0L
/f+MESqw8aY2KIXajf78mgunpFf9U0STQrW/T681buHChHpwYSxNCddMRR20
6uSC5aN8vVDaOjQIqCnxEHOhb7jO6yLNCHd7m4feV6wHDqNN2p9mhRF2OopL
XOuB3tvReo5mj+NrJoxGhuqhSdaDOks7irwqdmDh8kagvd/vFlN9HlsFiqzZ
0GbwN2YJF4suo1/kX6RtoAXWBN4ebfYLR3dyOs5bpg1m/I/9yK+5jr1cybyb
ZTsUbFBQZzVG4ScDg/krR96Ci0z7To1NMZgwO90wx3wHrCg1VVpFHK5Lf5NY
2cKDSbGRvG7lXdzcdIA8JXxoOuq8ImQkAYW+vppzGzsh3ngwXkASUZOxhRd8
oAvOs2v8F0seoNl1OYbZuW7gauR7XFJj4djwOeVDWQJQGv/BldDZaNBx65fU
1z3Q2nPElvN7KspuNl+xR7oP+IWRjNUv0vC48fhEsmY/WGrHl30sTUfZ2Oxf
s5/0w2GmzohjQwZeytCx/7DrPXyrPnl4R3Mm6s/MlJV0voe9X0x5XYOP8OnS
lGVU0AfYJMkNOfQ9C9MjKvjdKkK4wWzzcpjNxk6wGLufKYQUuwiHryqPsbco
4lOY1QDocUQRdLVc1Duta7KofQBs+iW9uqp5OBCzazL9uAg01MOt2zc+wbM+
JpkB8yLwma8TLTbMR4vIK0ldsR/hwmh8rMD2KfLcGBcCDAdBPvcnnySXAhQ+
WN244c0g0Ffqh/NcnqGJlpzfZdchGLc50ywwLUQH5+qpia9DkNDODosrK8Ti
t+1c+ZvDELInY2epGQejK7zpNqojUFN3UqmgmoP6h18dzOGMwA51+e8+NkWo
Yh3cmmkjhvV+/kPjjUVY2z1j3tInBis2Z8La/jm+LOcP3Qv4BBmcWk3plue4
XuY31SDpUfDkMrcnuBejh8wf+rcejsKR8r2Moe5i5O/uidpsNAblBVV8Bd8S
XGer16TQNAYe0bJbc0gJdueOxy09KYEtFnoViwJKsctRMyV5WgKBRH77prlS
dOyK3GW49zOMhDYMa4W9wG4DgxNuCZ8h58ufOVfnX2BK8V3rVYLPUHOq2Kcw
qgxrk3qUhzcQoJcP7M5aRqEC2/lGVACBuasydJEchW+MhhsaLhDot9YV6ypQ
eK32ykrliwSy//WMeaRC4ZQ4LS05iIBJ54fWTE0KhVvF5XkhBPZN9btnGFJY
1hEmabhB4Kppz5nUgxQeo+W6KrMIHJ2Z3dbnSKHWY4tUpxQCtpVaimudKeRb
NImS2QSW7/TgPHSncJ/neIBOGoFEp+5vbE8KTYu2xZhkESgI7AxNuUihnH1b
tdMzAvHm0wcEQRTWCb2WMgsJBM6qa2sFUxgeNGnXyyGw9bprDSuUwm8PtQTe
xQRe3+MvYd2ksH/UeyKIIpDnMtnRFU0hM2La8mU5gTuaanl0BoXOqxjXpF4S
OJTpvI8ZR2G9JUcpupKAmc+l1V13KYxs2e7SWLXgp584pnGfQisvHlu5esFv
rKTKLYnCmUnfAadXC35F7+KSkyksuf19I7OGwH9bp3fj
           "]]}, "Charting`Private`Tag#1"]}}, {}}, <|
     "HighlightElements" -> <|
       "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
      "LayoutOptions" -> <|
       "PanelPlotLayout" -> <||>, 
        "PlotRange" -> {{0, 0.1}, {3.192173475288563*^-6, 
          0.000016941138425329456`}}, 
        "Frame" -> {{False, False}, {False, False}}, 
        "AxesOrigin" -> {0, 3.1921734752885703`*^-6}, 
        "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
        "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
          Directive[
           Opacity[1.], 
           RGBColor[0.368417, 0.506779, 0.709798], 
           AbsoluteThickness[2]]}, 
        "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
            Identity[
             Part[#, 1]], 
            Identity[
             Part[#, 2]]}& ), 
          "ScalingFunctions" -> {{Identity, Identity}, {
            Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, 
      "Meta" -> <|
       "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
        Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0.04956250000000034, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "DefaultPlotStyle" -> {
      Directive[
       RGBColor[0.368417, 0.506779, 0.709798], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.880722, 0.611041, 0.142051], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.560181, 0.691569, 0.194885], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.922526, 0.385626, 0.209179], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.528488, 0.470624, 0.701351], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.772079, 0.431554, 0.102387], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.363898, 0.618501, 0.782349], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[1, 0.75, 0], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.647624, 0.37816, 0.614037], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.571589, 0.586483, 0.], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.915, 0.3325, 0.2125], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
       AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], 
    "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], 
    "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint", 
    "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->{{0.04956250000000034, 0.0955}, {0., 0.00001612818170425563}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {0, 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.979902598151703*^9, 3.979902627219232*^9}, 
   3.979902664538066*^9, {3.979902744811202*^9, 3.979902761679333*^9}, {
   3.979902814631824*^9, 3.9799028384638767`*^9}, 3.98058407936765*^9, 
   3.980584422783557*^9},
 CellLabel->"Out[42]=",ExpressionUUID->"92f5bfb3-1042-424c-a744-d0f71b428225"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"ListLinePlot", "[", 
   RowBox[{"gmatslist", ",", 
    RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], "*)"}]], "Input",
 CellChangeTimes->{{3.868952914249959*^9, 3.868952915866066*^9}, 
   3.927591981167902*^9, {3.979894705335013*^9, 3.979894712811776*^9}},
 CellLabel->"In[43]:=",ExpressionUUID->"6d13cd51-d5a1-464a-8732-63cf62a694f2"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"ListLinePlot", "[", 
   RowBox[{"transcofflist", ",", 
    RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], "*)"}]], "Input",
 CellChangeTimes->{{3.868406897530542*^9, 3.868406906441804*^9}, {
   3.868407201356213*^9, 3.868407216106988*^9}, 3.868411564951963*^9, {
   3.979894721437576*^9, 3.97989472821366*^9}},
 CellLabel->"In[44]:=",ExpressionUUID->"596762d9-4f8a-4323-8fd5-4c88e90298ad"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"ListLinePlot", "[", 
   RowBox[{"transcofflist", ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.7"}], ",", "0.7"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.25"}], ",", "0.25"}], "}"}]}], "}"}]}]}], "]"}], 
  "*)"}]], "Input",
 CellChangeTimes->{{3.931846582077334*^9, 3.931846598412788*^9}, {
  3.9318470593263273`*^9, 3.931847102572613*^9}, {3.953784264671517*^9, 
  3.95378429447805*^9}, {3.979894734931862*^9, 3.9798947379229407`*^9}},
 CellLabel->"In[45]:=",ExpressionUUID->"dfa5a43b-507c-4aae-b430-6669b8fe7aea"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Numerical analysis - KL model - Heat current - Gapless - for fixed \
temperature and different system size\
\>", "Subsubsection",
 CellChangeTimes->{{3.8921949000502033`*^9, 3.892194909539785*^9}, {
   3.892195421277308*^9, 3.892195423733597*^9}, {3.892261325852085*^9, 
   3.8922613307160387`*^9}, {3.893745168228965*^9, 3.893745176677358*^9}, 
   3.89441741112214*^9, {3.89562174467109*^9, 3.895621750351262*^9}, {
   3.9018635419122*^9, 3.901863543400784*^9}, {3.908951512751371*^9, 
   3.908951523623046*^9}, {3.927591050638835*^9, 3.927591053886813*^9}, {
   3.931844641265348*^9, 3.931844658325081*^9}, {3.9798600420473003`*^9, 
   3.979860042970072*^9}, {3.979860183857518*^9, 3.979860199239171*^9}, 
   3.979860267761077*^9, {3.979860403207653*^9, 3.9798604328439093`*^9}, {
   3.979894514358572*^9, 3.979894516804947*^9}, {3.979894590354327*^9, 
   3.9798945926225557`*^9}},ExpressionUUID->"4d83b841-b6e5-49e4-b920-\
3af259f80bf9"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "In", " ", "this", " ", "section", " ", "we", " ", "analysed", " ", "the", 
   " ", "system", " ", "size", " ", "dependence", " ", "of", " ", "quantum", 
   " ", "current", " ", "in", " ", "the", " ", "gapless", " ", "regime", " ", 
   "and", " ", "showed", " ", "that", " ", "the", " ", "transport", " ", "is",
    " ", "ballistic"}], "*)"}]], "Input",
 CellChangeTimes->{{3.979860272672861*^9, 3.979860297116089*^9}, {
  3.9798603711508923`*^9, 3.979860375914154*^9}, {3.979860438576152*^9, 
  3.979860441546226*^9}, {3.979894777782241*^9, 3.979894789974927*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"ea99d1d8-114c-4ff1-81d6-18ece2be04a6"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"d\[Omega]", "=", "0.00025"}], ";", 
  RowBox[{"\[Omega]tab", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"i", ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"-", 
        RowBox[{"N", "[", "1.8", "]"}]}], ",", 
       RowBox[{"N", "[", "1.8", "]"}], ",", "d\[Omega]"}], "}"}]}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"\[Omega]ntab", "=", 
   RowBox[{"Drop", "[", 
    RowBox[{"\[Omega]tab", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Position", "[", 
        RowBox[{"\[Omega]tab", ",", "0."}], "]"}], "\[LeftDoubleBracket]", 
       RowBox[{"1", ",", "1"}], "\[RightDoubleBracket]"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"zl", "[", 
    RowBox[{
    "m_", ",", " ", "r_", ",", "\[Omega]_", ",", "k_", ",", "v1_", ",", 
     "\[Gamma]_"}], "]"}], ":=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "m"}], " ", 
     SuperscriptBox["r", "2"], " ", 
     SuperscriptBox["\[Omega]", "2"]}], "+", 
    RowBox[{"k", " ", 
     SuperscriptBox["v1", "2"]}], "-", " ", 
    RowBox[{"I", " ", "*", 
     RowBox[{"(", 
      RowBox[{"\[Gamma]", " ", "*", "\[Omega]"}], ")"}]}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"zr", "[", 
    RowBox[{
    "m_", ",", " ", "r_", ",", "\[Omega]_", ",", "k_", ",", "v2_", ",", 
     "\[Gamma]_"}], "]"}], ":=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "m"}], " ", 
     SuperscriptBox["r", "2"], " ", 
     SuperscriptBox["\[Omega]", "2"]}], "+", 
    RowBox[{"k", " ", 
     SuperscriptBox["v2", "2"]}], "-", " ", 
    RowBox[{"I", " ", "*", 
     RowBox[{"(", 
      RowBox[{"\[Gamma]", " ", "*", "\[Omega]"}], ")"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"z", "[", 
    RowBox[{
    "m_", ",", "r_", ",", "\[Omega]_", ",", "k_", ",", "v1_", ",", "v2_"}], 
    "]"}], ":=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "m"}], " ", 
     SuperscriptBox["r", "2"], " ", 
     SuperscriptBox["\[Omega]", "2"]}], "+", 
    RowBox[{"k", " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["v1", "2"], " ", "+", " ", 
       SuperscriptBox["v2", "2"]}], ")"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"m", "=", "1.0"}], ";", 
  RowBox[{"r", "=", "2.0"}], ";", 
  RowBox[{"a", "=", "1.0"}], ";", " ", 
  RowBox[{"k", "=", "1.0"}], ";", 
  RowBox[{"\[Gamma]L", "=", "0.2"}], ";", 
  RowBox[{"\[Gamma]R", "=", "0.2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"\[Omega]_", ",", "T_"}], "]"}], ":=", " ", 
   FractionBox["1", 
    RowBox[{
     RowBox[{"Exp", "[", 
      FractionBox[
       RowBox[{"\[HBar]", " ", "\[Omega]"}], 
       RowBox[{"kb", " ", "T"}]], "]"}], "-", "1"}]]}], ";", 
  RowBox[{"kb", "=", "1.0"}], ";", 
  RowBox[{"\[HBar]", "=", "1.0"}], ";"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.86840385771015*^9, 3.868403865082279*^9}, {
   3.868404213565318*^9, 3.868404229533517*^9}, {3.868404262893664*^9, 
   3.8684042634362087`*^9}, {3.868405051091968*^9, 3.868405051995028*^9}, {
   3.868405126354449*^9, 3.868405127537305*^9}, {3.8684065561216803`*^9, 
   3.868406556648838*^9}, {3.868407071065693*^9, 3.86840707196108*^9}, {
   3.868407127383185*^9, 3.8684071346465807`*^9}, 3.868407175808673*^9, {
   3.868407307080939*^9, 3.868407376100984*^9}, {3.868409764193202*^9, 
   3.8684098385813293`*^9}, {3.868409876621852*^9, 3.868409880300149*^9}, {
   3.868410129949355*^9, 3.868410175748075*^9}, {3.868411516031082*^9, 
   3.868411524246174*^9}, {3.868411667231938*^9, 3.8684116752482224`*^9}, 
   3.868411715451689*^9, {3.868412078707752*^9, 3.868412079928488*^9}, {
   3.868412399239757*^9, 3.868412399711008*^9}, {3.868412459249563*^9, 
   3.868412460238564*^9}, {3.868418574401619*^9, 3.868418575945039*^9}, {
   3.868418636520402*^9, 3.868418636983653*^9}, {3.868418667968072*^9, 
   3.8684187901577263`*^9}, {3.868418825485381*^9, 3.868418826045614*^9}, {
   3.868418866428574*^9, 3.868418866940524*^9}, {3.868418914579878*^9, 
   3.868418917251444*^9}, {3.86841912608714*^9, 3.8684191264143467`*^9}, {
   3.868419156814341*^9, 3.86841917957308*^9}, {3.868511204427794*^9, 
   3.868511205001893*^9}, {3.868511290314198*^9, 3.868511290616612*^9}, {
   3.868511354993012*^9, 3.868511355463366*^9}, {3.868602625620034*^9, 
   3.86860266920962*^9}, {3.8686027151611423`*^9, 3.868602715712357*^9}, {
   3.868602747344434*^9, 3.868602769631366*^9}, {3.868603260144537*^9, 
   3.868603285799528*^9}, {3.868603413390068*^9, 3.868603413557343*^9}, {
   3.868603824077499*^9, 3.868603848604155*^9}, {3.868603880907151*^9, 
   3.868603882539111*^9}, {3.868603925121768*^9, 3.868603925545188*^9}, {
   3.868603956096533*^9, 3.868603956335929*^9}, {3.868604380164731*^9, 
   3.868604380548272*^9}, {3.868605632947117*^9, 3.868605634513568*^9}, {
   3.8686056777691708`*^9, 3.8686056782724447`*^9}, {3.868605723383866*^9, 
   3.8686057530067577`*^9}, {3.868605794038369*^9, 3.868605842558017*^9}, {
   3.8686066000249147`*^9, 3.86860662210394*^9}, {3.868606655399979*^9, 
   3.868606713711356*^9}, {3.868606934555969*^9, 3.868606935388111*^9}, {
   3.868606994578874*^9, 3.868606996690547*^9}, {3.868607845149045*^9, 
   3.868607920482331*^9}, {3.868607967617207*^9, 3.868607977224205*^9}, {
   3.86860813051565*^9, 3.868608135649007*^9}, {3.868608179194238*^9, 
   3.868608179889978*^9}, {3.868608942491249*^9, 3.86860894968719*^9}, {
   3.868609271417534*^9, 3.868609277833392*^9}, {3.868609351279739*^9, 
   3.86860935195992*^9}, {3.868665669302395*^9, 3.868665708940984*^9}, {
   3.868665746596598*^9, 3.868665748756846*^9}, {3.86866624725371*^9, 
   3.868666273125188*^9}, {3.868666555210957*^9, 3.868666555938257*^9}, {
   3.868666588290728*^9, 3.868666589778351*^9}, {3.868667513180248*^9, 
   3.8686675136436787`*^9}, {3.868667578563308*^9, 3.868667604354793*^9}, {
   3.868667729464364*^9, 3.868667756776352*^9}, {3.868671876905162*^9, 
   3.868671896239921*^9}, {3.868671942503599*^9, 3.868671943935336*^9}, {
   3.8686720129422083`*^9, 3.868672013605905*^9}, {3.868952398284077*^9, 
   3.868952403323431*^9}, {3.868953002017135*^9, 3.868953004888228*^9}, {
   3.869204267149353*^9, 3.869204270628992*^9}, {3.869204398362966*^9, 
   3.869204413274459*^9}, {3.870394755959407*^9, 3.870394775757773*^9}, {
   3.874469292133422*^9, 3.8744692955075*^9}, {3.874469784769734*^9, 
   3.874469809609144*^9}, {3.874469880024169*^9, 3.874469931581843*^9}, {
   3.874469962053199*^9, 3.874469965085628*^9}, {3.874470285638688*^9, 
   3.874470293502266*^9}, {3.876204122378257*^9, 3.876204151287579*^9}, {
   3.876803319891176*^9, 3.876803327201121*^9}, {3.876803365537792*^9, 
   3.876803366002085*^9}, {3.876803404475884*^9, 3.87680340605978*^9}, 
   3.8787803862556677`*^9, {3.878780417895706*^9, 3.878780423263797*^9}, {
   3.8787804731209993`*^9, 3.87878051499361*^9}, {3.878780557451213*^9, 
   3.878780686821651*^9}, {3.878780739863353*^9, 3.878780766472425*^9}, {
   3.878780818633658*^9, 3.87878082108982*^9}, {3.878780927981073*^9, 
   3.878780928645149*^9}, {3.878781141427789*^9, 3.878781204197002*^9}, {
   3.878788433036141*^9, 3.878788450530957*^9}, {3.878788506516498*^9, 
   3.878788508851853*^9}, {3.878788769578144*^9, 3.878788770225845*^9}, {
   3.878792461953405*^9, 3.878792516152624*^9}, {3.878792654845168*^9, 
   3.8787926706511507`*^9}, {3.880587319670717*^9, 3.880587321276775*^9}, {
   3.880587351941907*^9, 3.880587366669932*^9}, {3.88732769465307*^9, 
   3.8873276951725616`*^9}, {3.887328590194618*^9, 3.8873285905847483`*^9}, {
   3.887328622688421*^9, 3.887328650087474*^9}, {3.887413981862784*^9, 
   3.887413982694622*^9}, {3.88742754456899*^9, 3.887427545792269*^9}, {
   3.8880304022348013`*^9, 3.888030411804422*^9}, {3.888030835003417*^9, 
   3.888030835347118*^9}, {3.88803086873506*^9, 3.8880308728842897`*^9}, {
   3.888030973239741*^9, 3.8880309842467318`*^9}, {3.888031082203557*^9, 
   3.888031083744651*^9}, {3.8889959115520782`*^9, 3.8889959207844*^9}, {
   3.888995982001768*^9, 3.888995983873726*^9}, {3.888996085388401*^9, 
   3.88899608567633*^9}, {3.8889968210685053`*^9, 3.888996821668586*^9}, {
   3.8889969366717043`*^9, 3.888996950743225*^9}, {3.888997124459343*^9, 
   3.888997130907942*^9}, {3.888997180884336*^9, 3.888997181204391*^9}, {
   3.888997272911078*^9, 3.888997273871207*^9}, {3.888997353802054*^9, 
   3.888997367489154*^9}, {3.888997602630905*^9, 3.888997603054173*^9}, {
   3.8921949442387877`*^9, 3.892194948339978*^9}, {3.892195014629484*^9, 
   3.8921950379895487`*^9}, {3.8921952506842003`*^9, 
   3.8921952571146603`*^9}, {3.8921954562071867`*^9, 3.892195457207259*^9}, {
   3.892195504743905*^9, 3.892195520176637*^9}, 3.892195595858009*^9, {
   3.892261368249839*^9, 3.892261392119915*^9}, {3.89226142555191*^9, 
   3.892261425935705*^9}, {3.892266790669443*^9, 3.892266791125068*^9}, 
   3.8922671879413033`*^9, {3.892267530003735*^9, 3.89226753066784*^9}, {
   3.893465104490781*^9, 3.893465113195031*^9}, {3.893466956299871*^9, 
   3.893466957451434*^9}, {3.893469317938162*^9, 3.893469355394409*^9}, 
   3.893469386011278*^9, {3.8943290752580023`*^9, 3.894329075720854*^9}, 
   3.8943291060018787`*^9, {3.894329141650915*^9, 3.894329144026731*^9}, 
   3.894329503551583*^9, {3.8943295791847887`*^9, 3.894329658322259*^9}, {
   3.894329826582612*^9, 3.894329826797347*^9}, {3.894329863254418*^9, 
   3.894329864341895*^9}, {3.894329901839355*^9, 3.894329933175375*^9}, {
   3.894329969520199*^9, 3.894329980064024*^9}, {3.894330014105261*^9, 
   3.894330019081537*^9}, {3.894330065586312*^9, 3.8943300674019*^9}, {
   3.894330104107654*^9, 3.894330104971154*^9}, {3.894331004192333*^9, 
   3.89433100440018*^9}, {3.894331034745393*^9, 3.894331064297709*^9}, {
   3.89433111915508*^9, 3.894331120514441*^9}, {3.894331161763747*^9, 
   3.894331162603915*^9}, {3.894331205349009*^9, 3.894331205884858*^9}, {
   3.894331249974222*^9, 3.894331250502007*^9}, {3.894331290439274*^9, 
   3.894331291007515*^9}, {3.894331326664509*^9, 3.894331326952735*^9}, {
   3.894331367034045*^9, 3.894331368738026*^9}, {3.894331404083208*^9, 
   3.894331404490985*^9}, {3.894331447476458*^9, 3.894331448284525*^9}, {
   3.894331483989017*^9, 3.894331484772949*^9}, {3.8943315284949527`*^9, 
   3.894331572944125*^9}, {3.894331604793625*^9, 3.894331605833008*^9}, {
   3.894331887778177*^9, 3.894331888408771*^9}, {3.894343387866048*^9, 
   3.894343414282322*^9}, {3.894864278159524*^9, 3.894864291749405*^9}, {
   3.894864353943188*^9, 3.894864356446884*^9}, {3.894864443641974*^9, 
   3.894864447601928*^9}, {3.894864829419112*^9, 3.894864834907456*^9}, {
   3.8948653589200983`*^9, 3.894865387328062*^9}, {3.894865421152905*^9, 
   3.894865454857673*^9}, {3.894865498634774*^9, 3.894865500330443*^9}, {
   3.894946108891407*^9, 3.894946127011511*^9}, {3.89494625582275*^9, 
   3.894946257783217*^9}, 3.894946389290127*^9, {3.895108479643525*^9, 
   3.895108485275545*^9}, 3.895108549422448*^9, {3.89556172935443*^9, 
   3.8955617295995007`*^9}, {3.8955617947603693`*^9, 3.895561795321059*^9}, {
   3.895561894827398*^9, 3.895561894979487*^9}, 3.895620748307724*^9, {
   3.895620801317152*^9, 3.895620812109129*^9}, {3.895620963169644*^9, 
   3.895620965908121*^9}, {3.895620996626018*^9, 3.895621086612134*^9}, {
   3.895621133245095*^9, 3.895621173429083*^9}, {3.8956213145393267`*^9, 
   3.8956213156803703`*^9}, {3.8956213485531607`*^9, 3.895621351809031*^9}, {
   3.895621402722004*^9, 3.895621403617743*^9}, {3.895621440739107*^9, 
   3.895621441330864*^9}, {3.895621649816761*^9, 3.8956216501337433`*^9}, {
   3.8957089076165524`*^9, 3.895708907950719*^9}, {3.895709348081283*^9, 
   3.895709380217978*^9}, {3.895709421218331*^9, 3.895709422226064*^9}, {
   3.89570947260378*^9, 3.895709494067134*^9}, {3.901859359330638*^9, 
   3.901859384921168*^9}, 3.901860193922276*^9, {3.901860227969263*^9, 
   3.901860439756713*^9}, {3.901860484548567*^9, 3.901860485316663*^9}, {
   3.901862550381569*^9, 3.9018625615815077`*^9}, {3.901862593225676*^9, 
   3.901862616370899*^9}, {3.901863257705104*^9, 3.901863257919154*^9}, {
   3.9018633570378103`*^9, 3.901863371564993*^9}, {3.901864380802061*^9, 
   3.901864386529272*^9}, {3.901864487087375*^9, 3.901864489950995*^9}, {
   3.901936921422677*^9, 3.901936921966583*^9}, {3.9019369672940893`*^9, 
   3.901936967621874*^9}, {3.901937010309692*^9, 3.901937086762596*^9}, {
   3.901937173482359*^9, 3.901937173994228*^9}, {3.901937255744856*^9, 
   3.901937257072501*^9}, {3.90193729251267*^9, 3.901937301144257*^9}, {
   3.901937394182691*^9, 3.901937401830097*^9}, {3.901960017001911*^9, 
   3.901960021512333*^9}, {3.908927581023949*^9, 3.908927582063386*^9}, {
   3.908927724797622*^9, 3.908927729602792*^9}, 3.908929533019766*^9, {
   3.908929600462516*^9, 3.908929644482918*^9}, {3.908929731495384*^9, 
   3.908929733446294*^9}, {3.908930697229319*^9, 3.908930697859748*^9}, 
   3.908948061250345*^9, {3.908951423321053*^9, 3.908951423705051*^9}, {
   3.90901435764253*^9, 3.909014375373171*^9}, {3.909555069484689*^9, 
   3.909555105059954*^9}, {3.909555397463691*^9, 3.909555401494233*^9}, {
   3.9095555439871407`*^9, 3.9095555522585297`*^9}, {3.909555723078628*^9, 
   3.909555724358447*^9}, {3.909555765821327*^9, 3.90955576883724*^9}, {
   3.909555803916922*^9, 3.909555819228349*^9}, {3.909555868653882*^9, 
   3.909555879499168*^9}, {3.909555948763439*^9, 3.909555948993187*^9}, {
   3.909556019679837*^9, 3.909556020039604*^9}, {3.909556064863696*^9, 
   3.909556098422133*^9}, {3.9095561486611776`*^9, 3.909556148900863*^9}, {
   3.909556371817337*^9, 3.909556375736775*^9}, {3.9095566585647793`*^9, 
   3.909556658675379*^9}, {3.909556821544057*^9, 3.909556824487949*^9}, {
   3.909556868175756*^9, 3.909556869543235*^9}, {3.909556905689513*^9, 
   3.90955690683827*^9}, {3.9095570081492434`*^9, 3.909557013316237*^9}, {
   3.909557074547624*^9, 3.909557075755292*^9}, {3.909557146282316*^9, 
   3.909557146777745*^9}, {3.909557178946028*^9, 3.909557180794894*^9}, {
   3.90955723137719*^9, 3.909557237208508*^9}, {3.9096185520022597`*^9, 
   3.909618552193584*^9}, {3.910049654725862*^9, 3.910049689308845*^9}, {
   3.927590670848628*^9, 3.927590710399373*^9}, {3.927591919330123*^9, 
   3.927591922184824*^9}, {3.927592025039203*^9, 3.927592028422969*^9}, {
   3.927592229284198*^9, 3.927592250723752*^9}, {3.927592586317094*^9, 
   3.927592604420136*^9}, {3.927592746001*^9, 3.927592754369512*^9}, {
   3.927592880446703*^9, 3.927592882558571*^9}, {3.92759310691317*^9, 
   3.927593112273161*^9}, {3.927593194265614*^9, 3.927593195865103*^9}, {
   3.927676021049372*^9, 3.927676048768753*^9}, {3.931841564322419*^9, 
   3.9318416829259443`*^9}, {3.93184171464529*^9, 3.931841726141107*^9}, {
   3.931842305729027*^9, 3.931842321376515*^9}, {3.93184235763234*^9, 
   3.931842363039794*^9}, {3.931842454037709*^9, 3.931842483389174*^9}, {
   3.931842544252232*^9, 3.931842545084244*^9}, {3.931844593207191*^9, 
   3.931844595302655*^9}, {3.931844678173288*^9, 3.931844678413064*^9}, {
   3.931844714685001*^9, 3.9318447163404913`*^9}, {3.9318447507242393`*^9, 
   3.931844802531241*^9}, {3.931844839986019*^9, 3.931844867929899*^9}, {
   3.931844941392971*^9, 3.931844976631922*^9}, {3.931845305090478*^9, 
   3.931845308746036*^9}, {3.93184536468119*^9, 3.931845379536525*^9}, {
   3.931845415560306*^9, 3.931845415999588*^9}, {3.931845447474188*^9, 
   3.931845468230789*^9}, {3.931846450983832*^9, 3.931846452399448*^9}, {
   3.931846611709145*^9, 3.931846612772694*^9}, {3.931846655188932*^9, 
   3.931846659524327*^9}, {3.931846886408743*^9, 3.9318469284556*^9}, {
   3.931847571374922*^9, 3.931847573804913*^9}, {3.931847706563249*^9, 
   3.931847728930748*^9}, {3.933913778083227*^9, 3.933913778232294*^9}, {
   3.933913820186062*^9, 3.933913825887947*^9}, {3.933913863097342*^9, 
   3.933913893118885*^9}, {3.93391408917644*^9, 3.9339141245072536`*^9}, {
   3.933914248977375*^9, 3.933914249448888*^9}, {3.93391435983158*^9, 
   3.933914371726583*^9}, {3.9339145515082808`*^9, 3.933914551681539*^9}, {
   3.933916069472368*^9, 3.933916077485342*^9}, {3.950076419298417*^9, 
   3.950076420634174*^9}, {3.95007763324118*^9, 3.950077633425228*^9}, {
   3.950077719624685*^9, 3.950077719912232*^9}, {3.950077834657084*^9, 
   3.950077855447936*^9}, {3.950077954576191*^9, 3.950077955599498*^9}, {
   3.950078121638562*^9, 3.950078122046585*^9}, {3.950078479639316*^9, 
   3.950078480613124*^9}, {3.950146351994965*^9, 3.950146353266458*^9}, {
   3.950255135497823*^9, 3.950255150981997*^9}, {3.95102867993883*^9, 
   3.951028683130299*^9}, {3.951028717865425*^9, 3.951028718452504*^9}, {
   3.951028770816467*^9, 3.951028804470745*^9}, {3.9511827899683228`*^9, 
   3.951182790839325*^9}, {3.9511828912360353`*^9, 3.951182893107565*^9}, {
   3.95118292805906*^9, 3.951182929498592*^9}, 3.951182968641434*^9, 
   3.95118300735994*^9, {3.951183062023226*^9, 3.951183094822544*^9}, {
   3.9511831560211153`*^9, 3.951183160292633*^9}, {3.9511832979780207`*^9, 
   3.951183298161976*^9}, {3.951183350153251*^9, 3.951183351552932*^9}, {
   3.951183841114215*^9, 3.951183842169937*^9}, {3.951184271653352*^9, 
   3.951184274557108*^9}, {3.951784418834997*^9, 3.9517844293222427`*^9}, {
   3.951784485121159*^9, 3.951784485648854*^9}, {3.951784531569015*^9, 
   3.951784535552806*^9}, {3.951784571096217*^9, 3.951784571583999*^9}, {
   3.95378418466431*^9, 3.9537841852562103`*^9}, {3.953784230535343*^9, 
   3.953784231327062*^9}, {3.9798604462803373`*^9, 3.979860502561636*^9}, {
   3.97986235494799*^9, 3.9798623565577183`*^9}, {3.979864553622526*^9, 
   3.979864554894889*^9}, {3.979873459199752*^9, 3.979873479376385*^9}, 
   3.979875558416341*^9, {3.979894367718668*^9, 3.97989436813631*^9}, {
   3.9805844294943523`*^9, 3.9805844331869698`*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"28b7ab8e-fdfd-4eca-a911-a0fa48a49567"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ntab", "=", 
   RowBox[{"{", 
    RowBox[{
    "2", ",", "4", ",", "8", ",", "16", ",", "24", ",", "32", ",", "64"}], 
    "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.9798755618083687`*^9, 3.979875562150744*^9}, {
  3.979894409933587*^9, 3.979894419303983*^9}, {3.979902906422369*^9, 
  3.97990290752225*^9}, {3.980584087793592*^9, 3.98058409907695*^9}, {
  3.980584810197699*^9, 3.9805848111036997`*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"cc0bb6c2-dc3f-4238-9bb6-a54bd0066bd1"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[CapitalTheta]", "=", 
   RowBox[{"N", "[", "0.0", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.931842565966619*^9, 3.931842577746924*^9}, {
   3.933912132620206*^9, 3.933912133514466*^9}, {3.933912218413987*^9, 
   3.933912220292248*^9}, {3.933912625780994*^9, 3.9339126499319057`*^9}, {
   3.933912682715613*^9, 3.93391268562755*^9}, {3.933914597568397*^9, 
   3.93391459949608*^9}, {3.933914734200596*^9, 3.933914734475689*^9}, {
   3.933916097572337*^9, 3.933916109724107*^9}, {3.933916511022908*^9, 
   3.933916516748347*^9}, {3.933916607159955*^9, 3.93391660742772*^9}, {
   3.949640640898411*^9, 3.949640650690319*^9}, {3.950077904527635*^9, 
   3.950077909143482*^9}, 3.950078552469404*^9, {3.950146102812729*^9, 
   3.950146105712146*^9}, {3.950146166422617*^9, 3.950146169670293*^9}, {
   3.950146260348577*^9, 3.950146260548291*^9}, {3.950146311603748*^9, 
   3.9501463133470707`*^9}, {3.9510286349315777`*^9, 3.951028635339366*^9}, {
   3.95102874383292*^9, 3.951028745112499*^9}, {3.95118282808549*^9, 
   3.951182829493501*^9}, {3.951183795020094*^9, 3.95118379600141*^9}, {
   3.951784410322576*^9, 3.951784412258546*^9}},
 CellLabel->"In[10]:=",ExpressionUUID->"66d3c89b-126f-40b4-a3ba-9af259b848ae"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"v1", " ", "=", " ", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "r", " ", 
        RowBox[{"Sin", "[", "\[CapitalTheta]", "]"}]}], "+", "a"}], ")"}], 
     "r", " ", 
     RowBox[{"Cos", "[", "\[CapitalTheta]", "]"}]}], 
    SqrtBox[
     RowBox[{
      SuperscriptBox["a", "2"], "+", " ", 
      RowBox[{"4", " ", 
       SuperscriptBox["r", "2"], " ", 
       SuperscriptBox[
        RowBox[{"Cos", "[", "\[CapitalTheta]", "]"}], "2"]}]}]]]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"v2", "=", "  ", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "r", " ", 
        RowBox[{"Sin", "[", "\[CapitalTheta]", "]"}]}], "-", "a"}], ")"}], 
     "r", " ", 
     RowBox[{"Cos", "[", "\[CapitalTheta]", "]"}]}], 
    SqrtBox[
     RowBox[{
      SuperscriptBox["a", "2"], "+", " ", 
      RowBox[{"4", " ", 
       SuperscriptBox["r", "2"], " ", 
       SuperscriptBox[
        RowBox[{"Cos", "[", "\[CapitalTheta]", "]"}], "2"]}]}]]]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.93184254814852*^9, 3.931842651937689*^9}, {
  3.956044486780415*^9, 3.956044495897498*^9}, {3.979871297348279*^9, 
  3.979871298186427*^9}},
 CellLabel->"In[11]:=",ExpressionUUID->"b9c3197e-e0f0-431d-80e9-f387df2ded21"],

Cell[CellGroupData[{

Cell[BoxData["v1"], "Input",
 CellChangeTimes->{{3.932010244175533*^9, 3.932010244526874*^9}, {
  3.979862368855507*^9, 3.9798623785193043`*^9}, {3.979873558047351*^9, 
  3.979873559056089*^9}},
 CellLabel->"In[13]:=",ExpressionUUID->"81198113-c1f0-441e-9244-2f324a574164"],

Cell[BoxData["0.48507125007266594`"], "Output",
 CellChangeTimes->{{3.9798623762445703`*^9, 3.9798623792770443`*^9}, 
   3.979863052347268*^9, 3.979863191665004*^9, 3.979863774822885*^9, 
   3.979863836965931*^9, 3.979863961305511*^9, 3.979864302278353*^9, 
   3.979864562413196*^9, 3.9798658928043118`*^9, 3.979865962170924*^9, 
   3.979866308096898*^9, 3.979866473756667*^9, 3.979866662416701*^9, 
   3.979867190084485*^9, 3.979867406012268*^9, 3.979867685296805*^9, 
   3.979867914738701*^9, 3.979868101895396*^9, 3.979868524263976*^9, 
   3.979868682044389*^9, 3.979869048769463*^9, 3.97987006508234*^9, 
   3.979870539312726*^9, 3.979871302794052*^9, 3.9798734949267793`*^9, 
   3.979873559854365*^9, 3.979873622732424*^9, 3.97987397487958*^9, 
   3.979874215288849*^9, 3.979874483389089*^9, 3.97987558366285*^9, 
   3.979876314829941*^9, 3.979877060016353*^9, 3.979877247200625*^9, 
   3.97987843093538*^9, 3.9798794187191963`*^9, 3.979886055843738*^9, 
   3.979887115786407*^9, 3.979889320760206*^9, 3.979889743184258*^9, 
   3.979890019516268*^9, 3.979890456135837*^9, 3.979890899701015*^9, 
   3.979891716275374*^9, 3.979892598326539*^9, 3.9798944327813797`*^9, 
   3.97990045440252*^9, 3.979902868926857*^9, 3.9799029160714803`*^9, 
   3.980584615066965*^9, 3.98058482094654*^9},
 CellLabel->"Out[13]=",ExpressionUUID->"9fc49309-98f3-448d-b5d5-74f1efc0440c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["v2"], "Input",
 CellChangeTimes->{{3.932010246199688*^9, 3.932010246455144*^9}, {
  3.979869050310713*^9, 3.97986905109306*^9}},
 CellLabel->"In[14]:=",ExpressionUUID->"62852c21-a1ff-4da9-9995-165ed9a34f13"],

Cell[BoxData[
 RowBox[{"-", "0.48507125007266594`"}]], "Output",
 CellChangeTimes->{
  3.932010246797163*^9, 3.933912143777296*^9, 3.933912229997974*^9, 
   3.9339125248390923`*^9, {3.933912637536775*^9, 3.933912658911095*^9}, 
   3.933912695192689*^9, 3.933913789999742*^9, {3.933913856852144*^9, 
   3.933913901080988*^9}, 3.933914102741106*^9, 3.933914135074398*^9, 
   3.933914257717779*^9, 3.933914385545182*^9, 3.933914561498124*^9, 
   3.93391461103782*^9, 3.933914743287671*^9, 3.933916085217108*^9, 
   3.933916118751116*^9, 3.933916527534978*^9, 3.933916618079723*^9, 
   3.949629906235147*^9, 3.9496398278205633`*^9, 3.949640669666696*^9, 
   3.950076294678251*^9, 3.950076453309349*^9, {3.950077434292522*^9, 
   3.950077463930998*^9}, 3.95007757753278*^9, 3.9500776705317917`*^9, 
   3.9500777303388977`*^9, 3.950077862907949*^9, 3.950077916404453*^9, 
   3.950077964721533*^9, 3.950078059592309*^9, 3.9500780973899918`*^9, 
   3.950078130304915*^9, 3.950078488754057*^9, 3.950078568233926*^9, 
   3.950146114714862*^9, 3.950146177448991*^9, 3.950146268266678*^9, 
   3.950146322248744*^9, 3.950146367923324*^9, 3.950147497275825*^9, 
   3.951028642519265*^9, 3.951028690928585*^9, {3.951028725631336*^9, 
   3.951028781815786*^9}, 3.951028816315218*^9, 3.951182800228914*^9, 
   3.951182840653591*^9, 3.951182906043208*^9, 3.951182941915019*^9, 
   3.9511830185524282`*^9, 3.9511830737001667`*^9, 3.951183104992459*^9, 
   3.951183172477466*^9, 3.95118330798848*^9, 3.951183358483718*^9, 
   3.951183456807084*^9, 3.9511838051270657`*^9, 3.951183850284616*^9, 
   3.951184282287855*^9, 3.9517844478217*^9, 3.951784500131185*^9, 
   3.951784545665267*^9, 3.951784579253133*^9, 3.953784100789168*^9, 
   3.953784203814389*^9, 3.9560445170668507`*^9, 3.979859520155767*^9, 
   3.9798599396135*^9, 3.979860692137268*^9, 3.979861784244418*^9, 
   3.979861864886033*^9, 3.9798619875963717`*^9, 3.979862054074431*^9, 
   3.979862152788448*^9, 3.979862208303307*^9, 3.979862383665237*^9, 
   3.979863053691269*^9, 3.979863193271874*^9, 3.979863776435595*^9, 
   3.9798638382293377`*^9, 3.979863962245191*^9, 3.979864303555616*^9, 
   3.979864563872549*^9, 3.9798658942437887`*^9, 3.979865963651022*^9, 
   3.97986630946047*^9, 3.9798664752046404`*^9, 3.97986666411769*^9, 
   3.979867191639328*^9, 3.979867407375758*^9, 3.9798676868691177`*^9, 
   3.979867916746086*^9, 3.979868103351762*^9, 3.979868525515423*^9, 
   3.979868683436424*^9, 3.979869051631282*^9, 3.979870066541705*^9, 
   3.979870540663284*^9, 3.979871304129679*^9, 3.979873497517606*^9, 
   3.979873560666103*^9, 3.979873624437982*^9, 3.979873976207532*^9, 
   3.97987421659783*^9, 3.979874484132442*^9, 3.979875584415678*^9, 
   3.979876316304163*^9, 3.979877061625854*^9, 3.979877248395015*^9, 
   3.979878432800441*^9, 3.979879420099107*^9, 3.979886057350831*^9, 
   3.979887986462911*^9, 3.9798893227952223`*^9, 3.979889744927473*^9, 
   3.9798900201327467`*^9, 3.979890460286283*^9, 3.979890900388069*^9, 
   3.979891718053338*^9, 3.979892598336754*^9, 3.979894432787763*^9, 
   3.979900454405013*^9, 3.979902868929437*^9, 3.979902916075545*^9, 
   3.980584615072029*^9, 3.980584820948536*^9},
 CellLabel->"Out[14]=",ExpressionUUID->"4d9ceb08-bea9-44ea-a61c-166f8eebf559"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"dtl1", "=", "0.025"}], ";", "\n", 
   RowBox[{"tl1tab", "=", 
    RowBox[{"Table", "[", 
     RowBox[{"i", ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "0.0101", ",", "0.1001", ",", "dtl1"}], "}"}]}], 
     "]"}]}], ";", "\n", 
   RowBox[{"dtl2", "=", "0.1"}], ";", "\n", 
   RowBox[{"tl2tab", "=", 
    RowBox[{"Table", "[", 
     RowBox[{"i", ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "0.1001", ",", "2.1001", ",", "dtl2"}], "}"}]}], 
     "]"}]}], ";", "\n", 
   RowBox[{"tltab", "=", 
    RowBox[{"Join", "[", 
     RowBox[{"tl1tab", ",", "tl2tab"}], "]"}]}], ";", "\n", 
   RowBox[{"dtr1", "=", "0.025"}], ";", "\n", 
   RowBox[{"tr1tab", "=", 
    RowBox[{"Table", "[", 
     RowBox[{"i", ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "0.01", ",", "0.10", ",", "dtr1"}], "}"}]}], "]"}]}],
    ";", "\n", 
   RowBox[{"dtr2", "=", "0.1"}], ";", "\n", 
   RowBox[{"tr2tab", "=", 
    RowBox[{"Table", "[", 
     RowBox[{"i", ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "0.10", ",", "2.10", ",", "dtr2"}], "}"}]}], "]"}]}],
    ";", "\n", 
   RowBox[{"trtab", "=", 
    RowBox[{"Join", "[", 
     RowBox[{"tr1tab", ",", "tr2tab"}], "]"}]}], ";", "\n", 
   RowBox[{"Ttab", "=", 
    FractionBox[
     RowBox[{"tltab", "+", "trtab"}], "2"]}], ";", "\n", 
   RowBox[{"tltab", "-", "trtab"}], ";"}], "*)"}]], "Input",
 CellChangeTimes->{{3.949639809402182*^9, 3.949639817856158*^9}, {
  3.950076152137186*^9, 3.95007615833678*^9}},
 CellLabel->"In[15]:=",ExpressionUUID->"8fe1c3fc-e834-4aa2-82b0-b24995173164"],

Cell[BoxData[
 RowBox[{"(*", "Ttab", "*)"}]], "Input",
 CellChangeTimes->{{3.949648633573525*^9, 3.949648634606041*^9}, {
  3.9500761969561977`*^9, 3.950076201060216*^9}},
 CellLabel->"In[16]:=",ExpressionUUID->"1a3eb9fb-a68c-4d47-95db-d2595a748424"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"dtl", "=", "0.1"}], ";", 
   RowBox[{"tltab", "=", 
    RowBox[{"Table", "[", 
     RowBox[{"i", ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "2.9", ",", "3.0", ",", "dtl"}], "}"}]}], "]"}]}], 
   ";", 
   RowBox[{"trtab", "=", 
    RowBox[{"Table", "[", 
     RowBox[{"i", ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1.9", ",", "2.0", ",", "dtl"}], "}"}]}], "]"}]}], 
   ";", "\[IndentingNewLine]", 
   RowBox[{"Ttab", "=", 
    FractionBox[
     RowBox[{"tltab", "+", "trtab"}], "2"]}], ";"}], "*)"}]], "Input",
 CellChangeTimes->{{3.8949460757633753`*^9, 3.894946096474883*^9}, 
   3.894946294207357*^9, 3.89494635595314*^9, 3.894946394410119*^9, {
   3.894946792428321*^9, 3.8949467968922043`*^9}, {3.895108537429946*^9, 
   3.895108543469845*^9}, {3.895108575111008*^9, 3.895108584359124*^9}, {
   3.895109509233223*^9, 3.895109510801064*^9}, {3.927172828770138*^9, 
   3.927172859824037*^9}, {3.927175391351359*^9, 3.927175393303876*^9}, {
   3.9271755108294697`*^9, 3.927175582804019*^9}, {3.94962988436237*^9, 
   3.949629888193962*^9}, {3.950076162633923*^9, 3.950076187867282*^9}, {
   3.950076232383464*^9, 3.9500762329749126`*^9}, {3.950147480210596*^9, 
   3.950147483106159*^9}, {3.951028616084304*^9, 3.951028619539738*^9}},
 CellLabel->"In[17]:=",ExpressionUUID->"e02cb2fe-72c4-469b-ac81-5dedb5bdd038"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"dtl", "=", "0.015"}], ";", 
  RowBox[{"tltab", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"i", ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "0.051", ",", "0.061", ",", "dtl"}], "}"}]}], "]"}]}],
   ";", 
  RowBox[{"trtab", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"i", ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "0.05", ",", "0.06", ",", "dtl"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Ttab", "=", 
   FractionBox[
    RowBox[{"tltab", "+", "trtab"}], "2"]}], ";"}]}], "Input",
 CellChangeTimes->{{3.8949460757633753`*^9, 3.894946096474883*^9}, 
   3.894946294207357*^9, 3.89494635595314*^9, 3.894946394410119*^9, {
   3.894946792428321*^9, 3.8949467968922043`*^9}, {3.895108537429946*^9, 
   3.895108543469845*^9}, {3.895108575111008*^9, 3.895108584359124*^9}, {
   3.895109509233223*^9, 3.895109510801064*^9}, {3.927172828770138*^9, 
   3.927172859824037*^9}, {3.927175391351359*^9, 3.927175393303876*^9}, {
   3.9271755108294697`*^9, 3.927175582804019*^9}, {3.94962988436237*^9, 
   3.949629888193962*^9}, {3.950076162633923*^9, 3.950076166729498*^9}, {
   3.9500762419032793`*^9, 3.950076280554164*^9}, {3.950077240121854*^9, 
   3.95007725153759*^9}, 3.950077299841888*^9, {3.9500774563791847`*^9, 
   3.950077458153356*^9}, {3.950077564025478*^9, 3.9500775691052637`*^9}, {
   3.950078032159532*^9, 3.950078048863018*^9}, {3.950078084502996*^9, 
   3.950078088013819*^9}, {3.950147462594774*^9, 3.950147475114496*^9}, {
   3.951028621828494*^9, 3.951028625779782*^9}, {3.979859929250973*^9, 
   3.979859929505186*^9}, {3.979860513831297*^9, 3.979860520266055*^9}, {
   3.979876293733424*^9, 3.979876295849115*^9}, {3.97987703864437*^9, 
   3.9798770441355143`*^9}, {3.97987708148514*^9, 3.979877123040496*^9}, {
   3.9798784082449203`*^9, 3.97987841277528*^9}, {3.979894378250385*^9, 
   3.979894396179147*^9}},
 CellLabel->"In[18]:=",ExpressionUUID->"980b5a55-6ae7-485e-8c9f-e2a46d1f34e9"],

Cell[BoxData[
 RowBox[{"\n", 
  RowBox[{
   RowBox[{"Ttab", "=", 
    FractionBox[
     RowBox[{"tltab", "+", "trtab"}], "2"]}], ";"}]}]], "Input",
 CellChangeTimes->{{3.979860537649436*^9, 3.979860592069398*^9}, 
   3.9798762980873427`*^9},
 CellLabel->"In[20]:=",ExpressionUUID->"d021c9bc-c576-4d4b-a8b9-ea1e6b65216c"],

Cell[CellGroupData[{

Cell[BoxData["Ttab"], "Input",
 CellChangeTimes->{{3.9798595248421283`*^9, 3.979859526051168*^9}, {
  3.979868530468608*^9, 3.9798685312814813`*^9}},
 CellLabel->"In[21]:=",ExpressionUUID->"4b6f84eb-47a2-4598-a898-9abf5721d94b"],

Cell[BoxData[
 RowBox[{"{", "0.0505`", "}"}]], "Output",
 CellChangeTimes->{
  3.97985952642935*^9, 3.9798599396292534`*^9, 3.979860697151883*^9, 
   3.9798617901871557`*^9, 3.979861871772786*^9, 3.979861991772022*^9, 
   3.97986205892766*^9, 3.9798621580260973`*^9, 3.979862212866743*^9, 
   3.979862389657488*^9, 3.9798630591314993`*^9, 3.979863199741975*^9, 
   3.979863781369771*^9, 3.979863843382402*^9, 3.9798639665881577`*^9, 
   3.979864308111414*^9, 3.979864567997814*^9, 3.979865899196073*^9, 
   3.979865968446679*^9, 3.979866313981471*^9, 3.979866479082655*^9, 
   3.979866668434485*^9, 3.97986719624561*^9, 3.979867412364196*^9, 
   3.979867691977805*^9, 3.9798679217225637`*^9, 3.979868109018024*^9, 
   3.9798685318887243`*^9, 3.979868687774923*^9, 3.979869056998784*^9, 
   3.979870072564239*^9, 3.979870545904484*^9, 3.979871309169047*^9, 
   3.979873503327526*^9, 3.9798735672777*^9, 3.979873628867187*^9, 
   3.979873980516943*^9, 3.979874221585895*^9, 3.979874488278202*^9, 
   3.979875588701935*^9, 3.9798763226419168`*^9, {3.979877089700675*^9, 
   3.979877127304872*^9}, 3.979877255258679*^9, 3.979878438391732*^9, 
   3.979879426404028*^9, 3.979886065983699*^9, 3.979887992665451*^9, 
   3.979889329717087*^9, 3.97988975200678*^9, 3.9798900281162443`*^9, 
   3.979890467035267*^9, 3.97989090486479*^9, 3.979891725571287*^9, 
   3.979892598356254*^9, 3.979894432802553*^9, 3.97990045442621*^9, 
   3.979902868945828*^9, 3.979902916099206*^9, 3.980584615085635*^9, 
   3.980584820967692*^9},
 CellLabel->"Out[21]=",ExpressionUUID->"f7d5999a-5ce0-47b1-ba8e-84fa32e3fac8"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"GListtab", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"transcofflisttab", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"currlisttab", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"currclasslisttab", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"currQlisttab", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"gmatslisttab", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"matstab", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{"0", ",", 
       RowBox[{"{", 
        RowBox[{"ntab", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"ntab", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "}"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "ntab", "]"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Ztab", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{"0", ",", 
       RowBox[{"{", 
        RowBox[{"ntab", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"ntab", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "}"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "ntab", "]"}]}], "}"}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.868239758807444*^9, 3.868239867477888*^9}, 
   3.868239986069236*^9, {3.868240055995058*^9, 3.868240071250601*^9}, {
   3.868240108906638*^9, 3.868240123330142*^9}, {3.868240194146141*^9, 
   3.868240231836074*^9}, {3.868240290059667*^9, 3.868240328907196*^9}, {
   3.868240364580038*^9, 3.868240371443502*^9}, {3.8682404599006367`*^9, 
   3.868240477107811*^9}, {3.8682405357192173`*^9, 3.868240592029715*^9}, {
   3.868240644086977*^9, 3.868240771424184*^9}, {3.8682408222901087`*^9, 
   3.868240869889131*^9}, {3.868240984516298*^9, 3.86824101363253*^9}, {
   3.8682410924950953`*^9, 3.86824109412467*^9}, {3.868241140901259*^9, 
   3.8682412991812353`*^9}, {3.868241335278407*^9, 3.868241335756639*^9}, {
   3.868241419076655*^9, 3.868241504392988*^9}, {3.868241547129361*^9, 
   3.868241584927587*^9}, {3.868241615313395*^9, 3.868241628062907*^9}, {
   3.868241735727869*^9, 3.86824175082208*^9}, {3.8682455695667343`*^9, 
   3.86824557347596*^9}, {3.868245632340785*^9, 3.86824571640849*^9}, {
   3.8682458159025097`*^9, 3.86824589734906*^9}, {3.8682488253466587`*^9, 
   3.868248864601956*^9}, {3.868248898772872*^9, 3.868248923187042*^9}, {
   3.868249094210797*^9, 3.868249133565991*^9}, {3.868249186158022*^9, 
   3.868249236018037*^9}, {3.868249295507097*^9, 3.868249334855221*^9}, {
   3.868249377609884*^9, 3.868249384742116*^9}, {3.868249422120757*^9, 
   3.868249467311349*^9}, {3.868249654639435*^9, 3.868249695007239*^9}, 
   3.868249737662425*^9, {3.8682498191500187`*^9, 3.868249842762375*^9}, {
   3.868321604820076*^9, 3.868321614412115*^9}, {3.868321742844755*^9, 
   3.868321786033757*^9}, {3.868403821036978*^9, 3.868403834140854*^9}, {
   3.868404281222009*^9, 3.868404421779862*^9}, {3.868404493858201*^9, 
   3.868404515673894*^9}, {3.868404567648616*^9, 3.86840456804852*^9}, {
   3.868404843602604*^9, 3.868404850002242*^9}, {3.868404907825197*^9, 
   3.868404922510221*^9}, {3.868405074604569*^9, 3.868405086084755*^9}, {
   3.868405178131298*^9, 3.868405228416995*^9}, {3.868405442000372*^9, 
   3.868405451044012*^9}, {3.868405751118957*^9, 3.868405754229269*^9}, 
   3.868405791676166*^9, {3.868406059004624*^9, 3.868406095500968*^9}, {
   3.868406347775814*^9, 3.868406352991544*^9}, {3.868406398366206*^9, 
   3.868406543570976*^9}, {3.868406598538824*^9, 3.868406603977841*^9}, {
   3.868406828144823*^9, 3.868406830485408*^9}, {3.868411547980481*^9, 
   3.868411561055891*^9}, {3.868411592768248*^9, 3.868411604377939*^9}, {
   3.86841175717209*^9, 3.868411777144916*^9}, {3.868412090604657*^9, 
   3.868412094674629*^9}, {3.868952287343454*^9, 3.8689522946231527`*^9}, {
   3.868952587578061*^9, 3.86895262533615*^9}, 3.868952864229818*^9, 
   3.868952896948552*^9, {3.874469843682806*^9, 3.874469846577838*^9}, 
   3.8762052997095194`*^9, {3.887327514476064*^9, 3.887327533466675*^9}, {
   3.8921956280114594`*^9, 3.892195629363922*^9}, {3.892195659772518*^9, 
   3.892195693901372*^9}, {3.892195742518705*^9, 3.892195759670965*^9}, {
   3.892195791071424*^9, 3.89219586109683*^9}, {3.892195902906152*^9, 
   3.892195950746016*^9}, {3.892196208217562*^9, 3.892196212505234*^9}, {
   3.892259861807678*^9, 3.892259864391444*^9}, {3.892261450626603*^9, 
   3.892261477067281*^9}, {3.892261507572434*^9, 3.892261540028993*^9}, {
   3.892261575781915*^9, 3.892261598133752*^9}, {3.8922616640564547`*^9, 
   3.892261679432684*^9}, 3.892261753206285*^9, {3.892265255497539*^9, 
   3.892265408514577*^9}, {3.8922654422444773`*^9, 3.89226563844037*^9}, {
   3.892266416784976*^9, 3.892266459839089*^9}, {3.89226683668649*^9, 
   3.892266852030231*^9}, {3.892266894075061*^9, 3.892266919915532*^9}, {
   3.892267020813009*^9, 3.89226702280445*^9}, {3.893465122080888*^9, 
   3.8934652255839167`*^9}, {3.893469408644718*^9, 3.893469409165545*^9}, {
   3.893469469422265*^9, 3.893469531559943*^9}, {3.895106845654242*^9, 
   3.895106846542061*^9}, {3.895107517684537*^9, 3.8951075248445787`*^9}, {
   3.8951081087760773`*^9, 3.895108109224338*^9}, {3.927172041108378*^9, 
   3.927172067484586*^9}, {3.927172148219726*^9, 3.927172209387004*^9}, {
   3.927172341514629*^9, 3.927172351416226*^9}, {3.927172882376528*^9, 
   3.927172890832237*^9}, {3.927174771197534*^9, 3.927174771637227*^9}, {
   3.927590851316572*^9, 3.927590889051449*^9}, {3.927590928426799*^9, 
   3.927590929075063*^9}, {3.927590996041872*^9, 3.927590996192959*^9}, {
   3.927591647901441*^9, 3.927591731780905*^9}, {3.927592455320681*^9, 
   3.927592457248389*^9}, {3.927592910078988*^9, 3.927592910750607*^9}, {
   3.931842502637334*^9, 3.931842521084917*^9}, {3.931842667266604*^9, 
   3.931842735456704*^9}, {3.931844483985033*^9, 3.931844515792603*^9}, {
   3.951183508679421*^9, 3.951183526382217*^9}, {3.979860632839575*^9, 
   3.979860674945341*^9}, {3.979860734922552*^9, 3.9798607641614437`*^9}, {
   3.979861058801032*^9, 3.979861084611031*^9}, {3.979861825193201*^9, 
   3.979861836719386*^9}, {3.979862105199749*^9, 3.979862110834569*^9}, {
   3.97986320175766*^9, 3.979863203066304*^9}, {3.979863935171197*^9, 
   3.97986394439387*^9}, {3.97987413684991*^9, 3.9798741590882883`*^9}, 
   3.9798744658765907`*^9},
 CellLabel->"In[22]:=",ExpressionUUID->"4d0e8da8-0692-4b0c-af83-3e8940adfb44"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"l", "=", "1"}], ",", 
    RowBox[{"l", "<=", 
     RowBox[{"Length", "[", "\[Omega]ntab", "]"}]}], ",", 
    RowBox[{"l", "++"}], ",", 
    RowBox[{
     RowBox[{"For", "[", 
      RowBox[{
       RowBox[{"j", "=", "1"}], ",", 
       RowBox[{"j", "<=", 
        RowBox[{"Length", "[", "ntab", "]"}]}], ",", 
       RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"For", "[", 
         RowBox[{
          RowBox[{"i", "=", "1"}], ",", 
          RowBox[{"i", "<=", 
           RowBox[{
            RowBox[{
            "ntab", "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}], 
            "-", "1"}]}], ",", 
          RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
             "matstab", "\[LeftDoubleBracket]", "j", 
              "\[RightDoubleBracket]"}], "\[LeftDoubleBracket]", 
             RowBox[{"i", ",", "i"}], "\[RightDoubleBracket]"}], "=", 
            RowBox[{"z", "[", 
             RowBox[{"m", ",", "r", ",", 
              RowBox[{
              "\[Omega]ntab", "\[LeftDoubleBracket]", "l", 
               "\[RightDoubleBracket]"}], ",", "k", ",", "v1", ",", "v2"}], 
             "]"}]}], ";", 
           RowBox[{
            RowBox[{
             RowBox[{
             "matstab", "\[LeftDoubleBracket]", "j", 
              "\[RightDoubleBracket]"}], "\[LeftDoubleBracket]", 
             RowBox[{"1", ",", "1"}], "\[RightDoubleBracket]"}], "=", 
            RowBox[{"zl", "[", 
             RowBox[{"m", ",", "r", ",", 
              RowBox[{
              "\[Omega]ntab", "\[LeftDoubleBracket]", "l", 
               "\[RightDoubleBracket]"}], ",", "k", ",", "v1", ",", 
              "\[Gamma]"}], "]"}]}], ";", 
           RowBox[{
            RowBox[{
             RowBox[{
             "matstab", "\[LeftDoubleBracket]", "j", 
              "\[RightDoubleBracket]"}], "\[LeftDoubleBracket]", 
             RowBox[{
              RowBox[{
              "ntab", "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}], 
              ",", 
              RowBox[{
              "ntab", "\[LeftDoubleBracket]", "j", 
               "\[RightDoubleBracket]"}]}], "\[RightDoubleBracket]"}], "=", 
            RowBox[{"zr", "[", 
             RowBox[{"m", ",", "r", ",", 
              RowBox[{
              "\[Omega]ntab", "\[LeftDoubleBracket]", "l", 
               "\[RightDoubleBracket]"}], ",", "k", ",", "v2", ",", 
              "\[Eta]"}], "]"}]}], ";", 
           RowBox[{
            RowBox[{
             RowBox[{
             "matstab", "\[LeftDoubleBracket]", "j", 
              "\[RightDoubleBracket]"}], "\[LeftDoubleBracket]", 
             RowBox[{"i", ",", 
              RowBox[{"i", "+", "1"}]}], "\[RightDoubleBracket]"}], "=", 
            RowBox[{
             RowBox[{"-", "k"}], " ", "*", " ", 
             RowBox[{"Abs", "[", 
              RowBox[{"v1", " ", "v2"}], "]"}]}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{
             "matstab", "\[LeftDoubleBracket]", "j", 
              "\[RightDoubleBracket]"}], "\[LeftDoubleBracket]", 
             RowBox[{
              RowBox[{"i", "+", "1"}], ",", "i"}], "\[RightDoubleBracket]"}], 
            "=", 
            RowBox[{
             RowBox[{"-", "k"}], " ", "*", " ", 
             RowBox[{"Abs", "[", 
              RowBox[{"v1", " ", "v2"}], "]"}]}]}]}]}], "]"}], ";", 
        RowBox[{"Ztab", "=", 
         RowBox[{"Join", "[", 
          RowBox[{"Ztab", ",", " ", 
           RowBox[{"{", 
            RowBox[{"matstab", "[", 
             RowBox[{"[", "j", "]"}], "]"}], "}"}]}], "]"}]}], ";"}]}], "]"}],
      ";"}]}], "]"}], "*)"}]], "Input",
 CellChangeTimes->{{3.979862248184002*^9, 3.979862277942987*^9}, 
   3.9798623177981577`*^9, {3.979862466123407*^9, 3.979862501139545*^9}, {
   3.979863019305498*^9, 3.979863024008557*^9}, {3.979863074795347*^9, 
   3.979863076219614*^9}, {3.979863160636505*^9, 3.979863171576453*^9}, {
   3.979863233253504*^9, 3.97986327593108*^9}, {3.979863638018965*^9, 
   3.979863675377619*^9}, 3.979863728828162*^9, 3.979863813044874*^9, 
   3.979863903347226*^9, {3.979864003472188*^9, 3.979864029688507*^9}, {
   3.979864089668542*^9, 3.979864101369625*^9}, {3.979864135304866*^9, 
   3.979864138006854*^9}, {3.979864271621134*^9, 3.979864282480855*^9}, {
   3.979864319714714*^9, 3.979864358816051*^9}, {3.979864517331155*^9, 
   3.979864541162685*^9}, {3.979865045679133*^9, 3.979865046072547*^9}, 
   3.979865867153439*^9, 3.9798659387475977`*^9, {3.97986623655526*^9, 
   3.979866240381628*^9}, {3.979866285935829*^9, 3.979866289313463*^9}, {
   3.97986641095849*^9, 3.979866415008183*^9}, {3.9798665221726413`*^9, 
   3.979866524680924*^9}, 3.979866640725924*^9, {3.979867169814328*^9, 
   3.9798671724840317`*^9}},
 CellLabel->"In[30]:=",ExpressionUUID->"468564ce-05e7-4a43-aaac-b9475d6cf27f"],

Cell[BoxData[
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"l", "=", "1"}], ",", 
   RowBox[{"l", "<=", 
    RowBox[{"Length", "[", "\[Omega]ntab", "]"}]}], ",", 
   RowBox[{"l", "++"}], ",", 
   RowBox[{
    RowBox[{"For", "[", 
     RowBox[{
      RowBox[{"j", "=", "1"}], ",", 
      RowBox[{"j", "<=", 
       RowBox[{"Length", "[", "ntab", "]"}]}], ",", 
      RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"For", "[", 
        RowBox[{
         RowBox[{"i", "=", "1"}], ",", 
         RowBox[{"i", "<=", 
          RowBox[{
           RowBox[{
           "ntab", "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}], 
           "-", "1"}]}], ",", 
         RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
            "matstab", "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}],
             "\[LeftDoubleBracket]", 
            RowBox[{"i", ",", "i"}], "\[RightDoubleBracket]"}], "=", 
           RowBox[{"z", "[", 
            RowBox[{"m", ",", "r", ",", 
             RowBox[{
             "\[Omega]ntab", "\[LeftDoubleBracket]", "l", 
              "\[RightDoubleBracket]"}], ",", "k", ",", "v1", ",", "v2"}], 
            "]"}]}], ";", 
          RowBox[{
           RowBox[{
            RowBox[{
            "matstab", "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}],
             "\[LeftDoubleBracket]", 
            RowBox[{"1", ",", "1"}], "\[RightDoubleBracket]"}], "=", 
           RowBox[{"zl", "[", 
            RowBox[{"m", ",", "r", ",", 
             RowBox[{
             "\[Omega]ntab", "\[LeftDoubleBracket]", "l", 
              "\[RightDoubleBracket]"}], ",", "k", ",", "v1", ",", 
             "\[Gamma]L"}], "]"}]}], ";", 
          RowBox[{
           RowBox[{
            RowBox[{
            "matstab", "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}],
             "\[LeftDoubleBracket]", 
            RowBox[{
             RowBox[{
             "ntab", "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}], 
             ",", 
             RowBox[{
             "ntab", "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}]}],
             "\[RightDoubleBracket]"}], "=", 
           RowBox[{"zr", "[", 
            RowBox[{"m", ",", "r", ",", 
             RowBox[{
             "\[Omega]ntab", "\[LeftDoubleBracket]", "l", 
              "\[RightDoubleBracket]"}], ",", "k", ",", "v2", ",", 
             "\[Gamma]R"}], "]"}]}], ";", 
          RowBox[{
           RowBox[{
            RowBox[{
            "matstab", "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}],
             "\[LeftDoubleBracket]", 
            RowBox[{"i", ",", 
             RowBox[{"i", "+", "1"}]}], "\[RightDoubleBracket]"}], "=", 
           RowBox[{
            RowBox[{"-", "k"}], " ", "*", " ", 
            RowBox[{"Abs", "[", 
             RowBox[{"v1", " ", "v2"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
            RowBox[{
            "matstab", "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}],
             "\[LeftDoubleBracket]", 
            RowBox[{
             RowBox[{"i", "+", "1"}], ",", "i"}], "\[RightDoubleBracket]"}], 
           "=", 
           RowBox[{
            RowBox[{"-", "k"}], " ", "*", " ", 
            RowBox[{"Abs", "[", 
             RowBox[{"v1", " ", "v2"}], "]"}]}]}]}]}], "]"}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
        "Ztab", "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}], "=", 
        RowBox[{"matstab", "[", 
         RowBox[{"[", "j", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"GListtab", "=", 
        RowBox[{"Join", "[", 
         RowBox[{"GListtab", ",", 
          RowBox[{"{", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
             "\[Omega]ntab", "\[LeftDoubleBracket]", "l", 
              "\[RightDoubleBracket]"}], ",", 
             RowBox[{"Inverse", "[", 
              RowBox[{
              "Ztab", "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}], 
              "]"}]}], "}"}], "}"}]}], "]"}]}], ";"}]}], "]"}], ";"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.979874076804785*^9, 3.979874101877697*^9}, {
   3.97987419420952*^9, 3.979874198716907*^9}, 3.979874515877429*^9, 
   3.979886073148051*^9, {3.980584443408402*^9, 3.980584447160202*^9}},
 CellLabel->"In[31]:=",ExpressionUUID->"36baadc1-e581-4588-92d0-da89a5fda2ea"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"combineByLabel", "[", "list_", "]"}], ":=", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"#", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
       RowBox[{"#", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "}"}], "&"}], "/@", 
    RowBox[{"GatherBy", "[", 
     RowBox[{"list", ",", "First"}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.979875978186735*^9, 3.979875978189229*^9}},
 CellLabel->"In[32]:=",ExpressionUUID->"06db0a65-3e45-46aa-a340-335d8874f0ae"],

Cell[BoxData[
 RowBox[{
  RowBox[{"GListtabnew", "=", 
   RowBox[{"combineByLabel", "[", "GListtab", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.979875101494331*^9, 3.9798751047120442`*^9}, 
   3.979875250383389*^9, {3.979875304069723*^9, 3.9798753054132633`*^9}, {
   3.979875349988331*^9, 3.979875353438611*^9}, {3.979875383443207*^9, 
   3.979875397816738*^9}, {3.979875526054466*^9, 3.979875530240959*^9}, 
   3.979875661800756*^9, {3.979875994988924*^9, 3.979876006628846*^9}},
 CellLabel->"In[33]:=",ExpressionUUID->"7a281ee9-fbf2-4c8c-9e8a-47c317ba78af"],

Cell[BoxData[
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"p", "=", "1"}], ",", 
   RowBox[{"p", "<=", 
    RowBox[{"Length", "[", "Ttab", "]"}]}], ",", 
   RowBox[{"p", "++"}], ",", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"j", "=", "1"}], ",", 
     RowBox[{"j", "<=", 
      RowBox[{"Length", "[", "ntab", "]"}]}], ",", 
     RowBox[{"j", "++"}], ",", 
     RowBox[{"For", "[", 
      RowBox[{
       RowBox[{"l", "=", "1"}], ",", 
       RowBox[{"l", "<=", 
        RowBox[{"Length", "[", "\[Omega]ntab", "]"}]}], ",", 
       RowBox[{"l", "++"}], ",", 
       RowBox[{
        RowBox[{"currQlisttab", "=", 
         RowBox[{"Join", "[", 
          RowBox[{"currQlisttab", ",", 
           RowBox[{"{", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"ntab", "[", 
               RowBox[{"[", "j", "]"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{
                "Ttab", "\[LeftDoubleBracket]", "p", 
                 "\[RightDoubleBracket]"}], ",", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"Abs", "[", 
                   RowBox[{"GListtabnew", "\[LeftDoubleBracket]", 
                    RowBox[{"l", ",", "2", ",", "j", ",", "1", ",", 
                    RowBox[{"ntab", "[", 
                    RowBox[{"[", "j", "]"}], "]"}]}], 
                    "\[RightDoubleBracket]"}], "]"}], "2"], "*", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[HBar]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{
                    "\[Omega]ntab", "\[LeftDoubleBracket]", "l", 
                    "\[RightDoubleBracket]"}], "4"]}], 
                  RowBox[{
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"2", "*", "kb", "*", 
                    RowBox[{
                    "Ttab", "\[LeftDoubleBracket]", "p", 
                    "\[RightDoubleBracket]"}]}], ")"}], "2"], "*", "\[Pi]"}]],
                  "*", "\[Gamma]L", "*", "\[Gamma]R", "*", "kb", "*", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                   "tltab", "\[LeftDoubleBracket]", "p", 
                    "\[RightDoubleBracket]"}], "-", 
                   RowBox[{
                   "trtab", "\[LeftDoubleBracket]", "p", 
                    "\[RightDoubleBracket]"}]}], ")"}], "*", 
                 RowBox[{"(", 
                  RowBox[{"Csch", "[", 
                   FractionBox[
                    RowBox[{"\[HBar]", " ", 
                    RowBox[{
                    "\[Omega]ntab", "\[LeftDoubleBracket]", "l", 
                    "\[RightDoubleBracket]"}]}], 
                    RowBox[{"2", "kb", "*", 
                    RowBox[{
                    "Ttab", "\[LeftDoubleBracket]", "p", 
                    "\[RightDoubleBracket]"}]}]], "]"}], ")"}], "*", 
                 RowBox[{"(", 
                  RowBox[{"Csch", "[", 
                   FractionBox[
                    RowBox[{"\[HBar]", " ", 
                    RowBox[{
                    "\[Omega]ntab", "\[LeftDoubleBracket]", "l", 
                    "\[RightDoubleBracket]"}]}], 
                    RowBox[{"2", "kb", "*", 
                    RowBox[{
                    "Ttab", "\[LeftDoubleBracket]", "p", 
                    "\[RightDoubleBracket]"}]}]], "]"}], ")"}]}]}], "}"}]}], 
             "}"}], "}"}]}], "]"}]}], ";", 
        RowBox[{"currclasslisttab", "=", 
         RowBox[{"Join", "[", 
          RowBox[{"currclasslisttab", ",", 
           RowBox[{"{", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"ntab", "[", 
               RowBox[{"[", "j", "]"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{
                "Ttab", "\[LeftDoubleBracket]", "p", 
                 "\[RightDoubleBracket]"}], ",", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"Abs", "[", 
                   RowBox[{"GListtabnew", "\[LeftDoubleBracket]", 
                    RowBox[{"l", ",", "2", ",", "j", ",", "1", ",", 
                    RowBox[{"ntab", "[", 
                    RowBox[{"[", "j", "]"}], "]"}]}], 
                    "\[RightDoubleBracket]"}], "]"}], "2"], "*", 
                 FractionBox[
                  SuperscriptBox[
                   RowBox[{
                   "\[Omega]ntab", "\[LeftDoubleBracket]", "l", 
                    "\[RightDoubleBracket]"}], "2"], "\[Pi]"], "*", 
                 "\[Gamma]L", "*", "\[Gamma]R", "*", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                   "tltab", "\[LeftDoubleBracket]", "p", 
                    "\[RightDoubleBracket]"}], "-", 
                   RowBox[{
                   "trtab", "\[LeftDoubleBracket]", "p", 
                    "\[RightDoubleBracket]"}]}], ")"}]}]}], "}"}]}], "}"}], 
            "}"}]}], "]"}]}], ";"}]}], "]"}]}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.979874641768072*^9, 3.979874708995175*^9}, {
   3.979874755914062*^9, 3.9798747748934803`*^9}, 3.979875707910718*^9, {
   3.979876055163454*^9, 3.979876078410568*^9}, {3.97987612379511*^9, 
   3.979876125013883*^9}, {3.979876178170138*^9, 3.9798761787300777`*^9}, {
   3.979877166364677*^9, 3.979877171523076*^9}, {3.979887045267146*^9, 
   3.9798870766649*^9}, {3.9805841228613987`*^9, 3.980584166101244*^9}, {
   3.980584210121377*^9, 3.980584219328534*^9}, {3.980584454672008*^9, 
   3.980584465789464*^9}},
 CellLabel->"In[34]:=",ExpressionUUID->"362fc76b-8857-49c7-bdce-9791ae8e4223"],

Cell[BoxData[
 RowBox[{
  RowBox[{"currQlisttabnew", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"#", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
       RowBox[{"#", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "}"}], "&"}], "/@", 
    RowBox[{"GatherBy", "[", 
     RowBox[{"currQlisttab", ",", "First"}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.97988838148614*^9, 3.979888402853153*^9}},
 CellLabel->"In[35]:=",ExpressionUUID->"36a18ee4-9414-4b89-a0fa-a0b1b5996e8e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"currclasslisttabnew", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"#", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
       RowBox[{"#", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "}"}], "&"}], "/@", 
    RowBox[{"GatherBy", "[", 
     RowBox[{"currclasslisttab", ",", "First"}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.980584230651601*^9, 3.9805842487112923`*^9}},
 CellLabel->"In[36]:=",ExpressionUUID->"0051647c-6ee3-4b5b-8862-247b79722d8b"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"Definition", " ", "of", " ", "quantum", " ", "current"}], 
  "*)"}]], "Input",
 CellChangeTimes->{{3.980584776282271*^9, 3.9805847780681963`*^9}},
 CellLabel->"In[37]:=",ExpressionUUID->"a75f4031-2450-4a3c-b14a-db3b1fd513ef"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"tauForSize", "[", "sizeIndex_", "]"}], ":=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Ttab", "[", 
        RowBox[{"[", "j", "]"}], "]"}], ",", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"currQlisttabnew", "[", 
           RowBox[{"[", 
            RowBox[{"sizeIndex", ",", "2", ",", "i", ",", "2"}], "]"}], "]"}],
           "*", "d\[Omega]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"j", "-", "1"}], ")"}], "*", 
             RowBox[{"Length", "[", "\[Omega]ntab", "]"}]}], "+", "1"}], ",", 
           
           RowBox[{"j", "*", 
            RowBox[{"Length", "[", "\[Omega]ntab", "]"}]}]}], "}"}]}], 
        "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", 
       RowBox[{"Length", "[", "Ttab", "]"}]}], "}"}]}], "]"}]}], 
  "\n"}]], "Input",
 CellChangeTimes->{{3.979891628218811*^9, 3.979891628220882*^9}},
 CellLabel->"In[38]:=",ExpressionUUID->"cbcab202-037d-44f6-8764-363db84ec877"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"tauAll", "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"currQlisttabnew", "[", 
         RowBox[{"[", 
          RowBox[{"s", ",", "1"}], "]"}], "]"}], ",", 
        RowBox[{"(*", 
         RowBox[{"system", " ", "size", " ", "n"}], "*)"}], 
        RowBox[{"tauForSize", "[", "s", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"s", ",", 
        RowBox[{"Length", "[", "currQlisttabnew", "]"}]}], "}"}]}], "]"}]}], 
   ";"}], "\n"}]], "Input",
 CellChangeTimes->{{3.979891645694014*^9, 3.979891645696112*^9}},
 CellLabel->"In[39]:=",ExpressionUUID->"7c3f8394-6958-4e5a-b748-afc165eaf945"],

Cell[CellGroupData[{

Cell[BoxData["tauAll"], "Input",
 CellChangeTimes->{{3.979891762258563*^9, 3.979891764033618*^9}},
 CellLabel->"In[40]:=",ExpressionUUID->"6030d4aa-fd57-4015-b022-6d5f99f9e840"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"2", ",", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0.0505`", ",", "0.000010906388851829029`"}], "}"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0.0505`", ",", "9.958341489552044`*^-6"}], "}"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0.0505`", ",", "9.94084231296262`*^-6"}], "}"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"16", ",", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0.0505`", ",", "9.940912855976363`*^-6"}], "}"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"24", ",", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0.0505`", ",", "9.940821117026455`*^-6"}], "}"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"32", ",", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0.0505`", ",", "9.941000738774098`*^-6"}], "}"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"64", ",", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0.0505`", ",", "9.941215266344772`*^-6"}], "}"}], "}"}]}], 
    "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.979891764424486*^9, 3.979892598407156*^9, 
  3.979894449038745*^9, 3.9799004705876904`*^9, 3.979902885206356*^9, 
  3.979902940549513*^9, 3.980584654051511*^9, 3.980584883273052*^9},
 CellLabel->"Out[40]=",ExpressionUUID->"e884d56a-1c24-4fb1-8ae8-7608283e31c8"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"Definition", " ", "of", " ", "classical", " ", "current"}], 
  "*)"}]], "Input",
 CellChangeTimes->{{3.980584751674073*^9, 3.9805847628812313`*^9}},
 CellLabel->"In[41]:=",ExpressionUUID->"5f1719d5-2fce-432e-8e89-df75aa0b3b40"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"etaForSize", "[", "sizeIndex_", "]"}], ":=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Ttab", "[", 
        RowBox[{"[", "j", "]"}], "]"}], ",", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"currclasslisttabnew", "[", 
           RowBox[{"[", 
            RowBox[{"sizeIndex", ",", "2", ",", "i", ",", "2"}], "]"}], "]"}],
           "*", "d\[Omega]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"j", "-", "1"}], ")"}], "*", 
             RowBox[{"Length", "[", "\[Omega]ntab", "]"}]}], "+", "1"}], ",", 
           
           RowBox[{"j", "*", 
            RowBox[{"Length", "[", "\[Omega]ntab", "]"}]}]}], "}"}]}], 
        "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", 
       RowBox[{"Length", "[", "Ttab", "]"}]}], "}"}]}], "]"}]}], 
  "\n"}]], "Input",
 CellChangeTimes->{{3.979891628218811*^9, 3.979891628220882*^9}, {
  3.980584494332222*^9, 3.980584520643209*^9}},
 CellLabel->"In[42]:=",ExpressionUUID->"8ba8af05-7f16-4c6c-8d6c-ffc27e9a89c7"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"etaAll", "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"currclasslisttabnew", "[", 
         RowBox[{"[", 
          RowBox[{"s", ",", "1"}], "]"}], "]"}], ",", 
        RowBox[{"(*", 
         RowBox[{"system", " ", "size", " ", "n"}], "*)"}], 
        RowBox[{"etaForSize", "[", "s", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"s", ",", 
        RowBox[{"Length", "[", "currclasslisttabnew", "]"}]}], "}"}]}], 
     "]"}]}], ";"}], "\n"}]], "Input",
 CellChangeTimes->{{3.979891645694014*^9, 3.979891645696112*^9}, {
  3.980584530761326*^9, 3.980584558403351*^9}},
 CellLabel->"In[43]:=",ExpressionUUID->"56abc857-8eb9-4fe2-909e-61e756512d76"],

Cell[CellGroupData[{

Cell[BoxData["etaAll"], "Input",
 CellChangeTimes->{{3.979891762258563*^9, 3.979891764033618*^9}, {
  3.980584562370706*^9, 3.980584564208787*^9}},
 CellLabel->"In[44]:=",ExpressionUUID->"f9624ddb-5605-4ffd-99b8-830e9ffaa3f6"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"2", ",", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0.0505`", ",", "0.000023960859625180084`"}], "}"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0.0505`", ",", "0.000023960920979832336`"}], "}"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0.0505`", ",", "0.00002396091940833083`"}], "}"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"16", ",", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0.0505`", ",", "0.000023972159214133936`"}], "}"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"24", ",", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0.0505`", ",", "0.000023957902280625914`"}], "}"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"32", ",", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0.0505`", ",", "0.000023985060449807078`"}], "}"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"64", ",", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0.0505`", ",", "0.000024014142920227408`"}], "}"}], "}"}]}], 
    "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.979891764424486*^9, 3.979892598407156*^9, 
  3.979894449038745*^9, 3.9799004705876904`*^9, 3.979902885206356*^9, 
  3.979902940549513*^9, 3.980584654222324*^9, 3.980584883494025*^9},
 CellLabel->"Out[44]=",ExpressionUUID->"9e6634c2-313c-4017-9092-27e3eed2d9f7"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "This", " ", "plot", " ", "shows", " ", "the", " ", "ballistic", " ", 
   "nature", " ", "of", " ", "the", " ", "quantum", " ", "current", " ", "in",
    " ", "the", " ", "gapless", " ", "regime"}], "*)"}]], "Input",
 CellChangeTimes->{{3.9798948068164477`*^9, 3.979894812261078*^9}},
 CellLabel->"In[45]:=",ExpressionUUID->"8c9642f8-f63a-4623-9147-9a1e57f0dc2b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
        "tauAll", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], 
        "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", 
       RowBox[{"tauAll", "\[LeftDoubleBracket]", 
        RowBox[{"i", ",", "2", ",", "1", ",", "2"}], 
        "\[RightDoubleBracket]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "ntab", "]"}]}], "}"}]}], "]"}], ",", 
   RowBox[{"PlotRange", "->", 
    RowBox[{"{", 
     RowBox[{"0", ",", "All"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.979892630952886*^9, 3.979892689804234*^9}, 
   3.979894113922936*^9, {3.979894251532318*^9, 3.979894273456459*^9}, {
   3.9798943049220347`*^9, 3.9798943432960653`*^9}, {3.979894464417425*^9, 
   3.9798944702200727`*^9}, {3.979902708737844*^9, 3.979902710087157*^9}},
 CellLabel->"In[46]:=",ExpressionUUID->"2e9ee694-0e7e-428a-a22e-3417071682d3"],

Cell[BoxData[
 GraphicsBox[{{}, 
   InterpretationBox[{
     TagBox[
      TagBox[
       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
        0.012833333333333334`], AbsoluteThickness[2], 
        PointBox[{{2., 0.000010906388851829029`}, {4., 
         9.958341489552044*^-6}, {8., 9.94084231296262*^-6}, {16., 
         9.940912855976363*^-6}, {24., 9.940821117026455*^-6}, {32., 
         9.941000738774098*^-6}, {64., 9.941215266344772*^-6}}]},
       Annotation[#, "Charting`Private`Tag#1"]& ],
      {"WolframDynamicHighlight", <|
       "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], 
     StyleBox[
      DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, 
        Slot["HighlightElements"], 
        Slot["LayoutOptions"], 
        Slot["Meta"], 
        Charting`HighlightActionFunction["DynamicHighlight", {{
           Annotation[{
             Directive[
              PointSize[0.012833333333333334`], 
              RGBColor[0.368417, 0.506779, 0.709798], 
              AbsoluteThickness[2]], 
             
             Point[{{2., 0.000010906388851829029`}, {4., 
              9.958341489552044*^-6}, {8., 9.94084231296262*^-6}, {16., 
              9.940912855976363*^-6}, {24., 9.940821117026455*^-6}, {32., 
              9.941000738774098*^-6}, {64., 9.941215266344772*^-6}}]}, 
            "Charting`Private`Tag#1"]}}, <|
         "HighlightElements" -> <|
           "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
          "LayoutOptions" -> <|
           "PanelPlotLayout" -> <||>, 
            "PlotRange" -> {{0, 64.}, {0., 0.000010906388851829029`}}, 
            "Frame" -> {{False, False}, {False, False}}, 
            "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, 
            "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> 
            GoldenRatio^(-1), "DefaultStyle" -> {
              Directive[
               PointSize[0.012833333333333334`], 
               RGBColor[0.368417, 0.506779, 0.709798], 
               AbsoluteThickness[2]]}, 
            "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
                Identity[
                 Part[#, 1]], 
                Identity[
                 Part[#, 2]]}& ), 
              "ScalingFunctions" -> {{Identity, Identity}, {
                Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
            False|>, 
          "Meta" -> <|
           "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
            ListPlot, "GroupHighlight" -> False|>|>]]& )[<|
        "HighlightElements" -> <|
          "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
         "LayoutOptions" -> <|
          "PanelPlotLayout" -> <||>, 
           "PlotRange" -> {{0, 64.}, {0., 0.000010906388851829029`}}, 
           "Frame" -> {{False, False}, {False, False}}, 
           "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, 
           "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> 
           GoldenRatio^(-1), "DefaultStyle" -> {
             Directive[
              PointSize[0.012833333333333334`], 
              RGBColor[0.368417, 0.506779, 0.709798], 
              AbsoluteThickness[2]]}, 
           "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
               Identity[
                Part[#, 1]], 
               Identity[
                Part[#, 2]]}& ), 
             "ScalingFunctions" -> {{Identity, Identity}, {
               Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
           False|>, 
         "Meta" -> <|
          "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
           ListPlot, "GroupHighlight" -> False|>|>],
       ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, {
        4.503599627370496*^15, -4.503599627370496*^15}}],
      Selectable->False]},
    Annotation[{{
       Annotation[{
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[2]], 
         Point[{{2., 0.000010906388851829029`}, {4., 9.958341489552044*^-6}, {
          8., 9.94084231296262*^-6}, {16., 9.940912855976363*^-6}, {24., 
          9.940821117026455*^-6}, {32., 9.941000738774098*^-6}, {64., 
          9.941215266344772*^-6}}]}, "Charting`Private`Tag#1"]}}, <|
     "HighlightElements" -> <|
       "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
      "LayoutOptions" -> <|
       "PanelPlotLayout" -> <||>, 
        "PlotRange" -> {{0, 64.}, {0., 0.000010906388851829029`}}, 
        "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, 
        "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
        "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
          Directive[
           PointSize[0.012833333333333334`], 
           RGBColor[0.368417, 0.506779, 0.709798], 
           AbsoluteThickness[2]]}, 
        "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
            Identity[
             Part[#, 1]], 
            Identity[
             Part[#, 2]]}& ), 
          "ScalingFunctions" -> {{Identity, Identity}, {
            Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, 
      "Meta" -> <|
       "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
        ListPlot, "GroupHighlight" -> False|>|>, 
     "DynamicHighlight"]], {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "DefaultPlotStyle" -> {
      Directive[
       RGBColor[0.368417, 0.506779, 0.709798], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.880722, 0.611041, 0.142051], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.560181, 0.691569, 0.194885], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.922526, 0.385626, 0.209179], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.528488, 0.470624, 0.701351], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.772079, 0.431554, 0.102387], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.363898, 0.618501, 0.782349], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[1, 0.75, 0], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.647624, 0.37816, 0.614037], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.571589, 0.586483, 0.], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.915, 0.3325, 0.2125], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
       AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], 
    "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], 
    "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint", 
    "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 64.}, {0., 0.000010906388851829029`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {0, 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.979894314731707*^9, 3.979894343796678*^9}, {
   3.979894449272065*^9, 3.979894470492511*^9}, 3.979900470816896*^9, 
   3.979902885386813*^9, 3.979902940781767*^9, 3.980584654408922*^9, 
   3.980584883745387*^9},
 CellLabel->"Out[46]=",ExpressionUUID->"25e531f6-1299-480f-9842-8086f95f8eaf"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "This", " ", "plot", " ", "shows", " ", "the", " ", "ballistic", " ", 
   "nature", " ", "of", " ", "the", " ", "classical", " ", "current", " ", 
   "in", " ", "the", " ", "gapless", " ", "regime"}], "*)"}]], "Input",
 CellChangeTimes->{{3.980584731651412*^9, 3.980584733815941*^9}},
 CellLabel->"In[47]:=",ExpressionUUID->"8174f91c-58d7-418e-95de-4011f64689d0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
        "etaAll", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], 
        "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", 
       RowBox[{"etaAll", "\[LeftDoubleBracket]", 
        RowBox[{"i", ",", "2", ",", "1", ",", "2"}], 
        "\[RightDoubleBracket]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "ntab", "]"}]}], "}"}]}], "]"}], ",", 
   RowBox[{"PlotRange", "->", 
    RowBox[{"{", 
     RowBox[{"0", ",", "All"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.979892630952886*^9, 3.979892689804234*^9}, 
   3.979894113922936*^9, {3.979894251532318*^9, 3.979894273456459*^9}, {
   3.9798943049220347`*^9, 3.9798943432960653`*^9}, {3.979894464417425*^9, 
   3.9798944702200727`*^9}, {3.979902708737844*^9, 3.979902710087157*^9}, {
   3.980584600147983*^9, 3.980584604577598*^9}},
 CellLabel->"In[48]:=",ExpressionUUID->"be0bf5a7-7c1d-449e-8e4d-6492d4149460"],

Cell[BoxData[
 GraphicsBox[{{}, 
   InterpretationBox[{
     TagBox[
      TagBox[
       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
        0.012833333333333334`], AbsoluteThickness[2], 
        PointBox[{{2., 0.000023960859625180084`}, {4., 
         0.000023960920979832336`}, {8., 0.00002396091940833083}, {16., 
         0.000023972159214133936`}, {24., 0.000023957902280625914`}, {32., 
         0.000023985060449807078`}, {64., 0.000024014142920227408`}}]},
       Annotation[#, "Charting`Private`Tag#1"]& ],
      {"WolframDynamicHighlight", <|
       "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], 
     StyleBox[
      DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, 
        Slot["HighlightElements"], 
        Slot["LayoutOptions"], 
        Slot["Meta"], 
        Charting`HighlightActionFunction["DynamicHighlight", {{
           Annotation[{
             Directive[
              PointSize[0.012833333333333334`], 
              RGBColor[0.368417, 0.506779, 0.709798], 
              AbsoluteThickness[2]], 
             
             Point[{{2., 0.000023960859625180084`}, {4., 
              0.000023960920979832336`}, {8., 0.00002396091940833083}, {16., 
              0.000023972159214133936`}, {24., 0.000023957902280625914`}, {
              32., 0.000023985060449807078`}, {64., 
              0.000024014142920227408`}}]}, "Charting`Private`Tag#1"]}}, <|
         "HighlightElements" -> <|
           "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
          "LayoutOptions" -> <|
           "PanelPlotLayout" -> <||>, 
            "PlotRange" -> {{0, 64.}, {0., 0.000024014142920227408`}}, 
            "Frame" -> {{False, False}, {False, False}}, 
            "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, 
            "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> 
            GoldenRatio^(-1), "DefaultStyle" -> {
              Directive[
               PointSize[0.012833333333333334`], 
               RGBColor[0.368417, 0.506779, 0.709798], 
               AbsoluteThickness[2]]}, 
            "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
                Identity[
                 Part[#, 1]], 
                Identity[
                 Part[#, 2]]}& ), 
              "ScalingFunctions" -> {{Identity, Identity}, {
                Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
            False|>, 
          "Meta" -> <|
           "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
            ListPlot, "GroupHighlight" -> False|>|>]]& )[<|
        "HighlightElements" -> <|
          "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
         "LayoutOptions" -> <|
          "PanelPlotLayout" -> <||>, 
           "PlotRange" -> {{0, 64.}, {0., 0.000024014142920227408`}}, 
           "Frame" -> {{False, False}, {False, False}}, 
           "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, 
           "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> 
           GoldenRatio^(-1), "DefaultStyle" -> {
             Directive[
              PointSize[0.012833333333333334`], 
              RGBColor[0.368417, 0.506779, 0.709798], 
              AbsoluteThickness[2]]}, 
           "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
               Identity[
                Part[#, 1]], 
               Identity[
                Part[#, 2]]}& ), 
             "ScalingFunctions" -> {{Identity, Identity}, {
               Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
           False|>, 
         "Meta" -> <|
          "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
           ListPlot, "GroupHighlight" -> False|>|>],
       ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, {
        4.503599627370496*^15, -4.503599627370496*^15}}],
      Selectable->False]},
    Annotation[{{
       Annotation[{
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[2]], 
         Point[{{2., 0.000023960859625180084`}, {4., 
          0.000023960920979832336`}, {8., 0.00002396091940833083}, {16., 
          0.000023972159214133936`}, {24., 0.000023957902280625914`}, {32., 
          0.000023985060449807078`}, {64., 0.000024014142920227408`}}]}, 
        "Charting`Private`Tag#1"]}}, <|
     "HighlightElements" -> <|
       "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
      "LayoutOptions" -> <|
       "PanelPlotLayout" -> <||>, 
        "PlotRange" -> {{0, 64.}, {0., 0.000024014142920227408`}}, 
        "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, 
        "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
        "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
          Directive[
           PointSize[0.012833333333333334`], 
           RGBColor[0.368417, 0.506779, 0.709798], 
           AbsoluteThickness[2]]}, 
        "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
            Identity[
             Part[#, 1]], 
            Identity[
             Part[#, 2]]}& ), 
          "ScalingFunctions" -> {{Identity, Identity}, {
            Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, 
      "Meta" -> <|
       "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
        ListPlot, "GroupHighlight" -> False|>|>, 
     "DynamicHighlight"]], {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "DefaultPlotStyle" -> {
      Directive[
       RGBColor[0.368417, 0.506779, 0.709798], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.880722, 0.611041, 0.142051], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.560181, 0.691569, 0.194885], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.922526, 0.385626, 0.209179], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.528488, 0.470624, 0.701351], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.772079, 0.431554, 0.102387], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.363898, 0.618501, 0.782349], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[1, 0.75, 0], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.647624, 0.37816, 0.614037], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.571589, 0.586483, 0.], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.915, 0.3325, 0.2125], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
       AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], 
    "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], 
    "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint", 
    "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 64.}, {0., 0.000024014142920227408`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {0, 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.9805846544271917`*^9, 3.980584883761209*^9},
 CellLabel->"Out[48]=",ExpressionUUID->"2698834c-d255-4fc4-9492-e24769e25de4"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Numerical analysis - KL model - Heat current - Gapped- for fixed n different \
temperature \
\>", "Subsubsection",
 CellChangeTimes->{{3.8921949000502033`*^9, 3.892194909539785*^9}, {
   3.892195421277308*^9, 3.892195423733597*^9}, {3.892261325852085*^9, 
   3.8922613307160387`*^9}, {3.893745168228965*^9, 3.893745176677358*^9}, 
   3.89441741112214*^9, {3.89562174467109*^9, 3.895621750351262*^9}, {
   3.9018635419122*^9, 3.901863543400784*^9}, {3.908951512751371*^9, 
   3.908951523623046*^9}, {3.927591050638835*^9, 3.927591053886813*^9}, {
   3.931844641265348*^9, 3.931844658325081*^9}, {3.9798600420473003`*^9, 
   3.979860042970072*^9}, {3.979860183857518*^9, 3.979860199239171*^9}, 
   3.979860267761077*^9, {3.979894585282918*^9, 3.979894587477467*^9}, {
   3.979900491714964*^9, 
   3.979900500918846*^9}},ExpressionUUID->"99b27c94-1ac1-4472-9996-\
215447be9b01"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "In", " ", "this", " ", "section", " ", "we", " ", "analysed", " ", "the", 
   " ", "linear", " ", "temperature", " ", "dependence", " ", "of", " ", 
   "quantum", " ", "current", " ", "in", " ", "the", " ", "gapped", " ", 
   "regime"}], "*)"}]], "Input",
 CellChangeTimes->{{3.979860272672861*^9, 3.979860297116089*^9}, {
  3.9798603711508923`*^9, 3.979860375914154*^9}, {3.979900604089822*^9, 
  3.979900606064679*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"efc0b7ed-2f07-4f4f-8473-bb6e57f84deb"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"d\[Omega]", "=", "0.00025"}], ";", 
  RowBox[{"\[Omega]tab", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"i", ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"-", 
        RowBox[{"N", "[", "1.8", "]"}]}], ",", 
       RowBox[{"N", "[", "1.8", "]"}], ",", "d\[Omega]"}], "}"}]}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"\[Omega]ntab", "=", 
   RowBox[{"Drop", "[", 
    RowBox[{"\[Omega]tab", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Position", "[", 
        RowBox[{"\[Omega]tab", ",", "0."}], "]"}], "\[LeftDoubleBracket]", 
       RowBox[{"1", ",", "1"}], "\[RightDoubleBracket]"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"zl", "[", 
    RowBox[{
    "m_", ",", " ", "r_", ",", "\[Omega]_", ",", "k_", ",", "v1_", ",", 
     "\[Gamma]_"}], "]"}], ":=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "m"}], " ", 
     SuperscriptBox["r", "2"], " ", 
     SuperscriptBox["\[Omega]", "2"]}], "+", 
    RowBox[{"k", " ", 
     SuperscriptBox["v1", "2"]}], "-", " ", 
    RowBox[{"I", " ", "*", 
     RowBox[{"(", 
      RowBox[{"\[Gamma]", " ", "*", "\[Omega]"}], ")"}]}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"zr", "[", 
    RowBox[{
    "m_", ",", " ", "r_", ",", "\[Omega]_", ",", "k_", ",", "v2_", ",", 
     "\[Gamma]_"}], "]"}], ":=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "m"}], " ", 
     SuperscriptBox["r", "2"], " ", 
     SuperscriptBox["\[Omega]", "2"]}], "+", 
    RowBox[{"k", " ", 
     SuperscriptBox["v2", "2"]}], "-", " ", 
    RowBox[{"I", " ", "*", 
     RowBox[{"(", 
      RowBox[{"\[Gamma]", " ", "*", "\[Omega]"}], ")"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"z", "[", 
    RowBox[{
    "m_", ",", "r_", ",", "\[Omega]_", ",", "k_", ",", "v1_", ",", "v2_"}], 
    "]"}], ":=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "m"}], " ", 
     SuperscriptBox["r", "2"], " ", 
     SuperscriptBox["\[Omega]", "2"]}], "+", 
    RowBox[{"k", " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["v1", "2"], " ", "+", " ", 
       SuperscriptBox["v2", "2"]}], ")"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"m", "=", "1.0"}], ";", 
  RowBox[{"r", "=", "2.0"}], ";", 
  RowBox[{"a", "=", "1.0"}], ";", " ", 
  RowBox[{"k", "=", "1.0"}], ";", 
  RowBox[{"\[Gamma]L", "=", "0.2"}], ";", 
  RowBox[{"\[Gamma]R", "=", "0.2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"\[Omega]_", ",", "T_"}], "]"}], ":=", " ", 
   FractionBox["1", 
    RowBox[{
     RowBox[{"Exp", "[", 
      FractionBox[
       RowBox[{"\[HBar]", " ", "\[Omega]"}], 
       RowBox[{"kb", " ", "T"}]], "]"}], "-", "1"}]]}], ";", 
  RowBox[{"kb", "=", "1.0"}], ";", 
  RowBox[{"\[HBar]", "=", "1.0"}], ";", " ", 
  RowBox[{"n", "=", "16"}], ";"}]}], "Input",
 CellChangeTimes->{{3.86840385771015*^9, 3.868403865082279*^9}, {
   3.868404213565318*^9, 3.868404229533517*^9}, {3.868404262893664*^9, 
   3.8684042634362087`*^9}, {3.868405051091968*^9, 3.868405051995028*^9}, {
   3.868405126354449*^9, 3.868405127537305*^9}, {3.8684065561216803`*^9, 
   3.868406556648838*^9}, {3.868407071065693*^9, 3.86840707196108*^9}, {
   3.868407127383185*^9, 3.8684071346465807`*^9}, 3.868407175808673*^9, {
   3.868407307080939*^9, 3.868407376100984*^9}, {3.868409764193202*^9, 
   3.8684098385813293`*^9}, {3.868409876621852*^9, 3.868409880300149*^9}, {
   3.868410129949355*^9, 3.868410175748075*^9}, {3.868411516031082*^9, 
   3.868411524246174*^9}, {3.868411667231938*^9, 3.8684116752482224`*^9}, 
   3.868411715451689*^9, {3.868412078707752*^9, 3.868412079928488*^9}, {
   3.868412399239757*^9, 3.868412399711008*^9}, {3.868412459249563*^9, 
   3.868412460238564*^9}, {3.868418574401619*^9, 3.868418575945039*^9}, {
   3.868418636520402*^9, 3.868418636983653*^9}, {3.868418667968072*^9, 
   3.8684187901577263`*^9}, {3.868418825485381*^9, 3.868418826045614*^9}, {
   3.868418866428574*^9, 3.868418866940524*^9}, {3.868418914579878*^9, 
   3.868418917251444*^9}, {3.86841912608714*^9, 3.8684191264143467`*^9}, {
   3.868419156814341*^9, 3.86841917957308*^9}, {3.868511204427794*^9, 
   3.868511205001893*^9}, {3.868511290314198*^9, 3.868511290616612*^9}, {
   3.868511354993012*^9, 3.868511355463366*^9}, {3.868602625620034*^9, 
   3.86860266920962*^9}, {3.8686027151611423`*^9, 3.868602715712357*^9}, {
   3.868602747344434*^9, 3.868602769631366*^9}, {3.868603260144537*^9, 
   3.868603285799528*^9}, {3.868603413390068*^9, 3.868603413557343*^9}, {
   3.868603824077499*^9, 3.868603848604155*^9}, {3.868603880907151*^9, 
   3.868603882539111*^9}, {3.868603925121768*^9, 3.868603925545188*^9}, {
   3.868603956096533*^9, 3.868603956335929*^9}, {3.868604380164731*^9, 
   3.868604380548272*^9}, {3.868605632947117*^9, 3.868605634513568*^9}, {
   3.8686056777691708`*^9, 3.8686056782724447`*^9}, {3.868605723383866*^9, 
   3.8686057530067577`*^9}, {3.868605794038369*^9, 3.868605842558017*^9}, {
   3.8686066000249147`*^9, 3.86860662210394*^9}, {3.868606655399979*^9, 
   3.868606713711356*^9}, {3.868606934555969*^9, 3.868606935388111*^9}, {
   3.868606994578874*^9, 3.868606996690547*^9}, {3.868607845149045*^9, 
   3.868607920482331*^9}, {3.868607967617207*^9, 3.868607977224205*^9}, {
   3.86860813051565*^9, 3.868608135649007*^9}, {3.868608179194238*^9, 
   3.868608179889978*^9}, {3.868608942491249*^9, 3.86860894968719*^9}, {
   3.868609271417534*^9, 3.868609277833392*^9}, {3.868609351279739*^9, 
   3.86860935195992*^9}, {3.868665669302395*^9, 3.868665708940984*^9}, {
   3.868665746596598*^9, 3.868665748756846*^9}, {3.86866624725371*^9, 
   3.868666273125188*^9}, {3.868666555210957*^9, 3.868666555938257*^9}, {
   3.868666588290728*^9, 3.868666589778351*^9}, {3.868667513180248*^9, 
   3.8686675136436787`*^9}, {3.868667578563308*^9, 3.868667604354793*^9}, {
   3.868667729464364*^9, 3.868667756776352*^9}, {3.868671876905162*^9, 
   3.868671896239921*^9}, {3.868671942503599*^9, 3.868671943935336*^9}, {
   3.8686720129422083`*^9, 3.868672013605905*^9}, {3.868952398284077*^9, 
   3.868952403323431*^9}, {3.868953002017135*^9, 3.868953004888228*^9}, {
   3.869204267149353*^9, 3.869204270628992*^9}, {3.869204398362966*^9, 
   3.869204413274459*^9}, {3.870394755959407*^9, 3.870394775757773*^9}, {
   3.874469292133422*^9, 3.8744692955075*^9}, {3.874469784769734*^9, 
   3.874469809609144*^9}, {3.874469880024169*^9, 3.874469931581843*^9}, {
   3.874469962053199*^9, 3.874469965085628*^9}, {3.874470285638688*^9, 
   3.874470293502266*^9}, {3.876204122378257*^9, 3.876204151287579*^9}, {
   3.876803319891176*^9, 3.876803327201121*^9}, {3.876803365537792*^9, 
   3.876803366002085*^9}, {3.876803404475884*^9, 3.87680340605978*^9}, 
   3.8787803862556677`*^9, {3.878780417895706*^9, 3.878780423263797*^9}, {
   3.8787804731209993`*^9, 3.87878051499361*^9}, {3.878780557451213*^9, 
   3.878780686821651*^9}, {3.878780739863353*^9, 3.878780766472425*^9}, {
   3.878780818633658*^9, 3.87878082108982*^9}, {3.878780927981073*^9, 
   3.878780928645149*^9}, {3.878781141427789*^9, 3.878781204197002*^9}, {
   3.878788433036141*^9, 3.878788450530957*^9}, {3.878788506516498*^9, 
   3.878788508851853*^9}, {3.878788769578144*^9, 3.878788770225845*^9}, {
   3.878792461953405*^9, 3.878792516152624*^9}, {3.878792654845168*^9, 
   3.8787926706511507`*^9}, {3.880587319670717*^9, 3.880587321276775*^9}, {
   3.880587351941907*^9, 3.880587366669932*^9}, {3.88732769465307*^9, 
   3.8873276951725616`*^9}, {3.887328590194618*^9, 3.8873285905847483`*^9}, {
   3.887328622688421*^9, 3.887328650087474*^9}, {3.887413981862784*^9, 
   3.887413982694622*^9}, {3.88742754456899*^9, 3.887427545792269*^9}, {
   3.8880304022348013`*^9, 3.888030411804422*^9}, {3.888030835003417*^9, 
   3.888030835347118*^9}, {3.88803086873506*^9, 3.8880308728842897`*^9}, {
   3.888030973239741*^9, 3.8880309842467318`*^9}, {3.888031082203557*^9, 
   3.888031083744651*^9}, {3.8889959115520782`*^9, 3.8889959207844*^9}, {
   3.888995982001768*^9, 3.888995983873726*^9}, {3.888996085388401*^9, 
   3.88899608567633*^9}, {3.8889968210685053`*^9, 3.888996821668586*^9}, {
   3.8889969366717043`*^9, 3.888996950743225*^9}, {3.888997124459343*^9, 
   3.888997130907942*^9}, {3.888997180884336*^9, 3.888997181204391*^9}, {
   3.888997272911078*^9, 3.888997273871207*^9}, {3.888997353802054*^9, 
   3.888997367489154*^9}, {3.888997602630905*^9, 3.888997603054173*^9}, {
   3.8921949442387877`*^9, 3.892194948339978*^9}, {3.892195014629484*^9, 
   3.8921950379895487`*^9}, {3.8921952506842003`*^9, 
   3.8921952571146603`*^9}, {3.8921954562071867`*^9, 3.892195457207259*^9}, {
   3.892195504743905*^9, 3.892195520176637*^9}, 3.892195595858009*^9, {
   3.892261368249839*^9, 3.892261392119915*^9}, {3.89226142555191*^9, 
   3.892261425935705*^9}, {3.892266790669443*^9, 3.892266791125068*^9}, 
   3.8922671879413033`*^9, {3.892267530003735*^9, 3.89226753066784*^9}, {
   3.893465104490781*^9, 3.893465113195031*^9}, {3.893466956299871*^9, 
   3.893466957451434*^9}, {3.893469317938162*^9, 3.893469355394409*^9}, 
   3.893469386011278*^9, {3.8943290752580023`*^9, 3.894329075720854*^9}, 
   3.8943291060018787`*^9, {3.894329141650915*^9, 3.894329144026731*^9}, 
   3.894329503551583*^9, {3.8943295791847887`*^9, 3.894329658322259*^9}, {
   3.894329826582612*^9, 3.894329826797347*^9}, {3.894329863254418*^9, 
   3.894329864341895*^9}, {3.894329901839355*^9, 3.894329933175375*^9}, {
   3.894329969520199*^9, 3.894329980064024*^9}, {3.894330014105261*^9, 
   3.894330019081537*^9}, {3.894330065586312*^9, 3.8943300674019*^9}, {
   3.894330104107654*^9, 3.894330104971154*^9}, {3.894331004192333*^9, 
   3.89433100440018*^9}, {3.894331034745393*^9, 3.894331064297709*^9}, {
   3.89433111915508*^9, 3.894331120514441*^9}, {3.894331161763747*^9, 
   3.894331162603915*^9}, {3.894331205349009*^9, 3.894331205884858*^9}, {
   3.894331249974222*^9, 3.894331250502007*^9}, {3.894331290439274*^9, 
   3.894331291007515*^9}, {3.894331326664509*^9, 3.894331326952735*^9}, {
   3.894331367034045*^9, 3.894331368738026*^9}, {3.894331404083208*^9, 
   3.894331404490985*^9}, {3.894331447476458*^9, 3.894331448284525*^9}, {
   3.894331483989017*^9, 3.894331484772949*^9}, {3.8943315284949527`*^9, 
   3.894331572944125*^9}, {3.894331604793625*^9, 3.894331605833008*^9}, {
   3.894331887778177*^9, 3.894331888408771*^9}, {3.894343387866048*^9, 
   3.894343414282322*^9}, {3.894864278159524*^9, 3.894864291749405*^9}, {
   3.894864353943188*^9, 3.894864356446884*^9}, {3.894864443641974*^9, 
   3.894864447601928*^9}, {3.894864829419112*^9, 3.894864834907456*^9}, {
   3.8948653589200983`*^9, 3.894865387328062*^9}, {3.894865421152905*^9, 
   3.894865454857673*^9}, {3.894865498634774*^9, 3.894865500330443*^9}, {
   3.894946108891407*^9, 3.894946127011511*^9}, {3.89494625582275*^9, 
   3.894946257783217*^9}, 3.894946389290127*^9, {3.895108479643525*^9, 
   3.895108485275545*^9}, 3.895108549422448*^9, {3.89556172935443*^9, 
   3.8955617295995007`*^9}, {3.8955617947603693`*^9, 3.895561795321059*^9}, {
   3.895561894827398*^9, 3.895561894979487*^9}, 3.895620748307724*^9, {
   3.895620801317152*^9, 3.895620812109129*^9}, {3.895620963169644*^9, 
   3.895620965908121*^9}, {3.895620996626018*^9, 3.895621086612134*^9}, {
   3.895621133245095*^9, 3.895621173429083*^9}, {3.8956213145393267`*^9, 
   3.8956213156803703`*^9}, {3.8956213485531607`*^9, 3.895621351809031*^9}, {
   3.895621402722004*^9, 3.895621403617743*^9}, {3.895621440739107*^9, 
   3.895621441330864*^9}, {3.895621649816761*^9, 3.8956216501337433`*^9}, {
   3.8957089076165524`*^9, 3.895708907950719*^9}, {3.895709348081283*^9, 
   3.895709380217978*^9}, {3.895709421218331*^9, 3.895709422226064*^9}, {
   3.89570947260378*^9, 3.895709494067134*^9}, {3.901859359330638*^9, 
   3.901859384921168*^9}, 3.901860193922276*^9, {3.901860227969263*^9, 
   3.901860439756713*^9}, {3.901860484548567*^9, 3.901860485316663*^9}, {
   3.901862550381569*^9, 3.9018625615815077`*^9}, {3.901862593225676*^9, 
   3.901862616370899*^9}, {3.901863257705104*^9, 3.901863257919154*^9}, {
   3.9018633570378103`*^9, 3.901863371564993*^9}, {3.901864380802061*^9, 
   3.901864386529272*^9}, {3.901864487087375*^9, 3.901864489950995*^9}, {
   3.901936921422677*^9, 3.901936921966583*^9}, {3.9019369672940893`*^9, 
   3.901936967621874*^9}, {3.901937010309692*^9, 3.901937086762596*^9}, {
   3.901937173482359*^9, 3.901937173994228*^9}, {3.901937255744856*^9, 
   3.901937257072501*^9}, {3.90193729251267*^9, 3.901937301144257*^9}, {
   3.901937394182691*^9, 3.901937401830097*^9}, {3.901960017001911*^9, 
   3.901960021512333*^9}, {3.908927581023949*^9, 3.908927582063386*^9}, {
   3.908927724797622*^9, 3.908927729602792*^9}, 3.908929533019766*^9, {
   3.908929600462516*^9, 3.908929644482918*^9}, {3.908929731495384*^9, 
   3.908929733446294*^9}, {3.908930697229319*^9, 3.908930697859748*^9}, 
   3.908948061250345*^9, {3.908951423321053*^9, 3.908951423705051*^9}, {
   3.90901435764253*^9, 3.909014375373171*^9}, {3.909555069484689*^9, 
   3.909555105059954*^9}, {3.909555397463691*^9, 3.909555401494233*^9}, {
   3.9095555439871407`*^9, 3.9095555522585297`*^9}, {3.909555723078628*^9, 
   3.909555724358447*^9}, {3.909555765821327*^9, 3.90955576883724*^9}, {
   3.909555803916922*^9, 3.909555819228349*^9}, {3.909555868653882*^9, 
   3.909555879499168*^9}, {3.909555948763439*^9, 3.909555948993187*^9}, {
   3.909556019679837*^9, 3.909556020039604*^9}, {3.909556064863696*^9, 
   3.909556098422133*^9}, {3.9095561486611776`*^9, 3.909556148900863*^9}, {
   3.909556371817337*^9, 3.909556375736775*^9}, {3.9095566585647793`*^9, 
   3.909556658675379*^9}, {3.909556821544057*^9, 3.909556824487949*^9}, {
   3.909556868175756*^9, 3.909556869543235*^9}, {3.909556905689513*^9, 
   3.90955690683827*^9}, {3.9095570081492434`*^9, 3.909557013316237*^9}, {
   3.909557074547624*^9, 3.909557075755292*^9}, {3.909557146282316*^9, 
   3.909557146777745*^9}, {3.909557178946028*^9, 3.909557180794894*^9}, {
   3.90955723137719*^9, 3.909557237208508*^9}, {3.9096185520022597`*^9, 
   3.909618552193584*^9}, {3.910049654725862*^9, 3.910049689308845*^9}, {
   3.927590670848628*^9, 3.927590710399373*^9}, {3.927591919330123*^9, 
   3.927591922184824*^9}, {3.927592025039203*^9, 3.927592028422969*^9}, {
   3.927592229284198*^9, 3.927592250723752*^9}, {3.927592586317094*^9, 
   3.927592604420136*^9}, {3.927592746001*^9, 3.927592754369512*^9}, {
   3.927592880446703*^9, 3.927592882558571*^9}, {3.92759310691317*^9, 
   3.927593112273161*^9}, {3.927593194265614*^9, 3.927593195865103*^9}, {
   3.927676021049372*^9, 3.927676048768753*^9}, {3.931841564322419*^9, 
   3.9318416829259443`*^9}, {3.93184171464529*^9, 3.931841726141107*^9}, {
   3.931842305729027*^9, 3.931842321376515*^9}, {3.93184235763234*^9, 
   3.931842363039794*^9}, {3.931842454037709*^9, 3.931842483389174*^9}, {
   3.931842544252232*^9, 3.931842545084244*^9}, {3.931844593207191*^9, 
   3.931844595302655*^9}, {3.931844678173288*^9, 3.931844678413064*^9}, {
   3.931844714685001*^9, 3.9318447163404913`*^9}, {3.9318447507242393`*^9, 
   3.931844802531241*^9}, {3.931844839986019*^9, 3.931844867929899*^9}, {
   3.931844941392971*^9, 3.931844976631922*^9}, {3.931845305090478*^9, 
   3.931845308746036*^9}, {3.93184536468119*^9, 3.931845379536525*^9}, {
   3.931845415560306*^9, 3.931845415999588*^9}, {3.931845447474188*^9, 
   3.931845468230789*^9}, {3.931846450983832*^9, 3.931846452399448*^9}, {
   3.931846611709145*^9, 3.931846612772694*^9}, {3.931846655188932*^9, 
   3.931846659524327*^9}, {3.931846886408743*^9, 3.9318469284556*^9}, {
   3.931847571374922*^9, 3.931847573804913*^9}, {3.931847706563249*^9, 
   3.931847728930748*^9}, {3.933913778083227*^9, 3.933913778232294*^9}, {
   3.933913820186062*^9, 3.933913825887947*^9}, {3.933913863097342*^9, 
   3.933913893118885*^9}, {3.93391408917644*^9, 3.9339141245072536`*^9}, {
   3.933914248977375*^9, 3.933914249448888*^9}, {3.93391435983158*^9, 
   3.933914371726583*^9}, {3.9339145515082808`*^9, 3.933914551681539*^9}, {
   3.933916069472368*^9, 3.933916077485342*^9}, {3.950076419298417*^9, 
   3.950076420634174*^9}, {3.95007763324118*^9, 3.950077633425228*^9}, {
   3.950077719624685*^9, 3.950077719912232*^9}, {3.950077834657084*^9, 
   3.950077855447936*^9}, {3.950077954576191*^9, 3.950077955599498*^9}, {
   3.950078121638562*^9, 3.950078122046585*^9}, {3.950078479639316*^9, 
   3.950078480613124*^9}, {3.950146351994965*^9, 3.950146353266458*^9}, {
   3.950255135497823*^9, 3.950255150981997*^9}, {3.95102867993883*^9, 
   3.951028683130299*^9}, {3.951028717865425*^9, 3.951028718452504*^9}, {
   3.951028770816467*^9, 3.951028804470745*^9}, {3.9511827899683228`*^9, 
   3.951182790839325*^9}, {3.9511828912360353`*^9, 3.951182893107565*^9}, {
   3.95118292805906*^9, 3.951182929498592*^9}, 3.951182968641434*^9, 
   3.95118300735994*^9, {3.951183062023226*^9, 3.951183094822544*^9}, {
   3.9511831560211153`*^9, 3.951183160292633*^9}, {3.9511832979780207`*^9, 
   3.951183298161976*^9}, {3.951183350153251*^9, 3.951183351552932*^9}, {
   3.951183841114215*^9, 3.951183842169937*^9}, {3.951184271653352*^9, 
   3.951184274557108*^9}, {3.951784418834997*^9, 3.9517844293222427`*^9}, {
   3.951784485121159*^9, 3.951784485648854*^9}, {3.951784531569015*^9, 
   3.951784535552806*^9}, {3.951784571096217*^9, 3.951784571583999*^9}, {
   3.95378418466431*^9, 3.9537841852562103`*^9}, {3.953784230535343*^9, 
   3.953784231327062*^9}, {3.979894598667671*^9, 3.979894599755568*^9}, {
   3.9805849524445*^9, 3.980585014530114*^9}, {3.980587050903569*^9, 
   3.980587055863928*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"873a65f3-a553-4aaa-b836-0cd26d2dd659"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[CapitalTheta]", "=", 
   RowBox[{"N", "[", 
    FractionBox["\[Pi]", "3"], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.931842565966619*^9, 3.931842577746924*^9}, {
   3.933912132620206*^9, 3.933912133514466*^9}, {3.933912218413987*^9, 
   3.933912220292248*^9}, {3.933912625780994*^9, 3.9339126499319057`*^9}, {
   3.933912682715613*^9, 3.93391268562755*^9}, {3.933914597568397*^9, 
   3.93391459949608*^9}, {3.933914734200596*^9, 3.933914734475689*^9}, {
   3.933916097572337*^9, 3.933916109724107*^9}, {3.933916511022908*^9, 
   3.933916516748347*^9}, {3.933916607159955*^9, 3.93391660742772*^9}, {
   3.949640640898411*^9, 3.949640650690319*^9}, {3.950077904527635*^9, 
   3.950077909143482*^9}, 3.950078552469404*^9, {3.950146102812729*^9, 
   3.950146105712146*^9}, {3.950146166422617*^9, 3.950146169670293*^9}, {
   3.950146260348577*^9, 3.950146260548291*^9}, {3.950146311603748*^9, 
   3.9501463133470707`*^9}, {3.9510286349315777`*^9, 3.951028635339366*^9}, {
   3.95102874383292*^9, 3.951028745112499*^9}, {3.95118282808549*^9, 
   3.951182829493501*^9}, {3.951183795020094*^9, 3.95118379600141*^9}, {
   3.951784410322576*^9, 3.951784412258546*^9}, {3.979900504712122*^9, 
   3.979900511546241*^9}, {3.980584972094564*^9, 3.9805849738992987`*^9}},
 CellLabel->"In[8]:=",ExpressionUUID->"3515d927-ca07-4d23-9e2f-c58f8454c15c"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"v1", " ", "=", " ", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "r", " ", 
        RowBox[{"Sin", "[", "\[CapitalTheta]", "]"}]}], "+", "a"}], ")"}], 
     "r", " ", 
     RowBox[{"Cos", "[", "\[CapitalTheta]", "]"}]}], 
    SqrtBox[
     RowBox[{
      SuperscriptBox["a", "2"], "+", " ", 
      RowBox[{"4", " ", 
       SuperscriptBox["r", "2"], " ", 
       SuperscriptBox[
        RowBox[{"Cos", "[", "\[CapitalTheta]", "]"}], "2"]}]}]]]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"v2", "=", "  ", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "r", " ", 
        RowBox[{"Sin", "[", "\[CapitalTheta]", "]"}]}], "-", "a"}], ")"}], 
     "r", " ", 
     RowBox[{"Cos", "[", "\[CapitalTheta]", "]"}]}], 
    SqrtBox[
     RowBox[{
      SuperscriptBox["a", "2"], "+", " ", 
      RowBox[{"4", " ", 
       SuperscriptBox["r", "2"], " ", 
       SuperscriptBox[
        RowBox[{"Cos", "[", "\[CapitalTheta]", "]"}], "2"]}]}]]]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.93184254814852*^9, 3.931842651937689*^9}, {
  3.956044486780415*^9, 3.956044495897498*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"e1388f54-680b-41d3-92e4-129241c6485a"],

Cell[CellGroupData[{

Cell[BoxData["v1"], "Input",
 CellChangeTimes->{{3.932010244175533*^9, 3.932010244526874*^9}},
 CellLabel->"In[11]:=",ExpressionUUID->"dd98ca9f-14f0-411d-bbf0-3418745dd2a2"],

Cell[BoxData["1.9964069339829245`"], "Output",
 CellChangeTimes->{
  3.932010244910797*^9, 3.933912143762079*^9, 3.933912229977297*^9, 
   3.93391252481177*^9, {3.933912637526334*^9, 3.933912658897337*^9}, 
   3.933912695175101*^9, 3.933913789913594*^9, {3.933913856832857*^9, 
   3.933913901069459*^9}, 3.933914102726664*^9, 3.933914135057935*^9, 
   3.933914257696794*^9, 3.933914385521103*^9, 3.933914561486853*^9, 
   3.933914611020983*^9, 3.933914743272276*^9, 3.933916085204833*^9, 
   3.933916118736618*^9, 3.9339165275192947`*^9, 3.933916618072034*^9, 
   3.949629906216455*^9, 3.9496398278109818`*^9, 3.949640669655354*^9, 
   3.950076294662318*^9, 3.95007645330061*^9, {3.950077434281329*^9, 
   3.950077463919406*^9}, 3.9500775775236053`*^9, 3.95007767051988*^9, 
   3.950077730328622*^9, 3.9500778628958273`*^9, 3.9500779163910937`*^9, 
   3.950077964711911*^9, 3.950078059576083*^9, 3.950078097378381*^9, 
   3.950078130292156*^9, 3.950078488742296*^9, 3.9500785682122793`*^9, 
   3.95014611470316*^9, 3.950146177435438*^9, 3.950146268254474*^9, 
   3.950146322239085*^9, 3.95014636790208*^9, 3.950147497263881*^9, 
   3.951028642498837*^9, 3.951028690911489*^9, {3.951028725613956*^9, 
   3.9510287818013372`*^9}, 3.951028816297344*^9, 3.951182800217533*^9, 
   3.951182840640275*^9, 3.951182906025887*^9, 3.951182941902111*^9, 
   3.95118301853587*^9, 3.9511830736829853`*^9, 3.95118310498349*^9, 
   3.951183172464623*^9, 3.951183307971541*^9, 3.951183358462636*^9, 
   3.951183456770105*^9, 3.9511838051157837`*^9, 3.951183850273073*^9, 
   3.95118428227481*^9, 3.951784447813064*^9, 3.951784500111416*^9, 
   3.951784545647428*^9, 3.951784579236952*^9, 3.953784100779755*^9, 
   3.953784203801729*^9, 3.9560445170649643`*^9, 3.979859519073045*^9, 
   3.979859939611719*^9, 3.979876796736473*^9, 3.979877775693938*^9, 
   3.979879685952914*^9, 3.979894625041383*^9, 3.979900369515622*^9, 
   3.979900525639145*^9, 3.979902979846324*^9, {3.9805850004723997`*^9, 
   3.980585018971724*^9}, 3.9805864376867437`*^9, 3.980586527390451*^9, 
   3.980586782132971*^9, 3.980587067119132*^9},
 CellLabel->"Out[11]=",ExpressionUUID->"5e274008-4e68-42c8-a0d4-bad739af5068"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["v2"], "Input",
 CellChangeTimes->{{3.932010246199688*^9, 3.932010246455144*^9}, {
  3.979876798333867*^9, 3.979876799273221*^9}},
 CellLabel->"In[12]:=",ExpressionUUID->"e625db12-3e9c-47ee-a553-775cdd19946c"],

Cell[BoxData["1.1019797429830087`"], "Output",
 CellChangeTimes->{
  3.932010246797163*^9, 3.933912143777296*^9, 3.933912229997974*^9, 
   3.9339125248390923`*^9, {3.933912637536775*^9, 3.933912658911095*^9}, 
   3.933912695192689*^9, 3.933913789999742*^9, {3.933913856852144*^9, 
   3.933913901080988*^9}, 3.933914102741106*^9, 3.933914135074398*^9, 
   3.933914257717779*^9, 3.933914385545182*^9, 3.933914561498124*^9, 
   3.93391461103782*^9, 3.933914743287671*^9, 3.933916085217108*^9, 
   3.933916118751116*^9, 3.933916527534978*^9, 3.933916618079723*^9, 
   3.949629906235147*^9, 3.9496398278205633`*^9, 3.949640669666696*^9, 
   3.950076294678251*^9, 3.950076453309349*^9, {3.950077434292522*^9, 
   3.950077463930998*^9}, 3.95007757753278*^9, 3.9500776705317917`*^9, 
   3.9500777303388977`*^9, 3.950077862907949*^9, 3.950077916404453*^9, 
   3.950077964721533*^9, 3.950078059592309*^9, 3.9500780973899918`*^9, 
   3.950078130304915*^9, 3.950078488754057*^9, 3.950078568233926*^9, 
   3.950146114714862*^9, 3.950146177448991*^9, 3.950146268266678*^9, 
   3.950146322248744*^9, 3.950146367923324*^9, 3.950147497275825*^9, 
   3.951028642519265*^9, 3.951028690928585*^9, {3.951028725631336*^9, 
   3.951028781815786*^9}, 3.951028816315218*^9, 3.951182800228914*^9, 
   3.951182840653591*^9, 3.951182906043208*^9, 3.951182941915019*^9, 
   3.9511830185524282`*^9, 3.9511830737001667`*^9, 3.951183104992459*^9, 
   3.951183172477466*^9, 3.95118330798848*^9, 3.951183358483718*^9, 
   3.951183456807084*^9, 3.9511838051270657`*^9, 3.951183850284616*^9, 
   3.951184282287855*^9, 3.9517844478217*^9, 3.951784500131185*^9, 
   3.951784545665267*^9, 3.951784579253133*^9, 3.953784100789168*^9, 
   3.953784203814389*^9, 3.9560445170668507`*^9, 3.979859520155767*^9, 
   3.9798599396135*^9, 3.979876800580003*^9, 3.979877777895669*^9, 
   3.979879685957127*^9, 3.979894625043659*^9, 3.9799003695183277`*^9, 
   3.979900526409038*^9, 3.979902979850071*^9, {3.980585001246119*^9, 
   3.9805850205888853`*^9}, 3.980586437688694*^9, 3.980586527392108*^9, 
   3.980586782135607*^9, 3.980587068206087*^9},
 CellLabel->"Out[12]=",ExpressionUUID->"bdfdce4c-7e63-4ff6-8d83-6f079ac1f737"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[Omega]0", "=", 
  RowBox[{
   SqrtBox[
    FractionBox["k", 
     RowBox[{"m", " ", 
      SuperscriptBox["r", "2"]}]]], 
   RowBox[{"(", 
    RowBox[{"v1", "-", "v2"}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.979903016620675*^9, 3.979903040074183*^9}},
 CellLabel->"In[13]:=",ExpressionUUID->"e9faee85-4db2-4b38-a366-dde3ae061f4b"],

Cell[BoxData["0.44721359549995787`"], "Output",
 CellChangeTimes->{3.979903040419753*^9, 3.980585037924436*^9, 
  3.980586437690433*^9, 3.980586527393631*^9, 3.980586782140815*^9, 
  3.980587069146665*^9},
 CellLabel->"Out[13]=",ExpressionUUID->"3bab1e36-fcb2-42ea-97b6-01d98d902d2d"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"dtl1", "=", "0.025"}], ";", "\n", 
   RowBox[{"tl1tab", "=", 
    RowBox[{"Table", "[", 
     RowBox[{"i", ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "0.0101", ",", "0.1001", ",", "dtl1"}], "}"}]}], 
     "]"}]}], ";", "\n", 
   RowBox[{"dtl2", "=", "0.1"}], ";", "\n", 
   RowBox[{"tl2tab", "=", 
    RowBox[{"Table", "[", 
     RowBox[{"i", ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "0.1001", ",", "2.1001", ",", "dtl2"}], "}"}]}], 
     "]"}]}], ";", "\n", 
   RowBox[{"tltab", "=", 
    RowBox[{"Join", "[", 
     RowBox[{"tl1tab", ",", "tl2tab"}], "]"}]}], ";", "\n", 
   RowBox[{"dtr1", "=", "0.025"}], ";", "\n", 
   RowBox[{"tr1tab", "=", 
    RowBox[{"Table", "[", 
     RowBox[{"i", ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "0.01", ",", "0.10", ",", "dtr1"}], "}"}]}], "]"}]}],
    ";", "\n", 
   RowBox[{"dtr2", "=", "0.1"}], ";", "\n", 
   RowBox[{"tr2tab", "=", 
    RowBox[{"Table", "[", 
     RowBox[{"i", ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "0.10", ",", "2.10", ",", "dtr2"}], "}"}]}], "]"}]}],
    ";", "\n", 
   RowBox[{"trtab", "=", 
    RowBox[{"Join", "[", 
     RowBox[{"tr1tab", ",", "tr2tab"}], "]"}]}], ";", "\n", 
   RowBox[{"Ttab", "=", 
    FractionBox[
     RowBox[{"tltab", "+", "trtab"}], "2"]}], ";", "\n", 
   RowBox[{"tltab", "-", "trtab"}], ";"}], "*)"}]], "Input",
 CellChangeTimes->{{3.949639809402182*^9, 3.949639817856158*^9}, {
  3.950076152137186*^9, 3.95007615833678*^9}},
 CellLabel->"In[15]:=",ExpressionUUID->"8b2fd979-4bb5-44e9-a8c9-290904a3abec"],

Cell[BoxData[
 RowBox[{"(*", "Ttab", "*)"}]], "Input",
 CellChangeTimes->{{3.949648633573525*^9, 3.949648634606041*^9}, {
  3.9500761969561977`*^9, 3.950076201060216*^9}},
 CellLabel->"In[16]:=",ExpressionUUID->"b19ca4d4-0cc7-409c-be56-09a1ec5a9f84"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"dtl", "=", "0.1"}], ";", 
   RowBox[{"tltab", "=", 
    RowBox[{"Table", "[", 
     RowBox[{"i", ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "2.9", ",", "3.0", ",", "dtl"}], "}"}]}], "]"}]}], 
   ";", 
   RowBox[{"trtab", "=", 
    RowBox[{"Table", "[", 
     RowBox[{"i", ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1.9", ",", "2.0", ",", "dtl"}], "}"}]}], "]"}]}], 
   ";", "\[IndentingNewLine]", 
   RowBox[{"Ttab", "=", 
    FractionBox[
     RowBox[{"tltab", "+", "trtab"}], "2"]}], ";"}], "*)"}]], "Input",
 CellChangeTimes->{{3.8949460757633753`*^9, 3.894946096474883*^9}, 
   3.894946294207357*^9, 3.89494635595314*^9, 3.894946394410119*^9, {
   3.894946792428321*^9, 3.8949467968922043`*^9}, {3.895108537429946*^9, 
   3.895108543469845*^9}, {3.895108575111008*^9, 3.895108584359124*^9}, {
   3.895109509233223*^9, 3.895109510801064*^9}, {3.927172828770138*^9, 
   3.927172859824037*^9}, {3.927175391351359*^9, 3.927175393303876*^9}, {
   3.9271755108294697`*^9, 3.927175582804019*^9}, {3.94962988436237*^9, 
   3.949629888193962*^9}, {3.950076162633923*^9, 3.950076187867282*^9}, {
   3.950076232383464*^9, 3.9500762329749126`*^9}, {3.950147480210596*^9, 
   3.950147483106159*^9}, {3.951028616084304*^9, 3.951028619539738*^9}},
 CellLabel->"In[17]:=",ExpressionUUID->"20fff85b-f83f-4178-93e6-f5e1e564036c"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"dtl", "=", "0.015"}], ";", 
  RowBox[{"tltab", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"i", ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "0.051", ",", "0.11", ",", "dtl"}], "}"}]}], "]"}]}], 
  ";", 
  RowBox[{"trtab", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"i", ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "0.05", ",", "0.1", ",", "dtl"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Ttab", "=", 
   FractionBox[
    RowBox[{"tltab", "+", "trtab"}], "2"]}], ";"}]}], "Input",
 CellChangeTimes->{{3.8949460757633753`*^9, 3.894946096474883*^9}, 
   3.894946294207357*^9, 3.89494635595314*^9, 3.894946394410119*^9, {
   3.894946792428321*^9, 3.8949467968922043`*^9}, {3.895108537429946*^9, 
   3.895108543469845*^9}, {3.895108575111008*^9, 3.895108584359124*^9}, {
   3.895109509233223*^9, 3.895109510801064*^9}, {3.927172828770138*^9, 
   3.927172859824037*^9}, {3.927175391351359*^9, 3.927175393303876*^9}, {
   3.9271755108294697`*^9, 3.927175582804019*^9}, {3.94962988436237*^9, 
   3.949629888193962*^9}, {3.950076162633923*^9, 3.950076166729498*^9}, {
   3.9500762419032793`*^9, 3.950076280554164*^9}, {3.950077240121854*^9, 
   3.95007725153759*^9}, 3.950077299841888*^9, {3.9500774563791847`*^9, 
   3.950077458153356*^9}, {3.950077564025478*^9, 3.9500775691052637`*^9}, {
   3.950078032159532*^9, 3.950078048863018*^9}, {3.950078084502996*^9, 
   3.950078088013819*^9}, {3.950147462594774*^9, 3.950147475114496*^9}, {
   3.951028621828494*^9, 3.951028625779782*^9}, {3.979859929250973*^9, 
   3.979859929505186*^9}},
 CellLabel->"In[14]:=",ExpressionUUID->"ad7630ac-bcf1-4825-bedb-cf0b2f98af48"],

Cell[CellGroupData[{

Cell[BoxData["Ttab"], "Input",
 CellChangeTimes->{{3.9798595248421283`*^9, 3.979859526051168*^9}},
 CellLabel->"In[16]:=",ExpressionUUID->"905b1b27-1b6d-4246-b14a-db500ee017af"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.0505`", ",", "0.0655`", ",", "0.08049999999999999`", ",", "0.0955`"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.97985952642935*^9, 3.9798599396292534`*^9, 
  3.979876805323901*^9, 3.9798777845771627`*^9, 3.979879685971169*^9, 
  3.9798946250537143`*^9, 3.979900369533876*^9, 3.979900531779484*^9, 
  3.979902979866881*^9, 3.980586437704311*^9, 3.980586527408935*^9, 
  3.980586782152686*^9, 3.980587075093341*^9},
 CellLabel->"Out[16]=",ExpressionUUID->"088629d6-c95d-4650-8046-0fc98ef278d4"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"GList", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"transcofflist", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"currlist", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"currclasslist", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"currQlist", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"gmatslist", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"mats", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", 
     RowBox[{"{", "n", "}"}], ",", 
     RowBox[{"{", "n", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"l", "=", "1"}], ",", 
   RowBox[{"l", "<=", 
    RowBox[{"Length", "[", "\[Omega]ntab", "]"}]}], ",", 
   RowBox[{"l", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"For", "[", 
     RowBox[{
      RowBox[{"i", "=", "1"}], ",", 
      RowBox[{"i", "<=", 
       RowBox[{"n", "-", "1"}]}], ",", 
      RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"mats", "\[LeftDoubleBracket]", 
         RowBox[{"i", ",", "i"}], "\[RightDoubleBracket]"}], "=", 
        RowBox[{"z", "[", 
         RowBox[{"m", ",", "r", ",", 
          RowBox[{
          "\[Omega]ntab", "\[LeftDoubleBracket]", "l", 
           "\[RightDoubleBracket]"}], ",", "k", ",", "v1", ",", "v2"}], 
         "]"}]}], ";", 
       RowBox[{
        RowBox[{"mats", "\[LeftDoubleBracket]", 
         RowBox[{"1", ",", "1"}], "\[RightDoubleBracket]"}], "=", 
        RowBox[{"zl", "[", 
         RowBox[{"m", ",", "r", ",", 
          RowBox[{
          "\[Omega]ntab", "\[LeftDoubleBracket]", "l", 
           "\[RightDoubleBracket]"}], ",", "k", ",", "v1", ",", "\[Gamma]L"}],
          "]"}]}], ";", 
       RowBox[{
        RowBox[{"mats", "\[LeftDoubleBracket]", 
         RowBox[{"n", ",", "n"}], "\[RightDoubleBracket]"}], "=", 
        RowBox[{"zr", "[", 
         RowBox[{"m", ",", "r", ",", 
          RowBox[{
          "\[Omega]ntab", "\[LeftDoubleBracket]", "l", 
           "\[RightDoubleBracket]"}], ",", "k", ",", "v2", ",", "\[Gamma]R"}],
          "]"}]}], ";", 
       RowBox[{
        RowBox[{"mats", "\[LeftDoubleBracket]", 
         RowBox[{"i", ",", 
          RowBox[{"i", "+", "1"}]}], "\[RightDoubleBracket]"}], "=", 
        RowBox[{
         RowBox[{"-", "k"}], " ", "*", " ", 
         RowBox[{"Abs", "[", 
          RowBox[{"v1", " ", "v2"}], "]"}]}]}], ";", 
       RowBox[{
        RowBox[{"mats", "\[LeftDoubleBracket]", 
         RowBox[{
          RowBox[{"i", "+", "1"}], ",", "i"}], "\[RightDoubleBracket]"}], "=", 
        RowBox[{
         RowBox[{"-", "k"}], " ", "*", " ", 
         RowBox[{"Abs", "[", 
          RowBox[{"v1", " ", "v2"}], "]"}]}]}], ";", " ", 
       RowBox[{"Z", "=", "mats"}], ";"}]}], "]"}], ";", 
    RowBox[{"GList", "=", 
     RowBox[{"Join", "[", 
      RowBox[{"GList", ",", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
          "\[Omega]ntab", "\[LeftDoubleBracket]", "l", 
           "\[RightDoubleBracket]"}], ",", 
          RowBox[{"Inverse", "[", "Z", "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
    
    RowBox[{"gmatslist", "=", 
     RowBox[{"Join", "[", 
      RowBox[{"gmatslist", ",", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
          "\[Omega]ntab", "\[LeftDoubleBracket]", "l", 
           "\[RightDoubleBracket]"}], ",", 
          SuperscriptBox[
           RowBox[{"Abs", "[", 
            RowBox[{"GList", "\[LeftDoubleBracket]", 
             RowBox[{"l", ",", "2", ",", "1", ",", "n"}], 
             "\[RightDoubleBracket]"}], "]"}], "2"]}], "}"}], "}"}]}], 
      "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"transcofflist", "=", 
     RowBox[{"Join", "[", 
      RowBox[{"transcofflist", ",", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
          "\[Omega]ntab", "\[LeftDoubleBracket]", "l", 
           "\[RightDoubleBracket]"}], ",", 
          RowBox[{
           RowBox[{"(", 
            SuperscriptBox[
             RowBox[{"Abs", "[", 
              RowBox[{"GList", "\[LeftDoubleBracket]", 
               RowBox[{"l", ",", "2", ",", "1", ",", "n"}], 
               "\[RightDoubleBracket]"}], "]"}], "2"], ")"}], "*", 
           SuperscriptBox[
            RowBox[{
            "\[Omega]ntab", "\[LeftDoubleBracket]", "l", 
             "\[RightDoubleBracket]"}], "2"], "*", "\[Gamma]L", "*", 
           "\[Gamma]R"}]}], "}"}], "}"}]}], "]"}]}], ";"}]}], "]"}]}], "Input",\

 CellChangeTimes->{{3.868239758807444*^9, 3.868239867477888*^9}, 
   3.868239986069236*^9, {3.868240055995058*^9, 3.868240071250601*^9}, {
   3.868240108906638*^9, 3.868240123330142*^9}, {3.868240194146141*^9, 
   3.868240231836074*^9}, {3.868240290059667*^9, 3.868240328907196*^9}, {
   3.868240364580038*^9, 3.868240371443502*^9}, {3.8682404599006367`*^9, 
   3.868240477107811*^9}, {3.8682405357192173`*^9, 3.868240592029715*^9}, {
   3.868240644086977*^9, 3.868240771424184*^9}, {3.8682408222901087`*^9, 
   3.868240869889131*^9}, {3.868240984516298*^9, 3.86824101363253*^9}, {
   3.8682410924950953`*^9, 3.86824109412467*^9}, {3.868241140901259*^9, 
   3.8682412991812353`*^9}, {3.868241335278407*^9, 3.868241335756639*^9}, {
   3.868241419076655*^9, 3.868241504392988*^9}, {3.868241547129361*^9, 
   3.868241584927587*^9}, {3.868241615313395*^9, 3.868241628062907*^9}, {
   3.868241735727869*^9, 3.86824175082208*^9}, {3.8682455695667343`*^9, 
   3.86824557347596*^9}, {3.868245632340785*^9, 3.86824571640849*^9}, {
   3.8682458159025097`*^9, 3.86824589734906*^9}, {3.8682488253466587`*^9, 
   3.868248864601956*^9}, {3.868248898772872*^9, 3.868248923187042*^9}, {
   3.868249094210797*^9, 3.868249133565991*^9}, {3.868249186158022*^9, 
   3.868249236018037*^9}, {3.868249295507097*^9, 3.868249334855221*^9}, {
   3.868249377609884*^9, 3.868249384742116*^9}, {3.868249422120757*^9, 
   3.868249467311349*^9}, {3.868249654639435*^9, 3.868249695007239*^9}, 
   3.868249737662425*^9, {3.8682498191500187`*^9, 3.868249842762375*^9}, {
   3.868321604820076*^9, 3.868321614412115*^9}, {3.868321742844755*^9, 
   3.868321786033757*^9}, {3.868403821036978*^9, 3.868403834140854*^9}, {
   3.868404281222009*^9, 3.868404421779862*^9}, {3.868404493858201*^9, 
   3.868404515673894*^9}, {3.868404567648616*^9, 3.86840456804852*^9}, {
   3.868404843602604*^9, 3.868404850002242*^9}, {3.868404907825197*^9, 
   3.868404922510221*^9}, {3.868405074604569*^9, 3.868405086084755*^9}, {
   3.868405178131298*^9, 3.868405228416995*^9}, {3.868405442000372*^9, 
   3.868405451044012*^9}, {3.868405751118957*^9, 3.868405754229269*^9}, 
   3.868405791676166*^9, {3.868406059004624*^9, 3.868406095500968*^9}, {
   3.868406347775814*^9, 3.868406352991544*^9}, {3.868406398366206*^9, 
   3.868406543570976*^9}, {3.868406598538824*^9, 3.868406603977841*^9}, {
   3.868406828144823*^9, 3.868406830485408*^9}, {3.868411547980481*^9, 
   3.868411561055891*^9}, {3.868411592768248*^9, 3.868411604377939*^9}, {
   3.86841175717209*^9, 3.868411777144916*^9}, {3.868412090604657*^9, 
   3.868412094674629*^9}, {3.868952287343454*^9, 3.8689522946231527`*^9}, {
   3.868952587578061*^9, 3.86895262533615*^9}, 3.868952864229818*^9, 
   3.868952896948552*^9, {3.874469843682806*^9, 3.874469846577838*^9}, 
   3.8762052997095194`*^9, {3.887327514476064*^9, 3.887327533466675*^9}, {
   3.8921956280114594`*^9, 3.892195629363922*^9}, {3.892195659772518*^9, 
   3.892195693901372*^9}, {3.892195742518705*^9, 3.892195759670965*^9}, {
   3.892195791071424*^9, 3.89219586109683*^9}, {3.892195902906152*^9, 
   3.892195950746016*^9}, {3.892196208217562*^9, 3.892196212505234*^9}, {
   3.892259861807678*^9, 3.892259864391444*^9}, {3.892261450626603*^9, 
   3.892261477067281*^9}, {3.892261507572434*^9, 3.892261540028993*^9}, {
   3.892261575781915*^9, 3.892261598133752*^9}, {3.8922616640564547`*^9, 
   3.892261679432684*^9}, 3.892261753206285*^9, {3.892265255497539*^9, 
   3.892265408514577*^9}, {3.8922654422444773`*^9, 3.89226563844037*^9}, {
   3.892266416784976*^9, 3.892266459839089*^9}, {3.89226683668649*^9, 
   3.892266852030231*^9}, {3.892266894075061*^9, 3.892266919915532*^9}, {
   3.892267020813009*^9, 3.89226702280445*^9}, {3.893465122080888*^9, 
   3.8934652255839167`*^9}, {3.893469408644718*^9, 3.893469409165545*^9}, {
   3.893469469422265*^9, 3.893469531559943*^9}, {3.895106845654242*^9, 
   3.895106846542061*^9}, {3.895107517684537*^9, 3.8951075248445787`*^9}, {
   3.8951081087760773`*^9, 3.895108109224338*^9}, {3.927172041108378*^9, 
   3.927172067484586*^9}, {3.927172148219726*^9, 3.927172209387004*^9}, {
   3.927172341514629*^9, 3.927172351416226*^9}, {3.927172882376528*^9, 
   3.927172890832237*^9}, {3.927174771197534*^9, 3.927174771637227*^9}, {
   3.927590851316572*^9, 3.927590889051449*^9}, {3.927590928426799*^9, 
   3.927590929075063*^9}, {3.927590996041872*^9, 3.927590996192959*^9}, {
   3.927591647901441*^9, 3.927591731780905*^9}, {3.927592455320681*^9, 
   3.927592457248389*^9}, {3.927592910078988*^9, 3.927592910750607*^9}, {
   3.931842502637334*^9, 3.931842521084917*^9}, {3.931842667266604*^9, 
   3.931842735456704*^9}, {3.931844483985033*^9, 3.931844515792603*^9}, {
   3.951183508679421*^9, 3.951183526382217*^9}, {3.980586457609508*^9, 
   3.980586460506974*^9}, {3.980586744501657*^9, 3.980586748728229*^9}},
 CellLabel->"In[17]:=",ExpressionUUID->"6b1e78ed-dbd7-425e-ab3c-1561a667e2de"],

Cell[BoxData[
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"p", "=", "1"}], ",", 
   RowBox[{"p", "<=", 
    RowBox[{"Length", "[", "Ttab", "]"}]}], ",", 
   RowBox[{"p", "++"}], ",", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"l", "=", "1"}], ",", 
     RowBox[{"l", "<=", 
      RowBox[{"Length", "[", "\[Omega]ntab", "]"}]}], ",", 
     RowBox[{"l", "++"}], ",", 
     RowBox[{
      RowBox[{"currlist", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"currlist", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
            "Ttab", "\[LeftDoubleBracket]", "p", "\[RightDoubleBracket]"}], 
            ",", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"Abs", "[", 
               RowBox[{"GList", "\[LeftDoubleBracket]", 
                RowBox[{"l", ",", "2", ",", "1", ",", "n"}], 
                "\[RightDoubleBracket]"}], "]"}], "2"], "*", 
             FractionBox[
              RowBox[{"\[HBar]", " ", 
               SuperscriptBox[
                RowBox[{
                "\[Omega]ntab", "\[LeftDoubleBracket]", "l", 
                 "\[RightDoubleBracket]"}], "3"]}], "\[Pi]"], "*", 
             "\[Gamma]L", "*", "\[Gamma]R", "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"f", "[", 
                RowBox[{
                 RowBox[{
                 "\[Omega]ntab", "\[LeftDoubleBracket]", "l", 
                  "\[RightDoubleBracket]"}], ",", 
                 RowBox[{
                 "tltab", "\[LeftDoubleBracket]", "p", 
                  "\[RightDoubleBracket]"}]}], "]"}], "-", 
               RowBox[{"f", "[", 
                RowBox[{
                 RowBox[{
                 "\[Omega]ntab", "\[LeftDoubleBracket]", "l", 
                  "\[RightDoubleBracket]"}], ",", 
                 RowBox[{
                 "trtab", "\[LeftDoubleBracket]", "p", 
                  "\[RightDoubleBracket]"}]}], "]"}]}], ")"}]}]}], "}"}], 
          "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"currclasslist", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"currclasslist", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
            "Ttab", "\[LeftDoubleBracket]", "p", "\[RightDoubleBracket]"}], 
            ",", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"Abs", "[", 
               RowBox[{"GList", "\[LeftDoubleBracket]", 
                RowBox[{"l", ",", "2", ",", "1", ",", "n"}], 
                "\[RightDoubleBracket]"}], "]"}], "2"], "*", 
             FractionBox[
              SuperscriptBox[
               RowBox[{
               "\[Omega]ntab", "\[LeftDoubleBracket]", "l", 
                "\[RightDoubleBracket]"}], "2"], "\[Pi]"], "*", "\[Gamma]L", 
             "*", "\[Gamma]R", "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
               "tltab", "\[LeftDoubleBracket]", "p", 
                "\[RightDoubleBracket]"}], "-", 
               RowBox[{
               "trtab", "\[LeftDoubleBracket]", "p", 
                "\[RightDoubleBracket]"}]}], ")"}]}]}], "}"}], "}"}]}], 
        "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"currQlist", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"currQlist", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
            "Ttab", "\[LeftDoubleBracket]", "p", "\[RightDoubleBracket]"}], 
            ",", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"Abs", "[", 
               RowBox[{"GList", "\[LeftDoubleBracket]", 
                RowBox[{"l", ",", "2", ",", "1", ",", "n"}], 
                "\[RightDoubleBracket]"}], "]"}], "2"], "*", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[HBar]", "2"], " ", 
               SuperscriptBox[
                RowBox[{
                "\[Omega]ntab", "\[LeftDoubleBracket]", "l", 
                 "\[RightDoubleBracket]"}], "4"]}], 
              RowBox[{
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"2", "*", "kb", "*", 
                  RowBox[{
                  "Ttab", "\[LeftDoubleBracket]", "p", 
                   "\[RightDoubleBracket]"}]}], ")"}], "2"], "*", "\[Pi]"}]], 
             "*", "\[Gamma]L", "*", "\[Gamma]R", "*", "kb", "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
               "tltab", "\[LeftDoubleBracket]", "p", 
                "\[RightDoubleBracket]"}], "-", 
               RowBox[{
               "trtab", "\[LeftDoubleBracket]", "p", 
                "\[RightDoubleBracket]"}]}], ")"}], "*", 
             RowBox[{"(", 
              RowBox[{"Csch", "[", 
               FractionBox[
                RowBox[{"\[HBar]", " ", 
                 RowBox[{
                 "\[Omega]ntab", "\[LeftDoubleBracket]", "l", 
                  "\[RightDoubleBracket]"}]}], 
                RowBox[{"2", "kb", "*", 
                 RowBox[{
                 "Ttab", "\[LeftDoubleBracket]", "p", 
                  "\[RightDoubleBracket]"}]}]], "]"}], ")"}], "*", 
             RowBox[{"(", 
              RowBox[{"Csch", "[", 
               FractionBox[
                RowBox[{"\[HBar]", " ", 
                 RowBox[{
                 "\[Omega]ntab", "\[LeftDoubleBracket]", "l", 
                  "\[RightDoubleBracket]"}]}], 
                RowBox[{"2", "kb", "*", 
                 RowBox[{
                 "Ttab", "\[LeftDoubleBracket]", "p", 
                  "\[RightDoubleBracket]"}]}]], "]"}], ")"}]}]}], "}"}], 
          "}"}]}], "]"}]}], ";"}]}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.895107570173476*^9, 3.8951076180786543`*^9}, {
  3.895108101863957*^9, 3.895108102407991*^9}, {3.927172238802765*^9, 
  3.92717228908939*^9}, {3.927172873272648*^9, 3.927172908033185*^9}, {
  3.92717295986409*^9, 3.927173032613894*^9}, {3.927174524322466*^9, 
  3.92717453539382*^9}, {3.927174744158129*^9, 3.927174744438196*^9}, {
  3.927174786893303*^9, 3.927174787237079*^9}, {3.927590943139256*^9, 
  3.927590954106472*^9}, {3.931844723286105*^9, 3.931844729540831*^9}, {
  3.980586470993411*^9, 3.980586484219824*^9}},
 CellLabel->"In[25]:=",ExpressionUUID->"d6243ecc-6d14-4677-b6e4-580284719720"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Tau]", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\n", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"j", "=", "1"}], ",", 
   RowBox[{"j", "<=", 
    RowBox[{"Length", "[", "Ttab", "]"}]}], ",", 
   RowBox[{"j", "++"}], ",", 
   RowBox[{"\[Tau]", "=", 
    RowBox[{"Join", "[", 
     RowBox[{"\[Tau]", ",", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
         "Ttab", "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}], ",", 
         
         RowBox[{"Sum", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"currQlist", "\[LeftDoubleBracket]", 
             RowBox[{"i", ",", "2"}], "\[RightDoubleBracket]"}], "*", 
            "d\[Omega]"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{"j", "-", "1"}], ")"}], "*", 
               RowBox[{"Length", "[", "\[Omega]ntab", "]"}]}], "+", "1"}], 
             ",", 
             RowBox[{"j", "*", 
              RowBox[{"Length", "[", "\[Omega]ntab", "]"}]}]}], "}"}]}], 
          "]"}]}], "}"}], "}"}]}], "]"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.9101628551397038`*^9, 3.9101628589044657`*^9}, 
   3.91016410379875*^9},
 CellLabel->"In[26]:=",ExpressionUUID->"e6fac2e3-714c-446c-85cc-5481359cdebe"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Nu]", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\n", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"j", "=", "1"}], ",", 
   RowBox[{"j", "<=", 
    RowBox[{"Length", "[", "Ttab", "]"}]}], ",", 
   RowBox[{"j", "++"}], ",", 
   RowBox[{"\[Nu]", "=", 
    RowBox[{"Join", "[", 
     RowBox[{"\[Nu]", ",", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
         "Ttab", "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}], ",", 
         
         RowBox[{"Sum", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"currlist", "\[LeftDoubleBracket]", 
             RowBox[{"i", ",", "2"}], "\[RightDoubleBracket]"}], "*", 
            "d\[Omega]"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{"j", "-", "1"}], ")"}], "*", 
               RowBox[{"Length", "[", "\[Omega]ntab", "]"}]}], "+", "1"}], 
             ",", 
             RowBox[{"j", "*", 
              RowBox[{"Length", "[", "\[Omega]ntab", "]"}]}]}], "}"}]}], 
          "]"}]}], "}"}], "}"}]}], "]"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.910163443860358*^9, 3.910163447368085*^9}, 
   3.9101641572698174`*^9},
 CellLabel->"In[28]:=",ExpressionUUID->"3a33abe3-6d91-4b2c-8c90-847cebcce7a7"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Eta]", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\n", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"j", "=", "1"}], ",", 
   RowBox[{"j", "<=", 
    RowBox[{"Length", "[", "Ttab", "]"}]}], ",", 
   RowBox[{"j", "++"}], ",", 
   RowBox[{"\[Eta]", "=", 
    RowBox[{"Join", "[", 
     RowBox[{"\[Eta]", ",", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
         "Ttab", "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}], ",", 
         
         RowBox[{"Sum", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"currclasslist", "\[LeftDoubleBracket]", 
             RowBox[{"i", ",", "2"}], "\[RightDoubleBracket]"}], "*", 
            "d\[Omega]"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{"j", "-", "1"}], ")"}], "*", 
               RowBox[{"Length", "[", "\[Omega]ntab", "]"}]}], "+", "1"}], 
             ",", 
             RowBox[{"j", "*", 
              RowBox[{"Length", "[", "\[Omega]ntab", "]"}]}]}], "}"}]}], 
          "]"}]}], "}"}], "}"}]}], "]"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.910163476196239*^9, 3.9101634826394978`*^9}, 
   3.910164245077711*^9, {3.927173954509731*^9, 3.927173958773443*^9}},
 CellLabel->"In[30]:=",ExpressionUUID->"10d29ca8-f1d1-48c3-b3ed-68476e458b63"],

Cell[CellGroupData[{

Cell[BoxData["\[Tau]"], "Input",
 CellChangeTimes->{{3.889060137885862*^9, 3.889060139461196*^9}},
 CellLabel->"In[32]:=",ExpressionUUID->"6f27441c-537a-451c-a879-224e06100523"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0.0505`", ",", "5.148906799184281`*^-9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.0655`", ",", "3.6022142695975105`*^-8"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.08049999999999999`", ",", "1.2135870348447715`*^-7"}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"0.0955`", ",", "2.7858463185527073`*^-7"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.889061237374879*^9, 3.8890618880832043`*^9, 3.889062014307485*^9, 
   3.8890624728917003`*^9, 3.889062730984872*^9, 3.889074666470482*^9, 
   3.889155716204911*^9, 3.889155764892806*^9, {3.889155876670807*^9, 
   3.889155933542015*^9}, 3.889155998365622*^9, {3.889156043361176*^9, 
   3.889156073261582*^9}, 3.889156224991242*^9, 3.893463738785331*^9, 
   3.893469850435135*^9, 3.89432948486725*^9, 3.894329522338371*^9, 
   3.894329587748966*^9, {3.894329618334278*^9, 3.894329646107745*^9}, 
   3.894329685176749*^9, 3.894329851404008*^9, {3.894329890655363*^9, 
   3.894329916282904*^9}, 3.894329948586635*^9, 3.894329994328145*^9, 
   3.894330045464219*^9, 3.894330094320993*^9, 3.894330478233759*^9, 
   3.894331015168208*^9, 3.894331049923642*^9, 3.894331090568263*^9, 
   3.894331145606526*^9, 3.894331188431937*^9, 3.894331232231037*^9, 
   3.894331276289238*^9, 3.894331317019688*^9, 3.894331352765613*^9, 
   3.894331393501113*^9, 3.894331432043529*^9, 3.894331474505144*^9, 
   3.894331510823575*^9, 3.894331550153776*^9, 3.894331589142036*^9, 
   3.894331641110214*^9, 3.894331906864876*^9, 3.894343427705933*^9, 
   3.894850607994218*^9, 3.894864314358807*^9, 3.89486442012834*^9, 
   3.894864624608816*^9, 3.89486532682972*^9, 3.894865368097454*^9, 
   3.894865405084442*^9, {3.894865439982894*^9, 3.894865466722527*^9}, 
   3.894865512046589*^9, 3.89486555981376*^9, 3.89486561135024*^9, 
   3.894946133818397*^9, {3.894946275651607*^9, 3.894946304303787*^9}, 
   3.894946606255337*^9, 3.894946817329254*^9, 3.895108141093198*^9, 
   3.895108500957192*^9, 3.895108561334672*^9, 3.8951085974651003`*^9, 
   3.895109330615923*^9, 3.895109458937882*^9, 3.895109527187046*^9, 
   3.895109584949457*^9, 3.895109767107719*^9, 3.8951099000252733`*^9, 
   3.895110105347149*^9, 3.895110188396207*^9, 3.895110238728147*^9, 
   3.8951106435089617`*^9, 3.895110730710728*^9, 3.895110797537619*^9, 
   3.895110904579151*^9, 3.895111035859169*^9, 3.8951110845272093`*^9, 
   3.895111131266259*^9, 3.895111282704257*^9, 3.8951171289542637`*^9, {
   3.895117176148871*^9, 3.895117227293726*^9}, 3.895117257903495*^9, 
   3.895652549854679*^9, 3.895652584080183*^9, 3.895652671160921*^9, 
   3.895652714333621*^9, 3.895652773004539*^9, 3.895797228484964*^9, 
   3.895797349645952*^9, 3.927172373940493*^9, 3.927172413852401*^9, 
   3.927172482108118*^9, 3.927173142503292*^9, 3.9271742009227*^9, 
   3.927174636470468*^9, 3.927174932769353*^9, 3.927175591024092*^9, {
   3.927175723172923*^9, 3.927175820616503*^9}, 3.927176122482758*^9, {
   3.9271833532138233`*^9, 3.927183375091401*^9}, 3.927183598388109*^9, 
   3.927187531995818*^9, 3.927242914061301*^9, 3.9273575125865545`*^9, 
   3.927591903520389*^9, 3.927592021343914*^9, 3.927592150312508*^9, 
   3.927592947414817*^9, 3.92759312139888*^9, 3.927593207576949*^9, 
   3.927594496064494*^9, {3.927676032176912*^9, 3.927676060678939*^9}, 
   3.931841210593863*^9, 3.931844538728214*^9, 3.931844611850122*^9, 
   3.931844693289757*^9, {3.931844759740613*^9, 3.931844812614624*^9}, {
   3.931844850100045*^9, 3.931844876105898*^9}, 3.931844953252952*^9, 
   3.931844984837416*^9, 3.931845320571047*^9, 3.9318453843917284`*^9, 
   3.931845424850724*^9, {3.931845456921471*^9, 3.931845476314992*^9}, 
   3.931846464317103*^9, 3.931846623030734*^9, 3.93184666884021*^9, 
   3.9318469032430944`*^9, 3.9318470072013197`*^9, 3.9318476403128753`*^9, {
   3.931847716234*^9, 3.931847740962039*^9}, 3.93201023210116*^9, 
   3.933912147424518*^9, 3.9339122335795317`*^9, 3.933912528548028*^9, {
   3.933912641153689*^9, 3.933912662465122*^9}, 3.9339126988973*^9, 
   3.9339137946268044`*^9, {3.933913859191309*^9, 3.933913878043262*^9}, 
   3.9339139158429346`*^9, 3.933914109679226*^9, 3.933914222960345*^9, 
   3.933914337090192*^9, 3.933914463857934*^9, 3.933914565936619*^9, 
   3.933914615372857*^9, 3.933914747864684*^9, 3.933916090797552*^9, 
   3.933916124458059*^9, 3.933916533340761*^9, 3.933916623873432*^9, 
   3.949640511894191*^9, 3.9496413630975857`*^9, 3.950076307813085*^9, 
   3.950076465013213*^9, 3.950077471832423*^9, 3.950077585221554*^9, 
   3.950077679436315*^9, 3.950077742448069*^9, 3.950077870425589*^9, 
   3.950077924163243*^9, 3.950077973040955*^9, 3.950078068161171*^9, 
   3.950078107060731*^9, 3.950078137982628*^9, 3.950078497774083*^9, 
   3.950078577393771*^9, 3.950146124211929*^9, 3.950146186885063*^9, 
   3.950146277488237*^9, 3.95014633165742*^9, 3.950146375678941*^9, 
   3.950147501976341*^9, 3.951028650305971*^9, 3.95102869905989*^9, {
   3.951028733322194*^9, 3.951028789500381*^9}, 3.95102882451871*^9, 
   3.951182808089381*^9, 3.951182848505858*^9, 3.951182913639984*^9, 
   3.95118294949816*^9, 3.951183026607648*^9, 3.951183082363344*^9, 
   3.951183122240282*^9, 3.951183189263739*^9, 3.951183323659581*^9, 
   3.9511833741820583`*^9, 3.951183472356778*^9, 3.951183820354644*^9, 
   3.951183865045891*^9, 3.951184297954819*^9, 3.951784462300691*^9, 
   3.951784515352829*^9, 3.951784560496456*^9, 3.95178459621551*^9, 
   3.9537841176657887`*^9, 3.953784218263357*^9, 3.956044526269082*^9, 
   3.979859554604081*^9, 3.979859954063369*^9, 3.979879700257822*^9, 
   3.979894640259503*^9, 3.979900384617669*^9, 3.979900556776486*^9, 
   3.979902995392131*^9, 3.980586797889101*^9, 3.9805870923256617`*^9},
 CellLabel->"Out[32]=",ExpressionUUID->"e172a81e-0726-4440-a14a-e97344e2f8e5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["\[Nu]"], "Input",
 CellChangeTimes->{{3.927174395903734*^9, 3.927174396424341*^9}},
 CellLabel->"In[33]:=",ExpressionUUID->"efa58324-6cd2-4732-b58a-9a96b53a59c9"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0.0505`", ",", "5.15356181026431`*^-9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.0655`", ",", "3.603244602358545`*^-8"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.08049999999999999`", ",", "1.2137226464645924`*^-7"}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"0.0955`", ",", "2.785985365990805`*^-7"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.927174397065905*^9, 3.927174636483409*^9, 3.927174932782784*^9, 
   3.927175591041735*^9, {3.927175723181785*^9, 3.927175820645593*^9}, 
   3.927176122491855*^9, {3.927183353232407*^9, 3.927183375120266*^9}, 
   3.927183598407916*^9, 3.9271875320196347`*^9, 3.927242914081198*^9, 
   3.927357512606326*^9, 3.927592947429308*^9, 3.927593121419505*^9, 
   3.927593207601633*^9, 3.9275944960894814`*^9, {3.927676032196456*^9, 
   3.927676060694741*^9}, 3.9318412106047373`*^9, 3.9318445406016617`*^9, 
   3.931844613034884*^9, 3.931844693345727*^9, {3.931844759759865*^9, 
   3.931844812626183*^9}, {3.931844850132077*^9, 3.931844876116769*^9}, 
   3.931844953274714*^9, 3.931844984872756*^9, 3.93184532059284*^9, 
   3.931845384427683*^9, 3.931845424875576*^9, {3.931845456935329*^9, 
   3.931845476336025*^9}, 3.931846464350108*^9, 3.93184662307586*^9, 
   3.93184666886123*^9, 3.931846903263373*^9, 3.931847007219405*^9, 
   3.931847640330867*^9, {3.931847716251297*^9, 3.931847740983764*^9}, 
   3.932010232117587*^9, 3.933912147438423*^9, 3.933912233596366*^9, 
   3.933912528562896*^9, {3.933912641171082*^9, 3.933912662484125*^9}, 
   3.933912698913493*^9, 3.933913794648573*^9, {3.933913859388191*^9, 
   3.93391387806192*^9}, 3.933913915853669*^9, 3.9339141096923146`*^9, 
   3.933914222976613*^9, 3.9339143371087303`*^9, 3.933914463873061*^9, 
   3.933914565952691*^9, 3.933914615390435*^9, 3.933914747886495*^9, 
   3.933916090819305*^9, 3.933916124479079*^9, 3.933916533353796*^9, 
   3.933916623888104*^9, 3.949640511922168*^9, 3.949641363119142*^9, 
   3.950076307827639*^9, 3.950076465028844*^9, 3.950077471848251*^9, 
   3.9500775852376213`*^9, 3.9500776794545517`*^9, 3.950077742465541*^9, 
   3.9500778704412003`*^9, 3.950077924180283*^9, 3.950077973062521*^9, 
   3.950078068180501*^9, 3.950078107082684*^9, 3.950078138002266*^9, 
   3.950078497789799*^9, 3.9500785774080153`*^9, 3.950146124228097*^9, 
   3.950146186893211*^9, 3.950146277503209*^9, 3.9501463316783867`*^9, 
   3.950146375701055*^9, 3.950147501999199*^9, 3.951028650325194*^9, 
   3.951028699077319*^9, {3.951028733338854*^9, 3.9510287895183773`*^9}, 
   3.951028824538539*^9, 3.9511828081065702`*^9, 3.951182848523045*^9, 
   3.951182913656501*^9, 3.95118294951294*^9, 3.95118302662289*^9, 
   3.951183082380781*^9, 3.951183122257812*^9, 3.9511831892854147`*^9, 
   3.951183323674474*^9, 3.95118337419845*^9, 3.951183472379436*^9, 
   3.951183820375997*^9, 3.9511838650633917`*^9, 3.951184297974369*^9, 
   3.951784462311075*^9, 3.951784515369216*^9, 3.951784560513164*^9, 
   3.951784596237406*^9, 3.953784117686633*^9, 3.9537842182799687`*^9, 
   3.9560445262817183`*^9, 3.979859555924876*^9, 3.979859954067987*^9, 
   3.979879700263932*^9, 3.979894640271017*^9, 3.979900384629471*^9, 
   3.979900557491692*^9, 3.97990299540814*^9, 3.980586797895834*^9, 
   3.980587092335167*^9},
 CellLabel->"Out[33]=",ExpressionUUID->"8c6007a5-3f08-49d2-8638-eb029a74739a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["\[Eta]"], "Input",
 CellChangeTimes->{{3.927174317137557*^9, 3.927174318873754*^9}},
 CellLabel->"In[34]:=",ExpressionUUID->"cdc6817d-014b-4f2f-be67-f7d489ab770c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0.0505`", ",", "0.000011624757146605938`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.0655`", ",", "0.000011624757146606024`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.08049999999999999`", ",", "0.00001162475714660586`"}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"0.0955`", ",", "0.000011624757146606024`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.927174319884759*^9, 3.927174636496972*^9, 3.927174932794962*^9, 
   3.927175591061904*^9, {3.927175723197928*^9, 3.927175820676371*^9}, 
   3.927176122504594*^9, {3.9271833532530003`*^9, 3.927183375147422*^9}, 
   3.927183598474152*^9, 3.927187532040118*^9, 3.927242914100443*^9, 
   3.927357512629142*^9, 3.927592947440102*^9, 3.927593121437443*^9, 
   3.927593207625892*^9, 3.927594496114101*^9, {3.9276760322181797`*^9, 
   3.927676060711084*^9}, 3.931841210619516*^9, 3.931844541443225*^9, 
   3.931844613716106*^9, 3.931844693374402*^9, {3.931844759780394*^9, 
   3.931844812641865*^9}, {3.931844850161729*^9, 3.931844876133848*^9}, 
   3.931844953293456*^9, 3.9318449849087725`*^9, 3.931845320616421*^9, 
   3.931845384471159*^9, 3.931845424897929*^9, {3.931845456953265*^9, 
   3.931845476356649*^9}, 3.931846464379422*^9, 3.9318466231317*^9, 
   3.931846668885206*^9, 3.931846903284821*^9, 3.931847007230578*^9, 
   3.931847640352826*^9, {3.93184771627063*^9, 3.931847741005397*^9}, 
   3.9320102321326113`*^9, 3.933912147450537*^9, 3.933912233615838*^9, 
   3.933912528581693*^9, {3.933912641189252*^9, 3.933912662502579*^9}, 
   3.933912698932819*^9, 3.933913794671972*^9, {3.933913859509264*^9, 
   3.933913878851825*^9}, 3.9339139158662643`*^9, 3.933914109702652*^9, 
   3.933914222994018*^9, 3.933914337131007*^9, 3.93391446388827*^9, 
   3.933914565967428*^9, 3.933914615409837*^9, 3.933914747908101*^9, 
   3.93391609083889*^9, 3.933916124496533*^9, 3.933916533364666*^9, 
   3.933916623906097*^9, 3.949640511940298*^9, 3.949641363138571*^9, 
   3.950076307846452*^9, 3.950076465043686*^9, 3.950077471860458*^9, 
   3.950077585252773*^9, 3.950077679472178*^9, 3.950077742482228*^9, 
   3.9500778704560843`*^9, 3.950077924196519*^9, 3.950077973078291*^9, 
   3.950078068199634*^9, 3.950078107103712*^9, 3.950078138016492*^9, 
   3.950078497807233*^9, 3.950078577421197*^9, 3.950146124246071*^9, 
   3.950146186915406*^9, 3.950146277518063*^9, 3.950146331698979*^9, 
   3.950146375722641*^9, 3.950147502016087*^9, 3.951028650340675*^9, 
   3.951028699094572*^9, {3.95102873335544*^9, 3.951028789534848*^9}, 
   3.951028824555005*^9, 3.951182808123567*^9, 3.951182848539816*^9, 
   3.951182913672545*^9, 3.951182949527823*^9, 3.951183026638313*^9, 
   3.951183082397944*^9, 3.95118312227494*^9, 3.9511831893017187`*^9, 
   3.951183323689199*^9, 3.951183374214561*^9, 3.951183472401822*^9, 
   3.951183820393268*^9, 3.9511838650798407`*^9, 3.9511842979941883`*^9, 
   3.951784462321897*^9, 3.951784515385445*^9, 3.951784560530109*^9, 
   3.951784596253965*^9, 3.953784117701814*^9, 3.953784218296252*^9, 
   3.956044526283682*^9, 3.97985955705437*^9, 3.979859954069825*^9, 
   3.979879700266004*^9, 3.979894640273336*^9, 3.979900384637858*^9, 
   3.979900558345591*^9, 3.97990299542114*^9, 3.980586797897716*^9, 
   3.980587092348164*^9},
 CellLabel->"Out[34]=",ExpressionUUID->"0d47d0ac-6282-43c4-9cc3-bc8cc26143f1"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "This", " ", "plot", " ", "shows", " ", "the", " ", "temperature", " ", 
   "dependence", " ", "of", " ", "the", " ", "quantum", " ", "current", " ", 
   "in", " ", "the", " ", "gapped", " ", "regime"}], "*)"}]], "Input",
 CellChangeTimes->{{3.979900592790375*^9, 3.9799005963978653`*^9}},
 CellLabel->"In[39]:=",ExpressionUUID->"9d90adab-387b-4e84-89ad-1527af6e6b3e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLogPlot", "[", 
  RowBox[{"\[Tau]", ",", 
   RowBox[{"PlotRange", "->", 
    RowBox[{"{", 
     RowBox[{"0", ",", "All"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.949640554435458*^9, 3.949640560694473*^9}, {
  3.979900389158384*^9, 3.979900407969641*^9}, {3.979900567392422*^9, 
  3.9799005802358427`*^9}, {3.980587140339973*^9, 3.980587140781443*^9}},
 CellLabel->"In[41]:=",ExpressionUUID->"32256925-d82c-46bb-93b4-10085f92ecd4"],

Cell[BoxData[
 GraphicsBox[{{}, 
   InterpretationBox[{
     TagBox[
      TagBox[
       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
        0.012833333333333334`], AbsoluteThickness[2], 
        PointBox[{{0.0505, -19.08448141680671}, {
         0.0655, -17.139132012683135`}, {
         0.08049999999999999, -15.924515185182736`}, {
         0.0955, -15.09354393916357}}]},
       Annotation[#, "Charting`Private`Tag#1"]& ],
      {"WolframDynamicHighlight", <|
       "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], 
     StyleBox[
      DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, 
        Slot["HighlightElements"], 
        Slot["LayoutOptions"], 
        Slot["Meta"], 
        Charting`HighlightActionFunction["DynamicHighlight", {{
           Annotation[{
             Directive[
              PointSize[0.012833333333333334`], 
              RGBColor[0.368417, 0.506779, 0.709798], 
              AbsoluteThickness[2]], 
             
             Point[{{0.0505, -19.08448141680671}, {
              0.0655, -17.139132012683135`}, {
              0.08049999999999999, -15.924515185182736`}, {
              0.0955, -15.09354393916357}}]}, "Charting`Private`Tag#1"]}}, <|
         "HighlightElements" -> <|
           "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
          "LayoutOptions" -> <|
           "PanelPlotLayout" -> <||>, 
            "PlotRange" -> {{0.04956250000000034, 
             0.0955}, {-21.82005286879094, -15.09354393916357}}, 
            "Frame" -> {{False, False}, {False, False}}, 
            "AxesOrigin" -> {0.04956250000000034, -21.82005286879094}, 
            "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
            "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
            "DefaultStyle" -> {
              Directive[
               PointSize[0.012833333333333334`], 
               RGBColor[0.368417, 0.506779, 0.709798], 
               AbsoluteThickness[2]]}, 
            "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
                Identity[
                 Part[#, 1]], 
                Exp[
                 Part[#, 2]]}& ), 
              "ScalingFunctions" -> {{Identity, Identity}, {Log, Exp}}|>, 
            "Primitives" -> {}, "GCFlag" -> False|>, 
          "Meta" -> <|
           "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
            ListLogPlot, "GroupHighlight" -> False|>|>]]& )[<|
        "HighlightElements" -> <|
          "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
         "LayoutOptions" -> <|
          "PanelPlotLayout" -> <||>, 
           "PlotRange" -> {{0.04956250000000034, 
            0.0955}, {-21.82005286879094, -15.09354393916357}}, 
           "Frame" -> {{False, False}, {False, False}}, 
           "AxesOrigin" -> {0.04956250000000034, -21.82005286879094}, 
           "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
           "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
           "DefaultStyle" -> {
             Directive[
              PointSize[0.012833333333333334`], 
              RGBColor[0.368417, 0.506779, 0.709798], 
              AbsoluteThickness[2]]}, 
           "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
               Identity[
                Part[#, 1]], 
               Exp[
                Part[#, 2]]}& ), 
             "ScalingFunctions" -> {{Identity, Identity}, {Log, Exp}}|>, 
           "Primitives" -> {}, "GCFlag" -> False|>, 
         "Meta" -> <|
          "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
           ListLogPlot, "GroupHighlight" -> False|>|>],
       ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, {
        4.503599627370496*^15, -4.503599627370496*^15}}],
      Selectable->False]},
    Annotation[{{
       Annotation[{
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[2]], 
         Point[{{0.0505, -19.08448141680671}, {
          0.0655, -17.139132012683135`}, {
          0.08049999999999999, -15.924515185182736`}, {
          0.0955, -15.09354393916357}}]}, "Charting`Private`Tag#1"]}}, <|
     "HighlightElements" -> <|
       "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
      "LayoutOptions" -> <|
       "PanelPlotLayout" -> <||>, 
        "PlotRange" -> {{0.04956250000000034, 
         0.0955}, {-21.82005286879094, -15.09354393916357}}, 
        "Frame" -> {{False, False}, {False, False}}, 
        "AxesOrigin" -> {0.04956250000000034, -21.82005286879094}, 
        "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
        "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
          Directive[
           PointSize[0.012833333333333334`], 
           RGBColor[0.368417, 0.506779, 0.709798], 
           AbsoluteThickness[2]]}, 
        "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
            Identity[
             Part[#, 1]], 
            Exp[
             Part[#, 2]]}& ), 
          "ScalingFunctions" -> {{Identity, Identity}, {Log, Exp}}|>, 
        "Primitives" -> {}, "GCFlag" -> False|>, 
      "Meta" -> <|
       "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
        ListLogPlot, "GroupHighlight" -> False|>|>, 
     "DynamicHighlight"]], {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0.04956250000000034, -21.82005286879094},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{
     Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> 
      15.954589770191003`, RotateLabel -> 0], 
     Charting`ScaledFrameTicks[{Log, Exp}]}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "DefaultPlotStyle" -> {
      Directive[
       RGBColor[0.368417, 0.506779, 0.709798], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.880722, 0.611041, 0.142051], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.560181, 0.691569, 0.194885], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.922526, 0.385626, 0.209179], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.528488, 0.470624, 0.701351], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.772079, 0.431554, 0.102387], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.363898, 0.618501, 0.782349], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[1, 0.75, 0], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.647624, 0.37816, 0.614037], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.571589, 0.586483, 0.], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.915, 0.3325, 0.2125], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
       AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], 
    "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], 
    "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint", 
    "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Exp[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Exp[
         Part[#, 2]]}& )}},
  PlotRange->{{0.04956250000000034, 
   0.0955}, {-21.82005286879094, -15.09354393916357}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->FrontEndValueCache[{Automatic, 
     Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> 
      15.954589770191003`, RotateLabel -> 0]}, {
    Automatic, {{-21.416413017506358`, 
       FormBox[
        TemplateBox[{"\[Times]", "\"\[Times]\"", "5", 
          TemplateBox[{"10", 
            RowBox[{"-", "10"}]}, "Superscript", SyntaxForm -> 
           SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 
       0.}}, {-20.72326583694641, 
       FormBox[
        TemplateBox[{"\[Times]", "\"\[Times]\"", "1", 
          TemplateBox[{"10", 
            RowBox[{"-", "9"}]}, "Superscript", SyntaxForm -> 
           SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 
       0.}}, {-19.11382792451231, 
       FormBox[
        TemplateBox[{"\[Times]", "\"\[Times]\"", "5", 
          TemplateBox[{"10", 
            RowBox[{"-", "9"}]}, "Superscript", SyntaxForm -> 
           SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 
       0.}}, {-18.420680743952367`, 
       FormBox[
        TemplateBox[{"\[Times]", "\"\[Times]\"", "1", 
          TemplateBox[{"10", 
            RowBox[{"-", "8"}]}, "Superscript", SyntaxForm -> 
           SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 
       0.}}, {-16.811242831518264`, 
       FormBox[
        TemplateBox[{"\[Times]", "\"\[Times]\"", "5", 
          TemplateBox[{"10", 
            RowBox[{"-", "8"}]}, "Superscript", SyntaxForm -> 
           SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 
       0.}}, {-16.11809565095832, 
       FormBox[
        TemplateBox[{"\[Times]", "\"\[Times]\"", "1", 
          TemplateBox[{"10", 
            RowBox[{"-", "7"}]}, "Superscript", SyntaxForm -> 
           SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 
       0.}}, {-23.7189981105004, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-23.536676553706446`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-23.38252587387919, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-23.248994481254666`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-23.131211445598282`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-23.025850929940457`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-22.33270374938051, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-21.927238641272346`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-21.639556568820566`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-21.234091460712403`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-21.079940780885142`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-20.94640938826062, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-20.82862635260424, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-20.030118656386467`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-19.624653548278303`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-19.33697147582652, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-18.931506367718356`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-18.7773556878911, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-18.643824295266576`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-18.526041259610192`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-17.72753356339242, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-17.322068455284256`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-17.034386382832476`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-16.62892127472431, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-16.474770594897052`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-16.34123920227253, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-16.223456166616145`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-15.424948470398375`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-15.01948336229021, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-14.73180128983843, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-14.508657738524219`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-14.326336181730264`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-14.172185501903007`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-14.038654109278484`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-13.9208710736221, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-13.815510557964274`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}}}]]], "Output",
 CellChangeTimes->{
  3.949640561347951*^9, 3.949641363262444*^9, 3.950076307967383*^9, 
   3.950076465074743*^9, 3.950077472009079*^9, 3.950077585396762*^9, 
   3.950077679651401*^9, 3.950077742631005*^9, 3.950077870576664*^9, 
   3.950077924318104*^9, 3.950077973201948*^9, 3.9500780683335238`*^9, 
   3.950078107221238*^9, 3.950078138144259*^9, 3.950078497949533*^9, 
   3.950078577547597*^9, 3.950146124404922*^9, 3.950146187095255*^9, 
   3.950146277646315*^9, 3.950146331826647*^9, 3.950146375895235*^9, 
   3.950147502165617*^9, 3.951028650528721*^9, 3.951028699266307*^9, {
   3.951028733529207*^9, 3.951028789683823*^9}, 3.951028824716943*^9, 
   3.951182808278933*^9, 3.951182848667491*^9, 3.951182913790868*^9, 
   3.951182949649374*^9, 3.9511830267639427`*^9, 3.951183082518997*^9, 
   3.951183122445991*^9, 3.9511831894299726`*^9, 3.951183323813019*^9, 
   3.951183374339813*^9, 3.951183472523464*^9, 3.951183820519136*^9, 
   3.951183865204327*^9, 3.951184298117946*^9, 3.9517844624435043`*^9, 
   3.951784515508594*^9, 3.951784560652222*^9, 3.951784596424142*^9, 
   3.953784117873542*^9, 3.953784218465019*^9, 3.956044526510442*^9, 
   3.979859559568615*^9, 3.979859954286758*^9, 3.9798797004904613`*^9, 
   3.979894640454447*^9, {3.979900384877822*^9, 3.979900409886364*^9}, {
   3.979900561466486*^9, 3.979900580632053*^9}, 3.979902995655881*^9, 
   3.9805867980841923`*^9, 3.9805870959607477`*^9, 3.980587141361335*^9},
 CellLabel->"Out[41]=",ExpressionUUID->"c313fdf1-240f-4d8d-bad7-72ea6325d38c"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "In", " ", "this", " ", "plot", " ", "we", " ", "compared", " ", "the", 
    " ", "temperature", " ", "dependence", " ", "of", " ", "quantum", " ", 
    "current", " ", "with", " ", "the", " ", "analytic", " ", "expression"}], 
   "*)"}]}]], "Input",
 CellChangeTimes->{
  3.979903393589919*^9, {3.979903511811971*^9, 3.979903561787559*^9}},
 CellLabel->"In[41]:=",ExpressionUUID->"cc2fbdb3-75f2-4571-9fd0-654a8aa4718c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"p2", "=", 
  RowBox[{"Show", "[", 
   RowBox[{
    RowBox[{"LogPlot", "[", 
     RowBox[{
      RowBox[{"0.0000085", "*", 
       FractionBox[
        RowBox[{"Exp", "[", 
         FractionBox[
          RowBox[{
           RowBox[{"-", "\[HBar]"}], " ", "\[Omega]0"}], 
          RowBox[{"kb", " ", "T"}]], "]"}], 
        SqrtBox["T"]]}], ",", 
      RowBox[{"{", 
       RowBox[{"T", ",", "0.001", ",", "0.1"}], "}"}], ",", 
      RowBox[{"PlotRange", "->", "All"}]}], "]"}], ",", 
    RowBox[{"ListLogPlot", "[", 
     RowBox[{"\[Tau]", ",", 
      RowBox[{"PlotRange", "->", 
       RowBox[{"{", 
        RowBox[{"0", ",", "All"}], "}"}]}]}], "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.9799030443138933`*^9, 3.9799031343053427`*^9}, {
   3.979903348657878*^9, 3.979903400553487*^9}, 3.9805868105814943`*^9, {
   3.980586928653002*^9, 3.980587015090353*^9}, {3.980587101070448*^9, 
   3.980587111595874*^9}, {3.98058714851343*^9, 3.9805871526440163`*^9}},
 CellLabel->"In[42]:=",ExpressionUUID->"cdb29bdb-f087-4abd-8922-d9151040ce33"],

Cell[BoxData[
 GraphicsBox[{
   InterpretationBox[{
     TagBox[{{{}, {}, 
        TagBox[
         {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], 
          Opacity[1.], LineBox[CompressedData["
1:eJwV1Wk4FAwbBWBZUhIhaSVCsgxJKuEZGUvWGcYwtuz7Otmp7MmSrAmFQqFC
1pmkp5fsb+QtlSItikJJ2dPX9+Nc57p/nl9H3MnfzJWdjY3t1d/8v3vAdM3U
iQz+gmTWj5Ao3OG/IFj5jgx1GrQUamkkelwr2s/pSAHqJO9Yx0gEcv/+Rm4+
ZQYNNlWM2YBwpMnnuQq+NYNPvxO55rvCsNyGGOFjbw6no2WXCw+EIYl16cZe
Oypc156dPskeitmTR5sj3lBBgfY1Tjk8BD9sf9f3zMYCVOpr+M/NB2Ns6MH5
JGsaxJiEbEpnD8an5a94PryiQW4wf0f6pSDcOxQjpkG3hCSeSk7ffUH4UGVQ
f9bSCkJme3pSaKeRzyXCzvCFFRgcbF7SnmegfZYEo4xGhz3Gkl3tVxi4Osso
oFtYw8A4rYj0NRCNxHfV1D2zBpc9DZxjeYFYQG5r30y1gX87vnNGnQxEtWqh
mUdmtiBeE90jVBeAF0bvs+8etIUdDoFJj70D8OVmF5EQih1Mvpy1+iAdgKE+
9URZsj1wiswLD+r543B25cluaQdQGgpeZ+/ji7G318xD3Bzgm4HaVOKaDx5o
N7PfV+4AipELvxazfDBsbplxRsoRiJM7pqW6vFHEzLDwoKQTdC1tzhE088JW
z6LyUWcnOJM+2Px+2RPdYuZqUm44weHH18jc5Z7YWFPweFzCGWbYVXu+s3si
lX9q5oq4C8zM3+pfeuaOq9LEJV1HF+gwCVrYftEdSzWzOX4Wu0DQpIzhjL47
zvmqbzfZ6wrFqx8Tz7S5YWZfqha7mBsYb+54fKPHFdU+jhlW27tB+IYYwY/p
rvhuRYVme80NGloEbvrTXFFJbsSrcY873PXNe63x2QX7Lyhke+32gJb1wXk3
trmg4DrdDoajBwhS2Jc3vnNGapj9YkS5B1ySGee/etsZX7ql26YoeUL8PbN7
EnrOOKY9K3mb5AVFSkNn65KcUOL+Rsv6C14Q/uvcapyNE7ooS1xoeeIFlMuH
CjUUnXBir/l0n5U3LEXF3SS/csTvv+sbpn18YMFV11H7iCMqB//7+VetD8gO
qBje2uKIQVPjO9bmfaCbozHn8RcHXBzedpYvxhdcu2y3CJc4IFtzmK5ijh90
2xLn44QdcMOxa97N9gFQq8u1xKtijxVBlfHqMQHQX1kQ2b9khwY1jVfxRgC0
/pTfH492mLq/v79rIgBEOPZ33ybb4ZZtbCqvGIHgX+k66xRpi9vnHFeXEhkg
LdJSIjVvjUyCn/DZCgbk+VOHKrqs0dorgsDex4CPElUxzwussfBdpgOPwGko
7LnKIUyyxr0Dbe07C06DkMe14qECOh64I5V2vDoI1BxOazxwtUKjDRnbQ/qD
IOLpsneZthUGOK/eqPkWBKzu8JF5cSts3PEfS0opGKYq1NY/eWuJpMToCf7a
YOgc2Gewy8ESHU691v54LwRGmgZfPQqkYTxLt1/0vxDINjzoz7Cg4U3he9b0
uRCgr8/rYByj4UxvUuCTQ6HQr1OTZMdOw6ijqkXN9aGwVc8ttvmyBeYJZCyn
NoaBbenu0dh+Krb4rCZ0DoWBbAXalzRR8W2nuwD7QhhwFmU++F1ERemzmjKh
R8JhUu6/Uz6BVKz/8tXCsTkc/AsHtDaIUHGgTbf2MCsC+MYNZ6N9zJE7ZNV9
9EEUCK+qDfocN8MAw6u7QkeiwFaHzicma4bDezX7+X9HQV2j2oGF7WZ4t/ec
qpb6GWhKPsMvskBBqjgHVynrDAhQJq9uaKBgcd/G655NZyGn1JybcoSCPNcr
LdhfnAXzkIRsORkKng413FgwfxZGVW7KS+2goK5EWkDf4XPwK1mIM2iFjFOh
W0Cx/hyYVjmZhDwiY2HGJr8Iq2joTLoy8MiMjJTV1526HtFw8XVanbMOGde7
3xYXCosGl/IEuthRMvqrGz+vuhwNIaSmzvd7yHji80X1kaFoeBnuWi/53BQn
1AU3ES1i4NDmIaV7W0xRZWL7LS6zWBCT/jTacNMYB7yGe2WcY+FEV0562SVj
9J4u+GYYFAtVLcnGGG6M13+IHsnMjQWV2/Jbg42Mkf+3ZIfo61h4Rbos1j9n
hF8EDn484hIHfu7RPOMnjbDo+Mm9XiHxgN9Yee+3GKJaKw8p7Xw8JLwayfRc
M8AhYp97TV48xItwhfJPGSCvrmn1PCsefN6K9zR2GmAE2UIz7k88ENfavb2j
DZDq6mhbmJQAw8R2ecLCSeRJD897kp8I67tFM8wW9dGtxOtXX2UivPzp4qfy
RR/b6mzMelmJINeedVL2jT5GvdTg7RpOhODwAAoF9XFGnD360c7zsJjMsz/p
gj7+V5/sXp9/HqbvK1qGiOlj4XCBan5+EpzsfW5sYaWHi1OpWXmVSZCfXE31
NdJDiz9nvueykuA0/8qbbKIe8kk6VGYNJ0EP96clgQN6GO0rKZq28wLEm6HC
o2VddGW7wxWdfwGG18XWDxfrIkG69ZlrfjLIgOoPrQUdDCQXr7CqksHE8MKD
41M6WB8RK7HlQTI8/XxnRvudDh7v1w1gvU2G2dEmwXO9Oqgf1r+JXyoFeuRi
na8W66Bjz9iJ5uoUaKXVbHM21sFsP45ansep8CyxneReQ8IXeeMvTg2lgo2k
b/pqOQl3tnWu1X9OBZ0rJ9SvXiVhsUiq0SmeNCh2aPBiSyHhHdw6UWeaBjNa
OycN3UjYISgtZjecBrv7pkI/iZJwqVE/rfrbRRjyzpWpuqyNDtd0uurY0oEw
85Z+N10bOxJOcDQLpMOv+zr2rPPamElVD8dD6UB8HVk+FaqNsj8UXZ+GpkPk
G67yZitttFUQ0Zj7kw5lKZXk97u0cewpI2RX0iVIkoosEb91ArX1taRP5WVA
izn7z77nWjgUZzlmUpwBP9UpHZsHtNDroW++5q0MINhtGzDv0cJM1Xw+0eYM
MFF/7/utVQvHJOfm37zIAB9eyy0ut7Tw7LqyTmuRTECiO7dGlBayWBs8abmZ
0Ho8YDB6vxYqKQxUGWdnwS0nvxqeFCI2/RztmSjMAnqqsQRXIhE1W6Yn48qy
YGtJ83rOGCIaGW6SYTVmQUb7AD9/KBE9PHVLpV9lgdyJnBi6MxGLy1oK/+zJ
BulA4iJLnYhbRCvSam9mQ7RCR7LwOOB3vlh/4fs5IHBJvqhwUBOtrsnIibbl
wL8v0omcvZr4UKH/k3RvDjylfk8NbNPEi0a77Y++zoGLcxc329VrokJyo5HN
Sg5w3U1nC83VRC+urwdKjufC6aQYu1obTfy4Yv5RviUXzFcaD4t80cAXE1J0
0oPLkNw2bR0prIFi7uIdFg1XoOWozDFG2XFUew+BxJcFELxc09lFUcMoC/KJ
zKGrMBFjRbbWOoaZj+MoD/4UwVc1MZtV4lHk9OVmuPKXwHrbD3M+rkfQfE7n
SRHvdUjViG+i1ajipsWcbl2xGxDsfkwtYZ0qvlgctSwRK4WbpyrL4vwPI2/Y
sQSPw2Vg0FmadvidCjK64ede3XKQN13QN3RWwa/bYD6VdBOEtHlGwxcP4ZP3
ppddrW5Bq+xSd/vFQ9heSe+dpVcA6X74TneVQ/iVxK/lT6sE2Q+RaXXvlTHS
bsiC7lEFsT3j8ZOXlFGMkft73v027KuJTyMbKKM8lwdp3Zk7sHH5z5Q9hzJ6
eY33rabehVRp/l+P/zmI93ttJqqSq4GiRKdlJ//188CnH0xqwKoaxG5QDuJ1
beUww/4acOusrfwgdhBL8rseyhnXwmeXZkPuH0r4vOYz7Z/ntX/3npPTaFNC
IZ24JmWLexB0cOT1vnwlTMy76U5/ew/GjxiX7wtQQg4v/Xd0hzrQsGQNiRkq
YZ7kw5XB0Tr4J2uW9kBGCR2vtbqye9SDXkp9sCeXEqrkql3ZNFEP3E8XRo37
FFHdGHb3MhpAZNexpnWpimg7vYPIsdIA0+MBi6JkRUzcFKggHNEIMmUshR87
FXF8guw1wtEEvdaWWZwfCWhCuhNwLr4JbIi1FPE6AvYnvRXJZ28G3otr3MYJ
BIxPzefzTmmG/NVG6LQgoDbf4BPhTUzQDZh9Zi9HwMshwyOmm5kQwyWSXCZL
wK+j76cu8DNhcE7RaeoAAbOq53jWhJhw/JNwZIQMAT+QhfU+7WbCrwMVJnlS
BIzLsnrYSGDC45iaoGExArZtf1ttacYEgxzeyLCtBBSJ+dyaQWXCnpHwqDYh
AnpPfvu3l8YEXuXaIr6/FmKxTYENE+ob6IZlAgR0tpGQkXFhghkzW/UZHwE5
rrkWLwYz4cjLp9SjGwloud6vWjmMCQORZX4JGwhY5RfS6hPBhAcedRWD3AQ0
h/Nvxs4ygV5oHee7noA3xm5t7z7PhBPJo22lHARc0K/dz5HMhG2xqZ9+sBPQ
sJapqpHKhJ/8BFmtv56L6aHWXmKCcr/M1lE2Aup9GXT+msmE5bAAlvxfF5i9
ZkjlMKGgIikm8o/C39v8EHPqMhNWSj08e9YUUHvf1KUrV5ggdI+bseOv/wc9
X6Cf
           "]]},
         Annotation[#, "Charting`Private`Tag#1"]& ]}, {}},
      {"WolframDynamicHighlight", <|
       "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], 
     StyleBox[
      DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, 
        Slot["HighlightElements"], 
        Slot["LayoutOptions"], 
        Slot["Meta"], 
        Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, 
            Annotation[{
              Directive[
               Opacity[1.], 
               RGBColor[0.368417, 0.506779, 0.709798], 
               AbsoluteThickness[2]], 
              Line[CompressedData["
1:eJwV1Wk4FAwbBWBZUhIhaSVCsgxJKuEZGUvWGcYwtuz7Otmp7MmSrAmFQqFC
1pmkp5fsb+QtlSItikJJ2dPX9+Nc57p/nl9H3MnfzJWdjY3t1d/8v3vAdM3U
iQz+gmTWj5Ao3OG/IFj5jgx1GrQUamkkelwr2s/pSAHqJO9Yx0gEcv/+Rm4+
ZQYNNlWM2YBwpMnnuQq+NYNPvxO55rvCsNyGGOFjbw6no2WXCw+EIYl16cZe
Oypc156dPskeitmTR5sj3lBBgfY1Tjk8BD9sf9f3zMYCVOpr+M/NB2Ns6MH5
JGsaxJiEbEpnD8an5a94PryiQW4wf0f6pSDcOxQjpkG3hCSeSk7ffUH4UGVQ
f9bSCkJme3pSaKeRzyXCzvCFFRgcbF7SnmegfZYEo4xGhz3Gkl3tVxi4Osso
oFtYw8A4rYj0NRCNxHfV1D2zBpc9DZxjeYFYQG5r30y1gX87vnNGnQxEtWqh
mUdmtiBeE90jVBeAF0bvs+8etIUdDoFJj70D8OVmF5EQih1Mvpy1+iAdgKE+
9URZsj1wiswLD+r543B25cluaQdQGgpeZ+/ji7G318xD3Bzgm4HaVOKaDx5o
N7PfV+4AipELvxazfDBsbplxRsoRiJM7pqW6vFHEzLDwoKQTdC1tzhE088JW
z6LyUWcnOJM+2Px+2RPdYuZqUm44weHH18jc5Z7YWFPweFzCGWbYVXu+s3si
lX9q5oq4C8zM3+pfeuaOq9LEJV1HF+gwCVrYftEdSzWzOX4Wu0DQpIzhjL47
zvmqbzfZ6wrFqx8Tz7S5YWZfqha7mBsYb+54fKPHFdU+jhlW27tB+IYYwY/p
rvhuRYVme80NGloEbvrTXFFJbsSrcY873PXNe63x2QX7Lyhke+32gJb1wXk3
trmg4DrdDoajBwhS2Jc3vnNGapj9YkS5B1ySGee/etsZX7ql26YoeUL8PbN7
EnrOOKY9K3mb5AVFSkNn65KcUOL+Rsv6C14Q/uvcapyNE7ooS1xoeeIFlMuH
CjUUnXBir/l0n5U3LEXF3SS/csTvv+sbpn18YMFV11H7iCMqB//7+VetD8gO
qBje2uKIQVPjO9bmfaCbozHn8RcHXBzedpYvxhdcu2y3CJc4IFtzmK5ijh90
2xLn44QdcMOxa97N9gFQq8u1xKtijxVBlfHqMQHQX1kQ2b9khwY1jVfxRgC0
/pTfH492mLq/v79rIgBEOPZ33ybb4ZZtbCqvGIHgX+k66xRpi9vnHFeXEhkg
LdJSIjVvjUyCn/DZCgbk+VOHKrqs0dorgsDex4CPElUxzwussfBdpgOPwGko
7LnKIUyyxr0Dbe07C06DkMe14qECOh64I5V2vDoI1BxOazxwtUKjDRnbQ/qD
IOLpsneZthUGOK/eqPkWBKzu8JF5cSts3PEfS0opGKYq1NY/eWuJpMToCf7a
YOgc2Gewy8ESHU691v54LwRGmgZfPQqkYTxLt1/0vxDINjzoz7Cg4U3he9b0
uRCgr8/rYByj4UxvUuCTQ6HQr1OTZMdOw6ijqkXN9aGwVc8ttvmyBeYJZCyn
NoaBbenu0dh+Krb4rCZ0DoWBbAXalzRR8W2nuwD7QhhwFmU++F1ERemzmjKh
R8JhUu6/Uz6BVKz/8tXCsTkc/AsHtDaIUHGgTbf2MCsC+MYNZ6N9zJE7ZNV9
9EEUCK+qDfocN8MAw6u7QkeiwFaHzicma4bDezX7+X9HQV2j2oGF7WZ4t/ec
qpb6GWhKPsMvskBBqjgHVynrDAhQJq9uaKBgcd/G655NZyGn1JybcoSCPNcr
LdhfnAXzkIRsORkKng413FgwfxZGVW7KS+2goK5EWkDf4XPwK1mIM2iFjFOh
W0Cx/hyYVjmZhDwiY2HGJr8Iq2joTLoy8MiMjJTV1526HtFw8XVanbMOGde7
3xYXCosGl/IEuthRMvqrGz+vuhwNIaSmzvd7yHji80X1kaFoeBnuWi/53BQn
1AU3ES1i4NDmIaV7W0xRZWL7LS6zWBCT/jTacNMYB7yGe2WcY+FEV0562SVj
9J4u+GYYFAtVLcnGGG6M13+IHsnMjQWV2/Jbg42Mkf+3ZIfo61h4Rbos1j9n
hF8EDn484hIHfu7RPOMnjbDo+Mm9XiHxgN9Yee+3GKJaKw8p7Xw8JLwayfRc
M8AhYp97TV48xItwhfJPGSCvrmn1PCsefN6K9zR2GmAE2UIz7k88ENfavb2j
DZDq6mhbmJQAw8R2ecLCSeRJD897kp8I67tFM8wW9dGtxOtXX2UivPzp4qfy
RR/b6mzMelmJINeedVL2jT5GvdTg7RpOhODwAAoF9XFGnD360c7zsJjMsz/p
gj7+V5/sXp9/HqbvK1qGiOlj4XCBan5+EpzsfW5sYaWHi1OpWXmVSZCfXE31
NdJDiz9nvueykuA0/8qbbKIe8kk6VGYNJ0EP96clgQN6GO0rKZq28wLEm6HC
o2VddGW7wxWdfwGG18XWDxfrIkG69ZlrfjLIgOoPrQUdDCQXr7CqksHE8MKD
41M6WB8RK7HlQTI8/XxnRvudDh7v1w1gvU2G2dEmwXO9Oqgf1r+JXyoFeuRi
na8W66Bjz9iJ5uoUaKXVbHM21sFsP45ansep8CyxneReQ8IXeeMvTg2lgo2k
b/pqOQl3tnWu1X9OBZ0rJ9SvXiVhsUiq0SmeNCh2aPBiSyHhHdw6UWeaBjNa
OycN3UjYISgtZjecBrv7pkI/iZJwqVE/rfrbRRjyzpWpuqyNDtd0uurY0oEw
85Z+N10bOxJOcDQLpMOv+zr2rPPamElVD8dD6UB8HVk+FaqNsj8UXZ+GpkPk
G67yZitttFUQ0Zj7kw5lKZXk97u0cewpI2RX0iVIkoosEb91ArX1taRP5WVA
izn7z77nWjgUZzlmUpwBP9UpHZsHtNDroW++5q0MINhtGzDv0cJM1Xw+0eYM
MFF/7/utVQvHJOfm37zIAB9eyy0ut7Tw7LqyTmuRTECiO7dGlBayWBs8abmZ
0Ho8YDB6vxYqKQxUGWdnwS0nvxqeFCI2/RztmSjMAnqqsQRXIhE1W6Yn48qy
YGtJ83rOGCIaGW6SYTVmQUb7AD9/KBE9PHVLpV9lgdyJnBi6MxGLy1oK/+zJ
BulA4iJLnYhbRCvSam9mQ7RCR7LwOOB3vlh/4fs5IHBJvqhwUBOtrsnIibbl
wL8v0omcvZr4UKH/k3RvDjylfk8NbNPEi0a77Y++zoGLcxc329VrokJyo5HN
Sg5w3U1nC83VRC+urwdKjufC6aQYu1obTfy4Yv5RviUXzFcaD4t80cAXE1J0
0oPLkNw2bR0prIFi7uIdFg1XoOWozDFG2XFUew+BxJcFELxc09lFUcMoC/KJ
zKGrMBFjRbbWOoaZj+MoD/4UwVc1MZtV4lHk9OVmuPKXwHrbD3M+rkfQfE7n
SRHvdUjViG+i1ajipsWcbl2xGxDsfkwtYZ0qvlgctSwRK4WbpyrL4vwPI2/Y
sQSPw2Vg0FmadvidCjK64ede3XKQN13QN3RWwa/bYD6VdBOEtHlGwxcP4ZP3
ppddrW5Bq+xSd/vFQ9heSe+dpVcA6X74TneVQ/iVxK/lT6sE2Q+RaXXvlTHS
bsiC7lEFsT3j8ZOXlFGMkft73v027KuJTyMbKKM8lwdp3Zk7sHH5z5Q9hzJ6
eY33rabehVRp/l+P/zmI93ttJqqSq4GiRKdlJ//188CnH0xqwKoaxG5QDuJ1
beUww/4acOusrfwgdhBL8rseyhnXwmeXZkPuH0r4vOYz7Z/ntX/3npPTaFNC
IZ24JmWLexB0cOT1vnwlTMy76U5/ew/GjxiX7wtQQg4v/Xd0hzrQsGQNiRkq
YZ7kw5XB0Tr4J2uW9kBGCR2vtbqye9SDXkp9sCeXEqrkql3ZNFEP3E8XRo37
FFHdGHb3MhpAZNexpnWpimg7vYPIsdIA0+MBi6JkRUzcFKggHNEIMmUshR87
FXF8guw1wtEEvdaWWZwfCWhCuhNwLr4JbIi1FPE6AvYnvRXJZ28G3otr3MYJ
BIxPzefzTmmG/NVG6LQgoDbf4BPhTUzQDZh9Zi9HwMshwyOmm5kQwyWSXCZL
wK+j76cu8DNhcE7RaeoAAbOq53jWhJhw/JNwZIQMAT+QhfU+7WbCrwMVJnlS
BIzLsnrYSGDC45iaoGExArZtf1ttacYEgxzeyLCtBBSJ+dyaQWXCnpHwqDYh
AnpPfvu3l8YEXuXaIr6/FmKxTYENE+ob6IZlAgR0tpGQkXFhghkzW/UZHwE5
rrkWLwYz4cjLp9SjGwloud6vWjmMCQORZX4JGwhY5RfS6hPBhAcedRWD3AQ0
h/Nvxs4ygV5oHee7noA3xm5t7z7PhBPJo22lHARc0K/dz5HMhG2xqZ9+sBPQ
sJapqpHKhJ/8BFmtv56L6aHWXmKCcr/M1lE2Aup9GXT+msmE5bAAlvxfF5i9
ZkjlMKGgIikm8o/C39v8EHPqMhNWSj08e9YUUHvf1KUrV5ggdI+bseOv/wc9
X6Cf
               "]]}, "Charting`Private`Tag#1"]}}, {}}, <|
         "HighlightElements" -> <|
           "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
          "LayoutOptions" -> <|
           "PanelPlotLayout" -> <||>, "PlotRange" -> {All, All}, 
            "Frame" -> {{False, False}, {False, False}}, 
            "AxesOrigin" -> {0, -455.4342597129633}, 
            "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
            "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
            "DefaultStyle" -> {
              Directive[
               Opacity[1.], 
               RGBColor[0.368417, 0.506779, 0.709798], 
               AbsoluteThickness[2]]}, 
            "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
                Identity[
                 Part[#, 1]], 
                Exp[
                 Part[#, 2]]}& ), 
              "ScalingFunctions" -> {{Identity, Identity}, {Log, Exp}}|>, 
            "Primitives" -> {}, "GCFlag" -> False|>, 
          "Meta" -> <|
           "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
            Plot, "GroupHighlight" -> False|>|>]]& )[<|
        "HighlightElements" -> <|
          "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
         "LayoutOptions" -> <|
          "PanelPlotLayout" -> <||>, "PlotRange" -> {All, All}, 
           "Frame" -> {{False, False}, {False, False}}, 
           "AxesOrigin" -> {0, -455.4342597129633}, 
           "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
           "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
           "DefaultStyle" -> {
             Directive[
              Opacity[1.], 
              RGBColor[0.368417, 0.506779, 0.709798], 
              AbsoluteThickness[2]]}, 
           "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
               Identity[
                Part[#, 1]], 
               Exp[
                Part[#, 2]]}& ), 
             "ScalingFunctions" -> {{Identity, Identity}, {Log, Exp}}|>, 
           "Primitives" -> {}, "GCFlag" -> False|>, 
         "Meta" -> <|
          "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
           Plot, "GroupHighlight" -> False|>|>],
       ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, {
        4.503599627370496*^15, -4.503599627370496*^15}}],
      Selectable->False]},
    Annotation[{{{{}, {}, 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[0.368417, 0.506779, 0.709798], 
           AbsoluteThickness[2]], 
          Line[CompressedData["
1:eJwV1Wk4FAwbBWBZUhIhaSVCsgxJKuEZGUvWGcYwtuz7Otmp7MmSrAmFQqFC
1pmkp5fsb+QtlSItikJJ2dPX9+Nc57p/nl9H3MnfzJWdjY3t1d/8v3vAdM3U
iQz+gmTWj5Ao3OG/IFj5jgx1GrQUamkkelwr2s/pSAHqJO9Yx0gEcv/+Rm4+
ZQYNNlWM2YBwpMnnuQq+NYNPvxO55rvCsNyGGOFjbw6no2WXCw+EIYl16cZe
Oypc156dPskeitmTR5sj3lBBgfY1Tjk8BD9sf9f3zMYCVOpr+M/NB2Ns6MH5
JGsaxJiEbEpnD8an5a94PryiQW4wf0f6pSDcOxQjpkG3hCSeSk7ffUH4UGVQ
f9bSCkJme3pSaKeRzyXCzvCFFRgcbF7SnmegfZYEo4xGhz3Gkl3tVxi4Osso
oFtYw8A4rYj0NRCNxHfV1D2zBpc9DZxjeYFYQG5r30y1gX87vnNGnQxEtWqh
mUdmtiBeE90jVBeAF0bvs+8etIUdDoFJj70D8OVmF5EQih1Mvpy1+iAdgKE+
9URZsj1wiswLD+r543B25cluaQdQGgpeZ+/ji7G318xD3Bzgm4HaVOKaDx5o
N7PfV+4AipELvxazfDBsbplxRsoRiJM7pqW6vFHEzLDwoKQTdC1tzhE088JW
z6LyUWcnOJM+2Px+2RPdYuZqUm44weHH18jc5Z7YWFPweFzCGWbYVXu+s3si
lX9q5oq4C8zM3+pfeuaOq9LEJV1HF+gwCVrYftEdSzWzOX4Wu0DQpIzhjL47
zvmqbzfZ6wrFqx8Tz7S5YWZfqha7mBsYb+54fKPHFdU+jhlW27tB+IYYwY/p
rvhuRYVme80NGloEbvrTXFFJbsSrcY873PXNe63x2QX7Lyhke+32gJb1wXk3
trmg4DrdDoajBwhS2Jc3vnNGapj9YkS5B1ySGee/etsZX7ql26YoeUL8PbN7
EnrOOKY9K3mb5AVFSkNn65KcUOL+Rsv6C14Q/uvcapyNE7ooS1xoeeIFlMuH
CjUUnXBir/l0n5U3LEXF3SS/csTvv+sbpn18YMFV11H7iCMqB//7+VetD8gO
qBje2uKIQVPjO9bmfaCbozHn8RcHXBzedpYvxhdcu2y3CJc4IFtzmK5ijh90
2xLn44QdcMOxa97N9gFQq8u1xKtijxVBlfHqMQHQX1kQ2b9khwY1jVfxRgC0
/pTfH492mLq/v79rIgBEOPZ33ybb4ZZtbCqvGIHgX+k66xRpi9vnHFeXEhkg
LdJSIjVvjUyCn/DZCgbk+VOHKrqs0dorgsDex4CPElUxzwussfBdpgOPwGko
7LnKIUyyxr0Dbe07C06DkMe14qECOh64I5V2vDoI1BxOazxwtUKjDRnbQ/qD
IOLpsneZthUGOK/eqPkWBKzu8JF5cSts3PEfS0opGKYq1NY/eWuJpMToCf7a
YOgc2Gewy8ESHU691v54LwRGmgZfPQqkYTxLt1/0vxDINjzoz7Cg4U3he9b0
uRCgr8/rYByj4UxvUuCTQ6HQr1OTZMdOw6ijqkXN9aGwVc8ttvmyBeYJZCyn
NoaBbenu0dh+Krb4rCZ0DoWBbAXalzRR8W2nuwD7QhhwFmU++F1ERemzmjKh
R8JhUu6/Uz6BVKz/8tXCsTkc/AsHtDaIUHGgTbf2MCsC+MYNZ6N9zJE7ZNV9
9EEUCK+qDfocN8MAw6u7QkeiwFaHzicma4bDezX7+X9HQV2j2oGF7WZ4t/ec
qpb6GWhKPsMvskBBqjgHVynrDAhQJq9uaKBgcd/G655NZyGn1JybcoSCPNcr
LdhfnAXzkIRsORkKng413FgwfxZGVW7KS+2goK5EWkDf4XPwK1mIM2iFjFOh
W0Cx/hyYVjmZhDwiY2HGJr8Iq2joTLoy8MiMjJTV1526HtFw8XVanbMOGde7
3xYXCosGl/IEuthRMvqrGz+vuhwNIaSmzvd7yHji80X1kaFoeBnuWi/53BQn
1AU3ES1i4NDmIaV7W0xRZWL7LS6zWBCT/jTacNMYB7yGe2WcY+FEV0562SVj
9J4u+GYYFAtVLcnGGG6M13+IHsnMjQWV2/Jbg42Mkf+3ZIfo61h4Rbos1j9n
hF8EDn484hIHfu7RPOMnjbDo+Mm9XiHxgN9Yee+3GKJaKw8p7Xw8JLwayfRc
M8AhYp97TV48xItwhfJPGSCvrmn1PCsefN6K9zR2GmAE2UIz7k88ENfavb2j
DZDq6mhbmJQAw8R2ecLCSeRJD897kp8I67tFM8wW9dGtxOtXX2UivPzp4qfy
RR/b6mzMelmJINeedVL2jT5GvdTg7RpOhODwAAoF9XFGnD360c7zsJjMsz/p
gj7+V5/sXp9/HqbvK1qGiOlj4XCBan5+EpzsfW5sYaWHi1OpWXmVSZCfXE31
NdJDiz9nvueykuA0/8qbbKIe8kk6VGYNJ0EP96clgQN6GO0rKZq28wLEm6HC
o2VddGW7wxWdfwGG18XWDxfrIkG69ZlrfjLIgOoPrQUdDCQXr7CqksHE8MKD
41M6WB8RK7HlQTI8/XxnRvudDh7v1w1gvU2G2dEmwXO9Oqgf1r+JXyoFeuRi
na8W66Bjz9iJ5uoUaKXVbHM21sFsP45ansep8CyxneReQ8IXeeMvTg2lgo2k
b/pqOQl3tnWu1X9OBZ0rJ9SvXiVhsUiq0SmeNCh2aPBiSyHhHdw6UWeaBjNa
OycN3UjYISgtZjecBrv7pkI/iZJwqVE/rfrbRRjyzpWpuqyNDtd0uurY0oEw
85Z+N10bOxJOcDQLpMOv+zr2rPPamElVD8dD6UB8HVk+FaqNsj8UXZ+GpkPk
G67yZitttFUQ0Zj7kw5lKZXk97u0cewpI2RX0iVIkoosEb91ArX1taRP5WVA
izn7z77nWjgUZzlmUpwBP9UpHZsHtNDroW++5q0MINhtGzDv0cJM1Xw+0eYM
MFF/7/utVQvHJOfm37zIAB9eyy0ut7Tw7LqyTmuRTECiO7dGlBayWBs8abmZ
0Ho8YDB6vxYqKQxUGWdnwS0nvxqeFCI2/RztmSjMAnqqsQRXIhE1W6Yn48qy
YGtJ83rOGCIaGW6SYTVmQUb7AD9/KBE9PHVLpV9lgdyJnBi6MxGLy1oK/+zJ
BulA4iJLnYhbRCvSam9mQ7RCR7LwOOB3vlh/4fs5IHBJvqhwUBOtrsnIibbl
wL8v0omcvZr4UKH/k3RvDjylfk8NbNPEi0a77Y++zoGLcxc329VrokJyo5HN
Sg5w3U1nC83VRC+urwdKjufC6aQYu1obTfy4Yv5RviUXzFcaD4t80cAXE1J0
0oPLkNw2bR0prIFi7uIdFg1XoOWozDFG2XFUew+BxJcFELxc09lFUcMoC/KJ
zKGrMBFjRbbWOoaZj+MoD/4UwVc1MZtV4lHk9OVmuPKXwHrbD3M+rkfQfE7n
SRHvdUjViG+i1ajipsWcbl2xGxDsfkwtYZ0qvlgctSwRK4WbpyrL4vwPI2/Y
sQSPw2Vg0FmadvidCjK64ede3XKQN13QN3RWwa/bYD6VdBOEtHlGwxcP4ZP3
ppddrW5Bq+xSd/vFQ9heSe+dpVcA6X74TneVQ/iVxK/lT6sE2Q+RaXXvlTHS
bsiC7lEFsT3j8ZOXlFGMkft73v027KuJTyMbKKM8lwdp3Zk7sHH5z5Q9hzJ6
eY33rabehVRp/l+P/zmI93ttJqqSq4GiRKdlJ//188CnH0xqwKoaxG5QDuJ1
beUww/4acOusrfwgdhBL8rseyhnXwmeXZkPuH0r4vOYz7Z/ntX/3npPTaFNC
IZ24JmWLexB0cOT1vnwlTMy76U5/ew/GjxiX7wtQQg4v/Xd0hzrQsGQNiRkq
YZ7kw5XB0Tr4J2uW9kBGCR2vtbqye9SDXkp9sCeXEqrkql3ZNFEP3E8XRo37
FFHdGHb3MhpAZNexpnWpimg7vYPIsdIA0+MBi6JkRUzcFKggHNEIMmUshR87
FXF8guw1wtEEvdaWWZwfCWhCuhNwLr4JbIi1FPE6AvYnvRXJZ28G3otr3MYJ
BIxPzefzTmmG/NVG6LQgoDbf4BPhTUzQDZh9Zi9HwMshwyOmm5kQwyWSXCZL
wK+j76cu8DNhcE7RaeoAAbOq53jWhJhw/JNwZIQMAT+QhfU+7WbCrwMVJnlS
BIzLsnrYSGDC45iaoGExArZtf1ttacYEgxzeyLCtBBSJ+dyaQWXCnpHwqDYh
AnpPfvu3l8YEXuXaIr6/FmKxTYENE+ob6IZlAgR0tpGQkXFhghkzW/UZHwE5
rrkWLwYz4cjLp9SjGwloud6vWjmMCQORZX4JGwhY5RfS6hPBhAcedRWD3AQ0
h/Nvxs4ygV5oHee7noA3xm5t7z7PhBPJo22lHARc0K/dz5HMhG2xqZ9+sBPQ
sJapqpHKhJ/8BFmtv56L6aHWXmKCcr/M1lE2Aup9GXT+msmE5bAAlvxfF5i9
ZkjlMKGgIikm8o/C39v8EHPqMhNWSj08e9YUUHvf1KUrV5ggdI+bseOv/wc9
X6Cf
           "]]}, "Charting`Private`Tag#1"]}}, {}}, <|
     "HighlightElements" -> <|
       "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
      "LayoutOptions" -> <|
       "PanelPlotLayout" -> <||>, "PlotRange" -> {All, All}, 
        "Frame" -> {{False, False}, {False, False}}, 
        "AxesOrigin" -> {0, -455.4342597129633}, 
        "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
        "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
          Directive[
           Opacity[1.], 
           RGBColor[0.368417, 0.506779, 0.709798], 
           AbsoluteThickness[2]]}, 
        "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
            Identity[
             Part[#, 1]], 
            Exp[
             Part[#, 2]]}& ), 
          "ScalingFunctions" -> {{Identity, Identity}, {Log, Exp}}|>, 
        "Primitives" -> {}, "GCFlag" -> False|>, 
      "Meta" -> <|
       "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
        Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, 
    InterpretationBox[{
      TagBox[
       TagBox[
        {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
         0.012833333333333334`], AbsoluteThickness[2], 
         PointBox[{{0.0505, -19.08448141680671}, {
          0.0655, -17.139132012683135`}, {
          0.08049999999999999, -15.924515185182736`}, {
          0.0955, -15.09354393916357}}]},
        Annotation[#, "Charting`Private`Tag#1"]& ],
       {"WolframDynamicHighlight", <|
        "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], 
      StyleBox[
       DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, 
         Slot["HighlightElements"], 
         Slot["LayoutOptions"], 
         Slot["Meta"], 
         Charting`HighlightActionFunction["DynamicHighlight", {{
            Annotation[{
              Directive[
               PointSize[0.012833333333333334`], 
               RGBColor[0.368417, 0.506779, 0.709798], 
               AbsoluteThickness[2]], 
              
              Point[{{0.0505, -19.08448141680671}, {
               0.0655, -17.139132012683135`}, {
               0.08049999999999999, -15.924515185182736`}, {
               0.0955, -15.09354393916357}}]}, "Charting`Private`Tag#1"]}}, <|
          "HighlightElements" -> <|
            "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
           "LayoutOptions" -> <|
            "PanelPlotLayout" -> <||>, 
             "PlotRange" -> {{0.04956250000000034, 
              0.0955}, {-21.82005286879094, -15.09354393916357}}, 
             "Frame" -> {{False, False}, {False, False}}, 
             "AxesOrigin" -> {0.04956250000000034, -21.82005286879094}, 
             "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
             "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
             "DefaultStyle" -> {
               Directive[
                PointSize[0.012833333333333334`], 
                RGBColor[0.368417, 0.506779, 0.709798], 
                AbsoluteThickness[2]]}, 
             "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
                 Identity[
                  Part[#, 1]], 
                 Exp[
                  Part[#, 2]]}& ), 
               "ScalingFunctions" -> {{Identity, Identity}, {Log, Exp}}|>, 
             "Primitives" -> {}, "GCFlag" -> False|>, 
           "Meta" -> <|
            "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, 
             "Function" -> ListLogPlot, "GroupHighlight" -> False|>|>]]& )[<|
         "HighlightElements" -> <|
           "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
          "LayoutOptions" -> <|
           "PanelPlotLayout" -> <||>, 
            "PlotRange" -> {{0.04956250000000034, 
             0.0955}, {-21.82005286879094, -15.09354393916357}}, 
            "Frame" -> {{False, False}, {False, False}}, 
            "AxesOrigin" -> {0.04956250000000034, -21.82005286879094}, 
            "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
            "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
            "DefaultStyle" -> {
              Directive[
               PointSize[0.012833333333333334`], 
               RGBColor[0.368417, 0.506779, 0.709798], 
               AbsoluteThickness[2]]}, 
            "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
                Identity[
                 Part[#, 1]], 
                Exp[
                 Part[#, 2]]}& ), 
              "ScalingFunctions" -> {{Identity, Identity}, {Log, Exp}}|>, 
            "Primitives" -> {}, "GCFlag" -> False|>, 
          "Meta" -> <|
           "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
            ListLogPlot, "GroupHighlight" -> False|>|>],
        ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, {
         4.503599627370496*^15, -4.503599627370496*^15}}],
       Selectable->False]},
     Annotation[{{
        Annotation[{
          Directive[
           PointSize[0.012833333333333334`], 
           RGBColor[0.368417, 0.506779, 0.709798], 
           AbsoluteThickness[2]], 
          
          Point[{{0.0505, -19.08448141680671}, {
           0.0655, -17.139132012683135`}, {
           0.08049999999999999, -15.924515185182736`}, {
           0.0955, -15.09354393916357}}]}, "Charting`Private`Tag#1"]}}, <|
      "HighlightElements" -> <|
        "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
       "LayoutOptions" -> <|
        "PanelPlotLayout" -> <||>, 
         "PlotRange" -> {{0.04956250000000034, 
          0.0955}, {-21.82005286879094, -15.09354393916357}}, 
         "Frame" -> {{False, False}, {False, False}}, 
         "AxesOrigin" -> {0.04956250000000034, -21.82005286879094}, 
         "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
         "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
         "DefaultStyle" -> {
           Directive[
            PointSize[0.012833333333333334`], 
            RGBColor[0.368417, 0.506779, 0.709798], 
            AbsoluteThickness[2]]}, 
         "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
             Identity[
              Part[#, 1]], 
             Exp[
              Part[#, 2]]}& ), 
           "ScalingFunctions" -> {{Identity, Identity}, {Log, Exp}}|>, 
         "Primitives" -> {}, "GCFlag" -> False|>, 
       "Meta" -> <|
        "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
         ListLogPlot, "GroupHighlight" -> False|>|>, 
      "DynamicHighlight"]], {{}, {}}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, -455.4342597129633},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{
     Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> 
      MachinePrecision, RotateLabel -> 0], 
     Charting`ScaledFrameTicks[{Log, Exp}]}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->{470.34895833333314`, Automatic},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Exp[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Exp[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->FrontEndValueCache[{Automatic, 
     Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> 
      MachinePrecision, RotateLabel -> 0]}, {
    Automatic, {{-345.38776394910684`, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "150"}]}, "Superscript", SyntaxForm -> SuperscriptBox],
         TraditionalForm], {0.01, 0.}}, {-230.25850929940458`, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "100"}]}, "Superscript", SyntaxForm -> SuperscriptBox],
         TraditionalForm], {0.01, 0.}}, {-115.12925464970229`, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "50"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm], {0.01, 0.}}, {-460.51701859880916`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-458.21443350581507`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-455.91184841282103`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-451.30667822683296`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-449.0040931338389, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-446.7015080408449, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-444.3989229478508, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-439.7937527618627, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-437.4911676688687, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-435.18858257587465`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-432.8859974828806, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-428.2808272968925, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-425.97824220389845`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-423.6756571109044, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-421.3730720179104, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-416.76790183192225`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-414.4653167389282, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-412.1627316459342, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-409.86014655294014`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-405.25497636695206`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-402.95239127395797`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-400.64980618096394`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-398.3472210879699, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-393.7420509019818, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-391.4394658089878, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-389.1368807159937, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-386.83429562299966`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-382.2291254370116, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-379.92654034401755`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-377.6239552510235, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-375.3213701580294, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-370.71619997204135`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-368.4136148790473, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-366.1110297860533, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-363.80844469305924`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-359.2032745070711, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-356.9006894140771, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-354.59810432108304`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-352.295519228089, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-347.6903490421009, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-343.0851788561128, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-340.78259376311877`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-336.1774235771307, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-333.8748384841366, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-331.57225339114257`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-329.26966829814853`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-324.66449811216046`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-322.3619130191664, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-320.05932792617233`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-317.7567428331783, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-313.1515726471902, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-310.8489875541962, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-308.54640246120215`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-306.24381736820806`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-301.63864718222, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-299.33606208922595`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-297.0334769962319, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-294.7308919032379, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-290.12572171724975`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-287.8231366242557, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-285.5205515312617, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-283.21796643826764`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-278.6127962522795, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-276.3102111592855, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-274.00762606629144`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-271.7050409732974, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-267.09987078730927`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-264.79728569431524`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-262.4947006013212, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-260.19211550832716`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-255.58694532233906`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-253.28436022934503`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-250.981775136351, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-248.67919004335693`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-244.07401985736885`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-241.7714347643748, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-239.46884967138075`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-237.16626457838672`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-232.56109439239862`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-227.95592420641051`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-225.65333911341648`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-221.04816892742838`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-218.74558383443434`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-216.4429987414403, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-214.14041364844624`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-209.53524346245817`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-207.2326583694641, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-204.93007327647007`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-202.62748818347603`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-198.02231799748793`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-195.7197329044939, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-193.41714781149983`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-191.1145627185058, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-186.5093925325177, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-184.20680743952366`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-181.90422234652962`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-179.60163725353556`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-174.99646706754748`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-172.69388197455342`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-170.39129688155938`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-168.08871178856535`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-163.48354160257725`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-161.1809565095832, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-158.87837141658915`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-156.5757863235951, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-151.970616137607, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-149.66803104461297`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-147.36544595161894`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-145.06286085862487`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-140.4576906726368, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-138.15510557964274`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-135.8525204866487, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-133.54993539365464`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-128.94476520766656`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-126.64218011467251`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-124.33959502167846`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-122.03700992868443`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-117.43183974269633`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-112.82666955670824`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-110.52408446371419`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-105.9189142777261, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-103.61632918473205`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-101.31374409173802`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-99.01115899874397, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-94.40598881275588, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-92.10340371976183, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-89.80081862676778, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-87.49823353377374, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-82.89306334778564, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-80.5904782547916, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-78.28789316179756, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-75.9853080688035, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-71.38013788281542, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-69.07755278982137, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-66.77496769682732, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-64.47238260383328, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-59.86721241784519, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-57.564627324851145`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-55.262042231857095`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-52.95945713886305, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-48.35428695287496, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-46.051701859880914`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-43.74911676688687, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-41.44653167389282, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-36.841361487904734`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-34.538776394910684`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-32.23619130191664, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-29.933606208922594`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-25.328436022934504`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-23.025850929940457`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-20.72326583694641, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-18.420680743952367`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-13.815510557964274`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-11.512925464970229`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-9.210340371976182, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-6.907755278982137, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-2.3025850929940455`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {0., 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}}}]]], "Output",
 CellChangeTimes->{
  3.979903100860056*^9, 3.97990313472654*^9, {3.979903349992366*^9, 
   3.979903400861721*^9}, {3.980586798119257*^9, 3.9805868112537203`*^9}, {
   3.9805869385437*^9, 3.980587015397956*^9}, {3.980587098467514*^9, 
   3.980587111864571*^9}, 3.980587153021901*^9},
 CellLabel->"Out[42]=",ExpressionUUID->"fd29f29a-34e6-4f9a-ba8a-f12db5e1796d"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"ListLinePlot", "[", 
   RowBox[{"gmatslist", ",", 
    RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], "*)"}]], "Input",
 CellChangeTimes->{{3.868952914249959*^9, 3.868952915866066*^9}, 
   3.927591981167902*^9, {3.979894705335013*^9, 3.979894712811776*^9}},
 CellLabel->"In[43]:=",ExpressionUUID->"a0461118-d1b5-43f4-96bd-375ff0671dec"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"ListLinePlot", "[", 
   RowBox[{"transcofflist", ",", 
    RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], "*)"}]], "Input",
 CellChangeTimes->{{3.868406897530542*^9, 3.868406906441804*^9}, {
   3.868407201356213*^9, 3.868407216106988*^9}, 3.868411564951963*^9, {
   3.979894721437576*^9, 3.97989472821366*^9}},
 CellLabel->"In[44]:=",ExpressionUUID->"ad5c7862-8a49-4fce-820e-4c96eda317d5"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"ListLinePlot", "[", 
   RowBox[{"transcofflist", ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.7"}], ",", "0.7"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.25"}], ",", "0.25"}], "}"}]}], "}"}]}]}], "]"}], 
  "*)"}]], "Input",
 CellChangeTimes->{{3.931846582077334*^9, 3.931846598412788*^9}, {
  3.9318470593263273`*^9, 3.931847102572613*^9}, {3.953784264671517*^9, 
  3.95378429447805*^9}, {3.979894734931862*^9, 3.9798947379229407`*^9}},
 CellLabel->"In[45]:=",ExpressionUUID->"03557ad0-58fa-49f2-bd4a-89be9325dff0"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Numerical analysis - KL model - Heat current - Gapped - for fixed temperature \
and different system size\
\>", "Subsubsection",
 CellChangeTimes->{{3.8921949000502033`*^9, 3.892194909539785*^9}, {
   3.892195421277308*^9, 3.892195423733597*^9}, {3.892261325852085*^9, 
   3.8922613307160387`*^9}, {3.893745168228965*^9, 3.893745176677358*^9}, 
   3.89441741112214*^9, {3.89562174467109*^9, 3.895621750351262*^9}, {
   3.9018635419122*^9, 3.901863543400784*^9}, {3.908951512751371*^9, 
   3.908951523623046*^9}, {3.927591050638835*^9, 3.927591053886813*^9}, {
   3.931844641265348*^9, 3.931844658325081*^9}, {3.9798600420473003`*^9, 
   3.979860042970072*^9}, {3.979860183857518*^9, 3.979860199239171*^9}, 
   3.979860267761077*^9, {3.979860403207653*^9, 3.9798604328439093`*^9}, {
   3.979894514358572*^9, 3.979894516804947*^9}, {3.979894590354327*^9, 
   3.9798945926225557`*^9}, {3.9799006210411263`*^9, 
   3.979900622721792*^9}},ExpressionUUID->"f3e29261-1e19-4ffd-96d6-\
6b52ffa8eb69"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "In", " ", "this", " ", "section", " ", "we", " ", "analysed", " ", "the", 
   " ", "system", " ", "size", " ", "dependence", " ", "of", " ", "quantum", 
   " ", "current", " ", "in", " ", "the", " ", "gapped", " ", "regime", " ", 
   "and", " ", "showed", " ", "that", " ", "the", " ", "transport", " ", "is",
    " ", "exponentially", " ", "suppressed"}], "*)"}]], "Input",
 CellChangeTimes->{{3.979860272672861*^9, 3.979860297116089*^9}, {
  3.9798603711508923`*^9, 3.979860375914154*^9}, {3.979860438576152*^9, 
  3.979860441546226*^9}, {3.979894777782241*^9, 3.979894789974927*^9}, {
  3.9799006265017223`*^9, 3.979900643751727*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"f9030d22-4818-4d2f-bd36-5f7dd4e482e2"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"d\[Omega]", "=", "0.00025"}], ";", 
  RowBox[{"\[Omega]tab", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"i", ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"-", 
        RowBox[{"N", "[", "1.8", "]"}]}], ",", 
       RowBox[{"N", "[", "1.8", "]"}], ",", "d\[Omega]"}], "}"}]}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"\[Omega]ntab", "=", 
   RowBox[{"Drop", "[", 
    RowBox[{"\[Omega]tab", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Position", "[", 
        RowBox[{"\[Omega]tab", ",", "0."}], "]"}], "\[LeftDoubleBracket]", 
       RowBox[{"1", ",", "1"}], "\[RightDoubleBracket]"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"zl", "[", 
    RowBox[{
    "m_", ",", " ", "r_", ",", "\[Omega]_", ",", "k_", ",", "v1_", ",", 
     "\[Gamma]_"}], "]"}], ":=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "m"}], " ", 
     SuperscriptBox["r", "2"], " ", 
     SuperscriptBox["\[Omega]", "2"]}], "+", 
    RowBox[{"k", " ", 
     SuperscriptBox["v1", "2"]}], "-", " ", 
    RowBox[{"I", " ", "*", 
     RowBox[{"(", 
      RowBox[{"\[Gamma]", " ", "*", "\[Omega]"}], ")"}]}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"zr", "[", 
    RowBox[{
    "m_", ",", " ", "r_", ",", "\[Omega]_", ",", "k_", ",", "v2_", ",", 
     "\[Gamma]_"}], "]"}], ":=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "m"}], " ", 
     SuperscriptBox["r", "2"], " ", 
     SuperscriptBox["\[Omega]", "2"]}], "+", 
    RowBox[{"k", " ", 
     SuperscriptBox["v2", "2"]}], "-", " ", 
    RowBox[{"I", " ", "*", 
     RowBox[{"(", 
      RowBox[{"\[Gamma]", " ", "*", "\[Omega]"}], ")"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"z", "[", 
    RowBox[{
    "m_", ",", "r_", ",", "\[Omega]_", ",", "k_", ",", "v1_", ",", "v2_"}], 
    "]"}], ":=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "m"}], " ", 
     SuperscriptBox["r", "2"], " ", 
     SuperscriptBox["\[Omega]", "2"]}], "+", 
    RowBox[{"k", " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["v1", "2"], " ", "+", " ", 
       SuperscriptBox["v2", "2"]}], ")"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"m", "=", "1.0"}], ";", 
  RowBox[{"r", "=", "2.0"}], ";", 
  RowBox[{"a", "=", "0.5"}], ";", " ", 
  RowBox[{"k", "=", "1.0"}], ";", 
  RowBox[{"\[Gamma]L", "=", "0.2"}], ";", 
  RowBox[{"\[Gamma]R", "=", "0.2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"\[Omega]_", ",", "T_"}], "]"}], ":=", " ", 
   FractionBox["1", 
    RowBox[{
     RowBox[{"Exp", "[", 
      FractionBox[
       RowBox[{"\[HBar]", " ", "\[Omega]"}], 
       RowBox[{"kb", " ", "T"}]], "]"}], "-", "1"}]]}], ";", 
  RowBox[{"kb", "=", "1.0"}], ";", 
  RowBox[{"\[HBar]", "=", "1.0"}], ";"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.86840385771015*^9, 3.868403865082279*^9}, {
   3.868404213565318*^9, 3.868404229533517*^9}, {3.868404262893664*^9, 
   3.8684042634362087`*^9}, {3.868405051091968*^9, 3.868405051995028*^9}, {
   3.868405126354449*^9, 3.868405127537305*^9}, {3.8684065561216803`*^9, 
   3.868406556648838*^9}, {3.868407071065693*^9, 3.86840707196108*^9}, {
   3.868407127383185*^9, 3.8684071346465807`*^9}, 3.868407175808673*^9, {
   3.868407307080939*^9, 3.868407376100984*^9}, {3.868409764193202*^9, 
   3.8684098385813293`*^9}, {3.868409876621852*^9, 3.868409880300149*^9}, {
   3.868410129949355*^9, 3.868410175748075*^9}, {3.868411516031082*^9, 
   3.868411524246174*^9}, {3.868411667231938*^9, 3.8684116752482224`*^9}, 
   3.868411715451689*^9, {3.868412078707752*^9, 3.868412079928488*^9}, {
   3.868412399239757*^9, 3.868412399711008*^9}, {3.868412459249563*^9, 
   3.868412460238564*^9}, {3.868418574401619*^9, 3.868418575945039*^9}, {
   3.868418636520402*^9, 3.868418636983653*^9}, {3.868418667968072*^9, 
   3.8684187901577263`*^9}, {3.868418825485381*^9, 3.868418826045614*^9}, {
   3.868418866428574*^9, 3.868418866940524*^9}, {3.868418914579878*^9, 
   3.868418917251444*^9}, {3.86841912608714*^9, 3.8684191264143467`*^9}, {
   3.868419156814341*^9, 3.86841917957308*^9}, {3.868511204427794*^9, 
   3.868511205001893*^9}, {3.868511290314198*^9, 3.868511290616612*^9}, {
   3.868511354993012*^9, 3.868511355463366*^9}, {3.868602625620034*^9, 
   3.86860266920962*^9}, {3.8686027151611423`*^9, 3.868602715712357*^9}, {
   3.868602747344434*^9, 3.868602769631366*^9}, {3.868603260144537*^9, 
   3.868603285799528*^9}, {3.868603413390068*^9, 3.868603413557343*^9}, {
   3.868603824077499*^9, 3.868603848604155*^9}, {3.868603880907151*^9, 
   3.868603882539111*^9}, {3.868603925121768*^9, 3.868603925545188*^9}, {
   3.868603956096533*^9, 3.868603956335929*^9}, {3.868604380164731*^9, 
   3.868604380548272*^9}, {3.868605632947117*^9, 3.868605634513568*^9}, {
   3.8686056777691708`*^9, 3.8686056782724447`*^9}, {3.868605723383866*^9, 
   3.8686057530067577`*^9}, {3.868605794038369*^9, 3.868605842558017*^9}, {
   3.8686066000249147`*^9, 3.86860662210394*^9}, {3.868606655399979*^9, 
   3.868606713711356*^9}, {3.868606934555969*^9, 3.868606935388111*^9}, {
   3.868606994578874*^9, 3.868606996690547*^9}, {3.868607845149045*^9, 
   3.868607920482331*^9}, {3.868607967617207*^9, 3.868607977224205*^9}, {
   3.86860813051565*^9, 3.868608135649007*^9}, {3.868608179194238*^9, 
   3.868608179889978*^9}, {3.868608942491249*^9, 3.86860894968719*^9}, {
   3.868609271417534*^9, 3.868609277833392*^9}, {3.868609351279739*^9, 
   3.86860935195992*^9}, {3.868665669302395*^9, 3.868665708940984*^9}, {
   3.868665746596598*^9, 3.868665748756846*^9}, {3.86866624725371*^9, 
   3.868666273125188*^9}, {3.868666555210957*^9, 3.868666555938257*^9}, {
   3.868666588290728*^9, 3.868666589778351*^9}, {3.868667513180248*^9, 
   3.8686675136436787`*^9}, {3.868667578563308*^9, 3.868667604354793*^9}, {
   3.868667729464364*^9, 3.868667756776352*^9}, {3.868671876905162*^9, 
   3.868671896239921*^9}, {3.868671942503599*^9, 3.868671943935336*^9}, {
   3.8686720129422083`*^9, 3.868672013605905*^9}, {3.868952398284077*^9, 
   3.868952403323431*^9}, {3.868953002017135*^9, 3.868953004888228*^9}, {
   3.869204267149353*^9, 3.869204270628992*^9}, {3.869204398362966*^9, 
   3.869204413274459*^9}, {3.870394755959407*^9, 3.870394775757773*^9}, {
   3.874469292133422*^9, 3.8744692955075*^9}, {3.874469784769734*^9, 
   3.874469809609144*^9}, {3.874469880024169*^9, 3.874469931581843*^9}, {
   3.874469962053199*^9, 3.874469965085628*^9}, {3.874470285638688*^9, 
   3.874470293502266*^9}, {3.876204122378257*^9, 3.876204151287579*^9}, {
   3.876803319891176*^9, 3.876803327201121*^9}, {3.876803365537792*^9, 
   3.876803366002085*^9}, {3.876803404475884*^9, 3.87680340605978*^9}, 
   3.8787803862556677`*^9, {3.878780417895706*^9, 3.878780423263797*^9}, {
   3.8787804731209993`*^9, 3.87878051499361*^9}, {3.878780557451213*^9, 
   3.878780686821651*^9}, {3.878780739863353*^9, 3.878780766472425*^9}, {
   3.878780818633658*^9, 3.87878082108982*^9}, {3.878780927981073*^9, 
   3.878780928645149*^9}, {3.878781141427789*^9, 3.878781204197002*^9}, {
   3.878788433036141*^9, 3.878788450530957*^9}, {3.878788506516498*^9, 
   3.878788508851853*^9}, {3.878788769578144*^9, 3.878788770225845*^9}, {
   3.878792461953405*^9, 3.878792516152624*^9}, {3.878792654845168*^9, 
   3.8787926706511507`*^9}, {3.880587319670717*^9, 3.880587321276775*^9}, {
   3.880587351941907*^9, 3.880587366669932*^9}, {3.88732769465307*^9, 
   3.8873276951725616`*^9}, {3.887328590194618*^9, 3.8873285905847483`*^9}, {
   3.887328622688421*^9, 3.887328650087474*^9}, {3.887413981862784*^9, 
   3.887413982694622*^9}, {3.88742754456899*^9, 3.887427545792269*^9}, {
   3.8880304022348013`*^9, 3.888030411804422*^9}, {3.888030835003417*^9, 
   3.888030835347118*^9}, {3.88803086873506*^9, 3.8880308728842897`*^9}, {
   3.888030973239741*^9, 3.8880309842467318`*^9}, {3.888031082203557*^9, 
   3.888031083744651*^9}, {3.8889959115520782`*^9, 3.8889959207844*^9}, {
   3.888995982001768*^9, 3.888995983873726*^9}, {3.888996085388401*^9, 
   3.88899608567633*^9}, {3.8889968210685053`*^9, 3.888996821668586*^9}, {
   3.8889969366717043`*^9, 3.888996950743225*^9}, {3.888997124459343*^9, 
   3.888997130907942*^9}, {3.888997180884336*^9, 3.888997181204391*^9}, {
   3.888997272911078*^9, 3.888997273871207*^9}, {3.888997353802054*^9, 
   3.888997367489154*^9}, {3.888997602630905*^9, 3.888997603054173*^9}, {
   3.8921949442387877`*^9, 3.892194948339978*^9}, {3.892195014629484*^9, 
   3.8921950379895487`*^9}, {3.8921952506842003`*^9, 
   3.8921952571146603`*^9}, {3.8921954562071867`*^9, 3.892195457207259*^9}, {
   3.892195504743905*^9, 3.892195520176637*^9}, 3.892195595858009*^9, {
   3.892261368249839*^9, 3.892261392119915*^9}, {3.89226142555191*^9, 
   3.892261425935705*^9}, {3.892266790669443*^9, 3.892266791125068*^9}, 
   3.8922671879413033`*^9, {3.892267530003735*^9, 3.89226753066784*^9}, {
   3.893465104490781*^9, 3.893465113195031*^9}, {3.893466956299871*^9, 
   3.893466957451434*^9}, {3.893469317938162*^9, 3.893469355394409*^9}, 
   3.893469386011278*^9, {3.8943290752580023`*^9, 3.894329075720854*^9}, 
   3.8943291060018787`*^9, {3.894329141650915*^9, 3.894329144026731*^9}, 
   3.894329503551583*^9, {3.8943295791847887`*^9, 3.894329658322259*^9}, {
   3.894329826582612*^9, 3.894329826797347*^9}, {3.894329863254418*^9, 
   3.894329864341895*^9}, {3.894329901839355*^9, 3.894329933175375*^9}, {
   3.894329969520199*^9, 3.894329980064024*^9}, {3.894330014105261*^9, 
   3.894330019081537*^9}, {3.894330065586312*^9, 3.8943300674019*^9}, {
   3.894330104107654*^9, 3.894330104971154*^9}, {3.894331004192333*^9, 
   3.89433100440018*^9}, {3.894331034745393*^9, 3.894331064297709*^9}, {
   3.89433111915508*^9, 3.894331120514441*^9}, {3.894331161763747*^9, 
   3.894331162603915*^9}, {3.894331205349009*^9, 3.894331205884858*^9}, {
   3.894331249974222*^9, 3.894331250502007*^9}, {3.894331290439274*^9, 
   3.894331291007515*^9}, {3.894331326664509*^9, 3.894331326952735*^9}, {
   3.894331367034045*^9, 3.894331368738026*^9}, {3.894331404083208*^9, 
   3.894331404490985*^9}, {3.894331447476458*^9, 3.894331448284525*^9}, {
   3.894331483989017*^9, 3.894331484772949*^9}, {3.8943315284949536`*^9, 
   3.894331572944125*^9}, {3.894331604793625*^9, 3.894331605833008*^9}, {
   3.894331887778177*^9, 3.894331888408771*^9}, {3.894343387866048*^9, 
   3.894343414282322*^9}, {3.894864278159524*^9, 3.894864291749405*^9}, {
   3.894864353943188*^9, 3.894864356446884*^9}, {3.894864443641974*^9, 
   3.894864447601928*^9}, {3.894864829419112*^9, 3.894864834907456*^9}, {
   3.8948653589200983`*^9, 3.894865387328062*^9}, {3.894865421152905*^9, 
   3.894865454857673*^9}, {3.894865498634774*^9, 3.894865500330443*^9}, {
   3.894946108891407*^9, 3.894946127011511*^9}, {3.89494625582275*^9, 
   3.894946257783217*^9}, 3.894946389290127*^9, {3.895108479643525*^9, 
   3.895108485275545*^9}, 3.895108549422448*^9, {3.89556172935443*^9, 
   3.8955617295995007`*^9}, {3.8955617947603693`*^9, 3.895561795321059*^9}, {
   3.895561894827398*^9, 3.895561894979487*^9}, 3.895620748307724*^9, {
   3.895620801317152*^9, 3.895620812109129*^9}, {3.895620963169644*^9, 
   3.895620965908121*^9}, {3.895620996626018*^9, 3.895621086612134*^9}, {
   3.895621133245095*^9, 3.895621173429083*^9}, {3.8956213145393267`*^9, 
   3.8956213156803703`*^9}, {3.8956213485531607`*^9, 3.895621351809031*^9}, {
   3.895621402722004*^9, 3.895621403617743*^9}, {3.895621440739107*^9, 
   3.895621441330864*^9}, {3.895621649816761*^9, 3.8956216501337433`*^9}, {
   3.8957089076165524`*^9, 3.895708907950719*^9}, {3.895709348081283*^9, 
   3.895709380217978*^9}, {3.895709421218331*^9, 3.895709422226064*^9}, {
   3.89570947260378*^9, 3.895709494067134*^9}, {3.901859359330638*^9, 
   3.901859384921168*^9}, 3.901860193922276*^9, {3.901860227969263*^9, 
   3.901860439756713*^9}, {3.901860484548567*^9, 3.901860485316663*^9}, {
   3.901862550381569*^9, 3.9018625615815077`*^9}, {3.901862593225676*^9, 
   3.901862616370899*^9}, {3.901863257705104*^9, 3.901863257919154*^9}, {
   3.9018633570378103`*^9, 3.901863371564993*^9}, {3.901864380802061*^9, 
   3.901864386529272*^9}, {3.901864487087375*^9, 3.901864489950995*^9}, {
   3.901936921422677*^9, 3.901936921966583*^9}, {3.9019369672940893`*^9, 
   3.901936967621874*^9}, {3.901937010309692*^9, 3.901937086762596*^9}, {
   3.901937173482359*^9, 3.901937173994228*^9}, {3.901937255744856*^9, 
   3.901937257072501*^9}, {3.90193729251267*^9, 3.901937301144257*^9}, {
   3.901937394182691*^9, 3.901937401830097*^9}, {3.901960017001911*^9, 
   3.901960021512333*^9}, {3.908927581023949*^9, 3.908927582063386*^9}, {
   3.908927724797622*^9, 3.908927729602792*^9}, 3.908929533019766*^9, {
   3.908929600462516*^9, 3.908929644482918*^9}, {3.908929731495384*^9, 
   3.908929733446294*^9}, {3.908930697229319*^9, 3.908930697859748*^9}, 
   3.908948061250345*^9, {3.908951423321053*^9, 3.908951423705051*^9}, {
   3.90901435764253*^9, 3.909014375373171*^9}, {3.909555069484689*^9, 
   3.909555105059954*^9}, {3.909555397463691*^9, 3.909555401494233*^9}, {
   3.9095555439871407`*^9, 3.9095555522585297`*^9}, {3.909555723078628*^9, 
   3.909555724358447*^9}, {3.909555765821327*^9, 3.90955576883724*^9}, {
   3.909555803916922*^9, 3.909555819228349*^9}, {3.909555868653882*^9, 
   3.909555879499168*^9}, {3.909555948763439*^9, 3.909555948993187*^9}, {
   3.909556019679837*^9, 3.909556020039604*^9}, {3.909556064863696*^9, 
   3.909556098422133*^9}, {3.9095561486611776`*^9, 3.909556148900863*^9}, {
   3.909556371817337*^9, 3.909556375736775*^9}, {3.9095566585647793`*^9, 
   3.909556658675379*^9}, {3.909556821544057*^9, 3.909556824487949*^9}, {
   3.909556868175756*^9, 3.909556869543235*^9}, {3.909556905689513*^9, 
   3.90955690683827*^9}, {3.9095570081492434`*^9, 3.909557013316237*^9}, {
   3.909557074547624*^9, 3.909557075755292*^9}, {3.909557146282316*^9, 
   3.909557146777745*^9}, {3.909557178946028*^9, 3.909557180794894*^9}, {
   3.90955723137719*^9, 3.909557237208508*^9}, {3.9096185520022597`*^9, 
   3.909618552193584*^9}, {3.910049654725862*^9, 3.910049689308845*^9}, {
   3.927590670848628*^9, 3.927590710399373*^9}, {3.927591919330123*^9, 
   3.927591922184824*^9}, {3.927592025039203*^9, 3.927592028422969*^9}, {
   3.927592229284198*^9, 3.927592250723752*^9}, {3.927592586317094*^9, 
   3.927592604420136*^9}, {3.927592746001*^9, 3.927592754369512*^9}, {
   3.927592880446703*^9, 3.927592882558571*^9}, {3.92759310691317*^9, 
   3.927593112273161*^9}, {3.927593194265614*^9, 3.927593195865103*^9}, {
   3.927676021049372*^9, 3.927676048768753*^9}, {3.931841564322419*^9, 
   3.9318416829259443`*^9}, {3.93184171464529*^9, 3.931841726141107*^9}, {
   3.931842305729027*^9, 3.931842321376515*^9}, {3.93184235763234*^9, 
   3.931842363039794*^9}, {3.931842454037709*^9, 3.931842483389174*^9}, {
   3.931842544252232*^9, 3.931842545084244*^9}, {3.931844593207191*^9, 
   3.931844595302655*^9}, {3.931844678173288*^9, 3.931844678413064*^9}, {
   3.931844714685001*^9, 3.9318447163404913`*^9}, {3.9318447507242393`*^9, 
   3.931844802531241*^9}, {3.931844839986019*^9, 3.931844867929899*^9}, {
   3.931844941392971*^9, 3.931844976631922*^9}, {3.931845305090478*^9, 
   3.931845308746036*^9}, {3.93184536468119*^9, 3.931845379536525*^9}, {
   3.931845415560306*^9, 3.931845415999588*^9}, {3.931845447474188*^9, 
   3.931845468230789*^9}, {3.931846450983832*^9, 3.931846452399448*^9}, {
   3.931846611709145*^9, 3.931846612772694*^9}, {3.931846655188932*^9, 
   3.931846659524327*^9}, {3.931846886408743*^9, 3.9318469284556*^9}, {
   3.931847571374922*^9, 3.931847573804913*^9}, {3.931847706563249*^9, 
   3.931847728930748*^9}, {3.933913778083227*^9, 3.933913778232294*^9}, {
   3.933913820186062*^9, 3.933913825887947*^9}, {3.933913863097342*^9, 
   3.933913893118885*^9}, {3.93391408917644*^9, 3.9339141245072536`*^9}, {
   3.933914248977375*^9, 3.933914249448888*^9}, {3.93391435983158*^9, 
   3.933914371726583*^9}, {3.9339145515082808`*^9, 3.933914551681539*^9}, {
   3.933916069472368*^9, 3.933916077485342*^9}, {3.950076419298417*^9, 
   3.950076420634174*^9}, {3.95007763324118*^9, 3.950077633425228*^9}, {
   3.950077719624685*^9, 3.950077719912232*^9}, {3.950077834657084*^9, 
   3.950077855447936*^9}, {3.950077954576191*^9, 3.950077955599498*^9}, {
   3.950078121638562*^9, 3.950078122046585*^9}, {3.950078479639316*^9, 
   3.950078480613124*^9}, {3.950146351994965*^9, 3.950146353266458*^9}, {
   3.950255135497823*^9, 3.950255150981997*^9}, {3.95102867993883*^9, 
   3.951028683130299*^9}, {3.951028717865425*^9, 3.951028718452504*^9}, {
   3.951028770816467*^9, 3.951028804470745*^9}, {3.9511827899683228`*^9, 
   3.951182790839325*^9}, {3.9511828912360353`*^9, 3.951182893107565*^9}, {
   3.95118292805906*^9, 3.951182929498592*^9}, 3.951182968641434*^9, 
   3.95118300735994*^9, {3.951183062023226*^9, 3.951183094822544*^9}, {
   3.9511831560211153`*^9, 3.951183160292633*^9}, {3.9511832979780207`*^9, 
   3.951183298161976*^9}, {3.951183350153251*^9, 3.951183351552932*^9}, {
   3.951183841114215*^9, 3.951183842169937*^9}, {3.951184271653352*^9, 
   3.951184274557108*^9}, {3.951784418834997*^9, 3.9517844293222427`*^9}, {
   3.951784485121159*^9, 3.951784485648854*^9}, {3.951784531569015*^9, 
   3.951784535552806*^9}, {3.951784571096217*^9, 3.951784571583999*^9}, {
   3.95378418466431*^9, 3.9537841852562103`*^9}, {3.953784230535343*^9, 
   3.953784231327062*^9}, {3.9798604462803373`*^9, 3.979860502561636*^9}, {
   3.97986235494799*^9, 3.9798623565577183`*^9}, {3.979864553622526*^9, 
   3.979864554894889*^9}, {3.979873459199752*^9, 3.979873479376385*^9}, 
   3.979875558416341*^9, {3.979894367718668*^9, 3.97989436813631*^9}, 
   3.979900901374941*^9, {3.979901664587859*^9, 3.979901697974958*^9}, {
   3.980587191909658*^9, 3.9805871953686113`*^9}, {3.9805872332745237`*^9, 
   3.980587241102604*^9}, {3.9805876441863403`*^9, 3.98058764562893*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"8047300d-02e9-4b67-8f86-800d7b193538"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ntab", "=", 
   RowBox[{"{", 
    RowBox[{
    "2", ",", "4", ",", "8", ",", "16", ",", "24", ",", "32", ",", "64"}], 
    "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.9798755618083687`*^9, 3.979875562150744*^9}, {
  3.979894409933587*^9, 3.979894419303983*^9}, {3.979900807820301*^9, 
  3.979900809088633*^9}, {3.980587197243288*^9, 3.9805872228961067`*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"72b8bb6a-5265-441e-8666-dbe3ebb8b879"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[CapitalTheta]", "=", 
   RowBox[{"N", "[", 
    FractionBox["\[Pi]", "3"], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.931842565966619*^9, 3.931842577746924*^9}, {
   3.933912132620206*^9, 3.933912133514466*^9}, {3.933912218413987*^9, 
   3.933912220292248*^9}, {3.933912625780994*^9, 3.9339126499319057`*^9}, {
   3.933912682715613*^9, 3.93391268562755*^9}, {3.933914597568397*^9, 
   3.93391459949608*^9}, {3.933914734200596*^9, 3.933914734475689*^9}, {
   3.933916097572337*^9, 3.933916109724107*^9}, {3.933916511022908*^9, 
   3.933916516748347*^9}, {3.933916607159955*^9, 3.93391660742772*^9}, {
   3.949640640898411*^9, 3.949640650690319*^9}, {3.950077904527635*^9, 
   3.950077909143482*^9}, 3.950078552469404*^9, {3.950146102812729*^9, 
   3.950146105712146*^9}, {3.950146166422617*^9, 3.950146169670293*^9}, {
   3.950146260348577*^9, 3.950146260548291*^9}, {3.950146311603748*^9, 
   3.9501463133470707`*^9}, {3.9510286349315777`*^9, 3.951028635339366*^9}, {
   3.95102874383292*^9, 3.951028745112499*^9}, {3.95118282808549*^9, 
   3.951182829493501*^9}, {3.951183795020094*^9, 3.95118379600141*^9}, {
   3.951784410322576*^9, 3.951784412258546*^9}, {3.979900648316716*^9, 
   3.9799006520397997`*^9}, {3.980587228791031*^9, 3.9805872300581284`*^9}},
 CellLabel->"In[10]:=",ExpressionUUID->"966e32a6-f5a9-48b3-a9aa-b48556a7d3d8"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"v1", " ", "=", " ", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "r", " ", 
        RowBox[{"Sin", "[", "\[CapitalTheta]", "]"}]}], "+", "a"}], ")"}], 
     "r", " ", 
     RowBox[{"Cos", "[", "\[CapitalTheta]", "]"}]}], 
    SqrtBox[
     RowBox[{
      SuperscriptBox["a", "2"], "+", " ", 
      RowBox[{"4", " ", 
       SuperscriptBox["r", "2"], " ", 
       SuperscriptBox[
        RowBox[{"Cos", "[", "\[CapitalTheta]", "]"}], "2"]}]}]]]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"v2", "=", "  ", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "r", " ", 
        RowBox[{"Sin", "[", "\[CapitalTheta]", "]"}]}], "-", "a"}], ")"}], 
     "r", " ", 
     RowBox[{"Cos", "[", "\[CapitalTheta]", "]"}]}], 
    SqrtBox[
     RowBox[{
      SuperscriptBox["a", "2"], "+", " ", 
      RowBox[{"4", " ", 
       SuperscriptBox["r", "2"], " ", 
       SuperscriptBox[
        RowBox[{"Cos", "[", "\[CapitalTheta]", "]"}], "2"]}]}]]]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.93184254814852*^9, 3.931842651937689*^9}, {
  3.956044486780415*^9, 3.956044495897498*^9}, {3.979871297348279*^9, 
  3.979871298186427*^9}},
 CellLabel->"In[11]:=",ExpressionUUID->"5c00529b-5ca7-4cd8-9122-ea8ca51aa25d"],

Cell[CellGroupData[{

Cell[BoxData["v1"], "Input",
 CellChangeTimes->{{3.932010244175533*^9, 3.932010244526874*^9}, {
  3.979862368855507*^9, 3.9798623785193043`*^9}, {3.979873558047351*^9, 
  3.979873559056089*^9}},
 CellLabel->"In[13]:=",ExpressionUUID->"5bb02a42-5e0f-4d2e-a2de-ae7936dbe324"],

Cell[BoxData["1.9228717258699446`"], "Output",
 CellChangeTimes->{{3.97986237624457*^9, 3.979862379277044*^9}, 
   3.979863052347268*^9, 3.979863191665004*^9, 3.979863774822885*^9, 
   3.979863836965931*^9, 3.979863961305511*^9, 3.979864302278353*^9, 
   3.979864562413196*^9, 3.9798658928043118`*^9, 3.979865962170924*^9, 
   3.979866308096898*^9, 3.979866473756667*^9, 3.979866662416701*^9, 
   3.979867190084485*^9, 3.979867406012268*^9, 3.979867685296805*^9, 
   3.979867914738701*^9, 3.979868101895396*^9, 3.979868524263976*^9, 
   3.979868682044389*^9, 3.979869048769463*^9, 3.97987006508234*^9, 
   3.979870539312726*^9, 3.979871302794052*^9, 3.979873494926779*^9, 
   3.979873559854365*^9, 3.979873622732424*^9, 3.97987397487958*^9, 
   3.979874215288849*^9, 3.979874483389089*^9, 3.97987558366285*^9, 
   3.979876314829941*^9, 3.979877060016353*^9, 3.979877247200625*^9, 
   3.97987843093538*^9, 3.9798794187191963`*^9, 3.979886055843738*^9, 
   3.979887115786407*^9, 3.979889320760206*^9, 3.979889743184258*^9, 
   3.979890019516268*^9, 3.979890456135837*^9, 3.979890899701015*^9, 
   3.979891716275374*^9, 3.979892598326539*^9, 3.9798944327813797`*^9, 
   3.97990045440252*^9, 3.979900679052498*^9, 3.97990082825088*^9, 
   3.979900910154641*^9, {3.979901688592737*^9, 3.97990171166993*^9}, 
   3.979903638247598*^9, 3.979904971627926*^9, 3.979905752998468*^9, 
   3.9805872536239443`*^9, 3.980587521786655*^9, 3.980587657646954*^9, 
   3.980587878860178*^9},
 CellLabel->"Out[13]=",ExpressionUUID->"8528f5d0-5bcf-475a-8c8d-e1ef11e6a901"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["v2"], "Input",
 CellChangeTimes->{{3.932010246199688*^9, 3.932010246455144*^9}, {
  3.979869050310713*^9, 3.97986905109306*^9}},
 CellLabel->"In[14]:=",ExpressionUUID->"94d5604f-1f53-4fcb-8ece-121484244835"],

Cell[BoxData["1.4378004757972787`"], "Output",
 CellChangeTimes->{
  3.932010246797163*^9, 3.933912143777296*^9, 3.933912229997974*^9, 
   3.9339125248390923`*^9, {3.933912637536775*^9, 3.933912658911095*^9}, 
   3.933912695192689*^9, 3.933913789999742*^9, {3.933913856852144*^9, 
   3.933913901080988*^9}, 3.933914102741106*^9, 3.933914135074398*^9, 
   3.933914257717779*^9, 3.933914385545182*^9, 3.933914561498124*^9, 
   3.93391461103782*^9, 3.933914743287671*^9, 3.933916085217108*^9, 
   3.933916118751116*^9, 3.933916527534978*^9, 3.933916618079723*^9, 
   3.949629906235147*^9, 3.9496398278205633`*^9, 3.949640669666696*^9, 
   3.950076294678251*^9, 3.950076453309349*^9, {3.950077434292522*^9, 
   3.950077463930998*^9}, 3.95007757753278*^9, 3.9500776705317917`*^9, 
   3.9500777303388977`*^9, 3.950077862907949*^9, 3.950077916404453*^9, 
   3.950077964721533*^9, 3.950078059592309*^9, 3.9500780973899918`*^9, 
   3.950078130304915*^9, 3.950078488754057*^9, 3.950078568233926*^9, 
   3.950146114714862*^9, 3.950146177448991*^9, 3.950146268266678*^9, 
   3.950146322248744*^9, 3.950146367923324*^9, 3.950147497275825*^9, 
   3.951028642519265*^9, 3.951028690928585*^9, {3.951028725631336*^9, 
   3.951028781815786*^9}, 3.951028816315218*^9, 3.951182800228914*^9, 
   3.951182840653591*^9, 3.951182906043208*^9, 3.951182941915019*^9, 
   3.9511830185524282`*^9, 3.9511830737001667`*^9, 3.951183104992459*^9, 
   3.951183172477466*^9, 3.95118330798848*^9, 3.951183358483718*^9, 
   3.951183456807084*^9, 3.9511838051270657`*^9, 3.951183850284616*^9, 
   3.951184282287855*^9, 3.9517844478217*^9, 3.951784500131185*^9, 
   3.951784545665267*^9, 3.951784579253133*^9, 3.953784100789168*^9, 
   3.953784203814389*^9, 3.9560445170668507`*^9, 3.979859520155767*^9, 
   3.9798599396135*^9, 3.979860692137268*^9, 3.979861784244418*^9, 
   3.979861864886033*^9, 3.9798619875963717`*^9, 3.979862054074431*^9, 
   3.979862152788448*^9, 3.979862208303307*^9, 3.979862383665237*^9, 
   3.979863053691269*^9, 3.979863193271874*^9, 3.979863776435595*^9, 
   3.9798638382293377`*^9, 3.979863962245191*^9, 3.979864303555616*^9, 
   3.979864563872549*^9, 3.979865894243788*^9, 3.979865963651022*^9, 
   3.97986630946047*^9, 3.9798664752046394`*^9, 3.97986666411769*^9, 
   3.979867191639328*^9, 3.979867407375758*^9, 3.9798676868691177`*^9, 
   3.979867916746086*^9, 3.979868103351762*^9, 3.979868525515423*^9, 
   3.979868683436424*^9, 3.979869051631282*^9, 3.979870066541705*^9, 
   3.979870540663284*^9, 3.979871304129679*^9, 3.979873497517606*^9, 
   3.979873560666103*^9, 3.979873624437982*^9, 3.979873976207532*^9, 
   3.97987421659783*^9, 3.979874484132442*^9, 3.979875584415678*^9, 
   3.979876316304163*^9, 3.979877061625854*^9, 3.979877248395015*^9, 
   3.979878432800441*^9, 3.979879420099107*^9, 3.979886057350831*^9, 
   3.979887986462911*^9, 3.9798893227952223`*^9, 3.979889744927473*^9, 
   3.9798900201327467`*^9, 3.979890460286283*^9, 3.979890900388069*^9, 
   3.979891718053338*^9, 3.979892598336754*^9, 3.979894432787763*^9, 
   3.979900454405013*^9, 3.979900679056628*^9, 3.979900828254294*^9, 
   3.979900910163754*^9, {3.979901688598846*^9, 3.979901711677737*^9}, 
   3.979903638255514*^9, 3.97990497163564*^9, 3.979905753000615*^9, 
   3.9805872543901243`*^9, 3.9805875217886467`*^9, 3.980587658628305*^9, 
   3.9805878788622227`*^9},
 CellLabel->"Out[14]=",ExpressionUUID->"d1a41e0a-aac4-480b-8974-aa2eac76f714"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[Omega]0", "=", 
  RowBox[{
   SqrtBox[
    FractionBox["k", 
     RowBox[{"m", " ", 
      SuperscriptBox["r", "2"]}]]], 
   RowBox[{"(", 
    RowBox[{"v1", "-", "v2"}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.979903016620675*^9, 3.979903040074183*^9}},
 CellLabel->"In[15]:=",ExpressionUUID->"952e6855-6ee7-4193-b36b-bdc852a1ec8b"],

Cell[BoxData["0.24253562503633297`"], "Output",
 CellChangeTimes->{3.980587272387629*^9, 3.9805875217904463`*^9, 
  3.980587659391185*^9, 3.9805878788640747`*^9},
 CellLabel->"Out[15]=",ExpressionUUID->"003cdb2e-d652-4da3-9982-d788471d5164"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"dtl1", "=", "0.025"}], ";", "\n", 
   RowBox[{"tl1tab", "=", 
    RowBox[{"Table", "[", 
     RowBox[{"i", ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "0.0101", ",", "0.1001", ",", "dtl1"}], "}"}]}], 
     "]"}]}], ";", "\n", 
   RowBox[{"dtl2", "=", "0.1"}], ";", "\n", 
   RowBox[{"tl2tab", "=", 
    RowBox[{"Table", "[", 
     RowBox[{"i", ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "0.1001", ",", "2.1001", ",", "dtl2"}], "}"}]}], 
     "]"}]}], ";", "\n", 
   RowBox[{"tltab", "=", 
    RowBox[{"Join", "[", 
     RowBox[{"tl1tab", ",", "tl2tab"}], "]"}]}], ";", "\n", 
   RowBox[{"dtr1", "=", "0.025"}], ";", "\n", 
   RowBox[{"tr1tab", "=", 
    RowBox[{"Table", "[", 
     RowBox[{"i", ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "0.01", ",", "0.10", ",", "dtr1"}], "}"}]}], "]"}]}],
    ";", "\n", 
   RowBox[{"dtr2", "=", "0.1"}], ";", "\n", 
   RowBox[{"tr2tab", "=", 
    RowBox[{"Table", "[", 
     RowBox[{"i", ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "0.10", ",", "2.10", ",", "dtr2"}], "}"}]}], "]"}]}],
    ";", "\n", 
   RowBox[{"trtab", "=", 
    RowBox[{"Join", "[", 
     RowBox[{"tr1tab", ",", "tr2tab"}], "]"}]}], ";", "\n", 
   RowBox[{"Ttab", "=", 
    FractionBox[
     RowBox[{"tltab", "+", "trtab"}], "2"]}], ";", "\n", 
   RowBox[{"tltab", "-", "trtab"}], ";"}], "*)"}]], "Input",
 CellChangeTimes->{{3.949639809402182*^9, 3.949639817856158*^9}, {
  3.950076152137186*^9, 3.95007615833678*^9}},
 CellLabel->"In[16]:=",ExpressionUUID->"98fb152d-43fa-4a70-8dd9-a3a82295155f"],

Cell[BoxData[
 RowBox[{"(*", "Ttab", "*)"}]], "Input",
 CellChangeTimes->{{3.949648633573525*^9, 3.949648634606041*^9}, {
  3.9500761969561977`*^9, 3.950076201060216*^9}},
 CellLabel->"In[17]:=",ExpressionUUID->"a050ff4a-4774-4ea7-8f73-fb62b3ee2e8d"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"dtl", "=", "0.1"}], ";", 
   RowBox[{"tltab", "=", 
    RowBox[{"Table", "[", 
     RowBox[{"i", ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "2.9", ",", "3.0", ",", "dtl"}], "}"}]}], "]"}]}], 
   ";", 
   RowBox[{"trtab", "=", 
    RowBox[{"Table", "[", 
     RowBox[{"i", ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1.9", ",", "2.0", ",", "dtl"}], "}"}]}], "]"}]}], 
   ";", "\[IndentingNewLine]", 
   RowBox[{"Ttab", "=", 
    FractionBox[
     RowBox[{"tltab", "+", "trtab"}], "2"]}], ";"}], "*)"}]], "Input",
 CellChangeTimes->{{3.8949460757633753`*^9, 3.894946096474883*^9}, 
   3.894946294207357*^9, 3.89494635595314*^9, 3.894946394410119*^9, {
   3.894946792428321*^9, 3.8949467968922043`*^9}, {3.895108537429946*^9, 
   3.895108543469845*^9}, {3.895108575111008*^9, 3.895108584359124*^9}, {
   3.895109509233223*^9, 3.895109510801064*^9}, {3.927172828770138*^9, 
   3.927172859824037*^9}, {3.927175391351359*^9, 3.927175393303876*^9}, {
   3.9271755108294697`*^9, 3.927175582804019*^9}, {3.94962988436237*^9, 
   3.949629888193962*^9}, {3.950076162633923*^9, 3.950076187867282*^9}, {
   3.950076232383464*^9, 3.9500762329749126`*^9}, {3.950147480210596*^9, 
   3.950147483106159*^9}, {3.951028616084304*^9, 3.951028619539738*^9}},
 CellLabel->"In[18]:=",ExpressionUUID->"abce713e-964d-4f47-af61-a4d0d3cd367b"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"dtl", "=", "0.015"}], ";", 
  RowBox[{"tltab", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"i", ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "0.011", ",", "0.021", ",", "dtl"}], "}"}]}], "]"}]}],
   ";", 
  RowBox[{"trtab", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"i", ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "0.01", ",", "0.02", ",", "dtl"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Ttab", "=", 
   FractionBox[
    RowBox[{"tltab", "+", "trtab"}], "2"]}], ";"}]}], "Input",
 CellChangeTimes->{{3.8949460757633753`*^9, 3.894946096474883*^9}, 
   3.894946294207357*^9, 3.89494635595314*^9, 3.894946394410119*^9, {
   3.894946792428321*^9, 3.8949467968922043`*^9}, {3.895108537429946*^9, 
   3.895108543469845*^9}, {3.895108575111008*^9, 3.895108584359124*^9}, {
   3.895109509233223*^9, 3.895109510801064*^9}, {3.927172828770138*^9, 
   3.927172859824037*^9}, {3.927175391351359*^9, 3.927175393303876*^9}, {
   3.9271755108294697`*^9, 3.927175582804019*^9}, {3.94962988436237*^9, 
   3.949629888193962*^9}, {3.950076162633923*^9, 3.950076166729498*^9}, {
   3.9500762419032793`*^9, 3.950076280554164*^9}, {3.950077240121854*^9, 
   3.95007725153759*^9}, 3.950077299841888*^9, {3.9500774563791847`*^9, 
   3.950077458153356*^9}, {3.950077564025478*^9, 3.9500775691052637`*^9}, {
   3.950078032159532*^9, 3.950078048863018*^9}, {3.950078084502996*^9, 
   3.950078088013819*^9}, {3.950147462594774*^9, 3.950147475114496*^9}, {
   3.951028621828494*^9, 3.951028625779782*^9}, {3.979859929250973*^9, 
   3.979859929505186*^9}, {3.979860513831297*^9, 3.979860520266055*^9}, {
   3.979876293733424*^9, 3.979876295849115*^9}, {3.97987703864437*^9, 
   3.9798770441355143`*^9}, {3.97987708148514*^9, 3.979877123040496*^9}, {
   3.97987840824492*^9, 3.97987841277528*^9}, {3.979894378250385*^9, 
   3.979894396179147*^9}, {3.980587284911068*^9, 3.9805873272854652`*^9}, {
   3.9805876689777727`*^9, 3.980587675545184*^9}, {3.980587857966559*^9, 
   3.9805878643536377`*^9}},
 CellLabel->"In[19]:=",ExpressionUUID->"b3e32838-8da1-4e30-bdf9-654a5279274a"],

Cell[BoxData[
 RowBox[{"\n", 
  RowBox[{
   RowBox[{"Ttab", "=", 
    FractionBox[
     RowBox[{"tltab", "+", "trtab"}], "2"]}], ";"}]}]], "Input",
 CellChangeTimes->{{3.979860537649436*^9, 3.979860592069398*^9}, 
   3.979876298087343*^9},
 CellLabel->"In[21]:=",ExpressionUUID->"95002d29-6a3b-44c2-ad21-24e825242c92"],

Cell[CellGroupData[{

Cell[BoxData["Ttab"], "Input",
 CellChangeTimes->{{3.979859524842128*^9, 3.979859526051168*^9}, {
  3.979868530468608*^9, 3.979868531281481*^9}},
 CellLabel->"In[22]:=",ExpressionUUID->"0ceed574-1624-450e-a1dd-638bc21bde51"],

Cell[BoxData[
 RowBox[{"{", "0.010499999999999999`", "}"}]], "Output",
 CellChangeTimes->{
  3.97985952642935*^9, 3.9798599396292524`*^9, 3.979860697151883*^9, 
   3.9798617901871557`*^9, 3.979861871772786*^9, 3.979861991772022*^9, 
   3.97986205892766*^9, 3.9798621580260973`*^9, 3.979862212866743*^9, 
   3.979862389657488*^9, 3.9798630591314993`*^9, 3.979863199741975*^9, 
   3.979863781369771*^9, 3.979863843382402*^9, 3.9798639665881577`*^9, 
   3.979864308111414*^9, 3.979864567997814*^9, 3.979865899196073*^9, 
   3.979865968446679*^9, 3.979866313981471*^9, 3.979866479082655*^9, 
   3.979866668434485*^9, 3.97986719624561*^9, 3.979867412364196*^9, 
   3.979867691977805*^9, 3.9798679217225637`*^9, 3.979868109018024*^9, 
   3.9798685318887234`*^9, 3.979868687774923*^9, 3.979869056998784*^9, 
   3.979870072564239*^9, 3.979870545904484*^9, 3.979871309169047*^9, 
   3.979873503327526*^9, 3.9798735672777*^9, 3.979873628867187*^9, 
   3.979873980516943*^9, 3.979874221585895*^9, 3.979874488278202*^9, 
   3.979875588701935*^9, 3.979876322641917*^9, {3.979877089700675*^9, 
   3.979877127304872*^9}, 3.979877255258679*^9, 3.979878438391732*^9, 
   3.979879426404028*^9, 3.979886065983699*^9, 3.979887992665451*^9, 
   3.979889329717087*^9, 3.97988975200678*^9, 3.9798900281162443`*^9, 
   3.979890467035267*^9, 3.97989090486479*^9, 3.979891725571287*^9, 
   3.979892598356254*^9, 3.979894432802553*^9, 3.97990045442621*^9, 
   3.979900679071714*^9, 3.979900828270392*^9, 3.979900910178816*^9, {
   3.979901688612266*^9, 3.97990171169704*^9}, 3.9799036382709017`*^9, 
   3.979904971653468*^9, 3.979905753015704*^9, {3.98058732137667*^9, 
   3.980587330176498*^9}, 3.9805875218070917`*^9, 3.980587679172176*^9, 
   3.980587878878892*^9},
 CellLabel->"Out[22]=",ExpressionUUID->"22eb2d4b-a05e-46b9-8963-9a912eedbd46"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"GListtab", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"transcofflisttab", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"currlisttab", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"currclasslisttab", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"currQlisttab", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"gmatslisttab", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"matstab", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{"0", ",", 
       RowBox[{"{", 
        RowBox[{"ntab", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"ntab", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "}"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "ntab", "]"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Ztab", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{"0", ",", 
       RowBox[{"{", 
        RowBox[{"ntab", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"ntab", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "}"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "ntab", "]"}]}], "}"}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.868239758807444*^9, 3.868239867477888*^9}, 
   3.868239986069236*^9, {3.868240055995058*^9, 3.868240071250601*^9}, {
   3.868240108906638*^9, 3.868240123330142*^9}, {3.868240194146141*^9, 
   3.868240231836074*^9}, {3.868240290059667*^9, 3.868240328907196*^9}, {
   3.868240364580038*^9, 3.868240371443502*^9}, {3.8682404599006367`*^9, 
   3.868240477107811*^9}, {3.8682405357192173`*^9, 3.868240592029715*^9}, {
   3.868240644086977*^9, 3.868240771424184*^9}, {3.8682408222901087`*^9, 
   3.868240869889131*^9}, {3.868240984516298*^9, 3.86824101363253*^9}, {
   3.8682410924950953`*^9, 3.86824109412467*^9}, {3.868241140901259*^9, 
   3.8682412991812353`*^9}, {3.868241335278407*^9, 3.868241335756639*^9}, {
   3.868241419076655*^9, 3.868241504392988*^9}, {3.868241547129361*^9, 
   3.868241584927587*^9}, {3.868241615313395*^9, 3.868241628062907*^9}, {
   3.868241735727869*^9, 3.86824175082208*^9}, {3.8682455695667343`*^9, 
   3.86824557347596*^9}, {3.868245632340785*^9, 3.86824571640849*^9}, {
   3.8682458159025097`*^9, 3.86824589734906*^9}, {3.8682488253466587`*^9, 
   3.868248864601956*^9}, {3.868248898772872*^9, 3.868248923187042*^9}, {
   3.868249094210797*^9, 3.868249133565991*^9}, {3.868249186158022*^9, 
   3.868249236018037*^9}, {3.868249295507097*^9, 3.868249334855221*^9}, {
   3.868249377609884*^9, 3.868249384742116*^9}, {3.868249422120757*^9, 
   3.868249467311349*^9}, {3.868249654639435*^9, 3.868249695007239*^9}, 
   3.868249737662425*^9, {3.8682498191500187`*^9, 3.868249842762375*^9}, {
   3.868321604820076*^9, 3.868321614412115*^9}, {3.868321742844755*^9, 
   3.868321786033757*^9}, {3.868403821036978*^9, 3.868403834140854*^9}, {
   3.868404281222009*^9, 3.868404421779862*^9}, {3.868404493858201*^9, 
   3.868404515673894*^9}, {3.868404567648616*^9, 3.86840456804852*^9}, {
   3.868404843602604*^9, 3.868404850002242*^9}, {3.868404907825197*^9, 
   3.868404922510221*^9}, {3.868405074604569*^9, 3.868405086084755*^9}, {
   3.868405178131298*^9, 3.868405228416995*^9}, {3.868405442000372*^9, 
   3.868405451044012*^9}, {3.868405751118957*^9, 3.868405754229269*^9}, 
   3.868405791676166*^9, {3.868406059004624*^9, 3.868406095500968*^9}, {
   3.868406347775814*^9, 3.868406352991544*^9}, {3.868406398366206*^9, 
   3.868406543570976*^9}, {3.868406598538824*^9, 3.868406603977841*^9}, {
   3.868406828144823*^9, 3.868406830485408*^9}, {3.868411547980481*^9, 
   3.868411561055891*^9}, {3.868411592768248*^9, 3.868411604377939*^9}, {
   3.86841175717209*^9, 3.868411777144916*^9}, {3.868412090604657*^9, 
   3.868412094674629*^9}, {3.868952287343454*^9, 3.8689522946231527`*^9}, {
   3.868952587578061*^9, 3.86895262533615*^9}, 3.868952864229818*^9, 
   3.868952896948552*^9, {3.874469843682806*^9, 3.874469846577838*^9}, 
   3.8762052997095184`*^9, {3.887327514476064*^9, 3.887327533466675*^9}, {
   3.8921956280114594`*^9, 3.892195629363922*^9}, {3.892195659772518*^9, 
   3.892195693901372*^9}, {3.892195742518705*^9, 3.892195759670965*^9}, {
   3.892195791071424*^9, 3.89219586109683*^9}, {3.892195902906152*^9, 
   3.892195950746016*^9}, {3.892196208217562*^9, 3.892196212505234*^9}, {
   3.892259861807678*^9, 3.892259864391444*^9}, {3.892261450626603*^9, 
   3.892261477067281*^9}, {3.892261507572434*^9, 3.892261540028993*^9}, {
   3.892261575781915*^9, 3.892261598133752*^9}, {3.8922616640564547`*^9, 
   3.892261679432684*^9}, 3.892261753206285*^9, {3.892265255497539*^9, 
   3.892265408514577*^9}, {3.8922654422444773`*^9, 3.89226563844037*^9}, {
   3.892266416784976*^9, 3.892266459839089*^9}, {3.89226683668649*^9, 
   3.892266852030231*^9}, {3.892266894075061*^9, 3.892266919915532*^9}, {
   3.892267020813009*^9, 3.89226702280445*^9}, {3.893465122080888*^9, 
   3.8934652255839167`*^9}, {3.893469408644718*^9, 3.893469409165545*^9}, {
   3.893469469422265*^9, 3.893469531559943*^9}, {3.895106845654242*^9, 
   3.895106846542061*^9}, {3.895107517684537*^9, 3.8951075248445787`*^9}, {
   3.8951081087760773`*^9, 3.895108109224338*^9}, {3.927172041108378*^9, 
   3.927172067484586*^9}, {3.927172148219726*^9, 3.927172209387004*^9}, {
   3.927172341514629*^9, 3.927172351416226*^9}, {3.927172882376528*^9, 
   3.927172890832237*^9}, {3.927174771197534*^9, 3.927174771637227*^9}, {
   3.927590851316572*^9, 3.927590889051449*^9}, {3.927590928426799*^9, 
   3.927590929075063*^9}, {3.927590996041872*^9, 3.927590996192959*^9}, {
   3.927591647901441*^9, 3.927591731780905*^9}, {3.927592455320681*^9, 
   3.927592457248389*^9}, {3.927592910078988*^9, 3.927592910750607*^9}, {
   3.931842502637334*^9, 3.931842521084917*^9}, {3.931842667266604*^9, 
   3.931842735456704*^9}, {3.931844483985033*^9, 3.931844515792603*^9}, {
   3.951183508679421*^9, 3.951183526382217*^9}, {3.979860632839575*^9, 
   3.979860674945341*^9}, {3.979860734922552*^9, 3.9798607641614437`*^9}, {
   3.979861058801032*^9, 3.979861084611031*^9}, {3.979861825193201*^9, 
   3.979861836719386*^9}, {3.979862105199749*^9, 3.979862110834569*^9}, {
   3.97986320175766*^9, 3.979863203066304*^9}, {3.979863935171197*^9, 
   3.97986394439387*^9}, {3.97987413684991*^9, 3.9798741590882874`*^9}, 
   3.9798744658765907`*^9},
 CellLabel->"In[23]:=",ExpressionUUID->"bc533300-d299-4d2c-aca6-b696d3a02463"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"l", "=", "1"}], ",", 
    RowBox[{"l", "<=", 
     RowBox[{"Length", "[", "\[Omega]ntab", "]"}]}], ",", 
    RowBox[{"l", "++"}], ",", 
    RowBox[{
     RowBox[{"For", "[", 
      RowBox[{
       RowBox[{"j", "=", "1"}], ",", 
       RowBox[{"j", "<=", 
        RowBox[{"Length", "[", "ntab", "]"}]}], ",", 
       RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"For", "[", 
         RowBox[{
          RowBox[{"i", "=", "1"}], ",", 
          RowBox[{"i", "<=", 
           RowBox[{
            RowBox[{
            "ntab", "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}], 
            "-", "1"}]}], ",", 
          RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
             "matstab", "\[LeftDoubleBracket]", "j", 
              "\[RightDoubleBracket]"}], "\[LeftDoubleBracket]", 
             RowBox[{"i", ",", "i"}], "\[RightDoubleBracket]"}], "=", 
            RowBox[{"z", "[", 
             RowBox[{"m", ",", "r", ",", 
              RowBox[{
              "\[Omega]ntab", "\[LeftDoubleBracket]", "l", 
               "\[RightDoubleBracket]"}], ",", "k", ",", "v1", ",", "v2"}], 
             "]"}]}], ";", 
           RowBox[{
            RowBox[{
             RowBox[{
             "matstab", "\[LeftDoubleBracket]", "j", 
              "\[RightDoubleBracket]"}], "\[LeftDoubleBracket]", 
             RowBox[{"1", ",", "1"}], "\[RightDoubleBracket]"}], "=", 
            RowBox[{"zl", "[", 
             RowBox[{"m", ",", "r", ",", 
              RowBox[{
              "\[Omega]ntab", "\[LeftDoubleBracket]", "l", 
               "\[RightDoubleBracket]"}], ",", "k", ",", "v1", ",", 
              "\[Gamma]"}], "]"}]}], ";", 
           RowBox[{
            RowBox[{
             RowBox[{
             "matstab", "\[LeftDoubleBracket]", "j", 
              "\[RightDoubleBracket]"}], "\[LeftDoubleBracket]", 
             RowBox[{
              RowBox[{
              "ntab", "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}], 
              ",", 
              RowBox[{
              "ntab", "\[LeftDoubleBracket]", "j", 
               "\[RightDoubleBracket]"}]}], "\[RightDoubleBracket]"}], "=", 
            RowBox[{"zr", "[", 
             RowBox[{"m", ",", "r", ",", 
              RowBox[{
              "\[Omega]ntab", "\[LeftDoubleBracket]", "l", 
               "\[RightDoubleBracket]"}], ",", "k", ",", "v2", ",", 
              "\[Eta]"}], "]"}]}], ";", 
           RowBox[{
            RowBox[{
             RowBox[{
             "matstab", "\[LeftDoubleBracket]", "j", 
              "\[RightDoubleBracket]"}], "\[LeftDoubleBracket]", 
             RowBox[{"i", ",", 
              RowBox[{"i", "+", "1"}]}], "\[RightDoubleBracket]"}], "=", 
            RowBox[{
             RowBox[{"-", "k"}], " ", "*", " ", 
             RowBox[{"Abs", "[", 
              RowBox[{"v1", " ", "v2"}], "]"}]}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{
             "matstab", "\[LeftDoubleBracket]", "j", 
              "\[RightDoubleBracket]"}], "\[LeftDoubleBracket]", 
             RowBox[{
              RowBox[{"i", "+", "1"}], ",", "i"}], "\[RightDoubleBracket]"}], 
            "=", 
            RowBox[{
             RowBox[{"-", "k"}], " ", "*", " ", 
             RowBox[{"Abs", "[", 
              RowBox[{"v1", " ", "v2"}], "]"}]}]}]}]}], "]"}], ";", 
        RowBox[{"Ztab", "=", 
         RowBox[{"Join", "[", 
          RowBox[{"Ztab", ",", " ", 
           RowBox[{"{", 
            RowBox[{"matstab", "[", 
             RowBox[{"[", "j", "]"}], "]"}], "}"}]}], "]"}]}], ";"}]}], "]"}],
      ";"}]}], "]"}], "*)"}]], "Input",
 CellChangeTimes->{{3.979862248184002*^9, 3.979862277942987*^9}, 
   3.979862317798157*^9, {3.979862466123407*^9, 3.979862501139545*^9}, {
   3.979863019305498*^9, 3.979863024008557*^9}, {3.979863074795347*^9, 
   3.979863076219614*^9}, {3.979863160636505*^9, 3.979863171576453*^9}, {
   3.979863233253504*^9, 3.97986327593108*^9}, {3.979863638018965*^9, 
   3.979863675377619*^9}, 3.979863728828162*^9, 3.979863813044874*^9, 
   3.979863903347226*^9, {3.979864003472188*^9, 3.979864029688507*^9}, {
   3.979864089668542*^9, 3.979864101369625*^9}, {3.979864135304866*^9, 
   3.979864138006854*^9}, {3.979864271621134*^9, 3.979864282480855*^9}, {
   3.979864319714714*^9, 3.979864358816051*^9}, {3.979864517331155*^9, 
   3.979864541162685*^9}, {3.979865045679133*^9, 3.979865046072547*^9}, 
   3.979865867153439*^9, 3.9798659387475977`*^9, {3.97986623655526*^9, 
   3.979866240381628*^9}, {3.979866285935829*^9, 3.979866289313463*^9}, {
   3.97986641095849*^9, 3.979866415008183*^9}, {3.979866522172641*^9, 
   3.979866524680924*^9}, 3.979866640725924*^9, {3.979867169814328*^9, 
   3.9798671724840317`*^9}},
 CellLabel->"In[31]:=",ExpressionUUID->"1b5f22a3-a036-40ac-b307-dd0ede83583e"],

Cell[BoxData[
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"l", "=", "1"}], ",", 
   RowBox[{"l", "<=", 
    RowBox[{"Length", "[", "\[Omega]ntab", "]"}]}], ",", 
   RowBox[{"l", "++"}], ",", 
   RowBox[{
    RowBox[{"For", "[", 
     RowBox[{
      RowBox[{"j", "=", "1"}], ",", 
      RowBox[{"j", "<=", 
       RowBox[{"Length", "[", "ntab", "]"}]}], ",", 
      RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"For", "[", 
        RowBox[{
         RowBox[{"i", "=", "1"}], ",", 
         RowBox[{"i", "<=", 
          RowBox[{
           RowBox[{
           "ntab", "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}], 
           "-", "1"}]}], ",", 
         RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
            "matstab", "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}],
             "\[LeftDoubleBracket]", 
            RowBox[{"i", ",", "i"}], "\[RightDoubleBracket]"}], "=", 
           RowBox[{"z", "[", 
            RowBox[{"m", ",", "r", ",", 
             RowBox[{
             "\[Omega]ntab", "\[LeftDoubleBracket]", "l", 
              "\[RightDoubleBracket]"}], ",", "k", ",", "v1", ",", "v2"}], 
            "]"}]}], ";", 
          RowBox[{
           RowBox[{
            RowBox[{
            "matstab", "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}],
             "\[LeftDoubleBracket]", 
            RowBox[{"1", ",", "1"}], "\[RightDoubleBracket]"}], "=", 
           RowBox[{"zl", "[", 
            RowBox[{"m", ",", "r", ",", 
             RowBox[{
             "\[Omega]ntab", "\[LeftDoubleBracket]", "l", 
              "\[RightDoubleBracket]"}], ",", "k", ",", "v1", ",", 
             "\[Gamma]L"}], "]"}]}], ";", 
          RowBox[{
           RowBox[{
            RowBox[{
            "matstab", "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}],
             "\[LeftDoubleBracket]", 
            RowBox[{
             RowBox[{
             "ntab", "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}], 
             ",", 
             RowBox[{
             "ntab", "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}]}],
             "\[RightDoubleBracket]"}], "=", 
           RowBox[{"zr", "[", 
            RowBox[{"m", ",", "r", ",", 
             RowBox[{
             "\[Omega]ntab", "\[LeftDoubleBracket]", "l", 
              "\[RightDoubleBracket]"}], ",", "k", ",", "v2", ",", 
             "\[Gamma]R"}], "]"}]}], ";", 
          RowBox[{
           RowBox[{
            RowBox[{
            "matstab", "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}],
             "\[LeftDoubleBracket]", 
            RowBox[{"i", ",", 
             RowBox[{"i", "+", "1"}]}], "\[RightDoubleBracket]"}], "=", 
           RowBox[{
            RowBox[{"-", "k"}], " ", "*", " ", 
            RowBox[{"Abs", "[", 
             RowBox[{"v1", " ", "v2"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
            RowBox[{
            "matstab", "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}],
             "\[LeftDoubleBracket]", 
            RowBox[{
             RowBox[{"i", "+", "1"}], ",", "i"}], "\[RightDoubleBracket]"}], 
           "=", 
           RowBox[{
            RowBox[{"-", "k"}], " ", "*", " ", 
            RowBox[{"Abs", "[", 
             RowBox[{"v1", " ", "v2"}], "]"}]}]}]}]}], "]"}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
        "Ztab", "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}], "=", 
        RowBox[{"matstab", "[", 
         RowBox[{"[", "j", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"GListtab", "=", 
        RowBox[{"Join", "[", 
         RowBox[{"GListtab", ",", 
          RowBox[{"{", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
             "\[Omega]ntab", "\[LeftDoubleBracket]", "l", 
              "\[RightDoubleBracket]"}], ",", 
             RowBox[{"Inverse", "[", 
              RowBox[{
              "Ztab", "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}], 
              "]"}]}], "}"}], "}"}]}], "]"}]}], ";"}]}], "]"}], ";"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.979874076804785*^9, 3.979874101877697*^9}, {
   3.97987419420952*^9, 3.979874198716907*^9}, 3.979874515877429*^9, 
   3.979886073148051*^9, {3.9805873507595787`*^9, 3.980587354828104*^9}},
 CellLabel->"In[32]:=",ExpressionUUID->"5afb6a98-4952-4449-9d07-55a79706e412"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"combineByLabel", "[", "list_", "]"}], ":=", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"#", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
       RowBox[{"#", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "}"}], "&"}], "/@", 
    RowBox[{"GatherBy", "[", 
     RowBox[{"list", ",", "First"}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.979875978186735*^9, 3.979875978189229*^9}},
 CellLabel->"In[33]:=",ExpressionUUID->"42bdd3cb-e5c3-4e48-8e6f-4c724b2e81e0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"GListtabnew", "=", 
   RowBox[{"combineByLabel", "[", "GListtab", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.979875101494331*^9, 3.9798751047120433`*^9}, 
   3.979875250383389*^9, {3.979875304069723*^9, 3.9798753054132624`*^9}, {
   3.979875349988331*^9, 3.979875353438611*^9}, {3.979875383443207*^9, 
   3.979875397816738*^9}, {3.979875526054466*^9, 3.979875530240959*^9}, 
   3.979875661800756*^9, {3.979875994988924*^9, 3.979876006628846*^9}},
 CellLabel->"In[34]:=",ExpressionUUID->"c5c5b298-767d-4164-b02c-468581e6ca74"],

Cell[BoxData[
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"p", "=", "1"}], ",", 
   RowBox[{"p", "<=", 
    RowBox[{"Length", "[", "Ttab", "]"}]}], ",", 
   RowBox[{"p", "++"}], ",", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"j", "=", "1"}], ",", 
     RowBox[{"j", "<=", 
      RowBox[{"Length", "[", "ntab", "]"}]}], ",", 
     RowBox[{"j", "++"}], ",", 
     RowBox[{"For", "[", 
      RowBox[{
       RowBox[{"l", "=", "1"}], ",", 
       RowBox[{"l", "<=", 
        RowBox[{"Length", "[", "\[Omega]ntab", "]"}]}], ",", 
       RowBox[{"l", "++"}], ",", 
       RowBox[{
        RowBox[{"currQlisttab", "=", 
         RowBox[{"Join", "[", 
          RowBox[{"currQlisttab", ",", 
           RowBox[{"{", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"ntab", "[", 
               RowBox[{"[", "j", "]"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{
                "Ttab", "\[LeftDoubleBracket]", "p", 
                 "\[RightDoubleBracket]"}], ",", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"Abs", "[", 
                   RowBox[{"GListtabnew", "\[LeftDoubleBracket]", 
                    RowBox[{"l", ",", "2", ",", "j", ",", "1", ",", 
                    RowBox[{"ntab", "[", 
                    RowBox[{"[", "j", "]"}], "]"}]}], 
                    "\[RightDoubleBracket]"}], "]"}], "2"], "*", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[HBar]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{
                    "\[Omega]ntab", "\[LeftDoubleBracket]", "l", 
                    "\[RightDoubleBracket]"}], "4"]}], 
                  RowBox[{
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"2", "*", "kb", "*", 
                    RowBox[{
                    "Ttab", "\[LeftDoubleBracket]", "p", 
                    "\[RightDoubleBracket]"}]}], ")"}], "2"], "*", "\[Pi]"}]],
                  "*", "\[Gamma]L", "*", "\[Gamma]R", "*", "kb", "*", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                   "tltab", "\[LeftDoubleBracket]", "p", 
                    "\[RightDoubleBracket]"}], "-", 
                   RowBox[{
                   "trtab", "\[LeftDoubleBracket]", "p", 
                    "\[RightDoubleBracket]"}]}], ")"}], "*", 
                 RowBox[{"(", 
                  RowBox[{"Csch", "[", 
                   FractionBox[
                    RowBox[{"\[HBar]", " ", 
                    RowBox[{
                    "\[Omega]ntab", "\[LeftDoubleBracket]", "l", 
                    "\[RightDoubleBracket]"}]}], 
                    RowBox[{"2", "kb", "*", 
                    RowBox[{
                    "Ttab", "\[LeftDoubleBracket]", "p", 
                    "\[RightDoubleBracket]"}]}]], "]"}], ")"}], "*", 
                 RowBox[{"(", 
                  RowBox[{"Csch", "[", 
                   FractionBox[
                    RowBox[{"\[HBar]", " ", 
                    RowBox[{
                    "\[Omega]ntab", "\[LeftDoubleBracket]", "l", 
                    "\[RightDoubleBracket]"}]}], 
                    RowBox[{"2", "kb", "*", 
                    RowBox[{
                    "Ttab", "\[LeftDoubleBracket]", "p", 
                    "\[RightDoubleBracket]"}]}]], "]"}], ")"}]}]}], "}"}]}], 
             "}"}], "}"}]}], "]"}]}], ";", 
        RowBox[{"currclasslisttab", "=", 
         RowBox[{"Join", "[", 
          RowBox[{"currclasslisttab", ",", 
           RowBox[{"{", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"ntab", "[", 
               RowBox[{"[", "j", "]"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{
                "Ttab", "\[LeftDoubleBracket]", "p", 
                 "\[RightDoubleBracket]"}], ",", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"Abs", "[", 
                   RowBox[{"GListtabnew", "\[LeftDoubleBracket]", 
                    RowBox[{"l", ",", "2", ",", "j", ",", "1", ",", 
                    RowBox[{"ntab", "[", 
                    RowBox[{"[", "j", "]"}], "]"}]}], 
                    "\[RightDoubleBracket]"}], "]"}], "2"], "*", 
                 FractionBox[
                  SuperscriptBox[
                   RowBox[{
                   "\[Omega]ntab", "\[LeftDoubleBracket]", "l", 
                    "\[RightDoubleBracket]"}], "2"], "\[Pi]"], "*", 
                 "\[Gamma]L", "*", "\[Gamma]R", "*", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                   "tltab", "\[LeftDoubleBracket]", "p", 
                    "\[RightDoubleBracket]"}], "-", 
                   RowBox[{
                   "trtab", "\[LeftDoubleBracket]", "p", 
                    "\[RightDoubleBracket]"}]}], ")"}]}]}], "}"}]}], "}"}], 
            "}"}]}], "]"}]}], ";"}]}], "]"}]}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.979874641768072*^9, 3.979874708995175*^9}, {
   3.979874755914062*^9, 3.9798747748934803`*^9}, 3.979875707910718*^9, {
   3.979876055163454*^9, 3.979876078410568*^9}, {3.97987612379511*^9, 
   3.979876125013883*^9}, {3.979876178170138*^9, 3.9798761787300777`*^9}, {
   3.979877166364677*^9, 3.979877171523076*^9}, {3.979887045267146*^9, 
   3.9798870766649*^9}, {3.9805873704948187`*^9, 3.9805873736247683`*^9}, 
   3.980587422673813*^9},
 CellLabel->"In[35]:=",ExpressionUUID->"bdd9a9c0-f18b-4c7d-9248-66f1c50cc65f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"currQlisttabnew", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"#", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
       RowBox[{"#", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "}"}], "&"}], "/@", 
    RowBox[{"GatherBy", "[", 
     RowBox[{"currQlisttab", ",", "First"}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.97988838148614*^9, 3.979888402853153*^9}},
 CellLabel->"In[36]:=",ExpressionUUID->"efe0cad7-a1e5-48e9-ab12-6353ed09a1d4"],

Cell[BoxData[
 RowBox[{
  RowBox[{"currclasslisttabnew", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"#", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
       RowBox[{"#", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "}"}], "&"}], "/@", 
    RowBox[{"GatherBy", "[", 
     RowBox[{"currclasslisttab", ",", "First"}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.980584230651601*^9, 3.9805842487112923`*^9}},
 CellLabel->"In[37]:=",ExpressionUUID->"78f08d1b-5b06-48c0-abb5-c6ca3a96375a"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"Definition", " ", "of", " ", "quantum", " ", "current"}], 
  "*)"}]], "Input",
 CellChangeTimes->{{3.9805874936380253`*^9, 3.980587498049184*^9}},
 CellLabel->"In[38]:=",ExpressionUUID->"aa5caae7-6b61-47cb-9294-5f95fa159fc9"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"tauForSize", "[", "sizeIndex_", "]"}], ":=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Ttab", "[", 
        RowBox[{"[", "j", "]"}], "]"}], ",", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"currQlisttabnew", "[", 
           RowBox[{"[", 
            RowBox[{"sizeIndex", ",", "2", ",", "i", ",", "2"}], "]"}], "]"}],
           "*", "d\[Omega]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"j", "-", "1"}], ")"}], "*", 
             RowBox[{"Length", "[", "\[Omega]ntab", "]"}]}], "+", "1"}], ",", 
           
           RowBox[{"j", "*", 
            RowBox[{"Length", "[", "\[Omega]ntab", "]"}]}]}], "}"}]}], 
        "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", 
       RowBox[{"Length", "[", "Ttab", "]"}]}], "}"}]}], "]"}]}], 
  "\n"}]], "Input",
 CellChangeTimes->{{3.979891628218811*^9, 3.979891628220882*^9}},
 CellLabel->"In[39]:=",ExpressionUUID->"ab17b4f5-c0ef-426e-bfc2-8f7363dad8cb"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"tauAll", "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"currQlisttabnew", "[", 
         RowBox[{"[", 
          RowBox[{"s", ",", "1"}], "]"}], "]"}], ",", 
        RowBox[{"(*", 
         RowBox[{"system", " ", "size", " ", "n"}], "*)"}], 
        RowBox[{"tauForSize", "[", "s", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"s", ",", 
        RowBox[{"Length", "[", "currQlisttabnew", "]"}]}], "}"}]}], "]"}]}], 
   ";"}], "\n"}]], "Input",
 CellChangeTimes->{{3.979891645694014*^9, 3.979891645696112*^9}},
 CellLabel->"In[40]:=",ExpressionUUID->"07e526c5-e9ac-4ebf-b7c5-34b40702aaed"],

Cell[CellGroupData[{

Cell[BoxData["tauAll"], "Input",
 CellChangeTimes->{{3.979891762258563*^9, 3.979891764033618*^9}},
 CellLabel->"In[41]:=",ExpressionUUID->"a57b73d5-53c8-4f81-8602-bbba63efcec5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"2", ",", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0.010499999999999999`", ",", "4.090134254223936`*^-6"}], 
       "}"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0.010499999999999999`", ",", "1.8322771074267467`*^-6"}], 
       "}"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0.010499999999999999`", ",", "2.1334272426790984`*^-7"}], 
       "}"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"16", ",", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0.010499999999999999`", ",", "2.107660295090802`*^-9"}], 
       "}"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"24", ",", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0.010499999999999999`", ",", "2.045451411779113`*^-11"}], 
       "}"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"32", ",", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0.010499999999999999`", ",", "2.012976917516872`*^-13"}], 
       "}"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"64", ",", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0.010499999999999999`", ",", "2.5926751979743723`*^-15"}], 
       "}"}], "}"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.979891764424486*^9, 3.979892598407156*^9, 
  3.979894449038745*^9, 3.9799004705876904`*^9, 3.979900695214986*^9, 
  3.979900852419717*^9, 3.979901689140983*^9, 3.979901736566421*^9, 
  3.979903662382561*^9, 3.979904995740822*^9, 3.979905777369637*^9, 
  3.980587584090541*^9, 3.980587761019659*^9, 3.980587945539125*^9},
 CellLabel->"Out[41]=",ExpressionUUID->"3e95ef5f-386f-4e55-ab76-11ec0ae5f3b1"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"Definition", " ", "of", " ", "classical", " ", "current"}], 
  "*)"}]], "Input",
 CellChangeTimes->{{3.980584751674073*^9, 3.9805847628812313`*^9}},
 CellLabel->"In[42]:=",ExpressionUUID->"c30825e1-e898-4eb7-a639-58bce8062156"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"etaForSize", "[", "sizeIndex_", "]"}], ":=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Ttab", "[", 
        RowBox[{"[", "j", "]"}], "]"}], ",", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"currclasslisttabnew", "[", 
           RowBox[{"[", 
            RowBox[{"sizeIndex", ",", "2", ",", "i", ",", "2"}], "]"}], "]"}],
           "*", "d\[Omega]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"j", "-", "1"}], ")"}], "*", 
             RowBox[{"Length", "[", "\[Omega]ntab", "]"}]}], "+", "1"}], ",", 
           
           RowBox[{"j", "*", 
            RowBox[{"Length", "[", "\[Omega]ntab", "]"}]}]}], "}"}]}], 
        "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", 
       RowBox[{"Length", "[", "Ttab", "]"}]}], "}"}]}], "]"}]}], 
  "\n"}]], "Input",
 CellChangeTimes->{{3.979891628218811*^9, 3.979891628220882*^9}, {
  3.980584494332222*^9, 3.980584520643209*^9}},
 CellLabel->"In[43]:=",ExpressionUUID->"6adbf4e3-cbf1-42e1-9a10-b9416d8748b2"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"etaAll", "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"currclasslisttabnew", "[", 
         RowBox[{"[", 
          RowBox[{"s", ",", "1"}], "]"}], "]"}], ",", 
        RowBox[{"(*", 
         RowBox[{"system", " ", "size", " ", "n"}], "*)"}], 
        RowBox[{"etaForSize", "[", "s", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"s", ",", 
        RowBox[{"Length", "[", "currclasslisttabnew", "]"}]}], "}"}]}], 
     "]"}]}], ";"}], "\n"}]], "Input",
 CellChangeTimes->{{3.979891645694014*^9, 3.979891645696112*^9}, {
  3.980584530761326*^9, 3.980584558403351*^9}},
 CellLabel->"In[44]:=",ExpressionUUID->"1b74b833-27f8-490c-bda9-5a208b4ee4b0"],

Cell[CellGroupData[{

Cell[BoxData["etaAll"], "Input",
 CellChangeTimes->{{3.979891762258563*^9, 3.979891764033618*^9}, {
  3.980584562370706*^9, 3.980584564208787*^9}},
 CellLabel->"In[45]:=",ExpressionUUID->"8e843be2-271d-49a4-b05f-8d81da270dc7"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"2", ",", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0.010499999999999999`", ",", "0.000022884830059407852`"}], 
       "}"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0.010499999999999999`", ",", "0.000019954414187679277`"}], 
       "}"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0.010499999999999999`", ",", "0.00001810371395926227`"}], 
       "}"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"16", ",", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0.010499999999999999`", ",", "0.000017863149856215786`"}], 
       "}"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"24", ",", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0.010499999999999999`", ",", "0.00001787831039029042`"}], 
       "}"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"32", ",", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0.010499999999999999`", ",", "0.000017872034625623794`"}], 
       "}"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"64", ",", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0.010499999999999999`", ",", "0.000017868022279526825`"}], 
       "}"}], "}"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.979891764424486*^9, 3.979892598407156*^9, 
  3.979894449038745*^9, 3.9799004705876904`*^9, 3.979902885206356*^9, 
  3.979902940549513*^9, 3.980584654222324*^9, 3.980584883494025*^9, 
  3.980587584322956*^9, 3.980587765608871*^9, 3.9805879458060226`*^9},
 CellLabel->"Out[45]=",ExpressionUUID->"6ca11bbb-96f7-46f8-9f96-1cd5ef541672"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "This", " ", "plot", " ", "shows", " ", "the", " ", "insulating", " ", 
   "nature", " ", "of", " ", "the", " ", "quantum", " ", "current", " ", "in",
    " ", "the", " ", "gapped", " ", "regime"}], "*)"}]], "Input",
 CellChangeTimes->{{3.979894806816448*^9, 3.979894812261078*^9}, {
  3.97990074294582*^9, 3.979900761698267*^9}},
 CellLabel->"In[46]:=",ExpressionUUID->"86d6497d-cb22-45ea-b93c-147d0c067395"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
        "tauAll", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], 
        "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", 
       RowBox[{"tauAll", "\[LeftDoubleBracket]", 
        RowBox[{"i", ",", "2", ",", "1", ",", "2"}], 
        "\[RightDoubleBracket]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "ntab", "]"}]}], "}"}]}], "]"}], ",", 
   RowBox[{"PlotRange", "->", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.979892630952886*^9, 3.979892689804234*^9}, 
   3.979894113922936*^9, {3.979894251532318*^9, 3.979894273456459*^9}, {
   3.979894304922035*^9, 3.9798943432960653`*^9}, {3.979894464417425*^9, 
   3.9798944702200727`*^9}, {3.979900667198031*^9, 3.979900668583705*^9}, {
   3.98058781938262*^9, 3.9805878369281197`*^9}},
 CellLabel->"In[47]:=",ExpressionUUID->"e7e7e707-5f50-43b7-a545-db1a57565f29"],

Cell[BoxData[
 GraphicsBox[{{}, 
   InterpretationBox[{
     TagBox[
      TagBox[
       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
        0.012833333333333334`], AbsoluteThickness[2], 
        PointBox[{{2., 4.090134254223936*^-6}, {4., 
         1.8322771074267467`*^-6}, {8., 2.1334272426790984`*^-7}, {16., 
         2.107660295090802*^-9}, {24., 2.045451411779113*^-11}, {32., 
         2.012976917516872*^-13}, {64., 2.5926751979743723`*^-15}}]},
       Annotation[#, "Charting`Private`Tag#1"]& ],
      {"WolframDynamicHighlight", <|
       "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], 
     StyleBox[
      DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, 
        Slot["HighlightElements"], 
        Slot["LayoutOptions"], 
        Slot["Meta"], 
        Charting`HighlightActionFunction["DynamicHighlight", {{
           Annotation[{
             Directive[
              PointSize[0.012833333333333334`], 
              RGBColor[0.368417, 0.506779, 0.709798], 
              AbsoluteThickness[2]], 
             
             Point[{{2., 4.090134254223936*^-6}, {4., 
              1.8322771074267467`*^-6}, {8., 2.1334272426790984`*^-7}, {16., 
              2.107660295090802*^-9}, {24., 2.045451411779113*^-11}, {32., 
              2.012976917516872*^-13}, {64., 2.5926751979743723`*^-15}}]}, 
            "Charting`Private`Tag#1"]}}, <|
         "HighlightElements" -> <|
           "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
          "LayoutOptions" -> <|
           "PanelPlotLayout" -> <||>, 
            "PlotRange" -> {{0.7083333333333349, 64.}, {
              0, 4.090134254223936*^-6}}, 
            "Frame" -> {{False, False}, {False, False}}, 
            "AxesOrigin" -> {0.7083333333333349, 0}, 
            "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
            "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
            "DefaultStyle" -> {
              Directive[
               PointSize[0.012833333333333334`], 
               RGBColor[0.368417, 0.506779, 0.709798], 
               AbsoluteThickness[2]]}, 
            "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
                Identity[
                 Part[#, 1]], 
                Identity[
                 Part[#, 2]]}& ), 
              "ScalingFunctions" -> {{Identity, Identity}, {
                Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
            False|>, 
          "Meta" -> <|
           "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
            ListPlot, "GroupHighlight" -> False|>|>]]& )[<|
        "HighlightElements" -> <|
          "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
         "LayoutOptions" -> <|
          "PanelPlotLayout" -> <||>, 
           "PlotRange" -> {{0.7083333333333349, 64.}, {
             0, 4.090134254223936*^-6}}, 
           "Frame" -> {{False, False}, {False, False}}, 
           "AxesOrigin" -> {0.7083333333333349, 0}, 
           "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
           "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
           "DefaultStyle" -> {
             Directive[
              PointSize[0.012833333333333334`], 
              RGBColor[0.368417, 0.506779, 0.709798], 
              AbsoluteThickness[2]]}, 
           "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
               Identity[
                Part[#, 1]], 
               Identity[
                Part[#, 2]]}& ), 
             "ScalingFunctions" -> {{Identity, Identity}, {
               Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
           False|>, 
         "Meta" -> <|
          "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
           ListPlot, "GroupHighlight" -> False|>|>],
       ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, {
        4.503599627370496*^15, -4.503599627370496*^15}}],
      Selectable->False]},
    Annotation[{{
       Annotation[{
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[2]], 
         Point[{{2., 4.090134254223936*^-6}, {4., 1.8322771074267467`*^-6}, {
          8., 2.1334272426790984`*^-7}, {16., 2.107660295090802*^-9}, {24., 
          2.045451411779113*^-11}, {32., 2.012976917516872*^-13}, {64., 
          2.5926751979743723`*^-15}}]}, "Charting`Private`Tag#1"]}}, <|
     "HighlightElements" -> <|
       "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
      "LayoutOptions" -> <|
       "PanelPlotLayout" -> <||>, 
        "PlotRange" -> {{0.7083333333333349, 64.}, {
          0, 4.090134254223936*^-6}}, 
        "Frame" -> {{False, False}, {False, False}}, 
        "AxesOrigin" -> {0.7083333333333349, 0}, 
        "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
        "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
          Directive[
           PointSize[0.012833333333333334`], 
           RGBColor[0.368417, 0.506779, 0.709798], 
           AbsoluteThickness[2]]}, 
        "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
            Identity[
             Part[#, 1]], 
            Identity[
             Part[#, 2]]}& ), 
          "ScalingFunctions" -> {{Identity, Identity}, {
            Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, 
      "Meta" -> <|
       "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
        ListPlot, "GroupHighlight" -> False|>|>, 
     "DynamicHighlight"]], {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0.7083333333333349, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "DefaultPlotStyle" -> {
      Directive[
       RGBColor[0.368417, 0.506779, 0.709798], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.880722, 0.611041, 0.142051], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.560181, 0.691569, 0.194885], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.922526, 0.385626, 0.209179], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.528488, 0.470624, 0.701351], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.772079, 0.431554, 0.102387], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.363898, 0.618501, 0.782349], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[1, 0.75, 0], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.647624, 0.37816, 0.614037], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.571589, 0.586483, 0.], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.915, 0.3325, 0.2125], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
       AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], 
    "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], 
    "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint", 
    "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->{{0.7083333333333349, 64.}, {0, 4.090134254223936*^-6}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.979894314731707*^9, 3.979894343796678*^9}, {
   3.979894449272065*^9, 3.979894470492511*^9}, 3.979900470816896*^9, 
   3.979900695446391*^9, 3.979900852581813*^9, 3.979901689459536*^9, 
   3.979901736798036*^9, 3.979903662623555*^9, 3.979904995994627*^9, 
   3.979905777554741*^9, 3.980587584517293*^9, 3.980587788153557*^9, {
   3.9805878203832903`*^9, 3.98058783728862*^9}, 3.980587946015777*^9},
 CellLabel->"Out[47]=",ExpressionUUID->"ddf3451a-b992-42fb-89b0-a4cbfbbfc2c6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLogPlot", "[", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
        "tauAll", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], 
        "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", 
       RowBox[{"tauAll", "\[LeftDoubleBracket]", 
        RowBox[{"i", ",", "2", ",", "1", ",", "2"}], 
        "\[RightDoubleBracket]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "ntab", "]"}]}], "}"}]}], "]"}], ",", 
   RowBox[{"PlotRange", "->", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.980588069298087*^9, 3.980588069700014*^9}},
 CellLabel->"In[55]:=",ExpressionUUID->"e0fa5a2d-b601-4139-a938-52e5e9df7cd9"],

Cell[BoxData[
 GraphicsBox[{{}, 
   InterpretationBox[{
     TagBox[
      TagBox[
       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
        0.012833333333333334`], AbsoluteThickness[2], 
        PointBox[{{2., -12.406932763454664`}, {4., -13.209951043638485`}, {
         8., -15.360365930223828`}, {16., -19.977687369589837`}, {
         24., -24.612817518542773`}, {32., -29.233991529038644`}, {
         64., -33.58608615729741}}]},
       Annotation[#, "Charting`Private`Tag#1"]& ],
      {"WolframDynamicHighlight", <|
       "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], 
     StyleBox[
      DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, 
        Slot["HighlightElements"], 
        Slot["LayoutOptions"], 
        Slot["Meta"], 
        Charting`HighlightActionFunction["DynamicHighlight", {{
           Annotation[{
             Directive[
              PointSize[0.012833333333333334`], 
              RGBColor[0.368417, 0.506779, 0.709798], 
              AbsoluteThickness[2]], 
             
             Point[{{2., -12.406932763454664`}, {4., -13.209951043638485`}, {
              8., -15.360365930223828`}, {16., -19.977687369589837`}, {
              24., -24.612817518542773`}, {32., -29.233991529038644`}, {
              64., -33.58608615729741}}]}, "Charting`Private`Tag#1"]}}, <|
         "HighlightElements" -> <|
           "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
          "LayoutOptions" -> <|
           "PanelPlotLayout" -> <||>, 
            "PlotRange" -> {{0.7083333333333349, 
             64.}, {-35.24347510269363, -12.406932763454664`}}, 
            "Frame" -> {{False, False}, {False, False}}, 
            "AxesOrigin" -> {0.7083333333333349, -35.24347510269363}, 
            "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
            "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
            "DefaultStyle" -> {
              Directive[
               PointSize[0.012833333333333334`], 
               RGBColor[0.368417, 0.506779, 0.709798], 
               AbsoluteThickness[2]]}, 
            "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
                Identity[
                 Part[#, 1]], 
                Exp[
                 Part[#, 2]]}& ), 
              "ScalingFunctions" -> {{Identity, Identity}, {Log, Exp}}|>, 
            "Primitives" -> {}, "GCFlag" -> False|>, 
          "Meta" -> <|
           "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
            ListLogPlot, "GroupHighlight" -> False|>|>]]& )[<|
        "HighlightElements" -> <|
          "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
         "LayoutOptions" -> <|
          "PanelPlotLayout" -> <||>, 
           "PlotRange" -> {{0.7083333333333349, 
            64.}, {-35.24347510269363, -12.406932763454664`}}, 
           "Frame" -> {{False, False}, {False, False}}, 
           "AxesOrigin" -> {0.7083333333333349, -35.24347510269363}, 
           "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
           "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
           "DefaultStyle" -> {
             Directive[
              PointSize[0.012833333333333334`], 
              RGBColor[0.368417, 0.506779, 0.709798], 
              AbsoluteThickness[2]]}, 
           "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
               Identity[
                Part[#, 1]], 
               Exp[
                Part[#, 2]]}& ), 
             "ScalingFunctions" -> {{Identity, Identity}, {Log, Exp}}|>, 
           "Primitives" -> {}, "GCFlag" -> False|>, 
         "Meta" -> <|
          "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
           ListLogPlot, "GroupHighlight" -> False|>|>],
       ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, {
        4.503599627370496*^15, -4.503599627370496*^15}}],
      Selectable->False]},
    Annotation[{{
       Annotation[{
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[2]], 
         Point[{{2., -12.406932763454664`}, {4., -13.209951043638485`}, {
          8., -15.360365930223828`}, {16., -19.977687369589837`}, {
          24., -24.612817518542773`}, {32., -29.233991529038644`}, {
          64., -33.58608615729741}}]}, "Charting`Private`Tag#1"]}}, <|
     "HighlightElements" -> <|
       "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
      "LayoutOptions" -> <|
       "PanelPlotLayout" -> <||>, 
        "PlotRange" -> {{0.7083333333333349, 
         64.}, {-35.24347510269363, -12.406932763454664`}}, 
        "Frame" -> {{False, False}, {False, False}}, 
        "AxesOrigin" -> {0.7083333333333349, -35.24347510269363}, 
        "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
        "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
          Directive[
           PointSize[0.012833333333333334`], 
           RGBColor[0.368417, 0.506779, 0.709798], 
           AbsoluteThickness[2]]}, 
        "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
            Identity[
             Part[#, 1]], 
            Exp[
             Part[#, 2]]}& ), 
          "ScalingFunctions" -> {{Identity, Identity}, {Log, Exp}}|>, 
        "Primitives" -> {}, "GCFlag" -> False|>, 
      "Meta" -> <|
       "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
        ListLogPlot, "GroupHighlight" -> False|>|>, 
     "DynamicHighlight"]], {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0.7083333333333349, -35.24347510269363},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{
     Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> 
      15.954589770191003`, RotateLabel -> 0], 
     Charting`ScaledFrameTicks[{Log, Exp}]}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "DefaultPlotStyle" -> {
      Directive[
       RGBColor[0.368417, 0.506779, 0.709798], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.880722, 0.611041, 0.142051], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.560181, 0.691569, 0.194885], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.922526, 0.385626, 0.209179], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.528488, 0.470624, 0.701351], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.772079, 0.431554, 0.102387], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.363898, 0.618501, 0.782349], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[1, 0.75, 0], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.647624, 0.37816, 0.614037], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.571589, 0.586483, 0.], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.915, 0.3325, 0.2125], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
       AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], 
    "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], 
    "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint", 
    "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Exp[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Exp[
         Part[#, 2]]}& )}},
  PlotRange->{{0.7083333333333349, 
   64.}, {-35.24347510269363, -12.406932763454664`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->FrontEndValueCache[{Automatic, 
     Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> 
      15.954589770191003`, RotateLabel -> 0]}, {
    Automatic, {{-32.23619130191664, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "14"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm], {0.01, 0.}}, {-27.631021115928547`, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "12"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm], {0.01, 0.}}, {-23.025850929940457`, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "10"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm], {0.01, 0.}}, {-18.420680743952367`, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "8"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm], {0.01, 0.}}, {-13.815510557964274`, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "6"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm], {0.01, 0.}}, {-36.841361487904734`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-34.538776394910684`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-29.933606208922594`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-25.328436022934504`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-20.72326583694641, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-16.11809565095832, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-11.512925464970229`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-9.210340371976182, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}}}]]], "Output",
 CellChangeTimes->{3.9805880701705313`*^9},
 CellLabel->"Out[55]=",ExpressionUUID->"d3dc3f0f-5b63-4a30-8b3c-ab95161587ab"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"data", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{
       "tauAll", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], 
       "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", 
      RowBox[{"tauAll", "\[LeftDoubleBracket]", 
       RowBox[{"i", ",", "2", ",", "1", ",", "2"}], 
       "\[RightDoubleBracket]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", 
      RowBox[{"Length", "[", "ntab", "]"}]}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.979904937812248*^9, 3.979904939192833*^9}},
 CellLabel->"In[56]:=",ExpressionUUID->"eaa3cac7-7f1d-44c3-85b5-98caaa530c83"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"2", ",", "4.090134254223936`*^-6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "1.8322771074267467`*^-6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", "2.1334272426790984`*^-7"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"16", ",", "2.107660295090802`*^-9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"24", ",", "2.045451411779113`*^-11"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"32", ",", "2.012976917516872`*^-13"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"64", ",", "2.5926751979743723`*^-15"}], "}"}]}], "}"}]], "Output",\

 CellChangeTimes->{3.9799040691924*^9, 3.979904996040936*^9, 
  3.979905777594728*^9, 3.980587584556135*^9, 3.9805879460625277`*^9, 
  3.980593419844103*^9},
 CellLabel->"Out[56]=",ExpressionUUID->"614ad118-76b9-4c0f-996e-afcf35600ab8"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"nlm", "=", 
   RowBox[{"NonlinearModelFit", "[", 
    RowBox[{"data", ",", 
     RowBox[{"c", "*", " ", 
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", "b"}], " ", "x"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"c", ",", "b"}], "}"}], ",", "x"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.979904926463336*^9, 3.979904944691762*^9}, {
  3.98059343498767*^9, 3.98059344480435*^9}},
 CellLabel->"In[60]:=",ExpressionUUID->"67e78d0c-da1a-4225-9b00-27d265129a08"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"nlm", "[", "\"\<BestFitParameters\>\"", "]"}], "\n"}]], "Input",
 CellChangeTimes->{{3.9799057334841013`*^9, 3.979905733486571*^9}},
 CellLabel->"In[61]:=",ExpressionUUID->"67c023cb-5e44-4970-ab23-0d309b1d2996"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"c", "\[Rule]", "9.545434356569917`*^-6"}], ",", 
   RowBox[{"b", "\[Rule]", "0.4215016947565601`"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.9799057776165137`*^9, 3.98058758460417*^9, 3.980587946088017*^9, {
   3.9805934254261837`*^9, 3.980593449534874*^9}},
 CellLabel->"Out[61]=",ExpressionUUID->"3f5c845d-2c95-4bec-b3ca-86340cec5950"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"nlm", "[", "x", "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "64"}], "}"}], ",", 
     RowBox[{"PlotRange", "->", "All"}]}], "]"}], ",", 
   RowBox[{"ListLogPlot", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{
         "tauAll", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], 
         "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", 
        RowBox[{"tauAll", "\[LeftDoubleBracket]", 
         RowBox[{"i", ",", "2", ",", "1", ",", "2"}], 
         "\[RightDoubleBracket]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", 
        RowBox[{"Length", "[", "ntab", "]"}]}], "}"}]}], "]"}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.979904147457768*^9, 3.979904194621921*^9}, 
   3.979904228299612*^9, {3.979904823712488*^9, 3.9799048393841133`*^9}, {
   3.97990581671494*^9, 3.979905817479417*^9}, {3.97990599385737*^9, 
   3.979905995699642*^9}, {3.980593460523966*^9, 3.9805934851933937`*^9}},
 CellLabel->"In[64]:=",ExpressionUUID->"3b651f96-a40f-43ee-bc31-0fde3b921200"],

Cell[BoxData[
 GraphicsBox[{
   InterpretationBox[{
     TagBox[{{{}, {}, 
        TagBox[
         {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], 
          Opacity[1.], LineBox[CompressedData["
1:eJwVxXk4lAkcAGDXPjk2hawmoXGNe5yDGXw/82EYx7dGrewikZSUo3Yr26Uo
kng8k7VJCF1CGKWa9FtJkUIqeXJsTCKEXUdqmd39431eemS8IFpORkbG/z//
z48e7cKxercxq8f/xOsyUIFclzBIExL96lk7b+gz0K4o/0IdrYzomhe8HjVm
oO+zntpCmoi40zhQvZXJwOBtC/dzac1EesB8ZBAwsJ95isyivSSM9xi1siIZ
WKxJnTxNkxBRlSfOLZUzMEWxjpFBmyX6zcEq09IEN4eUVE/PKEDT8N82+4JM
UUWaEsrTXQVelYk6w9FmaBT4afRh5hp4ixljU0nmuP+5M5E/S4Ot2X2n2vIs
UEukNiArqwen4hdXml+xxFtDZHuHiz4UKQduD3luhU2xhdohE4bQMsUtMppm
4pyx66rK3Qzg7ZUOco5ao9xixWptIzMwaE/ufapmgyxpxK2gKgvosHzbcvG8
Dban2j9vMWPCCVF6GW6wRb2c8cVrn6yhJj9ol0+tLY4vDA68sraFyjR5Y022
HZZ9vNemetYODDo7W3nP7FBV58qURGIPJcR4WGuYPZ7ZWb+92JAFU7c/vs+S
2OM8VEh2HHWE+qwVwXd+ccB9ts2i7x46gW+ckpghdcDBqubMLjobfrxqoryU
y8KvsS8LTJM5kKh0zptu6Ijm7iuWt99zgc17R5LTKxyRd4keU6PlBg3sTXk/
uDnhfp0t+u9CCfigfK085rETWkxsUunxB9CV4Zc/9ndGjVXTis1fADoEimfP
DjqjwoOCaoML7kBVVcTmx7Bxl/29XiVfLvBi4qyVvrKxwieyuHGeCz6eySNP
Mjk4N75u9UgeCTSL3TlP1V2wPognL/TwgKiEwwYO5S541DutSDTiAYfuJ11/
Z+mK9H7+m9I0Tyhk1tP761yR7ZgqpNl6gaN0zXHC0w1DdTsWZbu9oKQn5LWk
3Q3n2rKGElJ4kLpSrDGzhcB8hfB9AkNvYPnJe8IYgRoD9Zfkmr3hc4+v3ZQj
4DeHUzY6J/pAbkNZw8wxQJlr4dVD6nwQ6kzf1nwEmHS+Oku9iQ8CmzbzSVV3
vG+erqi2xxeEPW1accHuqMZPsjiu6geuco2Hvy1wxz7Lzu6DYj8oe0tsjpC4
482LhKEk3B+SnEU3XplwMayapaaz7A/NptTBv3Zx8VhaSUrf9QB48eTA3SYR
FytHdQpU/SjwmRD+LPrMxfTCtIiBAAr+SNN4M7zIxW2CSaOqQAo4erlsja9c
XC8W3/QPpsBKkC1NXOLi6eyfWs5EUqDekJHBlCNxB+v3GeWDFPSdOFJ4XYVE
/dQ13isuUxCvveNRsS6Jy06HVvZcpWBUNMLo1COxd3L4xeUKCrYGRJ+WbiAx
J7guzKuGgqCUSCrcgESpmWBvmpgCpw+hvdomJPZ1ZV+U76ZAri5wMs+GxIaT
C1Hdryj41a+TarElUcjZYlr6hoLZ9wG1c3Yk+pZbibgDFHxY67d/I4vEuwee
taaMUdB+xEtWnUNinqVDduAEBZ5rH0W5u5CYOHRhI32KgsYasiXBlUQTv7hB
nKXgpgQyOwgSFWRfluUsUGB65MHkMpD4Zz0nNuILBaVabt9bcUkUx5YyrZco
WF8jrg0jSfxNT2VOKqXgHJ+jmeVB4r9BjUdw
           "]]},
         Annotation[#, "Charting`Private`Tag#1"]& ]}, {}},
      {"WolframDynamicHighlight", <|
       "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], 
     StyleBox[
      DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, 
        Slot["HighlightElements"], 
        Slot["LayoutOptions"], 
        Slot["Meta"], 
        Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, 
            Annotation[{
              Directive[
               Opacity[1.], 
               RGBColor[0.368417, 0.506779, 0.709798], 
               AbsoluteThickness[2]], 
              Line[CompressedData["
1:eJwVxXk4lAkcAGDXPjk2hawmoXGNe5yDGXw/82EYx7dGrewikZSUo3Yr26Uo
kng8k7VJCF1CGKWa9FtJkUIqeXJsTCKEXUdqmd39431eemS8IFpORkbG/z//
z48e7cKxercxq8f/xOsyUIFclzBIExL96lk7b+gz0K4o/0IdrYzomhe8HjVm
oO+zntpCmoi40zhQvZXJwOBtC/dzac1EesB8ZBAwsJ95isyivSSM9xi1siIZ
WKxJnTxNkxBRlSfOLZUzMEWxjpFBmyX6zcEq09IEN4eUVE/PKEDT8N82+4JM
UUWaEsrTXQVelYk6w9FmaBT4afRh5hp4ixljU0nmuP+5M5E/S4Ot2X2n2vIs
UEukNiArqwen4hdXml+xxFtDZHuHiz4UKQduD3luhU2xhdohE4bQMsUtMppm
4pyx66rK3Qzg7ZUOco5ao9xixWptIzMwaE/ufapmgyxpxK2gKgvosHzbcvG8
Dban2j9vMWPCCVF6GW6wRb2c8cVrn6yhJj9ol0+tLY4vDA68sraFyjR5Y022
HZZ9vNemetYODDo7W3nP7FBV58qURGIPJcR4WGuYPZ7ZWb+92JAFU7c/vs+S
2OM8VEh2HHWE+qwVwXd+ccB9ts2i7x46gW+ckpghdcDBqubMLjobfrxqoryU
y8KvsS8LTJM5kKh0zptu6Ijm7iuWt99zgc17R5LTKxyRd4keU6PlBg3sTXk/
uDnhfp0t+u9CCfigfK085rETWkxsUunxB9CV4Zc/9ndGjVXTis1fADoEimfP
DjqjwoOCaoML7kBVVcTmx7Bxl/29XiVfLvBi4qyVvrKxwieyuHGeCz6eySNP
Mjk4N75u9UgeCTSL3TlP1V2wPognL/TwgKiEwwYO5S541DutSDTiAYfuJ11/
Z+mK9H7+m9I0Tyhk1tP761yR7ZgqpNl6gaN0zXHC0w1DdTsWZbu9oKQn5LWk
3Q3n2rKGElJ4kLpSrDGzhcB8hfB9AkNvYPnJe8IYgRoD9Zfkmr3hc4+v3ZQj
4DeHUzY6J/pAbkNZw8wxQJlr4dVD6nwQ6kzf1nwEmHS+Oku9iQ8CmzbzSVV3
vG+erqi2xxeEPW1accHuqMZPsjiu6geuco2Hvy1wxz7Lzu6DYj8oe0tsjpC4
482LhKEk3B+SnEU3XplwMayapaaz7A/NptTBv3Zx8VhaSUrf9QB48eTA3SYR
FytHdQpU/SjwmRD+LPrMxfTCtIiBAAr+SNN4M7zIxW2CSaOqQAo4erlsja9c
XC8W3/QPpsBKkC1NXOLi6eyfWs5EUqDekJHBlCNxB+v3GeWDFPSdOFJ4XYVE
/dQ13isuUxCvveNRsS6Jy06HVvZcpWBUNMLo1COxd3L4xeUKCrYGRJ+WbiAx
J7guzKuGgqCUSCrcgESpmWBvmpgCpw+hvdomJPZ1ZV+U76ZAri5wMs+GxIaT
C1Hdryj41a+TarElUcjZYlr6hoLZ9wG1c3Yk+pZbibgDFHxY67d/I4vEuwee
taaMUdB+xEtWnUNinqVDduAEBZ5rH0W5u5CYOHRhI32KgsYasiXBlUQTv7hB
nKXgpgQyOwgSFWRfluUsUGB65MHkMpD4Zz0nNuILBaVabt9bcUkUx5YyrZco
WF8jrg0jSfxNT2VOKqXgHJ+jmeVB4r9BjUdw
               "]]}, "Charting`Private`Tag#1"]}}, {}}, <|
         "HighlightElements" -> <|
           "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
          "LayoutOptions" -> <|
           "PanelPlotLayout" -> <||>, "PlotRange" -> {All, All}, 
            "Frame" -> {{False, False}, {False, False}}, 
            "AxesOrigin" -> {0, -10.06077551486876}, 
            "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
            "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
            "DefaultStyle" -> {
              Directive[
               Opacity[1.], 
               RGBColor[0.368417, 0.506779, 0.709798], 
               AbsoluteThickness[2]]}, 
            "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
                Identity[
                 Part[#, 1]], 
                Identity[
                 Part[#, 2]]}& ), 
              "ScalingFunctions" -> {{Identity, Identity}, {
                Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
            False|>, 
          "Meta" -> <|
           "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
            Plot, "GroupHighlight" -> False|>|>]]& )[<|
        "HighlightElements" -> <|
          "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
         "LayoutOptions" -> <|
          "PanelPlotLayout" -> <||>, "PlotRange" -> {All, All}, 
           "Frame" -> {{False, False}, {False, False}}, 
           "AxesOrigin" -> {0, -10.06077551486876}, 
           "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
           "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
           "DefaultStyle" -> {
             Directive[
              Opacity[1.], 
              RGBColor[0.368417, 0.506779, 0.709798], 
              AbsoluteThickness[2]]}, 
           "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
               Identity[
                Part[#, 1]], 
               Identity[
                Part[#, 2]]}& ), 
             "ScalingFunctions" -> {{Identity, Identity}, {
               Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
           False|>, 
         "Meta" -> <|
          "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
           Plot, "GroupHighlight" -> False|>|>],
       ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, {
        4.503599627370496*^15, -4.503599627370496*^15}}],
      Selectable->False]},
    Annotation[{{{{}, {}, 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[0.368417, 0.506779, 0.709798], 
           AbsoluteThickness[2]], 
          Line[CompressedData["
1:eJwVxXk4lAkcAGDXPjk2hawmoXGNe5yDGXw/82EYx7dGrewikZSUo3Yr26Uo
kng8k7VJCF1CGKWa9FtJkUIqeXJsTCKEXUdqmd39431eemS8IFpORkbG/z//
z48e7cKxercxq8f/xOsyUIFclzBIExL96lk7b+gz0K4o/0IdrYzomhe8HjVm
oO+zntpCmoi40zhQvZXJwOBtC/dzac1EesB8ZBAwsJ95isyivSSM9xi1siIZ
WKxJnTxNkxBRlSfOLZUzMEWxjpFBmyX6zcEq09IEN4eUVE/PKEDT8N82+4JM
UUWaEsrTXQVelYk6w9FmaBT4afRh5hp4ixljU0nmuP+5M5E/S4Ot2X2n2vIs
UEukNiArqwen4hdXml+xxFtDZHuHiz4UKQduD3luhU2xhdohE4bQMsUtMppm
4pyx66rK3Qzg7ZUOco5ao9xixWptIzMwaE/ufapmgyxpxK2gKgvosHzbcvG8
Dban2j9vMWPCCVF6GW6wRb2c8cVrn6yhJj9ol0+tLY4vDA68sraFyjR5Y022
HZZ9vNemetYODDo7W3nP7FBV58qURGIPJcR4WGuYPZ7ZWb+92JAFU7c/vs+S
2OM8VEh2HHWE+qwVwXd+ccB9ts2i7x46gW+ckpghdcDBqubMLjobfrxqoryU
y8KvsS8LTJM5kKh0zptu6Ijm7iuWt99zgc17R5LTKxyRd4keU6PlBg3sTXk/
uDnhfp0t+u9CCfigfK085rETWkxsUunxB9CV4Zc/9ndGjVXTis1fADoEimfP
DjqjwoOCaoML7kBVVcTmx7Bxl/29XiVfLvBi4qyVvrKxwieyuHGeCz6eySNP
Mjk4N75u9UgeCTSL3TlP1V2wPognL/TwgKiEwwYO5S541DutSDTiAYfuJ11/
Z+mK9H7+m9I0Tyhk1tP761yR7ZgqpNl6gaN0zXHC0w1DdTsWZbu9oKQn5LWk
3Q3n2rKGElJ4kLpSrDGzhcB8hfB9AkNvYPnJe8IYgRoD9Zfkmr3hc4+v3ZQj
4DeHUzY6J/pAbkNZw8wxQJlr4dVD6nwQ6kzf1nwEmHS+Oku9iQ8CmzbzSVV3
vG+erqi2xxeEPW1accHuqMZPsjiu6geuco2Hvy1wxz7Lzu6DYj8oe0tsjpC4
482LhKEk3B+SnEU3XplwMayapaaz7A/NptTBv3Zx8VhaSUrf9QB48eTA3SYR
FytHdQpU/SjwmRD+LPrMxfTCtIiBAAr+SNN4M7zIxW2CSaOqQAo4erlsja9c
XC8W3/QPpsBKkC1NXOLi6eyfWs5EUqDekJHBlCNxB+v3GeWDFPSdOFJ4XYVE
/dQ13isuUxCvveNRsS6Jy06HVvZcpWBUNMLo1COxd3L4xeUKCrYGRJ+WbiAx
J7guzKuGgqCUSCrcgESpmWBvmpgCpw+hvdomJPZ1ZV+U76ZAri5wMs+GxIaT
C1Hdryj41a+TarElUcjZYlr6hoLZ9wG1c3Yk+pZbibgDFHxY67d/I4vEuwee
taaMUdB+xEtWnUNinqVDduAEBZ5rH0W5u5CYOHRhI32KgsYasiXBlUQTv7hB
nKXgpgQyOwgSFWRfluUsUGB65MHkMpD4Zz0nNuILBaVabt9bcUkUx5YyrZco
WF8jrg0jSfxNT2VOKqXgHJ+jmeVB4r9BjUdw
           "]]}, "Charting`Private`Tag#1"]}}, {}}, <|
     "HighlightElements" -> <|
       "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
      "LayoutOptions" -> <|
       "PanelPlotLayout" -> <||>, "PlotRange" -> {All, All}, 
        "Frame" -> {{False, False}, {False, False}}, 
        "AxesOrigin" -> {0, -10.06077551486876}, 
        "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
        "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
          Directive[
           Opacity[1.], 
           RGBColor[0.368417, 0.506779, 0.709798], 
           AbsoluteThickness[2]]}, 
        "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
            Identity[
             Part[#, 1]], 
            Identity[
             Part[#, 2]]}& ), 
          "ScalingFunctions" -> {{Identity, Identity}, {
            Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, 
      "Meta" -> <|
       "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
        Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, 
    InterpretationBox[{
      TagBox[
       TagBox[
        {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
         0.012833333333333334`], AbsoluteThickness[2], 
         PointBox[{{2., -12.406932763454664`}, {4., -13.209951043638485`}, {
          8., -15.360365930223828`}, {16., -19.977687369589837`}, {
          24., -24.612817518542773`}, {32., -29.233991529038644`}, {
          64., -33.58608615729741}}]},
        Annotation[#, "Charting`Private`Tag#1"]& ],
       {"WolframDynamicHighlight", <|
        "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], 
      StyleBox[
       DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, 
         Slot["HighlightElements"], 
         Slot["LayoutOptions"], 
         Slot["Meta"], 
         Charting`HighlightActionFunction["DynamicHighlight", {{
            Annotation[{
              Directive[
               PointSize[0.012833333333333334`], 
               RGBColor[0.368417, 0.506779, 0.709798], 
               AbsoluteThickness[2]], 
              
              Point[{{2., -12.406932763454664`}, {4., -13.209951043638485`}, {
               8., -15.360365930223828`}, {16., -19.977687369589837`}, {
               24., -24.612817518542773`}, {32., -29.233991529038644`}, {
               64., -33.58608615729741}}]}, "Charting`Private`Tag#1"]}}, <|
          "HighlightElements" -> <|
            "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
           "LayoutOptions" -> <|
            "PanelPlotLayout" -> <||>, 
             "PlotRange" -> {{
               0, 64.}, {-35.24347510269363, -12.406932763454664`}}, 
             "Frame" -> {{False, False}, {False, False}}, 
             "AxesOrigin" -> {0, -35.24347510269363}, 
             "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
             "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
             "DefaultStyle" -> {
               Directive[
                PointSize[0.012833333333333334`], 
                RGBColor[0.368417, 0.506779, 0.709798], 
                AbsoluteThickness[2]]}, 
             "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
                 Identity[
                  Part[#, 1]], 
                 Exp[
                  Part[#, 2]]}& ), 
               "ScalingFunctions" -> {{Identity, Identity}, {Log, Exp}}|>, 
             "Primitives" -> {}, "GCFlag" -> False|>, 
           "Meta" -> <|
            "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, 
             "Function" -> ListLogPlot, "GroupHighlight" -> False|>|>]]& )[<|
         "HighlightElements" -> <|
           "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
          "LayoutOptions" -> <|
           "PanelPlotLayout" -> <||>, 
            "PlotRange" -> {{
              0, 64.}, {-35.24347510269363, -12.406932763454664`}}, 
            "Frame" -> {{False, False}, {False, False}}, 
            "AxesOrigin" -> {0, -35.24347510269363}, 
            "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
            "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
            "DefaultStyle" -> {
              Directive[
               PointSize[0.012833333333333334`], 
               RGBColor[0.368417, 0.506779, 0.709798], 
               AbsoluteThickness[2]]}, 
            "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
                Identity[
                 Part[#, 1]], 
                Exp[
                 Part[#, 2]]}& ), 
              "ScalingFunctions" -> {{Identity, Identity}, {Log, Exp}}|>, 
            "Primitives" -> {}, "GCFlag" -> False|>, 
          "Meta" -> <|
           "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
            ListLogPlot, "GroupHighlight" -> False|>|>],
        ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, {
         4.503599627370496*^15, -4.503599627370496*^15}}],
       Selectable->False]},
     Annotation[{{
        Annotation[{
          Directive[
           PointSize[0.012833333333333334`], 
           RGBColor[0.368417, 0.506779, 0.709798], 
           AbsoluteThickness[2]], 
          
          Point[{{2., -12.406932763454664`}, {4., -13.209951043638485`}, {
           8., -15.360365930223828`}, {16., -19.977687369589837`}, {
           24., -24.612817518542773`}, {32., -29.233991529038644`}, {
           64., -33.58608615729741}}]}, "Charting`Private`Tag#1"]}}, <|
      "HighlightElements" -> <|
        "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
       "LayoutOptions" -> <|
        "PanelPlotLayout" -> <||>, 
         "PlotRange" -> {{
           0, 64.}, {-35.24347510269363, -12.406932763454664`}}, 
         "Frame" -> {{False, False}, {False, False}}, 
         "AxesOrigin" -> {0, -35.24347510269363}, 
         "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
         "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
         "DefaultStyle" -> {
           Directive[
            PointSize[0.012833333333333334`], 
            RGBColor[0.368417, 0.506779, 0.709798], 
            AbsoluteThickness[2]]}, 
         "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
             Identity[
              Part[#, 1]], 
             Exp[
              Part[#, 2]]}& ), 
           "ScalingFunctions" -> {{Identity, Identity}, {Log, Exp}}|>, 
         "Primitives" -> {}, "GCFlag" -> False|>, 
       "Meta" -> <|
        "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
         ListLogPlot, "GroupHighlight" -> False|>|>, 
      "DynamicHighlight"]], {{}, {}}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, -10.06077551486876},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->{446.46874999999966`, Automatic},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.979904161042507*^9, 3.9799041950719633`*^9}, 
   3.979904230603808*^9, {3.979904832886838*^9, 3.979904840008385*^9}, 
   3.979904996088595*^9, 3.979905777641854*^9, 3.979905818098041*^9, 
   3.97990599612595*^9, 3.980587584624601*^9, 3.980587946108838*^9, {
   3.980593451989596*^9, 3.9805934855379972`*^9}},
 CellLabel->"Out[64]=",ExpressionUUID->"d70f3dcf-ef89-49aa-b296-4ebfbfe543ae"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "This", " ", "plot", " ", "shows", " ", "the", " ", "ballistic", " ", 
   "nature", " ", "of", " ", "the", " ", "classical", " ", "current", " ", 
   "in", " ", "the", " ", "gapped", " ", "regime"}], "*)"}]], "Input",
 CellChangeTimes->{{3.979894806816448*^9, 3.979894812261078*^9}, {
  3.97990074294582*^9, 3.979900761698267*^9}, {3.9805937294212427`*^9, 
  3.980593737790668*^9}},ExpressionUUID->"64e4e9b4-ddf5-4e8b-940f-\
cfa4df4d345c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
        "etaAll", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], 
        "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", 
       RowBox[{"etaAll", "\[LeftDoubleBracket]", 
        RowBox[{"i", ",", "2", ",", "1", ",", "2"}], 
        "\[RightDoubleBracket]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "ntab", "]"}]}], "}"}]}], "]"}], ",", 
   RowBox[{"PlotRange", "->", 
    RowBox[{"{", 
     RowBox[{"0", ",", "All"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.979892630952886*^9, 3.979892689804234*^9}, 
   3.979894113922936*^9, {3.979894251532318*^9, 3.979894273456459*^9}, {
   3.979894304922035*^9, 3.9798943432960653`*^9}, {3.979894464417425*^9, 
   3.9798944702200727`*^9}, {3.979900667198031*^9, 3.979900668583705*^9}, {
   3.98058781938262*^9, 3.9805878369281197`*^9}, {3.9805937650927563`*^9, 
   3.9805937891332273`*^9}},
 CellLabel->"In[83]:=",ExpressionUUID->"079fba06-32ef-4494-95eb-2353588fe49e"],

Cell[BoxData[
 GraphicsBox[{{}, 
   InterpretationBox[{
     TagBox[
      TagBox[
       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
        0.012833333333333334`], AbsoluteThickness[2], 
        PointBox[{{2., 0.000022884830059407852`}, {4., 
         0.000019954414187679277`}, {8., 0.00001810371395926227}, {16., 
         0.000017863149856215786`}, {24., 0.00001787831039029042}, {32., 
         0.000017872034625623794`}, {64., 0.000017868022279526825`}}]},
       Annotation[#, "Charting`Private`Tag#1"]& ],
      {"WolframDynamicHighlight", <|
       "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], 
     StyleBox[
      DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, 
        Slot["HighlightElements"], 
        Slot["LayoutOptions"], 
        Slot["Meta"], 
        Charting`HighlightActionFunction["DynamicHighlight", {{
           Annotation[{
             Directive[
              PointSize[0.012833333333333334`], 
              RGBColor[0.368417, 0.506779, 0.709798], 
              AbsoluteThickness[2]], 
             
             Point[{{2., 0.000022884830059407852`}, {4., 
              0.000019954414187679277`}, {8., 0.00001810371395926227}, {16., 
              0.000017863149856215786`}, {24., 0.00001787831039029042}, {32., 
              0.000017872034625623794`}, {64., 0.000017868022279526825`}}]}, 
            "Charting`Private`Tag#1"]}}, <|
         "HighlightElements" -> <|
           "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
          "LayoutOptions" -> <|
           "PanelPlotLayout" -> <||>, 
            "PlotRange" -> {{0, 64.}, {0., 0.000022884830059407852`}}, 
            "Frame" -> {{False, False}, {False, False}}, 
            "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, 
            "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> 
            GoldenRatio^(-1), "DefaultStyle" -> {
              Directive[
               PointSize[0.012833333333333334`], 
               RGBColor[0.368417, 0.506779, 0.709798], 
               AbsoluteThickness[2]]}, 
            "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
                Identity[
                 Part[#, 1]], 
                Identity[
                 Part[#, 2]]}& ), 
              "ScalingFunctions" -> {{Identity, Identity}, {
                Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
            False|>, 
          "Meta" -> <|
           "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
            ListPlot, "GroupHighlight" -> False|>|>]]& )[<|
        "HighlightElements" -> <|
          "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
         "LayoutOptions" -> <|
          "PanelPlotLayout" -> <||>, 
           "PlotRange" -> {{0, 64.}, {0., 0.000022884830059407852`}}, 
           "Frame" -> {{False, False}, {False, False}}, 
           "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, 
           "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> 
           GoldenRatio^(-1), "DefaultStyle" -> {
             Directive[
              PointSize[0.012833333333333334`], 
              RGBColor[0.368417, 0.506779, 0.709798], 
              AbsoluteThickness[2]]}, 
           "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
               Identity[
                Part[#, 1]], 
               Identity[
                Part[#, 2]]}& ), 
             "ScalingFunctions" -> {{Identity, Identity}, {
               Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
           False|>, 
         "Meta" -> <|
          "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
           ListPlot, "GroupHighlight" -> False|>|>],
       ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, {
        4.503599627370496*^15, -4.503599627370496*^15}}],
      Selectable->False]},
    Annotation[{{
       Annotation[{
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[2]], 
         Point[{{2., 0.000022884830059407852`}, {4., 
          0.000019954414187679277`}, {8., 0.00001810371395926227}, {16., 
          0.000017863149856215786`}, {24., 0.00001787831039029042}, {32., 
          0.000017872034625623794`}, {64., 0.000017868022279526825`}}]}, 
        "Charting`Private`Tag#1"]}}, <|
     "HighlightElements" -> <|
       "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
      "LayoutOptions" -> <|
       "PanelPlotLayout" -> <||>, 
        "PlotRange" -> {{0, 64.}, {0., 0.000022884830059407852`}}, 
        "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, 
        "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
        "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
          Directive[
           PointSize[0.012833333333333334`], 
           RGBColor[0.368417, 0.506779, 0.709798], 
           AbsoluteThickness[2]]}, 
        "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
            Identity[
             Part[#, 1]], 
            Identity[
             Part[#, 2]]}& ), 
          "ScalingFunctions" -> {{Identity, Identity}, {
            Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, 
      "Meta" -> <|
       "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
        ListPlot, "GroupHighlight" -> False|>|>, 
     "DynamicHighlight"]], {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "DefaultPlotStyle" -> {
      Directive[
       RGBColor[0.368417, 0.506779, 0.709798], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.880722, 0.611041, 0.142051], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.560181, 0.691569, 0.194885], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.922526, 0.385626, 0.209179], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.528488, 0.470624, 0.701351], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.772079, 0.431554, 0.102387], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.363898, 0.618501, 0.782349], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[1, 0.75, 0], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.647624, 0.37816, 0.614037], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.571589, 0.586483, 0.], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.915, 0.3325, 0.2125], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
       AbsoluteThickness[2]], 
      Directive[
       RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
       AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], 
    "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], 
    "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint", 
    "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 64.}, {0., 0.000022884830059407852`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {0, 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.980593772777052*^9, 3.980593789504443*^9}},
 CellLabel->"Out[83]=",ExpressionUUID->"a3fa835d-3afc-4cf1-beae-da71daf5b23c"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"0.00015", "*", 
     RowBox[{"Exp", "[", 
      FractionBox[
       RowBox[{
        RowBox[{"-", "2"}], 
        RowBox[{"(", 
         RowBox[{"x", "-", "1"}], ")"}], 
        RowBox[{"Abs", "[", 
         RowBox[{"v1", "-", "v2"}], "]"}]}], 
       RowBox[{"a", 
        SqrtBox[
         RowBox[{"v1", " ", "v2"}]]}]], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"x", " ", ",", "0", ",", "25"}], "}"}]}], "]"}], "*)"}]], "Input",\

 CellChangeTimes->{{3.9799037031046143`*^9, 3.979903708583083*^9}, {
  3.979903743760998*^9, 3.9799038368981743`*^9}, {3.980593745666032*^9, 
  3.9805937489488297`*^9}},ExpressionUUID->"088322af-782b-43ad-a11b-\
fd05d00aa937"],

Cell[BoxData[
 RowBox[{"(*", 
  FractionBox[
   RowBox[{
    RowBox[{"-", "2"}], 
    RowBox[{"Abs", "[", 
     RowBox[{"v1", "-", "v2"}], "]"}]}], 
   RowBox[{"a", 
    SqrtBox[
     RowBox[{"v1", " ", "v2"}]]}]], "*)"}]], "Input",
 CellChangeTimes->{{3.979905892528281*^9, 3.979905922901809*^9}, {
  3.980593673679328*^9, 
  3.980593679330761*^9}},ExpressionUUID->"d98c0cd7-f11c-4eab-9478-\
99a0492c20d5"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"Show", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"Log", "[", 
        RowBox[{"0.000085", "*", 
         RowBox[{"Exp", "[", 
          FractionBox[
           RowBox[{
            RowBox[{"-", "2"}], 
            RowBox[{"(", 
             RowBox[{"x", "-", "1"}], ")"}], 
            RowBox[{"Abs", "[", 
             RowBox[{"v1", "-", "v2"}], "]"}]}], 
           RowBox[{"a", 
            SqrtBox[
             RowBox[{"v1", " ", "v2"}]]}]], "]"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", " ", ",", "0", ",", "64"}], "}"}], ",", 
       RowBox[{"PlotRange", "->", "All"}]}], "]"}], ",", 
     RowBox[{"ListLogPlot", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
            "tauAll", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], 
            "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", 
           RowBox[{"tauAll", "\[LeftDoubleBracket]", 
            RowBox[{"i", ",", "2", ",", "1", ",", "2"}], 
            "\[RightDoubleBracket]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{"Length", "[", "ntab", "]"}]}], "}"}]}], "]"}], ",", 
       RowBox[{"PlotRange", "->", 
        RowBox[{"{", 
         RowBox[{"0", ",", "All"}], "}"}]}]}], "]"}]}], "}"}], "]"}], 
  "*)"}]], "Input",
 CellChangeTimes->{{3.979903925737199*^9, 3.979904048766334*^9}, {
  3.979905953374276*^9, 3.979905966507024*^9}, {3.980593519155459*^9, 
  3.9805935689425917`*^9}, {3.980593611039242*^9, 3.98059362765908*^9}, {
  3.980593683535437*^9, 
  3.980593688057665*^9}},ExpressionUUID->"ccd840a8-3327-4535-b5f5-\
f05e07568d72"]
}, Closed]]
},
WindowSize->{1512, 916},
WindowMargins->{{0, Automatic}, {Automatic, 37}},
TaggingRules->Association["TryRealOnly" -> False],
Magnification:>1.5 Inherited,
FrontEndVersion->"12.1 for Linux x86 (64-bit) (June 19, 2020)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"07474722-79e1-4bc7-ada7-af372a751208"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 836, 14, 66, "Subsubsection",ExpressionUUID->"57b89fee-1e8e-419a-b3f8-f50557528b4e"],
Cell[1419, 38, 495, 9, 78, "Input",ExpressionUUID->"af4b6ac6-3a20-4444-9f29-a5378aada736"],
Cell[1917, 49, 17651, 292, 380, "Input",ExpressionUUID->"295a613f-f86c-411e-9ecb-265de5dd104c"],
Cell[19571, 343, 1254, 19, 45, "Input",ExpressionUUID->"891d4ea6-9886-4f09-808d-123df7b2640b"],
Cell[20828, 364, 1272, 39, 155, "Input",ExpressionUUID->"f4a1c207-08f9-41a6-b9a6-4cbf1f1fce36"],
Cell[CellGroupData[{
Cell[22125, 407, 173, 2, 45, "Input",ExpressionUUID->"260f0f97-fb79-4aa9-a922-3f1c3464fd06"],
Cell[22301, 411, 2057, 29, 51, "Output",ExpressionUUID->"a9509137-782a-4756-820f-bcfdbfac85e9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24395, 445, 222, 3, 45, "Input",ExpressionUUID->"d367d10f-aea6-43bb-bf3f-9682cf64b593"],
Cell[24620, 450, 2074, 30, 51, "Output",ExpressionUUID->"8fe57e20-c563-4c4c-9183-82fd3659cb74"]
}, Open  ]],
Cell[26709, 483, 1588, 43, 403, "Input",ExpressionUUID->"1f4f49d0-c0c1-4223-81ae-0e87823dbff5"],
Cell[28300, 528, 250, 4, 45, "Input",ExpressionUUID->"8ba05414-9409-4cef-aadf-e8fd79c86566"],
Cell[28553, 534, 1385, 29, 83, "Input",ExpressionUUID->"90e2d787-2045-4129-a6c5-d1c5928962e9"],
Cell[29941, 565, 1685, 34, 100, "Input",ExpressionUUID->"2eb9fc3a-a630-4507-a12a-27c19aa9687c"],
Cell[CellGroupData[{
Cell[31651, 603, 177, 2, 45, "Input",ExpressionUUID->"18c673a4-2c7d-41a4-8ba3-a87ba3cec9b7"],
Cell[31831, 607, 468, 9, 51, "Output",ExpressionUUID->"e6a3351a-7cd6-4a71-aa22-bf365b262db0"]
}, Open  ]],
Cell[32314, 619, 9603, 197, 564, "Input",ExpressionUUID->"f35a1ba7-9c65-442f-8a32-8692eda0fb47"],
Cell[41920, 818, 6323, 154, 492, "Input",ExpressionUUID->"ec5c55c2-e2fd-4149-9a2c-00115bad7c5e"],
Cell[48246, 974, 1360, 38, 110, "Input",ExpressionUUID->"726ab15b-b9f9-43f5-95ac-3f097b020fbb"],
Cell[49609, 1014, 1355, 38, 110, "Input",ExpressionUUID->"ad2a36cd-c807-47bb-a49b-dd6494220461"],
Cell[50967, 1054, 1409, 38, 110, "Input",ExpressionUUID->"abb3050e-9b23-4101-b19e-6c8d365c5272"],
Cell[CellGroupData[{
Cell[52401, 1096, 177, 2, 45, "Input",ExpressionUUID->"92eae0ce-e882-4e3a-822b-36c197c030ff"],
Cell[52581, 1100, 5801, 89, 54, "Output",ExpressionUUID->"b6a947d1-017c-46d7-b3d1-3bc40ee9297b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[58419, 1194, 176, 2, 45, "Input",ExpressionUUID->"0d7c03b5-35b1-4ba7-8677-287834ea64cc"],
Cell[58598, 1198, 3367, 54, 54, "Output",ExpressionUUID->"0d033515-05a0-4234-bb04-374b99211860"]
}, Open  ]],
Cell[CellGroupData[{
Cell[62002, 1257, 177, 2, 45, "Input",ExpressionUUID->"ce6d1425-5183-46cf-8e3c-4c69d8f0c72e"],
Cell[62182, 1261, 3349, 54, 51, "Output",ExpressionUUID->"2008a062-0e44-4c78-b548-44a5e05011c9"]
}, Open  ]],
Cell[65546, 1318, 362, 7, 45, "Input",ExpressionUUID->"fef656d7-a6f1-4ab2-98ae-aa81acb75451"],
Cell[CellGroupData[{
Cell[65933, 1329, 418, 9, 45, "Input",ExpressionUUID->"fc98afd6-239c-406f-aa89-e13860d441b9"],
Cell[66354, 1340, 10059, 225, 350, "Output",ExpressionUUID->"bb7aed1e-1638-44a0-95e5-6dd4b3f65825"]
}, Open  ]],
Cell[76428, 1568, 232, 4, 45, "Input",ExpressionUUID->"c648c0c8-4cbb-421b-9d32-4e73fe2fdab3"],
Cell[CellGroupData[{
Cell[76685, 1576, 337, 7, 45, "Input",ExpressionUUID->"7fc7455f-3c00-449d-a22f-f866103a43a4"],
Cell[77025, 1585, 332, 6, 51, "Output",ExpressionUUID->"1b4ce413-ec30-4008-a35e-969d5bd0ac45"]
}, Open  ]],
Cell[CellGroupData[{
Cell[77394, 1596, 855, 23, 48, "Input",ExpressionUUID->"516772a0-5360-4d1d-8f42-5e1f582a2b50"],
Cell[78252, 1621, 19007, 403, 350, "Output",ExpressionUUID->"92f5bfb3-1042-424c-a744-d0f71b428225"]
}, Open  ]],
Cell[97274, 2027, 380, 7, 45, "Input",ExpressionUUID->"6d13cd51-d5a1-464a-8732-63cf62a694f2"],
Cell[97657, 2036, 433, 8, 45, "Input",ExpressionUUID->"596762d9-4f8a-4323-8fd5-4c88e90298ad"],
Cell[98093, 2046, 687, 17, 45, "Input",ExpressionUUID->"dfa5a43b-507c-4aae-b430-6669b8fe7aea"]
}, Open  ]],
Cell[CellGroupData[{
Cell[98817, 2068, 950, 15, 66, "Subsubsection",ExpressionUUID->"4d83b841-b6e5-49e4-b920-3af259f80bf9"],
Cell[99770, 2085, 686, 11, 78, "Input",ExpressionUUID->"ea99d1d8-114c-4ff1-81d6-18ece2be04a6"],
Cell[100459, 2098, 17860, 294, 316, "Input",ExpressionUUID->"28b7ab8e-fdfd-4eca-a911-a0fa48a49567"],
Cell[118322, 2394, 522, 11, 45, "Input",ExpressionUUID->"cc0bb6c2-dc3f-4238-9bb6-a54bd0066bd1"],
Cell[118847, 2407, 1255, 19, 45, "Input",ExpressionUUID->"66d3c89b-126f-40b4-a3ba-9af259b848ae"],
Cell[120105, 2428, 1321, 40, 155, "Input",ExpressionUUID->"b9c3197e-e0f0-431d-80e9-f387df2ded21"],
Cell[CellGroupData[{
Cell[121451, 2472, 273, 4, 45, "Input",ExpressionUUID->"81198113-c1f0-441e-9244-2f324a574164"],
Cell[121727, 2478, 1368, 19, 51, "Output",ExpressionUUID->"9fc49309-98f3-448d-b5d5-74f1efc0440c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[123132, 2502, 221, 3, 45, "Input",ExpressionUUID->"62852c21-a1ff-4da9-9995-165ed9a34f13"],
Cell[123356, 2507, 3250, 47, 51, "Output",ExpressionUUID->"4d9ceb08-bea9-44ea-a61c-166f8eebf559"]
}, Open  ]],
Cell[126621, 2557, 1588, 43, 403, "Input",ExpressionUUID->"8fe1c3fc-e834-4aa2-82b0-b24995173164"],
Cell[128212, 2602, 250, 4, 45, "Input",ExpressionUUID->"1a3eb9fb-a68c-4d47-95db-d2595a748424"],
Cell[128465, 2608, 1385, 29, 83, "Input",ExpressionUUID->"e02cb2fe-72c4-469b-ac81-5dedb5bdd038"],
Cell[129853, 2639, 1980, 38, 100, "Input",ExpressionUUID->"980b5a55-6ae7-485e-8c9f-e2a46d1f34e9"],
Cell[131836, 2679, 320, 8, 100, "Input",ExpressionUUID->"d021c9bc-c576-4d4b-a8b9-ea1e6b65216c"],
Cell[CellGroupData[{
Cell[132181, 2691, 228, 3, 45, "Input",ExpressionUUID->"4b6f84eb-47a2-4598-a898-9abf5721d94b"],
Cell[132412, 2696, 1592, 24, 51, "Output",ExpressionUUID->"f7d5999a-5ce0-47b1-ba8e-84fa32e3fac8"]
}, Open  ]],
Cell[134019, 2723, 6821, 122, 270, "Input",ExpressionUUID->"4d0e8da8-0692-4b0c-af83-3e8940adfb44"],
Cell[140843, 2847, 5022, 115, 270, "Input",ExpressionUUID->"468564ce-05e7-4a43-aaac-b9475d6cf27f"],
Cell[145868, 2964, 4495, 113, 295, "Input",ExpressionUUID->"36baadc1-e581-4588-92d0-da89a5fda2ea"],
Cell[150366, 3079, 613, 17, 46, "Input",ExpressionUUID->"06db0a65-3e45-46aa-a340-335d8874f0ae"],
Cell[150982, 3098, 565, 9, 46, "Input",ExpressionUUID->"7a281ee9-fbf2-4c8c-9e8a-47c317ba78af"],
Cell[151550, 3109, 5683, 131, 482, "Input",ExpressionUUID->"362fc76b-8857-49c7-bdce-9791ae8e4223"],
Cell[157236, 3242, 587, 16, 46, "Input",ExpressionUUID->"36a18ee4-9414-4b89-a0fa-a0b1b5996e8e"],
Cell[157826, 3260, 603, 16, 46, "Input",ExpressionUUID->"0051647c-6ee3-4b5b-8862-247b79722d8b"],
Cell[158432, 3278, 266, 5, 46, "Input",ExpressionUUID->"a75f4031-2450-4a3c-b14a-db3b1fd513ef"],
Cell[158701, 3285, 1157, 33, 140, "Input",ExpressionUUID->"cbcab202-037d-44f6-8764-363db84ec877"],
Cell[159861, 3320, 700, 19, 78, "Input",ExpressionUUID->"7c3f8394-6958-4e5a-b748-afc165eaf945"],
Cell[CellGroupData[{
Cell[160586, 3343, 177, 2, 46, "Input",ExpressionUUID->"6030d4aa-fd57-4015-b022-6d5f99f9e840"],
Cell[160766, 3347, 1545, 48, 125, "Output",ExpressionUUID->"e884d56a-1c24-4fb1-8ae8-7608283e31c8"]
}, Open  ]],
Cell[162326, 3398, 268, 5, 46, "Input",ExpressionUUID->"5f1719d5-2fce-432e-8e89-df75aa0b3b40"],
Cell[162597, 3405, 1210, 34, 140, "Input",ExpressionUUID->"8ba8af05-7f16-4c6c-8d6c-ffc27e9a89c7"],
Cell[163810, 3441, 759, 20, 78, "Input",ExpressionUUID->"56abc857-8eb9-4fe2-909e-61e756512d76"],
Cell[CellGroupData[{
Cell[164594, 3465, 226, 3, 46, "Input",ExpressionUUID->"f9624ddb-5605-4ffd-99b8-830e9ffaa3f6"],
Cell[164823, 3470, 1557, 48, 115, "Output",ExpressionUUID->"9e6634c2-313c-4017-9092-27e3eed2d9f7"]
}, Open  ]],
Cell[166395, 3521, 406, 7, 46, "Input",ExpressionUUID->"8c9642f8-f63a-4623-9147-9a1e57f0dc2b"],
Cell[CellGroupData[{
Cell[166826, 3532, 1057, 24, 46, "Input",ExpressionUUID->"2e9ee694-0e7e-428a-a22e-3417071682d3"],
Cell[167886, 3558, 8882, 204, 351, "Output",ExpressionUUID->"25e531f6-1299-480f-9842-8086f95f8eaf"]
}, Open  ]],
Cell[176783, 3765, 406, 7, 46, "Input",ExpressionUUID->"8174f91c-58d7-418e-95de-4011f64689d0"],
Cell[CellGroupData[{
Cell[177214, 3776, 1107, 25, 46, "Input",ExpressionUUID->"be0bf5a7-7c1d-449e-8e4d-6492d4149460"],
Cell[178324, 3803, 8776, 202, 351, "Output",ExpressionUUID->"2698834c-d255-4fc4-9492-e24769e25de4"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[187149, 4011, 885, 15, 66, "Subsubsection",ExpressionUUID->"99b27c94-1ac1-4472-9996-215447be9b01"],
Cell[188037, 4028, 543, 10, 45, "Input",ExpressionUUID->"efc0b7ed-2f07-4f4f-8473-bb6e57f84deb"],
Cell[188583, 4040, 17700, 293, 380, "Input",ExpressionUUID->"873a65f3-a553-4aaa-b836-0cd26d2dd659"],
Cell[206286, 4335, 1377, 21, 64, "Input",ExpressionUUID->"3515d927-ca07-4d23-9e2f-c58f8454c15c"],
Cell[207666, 4358, 1271, 39, 155, "Input",ExpressionUUID->"e1388f54-680b-41d3-92e4-129241c6485a"],
Cell[CellGroupData[{
Cell[208962, 4401, 173, 2, 45, "Input",ExpressionUUID->"dd98ca9f-14f0-411d-bbf0-3418745dd2a2"],
Cell[209138, 4405, 2178, 31, 51, "Output",ExpressionUUID->"5e274008-4e68-42c8-a0d4-bad739af5068"]
}, Open  ]],
Cell[CellGroupData[{
Cell[211353, 4441, 222, 3, 45, "Input",ExpressionUUID->"e625db12-3e9c-47ee-a553-775cdd19946c"],
Cell[211578, 4446, 2177, 31, 51, "Output",ExpressionUUID->"bdfdce4c-7e63-4ff6-8d83-6f079ac1f737"]
}, Open  ]],
Cell[CellGroupData[{
Cell[213792, 4482, 361, 10, 85, "Input",ExpressionUUID->"e9faee85-4db2-4b38-a366-dde3ae061f4b"],
Cell[214156, 4494, 284, 4, 51, "Output",ExpressionUUID->"3bab1e36-fcb2-42ea-97b6-01d98d902d2d"]
}, Open  ]],
Cell[214455, 4501, 1588, 43, 403, "Input",ExpressionUUID->"8b2fd979-4bb5-44e9-a8c9-290904a3abec"],
Cell[216046, 4546, 250, 4, 45, "Input",ExpressionUUID->"b19ca4d4-0cc7-409c-be56-09a1ec5a9f84"],
Cell[216299, 4552, 1385, 29, 83, "Input",ExpressionUUID->"20fff85b-f83f-4178-93e6-f5e1e564036c"],
Cell[217687, 4583, 1685, 34, 100, "Input",ExpressionUUID->"ad7630ac-bcf1-4825-bedb-cf0b2f98af48"],
Cell[CellGroupData[{
Cell[219397, 4621, 177, 2, 45, "Input",ExpressionUUID->"905b1b27-1b6d-4246-b14a-db500ee017af"],
Cell[219577, 4625, 538, 10, 51, "Output",ExpressionUUID->"088629d6-c95d-4650-8046-0fc98ef278d4"]
}, Open  ]],
Cell[220130, 4638, 9649, 197, 564, "Input",ExpressionUUID->"6b1e78ed-dbd7-425e-ab3c-1561a667e2de"],
Cell[229782, 4837, 6323, 154, 492, "Input",ExpressionUUID->"d6243ecc-6d14-4677-b6e4-580284719720"],
Cell[236108, 4993, 1360, 38, 110, "Input",ExpressionUUID->"e6fac2e3-714c-446c-85cc-5481359cdebe"],
Cell[237471, 5033, 1355, 38, 110, "Input",ExpressionUUID->"3a33abe3-6d91-4b2c-8c90-847cebcce7a7"],
Cell[238829, 5073, 1409, 38, 110, "Input",ExpressionUUID->"10d29ca8-f1d1-48c3-b3ed-68476e458b63"],
Cell[CellGroupData[{
Cell[240263, 5115, 177, 2, 45, "Input",ExpressionUUID->"6f27441c-537a-451c-a879-224e06100523"],
Cell[240443, 5119, 5822, 89, 54, "Output",ExpressionUUID->"e172a81e-0726-4440-a14a-e97344e2f8e5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[246302, 5213, 176, 2, 45, "Input",ExpressionUUID->"efa58324-6cd2-4732-b58a-9a96b53a59c9"],
Cell[246481, 5217, 3387, 55, 54, "Output",ExpressionUUID->"8c6007a5-3f08-49d2-8638-eb029a74739a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[249905, 5277, 177, 2, 45, "Input",ExpressionUUID->"cdc6817d-014b-4f2f-be67-f7d489ab770c"],
Cell[250085, 5281, 3377, 55, 51, "Output",ExpressionUUID->"0d47d0ac-6282-43c4-9cc3-bc8cc26143f1"]
}, Open  ]],
Cell[253477, 5339, 411, 7, 45, "Input",ExpressionUUID->"9d90adab-387b-4e84-89ad-1527af6e6b3e"],
Cell[CellGroupData[{
Cell[253913, 5350, 469, 9, 45, "Input",ExpressionUUID->"32256925-d82c-46bb-93b4-10085f92ecd4"],
Cell[254385, 5361, 16389, 376, 344, "Output",ExpressionUUID->"c313fdf1-240f-4d8d-bad7-72ea6325d38c"]
}, Open  ]],
Cell[270789, 5740, 499, 10, 78, "Input",ExpressionUUID->"cc2fbdb3-75f2-4571-9fd0-654a8aa4718c"],
Cell[CellGroupData[{
Cell[271313, 5754, 1069, 26, 91, "Input",ExpressionUUID->"cdb29bdb-f087-4abd-8922-d9151040ce33"],
Cell[272385, 5782, 45292, 985, 442, "Output",ExpressionUUID->"fd29f29a-34e6-4f9a-ba8a-f12db5e1796d"]
}, Open  ]],
Cell[317692, 6770, 380, 7, 45, "Input",ExpressionUUID->"a0461118-d1b5-43f4-96bd-375ff0671dec"],
Cell[318075, 6779, 433, 8, 45, "Input",ExpressionUUID->"ad5c7862-8a49-4fce-820e-4c96eda317d5"],
Cell[318511, 6789, 687, 17, 45, "Input",ExpressionUUID->"03557ad0-58fa-49f2-bd4a-89be9325dff0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[319235, 6811, 1001, 16, 66, "Subsubsection",ExpressionUUID->"f3e29261-1e19-4ffd-96d6-6b52ffa8eb69"],
Cell[320239, 6829, 759, 12, 78, "Input",ExpressionUUID->"f9030d22-4818-4d2f-bd36-5f7dd4e482e2"],
Cell[321001, 6843, 18029, 296, 316, "Input",ExpressionUUID->"8047300d-02e9-4b67-8f86-800d7b193538"],
Cell[339033, 7141, 475, 10, 46, "Input",ExpressionUUID->"72b8bb6a-5265-441e-8666-dbe3ebb8b879"],
Cell[339511, 7153, 1380, 21, 63, "Input",ExpressionUUID->"966e32a6-f5a9-48b3-a9aa-b48556a7d3d8"],
Cell[340894, 7176, 1321, 40, 160, "Input",ExpressionUUID->"5c00529b-5ca7-4cd8-9122-ea8ca51aa25d"],
Cell[CellGroupData[{
Cell[342240, 7220, 273, 4, 46, "Input",ExpressionUUID->"5bb02a42-5e0f-4d2e-a2de-ae7936dbe324"],
Cell[342516, 7226, 1549, 22, 52, "Output",ExpressionUUID->"8528f5d0-5bcf-475a-8c8d-e1ef11e6a901"]
}, Open  ]],
Cell[CellGroupData[{
Cell[344102, 7253, 221, 3, 46, "Input",ExpressionUUID->"94d5604f-1f53-4fcb-8ece-121484244835"],
Cell[344326, 7258, 3425, 49, 52, "Output",ExpressionUUID->"d1a41e0a-aac4-480b-8974-aa2eac76f714"]
}, Open  ]],
Cell[CellGroupData[{
Cell[347788, 7312, 361, 10, 85, "Input",ExpressionUUID->"952e6855-6ee7-4193-b36b-bdc852a1ec8b"],
Cell[348152, 7324, 241, 3, 52, "Output",ExpressionUUID->"003cdb2e-d652-4da3-9982-d788471d5164"]
}, Open  ]],
Cell[348408, 7330, 1588, 43, 396, "Input",ExpressionUUID->"98fb152d-43fa-4a70-8dd9-a3a82295155f"],
Cell[349999, 7375, 250, 4, 46, "Input",ExpressionUUID->"a050ff4a-4774-4ea7-8f73-fb62b3ee2e8d"],
Cell[350252, 7381, 1385, 29, 84, "Input",ExpressionUUID->"abce713e-964d-4f47-af61-a4d0d3cd367b"],
Cell[351640, 7412, 2129, 40, 102, "Input",ExpressionUUID->"b3e32838-8da1-4e30-bdf9-654a5279274a"],
Cell[353772, 7454, 318, 8, 102, "Input",ExpressionUUID->"95002d29-6a3b-44c2-ad21-24e825242c92"],
Cell[CellGroupData[{
Cell[354115, 7466, 224, 3, 46, "Input",ExpressionUUID->"0ceed574-1624-450e-a1dd-638bc21bde51"],
Cell[354342, 7471, 1820, 27, 52, "Output",ExpressionUUID->"22eb2d4b-a05e-46b9-8963-9a912eedbd46"]
}, Open  ]],
Cell[356177, 7501, 6821, 122, 264, "Input",ExpressionUUID->"bc533300-d299-4d2c-aca6-b696d3a02463"],
Cell[363001, 7625, 5018, 115, 264, "Input",ExpressionUUID->"1b5f22a3-a036-40ac-b307-dd0ede83583e"],
Cell[368022, 7742, 4497, 113, 295, "Input",ExpressionUUID->"5afb6a98-4952-4449-9d07-55a79706e412"],
Cell[372522, 7857, 613, 17, 46, "Input",ExpressionUUID->"42bdd3cb-e5c3-4e48-8e6f-4c724b2e81e0"],
Cell[373138, 7876, 565, 9, 46, "Input",ExpressionUUID->"c5c5b298-767d-4164-b02c-468581e6ca74"],
Cell[373706, 7887, 5611, 130, 482, "Input",ExpressionUUID->"bdd9a9c0-f18b-4c7d-9248-66f1c50cc65f"],
Cell[379320, 8019, 587, 16, 46, "Input",ExpressionUUID->"efe0cad7-a1e5-48e9-ab12-6353ed09a1d4"],
Cell[379910, 8037, 603, 16, 46, "Input",ExpressionUUID->"78f08d1b-5b06-48c0-abb5-c6ca3a96375a"],
Cell[380516, 8055, 266, 5, 46, "Input",ExpressionUUID->"aa5caae7-6b61-47cb-9294-5f95fa159fc9"],
Cell[380785, 8062, 1157, 33, 140, "Input",ExpressionUUID->"ab17b4f5-c0ef-426e-bfc2-8f7363dad8cb"],
Cell[381945, 8097, 700, 19, 78, "Input",ExpressionUUID->"07e526c5-e9ac-4ebf-b7c5-34b40702aaed"],
Cell[CellGroupData[{
Cell[382670, 8120, 177, 2, 46, "Input",ExpressionUUID->"a57b73d5-53c8-4f81-8602-bbba63efcec5"],
Cell[382850, 8124, 1807, 50, 125, "Output",ExpressionUUID->"3e95ef5f-386f-4e55-ab76-11ec0ae5f3b1"]
}, Open  ]],
Cell[384672, 8177, 268, 5, 46, "Input",ExpressionUUID->"c30825e1-e898-4eb7-a639-58bce8062156"],
Cell[384943, 8184, 1210, 34, 140, "Input",ExpressionUUID->"6adbf4e3-cbf1-42e1-9a10-b9416d8748b2"],
Cell[386156, 8220, 759, 20, 78, "Input",ExpressionUUID->"1b74b833-27f8-490c-bda9-5a208b4ee4b0"],
Cell[CellGroupData[{
Cell[386940, 8244, 226, 3, 46, "Input",ExpressionUUID->"8e843be2-271d-49a4-b05f-8d81da270dc7"],
Cell[387169, 8249, 1746, 49, 115, "Output",ExpressionUUID->"6ca11bbb-96f7-46f8-9f96-1cd5ef541672"]
}, Open  ]],
Cell[388930, 8301, 452, 8, 46, "Input",ExpressionUUID->"86d6497d-cb22-45ea-b93c-147d0c067395"],
Cell[CellGroupData[{
Cell[389407, 8313, 1055, 23, 46, "Input",ExpressionUUID->"e7e7e707-5f50-43b7-a545-db1a57565f29"],
Cell[390465, 8338, 9301, 213, 345, "Output",ExpressionUUID->"ddf3451a-b992-42fb-89b0-a4cbfbbfc2c6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[399803, 8556, 785, 19, 46, "Input",ExpressionUUID->"e0fa5a2d-b601-4139-a938-52e5e9df7cd9"],
Cell[400591, 8577, 11091, 256, 354, "Output",ExpressionUUID->"d3dc3f0f-5b63-4a30-8b3c-ab95161587ab"]
}, Open  ]],
Cell[CellGroupData[{
Cell[411719, 8838, 701, 17, 46, "Input",ExpressionUUID->"eaa3cac7-7f1d-44c3-85b5-98caaa530c83"],
Cell[412423, 8857, 862, 21, 90, "Output",ExpressionUUID->"614ad118-76b9-4c0f-996e-afcf35600ab8"]
}, Open  ]],
Cell[413300, 8881, 524, 13, 46, "Input",ExpressionUUID->"67e78d0c-da1a-4225-9b00-27d265129a08"],
Cell[CellGroupData[{
Cell[413849, 8898, 246, 4, 78, "Input",ExpressionUUID->"67c023cb-5e44-4970-ab23-0d309b1d2996"],
Cell[414098, 8904, 393, 8, 55, "Output",ExpressionUUID->"3f5c845d-2c95-4bec-b3ca-86340cec5950"]
}, Open  ]],
Cell[CellGroupData[{
Cell[414528, 8917, 1254, 30, 78, "Input",ExpressionUUID->"3b651f96-a40f-43ee-bc31-0fde3b921200"],
Cell[415785, 8949, 17183, 352, 436, "Output",ExpressionUUID->"d70f3dcf-ef89-49aa-b296-4ebfbfe543ae"]
}, Open  ]],
Cell[432983, 9304, 482, 9, 46, "Input",ExpressionUUID->"64e4e9b4-ddf5-4e8b-940f-cfa4df4d345c"],
Cell[CellGroupData[{
Cell[433490, 9317, 1160, 26, 46, "Input",ExpressionUUID->"079fba06-32ef-4494-95eb-2353588fe49e"],
Cell[434653, 9345, 8768, 202, 363, "Output",ExpressionUUID->"a3fa835d-3afc-4cf1-beae-da71daf5b23c"]
}, Open  ]],
Cell[443436, 9550, 743, 22, 58, "Input",ExpressionUUID->"088322af-782b-43ad-a11b-fd05d00aa937"],
Cell[444182, 9574, 407, 13, 54, "Input",ExpressionUUID->"d98c0cd7-f11c-4eab-9478-99a0492c20d5"],
Cell[444592, 9589, 1802, 48, 100, "Input",ExpressionUUID->"ccd840a8-3327-4535-b5f5-f05e07568d72"]
}, Closed]]
}
]
*)