GeomComp_Compute.nb

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

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

(* CreatedBy='Mathematica 12.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    351728,       7279]
NotebookOptionsPosition[    333725,       7052]
NotebookOutlinePosition[    334151,       7069]
CellTagsIndexPosition[    334108,       7066]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Preliminaries", "Section",
 CellChangeTimes->{{3.7952798002355947`*^9, 
  3.7952798072754707`*^9}},ExpressionUUID->"63fd471e-f869-4c83-a479-\
2f504b489c95"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"AbundSeries", "=", "\"\<GoldenRatio\>\""}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Which", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"AbundSeries", "\[Equal]", "\"\<GoldenRatio\>\""}], ",", 
    "\[IndentingNewLine]", "  ", 
    RowBox[{"SetDirectory", "[", 
     RowBox[{"FileNameJoin", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"NotebookDirectory", "[", "]"}], ",", 
        "\"\<../results/GoldenRatio/\>\""}], "}"}], "]"}], "]"}], " ", ",", 
    "\[IndentingNewLine]", 
    RowBox[{"AbundSeries", "\[Equal]", "\"\<Arithmetic\>\""}], ",", 
    "\[IndentingNewLine]", "  ", 
    RowBox[{"SetDirectory", "[", 
     RowBox[{"FileNameJoin", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"NotebookDirectory", "[", "]"}], ",", 
        "\"\<../results/Arithmetic/\>\""}], "}"}], "]"}], "]"}]}], " ", 
   "\[IndentingNewLine]", "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.794697513688983*^9, 3.7946975234793053`*^9}, {
   3.794825243340016*^9, 3.794825245250126*^9}, 3.796152930080925*^9, {
   3.796488809607787*^9, 3.7964888101824512`*^9}, {3.800479204289544*^9, 
   3.800479278933015*^9}, {3.815846192065723*^9, 3.815846219350778*^9}, {
   3.815846256767322*^9, 3.815846285428897*^9}, {3.8212358846987123`*^9, 
   3.8212358855213413`*^9}, {3.821235919112296*^9, 3.821235919336444*^9}, {
   3.8289129747770567`*^9, 3.8289129958154078`*^9}, {3.828913417179394*^9, 
   3.8289134199814997`*^9}, {3.8290043425259743`*^9, 3.829004344156818*^9}, {
   3.8290044330106287`*^9, 3.82900444016115*^9}, {3.8290044928314466`*^9, 
   3.829004496310639*^9}, {3.829004858873109*^9, 3.8290048590246897`*^9}, {
   3.829066217860327*^9, 3.829066225555996*^9}, 3.8290664528591537`*^9, {
   3.829067011965187*^9, 3.829067023251541*^9}, {3.8290670753620367`*^9, 
   3.829067076841352*^9}, {3.829067646940063*^9, 3.82906764711516*^9}, 
   3.829329667037677*^9, {3.829329743514285*^9, 3.829329753928341*^9}, {
   3.829329845853113*^9, 3.829329847396776*^9}, {3.829329932157372*^9, 
   3.829329936292638*^9}, 3.829329992363991*^9, {3.829330131861845*^9, 
   3.8293301413732777`*^9}, {3.832881600309758*^9, 3.832881619580842*^9}, {
   3.834153562151393*^9, 3.8341535636544733`*^9}, 3.8341537789117737`*^9, {
   3.8341538863470373`*^9, 3.834153888186369*^9}, {3.8341541577214603`*^9, 
   3.834154161608376*^9}, {3.834154204495596*^9, 3.8341542047027473`*^9}, {
   3.83477711894217*^9, 3.834777121406135*^9}, {3.834777181955917*^9, 
   3.834777195171358*^9}, {3.8347772388348*^9, 3.8347772822883053`*^9}, {
   3.913822161789947*^9, 3.913822163885716*^9}, {3.913822541187831*^9, 
   3.913822543411603*^9}, 3.9138269767119207`*^9, 
   3.913827449792925*^9},ExpressionUUID->"e23c2fa1-0572-47cf-be03-\
5335c64bba92"],

Cell[CellGroupData[{

Cell["\<\
Define functions to compute fisher matrix and expected fisher matrix\
\>", "Subsection",
 CellChangeTimes->{{3.793470108632502*^9, 3.793470120624035*^9}, {
   3.794782794656315*^9, 3.794782795632275*^9}, 3.7947828811010838`*^9, {
   3.8004075986909437`*^9, 3.800407638528901*^9}, {3.815477432291995*^9, 
   3.815477438267449*^9}, {3.815846360993677*^9, 3.815846364353545*^9}, 
   3.815846402735938*^9},ExpressionUUID->"04fcc283-f6be-445d-a28a-\
0b9c6525ca06"],

Cell["\<\
Definition using Hessian (applies under mild regularity conditions):\
\>", "Text",
 CellChangeTimes->{{3.794862510730666*^9, 3.7948625571524563`*^9}, 
   3.795279377290113*^9, {3.800407576699132*^9, 
   3.8004075804751368`*^9}},ExpressionUUID->"7ef98003-da76-4c3e-ac73-\
36a89d184865"],

Cell[BoxData[
 RowBox[{
  RowBox[{"fisher", "[", 
   RowBox[{"fun_", ",", "pars_"}], "]"}], ":=", 
  RowBox[{"-", 
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"Apply", "[", 
      RowBox[{"fun", ",", "pars"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"pars", ",", "2"}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.792508985533945*^9, 3.792509013065542*^9}, {
  3.792509109926668*^9, 3.792509110396137*^9}, {3.792509158064125*^9, 
  3.792509182346109*^9}, {3.792509242780163*^9, 3.7925092863634872`*^9}, {
  3.792509569014029*^9, 3.79250957238813*^9}, {3.792509672105785*^9, 
  3.7925097026000013`*^9}, {3.793468547141547*^9, 3.7934685678200817`*^9}, {
  3.793469899724435*^9, 3.793469929250779*^9}, {3.793470096913563*^9, 
  3.793470103016612*^9}, {3.7947827713869677`*^9, 3.7947827804010153`*^9}, {
  3.815846352195281*^9, 3.815846390976542*^9}},
 CellLabel->
  "In[532]:=",ExpressionUUID->"1b47023d-c3c6-47d0-93ae-9f73851b3166"],

Cell[TextData[{
 "Expected Fisher Matrix given experimental design (",
 StyleBox["unused",
  FontSlant->"Italic"],
 ")"
}], "Text",
 CellChangeTimes->{{3.815846382154697*^9, 3.815846384235182*^9}, {
  3.817342402845545*^9, 3.817342406253381*^9}, {3.817342560471755*^9, 
  3.8173425606712437`*^9}},ExpressionUUID->"eafd0f89-139d-4fa0-a29a-\
9a32754b2add"],

Cell[BoxData[
 RowBox[{
  RowBox[{"EFisher", "[", 
   RowBox[{
   "FisherMatrix_", ",", "func_", ",", "PDistE_", ",", "\[CapitalNu]DistE_", 
    ",", "subs_"}], "]"}], ":=", "\[IndentingNewLine]", 
  RowBox[{"Expectation", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Expectation", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"FisherMatrix", "/.", "subs"}], ",", 
      RowBox[{"x", "\[Distributed]", " ", 
       RowBox[{"PoissonDistribution", "[", 
        RowBox[{"func", "/.", "subs"}], "]"}]}]}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"P", "\[Distributed]", "PDistE"}], ",", " ", 
      RowBox[{"\[CapitalNu]", "\[Distributed]", "\[CapitalNu]DistE"}]}], 
     "}"}]}], "]"}], " "}]], "Input",
 CellChangeTimes->{{3.8199289318049517`*^9, 3.819928940156069*^9}, {
  3.820024541606859*^9, 3.820024555125243*^9}},
 CellLabel->
  "In[533]:=",ExpressionUUID->"773e1f58-f54e-46d3-bae2-0d901d60efc5"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Min and max limits on expected count of prey eaten", "Subsection",
 CellChangeTimes->{{3.79461197802853*^9, 3.7946120411417913`*^9}, {
  3.794782817863433*^9, 3.794782877685108*^9}, {3.8004072117295427`*^9, 
  3.800407220920773*^9}, {3.800407271894918*^9, 3.800407332940893*^9}, {
  3.800479307004406*^9, 3.800479321987117*^9}, {3.819928322332088*^9, 
  3.819928323067298*^9}},ExpressionUUID->"caab47af-2a32-40ab-883b-\
33c5b5c18808"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"SqrtDetEFlim", "[", 
    RowBox[{
    "func_", ",", "Det_", ",", "\[CapitalNu]vals_", ",", "Pvals_", ",", 
     "subs_", ",", "FminMult_", ",", "FmaxMult_"}], "]"}], ":=", 
   "\[IndentingNewLine]", 
   RowBox[{"Piecewise", "[", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Sqrt", "[", "Det", "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"Max", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"func", "/.", "subs"}], "/.", 
            RowBox[{"P", "\[Rule]", " ", "Pvals"}]}], "/.", 
           RowBox[{"\[CapitalNu]", "\[Rule]", " ", "\[CapitalNu]vals"}]}], 
          "]"}], "\[LessEqual]", "  ", 
         RowBox[{
          RowBox[{"Max", "[", "\[CapitalNu]vals", "]"}], "*", "FmaxMult"}]}], 
        " ", "&&", " ", 
        RowBox[{
         RowBox[{"Min", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"func", "/.", "subs"}], "/.", 
            RowBox[{"P", "\[Rule]", " ", "Pvals"}]}], "/.", 
           RowBox[{"\[CapitalNu]", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"Max", "[", "\[CapitalNu]vals", "]"}], "}"}]}]}], "]"}], 
         "\[GreaterEqual]", " ", 
         RowBox[{"1", " ", "*", "FminMult"}]}]}]}], " ", 
      "\[IndentingNewLine]", "}"}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SqrtDetEFlimSN1", "[", 
    RowBox[{
    "func_", ",", "Det_", ",", "\[CapitalNu]vals_", ",", "Pvals_", ",", 
     "subs_", ",", "FminMult_", ",", "FmaxMult_"}], "]"}], ":=", 
   "\[IndentingNewLine]", 
   RowBox[{"Piecewise", "[", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Sqrt", "[", "Det", "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"Max", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"func", "/.", "subs"}], "/.", 
            RowBox[{"P", "\[Rule]", " ", "Pvals"}]}], "/.", 
           RowBox[{"\[CapitalNu]", "\[Rule]", " ", "\[CapitalNu]vals"}]}], 
          "]"}], "\[LessEqual]", "  ", 
         RowBox[{
          RowBox[{"Max", "[", "\[CapitalNu]vals", "]"}], "*", "FmaxMult"}]}], 
        " ", "&&", " ", 
        RowBox[{
         RowBox[{"Min", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"func", "/.", "subs"}], "/.", 
            RowBox[{"P", "\[Rule]", " ", "Pvals"}]}], "/.", 
           RowBox[{"\[CapitalNu]", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"Max", "[", "\[CapitalNu]vals", "]"}], "}"}]}]}], "]"}], 
         "\[GreaterEqual]", " ", 
         RowBox[{"1", "*", "FminMult"}]}], "   ", "&&", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"d", " ", "b", " ", 
          RowBox[{"Max", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"func", "/.", "subs"}], "/.", 
             RowBox[{"P", "\[Rule]", " ", "Pvals"}]}], "/.", 
            RowBox[{"\[CapitalNu]", "\[Rule]", "\[CapitalNu]vals"}]}], 
           "]"}]}], " ", "\[LessEqual]", " ", "1"}]}]}], 
      "\[IndentingNewLine]", "}"}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SqrtDetEFlimSN2", "[", 
    RowBox[{
    "func_", ",", "Det_", ",", "\[CapitalNu]vals_", ",", "Pvals_", ",", 
     "subs_", ",", "FminMult_", ",", "FmaxMult_"}], "]"}], ":=", 
   "\[IndentingNewLine]", 
   RowBox[{"Piecewise", "[", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Sqrt", "[", "Det", "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"Max", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"func", "/.", "subs"}], "/.", 
            RowBox[{"P", "\[Rule]", " ", "Pvals"}]}], "/.", 
           RowBox[{"\[CapitalNu]", "\[Rule]", " ", "\[CapitalNu]vals"}]}], 
          "]"}], "\[LessEqual]", " ", 
         RowBox[{
          RowBox[{"Max", "[", "\[CapitalNu]vals", "]"}], "*", "FmaxMult"}]}], 
        " ", "&&", " ", 
        RowBox[{
         RowBox[{"Min", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"func", "/.", "subs"}], "/.", 
            RowBox[{"P", "\[Rule]", " ", "Pvals"}]}], "/.", 
           RowBox[{"\[CapitalNu]", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"Max", "[", "\[CapitalNu]vals", "]"}], "}"}]}]}], "]"}], 
         "\[GreaterEqual]", " ", 
         RowBox[{"1", " ", "*", "FminMult"}]}], "  ", "&&", 
        "\[IndentingNewLine]", " ", 
        RowBox[{
         RowBox[{"b", " ", 
          RowBox[{"Max", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"func", "/.", "subs"}], "/.", 
             RowBox[{"P", "\[Rule]", " ", "Pvals"}]}], "/.", 
            RowBox[{"\[CapitalNu]", "\[Rule]", "\[CapitalNu]vals"}]}], 
           "]"}]}], "\[LessEqual]", "   ", "1"}]}]}], " ", 
      "\[IndentingNewLine]", "}"}], "}"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.799352029734478*^9, 3.799352060363348*^9}, {
   3.7993643765944853`*^9, 3.799364388850401*^9}, {3.799367757003655*^9, 
   3.799367758640464*^9}, 3.79936781721885*^9, {3.79936995305121*^9, 
   3.799369968150543*^9}, {3.7993702133589973`*^9, 3.7993702238356037`*^9}, {
   3.7993703322560577`*^9, 3.799370334127527*^9}, 3.7993704408481293`*^9, {
   3.799370853971732*^9, 3.7993708964461937`*^9}, {3.799373588158588*^9, 
   3.799373591081463*^9}, {3.799373633363927*^9, 3.7993736651273603`*^9}, {
   3.799373710559787*^9, 3.7993737158812733`*^9}, {3.799373777779948*^9, 
   3.79937378115476*^9}, {3.79937388330893*^9, 3.799373889754487*^9}, {
   3.799373983991973*^9, 3.799374003733822*^9}, {3.8004001621001253`*^9, 
   3.8004001808399067`*^9}, 3.800400226830505*^9, {3.800400414127371*^9, 
   3.800400422447003*^9}, {3.800400685574242*^9, 3.800400698716653*^9}, 
   3.8004071573890047`*^9, 3.8004073944104853`*^9, {3.8154775520895576`*^9, 
   3.815477552823653*^9}, {3.81724124113024*^9, 3.8172412439937763`*^9}, 
   3.817241651530854*^9, 3.817242792676818*^9, {3.8190332716212273`*^9, 
   3.819033313406309*^9}, 3.819928439513069*^9, {3.819928605264882*^9, 
   3.81992860559403*^9}, {3.819928874455113*^9, 3.819928875038702*^9}, 
   3.819929020489353*^9, {3.8199290875428123`*^9, 3.8199291100777197`*^9}, 
   3.819929153861041*^9, {3.820025165359028*^9, 3.820025203125642*^9}, {
   3.820164379207162*^9, 3.82016442014896*^9}, {3.820164609608042*^9, 
   3.820164613103581*^9}, 3.8201646655961723`*^9, {3.820164804695127*^9, 
   3.820164812487064*^9}, {3.820166942758916*^9, 3.820166950398529*^9}, {
   3.8201669809339437`*^9, 3.820166981645343*^9}, {3.820242299985468*^9, 
   3.820242322103402*^9}, {3.8202828607681704`*^9, 3.820282861103367*^9}, 
   3.820284374804744*^9, {3.820754772072044*^9, 3.820754784246798*^9}, {
   3.820754883036091*^9, 3.820754883987978*^9}, {3.820755055973768*^9, 
   3.8207551202982273`*^9}, {3.820755158017767*^9, 3.820755210383011*^9}, {
   3.820755244334487*^9, 3.8207552492856417`*^9}, {3.82076646696245*^9, 
   3.820766471377644*^9}, {3.820766504632613*^9, 3.8207665278552713`*^9}, {
   3.8207793519959393`*^9, 3.8207793524031763`*^9}, {3.820783538928896*^9, 
   3.820783563199539*^9}, 3.820785558016282*^9, {3.8207860189015827`*^9, 
   3.820786024613261*^9}, {3.820786057452224*^9, 3.8207860781150637`*^9}, {
   3.8207898827627172`*^9, 3.82078990008913*^9}, {3.820789997854516*^9, 
   3.8207900045655527`*^9}, {3.820790037421109*^9, 3.8207900846658278`*^9}, {
   3.820792557021789*^9, 3.8207925597108727`*^9}, {3.820792644164372*^9, 
   3.8207926459873037`*^9}, {3.820792687546934*^9, 3.820792694873727*^9}, {
   3.8207931138011713`*^9, 3.8207931178880873`*^9}, {3.820798213608983*^9, 
   3.820798214863986*^9}, {3.820944156602559*^9, 3.820944159873452*^9}, {
   3.820944252406633*^9, 3.820944255941943*^9}, {3.821305325816576*^9, 
   3.821305331599577*^9}, {3.821356965234476*^9, 3.821356971913389*^9}, {
   3.821647543003418*^9, 3.821647551194821*^9}, {3.821736420060301*^9, 
   3.8217364233318663`*^9}, {3.8255087838178453`*^9, 3.825508831784381*^9}},
 CellLabel->
  "In[534]:=",ExpressionUUID->"b150d326-273d-4e23-b1d8-0974bfd0e05b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[" Define Functional Responses - Count of prey eaten", "Subsection",
 CellChangeTimes->{{3.79407474173958*^9, 3.794074775256928*^9}, {
  3.794093689123221*^9, 3.794093689939777*^9}, {3.7947828471823*^9, 
  3.79478284970219*^9}, {3.800407356931632*^9, 
  3.800407372050994*^9}},ExpressionUUID->"c037263c-91ff-4ca6-b45a-\
19398dbaaf3c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"k", "=", "1"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"H1", " ", "=", " ", 
     RowBox[{"a", " ", "\[CapitalNu]", " ", "P", " ", "T"}]}], ";"}], " ", 
   RowBox[{"(*", " ", 
    RowBox[{"Holling", " ", "Type", " ", "I"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"LR", " ", "=", " ", 
     RowBox[{"a", 
      FractionBox[
       RowBox[{"\[CapitalNu]", " "}], "P"], "P", " ", "T"}]}], ";"}], " ", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"Linear", " ", "ratio"}], "-", "dependent"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"BWL1", " ", "=", " ", 
     RowBox[{"a", " ", 
      FractionBox[
       SqrtBox["\[CapitalNu]"], 
       SqrtBox["P"]], " ", "P", " ", "T"}]}], ";"}], " ", 
   RowBox[{"(*", " ", 
    RowBox[{"Barbier", ",", 
     RowBox[{
      RowBox[{"Wojcik", " ", "&"}], " ", "Loreau", " ", "2021"}]}], " ", 
    "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"k", "=", "2"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"H2", " ", "=", " ", 
     RowBox[{
      FractionBox[
       RowBox[{"a", " ", "\[CapitalNu]"}], 
       RowBox[{"1", "+", 
        RowBox[{"a", " ", "b", " ", "\[CapitalNu]"}]}]], " ", "P", " ", 
      "T"}]}], ";"}], " ", 
   RowBox[{"(*", " ", 
    RowBox[{"Holling", " ", "Type", " ", "II"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"MM", " ", "=", " ", 
     RowBox[{
      FractionBox[
       RowBox[{"a", " ", "\[CapitalNu]"}], 
       RowBox[{"b", "+", "\[CapitalNu]"}]], " ", "P", " ", "T"}]}], ";"}], 
   " ", 
   RowBox[{"(*", " ", 
    RowBox[{"Michaelis", "-", "Menten"}], " ", "*)"}], "\[IndentingNewLine]", 
   
   RowBox[{
    RowBox[{"HV", " ", "=", " ", 
     RowBox[{"a", 
      FractionBox[
       RowBox[{"\[CapitalNu]", " "}], 
       SuperscriptBox["P", "v"]], "P", " ", "T"}]}], ";"}], " ", 
   RowBox[{"(*", " ", 
    RowBox[{"Hassell", "-", "Varley"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"R", " ", "=", " ", 
     RowBox[{"a", 
      SuperscriptBox["\[CapitalNu]", "u"], " ", "P", " ", "T"}]}], ";"}], " ", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"Rosenzweig", " ", "'"}], "71"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"AG", " ", "=", " ", 
     RowBox[{
      FractionBox[
       RowBox[{"a", " ", 
        FractionBox["\[CapitalNu]", "P"]}], 
       RowBox[{"1", "+", 
        RowBox[{"a", " ", "b", " ", 
         FractionBox["\[CapitalNu]", "P"]}]}]], "P", " ", "T"}]}], ";"}], " ", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"Arditi", "-", "Ginzburg"}], ",", " ", "Sutherland"}], " ", 
    "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"CDAO", " ", "=", " ", 
     RowBox[{
      FractionBox[
       RowBox[{"a", " ", 
        FractionBox["\[CapitalNu]", 
         SqrtBox["P"]]}], 
       RowBox[{"1", "+", 
        RowBox[{"a", " ", "b", " ", 
         FractionBox["\[CapitalNu]", 
          SqrtBox["P"]]}]}]], "P", " ", "T"}]}], ";"}], " ", 
   RowBox[{"(*", " ", 
    RowBox[{"Cosner", " ", "et", " ", 
     RowBox[{"al", ".", " ", "1999"}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"GI", " ", "=", "  ", 
     RowBox[{
      FractionBox["1", "b"], 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"Exp", "[", 
         RowBox[{
          RowBox[{"-", "a"}], " ", "\[CapitalNu]"}], "]"}]}], ")"}], " ", "P",
       " ", "T"}]}], " ", ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"GIA", " ", "=", " ", 
     RowBox[{
      FractionBox["1", "b"], 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"Exp", "[", 
         RowBox[{
          RowBox[{"-", "a"}], " ", "b", " ", "\[CapitalNu]"}], "]"}]}], ")"}],
       " ", "P", " ", "T"}]}], ";"}], " ", 
   RowBox[{"(*", " ", 
    RowBox[{"Gause", "-", 
     RowBox[{"Ivlev", " ", "modified", " ", "by", " ", "Aldebert"}]}], " ", 
    "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"GB", " ", "=", " ", 
     RowBox[{
      FractionBox["1", "b"], 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"Exp", "[", 
         RowBox[{
          RowBox[{"-", "a"}], " ", 
          RowBox[{"\[CapitalNu]", " ", "/", " ", "P"}]}], "]"}]}], ")"}], " ",
       "P", " ", "T"}]}], ";"}], " ", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"Gutierrez", " ", "&"}], " ", "Baumgaertner", " ", "1984"}], " ",
     "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"HT", " ", "=", 
     RowBox[{
      FractionBox["1", "b"], 
      RowBox[{"Tanh", "[", 
       RowBox[{"a", " ", "b", " ", "\[CapitalNu]"}], "]"}], " ", "P", " ", 
      "T"}]}], ";"}], " ", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"Jassby", " ", "&"}], " ", "Platt", " ", "1976"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"HTb", " ", "=", 
     RowBox[{
      FractionBox["1", "b"], 
      FractionBox[
       RowBox[{
        RowBox[{"Exp", "[", 
         RowBox[{"2", " ", "a", " ", "b", " ", "\[CapitalNu]"}], " ", "]"}], 
        "-", " ", "1"}], 
       RowBox[{
        RowBox[{"Exp", "[", 
         RowBox[{"2", " ", "a", " ", "b", " ", "\[CapitalNu]"}], " ", "]"}], 
        "+", " ", "1"}]], " ", "P", " ", "T"}]}], " ", ";"}], " ", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
      RowBox[{
      "Alternative", " ", "parameterization", " ", "of", " ", "Jassby"}], " ",
       "&"}], " ", "Platt", " ", "1976"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"H3", "=", " ", 
     RowBox[{
      FractionBox[
       RowBox[{"a", " ", 
        SuperscriptBox["\[CapitalNu]", "2"]}], 
       RowBox[{"1", "+", 
        RowBox[{"a", " ", "b", " ", 
         SuperscriptBox["\[CapitalNu]", "2"]}]}]], " ", "P", " ", "T"}]}], 
    ";"}], " ", 
   RowBox[{"(*", " ", 
    RowBox[{"Holling", " ", "Type", " ", "III"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"AGK", " ", "=", " ", 
     RowBox[{
      FractionBox[
       RowBox[{"a", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox["\[CapitalNu]", "P"], ")"}], "2"]}], 
       RowBox[{"1", "+", 
        RowBox[{"a", " ", "b", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox["\[CapitalNu]", "P"], ")"}], "2"]}]}]], "P", " ", 
      "T"}]}], ";"}], " ", 
   RowBox[{"(*", " ", 
    RowBox[{"Kratina", " ", "et", " ", 
     RowBox[{"al", ".", " ", "2008"}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"A0", "=", 
     RowBox[{
      FractionBox[
       RowBox[{"a", " ", "\[CapitalNu]"}], 
       RowBox[{"1", "+", 
        RowBox[{"a", " ", "b", " ", 
         SqrtBox["\[CapitalNu]"]}]}]], "P", " ", "T"}]}], ";"}], 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
      FractionBox[
       RowBox[{"a", " ", "\[CapitalNu]"}], 
       RowBox[{"1", "+", " ", 
        SqrtBox[
         RowBox[{"a", " ", "b", " ", "\[CapitalNu]"}]]}]], "P", " ", "T"}], 
     ";"}], " ", "*)"}], "  ", 
   RowBox[{"(*", " ", 
    RowBox[{"Abrams", " ", "1982"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"A1", "=", 
     RowBox[{
      SqrtBox[
       FractionBox[
        RowBox[{"a", " ", "\[CapitalNu]"}], 
        RowBox[{"1", "+", 
         RowBox[{"a", " ", "b", " ", "\[CapitalNu]"}]}]]], "P", " ", "T"}]}], 
    ";"}], 
   RowBox[{"(*", " ", 
    RowBox[{
     SqrtBox[
      FractionBox[
       RowBox[{"q", " ", "c", " ", "\[CapitalNu]"}], 
       RowBox[{"d", 
        RowBox[{"(", 
         RowBox[{"1", " ", "+", " ", 
          RowBox[{"c", " ", "h", " ", "\[CapitalNu]"}]}], ")"}]}]]], "P", " ",
      "T"}], " ", "*)"}], "  ", 
   RowBox[{"(*", " ", 
    RowBox[{"Abrams", " ", "1990"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"A3", "=", 
     RowBox[{
      FractionBox[
       RowBox[{"a", 
        SqrtBox["\[CapitalNu]"]}], 
       RowBox[{"1", "+", " ", 
        RowBox[{"a", " ", "b", 
         SqrtBox["\[CapitalNu]"]}]}]], " ", "P", " ", "T"}]}], ";"}], 
   RowBox[{"(*", 
    RowBox[{
     FractionBox[
      SqrtBox["\[CapitalNu]"], 
      RowBox[{
       RowBox[{"2", 
        SqrtBox[
         RowBox[{"u", " ", "\[Eta]"}]]}], "+", " ", 
       RowBox[{"h", 
        SqrtBox["\[CapitalNu]"]}]}]], " ", "P", " ", "T"}], " ", "*)"}], 
   RowBox[{"(*", " ", 
    RowBox[{"Abrams", " ", "1990"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"SH", " ", "=", "  ", 
     RowBox[{
      FractionBox[
       RowBox[{"a", " ", "\[CapitalNu]"}], 
       RowBox[{"b", "+", 
        SuperscriptBox["\[CapitalNu]", "2"], " "}]], "P", " ", "T"}]}], ";"}],
    " ", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"Sokol", " ", "&"}], " ", "Howell", " ", "1987"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"SHb", " ", "=", " ", 
     RowBox[{
      FractionBox[
       RowBox[{"a", " ", "\[CapitalNu]"}], 
       RowBox[{"1", "+", 
        RowBox[{"a", " ", "b", " ", 
         SuperscriptBox["\[CapitalNu]", "2"], " "}]}]], "P", " ", "T"}]}], 
    " ", ";"}], " ", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"Holling", "-", 
       RowBox[{"form", " ", "Sokol"}]}], " ", "&"}], " ", "Howell", " ", 
     "1987"}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"k", "=", "3"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"BD", " ", "=", " ", 
     RowBox[{
      FractionBox[
       RowBox[{"a", " ", "\[CapitalNu]"}], 
       RowBox[{"1", "+", 
        RowBox[{"a", " ", "b", " ", "\[CapitalNu]"}], " ", "+", " ", 
        RowBox[{"c", " ", 
         RowBox[{"(", 
          RowBox[{"P", "-", "1"}], ")"}]}]}]], "P", " ", "T"}]}], ";"}], " ", 
   
   RowBox[{"(*", " ", 
    RowBox[{"Beddington", "-", "DeAngelis"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"CM", " ", "=", " ", 
     RowBox[{
      FractionBox[
       RowBox[{"a", " ", "\[CapitalNu]"}], 
       RowBox[{"1", "+", 
        RowBox[{"a", " ", "b", " ", "\[CapitalNu]"}], "+", 
        RowBox[{"c", " ", 
         RowBox[{"(", 
          RowBox[{"P", "-", "1"}], ")"}]}], "+", 
        RowBox[{"a", " ", "b", " ", "c", " ", "\[CapitalNu]", 
         RowBox[{"(", 
          RowBox[{"P", "-", "1"}], ")"}]}]}]], "P", " ", "T"}]}], ";"}], " ", 
   
   RowBox[{"(*", " ", 
    RowBox[{"Crowley", "-", "Martin"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"AA", "=", 
     RowBox[{
      FractionBox[
       RowBox[{"a", " ", 
        FractionBox["\[CapitalNu]", 
         SuperscriptBox["P", "v"]]}], 
       RowBox[{"1", "+", 
        RowBox[{"a", " ", "b", " ", 
         FractionBox["\[CapitalNu]", 
          SuperscriptBox["P", "v"]]}]}]], "P", " ", "T"}]}], ";"}], " ", 
   RowBox[{"(*", " ", 
    RowBox[{"Arditi", "-", "Akcakaya"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"BWL2", " ", "=", " ", 
     RowBox[{"a", " ", 
      SuperscriptBox["\[CapitalNu]", "u"], " ", 
      SuperscriptBox["P", "v"], " ", "T"}]}], ";"}], " ", 
   RowBox[{"(*", " ", 
    RowBox[{"Barbier", ",", 
     RowBox[{
      RowBox[{"Wojcik", " ", "&"}], " ", "Loreau", " ", "2021"}]}], " ", 
    "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"H3R", "=", " ", 
     RowBox[{
      FractionBox[
       RowBox[{"a", " ", 
        SuperscriptBox["\[CapitalNu]", "u"]}], 
       RowBox[{"1", "+", 
        RowBox[{"a", " ", "b", " ", 
         SuperscriptBox["\[CapitalNu]", "u"]}]}]], " ", "P", " ", "T"}]}], 
    ";"}], " ", 
   RowBox[{"(*", " ", 
    RowBox[{"Holling", " ", "Type", " ", "III"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"A2", "=", 
     RowBox[{
      FractionBox[
       RowBox[{"a", " ", "\[CapitalNu]"}], 
       RowBox[{"1", " ", "+", " ", 
        RowBox[{"a", " ", "b", " ", "\[CapitalNu]"}], " ", "+", " ", 
        SqrtBox[
         RowBox[{"a", " ", "\[CapitalNu]", " ", "c", 
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{"a", " ", "b", " ", "\[CapitalNu]"}]}], ")"}]}]]}]], " ", 
      "P", " ", "T"}]}], ";"}], " ", 
   RowBox[{"(*", " ", 
    RowBox[{"Abrams", " ", "1990"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"S3", "=", " ", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        FractionBox[
         RowBox[{"a", " ", "\[CapitalNu]"}], 
         RowBox[{"1", "+", 
          RowBox[{"a", " ", "b", " ", "\[CapitalNu]"}]}]], ")"}], "u"], " ", 
      "P", " ", "T"}]}], ";"}], " ", 
   RowBox[{"(*", " ", 
    RowBox[{"new", ",", " ", 
     RowBox[{"generalized", " ", "A1"}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"S3b", "=", " ", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        FractionBox[
         RowBox[{"a", " ", "\[CapitalNu]"}], 
         RowBox[{"b", "+", " ", "\[CapitalNu]"}]], ")"}], "u"], " ", "P", " ",
       "T"}]}], ";"}], " ", 
   RowBox[{"(*", " ", 
    RowBox[{"new", ",", " ", 
     RowBox[{"generalized", " ", "A1", " ", "in", " ", "MM", " ", "form"}]}], 
    "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"HLB", " ", "=", 
     RowBox[{
      FractionBox[
       RowBox[{"a", " ", 
        SuperscriptBox["\[CapitalNu]", "2"]}], 
       RowBox[{"1", " ", "+", " ", 
        RowBox[{"c", " ", "\[CapitalNu]"}], " ", "+", " ", 
        RowBox[{"a", " ", "b", " ", 
         SuperscriptBox["\[CapitalNu]", "2"]}]}]], " ", "P", " ", "T"}]}], 
    ";"}], " ", 
   RowBox[{"(*", " ", 
    RowBox[{"Hassell", ",", " ", 
     RowBox[{
      RowBox[{"Lawton", " ", "&"}], " ", "Beddington", " ", "1977"}]}], " ", 
    "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"HLBb", " ", "=", 
     RowBox[{
      FractionBox[
       RowBox[{"a", " ", 
        SuperscriptBox["\[CapitalNu]", "2"]}], 
       RowBox[{"b", " ", "+", " ", "\[CapitalNu]", " ", "+", " ", 
        RowBox[{"c", " ", 
         SuperscriptBox["\[CapitalNu]", "2"]}]}]], " ", "P", " ", "T"}]}], 
    ";"}], " ", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"Michaelis", "-", "Mentend", "-", 
      RowBox[{"form", " ", "of", " ", "Hassell"}]}], ",", " ", 
     RowBox[{
      RowBox[{"Lawton", " ", "&"}], " ", "Beddington", " ", "1977"}]}], " ", 
    "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"MH", " ", "=", 
     RowBox[{
      FractionBox[
       RowBox[{"a", " ", "\[CapitalNu]"}], 
       RowBox[{"1", " ", "+", " ", 
        RowBox[{"a", " ", "b", " ", "\[CapitalNu]"}], " ", "+", " ", 
        RowBox[{"c", " ", 
         SuperscriptBox["\[CapitalNu]", "2"], " "}]}]], " ", "P", " ", 
      "T"}]}], ";"}], "  ", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"Holling", "-", 
      RowBox[{"form", " ", "Monod"}], "-", "Haldane"}], ";", " ", 
     RowBox[{"Andrews", " ", "1968"}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"MHb", " ", "=", 
     RowBox[{
      FractionBox[
       RowBox[{"a", " ", "\[CapitalNu]"}], 
       RowBox[{"b", " ", "+", "  ", "\[CapitalNu]", " ", "+", " ", 
        RowBox[{"c", " ", 
         SuperscriptBox["\[CapitalNu]", "2"], " "}]}]], " ", "P", " ", 
      "T"}]}], ";"}], "  ", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"Monod", "-", "Haldane"}], ";", " ", 
     RowBox[{"Andrews", " ", "1968"}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"MHc", " ", "=", 
     RowBox[{
      FractionBox[
       RowBox[{"a", " ", "\[CapitalNu]"}], 
       RowBox[{"b", " ", "+", "  ", "\[CapitalNu]", " ", "+", " ", 
        FractionBox[
         SuperscriptBox["\[CapitalNu]", "2"], "c"], " "}]], " ", "P", " ", 
      "T"}]}], ";"}], "  ", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"original", " ", "Monod"}], "-", "Haldane"}], ";", " ", 
     RowBox[{"Andrews", " ", "1968"}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"To", " ", "=", 
     RowBox[{
      FractionBox[
       RowBox[{"a", " ", "\[CapitalNu]"}], 
       RowBox[{"1", " ", "+", " ", 
        RowBox[{"a", " ", "b", " ", "\[CapitalNu]"}], " ", "+", " ", 
        RowBox[{"c", " ", 
         SuperscriptBox["\[CapitalNu]", "3"], " "}]}]], " ", "P", " ", 
      "T"}]}], ";"}], "  ", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"Tostowaryk", " ", "'"}], "72"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"FHM", " ", "=", 
     RowBox[{
      FractionBox[
       RowBox[{"a", " ", "\[CapitalNu]", " ", 
        RowBox[{"Exp", "[", 
         RowBox[{"d", " ", "\[CapitalNu]"}], "]"}]}], 
       RowBox[{"1", " ", "+", " ", 
        RowBox[{"a", " ", "b", " ", "\[CapitalNu]", " ", 
         RowBox[{"Exp", "[", 
          RowBox[{"d", " ", "\[CapitalNu]"}], "]"}], " "}]}]], " ", "P", " ", 
      "T"}]}], ";"}], "  ", 
   RowBox[{"(*", " ", 
    RowBox[{"Fujii", ",", " ", 
     RowBox[{
      RowBox[{"Holling", " ", "&"}], " ", 
      RowBox[{"Mace", " ", "'"}], "86"}]}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"W", " ", "=", " ", 
     RowBox[{
      FractionBox["1", "b"], 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"Exp", "[", 
         RowBox[{
          RowBox[{"-", "a"}], " ", 
          RowBox[{"\[CapitalNu]", " ", "/", " ", 
           SuperscriptBox["P", "v"]}]}], "]"}]}], ")"}], " ", "P", " ", 
      "T"}]}], ";"}], " ", 
   RowBox[{"(*", " ", 
    RowBox[{"Watt", " ", "1959"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"TTA", " ", "=", " ", 
     RowBox[{
      FractionBox[
       RowBox[{"a", " ", "\[CapitalNu]"}], 
       RowBox[{"1", " ", "+", " ", 
        RowBox[{"a", " ", "b", " ", "\[CapitalNu]"}], " ", "+", " ", 
        RowBox[{"c", " ", "P"}], " ", "-", " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"Exp", "[", 
           RowBox[{
            RowBox[{"-", " ", "c"}], " ", "P"}], "]"}]}], ")"}], " "}]], " ", 
      "P", " ", "T"}]}], ";"}], "  ", 
   RowBox[{"(*", " ", 
    RowBox[{"Tyutyunov", ",", " ", 
     RowBox[{
      RowBox[{"Titova", " ", "&"}], " ", "Arditi", " ", "2008"}]}], " ", 
    "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"SBB", "=", 
     RowBox[{
      FractionBox[
       RowBox[{"a", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox["\[CapitalNu]", 
           SuperscriptBox["P", "v"]], ")"}], "2"]}], 
       RowBox[{"1", "+", 
        RowBox[{"a", " ", "b", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox["\[CapitalNu]", 
            SuperscriptBox["P", "v"]], ")"}], "2"]}]}]], "P", " ", "T"}]}], 
    ";"}], "   ", 
   RowBox[{"(*", " ", 
    RowBox[{"Schenk", ",", " ", 
     RowBox[{
      RowBox[{"Bersier", " ", "&"}], " ", "Bacher", " ", "2005"}]}], " ", 
    "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"SSS", "=", "  ", 
     RowBox[{
      FractionBox[
       RowBox[{"2", " ", "a", " ", "\[CapitalNu]"}], 
       RowBox[{"1", " ", "+", " ", 
        RowBox[{"a", " ", 
         RowBox[{"(", 
          RowBox[{"b", " ", "+", " ", "c"}], ")"}], " ", "\[CapitalNu]"}], 
        " ", "+", " ", 
        SqrtBox[
         RowBox[{"1", "+", 
          RowBox[{"a", " ", "\[CapitalNu]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{"b", "+", "c"}], ")"}]}], "+", 
             RowBox[{"a", " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"b", "-", "c"}], ")"}], "2"], " ", "\[CapitalNu]"}]}],
             ")"}]}]}]]}]], " ", "P", " ", "T"}]}], ";"}], " ", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"SSS", "=", "  ", 
      RowBox[{
       FractionBox[
        RowBox[{"2", " ", "a", " ", "\[CapitalNu]"}], 
        RowBox[{"1", " ", "+", " ", 
         RowBox[{"a", " ", 
          RowBox[{"(", 
           RowBox[{"b", " ", "+", " ", "c"}], ")"}], " ", "\[CapitalNu]"}], 
         " ", "+", " ", 
         SqrtBox[
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "+", 
             RowBox[{"a", " ", 
              RowBox[{"(", 
               RowBox[{"b", "+", "c"}], ")"}], " ", "\[CapitalNu]"}]}], ")"}],
            " ", 
           RowBox[{"(", 
            RowBox[{"1", "+", 
             RowBox[{"a", " ", 
              RowBox[{"(", 
               RowBox[{"b", "+", "c", "+", 
                RowBox[{"4", " ", "b", " ", "c"}]}], ")"}], " ", 
              "\[CapitalNu]"}]}], ")"}]}]]}]], " ", "P", " ", "T"}]}], ";"}], 
    " ", "*)"}], 
   RowBox[{"(*", " ", 
    RowBox[{"Jeschke", " ", "et", " ", 
     RowBox[{"al", ".", " ", "2002"}], " ", "using", " ", "citardauq", " ", 
     "Formula", "  ", "ORIGINALLY", " ", "INCORRECT"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"RGD", "=", 
     RowBox[{
      FractionBox[
       RowBox[{"2", " ", "a", " ", "\[CapitalNu]"}], 
       RowBox[{"1", " ", "+", " ", 
        RowBox[{"a", " ", "b", " ", "\[CapitalNu]"}], " ", "+", " ", 
        SqrtBox[
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "+", 
             RowBox[{"a", " ", "b", " ", "\[CapitalNu]"}]}], ")"}], "2"], " ",
           "+", 
          RowBox[{"8", " ", "a", " ", "c", " ", 
           RowBox[{"(", 
            RowBox[{"P", "-", "1"}], ")"}]}]}]]}]], " ", "P", " ", "T"}]}], 
    ";"}], " ", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"k", "=", "4"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"BDOR", " ", "=", " ", 
     RowBox[{
      FractionBox[
       RowBox[{"a", " ", 
        SuperscriptBox["\[CapitalNu]", "u"]}], 
       RowBox[{"1", "+", 
        RowBox[{"a", " ", "b", " ", 
         SuperscriptBox["\[CapitalNu]", "u"]}], " ", "+", " ", 
        RowBox[{"c", " ", 
         RowBox[{"(", 
          RowBox[{"P", "-", "1"}], ")"}]}]}]], "P", " ", "T"}]}], ";"}], "  ", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"Okuyama", " ", "&"}], " ", "Ruyle", " ", "2011"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"CMOR", " ", "=", " ", 
     RowBox[{
      FractionBox[
       RowBox[{"a", " ", 
        SuperscriptBox["\[CapitalNu]", "u"]}], 
       RowBox[{"1", "+", 
        RowBox[{"a", " ", "b", " ", 
         SuperscriptBox["\[CapitalNu]", "u"]}], "+", 
        RowBox[{"c", " ", 
         RowBox[{"(", 
          RowBox[{"P", "-", "1"}], ")"}]}], "+", 
        RowBox[{"a", " ", "b", " ", "c", " ", 
         SuperscriptBox["\[CapitalNu]", "u"], 
         RowBox[{"(", 
          RowBox[{"P", "-", "1"}], ")"}]}]}]], "P", " ", "T"}]}], ";"}], "  ", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"Okuyama", " ", "&"}], " ", "Ruyle", " ", "2011"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"AAOR", "=", 
     RowBox[{
      FractionBox[
       RowBox[{"a", " ", 
        FractionBox[
         SuperscriptBox["\[CapitalNu]", "u"], 
         SuperscriptBox["P", "v"]]}], 
       RowBox[{"1", "+", 
        RowBox[{"a", " ", "b", " ", 
         FractionBox[
          SuperscriptBox["\[CapitalNu]", "u"], 
          SuperscriptBox["P", "v"]]}]}]], "P", " ", "T"}]}], ";"}], "  ", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"Okuyama", " ", "&"}], " ", "Ruyle", " ", "2011"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"SN1", "=", 
     RowBox[{
      FractionBox[
       RowBox[{"a", " ", "\[CapitalNu]"}], 
       RowBox[{"1", "+", " ", 
        RowBox[{"a", " ", "b", " ", "\[CapitalNu]"}], " ", "+", " ", 
        RowBox[{"c", " ", 
         RowBox[{"(", 
          RowBox[{"P", "-", "1"}], ")"}]}], "+", 
        RowBox[{"a", " ", "b", " ", "c", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", "d"}], ")"}], " ", "\[CapitalNu]", 
         RowBox[{"(", 
          RowBox[{"P", "-", "1"}], ")"}]}]}]], "P", " ", "T"}]}], ";"}], " ", 
   
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"Stouffer", " ", "&"}], " ", "Novak", " ", "2021"}], " ", "*)"}],
    "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"SN2", "=", 
     RowBox[{
      FractionBox[
       RowBox[{"a", " ", "\[CapitalNu]", " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"c", " ", 
           RowBox[{"(", 
            RowBox[{"1", "-", "d"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"P", "-", "1"}], ")"}]}]}], ")"}]}], 
       RowBox[{"1", "+", " ", 
        RowBox[{"a", " ", "b", " ", "\[CapitalNu]"}], " ", "+", " ", 
        RowBox[{"c", " ", 
         RowBox[{"(", 
          RowBox[{"P", "-", "1"}], ")"}]}], "+", 
        RowBox[{"a", " ", "b", " ", "c", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", "d"}], ")"}], " ", "\[CapitalNu]", 
         RowBox[{"(", 
          RowBox[{"P", "-", "1"}], ")"}]}]}]], "P", " ", "T"}]}], ";"}], " ", 
   
   RowBox[{"(*", " ", 
    RowBox[{"new", ",", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"but", " ", "see", " ", "Stouffer"}], " ", "&"}], " ", "Novak",
       " ", "2021"}]}], " ", "*)"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"models", " ", "=", " ", 
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
      "H1", ",", "LR", ",", "BWL1", ",", "     ", "\[IndentingNewLine]", "H2",
        ",", "MM", ",", "HV", ",", "R", ",", "AG", ",", "CDAO", ",", "GI", 
       ",", " ", "GIA", ",", " ", "GB", ",", " ", "HT", ",", "HTb", ",", " ", 
       "H3", ",", "AGK", ",", " ", "A0", ",", "A1", ",", " ", "A3", ",", " ", 
       "SH", ",", "SHb", ",", "      ", "\[IndentingNewLine]", "BD", ",", " ",
        "CM", ",", " ", "AA", ",", " ", "BWL2", ",", " ", "H3R", ",", " ", 
       "A2", ",", " ", "S3", ",", "S3b", ",", "HLB", ",", "HLBb", ",", " ", 
       "MH", ",", "MHb", ",", " ", "MHc", ",", "To", ",", " ", "FHM", ",", 
       "W", ",", " ", "TTA", ",", " ", "SBB", ",", "SSS", ",", "RGD", ",", 
       "  ", "\[IndentingNewLine]", "BDOR", ",", " ", "CMOR", ",", " ", 
       "AAOR", ",", " ", "SN1", ",", " ", "SN2"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"modelNames", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"Trace", "@", 
         RowBox[{"{", "\[IndentingNewLine]", 
          RowBox[{
          "H1", ",", "LR", ",", "BWL1", ",", "     ", "\[IndentingNewLine]", 
           "H2", ",", "MM", ",", "HV", ",", "R", ",", "AG", ",", "CDAO", ",", 
           "GI", ",", " ", "GIA", ",", " ", "GB", ",", " ", "HT", ",", "HTb", 
           ",", " ", "H3", ",", "AGK", ",", " ", "A0", ",", "A1", ",", " ", 
           "A3", ",", " ", "SH", ",", "SHb", ",", "      ", 
           "\[IndentingNewLine]", "BD", ",", " ", "CM", ",", " ", "AA", ",", 
           " ", "BWL2", ",", " ", "H3R", ",", " ", "A2", ",", " ", "S3", ",", 
           "S3b", ",", "HLB", ",", "HLBb", ",", " ", "MH", ",", "MHb", ",", 
           " ", "MHc", ",", "To", ",", " ", "FHM", ",", "W", ",", " ", "TTA", 
           ",", " ", "SBB", ",", "SSS", ",", "RGD", ",", 
           "\[IndentingNewLine]", "BDOR", ",", " ", "CMOR", ",", " ", "AAOR", 
           ",", " ", "SN1", ",", " ", "SN2"}], "}"}]}], ")"}], "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "1"}], "]"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"1", ";;", 
        RowBox[{"Length", "[", "models", "]"}]}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"DumpSave", "[", 
     RowBox[{"\"\<../Models.mx\>\"", ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "models", ",", "modelNames", ",", "\[IndentingNewLine]", "H1", ",", 
        "LR", ",", "BWL1", ",", "\[IndentingNewLine]", "H2", ",", "MM", ",", 
        "HV", ",", "R", ",", "AG", ",", "CDAO", ",", "GI", ",", " ", "GIA", 
        ",", " ", "GB", ",", " ", "HT", ",", "HTb", ",", " ", "H3", ",", 
        "AGK", ",", " ", "A0", ",", "A1", ",", " ", "A3", ",", " ", "SH", ",",
         "SHb", ",", "      ", "\[IndentingNewLine]", "BD", ",", " ", "CM", 
        ",", " ", "AA", ",", " ", "BWL2", ",", " ", "H3R", ",", " ", "A2", 
        ",", " ", "S3", ",", "S3b", ",", "HLB", ",", "HLBb", ",", " ", "MH", 
        ",", "MHb", ",", " ", "MHc", ",", "To", ",", " ", "FHM", ",", "W", 
        ",", " ", "TTA", ",", " ", "SBB", ",", "SSS", ",", "RGD", ",", 
        "\[IndentingNewLine]", "BDOR", ",", " ", "CMOR", ",", " ", "AAOR", 
        ",", " ", "SN1", ",", " ", "SN2"}], "}"}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.794074764249851*^9, 3.794074781434236*^9}, {
   3.794074853871708*^9, 3.794074856502338*^9}, {3.794074892725622*^9, 
   3.794074964170439*^9}, {3.794075048992728*^9, 3.794075056510936*^9}, {
   3.794166308888492*^9, 3.794166313934968*^9}, {3.794166384662013*^9, 
   3.794166384780198*^9}, {3.79416644501838*^9, 3.794166466057472*^9}, {
   3.794166522665292*^9, 3.794166523495289*^9}, {3.7947834976698713`*^9, 
   3.794783514347937*^9}, {3.79487827886385*^9, 3.79487827930225*^9}, {
   3.795460077877589*^9, 3.79546008566753*^9}, 3.796152942384039*^9, {
   3.797011072698031*^9, 3.7970110833153677`*^9}, {3.797013201964006*^9, 
   3.797013202114635*^9}, {3.7970132404347258`*^9, 3.797013240521291*^9}, {
   3.797013308640192*^9, 3.797013311982644*^9}, {3.797013841618478*^9, 
   3.797013844128951*^9}, {3.79701394733313*^9, 3.797013948564982*^9}, {
   3.7970160467723618`*^9, 3.797016049570848*^9}, {3.815475190188995*^9, 
   3.815475207306522*^9}, {3.8168185866496983`*^9, 3.816818760754776*^9}, {
   3.8168188648712063`*^9, 3.81681896181994*^9}, {3.816818994530348*^9, 
   3.8168190437040367`*^9}, {3.816819578627746*^9, 3.816819591465561*^9}, {
   3.817218233480155*^9, 3.81721824812121*^9}, {3.8172185607707977`*^9, 
   3.817218698608473*^9}, {3.817258859017061*^9, 3.817258866952098*^9}, {
   3.817260162527336*^9, 3.8172601664465513`*^9}, {3.817304344776085*^9, 
   3.817304369189828*^9}, {3.817304399404626*^9, 3.8173044180235577`*^9}, {
   3.817304768600079*^9, 3.817304785622117*^9}, {3.817304844565669*^9, 
   3.817304849124655*^9}, {3.817304880862927*^9, 3.817304938713423*^9}, {
   3.81730497554416*^9, 3.817305083548231*^9}, {3.817343460078047*^9, 
   3.8173434604891453`*^9}, {3.8174813120844812`*^9, 3.817481314729671*^9}, {
   3.8175057718769093`*^9, 3.817505825664465*^9}, {3.8175058945836067`*^9, 
   3.8175058948864193`*^9}, {3.817509834759152*^9, 3.817509839226366*^9}, {
   3.817564104265992*^9, 3.817564141008081*^9}, {3.8175666813525476`*^9, 
   3.817566731976831*^9}, {3.817577337326386*^9, 3.8175773377811937`*^9}, {
   3.817578812485808*^9, 3.817578829700313*^9}, {3.8175792074235563`*^9, 
   3.817579221629497*^9}, {3.8175820753891068`*^9, 3.817582129954239*^9}, {
   3.818261255226866*^9, 3.818261256017576*^9}, 3.818684382394237*^9, {
   3.818705429404593*^9, 3.818705604549361*^9}, {3.818705665259512*^9, 
   3.818705893442663*^9}, {3.818706762044442*^9, 3.818706914210284*^9}, {
   3.818706947697204*^9, 3.8187070793723717`*^9}, {3.8187071172191277`*^9, 
   3.818707223198256*^9}, {3.818707319220969*^9, 3.8187073371548347`*^9}, {
   3.818707383073771*^9, 3.8187074511254*^9}, {3.818708167882884*^9, 
   3.8187081724821*^9}, {3.818708235717484*^9, 3.818708269676136*^9}, {
   3.818708308213017*^9, 3.818708347434746*^9}, 3.818708538236079*^9, {
   3.8187085699544907`*^9, 3.818708586025786*^9}, {3.8187086322565737`*^9, 
   3.818708634295784*^9}, 3.8187090164894867`*^9, {3.8187092450474043`*^9, 
   3.8187092508307133`*^9}, {3.8187177949834223`*^9, 3.818717831773193*^9}, {
   3.818718147994234*^9, 3.818718149976616*^9}, {3.818985521938971*^9, 
   3.818985610126292*^9}, {3.818986051709303*^9, 3.818986061211363*^9}, {
   3.8189863186819353`*^9, 3.818986359527047*^9}, {3.8189869519051933`*^9, 
   3.818986968488139*^9}, 3.81905623867023*^9, {3.8198541310985107`*^9, 
   3.819854132516741*^9}, {3.819938803843462*^9, 3.8199388044424543`*^9}, {
   3.81997585706551*^9, 3.819975879832243*^9}, {3.819976213124361*^9, 
   3.819976227514876*^9}, {3.8199762798980103`*^9, 3.81997628332189*^9}, 
   3.8200248152544727`*^9, {3.820026567033235*^9, 3.820026578905286*^9}, 
   3.820026831352105*^9, {3.820026882477229*^9, 3.82002689878762*^9}, {
   3.820027106154407*^9, 3.820027118617052*^9}, {3.820027155728894*^9, 
   3.8200271589378157`*^9}, {3.820061069459393*^9, 3.820061103622426*^9}, {
   3.820177914401219*^9, 3.820177915153137*^9}, {3.820177980102873*^9, 
   3.8201780307242813`*^9}, {3.820456285141087*^9, 3.820456301346713*^9}, {
   3.820511263499002*^9, 3.8205112699219437`*^9}, {3.8205420559242153`*^9, 
   3.820542091416247*^9}, {3.8205435166113377`*^9, 3.820543525023656*^9}, {
   3.820543655138392*^9, 3.820543774869584*^9}, {3.820543816516378*^9, 
   3.820543827404069*^9}, {3.820544819799911*^9, 3.8205449392244043`*^9}, {
   3.820620171446951*^9, 3.8206202770258303`*^9}, {3.820620352511861*^9, 
   3.820620354702875*^9}, {3.820620443333528*^9, 3.8206204858823433`*^9}, {
   3.820624916651733*^9, 3.820625003872251*^9}, {3.820924628972694*^9, 
   3.820924632563921*^9}, {3.820924716625543*^9, 3.820924717417918*^9}, {
   3.820943557019568*^9, 3.820943596200699*^9}, {3.820943724764866*^9, 
   3.820943749147163*^9}, {3.8212253712046432`*^9, 3.821225455639989*^9}, {
   3.8212255848354883`*^9, 3.821225589034954*^9}, {3.821226179668092*^9, 
   3.8212261964431257`*^9}, {3.8212262671386547`*^9, 3.821226276608774*^9}, {
   3.8214530766749897`*^9, 3.82145311860653*^9}, {3.821453723734641*^9, 
   3.821453747828512*^9}, {3.8214537962198153`*^9, 3.8214538153238783`*^9}, {
   3.8214540442677917`*^9, 3.821454053050262*^9}, {3.8214541404720182`*^9, 
   3.821454143934744*^9}, 3.821454895106604*^9, {3.82147364170093*^9, 
   3.821473643956814*^9}, {3.82174414046413*^9, 3.821744172276867*^9}, {
   3.8218301677437963`*^9, 3.8218302212147293`*^9}, {3.82183025207093*^9, 
   3.821830377354472*^9}, {3.821834156527873*^9, 3.821834156539793*^9}, {
   3.824407327143076*^9, 3.8244073713956213`*^9}, {3.8244075875575857`*^9, 
   3.824407599899548*^9}, {3.82440765625878*^9, 3.8244076574500093`*^9}, {
   3.824425481762751*^9, 3.8244256371093187`*^9}, 3.824425677468536*^9, {
   3.8244257119298973`*^9, 3.8244257332573338`*^9}, {3.825119844478147*^9, 
   3.8251198894944897`*^9}, {3.825119922840207*^9, 3.825119933304021*^9}, {
   3.825120238365693*^9, 3.8251202743168917`*^9}, {3.82515703005873*^9, 
   3.825157037505628*^9}, {3.825425722112186*^9, 3.825425744961995*^9}, {
   3.82542619537362*^9, 3.825426226028241*^9}, {3.82542642074679*^9, 
   3.825426425002151*^9}, {3.8254274299488153`*^9, 3.82542743131561*^9}, {
   3.825427546399995*^9, 3.825427548006008*^9}, {3.825427636278545*^9, 
   3.8254276372588654`*^9}, {3.8254277386651382`*^9, 3.825427740592472*^9}, {
   3.82546196055311*^9, 3.825461960559022*^9}, {3.828487115203051*^9, 
   3.828487288300188*^9}, {3.828490768365861*^9, 3.8284908210035954`*^9}, {
   3.828490989238562*^9, 3.8284910286033297`*^9}, {3.828491111721064*^9, 
   3.8284911532305613`*^9}, {3.828525506768756*^9, 3.828525571595747*^9}, {
   3.8285409135294657`*^9, 3.828540943174494*^9}, {3.8285775154364653`*^9, 
   3.8285775254112473`*^9}, {3.828615244421979*^9, 3.8286152989706583`*^9}, {
   3.8286582871896467`*^9, 3.828658319393894*^9}, {3.828658441375145*^9, 
   3.828658454821089*^9}, {3.82866141337304*^9, 3.8286614629945087`*^9}, {
   3.828661498873334*^9, 3.82866150874446*^9}, {3.828661576256805*^9, 
   3.8286615904458447`*^9}, {3.828662812333371*^9, 3.82866286437193*^9}, {
   3.828663379505135*^9, 3.828663384662075*^9}, {3.8286671266884937`*^9, 
   3.828667147134356*^9}, {3.828667190619604*^9, 3.828667208394912*^9}, {
   3.8286992120050383`*^9, 3.8286992254920692`*^9}, {3.828700128478217*^9, 
   3.828700135452656*^9}, {3.8287004668109493`*^9, 3.8287004764714737`*^9}, {
   3.828787343314342*^9, 3.828787380342887*^9}, {3.82878791023457*^9, 
   3.828788004086911*^9}, {3.828788038341051*^9, 3.828788168551462*^9}, {
   3.828788225845394*^9, 3.828788315331444*^9}, {3.828809862800365*^9, 
   3.8288098780629253`*^9}, {3.828810435473887*^9, 3.8288105945262938`*^9}, {
   3.828826424429811*^9, 3.82882642830974*^9}, {3.8288266469656467`*^9, 
   3.828826744113612*^9}, {3.828826776687209*^9, 3.8288268226856203`*^9}, {
   3.828826877011877*^9, 3.828826880947114*^9}, {3.828827084029882*^9, 
   3.8288271332413073`*^9}, {3.828883576161285*^9, 3.828883733834299*^9}, {
   3.8289113304776707`*^9, 3.828911339315022*^9}, {3.82891300625569*^9, 
   3.828913006631648*^9}, {3.829003340264948*^9, 3.829003388412265*^9}, 
   3.829003623982143*^9, {3.829063496837694*^9, 3.829063552187594*^9}, {
   3.82906361404847*^9, 3.8290636394963503`*^9}, {3.829063711197562*^9, 
   3.829063735531193*^9}, {3.829312814548438*^9, 3.8293128342505836`*^9}, {
   3.829314767568714*^9, 3.829314826660789*^9}, {3.829329058350258*^9, 
   3.82932906316405*^9}, {3.834153263729691*^9, 3.834153266529285*^9}, {
   3.834160162577011*^9, 3.834160188222707*^9}, {3.8341724239723988`*^9, 
   3.8341724958981647`*^9}, {3.913819545837811*^9, 3.9138195972524652`*^9}, {
   3.913819632741405*^9, 3.913819640923419*^9}},
 CellLabel->
  "In[537]:=",ExpressionUUID->"e51b2fa6-adc2-48b6-bc29-52a28619e301"],

Cell[CellGroupData[{

Cell["\<\
Method to assess whether model parameters are identifiable
(a \[OpenCurlyDoubleQuote]necessary but not \
sufficient\[CloseCurlyDoubleQuote] test)\
\>", "Subsubsection",
 CellChangeTimes->{{3.8188841394701157`*^9, 3.818884214448037*^9}, {
  3.818893667205406*^9, 3.818893672308888*^9}, {3.8190333453242607`*^9, 
  3.819033360899509*^9}},ExpressionUUID->"cb454de1-99f8-44d9-bdb3-\
1ab3bf900d6e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"model", "=", 
     RowBox[{
      FractionBox[
       RowBox[{"a", " ", "\[CapitalNu]"}], 
       RowBox[{"c", "+", 
        RowBox[{"a", " ", "b", " ", "\[CapitalNu]"}]}]], "P", " ", "T"}]}], 
    ";", "\[IndentingNewLine]", 
    RowBox[{"parms", "=", 
     RowBox[{"{", 
      RowBox[{"a", ",", " ", "b", ",", "c"}], "}"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"sensitivity", "=", 
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{"model", ",", 
        RowBox[{"{", "parms", "}"}]}], "]"}], "\n", 
      RowBox[{"GatherBy", "[", 
       RowBox[{
        RowBox[{"Range", "@", 
         RowBox[{"Length", "[", "sensitivity", "]"}]}], ",", 
        RowBox[{
         RowBox[{"sensitivity", "[", 
          RowBox[{"[", "#", "]"}], "]"}], "&"}]}], "]"}]}]}]}], 
   "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.818893567935849*^9, 3.818893586184846*^9}, {
   3.818893618032193*^9, 3.818893624511022*^9}, {3.819033329269252*^9, 
   3.8190333333086452`*^9}, {3.819559411010391*^9, 3.819559486422192*^9}, 
   3.820024832739264*^9, {3.8254256002590714`*^9, 3.825425601762576*^9}, {
   3.825425632809901*^9, 3.825425710062405*^9}, {3.825425752780608*^9, 
   3.8254257572681017`*^9}},
 CellLabel->
  "In[586]:=",ExpressionUUID->"40a70c0e-fc3b-479c-b9cc-60fae8e0fc77"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Define Likelihood functions", "Subsection",
 CellChangeTimes->{{3.794665571882093*^9, 3.79466558475461*^9}, {
   3.7946662108665457`*^9, 3.794666215210021*^9}, {3.800407458735585*^9, 
   3.800407464863399*^9}, 
   3.8154761736218367`*^9},ExpressionUUID->"e7203c65-c51a-4560-8b0c-\
89cd5f17e5de"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"PoislL", "[", "func_", "]"}], ":=", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"-", "n"}], " ", "func"}], "+", 
     RowBox[{
      RowBox[{"Log", "[", "func", "]"}], " ", "x"}]}], "/.", 
    RowBox[{"{", 
     RowBox[{"n", "\[Rule]", "1"}], "}"}]}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lLH1", "[", "a_", "]"}], ":=", 
  RowBox[{"PoislL", "[", "H1", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lLLR", "[", "a_", "]"}], ":=", 
  RowBox[{"PoislL", "[", "LR", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"lLBWL1", "[", "a_", "]"}], ":=", 
   RowBox[{"PoislL", "[", "BWL1", "]"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lLH2", "[", 
   RowBox[{"a_", ",", "b_"}], "]"}], ":=", 
  RowBox[{"PoislL", "[", "H2", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lLMM", "[", 
   RowBox[{"a_", ",", "b_"}], "]"}], ":=", 
  RowBox[{"PoislL", "[", "MM", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lLHV", "[", 
   RowBox[{"a_", ",", "v_"}], "]"}], ":=", 
  RowBox[{"PoislL", "[", "HV", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lLR", "[", 
   RowBox[{"a_", ",", "u_"}], "]"}], ":=", 
  RowBox[{"PoislL", "[", "R", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lLAG", "[", 
   RowBox[{"a_", ",", "b_"}], "]"}], ":=", 
  RowBox[{"PoislL", "[", "AG", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lLCDAO", "[", 
   RowBox[{"a_", ",", "b_"}], "]"}], ":=", 
  RowBox[{"PoislL", "[", "CDAO", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lLGI", "[", 
   RowBox[{"a_", ",", "b_"}], "]"}], ":=", 
  RowBox[{"PoislL", "[", "GI", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lLGIA", "[", 
   RowBox[{"a_", ",", "b_"}], "]"}], ":=", 
  RowBox[{"PoislL", "[", "GIA", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lLGB", "[", 
   RowBox[{"a_", ",", "b_"}], "]"}], ":=", 
  RowBox[{"PoislL", "[", "GB", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lLHT", "[", 
   RowBox[{"a_", ",", "b_"}], "]"}], ":=", 
  RowBox[{"PoislL", "[", "HT", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lLHTb", "[", 
   RowBox[{"a_", ",", "b_"}], "]"}], ":=", 
  RowBox[{"PoislL", "[", "HTb", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lLH3", "[", 
   RowBox[{"a_", ",", "b_"}], "]"}], ":=", 
  RowBox[{"PoislL", "[", "H3", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lLAGK", "[", 
   RowBox[{"a_", ",", "b_"}], "]"}], ":=", 
  RowBox[{"PoislL", "[", "AGK", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lLA0", "[", 
   RowBox[{"a_", ",", "b_"}], "]"}], ":=", 
  RowBox[{"PoislL", "[", "A0", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lLA3", "[", 
   RowBox[{"a_", ",", "b_"}], "]"}], ":=", 
  RowBox[{"PoislL", "[", "A3", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lLA1", "[", 
   RowBox[{"a_", ",", "b_"}], "]"}], ":=", 
  RowBox[{"PoislL", "[", "A1", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lLSH", "[", 
   RowBox[{"a_", ",", "b_"}], "]"}], ":=", 
  RowBox[{"PoislL", "[", "SH", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"lLSHb", "[", 
    RowBox[{"a_", ",", "b_"}], "]"}], ":=", 
   RowBox[{"PoislL", "[", "SHb", "]"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lLBD", "[", 
   RowBox[{"a_", ",", "b_", ",", "c_"}], "]"}], ":=", 
  RowBox[{"PoislL", "[", "BD", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lLCM", "[", 
   RowBox[{"a_", ",", "b_", ",", "c_"}], "]"}], ":=", 
  RowBox[{"PoislL", "[", "CM", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lLAA", "[", 
   RowBox[{"a_", ",", "b_", ",", "v_"}], "]"}], ":=", 
  RowBox[{"PoislL", "[", "AA", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lLBWL2", "[", 
   RowBox[{"a_", ",", "v_", ",", "u_"}], "]"}], ":=", 
  RowBox[{"PoislL", "[", "BWL2", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lLH3R", "[", 
   RowBox[{"a_", ",", "b_", ",", "u_"}], "]"}], ":=", 
  RowBox[{"PoislL", "[", "H3R", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lLA2", "[", 
   RowBox[{"a_", ",", "b_", ",", "c_"}], "]"}], ":=", 
  RowBox[{"PoislL", "[", "A2", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lLHLB", "[", 
   RowBox[{"a_", ",", "b_", ",", "c_"}], "]"}], ":=", 
  RowBox[{"PoislL", "[", "HLB", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lLHLBb", "[", 
   RowBox[{"a_", ",", "b_", ",", "c_"}], "]"}], ":=", 
  RowBox[{"PoislL", "[", "HLBb", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lLMH", "[", 
   RowBox[{"a_", ",", "b_", ",", "c_"}], "]"}], ":=", 
  RowBox[{"PoislL", "[", "MH", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lLMHb", "[", 
   RowBox[{"a_", ",", "b_", ",", "c_"}], "]"}], ":=", 
  RowBox[{"PoislL", "[", "MHb", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lLMHc", "[", 
   RowBox[{"a_", ",", "b_", ",", "c_"}], "]"}], ":=", 
  RowBox[{"PoislL", "[", "MHc", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lLTo", "[", 
   RowBox[{"a_", ",", "b_", ",", "c_"}], "]"}], ":=", 
  RowBox[{"PoislL", "[", "To", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lLFHM", "[", 
   RowBox[{"a_", ",", "b_", ",", "d_"}], "]"}], ":=", 
  RowBox[{"PoislL", "[", "FHM", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lLW", "[", 
   RowBox[{"a_", ",", "b_", ",", "v_"}], "]"}], ":=", 
  RowBox[{"PoislL", "[", "W", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lLTTA", "[", 
   RowBox[{"a_", ",", "b_", ",", "c_"}], "]"}], ":=", 
  RowBox[{"PoislL", "[", "TTA", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lLSBB", "[", 
   RowBox[{"a_", ",", "b_", ",", "v_"}], "]"}], ":=", 
  RowBox[{"PoislL", "[", "SBB", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lLSSS", "[", 
   RowBox[{"a_", ",", "b_", ",", "c_"}], "]"}], ":=", 
  RowBox[{"PoislL", "[", "SSS", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lLRGD", "[", 
   RowBox[{"a_", ",", "b_", ",", "c_"}], "]"}], ":=", 
  RowBox[{"PoislL", "[", "RGD", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lLS3", "[", 
   RowBox[{"a_", ",", "b_", ",", "u_"}], "]"}], ":=", 
  RowBox[{"PoislL", "[", "S3", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"lLS3b", "[", 
    RowBox[{"a_", ",", "b_", ",", "u_"}], "]"}], ":=", 
   RowBox[{"PoislL", "[", "S3b", "]"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lLBDOR", "[", 
   RowBox[{"a_", ",", "b_", ",", "c_", ",", "u_"}], "]"}], ":=", 
  RowBox[{"PoislL", "[", "BDOR", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lLCMOR", "[", 
   RowBox[{"a_", ",", "b_", ",", "c_", ",", "u_"}], "]"}], ":=", 
  RowBox[{"PoislL", "[", "CMOR", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lLAAOR", "[", 
   RowBox[{"a_", ",", "b_", ",", "v_", ",", "u_"}], "]"}], ":=", 
  RowBox[{"PoislL", "[", "AAOR", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lLSN1", "[", 
   RowBox[{"a_", ",", "b_", ",", "c_", ",", "d_"}], "]"}], ":=", 
  RowBox[{"PoislL", "[", "SN1", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lLSN2", "[", 
   RowBox[{"a_", ",", "b_", ",", "c_", ",", "d_"}], "]"}], ":=", 
  RowBox[{"PoislL", "[", "SN2", "]"}]}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.815476208963396*^9, 3.8154762678174763`*^9}, {
   3.81547643599431*^9, 3.815476436402581*^9}, {3.815685236635344*^9, 
   3.815685237289423*^9}, {3.816819086094633*^9, 3.8168190873738203`*^9}, {
   3.816819518140876*^9, 3.8168195456750793`*^9}, {3.817304553199898*^9, 
   3.817304701761168*^9}, {3.8173047888942947`*^9, 3.817304799885593*^9}, {
   3.817304830854021*^9, 3.817304835652973*^9}, {3.81730516943335*^9, 
   3.817305203415885*^9}, {3.81734346910916*^9, 3.817343471076432*^9}, {
   3.817505880319829*^9, 3.817505883014641*^9}, {3.817564155183676*^9, 
   3.817564167662635*^9}, {3.817566829157062*^9, 3.817566829772711*^9}, {
   3.817579237901161*^9, 3.8175792485320463`*^9}, 3.817582069389512*^9, {
   3.8176442475083847`*^9, 3.8176442775856857`*^9}, {3.818707272044758*^9, 
   3.8187073003233643`*^9}, {3.818708183472481*^9, 3.818708184912176*^9}, {
   3.818708406621814*^9, 3.818708424500875*^9}, {3.8187085477303257`*^9, 
   3.81870856376985*^9}, {3.8187085992882347`*^9, 3.818708626639229*^9}, {
   3.81870902702324*^9, 3.818709031118969*^9}, {3.818709236511047*^9, 
   3.818709239142797*^9}, {3.8187093190765142`*^9, 3.818709328659786*^9}, {
   3.818709455686784*^9, 3.818709490485086*^9}, {3.818709601375739*^9, 
   3.818709610854512*^9}, {3.818709673271203*^9, 3.8187096749264517`*^9}, {
   3.8189869785190887`*^9, 3.818986981791277*^9}, {3.819056238671668*^9, 
   3.819056238672621*^9}, {3.820061134896838*^9, 3.820061147317574*^9}, 
   3.8200611932154818`*^9, 3.820061266236293*^9, {3.820511275842173*^9, 
   3.8205112786657877`*^9}, {3.820543850811224*^9, 3.820543881680591*^9}, {
   3.820545014893035*^9, 3.820545039403854*^9}, {3.820620361230688*^9, 
   3.8206203729652843`*^9}, {3.820620493041335*^9, 3.820620497976865*^9}, {
   3.8206249020524178`*^9, 3.820624907171324*^9}, {3.820625034007511*^9, 
   3.820625040886283*^9}, {3.82442573927359*^9, 3.824425764424101*^9}, {
   3.824945945253449*^9, 3.82494594725257*^9}, {3.8251198894968987`*^9, 
   3.825119889497957*^9}, {3.825119952175247*^9, 3.825119965134832*^9}, {
   3.825426247850306*^9, 3.8254262516657333`*^9}, {3.825461960561606*^9, 
   3.8254619605630293`*^9}, {3.828491163566799*^9, 3.8284911693655863`*^9}, {
   3.828615315074319*^9, 3.828615323345509*^9}, {3.828788292900334*^9, 
   3.82878831822621*^9}, {3.828788413988719*^9, 3.8287884176366377`*^9}, {
   3.828788887033905*^9, 3.828788900689036*^9}, {3.82880984839965*^9, 
   3.828809852766739*^9}, {3.828826888274786*^9, 3.828826892026696*^9}, {
   3.82888374784972*^9, 3.828883761912709*^9}, {3.829003397772996*^9, 
   3.829003402851981*^9}, {3.829063471878728*^9, 3.829063472166079*^9}, {
   3.829063992363096*^9, 3.829064020457947*^9}},
 CellLabel->
  "In[587]:=",ExpressionUUID->"7b686fc6-4d4d-4fa1-aec5-2dd6d542c0b5"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Define master Geometric Complexity function", "Subsection",
 CellChangeTimes->{{3.815613694917697*^9, 3.815613724556559*^9}, {
  3.81730561837744*^9, 
  3.81730561874506*^9}},ExpressionUUID->"0eafcf56-a2ee-43c2-8e9b-\
7a45cbcf8507"],

Cell[BoxData[{
 RowBox[{"ClearAll", "[", "GeomComplex", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"GeomComplex", "[", "\[IndentingNewLine]", 
   RowBox[{
   "\[CapitalNu]values_", ",", "\[IndentingNewLine]", "Pvalues_", ",", 
    "\[IndentingNewLine]", "Model_"}], "]"}], ":=", "\[IndentingNewLine]", 
  RowBox[{"Module", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"\[CapitalNu]vals", "=", "\[CapitalNu]values"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Pvals", "=", "Pvalues"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Tval", "=", "1"}], ",", "\[IndentingNewLine]", 
      RowBox[{"NIntMethod", "=", " ", 
       RowBox[{"{", 
        RowBox[{"\"\<LocalAdaptive\>\"", ",", 
         RowBox[{"\"\<SingularityHandler\>\"", "\[Rule]", "Automatic"}]}], 
        "}"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"minRec", "=", "150"}], ",", "\[IndentingNewLine]", 
      RowBox[{"maxRec", "=", "500"}], ",", "\[IndentingNewLine]", 
      RowBox[{"accgoal", "=", "3"}], ",", " ", "\[IndentingNewLine]", 
      RowBox[{"precgoal", "=", "3"}], ",", "\[IndentingNewLine]", 
      RowBox[{"FminMult", "=", "1"}], ",", " ", 
      RowBox[{"(*", " ", 
       RowBox[{"0.1", " ", "or", " ", "1"}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"FmaxMult", "=", "1"}]}], " ", 
     RowBox[{"(*", " ", 
      RowBox[{"10", " ", "or", " ", "1"}], " ", "*)"}], "\[IndentingNewLine]",
      "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\[CapitalNu]probs", "=", 
      RowBox[{"ConstantArray", "[", 
       RowBox[{
        RowBox[{"1", "/", 
         RowBox[{"Length", "[", "\[CapitalNu]vals", "]"}]}], ",", 
        RowBox[{"Length", "[", "\[CapitalNu]vals", "]"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Pprobs", "=", 
      RowBox[{"ConstantArray", "[", 
       RowBox[{
        RowBox[{"1", "/", 
         RowBox[{"Length", "[", "Pvals", "]"}]}], ",", 
        RowBox[{"Length", "[", "Pvals", "]"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"\[CapitalNu]DistE", "=", 
      RowBox[{"EmpiricalDistribution", "[", 
       RowBox[{"\[CapitalNu]probs", "\[Rule]", "\[CapitalNu]vals"}], "]"}]}], 
     ";", "\[IndentingNewLine]", 
     RowBox[{"PDistE", "=", 
      RowBox[{"EmpiricalDistribution", "[", 
       RowBox[{"Pprobs", "\[Rule]", "Pvals"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"subs", "=", 
      RowBox[{"{", 
       RowBox[{"T", "\[Rule]", " ", "Tval"}], "}"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"ParmRange", "=", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"a", ",", "0", ",", "Infinity"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"b", ",", "0", ",", "Infinity"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"c", ",", "0", ",", "Infinity"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"v", ",", "0", ",", "1", ",", "Infinity"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"u", ",", "0", ",", "1", ",", "Infinity"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"d", ",", 
          RowBox[{"-", "Infinity"}], ",", 
          RowBox[{"-", "1"}], ",", "0", ",", "1", ",", "Infinity"}], "}"}]}], 
       " ", "\[IndentingNewLine]", "}"}]}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"Which", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Model", "==", "\"\<H1\>\""}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"DetH1", "=", 
         RowBox[{"Det", "[", 
          RowBox[{"EFisher", "[", 
           RowBox[{
            RowBox[{"fisher", "[", 
             RowBox[{"lLH1", ",", 
              RowBox[{"{", "a", "}"}]}], "]"}], ",", "H1", ",", "PDistE", ",",
             "\[CapitalNu]DistE", ",", "subs"}], "]"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"NIntH1", "=", "\[IndentingNewLine]", 
         RowBox[{"Log", "[", "\[IndentingNewLine]", 
          RowBox[{"NIntegrate", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"SqrtDetEFlim", "[", 
             RowBox[{
             "H1", ",", "DetH1", ",", "\[CapitalNu]vals", ",", "Pvals", ",", 
              "subs", ",", "FminMult", ",", " ", "FmaxMult"}], "]"}], ",", 
            " ", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"AccuracyGoal", "\[Rule]", "accgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"PrecisionGoal", "\[Rule]", "precgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"Method", "\[Rule]", "NIntMethod"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MaxRecursion", "\[Rule]", "maxRec"}]}], "]"}], "]"}]}]}],
        "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
       RowBox[{"Model", "\[Equal]", "\"\<LR\>\""}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"DetLR", "=", 
         RowBox[{"Det", "[", 
          RowBox[{"EFisher", "[", 
           RowBox[{
            RowBox[{"fisher", "[", 
             RowBox[{"lLLR", ",", 
              RowBox[{"{", "a", "}"}]}], "]"}], ",", "LR", ",", "PDistE", ",",
             "\[CapitalNu]DistE", ",", "subs"}], "]"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"NIntLR", "=", "\[IndentingNewLine]", 
         RowBox[{"Log", "[", "\[IndentingNewLine]", 
          RowBox[{"NIntegrate", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"SqrtDetEFlim", "[", 
             RowBox[{
             "LR", ",", "DetLR", ",", "\[CapitalNu]vals", ",", "Pvals", ",", 
              "subs", ",", "FminMult", ",", " ", "FmaxMult"}], "]"}], ",", 
            " ", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"AccuracyGoal", "\[Rule]", "accgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"PrecisionGoal", "\[Rule]", "precgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"Method", "\[Rule]", "NIntMethod"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MaxRecursion", "\[Rule]", "maxRec"}]}], "]"}], "]"}]}]}],
        "\[IndentingNewLine]", ",", " ", "\[IndentingNewLine]", 
       RowBox[{"Model", "\[Equal]", "\"\<BWL1\>\""}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"DetBWL1", "=", 
         RowBox[{"Det", "[", 
          RowBox[{"EFisher", "[", 
           RowBox[{
            RowBox[{"fisher", "[", 
             RowBox[{"lLBWL1", ",", 
              RowBox[{"{", "a", "}"}]}], "]"}], ",", "BWL1", ",", "PDistE", 
            ",", "\[CapitalNu]DistE", ",", "subs"}], "]"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"NIntBWL1", "=", "\[IndentingNewLine]", 
         RowBox[{"Log", "[", "\[IndentingNewLine]", 
          RowBox[{"NIntegrate", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"SqrtDetEFlim", "[", 
             RowBox[{
             "BWL1", ",", "DetBWL1", ",", "\[CapitalNu]vals", ",", "Pvals", 
              ",", "subs", ",", "FminMult", ",", " ", "FmaxMult"}], "]"}], 
            ",", " ", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"AccuracyGoal", "\[Rule]", "accgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"PrecisionGoal", "\[Rule]", "precgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"Method", "\[Rule]", "NIntMethod"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MaxRecursion", "\[Rule]", "maxRec"}]}], "]"}], "]"}]}]}],
        "\[IndentingNewLine]", ",", " ", "\[IndentingNewLine]", 
       RowBox[{"Model", "\[Equal]", "\"\<H2\>\""}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"DetH2", "=", 
         RowBox[{"Det", "[", 
          RowBox[{"EFisher", "[", 
           RowBox[{
            RowBox[{"fisher", "[", 
             RowBox[{"lLH2", ",", 
              RowBox[{"{", 
               RowBox[{"a", ",", " ", "b"}], "}"}]}], "]"}], ",", "H2", ",", 
            "PDistE", ",", "\[CapitalNu]DistE", ",", "subs"}], "]"}], "]"}]}],
         ";", "\[IndentingNewLine]", 
        RowBox[{"NIntH2", "=", "\[IndentingNewLine]", 
         RowBox[{"Log", "[", "\[IndentingNewLine]", 
          RowBox[{"NIntegrate", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"SqrtDetEFlim", "[", 
             RowBox[{
             "H2", ",", "DetH2", ",", "\[CapitalNu]vals", ",", "Pvals", ",", 
              "subs", ",", "FminMult", ",", " ", "FmaxMult"}], "]"}], ",", 
            " ", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"AccuracyGoal", "\[Rule]", "accgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"PrecisionGoal", "\[Rule]", "precgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"Method", "\[Rule]", "NIntMethod"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MinRecursion", "\[Rule]", "minRec"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MaxRecursion", "\[Rule]", "maxRec"}]}], "]"}], "]"}]}]}],
        "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
       RowBox[{"Model", "\[Equal]", "\"\<MM\>\""}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"DetMM", "=", 
         RowBox[{"Det", "[", 
          RowBox[{"EFisher", "[", 
           RowBox[{
            RowBox[{"fisher", "[", 
             RowBox[{"lLMM", ",", 
              RowBox[{"{", 
               RowBox[{"a", ",", " ", "b"}], "}"}]}], "]"}], ",", "MM", ",", 
            "PDistE", ",", "\[CapitalNu]DistE", ",", "subs"}], "]"}], "]"}]}],
         ";", "\[IndentingNewLine]", 
        RowBox[{"NIntMM", "=", "\[IndentingNewLine]", 
         RowBox[{"Log", "[", "\[IndentingNewLine]", 
          RowBox[{"NIntegrate", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"SqrtDetEFlim", "[", 
             RowBox[{
             "MM", ",", "DetMM", ",", "\[CapitalNu]vals", ",", "Pvals", ",", 
              "subs", ",", "FminMult", ",", " ", "FmaxMult"}], "]"}], ",", 
            " ", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"AccuracyGoal", "\[Rule]", "accgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"PrecisionGoal", "\[Rule]", "precgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"Method", "\[Rule]", "NIntMethod"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MinRecursion", "\[Rule]", "minRec"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MaxRecursion", "\[Rule]", "maxRec"}]}], "]"}], "]"}]}]}],
        "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
       RowBox[{"Model", "\[Equal]", "\"\<HV\>\""}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"DetHV", "=", 
         RowBox[{"Det", "[", 
          RowBox[{"EFisher", "[", 
           RowBox[{
            RowBox[{"fisher", "[", 
             RowBox[{"lLHV", ",", 
              RowBox[{"{", 
               RowBox[{"a", ",", "v"}], "}"}]}], "]"}], ",", "HV", ",", 
            "PDistE", ",", "\[CapitalNu]DistE", ",", "subs"}], "]"}], "]"}]}],
         ";", "\[IndentingNewLine]", 
        RowBox[{"NIntHV", "=", "\[IndentingNewLine]", 
         RowBox[{"Log", "[", "\[IndentingNewLine]", 
          RowBox[{"NIntegrate", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"SqrtDetEFlim", "[", 
             RowBox[{
             "HV", ",", "DetHV", ",", "\[CapitalNu]vals", ",", "Pvals", ",", 
              "subs", ",", "FminMult", ",", " ", "FmaxMult"}], "]"}], ",", 
            " ", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "4", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"AccuracyGoal", "\[Rule]", "accgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"PrecisionGoal", "\[Rule]", "precgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"Method", "\[Rule]", "NIntMethod"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MinRecursion", "\[Rule]", "minRec"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MaxRecursion", "\[Rule]", "maxRec"}]}], "]"}], "]"}]}]}],
        "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
       RowBox[{"Model", "\[Equal]", "\"\<R\>\""}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"DetR", "=", 
         RowBox[{"Det", "[", 
          RowBox[{"EFisher", "[", 
           RowBox[{
            RowBox[{"fisher", "[", 
             RowBox[{"lLR", ",", 
              RowBox[{"{", 
               RowBox[{"a", ",", "u"}], "}"}]}], "]"}], ",", "R", ",", 
            "PDistE", ",", "\[CapitalNu]DistE", ",", "subs"}], "]"}], "]"}]}],
         ";", "\[IndentingNewLine]", 
        RowBox[{"NIntR", "=", "\[IndentingNewLine]", 
         RowBox[{"Log", "[", "\[IndentingNewLine]", 
          RowBox[{"NIntegrate", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"SqrtDetEFlim", "[", 
             RowBox[{
             "R", ",", "DetR", ",", "\[CapitalNu]vals", ",", "Pvals", ",", 
              "subs", ",", "FminMult", ",", " ", "FmaxMult"}], "]"}], ",", 
            " ", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "5", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"AccuracyGoal", "\[Rule]", "accgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"PrecisionGoal", "\[Rule]", "precgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"Method", "\[Rule]", "NIntMethod"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MinRecursion", "\[Rule]", " ", "minRec"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MaxRecursion", "\[Rule]", "maxRec"}]}], "]"}], "]"}]}]}],
        "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
       RowBox[{"Model", "\[Equal]", "\"\<H3\>\""}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"DetH3", "=", 
         RowBox[{"Det", "[", 
          RowBox[{"EFisher", "[", 
           RowBox[{
            RowBox[{"fisher", "[", 
             RowBox[{"lLH3", ",", 
              RowBox[{"{", 
               RowBox[{"a", ",", " ", "b"}], "}"}]}], "]"}], ",", "H3", ",", 
            "PDistE", ",", "\[CapitalNu]DistE", ",", "subs"}], "]"}], "]"}]}],
         ";", "\[IndentingNewLine]", 
        RowBox[{"NIntH3", "=", "\[IndentingNewLine]", 
         RowBox[{"Log", "[", "\[IndentingNewLine]", 
          RowBox[{"NIntegrate", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"SqrtDetEFlim", "[", 
             RowBox[{
             "H3", ",", "DetH3", ",", "\[CapitalNu]vals", ",", "Pvals", ",", 
              "subs", ",", "FminMult", ",", " ", "FmaxMult"}], "]"}], ",", 
            " ", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"AccuracyGoal", "\[Rule]", "accgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"PrecisionGoal", "\[Rule]", "precgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"Method", "\[Rule]", "NIntMethod"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MinRecursion", "\[Rule]", "minRec"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MaxRecursion", "\[Rule]", "maxRec"}]}], "]"}], "]"}]}]}],
        "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
       RowBox[{"Model", "\[Equal]", "\"\<AG\>\""}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"DetAG", "=", 
         RowBox[{"Det", "[", 
          RowBox[{"EFisher", "[", 
           RowBox[{
            RowBox[{"fisher", "[", 
             RowBox[{"lLAG", ",", 
              RowBox[{"{", 
               RowBox[{"a", ",", " ", "b"}], "}"}]}], "]"}], ",", "AG", ",", 
            "PDistE", ",", "\[CapitalNu]DistE", ",", "subs"}], "]"}], "]"}]}],
         ";", "\[IndentingNewLine]", 
        RowBox[{"NIntAG", "=", "\[IndentingNewLine]", 
         RowBox[{"Log", "[", "\[IndentingNewLine]", 
          RowBox[{"NIntegrate", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"SqrtDetEFlim", "[", 
             RowBox[{
             "AG", ",", "DetAG", ",", "\[CapitalNu]vals", ",", "Pvals", ",", 
              "subs", ",", "FminMult", ",", " ", "FmaxMult"}], "]"}], ",", 
            " ", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"AccuracyGoal", "\[Rule]", "accgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"PrecisionGoal", "\[Rule]", "precgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"Method", "\[Rule]", "NIntMethod"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MinRecursion", "\[Rule]", "minRec"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MaxRecursion", "\[Rule]", "maxRec"}]}], "]"}], "]"}]}]}],
        "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
       RowBox[{"Model", "\[Equal]", "\"\<CDAO\>\""}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"DetCDAO", "=", 
         RowBox[{"Det", "[", 
          RowBox[{"EFisher", "[", 
           RowBox[{
            RowBox[{"fisher", "[", 
             RowBox[{"lLCDAO", ",", 
              RowBox[{"{", 
               RowBox[{"a", ",", " ", "b"}], "}"}]}], "]"}], ",", "CDAO", ",",
             "PDistE", ",", "\[CapitalNu]DistE", ",", "subs"}], "]"}], 
          "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"NIntCDAO", "=", "\[IndentingNewLine]", 
         RowBox[{"Log", "[", "\[IndentingNewLine]", 
          RowBox[{"NIntegrate", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"SqrtDetEFlim", "[", 
             RowBox[{
             "CDAO", ",", "DetCDAO", ",", "\[CapitalNu]vals", ",", "Pvals", 
              ",", "subs", ",", "FminMult", ",", " ", "FmaxMult"}], "]"}], 
            ",", " ", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"AccuracyGoal", "\[Rule]", "accgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"PrecisionGoal", "\[Rule]", "precgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"Method", "\[Rule]", "NIntMethod"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MinRecursion", "\[Rule]", "minRec"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MaxRecursion", "\[Rule]", "maxRec"}]}], "]"}], "]"}]}]}],
        "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
       RowBox[{"Model", "\[Equal]", "\"\<GI\>\""}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"DetGI", "=", 
         RowBox[{"Det", "[", 
          RowBox[{"EFisher", "[", 
           RowBox[{
            RowBox[{"fisher", "[", 
             RowBox[{"lLGI", ",", 
              RowBox[{"{", 
               RowBox[{"a", ",", " ", "b"}], "}"}]}], "]"}], ",", "GI", ",", 
            "PDistE", ",", "\[CapitalNu]DistE", ",", "subs"}], "]"}], "]"}]}],
         ";", "\[IndentingNewLine]", 
        RowBox[{"NIntGI", "=", "\[IndentingNewLine]", 
         RowBox[{"Log", "[", "\[IndentingNewLine]", 
          RowBox[{"NIntegrate", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"SqrtDetEFlim", "[", 
             RowBox[{
             "GI", ",", "DetGI", ",", "\[CapitalNu]vals", ",", "Pvals", ",", 
              "subs", ",", "FminMult", ",", " ", "FmaxMult"}], "]"}], ",", 
            " ", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"AccuracyGoal", "\[Rule]", "accgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"PrecisionGoal", "\[Rule]", "precgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"Method", "\[Rule]", "NIntMethod"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MinRecursion", "\[Rule]", "0"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MaxRecursion", "\[Rule]", "maxRec"}]}], "]"}], "]"}]}]}],
        "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
       RowBox[{"Model", "\[Equal]", "\"\<GIA\>\""}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"DetGIA", "=", 
         RowBox[{"Det", "[", 
          RowBox[{"EFisher", "[", 
           RowBox[{
            RowBox[{"fisher", "[", 
             RowBox[{"lLGIA", ",", 
              RowBox[{"{", 
               RowBox[{"a", ",", " ", "b"}], "}"}]}], "]"}], ",", "GIA", ",", 
            "PDistE", ",", "\[CapitalNu]DistE", ",", "subs"}], "]"}], "]"}]}],
         ";", "\[IndentingNewLine]", 
        RowBox[{"NIntGIA", "=", "\[IndentingNewLine]", 
         RowBox[{"Log", "[", "\[IndentingNewLine]", 
          RowBox[{"NIntegrate", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"SqrtDetEFlim", "[", 
             RowBox[{
             "GIA", ",", "DetGIA", ",", "\[CapitalNu]vals", ",", "Pvals", ",",
               "subs", ",", "FminMult", ",", " ", "FmaxMult"}], "]"}], ",", 
            " ", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"AccuracyGoal", "\[Rule]", "accgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"PrecisionGoal", "\[Rule]", "precgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"Method", "\[Rule]", "NIntMethod"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MinRecursion", "\[Rule]", "minRec"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MaxRecursion", "\[Rule]", "maxRec"}]}], "]"}], "]"}]}]}],
        "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
       RowBox[{"Model", "\[Equal]", "\"\<GB\>\""}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"DetGB", "=", 
         RowBox[{"Det", "[", 
          RowBox[{"EFisher", "[", 
           RowBox[{
            RowBox[{"fisher", "[", 
             RowBox[{"lLGB", ",", 
              RowBox[{"{", 
               RowBox[{"a", ",", " ", "b"}], "}"}]}], "]"}], ",", "GB", ",", 
            "PDistE", ",", "\[CapitalNu]DistE", ",", "subs"}], "]"}], "]"}]}],
         ";", "\[IndentingNewLine]", 
        RowBox[{"NIntGB", "=", "\[IndentingNewLine]", 
         RowBox[{"Log", "[", "\[IndentingNewLine]", 
          RowBox[{"NIntegrate", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"SqrtDetEFlim", "[", 
             RowBox[{
             "GB", ",", "DetGB", ",", "\[CapitalNu]vals", ",", "Pvals", ",", 
              "subs", ",", "FminMult", ",", " ", "FmaxMult"}], "]"}], ",", 
            " ", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"AccuracyGoal", "\[Rule]", "accgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"PrecisionGoal", "\[Rule]", "precgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"Method", "\[Rule]", "NIntMethod"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MinRecursion", "\[Rule]", "0"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MaxRecursion", "\[Rule]", "maxRec"}]}], "]"}], "]"}]}]}],
        "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
       RowBox[{"Model", "\[Equal]", "\"\<HT\>\""}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"DetHT", "=", 
         RowBox[{"Det", "[", 
          RowBox[{"EFisher", "[", 
           RowBox[{
            RowBox[{"fisher", "[", 
             RowBox[{"lLHT", ",", 
              RowBox[{"{", 
               RowBox[{"a", ",", " ", "b"}], "}"}]}], "]"}], ",", "HT", ",", 
            "PDistE", ",", "\[CapitalNu]DistE", ",", "subs"}], "]"}], "]"}]}],
         ";", "\[IndentingNewLine]", 
        RowBox[{"NIntHT", "=", "\[IndentingNewLine]", 
         RowBox[{"Log", "[", "\[IndentingNewLine]", 
          RowBox[{"NIntegrate", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"SqrtDetEFlim", "[", 
             RowBox[{
             "HT", ",", "DetHT", ",", "\[CapitalNu]vals", ",", "Pvals", ",", 
              "subs", ",", "FminMult", ",", " ", "FmaxMult"}], "]"}], ",", 
            " ", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"AccuracyGoal", "\[Rule]", "accgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"PrecisionGoal", "\[Rule]", "precgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"Method", "\[Rule]", "NIntMethod"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MinRecursion", "\[Rule]", "minRec"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MaxRecursion", "\[Rule]", "maxRec"}]}], "]"}], "]"}]}]}],
        "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
       RowBox[{"Model", "\[Equal]", "\"\<HTb\>\""}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"DetHTb", "=", 
         RowBox[{"Det", "[", 
          RowBox[{"EFisher", "[", 
           RowBox[{
            RowBox[{"fisher", "[", 
             RowBox[{"lLHTb", ",", 
              RowBox[{"{", 
               RowBox[{"a", ",", " ", "b"}], "}"}]}], "]"}], ",", "HTb", ",", 
            "PDistE", ",", "\[CapitalNu]DistE", ",", "subs"}], "]"}], "]"}]}],
         ";", "\[IndentingNewLine]", 
        RowBox[{"NIntHTb", "=", "\[IndentingNewLine]", 
         RowBox[{"Log", "[", "\[IndentingNewLine]", 
          RowBox[{"NIntegrate", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"SqrtDetEFlim", "[", 
             RowBox[{
             "HTb", ",", "DetHTb", ",", "\[CapitalNu]vals", ",", "Pvals", ",",
               "subs", ",", "FminMult", ",", " ", "FmaxMult"}], "]"}], ",", 
            " ", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"AccuracyGoal", "\[Rule]", "accgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"PrecisionGoal", "\[Rule]", "precgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"Method", "\[Rule]", "NIntMethod"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MinRecursion", "\[Rule]", "minRec"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MaxRecursion", "\[Rule]", "maxRec"}]}], "]"}], "]"}]}]}],
        "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
       RowBox[{"Model", "\[Equal]", "\"\<A0\>\""}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"DetA0", "=", 
         RowBox[{"Det", "[", 
          RowBox[{"EFisher", "[", 
           RowBox[{
            RowBox[{"fisher", "[", 
             RowBox[{"lLA0", ",", 
              RowBox[{"{", 
               RowBox[{"a", ",", "b"}], "}"}]}], "]"}], ",", "A0", ",", 
            "PDistE", ",", "\[CapitalNu]DistE", ",", "subs"}], "]"}], "]"}]}],
         ";", "\[IndentingNewLine]", 
        RowBox[{"NIntA0", "=", "\[IndentingNewLine]", 
         RowBox[{"Log", "[", "\[IndentingNewLine]", 
          RowBox[{"NIntegrate", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"SqrtDetEFlim", "[", 
             RowBox[{
             "A0", ",", "DetA0", ",", "\[CapitalNu]vals", ",", "Pvals", ",", 
              "subs", ",", "FminMult", ",", " ", "FmaxMult"}], "]"}], ",", 
            " ", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"AccuracyGoal", "\[Rule]", "accgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"PrecisionGoal", "\[Rule]", "precgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"Method", "\[Rule]", "NIntMethod"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MinRecursion", "\[Rule]", "minRec"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MaxRecursion", "\[Rule]", "maxRec"}]}], "]"}], "]"}]}]}],
        "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
       RowBox[{"Model", "\[Equal]", "\"\<A3\>\""}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"DetA3", "=", 
         RowBox[{"Det", "[", 
          RowBox[{"EFisher", "[", 
           RowBox[{
            RowBox[{"fisher", "[", 
             RowBox[{"lLA3", ",", 
              RowBox[{"{", 
               RowBox[{"a", ",", "b"}], "}"}]}], "]"}], ",", "A3", ",", 
            "PDistE", ",", "\[CapitalNu]DistE", ",", "subs"}], "]"}], "]"}]}],
         ";", "\[IndentingNewLine]", 
        RowBox[{"NIntA3", "=", "\[IndentingNewLine]", 
         RowBox[{"Log", "[", "\[IndentingNewLine]", 
          RowBox[{"NIntegrate", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"SqrtDetEFlim", "[", 
             RowBox[{
             "A3", ",", "DetA3", ",", "\[CapitalNu]vals", ",", "Pvals", ",", 
              "subs", ",", "FminMult", ",", " ", "FmaxMult"}], "]"}], ",", 
            " ", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"AccuracyGoal", "\[Rule]", "accgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"PrecisionGoal", "\[Rule]", "precgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"Method", "\[Rule]", "NIntMethod"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MinRecursion", "\[Rule]", "minRec"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MaxRecursion", "\[Rule]", "maxRec"}]}], "]"}], "]"}]}]}],
        "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
       RowBox[{"Model", "\[Equal]", "\"\<AGK\>\""}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"DetAGK", "=", 
         RowBox[{"Det", "[", 
          RowBox[{"EFisher", "[", 
           RowBox[{
            RowBox[{"fisher", "[", 
             RowBox[{"lLAGK", ",", 
              RowBox[{"{", 
               RowBox[{"a", ",", " ", "b"}], "}"}]}], "]"}], ",", "AGK", ",", 
            "PDistE", ",", "\[CapitalNu]DistE", ",", "subs"}], "]"}], "]"}]}],
         ";", "\[IndentingNewLine]", 
        RowBox[{"NIntAGK", "=", "\[IndentingNewLine]", 
         RowBox[{"Log", "[", "\[IndentingNewLine]", 
          RowBox[{"NIntegrate", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"SqrtDetEFlim", "[", 
             RowBox[{
             "AGK", ",", "DetAGK", ",", "\[CapitalNu]vals", ",", "Pvals", ",",
               "subs", ",", "FminMult", ",", " ", "FmaxMult"}], "]"}], ",", 
            " ", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"AccuracyGoal", "\[Rule]", "accgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"PrecisionGoal", "\[Rule]", "precgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"Method", "\[Rule]", "NIntMethod"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MinRecursion", "\[Rule]", "minRec"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MaxRecursion", "\[Rule]", "maxRec"}]}], "]"}], "]"}]}]}],
        "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
       RowBox[{"Model", "\[Equal]", "\"\<A1\>\""}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"DetA1", "=", 
         RowBox[{"Det", "[", 
          RowBox[{"EFisher", "[", 
           RowBox[{
            RowBox[{"fisher", "[", 
             RowBox[{"lLA1", ",", 
              RowBox[{"{", 
               RowBox[{"a", ",", "b"}], "}"}]}], "]"}], ",", "A1", ",", 
            "PDistE", ",", "\[CapitalNu]DistE", ",", "subs"}], "]"}], "]"}]}],
         ";", "\[IndentingNewLine]", 
        RowBox[{"NIntA1", "=", "\[IndentingNewLine]", 
         RowBox[{"Log", "[", "\[IndentingNewLine]", 
          RowBox[{"NIntegrate", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"SqrtDetEFlim", "[", 
             RowBox[{
             "A1", ",", "DetA1", ",", "\[CapitalNu]vals", ",", "Pvals", ",", 
              "subs", ",", "FminMult", ",", " ", "FmaxMult"}], "]"}], ",", 
            " ", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"AccuracyGoal", "\[Rule]", "accgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"PrecisionGoal", "\[Rule]", "precgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"Method", "\[Rule]", "NIntMethod"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MinRecursion", "\[Rule]", "minRec"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MaxRecursion", "\[Rule]", "maxRec"}]}], "]"}], "]"}]}]}],
        "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
       RowBox[{"Model", "\[Equal]", "\"\<SH\>\""}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"DetSH", "=", 
         RowBox[{"Det", "[", 
          RowBox[{"EFisher", "[", 
           RowBox[{
            RowBox[{"fisher", "[", 
             RowBox[{"lLSH", ",", 
              RowBox[{"{", 
               RowBox[{"a", ",", "b"}], "}"}]}], "]"}], ",", "SH", ",", 
            "PDistE", ",", "\[CapitalNu]DistE", ",", "subs"}], "]"}], "]"}]}],
         ";", "\[IndentingNewLine]", 
        RowBox[{"NIntSH", "=", " ", "\[IndentingNewLine]", 
         RowBox[{"Log", "[", "\[IndentingNewLine]", 
          RowBox[{"NIntegrate", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"SqrtDetEFlim", "[", 
             RowBox[{
             "SH", ",", "DetSH", ",", "\[CapitalNu]vals", ",", "Pvals", ",", 
              "subs", ",", "FminMult", ",", " ", "FmaxMult"}], "]"}], ",", 
            " ", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"AccuracyGoal", "\[Rule]", "accgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"PrecisionGoal", "\[Rule]", "precgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"Method", "\[Rule]", "NIntMethod"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MinRecursion", "\[Rule]", "minRec"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MaxRecursion", "\[Rule]", "maxRec"}]}], "]"}], " ", 
          "]"}]}]}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
       RowBox[{"Model", "\[Equal]", "\"\<SHb\>\""}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"DetSHb", "=", 
         RowBox[{"Det", "[", 
          RowBox[{"EFisher", "[", 
           RowBox[{
            RowBox[{"fisher", "[", 
             RowBox[{"lLSHb", ",", 
              RowBox[{"{", 
               RowBox[{"a", ",", "b"}], "}"}]}], "]"}], ",", "SHb", ",", 
            "PDistE", ",", "\[CapitalNu]DistE", ",", "subs"}], "]"}], "]"}]}],
         ";", "\[IndentingNewLine]", 
        RowBox[{"NIntSHb", "=", " ", "\[IndentingNewLine]", 
         RowBox[{"Log", "[", "\[IndentingNewLine]", 
          RowBox[{"NIntegrate", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"SqrtDetEFlim", "[", 
             RowBox[{
             "SHb", ",", "DetSHb", ",", "\[CapitalNu]vals", ",", "Pvals", ",",
               "subs", ",", "FminMult", ",", " ", "FmaxMult"}], "]"}], ",", 
            " ", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"AccuracyGoal", "\[Rule]", "accgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"PrecisionGoal", "\[Rule]", "precgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"Method", "\[Rule]", "NIntMethod"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MinRecursion", "\[Rule]", "minRec"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MaxRecursion", "\[Rule]", "maxRec"}]}], "]"}], " ", 
          "]"}]}]}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
       RowBox[{"Model", "\[Equal]", "\"\<BD\>\""}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"DetBD", "=", 
         RowBox[{"Det", "[", 
          RowBox[{"EFisher", "[", 
           RowBox[{
            RowBox[{"fisher", "[", 
             RowBox[{"lLBD", ",", 
              RowBox[{"{", 
               RowBox[{"a", ",", "b", ",", "c"}], "}"}]}], "]"}], ",", "BD", 
            ",", "PDistE", ",", "\[CapitalNu]DistE", ",", "subs"}], "]"}], 
          "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"NIntBD", "=", "\[IndentingNewLine]", 
         RowBox[{"Log", "[", "\[IndentingNewLine]", 
          RowBox[{"NIntegrate", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"SqrtDetEFlim", "[", 
             RowBox[{
             "BD", ",", "DetBD", ",", "\[CapitalNu]vals", ",", "Pvals", ",", 
              "subs", ",", "FminMult", ",", " ", "FmaxMult"}], "]"}], ",", 
            " ", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "3", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"AccuracyGoal", "\[Rule]", "accgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"PrecisionGoal", "\[Rule]", "precgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"Method", "\[Rule]", " ", "NIntMethod"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MinRecursion", "\[Rule]", "minRec"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MaxRecursion", "\[Rule]", "maxRec"}]}], "]"}], "]"}]}]}],
        "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
       RowBox[{"Model", "\[Equal]", "\"\<CM\>\""}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"DetCM", "=", 
         RowBox[{"Det", "[", 
          RowBox[{"EFisher", "[", 
           RowBox[{
            RowBox[{"fisher", "[", 
             RowBox[{"lLCM", ",", 
              RowBox[{"{", 
               RowBox[{"a", ",", "b", ",", "c"}], "}"}]}], "]"}], ",", "CM", 
            ",", "PDistE", ",", "\[CapitalNu]DistE", ",", "subs"}], "]"}], 
          "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"NIntCM", "=", "\[IndentingNewLine]", 
         RowBox[{"Log", "[", "\[IndentingNewLine]", 
          RowBox[{"NIntegrate", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"SqrtDetEFlim", "[", 
             RowBox[{
             "CM", ",", "DetCM", ",", "\[CapitalNu]vals", ",", "Pvals", ",", 
              "subs", ",", "FminMult", ",", " ", "FmaxMult"}], "]"}], ",", 
            " ", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "3", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"AccuracyGoal", "\[Rule]", "accgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"PrecisionGoal", "\[Rule]", "precgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"Method", "\[Rule]", "NIntMethod"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MinRecursion", "\[Rule]", "minRec"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MaxRecursion", "\[Rule]", "maxRec"}]}], "]"}], "]"}]}]}],
        "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
       RowBox[{"Model", "\[Equal]", "\"\<AA\>\""}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"DetAA", "=", 
         RowBox[{"Det", "[", 
          RowBox[{"EFisher", "[", 
           RowBox[{
            RowBox[{"fisher", "[", 
             RowBox[{"lLAA", ",", 
              RowBox[{"{", 
               RowBox[{"a", ",", "b", ",", "v"}], "}"}]}], "]"}], ",", "AA", 
            ",", "PDistE", ",", "\[CapitalNu]DistE", ",", "subs"}], "]"}], 
          "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"NIntAA", "=", "\[IndentingNewLine]", 
         RowBox[{"Log", "[", "\[IndentingNewLine]", 
          RowBox[{"NIntegrate", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"SqrtDetEFlim", "[", 
             RowBox[{
             "AA", ",", "DetAA", ",", "\[CapitalNu]vals", ",", "Pvals", ",", 
              "subs", ",", "FminMult", ",", " ", "FmaxMult"}], "]"}], ",", 
            " ", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "4", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"AccuracyGoal", "\[Rule]", "accgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"PrecisionGoal", "\[Rule]", "precgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"Method", "\[Rule]", "NIntMethod"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MinRecursion", "\[Rule]", "minRec"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MaxRecursion", "\[Rule]", "maxRec"}]}], "]"}], "]"}]}]}],
        "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
       RowBox[{"Model", "\[Equal]", "\"\<BWL2\>\""}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"DetBWL2", "=", 
         RowBox[{"Det", "[", 
          RowBox[{"EFisher", "[", 
           RowBox[{
            RowBox[{"fisher", "[", 
             RowBox[{"lLBWL2", ",", 
              RowBox[{"{", 
               RowBox[{"a", ",", "v", ",", "u"}], "}"}]}], "]"}], ",", "BWL2",
             ",", "PDistE", ",", "\[CapitalNu]DistE", ",", "subs"}], "]"}], 
          "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"NIntBWL2", "=", "\[IndentingNewLine]", 
         RowBox[{"Log", "[", "\[IndentingNewLine]", 
          RowBox[{"NIntegrate", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"SqrtDetEFlim", "[", 
             RowBox[{
             "BWL2", ",", "DetBWL2", ",", "\[CapitalNu]vals", ",", "Pvals", 
              ",", "subs", ",", "FminMult", ",", " ", "FmaxMult"}], "]"}], 
            ",", " ", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "4", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "5", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"AccuracyGoal", "\[Rule]", "accgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"PrecisionGoal", "\[Rule]", "precgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"Method", "\[Rule]", "NIntMethod"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MinRecursion", "\[Rule]", "minRec"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MaxRecursion", "\[Rule]", "maxRec"}]}], "]"}], "]"}]}]}],
        "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
       RowBox[{"Model", "\[Equal]", "\"\<H3R\>\""}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"DetH3R", "=", 
         RowBox[{"Det", "[", 
          RowBox[{"EFisher", "[", 
           RowBox[{
            RowBox[{"fisher", "[", 
             RowBox[{"lLH3R", ",", 
              RowBox[{"{", 
               RowBox[{"a", ",", "b", ",", "u"}], "}"}]}], "]"}], ",", "H3R", 
            ",", "PDistE", ",", "\[CapitalNu]DistE", ",", "subs"}], "]"}], 
          "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"NIntH3R", "=", "\[IndentingNewLine]", 
         RowBox[{"Log", "[", "\[IndentingNewLine]", 
          RowBox[{"NIntegrate", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"SqrtDetEFlim", "[", 
             RowBox[{
             "H3R", ",", "DetH3R", ",", "\[CapitalNu]vals", ",", "Pvals", ",",
               "subs", ",", "FminMult", ",", " ", "FmaxMult"}], "]"}], ",", 
            " ", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "5", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"AccuracyGoal", "\[Rule]", "accgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"PrecisionGoal", "\[Rule]", "precgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"Method", "\[Rule]", "NIntMethod"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MinRecursion", "\[Rule]", "minRec"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MaxRecursion", "\[Rule]", "maxRec"}]}], "]"}], "]"}]}]}],
        "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
       RowBox[{"Model", "\[Equal]", "\"\<A2\>\""}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"DetA2", "=", 
         RowBox[{"Det", "[", 
          RowBox[{"EFisher", "[", 
           RowBox[{
            RowBox[{"fisher", "[", 
             RowBox[{"lLA2", ",", 
              RowBox[{"{", 
               RowBox[{"a", ",", "b", ",", "c"}], "}"}]}], "]"}], ",", "A2", 
            ",", "PDistE", ",", "\[CapitalNu]DistE", ",", "subs"}], "]"}], 
          "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"NIntA2", "=", "\[IndentingNewLine]", 
         RowBox[{"Log", "[", "\[IndentingNewLine]", 
          RowBox[{"NIntegrate", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"SqrtDetEFlim", "[", 
             RowBox[{
             "A2", ",", "DetA2", ",", "\[CapitalNu]vals", ",", "Pvals", ",", 
              "subs", ",", "FminMult", ",", " ", "FmaxMult"}], "]"}], ",", 
            " ", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "3", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"AccuracyGoal", "\[Rule]", "accgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"PrecisionGoal", "\[Rule]", "precgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"Method", "\[Rule]", "NIntMethod"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MinRecursion", "\[Rule]", "minRec"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MaxRecursion", "\[Rule]", "maxRec"}]}], "]"}], "]"}]}]}],
        "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
       RowBox[{"Model", "\[Equal]", "\"\<HLB\>\""}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"DetHLB", "=", 
         RowBox[{"Det", "[", 
          RowBox[{"EFisher", "[", 
           RowBox[{
            RowBox[{"fisher", "[", 
             RowBox[{"lLHLB", ",", 
              RowBox[{"{", 
               RowBox[{"a", ",", "b", ",", "c"}], "}"}]}], "]"}], ",", "HLB", 
            ",", "PDistE", ",", "\[CapitalNu]DistE", ",", "subs"}], "]"}], 
          "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"NIntHLB", "=", "\[IndentingNewLine]", 
         RowBox[{"Log", "[", "\[IndentingNewLine]", 
          RowBox[{"NIntegrate", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"SqrtDetEFlim", "[", 
             RowBox[{
             "HLB", ",", "DetHLB", ",", "\[CapitalNu]vals", ",", "Pvals", ",",
               "subs", ",", "FminMult", ",", " ", "FmaxMult"}], "]"}], ",", 
            " ", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "3", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"AccuracyGoal", "\[Rule]", "accgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"PrecisionGoal", "\[Rule]", "precgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"Method", "\[Rule]", "NIntMethod"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MinRecursion", "\[Rule]", "minRec"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MaxRecursion", "\[Rule]", "maxRec"}]}], "]"}], "]"}]}]}],
        "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
       RowBox[{"Model", "\[Equal]", "\"\<HLBb\>\""}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"DetHLBb", "=", 
         RowBox[{"Det", "[", 
          RowBox[{"EFisher", "[", 
           RowBox[{
            RowBox[{"fisher", "[", 
             RowBox[{"lLHLBb", ",", 
              RowBox[{"{", 
               RowBox[{"a", ",", "b", ",", "c"}], "}"}]}], "]"}], ",", "HLBb",
             ",", "PDistE", ",", "\[CapitalNu]DistE", ",", "subs"}], "]"}], 
          "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"NIntHLBb", "=", "\[IndentingNewLine]", 
         RowBox[{"Log", "[", "\[IndentingNewLine]", 
          RowBox[{"NIntegrate", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"SqrtDetEFlim", "[", 
             RowBox[{
             "HLBb", ",", "DetHLBb", ",", "\[CapitalNu]vals", ",", "Pvals", 
              ",", "subs", ",", "FminMult", ",", " ", "FmaxMult"}], "]"}], 
            ",", " ", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "3", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"AccuracyGoal", "\[Rule]", "accgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"PrecisionGoal", "\[Rule]", "precgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"Method", "\[Rule]", "NIntMethod"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MinRecursion", "\[Rule]", "minRec"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MaxRecursion", "\[Rule]", "maxRec"}]}], "]"}], "]"}]}]}],
        "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
       RowBox[{"Model", "\[Equal]", "\"\<MH\>\""}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"DetMH", "=", 
         RowBox[{"Det", "[", 
          RowBox[{"EFisher", "[", 
           RowBox[{
            RowBox[{"fisher", "[", 
             RowBox[{"lLMH", ",", 
              RowBox[{"{", 
               RowBox[{"a", ",", "b", ",", "c"}], "}"}]}], "]"}], ",", "MH", 
            ",", "PDistE", ",", "\[CapitalNu]DistE", ",", "subs"}], "]"}], 
          "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"NIntMH", "=", "\[IndentingNewLine]", 
         RowBox[{"Log", "[", "\[IndentingNewLine]", 
          RowBox[{"NIntegrate", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"SqrtDetEFlim", "[", 
             RowBox[{
             "MH", ",", "DetMH", ",", "\[CapitalNu]vals", ",", "Pvals", ",", 
              "subs", ",", "FminMult", ",", " ", "FmaxMult"}], "]"}], ",", 
            " ", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "3", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"AccuracyGoal", "\[Rule]", "accgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"PrecisionGoal", "\[Rule]", "precgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"Method", "\[Rule]", "NIntMethod"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MinRecursion", "\[Rule]", "minRec"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MaxRecursion", "\[Rule]", "maxRec"}]}], "]"}], "]"}]}]}],
        "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
       RowBox[{"Model", "\[Equal]", "\"\<MHb\>\""}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"DetMHb", "=", 
         RowBox[{"Det", "[", 
          RowBox[{"EFisher", "[", 
           RowBox[{
            RowBox[{"fisher", "[", 
             RowBox[{"lLMHb", ",", 
              RowBox[{"{", 
               RowBox[{"a", ",", "b", ",", "c"}], "}"}]}], "]"}], ",", "MHb", 
            ",", "PDistE", ",", "\[CapitalNu]DistE", ",", "subs"}], "]"}], 
          "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"NIntMHb", "=", "\[IndentingNewLine]", 
         RowBox[{"Log", "[", "\[IndentingNewLine]", 
          RowBox[{"NIntegrate", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"SqrtDetEFlim", "[", 
             RowBox[{
             "MHb", ",", "DetMHb", ",", "\[CapitalNu]vals", ",", "Pvals", ",",
               "subs", ",", "FminMult", ",", " ", "FmaxMult"}], "]"}], ",", 
            " ", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "3", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"AccuracyGoal", "\[Rule]", "accgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"PrecisionGoal", "\[Rule]", "precgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"Method", "\[Rule]", "NIntMethod"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MinRecursion", "\[Rule]", "minRec"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MaxRecursion", "\[Rule]", "maxRec"}]}], "]"}], "]"}]}]}],
        "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
       RowBox[{"Model", "\[Equal]", "\"\<MHc\>\""}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"DetMHc", "=", 
         RowBox[{"Det", "[", 
          RowBox[{"EFisher", "[", 
           RowBox[{
            RowBox[{"fisher", "[", 
             RowBox[{"lLMHc", ",", 
              RowBox[{"{", 
               RowBox[{"a", ",", "b", ",", "c"}], "}"}]}], "]"}], ",", "MHc", 
            ",", "PDistE", ",", "\[CapitalNu]DistE", ",", "subs"}], "]"}], 
          "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"NIntMHc", "=", "\[IndentingNewLine]", 
         RowBox[{"Log", "[", "\[IndentingNewLine]", 
          RowBox[{"NIntegrate", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"SqrtDetEFlim", "[", 
             RowBox[{
             "MHc", ",", "DetMHc", ",", "\[CapitalNu]vals", ",", "Pvals", ",",
               "subs", ",", "FminMult", ",", " ", "FmaxMult"}], "]"}], ",", 
            " ", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "3", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"AccuracyGoal", "\[Rule]", "accgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"PrecisionGoal", "\[Rule]", "precgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"Method", "\[Rule]", "NIntMethod"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MinRecursion", "\[Rule]", "minRec"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MaxRecursion", "\[Rule]", "maxRec"}]}], "]"}], "]"}]}]}],
        "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
       RowBox[{"Model", "\[Equal]", "\"\<To\>\""}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"DetTo", "=", 
         RowBox[{"Det", "[", 
          RowBox[{"EFisher", "[", 
           RowBox[{
            RowBox[{"fisher", "[", 
             RowBox[{"lLTo", ",", 
              RowBox[{"{", 
               RowBox[{"a", ",", "b", ",", "c"}], "}"}]}], "]"}], ",", "To", 
            ",", "PDistE", ",", "\[CapitalNu]DistE", ",", "subs"}], "]"}], 
          "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"NIntTo", "=", "\[IndentingNewLine]", 
         RowBox[{"Log", "[", "\[IndentingNewLine]", 
          RowBox[{"NIntegrate", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"SqrtDetEFlim", "[", 
             RowBox[{
             "To", ",", "DetTo", ",", "\[CapitalNu]vals", ",", "Pvals", ",", 
              "subs", ",", "FminMult", ",", " ", "FmaxMult"}], "]"}], ",", 
            " ", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "3", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"AccuracyGoal", "\[Rule]", "accgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"PrecisionGoal", "\[Rule]", "precgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"Method", "\[Rule]", "NIntMethod"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MinRecursion", "\[Rule]", "minRec"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MaxRecursion", "\[Rule]", "maxRec"}]}], "]"}], "]"}]}]}],
        "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
       RowBox[{"Model", "\[Equal]", "\"\<FHM\>\""}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"DetFHM", "=", 
         RowBox[{"Det", "[", 
          RowBox[{"EFisher", "[", 
           RowBox[{
            RowBox[{"fisher", "[", 
             RowBox[{"lLFHM", ",", 
              RowBox[{"{", 
               RowBox[{"a", ",", "b", ",", "d"}], "}"}]}], "]"}], ",", "FHM", 
            ",", "PDistE", ",", "\[CapitalNu]DistE", ",", "subs"}], "]"}], 
          "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"NIntFHM", "=", "\[IndentingNewLine]", 
         RowBox[{"Log", "[", "\[IndentingNewLine]", 
          RowBox[{"NIntegrate", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"SqrtDetEFlim", "[", 
             RowBox[{
             "FHM", ",", "DetFHM", ",", "\[CapitalNu]vals", ",", "Pvals", ",",
               "subs", ",", "FminMult", ",", " ", "FmaxMult"}], "]"}], ",", 
            " ", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "6", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"AccuracyGoal", "\[Rule]", "accgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"PrecisionGoal", "\[Rule]", "precgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"Method", "\[Rule]", "NIntMethod"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MinRecursion", "\[Rule]", "minRec"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MaxRecursion", "\[Rule]", "maxRec"}]}], "]"}], "]"}]}]}],
        "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
       RowBox[{"Model", "\[Equal]", "\"\<W\>\""}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"DetW", "=", 
         RowBox[{"Det", "[", 
          RowBox[{"EFisher", "[", 
           RowBox[{
            RowBox[{"fisher", "[", 
             RowBox[{"lLW", ",", 
              RowBox[{"{", 
               RowBox[{"a", ",", " ", "b", ",", "v"}], "}"}]}], "]"}], ",", 
            "W", ",", "PDistE", ",", "\[CapitalNu]DistE", ",", "subs"}], 
           "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"NIntW", "=", "\[IndentingNewLine]", 
         RowBox[{"Log", "[", "\[IndentingNewLine]", 
          RowBox[{"NIntegrate", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"SqrtDetEFlim", "[", 
             RowBox[{
             "W", ",", "DetW", ",", "\[CapitalNu]vals", ",", "Pvals", ",", 
              "subs", ",", "FminMult", ",", " ", "FmaxMult"}], "]"}], ",", 
            " ", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "4", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"AccuracyGoal", "\[Rule]", "accgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"PrecisionGoal", "\[Rule]", "precgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"Method", "\[Rule]", "NIntMethod"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MinRecursion", "\[Rule]", "minRec"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MaxRecursion", "\[Rule]", "maxRec"}]}], "]"}], "]"}]}]}],
        "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
       RowBox[{"Model", "\[Equal]", "\"\<TTA\>\""}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"DetTTA", "=", 
         RowBox[{"Det", "[", 
          RowBox[{"EFisher", "[", 
           RowBox[{
            RowBox[{"fisher", "[", 
             RowBox[{"lLTTA", ",", 
              RowBox[{"{", 
               RowBox[{"a", ",", "b", ",", "c"}], "}"}]}], "]"}], ",", "TTA", 
            ",", "PDistE", ",", "\[CapitalNu]DistE", ",", "subs"}], "]"}], 
          "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"NIntTTA", "=", "\[IndentingNewLine]", 
         RowBox[{"Log", "[", "\[IndentingNewLine]", 
          RowBox[{"NIntegrate", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"SqrtDetEFlim", "[", 
             RowBox[{
             "TTA", ",", "DetTTA", ",", "\[CapitalNu]vals", ",", "Pvals", ",",
               "subs", ",", "FminMult", ",", " ", "FmaxMult"}], "]"}], ",", 
            " ", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "3", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"AccuracyGoal", "\[Rule]", "accgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"PrecisionGoal", "\[Rule]", "precgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"Method", "\[Rule]", "NIntMethod"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MinRecursion", "\[Rule]", "minRec"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MaxRecursion", "\[Rule]", "maxRec"}]}], "]"}], "]"}]}]}],
        "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
       RowBox[{"Model", "\[Equal]", "\"\<SBB\>\""}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"DetSBB", "=", 
         RowBox[{"Det", "[", 
          RowBox[{"EFisher", "[", 
           RowBox[{
            RowBox[{"fisher", "[", 
             RowBox[{"lLSBB", ",", 
              RowBox[{"{", 
               RowBox[{"a", ",", "b", ",", "v"}], "}"}]}], "]"}], ",", "SBB", 
            ",", "PDistE", ",", "\[CapitalNu]DistE", ",", "subs"}], "]"}], 
          "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"NIntSBB", "=", "\[IndentingNewLine]", 
         RowBox[{"Log", "[", "\[IndentingNewLine]", 
          RowBox[{"NIntegrate", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"SqrtDetEFlim", "[", 
             RowBox[{
             "SBB", ",", "DetSBB", ",", "\[CapitalNu]vals", ",", "Pvals", ",",
               "subs", ",", "FminMult", ",", " ", "FmaxMult"}], "]"}], ",", 
            " ", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "4", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"AccuracyGoal", "\[Rule]", "accgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"PrecisionGoal", "\[Rule]", "precgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"Method", "\[Rule]", "NIntMethod"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MinRecursion", "\[Rule]", "minRec"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MaxRecursion", "\[Rule]", "maxRec"}]}], "]"}], "]"}]}]}],
        "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
       RowBox[{"Model", "\[Equal]", "\"\<SSS\>\""}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"DetSSS", "=", 
         RowBox[{"Det", "[", 
          RowBox[{"EFisher", "[", 
           RowBox[{
            RowBox[{"fisher", "[", 
             RowBox[{"lLSSS", ",", 
              RowBox[{"{", 
               RowBox[{"a", ",", "b", ",", "c"}], "}"}]}], "]"}], ",", "SSS", 
            ",", "PDistE", ",", "\[CapitalNu]DistE", ",", "subs"}], "]"}], 
          "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"NIntSSS", "=", "\[IndentingNewLine]", 
         RowBox[{"Log", "[", "\[IndentingNewLine]", 
          RowBox[{"NIntegrate", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"SqrtDetEFlim", "[", 
             RowBox[{
             "SSS", ",", "DetSSS", ",", "\[CapitalNu]vals", ",", "Pvals", ",",
               "subs", ",", "FminMult", ",", " ", "FmaxMult"}], "]"}], ",", 
            " ", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "3", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"AccuracyGoal", "\[Rule]", "accgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"PrecisionGoal", "\[Rule]", "precgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"Method", "\[Rule]", "NIntMethod"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MinRecursion", "\[Rule]", " ", "minRec"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MaxRecursion", "\[Rule]", "maxRec"}]}], "]"}], "]"}]}]}],
        "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
       RowBox[{"Model", "\[Equal]", "\"\<RGD\>\""}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"DetRGD", "=", 
         RowBox[{"Det", "[", 
          RowBox[{"EFisher", "[", 
           RowBox[{
            RowBox[{"fisher", "[", 
             RowBox[{"lLRGD", ",", 
              RowBox[{"{", 
               RowBox[{"a", ",", "b", ",", "c"}], "}"}]}], "]"}], ",", "RGD", 
            ",", "PDistE", ",", "\[CapitalNu]DistE", ",", "subs"}], "]"}], 
          "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"NIntRGD", "=", "\[IndentingNewLine]", 
         RowBox[{"Log", "[", "\[IndentingNewLine]", 
          RowBox[{"NIntegrate", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"SqrtDetEFlim", "[", 
             RowBox[{
             "RGD", ",", "DetRGD", ",", "\[CapitalNu]vals", ",", "Pvals", ",",
               "subs", ",", "FminMult", ",", " ", "FmaxMult"}], "]"}], ",", 
            " ", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "3", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"AccuracyGoal", "\[Rule]", "accgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"PrecisionGoal", "\[Rule]", "precgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"Method", "\[Rule]", "NIntMethod"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MinRecursion", "\[Rule]", " ", "minRec"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MaxRecursion", "\[Rule]", "maxRec"}]}], "]"}], "]"}]}]}],
        "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
       RowBox[{"Model", "\[Equal]", "\"\<S3\>\""}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"DetS3", "=", 
         RowBox[{"Det", "[", 
          RowBox[{"EFisher", "[", 
           RowBox[{
            RowBox[{"fisher", "[", 
             RowBox[{"lLS3", ",", 
              RowBox[{"{", 
               RowBox[{"a", ",", "b", ",", "u"}], "}"}]}], "]"}], ",", "S3", 
            ",", "PDistE", ",", "\[CapitalNu]DistE", ",", "subs"}], "]"}], 
          "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"NIntS3", "=", "\[IndentingNewLine]", 
         RowBox[{"Log", "[", "\[IndentingNewLine]", 
          RowBox[{"NIntegrate", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"SqrtDetEFlim", "[", 
             RowBox[{
             "S3", ",", "DetS3", ",", "\[CapitalNu]vals", ",", "Pvals", ",", 
              "subs", ",", "FminMult", ",", " ", "FmaxMult"}], "]"}], ",", 
            " ", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "5", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"AccuracyGoal", "\[Rule]", "accgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"PrecisionGoal", "\[Rule]", "precgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"Method", "\[Rule]", "NIntMethod"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MinRecursion", "\[Rule]", " ", "minRec"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MaxRecursion", "\[Rule]", "maxRec"}]}], "]"}], "]"}]}]}],
        "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
       RowBox[{"Model", "\[Equal]", "\"\<S3b\>\""}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"DetS3b", "=", 
         RowBox[{"Det", "[", 
          RowBox[{"EFisher", "[", 
           RowBox[{
            RowBox[{"fisher", "[", 
             RowBox[{"lLS3b", ",", 
              RowBox[{"{", 
               RowBox[{"a", ",", "b", ",", "u"}], "}"}]}], "]"}], ",", "S3b", 
            ",", "PDistE", ",", "\[CapitalNu]DistE", ",", "subs"}], "]"}], 
          "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"NIntS3b", "=", "\[IndentingNewLine]", 
         RowBox[{"Log", "[", "\[IndentingNewLine]", 
          RowBox[{"NIntegrate", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"SqrtDetEFlim", "[", 
             RowBox[{
             "S3b", ",", "DetS3b", ",", "\[CapitalNu]vals", ",", "Pvals", ",",
               "subs", ",", "FminMult", ",", " ", "FmaxMult"}], "]"}], ",", 
            " ", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "5", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"AccuracyGoal", "\[Rule]", "accgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"PrecisionGoal", "\[Rule]", "precgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"Method", "\[Rule]", "NIntMethod"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MinRecursion", "\[Rule]", " ", "minRec"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MaxRecursion", "\[Rule]", "maxRec"}]}], "]"}], "]"}]}]}],
        "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
       RowBox[{"Model", "\[Equal]", "\"\<BDOR\>\""}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"DetBDOR", "=", 
         RowBox[{"Det", "[", 
          RowBox[{"EFisher", "[", 
           RowBox[{
            RowBox[{"fisher", "[", 
             RowBox[{"lLBDOR", ",", 
              RowBox[{"{", 
               RowBox[{"a", ",", "b", ",", "c", ",", "u"}], "}"}]}], "]"}], 
            ",", "BDOR", ",", "PDistE", ",", "\[CapitalNu]DistE", ",", 
            "subs"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"NIntBDOR", "=", "\[IndentingNewLine]", 
         RowBox[{"Log", "[", "\[IndentingNewLine]", 
          RowBox[{"NIntegrate", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"SqrtDetEFlim", "[", 
             RowBox[{
             "BDOR", ",", "DetBDOR", ",", "\[CapitalNu]vals", ",", "Pvals", 
              ",", "subs", ",", "FminMult", ",", " ", "FmaxMult"}], "]"}], 
            ",", " ", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "3", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "5", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"AccuracyGoal", "\[Rule]", "accgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"PrecisionGoal", "\[Rule]", "precgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"Method", "\[Rule]", " ", "NIntMethod"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MinRecursion", "\[Rule]", "300"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MaxRecursion", "\[Rule]", "1000"}]}], "]"}], "]"}]}]}], 
       "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
       RowBox[{"Model", "\[Equal]", "\"\<CMOR\>\""}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"DetCMOR", "=", 
         RowBox[{"Det", "[", 
          RowBox[{"EFisher", "[", 
           RowBox[{
            RowBox[{"fisher", "[", 
             RowBox[{"lLCMOR", ",", 
              RowBox[{"{", 
               RowBox[{"a", ",", "b", ",", "c", ",", "u"}], "}"}]}], "]"}], 
            ",", "CMOR", ",", "PDistE", ",", "\[CapitalNu]DistE", ",", 
            "subs"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"NIntCMOR", "=", "\[IndentingNewLine]", 
         RowBox[{"Log", "[", "\[IndentingNewLine]", 
          RowBox[{"NIntegrate", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"SqrtDetEFlim", "[", 
             RowBox[{
             "CMOR", ",", "DetCMOR", ",", "\[CapitalNu]vals", ",", "Pvals", 
              ",", "subs", ",", "FminMult", ",", " ", "FmaxMult"}], "]"}], 
            ",", " ", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "3", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "5", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"AccuracyGoal", "\[Rule]", "accgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"PrecisionGoal", "\[Rule]", "precgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"Method", "\[Rule]", "NIntMethod"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MinRecursion", "\[Rule]", "300"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MaxRecursion", "\[Rule]", "1000"}]}], "]"}], "]"}]}]}], 
       "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
       RowBox[{"Model", "\[Equal]", "\"\<AAOR\>\""}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"DetAAOR", "=", 
         RowBox[{"Det", "[", 
          RowBox[{"EFisher", "[", 
           RowBox[{
            RowBox[{"fisher", "[", 
             RowBox[{"lLAAOR", ",", 
              RowBox[{"{", 
               RowBox[{"a", ",", "b", ",", "v", ",", "u"}], "}"}]}], "]"}], 
            ",", "AAOR", ",", "PDistE", ",", "\[CapitalNu]DistE", ",", 
            "subs"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"NIntAAOR", "=", "\[IndentingNewLine]", 
         RowBox[{"Log", "[", "\[IndentingNewLine]", 
          RowBox[{"NIntegrate", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"SqrtDetEFlim", "[", 
             RowBox[{
             "AAOR", ",", "DetAAOR", ",", "\[CapitalNu]vals", ",", "Pvals", 
              ",", "subs", ",", "FminMult", ",", " ", "FmaxMult"}], "]"}], 
            ",", " ", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "4", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "5", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"AccuracyGoal", "\[Rule]", "accgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"PrecisionGoal", "\[Rule]", "precgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"Method", "\[Rule]", "NIntMethod"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MinRecursion", "\[Rule]", "300"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MaxRecursion", "\[Rule]", "1000"}]}], "]"}], "]"}]}]}], 
       "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
       RowBox[{"Model", "\[Equal]", "\"\<SN1\>\""}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"DetSN1", "=", 
         RowBox[{"Det", "[", 
          RowBox[{"EFisher", "[", 
           RowBox[{
            RowBox[{"fisher", "[", 
             RowBox[{"lLSN1", ",", 
              RowBox[{"{", 
               RowBox[{"a", ",", " ", "b", ",", "c", ",", " ", "d"}], "}"}]}],
              "]"}], ",", "SN1", ",", "PDistE", ",", "\[CapitalNu]DistE", ",",
             "subs"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"NIntSN1", "=", "\[IndentingNewLine]", 
         RowBox[{"Log", "[", "\[IndentingNewLine]", 
          RowBox[{"NIntegrate", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"SqrtDetEFlimSN1", "[", 
             RowBox[{
             "SN1", ",", "DetSN1", ",", "\[CapitalNu]vals", ",", "Pvals", ",",
               "subs", ",", "FminMult", ",", " ", "FmaxMult"}], "]"}], ",", 
            " ", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "3", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "6", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"AccuracyGoal", "\[Rule]", "accgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"PrecisionGoal", "\[Rule]", "precgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"Method", "\[Rule]", " ", "NIntMethod"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MinRecursion", "\[Rule]", "300"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MaxRecursion", "\[Rule]", "1000"}]}], "]"}], "]"}]}]}], 
       "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
       RowBox[{"Model", "\[Equal]", "\"\<SN2\>\""}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"DetSN2", "=", 
         RowBox[{"Det", "[", 
          RowBox[{"EFisher", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"fisher", "[", 
             RowBox[{"lLSN2", ",", 
              RowBox[{"{", 
               RowBox[{"a", ",", " ", "b", ",", "c", ",", " ", "d"}], "}"}]}],
              "]"}], ",", "SN2", ",", "PDistE", ",", "\[CapitalNu]DistE", ",",
             "subs"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"NIntSN2", "=", "\[IndentingNewLine]", 
         RowBox[{"Log", "[", "\[IndentingNewLine]", 
          RowBox[{"NIntegrate", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"SqrtDetEFlimSN2", "[", 
             RowBox[{
             "SN2", ",", "DetSN2", ",", "\[CapitalNu]vals", ",", "Pvals", ",",
               "subs", ",", "FminMult", ",", " ", "FmaxMult"}], "]"}], ",", 
            " ", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "3", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"ParmRange", "[", 
             RowBox[{"[", "6", "]"}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"AccuracyGoal", "\[Rule]", "accgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"PrecisionGoal", "\[Rule]", "precgoal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"Method", "\[Rule]", " ", "NIntMethod"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MinRecursion", "\[Rule]", "300"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"MaxRecursion", "\[Rule]", "1000"}]}], "]"}], "]"}]}]}]}],
       "\[IndentingNewLine]", "]"}]}]}], " ", "\[IndentingNewLine]", 
   "]"}]}]}], "Input",
 CellChangeTimes->{{3.8154781296842203`*^9, 3.815478199277872*^9}, {
   3.815478238636631*^9, 3.81547826881903*^9}, {3.8154783088523808`*^9, 
   3.8154783927904177`*^9}, {3.815494059059884*^9, 3.8154940922272387`*^9}, {
   3.8154941272528687`*^9, 3.815494198726508*^9}, 3.815494461107669*^9, {
   3.8154981247233133`*^9, 3.8154981308653584`*^9}, {3.815498165928254*^9, 
   3.8154981978947773`*^9}, {3.815516393926609*^9, 3.815516400236315*^9}, {
   3.815516749630734*^9, 3.8155167698217287`*^9}, {3.815516942625856*^9, 
   3.815516955519801*^9}, {3.81551701349466*^9, 3.8155170470604258`*^9}, {
   3.815517433398594*^9, 3.815517562511841*^9}, {3.8155176065593767`*^9, 
   3.815517622397552*^9}, {3.815517744738291*^9, 3.815517847084632*^9}, {
   3.815519130178413*^9, 3.815519132689075*^9}, {3.815523463938973*^9, 
   3.8155234704728937`*^9}, {3.8155242512607737`*^9, 
   3.8155242552256193`*^9}, {3.815524453267229*^9, 3.815524692784471*^9}, {
   3.815524777719388*^9, 3.815524777885687*^9}, {3.81552487313892*^9, 
   3.8155248977697144`*^9}, {3.8155249429758577`*^9, 3.815524944055182*^9}, {
   3.815525006738408*^9, 3.8155250398995237`*^9}, {3.815525078866262*^9, 
   3.815525281378442*^9}, {3.815529764525569*^9, 3.8155297853558064`*^9}, {
   3.815529819682312*^9, 3.815529918926611*^9}, 3.815845995516985*^9, {
   3.8168157547926807`*^9, 3.8168157708383827`*^9}, {3.816816756986381*^9, 
   3.816816785951455*^9}, {3.816816845295512*^9, 3.81681684879779*^9}, {
   3.816816891909338*^9, 3.816816920091035*^9}, 3.816819204670188*^9, {
   3.8168192609708967`*^9, 3.816819281849476*^9}, 3.8168193873264523`*^9, {
   3.816819443723645*^9, 3.816819446165883*^9}, {3.816819613532423*^9, 
   3.816819723271987*^9}, {3.816819894011014*^9, 3.8168199134488373`*^9}, {
   3.81681996575212*^9, 3.816819971582439*^9}, {3.816820011534236*^9, 
   3.8168200323081417`*^9}, {3.816820282899425*^9, 3.816820298865649*^9}, {
   3.8168208339345617`*^9, 3.8168208363637447`*^9}, {3.817240142830784*^9, 
   3.81724024334381*^9}, {3.817259921854538*^9, 3.817259930826158*^9}, {
   3.8172599714171953`*^9, 3.817259974723702*^9}, {3.817260202969718*^9, 
   3.817260335570812*^9}, {3.8172604372399187`*^9, 3.817260443390461*^9}, {
   3.817260524134495*^9, 3.817260530654747*^9}, 3.817260560858858*^9, {
   3.8172609433231564`*^9, 3.817260949410448*^9}, {3.817261709069433*^9, 
   3.817261711789624*^9}, {3.817261896046495*^9, 3.817261929284319*^9}, {
   3.817305740464319*^9, 3.8173057407118673`*^9}, 3.8173078224516487`*^9, {
   3.817308945350657*^9, 3.817308945774084*^9}, {3.817324128507155*^9, 
   3.817324167544552*^9}, {3.817333979113083*^9, 3.817334132490862*^9}, {
   3.81733422583162*^9, 3.8173342308555717`*^9}, {3.817334266789666*^9, 
   3.817334268725679*^9}, {3.8173343199245653`*^9, 3.817334322899311*^9}, {
   3.817334364930472*^9, 3.817334371873952*^9}, {3.817341778682922*^9, 
   3.817341781578326*^9}, {3.81734185504836*^9, 3.8173418551936607`*^9}, {
   3.817342020953031*^9, 3.8173420452476063`*^9}, 3.817342088838695*^9, {
   3.817342131767064*^9, 3.8173423036774893`*^9}, 3.817342337636438*^9, {
   3.817342510246944*^9, 3.817342522988805*^9}, {3.817343216345419*^9, 
   3.817343257343931*^9}, {3.8173433660285463`*^9, 3.8173433794832373`*^9}, {
   3.8173434933124933`*^9, 3.817343515166194*^9}, {3.817343585860446*^9, 
   3.817343586371809*^9}, {3.8173436812006598`*^9, 3.817343684072136*^9}, {
   3.81734371472788*^9, 3.817343902783922*^9}, {3.8173439434955673`*^9, 
   3.817344005972206*^9}, {3.817344099937108*^9, 3.817344104584855*^9}, {
   3.817344144735446*^9, 3.817344149031443*^9}, 3.817344267284671*^9, {
   3.817390249578865*^9, 3.817390291049366*^9}, {3.817397108009737*^9, 
   3.817397115504923*^9}, {3.8174179150189047`*^9, 3.817417920176868*^9}, {
   3.817422769468829*^9, 3.817422776883407*^9}, {3.8174229646049128`*^9, 
   3.817422970852564*^9}, {3.81742306365726*^9, 3.8174230797194242`*^9}, {
   3.8174741718034153`*^9, 3.8174741752668037`*^9}, {3.8174742211688128`*^9, 
   3.817474864558159*^9}, {3.817474898222636*^9, 3.817474898502*^9}, {
   3.8174794486587353`*^9, 3.8174794624653273`*^9}, {3.8174794932576036`*^9, 
   3.817479499353112*^9}, {3.8174795787426977`*^9, 3.817479633628098*^9}, {
   3.81747967793071*^9, 3.8174797483186207`*^9}, {3.8174797806226873`*^9, 
   3.817479921565877*^9}, {3.817564179930835*^9, 3.8175642030738297`*^9}, {
   3.8175667480849333`*^9, 3.817566809273654*^9}, {3.817579270234335*^9, 
   3.817579303727306*^9}, {3.817579620545163*^9, 3.8175796370236807`*^9}, {
   3.817581774015462*^9, 3.817581774067988*^9}, 3.817589906771091*^9, {
   3.817600519139203*^9, 3.817600615424478*^9}, {3.817644291982707*^9, 
   3.817644293429154*^9}, {3.8182072348415422`*^9, 3.81820723531264*^9}, {
   3.8187081902924843`*^9, 3.8187082078432083`*^9}, {3.818708359542601*^9, 
   3.818708381788495*^9}, {3.818708436657*^9, 3.8187084520407953`*^9}, {
   3.818708650938633*^9, 3.818708701072671*^9}, 3.818709058322983*^9, {
   3.818709151224029*^9, 3.8187092274591208`*^9}, {3.8187092844895353`*^9, 
   3.818709284561*^9}, {3.818709632337442*^9, 3.818709647585915*^9}, {
   3.818709722792645*^9, 3.818709746167981*^9}, {3.8187104890273247`*^9, 
   3.818710508642565*^9}, {3.8187105921196337`*^9, 3.8187106375252438`*^9}, {
   3.818710669644442*^9, 3.8187106960114937`*^9}, {3.818710728570368*^9, 
   3.818710771537191*^9}, {3.8188830606420517`*^9, 3.818883072465331*^9}, {
   3.818883135672179*^9, 3.818883179262941*^9}, {3.818883617983225*^9, 
   3.818883624142563*^9}, {3.818885109628791*^9, 3.818885123982862*^9}, {
   3.818885159673677*^9, 3.818885383252405*^9}, {3.81888550323505*^9, 
   3.81888557309692*^9}, {3.818885702894518*^9, 3.8188857375067863`*^9}, {
   3.818885824703492*^9, 3.818885850054433*^9}, {3.818885957307228*^9, 
   3.8188859911045313`*^9}, {3.818886034776005*^9, 3.8188860451180553`*^9}, {
   3.818886221416315*^9, 3.8188863534100933`*^9}, {3.818886396338217*^9, 
   3.8188863976883574`*^9}, {3.8188864330089827`*^9, 3.818886470559052*^9}, {
   3.818886539100957*^9, 3.818886550130714*^9}, {3.818886625137494*^9, 
   3.818886626249329*^9}, {3.818886839679978*^9, 3.818886848216662*^9}, {
   3.818892521769162*^9, 3.8188925392552357`*^9}, {3.8188996877024517`*^9, 
   3.818899761954734*^9}, {3.8189653204291067`*^9, 3.81896532089356*^9}, {
   3.8189869940202847`*^9, 3.8189870058439713`*^9}, {3.81903327162982*^9, 
   3.819033272001199*^9}, {3.819033405937446*^9, 3.819033486213347*^9}, {
   3.8190335424839907`*^9, 3.819033542746504*^9}, {3.819033594914096*^9, 
   3.819033594992456*^9}, {3.819033675750374*^9, 3.819033679029463*^9}, {
   3.819033718860422*^9, 3.819033719612178*^9}, {3.8190562387009573`*^9, 
   3.8190562387319107`*^9}, 3.819129356862008*^9, {3.81992854121836*^9, 
   3.819928542736848*^9}, {3.819928669181016*^9, 3.8199286842591887`*^9}, {
   3.819928758842436*^9, 3.819928760256641*^9}, {3.819928883082342*^9, 
   3.819928904418667*^9}, {3.819929128115321*^9, 3.819929208334787*^9}, {
   3.819929240485969*^9, 3.819929402647461*^9}, {3.8199294399673243`*^9, 
   3.819929773799849*^9}, {3.819937635501419*^9, 3.81993765134873*^9}, {
   3.819937896869282*^9, 3.8199378969956293`*^9}, {3.81993811376451*^9, 
   3.819938173417472*^9}, {3.820020897810206*^9, 3.8200209262077637`*^9}, {
   3.8200248700982027`*^9, 3.8200248728897133`*^9}, {3.8200252261233597`*^9, 
   3.820025336407007*^9}, 3.82002674625714*^9, {3.820026870668359*^9, 
   3.820026871906739*^9}, {3.8200611626797237`*^9, 3.820061219965032*^9}, {
   3.820061269548026*^9, 3.8200612768109837`*^9}, {3.820061881837129*^9, 
   3.8200619444292707`*^9}, {3.820064235895241*^9, 3.8200642770303926`*^9}, {
   3.820064320396719*^9, 3.820064320820225*^9}, {3.8200644669193172`*^9, 
   3.820064473998658*^9}, {3.820072442704905*^9, 3.820072473469288*^9}, 
   3.8200725812592697`*^9, {3.820073188074814*^9, 3.820073209930069*^9}, {
   3.8200732893110027`*^9, 3.820073298726728*^9}, 3.820073478352892*^9, {
   3.8200736406174707`*^9, 3.820073641087841*^9}, {3.8200738219063787`*^9, 
   3.820073822104671*^9}, 3.820103537110098*^9, {3.820103933885612*^9, 
   3.820103942650344*^9}, {3.820104000621099*^9, 3.820104001731351*^9}, {
   3.82010407890604*^9, 3.8201040795122433`*^9}, {3.820164312049159*^9, 
   3.8201643492434883`*^9}, {3.820164681656516*^9, 3.820164720422567*^9}, {
   3.8201649129152946`*^9, 3.820164932152117*^9}, {3.820165170063448*^9, 
   3.820165181358403*^9}, {3.8201652126130466`*^9, 3.8201652149254*^9}, {
   3.820165513315589*^9, 3.820165515056087*^9}, {3.820165805077352*^9, 
   3.8201658195080853`*^9}, {3.820165901169232*^9, 3.820165919367234*^9}, 
   3.820166069139285*^9, {3.8201661541038094`*^9, 3.820166235843144*^9}, {
   3.8201663380012293`*^9, 3.820166472018181*^9}, {3.820166525837151*^9, 
   3.820166527080488*^9}, {3.820166566690682*^9, 3.820166593565803*^9}, {
   3.8201667156595097`*^9, 3.820166717198946*^9}, {3.820166750425248*^9, 
   3.820166756285527*^9}, {3.8201668108599052`*^9, 3.820166815250885*^9}, {
   3.8201668496384068`*^9, 3.820166854809248*^9}, {3.820166884890374*^9, 
   3.820166885640423*^9}, {3.820166922559037*^9, 3.820166930741325*^9}, {
   3.820167095159339*^9, 3.8201674114987164`*^9}, {3.820170303461211*^9, 
   3.8201703131245127`*^9}, {3.8201711622299957`*^9, 3.820171163349555*^9}, {
   3.820171384885336*^9, 3.820171386275429*^9}, {3.8201739339784203`*^9, 
   3.820173937433536*^9}, {3.820174843527461*^9, 3.8201748439815273`*^9}, {
   3.8201758499845333`*^9, 3.820175888326585*^9}, {3.820176632402092*^9, 
   3.8201766366090307`*^9}, {3.8201879366760674`*^9, 3.820187951602827*^9}, {
   3.820188289032432*^9, 3.820188290575967*^9}, {3.820188871465611*^9, 
   3.820188873250082*^9}, {3.820191730521268*^9, 3.820191867339386*^9}, {
   3.820195924632784*^9, 3.8201959320141068`*^9}, {3.820197312721129*^9, 
   3.820197315088757*^9}, {3.820234702984663*^9, 3.82023470327813*^9}, {
   3.820234755912608*^9, 3.820234764504381*^9}, {3.820242358875864*^9, 
   3.820242393378533*^9}, {3.820267399468877*^9, 3.820267401957889*^9}, {
   3.8202694701827173`*^9, 3.820269478437232*^9}, {3.8202712822544394`*^9, 
   3.820271283798078*^9}, {3.820511233345848*^9, 3.8205112468729*^9}, 
   3.820511324166317*^9, {3.820512146615498*^9, 3.820512166724777*^9}, {
   3.820543935423102*^9, 3.8205440069227533`*^9}, {3.8205440524082336`*^9, 
   3.820544114262385*^9}, {3.8205450668907423`*^9, 3.820545083953614*^9}, {
   3.820600226439125*^9, 3.820600227749762*^9}, {3.82060843721723*^9, 
   3.820608437935397*^9}, {3.820620393988764*^9, 3.820620403283833*^9}, {
   3.820620517272324*^9, 3.8206205180316133`*^9}, {3.820620555205418*^9, 
   3.82062057259741*^9}, {3.8206250560488577`*^9, 3.8206250732601643`*^9}, {
   3.820626785442314*^9, 3.820626788634583*^9}, {3.820752837310185*^9, 
   3.820752874636402*^9}, {3.8207531341956863`*^9, 3.82075316243032*^9}, {
   3.820754668364554*^9, 3.8207547126731443`*^9}, {3.8207547448738937`*^9, 
   3.8207547457690372`*^9}, {3.820754966065237*^9, 3.820754968071887*^9}, 
   3.820755093148386*^9, 3.820785567503373*^9, {3.820786104314045*^9, 
   3.820786104721375*^9}, {3.820924449185121*^9, 3.820924451912169*^9}, {
   3.820944002657127*^9, 3.820944004280703*^9}, {3.8209440548301973`*^9, 
   3.820944059533161*^9}, {3.820944184713853*^9, 3.820944205336711*^9}, {
   3.820944342625548*^9, 3.82094434267554*^9}, 3.8209443739436502`*^9, {
   3.820944404568769*^9, 3.820944534595738*^9}, {3.820944600690037*^9, 
   3.8209446014178753`*^9}, {3.820945528773253*^9, 3.820945549202758*^9}, {
   3.820945595130948*^9, 3.8209456615581923`*^9}, {3.820945715237577*^9, 
   3.820945826664743*^9}, {3.820946016802333*^9, 3.8209460382872047`*^9}, {
   3.820950189026299*^9, 3.8209501915201187`*^9}, {3.820950252285825*^9, 
   3.820950254901658*^9}, {3.820950760451848*^9, 3.820950760890555*^9}, {
   3.82095167445674*^9, 3.820951679696171*^9}, {3.8209532655304728`*^9, 
   3.8209533263841867`*^9}, {3.82122623205847*^9, 3.821226240032889*^9}, {
   3.821399160756064*^9, 3.821399168124901*^9}, {3.821402563023679*^9, 
   3.821402565718852*^9}, {3.8244257866303673`*^9, 3.8244258610024843`*^9}, {
   3.824904765487896*^9, 3.82490483446988*^9}, {3.824904991722208*^9, 
   3.824904991959887*^9}, {3.8249459549257*^9, 3.824945965172659*^9}, {
   3.825119889535969*^9, 3.825119889586932*^9}, {3.8251199824601192`*^9, 
   3.825120011067326*^9}, {3.825120323700553*^9, 3.8251203307304773`*^9}, {
   3.825426281130267*^9, 3.825426294409294*^9}, {3.82546196057539*^9, 
   3.825461960644348*^9}, {3.8254671906141872`*^9, 3.8254671972290077`*^9}, 
   3.825467303171945*^9, {3.825467344506905*^9, 3.825467360503847*^9}, {
   3.825508840810156*^9, 3.825508881402891*^9}, 3.825508928717564*^9, 
   3.8255090390018044`*^9, {3.825546685648499*^9, 3.8255467076557283`*^9}, {
   3.8255467624150963`*^9, 3.825546781888591*^9}, {3.825547202417213*^9, 
   3.825547344950982*^9}, 3.825551079469046*^9, {3.828491189004018*^9, 
   3.8284912364972763`*^9}, {3.828525643841714*^9, 3.8285256441531887`*^9}, {
   3.8285274110022984`*^9, 3.828527413904351*^9}, 3.8285322777483873`*^9, {
   3.8285408653000526`*^9, 3.828540889089711*^9}, {3.8286083516408243`*^9, 
   3.828608354495985*^9}, {3.8286085532179937`*^9, 3.828608573528981*^9}, {
   3.828608695839582*^9, 3.828608697669389*^9}, {3.8286130805132113`*^9, 
   3.82861308196739*^9}, {3.828614069263092*^9, 3.828614070765926*^9}, {
   3.8286142914475737`*^9, 3.8286142918782988`*^9}, {3.828615351289749*^9, 
   3.828615418999176*^9}, {3.828621950396874*^9, 3.8286219626142282`*^9}, {
   3.828622030181643*^9, 3.828622034419271*^9}, {3.828622559600726*^9, 
   3.828622570032153*^9}, {3.828623144047188*^9, 3.828623180407433*^9}, {
   3.828625324499709*^9, 3.828625346603198*^9}, {3.828625585025744*^9, 
   3.828625599769287*^9}, {3.828625668269929*^9, 3.828625762690654*^9}, {
   3.8286590742713947`*^9, 3.828659085838366*^9}, {3.8286592483592854`*^9, 
   3.828659250967169*^9}, {3.82865945545156*^9, 3.828659457312448*^9}, {
   3.82865969257617*^9, 3.828659703145042*^9}, {3.828694842806562*^9, 
   3.828694878955988*^9}, {3.828694949877488*^9, 3.828694950283661*^9}, 
   3.8286974910082703`*^9, {3.8286975383488693`*^9, 3.828697550080695*^9}, {
   3.8286975822318*^9, 3.828697597853429*^9}, {3.8287027039768963`*^9, 
   3.828702712393165*^9}, {3.828702822087987*^9, 3.828702826895273*^9}, 
   3.8287234305792418`*^9, {3.82878829292302*^9, 3.828788292996675*^9}, {
   3.828788330628351*^9, 3.828788334059869*^9}, {3.828788434293363*^9, 
   3.828788449445016*^9}, {3.828788925290072*^9, 3.828788941948032*^9}, {
   3.828789022334635*^9, 3.828789032152831*^9}, {3.828809898024137*^9, 
   3.8288099125623007`*^9}, {3.8288269048349133`*^9, 3.828826919972987*^9}, {
   3.82888378394619*^9, 3.8288838478333406`*^9}, {3.8289112187079887`*^9, 
   3.8289112581376247`*^9}, {3.828911346584752*^9, 3.8289113472235928`*^9}, {
   3.82891177330062*^9, 3.828911773379126*^9}, 3.828914156005514*^9, {
   3.829003420500543*^9, 3.829003434963382*^9}, {3.829004449013736*^9, 
   3.829004460126389*^9}, {3.82900450331808*^9, 3.829004505501884*^9}, 
   3.8290048498509293`*^9, {3.8290640363697*^9, 3.829064102266363*^9}, {
   3.829067031451859*^9, 3.8290670317191973`*^9}, {3.829329925079307*^9, 
   3.829329926356058*^9}, 3.829329981684977*^9, {3.8341537924991198`*^9, 
   3.8341537935637302`*^9}, {3.83415416778274*^9, 3.8341541688604317`*^9}, 
   3.834154211894045*^9},
 CellLabel->
  "In[634]:=",ExpressionUUID->"cd327515-7b9a-4e97-9d69-2536e0564bd1"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Define functions to create experimental designs", "Subsection",
 CellChangeTimes->{{3.794665571882093*^9, 3.79466558475461*^9}, {
  3.7946662108665457`*^9, 3.794666215210021*^9}, {3.800407458735585*^9, 
  3.800407464863399*^9}, {3.8154756566571712`*^9, 3.8154756862074537`*^9}, {
  3.81730550499776*^9, 
  3.817305507973003*^9}},ExpressionUUID->"b4f2023a-bd99-43b3-886a-\
1547742ba817"],

Cell[TextData[{
 "The \[OpenCurlyDoubleQuote]GoldenRatio\[CloseCurlyDoubleQuote] series of  \
abundance levels (starting at 3 for prey and 1 for predators)\nenabling the \
generation of arbitrary numbers of equidistant points between min and \
(specified) max abundances.\nThe series will be approximately Fibonacci when \
PreyMax is set to ",
 StyleBox["Fibonacci[n] ",
  FontSlant->"Italic"],
 "for a desired series length",
 StyleBox[" n",
  FontSlant->"Italic"],
 ".\nThe \[OpenCurlyDoubleQuote]Arithmetic series\[CloseCurlyDoubleQuote] \
spaces out levels equidistantly in arithmetic space to the same maximum as \
used for the \[OpenCurlyDoubleQuote]GoldenRatio\[CloseCurlyDoubleQuote] \
series."
}], "Text",
 CellChangeTimes->{{3.815791455590691*^9, 3.815791512202627*^9}, {
   3.815791645645399*^9, 3.8157917779279947`*^9}, {3.8173053834656343`*^9, 
   3.817305405184565*^9}, 3.817305519084732*^9, {3.819159344133834*^9, 
   3.819159358341136*^9}, {3.8200247184798603`*^9, 3.820024718775085*^9}, {
   3.821232813067762*^9, 3.821232813914659*^9}, {3.821232914703186*^9, 
   3.821232959757114*^9}, {3.821236993090495*^9, 
   3.821237003617406*^9}},ExpressionUUID->"58458fb9-9bf8-40a9-b0aa-\
b98c4fb1b683"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"logGRSpace", "[", 
    RowBox[{"a_", ",", "b_", ",", "n_"}], "]"}], ":=", 
   RowBox[{"Round", "[", 
    RowBox[{"GoldenRatio", "^", 
     RowBox[{"Range", "[", 
      RowBox[{"a", ",", "b", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"b", "-", "a"}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{"n", "-", "1"}], ")"}]}]}], "]"}]}], "]"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PreyVals", "[", 
   RowBox[{"n_", ",", "PreyMax_", ",", "AbundSeries_"}], "]"}], ":=", 
  "\[IndentingNewLine]", 
  RowBox[{"Which", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"AbundSeries", "\[Equal]", "\"\<GoldenRatio\>\""}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"logGRSpace", "[", 
     RowBox[{"2", ",", 
      RowBox[{
       RowBox[{"Log", "[", 
        RowBox[{"GoldenRatio", ",", "PreyMax"}], "]"}], "+", "3"}], ",", 
      "n"}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"AbundSeries", "\[Equal]", "\"\<Arithmetic\>\""}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Round", "[", 
     RowBox[{"Range", "[", 
      RowBox[{"3", ",", 
       RowBox[{"Max", "[", 
        RowBox[{"logGRSpace", "[", 
         RowBox[{"2", ",", 
          RowBox[{
           RowBox[{"Log", "[", 
            RowBox[{"GoldenRatio", ",", "PreyMax"}], "]"}], "+", "3"}], ",", 
          "n"}], "]"}], "]"}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"Max", "[", 
           RowBox[{"logGRSpace", "[", 
            RowBox[{"2", ",", 
             RowBox[{
              RowBox[{"Log", "[", 
               RowBox[{"GoldenRatio", ",", "PreyMax"}], "]"}], "+", "3"}], 
             ",", "n"}], "]"}], "]"}], "-", "3"}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{"n", "-", "1"}], ")"}]}]}], "]"}], "]"}]}], 
   "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PredVals", "[", 
   RowBox[{"n_", ",", "PredMax_", ",", "AbundSeries_"}], "]"}], ":=", 
  "\[IndentingNewLine]", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"n", "\[Equal]", "1"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", "1", "}"}], ",", " ", 
    RowBox[{"(*", " ", 
     RowBox[{
      RowBox[{
      "If", " ", "only", " ", "a", " ", "single", " ", "level", " ", "is", 
       " ", "requested"}], ",", " ", 
      RowBox[{
      "specify", " ", "a", " ", "single", " ", "predator", " ", 
       "individual"}]}], " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{"Which", "[", " ", 
     RowBox[{"(*", " ", 
      RowBox[{"Otherwise", ",", " ", 
       RowBox[{
       "determine", " ", "predator", " ", "levels", " ", "according", " ", 
        "to", " ", "GoldenRatio", " ", "or", " ", "Arithmetic", " ", "series",
         " ", "beginning", " ", "with", " ", "1", " ", "predator", " ", 
        "individual"}]}], " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"AbundSeries", "\[Equal]", "\"\<GoldenRatio\>\""}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"logGRSpace", "[", 
       RowBox[{"0", ",", 
        RowBox[{
         RowBox[{"Log", "[", 
          RowBox[{"GoldenRatio", ",", "PredMax"}], "]"}], "+", "1"}], ",", 
        "n"}], "]"}], ",", " ", "\[IndentingNewLine]", 
      RowBox[{"AbundSeries", "\[Equal]", "\"\<Arithmetic\>\""}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Round", "[", 
       RowBox[{"Range", "[", 
        RowBox[{"1", ",", 
         RowBox[{"Max", "[", 
          RowBox[{"logGRSpace", "[", 
           RowBox[{"0", ",", 
            RowBox[{
             RowBox[{"Log", "[", 
              RowBox[{"GoldenRatio", ",", "PredMax"}], "]"}], "+", "1"}], ",",
             "n"}], "]"}], "]"}], ",", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"Max", "[", 
             RowBox[{"logGRSpace", "[", 
              RowBox[{"0", ",", 
               RowBox[{
                RowBox[{"Log", "[", 
                 RowBox[{"GoldenRatio", ",", "PredMax"}], "]"}], "+", "1"}], 
               ",", "n"}], "]"}], "]"}], "-", "1"}], ")"}], "/", 
          RowBox[{"(", 
           RowBox[{"n", "-", "1"}], ")"}]}]}], "]"}], "]"}]}], 
     "\[IndentingNewLine]", "]"}]}], "]"}]}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJwdx19IU2EAh+GDhS4Hsot5MbpoRgYOm2OKRFB6InBgs/1BhLIDiYqcXFsK
sdCQBYEJTnFz0jaHNiVYhhWjVlNRlxKmi9E2JmFTDC/sMJmtwWJQ5/ddvDy8
ZW1GXUcBRVHlfLCn6vF23sDRXPJ5Dn61vb504h5HZ54NXYYVCvHTk7ynO0Nj
MGHZccA3mokJeGwY8EJFpmUGmgLN8lO8I6k+YthzVibkTeX9ctg/xFXDtl+/
1fCFOKiHJQ7pTSiZszJwpnqvCyqyrQ74wZl3wWulAV/KxNG6NeFL+FPd8h7W
WtqJpmydqtvM0VdZFVFMz2thNM7ooLBYxMLi5g0jpGP/eiFrbDBDbVZqgbty
GbHn/qdl2K9Mh+DFW5JNaP3yaguO9nq3ofvvEVE0X/UD2jPnk/D7jcp9qIk9
PIDddSWFBl6f6rgIKoNNMnguIlHAzkb9FZiO/amHyfzdJ3CzPjIIC3YtwzBz
5CQuhVbs5CnvOGTuCJzQvK51wwh7YQomHjGzcDkYfbvA64l+9MN3Vsa2yEvt
zRFzZxpsqgGOFhwOEpu+6V0wHGcn4WqN+7aB93rFAfHB1mcTTFPTffA/Ew8x
bA==
  "],
 CellLabel->
  "In[636]:=",ExpressionUUID->"59128640-980e-49f7-84f3-ce197a41605a"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Specify AbundanceSeries and determine and export designs", "Subsection",
 CellChangeTimes->{{3.815613678190781*^9, 3.8156136868141823`*^9}, {
  3.815875961150234*^9, 3.8158759627680893`*^9}, {3.8212358598264112`*^9, 
  3.821235863801984*^9}, {3.8212359508869333`*^9, 3.821235951526531*^9}, {
  3.82123612606364*^9, 3.8212361295736094`*^9}, {3.82123650020152*^9, 
  3.8212365020172033`*^9}, {3.821236655163248*^9, 3.821236659394886*^9}, {
  3.821236709113276*^9, 3.821236710288759*^9}, {3.8212376717678003`*^9, 
  3.821237678679544*^9}, {3.821237775899684*^9, 
  3.821237787179379*^9}},ExpressionUUID->"c7bf9e96-c22e-4a06-8c84-\
a083316fa7f7"],

Cell[TextData[{
 StyleBox["Be sure to copy  numbers to GeomComp[] function below",
  FontSlant->"Italic"],
 "."
}], "Text",
 CellChangeTimes->{{3.820062547500978*^9, 3.820062575530542*^9}, {
  3.821183869864579*^9, 3.82118387050206*^9}, {3.8212319579301987`*^9, 
  3.82123196742594*^9}, {3.821236057666527*^9, 3.8212360591864653`*^9}, {
  3.828913057500025*^9, 
  3.828913059859599*^9}},ExpressionUUID->"c3fff7cf-550e-47ed-af68-\
5b24af10d5af"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"PreyMinLevels", "=", "5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"PreyMaxLevelsVar", "=", "10"}], ";"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PreyMaxLevelsFix", "=", "10"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PredMinLevels", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"PredMaxLevelsVar", "=", "5"}], ";"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"PredMaxLevelsFix", "=", "4"}], ";"}], 
  " "}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.820062645137722*^9, 3.8200626591922417`*^9}, {
   3.820457535258713*^9, 3.820457559320712*^9}, {3.820495847461439*^9, 
   3.820495847549109*^9}, {3.8204960837713547`*^9, 3.820496083882975*^9}, {
   3.820496120171085*^9, 3.820496135554655*^9}, {3.820496196594799*^9, 
   3.820496196641868*^9}, {3.8205119695111113`*^9, 3.820511969950562*^9}, {
   3.821183894062804*^9, 3.821183900461597*^9}, {3.821231769434475*^9, 
   3.821231771993565*^9}, {3.821231953835319*^9, 3.8212319551385098`*^9}, {
   3.821233185948711*^9, 3.821233197500071*^9}, {3.8212332300032053`*^9, 
   3.821233251754081*^9}, {3.821233526512412*^9, 3.821233527735361*^9}, {
   3.821233563062936*^9, 3.82123362195579*^9}, {3.821233681801999*^9, 
   3.82123368636208*^9}, 3.82123373166483*^9, {3.821233784262969*^9, 
   3.821233790838797*^9}, {3.8212340254056053`*^9, 3.821234035861264*^9}, 
   3.821234711161295*^9, 3.821235279851913*^9, {3.821235532696582*^9, 
   3.821235618837071*^9}, {3.8212360862337513`*^9, 3.82123608984138*^9}, {
   3.821236407253295*^9, 3.821236407557247*^9}, {3.821236608565688*^9, 
   3.8212366106691093`*^9}, 3.821236919951106*^9, 3.821236952949567*^9, {
   3.8212377664064903`*^9, 3.821237766996715*^9}, 3.8212378071956797`*^9, {
   3.82130530687283*^9, 3.821305308048448*^9}, {3.8213569867207737`*^9, 
   3.8213569868964233`*^9}, 3.821647531279077*^9, {3.8217364330193033`*^9, 
   3.8217364331388702`*^9}, {3.824831635957409*^9, 3.824831636028265*^9}, {
   3.82483167731574*^9, 3.824831677442637*^9}, {3.824831738089014*^9, 
   3.824831738152248*^9}, {3.824833382792017*^9, 3.824833382855403*^9}, {
   3.824833428502112*^9, 3.824833428909626*^9}, {3.8248334604694*^9, 
   3.824833460556649*^9}, {3.824833491156767*^9, 3.824833491364134*^9}, {
   3.828522970446795*^9, 3.828522971420959*^9}},
 CellLabel->
  "In[639]:=",ExpressionUUID->"de00ed9a-1267-40b2-b58a-b4886d0ae4aa"],

Cell[CellGroupData[{

Cell["\<\
Export \"Var\" designs - increasing length and increasing maximum value\
\>", "Subsubsection",
 CellChangeTimes->{
  3.821236182056415*^9, {3.828913131433098*^9, 
   3.8289131322247343`*^9}},ExpressionUUID->"211aa73f-009e-423b-a153-\
45e4145d572d"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"VarDesigns", "=", 
   RowBox[{"Table", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"PreyVals", "[", 
        RowBox[{"i", ",", 
         RowBox[{"Fibonacci", "[", "i", "]"}], ",", "AbundSeries"}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"PredVals", "[", 
        RowBox[{"j", ",", 
         RowBox[{"Fibonacci", "[", "j", "]"}], ",", "AbundSeries"}], "]"}]}], 
      "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"i", ",", " ", "PreyMinLevels", ",", "PreyMaxLevelsVar"}], 
      "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"j", ",", "PredMinLevels", ",", "PredMaxLevelsVar"}], "}"}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TableForm", "[", "VarDesigns", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Dimensions", "[", "VarDesigns", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{"\"\<DesignsVar1.txt\>\"", ",", 
      RowBox[{"TeXForm", "[", 
       RowBox[{"VarDesigns", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"1", ";;", "3"}], ",", "All"}], "]"}], "]"}], "]"}]}], 
     "]"}], ";", "\[IndentingNewLine]", 
    RowBox[{"Export", "[", 
     RowBox[{"\"\<DesignsVar2.txt\>\"", ",", 
      RowBox[{"TeXForm", "[", 
       RowBox[{"VarDesigns", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"4", ";;", "5"}], ",", "All"}], "]"}], "]"}], "]"}]}], 
     "]"}], ";"}], "\[IndentingNewLine]", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.821235900849154*^9, 3.821235906312566*^9}, {
   3.821236120056533*^9, 3.821236177910201*^9}, {3.8212362234124823`*^9, 
   3.821236243443323*^9}, 3.821236323784582*^9, 3.8289131742720003`*^9, {
   3.8328763042815638`*^9, 3.83287633059153*^9}, {3.832876639700452*^9, 
   3.8328766426351*^9}, {3.832876677890699*^9, 3.8328766946089697`*^9}, {
   3.832876958039876*^9, 3.832877014740698*^9}, 3.8328814445394087`*^9, {
   3.834153310575905*^9, 3.834153319022706*^9}, {3.8347771510297203`*^9, 
   3.834777151197319*^9}},
 CellLabel->
  "In[645]:=",ExpressionUUID->"0cf68015-3c43-43b3-a4c7-b00904897436"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"6", ",", "5", ",", "2"}], "}"}]], "Output",
 CellChangeTimes->{3.832881445116444*^9, 3.832881603904859*^9, 
  3.83415333746688*^9, 3.834153568938923*^9, 3.83415389206988*^9, 
  3.834154172204204*^9, 3.91381965607152*^9, 3.9138225373703003`*^9},
 CellLabel->
  "Out[647]=",ExpressionUUID->"0b271e89-db6c-4c9e-bc64-3dba438d8ce6"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Export \"Fix\" designs - varying length and constant maximum value\
\>", "Subsubsection",
 CellChangeTimes->{{3.821236234053137*^9, 3.8212362353013906`*^9}, {
  3.828913134032751*^9, 
  3.828913134840538*^9}},ExpressionUUID->"b51e7cb4-57a7-4d50-a26c-\
0d846fac9245"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"FixDesigns", "=", 
   RowBox[{"Table", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"PreyVals", "[", 
        RowBox[{"i", ",", 
         RowBox[{"Fibonacci", "[", "PreyMaxLevelsFix", "]"}], ",", 
         "AbundSeries"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"PredVals", "[", 
        RowBox[{"j", ",", 
         RowBox[{"Fibonacci", "[", "PredMaxLevelsFix", "]"}], ",", 
         "AbundSeries"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"i", ",", " ", "PreyMinLevels", ",", "PreyMaxLevelsFix"}], 
      "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"j", ",", "PredMinLevels", ",", "PredMaxLevelsFix"}], "}"}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TableForm", "[", "FixDesigns", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Dimensions", "[", "FixDesigns", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{"\"\<DesignsFix1.txt\>\"", ",", 
      RowBox[{"TeXForm", "[", 
       RowBox[{"FixDesigns", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"1", ";;", "2"}], ",", "All"}], "]"}], "]"}], "]"}]}], 
     "]"}], ";", "\[IndentingNewLine]", 
    RowBox[{"Export", "[", 
     RowBox[{"\"\<DesignsFix2.txt\>\"", ",", 
      RowBox[{"TeXForm", "[", 
       RowBox[{"FixDesigns", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"3", ";;", "4"}], ",", "All"}], "]"}], "]"}], "]"}]}], 
     "]"}], ";"}], "\[IndentingNewLine]", "*)"}]}]}], "Input",
 CellChangeTimes->{
  3.821236326000181*^9, 3.828913175303195*^9, {3.832881467802218*^9, 
   3.832881517159666*^9}, {3.834153321759488*^9, 3.8341533266385736`*^9}},
 CellLabel->
  "In[648]:=",ExpressionUUID->"e3f3cf53-1de4-4a3a-b1eb-b66d9a710ca6"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"6", ",", "4", ",", "2"}], "}"}]], "Output",
 CellChangeTimes->{{3.832881496846321*^9, 3.832881517912442*^9}, 
   3.832881603952071*^9, 3.834153337494138*^9, 3.834153568962679*^9, 
   3.834153892078614*^9, 3.834154172224148*^9, 3.913819656078516*^9, 
   3.913822537378237*^9},
 CellLabel->
  "Out[650]=",ExpressionUUID->"5b62add2-18d8-460c-bd9c-a3a2670ed3b4"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Define \[OpenCurlyDoubleQuote]GeomComp[]\[CloseCurlyDoubleQuote] Wrapper to \
apply \[OpenCurlyDoubleQuote]GeomComplex[]\[CloseCurlyDoubleQuote] across \
experimental designs\
\>", "Subsection",
 CellChangeTimes->{{3.820626816161964*^9, 3.820626818322703*^9}, 
   3.820626852959502*^9, {3.821236037363607*^9, 3.8212360387389927`*^9}, {
   3.82123768963099*^9, 
   3.82123772922162*^9}},ExpressionUUID->"ea8b7349-f918-4981-9e1c-\
3f6e09b9b88a"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"ClearAll", "[", "GeomComp", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"GeomComp", "[", "\[IndentingNewLine]", 
   RowBox[{
   "ModelAbb_", ",", "\[IndentingNewLine]", "Type_", ",", 
    "\[IndentingNewLine]", "AbundSeries_"}], "]"}], ":=", 
  "\[IndentingNewLine]", 
  RowBox[{"Module", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"**", "**", "**", " ", "Be"}], " ", "sure", " ", "to", " ", 
       "match", " ", "the", " ", "following", " ", "with", " ", "exported", 
       " ", "designs", " ", "above"}], " ", "*******)"}], 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"PreyMinLevels", "=", "5"}], ",", " ", "\[IndentingNewLine]", 
      RowBox[{"PreyMaxLevelsVar", "=", "10"}], ",", "\[IndentingNewLine]", 
      RowBox[{"PreyMaxLevelsFix", "=", "10"}], ",", "\[IndentingNewLine]", 
      RowBox[{"PredMinLevels", "=", "1"}], ",", " ", "\[IndentingNewLine]", 
      RowBox[{"PredMaxLevelsVar", "=", "5"}], ",", "\[IndentingNewLine]", 
      RowBox[{"PredMaxLevelsFix", "=", "4"}]}], "\[IndentingNewLine]", "}"}], 
    "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
    RowBox[{"Which", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Type", "\[Equal]", "\"\<Var\>\""}], ",", "\[IndentingNewLine]", 
      RowBox[{"Flatten", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"ParallelTable", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"Flatten", "[", 
           RowBox[{"{", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"Max", "[", 
              RowBox[{"PreyVals", "[", 
               RowBox[{"i", ",", 
                RowBox[{"Fibonacci", "[", "i", "]"}], ",", "AbundSeries"}], 
               "]"}], "]"}], ",", " ", 
             RowBox[{"(*", " ", 
              RowBox[{"Maximum", " ", "prey", " ", "level"}], " ", "*)"}], 
             "\[IndentingNewLine]", 
             RowBox[{"Max", "[", 
              RowBox[{"PredVals", "[", 
               RowBox[{"j", ",", 
                RowBox[{"Fibonacci", "[", "j", "]"}], ",", "AbundSeries"}], 
               "]"}], "]"}], ",", " ", 
             RowBox[{"(*", " ", 
              RowBox[{"Maximum", " ", "pred", " ", "level"}], " ", "*)"}], 
             "\[IndentingNewLine]", 
             RowBox[{"Length", "[", 
              RowBox[{"PreyVals", "[", 
               RowBox[{"i", ",", 
                RowBox[{"Fibonacci", "[", "i", "]"}], ",", "AbundSeries"}], 
               "]"}], "]"}], ",", " ", 
             RowBox[{"(*", " ", 
              RowBox[{"Number", " ", "of", " ", "prey", " ", "levels"}], " ", 
              "*)"}], "\[IndentingNewLine]", 
             RowBox[{"Length", "[", 
              RowBox[{"PredVals", "[", 
               RowBox[{"j", ",", 
                RowBox[{"Fibonacci", "[", "j", "]"}], ",", "AbundSeries"}], 
               "]"}], "]"}], ",", " ", 
             RowBox[{"(*", " ", 
              RowBox[{"Number", " ", "of", " ", "pred", " ", "levels"}], " ", 
              "*)"}], "\[IndentingNewLine]", 
             RowBox[{"GeomComplex", "[", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"PreyVals", "[", 
                RowBox[{"i", ",", 
                 RowBox[{"Fibonacci", "[", "i", "]"}], ",", "AbundSeries"}], 
                "]"}], ",", "\[IndentingNewLine]", 
               RowBox[{"PredVals", "[", 
                RowBox[{"j", ",", 
                 RowBox[{"Fibonacci", "[", "j", "]"}], ",", "AbundSeries"}], 
                "]"}], ",", "\[IndentingNewLine]", 
               RowBox[{"Model", "=", " ", "ModelAbb"}]}], "]"}]}], 
            "\[IndentingNewLine]", "}"}], "]"}], ",", "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"i", ",", " ", "PreyMinLevels", ",", "PreyMaxLevelsVar"}], 
           "}"}], ",", "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"j", ",", "PredMinLevels", ",", "PredMaxLevelsVar"}], 
           "}"}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", 
        "1"}], "]"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
      RowBox[{"Type", "\[Equal]", "\"\<Fix\>\""}], ",", "\[IndentingNewLine]", 
      RowBox[{"Flatten", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"ParallelTable", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"Flatten", "[", 
           RowBox[{"{", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"Max", "[", 
              RowBox[{"PreyVals", "[", 
               RowBox[{"i", ",", 
                RowBox[{"Fibonacci", "[", "PreyMaxLevelsFix", "]"}], ",", 
                "AbundSeries"}], "]"}], "]"}], ",", " ", 
             RowBox[{"(*", " ", 
              RowBox[{"Maximum", " ", "prey", " ", "level"}], " ", "*)"}], 
             "\[IndentingNewLine]", 
             RowBox[{"Max", "[", 
              RowBox[{"PredVals", "[", 
               RowBox[{"j", ",", 
                RowBox[{"Fibonacci", "[", "PredMaxLevelsFix", "]"}], ",", 
                "AbundSeries"}], "]"}], "]"}], ",", " ", 
             RowBox[{"(*", " ", 
              RowBox[{"Maximum", " ", "pred", " ", "level"}], " ", "*)"}], 
             "\[IndentingNewLine]", 
             RowBox[{"Length", "[", 
              RowBox[{"PreyVals", "[", 
               RowBox[{"i", ",", 
                RowBox[{"Fibonacci", "[", "PreyMaxLevelsFix", "]"}], ",", 
                "AbundSeries"}], "]"}], "]"}], ",", " ", 
             RowBox[{"(*", " ", 
              RowBox[{"Number", " ", "of", " ", "prey", " ", "levels"}], " ", 
              "*)"}], "\[IndentingNewLine]", 
             RowBox[{"Length", "[", 
              RowBox[{"PredVals", "[", 
               RowBox[{"j", ",", 
                RowBox[{"Fibonacci", "[", "PredMaxLevelsFix", "]"}], ",", 
                "AbundSeries"}], "]"}], "]"}], ",", " ", 
             RowBox[{"(*", " ", 
              RowBox[{"Number", " ", "of", " ", "pred", " ", "levels"}], " ", 
              "*)"}], "\[IndentingNewLine]", 
             RowBox[{"GeomComplex", "[", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"PreyVals", "[", 
                RowBox[{"i", ",", 
                 RowBox[{"Fibonacci", "[", "PreyMaxLevelsFix", "]"}], ",", 
                 "AbundSeries"}], "]"}], ",", "\[IndentingNewLine]", 
               RowBox[{"PredVals", "[", 
                RowBox[{"j", ",", 
                 RowBox[{"Fibonacci", "[", "PredMaxLevelsFix", "]"}], ",", 
                 "AbundSeries"}], "]"}], ",", "\[IndentingNewLine]", 
               RowBox[{"Model", "=", " ", "ModelAbb"}]}], "]"}]}], 
            "\[IndentingNewLine]", "}"}], "]"}], ",", "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"i", ",", " ", "PreyMinLevels", ",", "PreyMaxLevelsFix"}], 
           "}"}], ",", "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"j", ",", "PredMinLevels", ",", "PredMaxLevelsFix"}], 
           "}"}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", 
        "1"}], "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]",
    "]"}]}]}], "Input",
 CellChangeTimes->{{3.8156143946699467`*^9, 3.815614418865271*^9}, {
   3.815740637745232*^9, 3.815740639855404*^9}, {3.815833770447194*^9, 
   3.815833775189081*^9}, {3.8158338600422497`*^9, 3.815833860665992*^9}, {
   3.815875928883522*^9, 3.815875952872772*^9}, {3.817259732834079*^9, 
   3.817259738438328*^9}, {3.8173073680178757`*^9, 3.817307457822227*^9}, {
   3.81730749038061*^9, 3.81730751786762*^9}, {3.817307560666387*^9, 
   3.8173077442195053`*^9}, {3.8173077885701437`*^9, 
   3.8173077977782288`*^9}, {3.8173079326285267`*^9, 
   3.8173080706313677`*^9}, {3.817308113918186*^9, 3.817308134164777*^9}, {
   3.817308202547022*^9, 3.8173082204898043`*^9}, {3.817308388268379*^9, 
   3.817308407065151*^9}, {3.817308453031259*^9, 3.817308457110495*^9}, {
   3.817308490414463*^9, 3.81730850778065*^9}, {3.8173085752111063`*^9, 
   3.817308602681036*^9}, {3.817308726879113*^9, 3.817308796393421*^9}, {
   3.817308938420762*^9, 3.8173089388598824`*^9}, {3.817308976139517*^9, 
   3.817308997841552*^9}, {3.8173090383288393`*^9, 3.817309111645759*^9}, {
   3.817309275640265*^9, 3.817309286070623*^9}, {3.817309319518403*^9, 
   3.817309332460807*^9}, {3.817475000249319*^9, 3.8174750347599783`*^9}, {
   3.818711036874465*^9, 3.8187110580249853`*^9}, {3.8187111639656878`*^9, 
   3.8187111802922163`*^9}, {3.819033272009077*^9, 3.819033272010421*^9}, {
   3.820020504986279*^9, 3.82002050507286*^9}, 3.8200205473679523`*^9, {
   3.8200205856873503`*^9, 3.820020623228939*^9}, {3.8200207076347637`*^9, 
   3.8200207078896103`*^9}, {3.820021026606749*^9, 3.820021086467353*^9}, {
   3.820021205031909*^9, 3.820021210382512*^9}, {3.8200217112527122`*^9, 
   3.8200217150514*^9}, {3.820021781121326*^9, 3.820021803888186*^9}, {
   3.820021950715873*^9, 3.820021962562269*^9}, {3.820023722718548*^9, 
   3.820023755780664*^9}, {3.820023834234151*^9, 3.820023887135957*^9}, {
   3.820023999596449*^9, 3.820023999779344*^9}, {3.820024057018181*^9, 
   3.820024089576955*^9}, {3.820025691491968*^9, 3.8200257571526403`*^9}, {
   3.820025789839613*^9, 3.820025812150958*^9}, {3.820025845350136*^9, 
   3.820025848645397*^9}, {3.8200260063267813`*^9, 3.820026021525646*^9}, {
   3.8200261699126177`*^9, 3.8200262026305923`*^9}, {3.8200644872015467`*^9, 
   3.8200645065841513`*^9}, {3.820064542112165*^9, 3.8200646117483892`*^9}, {
   3.8200646504266253`*^9, 3.820064652937509*^9}, {3.8200647530707703`*^9, 
   3.820064767237269*^9}, {3.820457156562389*^9, 3.820457192816517*^9}, {
   3.820457250382905*^9, 3.820457344138215*^9}, {3.820495823255422*^9, 
   3.820495837302547*^9}, {3.820511941977963*^9, 3.8205119491043053`*^9}, {
   3.820626687896085*^9, 3.8206266913590193`*^9}, {3.8212316215053387`*^9, 
   3.8212316243363113`*^9}, {3.821232092574774*^9, 3.821232165747274*^9}, {
   3.821235658076006*^9, 3.8212357307287188`*^9}, {3.8212363493858347`*^9, 
   3.8212363898627567`*^9}, {3.82123664594147*^9, 3.821236646756668*^9}, {
   3.824831405775003*^9, 3.8248314057960997`*^9}, {3.824831682484428*^9, 
   3.824831682627262*^9}, {3.824831730730555*^9, 3.824831730873405*^9}, {
   3.824833351274703*^9, 3.824833351353408*^9}, {3.824833420871354*^9, 
   3.8248334216307497`*^9}, {3.824833455725973*^9, 3.824833455797523*^9}, {
   3.8248334875266333`*^9, 3.82483348764517*^9}, {3.824904647949223*^9, 
   3.824904678811784*^9}, {3.824905026055058*^9, 3.824905047813428*^9}},
 CellLabel->
  "In[651]:=",ExpressionUUID->"21b11b8f-e0a9-40d7-b74f-148839c176da"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Apply across designs", "Section",
 CellChangeTimes->{{3.82123650891507*^9, 
  3.821236519273417*^9}},ExpressionUUID->"77a63c65-653f-4ac1-ae00-\
32c50904394e"],

Cell[CellGroupData[{

Cell["k = 1 models", "Subsection",
 CellChangeTimes->{{3.817481984737129*^9, 3.817481987997725*^9}, {
  3.8212364890098753`*^9, 3.821236490465481*^9}, {3.821271793526786*^9, 
  3.821271794246149*^9}},ExpressionUUID->"b3fe36b2-a2f5-4886-bf6a-\
63d2373b0214"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"varH1", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<H1\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Var\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k1varH1.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k1varH1.txt\>\"", ",", "varH1"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.817479982742412*^9}, {3.8174800295572643`*^9, 
   3.8174800780831423`*^9}, {3.8174815886953707`*^9, 3.817481592014715*^9}, {
   3.818711339486334*^9, 3.818711360372568*^9}, {3.818713035859765*^9, 
   3.818713048170644*^9}, 3.818883307543767*^9, {3.8188833609027357`*^9, 
   3.818883388296851*^9}, {3.8191592412238207`*^9, 3.819159269640641*^9}, {
   3.821235822188633*^9, 3.82123582458788*^9}, 3.8212365518082447`*^9, {
   3.821236596246213*^9, 3.821236597573493*^9}, {3.8212368030385647`*^9, 
   3.8212368083676*^9}, {3.821271808297604*^9, 3.8212718088376083`*^9}},
 CellLabel->
  "In[653]:=",ExpressionUUID->"ad20285f-46bc-454d-9372-b4e26fc63f03"],

Cell[BoxData[" "], "Input",
 CellChangeTimes->{3.8188863329094753`*^9},
 CellLabel->
  "In[655]:=",ExpressionUUID->"28d6fc0b-c020-45fe-8316-3f3852b13e05"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fixH1", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<H1\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Fix\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k1fixH1.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k1fixH1.txt\>\"", ",", "fixH1"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.8174800674832163`*^9}, {3.817481584983391*^9, 
   3.817481587055016*^9}, 3.818883307545546*^9, {3.818883360903626*^9, 
   3.818883392040621*^9}, {3.819159249979438*^9, 3.819159274240541*^9}, 
   3.8200226725842543`*^9, 3.821236878752412*^9, {3.821271809624258*^9, 
   3.821271811479228*^9}},
 CellLabel->
  "In[656]:=",ExpressionUUID->"ba92ff9c-f04d-4719-878c-39e8adc0b701"],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.817480091192232*^9},
 CellLabel->
  "In[658]:=",ExpressionUUID->"131cac42-5e4e-40d7-8e3d-3a7be366d62a"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"varLR", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<LR\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Var\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k1varLR.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k1varLR.txt\>\"", ",", "varLR"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.817479982742412*^9}, {3.8174800295572643`*^9, 
   3.817480100817914*^9}, {3.817481579199789*^9, 3.817481582847075*^9}, 
   3.818883307547236*^9, {3.818883360904463*^9, 3.818883396656474*^9}, {
   3.819159250303029*^9, 3.81915928007206*^9}, {3.820511154566374*^9, 
   3.820511174469366*^9}, 3.821236838266815*^9, {3.821271811847739*^9, 
   3.821271812167284*^9}},
 CellLabel->
  "In[659]:=",ExpressionUUID->"be49da27-ea95-4846-91e0-6969c62576d8"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fixLR", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<LR\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Fix\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k1fixLR.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k1fixLR.txt\>\"", ",", "fixLR"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.8174800674832163`*^9}, {3.817480102122531*^9, 
   3.8174801118494673`*^9}, {3.817481575471794*^9, 3.817481577615407*^9}, 
   3.818883307548938*^9, {3.818883360905325*^9, 3.818883400040381*^9}, {
   3.819159250694871*^9, 3.819159282648138*^9}, {3.8205111583663673`*^9, 
   3.8205111724451838`*^9}, 3.821236879153905*^9, {3.821271812407899*^9, 
   3.821271812687224*^9}},
 CellLabel->
  "In[661]:=",ExpressionUUID->"3fa8d6e8-3683-4c7e-9a47-b7cb42335250"],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.8174801288633337`*^9},
 CellLabel->
  "In[663]:=",ExpressionUUID->"c363d187-c8e1-4e54-b5a1-03c01eb64df5"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"varBWL1", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<BWL1\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Var\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k1varBWL1.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k1varBWL1.txt\>\"", ",", "varBWL1"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.817479982742412*^9}, {3.8174800295572643`*^9, 
   3.8174800780831423`*^9}, {3.8174815886953707`*^9, 3.817481592014715*^9}, {
   3.818711339486334*^9, 3.818711360372568*^9}, {3.818713035859765*^9, 
   3.818713048170644*^9}, 3.818883307543767*^9, {3.8188833609027357`*^9, 
   3.818883388296851*^9}, {3.8191592412238207`*^9, 3.819159269640641*^9}, {
   3.821235822188633*^9, 3.82123582458788*^9}, 3.8212365518082447`*^9, {
   3.821236596246213*^9, 3.821236597573493*^9}, {3.8212368030385647`*^9, 
   3.8212368083676*^9}, {3.821271808297604*^9, 3.8212718088376083`*^9}, {
   3.8251200500430603`*^9, 3.825120066018099*^9}, 3.829330097688067*^9},
 CellLabel->
  "In[664]:=",ExpressionUUID->"d57210ab-54cf-4093-b836-8b231a80355a"],

Cell[BoxData[" "], "Input",
 CellChangeTimes->{3.8188863329094753`*^9},
 CellLabel->
  "In[666]:=",ExpressionUUID->"334d86f9-2f21-413b-aead-f5cab8999f91"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fixBWL1", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<BWL1\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Fix\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k1fixBWL1.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k1fixBWL1.txt\>\"", ",", "fixBWL1"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.8174800674832163`*^9}, {3.817481584983391*^9, 
   3.817481587055016*^9}, 3.818883307545546*^9, {3.818883360903626*^9, 
   3.818883392040621*^9}, {3.819159249979438*^9, 3.819159274240541*^9}, 
   3.8200226725842543`*^9, 3.821236878752412*^9, {3.821271809624258*^9, 
   3.821271811479228*^9}, {3.8251200570513153`*^9, 3.825120074281809*^9}},
 CellLabel->
  "In[667]:=",ExpressionUUID->"4f9077ea-acc5-40e2-91a3-733c61d87bea"],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{{3.825120045823996*^9, 3.825120046634791*^9}},
 CellLabel->
  "In[669]:=",ExpressionUUID->"7d1880c0-9af8-477b-ac2c-a26a3e7264f3"],

Cell[CellGroupData[{

Cell["k = 2 models", "Subsubsection",
 CellChangeTimes->{{3.81748199963897*^9, 
  3.817482002374976*^9}},ExpressionUUID->"1e95f35e-a4df-451f-a2a3-\
48c124144405"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"varH2", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<H2\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Var\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k2varH2.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k2varH2.txt\>\"", ",", "varH2"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.817479982742412*^9}, {3.8174800295572643`*^9, 
   3.817480100817914*^9}, {3.817480133473432*^9, 3.817480189934307*^9}, {
   3.8174809234986677`*^9, 3.817480923962047*^9}, {3.817481567783761*^9, 
   3.817481572663596*^9}, 3.818883307550645*^9, {3.8188833609061327`*^9, 
   3.818883379360279*^9}, 3.8188834257840242`*^9, 3.818951859307166*^9, {
   3.819159251071167*^9, 3.819159251262932*^9}, {3.819159285447638*^9, 
   3.819159287983255*^9}, 3.8212368389136753`*^9, {3.821271813263732*^9, 
   3.82127181355123*^9}},
 CellLabel->
  "In[670]:=",ExpressionUUID->"18717a4e-f0e0-4a86-be53-12ffc98cad5c"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fixH2", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<H2\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Fix\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k2fixH2.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k2fixH2.txt\>\"", ",", "fixH2"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.8174800674832163`*^9}, {3.817480102122531*^9, 
   3.817480161735585*^9}, {3.817481566056261*^9, 3.817481570503563*^9}, 
   3.818883307552483*^9, {3.8188833609069366`*^9, 3.818883379361019*^9}, {
   3.8188834097445383`*^9, 3.818883429536026*^9}, {3.819159251454872*^9, 
   3.819159251638893*^9}, {3.819159289663847*^9, 3.819159291255966*^9}, 
   3.82123687952054*^9, {3.821271813783613*^9, 3.821271814031354*^9}},
 CellLabel->
  "In[672]:=",ExpressionUUID->"b682bddc-6ed1-4936-85f4-defa448e2ba4"],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.8174801288633337`*^9},
 CellLabel->
  "In[674]:=",ExpressionUUID->"7e7a1e20-141c-4428-8904-284f3dab87b7"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"varMM", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<MM\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Var\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k2varMM.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k2varMM.txt\>\"", ",", "varMM"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.817479982742412*^9}, {3.8174800295572643`*^9, 
   3.817480100817914*^9}, {3.817480133473432*^9, 3.817480189934307*^9}, {
   3.8174809234986677`*^9, 3.817480923962047*^9}, {3.817481567783761*^9, 
   3.817481572663596*^9}, 3.818883307550645*^9, {3.8188833609061327`*^9, 
   3.818883379360279*^9}, 3.8188834257840242`*^9, 3.818951859307166*^9, {
   3.819159251071167*^9, 3.819159251262932*^9}, {3.819159285447638*^9, 
   3.819159287983255*^9}, {3.820625099055464*^9, 3.820625101012618*^9}, 
   3.8212368390902443`*^9, {3.821271814327717*^9, 3.821271814575384*^9}},
 CellLabel->
  "In[675]:=",ExpressionUUID->"08be2bbd-8ee7-40fc-ac46-601c3c13fef9"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fixMM", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<MM\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Fix\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k2fixMM.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k2fixMM.txt\>\"", ",", "fixMM"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.8174800674832163`*^9}, {3.817480102122531*^9, 
   3.817480161735585*^9}, {3.817481566056261*^9, 3.817481570503563*^9}, 
   3.818883307552483*^9, {3.8188833609069366`*^9, 3.818883379361019*^9}, {
   3.8188834097445383`*^9, 3.818883429536026*^9}, {3.819159251454872*^9, 
   3.819159251638893*^9}, {3.819159289663847*^9, 3.819159291255966*^9}, {
   3.8206251015009737`*^9, 3.8206251080935507`*^9}, 3.821236879896549*^9, {
   3.8212718150157337`*^9, 3.821271815239181*^9}},
 CellLabel->
  "In[677]:=",ExpressionUUID->"8ad7804f-a91b-4baf-a094-bf2e4b7ebad9"],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{{3.820625091969144*^9, 3.820625092619005*^9}},
 CellLabel->
  "In[679]:=",ExpressionUUID->"32753988-db6b-4887-964c-ad9d40c93c1e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"varHV", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<HV\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Var\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k2varHV.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k2varHV.txt\>\"", ",", "varHV"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.817479982742412*^9}, {3.8174800295572643`*^9, 
   3.817480100817914*^9}, {3.817480133473432*^9, 3.817480189934307*^9}, {
   3.817480918755168*^9, 3.81748093818557*^9}, {3.817481556847677*^9, 
   3.817481559055718*^9}, 3.818883307554164*^9, {3.818883360907737*^9, 
   3.8188833793617973`*^9}, {3.818883433071623*^9, 3.818883433247154*^9}, {
   3.819159251822649*^9, 3.8191592520302887`*^9}, {3.819159293455711*^9, 
   3.8191593089585876`*^9}, 3.821236839274275*^9, {3.8212718154960737`*^9, 
   3.8212718157112923`*^9}},
 CellLabel->
  "In[680]:=",ExpressionUUID->"b49dba4a-de05-42c0-b602-9294cde79118"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fixHV", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<HV\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Fix\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k2fixHV.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k2fixHV.txt\>\"", ",", "fixHV"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.8174800674832163`*^9}, {3.817480102122531*^9, 
   3.817480161735585*^9}, {3.817480929962083*^9, 3.817480951145123*^9}, {
   3.817481554863727*^9, 3.817481562391613*^9}, 3.818883307555869*^9, {
   3.818883360908506*^9, 3.818883379362534*^9}, {3.818883436447398*^9, 
   3.818883436615107*^9}, 3.8191593478507967`*^9, 3.819938259807809*^9, 
   3.821236880328401*^9, {3.8212718160317698`*^9, 3.821271816271167*^9}},
 CellLabel->
  "In[682]:=",ExpressionUUID->"7c9a8925-c6ad-4e58-8bba-9d2d7ba7b634"],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.8174801288633337`*^9},
 CellLabel->
  "In[684]:=",ExpressionUUID->"aaf43e51-c49f-497a-8400-0fcc14fe1513"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"varR", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<R\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Var\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k2varR.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k2varR.txt\>\"", ",", "varR"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.817479982742412*^9}, {3.8174800295572643`*^9, 
   3.817480100817914*^9}, {3.817480133473432*^9, 3.817480189934307*^9}, {
   3.817480918755168*^9, 3.81748093818557*^9}, {3.817481556847677*^9, 
   3.817481559055718*^9}, 3.818883307554164*^9, {3.818883360907737*^9, 
   3.8188833793617973`*^9}, {3.818883433071623*^9, 3.818883433247154*^9}, {
   3.819159251822649*^9, 3.8191592520302887`*^9}, {3.819159293455711*^9, 
   3.8191593089585876`*^9}, 3.821236839274275*^9, {3.8212718154960737`*^9, 
   3.8212718157112923`*^9}, {3.828491282392906*^9, 3.8284912946235657`*^9}},
 CellLabel->
  "In[685]:=",ExpressionUUID->"df68cad4-350f-47d9-9bc8-4f0ec30e7126"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fixR", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<R\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Fix\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k2fixR.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k2fixR.txt\>\"", ",", "fixR"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.8174800674832163`*^9}, {3.817480102122531*^9, 
   3.817480161735585*^9}, {3.817480929962083*^9, 3.817480951145123*^9}, {
   3.817481554863727*^9, 3.817481562391613*^9}, 3.818883307555869*^9, {
   3.818883360908506*^9, 3.818883379362534*^9}, {3.818883436447398*^9, 
   3.818883436615107*^9}, 3.8191593478507967`*^9, 3.819938259807809*^9, 
   3.821236880328401*^9, {3.8212718160317698`*^9, 3.821271816271167*^9}, {
   3.828491296167961*^9, 3.8284913061911907`*^9}},
 CellLabel->
  "In[687]:=",ExpressionUUID->"354312dc-df42-4186-a60d-385c7afbb4dc"],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.8174801288633337`*^9},
 CellLabel->
  "In[689]:=",ExpressionUUID->"356c7285-9c0e-45c3-90b7-3deb7d5cb73d"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"varAG", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<AG\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Var\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k2varAG.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k2varAG.txt\>\"", ",", "varAG"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.817479982742412*^9}, {3.8174800295572643`*^9, 
   3.817480100817914*^9}, {3.817480133473432*^9, 3.817480189934307*^9}, {
   3.817480918755168*^9, 3.8174809761281033`*^9}, {3.817481548080003*^9, 
   3.817481550688086*^9}, 3.818883307557543*^9, {3.818883360909243*^9, 
   3.8188833793632307`*^9}, {3.8188834398473454`*^9, 
   3.8188834400387163`*^9}, {3.819159347851583*^9, 3.8191593478522453`*^9}, 
   3.821236839450156*^9, {3.821271816543746*^9, 3.8212718168631163`*^9}},
 CellLabel->
  "In[690]:=",ExpressionUUID->"e4201c47-b3a1-41d3-9758-c792faaaa1ef"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fixAG", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<AG\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Fix\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k2fixAG.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k2fixAG.txt\>\"", ",", "fixAG"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.8174800674832163`*^9}, {3.817480102122531*^9, 
   3.817480161735585*^9}, {3.817480929962083*^9, 3.8174809851999407`*^9}, {
   3.817481542648408*^9, 3.817481552391927*^9}, 3.818883307559195*^9, {
   3.8188833609099483`*^9, 3.818883379363924*^9}, {3.818883443255185*^9, 
   3.818883443510827*^9}, {3.819159347852892*^9, 3.819159347853366*^9}, 
   3.821236880568535*^9, {3.821271817159718*^9, 3.8212718174231863`*^9}},
 CellLabel->
  "In[692]:=",ExpressionUUID->"4126415a-beff-4d8c-8904-9141ebeae767"],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.8174801288633337`*^9},
 CellLabel->
  "In[694]:=",ExpressionUUID->"9496081d-d539-41e5-9de8-b14d1c8bcb3c"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"varCDAO", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<CDAO\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Var\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k2varCDAO.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k2varCDAO.txt\>\"", ",", "varCDAO"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.817479982742412*^9}, {3.8174800295572643`*^9, 
   3.817480100817914*^9}, {3.817480133473432*^9, 3.817480189934307*^9}, {
   3.817480918755168*^9, 3.8174809761281033`*^9}, {3.817481548080003*^9, 
   3.817481550688086*^9}, 3.818883307557543*^9, {3.818883360909243*^9, 
   3.8188833793632307`*^9}, {3.8188834398473454`*^9, 
   3.8188834400387163`*^9}, {3.819159347851583*^9, 3.8191593478522453`*^9}, 
   3.821236839450156*^9, {3.821271816543746*^9, 3.8212718168631163`*^9}, {
   3.82906415148689*^9, 3.8290641535972357`*^9}},
 CellLabel->
  "In[695]:=",ExpressionUUID->"a6039948-8525-49ad-8fd5-0a43a620ca3c"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fixCDAO", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<CDAO\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Fix\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k2fixCDAO.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k2fixCDAO.txt\>\"", ",", "fixCDAO"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.8174800674832163`*^9}, {3.817480102122531*^9, 
   3.817480161735585*^9}, {3.817480929962083*^9, 3.8174809851999407`*^9}, {
   3.817481542648408*^9, 3.817481552391927*^9}, 3.818883307559195*^9, {
   3.8188833609099483`*^9, 3.818883379363924*^9}, {3.818883443255185*^9, 
   3.818883443510827*^9}, {3.819159347852892*^9, 3.819159347853366*^9}, 
   3.821236880568535*^9, {3.821271817159718*^9, 3.8212718174231863`*^9}, {
   3.829064155933489*^9, 3.829064157876789*^9}},
 CellLabel->
  "In[697]:=",ExpressionUUID->"18452ced-f01d-499e-82e7-77cb1d698a0a"],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.8174801288633337`*^9},
 CellLabel->
  "In[699]:=",ExpressionUUID->"3e958ff2-a5d1-48ec-a8f6-362c03c21368"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"varGI", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<GI\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Var\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k2varGI.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k2varGI.txt\>\"", ",", "varGI"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.817479982742412*^9}, {3.8174800295572643`*^9, 
   3.817480100817914*^9}, {3.817480133473432*^9, 3.817480189934307*^9}, {
   3.817480918755168*^9, 3.8174809761281033`*^9}, {3.817481199875258*^9, 
   3.817481201546896*^9}, {3.817481535200595*^9, 3.81748153790444*^9}, 
   3.818883307560771*^9, {3.818883360910668*^9, 3.8188833793646097`*^9}, {
   3.818883447911055*^9, 3.818883448126566*^9}, {3.8191593478540154`*^9, 
   3.8191593478546247`*^9}, 3.821236839633806*^9, {3.821271817687875*^9, 
   3.8212718180075397`*^9}},
 CellLabel->
  "In[700]:=",ExpressionUUID->"44511a7e-e890-4185-9cf4-796690d1d776"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fixGI", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<GI\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Fix\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k2fixGI.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k2fixGI.txt\>\"", ",", "fixGI"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.8174800674832163`*^9}, {3.817480102122531*^9, 
   3.817480161735585*^9}, {3.817480929962083*^9, 3.8174809851999407`*^9}, {
   3.817481202059146*^9, 3.817481205330865*^9}, {3.817481532440714*^9, 
   3.817481544168165*^9}, 3.818883307562299*^9, {3.81888336091145*^9, 
   3.8188833793653107`*^9}, {3.8188834514629*^9, 3.8188834516624002`*^9}, {
   3.819159347855442*^9, 3.8191593478560534`*^9}, 3.821236880760495*^9, {
   3.821271818312593*^9, 3.821271818583053*^9}},
 CellLabel->
  "In[702]:=",ExpressionUUID->"306fc5f9-a40a-4cf2-867d-68712338dd97"],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.8174801288633337`*^9},
 CellLabel->
  "In[704]:=",ExpressionUUID->"84be7cd3-2b9c-44de-a36d-073b474a0ebc"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"varGIA", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<GIA\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Var\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k2varGIA.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k2varGIA.txt\>\"", ",", "varGIA"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.817479982742412*^9}, {3.8174800295572643`*^9, 
   3.817480100817914*^9}, {3.817480133473432*^9, 3.817480189934307*^9}, {
   3.817480918755168*^9, 3.8174809761281033`*^9}, {3.817481199875258*^9, 
   3.817481201546896*^9}, {3.817481535200595*^9, 3.81748153790444*^9}, 
   3.818883307560771*^9, {3.818883360910668*^9, 3.8188833793646097`*^9}, {
   3.818883447911055*^9, 3.818883448126566*^9}, {3.818987031548449*^9, 
   3.8189870382757597`*^9}, {3.8190562387404757`*^9, 
   3.8190562387423277`*^9}, {3.819159347856802*^9, 3.819159347857328*^9}, 
   3.82123684012167*^9, {3.821271818871725*^9, 3.8212718191353827`*^9}},
 CellLabel->
  "In[705]:=",ExpressionUUID->"16c10233-2819-4644-81ec-a2308e55469a"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fixGIA", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<GIA\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Fix\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k2fixGIA.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k2fixGIA.txt\>\"", ",", "fixGIA"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.8174800674832163`*^9}, {3.817480102122531*^9, 
   3.817480161735585*^9}, {3.817480929962083*^9, 3.8174809851999407`*^9}, {
   3.817481202059146*^9, 3.817481205330865*^9}, {3.817481532440714*^9, 
   3.817481544168165*^9}, 3.818883307562299*^9, {3.81888336091145*^9, 
   3.8188833793653107`*^9}, {3.8188834514629*^9, 3.8188834516624002`*^9}, {
   3.818987039867847*^9, 3.818987044731612*^9}, {3.8190562387435493`*^9, 
   3.819056238745332*^9}, {3.819159347857987*^9, 3.819159347858549*^9}, 
   3.821236880952457*^9, {3.821271819415992*^9, 3.821271819695356*^9}},
 CellLabel->
  "In[707]:=",ExpressionUUID->"261acf50-4452-4d63-b56b-b295cec4cb38"],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{
  3.8174801288633337`*^9, {3.819938320164472*^9, 3.819938322243964*^9}},
 CellLabel->
  "In[709]:=",ExpressionUUID->"5dc78cd6-dd24-4904-b292-2489e2797e5b"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"varGB", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<GB\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Var\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k2varGB.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k2varGB.txt\>\"", ",", "varGB"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.817479982742412*^9}, {3.8174800295572643`*^9, 
   3.817480100817914*^9}, {3.817480133473432*^9, 3.817480189934307*^9}, {
   3.817480918755168*^9, 3.8174809761281033`*^9}, {3.817481199875258*^9, 
   3.817481201546896*^9}, {3.817481535200595*^9, 3.81748153790444*^9}, 
   3.818883307560771*^9, {3.818883360910668*^9, 3.8188833793646097`*^9}, {
   3.818883447911055*^9, 3.818883448126566*^9}, {3.818987031548449*^9, 
   3.8189870382757597`*^9}, {3.8190562387404757`*^9, 
   3.8190562387423277`*^9}, {3.819159347856802*^9, 3.819159347857328*^9}, 
   3.82123684012167*^9, {3.821271818871725*^9, 3.8212718191353827`*^9}, {
   3.824425890979751*^9, 3.824425900386382*^9}},
 CellLabel->
  "In[710]:=",ExpressionUUID->"ac98063a-eb3d-4e12-a591-0d05aaaa2b2e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fixGB", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<GB\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Fix\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k2fixGB.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k2fixGB.txt\>\"", ",", "fixGB"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.8174800674832163`*^9}, {3.817480102122531*^9, 
   3.817480161735585*^9}, {3.817480929962083*^9, 3.8174809851999407`*^9}, {
   3.817481202059146*^9, 3.817481205330865*^9}, {3.817481532440714*^9, 
   3.817481544168165*^9}, 3.818883307562299*^9, {3.81888336091145*^9, 
   3.8188833793653107`*^9}, {3.8188834514629*^9, 3.8188834516624002`*^9}, {
   3.818987039867847*^9, 3.818987044731612*^9}, {3.8190562387435493`*^9, 
   3.819056238745332*^9}, {3.819159347857987*^9, 3.819159347858549*^9}, 
   3.821236880952457*^9, {3.821271819415992*^9, 3.821271819695356*^9}, {
   3.824425902066751*^9, 3.82442591095407*^9}},
 CellLabel->
  "In[712]:=",ExpressionUUID->"08f916ba-7f14-4c12-b03b-446314d24fed"],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.825426356009552*^9},
 CellLabel->
  "In[714]:=",ExpressionUUID->"25e0baec-a985-45bf-832a-11b91f0c8a3c"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"varHT", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<HT\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Var\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"DeleteFile", "[", "\"\<k2varHT.txt\>\"", "]"}], ";"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{"Save", "[", 
  RowBox[{"\"\<k2varHT.txt\>\"", ",", "varHT"}], "]"}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.817479982742412*^9}, {3.8174800295572643`*^9, 
   3.817480100817914*^9}, {3.817480133473432*^9, 3.817480189934307*^9}, {
   3.817480918755168*^9, 3.8174809761281033`*^9}, {3.817481199875258*^9, 
   3.8174812535313787`*^9}, {3.817481522185576*^9, 3.817481530048818*^9}, {
   3.817505838920617*^9, 3.817505840895973*^9}, {3.817505919382328*^9, 
   3.8175059243168983`*^9}, 3.818883307563846*^9, {3.8188833609121313`*^9, 
   3.818883379365982*^9}, {3.818883455342628*^9, 3.8188834555343*^9}, {
   3.8189870638507023`*^9, 3.8189870657388277`*^9}, {3.819159347859262*^9, 
   3.8191593478597918`*^9}, 3.82123684029877*^9, {3.82127182004807*^9, 
   3.821271820343389*^9}, 3.8254263573403807`*^9},
 CellLabel->
  "In[715]:=",ExpressionUUID->"b1148e61-bac8-444e-8be3-5dfd2829d479"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fixHT", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<HT\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Fix\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k2fixHT.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k2fixHT.txt\>\"", ",", "fixHT"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.8174800674832163`*^9}, {3.817480102122531*^9, 
   3.817480161735585*^9}, {3.817480929962083*^9, 3.8174809851999407`*^9}, {
   3.817481202059146*^9, 3.817481260107173*^9}, {3.817481524601076*^9, 
   3.8174815268328037`*^9}, {3.81750592607736*^9, 3.817505952779755*^9}, {
   3.817577352788425*^9, 3.817577353227919*^9}, 3.8188833075645037`*^9, {
   3.8188833609128027`*^9, 3.818883379366688*^9}, {3.818883462262521*^9, 
   3.818883462486024*^9}, 3.818987059923815*^9, {3.819159347860505*^9, 
   3.8191593478610783`*^9}, 3.821236881152466*^9, {3.821271820791718*^9, 
   3.821271821143086*^9}},
 CellLabel->
  "In[718]:=",ExpressionUUID->"daa26e1d-6641-44c9-90a9-cf1d2d2a4068"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{
  3.8174801288633337`*^9, {3.825426036641959*^9, 3.825426042737034*^9}, 
   3.82542634409282*^9},
 CellLabel->
  "In[720]:=",ExpressionUUID->"2eea8f1b-c4d4-4c65-8bd4-724ad4e75dfd"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"varHTb", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<HTb\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Var\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"DeleteFile", "[", "\"\<k2varHTb.txt\>\"", "]"}], ";"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{"Save", "[", 
  RowBox[{"\"\<k2varHTb.txt\>\"", ",", "varHTb"}], "]"}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.817479982742412*^9}, {3.8174800295572643`*^9, 
   3.817480100817914*^9}, {3.817480133473432*^9, 3.817480189934307*^9}, {
   3.817480918755168*^9, 3.8174809761281033`*^9}, {3.817481199875258*^9, 
   3.8174812535313787`*^9}, {3.817481522185576*^9, 3.817481530048818*^9}, {
   3.817505838920617*^9, 3.817505840895973*^9}, {3.817505919382328*^9, 
   3.8175059243168983`*^9}, 3.818883307563846*^9, {3.8188833609121313`*^9, 
   3.818883379365982*^9}, {3.818883455342628*^9, 3.8188834555343*^9}, {
   3.8189870638507023`*^9, 3.8189870657388277`*^9}, {3.819159347859262*^9, 
   3.8191593478597918`*^9}, 3.82123684029877*^9, {3.82127182004807*^9, 
   3.821271820343389*^9}, {3.8254263250068502`*^9, 3.825426362979274*^9}, 
   3.825426400753549*^9, {3.8287882930012503`*^9, 3.8287882930034122`*^9}, {
   3.8287883364251423`*^9, 3.828788339008449*^9}},
 CellLabel->
  "In[721]:=",ExpressionUUID->"7f932c8f-be4c-4f58-906a-a9bb18cef496"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fixHTb", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<HTb\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Fix\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k2fixHTb.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k2fixHTb.txt\>\"", ",", "fixHTb"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.8174800674832163`*^9}, {3.817480102122531*^9, 
   3.817480161735585*^9}, {3.817480929962083*^9, 3.8174809851999407`*^9}, {
   3.817481202059146*^9, 3.817481260107173*^9}, {3.817481524601076*^9, 
   3.8174815268328037`*^9}, {3.81750592607736*^9, 3.817505952779755*^9}, {
   3.817577352788425*^9, 3.817577353227919*^9}, 3.8188833075645037`*^9, {
   3.8188833609128027`*^9, 3.818883379366688*^9}, {3.818883462262521*^9, 
   3.818883462486024*^9}, 3.818987059923815*^9, {3.819159347860505*^9, 
   3.8191593478610783`*^9}, 3.821236881152466*^9, {3.821271820791718*^9, 
   3.821271821143086*^9}, {3.825426326446867*^9, 3.825426331518086*^9}, 
   3.825426399185996*^9, {3.8287882930528584`*^9, 3.828788293055216*^9}, {
   3.828788347944838*^9, 3.8287883513279133`*^9}},
 CellLabel->
  "In[724]:=",ExpressionUUID->"bf639950-6413-4cb5-8638-0ba91699d448"],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{
  3.8174801288633337`*^9, {3.825426036641959*^9, 3.825426042737034*^9}},
 CellLabel->
  "In[726]:=",ExpressionUUID->"5c484a16-c83b-4978-9290-892ccdb55664"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"varH3", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<H3\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Var\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k2varH3.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k2varH3.txt\>\"", ",", "varH3"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.817479982742412*^9}, {3.8174800295572643`*^9, 
   3.817480100817914*^9}, {3.817480133473432*^9, 3.817480189934307*^9}, {
   3.8174809234986677`*^9, 3.817480923962047*^9}, {3.817481567783761*^9, 
   3.817481572663596*^9}, {3.817564327981876*^9, 3.8175643295589943`*^9}, {
   3.8187088362468987`*^9, 3.818708840758252*^9}, 3.818708878772711*^9, 
   3.818883307565166*^9, {3.8188833609134893`*^9, 3.818883379367367*^9}, {
   3.8188834656942596`*^9, 3.818883465917828*^9}, {3.819159347861755*^9, 
   3.819159347862266*^9}, 3.821236840481737*^9, {3.82127182147147*^9, 
   3.821271821767023*^9}},
 CellLabel->
  "In[727]:=",ExpressionUUID->"7e9f7a5c-c929-4e65-9fab-877151d59366"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fixH3", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<H3\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Fix\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k2fixH3.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k2fixH3.txt\>\"", ",", "fixH3"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.8174800674832163`*^9}, {3.817480102122531*^9, 
   3.817480161735585*^9}, {3.817481566056261*^9, 3.817481570503563*^9}, {
   3.81756433009389*^9, 3.817564332661448*^9}, {3.8187088386149693`*^9, 
   3.8187088399102488`*^9}, {3.81870887405401*^9, 3.818708878060794*^9}, 
   3.818883307565795*^9, {3.818883360914147*^9, 3.818883379368063*^9}, {
   3.8188834699742002`*^9, 3.818883470197789*^9}, {3.819159347863057*^9, 
   3.819159347863611*^9}, 3.8199384812950087`*^9, 3.821236881351838*^9, {
   3.821271822055628*^9, 3.821271822327161*^9}},
 CellLabel->
  "In[729]:=",ExpressionUUID->"13276996-330f-4f6b-a8fe-4aff13288533"],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.8206206144641867`*^9},
 CellLabel->
  "In[731]:=",ExpressionUUID->"57a36cfb-44fb-4d34-a601-1dd994d2749f"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"varAGK", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<AGK\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Var\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k2varAGK.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k2varAGK.txt\>\"", ",", "varAGK"}], "]"}]}]}], "Input",
 CellChangeTimes->{
  3.8174801288633337`*^9, {3.8206206012150383`*^9, 3.820620640044139*^9}, 
   3.8212368406598682`*^9, {3.821271822647654*^9, 3.8212718229432993`*^9}, {
   3.825461960646988*^9, 3.825461960648974*^9}},
 CellLabel->
  "In[732]:=",ExpressionUUID->"4523a657-b25c-44ed-b83e-37b128eb3ad6"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fixAGK", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<AGK\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Fix\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k2fixAGK.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k2fixAGK.txt\>\"", ",", "fixAGK"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.820620617883589*^9, 3.820620645460046*^9}, 
   3.8212368815205593`*^9, {3.821271823231772*^9, 3.82127182355119*^9}, {
   3.825461960650831*^9, 3.825461960652828*^9}},
 CellLabel->
  "In[734]:=",ExpressionUUID->"98c74b64-dbd2-4eda-aebe-8bbf30c8840a"],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{{3.8206206216479673`*^9, 3.8206206223948803`*^9}},
 CellLabel->
  "In[736]:=",ExpressionUUID->"b64912d9-e99f-4f1e-b037-220f1a4b7f8d"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"varA0", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<A0\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Var\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k2varA0.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k2varA0.txt\>\"", ",", "varA0"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.817479982742412*^9}, {3.8174800295572643`*^9, 
   3.817480100817914*^9}, {3.817480133473432*^9, 3.817480189934307*^9}, {
   3.817480918755168*^9, 3.8174809761281033`*^9}, {3.817481199875258*^9, 
   3.817481201546896*^9}, {3.817481329925963*^9, 3.8174813683110743`*^9}, {
   3.817481744813725*^9, 3.8174817476706963`*^9}, {3.817481841394153*^9, 
   3.817481845165313*^9}, {3.817579707736351*^9, 3.817579707912018*^9}, 
   3.8188833075673656`*^9, {3.818883360914831*^9, 3.81888337936875*^9}, {
   3.818883475998013*^9, 3.8188834762134523`*^9}, {3.819159347864511*^9, 
   3.8191593478650093`*^9}, 3.821236840833832*^9, {3.821271823839505*^9, 
   3.821271824143187*^9}, {3.829003468353662*^9, 3.829003475632576*^9}},
 CellLabel->
  "In[737]:=",ExpressionUUID->"9684ecd6-58e3-4719-9647-c04d0da24102"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fixA0", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<A0\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Fix\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k2fixA0.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k2fixA0.txt\>\"", ",", "fixA0"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.8174800674832163`*^9}, {3.817480102122531*^9, 
   3.817480161735585*^9}, {3.817480929962083*^9, 3.8174809851999407`*^9}, {
   3.817481202059146*^9, 3.817481205330865*^9}, {3.817481332214031*^9, 
   3.817481372822939*^9}, {3.8174817481255903`*^9, 3.8174817495497627`*^9}, {
   3.817481845585885*^9, 3.817481847249979*^9}, {3.817579709527811*^9, 
   3.817579709719882*^9}, 3.818883307568886*^9, {3.818883360915506*^9, 
   3.81888337936945*^9}, {3.818883479261793*^9, 3.8188834794612293`*^9}, {
   3.8191593478656483`*^9, 3.819159347866148*^9}, 3.821236881712448*^9, {
   3.821271824743536*^9, 3.82127182508711*^9}, {3.829003477200984*^9, 
   3.829003485336165*^9}, {3.829003935917495*^9, 3.829003936172364*^9}},
 CellLabel->
  "In[739]:=",ExpressionUUID->"a00da50b-1b0a-4dfa-8bc2-9a78f2c58689"],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.8174801288633337`*^9},
 CellLabel->
  "In[741]:=",ExpressionUUID->"8c94bfe8-b9b3-4baf-90cf-2774bbd46ca5"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"varA1", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<A1\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Var\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k2varA1.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k2varA1.txt\>\"", ",", "varA1"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.817479982742412*^9}, {3.8174800295572643`*^9, 
   3.817480100817914*^9}, {3.817480133473432*^9, 3.817480189934307*^9}, {
   3.817480918755168*^9, 3.8174809761281033`*^9}, {3.817481199875258*^9, 
   3.817481201546896*^9}, {3.817481329925963*^9, 3.8174813683110743`*^9}, {
   3.817481744813725*^9, 3.8174817476706963`*^9}, {3.817481841394153*^9, 
   3.817481845165313*^9}, {3.817579707736351*^9, 3.817579707912018*^9}, 
   3.8188833075673656`*^9, {3.818883360914831*^9, 3.81888337936875*^9}, {
   3.818883475998013*^9, 3.8188834762134523`*^9}, {3.819159347864511*^9, 
   3.8191593478650093`*^9}, 3.821236840833832*^9, {3.821271823839505*^9, 
   3.821271824143187*^9}},
 CellLabel->
  "In[742]:=",ExpressionUUID->"8d24d124-9b89-429b-ae58-dd7377e42593"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fixA1", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<A1\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Fix\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k2fixA1.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k2fixA1.txt\>\"", ",", "fixA1"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.8174800674832163`*^9}, {3.817480102122531*^9, 
   3.817480161735585*^9}, {3.817480929962083*^9, 3.8174809851999407`*^9}, {
   3.817481202059146*^9, 3.817481205330865*^9}, {3.817481332214031*^9, 
   3.817481372822939*^9}, {3.8174817481255903`*^9, 3.8174817495497627`*^9}, {
   3.817481845585885*^9, 3.817481847249979*^9}, {3.817579709527811*^9, 
   3.817579709719882*^9}, 3.818883307568886*^9, {3.818883360915506*^9, 
   3.81888337936945*^9}, {3.818883479261793*^9, 3.8188834794612293`*^9}, {
   3.8191593478656483`*^9, 3.819159347866148*^9}, 3.821236881712448*^9, {
   3.821271824743536*^9, 3.82127182508711*^9}},
 CellLabel->
  "In[744]:=",ExpressionUUID->"0e6a2895-b00c-45ff-bf11-7dfd627b1c77"],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.8174801288633337`*^9},
 CellLabel->
  "In[746]:=",ExpressionUUID->"63e73e27-e04c-4276-9213-a3eda06ab3f0"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"varA3", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<A3\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Var\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k2varA3.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k2varA3.txt\>\"", ",", "varA3"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.817479982742412*^9}, {3.8174800295572643`*^9, 
   3.817480100817914*^9}, {3.817480133473432*^9, 3.817480189934307*^9}, {
   3.817480918755168*^9, 3.8174809761281033`*^9}, {3.817481199875258*^9, 
   3.817481201546896*^9}, {3.817481329925963*^9, 3.8174813683110743`*^9}, {
   3.817481744813725*^9, 3.8174817476706963`*^9}, {3.817481873176853*^9, 
   3.817481874064814*^9}, {3.81756694242447*^9, 3.817566942607695*^9}, 
   3.818883307570438*^9, {3.818883360916191*^9, 3.818883379370154*^9}, {
   3.818883484165615*^9, 3.818883484389168*^9}, {3.819159347867022*^9, 
   3.819159347867569*^9}, 3.8212368410177927`*^9, {3.821271825407411*^9, 
   3.821271825758936*^9}},
 CellLabel->
  "In[747]:=",ExpressionUUID->"40428c90-a5a4-4a5c-9a31-ede952bacb99"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fixA3", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<A3\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Fix\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k2fixA3.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k2fixA3.txt\>\"", ",", "fixA3"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.8174800674832163`*^9}, {3.817480102122531*^9, 
   3.817480161735585*^9}, {3.817480929962083*^9, 3.8174809851999407`*^9}, {
   3.817481202059146*^9, 3.817481205330865*^9}, {3.817481332214031*^9, 
   3.817481372822939*^9}, {3.8174817481255903`*^9, 3.8174817495497627`*^9}, {
   3.8174818747688017`*^9, 3.817481876384623*^9}, {3.817566940832356*^9, 
   3.817566940983904*^9}, 3.818883307572006*^9, {3.8188833609168453`*^9, 
   3.818883379370872*^9}, {3.8188834874533777`*^9, 3.818883487653007*^9}, {
   3.819159347868289*^9, 3.8191593478687963`*^9}, 3.821236881904395*^9, {
   3.82127182607159*^9, 3.821271826351211*^9}},
 CellLabel->
  "In[749]:=",ExpressionUUID->"4f6a4b9e-a24e-4e4e-9bcb-8d5c873412c5"],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.8175668634116364`*^9},
 CellLabel->
  "In[751]:=",ExpressionUUID->"6de296f0-8502-4313-ab71-3884f3a3b47b"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"varSH", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<SH\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Var\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k2varSH.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k2varSH.txt\>\"", ",", "varSH"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.817479982742412*^9}, {3.8174800295572643`*^9, 
   3.817480100817914*^9}, {3.817480133473432*^9, 3.817480189934307*^9}, {
   3.817480918755168*^9, 3.8174809761281033`*^9}, {3.817481199875258*^9, 
   3.817481201546896*^9}, {3.817481329925963*^9, 3.8174813683110743`*^9}, {
   3.817481744813725*^9, 3.8174817476706963`*^9}, {3.817481873176853*^9, 
   3.817481874064814*^9}, {3.81756694242447*^9, 3.817566942607695*^9}, {
   3.818710432297261*^9, 3.8187104387684727`*^9}, 3.8188833075727787`*^9, {
   3.818883360917576*^9, 3.8188833793715973`*^9}, {3.818883490941415*^9, 
   3.818883491148979*^9}, {3.8191593478695383`*^9, 3.8191593478700333`*^9}, 
   3.821236841201592*^9, {3.821271826599579*^9, 3.821271826870949*^9}},
 CellLabel->
  "In[752]:=",ExpressionUUID->"5cde2eb1-908f-47ef-80e2-10cadb87869f"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fixSH", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<SH\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Fix\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k2fixSH.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k2fixSH.txt\>\"", ",", "fixSH"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.8174800674832163`*^9}, {3.817480102122531*^9, 
   3.817480161735585*^9}, {3.817480929962083*^9, 3.8174809851999407`*^9}, {
   3.817481202059146*^9, 3.817481205330865*^9}, {3.817481332214031*^9, 
   3.817481372822939*^9}, {3.8174817481255903`*^9, 3.8174817495497627`*^9}, {
   3.8174818747688017`*^9, 3.817481876384623*^9}, {3.817566940832356*^9, 
   3.817566940983904*^9}, {3.818710440736973*^9, 3.818710448072152*^9}, 
   3.8188833075743313`*^9, {3.818883360918235*^9, 3.818883379372301*^9}, {
   3.818883494245139*^9, 3.818883494452668*^9}, {3.8191593478707247`*^9, 
   3.819159347871221*^9}, 3.821236882096463*^9, {3.82127182717553*^9, 
   3.8212718275749826`*^9}},
 CellLabel->
  "In[754]:=",ExpressionUUID->"f6b4cc20-337f-4d9c-a9c0-f062c04bbf78"],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.820025901568431*^9},
 CellLabel->
  "In[756]:=",ExpressionUUID->"40a5b3e2-d250-49e0-8a9f-86e7585f36c1"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"varSHb", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<SHb\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Var\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k2varSHb.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k2varSHb.txt\>\"", ",", "varSHb"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.817479982742412*^9}, {3.8174800295572643`*^9, 
   3.817480100817914*^9}, {3.817480133473432*^9, 3.817480189934307*^9}, {
   3.817480918755168*^9, 3.8174809761281033`*^9}, {3.817481199875258*^9, 
   3.817481201546896*^9}, {3.817481329925963*^9, 3.8174813683110743`*^9}, {
   3.817481744813725*^9, 3.8174817476706963`*^9}, {3.817481873176853*^9, 
   3.817481874064814*^9}, {3.81756694242447*^9, 3.817566942607695*^9}, {
   3.818710432297261*^9, 3.8187104387684727`*^9}, 3.8188833075727787`*^9, {
   3.818883360917576*^9, 3.8188833793715973`*^9}, {3.818883490941415*^9, 
   3.818883491148979*^9}, {3.8191593478695383`*^9, 3.8191593478700333`*^9}, 
   3.821236841201592*^9, {3.821271826599579*^9, 3.821271826870949*^9}, {
   3.82878847774605*^9, 3.828788486025097*^9}},
 CellLabel->
  "In[757]:=",ExpressionUUID->"669201d6-38c1-4102-af7d-ab53ce6c5258"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fixSHb", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<SHb\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Fix\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k2fixSHb.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k2fixSHb.txt\>\"", ",", "fixSHb"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.8174800674832163`*^9}, {3.817480102122531*^9, 
   3.817480161735585*^9}, {3.817480929962083*^9, 3.8174809851999407`*^9}, {
   3.817481202059146*^9, 3.817481205330865*^9}, {3.817481332214031*^9, 
   3.817481372822939*^9}, {3.8174817481255903`*^9, 3.8174817495497627`*^9}, {
   3.8174818747688017`*^9, 3.817481876384623*^9}, {3.817566940832356*^9, 
   3.817566940983904*^9}, {3.818710440736973*^9, 3.818710448072152*^9}, 
   3.8188833075743313`*^9, {3.818883360918235*^9, 3.818883379372301*^9}, {
   3.818883494245139*^9, 3.818883494452668*^9}, {3.8191593478707247`*^9, 
   3.819159347871221*^9}, 3.821236882096463*^9, {3.82127182717553*^9, 
   3.8212718275749826`*^9}, {3.828788488305344*^9, 3.8287884991369047`*^9}},
 CellLabel->
  "In[759]:=",ExpressionUUID->"383d7ee8-d55d-4673-80e3-5d371d6df185"],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.820025901568431*^9},
 CellLabel->
  "In[761]:=",ExpressionUUID->"023fa2e7-e563-4ce0-b4e4-04fb4d1497ef"]
}, Open  ]],

Cell[CellGroupData[{

Cell["k = 3 models ", "Subsubsection",
 CellChangeTimes->{{3.817482012254559*^9, 
  3.817482015703086*^9}},ExpressionUUID->"382822c7-2300-44a1-8bac-\
d8308f35a1fc"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"varBD", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<BD\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Var\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k3varBD.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k3varBD.txt\>\"", ",", "varBD"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.817479982742412*^9}, {3.8174800295572643`*^9, 
   3.817480100817914*^9}, {3.817480133473432*^9, 3.817480189934307*^9}, {
   3.817480918755168*^9, 3.8174809761281033`*^9}, {3.817481199875258*^9, 
   3.817481201546896*^9}, {3.817481329925963*^9, 3.8174813683110743`*^9}, 
   3.8188833075758743`*^9, {3.818883360918911*^9, 3.8188833793730097`*^9}, {
   3.8188834992611217`*^9, 3.818883499460609*^9}, {3.819159347871952*^9, 
   3.8191593478724403`*^9}, 3.8212368413857193`*^9, {3.821271827903613*^9, 
   3.821271828182785*^9}},
 CellLabel->
  "In[762]:=",ExpressionUUID->"a47997ae-ecac-4442-a070-54a8c1b1813a"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fixBD", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<BD\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Fix\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k3fixBD.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k3fixBD.txt\>\"", ",", "fixBD"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.8174800674832163`*^9}, {3.817480102122531*^9, 
   3.817480161735585*^9}, {3.817480929962083*^9, 3.8174809851999407`*^9}, {
   3.817481202059146*^9, 3.817481205330865*^9}, {3.817481332214031*^9, 
   3.817481372822939*^9}, 3.818883307577404*^9, {3.818883360919565*^9, 
   3.8188833793737164`*^9}, {3.818883506812755*^9, 3.8188835069962673`*^9}, {
   3.819159347873067*^9, 3.819159347873563*^9}, 3.821236882320485*^9, {
   3.8212718284632063`*^9, 3.82127182871082*^9}},
 CellLabel->
  "In[764]:=",ExpressionUUID->"b1063f37-b610-4efc-9d6f-85a36c5232e4"],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.8174801288633337`*^9},
 CellLabel->
  "In[766]:=",ExpressionUUID->"0586b93e-bd2c-4aa0-bfe9-85df72962743"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"varCM", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<CM\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Var\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k3varCM.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k3varCM.txt\>\"", ",", "varCM"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.817479982742412*^9}, {3.8174800295572643`*^9, 
   3.817480100817914*^9}, {3.817480133473432*^9, 3.817480189934307*^9}, {
   3.817480918755168*^9, 3.8174809761281033`*^9}, {3.817481199875258*^9, 
   3.817481201546896*^9}, {3.817481329925963*^9, 3.8174813683110743`*^9}, {
   3.817481744813725*^9, 3.8174817476706963`*^9}, 3.818883307578944*^9, {
   3.818883360920248*^9, 3.818883379374412*^9}, {3.818883510140615*^9, 
   3.8188835103560867`*^9}, {3.819159347874192*^9, 3.819159347874688*^9}, 
   3.821236841578414*^9, {3.8212718290312023`*^9, 3.82127182949471*^9}},
 CellLabel->
  "In[767]:=",ExpressionUUID->"0697c6da-e560-4f6a-9707-aed994f58a31"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fixCM", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<CM\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Fix\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k3fixCM.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k3fixCM.txt\>\"", ",", "fixCM"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.8174800674832163`*^9}, {3.817480102122531*^9, 
   3.817480161735585*^9}, {3.817480929962083*^9, 3.8174809851999407`*^9}, {
   3.817481202059146*^9, 3.817481205330865*^9}, {3.817481332214031*^9, 
   3.817481372822939*^9}, {3.8174817481255903`*^9, 3.8174817495497627`*^9}, 
   3.818883307580504*^9, {3.818883360920924*^9, 3.818883379375149*^9}, {
   3.818883513788414*^9, 3.8188835140360117`*^9}, {3.819159347875351*^9, 
   3.81915934787584*^9}, 3.821236882504374*^9, {3.821271829839142*^9, 
   3.821271830206748*^9}},
 CellLabel->
  "In[769]:=",ExpressionUUID->"0912beff-b0d0-453e-a9d4-716c34ee7a8f"],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.8174801288633337`*^9},
 CellLabel->
  "In[771]:=",ExpressionUUID->"00563ea7-321e-474b-8459-0fecb95d4b01"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"varAA", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<AA\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Var\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k3varAA.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k3varAA.txt\>\"", ",", "varAA"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.817479982742412*^9}, {3.8174800295572643`*^9, 
   3.817480100817914*^9}, {3.817480133473432*^9, 3.817480189934307*^9}, {
   3.817480918755168*^9, 3.8174809761281033`*^9}, {3.817481199875258*^9, 
   3.817481201546896*^9}, {3.817481329925963*^9, 3.8174813683110743`*^9}, {
   3.817481744813725*^9, 3.8174817728126717`*^9}, 3.8188833075820427`*^9, {
   3.818883360921628*^9, 3.8188833793758497`*^9}, 3.819159347876459*^9, {
   3.8199388419113503`*^9, 3.8199388517265387`*^9}, 3.8212368417618017`*^9, {
   3.821271830487423*^9, 3.821271830767109*^9}},
 CellLabel->
  "In[772]:=",ExpressionUUID->"d345f2b3-fa01-4f19-bbb2-887570bce7f6"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fixAA", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<AA\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Fix\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k3fixAA.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k3fixAA.txt\>\"", ",", "fixAA"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.8174800674832163`*^9}, {3.817480102122531*^9, 
   3.817480161735585*^9}, {3.817480929962083*^9, 3.8174809851999407`*^9}, {
   3.817481202059146*^9, 3.817481205330865*^9}, {3.817481332214031*^9, 
   3.817481372822939*^9}, {3.8174817481255903`*^9, 3.817481775604937*^9}, 
   3.8188833075835667`*^9, {3.8188833609222937`*^9, 3.8188833793765497`*^9}, 
   3.819159347877082*^9, {3.8199388541267653`*^9, 3.819938856582333*^9}, 
   3.821236882688389*^9, {3.821271831055386*^9, 3.8212718313827133`*^9}},
 CellLabel->
  "In[774]:=",ExpressionUUID->"0ca74f95-06b8-4fe5-9ff5-d1d598454a36"],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.8174801288633337`*^9},
 CellLabel->
  "In[776]:=",ExpressionUUID->"03223d39-3804-4ecd-826d-f5b8ef1cc16c"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"varBWL2", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<BWL2\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Var\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k3varBWL2.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k3varBWL2.txt\>\"", ",", "varBWL2"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.817479982742412*^9}, {3.8174800295572643`*^9, 
   3.817480100817914*^9}, {3.817480133473432*^9, 3.817480189934307*^9}, {
   3.817480918755168*^9, 3.8174809761281033`*^9}, {3.817481199875258*^9, 
   3.817481201546896*^9}, {3.817481329925963*^9, 3.8174813683110743`*^9}, {
   3.817481744813725*^9, 3.8174817476706963`*^9}, {3.817481793507958*^9, 
   3.8174818085736637`*^9}, {3.817600464704936*^9, 3.817600468624382*^9}, 
   3.818883307585086*^9, {3.818883360922971*^9, 3.8188833793772717`*^9}, {
   3.818883518676333*^9, 3.818883518947927*^9}, {3.819159347877708*^9, 
   3.819159347878202*^9}, 3.821236841945656*^9, {3.821271831743094*^9, 
   3.821271832070785*^9}, {3.825119889624938*^9, 3.8251198896268272`*^9}},
 CellLabel->
  "In[777]:=",ExpressionUUID->"e66e7b48-9f89-4a36-a1c4-5271f91092a9"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fixBWL2", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<BWL2\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Fix\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k3fixBWL2.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k3fixBWL2.txt\>\"", ",", "fixBWL2"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.8174800674832163`*^9}, {3.817480102122531*^9, 
   3.817480161735585*^9}, {3.817480929962083*^9, 3.8174809851999407`*^9}, {
   3.817481202059146*^9, 3.817481205330865*^9}, {3.817481332214031*^9, 
   3.817481372822939*^9}, {3.8174817481255903`*^9, 3.8174817495497627`*^9}, {
   3.8174817952278748`*^9, 3.8174818115417147`*^9}, {3.817600469816409*^9, 
   3.8176004720001583`*^9}, 3.818883307586622*^9, {3.818883360923624*^9, 
   3.818883379377963*^9}, {3.818883522268138*^9, 3.818883522467698*^9}, {
   3.819159347878818*^9, 3.8191593478792953`*^9}, 3.8212368828803673`*^9, {
   3.821271832399222*^9, 3.821271832718627*^9}, {3.825119889629303*^9, 
   3.825119889631192*^9}},
 CellLabel->
  "In[779]:=",ExpressionUUID->"3bc08b46-4b38-4fd1-a961-d8ef9141148a"],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{{3.819976267717598*^9, 3.819976268408203*^9}},
 CellLabel->
  "In[781]:=",ExpressionUUID->"8fdecf52-eb5e-41e4-903e-7a13e670b259"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"varH3R", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<H3R\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Var\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k3varH3R.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k3varH3R.txt\>\"", ",", "varH3R"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.817479982742412*^9}, {3.8174800295572643`*^9, 
   3.817480100817914*^9}, {3.817480133473432*^9, 3.817480189934307*^9}, {
   3.817480918755168*^9, 3.8174809761281033`*^9}, {3.817481199875258*^9, 
   3.817481201546896*^9}, {3.817481329925963*^9, 3.8174813683110743`*^9}, {
   3.817481744813725*^9, 3.8174817476706963`*^9}, {3.81748182709058*^9, 
   3.817481828626726*^9}, {3.818708846926395*^9, 3.8187088607095137`*^9}, 
   3.818883307587302*^9, {3.818883360924315*^9, 3.8188833793786716`*^9}, {
   3.818883525940082*^9, 3.818883526139599*^9}, {3.81915934787993*^9, 
   3.819159347880416*^9}, 3.8212368421376543`*^9, {3.82127183307953*^9, 
   3.821271833422908*^9}},
 CellLabel->
  "In[782]:=",ExpressionUUID->"6e5423c2-35ed-4d4b-b54c-320ea152cc9f"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fixH3R", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<H3R\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Fix\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k3fixH3R.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k3fixH3R.txt\>\"", ",", "fixH3R"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.8174800674832163`*^9}, {3.817480102122531*^9, 
   3.817480161735585*^9}, {3.817480929962083*^9, 3.8174809851999407`*^9}, {
   3.817481202059146*^9, 3.817481205330865*^9}, {3.817481332214031*^9, 
   3.817481372822939*^9}, {3.8174817481255903`*^9, 3.8174817495497627`*^9}, {
   3.817481828858794*^9, 3.817481831690404*^9}, {3.818708853726118*^9, 
   3.8187088623494263`*^9}, 3.818883307588257*^9, {3.818883360924971*^9, 
   3.818883379379355*^9}, {3.818883529515888*^9, 3.818883529747469*^9}, {
   3.819159347881034*^9, 3.819159347881526*^9}, 3.82123688307238*^9, {
   3.82127183376755*^9, 3.821271834046954*^9}},
 CellLabel->
  "In[784]:=",ExpressionUUID->"5c6c6316-3f5c-4e96-9bd9-487fd8adb5b7"],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.8174801288633337`*^9},
 CellLabel->
  "In[786]:=",ExpressionUUID->"055584c3-7505-46c8-9f99-f441d971eaa7"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"varA2", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<A2\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Var\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k3varA2.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k3varA2.txt\>\"", ",", "varA2"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.817479982742412*^9}, {3.8174800295572643`*^9, 
   3.817480100817914*^9}, {3.817480133473432*^9, 3.817480189934307*^9}, {
   3.817480918755168*^9, 3.8174809761281033`*^9}, {3.817481199875258*^9, 
   3.817481201546896*^9}, {3.817481329925963*^9, 3.8174813683110743`*^9}, {
   3.817481744813725*^9, 3.8174817476706963`*^9}, {3.8174818571214046`*^9, 
   3.8174818579783*^9}, 3.818883307589779*^9, {3.818883360925665*^9, 
   3.8188833793800983`*^9}, {3.8188835345155983`*^9, 3.818883534739223*^9}, {
   3.8191593478821383`*^9, 3.819159347882614*^9}, 3.821236842329578*^9, {
   3.821271834295355*^9, 3.82127183459898*^9}},
 CellLabel->
  "In[787]:=",ExpressionUUID->"5f3e1834-9e05-4369-ba7a-963c885ee48e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fixA2", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<A2\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Fix\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k3fixA2.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k3fixA2.txt\>\"", ",", "fixA2"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.8174800674832163`*^9}, {3.817480102122531*^9, 
   3.817480161735585*^9}, {3.817480929962083*^9, 3.8174809851999407`*^9}, {
   3.817481202059146*^9, 3.817481205330865*^9}, {3.817481332214031*^9, 
   3.817481372822939*^9}, {3.8174817481255903`*^9, 3.8174817495497627`*^9}, {
   3.81748185843338*^9, 3.817481860274188*^9}, 3.818883307591316*^9, {
   3.8188833609263363`*^9, 3.818883379380789*^9}, {3.818883538035492*^9, 
   3.8188835382751303`*^9}, {3.81915934788323*^9, 3.81915934788371*^9}, 
   3.821236883272336*^9, {3.821271834967393*^9, 3.821271835278912*^9}},
 CellLabel->
  "In[789]:=",ExpressionUUID->"1fe41b17-24f7-416c-8dc1-9bf8d6fdac1f"],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.8174801288633337`*^9},
 CellLabel->
  "In[791]:=",ExpressionUUID->"297818b2-cda7-4447-8971-dc4da1dcfde1"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"varHLB", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<HLB\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Var\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k3varHLB.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k3varHLB.txt\>\"", ",", "varHLB"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.817479982742412*^9}, {3.8174800295572643`*^9, 
   3.817480100817914*^9}, {3.817480133473432*^9, 3.817480189934307*^9}, {
   3.817480918755168*^9, 3.8174809761281033`*^9}, {3.817481199875258*^9, 
   3.817481201546896*^9}, {3.817481329925963*^9, 3.8174813683110743`*^9}, {
   3.817481744813725*^9, 3.8174817476706963`*^9}, {3.8174818571214046`*^9, 
   3.8174818579783*^9}, {3.818710885699936*^9, 3.8187108957667723`*^9}, 
   3.818883307592844*^9, {3.818883360927023*^9, 3.818883379381501*^9}, {
   3.818883541483368*^9, 3.818883541674844*^9}, {3.819159347884325*^9, 
   3.8191593478848*^9}, 3.8212368425215178`*^9, {3.8212718356235037`*^9, 
   3.821271835918891*^9}},
 CellLabel->
  "In[792]:=",ExpressionUUID->"233bf411-227b-4f3b-89e9-490f7b6a1b5d"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fixHLB", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<HLB\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Fix\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k3fixHLB.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k3fixHLB.txt\>\"", ",", "fixHLB"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.8174800674832163`*^9}, {3.817480102122531*^9, 
   3.817480161735585*^9}, {3.817480929962083*^9, 3.8174809851999407`*^9}, {
   3.817481202059146*^9, 3.817481205330865*^9}, {3.817481332214031*^9, 
   3.817481372822939*^9}, {3.8174817481255903`*^9, 3.8174817495497627`*^9}, {
   3.81748185843338*^9, 3.817481860274188*^9}, {3.818710898015244*^9, 
   3.818710905310314*^9}, 3.8188833075935307`*^9, {3.8188833609276733`*^9, 
   3.818883379382189*^9}, {3.818883544995324*^9, 3.81888354522681*^9}, {
   3.8191593478854113`*^9, 3.819159347885909*^9}, 3.821236883456311*^9, {
   3.821271836446851*^9, 3.8212718371183567`*^9}},
 CellLabel->
  "In[794]:=",ExpressionUUID->"0326e37b-433e-4070-a98b-1f8e87cbec66"],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.8174801288633337`*^9},
 CellLabel->
  "In[796]:=",ExpressionUUID->"0fd45272-fd76-4227-bb29-9efd45beff76"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"varHLBb", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<HLBb\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Var\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k3varHLBb.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k3varHLBb.txt\>\"", ",", "varHLBb"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.817479982742412*^9}, {3.8174800295572643`*^9, 
   3.817480100817914*^9}, {3.817480133473432*^9, 3.817480189934307*^9}, {
   3.817480918755168*^9, 3.8174809761281033`*^9}, {3.817481199875258*^9, 
   3.817481201546896*^9}, {3.817481329925963*^9, 3.8174813683110743`*^9}, {
   3.817481744813725*^9, 3.8174817476706963`*^9}, {3.8174818571214046`*^9, 
   3.8174818579783*^9}, {3.818710885699936*^9, 3.8187108957667723`*^9}, 
   3.818883307592844*^9, {3.818883360927023*^9, 3.818883379381501*^9}, {
   3.818883541483368*^9, 3.818883541674844*^9}, {3.819159347884325*^9, 
   3.8191593478848*^9}, 3.8212368425215178`*^9, {3.8212718356235037`*^9, 
   3.821271835918891*^9}, {3.828788957926979*^9, 3.828788967319705*^9}},
 CellLabel->
  "In[797]:=",ExpressionUUID->"3b31b5c7-bbb0-4fb2-8ac1-c5306c4e283e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fixHLBb", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<HLBb\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Fix\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k3fixHLBb.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k3fixHLBb.txt\>\"", ",", "fixHLBb"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.8174800674832163`*^9}, {3.817480102122531*^9, 
   3.817480161735585*^9}, {3.817480929962083*^9, 3.8174809851999407`*^9}, {
   3.817481202059146*^9, 3.817481205330865*^9}, {3.817481332214031*^9, 
   3.817481372822939*^9}, {3.8174817481255903`*^9, 3.8174817495497627`*^9}, {
   3.81748185843338*^9, 3.817481860274188*^9}, {3.818710898015244*^9, 
   3.818710905310314*^9}, 3.8188833075935307`*^9, {3.8188833609276733`*^9, 
   3.818883379382189*^9}, {3.818883544995324*^9, 3.81888354522681*^9}, {
   3.8191593478854113`*^9, 3.819159347885909*^9}, 3.821236883456311*^9, {
   3.821271836446851*^9, 3.8212718371183567`*^9}, {3.8287889700876083`*^9, 
   3.828788973623062*^9}},
 CellLabel->
  "In[799]:=",ExpressionUUID->"61cfdbc6-e970-4396-a0a7-b803392bc247"],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.8174801288633337`*^9},
 CellLabel->
  "In[801]:=",ExpressionUUID->"3b346c87-de83-48a6-adad-4557824d4842"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"varMH", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<MH\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Var\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k3varMH.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k3varMH.txt\>\"", ",", "varMH"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.817479982742412*^9}, {3.8174800295572643`*^9, 
   3.817480100817914*^9}, {3.817480133473432*^9, 3.817480189934307*^9}, {
   3.817480918755168*^9, 3.8174809761281033`*^9}, {3.817481199875258*^9, 
   3.817481201546896*^9}, {3.817481329925963*^9, 3.8174813683110743`*^9}, {
   3.817481744813725*^9, 3.8174817476706963`*^9}, {3.8174818571214046`*^9, 
   3.8174818579783*^9}, {3.818710909926614*^9, 3.8187109293414383`*^9}, 
   3.8188833075954638`*^9, {3.818883360928377*^9, 3.818883379382958*^9}, {
   3.818883549955121*^9, 3.8188835501947412`*^9}, {3.819159347886529*^9, 
   3.819159347887006*^9}, 3.8212368427294827`*^9, {3.821271837478898*^9, 
   3.821271837862445*^9}},
 CellLabel->
  "In[802]:=",ExpressionUUID->"31f87b64-a891-4926-9b3e-5815a1cbcb58"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fixMH", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<MH\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Fix\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k3fixMH.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k3fixMH.txt\>\"", ",", "fixMH"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.8174800674832163`*^9}, {3.817480102122531*^9, 
   3.817480161735585*^9}, {3.817480929962083*^9, 3.8174809851999407`*^9}, {
   3.817481202059146*^9, 3.817481205330865*^9}, {3.817481332214031*^9, 
   3.817481372822939*^9}, {3.8174817481255903`*^9, 3.8174817495497627`*^9}, {
   3.81748185843338*^9, 3.817481860274188*^9}, {3.818710931373809*^9, 
   3.818710937301058*^9}, 3.8188833075961647`*^9, {3.818883360929034*^9, 
   3.8188833793836613`*^9}, {3.818883553474902*^9, 3.818883553666439*^9}, {
   3.819159347887632*^9, 3.819159347888114*^9}, 3.8212368836483097`*^9, {
   3.821271838254797*^9, 3.821271838590815*^9}},
 CellLabel->
  "In[804]:=",ExpressionUUID->"e4dcaadb-d66a-478a-8ee3-ad6b9ece9380"],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.8174801288633337`*^9},
 CellLabel->
  "In[806]:=",ExpressionUUID->"bc6f7ffe-469b-4e22-8afd-83ed479db922"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"varMHb", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<MHb\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Var\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k3varMHb.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k3varMHb.txt\>\"", ",", "varMHb"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.817479982742412*^9}, {3.8174800295572643`*^9, 
   3.817480100817914*^9}, {3.817480133473432*^9, 3.817480189934307*^9}, {
   3.817480918755168*^9, 3.8174809761281033`*^9}, {3.817481199875258*^9, 
   3.817481201546896*^9}, {3.817481329925963*^9, 3.8174813683110743`*^9}, {
   3.817481744813725*^9, 3.8174817476706963`*^9}, {3.8174818571214046`*^9, 
   3.8174818579783*^9}, {3.818710909926614*^9, 3.8187109293414383`*^9}, 
   3.8188833075954638`*^9, {3.818883360928377*^9, 3.818883379382958*^9}, {
   3.818883549955121*^9, 3.8188835501947412`*^9}, {3.819159347886529*^9, 
   3.819159347887006*^9}, 3.8212368427294827`*^9, {3.821271837478898*^9, 
   3.821271837862445*^9}, {3.828788993832272*^9, 3.828788996190156*^9}},
 CellLabel->
  "In[807]:=",ExpressionUUID->"5123d40a-ffcf-4fc7-9845-98124e47641a"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fixMHb", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<MHb\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Fix\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k3fixMHb.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k3fixMHb.txt\>\"", ",", "fixMHb"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.8174800674832163`*^9}, {3.817480102122531*^9, 
   3.817480161735585*^9}, {3.817480929962083*^9, 3.8174809851999407`*^9}, {
   3.817481202059146*^9, 3.817481205330865*^9}, {3.817481332214031*^9, 
   3.817481372822939*^9}, {3.8174817481255903`*^9, 3.8174817495497627`*^9}, {
   3.81748185843338*^9, 3.817481860274188*^9}, {3.818710931373809*^9, 
   3.818710937301058*^9}, 3.8188833075961647`*^9, {3.818883360929034*^9, 
   3.8188833793836613`*^9}, {3.818883553474902*^9, 3.818883553666439*^9}, {
   3.819159347887632*^9, 3.819159347888114*^9}, 3.8212368836483097`*^9, {
   3.821271838254797*^9, 3.821271838590815*^9}, {3.8287889979505587`*^9, 
   3.828788999838069*^9}},
 CellLabel->
  "In[809]:=",ExpressionUUID->"791cd89e-4d02-4f22-8774-679083c00cc1"],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.8174801288633337`*^9},
 CellLabel->
  "In[811]:=",ExpressionUUID->"ef40d21f-42c6-4d41-bb39-537e58dc31f6"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"varMHc", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<MHc\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Var\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k3varMHc.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k3varMHc.txt\>\"", ",", "varMHc"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.817479982742412*^9}, {3.8174800295572643`*^9, 
   3.817480100817914*^9}, {3.817480133473432*^9, 3.817480189934307*^9}, {
   3.817480918755168*^9, 3.8174809761281033`*^9}, {3.817481199875258*^9, 
   3.817481201546896*^9}, {3.817481329925963*^9, 3.8174813683110743`*^9}, {
   3.817481744813725*^9, 3.8174817476706963`*^9}, {3.8174818571214046`*^9, 
   3.8174818579783*^9}, {3.818710909926614*^9, 3.8187109293414383`*^9}, 
   3.8188833075954638`*^9, {3.818883360928377*^9, 3.818883379382958*^9}, {
   3.818883549955121*^9, 3.8188835501947412`*^9}, {3.819159347886529*^9, 
   3.819159347887006*^9}, 3.8212368427294827`*^9, {3.821271837478898*^9, 
   3.821271837862445*^9}, {3.828788993832272*^9, 3.828788996190156*^9}, {
   3.8288269375382223`*^9, 3.8288269393297863`*^9}},
 CellLabel->
  "In[812]:=",ExpressionUUID->"bfe8641c-199c-4833-ad11-eadd269ec3e5"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fixMHc", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<MHc\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Fix\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k3fixMHc.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k3fixMHc.txt\>\"", ",", "fixMHc"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.8174800674832163`*^9}, {3.817480102122531*^9, 
   3.817480161735585*^9}, {3.817480929962083*^9, 3.8174809851999407`*^9}, {
   3.817481202059146*^9, 3.817481205330865*^9}, {3.817481332214031*^9, 
   3.817481372822939*^9}, {3.8174817481255903`*^9, 3.8174817495497627`*^9}, {
   3.81748185843338*^9, 3.817481860274188*^9}, {3.818710931373809*^9, 
   3.818710937301058*^9}, 3.8188833075961647`*^9, {3.818883360929034*^9, 
   3.8188833793836613`*^9}, {3.818883553474902*^9, 3.818883553666439*^9}, {
   3.819159347887632*^9, 3.819159347888114*^9}, 3.8212368836483097`*^9, {
   3.821271838254797*^9, 3.821271838590815*^9}, {3.8287889979505587`*^9, 
   3.828788999838069*^9}, {3.82882694108962*^9, 3.828826942745509*^9}},
 CellLabel->
  "In[814]:=",ExpressionUUID->"9adce1c0-2ba4-422a-8e39-46592eb86263"],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.8174801288633337`*^9},
 CellLabel->
  "In[816]:=",ExpressionUUID->"65ba719e-a9d9-4c9e-9b81-06ec6d39bbea"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"varT", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<To\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Var\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k3varT.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k3varT.txt\>\"", ",", "varT"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.817479982742412*^9}, {3.8174800295572643`*^9, 
   3.817480100817914*^9}, {3.817480133473432*^9, 3.817480189934307*^9}, {
   3.817480918755168*^9, 3.8174809761281033`*^9}, {3.817481199875258*^9, 
   3.817481201546896*^9}, {3.817481329925963*^9, 3.8174813683110743`*^9}, {
   3.817481744813725*^9, 3.8174817476706963`*^9}, {3.8174818571214046`*^9, 
   3.8174818579783*^9}, {3.818710909926614*^9, 3.8187109293414383`*^9}, 
   3.8188833075954638`*^9, {3.818883360928377*^9, 3.818883379382958*^9}, {
   3.818883549955121*^9, 3.8188835501947412`*^9}, {3.819159347886529*^9, 
   3.819159347887006*^9}, 3.8212368427294827`*^9, {3.821271837478898*^9, 
   3.821271837862445*^9}, {3.828788993832272*^9, 3.828788996190156*^9}, {
   3.8288269375382223`*^9, 3.8288269393297863`*^9}, {3.828883533971945*^9, 
   3.828883536250099*^9}, 3.828883885195512*^9},
 CellLabel->
  "In[817]:=",ExpressionUUID->"501b48fb-0a2d-403e-ae0d-070760ce8927"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fixT", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<To\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Fix\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k3fixT.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k3fixT.txt\>\"", ",", "fixT"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.8174800674832163`*^9}, {3.817480102122531*^9, 
   3.817480161735585*^9}, {3.817480929962083*^9, 3.8174809851999407`*^9}, {
   3.817481202059146*^9, 3.817481205330865*^9}, {3.817481332214031*^9, 
   3.817481372822939*^9}, {3.8174817481255903`*^9, 3.8174817495497627`*^9}, {
   3.81748185843338*^9, 3.817481860274188*^9}, {3.818710931373809*^9, 
   3.818710937301058*^9}, 3.8188833075961647`*^9, {3.818883360929034*^9, 
   3.8188833793836613`*^9}, {3.818883553474902*^9, 3.818883553666439*^9}, {
   3.819159347887632*^9, 3.819159347888114*^9}, 3.8212368836483097`*^9, {
   3.821271838254797*^9, 3.821271838590815*^9}, {3.8287889979505587`*^9, 
   3.828788999838069*^9}, {3.82882694108962*^9, 3.828826942745509*^9}, {
   3.8288835387783327`*^9, 3.828883540569747*^9}, 3.828883887691004*^9},
 CellLabel->
  "In[819]:=",ExpressionUUID->"3c44afa4-471f-4c9e-b85a-129888eb9873"],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.8174801288633337`*^9},
 CellLabel->
  "In[821]:=",ExpressionUUID->"496e6b15-48c4-4812-ab4f-9554d588cc67"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"varFHM", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<FHM\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Var\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k3varFHM.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k3varFHM.txt\>\"", ",", "varFHM"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.817479982742412*^9}, {3.8174800295572643`*^9, 
   3.817480100817914*^9}, {3.817480133473432*^9, 3.817480189934307*^9}, {
   3.817480918755168*^9, 3.8174809761281033`*^9}, {3.817481199875258*^9, 
   3.817481201546896*^9}, {3.817481329925963*^9, 3.8174813683110743`*^9}, {
   3.817481744813725*^9, 3.8174817476706963`*^9}, {3.8174818571214046`*^9, 
   3.8174818579783*^9}, {3.818710909926614*^9, 3.8187109293414383`*^9}, 
   3.8188833075954638`*^9, {3.818883360928377*^9, 3.818883379382958*^9}, {
   3.818883549955121*^9, 3.8188835501947412`*^9}, {3.819159347886529*^9, 
   3.819159347887006*^9}, 3.8212368427294827`*^9, {3.821271837478898*^9, 
   3.821271837862445*^9}, {3.828788993832272*^9, 3.828788996190156*^9}, {
   3.8288269375382223`*^9, 3.8288269393297863`*^9}, {3.8288835494258547`*^9, 
   3.828883551401325*^9}},
 CellLabel->
  "In[822]:=",ExpressionUUID->"eb721eea-83e4-47eb-b1f8-1d766ff0e4dc"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fixFHM", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<FHM\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Fix\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k3fixFHM.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k3fixFHM.txt\>\"", ",", "fixFHM"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.8174800674832163`*^9}, {3.817480102122531*^9, 
   3.817480161735585*^9}, {3.817480929962083*^9, 3.8174809851999407`*^9}, {
   3.817481202059146*^9, 3.817481205330865*^9}, {3.817481332214031*^9, 
   3.817481372822939*^9}, {3.8174817481255903`*^9, 3.8174817495497627`*^9}, {
   3.81748185843338*^9, 3.817481860274188*^9}, {3.818710931373809*^9, 
   3.818710937301058*^9}, 3.8188833075961647`*^9, {3.818883360929034*^9, 
   3.8188833793836613`*^9}, {3.818883553474902*^9, 3.818883553666439*^9}, {
   3.819159347887632*^9, 3.819159347888114*^9}, 3.8212368836483097`*^9, {
   3.821271838254797*^9, 3.821271838590815*^9}, {3.8287889979505587`*^9, 
   3.828788999838069*^9}, {3.82882694108962*^9, 3.828826942745509*^9}, {
   3.8288835528576527`*^9, 3.828883554185536*^9}},
 CellLabel->
  "In[824]:=",ExpressionUUID->"f7d00a54-6279-454e-80c6-8fa368647790"],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.8174801288633337`*^9},
 CellLabel->
  "In[826]:=",ExpressionUUID->"03223369-5ea1-4e7a-86ae-8902d025dfca"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"varW", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<W\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Var\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k3varW.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k3varW.txt\>\"", ",", "varW"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.817479982742412*^9}, {3.8174800295572643`*^9, 
   3.817480100817914*^9}, {3.817480133473432*^9, 3.817480189934307*^9}, {
   3.817480918755168*^9, 3.8174809761281033`*^9}, {3.817481199875258*^9, 
   3.817481201546896*^9}, {3.817481535200595*^9, 3.81748153790444*^9}, 
   3.818883307560771*^9, {3.818883360910668*^9, 3.8188833793646097`*^9}, {
   3.818883447911055*^9, 3.818883448126566*^9}, {3.818987031548449*^9, 
   3.8189870382757597`*^9}, {3.8190562387404757`*^9, 
   3.8190562387423277`*^9}, {3.819159347856802*^9, 3.819159347857328*^9}, 
   3.82123684012167*^9, {3.821271818871725*^9, 3.8212718191353827`*^9}, {
   3.8244259360577374`*^9, 3.824425952240335*^9}},
 CellLabel->
  "In[827]:=",ExpressionUUID->"09ab8261-b518-40ec-a896-edc9254960c6"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fixW", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<W\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Fix\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k3fixW.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k3fixW.txt\>\"", ",", "fixW"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.8174800674832163`*^9}, {3.817480102122531*^9, 
   3.817480161735585*^9}, {3.817480929962083*^9, 3.8174809851999407`*^9}, {
   3.817481202059146*^9, 3.817481205330865*^9}, {3.817481532440714*^9, 
   3.817481544168165*^9}, 3.818883307562299*^9, {3.81888336091145*^9, 
   3.8188833793653107`*^9}, {3.8188834514629*^9, 3.8188834516624002`*^9}, {
   3.818987039867847*^9, 3.818987044731612*^9}, {3.8190562387435493`*^9, 
   3.819056238745332*^9}, {3.819159347857987*^9, 3.819159347858549*^9}, 
   3.821236880952457*^9, {3.821271819415992*^9, 3.821271819695356*^9}, {
   3.824425953832966*^9, 3.824425967863694*^9}},
 CellLabel->
  "In[829]:=",ExpressionUUID->"39a1f92d-c724-40b3-aa12-a4ba56d48f1e"],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{
  3.8174801288633337`*^9, {3.819938320164472*^9, 3.819938322243964*^9}},
 CellLabel->
  "In[831]:=",ExpressionUUID->"13f842ad-124d-4ce3-98a2-a4f53d0f96f2"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"varTTA", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<TTA\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Var\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k3varTTA.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k3varTTA.txt\>\"", ",", "varTTA"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.817479982742412*^9}, {3.8174800295572643`*^9, 
   3.817480100817914*^9}, {3.817480133473432*^9, 3.817480189934307*^9}, {
   3.817480918755168*^9, 3.8174809761281033`*^9}, {3.817481199875258*^9, 
   3.817481201546896*^9}, {3.817481329925963*^9, 3.8174813683110743`*^9}, {
   3.817481744813725*^9, 3.8174817476706963`*^9}, {3.8174818571214046`*^9, 
   3.8174818579783*^9}, {3.8187109401976213`*^9, 3.8187109486366167`*^9}, 
   3.818883307597711*^9, {3.818883360929716*^9, 3.818883379384375*^9}, {
   3.8188835568347797`*^9, 3.8188835569863243`*^9}, {3.819159347888742*^9, 
   3.819159347889224*^9}, 3.821236842921517*^9, {3.8212718389186974`*^9, 
   3.821271839270343*^9}},
 CellLabel->
  "In[832]:=",ExpressionUUID->"25dfa1af-f1c6-4367-920a-82b09c3d2e1f"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fixTTA", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<TTA\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Fix\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k3fixTTA.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k3fixTTA.txt\>\"", ",", "fixTTA"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.8174800674832163`*^9}, {3.817480102122531*^9, 
   3.817480161735585*^9}, {3.817480929962083*^9, 3.8174809851999407`*^9}, {
   3.817481202059146*^9, 3.817481205330865*^9}, {3.817481332214031*^9, 
   3.817481372822939*^9}, {3.8174817481255903`*^9, 3.8174817495497627`*^9}, {
   3.81748185843338*^9, 3.817481860274188*^9}, {3.8187109501651278`*^9, 
   3.818710956892336*^9}, 3.818883307598363*^9, {3.81888336093038*^9, 
   3.81888337938505*^9}, {3.8188835600107117`*^9, 3.8188835601941843`*^9}, {
   3.819159347889855*^9, 3.8191593478903418`*^9}, 3.821236883840345*^9, {
   3.821271839614723*^9, 3.821271840054282*^9}},
 CellLabel->
  "In[834]:=",ExpressionUUID->"cc6f446e-4f46-4721-a984-08fe9f1d24af"],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.8174801288633337`*^9},
 CellLabel->
  "In[836]:=",ExpressionUUID->"83a51446-4f36-4ecf-b509-dde123886bad"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"varSBB", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<SBB\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Var\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k3varSBB.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k3varSBB.txt\>\"", ",", "varSBB"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.817479982742412*^9}, {3.8174800295572643`*^9, 
   3.817480100817914*^9}, {3.817480133473432*^9, 3.817480189934307*^9}, {
   3.817480918755168*^9, 3.8174809761281033`*^9}, {3.817481199875258*^9, 
   3.817481201546896*^9}, {3.817481329925963*^9, 3.8174813683110743`*^9}, {
   3.817481744813725*^9, 3.8174817728126717`*^9}, 3.8188833075820427`*^9, {
   3.818883360921628*^9, 3.8188833793758497`*^9}, 3.819159347876459*^9, {
   3.8199388419113503`*^9, 3.8199388517265387`*^9}, {3.820545119009166*^9, 
   3.820545130839422*^9}, 3.821236843113545*^9, {3.821271840950687*^9, 
   3.821271841398262*^9}},
 CellLabel->
  "In[837]:=",ExpressionUUID->"f2e53809-b330-4078-8588-4118b4b44447"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fixSBB", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<SBB\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Fix\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k3fixSBB.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k3fixSBB.txt\>\"", ",", "fixSBB"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.8174800674832163`*^9}, {3.817480102122531*^9, 
   3.817480161735585*^9}, {3.817480929962083*^9, 3.8174809851999407`*^9}, {
   3.817481202059146*^9, 3.817481205330865*^9}, {3.817481332214031*^9, 
   3.817481372822939*^9}, {3.8174817481255903`*^9, 3.817481775604937*^9}, 
   3.8188833075835667`*^9, {3.8188833609222937`*^9, 3.8188833793765497`*^9}, 
   3.819159347877082*^9, {3.8199388541267653`*^9, 3.819938856582333*^9}, {
   3.82054513359267*^9, 3.820545141214987*^9}, 3.821236884016302*^9, {
   3.8212718418868017`*^9, 3.821271842262158*^9}},
 CellLabel->
  "In[839]:=",ExpressionUUID->"0cceb825-5fd2-4de7-8771-d6f5917cec6c"],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.8174801288633337`*^9},
 CellLabel->
  "In[841]:=",ExpressionUUID->"7587f06a-fef4-4132-9c27-072f39ae62ca"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"varSSS", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<SSS\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Var\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"DeleteFile", "[", "\"\<k3varSSS.txt\>\"", "]"}], ";"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{"Save", "[", 
  RowBox[{"\"\<k3varSSS.txt\>\"", ",", "varSSS"}], "]"}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.817479982742412*^9}, {3.8174800295572643`*^9, 
   3.817480100817914*^9}, {3.817480133473432*^9, 3.817480189934307*^9}, {
   3.817480918755168*^9, 3.8174809761281033`*^9}, {3.817481199875258*^9, 
   3.817481201546896*^9}, {3.817481329925963*^9, 3.8174813683110743`*^9}, {
   3.817481744813725*^9, 3.8174817476706963`*^9}, {3.8174818571214046`*^9, 
   3.8174818579783*^9}, {3.818710967756489*^9, 3.818710980035392*^9}, 
   3.8188833075999393`*^9, {3.818883360931066*^9, 3.818883379385757*^9}, {
   3.818883564082521*^9, 3.818883564282056*^9}, {3.8191593478917503`*^9, 
   3.819159347892247*^9}, {3.819939181481853*^9, 3.819939189449011*^9}, {
   3.820061500285254*^9, 3.820061501876588*^9}, 3.820061591307678*^9, 
   3.8201040159497232`*^9, 3.821236843313506*^9, {3.821271842582588*^9, 
   3.8212718429179497`*^9}},
 CellLabel->
  "In[842]:=",ExpressionUUID->"24ecd61e-46c3-4eab-a43c-1a97e0e89986"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fixSSS", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<SSS\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Fix\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"DeleteFile", "[", "\"\<k3fixSSS.txt\>\"", "]"}], ";"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{"Save", "[", 
  RowBox[{"\"\<k3fixSSS.txt\>\"", ",", "fixSSS"}], "]"}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.8174800674832163`*^9}, {3.817480102122531*^9, 
   3.817480161735585*^9}, {3.817480929962083*^9, 3.8174809851999407`*^9}, {
   3.817481202059146*^9, 3.817481205330865*^9}, {3.817481332214031*^9, 
   3.817481372822939*^9}, {3.8174817481255903`*^9, 3.8174817495497627`*^9}, {
   3.81748185843338*^9, 3.817481860274188*^9}, {3.8187109718122787`*^9, 
   3.8187109837313643`*^9}, 3.8188833076038113`*^9, {3.81888336093188*^9, 
   3.818883379386532*^9}, {3.818883568730341*^9, 3.818883568922036*^9}, {
   3.8191593478928757`*^9, 3.819159347893367*^9}, {3.819939192241007*^9, 
   3.8199391977606573`*^9}, {3.820061583467128*^9, 3.820061586746705*^9}, 
   3.821236884224248*^9, {3.8212718433025427`*^9, 3.821271843694025*^9}},
 CellLabel->
  "In[845]:=",ExpressionUUID->"05f2c669-27aa-4125-a0f6-56e025ddf39d"],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.8174801288633337`*^9},
 CellLabel->
  "In[848]:=",ExpressionUUID->"b3fe6293-3101-4f37-8ec8-045cecb0e58b"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"varRGD", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<RGD\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Var\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"DeleteFile", "[", "\"\<k3varRGD.txt\>\"", "]"}], ";"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{"Save", "[", 
  RowBox[{"\"\<k3varRGD.txt\>\"", ",", "varRGD"}], "]"}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.817479982742412*^9}, {3.8174800295572643`*^9, 
   3.817480100817914*^9}, {3.817480133473432*^9, 3.817480189934307*^9}, {
   3.817480918755168*^9, 3.8174809761281033`*^9}, {3.817481199875258*^9, 
   3.817481201546896*^9}, {3.817481329925963*^9, 3.8174813683110743`*^9}, {
   3.817481744813725*^9, 3.8174817476706963`*^9}, {3.8174818571214046`*^9, 
   3.8174818579783*^9}, {3.818710967756489*^9, 3.818710980035392*^9}, 
   3.8188833075999393`*^9, {3.818883360931066*^9, 3.818883379385757*^9}, {
   3.818883564082521*^9, 3.818883564282056*^9}, {3.8191593478917503`*^9, 
   3.819159347892247*^9}, {3.819939181481853*^9, 3.819939189449011*^9}, {
   3.820061500285254*^9, 3.820061501876588*^9}, 3.820061591307678*^9, 
   3.8201040159497232`*^9, 3.821236843313506*^9, {3.821271842582588*^9, 
   3.8212718429179497`*^9}, {3.829064117064226*^9, 3.829064119022541*^9}},
 CellLabel->
  "In[849]:=",ExpressionUUID->"8aac4c79-b9bb-44d6-8956-e0ed0f93ac7b"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fixRGD", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<RGD\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Fix\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"DeleteFile", "[", "\"\<k3fixRGD.txt\>\"", "]"}], ";"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{"Save", "[", 
  RowBox[{"\"\<k3fixRGD.txt\>\"", ",", "fixRGD"}], "]"}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.8174800674832163`*^9}, {3.817480102122531*^9, 
   3.817480161735585*^9}, {3.817480929962083*^9, 3.8174809851999407`*^9}, {
   3.817481202059146*^9, 3.817481205330865*^9}, {3.817481332214031*^9, 
   3.817481372822939*^9}, {3.8174817481255903`*^9, 3.8174817495497627`*^9}, {
   3.81748185843338*^9, 3.817481860274188*^9}, {3.8187109718122787`*^9, 
   3.8187109837313643`*^9}, 3.8188833076038113`*^9, {3.81888336093188*^9, 
   3.818883379386532*^9}, {3.818883568730341*^9, 3.818883568922036*^9}, {
   3.8191593478928757`*^9, 3.819159347893367*^9}, {3.819939192241007*^9, 
   3.8199391977606573`*^9}, {3.820061583467128*^9, 3.820061586746705*^9}, 
   3.821236884224248*^9, {3.8212718433025427`*^9, 3.821271843694025*^9}, {
   3.829064121678721*^9, 3.829064123566319*^9}},
 CellLabel->
  "In[852]:=",ExpressionUUID->"d7026ba9-2fb2-4849-94c1-0815b04ca4a5"],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.8174801288633337`*^9},
 CellLabel->
  "In[855]:=",ExpressionUUID->"942bdc93-9dcc-4371-b6bf-180cfc95e9cf"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"varS3", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<S3\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Var\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"DeleteFile", "[", "\"\<k3varS3.txt\>\"", "]"}], ";"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{"Save", "[", 
  RowBox[{"\"\<k3varS3.txt\>\"", ",", "varS3"}], "]"}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.817479982742412*^9}, {3.8174800295572643`*^9, 
   3.817480100817914*^9}, {3.817480133473432*^9, 3.817480189934307*^9}, {
   3.817480918755168*^9, 3.8174809761281033`*^9}, {3.817481199875258*^9, 
   3.817481201546896*^9}, {3.817481329925963*^9, 3.8174813683110743`*^9}, {
   3.817481744813725*^9, 3.8174817476706963`*^9}, {3.8174818571214046`*^9, 
   3.8174818579783*^9}, {3.818710967756489*^9, 3.818710980035392*^9}, 
   3.8188833075999393`*^9, {3.818883360931066*^9, 3.818883379385757*^9}, {
   3.818883564082521*^9, 3.818883564282056*^9}, {3.8191593478917503`*^9, 
   3.819159347892247*^9}, {3.819939181481853*^9, 3.819939189449011*^9}, {
   3.820061500285254*^9, 3.820061501876588*^9}, 3.820061591307678*^9, 
   3.8201040159497232`*^9, 3.821236843313506*^9, {3.821271842582588*^9, 
   3.8212718429179497`*^9}, {3.8286154862432537`*^9, 3.828615496817971*^9}},
 CellLabel->
  "In[856]:=",ExpressionUUID->"6a1be342-cd5d-4a15-adb7-3da56fd6ab1e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fixS3", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<S3\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Fix\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"DeleteFile", "[", "\"\<k3fixS3.txt\>\"", "]"}], ";"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{"Save", "[", 
  RowBox[{"\"\<k3fixS3.txt\>\"", ",", "fixS3"}], "]"}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.8174800674832163`*^9}, {3.817480102122531*^9, 
   3.817480161735585*^9}, {3.817480929962083*^9, 3.8174809851999407`*^9}, {
   3.817481202059146*^9, 3.817481205330865*^9}, {3.817481332214031*^9, 
   3.817481372822939*^9}, {3.8174817481255903`*^9, 3.8174817495497627`*^9}, {
   3.81748185843338*^9, 3.817481860274188*^9}, {3.8187109718122787`*^9, 
   3.8187109837313643`*^9}, 3.8188833076038113`*^9, {3.81888336093188*^9, 
   3.818883379386532*^9}, {3.818883568730341*^9, 3.818883568922036*^9}, {
   3.8191593478928757`*^9, 3.819159347893367*^9}, {3.819939192241007*^9, 
   3.8199391977606573`*^9}, {3.820061583467128*^9, 3.820061586746705*^9}, 
   3.821236884224248*^9, {3.8212718433025427`*^9, 3.821271843694025*^9}, {
   3.828615500498637*^9, 3.828615510513465*^9}},
 CellLabel->
  "In[859]:=",ExpressionUUID->"d0cf726c-81fb-4871-b7ba-d304b6f22177"],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.8174801288633337`*^9},
 CellLabel->
  "In[862]:=",ExpressionUUID->"fe940b1d-3ccf-43ec-acc1-d14068fa1ce3"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"varS3b", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<S3b\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Var\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"DeleteFile", "[", "\"\<k3varS3b.txt\>\"", "]"}], ";"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{"Save", "[", 
  RowBox[{"\"\<k3varS3b.txt\>\"", ",", "varS3b"}], "]"}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.817479982742412*^9}, {3.8174800295572643`*^9, 
   3.817480100817914*^9}, {3.817480133473432*^9, 3.817480189934307*^9}, {
   3.817480918755168*^9, 3.8174809761281033`*^9}, {3.817481199875258*^9, 
   3.817481201546896*^9}, {3.817481329925963*^9, 3.8174813683110743`*^9}, {
   3.817481744813725*^9, 3.8174817476706963`*^9}, {3.8174818571214046`*^9, 
   3.8174818579783*^9}, {3.818710967756489*^9, 3.818710980035392*^9}, 
   3.8188833075999393`*^9, {3.818883360931066*^9, 3.818883379385757*^9}, {
   3.818883564082521*^9, 3.818883564282056*^9}, {3.8191593478917503`*^9, 
   3.819159347892247*^9}, {3.819939181481853*^9, 3.819939189449011*^9}, {
   3.820061500285254*^9, 3.820061501876588*^9}, 3.820061591307678*^9, 
   3.8201040159497232`*^9, 3.821236843313506*^9, {3.821271842582588*^9, 
   3.8212718429179497`*^9}, {3.8286154862432537`*^9, 3.828615496817971*^9}, {
   3.828809926189748*^9, 3.8288099283974323`*^9}},
 CellLabel->
  "In[863]:=",ExpressionUUID->"20c0eaa9-41ae-44ab-8e2b-df9736244dde"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fixS3b", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<S3b\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Fix\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"DeleteFile", "[", "\"\<k3fixS3b.txt\>\"", "]"}], ";"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{"Save", "[", 
  RowBox[{"\"\<k3fixS3b.txt\>\"", ",", "fixS3b"}], "]"}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.8174800674832163`*^9}, {3.817480102122531*^9, 
   3.817480161735585*^9}, {3.817480929962083*^9, 3.8174809851999407`*^9}, {
   3.817481202059146*^9, 3.817481205330865*^9}, {3.817481332214031*^9, 
   3.817481372822939*^9}, {3.8174817481255903`*^9, 3.8174817495497627`*^9}, {
   3.81748185843338*^9, 3.817481860274188*^9}, {3.8187109718122787`*^9, 
   3.8187109837313643`*^9}, 3.8188833076038113`*^9, {3.81888336093188*^9, 
   3.818883379386532*^9}, {3.818883568730341*^9, 3.818883568922036*^9}, {
   3.8191593478928757`*^9, 3.819159347893367*^9}, {3.819939192241007*^9, 
   3.8199391977606573`*^9}, {3.820061583467128*^9, 3.820061586746705*^9}, 
   3.821236884224248*^9, {3.8212718433025427`*^9, 3.821271843694025*^9}, {
   3.828615500498637*^9, 3.828615510513465*^9}, {3.828809931165592*^9, 
   3.828809933125185*^9}},
 CellLabel->
  "In[866]:=",ExpressionUUID->"0d14ae1f-4af7-481e-83b5-37addf6a9fe3"],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.8174801288633337`*^9},
 CellLabel->
  "In[869]:=",ExpressionUUID->"c936cfea-4f64-4493-bbcf-75e392d4714d"]
}, Open  ]],

Cell[CellGroupData[{

Cell["k = 4 models", "Subsubsection",
 CellChangeTimes->{{3.817482022254211*^9, 
  3.817482026598178*^9}},ExpressionUUID->"2b7903e9-e529-4d93-b2bd-\
bf1f65522347"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"varBDOR", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<BDOR\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Var\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k4varBDOR.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k4varBDOR.txt\>\"", ",", "varBDOR"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.817479982742412*^9}, {3.8174800295572643`*^9, 
   3.817480100817914*^9}, {3.817480133473432*^9, 3.817480189934307*^9}, {
   3.817480918755168*^9, 3.8174809761281033`*^9}, {3.817481199875258*^9, 
   3.817481201546896*^9}, {3.817481329925963*^9, 3.8174813683110743`*^9}, 
   3.8188833075758743`*^9, {3.818883360918911*^9, 3.8188833793730097`*^9}, {
   3.8188834992611217`*^9, 3.818883499460609*^9}, {3.819159347871952*^9, 
   3.8191593478724403`*^9}, {3.820544144591153*^9, 3.8205441607497883`*^9}, 
   3.821236843481748*^9, {3.821271844022462*^9, 3.821271844310182*^9}},
 CellLabel->
  "In[870]:=",ExpressionUUID->"0df0d9c0-ebed-4370-9505-9c03cf4c8c58"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fixBDOR", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<BDOR\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Fix\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k4fixBDOR.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k4fixBDOR.txt\>\"", ",", "fixBDOR"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.8174800674832163`*^9}, {3.817480102122531*^9, 
   3.817480161735585*^9}, {3.817480929962083*^9, 3.8174809851999407`*^9}, {
   3.817481202059146*^9, 3.817481205330865*^9}, {3.817481332214031*^9, 
   3.817481372822939*^9}, 3.818883307577404*^9, {3.818883360919565*^9, 
   3.8188833793737164`*^9}, {3.818883506812755*^9, 3.8188835069962673`*^9}, {
   3.819159347873067*^9, 3.819159347873563*^9}, {3.820544165982889*^9, 
   3.820544177645104*^9}, 3.821236884416265*^9, {3.821271844630596*^9, 
   3.8212718449021587`*^9}},
 CellLabel->
  "In[872]:=",ExpressionUUID->"8f88d454-9516-44f8-a7cc-b129de52543c"],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.8174801288633337`*^9},
 CellLabel->
  "In[874]:=",ExpressionUUID->"fdc22121-42d1-49d8-8d2c-c5892beca5fb"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"varCMOR", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<CMOR\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Var\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k4varCMOR.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k4varCMOR.txt\>\"", ",", "varCMOR"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.817479982742412*^9}, {3.8174800295572643`*^9, 
   3.817480100817914*^9}, {3.817480133473432*^9, 3.817480189934307*^9}, {
   3.817480918755168*^9, 3.8174809761281033`*^9}, {3.817481199875258*^9, 
   3.817481201546896*^9}, {3.817481329925963*^9, 3.8174813683110743`*^9}, {
   3.817481744813725*^9, 3.8174817476706963`*^9}, 3.818883307578944*^9, {
   3.818883360920248*^9, 3.818883379374412*^9}, {3.818883510140615*^9, 
   3.8188835103560867`*^9}, {3.819159347874192*^9, 3.819159347874688*^9}, {
   3.820544179541641*^9, 3.820544212004397*^9}, 3.821236843665731*^9, {
   3.8212718452385187`*^9, 3.821271846206107*^9}},
 CellLabel->
  "In[875]:=",ExpressionUUID->"ca74697d-5064-4cb8-9c42-c914681960b0"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fixCMOR", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<CMOR\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Fix\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k4fixCMOR.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k4fixCMOR.txt\>\"", ",", "fixCMOR"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.8174800674832163`*^9}, {3.817480102122531*^9, 
   3.817480161735585*^9}, {3.817480929962083*^9, 3.8174809851999407`*^9}, {
   3.817481202059146*^9, 3.817481205330865*^9}, {3.817481332214031*^9, 
   3.817481372822939*^9}, {3.8174817481255903`*^9, 3.8174817495497627`*^9}, 
   3.818883307580504*^9, {3.818883360920924*^9, 3.818883379375149*^9}, {
   3.818883513788414*^9, 3.8188835140360117`*^9}, {3.819159347875351*^9, 
   3.81915934787584*^9}, {3.8205441850375853`*^9, 3.820544215404419*^9}, 
   3.821236884616439*^9, {3.821271846654503*^9, 3.821271847061941*^9}},
 CellLabel->
  "In[877]:=",ExpressionUUID->"1bee7949-92d0-499d-9136-2b9ed4e543f4"],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.8174801288633337`*^9},
 CellLabel->
  "In[879]:=",ExpressionUUID->"e568d67f-63c3-4b9a-92b7-3c6dd0f48d38"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"varAAOR", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<AAOR\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Var\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k4varAAOR.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k4varAAOR.txt\>\"", ",", "varAAOR"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.817479982742412*^9}, {3.8174800295572643`*^9, 
   3.817480100817914*^9}, {3.817480133473432*^9, 3.817480189934307*^9}, {
   3.817480918755168*^9, 3.8174809761281033`*^9}, {3.817481199875258*^9, 
   3.817481201546896*^9}, {3.817481329925963*^9, 3.8174813683110743`*^9}, {
   3.817481744813725*^9, 3.8174817728126717`*^9}, 3.8188833075820427`*^9, {
   3.818883360921628*^9, 3.8188833793758497`*^9}, 3.819159347876459*^9, {
   3.8199388419113503`*^9, 3.8199388517265387`*^9}, {3.820544188605389*^9, 
   3.820544229339797*^9}, 3.821236844073633*^9, {3.8212718474705143`*^9, 
   3.821271847845886*^9}},
 CellLabel->
  "In[880]:=",ExpressionUUID->"bbf5414b-0f09-41cc-8e2c-4b76f6a2ad33"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fixAAOR", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<AAOR\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Fix\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DeleteFile", "[", "\"\<k4fixAAOR.txt\>\"", "]"}], ";", " ", 
  RowBox[{"Save", "[", 
   RowBox[{"\"\<k4fixAAOR.txt\>\"", ",", "fixAAOR"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.8174800674832163`*^9}, {3.817480102122531*^9, 
   3.817480161735585*^9}, {3.817480929962083*^9, 3.8174809851999407`*^9}, {
   3.817481202059146*^9, 3.817481205330865*^9}, {3.817481332214031*^9, 
   3.817481372822939*^9}, {3.8174817481255903`*^9, 3.817481775604937*^9}, 
   3.8188833075835667`*^9, {3.8188833609222937`*^9, 3.8188833793765497`*^9}, 
   3.819159347877082*^9, {3.8199388541267653`*^9, 3.819938856582333*^9}, {
   3.8205441917413683`*^9, 3.820544234931562*^9}, 3.821236884816387*^9, {
   3.821271848190378*^9, 3.821271848541977*^9}},
 CellLabel->
  "In[882]:=",ExpressionUUID->"4c8a99f4-b9b5-4f0d-9500-90509a9cab98"],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.8174801288633337`*^9},
 CellLabel->
  "In[884]:=",ExpressionUUID->"75a0bb21-a153-4b86-b5bc-5cb10390b787"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"varSN1", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<SN1\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Var\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"DeleteFile", "[", "\"\<k4varSN1.txt\>\"", "]"}], ";"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{"Save", "[", 
  RowBox[{"\"\<k4varSN1.txt\>\"", ",", "varSN1"}], "]"}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.817479982742412*^9}, {3.8174800295572643`*^9, 
   3.817480100817914*^9}, {3.817480133473432*^9, 3.817480189934307*^9}, {
   3.817480918755168*^9, 3.8174809761281033`*^9}, {3.817481199875258*^9, 
   3.817481201546896*^9}, {3.817481329925963*^9, 3.8174813683110743`*^9}, {
   3.817481744813725*^9, 3.8174817476706963`*^9}, {3.817481892112315*^9, 
   3.8174818995381413`*^9}, 3.818883307607115*^9, {3.818883360932609*^9, 
   3.818883379387204*^9}, {3.818883573394166*^9, 3.818883573505672*^9}, {
   3.8191593478939962`*^9, 3.819159347894487*^9}, {3.82049587643747*^9, 
   3.820495878765017*^9}, {3.8205120145328627`*^9, 3.820512021076565*^9}, {
   3.820799376404977*^9, 3.820799379043956*^9}, 3.821236844266037*^9, {
   3.821271848830407*^9, 3.821271849285983*^9}},
 CellLabel->
  "In[885]:=",ExpressionUUID->"fe850b4d-3aa4-40be-aab9-0a8254b4c877"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fixSN1", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<SN1\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Fix\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"DeleteFile", "[", "\"\<k4fixSN1.txt\>\"", "]"}], ";"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{"Save", "[", 
  RowBox[{"\"\<k4fixSN1.txt\>\"", ",", "fixSN1"}], "]"}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.8174800674832163`*^9}, {3.817480102122531*^9, 
   3.817480161735585*^9}, {3.817480929962083*^9, 3.8174809851999407`*^9}, {
   3.817481202059146*^9, 3.817481205330865*^9}, {3.817481332214031*^9, 
   3.817481372822939*^9}, {3.8174817481255903`*^9, 3.8174817495497627`*^9}, {
   3.817481893344039*^9, 3.8174818980102367`*^9}, 3.818883307608644*^9, {
   3.8188833609333572`*^9, 3.818883379387904*^9}, {3.81888357740203*^9, 
   3.818883577657634*^9}, {3.8191593478951283`*^9, 3.819159347895625*^9}, {
   3.8205120227245283`*^9, 3.8205120272123137`*^9}, {3.820799380484311*^9, 
   3.820799382243806*^9}, 3.821236885031844*^9, {3.8212718496384983`*^9, 
   3.821271850053958*^9}},
 CellLabel->
  "In[888]:=",ExpressionUUID->"32c64093-61d6-483a-9a33-251de2697e6e"],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.8174801288633337`*^9},
 CellLabel->
  "In[891]:=",ExpressionUUID->"c152d5cd-16f9-424e-bb7a-545ee5648ddd"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"varSN2", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<SN2\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Var\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"DeleteFile", "[", "\"\<k4varSN2.txt\>\"", "]"}], ";"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{"Save", "[", 
  RowBox[{"\"\<k4varSN2.txt\>\"", ",", "varSN2"}], "]"}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.817479982742412*^9}, {3.8174800295572643`*^9, 
   3.817480100817914*^9}, {3.817480133473432*^9, 3.817480189934307*^9}, {
   3.817480918755168*^9, 3.8174809761281033`*^9}, {3.817481199875258*^9, 
   3.817481201546896*^9}, {3.817481329925963*^9, 3.8174813683110743`*^9}, {
   3.817481744813725*^9, 3.8174817476706963`*^9}, {3.817481892112315*^9, 
   3.817481912735326*^9}, 3.81888330761131*^9, {3.818883360934074*^9, 
   3.818883379388566*^9}, {3.818883581985779*^9, 3.8188835822492647`*^9}, {
   3.819159347896277*^9, 3.819159347896798*^9}, {3.820512030244997*^9, 
   3.8205120375723467`*^9}, {3.8209747484455023`*^9, 3.8209747511162252`*^9}, 
   3.821236844465706*^9, {3.821271850478951*^9, 3.8212718507982597`*^9}},
 CellLabel->
  "In[892]:=",ExpressionUUID->"fe619f11-4da3-4b42-8856-4c4183d3d04c"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fixSN2", "=", 
   RowBox[{"GeomComp", "[", 
    RowBox[{
     RowBox[{"Model", "=", "\"\<SN2\>\""}], ",", 
     RowBox[{"Type", "=", "\"\<Fix\>\""}], ",", 
     RowBox[{"AbundSeries", "=", "AbundSeries"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"DeleteFile", "[", "\"\<k4fixSN2.txt\>\"", "]"}], ";"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{"Save", "[", 
  RowBox[{"\"\<k4fixSN2.txt\>\"", ",", "fixSN2"}], "]"}]}], "Input",
 CellChangeTimes->{{3.81730948751062*^9, 3.817309501101755*^9}, {
   3.817474905825502*^9, 3.817474914760906*^9}, {3.817479756643404*^9, 
   3.8174797657938433`*^9}, {3.817479935153713*^9, 3.8174799377045317`*^9}, {
   3.8174799790717163`*^9, 3.8174800674832163`*^9}, {3.817480102122531*^9, 
   3.817480161735585*^9}, {3.817480929962083*^9, 3.8174809851999407`*^9}, {
   3.817481202059146*^9, 3.817481205330865*^9}, {3.817481332214031*^9, 
   3.817481372822939*^9}, {3.8174817481255903`*^9, 3.8174817495497627`*^9}, {
   3.817481893344039*^9, 3.817481915951338*^9}, 3.81888330761281*^9, {
   3.818883360934766*^9, 3.818883379389258*^9}, {3.818883586313678*^9, 
   3.8188835865691633`*^9}, {3.819159347897423*^9, 3.819159347897917*^9}, {
   3.820512039140362*^9, 3.820512043787591*^9}, {3.820974752252698*^9, 
   3.8209747550122967`*^9}, 3.821236885231751*^9, {3.821271851070737*^9, 
   3.821271853078184*^9}},
 CellLabel->
  "In[895]:=",ExpressionUUID->"051b1996-f886-49b3-b556-e5185d093e98"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1185, 1280},
WindowMargins->{{Automatic, 185}, {Automatic, 0}},
Magnification:>1.25 Inherited,
FrontEndVersion->"13.3 for Mac OS X ARM (64-bit) (July 24, 2023)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"e6e410ed-18be-4973-b0c3-5acdfc5476e7"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 162, 3, 84, "Section",ExpressionUUID->"63fd471e-f869-4c83-a479-2f504b489c95"],
Cell[745, 27, 2925, 54, 272, "Input",ExpressionUUID->"e23c2fa1-0572-47cf-be03-5335c64bba92"],
Cell[CellGroupData[{
Cell[3695, 85, 469, 8, 67, "Subsection",ExpressionUUID->"04fcc283-f6be-445d-a28a-0b9c6525ca06"],
Cell[4167, 95, 295, 6, 44, "Text",ExpressionUUID->"7ef98003-da76-4c3e-ac73-36a89d184865"],
Cell[4465, 103, 948, 20, 37, "Input",ExpressionUUID->"1b47023d-c3c6-47d0-93ae-9f73851b3166"],
Cell[5416, 125, 354, 9, 44, "Text",ExpressionUUID->"eafd0f89-139d-4fa0-a29a-9a32754b2add"],
Cell[5773, 136, 968, 23, 142, "Input",ExpressionUUID->"773e1f58-f54e-46d3-bae2-0d901d60efc5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6778, 164, 440, 6, 67, "Subsection",ExpressionUUID->"caab47af-2a32-40ab-883b-33c5b5c18808"],
Cell[7221, 172, 8158, 173, 532, "Input",ExpressionUUID->"b150d326-273d-4e23-b1d8-0974bfd0e05b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15416, 350, 338, 5, 67, "Subsection",ExpressionUUID->"c037263c-91ff-4ca6-b45a-19398dbaaf3c"],
Cell[15757, 357, 37268, 912, 3458, "Input",ExpressionUUID->"e51b2fa6-adc2-48b6-bc29-52a28619e301"],
Cell[CellGroupData[{
Cell[53050, 1273, 403, 8, 89, "Subsubsection",ExpressionUUID->"cb454de1-99f8-44d9-bdb3-1ab3bf900d6e"],
Cell[53456, 1283, 1408, 35, 201, "Input",ExpressionUUID->"40a70c0e-fc3b-479c-b9cc-60fae8e0fc77"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[54913, 1324, 301, 5, 67, "Subsection",ExpressionUUID->"e7203c65-c51a-4560-8b0c-89cd5f17e5de"],
Cell[55217, 1331, 10126, 238, 1364, "Input",ExpressionUUID->"7b686fc6-4d4d-4fa1-aec5-2dd6d542c0b5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[65380, 1574, 238, 4, 67, "Subsection",ExpressionUUID->"0eafcf56-a2ee-43c2-8e9b-7a45cbcf8507"],
Cell[65621, 1580, 101984, 1993, 18316, "Input",ExpressionUUID->"cd327515-7b9a-4e97-9d69-2536e0564bd1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[167642, 3578, 392, 6, 67, "Subsection",ExpressionUUID->"b4f2023a-bd99-43b3-886a-1547742ba817"],
Cell[168037, 3586, 1211, 23, 131, "Text",ExpressionUUID->"58458fb9-9bf8-40a9-b0aa-b98c4fb1b683"],
Cell[169251, 3611, 4972, 126, 558, "Input",ExpressionUUID->"59128640-980e-49f7-84f3-ce197a41605a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[174260, 3742, 648, 9, 67, "Subsection",ExpressionUUID->"c7bf9e96-c22e-4a06-8c84-a083316fa7f7"],
Cell[174911, 3753, 444, 10, 44, "Text",ExpressionUUID->"c3fff7cf-550e-47ed-af68-5b24af10d5af"],
Cell[175358, 3765, 2475, 45, 194, "Input",ExpressionUUID->"de00ed9a-1267-40b2-b58a-b4886d0ae4aa"],
Cell[CellGroupData[{
Cell[177858, 3814, 258, 6, 56, "Subsubsection",ExpressionUUID->"211aa73f-009e-423b-a153-45e4145d572d"],
Cell[CellGroupData[{
Cell[178141, 3824, 2284, 52, 324, "Input",ExpressionUUID->"0cf68015-3c43-43b3-a4c7-b00904897436"],
Cell[180428, 3878, 367, 7, 42, "Output",ExpressionUUID->"0b271e89-db6c-4c9e-bc64-3dba438d8ce6"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[180844, 3891, 276, 6, 56, "Subsubsection",ExpressionUUID->"b51e7cb4-57a7-4d50-a26c-0d846fac9245"],
Cell[CellGroupData[{
Cell[181145, 3901, 1947, 47, 324, "Input",ExpressionUUID->"e3f3cf53-1de4-4a3a-b1eb-b66d9a710ca6"],
Cell[183095, 3950, 398, 8, 42, "Output",ExpressionUUID->"5b62add2-18d8-460c-bd9c-a3a2670ed3b4"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[183554, 3965, 453, 9, 67, "Subsection",ExpressionUUID->"ea8b7349-f918-4981-9e1c-3f6e09b9b88a"],
Cell[184010, 3976, 10664, 194, 1416, "Input",ExpressionUUID->"21b11b8f-e0a9-40d7-b74f-148839c176da"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[194723, 4176, 164, 3, 84, "Section",ExpressionUUID->"77a63c65-653f-4ac1-ae00-32c50904394e"],
Cell[CellGroupData[{
Cell[194912, 4183, 257, 4, 67, "Subsection",ExpressionUUID->"b3fe36b2-a2f5-4886-bf6a-63d2373b0214"],
Cell[195172, 4189, 1353, 25, 90, "Input",ExpressionUUID->"ad20285f-46bc-454d-9372-b4e26fc63f03"],
Cell[196528, 4216, 154, 3, 37, "Input",ExpressionUUID->"28d6fc0b-c020-45fe-8316-3f3852b13e05"],
Cell[196685, 4221, 1078, 22, 90, "Input",ExpressionUUID->"ba92ff9c-f04d-4719-878c-39e8adc0b701"],
Cell[197766, 4245, 170, 3, 64, "Input",ExpressionUUID->"131cac42-5e4e-40d7-8e3d-3a7be366d62a"],
Cell[197939, 4250, 1149, 23, 90, "Input",ExpressionUUID->"be49da27-ea95-4846-91e0-6969c62576d8"],
Cell[199091, 4275, 1156, 23, 90, "Input",ExpressionUUID->"3fa8d6e8-3683-4c7e-9a47-b7cb42335250"],
Cell[200250, 4300, 172, 3, 64, "Input",ExpressionUUID->"c363d187-c8e1-4e54-b5a1-03c01eb64df5"],
Cell[200425, 4305, 1437, 26, 90, "Input",ExpressionUUID->"d57210ab-54cf-4093-b836-8b231a80355a"],
Cell[201865, 4333, 154, 3, 37, "Input",ExpressionUUID->"334d86f9-2f21-413b-aead-f5cab8999f91"],
Cell[202022, 4338, 1136, 22, 90, "Input",ExpressionUUID->"4f9077ea-acc5-40e2-91a3-733c61d87bea"],
Cell[203161, 4362, 194, 3, 64, "Input",ExpressionUUID->"7d1880c0-9af8-477b-ac2c-a26a3e7264f3"],
Cell[CellGroupData[{
Cell[203380, 4369, 162, 3, 56, "Subsubsection",ExpressionUUID->"1e95f35e-a4df-451f-a2a3-48c124144405"],
Cell[203545, 4374, 1301, 25, 90, "Input",ExpressionUUID->"18717a4e-f0e0-4a86-be53-12ffc98cad5c"],
Cell[204849, 4401, 1199, 23, 90, "Input",ExpressionUUID->"b682bddc-6ed1-4936-85f4-defa448e2ba4"],
Cell[206051, 4426, 172, 3, 64, "Input",ExpressionUUID->"7e7a1e20-141c-4428-8904-284f3dab87b7"],
Cell[206226, 4431, 1348, 25, 90, "Input",ExpressionUUID->"08be2bbd-8ee7-40fc-ac46-601c3c13fef9"],
Cell[207577, 4458, 1256, 24, 90, "Input",ExpressionUUID->"8ad7804f-a91b-4baf-a094-bf2e4b7ebad9"],
Cell[208836, 4484, 194, 3, 64, "Input",ExpressionUUID->"32753988-db6b-4887-964c-ad9d40c93c1e"],
Cell[209033, 4489, 1305, 25, 90, "Input",ExpressionUUID->"b49dba4a-de05-42c0-b602-9294cde79118"],
Cell[210341, 4516, 1198, 23, 90, "Input",ExpressionUUID->"7c9a8925-c6ad-4e58-8bba-9d2d7ba7b634"],
Cell[211542, 4541, 172, 3, 64, "Input",ExpressionUUID->"aaf43e51-c49f-497a-8400-0fcc14fe1513"],
Cell[211717, 4546, 1348, 25, 90, "Input",ExpressionUUID->"df68cad4-350f-47d9-9bc8-4f0ec30e7126"],
Cell[213068, 4573, 1245, 24, 90, "Input",ExpressionUUID->"354312dc-df42-4186-a60d-385c7afbb4dc"],
Cell[214316, 4599, 172, 3, 64, "Input",ExpressionUUID->"356c7285-9c0e-45c3-90b7-3deb7d5cb73d"],
Cell[214491, 4604, 1258, 24, 90, "Input",ExpressionUUID->"e4201c47-b3a1-41d3-9758-c792faaaa1ef"],
Cell[215752, 4630, 1202, 23, 90, "Input",ExpressionUUID->"4126415a-beff-4d8c-8904-9141ebeae767"],
Cell[216957, 4655, 172, 3, 64, "Input",ExpressionUUID->"9496081d-d539-41e5-9de8-b14d1c8bcb3c"],
Cell[217132, 4660, 1319, 25, 90, "Input",ExpressionUUID->"a6039948-8525-49ad-8fd5-0a43a620ca3c"],
Cell[218454, 4687, 1262, 24, 90, "Input",ExpressionUUID->"18452ced-f01d-499e-82e7-77cb1d698a0a"],
Cell[219719, 4713, 172, 3, 64, "Input",ExpressionUUID->"3e958ff2-a5d1-48ec-a8f6-362c03c21368"],
Cell[219894, 4718, 1305, 25, 90, "Input",ExpressionUUID->"44511a7e-e890-4185-9cf4-796690d1d776"],
Cell[221202, 4745, 1251, 24, 90, "Input",ExpressionUUID->"306fc5f9-a40a-4cf2-867d-68712338dd97"],
Cell[222456, 4771, 172, 3, 64, "Input",ExpressionUUID->"84be7cd3-2b9c-44de-a36d-073b474a0ebc"],
Cell[222631, 4776, 1407, 26, 90, "Input",ExpressionUUID->"16c10233-2819-4644-81ec-a2308e55469a"],
Cell[224041, 4804, 1352, 25, 90, "Input",ExpressionUUID->"261acf50-4452-4d63-b56b-b295cec4cb38"],
Cell[225396, 4831, 221, 4, 64, "Input",ExpressionUUID->"5dc78cd6-dd24-4904-b292-2489e2797e5b"],
Cell[225620, 4837, 1452, 27, 90, "Input",ExpressionUUID->"ac98063a-eb3d-4e12-a591-0d05aaaa2b2e"],
Cell[227075, 4866, 1396, 26, 90, "Input",ExpressionUUID->"08f916ba-7f14-4c12-b03b-446314d24fed"],
Cell[228474, 4894, 170, 3, 64, "Input",ExpressionUUID->"25e0baec-a985-45bf-832a-11b91f0c8a3c"],
Cell[228647, 4899, 1514, 29, 90, "Input",ExpressionUUID->"b1148e61-bac8-444e-8be3-5dfd2829d479"],
Cell[230164, 4930, 1377, 26, 90, "Input",ExpressionUUID->"daa26e1d-6641-44c9-90a9-cf1d2d2a4068"],
Cell[231544, 4958, 227, 5, 37, "Input",ExpressionUUID->"2eea8f1b-c4d4-4c65-8bd4-724ad4e75dfd"],
Cell[231774, 4965, 1671, 31, 90, "Input",ExpressionUUID->"7f932c8f-be4c-4f58-906a-a9bb18cef496"],
Cell[233448, 4998, 1554, 28, 90, "Input",ExpressionUUID->"bf639950-6413-4cb5-8638-0ba91699d448"],
Cell[235005, 5028, 221, 4, 64, "Input",ExpressionUUID->"5c484a16-c83b-4978-9290-892ccdb55664"],
Cell[235229, 5034, 1377, 26, 90, "Input",ExpressionUUID->"7e9f7a5c-c929-4e65-9fab-877151d59366"],
Cell[236609, 5062, 1324, 25, 90, "Input",ExpressionUUID->"13276996-330f-4f6b-a8fe-4aff13288533"],
Cell[237936, 5089, 172, 3, 64, "Input",ExpressionUUID->"57a36cfb-44fb-4d34-a601-1dd994d2749f"],
Cell[238111, 5094, 767, 18, 90, "Input",ExpressionUUID->"4523a657-b25c-44ed-b83e-37b128eb3ad6"],
Cell[238881, 5114, 735, 17, 90, "Input",ExpressionUUID->"98c74b64-dbd2-4eda-aebe-8bbf30c8840a"],
Cell[239619, 5133, 198, 3, 64, "Input",ExpressionUUID->"b64912d9-e99f-4f1e-b037-220f1a4b7f8d"],
Cell[239820, 5138, 1499, 27, 90, "Input",ExpressionUUID->"9684ecd6-58e3-4719-9647-c04d0da24102"],
Cell[241322, 5167, 1496, 27, 90, "Input",ExpressionUUID->"a00da50b-1b0a-4dfa-8bc2-9a78f2c58689"],
Cell[242821, 5196, 172, 3, 64, "Input",ExpressionUUID->"8c94bfe8-b9b3-4baf-90cf-2774bbd46ca5"],
Cell[242996, 5201, 1453, 27, 90, "Input",ExpressionUUID->"8d24d124-9b89-429b-ae58-dd7377e42593"],
Cell[244452, 5230, 1400, 26, 90, "Input",ExpressionUUID->"0e6a2895-b00c-45ff-bf11-7dfd627b1c77"],
Cell[245855, 5258, 172, 3, 64, "Input",ExpressionUUID->"63e73e27-e04c-4276-9213-a3eda06ab3f0"],
Cell[246030, 5263, 1449, 27, 90, "Input",ExpressionUUID->"40428c90-a5a4-4a5c-9a31-ede952bacb99"],
Cell[247482, 5292, 1405, 26, 90, "Input",ExpressionUUID->"4f6a4b9e-a24e-4e4e-9bcb-8d5c873412c5"],
Cell[248890, 5320, 172, 3, 64, "Input",ExpressionUUID->"6de296f0-8502-4313-ab71-3884f3a3b47b"],
Cell[249065, 5325, 1503, 27, 90, "Input",ExpressionUUID->"5cde2eb1-908f-47ef-80e2-10cadb87869f"],
Cell[250571, 5354, 1455, 27, 90, "Input",ExpressionUUID->"f6b4cc20-337f-4d9c-a9c0-f062c04bbf78"],
Cell[252029, 5383, 170, 3, 64, "Input",ExpressionUUID->"40a5b3e2-d250-49e0-8a9f-86e7585f36c1"],
Cell[252202, 5388, 1557, 28, 90, "Input",ExpressionUUID->"669201d6-38c1-4102-af7d-ab53ce6c5258"],
Cell[253762, 5418, 1508, 27, 90, "Input",ExpressionUUID->"383d7ee8-d55d-4673-80e3-5d371d6df185"],
Cell[255273, 5447, 170, 3, 64, "Input",ExpressionUUID->"023fa2e7-e563-4ce0-b4e4-04fb4d1497ef"]
}, Open  ]],
Cell[CellGroupData[{
Cell[255480, 5455, 164, 3, 56, "Subsubsection",ExpressionUUID->"382822c7-2300-44a1-8bac-d8308f35a1fc"],
Cell[255647, 5460, 1310, 25, 90, "Input",ExpressionUUID->"a47997ae-ecac-4442-a070-54a8c1b1813a"],
Cell[256960, 5487, 1253, 24, 90, "Input",ExpressionUUID->"b1063f37-b610-4efc-9d6f-85a36c5232e4"],
Cell[258216, 5513, 172, 3, 64, "Input",ExpressionUUID->"0586b93e-bd2c-4aa0-bfe9-85df72962743"],
Cell[258391, 5518, 1351, 25, 90, "Input",ExpressionUUID->"0697c6da-e560-4f6a-9707-aed994f58a31"],
Cell[259745, 5545, 1303, 25, 90, "Input",ExpressionUUID->"0912beff-b0d0-453e-a9d4-716c34ee7a8f"],
Cell[261051, 5572, 172, 3, 64, "Input",ExpressionUUID->"00563ea7-321e-474b-8459-0fecb95d4b01"],
Cell[261226, 5577, 1334, 25, 90, "Input",ExpressionUUID->"d345f2b3-fa01-4f19-bbb2-887570bce7f6"],
Cell[262563, 5604, 1282, 24, 90, "Input",ExpressionUUID->"0ca74f95-06b8-4fe5-9ff5-d1d598454a36"],
Cell[263848, 5630, 172, 3, 64, "Input",ExpressionUUID->"03223d39-3804-4ecd-826d-f5b8ef1cc16c"],
Cell[264023, 5635, 1510, 27, 90, "Input",ExpressionUUID->"e66e7b48-9f89-4a36-a1c4-5271f91092a9"],
Cell[265536, 5664, 1468, 27, 90, "Input",ExpressionUUID->"3bc08b46-4b38-4fd1-a961-d8ef9141148a"],
Cell[267007, 5693, 194, 3, 64, "Input",ExpressionUUID->"8fdecf52-eb5e-41e4-903e-7a13e670b259"],
Cell[267204, 5698, 1456, 27, 90, "Input",ExpressionUUID->"6e5423c2-35ed-4d4b-b54c-320ea152cc9f"],
Cell[268663, 5727, 1403, 26, 90, "Input",ExpressionUUID->"5c6c6316-3f5c-4e96-9bd9-487fd8adb5b7"],
Cell[270069, 5755, 172, 3, 64, "Input",ExpressionUUID->"055584c3-7505-46c8-9f99-f441d971eaa7"],
Cell[270244, 5760, 1403, 26, 90, "Input",ExpressionUUID->"5f3e1834-9e05-4369-ba7a-963c885ee48e"],
Cell[271650, 5788, 1349, 25, 90, "Input",ExpressionUUID->"1fe41b17-24f7-416c-8dc1-9bf8d6fdac1f"],
Cell[273002, 5815, 172, 3, 64, "Input",ExpressionUUID->"297818b2-cda7-4447-8971-dc4da1dcfde1"],
Cell[273177, 5820, 1457, 27, 90, "Input",ExpressionUUID->"233bf411-227b-4f3b-89e9-490f7b6a1b5d"],
Cell[274637, 5849, 1409, 26, 90, "Input",ExpressionUUID->"0326e37b-433e-4070-a98b-1f8e87cbec66"],
Cell[276049, 5877, 172, 3, 64, "Input",ExpressionUUID->"0fd45272-fd76-4227-bb29-9efd45beff76"],
Cell[276224, 5882, 1508, 27, 90, "Input",ExpressionUUID->"3b31b5c7-bbb0-4fb2-8ac1-c5306c4e283e"],
Cell[277735, 5911, 1466, 27, 90, "Input",ExpressionUUID->"61cfdbc6-e970-4396-a0a7-b803392bc247"],
Cell[279204, 5940, 172, 3, 64, "Input",ExpressionUUID->"3b346c87-de83-48a6-adad-4557824d4842"],
Cell[279379, 5945, 1456, 27, 90, "Input",ExpressionUUID->"31f87b64-a891-4926-9b3e-5815a1cbcb58"],
Cell[280838, 5974, 1403, 26, 90, "Input",ExpressionUUID->"e4dcaadb-d66a-478a-8ee3-ad6b9ece9380"],
Cell[282244, 6002, 172, 3, 64, "Input",ExpressionUUID->"bc6f7ffe-469b-4e22-8afd-83ed479db922"],
Cell[282419, 6007, 1507, 27, 90, "Input",ExpressionUUID->"5123d40a-ffcf-4fc7-9845-98124e47641a"],
Cell[283929, 6036, 1460, 27, 90, "Input",ExpressionUUID->"791cd89e-4d02-4f22-8774-679083c00cc1"],
Cell[285392, 6065, 172, 3, 64, "Input",ExpressionUUID->"ef40d21f-42c6-4d41-bb39-537e58dc31f6"],
Cell[285567, 6070, 1561, 28, 90, "Input",ExpressionUUID->"bfe8641c-199c-4833-ad11-eadd269ec3e5"],
Cell[287131, 6100, 1505, 27, 90, "Input",ExpressionUUID->"9adce1c0-2ba4-422a-8e39-46592eb86263"],
Cell[288639, 6129, 172, 3, 64, "Input",ExpressionUUID->"65ba719e-a9d9-4c9e-9b81-06ec6d39bbea"],
Cell[288814, 6134, 1624, 29, 90, "Input",ExpressionUUID->"501b48fb-0a2d-403e-ae0d-070760ce8927"],
Cell[290441, 6165, 1570, 28, 90, "Input",ExpressionUUID->"3c44afa4-471f-4c9e-b85a-129888eb9873"],
Cell[292014, 6195, 172, 3, 64, "Input",ExpressionUUID->"496e6b15-48c4-4812-ab4f-9554d588cc67"],
Cell[292189, 6200, 1613, 29, 90, "Input",ExpressionUUID->"eb721eea-83e4-47eb-b1f8-1d766ff0e4dc"],
Cell[293805, 6231, 1557, 28, 90, "Input",ExpressionUUID->"f7d00a54-6279-454e-80c6-8fa368647790"],
Cell[295365, 6261, 172, 3, 64, "Input",ExpressionUUID->"03223369-5ea1-4e7a-86ae-8902d025dfca"],
Cell[295540, 6266, 1449, 27, 90, "Input",ExpressionUUID->"09ab8261-b518-40ec-a896-edc9254960c6"],
Cell[296992, 6295, 1392, 26, 90, "Input",ExpressionUUID->"39a1f92d-c724-40b3-aa12-a4ba56d48f1e"],
Cell[298387, 6323, 221, 4, 64, "Input",ExpressionUUID->"13f842ad-124d-4ce3-98a2-a4f53d0f96f2"],
Cell[298611, 6329, 1463, 27, 90, "Input",ExpressionUUID->"25dfa1af-f1c6-4367-920a-82b09c3d2e1f"],
Cell[300077, 6358, 1408, 26, 90, "Input",ExpressionUUID->"cc6f446e-4f46-4721-a984-08fe9f1d24af"],
Cell[301488, 6386, 172, 3, 64, "Input",ExpressionUUID->"83a51446-4f36-4ecf-b509-dde123886bad"],
Cell[301663, 6391, 1387, 26, 90, "Input",ExpressionUUID->"f2e53809-b330-4078-8588-4118b4b44447"],
Cell[303053, 6419, 1336, 25, 90, "Input",ExpressionUUID->"0cceb825-5fd2-4de7-8771-d6f5917cec6c"],
Cell[304392, 6446, 172, 3, 64, "Input",ExpressionUUID->"7587f06a-fef4-4132-9c27-072f39ae62ca"],
Cell[304567, 6451, 1643, 31, 90, "Input",ExpressionUUID->"24ecd61e-46c3-4eab-a43c-1a97e0e89986"],
Cell[306213, 6484, 1547, 29, 90, "Input",ExpressionUUID->"05f2c669-27aa-4125-a0f6-56e025ddf39d"],
Cell[307763, 6515, 172, 3, 64, "Input",ExpressionUUID->"b3fe6293-3101-4f37-8ec8-045cecb0e58b"],
Cell[307938, 6520, 1689, 31, 90, "Input",ExpressionUUID->"8aac4c79-b9bb-44d6-8956-e0ed0f93ac7b"],
Cell[309630, 6553, 1597, 30, 90, "Input",ExpressionUUID->"d7026ba9-2fb2-4849-94c1-0815b04ca4a5"],
Cell[311230, 6585, 172, 3, 64, "Input",ExpressionUUID->"942bdc93-9dcc-4371-b6bf-180cfc95e9cf"],
Cell[311405, 6590, 1686, 31, 90, "Input",ExpressionUUID->"6a1be342-cd5d-4a15-adb7-3da56fd6ab1e"],
Cell[313094, 6623, 1592, 30, 90, "Input",ExpressionUUID->"d0cf726c-81fb-4871-b7ba-d304b6f22177"],
Cell[314689, 6655, 172, 3, 64, "Input",ExpressionUUID->"fe940b1d-3ccf-43ec-acc1-d14068fa1ce3"],
Cell[314864, 6660, 1743, 32, 90, "Input",ExpressionUUID->"20c0eaa9-41ae-44ab-8e2b-df9736244dde"],
Cell[316610, 6694, 1647, 31, 90, "Input",ExpressionUUID->"0d14ae1f-4af7-481e-83b5-37addf6a9fe3"],
Cell[318260, 6727, 172, 3, 64, "Input",ExpressionUUID->"c936cfea-4f64-4493-bbcf-75e392d4714d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[318469, 6735, 163, 3, 56, "Subsubsection",ExpressionUUID->"2b7903e9-e529-4d93-b2bd-bf1f65522347"],
Cell[318635, 6740, 1366, 25, 90, "Input",ExpressionUUID->"0df0d9c0-ebed-4370-9505-9c03cf4c8c58"],
Cell[320004, 6767, 1314, 25, 90, "Input",ExpressionUUID->"8f88d454-9516-44f8-a7cc-b129de52543c"],
Cell[321321, 6794, 172, 3, 64, "Input",ExpressionUUID->"fdc22121-42d1-49d8-8d2c-c5892beca5fb"],
Cell[321496, 6799, 1412, 26, 90, "Input",ExpressionUUID->"ca74697d-5064-4cb8-9c42-c914681960b0"],
Cell[322911, 6827, 1361, 25, 90, "Input",ExpressionUUID->"1bee7949-92d0-499d-9136-2b9ed4e543f4"],
Cell[324275, 6854, 172, 3, 64, "Input",ExpressionUUID->"e568d67f-63c3-4b9a-92b7-3c6dd0f48d38"],
Cell[324450, 6859, 1394, 26, 90, "Input",ExpressionUUID->"bbf5414b-0f09-41cc-8e2c-4b76f6a2ad33"],
Cell[325847, 6887, 1342, 25, 90, "Input",ExpressionUUID->"4c8a99f4-b9b5-4f0d-9500-90509a9cab98"],
Cell[327192, 6914, 172, 3, 64, "Input",ExpressionUUID->"75a0bb21-a153-4b86-b5bc-5cb10390b787"],
Cell[327367, 6919, 1592, 30, 90, "Input",ExpressionUUID->"fe850b4d-3aa4-40be-aab9-0a8254b4c877"],
Cell[328962, 6951, 1502, 29, 90, "Input",ExpressionUUID->"32c64093-61d6-483a-9a33-251de2697e6e"],
Cell[330467, 6982, 172, 3, 64, "Input",ExpressionUUID->"c152d5cd-16f9-424e-bb7a-545ee5648ddd"],
Cell[330642, 6987, 1546, 29, 90, "Input",ExpressionUUID->"fe619f11-4da3-4b42-8856-4c4183d3d04c"],
Cell[332191, 7018, 1494, 29, 90, "Input",ExpressionUUID->"051b1996-f886-49b3-b556-e5185d093e98"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)