ASPD_models.nb

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

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

(* CreatedBy='Mathematica 11.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    579861,      14797]
NotebookOptionsPosition[    575965,      14711]
NotebookOutlinePosition[    576309,      14726]
CellTagsIndexPosition[    576266,      14723]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  StyleBox[
   RowBox[{
    RowBox[{"The", " ", "ASPD", " ", "models", " ", "Including", " ", "PF"}], 
    "-", "670462"}], "Title"], " "}], "\[IndentingNewLine]", 
 StyleBox[
  RowBox[{"Daewook", " ", "Kim", " ", "Jaekyoung", " ", "Kim", " "}], 
  "Subtitle"]}], "Input",
 CellChangeTimes->{{3.5316682093857937`*^9, 3.531668309925372*^9}, {
  3.56613373260361*^9, 3.566133758438279*^9}, {3.566174303683866*^9, 
  3.5661743067761717`*^9}, {3.7359512750943933`*^9, 3.735951349085292*^9}, {
  3.735951391404847*^9, 3.735951456096876*^9}, {3.736022093335533*^9, 
  3.7360220949095373`*^9}, {3.763465868263674*^9, 
  3.763465898603544*^9}},ExpressionUUID->"f5a8389d-4ff6-4ccb-a03b-\
c3d1cf4b8133"],

Cell[BoxData[
 StyleBox[
  RowBox[{
  "The", " ", "ASPD", " ", "models", " ", "were", " ", "dveloped", " ", "by", 
   " ", "perturbing", " ", "the", " ", "parameter", " ", "of", " ", "which", 
   " ", "allows", " ", "for", " ", "advnacing", " ", "the", " ", "phase", " ", 
   RowBox[{"by", " ", "~", "4"}], " ", "h", " ", "from", " ", "the", " ", 
   "WT", " ", "model", " ", "and", " ", "advacing", " ", "the", " ", "phase", 
   " ", "of", " ", "gating", " ", "function", " ", "g", " ", "by", " ", "4", 
   " ", "h", " ", "to", " ", "reflect", " ", "the", " ", "advanced", " ", 
   "circadian", " ", "phase", " ", "of", " ", "ASPD", " ", "patients", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Jones", " ", "et", " ", "al"}], ",", " ", 
      RowBox[{"Nature", " ", "Med"}], ",", " ", "1999"}], ")"}], ".", " ", 
    "Detailed"}], " ", "description", " ", "of", " ", "the", " ", "models", 
   " ", "can", " ", "be", " ", "found", " ", "in", "  ", "Materials", " ", 
   "and", " ", "Methods", " ", "and", " ", "Table", " ", 
   RowBox[{"EV5", ".", " "}]}], "Subsubtitle"]], "Input",
 CellChangeTimes->{{3.7359514914603252`*^9, 3.7359515387953453`*^9}, {
  3.7359901128608603`*^9, 3.7359901683434467`*^9}, {3.7634659171380095`*^9, 
  3.763465943990177*^9}, {3.763466079618498*^9, 3.7634660800593195`*^9}, {
  3.763606607805033*^9, 3.763606614364493*^9}, {3.7636067796205873`*^9, 
  3.7636068000050774`*^9}, {3.763606869967993*^9, 3.763606903586096*^9}, {
  3.763606956279131*^9, 3.763607027444829*^9}, {3.763607137534478*^9, 
  3.763607190194626*^9}, {3.763607295411572*^9, 
  3.763607378706837*^9}},ExpressionUUID->"380fc1de-41df-4854-a20b-\
7199a41e64f0"],

Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{
   "Setting", " ", "of", " ", "dosing", " ", "regimen", " ", "to", " ", 
    "simulate", " ", "PF"}], "-", "670", "-", 
   RowBox[{"induced", " ", "phase", " ", "shift"}]}], "Subsubtitle"]], "Input",
 CellChangeTimes->{
  3.7681925036045094`*^9, {3.768194359802285*^9, 
   3.7681943714422774`*^9}},ExpressionUUID->"282a2def-dcbd-4db1-b07f-\
ad518fc9aa5e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Selection", " ", "of", " ", "mutation"}], ",", " ", 
    RowBox[{
     RowBox[{
     "which", " ", "induces", " ", "advanced", " ", "sleep", " ", "phase", 
      " ", "disorder", " ", 
      RowBox[{"(", "ASPD", ")"}], " ", "\[IndentingNewLine]", "1"}], " ", 
     "\[Rule]", " ", 
     SuperscriptBox["Per2", "t"]}], ",", " ", 
    RowBox[{"2", " ", "\[Rule]", " ", 
     SuperscriptBox["Per2", "p"]}], ",", " ", 
    RowBox[{"3", " ", "\[Rule]", " ", 
     SuperscriptBox["Per2", "n"]}], ",", " ", 
    RowBox[{"4", " ", "\[Rule]", " ", 
     SuperscriptBox["Gsk3\[Beta]", "a"]}], ",", " ", 
    RowBox[{"5", " ", "\[Rule]", " ", 
     SuperscriptBox["Cry2", "t"]}], ",", " ", 
    RowBox[{"6", " ", "\[Rule]", " ", 
     SuperscriptBox["Cry1", "t"]}], ",", " ", 
    RowBox[{"7", " ", "\[Rule]", " ", 
     RowBox[{
      RowBox[{
       SuperscriptBox["Cry1", "d"], " ", "and", " ", "8"}], " ", "\[Rule]", 
      " ", 
      RowBox[{"B", ":", 
       SuperscriptBox["C", "p"]}]}]}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"select", "=", "1"}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Dosing", " ", "Days"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"days", "=", "21"}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Light", " ", "Duration", " ", 
     RowBox[{"(", "h", ")"}]}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ldd", "=", "12"}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"dose", " ", "level", " ", 
     RowBox[{"(", "mpk", ")"}]}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"dose", "=", "26"}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Dosing", " ", "Time", " ", 
     RowBox[{"(", "h", ")"}]}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"dtt", "=", "4"}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.735866657949238*^9, 3.735866762296421*^9}, {
   3.735866823807976*^9, 3.7358668736884165`*^9}, {3.735866925316346*^9, 
   3.735866952701804*^9}, {3.735867275164482*^9, 3.7358672938688707`*^9}, {
   3.7358768020141907`*^9, 3.7358768140763803`*^9}, {3.7358779126534557`*^9, 
   3.7358779421109962`*^9}, 3.735885823283656*^9, {3.735885855765253*^9, 
   3.735885864232254*^9}, {3.7359424055696697`*^9, 3.7359424582443027`*^9}, {
   3.7359490722360783`*^9, 3.7359490726540594`*^9}, {3.735949113792248*^9, 
   3.7359491712800856`*^9}, {3.7359492115920687`*^9, 
   3.7359495756710625`*^9}, {3.7359496069360666`*^9, 3.735949686330083*^9}, {
   3.73594972213706*^9, 3.73594996291608*^9}, 3.735953652603516*^9, {
   3.7630026926941986`*^9, 3.7630026931349893`*^9}, {3.763460925616987*^9, 
   3.763460926283067*^9}, {3.7634635181255302`*^9, 3.763463523618252*^9}, {
   3.763464872005977*^9, 3.763464880201064*^9}, {3.763465962172556*^9, 
   3.7634660277362523`*^9}, {3.7634660602931767`*^9, 
   3.7634660663948584`*^9}, {3.7636066256523075`*^9, 3.763606751238483*^9}, 
   3.763608981701602*^9, {3.7681903731477003`*^9, 3.768190405121134*^9}, {
   3.768190626159811*^9, 3.7681908253599*^9}, {3.768191977010624*^9, 
   3.7681920124535155`*^9}},ExpressionUUID->"63d292c2-65de-4aa3-aec5-\
8853a5c0eaa2"],

Cell[CellGroupData[{

Cell[TextData[{
 "Guideline to simulate the PF-670-induced phase delays in Fig 4B\n",
 StyleBox["Fig 4B ASPD models: \n", "Text",
  FontWeight->"Bold",
  FontColor->GrayLevel[0]],
 StyleBox["Blue circles", "Text",
  FontColor->GrayLevel[0]],
 StyleBox[" \n", "Text",
  FontWeight->"Bold",
  FontColor->GrayLevel[0]],
 StyleBox["1. Set select=1~8, days=21, ldd=12, dose=26 and dtt=4\n2. Set \
select=1~8, days=21, ldd=12, dose=24 and dtt=5\n3. Set select=1~8, days=21, \
ldd=12, dose=22 and dtt=6\n4. Set select=1~8, days=21, ldd=12, dose=19 and \
dtt=7\nRed circles\n1. Set select=1~8, days=21, ldd=12, dose=26 and dtt=0\n2. \
Set select=1~8, days=21, ldd=12, dose=24 and dtt=1\n3. Set select=1~8, \
days=21, ldd=12, dose=22 and dtt=2\n4. Set select=1~8, days=21, ldd=12, \
dose=19 and dtt=3\n", "Text",
  FontColor->GrayLevel[0]]
}], "Subsubsection",
 CellChangeTimes->{{3.768185956218988*^9, 3.7681860929721394`*^9}, {
   3.7681861405199337`*^9, 3.7681863384465647`*^9}, {3.768186433494278*^9, 
   3.7681865039418097`*^9}, {3.7681865346209745`*^9, 3.768186708454407*^9}, {
   3.768187000576049*^9, 3.76818702485605*^9}, 3.768187721359703*^9, {
   3.7681879676627913`*^9, 3.768187973178011*^9}, {3.7681893514255605`*^9, 
   3.768189351750692*^9}, {3.768190561468885*^9, 3.7681905763789663`*^9}, {
   3.7681908713757954`*^9, 3.7681909055882597`*^9}, {3.768191277580279*^9, 
   3.76819141254198*^9}, {3.768193604079133*^9, 3.768193608804474*^9}, {
   3.768193702528144*^9, 3.768193709759773*^9}, {3.76819386531485*^9, 
   3.7681938683607254`*^9}, {3.768193990142935*^9, 
   3.768193994134264*^9}},ExpressionUUID->"41ac2ff0-bccc-4fdd-a587-\
f9b51ba77333"],

Cell[BoxData[
 StyleBox[
  RowBox[{"Initial", " ", "Conditions"}], "Subtitle"]], "Input",
 CellChangeTimes->{{3.5316661826047163`*^9, 3.5316661842246847`*^9}, 
   3.531668140470046*^9, {3.5432337253436193`*^9, 
   3.543233725715186*^9}},ExpressionUUID->"304143b0-9789-4f04-896f-\
f24bf0a8f079"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "The", " ", "parameter", " ", "set", " ", "of", " ", "gating", " ", "and", 
    " ", "adaptation", " ", "with", " ", "the", " ", "model", " ", "was", " ",
     "referred", " ", "to", " ", "as", " ", "the", " ", "WT", " ", 
    RowBox[{"model", ".", " ", "Note"}], " ", "that", " ", "this", " ", 
    "parameter", " ", "set", " ", "is", " ", "the", " ", "frist", " ", "set", 
    " ", "which", " ", "has", " ", "the", " ", "narrow", " ", "high", " ", 
    "photosensitivity", " ", 
    RowBox[{"zone", ".", " ", "The"}], " ", "description", " ", "of", " ", 
    "each", " ", "parameter", " ", "can", " ", "be", " ", "found", " ", "in", 
    " ", "Table", " ", 
    RowBox[{"EV4", "."}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"X1", "=", "19"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"X2", "=", "5"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Y1", "=", "0.0254792447298582`"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Y2", "=", "0.09292858771934351`"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Z1", "=", "6.4674467886106815`"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Z2", "=", "1.8304664447143064`"}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"mutation", " ", "selection"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"mutants", "=", 
     RowBox[{"{", 
      RowBox[{
      "0.39", ",", "2.02", ",", "3.05", ",", "2.95", ",", "5.2", ",", "0", 
       ",", "3", ",", "4.3"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"parachange", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"i", "\[Equal]", "j"}], ",", 
           RowBox[{"mutants", "[", 
            RowBox[{"[", "j", "]"}], "]"}], ",", "1"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", "8"}], "}"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"j", ",", "1", ",", "8"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"parachange", "=", 
     RowBox[{"parachange", "[", 
      RowBox[{"[", "select", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
     "Initial", " ", "Condition", " ", "for", " ", "the", " ", "multi"}], "-", 
     RowBox[{"state", " ", "variable", " ", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", "]"}], "[",
         "m", "]"}], "[", "n", "]"}]}]}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Init1", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.3420612363991834`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "8.179771245758342`", "}"}]}], "}"}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "50.57941320972072`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "3.084858510765489`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.0985802410460628`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "1.3084555441370038`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}]}], "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "41.165766704888945`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.015608382491794207`", "}"}], ",", 
               RowBox[{"{", "8.720885301950966`", "}"}]}], "}"}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}]}], "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "46.57213430901654`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.0031953005375601647`", "}"}], ",", 
               RowBox[{"{", "1.36799289498887`", "}"}]}], "}"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}]}], "}"}]}], "}"}]}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.42289800101916825`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "1.0925402835728917`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}]}], "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}]}], "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}]}], "}"}]}], "}"}]}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.0018172208474570813`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.000051969832456607834`", "}"}], ",", 
               RowBox[{"{", "0.005122234469530184`", "}"}]}], "}"}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.1065745913827944`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.0008330734700784042`", "}"}], ",", 
               RowBox[{"{", "0.0566635532527744`", "}"}]}], "}"}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}]}], "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.0032917376286310976`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.000014996030154730353`", "}"}], ",", 
               RowBox[{"{", "0.005431344430745013`", "}"}]}], "}"}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.08769094840691996`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.0003337441556398164`", "}"}], ",", 
               RowBox[{"{", "0.05489271181066792`", "}"}]}], "}"}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}]}], "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.0034854600146215606`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.00001543121168014226`", "}"}], ",", 
               RowBox[{"{", "0.005104574272816484`", "}"}]}], "}"}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.09387578379334667`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.0003536110985068703`", "}"}], ",", 
               RowBox[{"{", "0.053591842109765024`", "}"}]}], "}"}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}]}], "}"}]}], "}"}]}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.9143646209767509`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.6640388319296585`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.02261620526647949`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.024153127001179508`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}]}], "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}]}], "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}]}], "}"}]}], "}"}]}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.003566426542717158`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.000019446948491991687`", "}"}], ",", 
               RowBox[{"{", "0.0009593633157572193`", "}"}]}], "}"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.25844220368442533`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.0009853861095753967`", "}"}], ",", 
               RowBox[{"{", "0.024999109498991166`", "}"}]}], "}"}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.0001571030498997009`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.000011241988156917215`", "}"}], ",", 
               RowBox[{"{", "0.0013233693432189286`", "}"}]}], "}"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.010591367829307969`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.00023061993448538233`", "}"}], ",", 
               RowBox[{"{", "0.025310956921162836`", "}"}]}], "}"}]}], 
            "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.003906943572357614`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.000013488201348952268`", "}"}], ",", 
               RowBox[{"{", "0.0008093091845965769`", "}"}]}], "}"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.124712274740282`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.0004168131259404268`", "}"}], ",", 
               RowBox[{"{", "0.014891880773138683`", "}"}]}], "}"}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.00018883274230441384`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "1.7997916251845195`*^-6", "}"}], ",", 
               RowBox[{"{", "0.0010929293853399464`", "}"}]}], "}"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.005847694864620672`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.00004358370050515716`", "}"}], ",", 
               RowBox[{"{", "0.01661068549366629`", "}"}]}], "}"}]}], "}"}]}],
           "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.0042845356189285195`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.000014771592378319274`", "}"}], ",", 
               RowBox[{"{", "0.0008613198533091311`", "}"}]}], "}"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.1376958595595994`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.00045981124781785865`", "}"}], ",", 
               RowBox[{"{", "0.01603487525209985`", "}"}]}], "}"}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.00020679957949088886`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "1.9401844427852306`*^-6", "}"}], ",", 
               RowBox[{"{", "0.0011515995567390796`", "}"}]}], "}"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.006446263165149906`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.00004763488605319544`", "}"}], ",", 
               RowBox[{"{", "0.01770213916985296`", "}"}]}], "}"}]}], "}"}]}],
           "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.005698064997206092`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.00019083191864807688`", "}"}], ",", 
               RowBox[{"{", "0.05668344375489035`", "}"}]}], "}"}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.028756909151433502`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.00041383171976532257`", "}"}], ",", 
               RowBox[{"{", "0.04946506549670688`", "}"}]}], "}"}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.0041450474340475356`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.0003862225731469661`", "}"}], ",", 
               RowBox[{"{", "0.12446417224048362`", "}"}]}], "}"}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.0074079613548572055`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.0006543776273979713`", "}"}], ",", 
               RowBox[{"{", "0.10408853180005757`", "}"}]}], "}"}]}], "}"}]}],
           "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.006669740144184649`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.00002542209112423298`", "}"}], ",", 
               RowBox[{"{", "0.004845243944628116`", "}"}]}], "}"}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.0828541248216783`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.0002945640707027717`", "}"}], ",", 
               RowBox[{"{", "0.032357261166932494`", "}"}]}], "}"}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.0012141988050762562`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.000011508013921347713`", "}"}], ",", 
               RowBox[{"{", "0.009768583317773775`", "}"}]}], "}"}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.008747399124363007`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.00007984935519557792`", "}"}], ",", 
               RowBox[{"{", "0.06078778560702874`", "}"}]}], "}"}]}], "}"}]}],
           "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.007063852050803612`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.00002642920327460206`", "}"}], ",", 
               RowBox[{"{", "0.004422509243751679`", "}"}]}], "}"}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.08527034138444498`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.00030090634602644245`", "}"}], ",", 
               RowBox[{"{", "0.030114250838098423`", "}"}]}], "}"}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.0013264050530040427`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.000011249707819832738`", "}"}], ",", 
               RowBox[{"{", "0.00878990944810083`", "}"}]}], "}"}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.009150500594118106`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.00007786053056329725`", "}"}], ",", 
               RowBox[{"{", "0.05558596503417361`", "}"}]}], "}"}]}], "}"}]}],
           "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.0007928248680611883`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.000025780353419672163`", "}"}], ",", 
               RowBox[{"{", "0.0033458239867342923`", "}"}]}], "}"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.0274124885839697`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.00038549841376936617`", "}"}], ",", 
               RowBox[{"{", "0.05899370416043617`", "}"}]}], "}"}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.0001255123171657433`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.00004997690057380442`", "}"}], ",", 
               RowBox[{"{", "0.007351856000655174`", "}"}]}], "}"}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.005502328645107724`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.0006319867772882921`", "}"}], ",", 
               RowBox[{"{", "0.12768021452441894`", "}"}]}], "}"}]}], "}"}]}],
           "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.0025210125949368953`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.000010077905400078566`", "}"}], ",", 
               RowBox[{"{", "0.0024810297377193245`", "}"}]}], "}"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.05812325888303372`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.00020742923534716493`", "}"}], ",", 
               RowBox[{"{", "0.023913749818730998`", "}"}]}], "}"}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.00030530718232012633`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "4.902173374599667`*^-6", "}"}], ",", 
               RowBox[{"{", "0.005219487814016039`", "}"}]}], "}"}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.007539434826295608`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.00006395851528373895`", "}"}], ",", 
               RowBox[{"{", "0.04714353907964912`", "}"}]}], "}"}]}], "}"}]}],
           "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.0025977211835363366`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.00001017089395981654`", "}"}], ",", 
               RowBox[{"{", "0.002248072566075126`", "}"}]}], "}"}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.060247906870995155`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.00021344857807776635`", "}"}], ",", 
               RowBox[{"{", "0.022578312737100606`", "}"}]}], "}"}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.0003200670130454894`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "4.603722758559816`*^-6", "}"}], ",", 
               RowBox[{"{", "0.004701002286841585`", "}"}]}], "}"}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.007971833585551605`", "}"}], ",", 
               RowBox[{"{", "0.`", "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0.00006352606272272561`", "}"}], ",", 
               RowBox[{"{", "0.04407940585392828`", "}"}]}], "}"}]}], "}"}]}],
           "}"}]}], "}"}]}], "}"}]}], ";"}], "\n", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
     "Initial", " ", "Condition", " ", "for", " ", "the", " ", "single"}], 
     "-", 
     RowBox[{"state", " ", "variable"}]}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Init2", "=", 
     RowBox[{"{", 
      RowBox[{
      "0.21004770358705036`", ",", "0.7879547112081645`", ",", 
       "1.1383721663365372`", ",", "3.760854376307055`", ",", 
       "1.095465622771389`", ",", "12.37354665811613`", ",", 
       "4.470535676137161`", ",", "4.189465465043962`", ",", 
       "0.5791077386453771`", ",", "8.349625799238817`", ",", 
       "1.4116789475658296`", ",", "35.184199298572295`", ",", 
       "8.56043138049844`", ",", "23.77410578150899`", ",", 
       "0.5893077833141493`", ",", "0.40424721668584945`", ",", 
       "48.09767559849965`", ",", "31.869023309234613`", ",", 
       "161.14372712932516`", ",", "123.95046120625604`", ",", 
       "467.84444843738225`", ",", "0.1932885142503498`", ",", 
       "58.23913168018502`", ",", "0.03971373557862615`", ",", 
       "19.06619007243528`", ",", "0.5999649539384736`", ",", 
       "0.39359004606153003`", ",", "0", ",", "0.11012045498612394`", ",", 
       "67.61745646537098`", ",", "0", ",", "0", ",", "6.5815025579914295`", 
       ",", "0.4162165798701546`", ",", "0.5585648324701572`", ",", 
       "0.25595982171319526`", ",", "0.5203673130406197`", ",", 
       "0.19388642676798773`", ",", "0.8044041532454284`"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.7358769329311714`*^9, 3.7358769393051677`*^9}, {
   3.735877058874611*^9, 3.73587706177658*^9}, {3.735942702210755*^9, 
   3.735942747067092*^9}, {3.73594277707311*^9, 3.7359430116272135`*^9}, {
   3.7359431249311905`*^9, 3.735943351690693*^9}, {3.7359433916986685`*^9, 
   3.7359434731884394`*^9}, {3.735944887369153*^9, 3.735944895591178*^9}, 
   3.735944990288185*^9, {3.7359450250132833`*^9, 3.7359450256292796`*^9}, {
   3.735945075319284*^9, 3.7359452731682816`*^9}, {3.7359476330302925`*^9, 
   3.7359476398607283`*^9}, {3.7359476774812794`*^9, 3.735947685518955*^9}, {
   3.7359477190611243`*^9, 3.7359477649977536`*^9}, {3.7359478015151215`*^9, 
   3.735947803601123*^9}, {3.735948131063064*^9, 3.7359481459541864`*^9}, 
   3.735948464070346*^9, {3.735948504684469*^9, 3.735948507824112*^9}, {
   3.735948743784253*^9, 3.735948749559228*^9}, {3.735949945234105*^9, 
   3.7359499465001073`*^9}, {3.7359500622570176`*^9, 3.735950226107865*^9}, {
   3.7359515522003756`*^9, 3.735951553135375*^9}, {3.735951723952669*^9, 
   3.7359517244590783`*^9}, {3.7359517887346163`*^9, 
   3.7359518036197653`*^9}, {3.735951905290453*^9, 3.7359519097072325`*^9}, 
   3.7359519573948507`*^9, {3.7359520234838543`*^9, 3.735952025644888*^9}, {
   3.7681908070997443`*^9, 3.7681908156289005`*^9}, {3.768191995800071*^9, 
   3.7681919974676075`*^9}},ExpressionUUID->"61e613b1-2b3e-4acf-9231-\
9515417b1b0c"],

Cell[BoxData[{
 StyleBox[
  RowBox[{"Parameter", " "}], "Subtitle"], "\[IndentingNewLine]", 
 StyleBox[
  RowBox[{
  "Detailed", " ", "description", " ", "can", " ", "be", " ", "found", " ", 
   "in", " ", "Table", " ", "EV3", " ", "and", " ", "4"}], 
  "Subtitle"]}], "Input",
 CellChangeTimes->{{3.763002667903084*^9, 3.7630026693572087`*^9}, {
  3.76300271267375*^9, 3.7630028183641186`*^9}, {3.7636074145938997`*^9, 
  3.7636074243059363`*^9}},ExpressionUUID->"1f6fb607-864a-4eb6-8370-\
7530c3783c7c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Transcription", " ", "Rate"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"trPo", "=", "25.9201"}], ";", 
    RowBox[{"trPt", "=", 
     RowBox[{
      RowBox[{"parachange", "[", 
       RowBox[{"[", "1", "]"}], "]"}], "*", "44.854`"}]}], ";", 
    RowBox[{"trRo", "=", 
     RowBox[{
      RowBox[{"parachange", "[", 
       RowBox[{"[", "6", "]"}], "]"}], "*", "23.0747`"}]}], ";", 
    RowBox[{"trRt", "=", 
     RowBox[{
      RowBox[{"parachange", "[", 
       RowBox[{"[", "5", "]"}], "]"}], "*", "39.9409`"}]}], ";", 
    RowBox[{"trB", "=", "46.1038`"}], ";", 
    RowBox[{"trRev", "=", "102.92299999999999`"}], ";", 
    RowBox[{"trNp", "=", "0.3297485941817571`"}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Translation", " ", "Rate"}], "*)"}], "\n", 
   RowBox[{
    RowBox[{"tlp", "=", "1.81031"}], ";", 
    RowBox[{"tlr", "=", "5.03882"}], ";", 
    RowBox[{"tlb", "=", "0.530436"}], ";", 
    RowBox[{"tlrev", "=", "8.90744"}], ";", 
    RowBox[{"tlc", "=", "4.645890"}], ";", 
    RowBox[{"tlnp", "=", "1.25099"}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"Binding", "/", "Unbinding"}], " ", "Rate", " ", "between", " ", 
     "Proteins"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"agp", "=", "1.3962`"}], ";", 
    RowBox[{"dg", "=", "2.93521`"}], ";", 
    RowBox[{"ac", "=", "0.0456572`"}], ";", 
    RowBox[{"dc", "=", "0.108072`"}], ";", 
    RowBox[{"ar", "=", "0.0235285`"}], ";", 
    RowBox[{"dr", "=", "0.605268`"}], ";", 
    RowBox[{"cbin", "=", "0.0454894`"}], ";", 
    RowBox[{"uncbin", "=", "7.27215`"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"bbin", "=", "6.92686`"}], ";", 
    RowBox[{"unbbin", "=", "0.130196`"}], ";", 
    RowBox[{"cbbin", "=", "6.59924`"}], ";", 
    RowBox[{"uncbbin", "=", "0.304176`"}], ";", 
    RowBox[{"ag", "=", "0.162392"}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"Binding", "/", "Unbinding"}], " ", "Rate", " ", "on", " ", 
     "Promoters"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"bin", "=", "6.97166`"}], ";", 
    RowBox[{"unbin", "=", "0.255032`"}], ";", 
    RowBox[{"binrev", "=", "0.0120525`"}], ";", 
    RowBox[{"unbinrev", "=", "10.9741`"}], ";", 
    RowBox[{"binr", "=", "6.15445`"}], ";", 
    RowBox[{"unbinr", "=", "2.91009`"}], ";", 
    RowBox[{"binc", "=", "0.280863`"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"unbinc", "=", "0.00886752`"}], ";", 
    RowBox[{"binrevb", "=", "0.00626588`"}], ";", 
    RowBox[{"unbinrevb", "=", "5.30559`"}], ";"}], "\n", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Translocation", " ", "Rate"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"tmc", "=", "0.16426`"}], ";", 
    RowBox[{"tmcrev", "=", "9.2631`"}], ";", 
    RowBox[{"nl", "=", "0.643086`"}], ";", 
    RowBox[{"ne", "=", "0.0269078`"}], ";", 
    RowBox[{"nlrev", "=", "9.63702`"}], ";", 
    RowBox[{"nerev", "=", "0.0152514`"}], ";", 
    RowBox[{"lne", "=", "0.594609`"}], ";", 
    RowBox[{"nlbc", "=", "5.26501`"}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Phosphorylation", " ", "Rate"}], "*)"}], "\n", 
   RowBox[{
    RowBox[{"hoo", "=", "0.527453`"}], ";", 
    RowBox[{"hto", "=", 
     RowBox[{
      RowBox[{"parachange", "[", 
       RowBox[{"[", "2", "]"}], "]"}], "*", "2.45584`"}]}], ";", 
    RowBox[{"phos", "=", 
     RowBox[{
      RowBox[{"parachange", "[", 
       RowBox[{"[", "8", "]"}], "]"}], "*", "0.291429`"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Light", " ", "Effet"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lono", "=", "2.430974274075263`"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lont", "=", "4.6820111190704266`"}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"GSK3b", " ", "Activity"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"trgto", "=", "0.644602`"}], ";", 
    RowBox[{"ugto", "=", 
     RowBox[{
      RowBox[{"parachange", "[", 
       RowBox[{"[", "4", "]"}], "]"}], "*", "0.0625777`"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "Ratio", " ", "beteeen", " ", "Cytoplasm", " ", "and", " ", "Nucleus"}], 
    "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Nf", "=", "3.35063`"}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Degradation", " ", "Rate"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"up", "=", "3.537`"}], ";", 
    RowBox[{"uro", "=", 
     RowBox[{
      RowBox[{"parachange", "[", 
       RowBox[{"[", "7", "]"}], "]"}], "*", "0.17491`"}]}], ";", 
    RowBox[{"urt", "=", "0.481895`"}], ";", 
    RowBox[{"umNp", "=", "0.369493`"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"umPo", "=", "0.76696222`"}], ";", 
    RowBox[{"umPt", "=", "0.58891980`"}], ";", 
    RowBox[{"umRo", "=", "0.40342526000000006`"}], ";", 
    RowBox[{"umRt", "=", "0.45554418`"}], ";", 
    RowBox[{"ub", "=", "0.018800209999999998`"}], ";", 
    RowBox[{"uc", "=", "0.025165115999999998`"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ubc", "=", "0.34882936000000003`"}], ";", 
    RowBox[{"upu", "=", "0.0700322`"}], ";", 
    RowBox[{"urev", "=", "1.6487614725107194`"}], ";", 
    RowBox[{"uprev", "=", "0.5173026723236928`"}], ";", 
    RowBox[{"umB", "=", "0.7954019999999999`"}], ";", 
    RowBox[{"umRev", "=", "1.510194`"}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "Initial", " ", "free", " ", "plasma", " ", "concentration", " ", "of", 
     " ", "CK1", " ", "inhibitor", " ", 
     RowBox[{"(", 
      RowBox[{"10", "mpk"}], ")"}]}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"prodi", "=", "6562.5"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "Transfer", " ", "rate", " ", "from", " ", "plasma", " ", "to", " ", 
     "brain", " ", "for", " ", "CK1", " ", "inhibitor"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"nlpin", "=", "1"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "Transfer", " ", "rate", " ", "from", " ", "brain", " ", "to", " ", 
     "plasma", " ", "for", " ", "CK1", " ", "inhibitor"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"nepin", "=", "1"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "Transfer", " ", "rate", " ", "from", " ", "brain", " ", "to", " ", 
     "cell", " ", "for", " ", "CK1", " ", "inhibitor"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"nlbin", "=", "0.15"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "Transfer", " ", "rate", " ", "from", " ", "cell", " ", "to", " ", 
     "brain", " ", "for", " ", "CK1", " ", "inhibitor"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"nebin", "=", "23"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "Nuclear", " ", "localization", " ", "rate", " ", "constant", " ", "for", 
     " ", "CKI", " ", "inhibitor"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"nlin", "=", "0.533183`"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "Nuclear", " ", "export", " ", "rate", " ", "constant", " ", "for", " ", 
     "CKI", " ", "inhibitor"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"nein", "=", "0.192038`"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "Nuclear", " ", "export", " ", "rate", " ", "constant", " ", "for", " ", 
     "CKI", " ", "and", " ", "CKI", " ", "inhibitor", " ", "complex"}], 
    "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lnei", "=", "0.0472142`"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "Binding", " ", "rate", " ", "constant", " ", "for", " ", "CKI", " ", 
     "inhibitor", " ", "to", " ", "CKI"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"inbin", "=", "0.42118`"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "Unbinding", " ", "rate", " ", "constant", " ", "for", " ", "CKI", " ", 
     "inhibitor", " ", "to", " ", "CKI"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"inubin", "=", "3.38008`"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "Clearance", " ", "rate", " ", "constant", " ", "for", " ", "free", " ", 
     "CKI", " ", "inhibitor", " ", "in", " ", "blood", " ", "plasma"}], 
    "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"uinp", "=", "2"}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.7359519877448597`*^9, 3.7359519942858777`*^9}, {
  3.7359520665748568`*^9, 3.7359520675046906`*^9}, {3.735953683735149*^9, 
  3.735953685768963*^9}, {3.736022028834972*^9, 3.7360220334629974`*^9}, {
  3.763430569109019*^9, 3.7634305858228674`*^9}, {3.7634609585194416`*^9, 
  3.7634609895418024`*^9}, {3.763464914725775*^9, 3.7634649548185315`*^9}, {
  3.763465004176546*^9, 
  3.76346510902287*^9}},ExpressionUUID->"319b0d01-4636-43b1-8852-\
bea9e178f92d"],

Cell[BoxData[{
 StyleBox[
  RowBox[{
   RowBox[{"Equations", " ", "for", " ", "Single"}], "-", 
   RowBox[{
   "state", " ", "Variables", " ", "while", " ", "light", " ", "is", " ", 
    "off"}]}], "Subsubtitle"], "\[IndentingNewLine]", 
 StyleBox[
  RowBox[{
  "Detailed", " ", "description", " ", "can", " ", "be", " ", "found", " ", 
   "in", " ", "Appendix", " ", "Equation", " ", "1", " ", "and", " ", "Table",
    " ", "EV1"}], "Subsubtitle"]}], "Input",
 CellChangeTimes->{{3.7630024009636583`*^9, 3.7630024231902256`*^9}, {
  3.763002494119557*^9, 3.7630025240195794`*^9}, {3.7630025705751114`*^9, 
  3.7630025708763075`*^9}, {3.763607443168491*^9, 3.7636074531807175`*^9}, {
  3.763607486109662*^9, 3.763607488984011*^9}, {3.763607729635461*^9, 
  3.7636077303714924`*^9}},ExpressionUUID->"e3210bab-2289-4d97-a9df-\
876e117cebe1"],

Cell[BoxData[
 RowBox[{
  RowBox[{"daone", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{"(*", 
     RowBox[{"Original", " ", "model", " ", "equations"}], "*)"}], 
    "\[IndentingNewLine]", 
    RowBox[{"(*", 
     RowBox[{"E", "-", 
      RowBox[{"box", " ", "activity"}]}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"GR", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"bin", "*", 
        RowBox[{"(", 
         RowBox[{"Sum", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"x", "[", "0", "]"}], "[", "kk", "]"}], "[", "0", 
               "]"}], "[", "1", "]"}], "[", "1", "]"}], "[", "t", "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"kk", ",", "1", ",", "2"}], "}"}]}], "]"}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"G", "[", "t", "]"}], "-", 
          RowBox[{"GR", "[", "t", "]"}]}], ")"}]}], "-", 
       RowBox[{"unbin", "*", 
        RowBox[{"GR", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"G", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"bin", "*", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"x", "[", "0", "]"}], "[", "0", "]"}], "[", "0", "]"}], 
           "[", "1", "]"}], "[", "1", "]"}], "[", "t", "]"}], "*", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"G", "[", "t", "]"}], "-", 
          RowBox[{"GR", "[", "t", "]"}]}], ")"}]}], "-", 
       RowBox[{"unbin", "*", 
        RowBox[{"G", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"GrR", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"binr", "*", 
        RowBox[{"(", 
         RowBox[{"Sum", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"x", "[", "0", "]"}], "[", "kk", "]"}], "[", "0", 
               "]"}], "[", "1", "]"}], "[", "1", "]"}], "[", "t", "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"kk", ",", "1", ",", "2"}], "}"}]}], "]"}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"Gr", "[", "t", "]"}], "-", 
          RowBox[{"GrR", "[", "t", "]"}]}], ")"}]}], "-", 
       RowBox[{"unbinr", "*", 
        RowBox[{"GrR", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"Gr", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"binr", "*", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"x", "[", "0", "]"}], "[", "0", "]"}], "[", "0", "]"}], 
           "[", "1", "]"}], "[", "1", "]"}], "[", "t", "]"}], "*", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"Gr", "[", "t", "]"}], "-", 
          RowBox[{"GrR", "[", "t", "]"}]}], ")"}]}], "-", 
       RowBox[{"unbinr", "*", 
        RowBox[{"Gr", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"GcR", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"binc", "*", 
        RowBox[{"(", 
         RowBox[{"Sum", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"x", "[", "0", "]"}], "[", "kk", "]"}], "[", "0", 
               "]"}], "[", "1", "]"}], "[", "1", "]"}], "[", "t", "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"kk", ",", "1", ",", "2"}], "}"}]}], "]"}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"Gc", "[", "t", "]"}], "-", 
          RowBox[{"GcR", "[", "t", "]"}]}], ")"}]}], "-", 
       RowBox[{"unbinc", "*", 
        RowBox[{"GcR", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"Gc", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"binc", "*", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"x", "[", "0", "]"}], "[", "0", "]"}], "[", "0", "]"}], 
           "[", "1", "]"}], "[", "1", "]"}], "[", "t", "]"}], "*", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"Gc", "[", "t", "]"}], "-", 
          RowBox[{"GcR", "[", "t", "]"}]}], ")"}]}], "-", 
       RowBox[{"unbinc", "*", 
        RowBox[{"Gc", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{"RORE", " ", "activity"}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"GBR", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"binrev", "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"revn", "[", "t", "]"}], "+", 
          RowBox[{"revng", "[", "t", "]"}], "+", 
          RowBox[{"revngp", "[", "t", "]"}], "+", 
          RowBox[{"revnp", "[", "t", "]"}]}], ")"}], "*", 
        RowBox[{"GB", "[", "t", "]"}]}], "-", 
       RowBox[{"unbinrev", "*", 
        RowBox[{"GBR", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"GB", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "binrev"}], "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"revn", "[", "t", "]"}], "+", 
          RowBox[{"revng", "[", "t", "]"}], "+", 
          RowBox[{"revngp", "[", "t", "]"}], "+", 
          RowBox[{"revnp", "[", "t", "]"}]}], ")"}], "*", 
        RowBox[{"GB", "[", "t", "]"}]}], "+", 
       RowBox[{"unbinrev", "*", 
        RowBox[{"GBR", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"GBRb", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"binrevb", "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"revn", "[", "t", "]"}], "+", 
          RowBox[{"revng", "[", "t", "]"}], "+", 
          RowBox[{"revngp", "[", "t", "]"}], "+", 
          RowBox[{"revnp", "[", "t", "]"}]}], ")"}], "*", 
        RowBox[{"GBb", "[", "t", "]"}]}], "-", 
       RowBox[{"unbinrevb", "*", 
        RowBox[{"GBRb", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"GBb", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "binrevb"}], "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"revn", "[", "t", "]"}], "+", 
          RowBox[{"revng", "[", "t", "]"}], "+", 
          RowBox[{"revngp", "[", "t", "]"}], "+", 
          RowBox[{"revnp", "[", "t", "]"}]}], ")"}], "*", 
        RowBox[{"GBb", "[", "t", "]"}]}], "+", 
       RowBox[{"unbinrevb", "*", 
        RowBox[{"GBRb", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", "Transcription", "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"MnPo", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"trPo", "*", 
        RowBox[{"G", "[", "t", "]"}]}], "-", 
       RowBox[{"tmc", "*", 
        RowBox[{"MnPo", "[", "t", "]"}]}], "-", 
       RowBox[{"umPo", "*", 
        RowBox[{"MnPo", "[", "t", "]"}]}]}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"McPo", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"tmc", "*", 
        RowBox[{"MnPo", "[", "t", "]"}]}], "-", 
       RowBox[{"umPo", "*", 
        RowBox[{"McPo", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"MnPt", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"trPt", "*", 
        RowBox[{"G", "[", "t", "]"}]}], "-", 
       RowBox[{"tmc", "*", 
        RowBox[{"MnPt", "[", "t", "]"}]}], "-", 
       RowBox[{"umPt", "*", 
        RowBox[{"MnPt", "[", "t", "]"}]}]}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"McPt", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"tmc", "*", 
        RowBox[{"MnPt", "[", "t", "]"}]}], "-", 
       RowBox[{"umPt", "*", 
        RowBox[{"McPt", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"MnRt", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"trRt", "*", 
        RowBox[{"Gc", "[", "t", "]"}]}], "-", 
       RowBox[{"tmc", "*", 
        RowBox[{"MnRt", "[", "t", "]"}]}], "-", 
       RowBox[{"umRt", "*", 
        RowBox[{"MnRt", "[", "t", "]"}]}]}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"McRt", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"tmc", "*", 
        RowBox[{"MnRt", "[", "t", "]"}]}], "-", 
       RowBox[{"umRt", "*", 
        RowBox[{"McRt", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"MnRev", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"trRev", "*", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"x", "[", "0", "]"}], "[", "0", "]"}], "[", "0", "]"}], 
           "[", "1", "]"}], "[", "1", "]"}], "[", "t", "]"}], "*", 
        RowBox[{"Gr", "[", "t", "]"}]}], "-", 
       RowBox[{"tmcrev", "*", 
        RowBox[{"MnRev", "[", "t", "]"}]}], "-", 
       RowBox[{"umRev", "*", 
        RowBox[{"MnRev", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"McRev", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"tmcrev", "*", 
        RowBox[{"MnRev", "[", "t", "]"}]}], "-", 
       RowBox[{"umRev", "*", 
        RowBox[{"McRev", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"MnRo", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"trRo", "*", 
        RowBox[{"G", "[", "t", "]"}], "*", 
        RowBox[{"GB", "[", "t", "]"}]}], "-", 
       RowBox[{"tmc", "*", 
        RowBox[{"MnRo", "[", "t", "]"}]}], "-", 
       RowBox[{"umRo", "*", 
        RowBox[{"MnRo", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"McRo", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"tmc", "*", 
        RowBox[{"MnRo", "[", "t", "]"}]}], "-", 
       RowBox[{"umRo", "*", 
        RowBox[{"McRo", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"MnB", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"trB", "*", 
        RowBox[{"GBb", "[", "t", "]"}]}], "-", 
       RowBox[{"tmc", "*", 
        RowBox[{"MnB", "[", "t", "]"}]}], "-", 
       RowBox[{"umB", "*", 
        RowBox[{"MnB", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"McB", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"tmc", "*", 
        RowBox[{"MnB", "[", "t", "]"}]}], "-", 
       RowBox[{"umB", "*", 
        RowBox[{"McB", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"MnNp", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"trNp", "*", 
        RowBox[{"GB", "[", "t", "]"}]}], "-", 
       RowBox[{"tmc", "*", 
        RowBox[{"MnNp", "[", "t", "]"}]}], "-", 
       RowBox[{"umNp", "*", 
        RowBox[{"MnNp", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"McNp", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"tmc", "*", 
        RowBox[{"MnNp", "[", "t", "]"}]}], "-", 
       RowBox[{"umNp", "*", 
        RowBox[{"McNp", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{"Secondary", " ", "Feedback", " ", "Loop"}], "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"B", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"tlb", "*", 
        RowBox[{"McB", "[", "t", "]"}]}], "-", 
       RowBox[{"cbin", "*", 
        RowBox[{"B", "[", "t", "]"}], "*", 
        RowBox[{"Cl", "[", "t", "]"}]}], "+", 
       RowBox[{"uncbin", "*", 
        RowBox[{"BC", "[", "t", "]"}]}], "-", 
       RowBox[{"ub", "*", 
        RowBox[{"B", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"Cl", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"tlnp", "*", 
        RowBox[{"McNp", "[", "t", "]"}]}], "+", "tlc", "-", 
       RowBox[{"cbin", "*", 
        RowBox[{"B", "[", "t", "]"}], "*", 
        RowBox[{"Cl", "[", "t", "]"}]}], "+", 
       RowBox[{"uncbin", "*", 
        RowBox[{"BC", "[", "t", "]"}]}], "-", 
       RowBox[{"uc", "*", 
        RowBox[{"Cl", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"BC", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"cbin", "*", 
        RowBox[{"B", "[", "t", "]"}], "*", 
        RowBox[{"Cl", "[", "t", "]"}]}], "-", 
       RowBox[{"uncbin", "*", 
        RowBox[{"BC", "[", "t", "]"}]}], "-", 
       RowBox[{"phos", "*", 
        RowBox[{"BC", "[", "t", "]"}]}], "-", 
       RowBox[{"ubc", "*", 
        RowBox[{"BC", "[", "t", "]"}]}]}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"cyrev", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"tlrev", "*", 
        RowBox[{"McRev", "[", "t", "]"}]}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"nlrev", "+", "urev"}], ")"}], "*", 
        RowBox[{"cyrev", "[", "t", "]"}]}], "-", 
       RowBox[{"ag", "*", 
        RowBox[{"cyrev", "[", "t", "]"}], "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"x", "[", "0", "]"}], "[", "0", "]"}], "[", "2", "]"}], 
            "[", "0", "]"}], "[", "0", "]"}], "[", "t", "]"}], ")"}]}], "+", 
       RowBox[{"nerev", "*", 
        RowBox[{"revn", "[", "t", "]"}]}], "+", 
       RowBox[{"dg", "*", 
        RowBox[{"cyrevg", "[", "t", "]"}]}]}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"revn", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         RowBox[{"(", 
          RowBox[{"nerev", "+", "urev"}], ")"}]}], "*", 
        RowBox[{"revn", "[", "t", "]"}]}], "-", 
       RowBox[{"ag", "*", "Nf", "*", 
        RowBox[{"revn", "[", "t", "]"}], "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"x", "[", "0", "]"}], "[", "0", "]"}], "[", "2", "]"}], 
            "[", "1", "]"}], "[", "0", "]"}], "[", "t", "]"}], ")"}]}], "+", 
       RowBox[{"nlrev", "*", 
        RowBox[{"cyrev", "[", "t", "]"}]}], "+", 
       RowBox[{"dg", "*", 
        RowBox[{"(", 
         RowBox[{"revng", "[", "t", "]"}], ")"}]}]}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"cyrevg", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"ag", "*", 
        RowBox[{"cyrev", "[", "t", "]"}], "*", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"x", "[", "0", "]"}], "[", "0", "]"}], "[", "2", "]"}], 
           "[", "0", "]"}], "[", "0", "]"}], "[", "t", "]"}]}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"dg", "+", 
          RowBox[{"gto", "[", "t", "]"}], "+", "urev", "+", "nlrev"}], ")"}], 
        "*", 
        RowBox[{"cyrevg", "[", "t", "]"}]}], "+", 
       RowBox[{"nerev", "*", 
        RowBox[{"revng", "[", "t", "]"}]}]}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"revng", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"ag", "*", "Nf", "*", 
        RowBox[{"revn", "[", "t", "]"}], "*", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"x", "[", "0", "]"}], "[", "0", "]"}], "[", "2", "]"}], 
           "[", "1", "]"}], "[", "0", "]"}], "[", "t", "]"}]}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"dg", "+", 
          RowBox[{"gto", "[", "t", "]"}], "+", "urev", "+", "nerev"}], ")"}], 
        "*", 
        RowBox[{"revng", "[", "t", "]"}]}], "+", 
       RowBox[{"nlrev", "*", 
        RowBox[{"cyrevg", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"cyrevgp", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{
        RowBox[{"gto", "[", "t", "]"}], "*", 
        RowBox[{"cyrevg", "[", "t", "]"}]}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"dg", "+", "uprev", "+", "nlrev"}], ")"}], "*", 
        RowBox[{"cyrevgp", "[", "t", "]"}]}], "+", 
       RowBox[{"nerev", "*", 
        RowBox[{"revngp", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"revngp", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{
        RowBox[{"gto", "[", "t", "]"}], "*", 
        RowBox[{"revng", "[", "t", "]"}]}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"dg", "+", "uprev", "+", "nerev"}], ")"}], "*", 
        RowBox[{"revngp", "[", "t", "]"}]}], "+", 
       RowBox[{"nlrev", "*", 
        RowBox[{"cyrevgp", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"cyrevp", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"dg", "*", 
        RowBox[{"(", 
         RowBox[{"cyrevgp", "[", "t", "]"}], ")"}]}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"uprev", "+", "nlrev"}], ")"}], "*", 
        RowBox[{"cyrevp", "[", "t", "]"}]}], "+", 
       RowBox[{"nerev", "*", 
        RowBox[{"revnp", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"revnp", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"dg", "*", 
        RowBox[{"(", 
         RowBox[{"revngp", "[", "t", "]"}], ")"}]}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"uprev", "+", "nerev"}], ")"}], "*", 
        RowBox[{"revnp", "[", "t", "]"}]}], "+", 
       RowBox[{"nlrev", "*", 
        RowBox[{"cyrevp", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{"Activity", " ", "of", " ", "GSK3b"}], "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"gto", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"trgto", "*", 
        RowBox[{"G", "[", "t", "]"}], "*", 
        RowBox[{"GB", "[", "t", "]"}]}], "-", 
       RowBox[{"ugto", "*", 
        RowBox[{"gto", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{"Free", " ", "Blood", " ", "Plsma", " ", "Concentration"}], 
      "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"pInh", "'"}], "[", "t", "]"}], "==", 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         RowBox[{"(", 
          RowBox[{"uinp", "+", "nlpin"}], ")"}]}], "*", 
        RowBox[{"pInh", "[", "t", "]"}]}], "+", 
       RowBox[{"nepin", "*", 
        RowBox[{"bInh", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{"Free", " ", "Brain", " ", "Tissue", " ", "Concentration"}], 
      "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"bInh", "'"}], "[", "t", "]"}], "==", 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         RowBox[{"(", 
          RowBox[{"nlbin", "+", "nepin"}], ")"}]}], "*", 
        RowBox[{"bInh", "[", "t", "]"}]}], "+", 
       RowBox[{"nlpin", "*", 
        RowBox[{"pInh", "[", "t", "]"}]}], "+", 
       RowBox[{"nebin", "*", 
        RowBox[{"Inh", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{"Free", " ", "Cytoplasm", " ", "Concentration"}], "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"Inh", "'"}], "[", "t", "]"}], "==", 
      RowBox[{
       RowBox[{"nlbin", "*", 
        RowBox[{"bInh", "[", "t", "]"}]}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"nebin", "+", "nlin"}], ")"}], "*", 
        RowBox[{"Inh", "[", "t", "]"}]}], "+", 
       RowBox[{"nein", "*", 
        RowBox[{"nInh", "[", "t", "]"}]}], "+", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "inbin"}], "*", 
         RowBox[{"Inh", "[", "t", "]"}], "*", 
         RowBox[{"Sum", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"x", "[", "jj", "]"}], "[", "kk", "]"}], "[", "ll", 
               "]"}], "[", "0", "]"}], "[", "0", "]"}], "[", "t", "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"jj", ",", "0", ",", "6"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"kk", ",", "0", ",", "2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"ll", ",", "1", ",", "3", ",", "2"}], "}"}]}], "]"}]}], 
        ")"}], "+", 
       RowBox[{"inubin", "*", 
        RowBox[{"Sum", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"x", "[", "jj", "]"}], "[", "kk", "]"}], "[", "ll", 
              "]"}], "[", "0", "]"}], "[", "0", "]"}], "[", "t", "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"jj", ",", "0", ",", "6"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"kk", ",", "0", ",", "2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"ll", ",", "4", ",", "5"}], "}"}]}], "]"}]}]}]}], ",", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{"Free", " ", "Nucleus", " ", "Concentration"}], "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"nInh", "'"}], "[", "t", "]"}], "==", 
      RowBox[{
       RowBox[{
        RowBox[{"Inh", "[", "t", "]"}], "*", "nlin"}], "-", 
       RowBox[{
        RowBox[{"(", "nein", ")"}], "*", 
        RowBox[{"nInh", "[", "t", "]"}]}], "-", 
       RowBox[{"(", 
        RowBox[{"inbin", "*", "Nf", "*", 
         RowBox[{"nInh", "[", "t", "]"}], "*", 
         RowBox[{"Sum", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"x", "[", "jj", "]"}], "[", "kk", "]"}], "[", "ll", 
               "]"}], "[", "1", "]"}], "[", "nn", "]"}], "[", "t", "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"jj", ",", "0", ",", "6"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"kk", ",", "0", ",", "2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"ll", ",", "1", ",", "3", ",", "2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"nn", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ")"}], "+", 
       RowBox[{"inubin", "*", 
        RowBox[{"Sum", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"x", "[", "jj", "]"}], "[", "kk", "]"}], "[", "ll", 
              "]"}], "[", "1", "]"}], "[", "nn", "]"}], "[", "t", "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"jj", ",", "0", ",", "6"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"kk", ",", "0", ",", "2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"ll", ",", "4", ",", "5"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"nn", ",", "0", ",", "1"}], "}"}]}], "]"}]}]}]}]}], 
    "\[IndentingNewLine]", "\[IndentingNewLine]", "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.735952008906887*^9, 3.7359520135308847`*^9}, {
  3.735952091910884*^9, 3.7359521226429167`*^9}, {3.735953705496621*^9, 
  3.7359537081206636`*^9}},ExpressionUUID->"b706dc92-32dc-40b8-a448-\
e86636be097a"],

