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

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

(* CreatedBy='Mathematica 14.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    234191,       4938]
NotebookOptionsPosition[    229405,       4865]
NotebookOutlinePosition[    229801,       4881]
CellTagsIndexPosition[    229758,       4878]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"Mass", " ", "Spectra", " ", "for", " ", "the", " ", 
    SubscriptBox["m", "q"]}], "=", 
   RowBox[{"0", " ", "Limit"}]}], 
  TraditionalForm]],ExpressionUUID->"1769806b-ed7b-4794-9e2a-62a390009e57"]], \
"Section",
 CellChangeTimes->{{3.92670962674972*^9, 
  3.926709652720582*^9}},ExpressionUUID->"b6092ae3-2d3d-494d-8866-\
b8298745ae9e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"m\[Rho]s", "=", 
   RowBox[{"{", 
    RowBox[{
    "0.7039858705155417`", ",", "0.6504802534247337`", ",", 
     "0.5940655616572006`", ",", "0.5347161782476973`", ",", 
     "0.47246192623562`", ",", "0.4066567357860551`", ",", 
     "0.33949309851221887`", ",", "0.27098643290615665`", ",", 
     "0.20262895564767572`", ",", "0.1359718503953471`", ",", 
     "0.07499228281999042`", ",", "0.026790694166293514`", ",", 
     "0.001957730366324809`"}], 
    RowBox[{"(*", 
     RowBox[{",", "5.257501425045325`*^-6"}], "*)"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"f\[Rho]s", "=", 
   RowBox[{"{", 
    RowBox[{
    "0.3073514324269752`", ",", "0.2839041512739803`", ",", 
     "0.2591852834448883`", ",", "0.23318709644337324`", ",", 
     "0.205926599714195`", ",", "0.17713071368549196`", ",", 
     "0.14776074217728527`", ",", "0.11782990345724267`", ",", 
     "0.08800389931878824`", ",", "0.058973770091178865`", ",", 
     "0.03247139236088075`", ",", "0.011576141864221508`", ",", 
     "0.0008438991852451367`"}], 
    RowBox[{"(*", 
     RowBox[{",", "2.2622487265945206`*^-6"}], "*)"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"f\[Pi]s", "=", 
   RowBox[{"{", 
    RowBox[{
    "0.05776809503534308`", ",", "0.054062021831054956`", ",", 
     "0.050074814023980375`", ",", "0.04578525435648057`", ",", 
     "0.041172948945435044`", ",", "0.03614763353558889`", ",", 
     "0.03086813638517084`", ",", "0.025290480046418044`", ",", 
     "0.019488373592135098`", ",", "0.013550671487986079`", ",", 
     "0.007804019492331792`", ",", "0.002946927154113874`", ",", 
     "0.00023240698088424543`"}], 
    RowBox[{"(*", 
     RowBox[{",", "6.620065555291642`*^-7"}], "*)"}], "}"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.926709656768504*^9, 3.926709746785495*^9}, {
   3.9267099195542927`*^9, 3.92670992287092*^9}, {3.926709966662623*^9, 
   3.926710023680674*^9}, {3.926710060424242*^9, 3.926710075489522*^9}, {
   3.9267101704917593`*^9, 3.926710194234429*^9}, {3.9267102353762827`*^9, 
   3.926710254177453*^9}, {3.9267120392254477`*^9, 3.926712119154129*^9}, {
   3.926712526211309*^9, 3.926712590696434*^9}, {3.926712830984767*^9, 
   3.926712874033318*^9}, {3.926712917485112*^9, 3.9267129893528967`*^9}, {
   3.926714336957624*^9, 3.926714390674711*^9}, {3.926715155816372*^9, 
   3.926715208232182*^9}, {3.926715715187145*^9, 3.926715761456312*^9}, {
   3.926716087177433*^9, 3.926716123994118*^9}, {3.926716520382615*^9, 
   3.926716568143175*^9}, {3.926716791325576*^9, 3.926716839540742*^9}, {
   3.9267172090931587`*^9, 3.926717253961289*^9}, {3.926717510984796*^9, 
   3.926717579384839*^9}, {3.926717757198135*^9, 3.926717779682112*^9}, {
   3.926717835222113*^9, 3.926717881431889*^9}, {3.926718208651099*^9, 
   3.926718267333481*^9}, {3.92671860387497*^9, 3.926718664436893*^9}, {
   3.926718893865402*^9, 3.926718952426358*^9}, {3.926719290239534*^9, 
   3.9267193532157383`*^9}, {3.926719592991217*^9, 3.926719678791361*^9}, {
   3.927625951989274*^9, 3.927626050081143*^9}, 3.927626168672706*^9, 
   3.927626543989088*^9, {3.927633041253721*^9, 3.9276330431496687`*^9}, {
   3.92763316599396*^9, 3.927633170873847*^9}, 3.927633221027579*^9, 
   3.927633329242841*^9, 3.927633507844803*^9, 3.927633685818374*^9, 
   3.92763420555997*^9, 3.927634325319779*^9, 3.927634380727362*^9, 
   3.927634478360991*^9, 3.927634613902359*^9, 3.927634688404041*^9, 
   3.927634724884221*^9, 3.927634796000442*^9, 3.927634909599983*^9, 
   3.927634977565719*^9, 3.927635039319962*^9, 3.927635110545517*^9, 
   3.927635453332903*^9, 3.9276355260068283`*^9, 3.927635629494961*^9, 
   3.927635706774421*^9, 3.92763584891628*^9, 3.927635937522873*^9, 
   3.927636015921307*^9, 3.927636094164258*^9, {3.92763624303701*^9, 
   3.927636264771596*^9}, {3.92763640063163*^9, 3.927636419505389*^9}, {
   3.927637372723768*^9, 3.927637383280483*^9}, 3.92763746826658*^9, {
   3.927915197746531*^9, 3.927915198977561*^9}, 3.927921656135103*^9, {
   3.927921699327455*^9, 3.9279217394547653`*^9}, {3.927928610839648*^9, 
   3.927928632461081*^9}, {3.930165043278115*^9, 3.930165059258833*^9}, 
   3.930165230539589*^9, {3.930165275176093*^9, 3.930165292446188*^9}, {
   3.93017649946724*^9, 3.930176508541641*^9}, {3.930176596704352*^9, 
   3.9301766348522463`*^9}, {3.930178450105321*^9, 3.930178457487156*^9}, {
   3.930179556495719*^9, 3.930179567397149*^9}, {3.930180522152012*^9, 
   3.93018052840464*^9}, {3.930181065324538*^9, 3.930181068871457*^9}, {
   3.930181511652291*^9, 3.930181520006289*^9}, {3.930182029029608*^9, 
   3.930182040233348*^9}, {3.93018256594204*^9, 3.930182574441331*^9}, {
   3.930183062316908*^9, 3.930183069404046*^9}, {3.930183561926937*^9, 
   3.930183568981389*^9}, {3.930184453489851*^9, 3.930184462561599*^9}, {
   3.930184915567271*^9, 3.930184924542984*^9}, {3.930185437340261*^9, 
   3.930185461866704*^9}, {3.9301860430547028`*^9, 3.930186050842422*^9}, {
   3.930186709700452*^9, 3.930186717555114*^9}, {3.930188051949456*^9, 
   3.930188061797954*^9}, {3.930188834901107*^9, 3.930188857281061*^9}, {
   3.930190421247542*^9, 3.9301904328895617`*^9}, {3.93019250748975*^9, 
   3.930192521951742*^9}, {3.930209747577815*^9, 3.930209757476076*^9}, {
   3.930301282558694*^9, 3.930301321006844*^9}, {3.930301762151881*^9, 
   3.930301777790897*^9}, {3.930303134608719*^9, 3.930303141793536*^9}, {
   3.930305250331951*^9, 3.930305257534659*^9}, {3.9303054084877243`*^9, 
   3.930305425581482*^9}, {3.9303067698512287`*^9, 3.930306776799674*^9}, {
   3.930309426384967*^9, 3.930309431906399*^9}, {3.9303099060530987`*^9, 
   3.930309911867956*^9}, {3.930310786135987*^9, 3.93031079291096*^9}, {
   3.93031161063026*^9, 3.930311617982784*^9}, {3.930312407661302*^9, 
   3.9303124144733*^9}, {3.930589287511262*^9, 3.930589296681262*^9}, {
   3.930589678905671*^9, 3.930589687013091*^9}, {3.931221328389831*^9, 
   3.931221347661394*^9}, {3.931221424044374*^9, 3.931221429998248*^9}, {
   3.9312218684969606`*^9, 3.931221874025456*^9}, {3.931222180115838*^9, 
   3.931222185870727*^9}, {3.931222352405724*^9, 3.931222358185479*^9}, {
   3.931223163927325*^9, 3.931223172302412*^9}, {3.931223607102865*^9, 
   3.931223614196533*^9}, {3.9312240144516068`*^9, 3.9312240220212183`*^9}, {
   3.931224597876832*^9, 3.931224606962637*^9}, {3.936352891295623*^9, 
   3.936352903432002*^9}, {3.936353084611107*^9, 3.9363530923289137`*^9}, {
   3.936700235519086*^9, 3.936700254456428*^9}, {3.94154133578472*^9, 
   3.941541346997203*^9}, {3.957338580921294*^9, 3.957338592920405*^9}, {
   3.957338639322321*^9, 3.9573386447852*^9}},
 CellLabel->"In[35]:=",ExpressionUUID->"dbce0093-f8a3-4643-8c65-46c3103ae958"],

Cell[BoxData[
 RowBox[{
  RowBox[{"nf", "=", 
   RowBox[{"{", 
    RowBox[{
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
      ",", "9", ",", "10", ",", "11", ",", "12", ",", "13"}], 
    RowBox[{"(*", 
     RowBox[{",", "13.5"}], "*)"}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.9366885248423758`*^9, 3.936688533321392*^9}, {
  3.9415403863817787`*^9, 3.941540388515643*^9}, {3.957338599141534*^9, 
  3.957338602837941*^9}},
 CellLabel->"In[38]:=",ExpressionUUID->"4cf4a791-1af3-49ba-b78a-e4ea6542d438"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"AppendTo", "[", 
   RowBox[{"m\[Rho]s", ",", "Vmass1"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AppendTo", "[", 
   RowBox[{"f\[Rho]s", ",", 
    SqrtBox["fvsq1"]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AppendTo", "[", 
   RowBox[{"f\[Pi]s", ",", 
    SqrtBox["fpisq1"]}], "]"}], 
  ";"}], "\[IndentingNewLine]", "m\[Rho]s", "\[IndentingNewLine]", \
"f\[Rho]s", "\[IndentingNewLine]", "f\[Pi]s"}], "Input",
 CellChangeTimes->{{3.9363529153433013`*^9, 3.936352984714241*^9}, {
  3.936687299898946*^9, 3.936687316096469*^9}, {3.936687498753914*^9, 
  3.936687499847341*^9}},
 CellLabel->
  "In[6177]:=",ExpressionUUID->"c85227f9-71c6-4e58-aac4-b2b7c8d269a2"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.7039858705155417`", ",", "0.6504802534247337`", ",", 
   "0.5940655616572006`", ",", "0.5347161782476973`", ",", 
   "0.47246192623562`", ",", "0.4066567357860551`", ",", 
   "0.33949309851221887`", ",", "0.27098643290615665`", ",", 
   "0.20262895564767572`", ",", "0.1359718503953471`", ",", 
   "0.07499228281999042`", ",", "0.026790694166293514`", ",", 
   "0.001957730366324809`", ",", "5.257501425045325`*^-6"}], "}"}]], "Output",\

 CellChangeTimes->{
  3.936352988993013*^9, {3.9366872739177527`*^9, 3.936687280232085*^9}, 
   3.936687316927005*^9, 3.936687501019174*^9, 3.93668845510424*^9, 
   3.936694338874133*^9, 3.936694999810961*^9, 3.936696308663035*^9, 
   3.936696604513676*^9, 3.93669686318526*^9, 3.936697131856346*^9, 
   3.9366974291541343`*^9, 3.936698227829348*^9, 3.93669854651314*^9, 
   3.9366994348491488`*^9, 3.936700157875296*^9, 3.941541297146309*^9},
 CellLabel->
  "Out[6180]=",ExpressionUUID->"8a5271f2-f65e-4760-8bb2-4eb4a3e46227"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.3073514324269752`", ",", "0.2839041512739803`", ",", 
   "0.2591852834448883`", ",", "0.23318709644337324`", ",", 
   "0.205926599714195`", ",", "0.17713071368549196`", ",", 
   "0.14776074217728527`", ",", "0.11782990345724267`", ",", 
   "0.08800389931878824`", ",", "0.058973770091178865`", ",", 
   "0.03247139236088075`", ",", "0.011576141864221508`", ",", 
   "0.0008438991852451367`", ",", "2.2622487265945206`*^-6"}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.936352988993013*^9, {3.9366872739177527`*^9, 3.936687280232085*^9}, 
   3.936687316927005*^9, 3.936687501019174*^9, 3.93668845510424*^9, 
   3.936694338874133*^9, 3.936694999810961*^9, 3.936696308663035*^9, 
   3.936696604513676*^9, 3.93669686318526*^9, 3.936697131856346*^9, 
   3.9366974291541343`*^9, 3.936698227829348*^9, 3.93669854651314*^9, 
   3.9366994348491488`*^9, 3.936700157875296*^9, 3.9415412971491613`*^9},
 CellLabel->
  "Out[6181]=",ExpressionUUID->"0a0d5c90-fe15-4518-add6-c362b865efca"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.05776809503534308`", ",", "0.054062021831054956`", ",", 
   "0.050074814023980375`", ",", "0.04578525435648057`", ",", 
   "0.041172948945435044`", ",", "0.03614763353558889`", ",", 
   "0.03086813638517084`", ",", "0.025290480046418044`", ",", 
   "0.019488373592135098`", ",", "0.013550671487986079`", ",", 
   "0.007804019492331792`", ",", "0.002946927154113874`", ",", 
   "0.00023240698088424543`", ",", "6.620065555291642`*^-7"}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.936352988993013*^9, {3.9366872739177527`*^9, 3.936687280232085*^9}, 
   3.936687316927005*^9, 3.936687501019174*^9, 3.93668845510424*^9, 
   3.936694338874133*^9, 3.936694999810961*^9, 3.936696308663035*^9, 
   3.936696604513676*^9, 3.93669686318526*^9, 3.936697131856346*^9, 
   3.9366974291541343`*^9, 3.936698227829348*^9, 3.93669854651314*^9, 
   3.9366994348491488`*^9, 3.936700157875296*^9, 3.941541297149893*^9},
 CellLabel->
  "Out[6182]=",ExpressionUUID->"d5826540-1597-437a-b911-b6374b1717d3"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"m\[Rho]f", "=", 
   RowBox[{"{", 
    RowBox[{
    "0.5560805438242872`", ",", "0.4968958269097069`", ",", 
     "0.4355659780664688`", ",", "0.37283718002242944`", ",", 
     "0.30988438692881404`", ",", "0.24717826068427576`", ",", 
     "0.18820993619299117`", ",", "0.13348856956763033`", ",", 
     "0.08591043854513683`", ",", "0.04752133387396175`", ",", 
     "0.02031045943640634`", ",", "0.005089009604481677`", ",", 
     "0.00023042281320098952`"}], 
    RowBox[{"(*", 
     RowBox[{",", "4.322512658338105`*^-7"}], "*)"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"f\[Rho]f", "=", 
   RowBox[{"{", 
    RowBox[{
    "0.2095977430725626`", ",", "0.22274718186873071`", ",", 
     "0.21608653748134202`", ",", "0.19874131340647117`", ",", 
     "0.17463065544279416`", ",", "0.1457477477714957`", ",", 
     "0.11529033728653448`", ",", "0.0845071648986368`", ",", 
     "0.05596932887005831`", ",", "0.03175979029262518`", ",", 
     "0.013885482107262951`", ",", "0.0035516872147173437`", ",", 
     "0.00016381048002456843`"}], 
    RowBox[{"(*", 
     RowBox[{",", "3.099053926765056`*^-7"}], "*)"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"f\[Pi]f", "=", 
   RowBox[{"{", 
    RowBox[{
    "0.03226857744041908`", ",", "0.03691060581204389`", ",", 
     "0.036506863074074004`", ",", "0.03367521347766093`", ",", 
     "0.029507210754506737`", ",", "0.024518929497119493`", ",", 
     "0.01930617261820836`", ",", "0.014100454982630515`", ",", 
     "0.0093183982046137`", ",", "0.005283710619154371`", ",", 
     "0.0023159781563122533`", ",", "0.0005943506007067837`", ",", 
     "0.00002774116612794617`"}], 
    RowBox[{"(*", 
     RowBox[{",", "5.29110423186711`*^-8"}], "*)"}], "}"}]}], ";"}]}], "Input",\

 CellChangeTimes->{{3.927916246271364*^9, 3.927916291436123*^9}, {
   3.927917485968275*^9, 3.927917499136313*^9}, {3.927917984934818*^9, 
   3.927918004831745*^9}, {3.927918507199278*^9, 3.927918516257125*^9}, {
   3.9279190639932747`*^9, 3.9279190736298733`*^9}, {3.927919413439398*^9, 
   3.927919423491795*^9}, {3.927919714542712*^9, 3.92791972716314*^9}, {
   3.927920099985197*^9, 3.927920110899477*^9}, {3.927920481101465*^9, 
   3.927920490599863*^9}, {3.927920730603741*^9, 3.927920741306067*^9}, {
   3.927921011287771*^9, 3.9279210205596046`*^9}, {3.927921459762189*^9, 
   3.927921476307892*^9}, {3.927922003275034*^9, 3.927922016262537*^9}, {
   3.92792248911329*^9, 3.927922500949415*^9}, 3.927922767424129*^9, {
   3.92792282396841*^9, 3.927922841590493*^9}, 3.927923117475143*^9, 
   3.927923313886514*^9, 3.927923385890542*^9, {3.927924500245141*^9, 
   3.927924533535737*^9}, {3.927924685167947*^9, 3.927924712542205*^9}, {
   3.927926304286582*^9, 3.9279263305140676`*^9}, {3.927927228177732*^9, 
   3.927927242470009*^9}, {3.927927852222088*^9, 3.927927892643844*^9}, {
   3.9279290926808453`*^9, 3.927929138827738*^9}, {3.927929461436644*^9, 
   3.927929496070681*^9}, {3.927929676014284*^9, 3.927929702710614*^9}, {
   3.9301650994810123`*^9, 3.930165130802915*^9}, {3.930165300371505*^9, 
   3.930165319318583*^9}, {3.930176515456977*^9, 3.9301765236222763`*^9}, {
   3.9301766298926477`*^9, 3.930176631758342*^9}, {3.93017846265329*^9, 
   3.930178471881442*^9}, {3.930180535096755*^9, 3.93018054174565*^9}, {
   3.93018152684361*^9, 3.930181532604933*^9}, {3.930182048862399*^9, 
   3.930182055884897*^9}, {3.930182580311084*^9, 3.9301825892846727`*^9}, {
   3.930183076502106*^9, 3.930183083509755*^9}, {3.930183574880999*^9, 
   3.930183581789412*^9}, {3.930184468997325*^9, 3.930184476821857*^9}, {
   3.9301849335445538`*^9, 3.930184942283826*^9}, {3.930185476059423*^9, 
   3.930185499387327*^9}, {3.930186058610267*^9, 3.930186065714978*^9}, {
   3.930186724733469*^9, 3.930186733723351*^9}, {3.930188068206018*^9, 
   3.930188075860797*^9}, {3.930188863581725*^9, 3.930188877831071*^9}, {
   3.930190442324797*^9, 3.930190450579073*^9}, {3.930192531437088*^9, 
   3.930192547019678*^9}, {3.930301328923867*^9, 3.930301341576364*^9}, {
   3.93030178089096*^9, 3.930301784276194*^9}, {3.930303148470726*^9, 
   3.930303156364029*^9}, {3.9303052696687737`*^9, 3.93030527667916*^9}, {
   3.930305429461344*^9, 3.930305434885137*^9}, {3.930306782213839*^9, 
   3.930306789243266*^9}, {3.93030943693289*^9, 3.930309442787681*^9}, {
   3.93030991979749*^9, 3.930309925508424*^9}, {3.93031079801537*^9, 
   3.930310805973332*^9}, {3.930311623865467*^9, 3.930311630777218*^9}, {
   3.930312420200877*^9, 3.9303124268489523`*^9}, {3.930589270422214*^9, 
   3.9305892821168613`*^9}, {3.93058969087636*^9, 3.930589700230743*^9}, {
   3.9312213114147987`*^9, 3.931221323644205*^9}, {3.931221413905111*^9, 
   3.931221419796715*^9}, {3.931221859202153*^9, 3.9312218646881647`*^9}, {
   3.931222169386585*^9, 3.931222176757904*^9}, {3.931222343336133*^9, 
   3.931222348500317*^9}, {3.931222634719399*^9, 3.9312226429141903`*^9}, {
   3.9312231514621572`*^9, 3.931223160110654*^9}, {3.931223595831951*^9, 
   3.931223603213506*^9}, {3.931224001711688*^9, 3.931224009885522*^9}, {
   3.931224583081165*^9, 3.931224592891425*^9}, {3.936353015186885*^9, 
   3.936353027825225*^9}, {3.936700259317079*^9, 3.936700298506103*^9}, {
   3.9415413551508217`*^9, 3.941541365107902*^9}, {3.957338607900846*^9, 
   3.957338611732538*^9}, {3.9573386571252623`*^9, 3.957338663415882*^9}},
 CellLabel->"In[39]:=",ExpressionUUID->"5311d89e-a0cb-438e-9139-1c5be2828ed6"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"AppendTo", "[", 
   RowBox[{"m\[Rho]f", ",", "Vmass"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AppendTo", "[", 
   RowBox[{"f\[Rho]f", ",", 
    SqrtBox["fvsq"]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AppendTo", "[", 
   RowBox[{"f\[Pi]f", ",", 
    SqrtBox["fpisq"]}], "]"}], 
  ";"}], "\[IndentingNewLine]", "m\[Rho]f", "\[IndentingNewLine]", \
"f\[Rho]f", "\[IndentingNewLine]", "f\[Pi]f"}], "Input",
 CellChangeTimes->{{3.936353049866954*^9, 3.936353070055267*^9}, {
  3.936687344367838*^9, 3.936687356090468*^9}, {3.936687512591723*^9, 
  3.936687514843022*^9}},
 CellLabel->
  "In[6183]:=",ExpressionUUID->"b0e90e12-34fc-4ec5-94a9-6612a7e88561"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.5560805438242872`", ",", "0.4968958269097069`", ",", 
   "0.4355659780664688`", ",", "0.37283718002242944`", ",", 
   "0.30988438692881404`", ",", "0.24717826068427576`", ",", 
   "0.18820993619299117`", ",", "0.13348856956763033`", ",", 
   "0.08591043854513683`", ",", "0.04752133387396175`", ",", 
   "0.02031045943640634`", ",", "0.005089009604481677`", ",", 
   "0.00023042281320098952`", ",", "4.322512658338105`*^-7"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.936353071385385*^9, 3.936687357056552*^9, 
  3.936687515904715*^9, 3.93668846399286*^9, 3.936694343393394*^9, 
  3.936695002713898*^9, 3.936696329268378*^9, 3.936696611079952*^9, 
  3.936696868567062*^9, 3.936697136972965*^9, 3.936697432948225*^9, 
  3.9366982329105587`*^9, 3.93669855096838*^9, 3.936699439381352*^9, 
  3.936700165137504*^9, 3.941541311669691*^9},
 CellLabel->
  "Out[6186]=",ExpressionUUID->"47d0fb18-e691-4860-b592-24ebe3185c46"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.2095977430725626`", ",", "0.22274718186873071`", ",", 
   "0.21608653748134202`", ",", "0.19874131340647117`", ",", 
   "0.17463065544279416`", ",", "0.1457477477714957`", ",", 
   "0.11529033728653448`", ",", "0.0845071648986368`", ",", 
   "0.05596932887005831`", ",", "0.03175979029262518`", ",", 
   "0.013885482107262951`", ",", "0.0035516872147173437`", ",", 
   "0.00016381048002456843`", ",", "3.099053926765056`*^-7"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.936353071385385*^9, 3.936687357056552*^9, 
  3.936687515904715*^9, 3.93668846399286*^9, 3.936694343393394*^9, 
  3.936695002713898*^9, 3.936696329268378*^9, 3.936696611079952*^9, 
  3.936696868567062*^9, 3.936697136972965*^9, 3.936697432948225*^9, 
  3.9366982329105587`*^9, 3.93669855096838*^9, 3.936699439381352*^9, 
  3.936700165137504*^9, 3.9415413116721983`*^9},
 CellLabel->
  "Out[6187]=",ExpressionUUID->"eeed20f7-bdb5-447f-b2e7-e5ed34b273be"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.03226857744041908`", ",", "0.03691060581204389`", ",", 
   "0.036506863074074004`", ",", "0.03367521347766093`", ",", 
   "0.029507210754506737`", ",", "0.024518929497119493`", ",", 
   "0.01930617261820836`", ",", "0.014100454982630515`", ",", 
   "0.0093183982046137`", ",", "0.005283710619154371`", ",", 
   "0.0023159781563122533`", ",", "0.0005943506007067837`", ",", 
   "0.00002774116612794617`", ",", "5.29110423186711`*^-8"}], "}"}]], "Output",\

 CellChangeTimes->{3.936353071385385*^9, 3.936687357056552*^9, 
  3.936687515904715*^9, 3.93668846399286*^9, 3.936694343393394*^9, 
  3.936695002713898*^9, 3.936696329268378*^9, 3.936696611079952*^9, 
  3.936696868567062*^9, 3.936697136972965*^9, 3.936697432948225*^9, 
  3.9366982329105587`*^9, 3.93669855096838*^9, 3.936699439381352*^9, 
  3.936700165137504*^9, 3.941541311673381*^9},
 CellLabel->
  "Out[6188]=",ExpressionUUID->"55c25013-204f-462d-8bc2-7710f94b79a1"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"m\[Sigma]s", "=", 
   RowBox[{"{", 
    RowBox[{
    "0.37186917059045127`", ",", "0.31305556982074967`", ",", 
     "0.25800046654828995`", ",", "0.20766636069268887`", ",", 
     "0.16234442959252626`", ",", "0.12153045179770174`", ",", 
     "0.08784910886012856`", ",", "0.0589314931454635`", ",", 
     "0.035964359561223604`", ",", "0.018977180757740974`", ",", 
     "0.0077783749835512945`", ",", "0.0018222906462112014`", ",", 
     "0.00006235388298982674`"}], 
    RowBox[{"(*", 
     RowBox[{",", "7.458246665031554`*^-8"}], "*)"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"mas", "=", 
   RowBox[{"{", 
    RowBox[{
    "0.9396846597451998`", ",", "0.8711902172239474`", ",", 
     "0.798476687051468`", ",", "0.7214289691668422`", ",", 
     "0.6400083855337144`", ",", "0.5532249644848009`", ",", 
     "0.4639453348950434`", ",", "0.372143974996082`", ",", 
     "0.27971692137310966`", ",", "0.18874733634868787`", ",", 
     "0.10472630804477441`", ",", "0.03766368901135473`", ",", 
     "0.002773731574508729`"}], 
    RowBox[{"(*", 
     RowBox[{",", "7.486364469849137`*^-6"}], "*)"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"f\[Sigma]s", "=", 
   RowBox[{"{", 
    RowBox[{
    "0.9901731787419323`", ",", "1.0245421240464383`", ",", 
     "1.0677374063738778`", ",", "1.1198705517068144`", ",", 
     "1.1822807874034595`", ",", "1.2593836749557141`", ",", 
     "1.3409640730893835`", ",", "1.3086855185248913`", ",", 
     "1.1416405368403069`", ",", "0.8145020132063554`", ",", 
     "0.4278752022861359`", ",", "0.13638928182936408`", ",", 
     "0.008788348663663485`"}], 
    RowBox[{"(*", 
     RowBox[{",", "0.00002225426814029254`"}], "*)"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fas", "=", 
   RowBox[{"{", 
    RowBox[{
    "0.3108569622955491`", ",", "0.28678281470168376`", ",", 
     "0.2613987389118957`", ",", "0.2347095829879382`", ",", 
     "0.20674883319576934`", ",", "0.17728184305359962`", ",", 
     "0.14729487027335403`", ",", "0.11687222673177923`", ",", 
     "0.08673943198883965`", ",", "0.05765794854173895`", ",", 
     "0.03141951847815241`", ",", "0.011049110586718227`", ",", 
     "0.0007899707105788862`"}], 
    RowBox[{"(*", 
     RowBox[{",", "2.0869570095642636`*^-6"}], "*)"}], "}"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.927915236070183*^9, 3.927915266404138*^9}, 
   3.927916260928163*^9, {3.927917530769734*^9, 3.927917544826376*^9}, {
   3.927918122117152*^9, 3.927918172518571*^9}, {3.92791852754566*^9, 
   3.927918547191523*^9}, {3.927919079130555*^9, 3.927919092758113*^9}, {
   3.92791943043403*^9, 3.927919443742899*^9}, {3.927919734260099*^9, 
   3.927919751358293*^9}, {3.927920117222429*^9, 3.927920132033338*^9}, {
   3.927920497757875*^9, 3.927920512687763*^9}, {3.927920748977674*^9, 
   3.927920768028623*^9}, {3.927921024519391*^9, 3.927921041849798*^9}, {
   3.927921505001115*^9, 3.927921521963068*^9}, {3.927921673814718*^9, 
   3.927921685956616*^9}, {3.9279220249920883`*^9, 3.92792204149576*^9}, {
   3.927922507382536*^9, 3.927922523425931*^9}, {3.927922863352638*^9, 
   3.9279228810938473`*^9}, 3.927926374971968*^9, {3.927927261938909*^9, 
   3.92792729230072*^9}, {3.927927903789703*^9, 3.927927947687858*^9}, {
   3.927928096706934*^9, 3.927928102710065*^9}, {3.927928204742825*^9, 
   3.927928223526177*^9}, {3.9279284002478037`*^9, 3.927928416268363*^9}, {
   3.927929167714884*^9, 3.927929235474499*^9}, {3.930165144695751*^9, 
   3.930165168727191*^9}, {3.930165209990511*^9, 3.930165219001825*^9}, {
   3.930165266378643*^9, 3.930165321932766*^9}, {3.930165356189191*^9, 
   3.9301653756994343`*^9}, {3.930176538856007*^9, 3.930176553927593*^9}, {
   3.930176643618497*^9, 3.930176646504484*^9}, {3.9301784772821827`*^9, 
   3.930178490132716*^9}, {3.93017958038546*^9, 3.9301795953608103`*^9}, {
   3.930180548923338*^9, 3.930180559224934*^9}, {3.930181072453291*^9, 
   3.93018114114323*^9}, {3.93018153947653*^9, 3.930181552462143*^9}, {
   3.930182063661351*^9, 3.930182078605718*^9}, {3.930182670232237*^9, 
   3.930182682455462*^9}, {3.930183090407834*^9, 3.9301831025190287`*^9}, {
   3.930183592446032*^9, 3.93018361134634*^9}, {3.9301844853930283`*^9, 
   3.930184497676762*^9}, {3.930184952843204*^9, 3.930184969378976*^9}, {
   3.930185506616764*^9, 3.930185524313031*^9}, {3.930186073742354*^9, 
   3.9301860946333103`*^9}, {3.930186760861109*^9, 3.930186779708921*^9}, {
   3.930186837458824*^9, 3.930186845222799*^9}, {3.930188085773507*^9, 
   3.9301881065999804`*^9}, {3.9301888890386763`*^9, 3.930188906557174*^9}, 
   3.930190498300252*^9, {3.93019070357515*^9, 3.930190749048599*^9}, {
   3.930190813178741*^9, 3.930190821000732*^9}, {3.930192556684015*^9, 
   3.930192575969627*^9}, {3.930209148726519*^9, 3.930209177183174*^9}, {
   3.930210390411914*^9, 3.930210399848781*^9}, {3.9302105296903143`*^9, 
   3.930210540646453*^9}, {3.930210595013431*^9, 3.930210608936585*^9}, {
   3.930211296147229*^9, 3.93021130548806*^9}, {3.930211616019512*^9, 
   3.9302116286012917`*^9}, {3.930211666258366*^9, 3.930211693368107*^9}, {
   3.93021209814275*^9, 3.930212101738605*^9}, {3.930214511048921*^9, 
   3.9302145158491793`*^9}, {3.930214843953847*^9, 3.93021484832443*^9}, {
   3.93021536218732*^9, 3.930215367123155*^9}, {3.930216284913409*^9, 
   3.930216289103352*^9}, {3.930216562682792*^9, 3.930216566608226*^9}, {
   3.930216839334188*^9, 3.930216843685292*^9}, {3.930217256728729*^9, 
   3.930217262971482*^9}, {3.930217639044135*^9, 3.930217645296494*^9}, {
   3.930218037478208*^9, 3.930218049474199*^9}, {3.930218674674987*^9, 
   3.930218685712882*^9}, {3.930219791527018*^9, 3.930219798570454*^9}, 
   3.930220200975554*^9, {3.930301344762838*^9, 3.930301354975141*^9}, {
   3.930301786719778*^9, 3.930301789306829*^9}, {3.930303161960351*^9, 
   3.930303194329505*^9}, {3.930305286096694*^9, 3.930305308338396*^9}, {
   3.930305438350773*^9, 3.9303054447780943`*^9}, {3.930305852149084*^9, 
   3.9303059069985*^9}, {3.930306005639398*^9, 3.930306022002716*^9}, {
   3.930306795814871*^9, 3.9303068047288623`*^9}, {3.930306859325345*^9, 
   3.930306897962075*^9}, {3.930309449368799*^9, 3.9303094603248177`*^9}, {
   3.930309931728584*^9, 3.930309941366164*^9}, {3.9303108310845623`*^9, 
   3.930310840240639*^9}, {3.930311636689045*^9, 3.930311649609756*^9}, {
   3.930311786818816*^9, 3.930311791360897*^9}, {3.930312446026972*^9, 
   3.930312462066352*^9}, {3.930313600592597*^9, 3.930313766725204*^9}, {
   3.930313797195057*^9, 3.930313807280285*^9}, {3.930314278551495*^9, 
   3.930314284431637*^9}, {3.930589256253147*^9, 3.930589263760464*^9}, {
   3.930589706056793*^9, 3.930589714028167*^9}, {3.931220795259444*^9, 
   3.9312208013910418`*^9}, {3.931221276379142*^9, 3.931221306411147*^9}, {
   3.931221375734411*^9, 3.931221409967483*^9}, {3.931221847706285*^9, 
   3.9312218555658607`*^9}, {3.931222156084159*^9, 3.931222165895601*^9}, {
   3.931222331005508*^9, 3.931222339953352*^9}, {3.931223137699555*^9, 
   3.9312231472844152`*^9}, {3.931223577141351*^9, 3.931223591184143*^9}, {
   3.931223986431025*^9, 3.9312239972705603`*^9}, {3.93122456251726*^9, 
   3.931224577064998*^9}, {3.936353110286087*^9, 3.936353122688266*^9}, {
   3.936700265111937*^9, 3.936700268632768*^9}, {3.9367003380193157`*^9, 
   3.9367003550777273`*^9}, {3.941541373334717*^9, 3.941541398024781*^9}, {
   3.957338614357588*^9, 3.957338619183913*^9}, {3.957338668675385*^9, 
   3.957338677894462*^9}},
 CellLabel->"In[42]:=",ExpressionUUID->"e0283f0a-7bec-4599-90e6-daf78f1d70b2"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"AppendTo", "[", 
   RowBox[{"m\[Sigma]s", ",", "Smass1"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AppendTo", "[", 
   RowBox[{"mas", ",", "Amass1"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AppendTo", "[", 
   RowBox[{"f\[Sigma]s", ",", 
    SqrtBox["fssq1"]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AppendTo", "[", 
   RowBox[{"fas", ",", 
    SqrtBox["fasq1"]}], "]"}], 
  ";"}], "\[IndentingNewLine]", "m\[Sigma]s", "\[IndentingNewLine]", "mas", "\
\[IndentingNewLine]", "f\[Sigma]s", "\[IndentingNewLine]", "fas"}], "Input",
 CellChangeTimes->{{3.936353136834084*^9, 3.9363532104099197`*^9}, {
  3.936687435485633*^9, 3.936687451911532*^9}},
 CellLabel->
  "In[6189]:=",ExpressionUUID->"3f2de889-9f2c-4591-9706-b8f7211d5fb6"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.37186917059045127`", ",", "0.31305556982074967`", ",", 
   "0.25800046654828995`", ",", "0.20766636069268887`", ",", 
   "0.16234442959252626`", ",", "0.12153045179770174`", ",", 
   "0.08784910886012856`", ",", "0.0589314931454635`", ",", 
   "0.035964359561223604`", ",", "0.018977180757740974`", ",", 
   "0.0077783749835512945`", ",", "0.0018222906462112014`", ",", 
   "0.00006235388298982674`", ",", "7.458246665031554`*^-8"}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.93635321142649*^9, {3.936687439271048*^9, 3.936687459870147*^9}, 
   3.936688474481275*^9, 3.936694345708998*^9, 3.936695005997732*^9, 
   3.936696337416704*^9, 3.936696618618222*^9, 3.936696874883191*^9, 
   3.936697142390388*^9, 3.936697440793926*^9, 3.936698237293784*^9, 
   3.9366985579636908`*^9, 3.936699444678134*^9, 3.936700174777563*^9, 
   3.941541322877689*^9},
 CellLabel->
  "Out[6193]=",ExpressionUUID->"a9ee0b10-0143-4a55-991c-f284613ec565"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.9396846597451998`", ",", "0.8711902172239474`", ",", 
   "0.798476687051468`", ",", "0.7214289691668422`", ",", 
   "0.6400083855337144`", ",", "0.5532249644848009`", ",", 
   "0.4639453348950434`", ",", "0.372143974996082`", ",", 
   "0.27971692137310966`", ",", "0.18874733634868787`", ",", 
   "0.10472630804477441`", ",", "0.03766368901135473`", ",", 
   "0.002773731574508729`", ",", "7.486364469849137`*^-6"}], "}"}]], "Output",\

 CellChangeTimes->{
  3.93635321142649*^9, {3.936687439271048*^9, 3.936687459870147*^9}, 
   3.936688474481275*^9, 3.936694345708998*^9, 3.936695005997732*^9, 
   3.936696337416704*^9, 3.936696618618222*^9, 3.936696874883191*^9, 
   3.936697142390388*^9, 3.936697440793926*^9, 3.936698237293784*^9, 
   3.9366985579636908`*^9, 3.936699444678134*^9, 3.936700174777563*^9, 
   3.941541322880804*^9},
 CellLabel->
  "Out[6194]=",ExpressionUUID->"15cdc66c-0607-4cdf-b5d0-581612037950"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.9901731787419323`", ",", "1.0245421240464383`", ",", 
   "1.0677374063738778`", ",", "1.1198705517068144`", ",", 
   "1.1822807874034595`", ",", "1.2593836749557141`", ",", 
   "1.3409640730893835`", ",", "1.3086855185248913`", ",", 
   "1.1416405368403069`", ",", "0.8145020132063554`", ",", 
   "0.4278752022861359`", ",", "0.13638928182936408`", ",", 
   "0.008788348663663485`", ",", "0.00002225426814029254`"}], "}"}]], "Output",\

 CellChangeTimes->{
  3.93635321142649*^9, {3.936687439271048*^9, 3.936687459870147*^9}, 
   3.936688474481275*^9, 3.936694345708998*^9, 3.936695005997732*^9, 
   3.936696337416704*^9, 3.936696618618222*^9, 3.936696874883191*^9, 
   3.936697142390388*^9, 3.936697440793926*^9, 3.936698237293784*^9, 
   3.9366985579636908`*^9, 3.936699444678134*^9, 3.936700174777563*^9, 
   3.941541322882915*^9},
 CellLabel->
  "Out[6195]=",ExpressionUUID->"e684477d-17cc-4d5a-8b8d-dbda9aaecf23"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.3108569622955491`", ",", "0.28678281470168376`", ",", 
   "0.2613987389118957`", ",", "0.2347095829879382`", ",", 
   "0.20674883319576934`", ",", "0.17728184305359962`", ",", 
   "0.14729487027335403`", ",", "0.11687222673177923`", ",", 
   "0.08673943198883965`", ",", "0.05765794854173895`", ",", 
   "0.03141951847815241`", ",", "0.011049110586718227`", ",", 
   "0.0007899707105788862`", ",", "2.0869570095642636`*^-6"}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.93635321142649*^9, {3.936687439271048*^9, 3.936687459870147*^9}, 
   3.936688474481275*^9, 3.936694345708998*^9, 3.936695005997732*^9, 
   3.936696337416704*^9, 3.936696618618222*^9, 3.936696874883191*^9, 
   3.936697142390388*^9, 3.936697440793926*^9, 3.936698237293784*^9, 
   3.9366985579636908`*^9, 3.936699444678134*^9, 3.936700174777563*^9, 
   3.941541322884536*^9},
 CellLabel->
  "Out[6196]=",ExpressionUUID->"1f495308-ed5c-48fa-9277-3de8a85b4315"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"m\[Sigma]f", "=", 
   RowBox[{"{", 
    RowBox[{
    "0.672059725281842`", ",", "0.593211638828637`", ",", 
     "0.5136407956801109`", ",", "0.43046388301363453`", ",", 
     "0.3481788826031583`", ",", "0.2681198243854614`", ",", 
     "0.1948653755551033`", ",", "0.12976745329671924`", ",", 
     "0.07675149004048026`", ",", "0.03795357241190369`", ",", 
     "0.01413294185059542`", ",", "0.003052838982569719`", ",", 
     "0.0001064078516307861`"}], 
    RowBox[{"(*", 
     RowBox[{",", "1.9047486073136637`*^-7"}], "*)"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"maf", "=", 
   RowBox[{"{", 
    RowBox[{
    "0.8012250825430401`", ",", "0.6264395858168875`", ",", 
     "0.5169705170323929`", ",", "0.42759992542176556`", ",", 
     "0.3476152765303424`", ",", "0.27302674849542574`", ",", 
     "0.20554342522830707`", ",", "0.1445275005150266`", ",", 
     "0.0923878143937803`", ",", "0.05083025929991616`", ",", 
     "0.021630752727656386`", ",", "0.005399727829797182`", ",", 
     "0.00024385691137977165`"}], 
    RowBox[{"(*", 
     RowBox[{",", "4.569396554363852`*^-7"}], "*)"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"f\[Sigma]f", "=", 
   RowBox[{"{", 
    RowBox[{
    "0.42358276457194827`", ",", "0.46799717653969714`", ",", 
     "0.4754794722909424`", ",", "0.4591162238874516`", ",", 
     "0.4282846438393874`", ",", "0.3692955017374409`", ",", 
     "0.3039730137364655`", ",", "0.2317353828209699`", ",", 
     "0.15951717635692245`", ",", "0.0943865089774375`", ",", 
     "0.043513579524594906`", ",", "0.01186580584872826`", ",", 
     "0.0006269610704839763`"}], 
    RowBox[{"(*", 
     RowBox[{",", "1.2813031198942183`*^-6"}], "*)"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"faf", "=", 
   RowBox[{"{", 
    RowBox[{
    "0.2301092325736832`", ",", "0.22556352508407587`", ",", 
     "0.21468409402091457`", ",", "0.1962952968136314`", ",", 
     "0.1721457793315823`", ",", "0.14359398323837985`", ",", 
     "0.11358557818993281`", ",", "0.0832647218624427`", ",", 
     "0.05516213786351182`", ",", "0.03130517931742755`", ",", 
     "0.013688696235423813`", ",", "0.0035014592286653186`", ",", 
     "0.00016141393668467935`"}], 
    RowBox[{"(*", 
     RowBox[{",", "3.0528760767192377`*^-7"}], "*)"}], "}"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{
  3.930165466138838*^9, {3.930176561214446*^9, 3.930176577282442*^9}, {
   3.93017664855097*^9, 3.930176651272729*^9}, {3.9301784945947123`*^9, 
   3.930178505671431*^9}, {3.930180564927492*^9, 3.930180573883717*^9}, {
   3.930181080643284*^9, 3.930181084036968*^9}, {3.93018157125764*^9, 
   3.930181581159487*^9}, {3.930182087046667*^9, 3.930182098022996*^9}, {
   3.930182148784183*^9, 3.930182149417444*^9}, {3.930182596165779*^9, 
   3.930182606976779*^9}, {3.930183109347271*^9, 3.930183126364489*^9}, {
   3.930183633459665*^9, 3.930183644071233*^9}, {3.930184509153172*^9, 
   3.93018452226081*^9}, {3.930184976042711*^9, 3.930184990517784*^9}, {
   3.9301855363795557`*^9, 3.930185548955351*^9}, {3.930186103172389*^9, 
   3.9301861171864376`*^9}, {3.930186787557909*^9, 3.930186828076005*^9}, {
   3.930188114770677*^9, 3.93018812928125*^9}, {3.9301889139184103`*^9, 
   3.930188927539019*^9}, {3.930189093718961*^9, 3.9301891006191874`*^9}, {
   3.930190759467855*^9, 3.930190779995327*^9}, {3.930190857706595*^9, 
   3.930190858262229*^9}, {3.930192586675434*^9, 3.9301926015557413`*^9}, {
   3.93020919339364*^9, 3.930209205721225*^9}, {3.930209553931119*^9, 
   3.930209562057917*^9}, {3.930210416312664*^9, 3.930210425540844*^9}, {
   3.930210549737466*^9, 3.930210565338633*^9}, {3.930210616836845*^9, 
   3.9302106269369717`*^9}, {3.930211341372629*^9, 3.930211346944172*^9}, {
   3.930211637802531*^9, 3.930211642779572*^9}, {3.930211702885426*^9, 
   3.930211734372574*^9}, {3.930212108322233*^9, 3.93021211162778*^9}, {
   3.930214537475914*^9, 3.930214542070736*^9}, {3.930214854702969*^9, 
   3.930214858606933*^9}, {3.930215376010283*^9, 3.9302153795609303`*^9}, {
   3.930216295216968*^9, 3.930216300293369*^9}, {3.930216572921682*^9, 
   3.9302165770717897`*^9}, {3.930216851917612*^9, 3.930216855995379*^9}, {
   3.930217274449626*^9, 3.9302172791063013`*^9}, {3.930217652476585*^9, 
   3.930217656602388*^9}, {3.930218056454762*^9, 3.930218061104197*^9}, {
   3.93021870291996*^9, 3.930218723089053*^9}, {3.9302200486002693`*^9, 
   3.930220059099635*^9}, {3.930221883168322*^9, 3.930221889121196*^9}, 
   3.930221961992615*^9, {3.930221994579781*^9, 3.930222018549513*^9}, {
   3.930222420996869*^9, 3.93022244423149*^9}, {3.930301359096225*^9, 
   3.930301369159491*^9}, {3.930301793049077*^9, 3.930301796312336*^9}, {
   3.930303180075901*^9, 3.930303199383809*^9}, {3.930305317120304*^9, 
   3.930305328003343*^9}, {3.930305449154211*^9, 3.930305456628288*^9}, {
   3.930306811150234*^9, 3.930306820631926*^9}, {3.930309465385055*^9, 
   3.930309475365101*^9}, {3.930309948296009*^9, 3.930309957158128*^9}, {
   3.930310846704603*^9, 3.930310858081181*^9}, {3.930311656525678*^9, 
   3.9303116738649273`*^9}, {3.930312479331165*^9, 3.930312489810559*^9}, {
   3.9303136802554913`*^9, 3.930313693552265*^9}, {3.930589233892693*^9, 
   3.930589248099316*^9}, {3.930589718255321*^9, 3.930589732966484*^9}, 
   3.931221186104006*^9, {3.931221272591117*^9, 3.931221296151556*^9}, {
   3.931221362519944*^9, 3.931221372002697*^9}, {3.931221835444471*^9, 
   3.93122184405418*^9}, {3.931222144551604*^9, 3.931222152889613*^9}, {
   3.9312223180336733`*^9, 3.931222327263857*^9}, {3.931222653040345*^9, 
   3.931222663246299*^9}, {3.93122312387982*^9, 3.931223133645538*^9}, {
   3.93122356007132*^9, 3.9312235718318157`*^9}, {3.93122396928218*^9, 
   3.931223982461535*^9}, {3.93122454160002*^9, 3.931224558099338*^9}, {
   3.931224675637397*^9, 3.931224680489056*^9}, {3.93635322297242*^9, 
   3.936353236939759*^9}, {3.936700271464216*^9, 3.936700276850765*^9}, {
   3.936700360401713*^9, 3.93670037642303*^9}, {3.941541405149106*^9, 
   3.941541419596485*^9}, {3.9573386223212976`*^9, 3.9573386277110643`*^9}, {
   3.957338685874957*^9, 3.957338692927861*^9}},
 CellLabel->"In[46]:=",ExpressionUUID->"1aaf9d88-c859-402e-adbc-7785211fa886"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"AppendTo", "[", 
   RowBox[{"m\[Sigma]f", ",", "Smass"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AppendTo", "[", 
   RowBox[{"maf", ",", "Amass"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AppendTo", "[", 
   RowBox[{"f\[Sigma]f", ",", 
    SqrtBox["fssq"]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AppendTo", "[", 
   RowBox[{"faf", ",", 
    SqrtBox["fasq"]}], "]"}], 
  ";"}], "\[IndentingNewLine]", "m\[Sigma]f", "\[IndentingNewLine]", "maf", "\
\[IndentingNewLine]", "f\[Sigma]f", "\[IndentingNewLine]", "faf"}], "Input",
 CellChangeTimes->{{3.93635324215254*^9, 3.936353325800117*^9}, {
  3.936687471629256*^9, 3.936687485095144*^9}},
 CellLabel->
  "In[6197]:=",ExpressionUUID->"d935df49-16e3-4d4e-b030-6ebfd355d073"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.672059725281842`", ",", "0.593211638828637`", ",", "0.5136407956801109`",
    ",", "0.43046388301363453`", ",", "0.3481788826031583`", ",", 
   "0.2681198243854614`", ",", "0.1948653755551033`", ",", 
   "0.12976745329671924`", ",", "0.07675149004048026`", ",", 
   "0.03795357241190369`", ",", "0.01413294185059542`", ",", 
   "0.003052838982569719`", ",", "0.0001064078516307861`", ",", 
   "1.9047486073136637`*^-7"}], "}"}]], "Output",
 CellChangeTimes->{3.936353330573842*^9, 3.936687486091329*^9, 
  3.936688486965329*^9, 3.936694348577853*^9, 3.936695010915901*^9, 
  3.936696345700581*^9, 3.936696628234244*^9, 3.936696888627862*^9, 
  3.9366971497046137`*^9, 3.936697447358159*^9, 3.936698245079001*^9, 
  3.936698575795282*^9, 3.936699451268485*^9, 3.936700183651786*^9, 
  3.94154132569521*^9},
 CellLabel->
  "Out[6201]=",ExpressionUUID->"d88294c7-a966-4054-9b55-02ef79f218de"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.8012250825430401`", ",", "0.6264395858168875`", ",", 
   "0.5169705170323929`", ",", "0.42759992542176556`", ",", 
   "0.3476152765303424`", ",", "0.27302674849542574`", ",", 
   "0.20554342522830707`", ",", "0.1445275005150266`", ",", 
   "0.0923878143937803`", ",", "0.05083025929991616`", ",", 
   "0.021630752727656386`", ",", "0.005399727829797182`", ",", 
   "0.00024385691137977165`", ",", "4.569396554363852`*^-7"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.936353330573842*^9, 3.936687486091329*^9, 
  3.936688486965329*^9, 3.936694348577853*^9, 3.936695010915901*^9, 
  3.936696345700581*^9, 3.936696628234244*^9, 3.936696888627862*^9, 
  3.9366971497046137`*^9, 3.936697447358159*^9, 3.936698245079001*^9, 
  3.936698575795282*^9, 3.936699451268485*^9, 3.936700183651786*^9, 
  3.941541325696924*^9},
 CellLabel->
  "Out[6202]=",ExpressionUUID->"e23a564b-fb6b-4bcc-9274-2eeba54e452a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.42358276457194827`", ",", "0.46799717653969714`", ",", 
   "0.4754794722909424`", ",", "0.4591162238874516`", ",", 
   "0.4282846438393874`", ",", "0.3692955017374409`", ",", 
   "0.3039730137364655`", ",", "0.2317353828209699`", ",", 
   "0.15951717635692245`", ",", "0.0943865089774375`", ",", 
   "0.043513579524594906`", ",", "0.01186580584872826`", ",", 
   "0.0006269610704839763`", ",", "1.2813031198942183`*^-6"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.936353330573842*^9, 3.936687486091329*^9, 
  3.936688486965329*^9, 3.936694348577853*^9, 3.936695010915901*^9, 
  3.936696345700581*^9, 3.936696628234244*^9, 3.936696888627862*^9, 
  3.9366971497046137`*^9, 3.936697447358159*^9, 3.936698245079001*^9, 
  3.936698575795282*^9, 3.936699451268485*^9, 3.936700183651786*^9, 
  3.941541325697865*^9},
 CellLabel->
  "Out[6203]=",ExpressionUUID->"9c724bf0-4f8b-40be-9506-d07d08e4e85b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.2301092325736832`", ",", "0.22556352508407587`", ",", 
   "0.21468409402091457`", ",", "0.1962952968136314`", ",", 
   "0.1721457793315823`", ",", "0.14359398323837985`", ",", 
   "0.11358557818993281`", ",", "0.0832647218624427`", ",", 
   "0.05516213786351182`", ",", "0.03130517931742755`", ",", 
   "0.013688696235423813`", ",", "0.0035014592286653186`", ",", 
   "0.00016141393668467935`", ",", "3.0528760767192377`*^-7"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.936353330573842*^9, 3.936687486091329*^9, 
  3.936688486965329*^9, 3.936694348577853*^9, 3.936695010915901*^9, 
  3.936696345700581*^9, 3.936696628234244*^9, 3.936696888627862*^9, 
  3.9366971497046137`*^9, 3.936697447358159*^9, 3.936698245079001*^9, 
  3.936698575795282*^9, 3.936699451268485*^9, 3.936700183651786*^9, 
  3.941541325698794*^9},
 CellLabel->
  "Out[6204]=",ExpressionUUID->"70ab3e4f-8bc6-40d3-8f4a-820b029c94a7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"nf", "[", 
           RowBox[{"[", "i", "]"}], "]"}], ",", 
          FractionBox[
           RowBox[{"m\[Rho]s", "[", 
            RowBox[{"[", "i", "]"}], "]"}], 
           RowBox[{"m\[Rho]s", "[", 
            RowBox[{"[", "i", "]"}], "]"}]]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{
           RowBox[{"Dimensions", "[", "nf", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", "1"}], "}"}]}], "]"}], ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"nf", "[", 
           RowBox[{"[", "i", "]"}], "]"}], ",", 
          FractionBox[
           RowBox[{"m\[Rho]f", "[", 
            RowBox[{"[", "i", "]"}], "]"}], 
           RowBox[{"m\[Rho]s", "[", 
            RowBox[{"[", "i", "]"}], "]"}]]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{
           RowBox[{"Dimensions", "[", "nf", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", "1"}], "}"}]}], "]"}], ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"nf", "[", 
           RowBox[{"[", "i", "]"}], "]"}], ",", 
          FractionBox[
           RowBox[{"m\[Sigma]s", "[", 
            RowBox[{"[", "i", "]"}], "]"}], 
           RowBox[{"m\[Rho]s", "[", 
            RowBox[{"[", "i", "]"}], "]"}]]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{
           RowBox[{"Dimensions", "[", "nf", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", "1"}], "}"}]}], "]"}], ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"nf", "[", 
           RowBox[{"[", "i", "]"}], "]"}], ",", 
          FractionBox[
           RowBox[{"m\[Sigma]f", "[", 
            RowBox[{"[", "i", "]"}], "]"}], 
           RowBox[{"m\[Rho]s", "[", 
            RowBox[{"[", "i", "]"}], "]"}]]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{
           RowBox[{"Dimensions", "[", "nf", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", "1"}], "}"}]}], "]"}], ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"nf", "[", 
           RowBox[{"[", "i", "]"}], "]"}], ",", 
          FractionBox[
           RowBox[{"mas", "[", 
            RowBox[{"[", "i", "]"}], "]"}], 
           RowBox[{"m\[Rho]s", "[", 
            RowBox[{"[", "i", "]"}], "]"}]]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{
           RowBox[{"Dimensions", "[", "nf", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", "1"}], "}"}]}], "]"}], ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"nf", "[", 
           RowBox[{"[", "i", "]"}], "]"}], ",", 
          FractionBox[
           RowBox[{"maf", "[", 
            RowBox[{"[", "i", "]"}], "]"}], 
           RowBox[{"m\[Rho]s", "[", 
            RowBox[{"[", "i", "]"}], "]"}]]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{
           RowBox[{"Dimensions", "[", "nf", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", "1"}], "}"}]}], "]"}]}], 
     "}"}], "]"}], ",", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"nf", "[", 
            RowBox[{"[", "i", "]"}], "]"}], ",", 
           FractionBox[
            RowBox[{"m\[Rho]s", "[", 
             RowBox[{"[", "i", "]"}], "]"}], 
            RowBox[{"m\[Rho]s", "[", 
             RowBox[{"[", "i", "]"}], "]"}]]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "nf", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], ",", "1"}], "}"}]}], "]"}], ",", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"nf", "[", 
            RowBox[{"[", "i", "]"}], "]"}], ",", 
           FractionBox[
            RowBox[{"m\[Rho]f", "[", 
             RowBox[{"[", "i", "]"}], "]"}], 
            RowBox[{"m\[Rho]s", "[", 
             RowBox[{"[", "i", "]"}], "]"}]]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "nf", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], ",", "1"}], "}"}]}], "]"}], ",", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"nf", "[", 
            RowBox[{"[", "i", "]"}], "]"}], ",", 
           FractionBox[
            RowBox[{"m\[Sigma]s", "[", 
             RowBox[{"[", "i", "]"}], "]"}], 
            RowBox[{"m\[Rho]s", "[", 
             RowBox[{"[", "i", "]"}], "]"}]]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "nf", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], ",", "1"}], "}"}]}], "]"}], ",", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"nf", "[", 
            RowBox[{"[", "i", "]"}], "]"}], ",", 
           FractionBox[
            RowBox[{"m\[Sigma]f", "[", 
             RowBox[{"[", "i", "]"}], "]"}], 
            RowBox[{"m\[Rho]s", "[", 
             RowBox[{"[", "i", "]"}], "]"}]]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "nf", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], ",", "1"}], "}"}]}], "]"}], ",", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"nf", "[", 
            RowBox[{"[", "i", "]"}], "]"}], ",", 
           FractionBox[
            RowBox[{"mas", "[", 
             RowBox[{"[", "i", "]"}], "]"}], 
            RowBox[{"m\[Rho]s", "[", 
             RowBox[{"[", "i", "]"}], "]"}]]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "nf", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], ",", "1"}], "}"}]}], "]"}], ",", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"nf", "[", 
            RowBox[{"[", "i", "]"}], "]"}], ",", 
           FractionBox[
            RowBox[{"maf", "[", 
             RowBox[{"[", "i", "]"}], "]"}], 
            RowBox[{"m\[Rho]s", "[", 
             RowBox[{"[", "i", "]"}], "]"}]]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "nf", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], ",", "1"}], "}"}]}], "]"}]}], 
      "}"}], ",", 
     RowBox[{"Joined", "->", "True"}]}], "]"}], ",", 
   RowBox[{"AxesOrigin", "->", 
    RowBox[{"{", 
     RowBox[{"1", ",", "0"}], "}"}]}], ",", 
   RowBox[{"AxesLabel", "->", 
    RowBox[{"{", 
     RowBox[{
      SubscriptBox["N", "f"], ",", "M"}], "}"}]}], ",", 
   RowBox[{"PlotRange", "->", "All"}], ",", 
   RowBox[{"ImageSize", "->", "Large"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"blue", " ", "is", " ", "the", " ", "\[Rho]", " ", "symmetric"}], 
    ",", " ", 
    RowBox[{
    "ochre", " ", "is", " ", "the", " ", "\[Rho]", " ", "fundamental"}], ",", 
    " ", 
    RowBox[{
    "green", " ", "is", " ", "the", " ", "\[Sigma]", " ", "symmetric"}], ",", 
    " ", 
    RowBox[{
    "orange", " ", "is", " ", "the", " ", "\[Sigma]", " ", "fundamental"}], 
    ",", " ", 
    RowBox[{"purple", " ", "is", " ", "the", " ", "axial", " ", "symmetric"}],
     ",", " ", 
    RowBox[{
    "brown", " ", "is", " ", "the", " ", "axial", " ", "fundamental"}]}], 
   "*)"}]}]}], "Input",
 CellChangeTimes->{{3.926710085308585*^9, 3.926710159141156*^9}, {
   3.926710206143008*^9, 3.926710210410438*^9}, {3.926710277054689*^9, 
   3.926710354879446*^9}, {3.9267104160891123`*^9, 3.926710530021939*^9}, {
   3.926712687668151*^9, 3.926712709068294*^9}, {3.926714438761476*^9, 
   3.926714479950386*^9}, 3.926717989351966*^9, {3.9267183341421223`*^9, 
   3.926718383322501*^9}, {3.926719015933078*^9, 3.9267190357681923`*^9}, {
   3.926719853161316*^9, 3.926719878426843*^9}, 3.926719919701874*^9, {
   3.926719984183269*^9, 3.926719993053268*^9}, 3.92791528617246*^9, {
   3.9301806274499474`*^9, 3.930180662414007*^9}, {3.930180699345458*^9, 
   3.930180777485837*^9}, {3.930180854196327*^9, 3.9301808645298643`*^9}, {
   3.930186813536938*^9, 3.930186817462075*^9}, {3.930189118357039*^9, 
   3.930189123159893*^9}, {3.930192632386634*^9, 3.930192673015285*^9}, {
   3.9302092989898*^9, 3.930209302668251*^9}, {3.930311755873431*^9, 
   3.930311777729355*^9}, {3.930314423333797*^9, 3.930314423664349*^9}},
 CellLabel->"In[50]:=",ExpressionUUID->"9914dde8-c827-4335-89ae-f93e90d5eb1b"],

Cell[BoxData[
 GraphicsBox[{{{}, 
    InterpretationBox[{
      TagBox[{
        TagBox[
         {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
          0.011000000000000001`], AbsoluteThickness[2], 
          PointBox[{{1., 1.}, {2., 1.}, {3., 1.}, {4., 1.}, {5., 1.}, {6., 
           1.}, {7., 1.}, {8., 1.}, {9., 0.9999999999999999}, {10., 1.}, {11.,
            1.}, {12., 1.}, {13., 1.}}]},
         Annotation[#, "Charting`Private`Tag#1"]& ], 
        TagBox[
         {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
          0.011000000000000001`], AbsoluteThickness[2], 
          PointBox[{{1., 0.789902989696454}, {2., 0.7638907165799186}, {3., 
           0.7331951322871122}, {4., 0.6972618282174352}, {5., 
           0.6558928237833763}, {6., 0.6078302384601787}, {7., 
           0.5543851613414086}, {8., 0.4926024086743036}, {9., 
           0.42397908171877935`}, {10., 0.34949391168679655`}, {11., 
           0.27083399348115667`}, {12., 0.18995437642987137`}, {13., 
           0.11769895240147685`}}]},
         Annotation[#, "Charting`Private`Tag#2"]& ], 
        TagBox[
         {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
          0.011000000000000001`], AbsoluteThickness[2], 
          PointBox[{{1., 0.5282338554865095}, {2., 0.4812683677521857}, {3., 
           0.434296285124783}, {4., 0.3883674538766083}, {5., 
           0.3436137825666062}, {6., 0.2988526713145107}, {7., 
           0.2587655220242032}, {8., 0.21747027153153323`}, {9., 
           0.17748874757937952`}, {10., 0.13956698171396192`}, {11., 
           0.10372233903350175`}, {12., 0.068019538235926}, {13., 
           0.031850087255315906`}}]},
         Annotation[#, "Charting`Private`Tag#3"]& ], 
        TagBox[
         {RGBColor[0.922526, 0.385626, 0.209179], PointSize[
          0.011000000000000001`], AbsoluteThickness[2], 
          PointBox[{{1., 0.9546494516852737}, {2., 0.9119594879405157}, {3., 
           0.8646197134324074}, {4., 0.8050324649317607}, {5., 
           0.7369459066835349}, {6., 0.6593271444703699}, {7., 
           0.5739892104112679}, {8., 0.478870664870732}, {9., 
           0.3787784909375594}, {10., 0.2791281599945223}, {11., 
           0.18845861626215296`}, {12., 0.11395147000000556`}, {13., 
           0.05435265931464429}}]},
         Annotation[#, "Charting`Private`Tag#4"]& ], 
        TagBox[
         {RGBColor[0.528488, 0.470624, 0.701351], PointSize[
          0.011000000000000001`], AbsoluteThickness[2], 
          PointBox[{{1., 1.3348061361757892`}, {2., 1.3393030958852186`}, {3.,
            1.3440884955930517`}, {4., 1.3491811142333785`}, {5., 
           1.3546242564623883`}, {6., 1.3604224787164385`}, {7., 
           1.3665825223788617`}, {8., 1.3732937512962373`}, {9., 
           1.3804390417896237`}, {10., 1.388135380962255}, {11., 
           1.396494467252808}, {12., 1.4058496871178867`}, {13., 
           1.4168098029330647`}}]},
         Annotation[#, "Charting`Private`Tag#5"]& ], 
        TagBox[
         {RGBColor[0.772079, 0.431554, 0.102387], PointSize[
          0.011000000000000001`], AbsoluteThickness[2], 
          PointBox[{{1., 1.1381266529629186`}, {2., 0.9630416642453422}, {3., 
           0.8702246862959975}, {4., 0.7996764317530857}, {5., 
           0.7357529934739848}, {6., 0.6713936459645095}, {7., 
           0.6054421316046554}, {8., 0.5333385105854244}, {9., 
           0.4559457659862841}, {10., 0.3738292826943506}, {11., 
           0.28843971558484627`}, {12., 0.20155236726156966`}, {13., 
           0.12456103024930713`}}]},
         Annotation[#, "Charting`Private`Tag#6"]& ]},
       {"WolframDynamicHighlight", <|
        "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], 
      StyleBox[
       DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, 
         Slot["HighlightElements"], 
         Slot["LayoutOptions"], 
         Slot["Meta"], 
         Charting`HighlightActionFunction["DynamicHighlight", {{
            Annotation[{
              Directive[
               PointSize[0.011000000000000001`], 
               RGBColor[0.368417, 0.506779, 0.709798], 
               AbsoluteThickness[2]], 
              
              Point[{{1., 1.}, {2., 1.}, {3., 1.}, {4., 1.}, {5., 1.}, {6., 
               1.}, {7., 1.}, {8., 1.}, {9., 0.9999999999999999}, {10., 1.}, {
               11., 1.}, {12., 1.}, {13., 1.}}]}, "Charting`Private`Tag#1"], 
            Annotation[{
              Directive[
               PointSize[0.011000000000000001`], 
               RGBColor[0.880722, 0.611041, 0.142051], 
               AbsoluteThickness[2]], 
              
              Point[{{1., 0.789902989696454}, {2., 0.7638907165799186}, {3., 
               0.7331951322871122}, {4., 0.6972618282174352}, {5., 
               0.6558928237833763}, {6., 0.6078302384601787}, {7., 
               0.5543851613414086}, {8., 0.4926024086743036}, {9., 
               0.42397908171877935`}, {10., 0.34949391168679655`}, {11., 
               0.27083399348115667`}, {12., 0.18995437642987137`}, {13., 
               0.11769895240147685`}}]}, "Charting`Private`Tag#2"], 
            Annotation[{
              Directive[
               PointSize[0.011000000000000001`], 
               RGBColor[0.560181, 0.691569, 0.194885], 
               AbsoluteThickness[2]], 
              
              Point[{{1., 0.5282338554865095}, {2., 0.4812683677521857}, {3., 
               0.434296285124783}, {4., 0.3883674538766083}, {5., 
               0.3436137825666062}, {6., 0.2988526713145107}, {7., 
               0.2587655220242032}, {8., 0.21747027153153323`}, {9., 
               0.17748874757937952`}, {10., 0.13956698171396192`}, {11., 
               0.10372233903350175`}, {12., 0.068019538235926}, {13., 
               0.031850087255315906`}}]}, "Charting`Private`Tag#3"], 
            Annotation[{
              Directive[
               PointSize[0.011000000000000001`], 
               RGBColor[0.922526, 0.385626, 0.209179], 
               AbsoluteThickness[2]], 
              
              Point[{{1., 0.9546494516852737}, {2., 0.9119594879405157}, {3., 
               0.8646197134324074}, {4., 0.8050324649317607}, {5., 
               0.7369459066835349}, {6., 0.6593271444703699}, {7., 
               0.5739892104112679}, {8., 0.478870664870732}, {9., 
               0.3787784909375594}, {10., 0.2791281599945223}, {11., 
               0.18845861626215296`}, {12., 0.11395147000000556`}, {13., 
               0.05435265931464429}}]}, "Charting`Private`Tag#4"], 
            Annotation[{
              Directive[
               PointSize[0.011000000000000001`], 
               RGBColor[0.528488, 0.470624, 0.701351], 
               AbsoluteThickness[2]], 
              
              Point[{{1., 1.3348061361757892`}, {2., 1.3393030958852186`}, {
               3., 1.3440884955930517`}, {4., 1.3491811142333785`}, {5., 
               1.3546242564623883`}, {6., 1.3604224787164385`}, {7., 
               1.3665825223788617`}, {8., 1.3732937512962373`}, {9., 
               1.3804390417896237`}, {10., 1.388135380962255}, {11., 
               1.396494467252808}, {12., 1.4058496871178867`}, {13., 
               1.4168098029330647`}}]}, "Charting`Private`Tag#5"], 
            Annotation[{
              Directive[
               PointSize[0.011000000000000001`], 
               RGBColor[0.772079, 0.431554, 0.102387], 
               AbsoluteThickness[2]], 
              
              Point[{{1., 1.1381266529629186`}, {2., 0.9630416642453422}, {3.,
                0.8702246862959975}, {4., 0.7996764317530857}, {5., 
               0.7357529934739848}, {6., 0.6713936459645095}, {7., 
               0.6054421316046554}, {8., 0.5333385105854244}, {9., 
               0.4559457659862841}, {10., 0.3738292826943506}, {11., 
               0.28843971558484627`}, {12., 0.20155236726156966`}, {13., 
               0.12456103024930713`}}]}, "Charting`Private`Tag#6"]}}, <|
          "HighlightElements" -> <|
            "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
           "LayoutOptions" -> <|
            "PanelPlotLayout" -> <||>, 
             "PlotRange" -> {{0, 13.}, {0, 1.4168098029330647`}}, 
             "Frame" -> {{False, False}, {False, False}}, 
             "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, 
             "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> 
             GoldenRatio^(-1), "DefaultStyle" -> {
               Directive[
                PointSize[0.011000000000000001`], 
                RGBColor[0.772079, 0.431554, 0.102387], 
                AbsoluteThickness[2]], 
               Directive[
                PointSize[0.011000000000000001`], 
                RGBColor[0.528488, 0.470624, 0.701351], 
                AbsoluteThickness[2]], 
               Directive[
                PointSize[0.011000000000000001`], 
                RGBColor[0.922526, 0.385626, 0.209179], 
                AbsoluteThickness[2]], 
               Directive[
                PointSize[0.011000000000000001`], 
                RGBColor[0.560181, 0.691569, 0.194885], 
                AbsoluteThickness[2]], 
               Directive[
                PointSize[0.011000000000000001`], 
                RGBColor[0.880722, 0.611041, 0.142051], 
                AbsoluteThickness[2]], 
               Directive[
                PointSize[0.011000000000000001`], 
                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, 13.}, {0, 1.4168098029330647`}}, 
            "Frame" -> {{False, False}, {False, False}}, 
            "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, 
            "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> 
            GoldenRatio^(-1), "DefaultStyle" -> {
              Directive[
               PointSize[0.011000000000000001`], 
               RGBColor[0.772079, 0.431554, 0.102387], 
               AbsoluteThickness[2]], 
              Directive[
               PointSize[0.011000000000000001`], 
               RGBColor[0.528488, 0.470624, 0.701351], 
               AbsoluteThickness[2]], 
              Directive[
               PointSize[0.011000000000000001`], 
               RGBColor[0.922526, 0.385626, 0.209179], 
               AbsoluteThickness[2]], 
              Directive[
               PointSize[0.011000000000000001`], 
               RGBColor[0.560181, 0.691569, 0.194885], 
               AbsoluteThickness[2]], 
              Directive[
               PointSize[0.011000000000000001`], 
               RGBColor[0.880722, 0.611041, 0.142051], 
               AbsoluteThickness[2]], 
              Directive[
               PointSize[0.011000000000000001`], 
               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.011000000000000001`], 
           RGBColor[0.368417, 0.506779, 0.709798], 
           AbsoluteThickness[2]], 
          
          Point[{{1., 1.}, {2., 1.}, {3., 1.}, {4., 1.}, {5., 1.}, {6., 1.}, {
           7., 1.}, {8., 1.}, {9., 0.9999999999999999}, {10., 1.}, {11., 
           1.}, {12., 1.}, {13., 1.}}]}, "Charting`Private`Tag#1"], 
        Annotation[{
          Directive[
           PointSize[0.011000000000000001`], 
           RGBColor[0.880722, 0.611041, 0.142051], 
           AbsoluteThickness[2]], 
          
          Point[{{1., 0.789902989696454}, {2., 0.7638907165799186}, {3., 
           0.7331951322871122}, {4., 0.6972618282174352}, {5., 
           0.6558928237833763}, {6., 0.6078302384601787}, {7., 
           0.5543851613414086}, {8., 0.4926024086743036}, {9., 
           0.42397908171877935`}, {10., 0.34949391168679655`}, {11., 
           0.27083399348115667`}, {12., 0.18995437642987137`}, {13., 
           0.11769895240147685`}}]}, "Charting`Private`Tag#2"], 
        Annotation[{
          Directive[
           PointSize[0.011000000000000001`], 
           RGBColor[0.560181, 0.691569, 0.194885], 
           AbsoluteThickness[2]], 
          
          Point[{{1., 0.5282338554865095}, {2., 0.4812683677521857}, {3., 
           0.434296285124783}, {4., 0.3883674538766083}, {5., 
           0.3436137825666062}, {6., 0.2988526713145107}, {7., 
           0.2587655220242032}, {8., 0.21747027153153323`}, {9., 
           0.17748874757937952`}, {10., 0.13956698171396192`}, {11., 
           0.10372233903350175`}, {12., 0.068019538235926}, {13., 
           0.031850087255315906`}}]}, "Charting`Private`Tag#3"], 
        Annotation[{
          Directive[
           PointSize[0.011000000000000001`], 
           RGBColor[0.922526, 0.385626, 0.209179], 
           AbsoluteThickness[2]], 
          
          Point[{{1., 0.9546494516852737}, {2., 0.9119594879405157}, {3., 
           0.8646197134324074}, {4., 0.8050324649317607}, {5., 
           0.7369459066835349}, {6., 0.6593271444703699}, {7., 
           0.5739892104112679}, {8., 0.478870664870732}, {9., 
           0.3787784909375594}, {10., 0.2791281599945223}, {11., 
           0.18845861626215296`}, {12., 0.11395147000000556`}, {13., 
           0.05435265931464429}}]}, "Charting`Private`Tag#4"], 
        Annotation[{
          Directive[
           PointSize[0.011000000000000001`], 
           RGBColor[0.528488, 0.470624, 0.701351], 
           AbsoluteThickness[2]], 
          
          Point[{{1., 1.3348061361757892`}, {2., 1.3393030958852186`}, {3., 
           1.3440884955930517`}, {4., 1.3491811142333785`}, {5., 
           1.3546242564623883`}, {6., 1.3604224787164385`}, {7., 
           1.3665825223788617`}, {8., 1.3732937512962373`}, {9., 
           1.3804390417896237`}, {10., 1.388135380962255}, {11., 
           1.396494467252808}, {12., 1.4058496871178867`}, {13., 
           1.4168098029330647`}}]}, "Charting`Private`Tag#5"], 
        Annotation[{
          Directive[
           PointSize[0.011000000000000001`], 
           RGBColor[0.772079, 0.431554, 0.102387], 
           AbsoluteThickness[2]], 
          
          Point[{{1., 1.1381266529629186`}, {2., 0.9630416642453422}, {3., 
           0.8702246862959975}, {4., 0.7996764317530857}, {5., 
           0.7357529934739848}, {6., 0.6713936459645095}, {7., 
           0.6054421316046554}, {8., 0.5333385105854244}, {9., 
           0.4559457659862841}, {10., 0.3738292826943506}, {11., 
           0.28843971558484627`}, {12., 0.20155236726156966`}, {13., 
           0.12456103024930713`}}]}, "Charting`Private`Tag#6"]}}, <|
      "HighlightElements" -> <|
        "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
       "LayoutOptions" -> <|
        "PanelPlotLayout" -> <||>, 
         "PlotRange" -> {{0, 13.}, {0, 1.4168098029330647`}}, 
         "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, 
         "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
         "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
         "DefaultStyle" -> {
           Directive[
            PointSize[0.011000000000000001`], 
            RGBColor[0.772079, 0.431554, 0.102387], 
            AbsoluteThickness[2]], 
           Directive[
            PointSize[0.011000000000000001`], 
            RGBColor[0.528488, 0.470624, 0.701351], 
            AbsoluteThickness[2]], 
           Directive[
            PointSize[0.011000000000000001`], 
            RGBColor[0.922526, 0.385626, 0.209179], 
            AbsoluteThickness[2]], 
           Directive[
            PointSize[0.011000000000000001`], 
            RGBColor[0.560181, 0.691569, 0.194885], 
            AbsoluteThickness[2]], 
           Directive[
            PointSize[0.011000000000000001`], 
            RGBColor[0.880722, 0.611041, 0.142051], 
            AbsoluteThickness[2]], 
           Directive[
            PointSize[0.011000000000000001`], 
            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], PointSize[
          0.011000000000000001`], AbsoluteThickness[2], 
          LineBox[{{1., 1.}, {2., 1.}, {3., 1.}, {4., 1.}, {5., 1.}, {6., 
           1.}, {7., 1.}, {8., 1.}, {9., 0.9999999999999999}, {10., 1.}, {11.,
            1.}, {12., 1.}, {13., 1.}}]},
         Annotation[#, "Charting`Private`Tag#1"]& ], 
        TagBox[
         {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
          0.011000000000000001`], AbsoluteThickness[2], 
          LineBox[{{1., 0.789902989696454}, {2., 0.7638907165799186}, {3., 
           0.7331951322871122}, {4., 0.6972618282174352}, {5., 
           0.6558928237833763}, {6., 0.6078302384601787}, {7., 
           0.5543851613414086}, {8., 0.4926024086743036}, {9., 
           0.42397908171877935`}, {10., 0.34949391168679655`}, {11., 
           0.27083399348115667`}, {12., 0.18995437642987137`}, {13., 
           0.11769895240147685`}}]},
         Annotation[#, "Charting`Private`Tag#2"]& ], 
        TagBox[
         {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
          0.011000000000000001`], AbsoluteThickness[2], 
          LineBox[{{1., 0.5282338554865095}, {2., 0.4812683677521857}, {3., 
           0.434296285124783}, {4., 0.3883674538766083}, {5., 
           0.3436137825666062}, {6., 0.2988526713145107}, {7., 
           0.2587655220242032}, {8., 0.21747027153153323`}, {9., 
           0.17748874757937952`}, {10., 0.13956698171396192`}, {11., 
           0.10372233903350175`}, {12., 0.068019538235926}, {13., 
           0.031850087255315906`}}]},
         Annotation[#, "Charting`Private`Tag#3"]& ], 
        TagBox[
         {RGBColor[0.922526, 0.385626, 0.209179], PointSize[
          0.011000000000000001`], AbsoluteThickness[2], 
          LineBox[{{1., 0.9546494516852737}, {2., 0.9119594879405157}, {3., 
           0.8646197134324074}, {4., 0.8050324649317607}, {5., 
           0.7369459066835349}, {6., 0.6593271444703699}, {7., 
           0.5739892104112679}, {8., 0.478870664870732}, {9., 
           0.3787784909375594}, {10., 0.2791281599945223}, {11., 
           0.18845861626215296`}, {12., 0.11395147000000556`}, {13., 
           0.05435265931464429}}]},
         Annotation[#, "Charting`Private`Tag#4"]& ], 
        TagBox[
         {RGBColor[0.528488, 0.470624, 0.701351], PointSize[
          0.011000000000000001`], AbsoluteThickness[2], 
          LineBox[{{1., 1.3348061361757892`}, {2., 1.3393030958852186`}, {3., 
           1.3440884955930517`}, {4., 1.3491811142333785`}, {5., 
           1.3546242564623883`}, {6., 1.3604224787164385`}, {7., 
           1.3665825223788617`}, {8., 1.3732937512962373`}, {9., 
           1.3804390417896237`}, {10., 1.388135380962255}, {11., 
           1.396494467252808}, {12., 1.4058496871178867`}, {13., 
           1.4168098029330647`}}]},
         Annotation[#, "Charting`Private`Tag#5"]& ], 
        TagBox[
         {RGBColor[0.772079, 0.431554, 0.102387], PointSize[
          0.011000000000000001`], AbsoluteThickness[2], 
          LineBox[{{1., 1.1381266529629186`}, {2., 0.9630416642453422}, {3., 
           0.8702246862959975}, {4., 0.7996764317530857}, {5., 
           0.7357529934739848}, {6., 0.6713936459645095}, {7., 
           0.6054421316046554}, {8., 0.5333385105854244}, {9., 
           0.4559457659862841}, {10., 0.3738292826943506}, {11., 
           0.28843971558484627`}, {12., 0.20155236726156966`}, {13., 
           0.12456103024930713`}}]},
         Annotation[#, "Charting`Private`Tag#6"]& ]},
       {"WolframDynamicHighlight", <|
        "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], 
      StyleBox[
       DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, 
         Slot["HighlightElements"], 
         Slot["LayoutOptions"], 
         Slot["Meta"], 
         Charting`HighlightActionFunction["DynamicHighlight", {{{}, {}, 
            Annotation[{
              Hue[0.67, 0.6, 0.6], 
              Directive[
               PointSize[0.011000000000000001`], 
               RGBColor[0.368417, 0.506779, 0.709798], 
               AbsoluteThickness[2]], 
              
              Line[{{1., 1.}, {2., 1.}, {3., 1.}, {4., 1.}, {5., 1.}, {6., 
               1.}, {7., 1.}, {8., 1.}, {9., 0.9999999999999999}, {10., 1.}, {
               11., 1.}, {12., 1.}, {13., 1.}}]}, "Charting`Private`Tag#1"], 
            Annotation[{
              Hue[0.9060679774997897, 0.6, 0.6], 
              Directive[
               PointSize[0.011000000000000001`], 
               RGBColor[0.880722, 0.611041, 0.142051], 
               AbsoluteThickness[2]], 
              
              Line[{{1., 0.789902989696454}, {2., 0.7638907165799186}, {3., 
               0.7331951322871122}, {4., 0.6972618282174352}, {5., 
               0.6558928237833763}, {6., 0.6078302384601787}, {7., 
               0.5543851613414086}, {8., 0.4926024086743036}, {9., 
               0.42397908171877935`}, {10., 0.34949391168679655`}, {11., 
               0.27083399348115667`}, {12., 0.18995437642987137`}, {13., 
               0.11769895240147685`}}]}, "Charting`Private`Tag#2"], 
            Annotation[{
              Hue[0.1421359549995791, 0.6, 0.6], 
              Directive[
               PointSize[0.011000000000000001`], 
               RGBColor[0.560181, 0.691569, 0.194885], 
               AbsoluteThickness[2]], 
              
              Line[{{1., 0.5282338554865095}, {2., 0.4812683677521857}, {3., 
               0.434296285124783}, {4., 0.3883674538766083}, {5., 
               0.3436137825666062}, {6., 0.2988526713145107}, {7., 
               0.2587655220242032}, {8., 0.21747027153153323`}, {9., 
               0.17748874757937952`}, {10., 0.13956698171396192`}, {11., 
               0.10372233903350175`}, {12., 0.068019538235926}, {13., 
               0.031850087255315906`}}]}, "Charting`Private`Tag#3"], 
            Annotation[{
              Hue[0.37820393249936934`, 0.6, 0.6], 
              Directive[
               PointSize[0.011000000000000001`], 
               RGBColor[0.922526, 0.385626, 0.209179], 
               AbsoluteThickness[2]], 
              
              Line[{{1., 0.9546494516852737}, {2., 0.9119594879405157}, {3., 
               0.8646197134324074}, {4., 0.8050324649317607}, {5., 
               0.7369459066835349}, {6., 0.6593271444703699}, {7., 
               0.5739892104112679}, {8., 0.478870664870732}, {9., 
               0.3787784909375594}, {10., 0.2791281599945223}, {11., 
               0.18845861626215296`}, {12., 0.11395147000000556`}, {13., 
               0.05435265931464429}}]}, "Charting`Private`Tag#4"], 
            Annotation[{
              Hue[0.6142719099991583, 0.6, 0.6], 
              Directive[
               PointSize[0.011000000000000001`], 
               RGBColor[0.528488, 0.470624, 0.701351], 
               AbsoluteThickness[2]], 
              
              Line[{{1., 1.3348061361757892`}, {2., 1.3393030958852186`}, {3.,
                1.3440884955930517`}, {4., 1.3491811142333785`}, {5., 
               1.3546242564623883`}, {6., 1.3604224787164385`}, {7., 
               1.3665825223788617`}, {8., 1.3732937512962373`}, {9., 
               1.3804390417896237`}, {10., 1.388135380962255}, {11., 
               1.396494467252808}, {12., 1.4058496871178867`}, {13., 
               1.4168098029330647`}}]}, "Charting`Private`Tag#5"], 
            Annotation[{
              Hue[0.8503398874989481, 0.6, 0.6], 
              Directive[
               PointSize[0.011000000000000001`], 
               RGBColor[0.772079, 0.431554, 0.102387], 
               AbsoluteThickness[2]], 
              
              Line[{{1., 1.1381266529629186`}, {2., 0.9630416642453422}, {3., 
               0.8702246862959975}, {4., 0.7996764317530857}, {5., 
               0.7357529934739848}, {6., 0.6713936459645095}, {7., 
               0.6054421316046554}, {8., 0.5333385105854244}, {9., 
               0.4559457659862841}, {10., 0.3738292826943506}, {11., 
               0.28843971558484627`}, {12., 0.20155236726156966`}, {13., 
               0.12456103024930713`}}]}, "Charting`Private`Tag#6"]}}, <|
          "HighlightElements" -> <|
            "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
           "LayoutOptions" -> <|
            "PanelPlotLayout" -> <||>, 
             "PlotRange" -> {{0, 13.}, {0, 1.4168098029330647`}}, 
             "Frame" -> {{False, False}, {False, False}}, 
             "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, 
             "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> 
             GoldenRatio^(-1), "DefaultStyle" -> {
               Directive[
                PointSize[0.011000000000000001`], 
                RGBColor[0.772079, 0.431554, 0.102387], 
                AbsoluteThickness[2]], 
               Directive[
                PointSize[0.011000000000000001`], 
                RGBColor[0.528488, 0.470624, 0.701351], 
                AbsoluteThickness[2]], 
               Directive[
                PointSize[0.011000000000000001`], 
                RGBColor[0.922526, 0.385626, 0.209179], 
                AbsoluteThickness[2]], 
               Directive[
                PointSize[0.011000000000000001`], 
                RGBColor[0.560181, 0.691569, 0.194885], 
                AbsoluteThickness[2]], 
               Directive[
                PointSize[0.011000000000000001`], 
                RGBColor[0.880722, 0.611041, 0.142051], 
                AbsoluteThickness[2]], 
               Directive[
                PointSize[0.011000000000000001`], 
                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, 13.}, {0, 1.4168098029330647`}}, 
            "Frame" -> {{False, False}, {False, False}}, 
            "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, 
            "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> 
            GoldenRatio^(-1), "DefaultStyle" -> {
              Directive[
               PointSize[0.011000000000000001`], 
               RGBColor[0.772079, 0.431554, 0.102387], 
               AbsoluteThickness[2]], 
              Directive[
               PointSize[0.011000000000000001`], 
               RGBColor[0.528488, 0.470624, 0.701351], 
               AbsoluteThickness[2]], 
              Directive[
               PointSize[0.011000000000000001`], 
               RGBColor[0.922526, 0.385626, 0.209179], 
               AbsoluteThickness[2]], 
              Directive[
               PointSize[0.011000000000000001`], 
               RGBColor[0.560181, 0.691569, 0.194885], 
               AbsoluteThickness[2]], 
              Directive[
               PointSize[0.011000000000000001`], 
               RGBColor[0.880722, 0.611041, 0.142051], 
               AbsoluteThickness[2]], 
              Directive[
               PointSize[0.011000000000000001`], 
               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[{
          Hue[0.67, 0.6, 0.6], 
          Directive[
           PointSize[0.011000000000000001`], 
           RGBColor[0.368417, 0.506779, 0.709798], 
           AbsoluteThickness[2]], 
          
          Line[{{1., 1.}, {2., 1.}, {3., 1.}, {4., 1.}, {5., 1.}, {6., 1.}, {
           7., 1.}, {8., 1.}, {9., 0.9999999999999999}, {10., 1.}, {11., 
           1.}, {12., 1.}, {13., 1.}}]}, "Charting`Private`Tag#1"], 
        Annotation[{
          Hue[0.9060679774997897, 0.6, 0.6], 
          Directive[
           PointSize[0.011000000000000001`], 
           RGBColor[0.880722, 0.611041, 0.142051], 
           AbsoluteThickness[2]], 
          
          Line[{{1., 0.789902989696454}, {2., 0.7638907165799186}, {3., 
           0.7331951322871122}, {4., 0.6972618282174352}, {5., 
           0.6558928237833763}, {6., 0.6078302384601787}, {7., 
           0.5543851613414086}, {8., 0.4926024086743036}, {9., 
           0.42397908171877935`}, {10., 0.34949391168679655`}, {11., 
           0.27083399348115667`}, {12., 0.18995437642987137`}, {13., 
           0.11769895240147685`}}]}, "Charting`Private`Tag#2"], 
        Annotation[{
          Hue[0.1421359549995791, 0.6, 0.6], 
          Directive[
           PointSize[0.011000000000000001`], 
           RGBColor[0.560181, 0.691569, 0.194885], 
           AbsoluteThickness[2]], 
          
          Line[{{1., 0.5282338554865095}, {2., 0.4812683677521857}, {3., 
           0.434296285124783}, {4., 0.3883674538766083}, {5., 
           0.3436137825666062}, {6., 0.2988526713145107}, {7., 
           0.2587655220242032}, {8., 0.21747027153153323`}, {9., 
           0.17748874757937952`}, {10., 0.13956698171396192`}, {11., 
           0.10372233903350175`}, {12., 0.068019538235926}, {13., 
           0.031850087255315906`}}]}, "Charting`Private`Tag#3"], 
        Annotation[{
          Hue[0.37820393249936934`, 0.6, 0.6], 
          Directive[
           PointSize[0.011000000000000001`], 
           RGBColor[0.922526, 0.385626, 0.209179], 
           AbsoluteThickness[2]], 
          
          Line[{{1., 0.9546494516852737}, {2., 0.9119594879405157}, {3., 
           0.8646197134324074}, {4., 0.8050324649317607}, {5., 
           0.7369459066835349}, {6., 0.6593271444703699}, {7., 
           0.5739892104112679}, {8., 0.478870664870732}, {9., 
           0.3787784909375594}, {10., 0.2791281599945223}, {11., 
           0.18845861626215296`}, {12., 0.11395147000000556`}, {13., 
           0.05435265931464429}}]}, "Charting`Private`Tag#4"], 
        Annotation[{
          Hue[0.6142719099991583, 0.6, 0.6], 
          Directive[
           PointSize[0.011000000000000001`], 
           RGBColor[0.528488, 0.470624, 0.701351], 
           AbsoluteThickness[2]], 
          
          Line[{{1., 1.3348061361757892`}, {2., 1.3393030958852186`}, {3., 
           1.3440884955930517`}, {4., 1.3491811142333785`}, {5., 
           1.3546242564623883`}, {6., 1.3604224787164385`}, {7., 
           1.3665825223788617`}, {8., 1.3732937512962373`}, {9., 
           1.3804390417896237`}, {10., 1.388135380962255}, {11., 
           1.396494467252808}, {12., 1.4058496871178867`}, {13., 
           1.4168098029330647`}}]}, "Charting`Private`Tag#5"], 
        Annotation[{
          Hue[0.8503398874989481, 0.6, 0.6], 
          Directive[
           PointSize[0.011000000000000001`], 
           RGBColor[0.772079, 0.431554, 0.102387], 
           AbsoluteThickness[2]], 
          
          Line[{{1., 1.1381266529629186`}, {2., 0.9630416642453422}, {3., 
           0.8702246862959975}, {4., 0.7996764317530857}, {5., 
           0.7357529934739848}, {6., 0.6713936459645095}, {7., 
           0.6054421316046554}, {8., 0.5333385105854244}, {9., 
           0.4559457659862841}, {10., 0.3738292826943506}, {11., 
           0.28843971558484627`}, {12., 0.20155236726156966`}, {13., 
           0.12456103024930713`}}]}, "Charting`Private`Tag#6"]}}, <|
      "HighlightElements" -> <|
        "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
       "LayoutOptions" -> <|
        "PanelPlotLayout" -> <||>, 
         "PlotRange" -> {{0, 13.}, {0, 1.4168098029330647`}}, 
         "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, 
         "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
         "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
         "DefaultStyle" -> {
           Directive[
            PointSize[0.011000000000000001`], 
            RGBColor[0.772079, 0.431554, 0.102387], 
            AbsoluteThickness[2]], 
           Directive[
            PointSize[0.011000000000000001`], 
            RGBColor[0.528488, 0.470624, 0.701351], 
            AbsoluteThickness[2]], 
           Directive[
            PointSize[0.011000000000000001`], 
            RGBColor[0.922526, 0.385626, 0.209179], 
            AbsoluteThickness[2]], 
           Directive[
            PointSize[0.011000000000000001`], 
            RGBColor[0.560181, 0.691569, 0.194885], 
            AbsoluteThickness[2]], 
           Directive[
            PointSize[0.011000000000000001`], 
            RGBColor[0.880722, 0.611041, 0.142051], 
            AbsoluteThickness[2]], 
           Directive[
            PointSize[0.011000000000000001`], 
            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->{
    FormBox[
     SubscriptBox["N", "f"], TraditionalForm], 
    FormBox["M", TraditionalForm]},
  AxesOrigin->{1, 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]],
  ImageSize->Large,
  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->All,
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.9267101196873417`*^9, 3.9267101352600393`*^9}, {
   3.92671019792238*^9, 3.926710211106842*^9}, 3.926710258260124*^9, {
   3.926710302846214*^9, 3.926710355530106*^9}, {3.926710455731172*^9, 
   3.926710530568459*^9}, 3.926712596158029*^9, 3.926712714942616*^9, 
   3.926712994987606*^9, 3.926714396163084*^9, 3.9267144809064693`*^9, 
   3.926715212883479*^9, 3.926715776133344*^9, 3.926716138809901*^9, 
   3.926716574491962*^9, 3.926716845074229*^9, 3.926717259474818*^9, 
   3.92671758593633*^9, 3.9267178866991053`*^9, 3.926717994117536*^9, 
   3.926718276753333*^9, 3.926718339436063*^9, {3.926718380237237*^9, 
   3.926718383759789*^9}, 3.926718671437642*^9, 3.926718957245085*^9, 
   3.92671903751838*^9, 3.92671935789906*^9, 3.926719683123138*^9, 
   3.926719880211618*^9, {3.926719985693982*^9, 3.926719993694104*^9}, 
   3.927633698176474*^9, 3.927637575392486*^9, 3.927915299935828*^9, 
   3.92792729803917*^9, 3.927928578777727*^9, 3.927928865162747*^9, 
   3.927929256242844*^9, 3.927929509745229*^9, 3.927929710064159*^9, 
   3.930180586678774*^9, {3.930180628640373*^9, 3.930180662791879*^9}, {
   3.930180710983475*^9, 3.930180740920796*^9}, 3.930180778097412*^9, 
   3.930180865538371*^9, {3.930181089034009*^9, 3.930181143851367*^9}, 
   3.9301815853832197`*^9, 3.9301821033067303`*^9, 3.930182610361335*^9, 
   3.930182690350729*^9, 3.930183132554491*^9, 3.930183646806699*^9, 
   3.930184528772558*^9, 3.930184994806389*^9, 3.9301855579207497`*^9, 
   3.930186124368118*^9, 3.93018680532868*^9, 3.930186908674964*^9, 
   3.930188135120376*^9, 3.930188932688302*^9, {3.9301891040759287`*^9, 
   3.9301891262140627`*^9}, 3.930190783719281*^9, {3.930190845850335*^9, 
   3.930190861360711*^9}, 3.930192606771441*^9, {3.930192650126986*^9, 
   3.930192673595227*^9}, {3.930209210308338*^9, 3.9302092183935013`*^9}, 
   3.9302093031617937`*^9, 3.9302095676396227`*^9, 3.930210513865418*^9, 
   3.93021063021517*^9, 3.930211354095295*^9, 3.930211646648139*^9, 
   3.930212115059455*^9, 3.930214546275433*^9, 3.930214862648363*^9, 
   3.93021538315182*^9, 3.930216303704238*^9, 3.930216582247992*^9, 
   3.930216862268567*^9, 3.93021728281378*^9, 3.930217661325732*^9, 
   3.930218064486339*^9, 3.930218740682002*^9, 3.930220063565234*^9, 
   3.930222447644682*^9, 3.930303203437519*^9, {3.930305339011541*^9, 
   3.930305356166273*^9}, 3.930305459823167*^9, {3.93030585594226*^9, 
   3.930305909391428*^9}, 3.9303068253839493`*^9, {3.93030688495107*^9, 
   3.930306900707052*^9}, 3.930309480250465*^9, 3.9303099620001707`*^9, 
   3.930310809370805*^9, 3.930310862774084*^9, 3.930311677851366*^9, {
   3.930311779120221*^9, 3.930311798668467*^9}, 3.930312430619123*^9, {
   3.930312468350535*^9, 3.930312492513208*^9}, {3.930313607106124*^9, 
   3.930313674319888*^9}, 3.93031428897493*^9, 3.9303144245754623`*^9, 
   3.930589308382652*^9, 3.930589743795001*^9, 3.931221439752268*^9, 
   3.931221885406118*^9, 3.931222193917526*^9, 3.931222367184135*^9, 
   3.931222666109634*^9, 3.931223181122937*^9, 3.931223624397688*^9, 
   3.931224030777342*^9, 3.9312246147393713`*^9, 3.931224683363295*^9, 
   3.936688539412034*^9, 3.936694352520026*^9, 3.936695016091084*^9, 
   3.9366963527441187`*^9, 3.936696643679844*^9, 3.936696895201423*^9, 
   3.936697157020129*^9, 3.936697481572726*^9, 3.936698253994277*^9, 
   3.936698583632967*^9, 3.936699476791731*^9, 3.936700204709671*^9, 
   3.9367003903345423`*^9, 3.9415414264568663`*^9, 3.9573386998942137`*^9},
 CellLabel->"Out[50]=",ExpressionUUID->"47ae0793-c57d-46c4-84c5-54ca26e93c16"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListLogPlot", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"nf", "[", 
           RowBox[{"[", "i", "]"}], "]"}], ",", 
          FractionBox[
           RowBox[{"f\[Rho]s", "[", 
            RowBox[{"[", "i", "]"}], "]"}], 
           RowBox[{"m\[Rho]s", "[", 
            RowBox[{"[", "i", "]"}], "]"}]]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{
           RowBox[{"Dimensions", "[", "nf", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", "1"}], "}"}]}], "]"}], ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"nf", "[", 
           RowBox[{"[", "i", "]"}], "]"}], ",", 
          FractionBox[
           RowBox[{"f\[Rho]f", "[", 
            RowBox[{"[", "i", "]"}], "]"}], 
           RowBox[{"m\[Rho]s", "[", 
            RowBox[{"[", "i", "]"}], "]"}]]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{
           RowBox[{"Dimensions", "[", "nf", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", "1"}], "}"}]}], "]"}], ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"nf", "[", 
           RowBox[{"[", "i", "]"}], "]"}], ",", 
          FractionBox[
           RowBox[{"f\[Sigma]s", "[", 
            RowBox[{"[", "i", "]"}], "]"}], 
           RowBox[{"m\[Rho]s", "[", 
            RowBox[{"[", "i", "]"}], "]"}]]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{
           RowBox[{"Dimensions", "[", "nf", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", "1"}], "}"}]}], "]"}], ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"nf", "[", 
           RowBox[{"[", "i", "]"}], "]"}], ",", 
          FractionBox[
           RowBox[{"f\[Sigma]f", "[", 
            RowBox[{"[", "i", "]"}], "]"}], 
           RowBox[{"m\[Rho]s", "[", 
            RowBox[{"[", "i", "]"}], "]"}]]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{
           RowBox[{"Dimensions", "[", "nf", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", "1"}], "}"}]}], "]"}], ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"nf", "[", 
           RowBox[{"[", "i", "]"}], "]"}], ",", 
          FractionBox[
           RowBox[{"fas", "[", 
            RowBox[{"[", "i", "]"}], "]"}], 
           RowBox[{"m\[Rho]s", "[", 
            RowBox[{"[", "i", "]"}], "]"}]]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{
           RowBox[{"Dimensions", "[", "nf", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", "1"}], "}"}]}], "]"}], ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"nf", "[", 
           RowBox[{"[", "i", "]"}], "]"}], ",", 
          FractionBox[
           RowBox[{"faf", "[", 
            RowBox[{"[", "i", "]"}], "]"}], 
           RowBox[{"m\[Rho]s", "[", 
            RowBox[{"[", "i", "]"}], "]"}]]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{
           RowBox[{"Dimensions", "[", "nf", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", "1"}], "}"}]}], "]"}], ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"nf", "[", 
           RowBox[{"[", "i", "]"}], "]"}], ",", 
          FractionBox[
           RowBox[{"f\[Pi]s", "[", 
            RowBox[{"[", "i", "]"}], "]"}], 
           RowBox[{"m\[Rho]s", "[", 
            RowBox[{"[", "i", "]"}], "]"}]]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{
           RowBox[{"Dimensions", "[", "nf", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", "1"}], "}"}]}], "]"}], ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"nf", "[", 
           RowBox[{"[", "i", "]"}], "]"}], ",", 
          FractionBox[
           RowBox[{"f\[Pi]f", "[", 
            RowBox[{"[", "i", "]"}], "]"}], 
           RowBox[{"m\[Rho]s", "[", 
            RowBox[{"[", "i", "]"}], "]"}]]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{
           RowBox[{"Dimensions", "[", "nf", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", "1"}], "}"}]}], "]"}]}], 
     "}"}], "]"}], ",", 
   RowBox[{"ListLogPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"nf", "[", 
            RowBox[{"[", "i", "]"}], "]"}], ",", 
           FractionBox[
            RowBox[{"f\[Rho]s", "[", 
             RowBox[{"[", "i", "]"}], "]"}], 
            RowBox[{"m\[Rho]s", "[", 
             RowBox[{"[", "i", "]"}], "]"}]]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "nf", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], ",", "1"}], "}"}]}], "]"}], ",", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"nf", "[", 
            RowBox[{"[", "i", "]"}], "]"}], ",", 
           FractionBox[
            RowBox[{"f\[Rho]f", "[", 
             RowBox[{"[", "i", "]"}], "]"}], 
            RowBox[{"m\[Rho]s", "[", 
             RowBox[{"[", "i", "]"}], "]"}]]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "nf", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], ",", "1"}], "}"}]}], "]"}], ",", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"nf", "[", 
            RowBox[{"[", "i", "]"}], "]"}], ",", 
           FractionBox[
            RowBox[{"f\[Sigma]s", "[", 
             RowBox[{"[", "i", "]"}], "]"}], 
            RowBox[{"m\[Rho]s", "[", 
             RowBox[{"[", "i", "]"}], "]"}]]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "nf", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], ",", "1"}], "}"}]}], "]"}], ",", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"nf", "[", 
            RowBox[{"[", "i", "]"}], "]"}], ",", 
           FractionBox[
            RowBox[{"f\[Sigma]f", "[", 
             RowBox[{"[", "i", "]"}], "]"}], 
            RowBox[{"m\[Rho]s", "[", 
             RowBox[{"[", "i", "]"}], "]"}]]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "nf", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], ",", "1"}], "}"}]}], "]"}], ",", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"nf", "[", 
            RowBox[{"[", "i", "]"}], "]"}], ",", 
           FractionBox[
            RowBox[{"fas", "[", 
             RowBox[{"[", "i", "]"}], "]"}], 
            RowBox[{"m\[Rho]s", "[", 
             RowBox[{"[", "i", "]"}], "]"}]]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "nf", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], ",", "1"}], "}"}]}], "]"}], ",", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"nf", "[", 
            RowBox[{"[", "i", "]"}], "]"}], ",", 
           FractionBox[
            RowBox[{"faf", "[", 
             RowBox[{"[", "i", "]"}], "]"}], 
            RowBox[{"m\[Rho]s", "[", 
             RowBox[{"[", "i", "]"}], "]"}]]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "nf", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], ",", "1"}], "}"}]}], "]"}], ",", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"nf", "[", 
            RowBox[{"[", "i", "]"}], "]"}], ",", 
           FractionBox[
            RowBox[{"f\[Pi]s", "[", 
             RowBox[{"[", "i", "]"}], "]"}], 
            RowBox[{"m\[Rho]s", "[", 
             RowBox[{"[", "i", "]"}], "]"}]]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "nf", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], ",", "1"}], "}"}]}], "]"}], ",", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"nf", "[", 
            RowBox[{"[", "i", "]"}], "]"}], ",", 
           FractionBox[
            RowBox[{"f\[Pi]f", "[", 
             RowBox[{"[", "i", "]"}], "]"}], 
            RowBox[{"m\[Rho]s", "[", 
             RowBox[{"[", "i", "]"}], "]"}]]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "nf", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], ",", "1"}], "}"}]}], "]"}]}], 
      "}"}], ",", 
     RowBox[{"Joined", "->", "True"}]}], "]"}], ",", 
   RowBox[{"AxesOrigin", "->", 
    RowBox[{"{", 
     RowBox[{"1", ",", 
      RowBox[{"-", "5"}]}], "}"}]}], ",", 
   RowBox[{"AxesLabel", "->", 
    RowBox[{"{", 
     RowBox[{
      SubscriptBox["N", "f"], ",", "F"}], "}"}]}], ",", 
   RowBox[{"PlotRange", "->", "All"}], ",", 
   RowBox[{"ImageSize", "->", "Large"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"blue", " ", "is", " ", "the", " ", "\[Rho]", " ", "symmetric"}], 
    ",", " ", 
    RowBox[{
    "ochre", " ", "is", " ", "the", " ", "\[Rho]", " ", "fundamental"}], ",", 
    " ", 
    RowBox[{
    "green", " ", "is", " ", "the", " ", "\[Sigma]", " ", "symmetric"}], ",", 
    " ", 
    RowBox[{
    "orange", " ", "is", " ", "the", " ", "\[Sigma]", " ", "fundamental"}], 
    ",", " ", 
    RowBox[{"purple", " ", "is", " ", "the", " ", "axial", " ", "symmetric"}],
     ",", " ", 
    RowBox[{
    "brown", " ", "is", " ", "the", " ", "axial", " ", "fundamental"}], ",", 
    " ", 
    RowBox[{"cyan", " ", "is", " ", "the", " ", "\[Pi]", " ", "symmetric"}], 
    ",", " ", 
    RowBox[{
    "yellow", " ", "is", " ", "the", " ", "\[Pi]", " ", "fundamental"}]}], 
   "*)"}]}]}], "Input",
 CellChangeTimes->{{3.926717904832285*^9, 3.9267179215187798`*^9}, 
   3.926717978149087*^9, {3.926718303412833*^9, 3.926718316386332*^9}, 
   3.926718387802604*^9, 3.926719721462424*^9, {3.927633762671061*^9, 
   3.927633783461918*^9}, {3.92763382279967*^9, 3.927633829442983*^9}, {
   3.927633871520922*^9, 3.927633903502107*^9}, {3.927634116277258*^9, 
   3.92763411908496*^9}, {3.927635188781955*^9, 3.927635311754353*^9}, {
   3.927635357018056*^9, 3.927635371082987*^9}, {3.927635730685708*^9, 
   3.927635754480299*^9}, {3.927637604434494*^9, 3.927637606867573*^9}, {
   3.927637941661026*^9, 3.92763795607227*^9}, {3.927638063540655*^9, 
   3.927638100005622*^9}, {3.927638930837096*^9, 3.927638959872998*^9}, 
   3.927638990070314*^9, {3.927639044420554*^9, 3.927639078035717*^9}, {
   3.927639197359433*^9, 3.9276392095016603`*^9}, {3.927639247992432*^9, 
   3.927639380001975*^9}, 3.9279153152386837`*^9, {3.927929739301625*^9, 
   3.927929740018545*^9}, {3.927929780160314*^9, 3.92792978087507*^9}, {
   3.930215419150986*^9, 3.930215419294017*^9}, {3.930311689880443*^9, 
   3.930311740883923*^9}, {3.930314431583416*^9, 3.930314431969907*^9}, {
   3.931224705966243*^9, 3.931224706231664*^9}},
 CellLabel->"In[51]:=",ExpressionUUID->"ee645126-d8c6-4ef3-9b63-a9f1eda00702"],

Cell[BoxData[
 GraphicsBox[{{{}, 
    InterpretationBox[{
      TagBox[{
        TagBox[
         {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
          0.009166666666666668], AbsoluteThickness[2], 
          PointBox[{{1., -0.8287664617514933}, {2., -0.829074255813386}, {
           3., -0.8294465003989847}, {4., -0.8298949778088}, {
           5., -0.8304373710632513}, {6., -0.8310814731442491}, {
           7., -0.8318592596690342}, {8., -0.8328266681640414}, {
           9., -0.8339953779399563}, {10., -0.835355111597793}, {
           11., -0.8370257458572126}, {12., -0.8391083503330322}, {
           13., -0.8415080661873091}}]},
         Annotation[#, "Charting`Private`Tag#1"]& ], 
        TagBox[
         {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
          0.009166666666666668], AbsoluteThickness[2], 
          PointBox[{{1., -1.2115681010608692`}, {2., -1.0716735267684192`}, {
           3., -1.0113107224937554`}, {4., -0.9897320517303095}, {
           5., -0.9952839610238878}, {6., -1.0260920561342868`}, {
           7., -1.0799999996144656`}, {8., -1.1652324340812317`}, {
           9., -1.2865726599328167`}, {10., -1.4542468484449929`}, {
           11., -1.6865413709077957`}, {12., -2.0206318322837817`}, {
           13., -2.480830954900741}}]},
         Annotation[#, "Charting`Private`Tag#2"]& ], 
        TagBox[
         {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
          0.009166666666666668], AbsoluteThickness[2], 
          PointBox[{{1., 0.3411215701864593}, {2., 0.4542901420252691}, {3., 
           0.5863074286741194}, {4., 0.7392322805975433}, {5., 
           0.9172435582580608}, {6., 1.1304083048508382`}, {7., 
           1.3736904733848834`}, {8., 1.5747097349083967`}, {9., 
           1.7288450724498876`}, {10., 1.79012901782219}, {11., 
           1.7414463571107512`}, {12., 1.6274585687416427`}, {13., 
           1.5016410028035483`}}]},
         Annotation[#, "Charting`Private`Tag#3"]& ], 
        TagBox[
         {RGBColor[0.922526, 0.385626, 0.209179], PointSize[
          0.009166666666666668], AbsoluteThickness[2], 
          PointBox[{{1., -0.5080093607460824}, {2., -0.3292486786313972}, {
           3., -0.22266597616534803`}, {4., -0.15243270908684553`}, {
           5., -0.09816913406182959}, {6., -0.09637228728904013}, {
           7., -0.11051469154181744`}, {8., -0.156472627141488}, {
           9., -0.239224896692244}, {10., -0.3650497323613248}, {
           11., -0.5443121501507346}, {12., -0.814393788895469}, {
           13., -1.1386566547239636`}}]},
         Annotation[#, "Charting`Private`Tag#4"]& ], 
        TagBox[
         {RGBColor[0.528488, 0.470624, 0.701351], PointSize[
          0.009166666666666668], AbsoluteThickness[2], 
          PointBox[{{1., -0.8174254075965718}, {2., -0.8189857554107663}, {
           3., -0.8209427096152933}, {4., -0.8233871653587254}, {
           5., -0.8264524739550115}, {6., -0.8302286287718125}, {
           7., -0.8350171205699312}, {8., -0.8409874977204103}, {
           9., -0.8484679119254251}, {10., -0.8579197688815997}, {
           11., -0.8699559051280105}, {12., -0.8857046597821006}, {
           13., -0.9075452353298438}}]},
         Annotation[#, "Charting`Private`Tag#5"]& ], 
        TagBox[
         {RGBColor[0.772079, 0.431554, 0.102387], PointSize[
          0.009166666666666668], AbsoluteThickness[2], 
          PointBox[{{1., -1.1182041652504267`}, {2., -1.0591091145355225`}, {
           3., -1.0178220689639483`}, {4., -1.002115956359868}, {
           5., -1.0096154921960405`}, {6., -1.0409796722806517`}, {
           7., -1.094897072729479}, {8., -1.1800438041347425`}, {
           9., -1.3010996922066227`}, {10., -1.4686643246679518`}, {
           11., -1.7008148125554785`}, {12., -2.0348747905334768`}, {
           13., -2.4955690040511196`}}]},
         Annotation[#, "Charting`Private`Tag#6"]& ], 
        TagBox[
         {RGBColor[0.363898, 0.618501, 0.782349], PointSize[
          0.009166666666666668], AbsoluteThickness[2], 
          PointBox[{{1., -2.500321651397799}, {2., -2.487579001586519}, {
           3., -2.473471518836729}, {4., -2.4577740161799646`}, {
           5., -2.4401757025727884`}, {6., -2.420357944463456}, {
           7., -2.397729151483172}, {8., -2.371640714378509}, {
           9., -2.341558440165342}, {10., -2.3060117795183155`}, {
           11., -2.2627462920149686`}, {12., -2.207291609824917}, {
           13., -2.1310510421321402`}}]},
         Annotation[#, "Charting`Private`Tag#7"]& ], 
        TagBox[
         {RGBColor[1, 0.75, 0], PointSize[0.009166666666666668], 
          AbsoluteThickness[2], 
          PointBox[{{1., -3.082664363610308}, {2., -2.8692120113662596`}, {
           3., -2.7894894140924325`}, {4., -2.764974036550838}, {
           5., -2.7733224984583766`}, {6., -2.8085239768034813`}, {
           7., -2.867028748848531}, {8., -2.95586169141441}, {
           9., -3.0793857544082495`}, {10., -3.247819262254025}, {
           11., -3.4775530844865545`}, {12., -3.8083404914772845`}, {
           13., -4.256623653106446}}]},
         Annotation[#, "Charting`Private`Tag#8"]& ]},
       {"WolframDynamicHighlight", <|
        "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], 
      StyleBox[
       DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, 
         Slot["HighlightElements"], 
         Slot["LayoutOptions"], 
         Slot["Meta"], 
         Charting`HighlightActionFunction["DynamicHighlight", {{
            Annotation[{
              Directive[
               PointSize[0.009166666666666668], 
               RGBColor[0.368417, 0.506779, 0.709798], 
               AbsoluteThickness[2]], 
              
              Point[{{1., -0.8287664617514933}, {2., -0.829074255813386}, {
               3., -0.8294465003989847}, {4., -0.8298949778088}, {
               5., -0.8304373710632513}, {6., -0.8310814731442491}, {
               7., -0.8318592596690342}, {8., -0.8328266681640414}, {
               9., -0.8339953779399563}, {10., -0.835355111597793}, {
               11., -0.8370257458572126}, {12., -0.8391083503330322}, {
               13., -0.8415080661873091}}]}, "Charting`Private`Tag#1"], 
            Annotation[{
              Directive[
               PointSize[0.009166666666666668], 
               RGBColor[0.880722, 0.611041, 0.142051], 
               AbsoluteThickness[2]], 
              
              Point[{{1., -1.2115681010608692`}, {2., -1.0716735267684192`}, {
               3., -1.0113107224937554`}, {4., -0.9897320517303095}, {
               5., -0.9952839610238878}, {6., -1.0260920561342868`}, {
               7., -1.0799999996144656`}, {8., -1.1652324340812317`}, {
               9., -1.2865726599328167`}, {10., -1.4542468484449929`}, {
               11., -1.6865413709077957`}, {12., -2.0206318322837817`}, {
               13., -2.480830954900741}}]}, "Charting`Private`Tag#2"], 
            Annotation[{
              Directive[
               PointSize[0.009166666666666668], 
               RGBColor[0.560181, 0.691569, 0.194885], 
               AbsoluteThickness[2]], 
              
              Point[{{1., 0.3411215701864593}, {2., 0.4542901420252691}, {3., 
               0.5863074286741194}, {4., 0.7392322805975433}, {5., 
               0.9172435582580608}, {6., 1.1304083048508382`}, {7., 
               1.3736904733848834`}, {8., 1.5747097349083967`}, {9., 
               1.7288450724498876`}, {10., 1.79012901782219}, {11., 
               1.7414463571107512`}, {12., 1.6274585687416427`}, {13., 
               1.5016410028035483`}}]}, "Charting`Private`Tag#3"], 
            Annotation[{
              Directive[
               PointSize[0.009166666666666668], 
               RGBColor[0.922526, 0.385626, 0.209179], 
               AbsoluteThickness[2]], 
              
              Point[{{1., -0.5080093607460824}, {2., -0.3292486786313972}, {
               3., -0.22266597616534803`}, {4., -0.15243270908684553`}, {
               5., -0.09816913406182959}, {6., -0.09637228728904013}, {
               7., -0.11051469154181744`}, {8., -0.156472627141488}, {
               9., -0.239224896692244}, {10., -0.3650497323613248}, {
               11., -0.5443121501507346}, {12., -0.814393788895469}, {
               13., -1.1386566547239636`}}]}, "Charting`Private`Tag#4"], 
            Annotation[{
              Directive[
               PointSize[0.009166666666666668], 
               RGBColor[0.528488, 0.470624, 0.701351], 
               AbsoluteThickness[2]], 
              
              Point[{{1., -0.8174254075965718}, {2., -0.8189857554107663}, {
               3., -0.8209427096152933}, {4., -0.8233871653587254}, {
               5., -0.8264524739550115}, {6., -0.8302286287718125}, {
               7., -0.8350171205699312}, {8., -0.8409874977204103}, {
               9., -0.8484679119254251}, {10., -0.8579197688815997}, {
               11., -0.8699559051280105}, {12., -0.8857046597821006}, {
               13., -0.9075452353298438}}]}, "Charting`Private`Tag#5"], 
            Annotation[{
              Directive[
               PointSize[0.009166666666666668], 
               RGBColor[0.772079, 0.431554, 0.102387], 
               AbsoluteThickness[2]], 
              
              Point[{{1., -1.1182041652504267`}, {2., -1.0591091145355225`}, {
               3., -1.0178220689639483`}, {4., -1.002115956359868}, {
               5., -1.0096154921960405`}, {6., -1.0409796722806517`}, {
               7., -1.094897072729479}, {8., -1.1800438041347425`}, {
               9., -1.3010996922066227`}, {10., -1.4686643246679518`}, {
               11., -1.7008148125554785`}, {12., -2.0348747905334768`}, {
               13., -2.4955690040511196`}}]}, "Charting`Private`Tag#6"], 
            Annotation[{
              Directive[
               PointSize[0.009166666666666668], 
               RGBColor[0.363898, 0.618501, 0.782349], 
               AbsoluteThickness[2]], 
              
              Point[{{1., -2.500321651397799}, {2., -2.487579001586519}, {
               3., -2.473471518836729}, {4., -2.4577740161799646`}, {
               5., -2.4401757025727884`}, {6., -2.420357944463456}, {
               7., -2.397729151483172}, {8., -2.371640714378509}, {
               9., -2.341558440165342}, {10., -2.3060117795183155`}, {
               11., -2.2627462920149686`}, {12., -2.207291609824917}, {
               13., -2.1310510421321402`}}]}, "Charting`Private`Tag#7"], 
            Annotation[{
              Directive[
               PointSize[0.009166666666666668], 
               RGBColor[1, 0.75, 0], 
               AbsoluteThickness[2]], 
              
              Point[{{1., -3.082664363610308}, {2., -2.8692120113662596`}, {
               3., -2.7894894140924325`}, {4., -2.764974036550838}, {
               5., -2.7733224984583766`}, {6., -2.8085239768034813`}, {
               7., -2.867028748848531}, {8., -2.95586169141441}, {
               9., -3.0793857544082495`}, {10., -3.247819262254025}, {
               11., -3.4775530844865545`}, {12., -3.8083404914772845`}, {
               13., -4.256623653106446}}]}, "Charting`Private`Tag#8"]}}, <|
          "HighlightElements" -> <|
            "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
           "LayoutOptions" -> <|
            "PanelPlotLayout" -> <||>, 
             "PlotRange" -> {{0, 13.}, {-4.729816365108617, 
               1.79012901782219}}, 
             "Frame" -> {{False, False}, {False, False}}, 
             "AxesOrigin" -> {0, -4.729816365108617}, 
             "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
             "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
             "DefaultStyle" -> {
               Directive[
                PointSize[0.009166666666666668], 
                RGBColor[1, 0.75, 0], 
                AbsoluteThickness[2]], 
               Directive[
                PointSize[0.009166666666666668], 
                RGBColor[0.363898, 0.618501, 0.782349], 
                AbsoluteThickness[2]], 
               Directive[
                PointSize[0.009166666666666668], 
                RGBColor[0.772079, 0.431554, 0.102387], 
                AbsoluteThickness[2]], 
               Directive[
                PointSize[0.009166666666666668], 
                RGBColor[0.528488, 0.470624, 0.701351], 
                AbsoluteThickness[2]], 
               Directive[
                PointSize[0.009166666666666668], 
                RGBColor[0.922526, 0.385626, 0.209179], 
                AbsoluteThickness[2]], 
               Directive[
                PointSize[0.009166666666666668], 
                RGBColor[0.560181, 0.691569, 0.194885], 
                AbsoluteThickness[2]], 
               Directive[
                PointSize[0.009166666666666668], 
                RGBColor[0.880722, 0.611041, 0.142051], 
                AbsoluteThickness[2]], 
               Directive[
                PointSize[0.009166666666666668], 
                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, 13.}, {-4.729816365108617, 1.79012901782219}},
             "Frame" -> {{False, False}, {False, False}}, 
            "AxesOrigin" -> {0, -4.729816365108617}, 
            "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
            "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
            "DefaultStyle" -> {
              Directive[
               PointSize[0.009166666666666668], 
               RGBColor[1, 0.75, 0], 
               AbsoluteThickness[2]], 
              Directive[
               PointSize[0.009166666666666668], 
               RGBColor[0.363898, 0.618501, 0.782349], 
               AbsoluteThickness[2]], 
              Directive[
               PointSize[0.009166666666666668], 
               RGBColor[0.772079, 0.431554, 0.102387], 
               AbsoluteThickness[2]], 
              Directive[
               PointSize[0.009166666666666668], 
               RGBColor[0.528488, 0.470624, 0.701351], 
               AbsoluteThickness[2]], 
              Directive[
               PointSize[0.009166666666666668], 
               RGBColor[0.922526, 0.385626, 0.209179], 
               AbsoluteThickness[2]], 
              Directive[
               PointSize[0.009166666666666668], 
               RGBColor[0.560181, 0.691569, 0.194885], 
               AbsoluteThickness[2]], 
              Directive[
               PointSize[0.009166666666666668], 
               RGBColor[0.880722, 0.611041, 0.142051], 
               AbsoluteThickness[2]], 
              Directive[
               PointSize[0.009166666666666668], 
               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.009166666666666668], 
           RGBColor[0.368417, 0.506779, 0.709798], 
           AbsoluteThickness[2]], 
          
          Point[{{1., -0.8287664617514933}, {2., -0.829074255813386}, {
           3., -0.8294465003989847}, {4., -0.8298949778088}, {
           5., -0.8304373710632513}, {6., -0.8310814731442491}, {
           7., -0.8318592596690342}, {8., -0.8328266681640414}, {
           9., -0.8339953779399563}, {10., -0.835355111597793}, {
           11., -0.8370257458572126}, {12., -0.8391083503330322}, {
           13., -0.8415080661873091}}]}, "Charting`Private`Tag#1"], 
        Annotation[{
          Directive[
           PointSize[0.009166666666666668], 
           RGBColor[0.880722, 0.611041, 0.142051], 
           AbsoluteThickness[2]], 
          
          Point[{{1., -1.2115681010608692`}, {2., -1.0716735267684192`}, {
           3., -1.0113107224937554`}, {4., -0.9897320517303095}, {
           5., -0.9952839610238878}, {6., -1.0260920561342868`}, {
           7., -1.0799999996144656`}, {8., -1.1652324340812317`}, {
           9., -1.2865726599328167`}, {10., -1.4542468484449929`}, {
           11., -1.6865413709077957`}, {12., -2.0206318322837817`}, {
           13., -2.480830954900741}}]}, "Charting`Private`Tag#2"], 
        Annotation[{
          Directive[
           PointSize[0.009166666666666668], 
           RGBColor[0.560181, 0.691569, 0.194885], 
           AbsoluteThickness[2]], 
          
          Point[{{1., 0.3411215701864593}, {2., 0.4542901420252691}, {3., 
           0.5863074286741194}, {4., 0.7392322805975433}, {5., 
           0.9172435582580608}, {6., 1.1304083048508382`}, {7., 
           1.3736904733848834`}, {8., 1.5747097349083967`}, {9., 
           1.7288450724498876`}, {10., 1.79012901782219}, {11., 
           1.7414463571107512`}, {12., 1.6274585687416427`}, {13., 
           1.5016410028035483`}}]}, "Charting`Private`Tag#3"], 
        Annotation[{
          Directive[
           PointSize[0.009166666666666668], 
           RGBColor[0.922526, 0.385626, 0.209179], 
           AbsoluteThickness[2]], 
          
          Point[{{1., -0.5080093607460824}, {2., -0.3292486786313972}, {
           3., -0.22266597616534803`}, {4., -0.15243270908684553`}, {
           5., -0.09816913406182959}, {6., -0.09637228728904013}, {
           7., -0.11051469154181744`}, {8., -0.156472627141488}, {
           9., -0.239224896692244}, {10., -0.3650497323613248}, {
           11., -0.5443121501507346}, {12., -0.814393788895469}, {
           13., -1.1386566547239636`}}]}, "Charting`Private`Tag#4"], 
        Annotation[{
          Directive[
           PointSize[0.009166666666666668], 
           RGBColor[0.528488, 0.470624, 0.701351], 
           AbsoluteThickness[2]], 
          
          Point[{{1., -0.8174254075965718}, {2., -0.8189857554107663}, {
           3., -0.8209427096152933}, {4., -0.8233871653587254}, {
           5., -0.8264524739550115}, {6., -0.8302286287718125}, {
           7., -0.8350171205699312}, {8., -0.8409874977204103}, {
           9., -0.8484679119254251}, {10., -0.8579197688815997}, {
           11., -0.8699559051280105}, {12., -0.8857046597821006}, {
           13., -0.9075452353298438}}]}, "Charting`Private`Tag#5"], 
        Annotation[{
          Directive[
           PointSize[0.009166666666666668], 
           RGBColor[0.772079, 0.431554, 0.102387], 
           AbsoluteThickness[2]], 
          
          Point[{{1., -1.1182041652504267`}, {2., -1.0591091145355225`}, {
           3., -1.0178220689639483`}, {4., -1.002115956359868}, {
           5., -1.0096154921960405`}, {6., -1.0409796722806517`}, {
           7., -1.094897072729479}, {8., -1.1800438041347425`}, {
           9., -1.3010996922066227`}, {10., -1.4686643246679518`}, {
           11., -1.7008148125554785`}, {12., -2.0348747905334768`}, {
           13., -2.4955690040511196`}}]}, "Charting`Private`Tag#6"], 
        Annotation[{
          Directive[
           PointSize[0.009166666666666668], 
           RGBColor[0.363898, 0.618501, 0.782349], 
           AbsoluteThickness[2]], 
          
          Point[{{1., -2.500321651397799}, {2., -2.487579001586519}, {
           3., -2.473471518836729}, {4., -2.4577740161799646`}, {
           5., -2.4401757025727884`}, {6., -2.420357944463456}, {
           7., -2.397729151483172}, {8., -2.371640714378509}, {
           9., -2.341558440165342}, {10., -2.3060117795183155`}, {
           11., -2.2627462920149686`}, {12., -2.207291609824917}, {
           13., -2.1310510421321402`}}]}, "Charting`Private`Tag#7"], 
        Annotation[{
          Directive[
           PointSize[0.009166666666666668], 
           RGBColor[1, 0.75, 0], 
           AbsoluteThickness[2]], 
          
          Point[{{1., -3.082664363610308}, {2., -2.8692120113662596`}, {
           3., -2.7894894140924325`}, {4., -2.764974036550838}, {
           5., -2.7733224984583766`}, {6., -2.8085239768034813`}, {
           7., -2.867028748848531}, {8., -2.95586169141441}, {
           9., -3.0793857544082495`}, {10., -3.247819262254025}, {
           11., -3.4775530844865545`}, {12., -3.8083404914772845`}, {
           13., -4.256623653106446}}]}, "Charting`Private`Tag#8"]}}, <|
      "HighlightElements" -> <|
        "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
       "LayoutOptions" -> <|
        "PanelPlotLayout" -> <||>, 
         "PlotRange" -> {{0, 13.}, {-4.729816365108617, 1.79012901782219}}, 
         "Frame" -> {{False, False}, {False, False}}, 
         "AxesOrigin" -> {0, -4.729816365108617}, 
         "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
         "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
         "DefaultStyle" -> {
           Directive[
            PointSize[0.009166666666666668], 
            RGBColor[1, 0.75, 0], 
            AbsoluteThickness[2]], 
           Directive[
            PointSize[0.009166666666666668], 
            RGBColor[0.363898, 0.618501, 0.782349], 
            AbsoluteThickness[2]], 
           Directive[
            PointSize[0.009166666666666668], 
            RGBColor[0.772079, 0.431554, 0.102387], 
            AbsoluteThickness[2]], 
           Directive[
            PointSize[0.009166666666666668], 
            RGBColor[0.528488, 0.470624, 0.701351], 
            AbsoluteThickness[2]], 
           Directive[
            PointSize[0.009166666666666668], 
            RGBColor[0.922526, 0.385626, 0.209179], 
            AbsoluteThickness[2]], 
           Directive[
            PointSize[0.009166666666666668], 
            RGBColor[0.560181, 0.691569, 0.194885], 
            AbsoluteThickness[2]], 
           Directive[
            PointSize[0.009166666666666668], 
            RGBColor[0.880722, 0.611041, 0.142051], 
            AbsoluteThickness[2]], 
           Directive[
            PointSize[0.009166666666666668], 
            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"]], {{}, {}}}, {{}, 
    InterpretationBox[{
      TagBox[{{}, {}, 
        TagBox[
         {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
          0.009166666666666668], AbsoluteThickness[2], 
          LineBox[{{1., -0.8287664617514933}, {2., -0.829074255813386}, {
           3., -0.8294465003989847}, {4., -0.8298949778088}, {
           5., -0.8304373710632513}, {6., -0.8310814731442491}, {
           7., -0.8318592596690342}, {8., -0.8328266681640414}, {
           9., -0.8339953779399563}, {10., -0.835355111597793}, {
           11., -0.8370257458572126}, {12., -0.8391083503330322}, {
           13., -0.8415080661873091}}]},
         Annotation[#, "Charting`Private`Tag#1"]& ], 
        TagBox[
         {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
          0.009166666666666668], AbsoluteThickness[2], 
          LineBox[{{1., -1.2115681010608692`}, {2., -1.0716735267684192`}, {
           3., -1.0113107224937554`}, {4., -0.9897320517303095}, {
           5., -0.9952839610238878}, {6., -1.0260920561342868`}, {
           7., -1.0799999996144656`}, {8., -1.1652324340812317`}, {
           9., -1.2865726599328167`}, {10., -1.4542468484449929`}, {
           11., -1.6865413709077957`}, {12., -2.0206318322837817`}, {
           13., -2.480830954900741}}]},
         Annotation[#, "Charting`Private`Tag#2"]& ], 
        TagBox[
         {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
          0.009166666666666668], AbsoluteThickness[2], 
          LineBox[{{1., 0.3411215701864593}, {2., 0.4542901420252691}, {3., 
           0.5863074286741194}, {4., 0.7392322805975433}, {5., 
           0.9172435582580608}, {6., 1.1304083048508382`}, {7., 
           1.3736904733848834`}, {8., 1.5747097349083967`}, {9., 
           1.7288450724498876`}, {10., 1.79012901782219}, {11., 
           1.7414463571107512`}, {12., 1.6274585687416427`}, {13., 
           1.5016410028035483`}}]},
         Annotation[#, "Charting`Private`Tag#3"]& ], 
        TagBox[
         {RGBColor[0.922526, 0.385626, 0.209179], PointSize[
          0.009166666666666668], AbsoluteThickness[2], 
          LineBox[{{1., -0.5080093607460824}, {2., -0.3292486786313972}, {
           3., -0.22266597616534803`}, {4., -0.15243270908684553`}, {
           5., -0.09816913406182959}, {6., -0.09637228728904013}, {
           7., -0.11051469154181744`}, {8., -0.156472627141488}, {
           9., -0.239224896692244}, {10., -0.3650497323613248}, {
           11., -0.5443121501507346}, {12., -0.814393788895469}, {
           13., -1.1386566547239636`}}]},
         Annotation[#, "Charting`Private`Tag#4"]& ], 
        TagBox[
         {RGBColor[0.528488, 0.470624, 0.701351], PointSize[
          0.009166666666666668], AbsoluteThickness[2], 
          LineBox[{{1., -0.8174254075965718}, {2., -0.8189857554107663}, {
           3., -0.8209427096152933}, {4., -0.8233871653587254}, {
           5., -0.8264524739550115}, {6., -0.8302286287718125}, {
           7., -0.8350171205699312}, {8., -0.8409874977204103}, {
           9., -0.8484679119254251}, {10., -0.8579197688815997}, {
           11., -0.8699559051280105}, {12., -0.8857046597821006}, {
           13., -0.9075452353298438}}]},
         Annotation[#, "Charting`Private`Tag#5"]& ], 
        TagBox[
         {RGBColor[0.772079, 0.431554, 0.102387], PointSize[
          0.009166666666666668], AbsoluteThickness[2], 
          LineBox[{{1., -1.1182041652504267`}, {2., -1.0591091145355225`}, {
           3., -1.0178220689639483`}, {4., -1.002115956359868}, {
           5., -1.0096154921960405`}, {6., -1.0409796722806517`}, {
           7., -1.094897072729479}, {8., -1.1800438041347425`}, {
           9., -1.3010996922066227`}, {10., -1.4686643246679518`}, {
           11., -1.7008148125554785`}, {12., -2.0348747905334768`}, {
           13., -2.4955690040511196`}}]},
         Annotation[#, "Charting`Private`Tag#6"]& ], 
        TagBox[
         {RGBColor[0.363898, 0.618501, 0.782349], PointSize[
          0.009166666666666668], AbsoluteThickness[2], 
          LineBox[{{1., -2.500321651397799}, {2., -2.487579001586519}, {
           3., -2.473471518836729}, {4., -2.4577740161799646`}, {
           5., -2.4401757025727884`}, {6., -2.420357944463456}, {
           7., -2.397729151483172}, {8., -2.371640714378509}, {
           9., -2.341558440165342}, {10., -2.3060117795183155`}, {
           11., -2.2627462920149686`}, {12., -2.207291609824917}, {
           13., -2.1310510421321402`}}]},
         Annotation[#, "Charting`Private`Tag#7"]& ], 
        TagBox[
         {RGBColor[1, 0.75, 0], PointSize[0.009166666666666668], 
          AbsoluteThickness[2], 
          LineBox[{{1., -3.082664363610308}, {2., -2.8692120113662596`}, {
           3., -2.7894894140924325`}, {4., -2.764974036550838}, {
           5., -2.7733224984583766`}, {6., -2.8085239768034813`}, {
           7., -2.867028748848531}, {8., -2.95586169141441}, {
           9., -3.0793857544082495`}, {10., -3.247819262254025}, {
           11., -3.4775530844865545`}, {12., -3.8083404914772845`}, {
           13., -4.256623653106446}}]},
         Annotation[#, "Charting`Private`Tag#8"]& ]},
       {"WolframDynamicHighlight", <|
        "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], 
      StyleBox[
       DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, 
         Slot["HighlightElements"], 
         Slot["LayoutOptions"], 
         Slot["Meta"], 
         Charting`HighlightActionFunction["DynamicHighlight", {{{}, {}, 
            Annotation[{
              Hue[0.67, 0.6, 0.6], 
              Directive[
               PointSize[0.009166666666666668], 
               RGBColor[0.368417, 0.506779, 0.709798], 
               AbsoluteThickness[2]], 
              
              Line[{{1., -0.8287664617514933}, {2., -0.829074255813386}, {
               3., -0.8294465003989847}, {4., -0.8298949778088}, {
               5., -0.8304373710632513}, {6., -0.8310814731442491}, {
               7., -0.8318592596690342}, {8., -0.8328266681640414}, {
               9., -0.8339953779399563}, {10., -0.835355111597793}, {
               11., -0.8370257458572126}, {12., -0.8391083503330322}, {
               13., -0.8415080661873091}}]}, "Charting`Private`Tag#1"], 
            Annotation[{
              Hue[0.9060679774997897, 0.6, 0.6], 
              Directive[
               PointSize[0.009166666666666668], 
               RGBColor[0.880722, 0.611041, 0.142051], 
               AbsoluteThickness[2]], 
              
              Line[{{1., -1.2115681010608692`}, {2., -1.0716735267684192`}, {
               3., -1.0113107224937554`}, {4., -0.9897320517303095}, {
               5., -0.9952839610238878}, {6., -1.0260920561342868`}, {
               7., -1.0799999996144656`}, {8., -1.1652324340812317`}, {
               9., -1.2865726599328167`}, {10., -1.4542468484449929`}, {
               11., -1.6865413709077957`}, {12., -2.0206318322837817`}, {
               13., -2.480830954900741}}]}, "Charting`Private`Tag#2"], 
            Annotation[{
              Hue[0.1421359549995791, 0.6, 0.6], 
              Directive[
               PointSize[0.009166666666666668], 
               RGBColor[0.560181, 0.691569, 0.194885], 
               AbsoluteThickness[2]], 
              Line[{{1., 0.3411215701864593}, {2., 0.4542901420252691}, {3., 
               0.5863074286741194}, {4., 0.7392322805975433}, {5., 
               0.9172435582580608}, {6., 1.1304083048508382`}, {7., 
               1.3736904733848834`}, {8., 1.5747097349083967`}, {9., 
               1.7288450724498876`}, {10., 1.79012901782219}, {11., 
               1.7414463571107512`}, {12., 1.6274585687416427`}, {13., 
               1.5016410028035483`}}]}, "Charting`Private`Tag#3"], 
            Annotation[{
              Hue[0.37820393249936934`, 0.6, 0.6], 
              Directive[
               PointSize[0.009166666666666668], 
               RGBColor[0.922526, 0.385626, 0.209179], 
               AbsoluteThickness[2]], 
              
              Line[{{1., -0.5080093607460824}, {2., -0.3292486786313972}, {
               3., -0.22266597616534803`}, {4., -0.15243270908684553`}, {
               5., -0.09816913406182959}, {6., -0.09637228728904013}, {
               7., -0.11051469154181744`}, {8., -0.156472627141488}, {
               9., -0.239224896692244}, {10., -0.3650497323613248}, {
               11., -0.5443121501507346}, {12., -0.814393788895469}, {
               13., -1.1386566547239636`}}]}, "Charting`Private`Tag#4"], 
            Annotation[{
              Hue[0.6142719099991583, 0.6, 0.6], 
              Directive[
               PointSize[0.009166666666666668], 
               RGBColor[0.528488, 0.470624, 0.701351], 
               AbsoluteThickness[2]], 
              
              Line[{{1., -0.8174254075965718}, {2., -0.8189857554107663}, {
               3., -0.8209427096152933}, {4., -0.8233871653587254}, {
               5., -0.8264524739550115}, {6., -0.8302286287718125}, {
               7., -0.8350171205699312}, {8., -0.8409874977204103}, {
               9., -0.8484679119254251}, {10., -0.8579197688815997}, {
               11., -0.8699559051280105}, {12., -0.8857046597821006}, {
               13., -0.9075452353298438}}]}, "Charting`Private`Tag#5"], 
            Annotation[{
              Hue[0.8503398874989481, 0.6, 0.6], 
              Directive[
               PointSize[0.009166666666666668], 
               RGBColor[0.772079, 0.431554, 0.102387], 
               AbsoluteThickness[2]], 
              
              Line[{{1., -1.1182041652504267`}, {2., -1.0591091145355225`}, {
               3., -1.0178220689639483`}, {4., -1.002115956359868}, {
               5., -1.0096154921960405`}, {6., -1.0409796722806517`}, {
               7., -1.094897072729479}, {8., -1.1800438041347425`}, {
               9., -1.3010996922066227`}, {10., -1.4686643246679518`}, {
               11., -1.7008148125554785`}, {12., -2.0348747905334768`}, {
               13., -2.4955690040511196`}}]}, "Charting`Private`Tag#6"], 
            Annotation[{
              Hue[0.08640786499873876, 0.6, 0.6], 
              Directive[
               PointSize[0.009166666666666668], 
               RGBColor[0.363898, 0.618501, 0.782349], 
               AbsoluteThickness[2]], 
              
              Line[{{1., -2.500321651397799}, {2., -2.487579001586519}, {
               3., -2.473471518836729}, {4., -2.4577740161799646`}, {
               5., -2.4401757025727884`}, {6., -2.420357944463456}, {
               7., -2.397729151483172}, {8., -2.371640714378509}, {
               9., -2.341558440165342}, {10., -2.3060117795183155`}, {
               11., -2.2627462920149686`}, {12., -2.207291609824917}, {
               13., -2.1310510421321402`}}]}, "Charting`Private`Tag#7"], 
            Annotation[{
              Hue[0.3224758424985268, 0.6, 0.6], 
              Directive[
               PointSize[0.009166666666666668], 
               RGBColor[1, 0.75, 0], 
               AbsoluteThickness[2]], 
              
              Line[{{1., -3.082664363610308}, {2., -2.8692120113662596`}, {
               3., -2.7894894140924325`}, {4., -2.764974036550838}, {
               5., -2.7733224984583766`}, {6., -2.8085239768034813`}, {
               7., -2.867028748848531}, {8., -2.95586169141441}, {
               9., -3.0793857544082495`}, {10., -3.247819262254025}, {
               11., -3.4775530844865545`}, {12., -3.8083404914772845`}, {
               13., -4.256623653106446}}]}, "Charting`Private`Tag#8"]}}, <|
          "HighlightElements" -> <|
            "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
           "LayoutOptions" -> <|
            "PanelPlotLayout" -> <||>, 
             "PlotRange" -> {{0, 13.}, {-4.729816365108617, 
               1.79012901782219}}, 
             "Frame" -> {{False, False}, {False, False}}, 
             "AxesOrigin" -> {0, -4.729816365108617}, 
             "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
             "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
             "DefaultStyle" -> {
               Directive[
                PointSize[0.009166666666666668], 
                RGBColor[1, 0.75, 0], 
                AbsoluteThickness[2]], 
               Directive[
                PointSize[0.009166666666666668], 
                RGBColor[0.363898, 0.618501, 0.782349], 
                AbsoluteThickness[2]], 
               Directive[
                PointSize[0.009166666666666668], 
                RGBColor[0.772079, 0.431554, 0.102387], 
                AbsoluteThickness[2]], 
               Directive[
                PointSize[0.009166666666666668], 
                RGBColor[0.528488, 0.470624, 0.701351], 
                AbsoluteThickness[2]], 
               Directive[
                PointSize[0.009166666666666668], 
                RGBColor[0.922526, 0.385626, 0.209179], 
                AbsoluteThickness[2]], 
               Directive[
                PointSize[0.009166666666666668], 
                RGBColor[0.560181, 0.691569, 0.194885], 
                AbsoluteThickness[2]], 
               Directive[
                PointSize[0.009166666666666668], 
                RGBColor[0.880722, 0.611041, 0.142051], 
                AbsoluteThickness[2]], 
               Directive[
                PointSize[0.009166666666666668], 
                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, 13.}, {-4.729816365108617, 1.79012901782219}},
             "Frame" -> {{False, False}, {False, False}}, 
            "AxesOrigin" -> {0, -4.729816365108617}, 
            "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
            "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
            "DefaultStyle" -> {
              Directive[
               PointSize[0.009166666666666668], 
               RGBColor[1, 0.75, 0], 
               AbsoluteThickness[2]], 
              Directive[
               PointSize[0.009166666666666668], 
               RGBColor[0.363898, 0.618501, 0.782349], 
               AbsoluteThickness[2]], 
              Directive[
               PointSize[0.009166666666666668], 
               RGBColor[0.772079, 0.431554, 0.102387], 
               AbsoluteThickness[2]], 
              Directive[
               PointSize[0.009166666666666668], 
               RGBColor[0.528488, 0.470624, 0.701351], 
               AbsoluteThickness[2]], 
              Directive[
               PointSize[0.009166666666666668], 
               RGBColor[0.922526, 0.385626, 0.209179], 
               AbsoluteThickness[2]], 
              Directive[
               PointSize[0.009166666666666668], 
               RGBColor[0.560181, 0.691569, 0.194885], 
               AbsoluteThickness[2]], 
              Directive[
               PointSize[0.009166666666666668], 
               RGBColor[0.880722, 0.611041, 0.142051], 
               AbsoluteThickness[2]], 
              Directive[
               PointSize[0.009166666666666668], 
               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[{
          Hue[0.67, 0.6, 0.6], 
          Directive[
           PointSize[0.009166666666666668], 
           RGBColor[0.368417, 0.506779, 0.709798], 
           AbsoluteThickness[2]], 
          
          Line[{{1., -0.8287664617514933}, {2., -0.829074255813386}, {
           3., -0.8294465003989847}, {4., -0.8298949778088}, {
           5., -0.8304373710632513}, {6., -0.8310814731442491}, {
           7., -0.8318592596690342}, {8., -0.8328266681640414}, {
           9., -0.8339953779399563}, {10., -0.835355111597793}, {
           11., -0.8370257458572126}, {12., -0.8391083503330322}, {
           13., -0.8415080661873091}}]}, "Charting`Private`Tag#1"], 
        Annotation[{
          Hue[0.9060679774997897, 0.6, 0.6], 
          Directive[
           PointSize[0.009166666666666668], 
           RGBColor[0.880722, 0.611041, 0.142051], 
           AbsoluteThickness[2]], 
          
          Line[{{1., -1.2115681010608692`}, {2., -1.0716735267684192`}, {
           3., -1.0113107224937554`}, {4., -0.9897320517303095}, {
           5., -0.9952839610238878}, {6., -1.0260920561342868`}, {
           7., -1.0799999996144656`}, {8., -1.1652324340812317`}, {
           9., -1.2865726599328167`}, {10., -1.4542468484449929`}, {
           11., -1.6865413709077957`}, {12., -2.0206318322837817`}, {
           13., -2.480830954900741}}]}, "Charting`Private`Tag#2"], 
        Annotation[{
          Hue[0.1421359549995791, 0.6, 0.6], 
          Directive[
           PointSize[0.009166666666666668], 
           RGBColor[0.560181, 0.691569, 0.194885], 
           AbsoluteThickness[2]], 
          
          Line[{{1., 0.3411215701864593}, {2., 0.4542901420252691}, {3., 
           0.5863074286741194}, {4., 0.7392322805975433}, {5., 
           0.9172435582580608}, {6., 1.1304083048508382`}, {7., 
           1.3736904733848834`}, {8., 1.5747097349083967`}, {9., 
           1.7288450724498876`}, {10., 1.79012901782219}, {11., 
           1.7414463571107512`}, {12., 1.6274585687416427`}, {13., 
           1.5016410028035483`}}]}, "Charting`Private`Tag#3"], 
        Annotation[{
          Hue[0.37820393249936934`, 0.6, 0.6], 
          Directive[
           PointSize[0.009166666666666668], 
           RGBColor[0.922526, 0.385626, 0.209179], 
           AbsoluteThickness[2]], 
          
          Line[{{1., -0.5080093607460824}, {2., -0.3292486786313972}, {
           3., -0.22266597616534803`}, {4., -0.15243270908684553`}, {
           5., -0.09816913406182959}, {6., -0.09637228728904013}, {
           7., -0.11051469154181744`}, {8., -0.156472627141488}, {
           9., -0.239224896692244}, {10., -0.3650497323613248}, {
           11., -0.5443121501507346}, {12., -0.814393788895469}, {
           13., -1.1386566547239636`}}]}, "Charting`Private`Tag#4"], 
        Annotation[{
          Hue[0.6142719099991583, 0.6, 0.6], 
          Directive[
           PointSize[0.009166666666666668], 
           RGBColor[0.528488, 0.470624, 0.701351], 
           AbsoluteThickness[2]], 
          
          Line[{{1., -0.8174254075965718}, {2., -0.8189857554107663}, {
           3., -0.8209427096152933}, {4., -0.8233871653587254}, {
           5., -0.8264524739550115}, {6., -0.8302286287718125}, {
           7., -0.8350171205699312}, {8., -0.8409874977204103}, {
           9., -0.8484679119254251}, {10., -0.8579197688815997}, {
           11., -0.8699559051280105}, {12., -0.8857046597821006}, {
           13., -0.9075452353298438}}]}, "Charting`Private`Tag#5"], 
        Annotation[{
          Hue[0.8503398874989481, 0.6, 0.6], 
          Directive[
           PointSize[0.009166666666666668], 
           RGBColor[0.772079, 0.431554, 0.102387], 
           AbsoluteThickness[2]], 
          
          Line[{{1., -1.1182041652504267`}, {2., -1.0591091145355225`}, {
           3., -1.0178220689639483`}, {4., -1.002115956359868}, {
           5., -1.0096154921960405`}, {6., -1.0409796722806517`}, {
           7., -1.094897072729479}, {8., -1.1800438041347425`}, {
           9., -1.3010996922066227`}, {10., -1.4686643246679518`}, {
           11., -1.7008148125554785`}, {12., -2.0348747905334768`}, {
           13., -2.4955690040511196`}}]}, "Charting`Private`Tag#6"], 
        Annotation[{
          Hue[0.08640786499873876, 0.6, 0.6], 
          Directive[
           PointSize[0.009166666666666668], 
           RGBColor[0.363898, 0.618501, 0.782349], 
           AbsoluteThickness[2]], 
          
          Line[{{1., -2.500321651397799}, {2., -2.487579001586519}, {
           3., -2.473471518836729}, {4., -2.4577740161799646`}, {
           5., -2.4401757025727884`}, {6., -2.420357944463456}, {
           7., -2.397729151483172}, {8., -2.371640714378509}, {
           9., -2.341558440165342}, {10., -2.3060117795183155`}, {
           11., -2.2627462920149686`}, {12., -2.207291609824917}, {
           13., -2.1310510421321402`}}]}, "Charting`Private`Tag#7"], 
        Annotation[{
          Hue[0.3224758424985268, 0.6, 0.6], 
          Directive[
           PointSize[0.009166666666666668], 
           RGBColor[1, 0.75, 0], 
           AbsoluteThickness[2]], 
          
          Line[{{1., -3.082664363610308}, {2., -2.8692120113662596`}, {
           3., -2.7894894140924325`}, {4., -2.764974036550838}, {
           5., -2.7733224984583766`}, {6., -2.8085239768034813`}, {
           7., -2.867028748848531}, {8., -2.95586169141441}, {
           9., -3.0793857544082495`}, {10., -3.247819262254025}, {
           11., -3.4775530844865545`}, {12., -3.8083404914772845`}, {
           13., -4.256623653106446}}]}, "Charting`Private`Tag#8"]}}, <|
      "HighlightElements" -> <|
        "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
       "LayoutOptions" -> <|
        "PanelPlotLayout" -> <||>, 
         "PlotRange" -> {{0, 13.}, {-4.729816365108617, 1.79012901782219}}, 
         "Frame" -> {{False, False}, {False, False}}, 
         "AxesOrigin" -> {0, -4.729816365108617}, 
         "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
         "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
         "DefaultStyle" -> {
           Directive[
            PointSize[0.009166666666666668], 
            RGBColor[1, 0.75, 0], 
            AbsoluteThickness[2]], 
           Directive[
            PointSize[0.009166666666666668], 
            RGBColor[0.363898, 0.618501, 0.782349], 
            AbsoluteThickness[2]], 
           Directive[
            PointSize[0.009166666666666668], 
            RGBColor[0.772079, 0.431554, 0.102387], 
            AbsoluteThickness[2]], 
           Directive[
            PointSize[0.009166666666666668], 
            RGBColor[0.528488, 0.470624, 0.701351], 
            AbsoluteThickness[2]], 
           Directive[
            PointSize[0.009166666666666668], 
            RGBColor[0.922526, 0.385626, 0.209179], 
            AbsoluteThickness[2]], 
           Directive[
            PointSize[0.009166666666666668], 
            RGBColor[0.560181, 0.691569, 0.194885], 
            AbsoluteThickness[2]], 
           Directive[
            PointSize[0.009166666666666668], 
            RGBColor[0.880722, 0.611041, 0.142051], 
            AbsoluteThickness[2]], 
           Directive[
            PointSize[0.009166666666666668], 
            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->{
    FormBox[
     SubscriptBox["N", "f"], TraditionalForm], 
    FormBox["F", TraditionalForm]},
  AxesOrigin->{1, -5},
  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]],
  ImageSize->Large,
  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->All,
  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, {{-4.605170185988091, 
       FormBox[
        TagBox[
         InterpretationBox[
          StyleBox["\"0.01\"", ShowStringCharacters -> False], 
          0.01`15.954589770191003, AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 2}]& ], TraditionalForm], {0.01, 
       0.}}, {-2.995732273553991, 
       FormBox[
        TagBox[
         InterpretationBox[
          StyleBox["\"0.05\"", ShowStringCharacters -> False], 
          0.05`15.954589770191003, AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 2}]& ], TraditionalForm], {0.01, 
       0.}}, {-2.3025850929940455`, 
       FormBox[
        TagBox[
         InterpretationBox[
          StyleBox["\"0.10\"", ShowStringCharacters -> False], 
          0.1`15.954589770191003, AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 2}]& ], TraditionalForm], {0.01, 
       0.}}, {-0.6931471805599453, 
       FormBox[
        TagBox[
         InterpretationBox[
          StyleBox["\"0.50\"", ShowStringCharacters -> False], 
          0.5`15.954589770191003, AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 2}]& ], TraditionalForm], {0.01, 0.}}, {0., 
       FormBox["1", TraditionalForm], {0.01, 0.}}, {1.6094379124341003`, 
       FormBox["5", TraditionalForm], {0.01, 0.}}, {-5.298317366548036, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-5.115995809754082, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-4.961845129926823, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-4.8283137373023015`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-4.710530701645918, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-3.912023005428146, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-3.506557897319982, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-3.2188758248682006`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-2.8134107167600364`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-2.659260036932778, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-2.5257286443082556`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-2.4079456086518722`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-1.6094379124341003`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-1.2039728043259361`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-0.916290731874155, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-0.5108256237659907, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-0.35667494393873245`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-0.2231435513142097, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-0.10536051565782628`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      0.6931471805599453, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      1.0986122886681098`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      1.3862943611198906`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      1.791759469228055, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      1.9459101490553132`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      2.0794415416798357`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      2.1972245773362196`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      2.302585092994046, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}}}]]], "Output",
 CellChangeTimes->{
  3.926717925580345*^9, 3.926717978617085*^9, 3.926718280167688*^9, 
   3.926718317368825*^9, 3.926718388776101*^9, 3.926718677005023*^9, 
   3.926718962211557*^9, 3.926719372221363*^9, 3.926719686730323*^9, 
   3.926719722556394*^9, 3.927633701142632*^9, 3.927633785526678*^9, {
   3.9276338303245*^9, 3.927633903983316*^9}, 3.927634148693524*^9, 
   3.927634209689786*^9, 3.927634330867319*^9, 3.927634485109794*^9, 
   3.927634800485867*^9, 3.9276351159755387`*^9, {3.927635199337119*^9, 
   3.927635218798064*^9}, {3.927635249018336*^9, 3.927635312388917*^9}, {
   3.927635358139812*^9, 3.927635371403686*^9}, 3.927635531397212*^9, 
   3.927635710301057*^9, 3.92763577735141*^9, 3.927635942133466*^9, 
   3.92763609877709*^9, 3.9276364260830317`*^9, {3.927637578826865*^9, 
   3.927637607504839*^9}, 3.927637910698414*^9, {3.927637947677719*^9, 
   3.927637956745602*^9}, {3.927638064889668*^9, 3.927638100634963*^9}, {
   3.927638935794809*^9, 3.927638990976151*^9}, {3.9276390547138557`*^9, 
   3.927639078703552*^9}, 3.927639211323195*^9, {3.927639251042318*^9, 
   3.927639321874207*^9}, {3.927639354967026*^9, 3.927639380524467*^9}, 
   3.927915316774093*^9, 3.927927421491312*^9, 3.92792858510015*^9, 
   3.927928874125905*^9, 3.927929263140175*^9, 3.92792951229265*^9, {
   3.927929712015003*^9, 3.927929740508994*^9}, 3.927929781165572*^9, 
   3.930181598637554*^9, 3.930182108313728*^9, 3.930182158559861*^9, 
   3.930182696588113*^9, 3.930183140030506*^9, 3.930183651505178*^9, 
   3.93018453387845*^9, 3.930185010435425*^9, 3.930185570123785*^9, 
   3.93018613732242*^9, 3.930188163672052*^9, 3.930189151962541*^9, 
   3.930190795770596*^9, 3.93019262519464*^9, 3.930209247052791*^9, 
   3.930209571240348*^9, 3.9302105156634207`*^9, 3.930210640361134*^9, 
   3.930211358196172*^9, 3.9302116530314417`*^9, 3.93021211902561*^9, 
   3.930214551870002*^9, 3.93021486565864*^9, 3.930215386756929*^9, 
   3.930215419605989*^9, 3.930216306596258*^9, 3.930216602286813*^9, 
   3.930216866987382*^9, 3.93021728793942*^9, 3.930217673113394*^9, 
   3.930218067466172*^9, 3.9302187465257*^9, 3.930220070365794*^9, 
   3.930222424367055*^9, 3.930303206130928*^9, 3.930305359004147*^9, 
   3.930305483487054*^9, {3.930306012323566*^9, 3.930306024953227*^9}, 
   3.930306834671031*^9, 3.9303069038776913`*^9, 3.930309490623328*^9, 
   3.9303099715220833`*^9, 3.93031081493897*^9, 3.930310873830751*^9, 
   3.9303116830883627`*^9, {3.930311721892538*^9, 3.930311741486278*^9}, 
   3.930311801812523*^9, 3.930312436575602*^9, {3.930312471671187*^9, 
   3.930312495136085*^9}, {3.93031368774854*^9, 3.93031372512986*^9}, {
   3.930313755934682*^9, 3.930313768960593*^9}, {3.9303138007247047`*^9, 
   3.9303138098929*^9}, 3.930314291414412*^9, 3.930314432778042*^9, 
   3.930589317471308*^9, 3.930589751353531*^9, 3.931221443472279*^9, 
   3.931221888186193*^9, 3.931222197988234*^9, 3.931222388293457*^9, 
   3.931222670761298*^9, 3.931223183195943*^9, 3.931223627799741*^9, 
   3.931224033787365*^9, 3.931224617199314*^9, {3.9312246858886967`*^9, 
   3.931224706778487*^9}, 3.936688549993691*^9, 3.936694356705951*^9, 
   3.936695048184944*^9, 3.936696362841243*^9, 3.936696655198783*^9, 
   3.9366969068461237`*^9, 3.936697166468864*^9, 3.936697489048981*^9, 
   3.936698287340084*^9, 3.936698591357823*^9, 3.9366994864416924`*^9, 
   3.936700217901304*^9, 3.936700403866493*^9, 3.941541431583559*^9, 
   3.957338704613283*^9},
 CellLabel->"Out[51]=",ExpressionUUID->"dc9d8ec2-9ce4-4711-9f51-99c1e9fa34aa"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "1", "*)"}], 
  RowBox[{"(*", "nf", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
  "0.3", "\[IndentingNewLine]", "0.2", "\[IndentingNewLine]", 
   "0.2"}]}]], "Input",
 CellChangeTimes->{{3.931220998745422*^9, 3.93122100705355*^9}, {
  3.93122115752004*^9, 3.931221157792963*^9}, {3.9363533498639174`*^9, 
  3.936353377063287*^9}, {3.9366880120409203`*^9, 
  3.9366880261414557`*^9}},ExpressionUUID->"5155decc-0106-4756-8374-\
536854f4c429"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "2", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
  "0.2", "\[IndentingNewLine]", "0.14", "\[IndentingNewLine]", 
   "0.17"}]}]], "Input",
 CellChangeTimes->{{3.931221009952346*^9, 3.931221036004806*^9}, {
   3.931221506012988*^9, 3.93122150643253*^9}, {3.931221625658897*^9, 
   3.931221626405561*^9}, {3.931221733695746*^9, 3.931221734226302*^9}, 
   3.936688038399865*^9, {3.93668819980865*^9, 3.936688202332395*^9}, {
   3.936688344351348*^9, 
   3.936688344751371*^9}},ExpressionUUID->"bf2552d5-6a5f-4434-832b-\
c96ed9b6fdbf"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "3", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
  "0.19", "\[IndentingNewLine]", "0.12", "\[IndentingNewLine]", 
   "0.14"}]}]], "Input",
 CellChangeTimes->{{3.931221012968766*^9, 3.931221034253663*^9}, {
  3.931221923344583*^9, 3.931221923953369*^9}, {3.931222041733954*^9, 
  3.931222056769109*^9}, {3.936688204315226*^9, 3.9366882063057957`*^9}, {
  3.936688591515246*^9, 3.9366885918023252`*^9}, {3.9366889284994783`*^9, 
  3.936688940631825*^9}},ExpressionUUID->"f09acdf7-4914-4ed9-85b1-\
b7861f87a7ef"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "4", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
  "0.17", "\[IndentingNewLine]", "0.1", "\[IndentingNewLine]", 
   "0.12"}]}]], "Input",
 CellChangeTimes->{{3.931221015158208*^9, 3.9312210329736147`*^9}, {
  3.9312224318622923`*^9, 3.931222456036891*^9}, {3.931222499487984*^9, 
  3.931222499952209*^9}, {3.9366882072987957`*^9, 3.936688208765194*^9}, {
  3.936694432539076*^9, 3.936694433225995*^9}, {3.9366947453616743`*^9, 
  3.936694746793292*^9}, {3.936694843494545*^9, 
  3.936694843564829*^9}},ExpressionUUID->"a2768c3b-cced-4765-9a76-\
705b8e0c65d7"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "5", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
  "0.15", "\[IndentingNewLine]", "0.07", "\[IndentingNewLine]", 
   "0.1"}]}]], "Input",
 CellChangeTimes->{{3.931221016762712*^9, 3.931221031892704*^9}, {
   3.931222747724522*^9, 3.931222748103035*^9}, {3.931222834824911*^9, 
   3.931222837462549*^9}, {3.931222867602625*^9, 3.931222869188511*^9}, {
   3.936688210442295*^9, 3.9366882118091917`*^9}, {3.936695125628963*^9, 
   3.936695129659048*^9}, 3.936695245136135*^9, 
   3.936695314539301*^9},ExpressionUUID->"a8754e14-943d-450c-911a-\
5454ff27dcdf"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "6", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
  "0.13", "\[IndentingNewLine]", "0.05", "\[IndentingNewLine]", 
   "0.08"}]}]], "Input",
 CellChangeTimes->{{3.931221018641141*^9, 3.931221030537718*^9}, {
   3.931223243456349*^9, 3.931223243836681*^9}, {3.931223453998671*^9, 
   3.931223458525528*^9}, {3.936688212696281*^9, 3.936688213919951*^9}, {
   3.936695133702722*^9, 3.936695137139326*^9}, {3.936696398179728*^9, 
   3.936696417971314*^9}, 3.9366964985795927`*^9, 
   3.9366965370775967`*^9},ExpressionUUID->"fdd062a3-0eaa-4abf-97fe-\
83ec86d1d9e2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "7", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
  "0.11", "\[IndentingNewLine]", "0.03", "\[IndentingNewLine]", 
   "0.06"}]}]], "Input",
 CellChangeTimes->{{3.931221020683166*^9, 3.931221028993099*^9}, {
   3.931223760377182*^9, 3.9312237612331142`*^9}, {3.931223836813963*^9, 
   3.931223839832122*^9}, {3.9312239523961678`*^9, 3.931223953777453*^9}, {
   3.9366882150481567`*^9, 3.936688226524184*^9}, {3.936696403311037*^9, 
   3.9366964191366377`*^9}, {3.936696686999093*^9, 3.9366966871573343`*^9}, 
   3.9366967463073683`*^9, {3.936696792563545*^9, 
   3.9366967938704348`*^9}},ExpressionUUID->"404b9b75-5383-4204-9423-\
915afc909f54"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Nf", "=", "8"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
  "0.09", "\[IndentingNewLine]", "0.02", "\[IndentingNewLine]", 
   "0.05"}]}]], "Input",
 CellChangeTimes->{{3.930306314039771*^9, 3.9303063368001633`*^9}, {
   3.930587577755272*^9, 3.9305875987975416`*^9}, {3.930589406918495*^9, 
   3.9305894156419077`*^9}, {3.93058976333465*^9, 3.930589769418146*^9}, {
   3.931224078990639*^9, 3.931224081464374*^9}, {3.9366882175001593`*^9, 
   3.936688230283938*^9}, {3.936696404345064*^9, 3.936696420070578*^9}, {
   3.936696941650448*^9, 3.936696941953813*^9}, 3.936697010087636*^9, 
   3.93669704858884*^9},ExpressionUUID->"9ce6ff89-ca77-48fd-988f-\
f727741d4b3d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Nf", "=", "9"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
  "0.07", "\[IndentingNewLine]", "0.005", "\[IndentingNewLine]", 
   "0.03"}]}]], "Input",
 CellChangeTimes->{{3.936688233089192*^9, 3.936688258441105*^9}, {
   3.9366951434659452`*^9, 3.9366951461778097`*^9}, {3.936696405612397*^9, 
   3.936696421061495*^9}, 3.9366970506339417`*^9, 3.9366971903558483`*^9, {
   3.936697248549509*^9, 3.936697248772695*^9}, {3.936697348689859*^9, 
   3.9366973494532537`*^9}},ExpressionUUID->"af5bab2a-cd0d-4308-ba13-\
0549efd15f70"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Nf", "=", "10"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
  "0.05", "\[IndentingNewLine]", "0.0005", "\[IndentingNewLine]", 
   "0.02"}]}]], "Input",
 CellChangeTimes->{{3.9366882395397997`*^9, 3.9366882600064917`*^9}, {
   3.936695151197393*^9, 3.9366951565937977`*^9}, {3.936696406768628*^9, 
   3.9366964225887003`*^9}, 3.936697051859146*^9, 3.936697250556402*^9, 
   3.936697996185543*^9, {3.936698081202239*^9, 3.936698081504161*^9}, 
   3.9366981330651293`*^9},ExpressionUUID->"c4944397-aa0b-4030-9426-\
508726c03f69"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Nf", "=", "11"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"0.03", "\[IndentingNewLine]", 
   RowBox[{"6.", "*", 
    SuperscriptBox["10", 
     RowBox[{"-", "7"}]]}], "\[IndentingNewLine]", "0.007"}]}]], "Input",
 CellChangeTimes->{{3.9366882439169493`*^9, 3.9366882616809607`*^9}, {
   3.936695158321959*^9, 3.9366951599424477`*^9}, {3.9366964080866537`*^9, 
   3.936696423448159*^9}, 3.936697052469899*^9, 3.936697251566684*^9, 
   3.936698083384387*^9, 3.936698313294838*^9, {3.936698391388873*^9, 
   3.9366983949470387`*^9}, {3.9366984632040663`*^9, 
   3.936698463542118*^9}},ExpressionUUID->"40522efa-939d-48a1-9202-\
86204dc33fa5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Nf", "=", "12"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"0.008", "\[IndentingNewLine]", 
   RowBox[{"9.7", "*", 
    SuperscriptBox["10", 
     RowBox[{"-", "13"}]]}], "\[IndentingNewLine]", "0.002"}]}]], "Input",
 CellChangeTimes->{{3.936688247145299*^9, 3.936688262862308*^9}, {
   3.936695161750057*^9, 3.936695163436035*^9}, {3.936696409596493*^9, 
   3.9366964249189796`*^9}, 3.936697053683256*^9, 3.936697252420735*^9, 
   3.9366980849989634`*^9, {3.9366983987206917`*^9, 3.93669840938249*^9}, {
   3.936698465012845*^9, 3.93669847084634*^9}, {3.936698955169098*^9, 
   3.936698955440257*^9}, 3.936699160404007*^9, 
   3.9366995158828583`*^9},ExpressionUUID->"a8091e6d-7981-4649-b6ca-\
57cf4564ab3f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Nf", "=", "13"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"0.0006", "\[IndentingNewLine]", 
   RowBox[{"2.1", "*", 
    SuperscriptBox["10", 
     RowBox[{"-", "13"}]]}], "\[IndentingNewLine]", "0.00008"}]}]], "Input",
 CellChangeTimes->{{3.936688250718334*^9, 3.936688264095973*^9}, {
   3.936695164930005*^9, 3.936695166561409*^9}, {3.936696410318981*^9, 
   3.936696425943482*^9}, 3.936697054595757*^9, 3.9366972534109488`*^9, 
   3.936698086642964*^9, {3.936698403893776*^9, 3.936698411669207*^9}, {
   3.93669846647268*^9, 3.9366984727053537`*^9}, 3.9366989597455993`*^9, {
   3.936699539416992*^9, 3.936699539800189*^9}, 3.936699869457368*^9, {
   3.9366999054197683`*^9, 
   3.936699905901262*^9}},ExpressionUUID->"28ed738c-8500-41bd-ae58-\
6bbcbcc2b295"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Nf", "=", "13.5"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"2.", "*", 
    SuperscriptBox["10", 
     RowBox[{"-", "6"}]]}], "\[IndentingNewLine]", 
   RowBox[{"1.2", "*", 
    SuperscriptBox["10", 
     RowBox[{"-", "13"}]]}], "\[IndentingNewLine]", 
   RowBox[{"2.", "*", 
    SuperscriptBox["10", 
     RowBox[{"-", "7"}]]}]}]}]], "Input",
 CellChangeTimes->{{3.941540426735209*^9, 3.941540438265649*^9}, {
   3.9415406350685787`*^9, 3.941540637324725*^9}, 3.9415407672022123`*^9, 
   3.94154087579683*^9},ExpressionUUID->"4e7382aa-191a-4d4f-adf3-\
f7285f55742c"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListLogPlot", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"nf", "[", 
           RowBox[{"[", "i", "]"}], "]"}], ",", 
          RowBox[{"m\[Rho]s", "[", 
           RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{
           RowBox[{"Dimensions", "[", "nf", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", "1"}], "}"}]}], "]"}], ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"nf", "[", 
           RowBox[{"[", "i", "]"}], "]"}], ",", 
          RowBox[{"m\[Rho]f", "[", 
           RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{
           RowBox[{"Dimensions", "[", "nf", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", "1"}], "}"}]}], "]"}], ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"nf", "[", 
           RowBox[{"[", "i", "]"}], "]"}], ",", 
          RowBox[{"m\[Sigma]s", "[", 
           RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{
           RowBox[{"Dimensions", "[", "nf", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", "1"}], "}"}]}], "]"}], ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"nf", "[", 
           RowBox[{"[", "i", "]"}], "]"}], ",", 
          RowBox[{"m\[Sigma]f", "[", 
           RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{
           RowBox[{"Dimensions", "[", "nf", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", "1"}], "}"}]}], "]"}], ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"nf", "[", 
           RowBox[{"[", "i", "]"}], "]"}], ",", 
          RowBox[{"mas", "[", 
           RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{
           RowBox[{"Dimensions", "[", "nf", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", "1"}], "}"}]}], "]"}], ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"nf", "[", 
           RowBox[{"[", "i", "]"}], "]"}], ",", 
          RowBox[{"maf", "[", 
           RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{
           RowBox[{"Dimensions", "[", "nf", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", "1"}], "}"}]}], "]"}]}], 
     "}"}], "]"}], ",", 
   RowBox[{"ListLogPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"nf", "[", 
            RowBox[{"[", "i", "]"}], "]"}], ",", 
           RowBox[{"m\[Rho]s", "[", 
            RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "nf", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], ",", "1"}], "}"}]}], "]"}], ",", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"nf", "[", 
            RowBox[{"[", "i", "]"}], "]"}], ",", 
           RowBox[{"m\[Rho]f", "[", 
            RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "nf", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], ",", "1"}], "}"}]}], "]"}], ",", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"nf", "[", 
            RowBox[{"[", "i", "]"}], "]"}], ",", 
           RowBox[{"m\[Sigma]s", "[", 
            RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "nf", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], ",", "1"}], "}"}]}], "]"}], ",", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"nf", "[", 
            RowBox[{"[", "i", "]"}], "]"}], ",", 
           RowBox[{"m\[Sigma]f", "[", 
            RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "nf", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], ",", "1"}], "}"}]}], "]"}], ",", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"nf", "[", 
            RowBox[{"[", "i", "]"}], "]"}], ",", 
           RowBox[{"mas", "[", 
            RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "nf", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], ",", "1"}], "}"}]}], "]"}], ",", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"nf", "[", 
            RowBox[{"[", "i", "]"}], "]"}], ",", 
           RowBox[{"maf", "[", 
            RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{
            RowBox[{"Dimensions", "[", "nf", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], ",", "1"}], "}"}]}], "]"}]}], 
      "}"}], ",", 
     RowBox[{"Joined", "->", "True"}]}], "]"}], ",", 
   RowBox[{"AxesOrigin", "->", 
    RowBox[{"{", 
     RowBox[{"1", ",", "0"}], "}"}]}], ",", 
   RowBox[{"AxesLabel", "->", 
    RowBox[{"{", 
     RowBox[{
      SubscriptBox["N", "f"], ",", "M"}], "}"}]}], ",", 
   RowBox[{"PlotRange", "->", "All"}], ",", 
   RowBox[{"ImageSize", "->", "Large"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"blue", " ", "is", " ", "the", " ", "\[Rho]", " ", "symmetric"}], 
    ",", " ", 
    RowBox[{
    "ochre", " ", "is", " ", "the", " ", "\[Rho]", " ", "fundamental"}], ",", 
    " ", 
    RowBox[{
    "green", " ", "is", " ", "the", " ", "\[Sigma]", " ", "symmetric"}], ",", 
    " ", 
    RowBox[{
    "orange", " ", "is", " ", "the", " ", "\[Sigma]", " ", "fundamental"}], 
    ",", " ", 
    RowBox[{"purple", " ", "is", " ", "the", " ", "axial", " ", "symmetric"}],
     ",", " ", 
    RowBox[{
    "brown", " ", "is", " ", "the", " ", "axial", " ", "fundamental"}]}], 
   "*)"}]}]}], "Input",
 CellLabel->
  "In[6221]:=",ExpressionUUID->"1aa72b34-778d-4079-8fb5-3c5b20fb4c21"],