Cell[BoxData[{
 StyleBox[
  RowBox[{
   RowBox[{"Equations", " ", "for", " ", "Multi"}], "-", 
   RowBox[{"state", " ", "Variables", " ", 
    RowBox[{"(", 
     RowBox[{"Protein", " ", "complexes"}], ")"}]}]}], 
  "Subsubtitle"], "\[IndentingNewLine]", 
 StyleBox[
  RowBox[{
  "Detailed", " ", "description", " ", "can", " ", "be", " ", "found", " ", 
   "in", " ", "Appendix", " ", "Equation", " ", "1", " ", "and", " ", "Table",
    " ", "EV2"}], "Subsubtitle"]}], "Input",
 CellChangeTimes->{{3.763002251773065*^9, 3.7630022526327953`*^9}, {
  3.763002288428258*^9, 3.7630023468121595`*^9}, {3.763002386413535*^9, 
  3.7630024843147535`*^9}, {3.7630025143304777`*^9, 3.7630025204990096`*^9}, {
  3.763607492627234*^9, 3.7636075048216276`*^9}, {3.7636077250497246`*^9, 
  3.7636077267950573`*^9}},ExpressionUUID->"00754abd-e718-432f-b729-\
d9ebb80382b8"],

Cell[BoxData[
 RowBox[{
  RowBox[{"atwo", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", "]"}], 
           "[", "m", "]"}], "[", "n", "]"}], "'"}], "[", "t", "]"}], 
       "\[Equal]", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{"CK1", "-", 
         RowBox[{"CK1", " ", "Inhibitor", " ", 
          RowBox[{"Binidng", "/", "Unbinidng"}]}]}], "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"l", "\[Equal]", "1"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"m", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "\[Equal]", "0"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "inbin"}], "*", 
            RowBox[{"Inh", "[", "t", "]"}], "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}], 
           "+", 
           RowBox[{"inubin", "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "4", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}]}], 
          ",", "0"}], "]"}], "+", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"l", "\[Equal]", "3"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"m", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "\[Equal]", "0"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "inbin"}], "*", 
            RowBox[{"Inh", "[", "t", "]"}], "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}], 
           "+", 
           RowBox[{"inubin", "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "5", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}]}], 
          ",", "0"}], "]"}], "+", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"l", "\[Equal]", "4"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"m", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "\[Equal]", "0"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{"inbin", "*", 
            RowBox[{"Inh", "[", "t", "]"}], "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "1", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}], 
           "-", 
           RowBox[{"inubin", "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}]}], 
          ",", "0"}], "]"}], "+", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"l", "\[Equal]", "5"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"m", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "\[Equal]", "0"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{"inbin", "*", 
            RowBox[{"Inh", "[", "t", "]"}], "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "3", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}], 
           "-", 
           RowBox[{"inubin", "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}]}], 
          ",", "0"}], "]"}], "+", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"l", "\[Equal]", "1"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"m", "\[Equal]", "1"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "inbin"}], "*", "Nf", "*", 
            RowBox[{"nInh", "[", "t", "]"}], "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}], 
           "+", 
           RowBox[{"inubin", "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "4", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}]}], 
          ",", "0"}], "]"}], "+", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"l", "\[Equal]", "3"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"m", "\[Equal]", "1"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "inbin"}], "*", "Nf", "*", 
            RowBox[{"nInh", "[", "t", "]"}], "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}], 
           "+", 
           RowBox[{"inubin", "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "5", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}]}], 
          ",", "0"}], "]"}], "+", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"l", "\[Equal]", "4"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"m", "\[Equal]", "1"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{"inbin", "*", "Nf", "*", 
            RowBox[{"nInh", "[", "t", "]"}], "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "1", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}], 
           "-", 
           RowBox[{"inubin", "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}]}], 
          ",", "0"}], "]"}], "+", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"l", "\[Equal]", "5"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"m", "\[Equal]", "1"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{"inbin", "*", "Nf", "*", 
            RowBox[{"nInh", "[", "t", "]"}], "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "3", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}], 
           "-", 
           RowBox[{"inubin", "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}]}], 
          ",", "0"}], "]"}], "+", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", "Trnaslation", "*)"}], "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"j", "\[Equal]", "1"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"k", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"l", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"m", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "\[Equal]", "0"}], ")"}]}], ",", 
          RowBox[{"tlp", "*", 
           RowBox[{"McPo", "[", "t", "]"}]}], ",", "0"}], "]"}], "+", 
        "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"j", "\[Equal]", "3"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"k", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"l", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"m", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "\[Equal]", "0"}], ")"}]}], ",", 
          RowBox[{"tlp", "*", 
           RowBox[{"McPt", "[", "t", "]"}]}], ",", "0"}], "]"}], "+", 
        "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"j", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"k", "\[Equal]", "1"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"l", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"m", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "\[Equal]", "0"}], ")"}]}], ",", 
          RowBox[{"tlr", "*", 
           RowBox[{"McRo", "[", "t", "]"}]}], ",", "0"}], "]"}], "+", 
        "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"j", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"k", "\[Equal]", "2"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"l", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"m", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "\[Equal]", "0"}], ")"}]}], ",", 
          RowBox[{"tlr", "*", 
           RowBox[{"McRt", "[", "t", "]"}]}], ",", "0"}], "]"}], "+", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{"PER", "-", 
          RowBox[{"CRY", " ", 
           RowBox[{"Binidng", "/", "Unbinidng"}]}]}], "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"k", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"j", "\[Equal]", "2"}], ")"}], "||", 
             RowBox[{"(", 
              RowBox[{"j", "\[Equal]", "4"}], ")"}], "||", 
             RowBox[{"(", 
              RowBox[{"j", "\[Equal]", "5"}], ")"}], "||", 
             RowBox[{"(", 
              RowBox[{"j", "\[Equal]", "6"}], ")"}]}], ")"}]}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "ar"}], "*", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"m", "\[Equal]", "1"}], ",", "Nf", ",", "1"}], "]"}], 
            "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}], "*", 
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"x", "[", "0", "]"}], "[", "kk", "]"}], "[", "0", 
                  "]"}], "[", "m", "]"}], "[", "0", "]"}], "[", "t", "]"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"kk", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "+", 
           RowBox[{"dr", "*", 
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"x", "[", "j", "]"}], "[", "kk", "]"}], "[", "l", 
                  "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"kk", ",", "1", ",", "2"}], "}"}]}], "]"}]}]}], ",", 
          "0"}], "]"}], "+", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"j", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"k", "\[Equal]", "1"}], ")"}], "||", 
             RowBox[{"(", 
              RowBox[{"k", "\[Equal]", "2"}], ")"}]}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"l", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "\[Equal]", "0"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "ar"}], "*", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"m", "\[Equal]", "1"}], ",", "Nf", ",", "1"}], "]"}], 
            "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}], "*", 
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"x", "[", "jj", "]"}], "[", "0", "]"}], "[", "ll", 
                  "]"}], "[", "m", "]"}], "[", "0", "]"}], "[", "t", "]"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"jj", ",", 
                RowBox[{"{", 
                 RowBox[{"2", ",", "4", ",", "5", ",", "6"}], "}"}]}], "}"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"ll", ",", "0", ",", "5"}], "}"}]}], "]"}]}], "+", 
           RowBox[{"dr", "*", 
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"x", "[", "jj", "]"}], "[", "k", "]"}], "[", "ll", 
                  "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"jj", ",", 
                RowBox[{"{", 
                 RowBox[{"2", ",", "4", ",", "5", ",", "6"}], "}"}]}], "}"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"ll", ",", "0", ",", "5"}], "}"}]}], "]"}]}]}], ",", 
          "0"}], "]"}], "+", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"j", "\[Equal]", "2"}], ")"}], "||", 
             RowBox[{"(", 
              RowBox[{"j", "\[Equal]", "4"}], ")"}], "||", 
             RowBox[{"(", 
              RowBox[{"j", "\[Equal]", "5"}], ")"}], "||", 
             RowBox[{"(", 
              RowBox[{"j", "\[Equal]", "6"}], ")"}]}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"k", "\[Equal]", "1"}], ")"}], "||", 
             RowBox[{"(", 
              RowBox[{"k", "\[Equal]", "2"}], ")"}]}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "\[Equal]", "0"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{"ar", "*", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"m", "\[Equal]", "1"}], ",", "Nf", ",", "1"}], "]"}], 
            "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "0", "]"}], "[", "k", "]"}], "[", "0", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}], "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "0", "]"}], "[", "l", 
                "]"}], "[", "m", "]"}], "[", "0", "]"}], "[", "t", "]"}]}], 
           "-", 
           RowBox[{"dr", "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}]}], 
          ",", "0"}], "]"}], "+", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"k", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "\[Equal]", "1"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"j", "\[Equal]", "2"}], ")"}], "||", 
             RowBox[{"(", 
              RowBox[{"j", "\[Equal]", "4"}], ")"}], "||", 
             RowBox[{"(", 
              RowBox[{"j", "\[Equal]", "5"}], ")"}], "||", 
             RowBox[{"(", 
              RowBox[{"j", "\[Equal]", "6"}], ")"}]}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"m", "\[Equal]", "1"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "ar"}], "*", "Nf", "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}], "*", 
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"x", "[", "0", "]"}], "[", "kk", "]"}], "[", "0", 
                  "]"}], "[", "m", "]"}], "[", "0", "]"}], "[", "t", "]"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"kk", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "+", 
           RowBox[{"dr", "*", 
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"x", "[", "j", "]"}], "[", "kk", "]"}], "[", "l", 
                  "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"kk", ",", "1", ",", "2"}], "}"}]}], "]"}]}]}], ",", 
          "0"}], "]"}], "+", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"j", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"k", "\[Equal]", "1"}], ")"}], "||", 
             RowBox[{"(", 
              RowBox[{"k", "\[Equal]", "2"}], ")"}]}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"l", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"m", "\[Equal]", "1"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "\[Equal]", "0"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "ar"}], "*", "Nf", "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}], "*", 
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"x", "[", "jj", "]"}], "[", "0", "]"}], "[", "ll", 
                  "]"}], "[", "m", "]"}], "[", "1", "]"}], "[", "t", "]"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"jj", ",", 
                RowBox[{"{", 
                 RowBox[{"2", ",", "4", ",", "5", ",", "6"}], "}"}]}], "}"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"ll", ",", "0", ",", "5"}], "}"}]}], "]"}]}], "+", 
           RowBox[{"dr", "*", 
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"x", "[", "jj", "]"}], "[", "k", "]"}], "[", "ll", 
                  "]"}], "[", "m", "]"}], "[", "1", "]"}], "[", "t", "]"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"jj", ",", 
                RowBox[{"{", 
                 RowBox[{"2", ",", "4", ",", "5", ",", "6"}], "}"}]}], "}"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"ll", ",", "0", ",", "5"}], "}"}]}], "]"}]}]}], ",", 
          "0"}], "]"}], "+", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"j", "\[Equal]", "2"}], ")"}], "||", 
             RowBox[{"(", 
              RowBox[{"j", "\[Equal]", "4"}], ")"}], "||", 
             RowBox[{"(", 
              RowBox[{"j", "\[Equal]", "5"}], ")"}], "||", 
             RowBox[{"(", 
              RowBox[{"j", "\[Equal]", "6"}], ")"}]}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"k", "\[Equal]", "1"}], ")"}], "||", 
             RowBox[{"(", 
              RowBox[{"k", "\[Equal]", "2"}], ")"}]}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"m", "\[Equal]", "1"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "\[Equal]", "1"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{"ar", "*", "Nf", "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "0", "]"}], "[", "l", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}], "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "0", "]"}], "[", "k", "]"}], "[", "0", 
                "]"}], "[", "m", "]"}], "[", "0", "]"}], "[", "t", "]"}]}], 
           "-", 
           RowBox[{"dr", "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}]}], 
          ",", "0"}], "]"}], "+", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"k", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"j", "\[Equal]", "2"}], ")"}], "||", 
             RowBox[{"(", 
              RowBox[{"j", "\[Equal]", "4"}], ")"}], "||", 
             RowBox[{"(", 
              RowBox[{"j", "\[Equal]", "5"}], ")"}], "||", 
             RowBox[{"(", 
              RowBox[{"j", "\[Equal]", "6"}], ")"}]}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"m", "\[Equal]", "1"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "ar"}], "*", "Nf", "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}], "*", 
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"x", "[", "0", "]"}], "[", "kk", "]"}], "[", "0", 
                  "]"}], "[", "m", "]"}], "[", "1", "]"}], "[", "t", "]"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"kk", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "+", 
           RowBox[{"dr", "*", 
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"x", "[", "j", "]"}], "[", "kk", "]"}], "[", "l", 
                  "]"}], "[", "m", "]"}], "[", "1", "]"}], "[", "t", "]"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"kk", ",", "1", ",", "2"}], "}"}]}], "]"}]}]}], ",", 
          "0"}], "]"}], "+", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"j", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"k", "\[Equal]", "1"}], ")"}], "||", 
             RowBox[{"(", 
              RowBox[{"k", "\[Equal]", "2"}], ")"}]}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"l", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"m", "\[Equal]", "1"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "\[Equal]", "1"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "ar"}], "*", "Nf", "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}], "*", 
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"x", "[", "jj", "]"}], "[", "0", "]"}], "[", "ll", 
                  "]"}], "[", "m", "]"}], "[", "0", "]"}], "[", "t", "]"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"jj", ",", 
                RowBox[{"{", 
                 RowBox[{"2", ",", "4", ",", "5", ",", "6"}], "}"}]}], "}"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"ll", ",", "0", ",", "5"}], "}"}]}], "]"}]}], "+", 
           RowBox[{"dr", "*", 
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"x", "[", "jj", "]"}], "[", "k", "]"}], "[", "ll", 
                  "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"jj", ",", 
                RowBox[{"{", 
                 RowBox[{"2", ",", "4", ",", "5", ",", "6"}], "}"}]}], "}"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"ll", ",", "0", ",", "5"}], "}"}]}], "]"}]}]}], ",", 
          "0"}], "]"}], "+", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"j", "\[Equal]", "2"}], ")"}], "||", 
             RowBox[{"(", 
              RowBox[{"j", "\[Equal]", "4"}], ")"}], "||", 
             RowBox[{"(", 
              RowBox[{"j", "\[Equal]", "5"}], ")"}], "||", 
             RowBox[{"(", 
              RowBox[{"j", "\[Equal]", "6"}], ")"}]}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"k", "\[Equal]", "1"}], ")"}], "||", 
             RowBox[{"(", 
              RowBox[{"k", "\[Equal]", "2"}], ")"}]}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"m", "\[Equal]", "1"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "\[Equal]", "1"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{"ar", "*", "Nf", "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "0", "]"}], "[", "l", 
                "]"}], "[", "m", "]"}], "[", "0", "]"}], "[", "t", "]"}], "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "0", "]"}], "[", "k", "]"}], "[", "0", 
                "]"}], "[", "m", "]"}], "[", "1", "]"}], "[", "t", "]"}]}], 
           "-", 
           RowBox[{"dr", "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}]}], 
          ",", "0"}], "]"}], "+", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{"PER", "-", 
          RowBox[{"CKI", " ", 
           RowBox[{"Binidng", "/", "Unbinidng"}]}]}], "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"l", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"j", ">", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "\[Equal]", "0"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "ac"}], "*", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"m", "\[Equal]", "1"}], ",", "Nf", ",", "1"}], "]"}], 
            "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}], "*", 
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"x", "[", "0", "]"}], "[", "0", "]"}], "[", "ll", 
                  "]"}], "[", "m", "]"}], "[", "0", "]"}], "[", "t", "]"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"ll", ",", "1", ",", "4", ",", "3"}], "}"}]}], "]"}]}],
            "+", 
           RowBox[{"dc", "*", 
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "ll", 
                  "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"ll", ",", "1", ",", "4", ",", "3"}], "}"}]}], 
             "]"}]}]}], ",", "0"}], "]"}], "+", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"j", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"k", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"l", "\[Equal]", "1"}], ")"}], "||", 
             RowBox[{"(", 
              RowBox[{"l", "\[Equal]", "4"}], ")"}]}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "\[Equal]", "0"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "ac"}], "*", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"m", "\[Equal]", "1"}], ",", "Nf", ",", "1"}], "]"}], 
            "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}], "*", 
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"x", "[", "jj", "]"}], "[", "kk", "]"}], "[", "0", 
                  "]"}], "[", "m", "]"}], "[", "0", "]"}], "[", "t", "]"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"jj", ",", "1", ",", "6"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"kk", ",", "0", ",", "2"}], "}"}]}], "]"}]}], "+", 
           RowBox[{"dc", "*", 
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"x", "[", "jj", "]"}], "[", "kk", "]"}], "[", "l", 
                  "]"}], "[", "m", "]"}], "[", "0", "]"}], "[", "t", "]"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"jj", ",", "1", ",", "6"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"kk", ",", "0", ",", "2"}], "}"}]}], "]"}]}]}], ",", 
          "0"}], "]"}], "+", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"j", ">", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"l", "\[Equal]", "1"}], ")"}], "||", 
             RowBox[{"(", 
              RowBox[{"l", "\[Equal]", "4"}], ")"}]}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "\[Equal]", "0"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{"ac", "*", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"m", "\[Equal]", "1"}], ",", "Nf", ",", "1"}], "]"}], 
            "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "0", "]"}], "[", "0", "]"}], "[", "l", 
                "]"}], "[", "m", "]"}], "[", "0", "]"}], "[", "t", "]"}], "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "0", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}], 
           "-", 
           RowBox[{"dc", "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}]}], 
          ",", "0"}], "]"}], "+", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"l", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"j", ">", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"m", "\[Equal]", "1"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "\[Equal]", "1"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "ac"}], "*", "Nf", "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}], "*", 
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"x", "[", "0", "]"}], "[", "0", "]"}], "[", "ll", 
                  "]"}], "[", "m", "]"}], "[", "0", "]"}], "[", "t", "]"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"ll", ",", "1", ",", "4", ",", "3"}], "}"}]}], "]"}]}],
            "+", 
           RowBox[{"dc", "*", 
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "ll", 
                  "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"ll", ",", "1", ",", "4", ",", "3"}], "}"}]}], 
             "]"}]}]}], ",", "0"}], "]"}], "+", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"j", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"k", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"l", "\[Equal]", "1"}], ")"}], "||", 
             RowBox[{"(", 
              RowBox[{"l", "\[Equal]", "4"}], ")"}]}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"m", "\[Equal]", "1"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "\[Equal]", "0"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "ac"}], "*", "Nf", "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}], "*", 
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"x", "[", "jj", "]"}], "[", "kk", "]"}], "[", "0", 
                  "]"}], "[", "m", "]"}], "[", "1", "]"}], "[", "t", "]"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"jj", ",", "1", ",", "6"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"kk", ",", "0", ",", "2"}], "}"}]}], "]"}]}], "+", 
           RowBox[{"dc", "*", 
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"x", "[", "jj", "]"}], "[", "kk", "]"}], "[", "l", 
                  "]"}], "[", "m", "]"}], "[", "1", "]"}], "[", "t", "]"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"jj", ",", "1", ",", "6"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"kk", ",", "0", ",", "2"}], "}"}]}], "]"}]}]}], ",", 
          "0"}], "]"}], "+", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"j", ">", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"l", "\[Equal]", "1"}], ")"}], "||", 
             RowBox[{"(", 
              RowBox[{"l", "\[Equal]", "4"}], ")"}]}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"m", "\[Equal]", "1"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "\[Equal]", "1"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{"ac", "*", "Nf", "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "0", "]"}], "[", "0", "]"}], "[", "l", 
                "]"}], "[", "m", "]"}], "[", "0", "]"}], "[", "t", "]"}], "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "0", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}], 
           "-", 
           RowBox[{"dc", "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}]}], 
          ",", "0"}], "]"}], "+", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"j", ">", "2"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"l", "\[Equal]", "2"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "\[Equal]", "0"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "ac"}], "*", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"m", "\[Equal]", "1"}], ",", "Nf", ",", "1"}], "]"}], 
            "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}], "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "0", "]"}], "[", "0", "]"}], "[", "1", 
                "]"}], "[", "m", "]"}], "[", "0", "]"}], "[", "t", "]"}]}], 
           "+", 
           RowBox[{"dc", "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "3", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}]}], 
          ",", "0"}], "]"}], "+", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"j", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"k", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"l", "\[Equal]", "1"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "\[Equal]", "0"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "ac"}], "*", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"m", "\[Equal]", "1"}], ",", "Nf", ",", "1"}], "]"}], 
            "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}], "*", 
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"x", "[", "jj", "]"}], "[", "kk", "]"}], "[", "2", 
                  "]"}], "[", "m", "]"}], "[", "0", "]"}], "[", "t", "]"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"jj", ",", "3", ",", "6"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"kk", ",", "0", ",", "2"}], "}"}]}], "]"}]}], "+", 
           RowBox[{"dc", "*", 
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"x", "[", "jj", "]"}], "[", "kk", "]"}], "[", "3", 
                  "]"}], "[", "m", "]"}], "[", "0", "]"}], "[", "t", "]"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"jj", ",", "3", ",", "6"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"kk", ",", "0", ",", "2"}], "}"}]}], "]"}]}]}], ",", 
          "0"}], "]"}], "+", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"j", ">", "2"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"l", "\[Equal]", "3"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "\[Equal]", "0"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{"ac", "*", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"m", "\[Equal]", "1"}], ",", "Nf", ",", "1"}], "]"}], 
            "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "2", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}], "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "0", "]"}], "[", "0", "]"}], "[", "1", 
                "]"}], "[", "m", "]"}], "[", "0", "]"}], "[", "t", "]"}]}], 
           "-", 
           RowBox[{"dc", "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}]}], 
          ",", "0"}], "]"}], "+", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"j", ">", "2"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"l", "\[Equal]", "2"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "\[Equal]", "0"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "ac"}], "*", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"m", "\[Equal]", "1"}], ",", "Nf", ",", "1"}], "]"}], 
            "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}], "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "0", "]"}], "[", "0", "]"}], "[", "4", 
                "]"}], "[", "m", "]"}], "[", "0", "]"}], "[", "t", "]"}]}], 
           "+", 
           RowBox[{"dc", "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "5", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}]}], 
          ",", "0"}], "]"}], "+", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"j", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"k", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"l", "\[Equal]", "4"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "\[Equal]", "0"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "ac"}], "*", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"m", "\[Equal]", "1"}], ",", "Nf", ",", "1"}], "]"}], 
            "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}], "*", 
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"x", "[", "jj", "]"}], "[", "kk", "]"}], "[", "2", 
                  "]"}], "[", "m", "]"}], "[", "0", "]"}], "[", "t", "]"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"jj", ",", "3", ",", "6"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"kk", ",", "0", ",", "2"}], "}"}]}], "]"}]}], "+", 
           RowBox[{"dc", "*", 
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"x", "[", "jj", "]"}], "[", "kk", "]"}], "[", "5", 
                  "]"}], "[", "m", "]"}], "[", "0", "]"}], "[", "t", "]"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"jj", ",", "3", ",", "6"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"kk", ",", "0", ",", "2"}], "}"}]}], "]"}]}]}], ",", 
          "0"}], "]"}], "+", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"j", ">", "2"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"l", "\[Equal]", "5"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "\[Equal]", "0"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{"ac", "*", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"m", "\[Equal]", "1"}], ",", "Nf", ",", "1"}], "]"}], 
            "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "2", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}], "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "0", "]"}], "[", "0", "]"}], "[", "4", 
                "]"}], "[", "m", "]"}], "[", "0", "]"}], "[", "t", "]"}]}], 
           "-", 
           RowBox[{"dc", "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}]}], 
          ",", "0"}], "]"}], "+", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"l", "\[Equal]", "2"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"j", ">", "2"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"m", "\[Equal]", "1"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "\[Equal]", "1"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "ac"}], "*", "Nf", "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}], "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "0", "]"}], "[", "0", "]"}], "[", "1", 
                "]"}], "[", "m", "]"}], "[", "0", "]"}], "[", "t", "]"}]}], 
           "+", 
           RowBox[{"dc", "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "3", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}]}], 
          ",", "0"}], "]"}], "+", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"j", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"k", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"l", "\[Equal]", "1"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"m", "\[Equal]", "1"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "\[Equal]", "0"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "ac"}], "*", "Nf", "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}], "*", 
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"x", "[", "jj", "]"}], "[", "kk", "]"}], "[", "2", 
                  "]"}], "[", "m", "]"}], "[", "1", "]"}], "[", "t", "]"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"jj", ",", "3", ",", "6"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"kk", ",", "0", ",", "2"}], "}"}]}], "]"}]}], "+", 
           RowBox[{"dc", "*", 
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"x", "[", "jj", "]"}], "[", "kk", "]"}], "[", "3", 
                  "]"}], "[", "m", "]"}], "[", "1", "]"}], "[", "t", "]"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"jj", ",", "3", ",", "6"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"kk", ",", "0", ",", "2"}], "}"}]}], "]"}]}]}], ",", 
          "0"}], "]"}], "+", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"j", ">", "2"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"l", "\[Equal]", "3"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"m", "\[Equal]", "1"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "\[Equal]", "1"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{"ac", "*", "Nf", "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "0", "]"}], "[", "0", "]"}], "[", "1", 
                "]"}], "[", "m", "]"}], "[", "0", "]"}], "[", "t", "]"}], "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "2", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}], 
           "-", 
           RowBox[{"dc", "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}]}], 
          ",", "0"}], "]"}], "+", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"l", "\[Equal]", "2"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"j", ">", "2"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"m", "\[Equal]", "1"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "\[Equal]", "1"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "ac"}], "*", "Nf", "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}], "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "0", "]"}], "[", "0", "]"}], "[", "4", 
                "]"}], "[", "m", "]"}], "[", "0", "]"}], "[", "t", "]"}]}], 
           "+", 
           RowBox[{"dc", "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "5", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}]}], 
          ",", "0"}], "]"}], "+", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"j", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"k", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"l", "\[Equal]", "4"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"m", "\[Equal]", "1"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "\[Equal]", "0"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "ac"}], "*", "Nf", "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "j", "]"}], "[", "l", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}], "*", 
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"x", "[", "jj", "]"}], "[", "kk", "]"}], "[", "2", 
                  "]"}], "[", "m", "]"}], "[", "1", "]"}], "[", "t", "]"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"jj", ",", "3", ",", "6"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"kk", ",", "0", ",", "2"}], "}"}]}], "]"}]}], "+", 
           RowBox[{"dc", "*", 
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"x", "[", "jj", "]"}], "[", "kk", "]"}], "[", "5", 
                  "]"}], "[", "m", "]"}], "[", "1", "]"}], "[", "t", "]"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"jj", ",", "3", ",", "6"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"kk", ",", "0", ",", "2"}], "}"}]}], "]"}]}]}], ",", 
          "0"}], "]"}], "+", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"j", ">", "2"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"l", "\[Equal]", "5"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"m", "\[Equal]", "1"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "\[Equal]", "1"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{"ac", "*", "Nf", "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "0", "]"}], "[", "0", "]"}], "[", "4", 
                "]"}], "[", "m", "]"}], "[", "0", "]"}], "[", "t", "]"}], "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "2", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}], 
           "-", 
           RowBox[{"dc", "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}]}], 
          ",", "0"}], "]"}], "+", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{"PER", "-", 
          RowBox[{"GSK3b", " ", 
           RowBox[{"Binidng", "/", "Unbinidng"}]}]}], "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"j", ">", "2"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"l", "\[Equal]", "0"}], ")"}], "||", 
             RowBox[{"(", 
              RowBox[{"l", "\[Equal]", "1"}], ")"}]}], ")"}]}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"-", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{"m", "\[Equal]", "1"}], ",", "Nf", ",", "1"}], "]"}]}],
             "*", "agp", "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}], "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "0", "]"}], "[", "0", "]"}], "[", "2", 
                "]"}], "[", "m", "]"}], "[", "0", "]"}], "[", "t", "]"}]}], 
           "+", 
           RowBox[{"dg", "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", 
                RowBox[{"l", "+", "2"}], "]"}], "[", "m", "]"}], "[", "n", 
              "]"}], "[", "t", "]"}]}]}], ",", "0"}], "]"}], "+", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"j", ">", "2"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"l", "\[Equal]", "4"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"-", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{"m", "\[Equal]", "1"}], ",", "Nf", ",", "1"}], "]"}]}],
             "*", "agp", "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}], "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "0", "]"}], "[", "0", "]"}], "[", "2", 
                "]"}], "[", "m", "]"}], "[", "0", "]"}], "[", "t", "]"}]}], 
           "+", 
           RowBox[{"dg", "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "5", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}]}], 
          ",", "0"}], "]"}], "+", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"j", ">", "2"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"l", "\[Equal]", "2"}], ")"}], "||", 
             RowBox[{"(", 
              RowBox[{"l", "\[Equal]", "3"}], ")"}]}], ")"}]}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"m", "\[Equal]", "1"}], ",", "Nf", ",", "1"}], "]"}], 
            "*", "agp", "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", 
                RowBox[{"l", "-", "2"}], "]"}], "[", "m", "]"}], "[", "n", 
              "]"}], "[", "t", "]"}], "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "0", "]"}], "[", "0", "]"}], "[", "2", 
                "]"}], "[", "m", "]"}], "[", "0", "]"}], "[", "t", "]"}]}], 
           "-", 
           RowBox[{"dg", "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}]}], 
          ",", "0"}], "]"}], "+", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"j", ">", "2"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"l", "\[Equal]", "5"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"m", "\[Equal]", "1"}], ",", "Nf", ",", "1"}], "]"}], 
            "*", "agp", "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "4", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}], "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "0", "]"}], "[", "0", "]"}], "[", "2", 
                "]"}], "[", "m", "]"}], "[", "0", "]"}], "[", "t", "]"}]}], 
           "-", 
           RowBox[{"dg", "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}]}], 
          ",", "0"}], "]"}], "+", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"j", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"k", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"l", "\[Equal]", "2"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "\[Equal]", "0"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"-", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{"m", "\[Equal]", "1"}], ",", "Nf", ",", "1"}], "]"}]}],
             "*", "agp", "*", 
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"x", "[", "jj", "]"}], "[", "kk", "]"}], "[", "ll",
                   "]"}], "[", "m", "]"}], "[", "nn", "]"}], "[", "t", "]"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"jj", ",", "3", ",", "6"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"kk", ",", "0", ",", "2"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"ll", ",", 
                RowBox[{"{", 
                 RowBox[{"0", ",", "1", ",", "4"}], "}"}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"nn", ",", "0", ",", "1"}], "}"}]}], "]"}], "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}], 
           "+", 
           RowBox[{"dg", "*", 
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"x", "[", "jj", "]"}], "[", "kk", "]"}], "[", "ll",
                   "]"}], "[", "m", "]"}], "[", "nn", "]"}], "[", "t", "]"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"jj", ",", "3", ",", "6"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"kk", ",", "0", ",", "2"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"ll", ",", 
                RowBox[{"{", 
                 RowBox[{"2", ",", "3", ",", "5"}], "}"}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"nn", ",", "0", ",", "1"}], "}"}]}], "]"}]}]}], ",", 
          "0"}], "]"}], "+", "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{"PER", "-", "BMAL1", "-", 
          RowBox[{
           RowBox[{"CLOCK", "/", "NPAS2"}], " ", 
           RowBox[{"Binding", "/", "Unbinding"}]}]}], "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"j", ">", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"m", "\[Equal]", "1"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "\[Equal]", "0"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "bbin"}], "*", "Nf", "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}], "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "0", "]"}], "[", "0", "]"}], "[", "0", 
                "]"}], "[", "m", "]"}], "[", "1", "]"}], "[", "t", "]"}]}], 
           "+", 
           RowBox[{"unbbin", "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                "]"}], "[", "m", "]"}], "[", "1", "]"}], "[", "t", "]"}]}]}], 
          ",", "0"}], "]"}], "+", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"j", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"k", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", ">", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"l", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"m", "\[Equal]", "1"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "bbin"}], "*", "Nf", "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "0", "]"}], "[", "0", "]"}], "[", "0", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}], "*", 
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"x", "[", "jj", "]"}], "[", "kk", "]"}], "[", "ll",
                   "]"}], "[", "m", "]"}], "[", "0", "]"}], "[", "t", "]"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"jj", ",", "1", ",", "6"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"kk", ",", "0", ",", "2"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"ll", ",", "0", ",", "5"}], "}"}]}], "]"}]}], "+", 
           RowBox[{"unbbin", "*", 
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"x", "[", "jj", "]"}], "[", "kk", "]"}], "[", "ll",
                   "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"jj", ",", "1", ",", "6"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"kk", ",", "0", ",", "2"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"ll", ",", "0", ",", "5"}], "}"}]}], "]"}]}]}], ",", 
          "0"}], "]"}], "+", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"j", ">", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"m", "\[Equal]", "1"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", ">", "0"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{"bbin", "*", "Nf", "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                "]"}], "[", "m", "]"}], "[", "0", "]"}], "[", "t", "]"}], "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "0", "]"}], "[", "0", "]"}], "[", "0", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}], 
           "-", 
           RowBox[{"unbbin", "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}]}], 
          ",", "0"}], "]"}], "+", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{"CRY", "-", "BMAL1", "-", 
          RowBox[{
           RowBox[{"CLOCK", "/", "NPAS2"}], " ", 
           RowBox[{"Binding", "/", "Unbinding"}]}]}], "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"j", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"k", ">", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"l", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"m", "\[Equal]", "1"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "\[Equal]", "0"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "cbbin"}], "*", "Nf", "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}], "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "0", "]"}], "[", "0", "]"}], "[", "0", 
                "]"}], "[", "m", "]"}], "[", "1", "]"}], "[", "t", "]"}]}], 
           "+", 
           RowBox[{"uncbbin", "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                "]"}], "[", "m", "]"}], "[", "1", "]"}], "[", "t", "]"}]}]}], 
          ",", "0"}], "]"}], "+", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"j", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"k", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"l", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"m", "\[Equal]", "1"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "\[Equal]", "1"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "cbbin"}], "*", "Nf", "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}], "*", 
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"x", "[", "0", "]"}], "[", "kk", "]"}], "[", "0", 
                  "]"}], "[", "m", "]"}], "[", "0", "]"}], "[", "t", "]"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"kk", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "+", 
           RowBox[{"uncbbin", "*", 
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"x", "[", "0", "]"}], "[", "kk", "]"}], "[", "0", 
                  "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"kk", ",", "1", ",", "2"}], "}"}]}], "]"}]}]}], ",", 
          "0"}], "]"}], "+", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"j", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"k", ">", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"l", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"m", "\[Equal]", "1"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "\[Equal]", "1"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{"cbbin", "*", "Nf", "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                "]"}], "[", "m", "]"}], "[", "0", "]"}], "[", "t", "]"}], "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "0", "]"}], "[", "0", "]"}], "[", "0", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}], 
           "-", 
           RowBox[{"uncbbin", "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}]}], 
          ",", "0"}], "]"}], "+", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{"REV", "-", "ERBs", "-", 
          RowBox[{"GSK3b", " ", 
           RowBox[{"Binding", "/", "Unbinding"}]}]}], "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"j", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"k", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"l", "\[Equal]", "2"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"m", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "\[Equal]", "0"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "ag"}], "*", 
            RowBox[{"cyrev", "[", "t", "]"}], "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}], 
           "+", 
           RowBox[{
            RowBox[{"(", "dg", ")"}], "*", 
            RowBox[{"cyrevg", "[", "t", "]"}]}], "+", 
           RowBox[{
            RowBox[{"(", "dg", ")"}], "*", 
            RowBox[{"cyrevgp", "[", "t", "]"}]}]}], ",", "0"}], "]"}], "+", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"j", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"k", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"l", "\[Equal]", "2"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"m", "\[Equal]", "1"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "\[Equal]", "0"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "ag"}], "*", "Nf", "*", 
            RowBox[{"revn", "[", "t", "]"}], "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}], 
           "+", 
           RowBox[{
            RowBox[{"(", "dg", ")"}], "*", 
            RowBox[{"revng", "[", "t", "]"}]}], "+", 
           RowBox[{
            RowBox[{"(", "dg", ")"}], "*", 
            RowBox[{"revngp", "[", "t", "]"}]}]}], ",", "0"}], "]"}], "+", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
         "PER", " ", "Binding", " ", "Protiens", " ", "Subcellular", " ", 
          "Translocation"}], "*)"}], "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"j", "\[Equal]", "2"}], ")"}], "||", 
             RowBox[{"(", 
              RowBox[{"j", "\[Equal]", "4"}], ")"}], "||", 
             RowBox[{"(", 
              RowBox[{"j", "\[Equal]", "5"}], ")"}], "||", 
             RowBox[{"(", 
              RowBox[{"j", "\[Equal]", "6"}], ")"}]}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"m", "\[Equal]", "1"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "ne"}], "*", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"n", "\[Equal]", "0"}], ")"}], ",", "1", ",", "0"}], 
             "]"}], "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}], 
           "+", 
           RowBox[{
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"n", "\[Equal]", "0"}], ")"}], ",", "1", ",", "0"}], 
             "]"}], "*", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{"j", "\[Equal]", "4"}], ")"}], "||", 
               RowBox[{"(", 
                RowBox[{"j", "\[Equal]", "5"}], ")"}], "||", 
               RowBox[{"(", 
                RowBox[{"j", "\[Equal]", "6"}], ")"}]}], ",", 
              RowBox[{"parachange", "[", 
               RowBox[{"[", "3", "]"}], "]"}], ",", "1"}], "]"}], "*", "nl", 
            "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                "]"}], "[", "0", "]"}], "[", "n", "]"}], "[", "t", "]"}]}]}], 
          ",", "0"}], "]"}], "+", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"j", "\[Equal]", "2"}], ")"}], "||", 
             RowBox[{"(", 
              RowBox[{"j", "\[Equal]", "4"}], ")"}], "||", 
             RowBox[{"(", 
              RowBox[{"j", "\[Equal]", "5"}], ")"}], "||", 
             RowBox[{"(", 
              RowBox[{"j", "\[Equal]", "6"}], ")"}]}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"m", "\[Equal]", "0"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{"ne", "*", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"n", "\[Equal]", "0"}], ")"}], ",", "1", ",", "0"}], 
             "]"}], "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                "]"}], "[", "1", "]"}], "[", "n", "]"}], "[", "t", "]"}]}], 
           "-", 
           RowBox[{
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"n", "\[Equal]", "0"}], ")"}], ",", "1", ",", "0"}], 
             "]"}], "*", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{"j", "\[Equal]", "4"}], ")"}], "||", 
               RowBox[{"(", 
                RowBox[{"j", "\[Equal]", "5"}], ")"}], "||", 
               RowBox[{"(", 
                RowBox[{"j", "\[Equal]", "6"}], ")"}]}], ",", 
              RowBox[{"parachange", "[", 
               RowBox[{"[", "3", "]"}], "]"}], ",", "1"}], "]"}], "*", "nl", 
            "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}]}], 
          ",", "0"}], "]"}], "+", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{"BMAL1", "-", 
          RowBox[{
           RowBox[{"CLOCK", "/", "NPAS2"}], " ", "Subcellular", " ", 
           "Translocation"}]}], "*)"}], "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"j", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"k", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"l", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"m", "\[Equal]", "1"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "\[Equal]", "1"}], ")"}]}], ",", 
          RowBox[{"nlbc", "*", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
               "]"}], "[", "0", "]"}], "[", "n", "]"}], "[", "t", "]"}]}], 
          ",", "0"}], "]"}], "+", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"j", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"k", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"l", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"m", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "\[Equal]", "1"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{"-", "nlbc"}], "*", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
               "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}], 
          ",", "0"}], "]"}], "+", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{"Kinase", " ", "Subcellular", " ", "Translocation"}], "*)"}],
         "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"j", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"k", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"l", "\[Equal]", "1"}], ")"}], "||", 
             RowBox[{"(", 
              RowBox[{"l", "\[Equal]", "2"}], ")"}]}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"m", "\[Equal]", "1"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "\[Equal]", "0"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{"-", "lne"}], "*", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
               "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}], 
          ",", "0"}], "]"}], "+", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"j", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"k", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"l", "\[Equal]", "1"}], ")"}], "||", 
             RowBox[{"(", 
              RowBox[{"l", "\[Equal]", "2"}], ")"}]}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"m", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "\[Equal]", "0"}], ")"}]}], ",", 
          RowBox[{"lne", "*", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
               "]"}], "[", "1", "]"}], "[", "n", "]"}], "[", "t", "]"}]}], 
          ",", "0"}], "]"}], "+", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{"CK1", "-", 
          RowBox[{
          "CK1", " ", "inhibitor", " ", "Complex", " ", "Subcellular", " ", 
           "Translocation"}]}], "*)"}], "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"j", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"k", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"(", 
             RowBox[{"l", "\[Equal]", "4"}], ")"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"m", "\[Equal]", "1"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "\[Equal]", "0"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{"-", "lnei"}], "*", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
               "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}], 
          ",", "0"}], "]"}], "+", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"j", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"k", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"(", 
             RowBox[{"l", "\[Equal]", "4"}], ")"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"m", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "\[Equal]", "0"}], ")"}]}], ",", 
          RowBox[{"lnei", "*", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
               "]"}], "[", "1", "]"}], "[", "n", "]"}], "[", "t", "]"}]}], 
          ",", "0"}], "]"}], "+", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{"PER", " ", "Phosphorylation", " ", "with", " ", "CKI"}], 
         "*)"}], "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"(", 
             RowBox[{"j", "\[Equal]", "1"}], ")"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"l", "\[Equal]", "1"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"k", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"m", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "\[Equal]", "0"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{"-", "hoo"}], "*", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
               "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}], 
          ",", "0"}], "]"}], "+", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"(", 
             RowBox[{"j", "\[Equal]", "2"}], ")"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"l", "\[Equal]", "1"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"k", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"m", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "\[Equal]", "0"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{"+", "hoo"}], "*", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"x", "[", "1", "]"}], "[", "k", "]"}], "[", "l", 
               "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}], 
          ",", "0"}], "]"}], "+", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"j", "\[Equal]", "3"}], ")"}], "||", 
             RowBox[{"(", 
              RowBox[{"j", "\[Equal]", "5"}], ")"}]}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"l", "\[Equal]", "1"}], ")"}], "||", 
             RowBox[{"(", 
              RowBox[{"l", "\[Equal]", "3"}], ")"}]}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"k", "\[Equal]", "0"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{"-", "hto"}], "*", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
               "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}], 
          ",", "0"}], "]"}], "+", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"j", "\[Equal]", "4"}], ")"}], "||", 
             RowBox[{"(", 
              RowBox[{"j", "\[Equal]", "6"}], ")"}]}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"l", "\[Equal]", "1"}], ")"}], "||", 
             RowBox[{"(", 
              RowBox[{"l", "\[Equal]", "3"}], ")"}]}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"k", "\[Equal]", "0"}], ")"}]}], ",", 
          RowBox[{"hto", "*", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"x", "[", 
                 RowBox[{"j", "-", "1"}], "]"}], "[", "k", "]"}], "[", "l", 
               "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}], 
          ",", "0"}], "]"}], "+", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{"PER2", " ", "Phosphorylation", " ", "with", " ", "GSK3b"}], 
         "*)"}], "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"j", "\[Equal]", "3"}], ")"}], "||", 
             RowBox[{"(", 
              RowBox[{"j", "\[Equal]", "4"}], ")"}]}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"l", "\[Equal]", "2"}], ")"}], "||", 
             RowBox[{"(", 
              RowBox[{"l", "\[Equal]", "3"}], ")"}], "||", 
             RowBox[{"(", 
              RowBox[{"l", "\[Equal]", "5"}], ")"}]}], ")"}]}], ",", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{"gto", "[", "t", "]"}]}], "*", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
               "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}], 
          ",", "0"}], "]"}], "+", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"j", "\[Equal]", "5"}], ")"}], "||", 
             RowBox[{"(", 
              RowBox[{"j", "\[Equal]", "6"}], ")"}]}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"l", "\[Equal]", "2"}], ")"}], "||", 
             RowBox[{"(", 
              RowBox[{"l", "\[Equal]", "3"}], ")"}], "||", 
             RowBox[{"(", 
              RowBox[{"l", "\[Equal]", "5"}], ")"}]}], ")"}]}], ",", 
          RowBox[{
           RowBox[{"gto", "[", "t", "]"}], "*", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"x", "[", 
                 RowBox[{"j", "-", "2"}], "]"}], "[", "k", "]"}], "[", "l", 
               "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}], 
          ",", "0"}], "]"}], "+", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{"BMAL", "-", 
          RowBox[{
           RowBox[{"CLCOK", "/", "NPAS2"}], " ", "Phosphorylation", " ", 
           "with", " ", "GSK3b"}]}], "*)"}], "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"j", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"k", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"l", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"m", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "\[Equal]", "1"}], ")"}]}], ",", 
          RowBox[{"phos", "*", 
           RowBox[{"BC", "[", "t", "]"}]}], ",", "0"}], "]"}], "+", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{"CRY", " ", "Degradation"}], "*)"}], "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"j", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"k", "\[Equal]", "1"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"l", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "\[Equal]", "0"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{"-", "uro"}], "*", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
               "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}], 
          ",", "0"}], "]"}], "+", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"j", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"k", "\[Equal]", "2"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"l", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "\[Equal]", "0"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{"-", "urt"}], "*", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
               "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}], 
          ",", "0"}], "]"}], "+", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"j", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"k", "\[Equal]", "1"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"l", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"m", "\[Equal]", "1"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "\[Equal]", "1"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{"-", "uro"}], "*", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
               "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}], 
          ",", "0"}], "]"}], "+", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"j", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"k", "\[Equal]", "2"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"l", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"m", "\[Equal]", "1"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "\[Equal]", "1"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{"-", "urt"}], "*", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
               "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}], 
          ",", "0"}], "]"}], "+", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"j", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"k", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"l", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"m", "\[Equal]", "1"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "\[Equal]", "1"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{"uro", "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "1", "]"}], "[", "l", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}], 
           "+", 
           RowBox[{"urt", "*", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "j", "]"}], "[", "2", "]"}], "[", "l", 
                "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}]}], 
          ",", "0"}], "]"}], "+", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{"PER", " ", "Degradation"}], "*)"}], "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"j", "==", "1"}], ")"}], "||", 
             RowBox[{"(", 
              RowBox[{"j", "==", "3"}], ")"}], "||", 
             RowBox[{"(", 
              RowBox[{"j", "==", "5"}], ")"}]}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"k", "==", "0"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{"m", "==", "0"}], ")"}], "&&", 
               RowBox[{"(", 
                RowBox[{"n", "==", "1"}], ")"}]}], ",", "0", ",", "1"}], 
             "]"}]}], "*", "upu", "*", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
               "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}], 
          ",", "0"}], "]"}], "+", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"(", 
             RowBox[{"j", "==", "2"}], ")"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"k", "==", "0"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{"m", "==", "0"}], ")"}], "&&", 
               RowBox[{"(", 
                RowBox[{"n", "==", "1"}], ")"}]}], ",", "0", ",", "1"}], 
             "]"}]}], "*", "up", "*", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
               "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}], 
          ",", "0"}], "]"}], "+", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"j", "==", "4"}], ")"}], "||", 
             RowBox[{"(", 
              RowBox[{"j", "==", "6"}], ")"}]}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"k", "==", "0"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{"m", "==", "0"}], ")"}], "&&", 
               RowBox[{"(", 
                RowBox[{"n", "==", "1"}], ")"}]}], ",", "0", ",", "1"}], 
             "]"}]}], "*", "up", "*", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
               "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}], 
          ",", "0"}], "]"}], "+", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"j", "==", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"k", "==", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"l", "==", "1"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "==", "0"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{"up", "*", 
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"x", "[", "jj", "]"}], "[", "0", "]"}], "[", "ll", 
                  "]"}], "[", "m", "]"}], "[", "nn", "]"}], "[", "t", "]"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"jj", ",", "4", ",", "6", ",", "2"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"nn", ",", "0", ",", "1"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"ll", ",", "1", ",", "3", ",", "2"}], "}"}]}], "]"}]}],
            "+", 
           RowBox[{"up", "*", 
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"x", "[", "jj", "]"}], "[", "0", "]"}], "[", "ll", 
                  "]"}], "[", "m", "]"}], "[", "nn", "]"}], "[", "t", "]"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"jj", ",", "2", ",", "2"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"nn", ",", "0", ",", "1"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"ll", ",", "1", ",", "3", ",", "2"}], "}"}]}], "]"}]}],
            "+", 
           RowBox[{"upu", "*", 
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"x", "[", "jj", "]"}], "[", "0", "]"}], "[", "ll", 
                  "]"}], "[", "m", "]"}], "[", "nn", "]"}], "[", "t", "]"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"jj", ",", "1", ",", "5", ",", "2"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"nn", ",", "0", ",", "1"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"ll", ",", "1", ",", "3", ",", "2"}], "}"}]}], 
             "]"}]}]}], ",", "0"}], "]"}], "+", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"j", "==", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"k", "==", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"l", "==", "4"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "==", "0"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{"up", "*", 
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"x", "[", "jj", "]"}], "[", "0", "]"}], "[", "ll", 
                  "]"}], "[", "m", "]"}], "[", "nn", "]"}], "[", "t", "]"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"jj", ",", "4", ",", "6", ",", "2"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"nn", ",", "0", ",", "1"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"ll", ",", "4", ",", "5"}], "}"}]}], "]"}]}], "+", 
           RowBox[{"up", "*", 
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"x", "[", "jj", "]"}], "[", "0", "]"}], "[", "ll", 
                  "]"}], "[", "m", "]"}], "[", "nn", "]"}], "[", "t", "]"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"jj", ",", "2", ",", "2"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"nn", ",", "0", ",", "1"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"ll", ",", "4", ",", "5"}], "}"}]}], "]"}]}], "+", 
           RowBox[{"upu", "*", 
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"x", "[", "jj", "]"}], "[", "0", "]"}], "[", "ll", 
                  "]"}], "[", "m", "]"}], "[", "nn", "]"}], "[", "t", "]"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"jj", ",", "1", ",", "5", ",", "2"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"nn", ",", "0", ",", "1"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"ll", ",", "4", ",", "5"}], "}"}]}], "]"}]}]}], ",", 
          "0"}], "]"}], "+", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"j", "==", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"k", "==", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"l", "==", "2"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "==", "0"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{"up", "*", 
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"x", "[", "jj", "]"}], "[", "0", "]"}], "[", "ll", 
                  "]"}], "[", "m", "]"}], "[", "nn", "]"}], "[", "t", "]"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"jj", ",", "4", ",", "6", ",", "2"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"ll", ",", 
                RowBox[{"{", 
                 RowBox[{"2", ",", "3", ",", "5"}], "}"}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"nn", ",", "0", ",", "1"}], "}"}]}], "]"}]}], "+", 
           "\[IndentingNewLine]", 
           RowBox[{"up", "*", 
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"x", "[", "jj", "]"}], "[", "0", "]"}], "[", "ll", 
                  "]"}], "[", "m", "]"}], "[", "nn", "]"}], "[", "t", "]"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"jj", ",", "2", ",", "2"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"ll", ",", 
                RowBox[{"{", 
                 RowBox[{"2", ",", "3", ",", "5"}], "}"}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"nn", ",", "0", ",", "1"}], "}"}]}], "]"}]}], "+", 
           RowBox[{"upu", "*", 
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"x", "[", "jj", "]"}], "[", "0", "]"}], "[", "ll", 
                  "]"}], "[", "m", "]"}], "[", "nn", "]"}], "[", "t", "]"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"jj", ",", "1", ",", "5", ",", "2"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"ll", ",", 
                RowBox[{"{", 
                 RowBox[{"2", ",", "3", ",", "5"}], "}"}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"nn", ",", "0", ",", "1"}], "}"}]}], "]"}]}]}], ",", 
          "0"}], "]"}], "+", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"j", "==", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"k", "==", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"l", "==", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "==", "1"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"m", "==", "1"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{"up", "*", 
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"x", "[", "jj", "]"}], "[", "0", "]"}], "[", "ll", 
                  "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"jj", ",", "4", ",", "6", ",", "2"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"ll", ",", "0", ",", "5"}], "}"}]}], "]"}]}], "+", 
           RowBox[{"up", "*", 
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"x", "[", "jj", "]"}], "[", "0", "]"}], "[", "ll", 
                  "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"jj", ",", "2", ",", "2"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"ll", ",", "0", ",", "5"}], "}"}]}], "]"}]}], "+", 
           RowBox[{"upu", "*", 
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"x", "[", "jj", "]"}], "[", "0", "]"}], "[", "ll", 
                  "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"jj", ",", "1", ",", "5", ",", "2"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"ll", ",", "0", ",", "5"}], "}"}]}], "]"}]}]}], ",", 
          "0"}], "]"}], "+", "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{"BMAL1", "-", 
          RowBox[{
           RowBox[{"CLOCK", "/", "NPAS2"}], " ", "Degradation"}]}], "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"j", ">", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"k", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"m", "\[Equal]", "1"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "\[Equal]", "1"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{"-", "ubc"}], "*", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
               "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}], 
          ",", "0"}], "]"}], "+", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"j", ">", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"k", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"m", "\[Equal]", "1"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "\[Equal]", "0"}], ")"}]}], ",", 
          RowBox[{"ubc", "*", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
               "]"}], "[", "m", "]"}], "[", "1", "]"}], "[", "t", "]"}]}], 
          ",", "0"}], "]"}], "+", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"j", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"k", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"l", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "\[Equal]", "1"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{"-", "ubc"}], "*", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
               "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "t", "]"}]}], 
          ",", "0"}], "]"}], "+", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{"REV", "-", 
          RowBox[{"ERBS", " ", "Degradation"}]}], "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"j", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"k", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"l", "\[Equal]", "2"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"m", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "\[Equal]", "0"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{"urev", "*", 
            RowBox[{"cyrevg", "[", "t", "]"}]}], "+", 
           RowBox[{"uprev", "*", 
            RowBox[{"cyrevgp", "[", "t", "]"}]}]}], ",", "0"}], "]"}], "+", 
        "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"j", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"k", "\[Equal]", "0"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"l", "\[Equal]", "2"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"m", "\[Equal]", "1"}], ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"n", "\[Equal]", "0"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{"urev", "*", 
            RowBox[{"revng", "[", "t", "]"}]}], "+", 
           RowBox[{"uprev", "*", 
            RowBox[{"revngp", "[", "t", "]"}]}]}], ",", "0"}], "]"}]}]}], ",", 
      RowBox[{"{", 
       RowBox[{"j", ",", "0", ",", "6"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"k", ",", "0", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"l", ",", "0", ",", "5"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"m", ",", "0", ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"n", ",", "0", ",", "1"}], "}"}]}], "]"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.763465230994732*^9, 3.7634652666075006`*^9}, 
   3.7634653422627945`*^9, 
   3.7636090035870776`*^9},ExpressionUUID->"ba2c1ba9-640d-4bfe-a507-\
28b5641f46f2"],

Cell[BoxData[
 StyleBox[
  RowBox[{
  "Incorporation", " ", "of", " ", "gating", " ", "and", " ", "adaptation", 
   " ", "for", " ", "light", " ", "into", " ", "the", " ", "model"}], 
  "Subtitle"]], "Input",
 CellChangeTimes->{{3.7359521702111197`*^9, 3.735952226888618*^9}, {
   3.735952317429965*^9, 3.7359523408647504`*^9}, 3.735952495288601*^9, {
   3.735952663400612*^9, 3.7359526906406426`*^9}, {3.763001682991125*^9, 
   3.763001703753561*^9}},ExpressionUUID->"f4a766e7-8e5c-4f85-adac-\
2424a8ca3c65"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Contruction", " ", "of", " ", "adaptation", " ", "function"}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"adap", "[", "x_", "]"}], ":=", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"x", "^", "Z2"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"x", "^", "Z2"}], "+", 
           RowBox[{"Z1", "^", "Z2"}]}], ")"}]}], ")"}]}], "+", "1"}]}], ";"}],
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"Contruction", " ", "of", " ", "gating"}], ",", " ", 
     RowBox[{"function", " ", "g"}], ",", " ", 
     RowBox[{
     "which", " ", "describes", " ", "the", " ", "photosensitivity", " ", 
      "of", " ", "circadian", " ", "clock", "  ", "at", " ", "each", " ", 
      "circadian", " ", "time"}]}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"connectlowtohigh", "=", 
     RowBox[{"NonlinearModelFit", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"24", "-", "X2"}], ",", "Y1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"24", ",", "Y1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"24", "-", 
            RowBox[{"0.5", "*", "X2"}]}], ",", "Y2"}], "}"}]}], "}"}], ",", 
       RowBox[{"q0", "+", 
        RowBox[{"q1", "*", "x"}], "+", 
        RowBox[{"q2", "*", 
         RowBox[{"x", "^", "2"}]}], "+", 
        RowBox[{"q3", "*", 
         RowBox[{"x", "^", "3"}]}], "+", 
        RowBox[{"q4", "*", 
         RowBox[{"x", "^", "4"}]}]}], ",", 
       RowBox[{"{", 
        RowBox[{"q0", ",", "q1", ",", "q2", ",", "q3", ",", "q4"}], "}"}], 
       ",", "x"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"interpol", "=", 
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{"Y1", ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "0", ",", 
           RowBox[{"24", "-", "X2"}], ",", "0.01"}], "}"}]}], "]"}], ",", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"connectlowtohigh", "[", "x", "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", 
           RowBox[{"24", "-", "X2", "+", "0.01"}], ",", "24", ",", "0.01"}], 
          "}"}]}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"interpol", "=", 
     RowBox[{"RotateRight", "[", 
      RowBox[{"interpol", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"X1", "+", "X2", "-", "24"}], ")"}], "*", "100"}]}], "]"}]}],
     ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
     "Reflecting", " ", "the", " ", "advanced", " ", "circadian", " ", 
      "phase", " ", "of", " ", "ASPD", " ", "patients"}], ",", " ", 
     RowBox[{
     "the", " ", "phase", " ", "of", " ", "gating", " ", "function", " ", "g",
       " ", "is", " ", "advancd", " ", "by", " ", "4", " ", "h"}]}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"interpol", "=", 
     RowBox[{"RotateRight", "[", 
      RowBox[{"interpol", ",", 
       RowBox[{"-", "400"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"g", "=", 
     RowBox[{"Interpolation", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"i", "*", "0.01"}], ",", 
          RowBox[{"interpol", "[", 
           RowBox[{"[", 
            RowBox[{"i", "+", "1"}], "]"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "0", ",", "2400"}], "}"}]}], "]"}], "]"}]}], 
    ";"}]}]}]], "Input",
 CellChangeTimes->{{3.7359520430918565`*^9, 3.7359520474258575`*^9}, 
   3.735952149489019*^9, {3.7359522477706194`*^9, 3.7359523048869905`*^9}, {
   3.735952500454628*^9, 3.735952636343639*^9}, {3.735952713356615*^9, 
   3.735952720073615*^9}, {3.7359527550026474`*^9, 3.7359527556086183`*^9}, {
   3.735953079155672*^9, 3.7359531851626453`*^9}, {3.735953223421649*^9, 
   3.735953361759688*^9}, {3.763001624437683*^9, 3.7630016781360617`*^9}, {
   3.7630017216567154`*^9, 3.763001746710721*^9}, {3.763001802107711*^9, 
   3.763001816026497*^9}, {3.7630018743628044`*^9, 3.7630021121020737`*^9}, 
   3.7630021422324753`*^9, {3.763002872110427*^9, 3.763002872554243*^9}, {
   3.7630030763344746`*^9, 3.7630030914550495`*^9}, {3.7630031312079554`*^9, 
   3.7630031506888685`*^9}, {3.7634655884404726`*^9, 
   3.7634656038712096`*^9}, {3.7634656797552366`*^9, 
   3.763465737588064*^9}},ExpressionUUID->"cf9b71db-83b2-4c91-bb1c-\
91282a79135e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "Construction", " ", "of", " ", "function", " ", "p", " ", "which", " ", 
    "determines", " ", "the", " ", "CT", " ", "from", " ", "an", " ", 
    "internal", " ", "pace", " ", 
    RowBox[{"marker", ":", " ", 
     RowBox[{
     "the", " ", "phase", " ", "angle", " ", "of", " ", "the", " ", "limit", 
      " ", "cycle", " ", "of", " ", "the", " ", "two", " ", "clock", " ", 
      "variables"}]}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Step1", ":", " ", 
    RowBox[{"LD", " ", "12"}], ":", 
    RowBox[{"12", " ", "entraiment"}]}], "*)"}]}]], "Input",ExpressionUUID->\
"fe1c61e7-a183-403d-8c06-55c5e5fa37d1"],

Cell[BoxData[{
 StyleBox[
  RowBox[{
   RowBox[{
    RowBox[{"Equations", " ", "for", " ", "Single"}], "-", 
    RowBox[{
    "state", " ", "Variables", " ", "while", " ", "light", " ", "is", " ", 
     "on"}]}], " "}], "Subsubtitle"], "\[IndentingNewLine]", 
 StyleBox[
  RowBox[{
  "Detailed", " ", "description", " ", "can", " ", "be", " ", "found", " ", 
   "in", "  ", "Appendix", " ", "Equation1", " ", "and", " ", "Table", " ", 
   "EV1"}], "Subsubtitle"], "\[IndentingNewLine]", 
 StyleBox[
  RowBox[{
   RowBox[{"laone1", ":", " ", 
    RowBox[{
    "This", " ", "equation", " ", "is", " ", "used", " ", "for", " ", 
     "entraining", " ", "the", " ", "model", " ", "to", " ", "LD", " ", 
     "12"}], ":", 
    RowBox[{
    "12", " ", "to", " ", "correspond", " ", "CTx", " ", "to", " ", "ZTx"}]}],
    ",", " ", 
   RowBox[{
   "which", " ", "is", " ", "the", " ", "step1", " ", "to", " ", "construct", 
    " ", "the", " ", "function", " ", "p"}]}], 
  "Subsubtitle"], "\[IndentingNewLine]", 
 StyleBox[
  RowBox[{"Thus", " ", ",", 
   RowBox[{
   "light", " ", "module", " ", "is", " ", "modelled", " ", "just", " ", "as",
     " ", 
    RowBox[{"g", "[", "t", "]"}], "*", 
    RowBox[{"adap", "[", "t", "]"}], " ", 
    RowBox[{"(", 
     RowBox[{"not", " ", 
      RowBox[{"g", "[", 
       RowBox[{"p", "[", 
        RowBox[{
         RowBox[{"revng", "[", "t", "]"}], ",", 
         RowBox[{"revnp", "[", "t", "]"}]}], "]"}], "]"}], "*", 
      RowBox[{"adap", "[", "t", "]"}]}], ")"}], " ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
       "note", " ", "that", " ", "while", " ", "t", " ", "is", " ", "between",
         " ", "0", " ", "and", " ", "12"}], ",", " ", 
       RowBox[{"the", " ", "light", " ", "is", " ", "on"}]}], ")"}], 
     "."}]}]}], "Subsubtitle"]}], "Input",
 CellChangeTimes->{{3.763608051885745*^9, 3.763608100968495*^9}, {
  3.76360838080719*^9, 3.7636084060347304`*^9}, {3.763608504122676*^9, 
  3.7636085053992662`*^9}, {3.7636089493880095`*^9, 
  3.763608951198169*^9}},ExpressionUUID->"6f1a124a-2ab4-473b-8870-\
24da823b67bd"],