Cell[BoxData[
 GraphicsBox[{{{}, 
    InterpretationBox[{
      TagBox[{
        TagBox[
         {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
          0.011000000000000001`], AbsoluteThickness[2], 
          PointBox[{{1., -0.3509969933159293}, {2., -0.4300443374861272}, {
           3., -0.5207655925498909}, {4., -0.6260191808034896}, {
           5., -0.7497981146905467}, {6., -0.8997858504193476}, {
           7., -1.080301660578173}, {8., -1.3056865224325465`}, {
           9., -1.5963787771048774`}, {10., -1.9953073970570494`}, {
           11., -2.590370066473417}, {12., -3.619700684365513}, {
           13., -6.235969453077265}, {13.5, -12.155854658319603`}}]},
         Annotation[#, "Charting`Private`Tag#1"]& ], 
        TagBox[
         {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
          0.011000000000000001`], AbsoluteThickness[2], 
          PointBox[{{1., -0.5868421322298626}, {2., -0.6993748786588622}, {
           3., -0.8311089945859081}, {4., -0.9866134693237668}, {
           5., -1.1715559964552955`}, {6., -1.3976454994814578`}, {
           7., -1.6701972573000121`}, {8., -2.0137394260237906`}, {
           9., -2.4544499376410123`}, {10., -3.046576534583443}, {
           11., -3.8966192824538557`}, {12., -5.280672044074869}, {
           13., -8.375594618414967}, {13.5, -14.654258783911162`}}]},
         Annotation[#, "Charting`Private`Tag#2"]& ], 
        TagBox[
         {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
          0.011000000000000001`], AbsoluteThickness[2], 
          PointBox[{{1., -0.9892131785282645}, {2., -1.1613745648368141`}, {
           3., -1.3547938857354493`}, {4., -1.5718225222538202`}, {
           5., -1.8180350921243158`}, {6., -2.107590415524657}, {
           7., -2.4321346082806334`}, {8., -2.831379642841505}, {
           9., -3.325226843100012}, {10., -3.964518034359965}, {
           11., -4.856407833617255}, {12., -6.307660972443128}, {
           13., -9.682684610474626}, {13.5, -16.41136038885804}}]},
         Annotation[#, "Charting`Private`Tag#3"]& ], 
        TagBox[
         {RGBColor[0.922526, 0.385626, 0.209179], PointSize[
          0.011000000000000001`], AbsoluteThickness[2], 
          PointBox[{{1., -0.3974080655008029}, {2., -0.5222040484984355}, {
           3., -0.6662310989195105}, {4., -0.8428918540724826}, {
           5., -1.0550389008072223`}, {6., -1.316321292477447}, {
           7., -1.6354463406103261`}, {8., -2.0420112511715067`}, {
           9., -2.567182478495072}, {10., -3.2713916448698717`}, {
           11., -4.25924690504629}, {12., -5.791683307344207}, {
           13., -9.148231190256912}, {13.5, -15.4737456157525}}]},
         Annotation[#, "Charting`Private`Tag#4"]& ], 
        TagBox[
         {RGBColor[0.528488, 0.470624, 0.701351], PointSize[
          0.011000000000000001`], AbsoluteThickness[2], 
          PointBox[{{1., -0.06221092835635452}, {2., -0.13789493650821968`}, {
           3., -0.22504950768130938`}, {4., -0.32652135444782154`}, {
           5., -0.4462740003178264}, {6., -0.5919905527968728}, {
           7., -0.7679885464225457}, {8., -0.9884744700262512}, {
           9., -1.2739771823091777`}, {10., -1.667346003012511}, {
           11., -2.2564049219451183`}, {12., -3.2790588048586353`}, {
           13., -5.887561726548465}, {13.5, -11.802427262805177`}}]},
         Annotation[#, "Charting`Private`Tag#5"]& ], 
        TagBox[
         {RGBColor[0.772079, 0.431554, 0.102387], PointSize[
          0.011000000000000001`], AbsoluteThickness[2], 
          PointBox[{{1., -0.22161336946103236`}, {2., -0.4677029405537676}, {
           3., -0.6597694331164582}, {4., -0.8495672742424746}, {
           5., -1.0566589379652924`}, {6., -1.2981855087601637`}, {
           7., -1.5820979523901169`}, {8., -1.934285474554366}, {
           9., -2.381760187886471}, {10., -2.9792634462198677`}, {
           11., -3.833639239453639}, {12., -5.221406728571537}, {
           13., -8.318928933459105}, {13.5, -14.598714499767883`}}]},
         Annotation[#, "Charting`Private`Tag#6"]& ]},
       {"WolframDynamicHighlight", <|
        "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], 
      StyleBox[
       DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, 
         Slot["HighlightElements"], 
         Slot["LayoutOptions"], 
         Slot["Meta"], 
         Charting`HighlightActionFunction["DynamicHighlight", {{
            Annotation[{
              Directive[
               PointSize[0.011000000000000001`], 
               RGBColor[0.368417, 0.506779, 0.709798], 
               AbsoluteThickness[2]], 
              
              Point[{{1., -0.3509969933159293}, {2., -0.4300443374861272}, {
               3., -0.5207655925498909}, {4., -0.6260191808034896}, {
               5., -0.7497981146905467}, {6., -0.8997858504193476}, {
               7., -1.080301660578173}, {8., -1.3056865224325465`}, {
               9., -1.5963787771048774`}, {10., -1.9953073970570494`}, {
               11., -2.590370066473417}, {12., -3.619700684365513}, {
               13., -6.235969453077265}, {13.5, -12.155854658319603`}}]}, 
             "Charting`Private`Tag#1"], 
            Annotation[{
              Directive[
               PointSize[0.011000000000000001`], 
               RGBColor[0.880722, 0.611041, 0.142051], 
               AbsoluteThickness[2]], 
              
              Point[{{1., -0.5868421322298626}, {2., -0.6993748786588622}, {
               3., -0.8311089945859081}, {4., -0.9866134693237668}, {
               5., -1.1715559964552955`}, {6., -1.3976454994814578`}, {
               7., -1.6701972573000121`}, {8., -2.0137394260237906`}, {
               9., -2.4544499376410123`}, {10., -3.046576534583443}, {
               11., -3.8966192824538557`}, {12., -5.280672044074869}, {
               13., -8.375594618414967}, {13.5, -14.654258783911162`}}]}, 
             "Charting`Private`Tag#2"], 
            Annotation[{
              Directive[
               PointSize[0.011000000000000001`], 
               RGBColor[0.560181, 0.691569, 0.194885], 
               AbsoluteThickness[2]], 
              
              Point[{{1., -0.9892131785282645}, {2., -1.1613745648368141`}, {
               3., -1.3547938857354493`}, {4., -1.5718225222538202`}, {
               5., -1.8180350921243158`}, {6., -2.107590415524657}, {
               7., -2.4321346082806334`}, {8., -2.831379642841505}, {
               9., -3.325226843100012}, {10., -3.964518034359965}, {
               11., -4.856407833617255}, {12., -6.307660972443128}, {
               13., -9.682684610474626}, {13.5, -16.41136038885804}}]}, 
             "Charting`Private`Tag#3"], 
            Annotation[{
              Directive[
               PointSize[0.011000000000000001`], 
               RGBColor[0.922526, 0.385626, 0.209179], 
               AbsoluteThickness[2]], 
              
              Point[{{1., -0.3974080655008029}, {2., -0.5222040484984355}, {
               3., -0.6662310989195105}, {4., -0.8428918540724826}, {
               5., -1.0550389008072223`}, {6., -1.316321292477447}, {
               7., -1.6354463406103261`}, {8., -2.0420112511715067`}, {
               9., -2.567182478495072}, {10., -3.2713916448698717`}, {
               11., -4.25924690504629}, {12., -5.791683307344207}, {
               13., -9.148231190256912}, {13.5, -15.4737456157525}}]}, 
             "Charting`Private`Tag#4"], 
            Annotation[{
              Directive[
               PointSize[0.011000000000000001`], 
               RGBColor[0.528488, 0.470624, 0.701351], 
               AbsoluteThickness[2]], 
              
              Point[{{1., -0.06221092835635452}, {
               2., -0.13789493650821968`}, {3., -0.22504950768130938`}, {
               4., -0.32652135444782154`}, {5., -0.4462740003178264}, {
               6., -0.5919905527968728}, {7., -0.7679885464225457}, {
               8., -0.9884744700262512}, {9., -1.2739771823091777`}, {
               10., -1.667346003012511}, {11., -2.2564049219451183`}, {
               12., -3.2790588048586353`}, {13., -5.887561726548465}, {
               13.5, -11.802427262805177`}}]}, "Charting`Private`Tag#5"], 
            Annotation[{
              Directive[
               PointSize[0.011000000000000001`], 
               RGBColor[0.772079, 0.431554, 0.102387], 
               AbsoluteThickness[2]], 
              
              Point[{{1., -0.22161336946103236`}, {2., -0.4677029405537676}, {
               3., -0.6597694331164582}, {4., -0.8495672742424746}, {
               5., -1.0566589379652924`}, {6., -1.2981855087601637`}, {
               7., -1.5820979523901169`}, {8., -1.934285474554366}, {
               9., -2.381760187886471}, {10., -2.9792634462198677`}, {
               11., -3.833639239453639}, {12., -5.221406728571537}, {
               13., -8.318928933459105}, {13.5, -14.598714499767883`}}]}, 
             "Charting`Private`Tag#6"]}}, <|
          "HighlightElements" -> <|
            "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
           "LayoutOptions" -> <|
            "PanelPlotLayout" -> <||>, 
             "PlotRange" -> {{
               0, 13.5}, {-17.690774116053774`, -0.06221092835635452}}, 
             "Frame" -> {{False, False}, {False, False}}, 
             "AxesOrigin" -> {0, -17.690774116053774`}, 
             "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
             "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
             "DefaultStyle" -> {
               Directive[
                PointSize[0.011000000000000001`], 
                RGBColor[0.772079, 0.431554, 0.102387], 
                AbsoluteThickness[2]], 
               Directive[
                PointSize[0.011000000000000001`], 
                RGBColor[0.528488, 0.470624, 0.701351], 
                AbsoluteThickness[2]], 
               Directive[
                PointSize[0.011000000000000001`], 
                RGBColor[0.922526, 0.385626, 0.209179], 
                AbsoluteThickness[2]], 
               Directive[
                PointSize[0.011000000000000001`], 
                RGBColor[0.560181, 0.691569, 0.194885], 
                AbsoluteThickness[2]], 
               Directive[
                PointSize[0.011000000000000001`], 
                RGBColor[0.880722, 0.611041, 0.142051], 
                AbsoluteThickness[2]], 
               Directive[
                PointSize[0.011000000000000001`], 
                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, 13.5}, {-17.690774116053774`, -0.06221092835635452}}, 
            "Frame" -> {{False, False}, {False, False}}, 
            "AxesOrigin" -> {0, -17.690774116053774`}, 
            "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
            "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
            "DefaultStyle" -> {
              Directive[
               PointSize[0.011000000000000001`], 
               RGBColor[0.772079, 0.431554, 0.102387], 
               AbsoluteThickness[2]], 
              Directive[
               PointSize[0.011000000000000001`], 
               RGBColor[0.528488, 0.470624, 0.701351], 
               AbsoluteThickness[2]], 
              Directive[
               PointSize[0.011000000000000001`], 
               RGBColor[0.922526, 0.385626, 0.209179], 
               AbsoluteThickness[2]], 
              Directive[
               PointSize[0.011000000000000001`], 
               RGBColor[0.560181, 0.691569, 0.194885], 
               AbsoluteThickness[2]], 
              Directive[
               PointSize[0.011000000000000001`], 
               RGBColor[0.880722, 0.611041, 0.142051], 
               AbsoluteThickness[2]], 
              Directive[
               PointSize[0.011000000000000001`], 
               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.011000000000000001`], 
           RGBColor[0.368417, 0.506779, 0.709798], 
           AbsoluteThickness[2]], 
          
          Point[{{1., -0.3509969933159293}, {2., -0.4300443374861272}, {
           3., -0.5207655925498909}, {4., -0.6260191808034896}, {
           5., -0.7497981146905467}, {6., -0.8997858504193476}, {
           7., -1.080301660578173}, {8., -1.3056865224325465`}, {
           9., -1.5963787771048774`}, {10., -1.9953073970570494`}, {
           11., -2.590370066473417}, {12., -3.619700684365513}, {
           13., -6.235969453077265}, {13.5, -12.155854658319603`}}]}, 
         "Charting`Private`Tag#1"], 
        Annotation[{
          Directive[
           PointSize[0.011000000000000001`], 
           RGBColor[0.880722, 0.611041, 0.142051], 
           AbsoluteThickness[2]], 
          
          Point[{{1., -0.5868421322298626}, {2., -0.6993748786588622}, {
           3., -0.8311089945859081}, {4., -0.9866134693237668}, {
           5., -1.1715559964552955`}, {6., -1.3976454994814578`}, {
           7., -1.6701972573000121`}, {8., -2.0137394260237906`}, {
           9., -2.4544499376410123`}, {10., -3.046576534583443}, {
           11., -3.8966192824538557`}, {12., -5.280672044074869}, {
           13., -8.375594618414967}, {13.5, -14.654258783911162`}}]}, 
         "Charting`Private`Tag#2"], 
        Annotation[{
          Directive[
           PointSize[0.011000000000000001`], 
           RGBColor[0.560181, 0.691569, 0.194885], 
           AbsoluteThickness[2]], 
          
          Point[{{1., -0.9892131785282645}, {2., -1.1613745648368141`}, {
           3., -1.3547938857354493`}, {4., -1.5718225222538202`}, {
           5., -1.8180350921243158`}, {6., -2.107590415524657}, {
           7., -2.4321346082806334`}, {8., -2.831379642841505}, {
           9., -3.325226843100012}, {10., -3.964518034359965}, {
           11., -4.856407833617255}, {12., -6.307660972443128}, {
           13., -9.682684610474626}, {13.5, -16.41136038885804}}]}, 
         "Charting`Private`Tag#3"], 
        Annotation[{
          Directive[
           PointSize[0.011000000000000001`], 
           RGBColor[0.922526, 0.385626, 0.209179], 
           AbsoluteThickness[2]], 
          
          Point[{{1., -0.3974080655008029}, {2., -0.5222040484984355}, {
           3., -0.6662310989195105}, {4., -0.8428918540724826}, {
           5., -1.0550389008072223`}, {6., -1.316321292477447}, {
           7., -1.6354463406103261`}, {8., -2.0420112511715067`}, {
           9., -2.567182478495072}, {10., -3.2713916448698717`}, {
           11., -4.25924690504629}, {12., -5.791683307344207}, {
           13., -9.148231190256912}, {13.5, -15.4737456157525}}]}, 
         "Charting`Private`Tag#4"], 
        Annotation[{
          Directive[
           PointSize[0.011000000000000001`], 
           RGBColor[0.528488, 0.470624, 0.701351], 
           AbsoluteThickness[2]], 
          
          Point[{{1., -0.06221092835635452}, {2., -0.13789493650821968`}, {
           3., -0.22504950768130938`}, {4., -0.32652135444782154`}, {
           5., -0.4462740003178264}, {6., -0.5919905527968728}, {
           7., -0.7679885464225457}, {8., -0.9884744700262512}, {
           9., -1.2739771823091777`}, {10., -1.667346003012511}, {
           11., -2.2564049219451183`}, {12., -3.2790588048586353`}, {
           13., -5.887561726548465}, {13.5, -11.802427262805177`}}]}, 
         "Charting`Private`Tag#5"], 
        Annotation[{
          Directive[
           PointSize[0.011000000000000001`], 
           RGBColor[0.772079, 0.431554, 0.102387], 
           AbsoluteThickness[2]], 
          
          Point[{{1., -0.22161336946103236`}, {2., -0.4677029405537676}, {
           3., -0.6597694331164582}, {4., -0.8495672742424746}, {
           5., -1.0566589379652924`}, {6., -1.2981855087601637`}, {
           7., -1.5820979523901169`}, {8., -1.934285474554366}, {
           9., -2.381760187886471}, {10., -2.9792634462198677`}, {
           11., -3.833639239453639}, {12., -5.221406728571537}, {
           13., -8.318928933459105}, {13.5, -14.598714499767883`}}]}, 
         "Charting`Private`Tag#6"]}}, <|
      "HighlightElements" -> <|
        "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
       "LayoutOptions" -> <|
        "PanelPlotLayout" -> <||>, 
         "PlotRange" -> {{
           0, 13.5}, {-17.690774116053774`, -0.06221092835635452}}, 
         "Frame" -> {{False, False}, {False, False}}, 
         "AxesOrigin" -> {0, -17.690774116053774`}, 
         "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
         "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
         "DefaultStyle" -> {
           Directive[
            PointSize[0.011000000000000001`], 
            RGBColor[0.772079, 0.431554, 0.102387], 
            AbsoluteThickness[2]], 
           Directive[
            PointSize[0.011000000000000001`], 
            RGBColor[0.528488, 0.470624, 0.701351], 
            AbsoluteThickness[2]], 
           Directive[
            PointSize[0.011000000000000001`], 
            RGBColor[0.922526, 0.385626, 0.209179], 
            AbsoluteThickness[2]], 
           Directive[
            PointSize[0.011000000000000001`], 
            RGBColor[0.560181, 0.691569, 0.194885], 
            AbsoluteThickness[2]], 
           Directive[
            PointSize[0.011000000000000001`], 
            RGBColor[0.880722, 0.611041, 0.142051], 
            AbsoluteThickness[2]], 
           Directive[
            PointSize[0.011000000000000001`], 
            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"]], {{}, {}}}, {{}, 
    InterpretationBox[{
      TagBox[{{}, {}, 
        TagBox[
         {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
          0.011000000000000001`], AbsoluteThickness[2], 
          LineBox[{{1., -0.3509969933159293}, {2., -0.4300443374861272}, {
           3., -0.5207655925498909}, {4., -0.6260191808034896}, {
           5., -0.7497981146905467}, {6., -0.8997858504193476}, {
           7., -1.080301660578173}, {8., -1.3056865224325465`}, {
           9., -1.5963787771048774`}, {10., -1.9953073970570494`}, {
           11., -2.590370066473417}, {12., -3.619700684365513}, {
           13., -6.235969453077265}, {13.5, -12.155854658319603`}}]},
         Annotation[#, "Charting`Private`Tag#1"]& ], 
        TagBox[
         {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
          0.011000000000000001`], AbsoluteThickness[2], 
          LineBox[{{1., -0.5868421322298626}, {2., -0.6993748786588622}, {
           3., -0.8311089945859081}, {4., -0.9866134693237668}, {
           5., -1.1715559964552955`}, {6., -1.3976454994814578`}, {
           7., -1.6701972573000121`}, {8., -2.0137394260237906`}, {
           9., -2.4544499376410123`}, {10., -3.046576534583443}, {
           11., -3.8966192824538557`}, {12., -5.280672044074869}, {
           13., -8.375594618414967}, {13.5, -14.654258783911162`}}]},
         Annotation[#, "Charting`Private`Tag#2"]& ], 
        TagBox[
         {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
          0.011000000000000001`], AbsoluteThickness[2], 
          LineBox[{{1., -0.9892131785282645}, {2., -1.1613745648368141`}, {
           3., -1.3547938857354493`}, {4., -1.5718225222538202`}, {
           5., -1.8180350921243158`}, {6., -2.107590415524657}, {
           7., -2.4321346082806334`}, {8., -2.831379642841505}, {
           9., -3.325226843100012}, {10., -3.964518034359965}, {
           11., -4.856407833617255}, {12., -6.307660972443128}, {
           13., -9.682684610474626}, {13.5, -16.41136038885804}}]},
         Annotation[#, "Charting`Private`Tag#3"]& ], 
        TagBox[
         {RGBColor[0.922526, 0.385626, 0.209179], PointSize[
          0.011000000000000001`], AbsoluteThickness[2], 
          LineBox[{{1., -0.3974080655008029}, {2., -0.5222040484984355}, {
           3., -0.6662310989195105}, {4., -0.8428918540724826}, {
           5., -1.0550389008072223`}, {6., -1.316321292477447}, {
           7., -1.6354463406103261`}, {8., -2.0420112511715067`}, {
           9., -2.567182478495072}, {10., -3.2713916448698717`}, {
           11., -4.25924690504629}, {12., -5.791683307344207}, {
           13., -9.148231190256912}, {13.5, -15.4737456157525}}]},
         Annotation[#, "Charting`Private`Tag#4"]& ], 
        TagBox[
         {RGBColor[0.528488, 0.470624, 0.701351], PointSize[
          0.011000000000000001`], AbsoluteThickness[2], 
          LineBox[{{1., -0.06221092835635452}, {2., -0.13789493650821968`}, {
           3., -0.22504950768130938`}, {4., -0.32652135444782154`}, {
           5., -0.4462740003178264}, {6., -0.5919905527968728}, {
           7., -0.7679885464225457}, {8., -0.9884744700262512}, {
           9., -1.2739771823091777`}, {10., -1.667346003012511}, {
           11., -2.2564049219451183`}, {12., -3.2790588048586353`}, {
           13., -5.887561726548465}, {13.5, -11.802427262805177`}}]},
         Annotation[#, "Charting`Private`Tag#5"]& ], 
        TagBox[
         {RGBColor[0.772079, 0.431554, 0.102387], PointSize[
          0.011000000000000001`], AbsoluteThickness[2], 
          LineBox[{{1., -0.22161336946103236`}, {2., -0.4677029405537676}, {
           3., -0.6597694331164582}, {4., -0.8495672742424746}, {
           5., -1.0566589379652924`}, {6., -1.2981855087601637`}, {
           7., -1.5820979523901169`}, {8., -1.934285474554366}, {
           9., -2.381760187886471}, {10., -2.9792634462198677`}, {
           11., -3.833639239453639}, {12., -5.221406728571537}, {
           13., -8.318928933459105}, {13.5, -14.598714499767883`}}]},
         Annotation[#, "Charting`Private`Tag#6"]& ]},
       {"WolframDynamicHighlight", <|
        "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], 
      StyleBox[
       DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, 
         Slot["HighlightElements"], 
         Slot["LayoutOptions"], 
         Slot["Meta"], 
         Charting`HighlightActionFunction["DynamicHighlight", {{{}, {}, 
            Annotation[{
              Hue[0.67, 0.6, 0.6], 
              Directive[
               PointSize[0.011000000000000001`], 
               RGBColor[0.368417, 0.506779, 0.709798], 
               AbsoluteThickness[2]], 
              
              Line[{{1., -0.3509969933159293}, {2., -0.4300443374861272}, {
               3., -0.5207655925498909}, {4., -0.6260191808034896}, {
               5., -0.7497981146905467}, {6., -0.8997858504193476}, {
               7., -1.080301660578173}, {8., -1.3056865224325465`}, {
               9., -1.5963787771048774`}, {10., -1.9953073970570494`}, {
               11., -2.590370066473417}, {12., -3.619700684365513}, {
               13., -6.235969453077265}, {13.5, -12.155854658319603`}}]}, 
             "Charting`Private`Tag#1"], 
            Annotation[{
              Hue[0.9060679774997897, 0.6, 0.6], 
              Directive[
               PointSize[0.011000000000000001`], 
               RGBColor[0.880722, 0.611041, 0.142051], 
               AbsoluteThickness[2]], 
              
              Line[{{1., -0.5868421322298626}, {2., -0.6993748786588622}, {
               3., -0.8311089945859081}, {4., -0.9866134693237668}, {
               5., -1.1715559964552955`}, {6., -1.3976454994814578`}, {
               7., -1.6701972573000121`}, {8., -2.0137394260237906`}, {
               9., -2.4544499376410123`}, {10., -3.046576534583443}, {
               11., -3.8966192824538557`}, {12., -5.280672044074869}, {
               13., -8.375594618414967}, {13.5, -14.654258783911162`}}]}, 
             "Charting`Private`Tag#2"], 
            Annotation[{
              Hue[0.1421359549995791, 0.6, 0.6], 
              Directive[
               PointSize[0.011000000000000001`], 
               RGBColor[0.560181, 0.691569, 0.194885], 
               AbsoluteThickness[2]], 
              
              Line[{{1., -0.9892131785282645}, {2., -1.1613745648368141`}, {
               3., -1.3547938857354493`}, {4., -1.5718225222538202`}, {
               5., -1.8180350921243158`}, {6., -2.107590415524657}, {
               7., -2.4321346082806334`}, {8., -2.831379642841505}, {
               9., -3.325226843100012}, {10., -3.964518034359965}, {
               11., -4.856407833617255}, {12., -6.307660972443128}, {
               13., -9.682684610474626}, {13.5, -16.41136038885804}}]}, 
             "Charting`Private`Tag#3"], 
            Annotation[{
              Hue[0.37820393249936934`, 0.6, 0.6], 
              Directive[
               PointSize[0.011000000000000001`], 
               RGBColor[0.922526, 0.385626, 0.209179], 
               AbsoluteThickness[2]], 
              Line[{{1., -0.3974080655008029}, {2., -0.5222040484984355}, {
               3., -0.6662310989195105}, {4., -0.8428918540724826}, {
               5., -1.0550389008072223`}, {6., -1.316321292477447}, {
               7., -1.6354463406103261`}, {8., -2.0420112511715067`}, {
               9., -2.567182478495072}, {10., -3.2713916448698717`}, {
               11., -4.25924690504629}, {12., -5.791683307344207}, {
               13., -9.148231190256912}, {13.5, -15.4737456157525}}]}, 
             "Charting`Private`Tag#4"], 
            Annotation[{
              Hue[0.6142719099991583, 0.6, 0.6], 
              Directive[
               PointSize[0.011000000000000001`], 
               RGBColor[0.528488, 0.470624, 0.701351], 
               AbsoluteThickness[2]], 
              
              Line[{{1., -0.06221092835635452}, {2., -0.13789493650821968`}, {
               3., -0.22504950768130938`}, {4., -0.32652135444782154`}, {
               5., -0.4462740003178264}, {6., -0.5919905527968728}, {
               7., -0.7679885464225457}, {8., -0.9884744700262512}, {
               9., -1.2739771823091777`}, {10., -1.667346003012511}, {
               11., -2.2564049219451183`}, {12., -3.2790588048586353`}, {
               13., -5.887561726548465}, {13.5, -11.802427262805177`}}]}, 
             "Charting`Private`Tag#5"], 
            Annotation[{
              Hue[0.8503398874989481, 0.6, 0.6], 
              Directive[
               PointSize[0.011000000000000001`], 
               RGBColor[0.772079, 0.431554, 0.102387], 
               AbsoluteThickness[2]], 
              
              Line[{{1., -0.22161336946103236`}, {2., -0.4677029405537676}, {
               3., -0.6597694331164582}, {4., -0.8495672742424746}, {
               5., -1.0566589379652924`}, {6., -1.2981855087601637`}, {
               7., -1.5820979523901169`}, {8., -1.934285474554366}, {
               9., -2.381760187886471}, {10., -2.9792634462198677`}, {
               11., -3.833639239453639}, {12., -5.221406728571537}, {
               13., -8.318928933459105}, {13.5, -14.598714499767883`}}]}, 
             "Charting`Private`Tag#6"]}}, <|
          "HighlightElements" -> <|
            "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
           "LayoutOptions" -> <|
            "PanelPlotLayout" -> <||>, 
             "PlotRange" -> {{
               0, 13.5}, {-17.690774116053774`, -0.06221092835635452}}, 
             "Frame" -> {{False, False}, {False, False}}, 
             "AxesOrigin" -> {0, -17.690774116053774`}, 
             "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
             "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
             "DefaultStyle" -> {
               Directive[
                PointSize[0.011000000000000001`], 
                RGBColor[0.772079, 0.431554, 0.102387], 
                AbsoluteThickness[2]], 
               Directive[
                PointSize[0.011000000000000001`], 
                RGBColor[0.528488, 0.470624, 0.701351], 
                AbsoluteThickness[2]], 
               Directive[
                PointSize[0.011000000000000001`], 
                RGBColor[0.922526, 0.385626, 0.209179], 
                AbsoluteThickness[2]], 
               Directive[
                PointSize[0.011000000000000001`], 
                RGBColor[0.560181, 0.691569, 0.194885], 
                AbsoluteThickness[2]], 
               Directive[
                PointSize[0.011000000000000001`], 
                RGBColor[0.880722, 0.611041, 0.142051], 
                AbsoluteThickness[2]], 
               Directive[
                PointSize[0.011000000000000001`], 
                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, 13.5}, {-17.690774116053774`, -0.06221092835635452}}, 
            "Frame" -> {{False, False}, {False, False}}, 
            "AxesOrigin" -> {0, -17.690774116053774`}, 
            "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
            "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
            "DefaultStyle" -> {
              Directive[
               PointSize[0.011000000000000001`], 
               RGBColor[0.772079, 0.431554, 0.102387], 
               AbsoluteThickness[2]], 
              Directive[
               PointSize[0.011000000000000001`], 
               RGBColor[0.528488, 0.470624, 0.701351], 
               AbsoluteThickness[2]], 
              Directive[
               PointSize[0.011000000000000001`], 
               RGBColor[0.922526, 0.385626, 0.209179], 
               AbsoluteThickness[2]], 
              Directive[
               PointSize[0.011000000000000001`], 
               RGBColor[0.560181, 0.691569, 0.194885], 
               AbsoluteThickness[2]], 
              Directive[
               PointSize[0.011000000000000001`], 
               RGBColor[0.880722, 0.611041, 0.142051], 
               AbsoluteThickness[2]], 
              Directive[
               PointSize[0.011000000000000001`], 
               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[{
          Hue[0.67, 0.6, 0.6], 
          Directive[
           PointSize[0.011000000000000001`], 
           RGBColor[0.368417, 0.506779, 0.709798], 
           AbsoluteThickness[2]], 
          
          Line[{{1., -0.3509969933159293}, {2., -0.4300443374861272}, {
           3., -0.5207655925498909}, {4., -0.6260191808034896}, {
           5., -0.7497981146905467}, {6., -0.8997858504193476}, {
           7., -1.080301660578173}, {8., -1.3056865224325465`}, {
           9., -1.5963787771048774`}, {10., -1.9953073970570494`}, {
           11., -2.590370066473417}, {12., -3.619700684365513}, {
           13., -6.235969453077265}, {13.5, -12.155854658319603`}}]}, 
         "Charting`Private`Tag#1"], 
        Annotation[{
          Hue[0.9060679774997897, 0.6, 0.6], 
          Directive[
           PointSize[0.011000000000000001`], 
           RGBColor[0.880722, 0.611041, 0.142051], 
           AbsoluteThickness[2]], 
          
          Line[{{1., -0.5868421322298626}, {2., -0.6993748786588622}, {
           3., -0.8311089945859081}, {4., -0.9866134693237668}, {
           5., -1.1715559964552955`}, {6., -1.3976454994814578`}, {
           7., -1.6701972573000121`}, {8., -2.0137394260237906`}, {
           9., -2.4544499376410123`}, {10., -3.046576534583443}, {
           11., -3.8966192824538557`}, {12., -5.280672044074869}, {
           13., -8.375594618414967}, {13.5, -14.654258783911162`}}]}, 
         "Charting`Private`Tag#2"], 
        Annotation[{
          Hue[0.1421359549995791, 0.6, 0.6], 
          Directive[
           PointSize[0.011000000000000001`], 
           RGBColor[0.560181, 0.691569, 0.194885], 
           AbsoluteThickness[2]], 
          
          Line[{{1., -0.9892131785282645}, {2., -1.1613745648368141`}, {
           3., -1.3547938857354493`}, {4., -1.5718225222538202`}, {
           5., -1.8180350921243158`}, {6., -2.107590415524657}, {
           7., -2.4321346082806334`}, {8., -2.831379642841505}, {
           9., -3.325226843100012}, {10., -3.964518034359965}, {
           11., -4.856407833617255}, {12., -6.307660972443128}, {
           13., -9.682684610474626}, {13.5, -16.41136038885804}}]}, 
         "Charting`Private`Tag#3"], 
        Annotation[{
          Hue[0.37820393249936934`, 0.6, 0.6], 
          Directive[
           PointSize[0.011000000000000001`], 
           RGBColor[0.922526, 0.385626, 0.209179], 
           AbsoluteThickness[2]], 
          
          Line[{{1., -0.3974080655008029}, {2., -0.5222040484984355}, {
           3., -0.6662310989195105}, {4., -0.8428918540724826}, {
           5., -1.0550389008072223`}, {6., -1.316321292477447}, {
           7., -1.6354463406103261`}, {8., -2.0420112511715067`}, {
           9., -2.567182478495072}, {10., -3.2713916448698717`}, {
           11., -4.25924690504629}, {12., -5.791683307344207}, {
           13., -9.148231190256912}, {13.5, -15.4737456157525}}]}, 
         "Charting`Private`Tag#4"], 
        Annotation[{
          Hue[0.6142719099991583, 0.6, 0.6], 
          Directive[
           PointSize[0.011000000000000001`], 
           RGBColor[0.528488, 0.470624, 0.701351], 
           AbsoluteThickness[2]], 
          
          Line[{{1., -0.06221092835635452}, {2., -0.13789493650821968`}, {
           3., -0.22504950768130938`}, {4., -0.32652135444782154`}, {
           5., -0.4462740003178264}, {6., -0.5919905527968728}, {
           7., -0.7679885464225457}, {8., -0.9884744700262512}, {
           9., -1.2739771823091777`}, {10., -1.667346003012511}, {
           11., -2.2564049219451183`}, {12., -3.2790588048586353`}, {
           13., -5.887561726548465}, {13.5, -11.802427262805177`}}]}, 
         "Charting`Private`Tag#5"], 
        Annotation[{
          Hue[0.8503398874989481, 0.6, 0.6], 
          Directive[
           PointSize[0.011000000000000001`], 
           RGBColor[0.772079, 0.431554, 0.102387], 
           AbsoluteThickness[2]], 
          
          Line[{{1., -0.22161336946103236`}, {2., -0.4677029405537676}, {
           3., -0.6597694331164582}, {4., -0.8495672742424746}, {
           5., -1.0566589379652924`}, {6., -1.2981855087601637`}, {
           7., -1.5820979523901169`}, {8., -1.934285474554366}, {
           9., -2.381760187886471}, {10., -2.9792634462198677`}, {
           11., -3.833639239453639}, {12., -5.221406728571537}, {
           13., -8.318928933459105}, {13.5, -14.598714499767883`}}]}, 
         "Charting`Private`Tag#6"]}}, <|
      "HighlightElements" -> <|
        "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
       "LayoutOptions" -> <|
        "PanelPlotLayout" -> <||>, 
         "PlotRange" -> {{
           0, 13.5}, {-17.690774116053774`, -0.06221092835635452}}, 
         "Frame" -> {{False, False}, {False, False}}, 
         "AxesOrigin" -> {0, -17.690774116053774`}, 
         "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
         "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
         "DefaultStyle" -> {
           Directive[
            PointSize[0.011000000000000001`], 
            RGBColor[0.772079, 0.431554, 0.102387], 
            AbsoluteThickness[2]], 
           Directive[
            PointSize[0.011000000000000001`], 
            RGBColor[0.528488, 0.470624, 0.701351], 
            AbsoluteThickness[2]], 
           Directive[
            PointSize[0.011000000000000001`], 
            RGBColor[0.922526, 0.385626, 0.209179], 
            AbsoluteThickness[2]], 
           Directive[
            PointSize[0.011000000000000001`], 
            RGBColor[0.560181, 0.691569, 0.194885], 
            AbsoluteThickness[2]], 
           Directive[
            PointSize[0.011000000000000001`], 
            RGBColor[0.880722, 0.611041, 0.142051], 
            AbsoluteThickness[2]], 
           Directive[
            PointSize[0.011000000000000001`], 
            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->{
    FormBox[
     SubscriptBox["N", "f"], TraditionalForm], 
    FormBox["M", TraditionalForm]},
  AxesOrigin->{1, 0},
  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]],
  ImageSize->Large,
  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->All,
  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, {{-11.512925464970229`, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "5"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm], {0.01, 0.}}, {-4.605170185988091, 
       FormBox[
        TagBox[
         InterpretationBox[
          StyleBox["\"0.01\"", ShowStringCharacters -> False], 
          0.01`15.954589770191003, AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 2}]& ], TraditionalForm], {0.01, 
       0.}}, {-18.420680743952367`, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-16.11809565095832, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-13.815510557964274`, 
       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.}}, {
      2.302585092994046, 
       FormBox[
        TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}}}]]], "Output",
 CellChangeTimes->{{3.936721212466801*^9, 3.936721221332362*^9}, 
   3.941541441172453*^9},
 CellLabel->
  "Out[6221]=",ExpressionUUID->"936afcc5-eae5-4590-b126-c82447a5f764"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1710, 955},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"14.0 for Mac OS X ARM (64-bit) (December 12, 2023)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"f6028edd-c1aa-4221-a464-6891d235fdaa"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 400, 10, 70, "Section",ExpressionUUID->"b6092ae3-2d3d-494d-8866-b8298745ae9e"],
Cell[983, 34, 6733, 110, 136, "Input",ExpressionUUID->"dbce0093-f8a3-4643-8c65-46c3103ae958"],
Cell[7719, 146, 545, 12, 30, "Input",ExpressionUUID->"4cf4a791-1af3-49ba-b78a-e4ea6542d438"],
Cell[CellGroupData[{
Cell[8289, 162, 734, 18, 150, "Input",ExpressionUUID->"c85227f9-71c6-4e58-aac4-b2b7c8d269a2"],
Cell[9026, 182, 1011, 19, 37, "Output",ExpressionUUID->"8a5271f2-f65e-4760-8bb2-4eb4a3e46227"],
Cell[10040, 203, 1021, 19, 37, "Output",ExpressionUUID->"0a0d5c90-fe15-4518-add6-c362b865efca"],
Cell[11064, 224, 1030, 19, 37, "Output",ExpressionUUID->"d5826540-1597-437a-b911-b6374b1717d3"]
}, Open  ]],
Cell[12109, 246, 5481, 92, 136, "Input",ExpressionUUID->"5311d89e-a0cb-438e-9139-1c5be2828ed6"],
Cell[CellGroupData[{
Cell[17615, 342, 729, 18, 150, "Input",ExpressionUUID->"b0e90e12-34fc-4ec5-94a9-6612a7e88561"],
Cell[18347, 362, 963, 18, 37, "Output",ExpressionUUID->"47d0fb18-e691-4860-b592-24ebe3185c46"],
Cell[19313, 382, 967, 18, 37, "Output",ExpressionUUID->"eeed20f7-bdb5-447f-b2e7-e5ed34b273be"],
Cell[20283, 402, 971, 18, 37, "Output",ExpressionUUID->"55c25013-204f-462d-8bc2-7710f94b79a1"]
}, Open  ]],
Cell[21269, 423, 7619, 128, 178, "Input",ExpressionUUID->"e0283f0a-7bec-4599-90e6-daf78f1d70b2"],
Cell[CellGroupData[{
Cell[28913, 555, 825, 20, 192, "Input",ExpressionUUID->"3f2de889-9f2c-4591-9706-b8f7211d5fb6"],
Cell[29741, 577, 981, 19, 37, "Output",ExpressionUUID->"a9ee0b10-0143-4a55-991c-f284613ec565"],
Cell[30725, 598, 963, 19, 37, "Output",ExpressionUUID->"15cdc66c-0607-4cdf-b5d0-581612037950"],
Cell[31691, 619, 963, 19, 34, "Output",ExpressionUUID->"e684477d-17cc-4d5a-8b8d-dbda9aaecf23"],
Cell[32657, 640, 974, 19, 37, "Output",ExpressionUUID->"1f495308-ed5c-48fa-9277-3de8a85b4315"]
}, Open  ]],
Cell[33646, 662, 6273, 110, 233, "Input",ExpressionUUID->"1aaf9d88-c859-402e-adbc-7785211fa886"],
Cell[CellGroupData[{
Cell[39944, 776, 821, 21, 192, "Input",ExpressionUUID->"d935df49-16e3-4d4e-b030-6ebfd355d073"],
Cell[40768, 799, 934, 17, 37, "Output",ExpressionUUID->"d88294c7-a966-4054-9b55-02ef79f218de"],
Cell[41705, 818, 941, 18, 37, "Output",ExpressionUUID->"e23a564b-fb6b-4bcc-9274-2eeba54e452a"],
Cell[42649, 838, 939, 18, 37, "Output",ExpressionUUID->"9c724bf0-4f8b-40be-9506-d07d08e4e85b"],
Cell[43591, 858, 945, 18, 37, "Output",ExpressionUUID->"70ab3e4f-8bc6-40d3-8f4a-820b029c94a7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[44573, 881, 9390, 247, 250, "Input",ExpressionUUID->"9914dde8-c827-4335-89ae-f93e90d5eb1b"],
Cell[53966, 1130, 42998, 865, 385, "Output",ExpressionUUID->"47ae0793-c57d-46c4-84c5-54ca26e93c16"]
}, Open  ]],
Cell[CellGroupData[{
Cell[97001, 2000, 12146, 320, 330, "Input",ExpressionUUID->"ee645126-d8c6-4ef3-9b63-a9f1eda00702"],
Cell[109150, 2322, 59585, 1209, 382, "Output",ExpressionUUID->"dc9d8ec2-9ce4-4711-9f51-99c1e9fa34aa"]
}, Open  ]],
Cell[168750, 3534, 479, 11, 94, "Input",ExpressionUUID->"5155decc-0106-4756-8374-536854f4c429"],
Cell[169232, 3547, 569, 12, 94, "Input",ExpressionUUID->"bf2552d5-6a5f-4434-832b-c96ed9b6fdbf"],
Cell[169804, 3561, 548, 11, 94, "Input",ExpressionUUID->"f09acdf7-4914-4ed9-85b1-b7861f87a7ef"],
Cell[170355, 3574, 598, 12, 94, "Input",ExpressionUUID->"a2768c3b-cced-4765-9a76-705b8e0c65d7"],
Cell[170956, 3588, 595, 12, 94, "Input",ExpressionUUID->"a8754e14-943d-450c-911a-5454ff27dcdf"],
Cell[171554, 3602, 598, 12, 94, "Input",ExpressionUUID->"fdd062a3-0eaa-4abf-97fe-83ec86d1d9e2"],
Cell[172155, 3616, 682, 13, 94, "Input",ExpressionUUID->"404b9b75-5383-4204-9423-915afc909f54"],
Cell[172840, 3631, 721, 14, 94, "Input",ExpressionUUID->"9ce6ff89-ca77-48fd-988f-f727741d4b3d"],
Cell[173564, 3647, 580, 12, 94, "Input",ExpressionUUID->"af5bab2a-cd0d-4308-ba13-0549efd15f70"],
Cell[174147, 3661, 580, 12, 94, "Input",ExpressionUUID->"c4944397-aa0b-4030-9426-508726c03f69"],
Cell[174730, 3675, 694, 14, 94, "Input",ExpressionUUID->"40522efa-939d-48a1-9202-86204dc33fa5"],
Cell[175427, 3691, 763, 15, 94, "Input",ExpressionUUID->"a8091e6d-7981-4649-b6ca-57cf4564ab3f"],
Cell[176193, 3708, 817, 16, 94, "Input",ExpressionUUID->"28ed738c-8500-41bd-ae58-6bbcbcc2b295"],
Cell[177013, 3726, 634, 17, 94, "Input",ExpressionUUID->"4e7382aa-191a-4d4f-adf3-f7285f55742c"],
Cell[CellGroupData[{
Cell[177672, 3747, 7068, 198, 157, "Input",ExpressionUUID->"1aa72b34-778d-4079-8fb5-3c5b20fb4c21"],
Cell[184743, 3947, 44634, 914, 385, "Output",ExpressionUUID->"936afcc5-eae5-4590-b126-c82447a5f764"]
}, Open  ]]
}, Open  ]]
}
]
*)