Cell[BoxData[
 RowBox[{
  RowBox[{"laone1", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{"(*", 
     RowBox[{"Original", " ", "model", " ", "equations"}], "*)"}], 
    "\[IndentingNewLine]", 
    RowBox[{"(*", 
     RowBox[{"E", "-", 
      RowBox[{"box", " ", "activity"}]}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"GR", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"bin", "*", 
        RowBox[{"(", 
         RowBox[{"Sum", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"x", "[", "0", "]"}], "[", "kk", "]"}], "[", "0", 
               "]"}], "[", "1", "]"}], "[", "1", "]"}], "[", "t", "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"kk", ",", "1", ",", "2"}], "}"}]}], "]"}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"G", "[", "t", "]"}], "-", 
          RowBox[{"GR", "[", "t", "]"}]}], ")"}]}], "-", 
       RowBox[{"unbin", "*", 
        RowBox[{"GR", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"G", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"bin", "*", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"x", "[", "0", "]"}], "[", "0", "]"}], "[", "0", "]"}], 
           "[", "1", "]"}], "[", "1", "]"}], "[", "t", "]"}], "*", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"G", "[", "t", "]"}], "-", 
          RowBox[{"GR", "[", "t", "]"}]}], ")"}]}], "-", 
       RowBox[{"unbin", "*", 
        RowBox[{"G", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"GrR", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"binr", "*", 
        RowBox[{"(", 
         RowBox[{"Sum", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"x", "[", "0", "]"}], "[", "kk", "]"}], "[", "0", 
               "]"}], "[", "1", "]"}], "[", "1", "]"}], "[", "t", "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"kk", ",", "1", ",", "2"}], "}"}]}], "]"}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"Gr", "[", "t", "]"}], "-", 
          RowBox[{"GrR", "[", "t", "]"}]}], ")"}]}], "-", 
       RowBox[{"unbinr", "*", 
        RowBox[{"GrR", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"Gr", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"binr", "*", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"x", "[", "0", "]"}], "[", "0", "]"}], "[", "0", "]"}], 
           "[", "1", "]"}], "[", "1", "]"}], "[", "t", "]"}], "*", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"Gr", "[", "t", "]"}], "-", 
          RowBox[{"GrR", "[", "t", "]"}]}], ")"}]}], "-", 
       RowBox[{"unbinr", "*", 
        RowBox[{"Gr", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"GcR", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"binc", "*", 
        RowBox[{"(", 
         RowBox[{"Sum", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"x", "[", "0", "]"}], "[", "kk", "]"}], "[", "0", 
               "]"}], "[", "1", "]"}], "[", "1", "]"}], "[", "t", "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"kk", ",", "1", ",", "2"}], "}"}]}], "]"}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"Gc", "[", "t", "]"}], "-", 
          RowBox[{"GcR", "[", "t", "]"}]}], ")"}]}], "-", 
       RowBox[{"unbinc", "*", 
        RowBox[{"GcR", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"Gc", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"binc", "*", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"x", "[", "0", "]"}], "[", "0", "]"}], "[", "0", "]"}], 
           "[", "1", "]"}], "[", "1", "]"}], "[", "t", "]"}], "*", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"Gc", "[", "t", "]"}], "-", 
          RowBox[{"GcR", "[", "t", "]"}]}], ")"}]}], "-", 
       RowBox[{"unbinc", "*", 
        RowBox[{"Gc", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{"RORE", " ", "activity"}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"GBR", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"binrev", "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"revn", "[", "t", "]"}], "+", 
          RowBox[{"revng", "[", "t", "]"}], "+", 
          RowBox[{"revngp", "[", "t", "]"}], "+", 
          RowBox[{"revnp", "[", "t", "]"}]}], ")"}], "*", 
        RowBox[{"GB", "[", "t", "]"}]}], "-", 
       RowBox[{"unbinrev", "*", 
        RowBox[{"GBR", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"GB", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "binrev"}], "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"revn", "[", "t", "]"}], "+", 
          RowBox[{"revng", "[", "t", "]"}], "+", 
          RowBox[{"revngp", "[", "t", "]"}], "+", 
          RowBox[{"revnp", "[", "t", "]"}]}], ")"}], "*", 
        RowBox[{"GB", "[", "t", "]"}]}], "+", 
       RowBox[{"unbinrev", "*", 
        RowBox[{"GBR", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"GBRb", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"binrevb", "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"revn", "[", "t", "]"}], "+", 
          RowBox[{"revng", "[", "t", "]"}], "+", 
          RowBox[{"revngp", "[", "t", "]"}], "+", 
          RowBox[{"revnp", "[", "t", "]"}]}], ")"}], "*", 
        RowBox[{"GBb", "[", "t", "]"}]}], "-", 
       RowBox[{"unbinrevb", "*", 
        RowBox[{"GBRb", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"GBb", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "binrevb"}], "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"revn", "[", "t", "]"}], "+", 
          RowBox[{"revng", "[", "t", "]"}], "+", 
          RowBox[{"revngp", "[", "t", "]"}], "+", 
          RowBox[{"revnp", "[", "t", "]"}]}], ")"}], "*", 
        RowBox[{"GBb", "[", "t", "]"}]}], "+", 
       RowBox[{"unbinrevb", "*", 
        RowBox[{"GBRb", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", "Transcription", "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"MnPo", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"trPo", "*", 
        RowBox[{"G", "[", "t", "]"}]}], "-", 
       RowBox[{"tmc", "*", 
        RowBox[{"MnPo", "[", "t", "]"}]}], "-", 
       RowBox[{"umPo", "*", 
        RowBox[{"MnPo", "[", "t", "]"}]}], "+", 
       RowBox[{"lono", "*", "trPo", "*", 
        RowBox[{"g", "[", "t", "]"}], "*", 
        RowBox[{"adap", "[", "t", "]"}]}]}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"McPo", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"tmc", "*", 
        RowBox[{"MnPo", "[", "t", "]"}]}], "-", 
       RowBox[{"umPo", "*", 
        RowBox[{"McPo", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"MnPt", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"trPt", "*", 
        RowBox[{"G", "[", "t", "]"}]}], "-", 
       RowBox[{"tmc", "*", 
        RowBox[{"MnPt", "[", "t", "]"}]}], "-", 
       RowBox[{"umPt", "*", 
        RowBox[{"MnPt", "[", "t", "]"}]}], "+", 
       RowBox[{"lont", "*", "trPt", "*", 
        RowBox[{"g", "[", "t", "]"}], "*", 
        RowBox[{"adap", "[", "t", "]"}]}]}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"McPt", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"tmc", "*", 
        RowBox[{"MnPt", "[", "t", "]"}]}], "-", 
       RowBox[{"umPt", "*", 
        RowBox[{"McPt", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"MnRt", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"trRt", "*", 
        RowBox[{"Gc", "[", "t", "]"}]}], "-", 
       RowBox[{"tmc", "*", 
        RowBox[{"MnRt", "[", "t", "]"}]}], "-", 
       RowBox[{"umRt", "*", 
        RowBox[{"MnRt", "[", "t", "]"}]}]}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"McRt", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"tmc", "*", 
        RowBox[{"MnRt", "[", "t", "]"}]}], "-", 
       RowBox[{"umRt", "*", 
        RowBox[{"McRt", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"MnRev", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"trRev", "*", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"x", "[", "0", "]"}], "[", "0", "]"}], "[", "0", "]"}], 
           "[", "1", "]"}], "[", "1", "]"}], "[", "t", "]"}], "*", 
        RowBox[{"Gr", "[", "t", "]"}]}], "-", 
       RowBox[{"tmcrev", "*", 
        RowBox[{"MnRev", "[", "t", "]"}]}], "-", 
       RowBox[{"umRev", "*", 
        RowBox[{"MnRev", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"McRev", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"tmcrev", "*", 
        RowBox[{"MnRev", "[", "t", "]"}]}], "-", 
       RowBox[{"umRev", "*", 
        RowBox[{"McRev", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"MnRo", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"trRo", "*", 
        RowBox[{"G", "[", "t", "]"}], "*", 
        RowBox[{"GB", "[", "t", "]"}]}], "-", 
       RowBox[{"tmc", "*", 
        RowBox[{"MnRo", "[", "t", "]"}]}], "-", 
       RowBox[{"umRo", "*", 
        RowBox[{"MnRo", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"McRo", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"tmc", "*", 
        RowBox[{"MnRo", "[", "t", "]"}]}], "-", 
       RowBox[{"umRo", "*", 
        RowBox[{"McRo", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"MnB", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"trB", "*", 
        RowBox[{"GBb", "[", "t", "]"}]}], "-", 
       RowBox[{"tmc", "*", 
        RowBox[{"MnB", "[", "t", "]"}]}], "-", 
       RowBox[{"umB", "*", 
        RowBox[{"MnB", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"McB", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"tmc", "*", 
        RowBox[{"MnB", "[", "t", "]"}]}], "-", 
       RowBox[{"umB", "*", 
        RowBox[{"McB", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"MnNp", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"trNp", "*", 
        RowBox[{"GB", "[", "t", "]"}]}], "-", 
       RowBox[{"tmc", "*", 
        RowBox[{"MnNp", "[", "t", "]"}]}], "-", 
       RowBox[{"umNp", "*", 
        RowBox[{"MnNp", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"McNp", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"tmc", "*", 
        RowBox[{"MnNp", "[", "t", "]"}]}], "-", 
       RowBox[{"umNp", "*", 
        RowBox[{"McNp", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{"Secondary", " ", "Feedback", " ", "Loop"}], "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"B", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"tlb", "*", 
        RowBox[{"McB", "[", "t", "]"}]}], "-", 
       RowBox[{"cbin", "*", 
        RowBox[{"B", "[", "t", "]"}], "*", 
        RowBox[{"Cl", "[", "t", "]"}]}], "+", 
       RowBox[{"uncbin", "*", 
        RowBox[{"BC", "[", "t", "]"}]}], "-", 
       RowBox[{"ub", "*", 
        RowBox[{"B", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"Cl", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"tlnp", "*", 
        RowBox[{"McNp", "[", "t", "]"}]}], "+", "tlc", "-", 
       RowBox[{"cbin", "*", 
        RowBox[{"B", "[", "t", "]"}], "*", 
        RowBox[{"Cl", "[", "t", "]"}]}], "+", 
       RowBox[{"uncbin", "*", 
        RowBox[{"BC", "[", "t", "]"}]}], "-", 
       RowBox[{"uc", "*", 
        RowBox[{"Cl", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"BC", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"cbin", "*", 
        RowBox[{"B", "[", "t", "]"}], "*", 
        RowBox[{"Cl", "[", "t", "]"}]}], "-", 
       RowBox[{"uncbin", "*", 
        RowBox[{"BC", "[", "t", "]"}]}], "-", 
       RowBox[{"phos", "*", 
        RowBox[{"BC", "[", "t", "]"}]}], "-", 
       RowBox[{"ubc", "*", 
        RowBox[{"BC", "[", "t", "]"}]}]}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"cyrev", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"tlrev", "*", 
        RowBox[{"McRev", "[", "t", "]"}]}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"nlrev", "+", "urev"}], ")"}], "*", 
        RowBox[{"cyrev", "[", "t", "]"}]}], "-", 
       RowBox[{"ag", "*", 
        RowBox[{"cyrev", "[", "t", "]"}], "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"x", "[", "0", "]"}], "[", "0", "]"}], "[", "2", "]"}], 
            "[", "0", "]"}], "[", "0", "]"}], "[", "t", "]"}], ")"}]}], "+", 
       RowBox[{"nerev", "*", 
        RowBox[{"revn", "[", "t", "]"}]}], "+", 
       RowBox[{"dg", "*", 
        RowBox[{"cyrevg", "[", "t", "]"}]}]}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"revn", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         RowBox[{"(", 
          RowBox[{"nerev", "+", "urev"}], ")"}]}], "*", 
        RowBox[{"revn", "[", "t", "]"}]}], "-", 
       RowBox[{"ag", "*", "Nf", "*", 
        RowBox[{"revn", "[", "t", "]"}], "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"x", "[", "0", "]"}], "[", "0", "]"}], "[", "2", "]"}], 
            "[", "1", "]"}], "[", "0", "]"}], "[", "t", "]"}], ")"}]}], "+", 
       RowBox[{"nlrev", "*", 
        RowBox[{"cyrev", "[", "t", "]"}]}], "+", 
       RowBox[{"dg", "*", 
        RowBox[{"(", 
         RowBox[{"revng", "[", "t", "]"}], ")"}]}]}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"cyrevg", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"ag", "*", 
        RowBox[{"cyrev", "[", "t", "]"}], "*", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"x", "[", "0", "]"}], "[", "0", "]"}], "[", "2", "]"}], 
           "[", "0", "]"}], "[", "0", "]"}], "[", "t", "]"}]}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"dg", "+", 
          RowBox[{"gto", "[", "t", "]"}], "+", "urev", "+", "nlrev"}], ")"}], 
        "*", 
        RowBox[{"cyrevg", "[", "t", "]"}]}], "+", 
       RowBox[{"nerev", "*", 
        RowBox[{"revng", "[", "t", "]"}]}]}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"revng", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"ag", "*", "Nf", "*", 
        RowBox[{"revn", "[", "t", "]"}], "*", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"x", "[", "0", "]"}], "[", "0", "]"}], "[", "2", "]"}], 
           "[", "1", "]"}], "[", "0", "]"}], "[", "t", "]"}]}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"dg", "+", 
          RowBox[{"gto", "[", "t", "]"}], "+", "urev", "+", "nerev"}], ")"}], 
        "*", 
        RowBox[{"revng", "[", "t", "]"}]}], "+", 
       RowBox[{"nlrev", "*", 
        RowBox[{"cyrevg", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"cyrevgp", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{
        RowBox[{"gto", "[", "t", "]"}], "*", 
        RowBox[{"cyrevg", "[", "t", "]"}]}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"dg", "+", "uprev", "+", "nlrev"}], ")"}], "*", 
        RowBox[{"cyrevgp", "[", "t", "]"}]}], "+", 
       RowBox[{"nerev", "*", 
        RowBox[{"revngp", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"revngp", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{
        RowBox[{"gto", "[", "t", "]"}], "*", 
        RowBox[{"revng", "[", "t", "]"}]}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"dg", "+", "uprev", "+", "nerev"}], ")"}], "*", 
        RowBox[{"revngp", "[", "t", "]"}]}], "+", 
       RowBox[{"nlrev", "*", 
        RowBox[{"cyrevgp", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"cyrevp", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"dg", "*", 
        RowBox[{"(", 
         RowBox[{"cyrevgp", "[", "t", "]"}], ")"}]}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"uprev", "+", "nlrev"}], ")"}], "*", 
        RowBox[{"cyrevp", "[", "t", "]"}]}], "+", 
       RowBox[{"nerev", "*", 
        RowBox[{"revnp", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"revnp", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"dg", "*", 
        RowBox[{"(", 
         RowBox[{"revngp", "[", "t", "]"}], ")"}]}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"uprev", "+", "nerev"}], ")"}], "*", 
        RowBox[{"revnp", "[", "t", "]"}]}], "+", 
       RowBox[{"nlrev", "*", 
        RowBox[{"cyrevp", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{"Activity", " ", "of", " ", "GSK3b"}], "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"gto", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"trgto", "*", 
        RowBox[{"G", "[", "t", "]"}], "*", 
        RowBox[{"GB", "[", "t", "]"}]}], "-", 
       RowBox[{"ugto", "*", 
        RowBox[{"gto", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{"Free", " ", "Blood", " ", "Plsma", " ", "Concentration"}], 
      "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"pInh", "'"}], "[", "t", "]"}], "==", 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         RowBox[{"(", 
          RowBox[{"uinp", "+", "nlpin"}], ")"}]}], "*", 
        RowBox[{"pInh", "[", "t", "]"}]}], "+", 
       RowBox[{"nepin", "*", 
        RowBox[{"bInh", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{"Free", " ", "Brain", " ", "Tissue", " ", "Concentration"}], 
      "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"bInh", "'"}], "[", "t", "]"}], "==", 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         RowBox[{"(", 
          RowBox[{"nlbin", "+", "nepin"}], ")"}]}], "*", 
        RowBox[{"bInh", "[", "t", "]"}]}], "+", 
       RowBox[{"nlpin", "*", 
        RowBox[{"pInh", "[", "t", "]"}]}], "+", 
       RowBox[{"nebin", "*", 
        RowBox[{"Inh", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{"Free", " ", "Cytoplasm", " ", "Concentration"}], "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"Inh", "'"}], "[", "t", "]"}], "==", 
      RowBox[{
       RowBox[{"nlbin", "*", 
        RowBox[{"bInh", "[", "t", "]"}]}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"nebin", "+", "nlin"}], ")"}], "*", 
        RowBox[{"Inh", "[", "t", "]"}]}], "+", 
       RowBox[{"nein", "*", 
        RowBox[{"nInh", "[", "t", "]"}]}], "+", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "inbin"}], "*", 
         RowBox[{"Inh", "[", "t", "]"}], "*", 
         RowBox[{"Sum", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"x", "[", "jj", "]"}], "[", "kk", "]"}], "[", "ll", 
               "]"}], "[", "0", "]"}], "[", "0", "]"}], "[", "t", "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"jj", ",", "0", ",", "6"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"kk", ",", "0", ",", "2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"ll", ",", "1", ",", "3", ",", "2"}], "}"}]}], "]"}]}], 
        ")"}], "+", 
       RowBox[{"inubin", "*", 
        RowBox[{"Sum", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"x", "[", "jj", "]"}], "[", "kk", "]"}], "[", "ll", 
              "]"}], "[", "0", "]"}], "[", "0", "]"}], "[", "t", "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"jj", ",", "0", ",", "6"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"kk", ",", "0", ",", "2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"ll", ",", "4", ",", "5"}], "}"}]}], "]"}]}]}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{"Free", " ", "Nucleus", " ", "Concentration"}], "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"nInh", "'"}], "[", "t", "]"}], "==", 
      RowBox[{
       RowBox[{
        RowBox[{"Inh", "[", "t", "]"}], "*", "nlin"}], "-", 
       RowBox[{
        RowBox[{"(", "nein", ")"}], "*", 
        RowBox[{"nInh", "[", "t", "]"}]}], "-", 
       RowBox[{"(", 
        RowBox[{"inbin", "*", "Nf", "*", 
         RowBox[{"nInh", "[", "t", "]"}], "*", 
         RowBox[{"Sum", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"x", "[", "jj", "]"}], "[", "kk", "]"}], "[", "ll", 
               "]"}], "[", "1", "]"}], "[", "nn", "]"}], "[", "t", "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"jj", ",", "0", ",", "6"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"kk", ",", "0", ",", "2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"ll", ",", "1", ",", "3", ",", "2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"nn", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ")"}], "+", 
       RowBox[{"inubin", "*", 
        RowBox[{"Sum", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"x", "[", "jj", "]"}], "[", "kk", "]"}], "[", "ll", 
              "]"}], "[", "1", "]"}], "[", "nn", "]"}], "[", "t", "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"jj", ",", "0", ",", "6"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"kk", ",", "0", ",", "2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"ll", ",", "4", ",", "5"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"nn", ",", "0", ",", "1"}], "}"}]}], "]"}]}]}]}]}], 
    "\[IndentingNewLine]", "\[IndentingNewLine]", "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.763005949990091*^9, 3.7630059569265776`*^9}, 
   3.7630062299185467`*^9, {3.763461021025756*^9, 
   3.7634610239076595`*^9}},ExpressionUUID->"4e4d36a3-5fb2-4fbb-9ea1-\
4be807644798"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"ldt", "=", "12"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"phase", "=", 
    RowBox[{"{", "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"iternum", "=", "2"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"jjj", "=", "1"}], ",", 
     RowBox[{"jjj", "<", "3"}], ",", 
     RowBox[{"jjj", "++"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"jjj", "\[Equal]", "1"}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"athree", "=", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"G", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"GR", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"gto", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "3", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"MnRo", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "4", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"McRo", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "5", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"MnRt", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "6", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"McRt", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "7", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"MnPo", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "8", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"McPo", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "9", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"MnPt", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "10", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"McPt", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "11", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"MnB", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "12", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"McB", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "13", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"B", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "14", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"GBb", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "15", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"GBRb", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "16", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"Cl", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "17", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"MnRev", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "18", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"McRev", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "19", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"cyrev", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "20", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"revn", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "21", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"cyrevg", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "22", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"revng", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "23", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"cyrevgp", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "24", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"revngp", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "25", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"GB", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "26", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"GBR", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "27", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"cyrevp", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "29", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"revnp", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "30", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"BC", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "33", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"Gr", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "34", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"GrR", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "35", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"McNp", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "36", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"MnNp", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "37", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"Gc", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "38", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"GcR", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "39", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"pInh", "[", "0", "]"}], "\[Equal]", "0"}], ",", 
            RowBox[{
             RowBox[{"bInh", "[", "0", "]"}], "\[Equal]", "0"}], ",", 
            RowBox[{
             RowBox[{"Inh", "[", "0", "]"}], "\[Equal]", "0"}], ",", 
            RowBox[{
             RowBox[{"nInh", "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}]}], 
         ";", "\[IndentingNewLine]", 
         RowBox[{"afour", "=", 
          RowBox[{"Flatten", "[", 
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                  "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "0", "]"}], 
              "\[Equal]", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"l", ">", "3"}], ",", "0", ",", 
                RowBox[{"Init1", "[", 
                 RowBox[{"[", 
                  RowBox[{
                   RowBox[{"j", "+", "1"}], ",", 
                   RowBox[{"k", "+", "1"}], ",", 
                   RowBox[{"l", "+", "1"}], ",", 
                   RowBox[{"m", "+", "1"}], ",", 
                   RowBox[{"n", "+", "1"}], ",", "1"}], "]"}], "]"}]}], 
               "]"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"j", ",", "0", ",", "6"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"k", ",", "0", ",", "2"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"l", ",", "0", ",", "5"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"m", ",", "0", ",", "1"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"n", ",", "0", ",", "1"}], "}"}]}], "]"}], "]"}]}], 
         ";"}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Init11", "=", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                 "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", 
              RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
            RowBox[{"{", 
             RowBox[{"j", ",", "0", ",", "6"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"k", ",", "0", ",", "2"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"l", ",", "0", ",", "5"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", "0", ",", "1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"n", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";", 
         RowBox[{"Init22", "=", 
          RowBox[{"Flatten", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"G", "[", 
               RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"GR", "[", 
               RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"gto", "[", 
               RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"MnRo", "[", 
               RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"McRo", "[", 
               RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"MnRt", "[", 
               RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"McRt", "[", 
               RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"MnPo", "[", 
               RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"McPo", "[", 
               RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"MnPt", "[", 
               RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"McPt", "[", 
               RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"MnB", "[", 
               RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"McB", "[", 
               RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"B", "[", 
               RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"GBb", "[", 
               RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"GBRb", "[", 
               RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"Cl", "[", 
               RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"MnRev", "[", 
               RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"McRev", "[", 
               RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"cyrev", "[", 
               RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"revn", "[", 
               RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"cyrevg", "[", 
               RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"revng", "[", 
               RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"cyrevgp", "[", 
               RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"revngp", "[", 
               RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"GB", "[", 
               RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"GBR", "[", 
               RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", "0", 
             ",", 
             RowBox[{
              RowBox[{"cyrevp", "[", 
               RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"revnp", "[", 
               RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", "0", 
             ",", "0", ",", 
             RowBox[{
              RowBox[{"BC", "[", 
               RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"Gr", "[", 
               RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"GrR", "[", 
               RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"McNp", "[", 
               RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"MnNp", "[", 
               RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"Gc", "[", 
               RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"GcR", "[", 
               RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}]}], "}"}], 
           "]"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"athree", "=", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"G", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"GR", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"gto", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "3", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"MnRo", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "4", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"McRo", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "5", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"MnRt", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "6", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"McRt", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "7", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"MnPo", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "8", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"McPo", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "9", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"MnPt", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "10", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"McPt", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "11", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"MnB", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "12", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"McB", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "13", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"B", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "14", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"GBb", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "15", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"GBRb", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "16", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"Cl", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "17", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"MnRev", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "18", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"McRev", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "19", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"cyrev", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "20", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"revn", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "21", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"cyrevg", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "22", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"revng", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "23", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"cyrevgp", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "24", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"revngp", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "25", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"GB", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "26", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"GBR", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "27", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"cyrevp", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "29", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"revnp", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "30", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"BC", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "33", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"Gr", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "34", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"GrR", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "35", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"McNp", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "36", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"MnNp", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "37", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"Gc", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "38", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"GcR", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "39", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"pInh", "[", "0", "]"}], "\[Equal]", "0"}], ",", 
            RowBox[{
             RowBox[{"bInh", "[", "0", "]"}], "\[Equal]", "0"}], ",", 
            RowBox[{
             RowBox[{"Inh", "[", "0", "]"}], "\[Equal]", "0"}], ",", 
            RowBox[{
             RowBox[{"nInh", "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}]}], 
         ";", "\[IndentingNewLine]", 
         RowBox[{"afour", "=", 
          RowBox[{"Flatten", "[", 
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                  "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "0", "]"}], 
              "\[Equal]", 
              RowBox[{"Init11", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"j", "+", "1"}], ",", 
                 RowBox[{"k", "+", "1"}], ",", 
                 RowBox[{"l", "+", "1"}], ",", 
                 RowBox[{"m", "+", "1"}], ",", 
                 RowBox[{"n", "+", "1"}], ",", "1"}], "]"}], "]"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"j", ",", "0", ",", "6"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"k", ",", "0", ",", "2"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"l", ",", "0", ",", "5"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"m", ",", "0", ",", "1"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"n", ",", "0", ",", "1"}], "}"}]}], "]"}], "]"}]}]}]}], 
       "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"afive", "=", 
       RowBox[{"Join", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "GR", ",", "G", ",", "MnRo", ",", "McRo", ",", "MnRt", ",", "McRt", 
           ",", "MnPo", ",", "McPo", ",", "MnPt", ",", "McPt", ",", "MnB", 
           ",", "McB", ",", "B", ",", "Cl", ",", "MnRev", ",", "McRev", ",", 
           "cyrev", ",", "revn", ",", "cyrevg", ",", "revng", ",", "cyrevgp", 
           ",", "revngp", ",", "cyrevp", ",", "revnp", ",", "GB", ",", "GBR", 
           ",", "BC", ",", "pInh", ",", "nInh", ",", "bInh", ",", "Inh", ",", 
           "Gr", ",", "GrR", ",", "McNp", ",", "MnNp", ",", "Gc", ",", "GcR", 
           ",", "GBb", ",", "GBRb", ",", "gto"}], "}"}], ",", 
         RowBox[{"Flatten", "[", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
               "]"}], "[", "m", "]"}], "[", "n", "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"j", ",", "0", ",", "6"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"k", ",", "0", ",", "2"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"l", ",", "0", ",", "5"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", "0", ",", "1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"n", ",", "0", ",", "1"}], "}"}]}], "]"}], "]"}]}], 
        "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"qrt2", "=", 
       RowBox[{"NDSolve", "[", 
        RowBox[{
         RowBox[{"Join", "[", 
          RowBox[{"laone1", ",", "atwo", ",", "athree", ",", "afour"}], "]"}],
          ",", "afive", ",", 
         RowBox[{"{", 
          RowBox[{"t", ",", "0", ",", "ldt"}], "}"}], ",", 
         RowBox[{"MaxSteps", "\[Rule]", "100000"}], ",", 
         RowBox[{"MaxStepSize", "\[Rule]", "0.1"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Init11", "=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", "]"}],
              "[", "m", "]"}], "[", "n", "]"}], "[", "ldt", "]"}], "/.", 
          "qrt2"}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "0", ",", "6"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"k", ",", "0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"l", ",", "0", ",", "5"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"m", ",", "0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"n", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"Init22", "=", 
       RowBox[{"Flatten", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"G", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"GR", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"gto", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"MnRo", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"McRo", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"MnRt", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"McRt", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"MnPo", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"McPo", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"MnPt", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"McPt", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"MnB", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"McB", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"B", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"GBb", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"GBRb", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"Cl", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"MnRev", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"McRev", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"cyrev", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"revn", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"cyrevg", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"revng", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"cyrevgp", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"revngp", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"GB", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"GBR", "[", "ldt", "]"}], "/.", "qrt2"}], ",", "0", ",", 
          RowBox[{
           RowBox[{"cyrevp", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"revnp", "[", "ldt", "]"}], "/.", "qrt2"}], ",", "0", ",", 
          "0", ",", 
          RowBox[{
           RowBox[{"BC", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"Gr", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"GrR", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"McNp", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"MnNp", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"Gc", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"GcR", "[", "ldt", "]"}], "/.", "qrt2"}]}], "}"}], "]"}]}],
       ";", 
      RowBox[{"athree", "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"G", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"GR", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"gto", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "3", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"MnRo", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "4", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"McRo", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "5", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"MnRt", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "6", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"McRt", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "7", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"MnPo", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "8", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"McPo", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "9", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"MnPt", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "10", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"McPt", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "11", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"MnB", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "12", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"McB", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "13", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"B", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "14", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"GBb", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "15", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"GBRb", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "16", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"Cl", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "17", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"MnRev", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "18", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"McRev", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "19", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"cyrev", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "20", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"revn", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "21", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"cyrevg", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "22", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"revng", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "23", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"cyrevgp", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "24", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"revngp", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "25", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"GB", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "26", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"GBR", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "27", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"cyrevp", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "29", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"revnp", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "30", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"BC", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "33", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"Gr", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "34", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"GrR", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "35", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"McNp", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "36", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"MnNp", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "37", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"Gc", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "38", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"GcR", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "39", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"pInh", "[", "0", "]"}], "\[Equal]", "0"}], ",", 
         RowBox[{
          RowBox[{"bInh", "[", "0", "]"}], "\[Equal]", "0"}], ",", 
         RowBox[{
          RowBox[{"Inh", "[", "0", "]"}], "\[Equal]", "0"}], ",", 
         RowBox[{
          RowBox[{"nInh", "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}]}], ";", 
      RowBox[{"afour", "=", 
       RowBox[{"Flatten", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
               "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "0", "]"}], 
           "\[Equal]", 
           RowBox[{"Init11", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{"j", "+", "1"}], ",", 
              RowBox[{"k", "+", "1"}], ",", 
              RowBox[{"l", "+", "1"}], ",", 
              RowBox[{"m", "+", "1"}], ",", 
              RowBox[{"n", "+", "1"}], ",", "1"}], "]"}], "]"}]}], ",", 
          RowBox[{"{", 
           RowBox[{"j", ",", "0", ",", "6"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"k", ",", "0", ",", "2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"l", ",", "0", ",", "5"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"m", ",", "0", ",", "1"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"n", ",", "0", ",", "1"}], "}"}]}], "]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"qrt22", "=", 
       RowBox[{"NDSolve", "[", 
        RowBox[{
         RowBox[{"Join", "[", 
          RowBox[{"daone", ",", "atwo", ",", "athree", ",", "afour"}], "]"}], 
         ",", "afive", ",", 
         RowBox[{"{", 
          RowBox[{"t", ",", "0", ",", 
           RowBox[{"24", "-", "ldt"}]}], "}"}], ",", 
         RowBox[{"MaxSteps", "\[Rule]", "100000"}], ",", 
         RowBox[{"MaxStepSize", "\[Rule]", "0.1"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"phase", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"phase", ",", 
         RowBox[{"{", 
          RowBox[{"Join", "[", 
           RowBox[{
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"MnB", "[", "t", "]"}], "/.", 
               RowBox[{"qrt2", "[", 
                RowBox[{"[", "1", "]"}], "]"}]}], ",", 
              RowBox[{"{", 
               RowBox[{"t", ",", "0", ",", "ldt", ",", "2"}], "}"}]}], "]"}], 
            ",", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"MnB", "[", "t", "]"}], "/.", 
               RowBox[{"qrt22", "[", 
                RowBox[{"[", "1", "]"}], "]"}]}], ",", 
              RowBox[{"{", 
               RowBox[{"t", ",", "2", ",", 
                RowBox[{"24", "-", "ldt"}], ",", "2"}], "}"}]}], "]"}]}], 
           "]"}], "}"}]}], "]"}]}], ";"}]}], "\[IndentingNewLine]", 
    "\[IndentingNewLine]", "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"imInit11", "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", "]"}], 
          "[", "m", "]"}], "[", "n", "]"}], "[", 
        RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
      RowBox[{"{", 
       RowBox[{"j", ",", "0", ",", "6"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"k", ",", "0", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"l", ",", "0", ",", "5"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"m", ",", "0", ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"n", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";", 
   RowBox[{"imInit22", "=", 
    RowBox[{"Flatten", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"G", "[", 
         RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"GR", "[", 
         RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"gto", "[", 
         RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"MnRo", "[", 
         RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"McRo", "[", 
         RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"MnRt", "[", 
         RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"McRt", "[", 
         RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"MnPo", "[", 
         RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"McPo", "[", 
         RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"MnPt", "[", 
         RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"McPt", "[", 
         RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"MnB", "[", 
         RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"McB", "[", 
         RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"B", "[", 
         RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"GBb", "[", 
         RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"GBRb", "[", 
         RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"Cl", "[", 
         RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"MnRev", "[", 
         RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"McRev", "[", 
         RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"cyrev", "[", 
         RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"revn", "[", 
         RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"cyrevg", "[", 
         RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"revng", "[", 
         RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"cyrevgp", "[", 
         RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"revngp", "[", 
         RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"GB", "[", 
         RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"GBR", "[", 
         RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", "0", ",", 
       RowBox[{
        RowBox[{"cyrevp", "[", 
         RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"revnp", "[", 
         RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", "0", ",", 
       "0", ",", 
       RowBox[{
        RowBox[{"BC", "[", 
         RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"Gr", "[", 
         RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"GrR", "[", 
         RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"McNp", "[", 
         RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"MnNp", "[", 
         RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"Gc", "[", 
         RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"GcR", "[", 
         RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}]}], "}"}], "]"}]}],
    ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"While", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Sqrt", "[", 
      RowBox[{"Total", "[", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"phase", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "-", 
            RowBox[{"phase", "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "/", 
          RowBox[{"phase", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "^", "2"}], "]"}], "]"}], 
     ">", "0.005"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"iternum", "++"}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"phase", "[", 
       RowBox[{"[", "1", "]"}], "]"}], "=", 
      RowBox[{"phase", "[", 
       RowBox[{"[", "2", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"Init1", "=", "imInit11"}], ";", "\[IndentingNewLine]", 
     RowBox[{"Init2", "=", "imInit22"}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"athree", "=", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"G", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init2", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"GR", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init2", "[", 
          RowBox[{"[", "2", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"gto", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init2", "[", 
          RowBox[{"[", "3", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"MnRo", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init2", "[", 
          RowBox[{"[", "4", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"McRo", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init2", "[", 
          RowBox[{"[", "5", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"MnRt", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init2", "[", 
          RowBox[{"[", "6", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"McRt", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init2", "[", 
          RowBox[{"[", "7", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"MnPo", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init2", "[", 
          RowBox[{"[", "8", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"McPo", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init2", "[", 
          RowBox[{"[", "9", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"MnPt", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init2", "[", 
          RowBox[{"[", "10", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"McPt", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init2", "[", 
          RowBox[{"[", "11", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"MnB", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init2", "[", 
          RowBox[{"[", "12", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"McB", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init2", "[", 
          RowBox[{"[", "13", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"B", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init2", "[", 
          RowBox[{"[", "14", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"GBb", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init2", "[", 
          RowBox[{"[", "15", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"GBRb", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init2", "[", 
          RowBox[{"[", "16", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"Cl", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init2", "[", 
          RowBox[{"[", "17", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"MnRev", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init2", "[", 
          RowBox[{"[", "18", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"McRev", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init2", "[", 
          RowBox[{"[", "19", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"cyrev", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init2", "[", 
          RowBox[{"[", "20", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"revn", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init2", "[", 
          RowBox[{"[", "21", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"cyrevg", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init2", "[", 
          RowBox[{"[", "22", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"revng", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init2", "[", 
          RowBox[{"[", "23", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"cyrevgp", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init2", "[", 
          RowBox[{"[", "24", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"revngp", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init2", "[", 
          RowBox[{"[", "25", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"GB", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init2", "[", 
          RowBox[{"[", "26", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"GBR", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init2", "[", 
          RowBox[{"[", "27", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"cyrevp", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init2", "[", 
          RowBox[{"[", "29", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"revnp", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init2", "[", 
          RowBox[{"[", "30", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"BC", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init2", "[", 
          RowBox[{"[", "33", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"Gr", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init2", "[", 
          RowBox[{"[", "34", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"GrR", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init2", "[", 
          RowBox[{"[", "35", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"McNp", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init2", "[", 
          RowBox[{"[", "36", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"MnNp", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init2", "[", 
          RowBox[{"[", "37", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"Gc", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init2", "[", 
          RowBox[{"[", "38", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"GcR", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init2", "[", 
          RowBox[{"[", "39", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"pInh", "[", "0", "]"}], "\[Equal]", "0"}], ",", 
        RowBox[{
         RowBox[{"bInh", "[", "0", "]"}], "\[Equal]", "0"}], ",", 
        RowBox[{
         RowBox[{"Inh", "[", "0", "]"}], "\[Equal]", "0"}], ",", 
        RowBox[{
         RowBox[{"nInh", "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"afour", "=", 
      RowBox[{"Flatten", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", "]"}],
              "[", "m", "]"}], "[", "n", "]"}], "[", "0", "]"}], "\[Equal]", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"l", ">", "3"}], ",", "0", ",", 
            RowBox[{"Init1", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{"j", "+", "1"}], ",", 
               RowBox[{"k", "+", "1"}], ",", 
               RowBox[{"l", "+", "1"}], ",", 
               RowBox[{"m", "+", "1"}], ",", 
               RowBox[{"n", "+", "1"}], ",", "1"}], "]"}], "]"}]}], "]"}]}], 
         ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "0", ",", "6"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"k", ",", "0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"l", ",", "0", ",", "5"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"m", ",", "0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"n", ",", "0", ",", "1"}], "}"}]}], "]"}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"afive", "=", 
      RowBox[{"Join", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "GR", ",", "G", ",", "MnRo", ",", "McRo", ",", "MnRt", ",", "McRt", 
          ",", "MnPo", ",", "McPo", ",", "MnPt", ",", "McPt", ",", "MnB", ",",
           "McB", ",", "B", ",", "Cl", ",", "MnRev", ",", "McRev", ",", 
          "cyrev", ",", "revn", ",", "cyrevg", ",", "revng", ",", "cyrevgp", 
          ",", "revngp", ",", "cyrevp", ",", "revnp", ",", "GB", ",", "GBR", 
          ",", "BC", ",", "pInh", ",", "nInh", ",", "bInh", ",", "Inh", ",", 
          "Gr", ",", "GrR", ",", "McNp", ",", "MnNp", ",", "Gc", ",", "GcR", 
          ",", "GBb", ",", "GBRb", ",", "gto"}], "}"}], ",", 
        RowBox[{"Flatten", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", "]"}],
              "[", "m", "]"}], "[", "n", "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"j", ",", "0", ",", "6"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"k", ",", "0", ",", "2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"l", ",", "0", ",", "5"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"m", ",", "0", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"n", ",", "0", ",", "1"}], "}"}]}], "]"}], "]"}]}], 
       "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"qrt2", "=", 
      RowBox[{"NDSolve", "[", 
       RowBox[{
        RowBox[{"Join", "[", 
         RowBox[{"laone1", ",", "atwo", ",", "athree", ",", "afour"}], "]"}], 
        ",", "afive", ",", 
        RowBox[{"{", 
         RowBox[{"t", ",", "0", ",", "ldt"}], "}"}], ",", 
        RowBox[{"MaxSteps", "\[Rule]", "100000"}], ",", 
        RowBox[{"MaxStepSize", "\[Rule]", "0.1"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"Init11", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", "]"}], 
            "[", "m", "]"}], "[", "n", "]"}], "[", "ldt", "]"}], "/.", 
         "qrt2"}], ",", 
        RowBox[{"{", 
         RowBox[{"j", ",", "0", ",", "6"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"k", ",", "0", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"l", ",", "0", ",", "5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"m", ",", "0", ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"n", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";", 
     RowBox[{"Init22", "=", 
      RowBox[{"Flatten", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"G", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
         RowBox[{
          RowBox[{"GR", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
         RowBox[{
          RowBox[{"gto", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
         RowBox[{
          RowBox[{"MnRo", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
         RowBox[{
          RowBox[{"McRo", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
         RowBox[{
          RowBox[{"MnRt", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
         RowBox[{
          RowBox[{"McRt", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
         RowBox[{
          RowBox[{"MnPo", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
         RowBox[{
          RowBox[{"McPo", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
         RowBox[{
          RowBox[{"MnPt", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
         RowBox[{
          RowBox[{"McPt", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
         RowBox[{
          RowBox[{"MnB", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
         RowBox[{
          RowBox[{"McB", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
         RowBox[{
          RowBox[{"B", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
         RowBox[{
          RowBox[{"GBb", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
         RowBox[{
          RowBox[{"GBRb", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
         RowBox[{
          RowBox[{"Cl", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
         RowBox[{
          RowBox[{"MnRev", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
         RowBox[{
          RowBox[{"McRev", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
         RowBox[{
          RowBox[{"cyrev", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
         RowBox[{
          RowBox[{"revn", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
         RowBox[{
          RowBox[{"cyrevg", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
         RowBox[{
          RowBox[{"revng", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
         RowBox[{
          RowBox[{"cyrevgp", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
         RowBox[{
          RowBox[{"revngp", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
         RowBox[{
          RowBox[{"GB", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
         RowBox[{
          RowBox[{"GBR", "[", "ldt", "]"}], "/.", "qrt2"}], ",", "0", ",", 
         RowBox[{
          RowBox[{"cyrevp", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
         RowBox[{
          RowBox[{"revnp", "[", "ldt", "]"}], "/.", "qrt2"}], ",", "0", ",", 
         "0", ",", 
         RowBox[{
          RowBox[{"BC", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
         RowBox[{
          RowBox[{"Gr", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
         RowBox[{
          RowBox[{"GrR", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
         RowBox[{
          RowBox[{"McNp", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
         RowBox[{
          RowBox[{"MnNp", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
         RowBox[{
          RowBox[{"Gc", "[", "ldt", "]"}], "/.", "qrt2"}], ",", 
         RowBox[{
          RowBox[{"GcR", "[", "ldt", "]"}], "/.", "qrt2"}]}], "}"}], "]"}]}], 
     ";", 
     RowBox[{"athree", "=", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"G", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init22", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"GR", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init22", "[", 
          RowBox[{"[", "2", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"gto", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init22", "[", 
          RowBox[{"[", "3", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"MnRo", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init22", "[", 
          RowBox[{"[", "4", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"McRo", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init22", "[", 
          RowBox[{"[", "5", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"MnRt", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init22", "[", 
          RowBox[{"[", "6", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"McRt", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init22", "[", 
          RowBox[{"[", "7", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"MnPo", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init22", "[", 
          RowBox[{"[", "8", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"McPo", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init22", "[", 
          RowBox[{"[", "9", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"MnPt", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init22", "[", 
          RowBox[{"[", "10", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"McPt", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init22", "[", 
          RowBox[{"[", "11", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"MnB", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init22", "[", 
          RowBox[{"[", "12", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"McB", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init22", "[", 
          RowBox[{"[", "13", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"B", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init22", "[", 
          RowBox[{"[", "14", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"GBb", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init22", "[", 
          RowBox[{"[", "15", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"GBRb", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init22", "[", 
          RowBox[{"[", "16", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"Cl", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init22", "[", 
          RowBox[{"[", "17", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"MnRev", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init22", "[", 
          RowBox[{"[", "18", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"McRev", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init22", "[", 
          RowBox[{"[", "19", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"cyrev", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init22", "[", 
          RowBox[{"[", "20", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"revn", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init22", "[", 
          RowBox[{"[", "21", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"cyrevg", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init22", "[", 
          RowBox[{"[", "22", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"revng", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init22", "[", 
          RowBox[{"[", "23", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"cyrevgp", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init22", "[", 
          RowBox[{"[", "24", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"revngp", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init22", "[", 
          RowBox[{"[", "25", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"GB", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init22", "[", 
          RowBox[{"[", "26", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"GBR", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init22", "[", 
          RowBox[{"[", "27", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"cyrevp", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init22", "[", 
          RowBox[{"[", "29", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"revnp", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init22", "[", 
          RowBox[{"[", "30", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"BC", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init22", "[", 
          RowBox[{"[", "33", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"Gr", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init22", "[", 
          RowBox[{"[", "34", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"GrR", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init22", "[", 
          RowBox[{"[", "35", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"McNp", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init22", "[", 
          RowBox[{"[", "36", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"MnNp", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init22", "[", 
          RowBox[{"[", "37", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"Gc", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init22", "[", 
          RowBox[{"[", "38", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"GcR", "[", "0", "]"}], "\[Equal]", 
         RowBox[{"Init22", "[", 
          RowBox[{"[", "39", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"pInh", "[", "0", "]"}], "\[Equal]", "0"}], ",", 
        RowBox[{
         RowBox[{"bInh", "[", "0", "]"}], "\[Equal]", "0"}], ",", 
        RowBox[{
         RowBox[{"Inh", "[", "0", "]"}], "\[Equal]", "0"}], ",", 
        RowBox[{
         RowBox[{"nInh", "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}]}], ";", 
     RowBox[{"afour", "=", 
      RowBox[{"Flatten", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", "]"}],
              "[", "m", "]"}], "[", "n", "]"}], "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init11", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"j", "+", "1"}], ",", 
             RowBox[{"k", "+", "1"}], ",", 
             RowBox[{"l", "+", "1"}], ",", 
             RowBox[{"m", "+", "1"}], ",", 
             RowBox[{"n", "+", "1"}], ",", "1"}], "]"}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "0", ",", "6"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"k", ",", "0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"l", ",", "0", ",", "5"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"m", ",", "0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"n", ",", "0", ",", "1"}], "}"}]}], "]"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"qrt22", "=", 
      RowBox[{"NDSolve", "[", 
       RowBox[{
        RowBox[{"Join", "[", 
         RowBox[{"daone", ",", "atwo", ",", "athree", ",", "afour"}], "]"}], 
        ",", "afive", ",", 
        RowBox[{"{", 
         RowBox[{"t", ",", "0", ",", 
          RowBox[{"24", "-", "ldt"}]}], "}"}], ",", 
        RowBox[{"MaxSteps", "\[Rule]", "100000"}], ",", 
        RowBox[{"MaxStepSize", "\[Rule]", "0.1"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"phase", "[", 
       RowBox[{"[", "2", "]"}], "]"}], "=", 
      RowBox[{"Join", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"MnB", "[", "t", "]"}], "/.", 
           RowBox[{"qrt2", "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], ",", 
          RowBox[{"{", 
           RowBox[{"t", ",", "0", ",", "ldt", ",", "2"}], "}"}]}], "]"}], ",", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"MnB", "[", "t", "]"}], "/.", 
           RowBox[{"qrt22", "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], ",", 
          RowBox[{"{", 
           RowBox[{"t", ",", "2", ",", 
            RowBox[{"24", "-", "ldt"}], ",", "2"}], "}"}]}], "]"}]}], "]"}]}],
      ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"imInit11", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", "]"}], 
            "[", "m", "]"}], "[", "n", "]"}], "[", 
          RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
        RowBox[{"{", 
         RowBox[{"j", ",", "0", ",", "6"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"k", ",", "0", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"l", ",", "0", ",", "5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"m", ",", "0", ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"n", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";", 
     RowBox[{"imInit22", "=", 
      RowBox[{"Flatten", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"G", "[", 
           RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
         RowBox[{
          RowBox[{"GR", "[", 
           RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
         RowBox[{
          RowBox[{"gto", "[", 
           RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
         RowBox[{
          RowBox[{"MnRo", "[", 
           RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
         RowBox[{
          RowBox[{"McRo", "[", 
           RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
         RowBox[{
          RowBox[{"MnRt", "[", 
           RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
         RowBox[{
          RowBox[{"McRt", "[", 
           RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
         RowBox[{
          RowBox[{"MnPo", "[", 
           RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
         RowBox[{
          RowBox[{"McPo", "[", 
           RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
         RowBox[{
          RowBox[{"MnPt", "[", 
           RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
         RowBox[{
          RowBox[{"McPt", "[", 
           RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
         RowBox[{
          RowBox[{"MnB", "[", 
           RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
         RowBox[{
          RowBox[{"McB", "[", 
           RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
         RowBox[{
          RowBox[{"B", "[", 
           RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
         RowBox[{
          RowBox[{"GBb", "[", 
           RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
         RowBox[{
          RowBox[{"GBRb", "[", 
           RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
         RowBox[{
          RowBox[{"Cl", "[", 
           RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
         RowBox[{
          RowBox[{"MnRev", "[", 
           RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
         RowBox[{
          RowBox[{"McRev", "[", 
           RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
         RowBox[{
          RowBox[{"cyrev", "[", 
           RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
         RowBox[{
          RowBox[{"revn", "[", 
           RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
         RowBox[{
          RowBox[{"cyrevg", "[", 
           RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
         RowBox[{
          RowBox[{"revng", "[", 
           RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
         RowBox[{
          RowBox[{"cyrevgp", "[", 
           RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
         RowBox[{
          RowBox[{"revngp", "[", 
           RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
         RowBox[{
          RowBox[{"GB", "[", 
           RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
         RowBox[{
          RowBox[{"GBR", "[", 
           RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", "0", ",", 
         RowBox[{
          RowBox[{"cyrevp", "[", 
           RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
         RowBox[{
          RowBox[{"revnp", "[", 
           RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", "0", ",", 
         "0", ",", 
         RowBox[{
          RowBox[{"BC", "[", 
           RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
         RowBox[{
          RowBox[{"Gr", "[", 
           RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
         RowBox[{
          RowBox[{"GrR", "[", 
           RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
         RowBox[{
          RowBox[{"McNp", "[", 
           RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
         RowBox[{
          RowBox[{"MnNp", "[", 
           RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
         RowBox[{
          RowBox[{"Gc", "[", 
           RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}], ",", 
         RowBox[{
          RowBox[{"GcR", "[", 
           RowBox[{"24", "-", "ldt"}], "]"}], "/.", "qrt22"}]}], "}"}], 
       "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"iternum", ">", "99"}], ",", 
       RowBox[{"Break", "[", "]"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.763005959959431*^9, 3.76300597126722*^9}, 
   3.7630062383171167`*^9, 3.763006282655557*^9, {3.7634613357578526`*^9, 
   3.7634613632315598`*^9}, 
   3.7681914796863213`*^9},ExpressionUUID->"ca9ad8e8-bb64-4eee-8f58-\
e729bc453bc7"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Step2", ":", " ", 
    RowBox[{
    "corresponding", " ", "each", " ", "phase", " ", "angle", " ", "of", " ", 
     "limit", " ", "cycle", " ", "to", " ", "a", " ", "specific", " ", "ZT", 
     RowBox[{"(", "CT", ")"}]}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"XXo", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"revng", "[", "t", "]"}], "/.", 
        RowBox[{"qrt2", "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0", ",", "ldt", ",", "0.01"}], "}"}]}], "]"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"XXt", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"revng", "[", "t", "]"}], "/.", 
        RowBox[{"qrt22", "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0.01", ",", 
         RowBox[{"24", "-", "ldt"}], ",", "0.01"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"YYo", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"revnp", "[", "t", "]"}], "/.", 
        RowBox[{"qrt2", "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0", ",", "ldt", ",", "0.01"}], "}"}]}], "]"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"YYt", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"revnp", "[", "t", "]"}], "/.", 
        RowBox[{"qrt22", "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0.01", ",", 
         RowBox[{"24", "-", "ldt"}], ",", "0.01"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"XX", "=", 
     RowBox[{"Join", "[", 
      RowBox[{"XXo", ",", "XXt"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"YY", "=", 
     RowBox[{"Join", "[", 
      RowBox[{"YYo", ",", "YYt"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"max1", "=", 
     RowBox[{"Max", "[", "XX", "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"min1", "=", 
     RowBox[{"Min", "[", "XX", "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"max2", "=", 
     RowBox[{"Max", "[", "YY", "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"min2", "=", 
     RowBox[{"Min", "[", "YY", "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"center1", "=", 
     RowBox[{
      RowBox[{"N", "[", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"max1", "+", "min1"}], ")"}], "/", "2"}], "]"}], "/", 
      "max1"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"center2", "=", 
     RowBox[{
      RowBox[{"N", "[", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"max2", "+", "min2"}], ")"}], "/", "2"}], "]"}], "/", 
      "max2"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"polar", "=", 
     RowBox[{"ToPolarCoordinates", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"XX", "[", 
             RowBox[{"[", 
              RowBox[{"i", "+", "1"}], "]"}], "]"}], "/", 
            RowBox[{"Max", "[", "XX", "]"}]}], "-", "center1"}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"YY", "[", 
             RowBox[{"[", 
              RowBox[{"i", "+", "1"}], "]"}], "]"}], "/", 
            RowBox[{"Max", "[", "YY", "]"}]}], "-", "center2"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "0", ",", "2400"}], "}"}]}], "]"}], "]"}]}], ";"}],
    "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"angle", "=", 
     RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"For", "[", 
     RowBox[{
      RowBox[{"i", "=", "1"}], ",", 
      RowBox[{"i", "<", "2402"}], ",", 
      RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"angle", "=", 
        RowBox[{"Join", "[", 
         RowBox[{"angle", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"polar", "[", 
             RowBox[{"[", "i", "]"}], "]"}], "[", 
            RowBox[{"[", "2", "]"}], "]"}], "}"}]}], "]"}]}], ";"}]}], 
     "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"angle", "=", 
     RowBox[{"Mod", "[", 
      RowBox[{"angle", ",", 
       RowBox[{"2", "*", "Pi"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"p", "=", 
     RowBox[{"Interpolation", "[", 
      RowBox[{"Sort", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"angle", "[", 
            RowBox[{"[", "i", "]"}], "]"}], ",", 
           RowBox[{
            RowBox[{"0.01", "*", "i"}], "-", "0.01"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", "2401"}], "}"}]}], "]"}], "]"}], 
      "]"}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{
  3.7630033444696574`*^9, {3.7630045457559004`*^9, 3.7630045614020615`*^9}, {
   3.7630046286761675`*^9, 3.763004655975168*^9}, {3.7630047530527673`*^9, 
   3.763004821775027*^9}, {3.7634622130314517`*^9, 3.7634622380010858`*^9}, {
   3.7634622692875156`*^9, 3.763462330679574*^9}, 
   3.7681914939262652`*^9},ExpressionUUID->"9174fa14-1933-41ae-bc25-\
6550d737e3e7"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "Construction", " ", "of", " ", "the", " ", "Composition", " ", "of", " ",
      "g", " ", "and", " ", "p"}], ",", " ", "g\[FilledVerySmallSquare]p"}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"circle", "=", 
     RowBox[{"Sort", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"angle", "[", 
           RowBox[{"[", "i", "]"}], "]"}], ",", 
          RowBox[{"g", "[", 
           RowBox[{"p", "[", 
            RowBox[{"angle", "[", 
             RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", "2401"}], "}"}]}], "]"}], "]"}]}], ";"}],
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"2", "*", "Pi"}], "-", 
        RowBox[{"Max", "[", "angle", "]"}]}], "<", 
       RowBox[{"Min", "[", "angle", "]"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"circle", "=", 
        RowBox[{"Join", "[", 
         RowBox[{"circle", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", 
              RowBox[{
               RowBox[{"circle", "[", 
                RowBox[{"[", "2401", "]"}], "]"}], "[", 
               RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"2", "*", "Pi"}], ",", 
              RowBox[{
               RowBox[{"circle", "[", 
                RowBox[{"[", "2401", "]"}], "]"}], "[", 
               RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "}"}]}], "]"}]}], 
       ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"circle", "=", 
        RowBox[{"Join", "[", 
         RowBox[{"circle", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", 
              RowBox[{
               RowBox[{"circle", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "[", 
               RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"2", "*", "Pi"}], ",", 
              RowBox[{
               RowBox[{"circle", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "[", 
               RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "}"}]}], "]"}]}], 
       ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"function1", ":", " ", 
     RowBox[{
     "Construction", " ", "of", " ", "g\[FilledVerySmallSquare]p", " ", 
      "usuing", " ", "Interpolation", " ", "function"}]}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"function1", "=", 
     RowBox[{"Interpolation", "[", "circle", "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"function2", ":", " ", 
     RowBox[{"Approximation", " ", 
      RowBox[{"(", "Construction", ")"}], " ", "of", " ", 
      "g\[FilledVerySmallSquare]p", " ", "using", " ", "Fourier", " ", 
      "series"}]}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"k", "=", "100"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"para1", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"a", "[", "i", "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "0", ",", "k"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"para2", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"b", "[", "i", "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "k"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"function2", "=", 
     RowBox[{"NonlinearModelFit", "[", 
      RowBox[{"circle", ",", 
       RowBox[{
        RowBox[{"a", "[", "0", "]"}], "+", 
        RowBox[{"Sum", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"a", "[", "i", "]"}], "*", 
            RowBox[{"Sin", "[", 
             RowBox[{"i", "*", "w", "*", "x"}], "]"}]}], "+", 
           RowBox[{
            RowBox[{"b", "[", "i", "]"}], "*", 
            RowBox[{"Cos", "[", 
             RowBox[{"i", "*", "w", "*", "x"}], "]"}]}]}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", "k"}], "}"}]}], "]"}]}], ",", 
       RowBox[{"Join", "[", 
        RowBox[{"para1", ",", "para2", ",", 
         RowBox[{"{", "w", "}"}]}], "]"}], ",", "x"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"compositgp", "=", "function2"}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.7630049619681463`*^9, 3.7630050050958195`*^9}, {
   3.7630050590704904`*^9, 3.7630050867703886`*^9}, {3.763005184425293*^9, 
   3.7630054158484554`*^9}, {3.7630057973831687`*^9, 3.763005798250877*^9}, {
   3.763006108221978*^9, 3.763006154422455*^9}, {3.763461412497844*^9, 
   3.763461421825468*^9}, 
   3.7636091470644274`*^9},ExpressionUUID->"48bd76d9-041c-4f7b-a186-\
faa2dbff5d66"],

Cell[BoxData[
 StyleBox[
  RowBox[{
  "Simulation", " ", "of", " ", "Chronic", " ", "Dosing", " ", "under", " ", 
   "LD", " ", "cycle"}], "Subtitle"]], "Input",ExpressionUUID->"1a6137a3-950b-\
4c0b-8567-aaad165bd2f3"],

Cell[BoxData[
 StyleBox[
  RowBox[{
  "Entrainment", " ", "to", " ", "LD", " ", "cycle", " ", "before", " ", 
   "dosing"}], "Subsubtitle"]], "Input",
 CellChangeTimes->{{3.735953440805439*^9, 
  3.7359534435924644`*^9}},ExpressionUUID->"10125fff-1e3a-4973-bb78-\
1827389a77d2"],

Cell[BoxData[{
 StyleBox[
  RowBox[{
   RowBox[{
    RowBox[{"Equations", " ", "for", " ", "Single"}], "-", 
    RowBox[{
    "state", " ", "Variables", " ", "while", " ", "light", " ", "is", " ", 
     "on"}]}], " "}], "Subsubtitle"], "\[IndentingNewLine]", 
 StyleBox[
  RowBox[{
  "Detailed", " ", "description", " ", "can", " ", "be", " ", "found", " ", 
   "in", "  ", "Appendix", " ", "Equation1", " ", "and", " ", "Table", " ", 
   "EV1"}], "Subsubtitle"], "\[IndentingNewLine]", 
 StyleBox[
  RowBox[{"laone2", ":", " ", 
   StyleBox[
    RowBox[{"The", " ", "function", " ", "p", " ", "is", " ", 
     StyleBox[
      StyleBox["incorporated", "Subsubtitle",
       FontColor->RGBColor[1, 0, 0]], "Subsubtitle",
      FontColor->RGBColor[1, 0, 0]], 
     StyleBox[" ", "Subsubtitle",
      FontColor->RGBColor[1, 0, 0]], 
     StyleBox[
      StyleBox[
       StyleBox[
        RowBox[{
         StyleBox["in", "Subsubtitle",
          FontColor->RGBColor[1, 0, 0]], "to"}]], "Subsubtitle",
       FontColor->RGBColor[1, 0, 0]], "Subsubtitle",
      FontColor->RGBColor[1, 0, 0]], 
     StyleBox[" ", "Subsubtitle",
      FontColor->RGBColor[1, 0, 0]], 
     StyleBox[
      StyleBox[
       StyleBox[
        RowBox[{"th", 
         StyleBox["e", "Subsubtitle",
          FontColor->RGBColor[1, 0, 0]]}], "Subsubtitle",
        FontColor->RGBColor[1, 0, 0]], "Subsubtitle",
       FontColor->RGBColor[1, 0, 0]], "Subsubtitle",
      FontColor->RGBColor[1, 0, 0]], 
     StyleBox[" ", "Subsubtitle",
      FontColor->RGBColor[1, 0, 0]], 
     StyleBox[
      StyleBox[
       StyleBox["light", "Subsubtitle",
        FontColor->RGBColor[1, 0, 0]], "Subsubtitle",
       FontColor->RGBColor[1, 0, 0]], "Subsubtitle",
      FontColor->RGBColor[1, 0, 0]], 
     StyleBox[" ", "Subsubtitle",
      FontColor->RGBColor[1, 0, 0]], 
     StyleBox[
      StyleBox[
       RowBox[{
        StyleBox["mo", "Subsubtitle",
         FontColor->RGBColor[1, 0, 0]], "dule"}], "Subsubtitle",
       FontColor->RGBColor[1, 0, 0]], "Subsubtitle",
      FontColor->RGBColor[1, 0, 0]]}],
    FontColor->RGBColor[1, 0, 0]]}], "Subsubtitle"]}], "Input",
 CellChangeTimes->{{3.7630060294346495`*^9, 3.763006081094509*^9}, {
   3.7630066187657647`*^9, 3.763006620801327*^9}, {3.7630068103006*^9, 
   3.7630068106327205`*^9}, 3.7636082198974724`*^9, {3.7636089234643326`*^9, 
   3.7636089260843267`*^9}, {3.76360909900692*^9, 
   3.7636091086152267`*^9}},ExpressionUUID->"a0d7449f-c4f5-4d2f-92b1-\
1edde56ff4bd"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"laone2", "=", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{"Original", " ", "model", " ", "equations"}], "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{"E", "-", 
       RowBox[{"box", " ", "activity"}]}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"GR", "'"}], "[", "t", "]"}], "\[Equal]", 
       RowBox[{
        RowBox[{"bin", "*", 
         RowBox[{"(", 
          RowBox[{"Sum", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "0", "]"}], "[", "kk", "]"}], "[", "0", 
                "]"}], "[", "1", "]"}], "[", "1", "]"}], "[", "t", "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"kk", ",", "1", ",", "2"}], "}"}]}], "]"}], ")"}], "*", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"G", "[", "t", "]"}], "-", 
           RowBox[{"GR", "[", "t", "]"}]}], ")"}]}], "-", 
        RowBox[{"unbin", "*", 
         RowBox[{"GR", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"G", "'"}], "[", "t", "]"}], "\[Equal]", 
       RowBox[{
        RowBox[{"bin", "*", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"x", "[", "0", "]"}], "[", "0", "]"}], "[", "0", "]"}], 
            "[", "1", "]"}], "[", "1", "]"}], "[", "t", "]"}], "*", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"G", "[", "t", "]"}], "-", 
           RowBox[{"GR", "[", "t", "]"}]}], ")"}]}], "-", 
        RowBox[{"unbin", "*", 
         RowBox[{"G", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"GrR", "'"}], "[", "t", "]"}], "\[Equal]", 
       RowBox[{
        RowBox[{"binr", "*", 
         RowBox[{"(", 
          RowBox[{"Sum", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "0", "]"}], "[", "kk", "]"}], "[", "0", 
                "]"}], "[", "1", "]"}], "[", "1", "]"}], "[", "t", "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"kk", ",", "1", ",", "2"}], "}"}]}], "]"}], ")"}], "*", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"Gr", "[", "t", "]"}], "-", 
           RowBox[{"GrR", "[", "t", "]"}]}], ")"}]}], "-", 
        RowBox[{"unbinr", "*", 
         RowBox[{"GrR", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"Gr", "'"}], "[", "t", "]"}], "\[Equal]", 
       RowBox[{
        RowBox[{"binr", "*", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"x", "[", "0", "]"}], "[", "0", "]"}], "[", "0", "]"}], 
            "[", "1", "]"}], "[", "1", "]"}], "[", "t", "]"}], "*", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"Gr", "[", "t", "]"}], "-", 
           RowBox[{"GrR", "[", "t", "]"}]}], ")"}]}], "-", 
        RowBox[{"unbinr", "*", 
         RowBox[{"Gr", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"GcR", "'"}], "[", "t", "]"}], "\[Equal]", 
       RowBox[{
        RowBox[{"binc", "*", 
         RowBox[{"(", 
          RowBox[{"Sum", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "0", "]"}], "[", "kk", "]"}], "[", "0", 
                "]"}], "[", "1", "]"}], "[", "1", "]"}], "[", "t", "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"kk", ",", "1", ",", "2"}], "}"}]}], "]"}], ")"}], "*", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"Gc", "[", "t", "]"}], "-", 
           RowBox[{"GcR", "[", "t", "]"}]}], ")"}]}], "-", 
        RowBox[{"unbinc", "*", 
         RowBox[{"GcR", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"Gc", "'"}], "[", "t", "]"}], "\[Equal]", 
       RowBox[{
        RowBox[{"binc", "*", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"x", "[", "0", "]"}], "[", "0", "]"}], "[", "0", "]"}], 
            "[", "1", "]"}], "[", "1", "]"}], "[", "t", "]"}], "*", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"Gc", "[", "t", "]"}], "-", 
           RowBox[{"GcR", "[", "t", "]"}]}], ")"}]}], "-", 
        RowBox[{"unbinc", "*", 
         RowBox[{"Gc", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{"RORE", " ", "activity"}], "*)"}], "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"GBR", "'"}], "[", "t", "]"}], "\[Equal]", 
       RowBox[{
        RowBox[{"binrev", "*", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"revn", "[", "t", "]"}], "+", 
           RowBox[{"revng", "[", "t", "]"}], "+", 
           RowBox[{"revngp", "[", "t", "]"}], "+", 
           RowBox[{"revnp", "[", "t", "]"}]}], ")"}], "*", 
         RowBox[{"GB", "[", "t", "]"}]}], "-", 
        RowBox[{"unbinrev", "*", 
         RowBox[{"GBR", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"GB", "'"}], "[", "t", "]"}], "\[Equal]", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "binrev"}], "*", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"revn", "[", "t", "]"}], "+", 
           RowBox[{"revng", "[", "t", "]"}], "+", 
           RowBox[{"revngp", "[", "t", "]"}], "+", 
           RowBox[{"revnp", "[", "t", "]"}]}], ")"}], "*", 
         RowBox[{"GB", "[", "t", "]"}]}], "+", 
        RowBox[{"unbinrev", "*", 
         RowBox[{"GBR", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"GBRb", "'"}], "[", "t", "]"}], "\[Equal]", 
       RowBox[{
        RowBox[{"binrevb", "*", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"revn", "[", "t", "]"}], "+", 
           RowBox[{"revng", "[", "t", "]"}], "+", 
           RowBox[{"revngp", "[", "t", "]"}], "+", 
           RowBox[{"revnp", "[", "t", "]"}]}], ")"}], "*", 
         RowBox[{"GBb", "[", "t", "]"}]}], "-", 
        RowBox[{"unbinrevb", "*", 
         RowBox[{"GBRb", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"GBb", "'"}], "[", "t", "]"}], "\[Equal]", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "binrevb"}], "*", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"revn", "[", "t", "]"}], "+", 
           RowBox[{"revng", "[", "t", "]"}], "+", 
           RowBox[{"revngp", "[", "t", "]"}], "+", 
           RowBox[{"revnp", "[", "t", "]"}]}], ")"}], "*", 
         RowBox[{"GBb", "[", "t", "]"}]}], "+", 
        RowBox[{"unbinrevb", "*", 
         RowBox[{"GBRb", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{"Transcription", " ", "-", " ", 
        RowBox[{
        "gating", " ", "and", " ", "adaptation", " ", "for", " ", "light", 
         " ", "are", " ", "incorporated"}]}], "*)"}], "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"MnPo", "'"}], "[", "t", "]"}], "\[Equal]", 
       RowBox[{
        RowBox[{"trPo", "*", 
         RowBox[{"G", "[", "t", "]"}]}], "-", 
        RowBox[{"tmc", "*", 
         RowBox[{"MnPo", "[", "t", "]"}]}], "-", 
        RowBox[{"umPo", "*", 
         RowBox[{"MnPo", "[", "t", "]"}]}], "+", 
        RowBox[{"lono", "*", "trPo", "*", 
         RowBox[{"compositgp", "[", 
          RowBox[{"Mod", "[", 
           RowBox[{
            RowBox[{"ArcTan", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"revng", "[", "t", "]"}], "/", "max1"}], "-", 
               "center1"}], ",", 
              RowBox[{
               RowBox[{
                RowBox[{"revnp", "[", "t", "]"}], "/", "max2"}], "-", 
               "center2"}]}], "]"}], ",", 
            RowBox[{"2", "*", "Pi"}]}], "]"}], "]"}], "*", 
         RowBox[{"adap", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"McPo", "'"}], "[", "t", "]"}], "\[Equal]", 
       RowBox[{
        RowBox[{"tmc", "*", 
         RowBox[{"MnPo", "[", "t", "]"}]}], "-", 
        RowBox[{"umPo", "*", 
         RowBox[{"McPo", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"MnPt", "'"}], "[", "t", "]"}], "\[Equal]", 
       RowBox[{
        RowBox[{"trPt", "*", 
         RowBox[{"G", "[", "t", "]"}]}], "-", 
        RowBox[{"tmc", "*", 
         RowBox[{"MnPt", "[", "t", "]"}]}], "-", 
        RowBox[{"umPt", "*", 
         RowBox[{"MnPt", "[", "t", "]"}]}], "+", 
        RowBox[{"lont", "*", "trPt", "*", 
         RowBox[{"compositgp", "[", 
          RowBox[{"Mod", "[", 
           RowBox[{
            RowBox[{"ArcTan", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"revng", "[", "t", "]"}], "/", "max1"}], "-", 
               "center1"}], ",", 
              RowBox[{
               RowBox[{
                RowBox[{"revnp", "[", "t", "]"}], "/", "max2"}], "-", 
               "center2"}]}], "]"}], ",", 
            RowBox[{"2", "*", "Pi"}]}], "]"}], "]"}], "*", 
         RowBox[{"adap", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"McPt", "'"}], "[", "t", "]"}], "\[Equal]", 
       RowBox[{
        RowBox[{"tmc", "*", 
         RowBox[{"MnPt", "[", "t", "]"}]}], "-", 
        RowBox[{"umPt", "*", 
         RowBox[{"McPt", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"MnRt", "'"}], "[", "t", "]"}], "\[Equal]", 
       RowBox[{
        RowBox[{"trRt", "*", 
         RowBox[{"Gc", "[", "t", "]"}]}], "-", 
        RowBox[{"tmc", "*", 
         RowBox[{"MnRt", "[", "t", "]"}]}], "-", 
        RowBox[{"umRt", "*", 
         RowBox[{"MnRt", "[", "t", "]"}]}]}]}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"McRt", "'"}], "[", "t", "]"}], "\[Equal]", 
       RowBox[{
        RowBox[{"tmc", "*", 
         RowBox[{"MnRt", "[", "t", "]"}]}], "-", 
        RowBox[{"umRt", "*", 
         RowBox[{"McRt", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"MnRev", "'"}], "[", "t", "]"}], "\[Equal]", 
       RowBox[{
        RowBox[{"trRev", "*", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"x", "[", "0", "]"}], "[", "0", "]"}], "[", "0", "]"}], 
            "[", "1", "]"}], "[", "1", "]"}], "[", "t", "]"}], "*", 
         RowBox[{"Gr", "[", "t", "]"}]}], "-", 
        RowBox[{"tmcrev", "*", 
         RowBox[{"MnRev", "[", "t", "]"}]}], "-", 
        RowBox[{"umRev", "*", 
         RowBox[{"MnRev", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"McRev", "'"}], "[", "t", "]"}], "\[Equal]", 
       RowBox[{
        RowBox[{"tmcrev", "*", 
         RowBox[{"MnRev", "[", "t", "]"}]}], "-", 
        RowBox[{"umRev", "*", 
         RowBox[{"McRev", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"MnRo", "'"}], "[", "t", "]"}], "\[Equal]", 
       RowBox[{
        RowBox[{"trRo", "*", 
         RowBox[{"G", "[", "t", "]"}], "*", 
         RowBox[{"GB", "[", "t", "]"}]}], "-", 
        RowBox[{"tmc", "*", 
         RowBox[{"MnRo", "[", "t", "]"}]}], "-", 
        RowBox[{"umRo", "*", 
         RowBox[{"MnRo", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"McRo", "'"}], "[", "t", "]"}], "\[Equal]", 
       RowBox[{
        RowBox[{"tmc", "*", 
         RowBox[{"MnRo", "[", "t", "]"}]}], "-", 
        RowBox[{"umRo", "*", 
         RowBox[{"McRo", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"MnB", "'"}], "[", "t", "]"}], "\[Equal]", 
       RowBox[{
        RowBox[{"trB", "*", 
         RowBox[{"GBb", "[", "t", "]"}]}], "-", 
        RowBox[{"tmc", "*", 
         RowBox[{"MnB", "[", "t", "]"}]}], "-", 
        RowBox[{"umB", "*", 
         RowBox[{"MnB", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"McB", "'"}], "[", "t", "]"}], "\[Equal]", 
       RowBox[{
        RowBox[{"tmc", "*", 
         RowBox[{"MnB", "[", "t", "]"}]}], "-", 
        RowBox[{"umB", "*", 
         RowBox[{"McB", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"MnNp", "'"}], "[", "t", "]"}], "\[Equal]", 
       RowBox[{
        RowBox[{"trNp", "*", 
         RowBox[{"GB", "[", "t", "]"}]}], "-", 
        RowBox[{"tmc", "*", 
         RowBox[{"MnNp", "[", "t", "]"}]}], "-", 
        RowBox[{"umNp", "*", 
         RowBox[{"MnNp", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"McNp", "'"}], "[", "t", "]"}], "\[Equal]", 
       RowBox[{
        RowBox[{"tmc", "*", 
         RowBox[{"MnNp", "[", "t", "]"}]}], "-", 
        RowBox[{"umNp", "*", 
         RowBox[{"McNp", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{"Secondary", " ", "Feedback", " ", "Loop"}], "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"B", "'"}], "[", "t", "]"}], "\[Equal]", 
       RowBox[{
        RowBox[{"tlb", "*", 
         RowBox[{"McB", "[", "t", "]"}]}], "-", 
        RowBox[{"cbin", "*", 
         RowBox[{"B", "[", "t", "]"}], "*", 
         RowBox[{"Cl", "[", "t", "]"}]}], "+", 
        RowBox[{"uncbin", "*", 
         RowBox[{"BC", "[", "t", "]"}]}], "-", 
        RowBox[{"ub", "*", 
         RowBox[{"B", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"Cl", "'"}], "[", "t", "]"}], "\[Equal]", 
       RowBox[{
        RowBox[{"tlnp", "*", 
         RowBox[{"McNp", "[", "t", "]"}]}], "+", "tlc", "-", 
        RowBox[{"cbin", "*", 
         RowBox[{"B", "[", "t", "]"}], "*", 
         RowBox[{"Cl", "[", "t", "]"}]}], "+", 
        RowBox[{"uncbin", "*", 
         RowBox[{"BC", "[", "t", "]"}]}], "-", 
        RowBox[{"uc", "*", 
         RowBox[{"Cl", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"BC", "'"}], "[", "t", "]"}], "\[Equal]", 
       RowBox[{
        RowBox[{"cbin", "*", 
         RowBox[{"B", "[", "t", "]"}], "*", 
         RowBox[{"Cl", "[", "t", "]"}]}], "-", 
        RowBox[{"uncbin", "*", 
         RowBox[{"BC", "[", "t", "]"}]}], "-", 
        RowBox[{"phos", "*", 
         RowBox[{"BC", "[", "t", "]"}]}], "-", 
        RowBox[{"ubc", "*", 
         RowBox[{"BC", "[", "t", "]"}]}]}]}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"cyrev", "'"}], "[", "t", "]"}], "\[Equal]", 
       RowBox[{
        RowBox[{"tlrev", "*", 
         RowBox[{"McRev", "[", "t", "]"}]}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"nlrev", "+", "urev"}], ")"}], "*", 
         RowBox[{"cyrev", "[", "t", "]"}]}], "-", 
        RowBox[{"ag", "*", 
         RowBox[{"cyrev", "[", "t", "]"}], "*", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"x", "[", "0", "]"}], "[", "0", "]"}], "[", "2", "]"}],
              "[", "0", "]"}], "[", "0", "]"}], "[", "t", "]"}], ")"}]}], "+", 
        RowBox[{"nerev", "*", 
         RowBox[{"revn", "[", "t", "]"}]}], "+", 
        RowBox[{"dg", "*", 
         RowBox[{"cyrevg", "[", "t", "]"}]}]}]}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"revn", "'"}], "[", "t", "]"}], "\[Equal]", 
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          RowBox[{"(", 
           RowBox[{"nerev", "+", "urev"}], ")"}]}], "*", 
         RowBox[{"revn", "[", "t", "]"}]}], "-", 
        RowBox[{"ag", "*", "Nf", "*", 
         RowBox[{"revn", "[", "t", "]"}], "*", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"x", "[", "0", "]"}], "[", "0", "]"}], "[", "2", "]"}],
              "[", "1", "]"}], "[", "0", "]"}], "[", "t", "]"}], ")"}]}], "+", 
        RowBox[{"nlrev", "*", 
         RowBox[{"cyrev", "[", "t", "]"}]}], "+", 
        RowBox[{"dg", "*", 
         RowBox[{"(", 
          RowBox[{"revng", "[", "t", "]"}], ")"}]}]}]}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"cyrevg", "'"}], "[", "t", "]"}], "\[Equal]", 
       RowBox[{
        RowBox[{"ag", "*", 
         RowBox[{"cyrev", "[", "t", "]"}], "*", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"x", "[", "0", "]"}], "[", "0", "]"}], "[", "2", "]"}], 
            "[", "0", "]"}], "[", "0", "]"}], "[", "t", "]"}]}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"dg", "+", 
           RowBox[{"gto", "[", "t", "]"}], "+", "urev", "+", "nlrev"}], ")"}],
          "*", 
         RowBox[{"cyrevg", "[", "t", "]"}]}], "+", 
        RowBox[{"nerev", "*", 
         RowBox[{"revng", "[", "t", "]"}]}]}]}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"revng", "'"}], "[", "t", "]"}], "\[Equal]", 
       RowBox[{
        RowBox[{"ag", "*", "Nf", "*", 
         RowBox[{"revn", "[", "t", "]"}], "*", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"x", "[", "0", "]"}], "[", "0", "]"}], "[", "2", "]"}], 
            "[", "1", "]"}], "[", "0", "]"}], "[", "t", "]"}]}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"dg", "+", 
           RowBox[{"gto", "[", "t", "]"}], "+", "urev", "+", "nerev"}], ")"}],
          "*", 
         RowBox[{"revng", "[", "t", "]"}]}], "+", 
        RowBox[{"nlrev", "*", 
         RowBox[{"cyrevg", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"cyrevgp", "'"}], "[", "t", "]"}], "\[Equal]", 
       RowBox[{
        RowBox[{
         RowBox[{"gto", "[", "t", "]"}], "*", 
         RowBox[{"cyrevg", "[", "t", "]"}]}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"dg", "+", "uprev", "+", "nlrev"}], ")"}], "*", 
         RowBox[{"cyrevgp", "[", "t", "]"}]}], "+", 
        RowBox[{"nerev", "*", 
         RowBox[{"revngp", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"revngp", "'"}], "[", "t", "]"}], "\[Equal]", 
       RowBox[{
        RowBox[{
         RowBox[{"gto", "[", "t", "]"}], "*", 
         RowBox[{"revng", "[", "t", "]"}]}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"dg", "+", "uprev", "+", "nerev"}], ")"}], "*", 
         RowBox[{"revngp", "[", "t", "]"}]}], "+", 
        RowBox[{"nlrev", "*", 
         RowBox[{"cyrevgp", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"cyrevp", "'"}], "[", "t", "]"}], "\[Equal]", 
       RowBox[{
        RowBox[{"dg", "*", 
         RowBox[{"(", 
          RowBox[{"cyrevgp", "[", "t", "]"}], ")"}]}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"uprev", "+", "nlrev"}], ")"}], "*", 
         RowBox[{"cyrevp", "[", "t", "]"}]}], "+", 
        RowBox[{"nerev", "*", 
         RowBox[{"revnp", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"revnp", "'"}], "[", "t", "]"}], "\[Equal]", 
       RowBox[{
        RowBox[{"dg", "*", 
         RowBox[{"(", 
          RowBox[{"revngp", "[", "t", "]"}], ")"}]}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"uprev", "+", "nerev"}], ")"}], "*", 
         RowBox[{"revnp", "[", "t", "]"}]}], "+", 
        RowBox[{"nlrev", "*", 
         RowBox[{"cyrevp", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{"Activity", " ", "of", " ", "GSK3b"}], "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"gto", "'"}], "[", "t", "]"}], "\[Equal]", 
       RowBox[{
        RowBox[{"trgto", "*", 
         RowBox[{"G", "[", "t", "]"}], "*", 
         RowBox[{"GB", "[", "t", "]"}]}], "-", 
        RowBox[{"ugto", "*", 
         RowBox[{"gto", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{"Free", " ", "Blood", " ", "Plsma", " ", "Concentration"}], 
       "*)"}], "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"pInh", "'"}], "[", "t", "]"}], "==", 
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          RowBox[{"(", 
           RowBox[{"uinp", "+", "nlpin"}], ")"}]}], "*", 
         RowBox[{"pInh", "[", "t", "]"}]}], "+", 
        RowBox[{"nepin", "*", 
         RowBox[{"bInh", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{"Free", " ", "Brain", " ", "Tissue", " ", "Concentration"}], 
       "*)"}], "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"bInh", "'"}], "[", "t", "]"}], "==", 
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          RowBox[{"(", 
           RowBox[{"nlbin", "+", "nepin"}], ")"}]}], "*", 
         RowBox[{"bInh", "[", "t", "]"}]}], "+", 
        RowBox[{"nlpin", "*", 
         RowBox[{"pInh", "[", "t", "]"}]}], "+", 
        RowBox[{"nebin", "*", 
         RowBox[{"Inh", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{"Free", " ", "Cytoplasm", " ", "Concentration"}], "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"Inh", "'"}], "[", "t", "]"}], "==", 
       RowBox[{
        RowBox[{"nlbin", "*", 
         RowBox[{"bInh", "[", "t", "]"}]}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"nebin", "+", "nlin"}], ")"}], "*", 
         RowBox[{"Inh", "[", "t", "]"}]}], "+", 
        RowBox[{"nein", "*", 
         RowBox[{"nInh", "[", "t", "]"}]}], "+", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "inbin"}], "*", 
          RowBox[{"Inh", "[", "t", "]"}], "*", 
          RowBox[{"Sum", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "jj", "]"}], "[", "kk", "]"}], "[", "ll", 
                "]"}], "[", "0", "]"}], "[", "0", "]"}], "[", "t", "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"jj", ",", "0", ",", "6"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"kk", ",", "0", ",", "2"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"ll", ",", "1", ",", "3", ",", "2"}], "}"}]}], "]"}]}], 
         ")"}], "+", 
        RowBox[{"inubin", "*", 
         RowBox[{"Sum", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"x", "[", "jj", "]"}], "[", "kk", "]"}], "[", "ll", 
               "]"}], "[", "0", "]"}], "[", "0", "]"}], "[", "t", "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"jj", ",", "0", ",", "6"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"kk", ",", "0", ",", "2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"ll", ",", "4", ",", "5"}], "}"}]}], "]"}]}]}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{"Free", " ", "Nucleus", " ", "Concentration"}], "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"nInh", "'"}], "[", "t", "]"}], "==", 
       RowBox[{
        RowBox[{
         RowBox[{"Inh", "[", "t", "]"}], "*", "nlin"}], "-", 
        RowBox[{
         RowBox[{"(", "nein", ")"}], "*", 
         RowBox[{"nInh", "[", "t", "]"}]}], "-", 
        RowBox[{"(", 
         RowBox[{"inbin", "*", "Nf", "*", 
          RowBox[{"nInh", "[", "t", "]"}], "*", 
          RowBox[{"Sum", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"x", "[", "jj", "]"}], "[", "kk", "]"}], "[", "ll", 
                "]"}], "[", "1", "]"}], "[", "nn", "]"}], "[", "t", "]"}], 
            ",", 
            RowBox[{"{", 
             RowBox[{"jj", ",", "0", ",", "6"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"kk", ",", "0", ",", "2"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"ll", ",", "1", ",", "3", ",", "2"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"nn", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ")"}], "+", 
        RowBox[{"inubin", "*", 
         RowBox[{"Sum", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"x", "[", "jj", "]"}], "[", "kk", "]"}], "[", "ll", 
               "]"}], "[", "1", "]"}], "[", "nn", "]"}], "[", "t", "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"jj", ",", "0", ",", "6"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"kk", ",", "0", ",", "2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"ll", ",", "4", ",", "5"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"nn", ",", "0", ",", "1"}], "}"}]}], "]"}]}]}]}]}], 
     "\[IndentingNewLine]", "\[IndentingNewLine]", "}"}]}], ";"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.735953468727441*^9, 3.7359534752534733`*^9}, {
   3.735953534688447*^9, 3.7359535578985577`*^9}, {3.7630061655596714`*^9, 
   3.7630061689107103`*^9}, 3.7630062519885273`*^9, {3.763006815669241*^9, 
   3.763006820407572*^9}, {3.76346104465902*^9, 3.763461047884466*^9}, {
   3.7634620686534767`*^9, 3.7634620922550697`*^9}, {3.763609147078417*^9, 
   3.7636091470873656`*^9}},ExpressionUUID->"58f693eb-a19f-4002-ba78-\
58807eeca8e6"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Init1", "=", "imInit11"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Init2", "=", "imInit22"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"phase", "=", 
    RowBox[{"{", "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"iternum", "=", "2"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"jjj", "=", "1"}], ",", 
     RowBox[{"jjj", "<", "3"}], ",", 
     RowBox[{"jjj", "++"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"jjj", "\[Equal]", "1"}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"athree", "=", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"G", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"GR", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"gto", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "3", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"MnRo", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "4", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"McRo", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "5", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"MnRt", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "6", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"McRt", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "7", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"MnPo", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "8", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"McPo", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "9", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"MnPt", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "10", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"McPt", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "11", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"MnB", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "12", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"McB", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "13", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"B", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "14", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"GBb", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "15", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"GBRb", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "16", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"Cl", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "17", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"MnRev", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "18", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"McRev", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "19", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"cyrev", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "20", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"revn", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "21", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"cyrevg", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "22", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"revng", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "23", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"cyrevgp", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "24", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"revngp", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "25", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"GB", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "26", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"GBR", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "27", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"cyrevp", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "29", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"revnp", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "30", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"BC", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "33", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"Gr", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "34", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"GrR", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "35", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"McNp", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "36", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"MnNp", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "37", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"Gc", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "38", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"GcR", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init2", "[", 
              RowBox[{"[", "39", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"pInh", "[", "0", "]"}], "\[Equal]", "0"}], ",", 
            RowBox[{
             RowBox[{"bInh", "[", "0", "]"}], "\[Equal]", "0"}], ",", 
            RowBox[{
             RowBox[{"Inh", "[", "0", "]"}], "\[Equal]", "0"}], ",", 
            RowBox[{
             RowBox[{"nInh", "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}]}], 
         ";", "\[IndentingNewLine]", 
         RowBox[{"afour", "=", 
          RowBox[{"Flatten", "[", 
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                  "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "0", "]"}], 
              "\[Equal]", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"l", ">", "3"}], ",", "0", ",", 
                RowBox[{"Init1", "[", 
                 RowBox[{"[", 
                  RowBox[{
                   RowBox[{"j", "+", "1"}], ",", 
                   RowBox[{"k", "+", "1"}], ",", 
                   RowBox[{"l", "+", "1"}], ",", 
                   RowBox[{"m", "+", "1"}], ",", 
                   RowBox[{"n", "+", "1"}], ",", "1"}], "]"}], "]"}]}], 
               "]"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"j", ",", "0", ",", "6"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"k", ",", "0", ",", "2"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"l", ",", "0", ",", "5"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"m", ",", "0", ",", "1"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"n", ",", "0", ",", "1"}], "}"}]}], "]"}], "]"}]}], 
         ";"}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Init11", "=", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                 "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", 
              RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
            RowBox[{"{", 
             RowBox[{"j", ",", "0", ",", "6"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"k", ",", "0", ",", "2"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"l", ",", "0", ",", "5"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", "0", ",", "1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"n", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";", 
         RowBox[{"Init22", "=", 
          RowBox[{"Flatten", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"G", "[", 
               RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"GR", "[", 
               RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"gto", "[", 
               RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"MnRo", "[", 
               RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"McRo", "[", 
               RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"MnRt", "[", 
               RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"McRt", "[", 
               RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"MnPo", "[", 
               RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"McPo", "[", 
               RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"MnPt", "[", 
               RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"McPt", "[", 
               RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"MnB", "[", 
               RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"McB", "[", 
               RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"B", "[", 
               RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"GBb", "[", 
               RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"GBRb", "[", 
               RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"Cl", "[", 
               RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"MnRev", "[", 
               RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"McRev", "[", 
               RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"cyrev", "[", 
               RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"revn", "[", 
               RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"cyrevg", "[", 
               RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"revng", "[", 
               RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"cyrevgp", "[", 
               RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"revngp", "[", 
               RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"GB", "[", 
               RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"GBR", "[", 
               RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", "0", 
             ",", 
             RowBox[{
              RowBox[{"cyrevp", "[", 
               RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"revnp", "[", 
               RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", "0", 
             ",", "0", ",", 
             RowBox[{
              RowBox[{"BC", "[", 
               RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"Gr", "[", 
               RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"GrR", "[", 
               RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"McNp", "[", 
               RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"MnNp", "[", 
               RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"Gc", "[", 
               RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"GcR", "[", 
               RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}]}], "}"}], 
           "]"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"athree", "=", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"G", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"GR", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"gto", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "3", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"MnRo", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "4", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"McRo", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "5", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"MnRt", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "6", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"McRt", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "7", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"MnPo", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "8", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"McPo", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "9", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"MnPt", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "10", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"McPt", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "11", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"MnB", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "12", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"McB", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "13", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"B", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "14", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"GBb", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "15", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"GBRb", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "16", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"Cl", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "17", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"MnRev", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "18", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"McRev", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "19", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"cyrev", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "20", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"revn", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "21", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"cyrevg", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "22", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"revng", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "23", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"cyrevgp", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "24", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"revngp", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "25", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"GB", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "26", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"GBR", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "27", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"cyrevp", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "29", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"revnp", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "30", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"BC", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "33", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"Gr", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "34", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"GrR", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "35", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"McNp", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "36", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"MnNp", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "37", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"Gc", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "38", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"GcR", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"Init22", "[", 
              RowBox[{"[", "39", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"pInh", "[", "0", "]"}], "\[Equal]", "0"}], ",", 
            RowBox[{
             RowBox[{"bInh", "[", "0", "]"}], "\[Equal]", "0"}], ",", 
            RowBox[{
             RowBox[{"Inh", "[", "0", "]"}], "\[Equal]", "0"}], ",", 
            RowBox[{
             RowBox[{"nInh", "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}]}], 
         ";", "\[IndentingNewLine]", 
         RowBox[{"afour", "=", 
          RowBox[{"Flatten", "[", 
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                  "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "0", "]"}], 
              "\[Equal]", 
              RowBox[{"Init11", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"j", "+", "1"}], ",", 
                 RowBox[{"k", "+", "1"}], ",", 
                 RowBox[{"l", "+", "1"}], ",", 
                 RowBox[{"m", "+", "1"}], ",", 
                 RowBox[{"n", "+", "1"}], ",", "1"}], "]"}], "]"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"j", ",", "0", ",", "6"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"k", ",", "0", ",", "2"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"l", ",", "0", ",", "5"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"m", ",", "0", ",", "1"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"n", ",", "0", ",", "1"}], "}"}]}], "]"}], "]"}]}]}]}], 
       "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"afive", "=", 
       RowBox[{"Join", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "GR", ",", "G", ",", "MnRo", ",", "McRo", ",", "MnRt", ",", "McRt", 
           ",", "MnPo", ",", "McPo", ",", "MnPt", ",", "McPt", ",", "MnB", 
           ",", "McB", ",", "B", ",", "Cl", ",", "MnRev", ",", "McRev", ",", 
           "cyrev", ",", "revn", ",", "cyrevg", ",", "revng", ",", "cyrevgp", 
           ",", "revngp", ",", "cyrevp", ",", "revnp", ",", "GB", ",", "GBR", 
           ",", "BC", ",", "pInh", ",", "nInh", ",", "bInh", ",", "Inh", ",", 
           "Gr", ",", "GrR", ",", "McNp", ",", "MnNp", ",", "Gc", ",", "GcR", 
           ",", "GBb", ",", "GBRb", ",", "gto"}], "}"}], ",", 
         RowBox[{"Flatten", "[", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
               "]"}], "[", "m", "]"}], "[", "n", "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"j", ",", "0", ",", "6"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"k", ",", "0", ",", "2"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"l", ",", "0", ",", "5"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", "0", ",", "1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"n", ",", "0", ",", "1"}], "}"}]}], "]"}], "]"}]}], 
        "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"qrt2", "=", 
       RowBox[{"NDSolve", "[", 
        RowBox[{
         RowBox[{"Join", "[", 
          RowBox[{"laone2", ",", "atwo", ",", "athree", ",", "afour"}], "]"}],
          ",", "afive", ",", 
         RowBox[{"{", 
          RowBox[{"t", ",", "0", ",", "ldd"}], "}"}], ",", 
         RowBox[{"MaxSteps", "\[Rule]", "100000"}], ",", 
         RowBox[{"MaxStepSize", "\[Rule]", "0.1"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Init11", "=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", "]"}],
              "[", "m", "]"}], "[", "n", "]"}], "[", "ldd", "]"}], "/.", 
          "qrt2"}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "0", ",", "6"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"k", ",", "0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"l", ",", "0", ",", "5"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"m", ",", "0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"n", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"Init22", "=", 
       RowBox[{"Flatten", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"G", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"GR", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"gto", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"MnRo", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"McRo", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"MnRt", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"McRt", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"MnPo", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"McPo", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"MnPt", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"McPt", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"MnB", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"McB", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"B", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"GBb", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"GBRb", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"Cl", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"MnRev", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"McRev", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"cyrev", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"revn", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"cyrevg", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"revng", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"cyrevgp", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"revngp", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"GB", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"GBR", "[", "ldd", "]"}], "/.", "qrt2"}], ",", "0", ",", 
          RowBox[{
           RowBox[{"cyrevp", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"revnp", "[", "ldd", "]"}], "/.", "qrt2"}], ",", "0", ",", 
          "0", ",", 
          RowBox[{
           RowBox[{"BC", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"Gr", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"GrR", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"McNp", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"MnNp", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"Gc", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"GcR", "[", "ldd", "]"}], "/.", "qrt2"}]}], "}"}], "]"}]}],
       ";", 
      RowBox[{"athree", "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"G", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"GR", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"gto", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "3", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"MnRo", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "4", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"McRo", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "5", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"MnRt", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "6", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"McRt", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "7", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"MnPo", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "8", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"McPo", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "9", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"MnPt", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "10", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"McPt", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "11", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"MnB", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "12", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"McB", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "13", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"B", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "14", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"GBb", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "15", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"GBRb", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "16", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"Cl", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "17", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"MnRev", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "18", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"McRev", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "19", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"cyrev", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "20", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"revn", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "21", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"cyrevg", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "22", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"revng", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "23", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"cyrevgp", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "24", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"revngp", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "25", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"GB", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "26", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"GBR", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "27", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"cyrevp", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "29", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"revnp", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "30", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"BC", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "33", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"Gr", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "34", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"GrR", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "35", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"McNp", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "36", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"MnNp", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "37", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"Gc", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "38", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"GcR", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "39", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"pInh", "[", "0", "]"}], "\[Equal]", "0"}], ",", 
         RowBox[{
          RowBox[{"bInh", "[", "0", "]"}], "\[Equal]", "0"}], ",", 
         RowBox[{
          RowBox[{"Inh", "[", "0", "]"}], "\[Equal]", "0"}], ",", 
         RowBox[{
          RowBox[{"nInh", "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}]}], ";", 
      RowBox[{"afour", "=", 
       RowBox[{"Flatten", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
               "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "0", "]"}], 
           "\[Equal]", 
           RowBox[{"Init11", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{"j", "+", "1"}], ",", 
              RowBox[{"k", "+", "1"}], ",", 
              RowBox[{"l", "+", "1"}], ",", 
              RowBox[{"m", "+", "1"}], ",", 
              RowBox[{"n", "+", "1"}], ",", "1"}], "]"}], "]"}]}], ",", 
          RowBox[{"{", 
           RowBox[{"j", ",", "0", ",", "6"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"k", ",", "0", ",", "2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"l", ",", "0", ",", "5"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"m", ",", "0", ",", "1"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"n", ",", "0", ",", "1"}], "}"}]}], "]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"qrt22", "=", 
       RowBox[{"NDSolve", "[", 
        RowBox[{
         RowBox[{"Join", "[", 
          RowBox[{"daone", ",", "atwo", ",", "athree", ",", "afour"}], "]"}], 
         ",", "afive", ",", 
         RowBox[{"{", 
          RowBox[{"t", ",", "0", ",", 
           RowBox[{"24", "-", "ldd"}]}], "}"}], ",", 
         RowBox[{"MaxSteps", "\[Rule]", "100000"}], ",", 
         RowBox[{"MaxStepSize", "\[Rule]", "0.1"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"phase", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"phase", ",", 
         RowBox[{"{", 
          RowBox[{"Join", "[", 
           RowBox[{
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"MnB", "[", "t", "]"}], "/.", 
               RowBox[{"qrt2", "[", 
                RowBox[{"[", "1", "]"}], "]"}]}], ",", 
              RowBox[{"{", 
               RowBox[{"t", ",", "0", ",", "ldd", ",", "2"}], "}"}]}], "]"}], 
            ",", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"MnB", "[", "t", "]"}], "/.", 
               RowBox[{"qrt22", "[", 
                RowBox[{"[", "1", "]"}], "]"}]}], ",", 
              RowBox[{"{", 
               RowBox[{"t", ",", "2", ",", 
                RowBox[{"24", "-", "ldd"}], ",", "2"}], "}"}]}], "]"}]}], 
           "]"}], "}"}]}], "]"}]}], ";"}]}], "\[IndentingNewLine]", 
    "\[IndentingNewLine]", "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"imInit11", "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", "]"}], 
          "[", "m", "]"}], "[", "n", "]"}], "[", 
        RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
      RowBox[{"{", 
       RowBox[{"j", ",", "0", ",", "6"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"k", ",", "0", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"l", ",", "0", ",", "5"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"m", ",", "0", ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"n", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";", 
   RowBox[{"imInit22", "=", 
    RowBox[{"Flatten", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"G", "[", 
         RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"GR", "[", 
         RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"gto", "[", 
         RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"MnRo", "[", 
         RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"McRo", "[", 
         RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"MnRt", "[", 
         RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"McRt", "[", 
         RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"MnPo", "[", 
         RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"McPo", "[", 
         RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"MnPt", "[", 
         RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"McPt", "[", 
         RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"MnB", "[", 
         RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"McB", "[", 
         RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"B", "[", 
         RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"GBb", "[", 
         RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"GBRb", "[", 
         RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"Cl", "[", 
         RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"MnRev", "[", 
         RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"McRev", "[", 
         RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"cyrev", "[", 
         RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"revn", "[", 
         RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"cyrevg", "[", 
         RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"revng", "[", 
         RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"cyrevgp", "[", 
         RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"revngp", "[", 
         RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"GB", "[", 
         RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"GBR", "[", 
         RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", "0", ",", 
       RowBox[{
        RowBox[{"cyrevp", "[", 
         RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"revnp", "[", 
         RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", "0", ",", 
       "0", ",", 
       RowBox[{
        RowBox[{"BC", "[", 
         RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"Gr", "[", 
         RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"GrR", "[", 
         RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"McNp", "[", 
         RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"MnNp", "[", 
         RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"Gc", "[", 
         RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
       RowBox[{
        RowBox[{"GcR", "[", 
         RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}]}], "}"}], "]"}]}],
    ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"While", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Sqrt", "[", 
       RowBox[{"Total", "[", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"phase", "[", 
              RowBox[{"[", "2", "]"}], "]"}], "-", 
             RowBox[{"phase", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "/", 
           RowBox[{"phase", "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "^", "2"}], "]"}], "]"}],
       ">", "0.005"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"iternum", "++"}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"phase", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "=", 
       RowBox[{"phase", "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"Init1", "=", "imInit11"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Init2", "=", "imInit22"}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"athree", "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"G", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init2", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"GR", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init2", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"gto", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init2", "[", 
           RowBox[{"[", "3", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"MnRo", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init2", "[", 
           RowBox[{"[", "4", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"McRo", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init2", "[", 
           RowBox[{"[", "5", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"MnRt", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init2", "[", 
           RowBox[{"[", "6", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"McRt", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init2", "[", 
           RowBox[{"[", "7", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"MnPo", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init2", "[", 
           RowBox[{"[", "8", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"McPo", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init2", "[", 
           RowBox[{"[", "9", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"MnPt", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init2", "[", 
           RowBox[{"[", "10", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"McPt", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init2", "[", 
           RowBox[{"[", "11", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"MnB", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init2", "[", 
           RowBox[{"[", "12", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"McB", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init2", "[", 
           RowBox[{"[", "13", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"B", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init2", "[", 
           RowBox[{"[", "14", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"GBb", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init2", "[", 
           RowBox[{"[", "15", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"GBRb", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init2", "[", 
           RowBox[{"[", "16", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"Cl", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init2", "[", 
           RowBox[{"[", "17", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"MnRev", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init2", "[", 
           RowBox[{"[", "18", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"McRev", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init2", "[", 
           RowBox[{"[", "19", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"cyrev", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init2", "[", 
           RowBox[{"[", "20", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"revn", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init2", "[", 
           RowBox[{"[", "21", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"cyrevg", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init2", "[", 
           RowBox[{"[", "22", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"revng", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init2", "[", 
           RowBox[{"[", "23", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"cyrevgp", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init2", "[", 
           RowBox[{"[", "24", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"revngp", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init2", "[", 
           RowBox[{"[", "25", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"GB", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init2", "[", 
           RowBox[{"[", "26", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"GBR", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init2", "[", 
           RowBox[{"[", "27", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"cyrevp", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init2", "[", 
           RowBox[{"[", "29", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"revnp", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init2", "[", 
           RowBox[{"[", "30", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"BC", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init2", "[", 
           RowBox[{"[", "33", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"Gr", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init2", "[", 
           RowBox[{"[", "34", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"GrR", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init2", "[", 
           RowBox[{"[", "35", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"McNp", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init2", "[", 
           RowBox[{"[", "36", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"MnNp", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init2", "[", 
           RowBox[{"[", "37", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"Gc", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init2", "[", 
           RowBox[{"[", "38", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"GcR", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init2", "[", 
           RowBox[{"[", "39", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"pInh", "[", "0", "]"}], "\[Equal]", "0"}], ",", 
         RowBox[{
          RowBox[{"bInh", "[", "0", "]"}], "\[Equal]", "0"}], ",", 
         RowBox[{
          RowBox[{"Inh", "[", "0", "]"}], "\[Equal]", "0"}], ",", 
         RowBox[{
          RowBox[{"nInh", "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"afour", "=", 
       RowBox[{"Flatten", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
               "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "0", "]"}], 
           "\[Equal]", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{"l", ">", "3"}], ",", "0", ",", 
             RowBox[{"Init1", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"j", "+", "1"}], ",", 
                RowBox[{"k", "+", "1"}], ",", 
                RowBox[{"l", "+", "1"}], ",", 
                RowBox[{"m", "+", "1"}], ",", 
                RowBox[{"n", "+", "1"}], ",", "1"}], "]"}], "]"}]}], "]"}]}], 
          ",", 
          RowBox[{"{", 
           RowBox[{"j", ",", "0", ",", "6"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"k", ",", "0", ",", "2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"l", ",", "0", ",", "5"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"m", ",", "0", ",", "1"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"n", ",", "0", ",", "1"}], "}"}]}], "]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"afive", "=", 
       RowBox[{"Join", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "GR", ",", "G", ",", "MnRo", ",", "McRo", ",", "MnRt", ",", "McRt", 
           ",", "MnPo", ",", "McPo", ",", "MnPt", ",", "McPt", ",", "MnB", 
           ",", "McB", ",", "B", ",", "Cl", ",", "MnRev", ",", "McRev", ",", 
           "cyrev", ",", "revn", ",", "cyrevg", ",", "revng", ",", "cyrevgp", 
           ",", "revngp", ",", "cyrevp", ",", "revnp", ",", "GB", ",", "GBR", 
           ",", "BC", ",", "pInh", ",", "nInh", ",", "bInh", ",", "Inh", ",", 
           "Gr", ",", "GrR", ",", "McNp", ",", "MnNp", ",", "Gc", ",", "GcR", 
           ",", "GBb", ",", "GBRb", ",", "gto"}], "}"}], ",", 
         RowBox[{"Flatten", "[", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
               "]"}], "[", "m", "]"}], "[", "n", "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"j", ",", "0", ",", "6"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"k", ",", "0", ",", "2"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"l", ",", "0", ",", "5"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", "0", ",", "1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"n", ",", "0", ",", "1"}], "}"}]}], "]"}], "]"}]}], 
        "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"qrt2", "=", 
       RowBox[{"NDSolve", "[", 
        RowBox[{
         RowBox[{"Join", "[", 
          RowBox[{"laone2", ",", "atwo", ",", "athree", ",", "afour"}], "]"}],
          ",", "afive", ",", 
         RowBox[{"{", 
          RowBox[{"t", ",", "0", ",", "ldd"}], "}"}], ",", 
         RowBox[{"MaxSteps", "\[Rule]", "100000"}], ",", 
         RowBox[{"MaxStepSize", "\[Rule]", "0.1"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Init11", "=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", "]"}],
              "[", "m", "]"}], "[", "n", "]"}], "[", "ldd", "]"}], "/.", 
          "qrt2"}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "0", ",", "6"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"k", ",", "0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"l", ",", "0", ",", "5"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"m", ",", "0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"n", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"Init22", "=", 
       RowBox[{"Flatten", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"G", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"GR", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"gto", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"MnRo", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"McRo", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"MnRt", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"McRt", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"MnPo", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"McPo", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"MnPt", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"McPt", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"MnB", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"McB", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"B", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"GBb", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"GBRb", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"Cl", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"MnRev", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"McRev", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"cyrev", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"revn", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"cyrevg", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"revng", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"cyrevgp", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"revngp", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"GB", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"GBR", "[", "ldd", "]"}], "/.", "qrt2"}], ",", "0", ",", 
          RowBox[{
           RowBox[{"cyrevp", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"revnp", "[", "ldd", "]"}], "/.", "qrt2"}], ",", "0", ",", 
          "0", ",", 
          RowBox[{
           RowBox[{"BC", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"Gr", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"GrR", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"McNp", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"MnNp", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"Gc", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
          RowBox[{
           RowBox[{"GcR", "[", "ldd", "]"}], "/.", "qrt2"}]}], "}"}], "]"}]}],
       ";", 
      RowBox[{"athree", "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"G", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"GR", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"gto", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "3", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"MnRo", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "4", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"McRo", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "5", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"MnRt", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "6", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"McRt", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "7", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"MnPo", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "8", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"McPo", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "9", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"MnPt", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "10", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"McPt", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "11", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"MnB", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "12", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"McB", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "13", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"B", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "14", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"GBb", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "15", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"GBRb", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "16", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"Cl", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "17", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"MnRev", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "18", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"McRev", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "19", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"cyrev", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "20", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"revn", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "21", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"cyrevg", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "22", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"revng", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "23", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"cyrevgp", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "24", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"revngp", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "25", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"GB", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "26", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"GBR", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "27", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"cyrevp", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "29", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"revnp", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "30", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"BC", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "33", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"Gr", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "34", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"GrR", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "35", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"McNp", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "36", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"MnNp", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "37", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"Gc", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "38", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"GcR", "[", "0", "]"}], "\[Equal]", 
          RowBox[{"Init22", "[", 
           RowBox[{"[", "39", "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"pInh", "[", "0", "]"}], "\[Equal]", "0"}], ",", 
         RowBox[{
          RowBox[{"bInh", "[", "0", "]"}], "\[Equal]", "0"}], ",", 
         RowBox[{
          RowBox[{"Inh", "[", "0", "]"}], "\[Equal]", "0"}], ",", 
         RowBox[{
          RowBox[{"nInh", "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}]}], ";", 
      RowBox[{"afour", "=", 
       RowBox[{"Flatten", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
               "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "0", "]"}], 
           "\[Equal]", 
           RowBox[{"Init11", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{"j", "+", "1"}], ",", 
              RowBox[{"k", "+", "1"}], ",", 
              RowBox[{"l", "+", "1"}], ",", 
              RowBox[{"m", "+", "1"}], ",", 
              RowBox[{"n", "+", "1"}], ",", "1"}], "]"}], "]"}]}], ",", 
          RowBox[{"{", 
           RowBox[{"j", ",", "0", ",", "6"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"k", ",", "0", ",", "2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"l", ",", "0", ",", "5"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"m", ",", "0", ",", "1"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"n", ",", "0", ",", "1"}], "}"}]}], "]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"qrt22", "=", 
       RowBox[{"NDSolve", "[", 
        RowBox[{
         RowBox[{"Join", "[", 
          RowBox[{"daone", ",", "atwo", ",", "athree", ",", "afour"}], "]"}], 
         ",", "afive", ",", 
         RowBox[{"{", 
          RowBox[{"t", ",", "0", ",", 
           RowBox[{"24", "-", "ldd"}]}], "}"}], ",", 
         RowBox[{"MaxSteps", "\[Rule]", "100000"}], ",", 
         RowBox[{"MaxStepSize", "\[Rule]", "0.1"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"phase", "[", 
        RowBox[{"[", "2", "]"}], "]"}], "=", 
       RowBox[{"Join", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"MnB", "[", "t", "]"}], "/.", 
            RowBox[{"qrt2", "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ",", 
           RowBox[{"{", 
            RowBox[{"t", ",", "0", ",", "ldd", ",", "2"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"MnB", "[", "t", "]"}], "/.", 
            RowBox[{"qrt22", "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ",", 
           RowBox[{"{", 
            RowBox[{"t", ",", "2", ",", 
             RowBox[{"24", "-", "ldd"}], ",", "2"}], "}"}]}], "]"}]}], 
        "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"imInit11", "=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", "]"}],
              "[", "m", "]"}], "[", "n", "]"}], "[", 
           RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "0", ",", "6"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"k", ",", "0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"l", ",", "0", ",", "5"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"m", ",", "0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"n", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"imInit22", "=", 
       RowBox[{"Flatten", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"G", "[", 
            RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
          RowBox[{
           RowBox[{"GR", "[", 
            RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
          RowBox[{
           RowBox[{"gto", "[", 
            RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
          RowBox[{
           RowBox[{"MnRo", "[", 
            RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
          RowBox[{
           RowBox[{"McRo", "[", 
            RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
          RowBox[{
           RowBox[{"MnRt", "[", 
            RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
          RowBox[{
           RowBox[{"McRt", "[", 
            RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
          RowBox[{
           RowBox[{"MnPo", "[", 
            RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
          RowBox[{
           RowBox[{"McPo", "[", 
            RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
          RowBox[{
           RowBox[{"MnPt", "[", 
            RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
          RowBox[{
           RowBox[{"McPt", "[", 
            RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
          RowBox[{
           RowBox[{"MnB", "[", 
            RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
          RowBox[{
           RowBox[{"McB", "[", 
            RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
          RowBox[{
           RowBox[{"B", "[", 
            RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
          RowBox[{
           RowBox[{"GBb", "[", 
            RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
          RowBox[{
           RowBox[{"GBRb", "[", 
            RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
          RowBox[{
           RowBox[{"Cl", "[", 
            RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
          RowBox[{
           RowBox[{"MnRev", "[", 
            RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
          RowBox[{
           RowBox[{"McRev", "[", 
            RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
          RowBox[{
           RowBox[{"cyrev", "[", 
            RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
          RowBox[{
           RowBox[{"revn", "[", 
            RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
          RowBox[{
           RowBox[{"cyrevg", "[", 
            RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
          RowBox[{
           RowBox[{"revng", "[", 
            RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
          RowBox[{
           RowBox[{"cyrevgp", "[", 
            RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
          RowBox[{
           RowBox[{"revngp", "[", 
            RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
          RowBox[{
           RowBox[{"GB", "[", 
            RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
          RowBox[{
           RowBox[{"GBR", "[", 
            RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", "0", ",", 
          RowBox[{
           RowBox[{"cyrevp", "[", 
            RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
          RowBox[{
           RowBox[{"revnp", "[", 
            RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", "0", ",",
           "0", ",", 
          RowBox[{
           RowBox[{"BC", "[", 
            RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
          RowBox[{
           RowBox[{"Gr", "[", 
            RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
          RowBox[{
           RowBox[{"GrR", "[", 
            RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
          RowBox[{
           RowBox[{"McNp", "[", 
            RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
          RowBox[{
           RowBox[{"MnNp", "[", 
            RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
          RowBox[{
           RowBox[{"Gc", "[", 
            RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
          RowBox[{
           RowBox[{"GcR", "[", 
            RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt22"}]}], "}"}], 
        "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"iternum", ">", "99"}], ",", 
        RowBox[{"Break", "[", "]"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", 
    "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"XXo", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"MnB", "[", "t", "]"}], "+", 
       RowBox[{"McB", "[", "t", "]"}]}], "/.", 
      RowBox[{"qrt2", "[", 
       RowBox[{"[", "1", "]"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "ldd", ",", "0.02"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"XXt", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"MnB", "[", "t", "]"}], "+", 
       RowBox[{"McB", "[", "t", "]"}]}], "/.", 
      RowBox[{"qrt22", "[", 
       RowBox[{"[", "1", "]"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0.02", ",", 
       RowBox[{"24", "-", "ldd"}], ",", "0.02"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"XX", "=", 
    RowBox[{"Join", "[", 
     RowBox[{"XXo", ",", "XXt"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "Measurement", " ", "of", " ", "Phase", " ", "before", " ", "Dosing"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tBm", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Position", "[", 
         RowBox[{"XX", ",", 
          RowBox[{"Min", "[", "XX", "]"}]}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}], "-", "1"}], ")"}], "*", "0.02"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.7630062576524086`*^9, 3.7630062673215537`*^9}, 
   3.763006475696347*^9},ExpressionUUID->"74ef3aa3-6234-4e54-9e38-\
f9c3ee6a5f3b"],

Cell[BoxData[{
 StyleBox[
  RowBox[{
   RowBox[{
    RowBox[{"Equations", " ", "for", " ", "Single"}], "-", 
    RowBox[{
    "state", " ", "Variables", "  ", "while", " ", "light", " ", "is", " ", 
     "on"}]}], " "}], "Subsubtitle"], "\[IndentingNewLine]", 
 StyleBox[
  RowBox[{
  "Detailed", " ", "description", " ", "can", " ", "be", " ", "found", " ", 
   "in", "  ", "Appendix", " ", "Equation1", " ", "and", " ", "Table", " ", 
   "EV1"}], "Subsubtitle"], "\[IndentingNewLine]", 
 StyleBox[
  RowBox[{"laone3", ":", " ", 
   RowBox[{
    RowBox[{
    "This", " ", "equation", " ", "is", " ", "used", "  ", "during", " ", 
     "light", " ", "phase", " ", "after", " ", "PF"}], "-", 
    RowBox[{
    "670", " ", "is", " ", "given", " ", "to", " ", "reflect", " ", "the", "  ",
      "reduced", " ", "photosensitivity", " ", "by", " ", "the", " ", 
     "adapatation", " ", "for", " ", "light", "  ", "when", " ", "PF"}], "-", 
    RowBox[{"670462", " ", "is", " ", "given"}]}]}], 
  "Subsubtitle"], "\[IndentingNewLine]", 
 StyleBox[
  RowBox[{"Thus", ",", " ", 
   RowBox[{"in", " ", "the", " ", "equation"}], ",", " ", 
   RowBox[{
    RowBox[{"adap", "[", "t", "]"}], " ", "is", " ", "only", " ", "revised", 
    " ", "as", " ", 
    RowBox[{"adap", "[", 
     RowBox[{"t", "+", "dtt"}], "]"}], " ", 
    RowBox[{"(", 
     RowBox[{"dtt", " ", "is", " ", "the", " ", "dosing", " ", "time"}], 
     ")"}]}]}], "Subsubtitle"]}], "Input",
 CellChangeTimes->{{3.76300674122134*^9, 3.763006742133856*^9}, {
  3.763006778236351*^9, 3.7630068051782928`*^9}, {3.7630068428724947`*^9, 
  3.7630068882391577`*^9}, {3.763608462111777*^9, 3.7636084624289303`*^9}, {
  3.763608634516994*^9, 3.7636086349119363`*^9}, {3.763608876341341*^9, 
  3.763608908579136*^9}},ExpressionUUID->"b155c424-f949-482e-9a35-\
1453749f9016"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"nprod", "=", 
   RowBox[{"prodi", "*", 
    RowBox[{"dose", "/", "10"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"tmo", "=", 
    RowBox[{"{", "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"laone3", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{"(*", 
     RowBox[{"Original", " ", "model", " ", "equations"}], "*)"}], 
    "\[IndentingNewLine]", 
    RowBox[{"(*", 
     RowBox[{"E", "-", 
      RowBox[{"box", " ", "activity"}]}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"GR", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"bin", "*", 
        RowBox[{"(", 
         RowBox[{"Sum", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"x", "[", "0", "]"}], "[", "kk", "]"}], "[", "0", 
               "]"}], "[", "1", "]"}], "[", "1", "]"}], "[", "t", "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"kk", ",", "1", ",", "2"}], "}"}]}], "]"}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"G", "[", "t", "]"}], "-", 
          RowBox[{"GR", "[", "t", "]"}]}], ")"}]}], "-", 
       RowBox[{"unbin", "*", 
        RowBox[{"GR", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"G", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"bin", "*", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"x", "[", "0", "]"}], "[", "0", "]"}], "[", "0", "]"}], 
           "[", "1", "]"}], "[", "1", "]"}], "[", "t", "]"}], "*", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"G", "[", "t", "]"}], "-", 
          RowBox[{"GR", "[", "t", "]"}]}], ")"}]}], "-", 
       RowBox[{"unbin", "*", 
        RowBox[{"G", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"GrR", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"binr", "*", 
        RowBox[{"(", 
         RowBox[{"Sum", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"x", "[", "0", "]"}], "[", "kk", "]"}], "[", "0", 
               "]"}], "[", "1", "]"}], "[", "1", "]"}], "[", "t", "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"kk", ",", "1", ",", "2"}], "}"}]}], "]"}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"Gr", "[", "t", "]"}], "-", 
          RowBox[{"GrR", "[", "t", "]"}]}], ")"}]}], "-", 
       RowBox[{"unbinr", "*", 
        RowBox[{"GrR", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"Gr", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"binr", "*", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"x", "[", "0", "]"}], "[", "0", "]"}], "[", "0", "]"}], 
           "[", "1", "]"}], "[", "1", "]"}], "[", "t", "]"}], "*", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"Gr", "[", "t", "]"}], "-", 
          RowBox[{"GrR", "[", "t", "]"}]}], ")"}]}], "-", 
       RowBox[{"unbinr", "*", 
        RowBox[{"Gr", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"GcR", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"binc", "*", 
        RowBox[{"(", 
         RowBox[{"Sum", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"x", "[", "0", "]"}], "[", "kk", "]"}], "[", "0", 
               "]"}], "[", "1", "]"}], "[", "1", "]"}], "[", "t", "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"kk", ",", "1", ",", "2"}], "}"}]}], "]"}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"Gc", "[", "t", "]"}], "-", 
          RowBox[{"GcR", "[", "t", "]"}]}], ")"}]}], "-", 
       RowBox[{"unbinc", "*", 
        RowBox[{"GcR", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"Gc", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"binc", "*", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"x", "[", "0", "]"}], "[", "0", "]"}], "[", "0", "]"}], 
           "[", "1", "]"}], "[", "1", "]"}], "[", "t", "]"}], "*", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"Gc", "[", "t", "]"}], "-", 
          RowBox[{"GcR", "[", "t", "]"}]}], ")"}]}], "-", 
       RowBox[{"unbinc", "*", 
        RowBox[{"Gc", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{"RORE", " ", "activity"}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"GBR", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"binrev", "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"revn", "[", "t", "]"}], "+", 
          RowBox[{"revng", "[", "t", "]"}], "+", 
          RowBox[{"revngp", "[", "t", "]"}], "+", 
          RowBox[{"revnp", "[", "t", "]"}]}], ")"}], "*", 
        RowBox[{"GB", "[", "t", "]"}]}], "-", 
       RowBox[{"unbinrev", "*", 
        RowBox[{"GBR", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"GB", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "binrev"}], "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"revn", "[", "t", "]"}], "+", 
          RowBox[{"revng", "[", "t", "]"}], "+", 
          RowBox[{"revngp", "[", "t", "]"}], "+", 
          RowBox[{"revnp", "[", "t", "]"}]}], ")"}], "*", 
        RowBox[{"GB", "[", "t", "]"}]}], "+", 
       RowBox[{"unbinrev", "*", 
        RowBox[{"GBR", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"GBRb", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"binrevb", "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"revn", "[", "t", "]"}], "+", 
          RowBox[{"revng", "[", "t", "]"}], "+", 
          RowBox[{"revngp", "[", "t", "]"}], "+", 
          RowBox[{"revnp", "[", "t", "]"}]}], ")"}], "*", 
        RowBox[{"GBb", "[", "t", "]"}]}], "-", 
       RowBox[{"unbinrevb", "*", 
        RowBox[{"GBRb", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"GBb", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "binrevb"}], "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"revn", "[", "t", "]"}], "+", 
          RowBox[{"revng", "[", "t", "]"}], "+", 
          RowBox[{"revngp", "[", "t", "]"}], "+", 
          RowBox[{"revnp", "[", "t", "]"}]}], ")"}], "*", 
        RowBox[{"GBb", "[", "t", "]"}]}], "+", 
       RowBox[{"unbinrevb", "*", 
        RowBox[{"GBRb", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{"Transcription", " ", "-", " ", 
       RowBox[{
       "reflecting", " ", "the", " ", "light", " ", "adaptation", " ", 
        "after", " ", "dosing", " ", "of", " ", "PF"}], "-", "670462"}], 
      "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"MnPo", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"trPo", "*", 
        RowBox[{"G", "[", "t", "]"}]}], "-", 
       RowBox[{"tmc", "*", 
        RowBox[{"MnPo", "[", "t", "]"}]}], "-", 
       RowBox[{"umPo", "*", 
        RowBox[{"MnPo", "[", "t", "]"}]}], "+", 
       RowBox[{"lono", "*", "trPo", "*", 
        RowBox[{"compositgp", "[", 
         RowBox[{"Mod", "[", 
          RowBox[{
           RowBox[{"ArcTan", "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"revng", "[", "t", "]"}], "/", "max1"}], "-", 
              "center1"}], ",", 
             RowBox[{
              RowBox[{
               RowBox[{"revnp", "[", "t", "]"}], "/", "max2"}], "-", 
              "center2"}]}], "]"}], ",", 
           RowBox[{"2", "*", "Pi"}]}], "]"}], "]"}], "*", 
        RowBox[{"adap", "[", 
         RowBox[{"t", "+", "dtt"}], "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"McPo", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"tmc", "*", 
        RowBox[{"MnPo", "[", "t", "]"}]}], "-", 
       RowBox[{"umPo", "*", 
        RowBox[{"McPo", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"MnPt", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"trPt", "*", 
        RowBox[{"G", "[", "t", "]"}]}], "-", 
       RowBox[{"tmc", "*", 
        RowBox[{"MnPt", "[", "t", "]"}]}], "-", 
       RowBox[{"umPt", "*", 
        RowBox[{"MnPt", "[", "t", "]"}]}], "+", 
       RowBox[{"lont", "*", "trPt", "*", 
        RowBox[{"compositgp", "[", 
         RowBox[{"Mod", "[", 
          RowBox[{
           RowBox[{"ArcTan", "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"revng", "[", "t", "]"}], "/", "max1"}], "-", 
              "center1"}], ",", 
             RowBox[{
              RowBox[{
               RowBox[{"revnp", "[", "t", "]"}], "/", "max2"}], "-", 
              "center2"}]}], "]"}], ",", 
           RowBox[{"2", "*", "Pi"}]}], "]"}], "]"}], "*", 
        RowBox[{"adap", "[", 
         RowBox[{"t", "+", "dtt"}], "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"McPt", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"tmc", "*", 
        RowBox[{"MnPt", "[", "t", "]"}]}], "-", 
       RowBox[{"umPt", "*", 
        RowBox[{"McPt", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"MnRt", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"trRt", "*", 
        RowBox[{"Gc", "[", "t", "]"}]}], "-", 
       RowBox[{"tmc", "*", 
        RowBox[{"MnRt", "[", "t", "]"}]}], "-", 
       RowBox[{"umRt", "*", 
        RowBox[{"MnRt", "[", "t", "]"}]}]}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"McRt", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"tmc", "*", 
        RowBox[{"MnRt", "[", "t", "]"}]}], "-", 
       RowBox[{"umRt", "*", 
        RowBox[{"McRt", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"MnRev", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"trRev", "*", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"x", "[", "0", "]"}], "[", "0", "]"}], "[", "0", "]"}], 
           "[", "1", "]"}], "[", "1", "]"}], "[", "t", "]"}], "*", 
        RowBox[{"Gr", "[", "t", "]"}]}], "-", 
       RowBox[{"tmcrev", "*", 
        RowBox[{"MnRev", "[", "t", "]"}]}], "-", 
       RowBox[{"umRev", "*", 
        RowBox[{"MnRev", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"McRev", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"tmcrev", "*", 
        RowBox[{"MnRev", "[", "t", "]"}]}], "-", 
       RowBox[{"umRev", "*", 
        RowBox[{"McRev", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"MnRo", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"trRo", "*", 
        RowBox[{"G", "[", "t", "]"}], "*", 
        RowBox[{"GB", "[", "t", "]"}]}], "-", 
       RowBox[{"tmc", "*", 
        RowBox[{"MnRo", "[", "t", "]"}]}], "-", 
       RowBox[{"umRo", "*", 
        RowBox[{"MnRo", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"McRo", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"tmc", "*", 
        RowBox[{"MnRo", "[", "t", "]"}]}], "-", 
       RowBox[{"umRo", "*", 
        RowBox[{"McRo", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"MnB", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"trB", "*", 
        RowBox[{"GBb", "[", "t", "]"}]}], "-", 
       RowBox[{"tmc", "*", 
        RowBox[{"MnB", "[", "t", "]"}]}], "-", 
       RowBox[{"umB", "*", 
        RowBox[{"MnB", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"McB", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"tmc", "*", 
        RowBox[{"MnB", "[", "t", "]"}]}], "-", 
       RowBox[{"umB", "*", 
        RowBox[{"McB", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"MnNp", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"trNp", "*", 
        RowBox[{"GB", "[", "t", "]"}]}], "-", 
       RowBox[{"tmc", "*", 
        RowBox[{"MnNp", "[", "t", "]"}]}], "-", 
       RowBox[{"umNp", "*", 
        RowBox[{"MnNp", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"McNp", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"tmc", "*", 
        RowBox[{"MnNp", "[", "t", "]"}]}], "-", 
       RowBox[{"umNp", "*", 
        RowBox[{"McNp", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{"Secondary", " ", "Feedback", " ", "Loop"}], "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"B", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"tlb", "*", 
        RowBox[{"McB", "[", "t", "]"}]}], "-", 
       RowBox[{"cbin", "*", 
        RowBox[{"B", "[", "t", "]"}], "*", 
        RowBox[{"Cl", "[", "t", "]"}]}], "+", 
       RowBox[{"uncbin", "*", 
        RowBox[{"BC", "[", "t", "]"}]}], "-", 
       RowBox[{"ub", "*", 
        RowBox[{"B", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"Cl", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"tlnp", "*", 
        RowBox[{"McNp", "[", "t", "]"}]}], "+", "tlc", "-", 
       RowBox[{"cbin", "*", 
        RowBox[{"B", "[", "t", "]"}], "*", 
        RowBox[{"Cl", "[", "t", "]"}]}], "+", 
       RowBox[{"uncbin", "*", 
        RowBox[{"BC", "[", "t", "]"}]}], "-", 
       RowBox[{"uc", "*", 
        RowBox[{"Cl", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"BC", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"cbin", "*", 
        RowBox[{"B", "[", "t", "]"}], "*", 
        RowBox[{"Cl", "[", "t", "]"}]}], "-", 
       RowBox[{"uncbin", "*", 
        RowBox[{"BC", "[", "t", "]"}]}], "-", 
       RowBox[{"phos", "*", 
        RowBox[{"BC", "[", "t", "]"}]}], "-", 
       RowBox[{"ubc", "*", 
        RowBox[{"BC", "[", "t", "]"}]}]}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"cyrev", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"tlrev", "*", 
        RowBox[{"McRev", "[", "t", "]"}]}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"nlrev", "+", "urev"}], ")"}], "*", 
        RowBox[{"cyrev", "[", "t", "]"}]}], "-", 
       RowBox[{"ag", "*", 
        RowBox[{"cyrev", "[", "t", "]"}], "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"x", "[", "0", "]"}], "[", "0", "]"}], "[", "2", "]"}], 
            "[", "0", "]"}], "[", "0", "]"}], "[", "t", "]"}], ")"}]}], "+", 
       RowBox[{"nerev", "*", 
        RowBox[{"revn", "[", "t", "]"}]}], "+", 
       RowBox[{"dg", "*", 
        RowBox[{"cyrevg", "[", "t", "]"}]}]}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"revn", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         RowBox[{"(", 
          RowBox[{"nerev", "+", "urev"}], ")"}]}], "*", 
        RowBox[{"revn", "[", "t", "]"}]}], "-", 
       RowBox[{"ag", "*", "Nf", "*", 
        RowBox[{"revn", "[", "t", "]"}], "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"x", "[", "0", "]"}], "[", "0", "]"}], "[", "2", "]"}], 
            "[", "1", "]"}], "[", "0", "]"}], "[", "t", "]"}], ")"}]}], "+", 
       RowBox[{"nlrev", "*", 
        RowBox[{"cyrev", "[", "t", "]"}]}], "+", 
       RowBox[{"dg", "*", 
        RowBox[{"(", 
         RowBox[{"revng", "[", "t", "]"}], ")"}]}]}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"cyrevg", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"ag", "*", 
        RowBox[{"cyrev", "[", "t", "]"}], "*", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"x", "[", "0", "]"}], "[", "0", "]"}], "[", "2", "]"}], 
           "[", "0", "]"}], "[", "0", "]"}], "[", "t", "]"}]}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"dg", "+", 
          RowBox[{"gto", "[", "t", "]"}], "+", "urev", "+", "nlrev"}], ")"}], 
        "*", 
        RowBox[{"cyrevg", "[", "t", "]"}]}], "+", 
       RowBox[{"nerev", "*", 
        RowBox[{"revng", "[", "t", "]"}]}]}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"revng", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"ag", "*", "Nf", "*", 
        RowBox[{"revn", "[", "t", "]"}], "*", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"x", "[", "0", "]"}], "[", "0", "]"}], "[", "2", "]"}], 
           "[", "1", "]"}], "[", "0", "]"}], "[", "t", "]"}]}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"dg", "+", 
          RowBox[{"gto", "[", "t", "]"}], "+", "urev", "+", "nerev"}], ")"}], 
        "*", 
        RowBox[{"revng", "[", "t", "]"}]}], "+", 
       RowBox[{"nlrev", "*", 
        RowBox[{"cyrevg", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"cyrevgp", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{
        RowBox[{"gto", "[", "t", "]"}], "*", 
        RowBox[{"cyrevg", "[", "t", "]"}]}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"dg", "+", "uprev", "+", "nlrev"}], ")"}], "*", 
        RowBox[{"cyrevgp", "[", "t", "]"}]}], "+", 
       RowBox[{"nerev", "*", 
        RowBox[{"revngp", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"revngp", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{
        RowBox[{"gto", "[", "t", "]"}], "*", 
        RowBox[{"revng", "[", "t", "]"}]}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"dg", "+", "uprev", "+", "nerev"}], ")"}], "*", 
        RowBox[{"revngp", "[", "t", "]"}]}], "+", 
       RowBox[{"nlrev", "*", 
        RowBox[{"cyrevgp", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"cyrevp", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"dg", "*", 
        RowBox[{"(", 
         RowBox[{"cyrevgp", "[", "t", "]"}], ")"}]}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"uprev", "+", "nlrev"}], ")"}], "*", 
        RowBox[{"cyrevp", "[", "t", "]"}]}], "+", 
       RowBox[{"nerev", "*", 
        RowBox[{"revnp", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"revnp", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"dg", "*", 
        RowBox[{"(", 
         RowBox[{"revngp", "[", "t", "]"}], ")"}]}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"uprev", "+", "nerev"}], ")"}], "*", 
        RowBox[{"revnp", "[", "t", "]"}]}], "+", 
       RowBox[{"nlrev", "*", 
        RowBox[{"cyrevp", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{"Activity", " ", "of", " ", "GSK3b"}], "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"gto", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"trgto", "*", 
        RowBox[{"G", "[", "t", "]"}], "*", 
        RowBox[{"GB", "[", "t", "]"}]}], "-", 
       RowBox[{"ugto", "*", 
        RowBox[{"gto", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{"Free", " ", "Blood", " ", "Plsma", " ", "Concentration"}], 
      "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"pInh", "'"}], "[", "t", "]"}], "==", 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         RowBox[{"(", 
          RowBox[{"uinp", "+", "nlpin"}], ")"}]}], "*", 
        RowBox[{"pInh", "[", "t", "]"}]}], "+", 
       RowBox[{"nepin", "*", 
        RowBox[{"bInh", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{"Free", " ", "Brain", " ", "Tissue", " ", "Concentration"}], 
      "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"bInh", "'"}], "[", "t", "]"}], "==", 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         RowBox[{"(", 
          RowBox[{"nlbin", "+", "nepin"}], ")"}]}], "*", 
        RowBox[{"bInh", "[", "t", "]"}]}], "+", 
       RowBox[{"nlpin", "*", 
        RowBox[{"pInh", "[", "t", "]"}]}], "+", 
       RowBox[{"nebin", "*", 
        RowBox[{"Inh", "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{"Free", " ", "Cytoplasm", " ", "Concentration"}], "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"Inh", "'"}], "[", "t", "]"}], "==", 
      RowBox[{
       RowBox[{"nlbin", "*", 
        RowBox[{"bInh", "[", "t", "]"}]}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"nebin", "+", "nlin"}], ")"}], "*", 
        RowBox[{"Inh", "[", "t", "]"}]}], "+", 
       RowBox[{"nein", "*", 
        RowBox[{"nInh", "[", "t", "]"}]}], "+", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "inbin"}], "*", 
         RowBox[{"Inh", "[", "t", "]"}], "*", 
         RowBox[{"Sum", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"x", "[", "jj", "]"}], "[", "kk", "]"}], "[", "ll", 
               "]"}], "[", "0", "]"}], "[", "0", "]"}], "[", "t", "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"jj", ",", "0", ",", "6"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"kk", ",", "0", ",", "2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"ll", ",", "1", ",", "3", ",", "2"}], "}"}]}], "]"}]}], 
        ")"}], "+", 
       RowBox[{"inubin", "*", 
        RowBox[{"Sum", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"x", "[", "jj", "]"}], "[", "kk", "]"}], "[", "ll", 
              "]"}], "[", "0", "]"}], "[", "0", "]"}], "[", "t", "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"jj", ",", "0", ",", "6"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"kk", ",", "0", ",", "2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"ll", ",", "4", ",", "5"}], "}"}]}], "]"}]}]}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{"Free", " ", "Nucleus", " ", "Concentration"}], "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"nInh", "'"}], "[", "t", "]"}], "==", 
      RowBox[{
       RowBox[{
        RowBox[{"Inh", "[", "t", "]"}], "*", "nlin"}], "-", 
       RowBox[{
        RowBox[{"(", "nein", ")"}], "*", 
        RowBox[{"nInh", "[", "t", "]"}]}], "-", 
       RowBox[{"(", 
        RowBox[{"inbin", "*", "Nf", "*", 
         RowBox[{"nInh", "[", "t", "]"}], "*", 
         RowBox[{"Sum", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"x", "[", "jj", "]"}], "[", "kk", "]"}], "[", "ll", 
               "]"}], "[", "1", "]"}], "[", "nn", "]"}], "[", "t", "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"jj", ",", "0", ",", "6"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"kk", ",", "0", ",", "2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"ll", ",", "1", ",", "3", ",", "2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"nn", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ")"}], "+", 
       RowBox[{"inubin", "*", 
        RowBox[{"Sum", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"x", "[", "jj", "]"}], "[", "kk", "]"}], "[", "ll", 
              "]"}], "[", "1", "]"}], "[", "nn", "]"}], "[", "t", "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"jj", ",", "0", ",", "6"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"kk", ",", "0", ",", "2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"ll", ",", "4", ",", "5"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"nn", ",", "0", ",", "1"}], "}"}]}], "]"}]}]}]}]}], 
    "\[IndentingNewLine]", "\[IndentingNewLine]", "}"}]}], 
  ";"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.763461079155574*^9, 3.7634610837050133`*^9}, {
  3.763462068890311*^9, 3.763462092287017*^9}, {3.763609147111334*^9, 
  3.763609147118288*^9}, {3.768191671150797*^9, 
  3.7681916719795804`*^9}},ExpressionUUID->"ef148d1c-f1f9-4497-840b-\
bbf6eb45624a"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{"ldd", ">", "dtt"}], ",", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"jjj", "=", "1"}], ",", 
        RowBox[{"jjj", "<", 
         RowBox[{"days", "+", "1"}]}], ",", 
        RowBox[{"jjj", "++"}], ",", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"jjj", "\[Equal]", "1"}], ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"athree", "=", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{"G", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"GR", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "2", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"gto", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "3", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"MnRo", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "4", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"McRo", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "5", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"MnRt", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "6", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"McRt", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "7", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"MnPo", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "8", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"McPo", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "9", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"MnPt", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "10", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"McPt", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "11", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"MnB", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "12", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"McB", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "13", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"B", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "14", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"GBb", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "15", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"GBRb", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "16", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"Cl", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "17", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"MnRev", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "18", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"McRev", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "19", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"cyrev", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "20", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"revn", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "21", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"cyrevg", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "22", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"revng", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "23", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"cyrevgp", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "24", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"revngp", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "25", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"GB", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "26", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"GBR", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "27", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"cyrevp", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "29", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"revnp", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "30", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"BC", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "33", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"Gr", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "34", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"GrR", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "35", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"McNp", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "36", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"MnNp", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "37", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"Gc", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "38", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"GcR", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "39", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"pInh", "[", "0", "]"}], "\[Equal]", "0"}], ",", 
               RowBox[{
                RowBox[{"bInh", "[", "0", "]"}], "\[Equal]", "0"}], ",", 
               RowBox[{
                RowBox[{"Inh", "[", "0", "]"}], "\[Equal]", "0"}], ",", 
               RowBox[{
                RowBox[{"nInh", "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}]}],
             ";", 
            RowBox[{"afour", "=", 
             RowBox[{"Flatten", "[", 
              RowBox[{"Table", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                    "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "0", "]"}], 
                 "\[Equal]", 
                 RowBox[{"If", "[", 
                  RowBox[{
                   RowBox[{"l", ">", "3"}], ",", "0", ",", 
                   RowBox[{"imInit11", "[", 
                    RowBox[{"[", 
                    RowBox[{
                    RowBox[{"j", "+", "1"}], ",", 
                    RowBox[{"k", "+", "1"}], ",", 
                    RowBox[{"l", "+", "1"}], ",", 
                    RowBox[{"m", "+", "1"}], ",", 
                    RowBox[{"n", "+", "1"}], ",", "1"}], "]"}], "]"}]}], 
                  "]"}]}], ",", 
                RowBox[{"{", 
                 RowBox[{"j", ",", "0", ",", "6"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"k", ",", "0", ",", "2"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"l", ",", "0", ",", "5"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"m", ",", "0", ",", "1"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"n", ",", "0", ",", "1"}], "}"}]}], "]"}], "]"}]}], 
            ";"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"mInit11", "=", 
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                    "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", 
                 RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt3"}], ",", 
               RowBox[{"{", 
                RowBox[{"j", ",", "0", ",", "6"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"k", ",", "0", ",", "2"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"l", ",", "0", ",", "5"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"m", ",", "0", ",", "1"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"n", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"mInit22", "=", 
             RowBox[{"Flatten", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{
                 RowBox[{"G", "[", 
                  RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"GR", "[", 
                  RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"gto", "[", 
                  RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"MnRo", "[", 
                  RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"McRo", "[", 
                  RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"MnRt", "[", 
                  RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"McRt", "[", 
                  RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"MnPo", "[", 
                  RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"McPo", "[", 
                  RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"MnPt", "[", 
                  RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"McPt", "[", 
                  RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"MnB", "[", 
                  RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"McB", "[", 
                  RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"B", "[", 
                  RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"GBb", "[", 
                  RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"GBRb", "[", 
                  RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"Cl", "[", 
                  RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"MnRev", "[", 
                  RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"McRev", "[", 
                  RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"cyrev", "[", 
                  RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"revn", "[", 
                  RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"cyrevg", "[", 
                  RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"revng", "[", 
                  RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"cyrevgp", "[", 
                  RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"revngp", "[", 
                  RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"GB", "[", 
                  RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"GBR", "[", 
                  RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt3"}], ",", "0",
                 ",", 
                RowBox[{
                 RowBox[{"cyrevp", "[", 
                  RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"revnp", "[", 
                  RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt3"}], ",", "0",
                 ",", "0", ",", 
                RowBox[{
                 RowBox[{"BC", "[", 
                  RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"Gr", "[", 
                  RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"GrR", "[", 
                  RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"McNp", "[", 
                  RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"MnNp", "[", 
                  RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"Gc", "[", 
                  RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"GcR", "[", 
                  RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"pInh", "[", 
                  RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"Inh", "[", 
                  RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"nInh", "[", 
                  RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"bInh", "[", 
                  RowBox[{"24", "-", "ldd"}], "]"}], "/.", "qrt3"}]}], "}"}], 
              "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
            RowBox[{"athree", "=", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{"G", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"GR", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "2", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"gto", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "3", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"MnRo", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "4", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"McRo", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "5", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"MnRt", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "6", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"McRt", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "7", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"MnPo", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "8", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"McPo", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "9", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"MnPt", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "10", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"McPt", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "11", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"MnB", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "12", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"McB", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "13", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"B", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "14", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"GBb", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "15", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"GBRb", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "16", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"Cl", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "17", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"MnRev", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "18", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"McRev", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "19", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"cyrev", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "20", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"revn", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "21", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"cyrevg", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "22", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"revng", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "23", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"cyrevgp", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "24", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"revngp", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "25", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"GB", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "26", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"GBR", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "27", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"cyrevp", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "29", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"revnp", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "30", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"BC", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "33", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"Gr", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "34", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"GrR", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "35", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"McNp", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "36", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"MnNp", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "37", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"Gc", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "38", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"GcR", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "39", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"pInh", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "40", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"Inh", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "41", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"nInh", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "42", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"bInh", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "43", "]"}], "]"}]}]}], "}"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"afour", "=", 
             RowBox[{"Flatten", "[", 
              RowBox[{"Table", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                    "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "0", "]"}], 
                 "\[Equal]", 
                 RowBox[{"mInit11", "[", 
                  RowBox[{"[", 
                   RowBox[{
                    RowBox[{"j", "+", "1"}], ",", 
                    RowBox[{"k", "+", "1"}], ",", 
                    RowBox[{"l", "+", "1"}], ",", 
                    RowBox[{"m", "+", "1"}], ",", 
                    RowBox[{"n", "+", "1"}], ",", "1"}], "]"}], "]"}]}], ",", 
                RowBox[{"{", 
                 RowBox[{"j", ",", "0", ",", "6"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"k", ",", "0", ",", "2"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"l", ",", "0", ",", "5"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"m", ",", "0", ",", "1"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"n", ",", "0", ",", "1"}], "}"}]}], "]"}], "]"}]}], 
            ";"}]}], "]"}], ";", 
         RowBox[{"qrt2", "=", 
          RowBox[{"NDSolve", "[", 
           RowBox[{
            RowBox[{"Join", "[", 
             RowBox[{"laone2", ",", "atwo", ",", "athree", ",", "afour"}], 
             "]"}], ",", "afive", ",", 
            RowBox[{"{", 
             RowBox[{"t", ",", "0", ",", "dtt"}], "}"}], ",", 
            RowBox[{"MaxSteps", "\[Rule]", "100000"}], ",", 
            RowBox[{"MaxStepSize", "\[Rule]", "0.1"}]}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"mInit11", "=", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                 "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "dtt", "]"}], "/.",
              "qrt2"}], ",", 
            RowBox[{"{", 
             RowBox[{"j", ",", "0", ",", "6"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"k", ",", "0", ",", "2"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"l", ",", "0", ",", "5"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", "0", ",", "1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"n", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"mInit22", "=", 
          RowBox[{"Flatten", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"G", "[", "dtt", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"GR", "[", "dtt", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"gto", "[", "dtt", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"MnRo", "[", "dtt", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"McRo", "[", "dtt", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"MnRt", "[", "dtt", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"McRt", "[", "dtt", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"MnPo", "[", "dtt", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"McPo", "[", "dtt", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"MnPt", "[", "dtt", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"McPt", "[", "dtt", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"MnB", "[", "dtt", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"McB", "[", "dtt", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"B", "[", "dtt", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"GBb", "[", "dtt", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"GBRb", "[", "dtt", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"Cl", "[", "dtt", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"MnRev", "[", "dtt", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"McRev", "[", "dtt", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"cyrev", "[", "dtt", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"revn", "[", "dtt", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"cyrevg", "[", "dtt", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"revng", "[", "dtt", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"cyrevgp", "[", "dtt", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"revngp", "[", "dtt", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"GB", "[", "dtt", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"GBR", "[", "dtt", "]"}], "/.", "qrt2"}], ",", "0", ",", 
             RowBox[{
              RowBox[{"cyrevp", "[", "dtt", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"revnp", "[", "dtt", "]"}], "/.", "qrt2"}], ",", "0", 
             ",", "0", ",", 
             RowBox[{
              RowBox[{"BC", "[", "dtt", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"Gr", "[", "dtt", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"GrR", "[", "dtt", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"McNp", "[", "dtt", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"MnNp", "[", "dtt", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"Gc", "[", "dtt", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"GcR", "[", "dtt", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"pInh", "[", "dtt", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"Inh", "[", "dtt", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"nInh", "[", "dtt", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"bInh", "[", "dtt", "]"}], "/.", "qrt2"}]}], "}"}], 
           "]"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"athree", "=", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"G", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"GR", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"gto", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "3", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"MnRo", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "4", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"McRo", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "5", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"MnRt", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "6", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"McRt", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "7", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"MnPo", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "8", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"McPo", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "9", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"MnPt", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "10", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"McPt", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "11", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"MnB", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "12", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"McB", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "13", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"B", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "14", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"GBb", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "15", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"GBRb", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "16", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"Cl", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "17", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"MnRev", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "18", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"McRev", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "19", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"cyrev", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "20", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"revn", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "21", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"cyrevg", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "22", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"revng", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "23", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"cyrevgp", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "24", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"revngp", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "25", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"GB", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "26", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"GBR", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "27", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"cyrevp", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "29", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"revnp", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "30", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"BC", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "33", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"Gr", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "34", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"GrR", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "35", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"McNp", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "36", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"MnNp", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "37", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"Gc", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "38", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"GcR", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "39", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"pInh", "[", "0", "]"}], "\[Equal]", 
             RowBox[{
              RowBox[{"mInit22", "[", 
               RowBox[{"[", "40", "]"}], "]"}], "+", "nprod"}]}], ",", 
            RowBox[{
             RowBox[{"Inh", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "41", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"nInh", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "42", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"bInh", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "43", "]"}], "]"}]}]}], "}"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"afour", "=", 
          RowBox[{"Flatten", "[", 
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                  "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "0", "]"}], 
              "\[Equal]", 
              RowBox[{"mInit11", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"j", "+", "1"}], ",", 
                 RowBox[{"k", "+", "1"}], ",", 
                 RowBox[{"l", "+", "1"}], ",", 
                 RowBox[{"m", "+", "1"}], ",", 
                 RowBox[{"n", "+", "1"}], ",", "1"}], "]"}], "]"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"j", ",", "0", ",", "6"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"k", ",", "0", ",", "2"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"l", ",", "0", ",", "5"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"m", ",", "0", ",", "1"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"n", ",", "0", ",", "1"}], "}"}]}], "]"}], "]"}]}], ";",
          "\[IndentingNewLine]", 
         RowBox[{"qrt22", "=", 
          RowBox[{"NDSolve", "[", 
           RowBox[{
            RowBox[{"Join", "[", 
             RowBox[{"laone3", ",", "atwo", ",", "athree", ",", "afour"}], 
             "]"}], ",", "afive", ",", 
            RowBox[{"{", 
             RowBox[{"t", ",", "0", ",", 
              RowBox[{"ldd", "-", "dtt"}]}], "}"}], ",", 
            RowBox[{"MaxSteps", "\[Rule]", "100000"}], ",", 
            RowBox[{"MaxStepSize", "\[Rule]", "0.1"}]}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"mInit11", "=", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                 "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", 
              RowBox[{"ldd", "-", "dtt"}], "]"}], "/.", "qrt22"}], ",", 
            RowBox[{"{", 
             RowBox[{"j", ",", "0", ",", "6"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"k", ",", "0", ",", "2"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"l", ",", "0", ",", "5"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", "0", ",", "1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"n", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"mInit22", "=", 
          RowBox[{"Flatten", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"G", "[", 
               RowBox[{"ldd", "-", "dtt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"GR", "[", 
               RowBox[{"ldd", "-", "dtt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"gto", "[", 
               RowBox[{"ldd", "-", "dtt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"MnRo", "[", 
               RowBox[{"ldd", "-", "dtt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"McRo", "[", 
               RowBox[{"ldd", "-", "dtt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"MnRt", "[", 
               RowBox[{"ldd", "-", "dtt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"McRt", "[", 
               RowBox[{"ldd", "-", "dtt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"MnPo", "[", 
               RowBox[{"ldd", "-", "dtt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"McPo", "[", 
               RowBox[{"ldd", "-", "dtt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"MnPt", "[", 
               RowBox[{"ldd", "-", "dtt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"McPt", "[", 
               RowBox[{"ldd", "-", "dtt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"MnB", "[", 
               RowBox[{"ldd", "-", "dtt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"McB", "[", 
               RowBox[{"ldd", "-", "dtt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"B", "[", 
               RowBox[{"ldd", "-", "dtt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"GBb", "[", 
               RowBox[{"ldd", "-", "dtt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"GBRb", "[", 
               RowBox[{"ldd", "-", "dtt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"Cl", "[", 
               RowBox[{"ldd", "-", "dtt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"MnRev", "[", 
               RowBox[{"ldd", "-", "dtt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"McRev", "[", 
               RowBox[{"ldd", "-", "dtt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"cyrev", "[", 
               RowBox[{"ldd", "-", "dtt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"revn", "[", 
               RowBox[{"ldd", "-", "dtt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"cyrevg", "[", 
               RowBox[{"ldd", "-", "dtt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"revng", "[", 
               RowBox[{"ldd", "-", "dtt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"cyrevgp", "[", 
               RowBox[{"ldd", "-", "dtt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"revngp", "[", 
               RowBox[{"ldd", "-", "dtt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"GB", "[", 
               RowBox[{"ldd", "-", "dtt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"GBR", "[", 
               RowBox[{"ldd", "-", "dtt"}], "]"}], "/.", "qrt22"}], ",", "0", 
             ",", 
             RowBox[{
              RowBox[{"cyrevp", "[", 
               RowBox[{"ldd", "-", "dtt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"revnp", "[", 
               RowBox[{"ldd", "-", "dtt"}], "]"}], "/.", "qrt22"}], ",", "0", 
             ",", "0", ",", 
             RowBox[{
              RowBox[{"BC", "[", 
               RowBox[{"ldd", "-", "dtt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"Gr", "[", 
               RowBox[{"ldd", "-", "dtt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"GrR", "[", 
               RowBox[{"ldd", "-", "dtt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"McNp", "[", 
               RowBox[{"ldd", "-", "dtt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"MnNp", "[", 
               RowBox[{"ldd", "-", "dtt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"Gc", "[", 
               RowBox[{"ldd", "-", "dtt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"GcR", "[", 
               RowBox[{"ldd", "-", "dtt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"pInh", "[", 
               RowBox[{"ldd", "-", "dtt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"Inh", "[", 
               RowBox[{"ldd", "-", "dtt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"nInh", "[", 
               RowBox[{"ldd", "-", "dtt"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"bInh", "[", 
               RowBox[{"ldd", "-", "dtt"}], "]"}], "/.", "qrt22"}]}], "}"}], 
           "]"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"athree", "=", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"G", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"GR", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"gto", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "3", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"MnRo", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "4", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"McRo", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "5", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"MnRt", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "6", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"McRt", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "7", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"MnPo", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "8", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"McPo", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "9", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"MnPt", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "10", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"McPt", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "11", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"MnB", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "12", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"McB", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "13", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"B", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "14", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"GBb", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "15", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"GBRb", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "16", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"Cl", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "17", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"MnRev", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "18", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"McRev", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "19", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"cyrev", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "20", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"revn", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "21", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"cyrevg", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "22", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"revng", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "23", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"cyrevgp", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "24", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"revngp", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "25", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"GB", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "26", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"GBR", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "27", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"cyrevp", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "29", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"revnp", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "30", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"BC", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "33", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"Gr", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "34", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"GrR", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "35", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"McNp", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "36", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"MnNp", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "37", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"Gc", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "38", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"GcR", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "39", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"pInh", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "40", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"Inh", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "41", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"nInh", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "42", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"bInh", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "43", "]"}], "]"}]}]}], "}"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"afour", "=", 
          RowBox[{"Flatten", "[", 
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                  "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "0", "]"}], 
              "\[Equal]", 
              RowBox[{"mInit11", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"j", "+", "1"}], ",", 
                 RowBox[{"k", "+", "1"}], ",", 
                 RowBox[{"l", "+", "1"}], ",", 
                 RowBox[{"m", "+", "1"}], ",", 
                 RowBox[{"n", "+", "1"}], ",", "1"}], "]"}], "]"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"j", ",", "0", ",", "6"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"k", ",", "0", ",", "2"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"l", ",", "0", ",", "5"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"m", ",", "0", ",", "1"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"n", ",", "0", ",", "1"}], "}"}]}], "]"}], "]"}]}], ";",
          "\[IndentingNewLine]", 
         RowBox[{"qrt3", "=", 
          RowBox[{"NDSolve", "[", 
           RowBox[{
            RowBox[{"Join", "[", 
             RowBox[{"daone", ",", "atwo", ",", "athree", ",", "afour"}], 
             "]"}], ",", "afive", ",", 
            RowBox[{"{", 
             RowBox[{"t", ",", "0", ",", 
              RowBox[{"24", "-", "ldd"}]}], "}"}], ",", 
            RowBox[{"MaxSteps", "\[Rule]", "100000"}], ",", 
            RowBox[{"MaxStepSize", "\[Rule]", "0.1"}]}], "]"}]}], ";", 
         "\[IndentingNewLine]", "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{
          "Measurement", " ", "of", " ", "Phase", " ", "during", " ", 
           "Chronic", " ", "Dosing"}], "*)"}], "\[IndentingNewLine]", 
         RowBox[{"XXo", "=", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"MnB", "[", "t", "]"}], "+", 
              RowBox[{"McB", "[", "t", "]"}]}], "/.", 
             RowBox[{"qrt2", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"t", ",", "0", ",", "dtt", ",", "0.02"}], "}"}]}], 
           "]"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"XXt", "=", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"MnB", "[", "t", "]"}], "+", 
              RowBox[{"McB", "[", "t", "]"}]}], "/.", 
             RowBox[{"qrt22", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"t", ",", "0.02", ",", 
              RowBox[{"ldd", "-", "dtt"}], ",", "0.02"}], "}"}]}], "]"}]}], 
         ";", "\[IndentingNewLine]", 
         RowBox[{"XXh", "=", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"MnB", "[", "t", "]"}], "+", 
              RowBox[{"McB", "[", "t", "]"}]}], "/.", 
             RowBox[{"qrt3", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"t", ",", "0.02", ",", 
              RowBox[{"24", "-", "ldd"}], ",", "0.02"}], "}"}]}], "]"}]}], 
         ";", "\[IndentingNewLine]", 
         RowBox[{"XX", "=", 
          RowBox[{"Join", "[", 
           RowBox[{"XXo", ",", "XXt", ",", "XXh"}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"tBmt", "=", 
          RowBox[{"Mod", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"Position", "[", 
                  RowBox[{"XX", ",", 
                   RowBox[{"Min", "[", "XX", "]"}]}], "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}], "[", 
                RowBox[{"[", "1", "]"}], "]"}], "-", "1"}], ")"}], "*", 
             "0.02"}], ",", "24"}], "]"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"tmo", "=", 
          RowBox[{"Join", "[", 
           RowBox[{
            RowBox[{"Flatten", "[", "tmo", "]"}], ",", 
            RowBox[{"{", "tBmt", "}"}]}], "]"}]}], ";"}]}], 
       "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"jjj", "=", "1"}], ",", 
        RowBox[{"jjj", "<", 
         RowBox[{"days", "+", "1"}]}], ",", 
        RowBox[{"jjj", "++"}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"jjj", "\[Equal]", "1"}], ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"athree", "=", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{"G", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"GR", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "2", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"gto", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "3", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"MnRo", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "4", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"McRo", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "5", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"MnRt", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "6", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"McRt", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "7", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"MnPo", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "8", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"McPo", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "9", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"MnPt", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "10", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"McPt", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "11", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"MnB", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "12", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"McB", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "13", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"B", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "14", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"GBb", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "15", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"GBRb", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "16", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"Cl", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "17", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"MnRev", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "18", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"McRev", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "19", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"cyrev", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "20", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"revn", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "21", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"cyrevg", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "22", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"revng", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "23", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"cyrevgp", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "24", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"revngp", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "25", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"GB", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "26", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"GBR", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "27", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"cyrevp", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "29", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"revnp", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "30", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"BC", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "33", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"Gr", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "34", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"GrR", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "35", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"McNp", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "36", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"MnNp", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "37", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"Gc", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "38", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"GcR", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"imInit22", "[", 
                 RowBox[{"[", "39", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"pInh", "[", "0", "]"}], "\[Equal]", "0"}], ",", 
               RowBox[{
                RowBox[{"Inh", "[", "0", "]"}], "\[Equal]", "0"}], ",", 
               RowBox[{
                RowBox[{"nInh", "[", "0", "]"}], "\[Equal]", "0"}], ",", 
               RowBox[{
                RowBox[{"bInh", "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}]}],
             ";", 
            RowBox[{"afour", "=", 
             RowBox[{"Flatten", "[", 
              RowBox[{"Table", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                    "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "0", "]"}], 
                 "\[Equal]", 
                 RowBox[{"If", "[", 
                  RowBox[{
                   RowBox[{"l", ">", "3"}], ",", "0", ",", 
                   RowBox[{"imInit11", "[", 
                    RowBox[{"[", 
                    RowBox[{
                    RowBox[{"j", "+", "1"}], ",", 
                    RowBox[{"k", "+", "1"}], ",", 
                    RowBox[{"l", "+", "1"}], ",", 
                    RowBox[{"m", "+", "1"}], ",", 
                    RowBox[{"n", "+", "1"}], ",", "1"}], "]"}], "]"}]}], 
                  "]"}]}], ",", 
                RowBox[{"{", 
                 RowBox[{"j", ",", "0", ",", "6"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"k", ",", "0", ",", "2"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"l", ",", "0", ",", "5"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"m", ",", "0", ",", "1"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"n", ",", "0", ",", "1"}], "}"}]}], "]"}], "]"}]}], 
            ";"}], ",", 
           RowBox[{
            RowBox[{"mInit11", "=", 
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                    "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", 
                 RowBox[{"24", "-", "dtt"}], "]"}], "/.", "qrt3"}], ",", 
               RowBox[{"{", 
                RowBox[{"j", ",", "0", ",", "6"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"k", ",", "0", ",", "2"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"l", ",", "0", ",", "5"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"m", ",", "0", ",", "1"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"n", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"mInit22", "=", 
             RowBox[{"Flatten", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{
                 RowBox[{"G", "[", 
                  RowBox[{"24", "-", "dtt"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"GR", "[", 
                  RowBox[{"24", "-", "dtt"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"gto", "[", 
                  RowBox[{"24", "-", "dtt"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"MnRo", "[", 
                  RowBox[{"24", "-", "dtt"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"McRo", "[", 
                  RowBox[{"24", "-", "dtt"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"MnRt", "[", 
                  RowBox[{"24", "-", "dtt"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"McRt", "[", 
                  RowBox[{"24", "-", "dtt"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"MnPo", "[", 
                  RowBox[{"24", "-", "dtt"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"McPo", "[", 
                  RowBox[{"24", "-", "dtt"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"MnPt", "[", 
                  RowBox[{"24", "-", "dtt"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"McPt", "[", 
                  RowBox[{"24", "-", "dtt"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"MnB", "[", 
                  RowBox[{"24", "-", "dtt"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"McB", "[", 
                  RowBox[{"24", "-", "dtt"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"B", "[", 
                  RowBox[{"24", "-", "dtt"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"GBb", "[", 
                  RowBox[{"24", "-", "dtt"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"GBRb", "[", 
                  RowBox[{"24", "-", "dtt"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"Cl", "[", 
                  RowBox[{"24", "-", "dtt"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"MnRev", "[", 
                  RowBox[{"24", "-", "dtt"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"McRev", "[", 
                  RowBox[{"24", "-", "dtt"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"cyrev", "[", 
                  RowBox[{"24", "-", "dtt"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"revn", "[", 
                  RowBox[{"24", "-", "dtt"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"cyrevg", "[", 
                  RowBox[{"24", "-", "dtt"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"revng", "[", 
                  RowBox[{"24", "-", "dtt"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"cyrevgp", "[", 
                  RowBox[{"24", "-", "dtt"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"revngp", "[", 
                  RowBox[{"24", "-", "dtt"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"GB", "[", 
                  RowBox[{"24", "-", "dtt"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"GBR", "[", 
                  RowBox[{"24", "-", "dtt"}], "]"}], "/.", "qrt3"}], ",", "0",
                 ",", 
                RowBox[{
                 RowBox[{"cyrevp", "[", 
                  RowBox[{"24", "-", "dtt"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"revnp", "[", 
                  RowBox[{"24", "-", "dtt"}], "]"}], "/.", "qrt3"}], ",", "0",
                 ",", "0", ",", 
                RowBox[{
                 RowBox[{"BC", "[", 
                  RowBox[{"24", "-", "dtt"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"Gr", "[", 
                  RowBox[{"24", "-", "dtt"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"GrR", "[", 
                  RowBox[{"24", "-", "dtt"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"McNp", "[", 
                  RowBox[{"24", "-", "dtt"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"MnNp", "[", 
                  RowBox[{"24", "-", "dtt"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"Gc", "[", 
                  RowBox[{"24", "-", "dtt"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"GcR", "[", 
                  RowBox[{"24", "-", "dtt"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"pInh", "[", 
                  RowBox[{"24", "-", "dtt"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"Inh", "[", 
                  RowBox[{"24", "-", "dtt"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"nInh", "[", 
                  RowBox[{"24", "-", "dtt"}], "]"}], "/.", "qrt3"}], ",", 
                RowBox[{
                 RowBox[{"bInh", "[", 
                  RowBox[{"24", "-", "dtt"}], "]"}], "/.", "qrt3"}]}], "}"}], 
              "]"}]}], ";", 
            RowBox[{"athree", "=", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{"G", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"GR", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "2", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"gto", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "3", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"MnRo", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "4", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"McRo", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "5", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"MnRt", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "6", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"McRt", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "7", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"MnPo", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "8", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"McPo", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "9", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"MnPt", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "10", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"McPt", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "11", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"MnB", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "12", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"McB", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "13", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"B", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "14", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"GBb", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "15", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"GBRb", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "16", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"Cl", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "17", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"MnRev", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "18", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"McRev", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "19", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"cyrev", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "20", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"revn", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "21", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"cyrevg", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "22", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"revng", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "23", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"cyrevgp", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "24", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"revngp", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "25", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"GB", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "26", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"GBR", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "27", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"cyrevp", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "29", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"revnp", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "30", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"BC", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "33", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"Gr", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "34", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"GrR", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "35", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"McNp", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "36", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"MnNp", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "37", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"Gc", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "38", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"GcR", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "39", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"pInh", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "40", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"Inh", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "41", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"nInh", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "42", "]"}], "]"}]}], ",", 
               RowBox[{
                RowBox[{"bInh", "[", "0", "]"}], "\[Equal]", 
                RowBox[{"mInit22", "[", 
                 RowBox[{"[", "43", "]"}], "]"}]}]}], "}"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"afour", "=", 
             RowBox[{"Flatten", "[", 
              RowBox[{"Table", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                    "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "0", "]"}], 
                 "\[Equal]", 
                 RowBox[{"mInit11", "[", 
                  RowBox[{"[", 
                   RowBox[{
                    RowBox[{"j", "+", "1"}], ",", 
                    RowBox[{"k", "+", "1"}], ",", 
                    RowBox[{"l", "+", "1"}], ",", 
                    RowBox[{"m", "+", "1"}], ",", 
                    RowBox[{"n", "+", "1"}], ",", "1"}], "]"}], "]"}]}], ",", 
                RowBox[{"{", 
                 RowBox[{"j", ",", "0", ",", "6"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"k", ",", "0", ",", "2"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"l", ",", "0", ",", "5"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"m", ",", "0", ",", "1"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"n", ",", "0", ",", "1"}], "}"}]}], "]"}], "]"}]}], 
            ";"}]}], "]"}], ";", 
         RowBox[{"qrt2", "=", 
          RowBox[{"NDSolve", "[", 
           RowBox[{
            RowBox[{"Join", "[", 
             RowBox[{"laone2", ",", "atwo", ",", "athree", ",", "afour"}], 
             "]"}], ",", "afive", ",", 
            RowBox[{"{", 
             RowBox[{"t", ",", "0", ",", "ldd"}], "}"}], ",", 
            RowBox[{"MaxSteps", "\[Rule]", "100000"}], ",", 
            RowBox[{"MaxStepSize", "\[Rule]", "0.1"}]}], "]"}]}], ";", 
         "\[IndentingNewLine]", "\[IndentingNewLine]", 
         RowBox[{"mInit11", "=", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                 "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "ldd", "]"}], "/.",
              "qrt2"}], ",", 
            RowBox[{"{", 
             RowBox[{"j", ",", "0", ",", "6"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"k", ",", "0", ",", "2"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"l", ",", "0", ",", "5"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", "0", ",", "1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"n", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"mInit22", "=", 
          RowBox[{"Flatten", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"G", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"GR", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"gto", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"MnRo", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"McRo", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"MnRt", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"McRt", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"MnPo", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"McPo", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"MnPt", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"McPt", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"MnB", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"McB", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"B", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"GBb", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"GBRb", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"Cl", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"MnRev", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"McRev", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"cyrev", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"revn", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"cyrevg", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"revng", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"cyrevgp", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"revngp", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"GB", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"GBR", "[", "ldd", "]"}], "/.", "qrt2"}], ",", "0", ",", 
             RowBox[{
              RowBox[{"cyrevp", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"revnp", "[", "ldd", "]"}], "/.", "qrt2"}], ",", "0", 
             ",", "0", ",", 
             RowBox[{
              RowBox[{"BC", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"Gr", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"GrR", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"McNp", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"MnNp", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"Gc", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"GcR", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"pInh", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"Inh", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"nInh", "[", "ldd", "]"}], "/.", "qrt2"}], ",", 
             RowBox[{
              RowBox[{"bInh", "[", "ldd", "]"}], "/.", "qrt2"}]}], "}"}], 
           "]"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"athree", "=", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"G", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"GR", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"gto", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "3", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"MnRo", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "4", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"McRo", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "5", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"MnRt", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "6", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"McRt", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "7", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"MnPo", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "8", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"McPo", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "9", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"MnPt", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "10", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"McPt", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "11", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"MnB", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "12", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"McB", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "13", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"B", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "14", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"GBb", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "15", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"GBRb", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "16", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"Cl", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "17", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"MnRev", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "18", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"McRev", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "19", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"cyrev", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "20", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"revn", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "21", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"cyrevg", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "22", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"revng", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "23", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"cyrevgp", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "24", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"revngp", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "25", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"GB", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "26", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"GBR", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "27", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"cyrevp", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "29", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"revnp", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "30", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"BC", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "33", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"Gr", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "34", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"GrR", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "35", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"McNp", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "36", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"MnNp", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "37", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"Gc", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "38", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"GcR", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "39", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"pInh", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "40", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"Inh", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "41", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"nInh", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "42", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"bInh", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "43", "]"}], "]"}]}]}], "}"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"afour", "=", 
          RowBox[{"Flatten", "[", 
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                  "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "0", "]"}], 
              "\[Equal]", 
              RowBox[{"mInit11", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"j", "+", "1"}], ",", 
                 RowBox[{"k", "+", "1"}], ",", 
                 RowBox[{"l", "+", "1"}], ",", 
                 RowBox[{"m", "+", "1"}], ",", 
                 RowBox[{"n", "+", "1"}], ",", "1"}], "]"}], "]"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"j", ",", "0", ",", "6"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"k", ",", "0", ",", "2"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"l", ",", "0", ",", "5"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"m", ",", "0", ",", "1"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"n", ",", "0", ",", "1"}], "}"}]}], "]"}], "]"}]}], ";",
          "\[IndentingNewLine]", 
         RowBox[{"qrt22", "=", 
          RowBox[{"NDSolve", "[", 
           RowBox[{
            RowBox[{"Join", "[", 
             RowBox[{"daone", ",", "atwo", ",", "athree", ",", "afour"}], 
             "]"}], ",", "afive", ",", 
            RowBox[{"{", 
             RowBox[{"t", ",", "0", ",", 
              RowBox[{"dtt", "-", "ldd"}]}], "}"}], ",", 
            RowBox[{"MaxSteps", "\[Rule]", "100000"}], ",", 
            RowBox[{"MaxStepSize", "\[Rule]", "0.1"}]}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"mInit11", "=", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                 "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", 
              RowBox[{"dtt", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
            RowBox[{"{", 
             RowBox[{"j", ",", "0", ",", "6"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"k", ",", "0", ",", "2"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"l", ",", "0", ",", "5"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", "0", ",", "1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"n", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"mInit22", "=", 
          RowBox[{"Flatten", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"G", "[", 
               RowBox[{"dtt", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"GR", "[", 
               RowBox[{"dtt", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"gto", "[", 
               RowBox[{"dtt", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"MnRo", "[", 
               RowBox[{"dtt", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"McRo", "[", 
               RowBox[{"dtt", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"MnRt", "[", 
               RowBox[{"dtt", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"McRt", "[", 
               RowBox[{"dtt", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"MnPo", "[", 
               RowBox[{"dtt", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"McPo", "[", 
               RowBox[{"dtt", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"MnPt", "[", 
               RowBox[{"dtt", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"McPt", "[", 
               RowBox[{"dtt", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"MnB", "[", 
               RowBox[{"dtt", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"McB", "[", 
               RowBox[{"dtt", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"B", "[", 
               RowBox[{"dtt", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"GBb", "[", 
               RowBox[{"dtt", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"GBRb", "[", 
               RowBox[{"dtt", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"Cl", "[", 
               RowBox[{"dtt", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"MnRev", "[", 
               RowBox[{"dtt", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"McRev", "[", 
               RowBox[{"dtt", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"cyrev", "[", 
               RowBox[{"dtt", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"revn", "[", 
               RowBox[{"dtt", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"cyrevg", "[", 
               RowBox[{"dtt", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"revng", "[", 
               RowBox[{"dtt", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"cyrevgp", "[", 
               RowBox[{"dtt", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"revngp", "[", 
               RowBox[{"dtt", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"GB", "[", 
               RowBox[{"dtt", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"GBR", "[", 
               RowBox[{"dtt", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", "0", 
             ",", 
             RowBox[{
              RowBox[{"cyrevp", "[", 
               RowBox[{"dtt", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"revnp", "[", 
               RowBox[{"dtt", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", "0", 
             ",", "0", ",", 
             RowBox[{
              RowBox[{"BC", "[", 
               RowBox[{"dtt", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"Gr", "[", 
               RowBox[{"dtt", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"GrR", "[", 
               RowBox[{"dtt", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"McNp", "[", 
               RowBox[{"dtt", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"MnNp", "[", 
               RowBox[{"dtt", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"Gc", "[", 
               RowBox[{"dtt", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"GcR", "[", 
               RowBox[{"dtt", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"pInh", "[", 
               RowBox[{"dtt", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"Inh", "[", 
               RowBox[{"dtt", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"nInh", "[", 
               RowBox[{"dtt", "-", "ldd"}], "]"}], "/.", "qrt22"}], ",", 
             RowBox[{
              RowBox[{"bInh", "[", 
               RowBox[{"dtt", "-", "ldd"}], "]"}], "/.", "qrt22"}]}], "}"}], 
           "]"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"athree", "=", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"G", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"GR", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"gto", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "3", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"MnRo", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "4", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"McRo", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "5", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"MnRt", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "6", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"McRt", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "7", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"MnPo", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "8", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"McPo", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "9", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"MnPt", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "10", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"McPt", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "11", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"MnB", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "12", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"McB", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "13", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"B", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "14", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"GBb", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "15", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"GBRb", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "16", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"Cl", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "17", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"MnRev", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "18", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"McRev", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "19", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"cyrev", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "20", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"revn", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "21", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"cyrevg", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "22", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"revng", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "23", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"cyrevgp", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "24", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"revngp", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "25", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"GB", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "26", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"GBR", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "27", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"cyrevp", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "29", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"revnp", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "30", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"BC", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "33", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"Gr", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "34", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"GrR", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "35", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"McNp", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "36", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"MnNp", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "37", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"Gc", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "38", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"GcR", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "39", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"pInh", "[", "0", "]"}], "\[Equal]", 
             RowBox[{
              RowBox[{"mInit22", "[", 
               RowBox[{"[", "40", "]"}], "]"}], "+", "nprod"}]}], ",", 
            RowBox[{
             RowBox[{"Inh", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "41", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"nInh", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "42", "]"}], "]"}]}], ",", 
            RowBox[{
             RowBox[{"bInh", "[", "0", "]"}], "\[Equal]", 
             RowBox[{"mInit22", "[", 
              RowBox[{"[", "43", "]"}], "]"}]}]}], "}"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"afour", "=", 
          RowBox[{"Flatten", "[", 
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"x", "[", "j", "]"}], "[", "k", "]"}], "[", "l", 
                  "]"}], "[", "m", "]"}], "[", "n", "]"}], "[", "0", "]"}], 
              "\[Equal]", 
              RowBox[{"mInit11", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"j", "+", "1"}], ",", 
                 RowBox[{"k", "+", "1"}], ",", 
                 RowBox[{"l", "+", "1"}], ",", 
                 RowBox[{"m", "+", "1"}], ",", 
                 RowBox[{"n", "+", "1"}], ",", "1"}], "]"}], "]"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"j", ",", "0", ",", "6"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"k", ",", "0", ",", "2"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"l", ",", "0", ",", "5"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"m", ",", "0", ",", "1"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"n", ",", "0", ",", "1"}], "}"}]}], "]"}], "]"}]}], ";",
          "\[IndentingNewLine]", 
         RowBox[{"qrt3", "=", 
          RowBox[{"NDSolve", "[", 
           RowBox[{
            RowBox[{"Join", "[", 
             RowBox[{"daone", ",", "atwo", ",", "athree", ",", "afour"}], 
             "]"}], ",", "afive", ",", 
            RowBox[{"{", 
             RowBox[{"t", ",", "0", ",", 
              RowBox[{"24", "-", "dtt"}]}], "}"}], ",", 
            RowBox[{"MaxSteps", "\[Rule]", "100000"}], ",", 
            RowBox[{"MaxStepSize", "\[Rule]", "0.1"}]}], "]"}]}], ";", 
         "\[IndentingNewLine]", "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{
          "Measurement", " ", "of", " ", "Phase", " ", "during", " ", 
           "Chronic", " ", "Dosing"}], "*)"}], "\[IndentingNewLine]", 
         RowBox[{"XXo", "=", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"MnB", "[", "t", "]"}], "+", 
              RowBox[{"McB", "[", "t", "]"}]}], "/.", 
             RowBox[{"qrt2", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"t", ",", "0", ",", "ldd", ",", "0.02"}], "}"}]}], 
           "]"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"XXt", "=", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"MnB", "[", "t", "]"}], "+", 
              RowBox[{"McB", "[", "t", "]"}]}], "/.", 
             RowBox[{"qrt22", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"t", ",", "0.02", ",", 
              RowBox[{
               RowBox[{"-", "ldd"}], "+", "dtt"}], ",", "0.02"}], "}"}]}], 
           "]"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"XXh", "=", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"MnB", "[", "t", "]"}], "+", 
              RowBox[{"McB", "[", "t", "]"}]}], "/.", 
             RowBox[{"qrt3", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"t", ",", "0.02", ",", 
              RowBox[{"24", "-", "dtt"}], ",", "0.02"}], "}"}]}], "]"}]}], 
         ";", "\[IndentingNewLine]", 
         RowBox[{"XX", "=", 
          RowBox[{"Join", "[", 
           RowBox[{"XXo", ",", "XXt", ",", "XXh"}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"tBmt", "=", 
          RowBox[{"Mod", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"Position", "[", 
                  RowBox[{"XX", ",", 
                   RowBox[{"Min", "[", "XX", "]"}]}], "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}], "[", 
                RowBox[{"[", "1", "]"}], "]"}], "-", "1"}], ")"}], "*", 
             "0.02"}], ",", "24"}], "]"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"tmo", "=", 
          RowBox[{"Join", "[", 
           RowBox[{
            RowBox[{"Flatten", "[", "tmo", "]"}], ",", 
            RowBox[{"{", "tBmt", "}"}]}], "]"}]}], ";"}]}], "]"}], ";"}]}], 
    "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tmo", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"tmo", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "\[GreaterEqual]", " ", "tBm"}], ",", 
       RowBox[{"tmo", "[", 
        RowBox[{"[", "i", "]"}], "]"}], ",", 
       RowBox[{
        RowBox[{"tmo", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "+", "24"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "days"}], "}"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{
  3.763006916209363*^9, {3.7681902361705694`*^9, 
   3.76819023654659*^9}},ExpressionUUID->"4983e226-76ad-41c8-84b2-\
c510199d081d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"tBm", "-", "tmo"}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.7359504732691097`*^9, 
  3.735950475214141*^9}},ExpressionUUID->"0e5d1179-8c89-463e-8bc4-\
e4338ceda6da"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "0.5999999999999979`"}], ",", 
   RowBox[{"-", "2.5199999999999996`"}], ",", 
   RowBox[{"-", "4.439999999999998`"}], ",", 
   RowBox[{"-", "4.979999999999997`"}], ",", 
   RowBox[{"-", "5.079999999999998`"}], ",", 
   RowBox[{"-", "5.079999999999998`"}], ",", 
   RowBox[{"-", "5.079999999999998`"}], ",", 
   RowBox[{"-", "5.079999999999998`"}], ",", 
   RowBox[{"-", "5.079999999999998`"}], ",", 
   RowBox[{"-", "5.099999999999998`"}], ",", 
   RowBox[{"-", "5.099999999999998`"}], ",", 
   RowBox[{"-", "5.099999999999998`"}], ",", 
   RowBox[{"-", "5.099999999999998`"}], ",", 
   RowBox[{"-", "5.099999999999998`"}], ",", 
   RowBox[{"-", "5.099999999999998`"}], ",", 
   RowBox[{"-", "5.099999999999998`"}], ",", 
   RowBox[{"-", "5.099999999999998`"}], ",", 
   RowBox[{"-", "5.099999999999998`"}], ",", 
   RowBox[{"-", "5.099999999999998`"}], ",", 
   RowBox[{"-", "5.099999999999998`"}], ",", 
   RowBox[{"-", "5.099999999999998`"}]}], "}"}]], "Print",
 CellChangeTimes->{
  3.7359442144358263`*^9, 3.735944361524825*^9, 3.7359455792448034`*^9, 
   3.735945626989259*^9, {3.735948226532712*^9, 3.735948244376709*^9}, {
   3.735948821616934*^9, 3.735948841895576*^9}, {3.7359500259010887`*^9, 
   3.735950042497983*^9}, 3.7359503197468696`*^9, {3.735950838949804*^9, 
   3.7359508438062315`*^9}, 3.73595123891523*^9, {3.7359519104902315`*^9, 
   3.7359519211662846`*^9}, {3.735953770424733*^9, 3.7359537952713337`*^9}, 
   3.768191594186999*^9, 3.7681921139175844`*^9, 
   3.7682071341833944`*^9},ExpressionUUID->"3a0b468a-3999-4baf-baf4-\
5325da0d5b98"]
}, Open  ]],

Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{
   "Plot", " ", "of", " ", "phase", " ", "delays", " ", "induced", " ", "by", 
    " ", "dosing", " ", "of", " ", "PF"}], "-", "670462"}], 
  "Subsubtitle"]], "Input",
 CellChangeTimes->{{3.7630069273785*^9, 
  3.7630069614484177`*^9}},ExpressionUUID->"ae0541b4-65c4-46c3-affc-\
e8ea97cf9112"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"tBm", "-", "tmo"}], ")"}], "[", 
    RowBox[{"[", 
     RowBox[{"2", ";;", 
      RowBox[{
       RowBox[{"Dimensions", "[", 
        RowBox[{"tBm", "-", "tmo"}], "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}], ",", 
   RowBox[{"DataRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"1", ",", "21"}], "}"}]}], ",", 
   RowBox[{"Joined", "\[Rule]", "True"}], ",", 
   RowBox[{"Mesh", "\[Rule]", "All"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"PointSize", "[", "Large", "]"}], ",", "Red"}], "}"}]}], ",", 
   RowBox[{"AxesStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Thick", ",", 
      RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"BaseStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
      RowBox[{"FontSize", "\[Rule]", "20"}]}], "}"}]}], ",", 
   RowBox[{"AxesOrigin", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"1", ",", 
      RowBox[{"-", "9"}]}], "}"}]}], ",", 
   RowBox[{"Ticks", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1", ",", "5", ",", "10", ",", "15", ",", "21"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"-", "4"}], ",", 
        RowBox[{"-", "8"}]}], "}"}]}], "}"}]}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Days", ",", "Phase"}], "}"}]}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1", ",", "22"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"-", "9"}]}], "}"}]}], "}"}]}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "0.5"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7359440859551535`*^9, 3.7359440884971795`*^9}, {
   3.735944387861581*^9, 3.735944392441575*^9}, {3.7359444484822445`*^9, 
   3.735944449349244*^9}, {3.7359444970691533`*^9, 3.7359446408588915`*^9}, {
   3.735945585324811*^9, 3.735945603871208*^9}, {3.7359504782161317`*^9, 
   3.735950479502116*^9}, {3.7681921276229267`*^9, 3.768192147166647*^9}, 
   3.7682070328063374`*^9},ExpressionUUID->"8bd05121-fc06-4797-b7d8-\
125af3b4b2f4"],

Cell[BoxData[
 GraphicsBox[{{}, GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGAQAWIQDQEf7DVi+g991WA5sKftk9SpbAaHA19BIoIHKnmf
mk65zuHwInCHXOtr4QPSp7I11i8UcAgAcQNFoPIicP71gDjnSl5JON9sCkhE
Fs4Ha9+jgKZfySElDQREDoBk2z6pwPkQ89ThfLDzNDThfIj52nA+yLSAOF04
HyxdqQ/nLwJ70ADOh9hvCOcHgqx7aoTmHmM4HxJepnA+ACzxheM=
    "], {{{}, {}, 
      {RGBColor[1, 0, 0], PointSize[Large], AbsoluteThickness[1.6], 
       StyleBox[
        LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 
         18, 19, 20}],
        FontFamily->"Helvetica",
        FontSize->20]}}, {
      {RGBColor[1, 0, 0], AbsolutePointSize[6], AbsoluteThickness[1.6], 
       StyleBox[
        PointBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 
         18, 19, 20}],
        FontFamily->"Helvetica",
        FontSize->20]}, {}, {}}}], {}, {}, {{}, {}}, {{}, {}}},
  AspectRatio->0.5,
  Axes->{True, True},
  AxesLabel->{
    FormBox["Days", TraditionalForm], 
    FormBox["Phase", TraditionalForm]},
  AxesOrigin->{1., -9.},
  AxesStyle->Directive[
    Thickness[Large], FontSize -> 20],
  BaseStyle->{FontFamily -> "Helvetica", FontSize -> 20},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageMargins->0.,
  ImagePadding->All,
  ImageSize->{433., Automatic},
  ImageSizeRaw->Automatic,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{1, 22}, {0, -9}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {0, 0}},
  Ticks->{{{1, 
      FormBox["1", TraditionalForm]}, {5, 
      FormBox["5", TraditionalForm]}, {10, 
      FormBox["10", TraditionalForm]}, {15, 
      FormBox["15", TraditionalForm]}, {21, 
      FormBox["21", TraditionalForm]}}, {{0, 
      FormBox["0", TraditionalForm]}, {-4, 
      FormBox[
       RowBox[{"-", "4"}], TraditionalForm]}, {-8, 
      FormBox[
       RowBox[{"-", "8"}], TraditionalForm]}}}]], "Output",
 CellChangeTimes->{
  3.735944214628834*^9, 3.735944361646802*^9, 3.73594444997225*^9, {
   3.73594453651663*^9, 3.7359446413858786`*^9}, {3.7359455793057985`*^9, 
   3.7359455861658244`*^9}, 3.7359456277912607`*^9, {3.7359482266641884`*^9, 
   3.7359482469799085`*^9}, {3.735948821701968*^9, 3.735948842608157*^9}, {
   3.7359500259830847`*^9, 3.7359500432310123`*^9}, 3.735950319845873*^9, 
   3.7359503693518763`*^9, {3.735950839055152*^9, 3.735950844440915*^9}, 
   3.7359512389952283`*^9, {3.7359519105682335`*^9, 3.735951921758232*^9}, {
   3.735953770515759*^9, 3.735953796753728*^9}, 3.768191594387474*^9, {
   3.7681921141150403`*^9, 3.7681921479844294`*^9}, 
   3.7682071343718987`*^9},ExpressionUUID->"cc89b5c1-a392-4ca5-b34e-\
59040b04a806"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1920, 997},
WindowMargins->{{-8, Automatic}, {Automatic, -8}},
FrontEndVersion->"11.1 for Microsoft Windows (64-bit) (April 18, 2017)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 718, 15, 88, "Input", "ExpressionUUID" -> \
"f5a8389d-4ff6-4ccb-a03b-c3d1cf4b8133"],
Cell[1279, 37, 1677, 28, 68, "Input", "ExpressionUUID" -> \
"380fc1de-41df-4854-a20b-7199a41e64f0"],
Cell[2959, 67, 403, 10, 38, "Input", "ExpressionUUID" -> \
"282a2def-dcbd-4db1-b07f-ad518fc9aa5e"],
Cell[3365, 79, 3349, 73, 297, "Input", "ExpressionUUID" -> \
"63d292c2-65de-4aa3-aec5-8853a5c0eaa2"],
Cell[CellGroupData[{
Cell[6739, 156, 1653, 30, 267, "Subsubsection", "ExpressionUUID" -> \
"41ac2ff0-bccc-4fdd-a587-f9b51ba77333"],
Cell[8395, 188, 294, 6, 49, "Input", "ExpressionUUID" -> \
"304143b0-9789-4f04-896f-f24bf0a8f079"],
Cell[8692, 196, 41067, 1065, 1000, "Input", "ExpressionUUID" -> \
"61e613b1-2b3e-4acf-9231-9515417b1b0c"],
Cell[49762, 1263, 505, 11, 66, "Input", "ExpressionUUID" -> \
"1f6fb607-864a-4eb6-8370-7530c3783c7c"],
Cell[50270, 1276, 9333, 225, 1095, "Input", "ExpressionUUID" -> \
"319b0d01-4636-43b1-8852-bea9e178f92d"],
Cell[59606, 1503, 839, 17, 52, "Input", "ExpressionUUID" -> \
"e3210bab-2289-4d97-a9df-876e117cebe1"],
Cell[60448, 1522, 24237, 668, 1076, "Input", "ExpressionUUID" -> \
"b706dc92-32dc-40b8-a448-e86636be097a"],
Cell[84688, 2192, 858, 18, 52, "Input", "ExpressionUUID" -> \
"00754abd-e718-432f-b729-d9ebb80382b8"],
Cell[85549, 2212, 122012, 3288, 2216, "Input", "ExpressionUUID" -> \
"ba2c1ba9-640d-4bfe-a507-28b5641f46f2"],
Cell[207564, 5502, 509, 10, 49, "Input", "ExpressionUUID" -> \
"f4a766e7-8e5c-4f85-adac-2424a8ca3c65"],
Cell[208076, 5514, 4644, 118, 202, "Input", "ExpressionUUID" -> \
"cf9b71db-83b2-4c91-bb1c-91282a79135e"],
Cell[212723, 5634, 718, 16, 69, "Input", "ExpressionUUID" -> \
"fe1c61e7-a183-403d-8c06-55c5e5fa37d1"],
Cell[213444, 5652, 2095, 54, 92, "Input", "ExpressionUUID" -> \
"6f1a124a-2ab4-473b-8870-24da823b67bd"],
Cell[215542, 5708, 24463, 674, 1057, "Input", "ExpressionUUID" -> \
"4e4d36a3-5fb2-4fbb-9ea1-4be807644798"],
Cell[240008, 6384, 71291, 1782, 1760, "Input", "ExpressionUUID" -> \
"ca9ad8e8-bb64-4eee-8f58-e729bc453bc7"],
Cell[311302, 8168, 5601, 162, 487, "Input", "ExpressionUUID" -> \
"9174fa14-1933-41ae-bc25-6550d737e3e7"],
Cell[316906, 8332, 5189, 139, 392, "Input", "ExpressionUUID" -> \
"48bd76d9-041c-4f7b-a186-faa2dbff5d66"],
Cell[322098, 8473, 218, 5, 49, "Input", "ExpressionUUID" -> \
"1a6137a3-950b-4c0b-8567-aaad165bd2f3"],
Cell[322319, 8480, 278, 7, 38, "Input", "ExpressionUUID" -> \
"10125fff-1e3a-4973-bb78-1827389a77d2"],
Cell[322600, 8489, 2495, 65, 72, "Input", "ExpressionUUID" -> \
"a0d7449f-c4f5-4d2f-92b1-1edde56ff4bd"],
Cell[325098, 8556, 26600, 710, 1114, "Input", "ExpressionUUID" -> \
"58f693eb-a19f-4002-ba78-58807eeca8e6"],
Cell[351701, 9268, 73624, 1837, 1931, "Input", "ExpressionUUID" -> \
"74ef3aa3-6234-4e54-9e38-f9c3ee6a5f3b"],
Cell[425328, 11107, 1821, 41, 112, "Input", "ExpressionUUID" -> \
"b155c424-f949-482e-9a35-1453749f9016"],
Cell[427152, 11150, 26050, 718, 1171, "Input", "ExpressionUUID" -> \
"ef148d1c-f1f9-4497-840b-bbf6eb45624a"],
Cell[453205, 11870, 115064, 2639, 2349, "Input", "ExpressionUUID" -> \
"4983e226-76ad-41c8-84b2-c510199d081d"],
Cell[CellGroupData[{
Cell[568294, 14513, 232, 6, 30, "Input", "ExpressionUUID" -> \
"0e5d1179-8c89-463e-8bc4-e4338ceda6da"],
Cell[568529, 14521, 1621, 33, 22, "Print", "ExpressionUUID" -> \
"3a0b468a-3999-4baf-baf4-5325da0d5b98"]
}, Open  ]],
Cell[570165, 14557, 341, 9, 38, "Input", "ExpressionUUID" -> \
"ae0541b4-65c4-46c3-affc-e8ea97cf9112"],
Cell[CellGroupData[{
Cell[570531, 14570, 2332, 62, 50, "Input", "ExpressionUUID" -> \
"8bd05121-fc06-4797-b7d8-125af3b4b2f4"],
Cell[572866, 14634, 3071, 73, 247, "Output", "ExpressionUUID" -> \
"cc89b5c1-a392-4ca5-b34e-59040b04a806"]
}, Open  ]]
}, Open  ]]
}
]
*)