From dad22409cf2a69f22486c93a49c23030fa6c7af7 Mon Sep 17 00:00:00 2001 From: Liwei Ji Date: Wed, 3 Jul 2024 15:47:22 -0400 Subject: [PATCH] Z4co: update check_rhs.nb --- Z4co/wolfram/check_rhs.nb | 11080 ++++++++++++++++++------------------ 1 file changed, 5464 insertions(+), 5616 deletions(-) diff --git a/Z4co/wolfram/check_rhs.nb b/Z4co/wolfram/check_rhs.nb index b0f1909f..29401135 100644 --- a/Z4co/wolfram/check_rhs.nb +++ b/Z4co/wolfram/check_rhs.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] -NotebookDataLength[ 245224, 6810] -NotebookOptionsPosition[ 231333, 6573] -NotebookOutlinePosition[ 231731, 6589] -CellTagsIndexPosition[ 231688, 6586] +NotebookDataLength[ 258398, 6658] +NotebookOptionsPosition[ 251075, 6537] +NotebookOutlinePosition[ 251472, 6553] +CellTagsIndexPosition[ 251429, 6550] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -49,11 +49,11 @@ Cell[BoxData["\<\"------------------------------------------------------------\ 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, - 3.929009409821639*^9, 3.929009722843943*^9, 3.9290098489724817`*^9, - 3.929011479915531*^9, 3.9290200615304527`*^9}, + 3.929009409821639*^9, 3.929009722843943*^9, 3.929009848972482*^9, + 3.929011479915531*^9, 3.9290200615304537`*^9, 3.929024751769462*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"6e97295c-3c14-4dbb-9410-5ed6b8818a39"], +In[1]:=",ExpressionUUID->"de7b6795-2d8b-466d-8148-c778de0d1ea9"], Cell[BoxData[ InterpretationBox[ @@ -75,11 +75,11 @@ Cell[BoxData[ 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, - 3.929009409821639*^9, 3.929009722843943*^9, 3.9290098489724817`*^9, - 3.929011479915531*^9, 3.929020061532346*^9}, + 3.929009409821639*^9, 3.929009722843943*^9, 3.929009848972482*^9, + 3.929011479915531*^9, 3.9290200615304537`*^9, 3.9290247517713842`*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"b1c03e4b-3c44-452e-9af6-7833631e06de"], +In[1]:=",ExpressionUUID->"28975089-55fb-4c44-83ca-cc25d2b59356"], Cell[BoxData["\<\"CopyRight (C) 2003-2020, Jose M. Martin-Garcia, under the \ General Public License.\"\>"], "Print", @@ -93,11 +93,11 @@ General Public License.\"\>"], "Print", 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, - 3.929009409821639*^9, 3.929009722843943*^9, 3.9290098489724817`*^9, - 3.929011479915531*^9, 3.929020061534318*^9}, + 3.929009409821639*^9, 3.929009722843943*^9, 3.929009848972482*^9, + 3.929011479915531*^9, 3.9290200615304537`*^9, 3.92902475177313*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"3f144069-6d94-4af7-a824-2ce1a3d3b1c6"], +In[1]:=",ExpressionUUID->"4fb95459-67b4-4fad-bba7-f18c279e3ed9"], Cell[BoxData["\<\"Connecting to external mac executable...\"\>"], "Print", CellChangeTimes->{3.928779369275519*^9, 3.928785921920507*^9, @@ -110,11 +110,11 @@ Cell[BoxData["\<\"Connecting to external mac executable...\"\>"], "Print", 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, - 3.929009409821639*^9, 3.929009722843943*^9, 3.9290098489724817`*^9, - 3.929011479915531*^9, 3.929020061620407*^9}, + 3.929009409821639*^9, 3.929009722843943*^9, 3.929009848972482*^9, + 3.929011479915531*^9, 3.9290200615304537`*^9, 3.929024751842866*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"692f039d-3c18-4e4b-9339-43e0f5fb507a"], +In[1]:=",ExpressionUUID->"5e59d723-0ad1-4ea6-a376-bb21c0390b3c"], Cell[BoxData["\<\"Connection established.\"\>"], "Print", CellChangeTimes->{3.928779369275519*^9, 3.928785921920507*^9, @@ -127,11 +127,11 @@ Cell[BoxData["\<\"Connection established.\"\>"], "Print", 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, - 3.929009409821639*^9, 3.929009722843943*^9, 3.9290098489724817`*^9, - 3.929011479915531*^9, 3.929020061668239*^9}, + 3.929009409821639*^9, 3.929009722843943*^9, 3.929009848972482*^9, + 3.929011479915531*^9, 3.9290200615304537`*^9, 3.929024751891494*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"9b419fbe-d666-41b3-a919-5edb8a21cbcb"], +In[1]:=",ExpressionUUID->"93897799-bee1-46e2-a25c-d1d2796b0311"], Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print", @@ -145,11 +145,11 @@ Cell[BoxData["\<\"------------------------------------------------------------\ 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, - 3.929009409821639*^9, 3.929009722843943*^9, 3.9290098489724817`*^9, - 3.929011479915531*^9, 3.929020061669876*^9}, + 3.929009409821639*^9, 3.929009722843943*^9, 3.929009848972482*^9, + 3.929011479915531*^9, 3.9290200615304537`*^9, 3.929024751895294*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"6da71c1e-8533-43bd-9658-aa7c2dc79ce2"], +In[1]:=",ExpressionUUID->"395a5cf1-8c9d-4892-a7be-43368732f5ee"], Cell[BoxData[ InterpretationBox[ @@ -171,11 +171,11 @@ Cell[BoxData[ 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, - 3.929009409821639*^9, 3.929009722843943*^9, 3.9290098489724817`*^9, - 3.929011479915531*^9, 3.929020061671084*^9}, + 3.929009409821639*^9, 3.929009722843943*^9, 3.929009848972482*^9, + 3.929011479915531*^9, 3.9290200615304537`*^9, 3.9290247518964977`*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"729ab6da-a4a9-4f1a-80f1-13d11c5cc439"], +In[1]:=",ExpressionUUID->"30fc7775-27d1-4afe-b12f-c2af3070aa49"], Cell[BoxData["\<\"CopyRight (C) 2002-2021, Jose M. Martin-Garcia, under the \ General Public License.\"\>"], "Print", @@ -189,11 +189,11 @@ General Public License.\"\>"], "Print", 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, - 3.929009409821639*^9, 3.929009722843943*^9, 3.9290098489724817`*^9, - 3.929011479915531*^9, 3.9290200616722527`*^9}, + 3.929009409821639*^9, 3.929009722843943*^9, 3.929009848972482*^9, + 3.929011479915531*^9, 3.9290200615304537`*^9, 3.929024751897509*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"d5d48480-7db4-4bb0-918a-e8b710fe9a17"], +In[1]:=",ExpressionUUID->"cfc84b80-b4b9-46af-8817-65da48877961"], Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print", @@ -207,11 +207,11 @@ Cell[BoxData["\<\"------------------------------------------------------------\ 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, - 3.929009409821639*^9, 3.929009722843943*^9, 3.9290098489724817`*^9, - 3.929011479915531*^9, 3.929020061707333*^9}, + 3.929009409821639*^9, 3.929009722843943*^9, 3.929009848972482*^9, + 3.929011479915531*^9, 3.9290200615304537`*^9, 3.929024751927038*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"9e8751ce-9ade-49e6-8844-609cdd8bdfd0"], +In[1]:=",ExpressionUUID->"a2cb8728-8b7f-4f03-8928-6ee16828511d"], Cell[BoxData["\<\"These packages come with ABSOLUTELY NO WARRANTY; for \ details type Disclaimer[]. This is free software, and you are welcome to \ @@ -227,11 +227,11 @@ details.\"\>"], "Print", 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, - 3.929009409821639*^9, 3.929009722843943*^9, 3.9290098489724817`*^9, - 3.929011479915531*^9, 3.9290200617085247`*^9}, + 3.929009409821639*^9, 3.929009722843943*^9, 3.929009848972482*^9, + 3.929011479915531*^9, 3.9290200615304537`*^9, 3.9290247519282837`*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"e34187bc-442b-463c-834e-cb6138d209af"], +In[1]:=",ExpressionUUID->"6726f4d4-83bd-4972-afd2-da625df46c3f"], Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print", @@ -245,11 +245,11 @@ Cell[BoxData["\<\"------------------------------------------------------------\ 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, - 3.929009409821639*^9, 3.929009722843943*^9, 3.9290098489724817`*^9, - 3.929011479915531*^9, 3.929020061709708*^9}, + 3.929009409821639*^9, 3.929009722843943*^9, 3.929009848972482*^9, + 3.929011479915531*^9, 3.9290200615304537`*^9, 3.929024751929372*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"4b822208-ab75-4e78-bcc6-70a6afcab14d"], +In[1]:=",ExpressionUUID->"7de50198-2ea8-4f91-bb59-8a3c8061a444"], Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print", @@ -263,11 +263,11 @@ Cell[BoxData["\<\"------------------------------------------------------------\ 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, - 3.929009409821639*^9, 3.929009722843943*^9, 3.9290098489724817`*^9, - 3.929011479915531*^9, 3.929020061919278*^9}, + 3.929009409821639*^9, 3.929009722843943*^9, 3.929009848972482*^9, + 3.929011479915531*^9, 3.9290200615304537`*^9, 3.929024752154624*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"9e734457-67d9-41e0-b29b-d93d7afa4c84"], +In[1]:=",ExpressionUUID->"91ed09e5-7065-4ec1-80c2-e43d0178778a"], Cell[BoxData[ InterpretationBox[ @@ -289,11 +289,11 @@ Cell[BoxData[ 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, - 3.929009409821639*^9, 3.929009722843943*^9, 3.9290098489724817`*^9, - 3.929011479915531*^9, 3.9290200619211197`*^9}, + 3.929009409821639*^9, 3.929009722843943*^9, 3.929009848972482*^9, + 3.929011479915531*^9, 3.9290200615304537`*^9, 3.9290247521562862`*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"f534a9f7-68c6-4794-aaf8-a0ef2403b7a9"], +In[1]:=",ExpressionUUID->"a4119182-244a-42a4-aba2-9e29ac2a144f"], Cell[BoxData["\<\"CopyRight (C) 2005-2021, David Yllanes and Jose M. \ Martin-Garcia, under the General Public License.\"\>"], "Print", @@ -307,11 +307,11 @@ Martin-Garcia, under the General Public License.\"\>"], "Print", 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, - 3.929009409821639*^9, 3.929009722843943*^9, 3.9290098489724817`*^9, - 3.929011479915531*^9, 3.929020061922538*^9}, + 3.929009409821639*^9, 3.929009722843943*^9, 3.929009848972482*^9, + 3.929011479915531*^9, 3.9290200615304537`*^9, 3.92902475215755*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"3cb24d72-770e-4bd7-98a4-3372d56e2a5c"], +In[1]:=",ExpressionUUID->"534da6fc-9a32-4435-af46-876211a0bba3"], Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print", @@ -325,11 +325,11 @@ Cell[BoxData["\<\"------------------------------------------------------------\ 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, - 3.929009409821639*^9, 3.929009722843943*^9, 3.9290098489724817`*^9, - 3.929011479915531*^9, 3.929020061965637*^9}, + 3.929009409821639*^9, 3.929009722843943*^9, 3.929009848972482*^9, + 3.929011479915531*^9, 3.9290200615304537`*^9, 3.929024752191106*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"32fd8606-24c3-42d4-a342-2fd9df37eb17"], +In[1]:=",ExpressionUUID->"bf4f922d-6f67-4cb6-89a4-0cf216a12f4c"], Cell[BoxData["\<\"These packages come with ABSOLUTELY NO WARRANTY; for \ details type Disclaimer[]. This is free software, and you are welcome to \ @@ -345,11 +345,11 @@ details.\"\>"], "Print", 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, - 3.929009409821639*^9, 3.929009722843943*^9, 3.9290098489724817`*^9, - 3.929011479915531*^9, 3.929020061967121*^9}, + 3.929009409821639*^9, 3.929009722843943*^9, 3.929009848972482*^9, + 3.929011479915531*^9, 3.9290200615304537`*^9, 3.9290247521922827`*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"21e10b84-85ec-48fa-8c72-842ee41eb4fd"], +In[1]:=",ExpressionUUID->"2c5c2b3d-ecc6-48a4-a5d3-7f4ddcaab9c8"], Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print", @@ -363,11 +363,11 @@ Cell[BoxData["\<\"------------------------------------------------------------\ 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, - 3.929009409821639*^9, 3.929009722843943*^9, 3.9290098489724817`*^9, - 3.929011479915531*^9, 3.929020061968463*^9}, + 3.929009409821639*^9, 3.929009722843943*^9, 3.929009848972482*^9, + 3.929011479915531*^9, 3.9290200615304537`*^9, 3.929024752193366*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"cca39270-d384-4026-8527-9f8a48f273b4"], +In[1]:=",ExpressionUUID->"d43574a4-277a-41f9-ac43-0bcab4f0bd82"], Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print", @@ -381,11 +381,11 @@ Cell[BoxData["\<\"------------------------------------------------------------\ 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, - 3.929009409821639*^9, 3.929009722843943*^9, 3.9290098489724817`*^9, - 3.929011479915531*^9, 3.929020062861005*^9}, + 3.929009409821639*^9, 3.929009722843943*^9, 3.929009848972482*^9, + 3.929011479915531*^9, 3.9290200615304537`*^9, 3.929024752766006*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"aae298d4-a853-485a-8c3a-bb03af77b65c"], +In[1]:=",ExpressionUUID->"ecb6d8a6-6620-48b3-9d2f-f48c2607e29d"], Cell[BoxData["\<\"Package Generato`Basic`, {2024, 1, 11}\"\>"], "Print", CellChangeTimes->{3.928779369275519*^9, 3.928785921920507*^9, @@ -398,11 +398,11 @@ Cell[BoxData["\<\"Package Generato`Basic`, {2024, 1, 11}\"\>"], "Print", 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, - 3.929009409821639*^9, 3.929009722843943*^9, 3.9290098489724817`*^9, - 3.929011479915531*^9, 3.929020062862176*^9}, + 3.929009409821639*^9, 3.929009722843943*^9, 3.929009848972482*^9, + 3.929011479915531*^9, 3.9290200615304537`*^9, 3.929024752767377*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"d1e52b49-a4e0-4878-a410-15ef4cf4c7f8"], +In[1]:=",ExpressionUUID->"187aca57-a575-47a4-9533-5e18ed17fb08"], Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print", @@ -416,11 +416,11 @@ Cell[BoxData["\<\"------------------------------------------------------------\ 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, - 3.929009409821639*^9, 3.929009722843943*^9, 3.9290098489724817`*^9, - 3.929011479915531*^9, 3.9290200628632393`*^9}, + 3.929009409821639*^9, 3.929009722843943*^9, 3.929009848972482*^9, + 3.929011479915531*^9, 3.9290200615304537`*^9, 3.929024752768445*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"d34cf4a4-9467-4dea-9c00-9c12ecc32336"], +In[1]:=",ExpressionUUID->"1080824c-3315-4602-a4cd-605ab07dba0e"], Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print", @@ -434,11 +434,11 @@ Cell[BoxData["\<\"------------------------------------------------------------\ 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, - 3.929009409821639*^9, 3.929009722843943*^9, 3.9290098489724817`*^9, - 3.929011479915531*^9, 3.929020062864407*^9}, + 3.929009409821639*^9, 3.929009722843943*^9, 3.929009848972482*^9, + 3.929011479915531*^9, 3.9290200615304537`*^9, 3.9290247527694807`*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"1847c4cd-ff57-4350-be80-9761bf7cd530"], +In[1]:=",ExpressionUUID->"e9320d67-e415-4b14-a00b-18dbb07beedd"], Cell[BoxData["\<\"Package Generato`Component`, {2024, 1, 11}\"\>"], "Print", CellChangeTimes->{3.928779369275519*^9, 3.928785921920507*^9, @@ -451,11 +451,11 @@ Cell[BoxData["\<\"Package Generato`Component`, {2024, 1, 11}\"\>"], "Print", 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, - 3.929009409821639*^9, 3.929009722843943*^9, 3.9290098489724817`*^9, - 3.929011479915531*^9, 3.929020062865773*^9}, + 3.929009409821639*^9, 3.929009722843943*^9, 3.929009848972482*^9, + 3.929011479915531*^9, 3.9290200615304537`*^9, 3.929024752770529*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"3869f13d-55ee-48be-a34c-a9a27b7b94d1"], +In[1]:=",ExpressionUUID->"da6df3fe-1de2-4e41-825e-6158d3e39162"], Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print", @@ -469,11 +469,11 @@ Cell[BoxData["\<\"------------------------------------------------------------\ 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, - 3.929009409821639*^9, 3.929009722843943*^9, 3.9290098489724817`*^9, - 3.929011479915531*^9, 3.929020062867096*^9}, + 3.929009409821639*^9, 3.929009722843943*^9, 3.929009848972482*^9, + 3.929011479915531*^9, 3.9290200615304537`*^9, 3.9290247527715816`*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"c2b6c621-0d6d-4105-b635-e336e4ba440c"], +In[1]:=",ExpressionUUID->"9fc779de-f231-40a0-afd0-2dd6b9aed94f"], Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print", @@ -487,11 +487,11 @@ Cell[BoxData["\<\"------------------------------------------------------------\ 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, - 3.929009409821639*^9, 3.929009722843943*^9, 3.9290098489724817`*^9, - 3.929011479915531*^9, 3.9290200628681107`*^9}, + 3.929009409821639*^9, 3.929009722843943*^9, 3.929009848972482*^9, + 3.929011479915531*^9, 3.9290200615304537`*^9, 3.929024752772643*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"40c366a3-a876-4e78-9d09-a514d79b3a04"], +In[1]:=",ExpressionUUID->"58b47b61-496c-4795-9e4a-43ed7bc7690b"], Cell[BoxData["\<\"Package Generato`Varlist`, {2024, 1, 11}\"\>"], "Print", CellChangeTimes->{3.928779369275519*^9, 3.928785921920507*^9, @@ -504,11 +504,11 @@ Cell[BoxData["\<\"Package Generato`Varlist`, {2024, 1, 11}\"\>"], "Print", 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, - 3.929009409821639*^9, 3.929009722843943*^9, 3.9290098489724817`*^9, - 3.929011479915531*^9, 3.929020062869152*^9}, + 3.929009409821639*^9, 3.929009722843943*^9, 3.929009848972482*^9, + 3.929011479915531*^9, 3.9290200615304537`*^9, 3.929024752773676*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"f9dcee20-dbdc-4ee8-ae5e-b4e99b46102d"], +In[1]:=",ExpressionUUID->"79e6f8b7-648f-4b83-939b-e13f45bc0698"], Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print", @@ -522,11 +522,11 @@ Cell[BoxData["\<\"------------------------------------------------------------\ 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, - 3.929009409821639*^9, 3.929009722843943*^9, 3.9290098489724817`*^9, - 3.929011479915531*^9, 3.929020062870137*^9}, + 3.929009409821639*^9, 3.929009722843943*^9, 3.929009848972482*^9, + 3.929011479915531*^9, 3.9290200615304537`*^9, 3.929024752774714*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"063bbda0-7616-470b-a5be-ce19dbc46f54"], +In[1]:=",ExpressionUUID->"7df60d53-9694-427b-9d41-dc7442b1ff0c"], Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print", @@ -540,11 +540,11 @@ Cell[BoxData["\<\"------------------------------------------------------------\ 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, - 3.929009409821639*^9, 3.929009722843943*^9, 3.9290098489724817`*^9, - 3.929011479915531*^9, 3.929020062871142*^9}, + 3.929009409821639*^9, 3.929009722843943*^9, 3.929009848972482*^9, + 3.929011479915531*^9, 3.9290200615304537`*^9, 3.929024752775762*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"989dc6d5-6340-4a71-b22d-97ee21b342c3"], +In[1]:=",ExpressionUUID->"6ddb23af-fce1-4f06-ad30-03da02df900d"], Cell[BoxData["\<\"Package Generato`Interface`, {2024, 1, 11}\"\>"], "Print", CellChangeTimes->{3.928779369275519*^9, 3.928785921920507*^9, @@ -557,11 +557,11 @@ Cell[BoxData["\<\"Package Generato`Interface`, {2024, 1, 11}\"\>"], "Print", 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, - 3.929009409821639*^9, 3.929009722843943*^9, 3.9290098489724817`*^9, - 3.929011479915531*^9, 3.929020062872136*^9}, + 3.929009409821639*^9, 3.929009722843943*^9, 3.929009848972482*^9, + 3.929011479915531*^9, 3.9290200615304537`*^9, 3.929024752776805*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"682e41a8-3a4b-4f82-b396-a1a07032ed2c"], +In[1]:=",ExpressionUUID->"3d5f2dd3-9b26-4f09-95e0-7f02e5b2ac55"], Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print", @@ -575,11 +575,11 @@ Cell[BoxData["\<\"------------------------------------------------------------\ 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, - 3.929009409821639*^9, 3.929009722843943*^9, 3.9290098489724817`*^9, - 3.929011479915531*^9, 3.929020062873135*^9}, + 3.929009409821639*^9, 3.929009722843943*^9, 3.929009848972482*^9, + 3.929011479915531*^9, 3.9290200615304537`*^9, 3.929024752777843*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"82ebf92a-7e1c-4617-9942-d8f88af3ddbe"], +In[1]:=",ExpressionUUID->"264f4501-d52f-469f-a1fc-4acfc0fdf3bd"], Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print", @@ -593,11 +593,11 @@ Cell[BoxData["\<\"------------------------------------------------------------\ 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, - 3.929009409821639*^9, 3.929009722843943*^9, 3.9290098489724817`*^9, - 3.929011479915531*^9, 3.929020062874133*^9}, + 3.929009409821639*^9, 3.929009722843943*^9, 3.929009848972482*^9, + 3.929011479915531*^9, 3.9290200615304537`*^9, 3.929024752778852*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"fe6db00b-2e2d-4f00-a933-acb7580bc32d"], +In[1]:=",ExpressionUUID->"e164ea1c-e109-4629-a030-de99f6bbe44a"], Cell[BoxData["\<\"Package Generato`Derivation`, {2024, 1, 18}\"\>"], "Print", CellChangeTimes->{3.928779369275519*^9, 3.928785921920507*^9, @@ -610,11 +610,11 @@ Cell[BoxData["\<\"Package Generato`Derivation`, {2024, 1, 18}\"\>"], "Print", 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, - 3.929009409821639*^9, 3.929009722843943*^9, 3.9290098489724817`*^9, - 3.929011479915531*^9, 3.929020062875136*^9}, + 3.929009409821639*^9, 3.929009722843943*^9, 3.929009848972482*^9, + 3.929011479915531*^9, 3.9290200615304537`*^9, 3.929024752779868*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"5e0c247d-5cb6-4222-a6f7-d6b9609fb0e3"], +In[1]:=",ExpressionUUID->"28c1748a-fd45-4337-a02b-00df5647d38f"], Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print", @@ -628,11 +628,11 @@ Cell[BoxData["\<\"------------------------------------------------------------\ 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, - 3.929009409821639*^9, 3.929009722843943*^9, 3.9290098489724817`*^9, - 3.929011479915531*^9, 3.929020062876142*^9}, + 3.929009409821639*^9, 3.929009722843943*^9, 3.929009848972482*^9, + 3.929011479915531*^9, 3.9290200615304537`*^9, 3.9290247527808323`*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"99064e47-beb2-428a-a5d0-8a9983f63943"], +In[1]:=",ExpressionUUID->"87da9c07-7cd2-4986-b206-1cde80d58971"], Cell[BoxData["\<\"\"\>"], "Print", CellChangeTimes->{3.928779369275519*^9, 3.928785921920507*^9, @@ -645,11 +645,11 @@ Cell[BoxData["\<\"\"\>"], "Print", 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, - 3.929009409821639*^9, 3.929009722843943*^9, 3.9290098489724817`*^9, - 3.929011479915531*^9, 3.92902006287714*^9}, + 3.929009409821639*^9, 3.929009722843943*^9, 3.929009848972482*^9, + 3.929011479915531*^9, 3.9290200615304537`*^9, 3.929024752781765*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"87162350-6003-4811-8ada-c2b5ac2e208f"] +In[1]:=",ExpressionUUID->"4e0f4645-3bca-4027-8f2b-b685040db4f6"] }, Open ]] }, Open ]], @@ -735,17 +735,21 @@ Cell[BoxData[{ RowBox[{"varlist", "[", RowBox[{"[", "ivar", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", " ", - RowBox[{"var", "==", - RowBox[{"rhsof", "[", "var", "]"}]}]}], ",", + RowBox[{ + RowBox[{"var", "==", + RowBox[{"rhsof", "[", "var", "]"}]}], "//", + "ScreenDollarIndices"}]}], ",", RowBox[{"{", RowBox[{"ivar", ",", "1", ",", RowBox[{"Length", "[", "varlist", "]"}]}], "}"}]}], "]"}]}], "]"}]}], ";"}]}], "Input", Editable->False, - CellChangeTimes->{{3.9290138242092113`*^9, 3.929013848203773*^9}, { + CellChangeTimes->{{3.929013824209211*^9, 3.929013848203773*^9}, { 3.929018382792595*^9, 3.929018383124837*^9}, {3.929018424404131*^9, - 3.9290184415582943`*^9}, {3.9290188314381437`*^9, 3.9290189780150957`*^9}, - 3.929019373185549*^9, {3.929019638645788*^9, 3.929019650600401*^9}}, + 3.929018441558294*^9}, {3.9290188314381433`*^9, 3.9290189780150957`*^9}, + 3.929019373185549*^9, {3.929019638645788*^9, 3.929019650600401*^9}, { + 3.929024364929154*^9, 3.929024371175395*^9}, {3.9290244249487762`*^9, + 3.929024438987775*^9}}, CellLabel->"In[6]:=",ExpressionUUID->"e99a6455-f5a4-4baa-bd3e-e9cd24d138a8"], Cell[CellGroupData[{ @@ -764,1696 +768,443 @@ Cell["Intermediate", "Subsubsection", Cell[CellGroupData[{ -Cell[BoxData[ - RowBox[{"Length", "[", "IntermediateVarlist", "]"}]], "Input", - CellChangeTimes->{{3.929018603732441*^9, 3.929018604789732*^9}, { - 3.929018777874213*^9, 3.929018800824732*^9}, {3.929019562324332*^9, - 3.92901957570857*^9}}, - CellLabel->"In[8]:=",ExpressionUUID->"1caaeb3e-2cad-454e-9ea8-fd46511352fd"], - -Cell[BoxData["9"], "Output", - CellChangeTimes->{ - 3.929018605375702*^9, 3.929018801351328*^9, {3.929019573696164*^9, - 3.929019584989378*^9}, 3.9290200730113087`*^9}, - CellLabel->"Out[8]=",ExpressionUUID->"4733cc65-031b-4f11-8f33-233171678739"] -}, Open ]], - -Cell[CellGroupData[{ - Cell[BoxData[ RowBox[{ - RowBox[{"eqssof", "[", "IntermediateVarlist", "]"}], "[", - RowBox[{"[", "3", "]"}], "]"}]], "Input", - CellChangeTimes->{{3.929019588646916*^9, 3.929019598119532*^9}, { - 3.929019672740724*^9, 3.929019672965487*^9}}, - CellLabel->"In[9]:=",ExpressionUUID->"b4017a8d-beaf-489b-a153-91a7fc76bb2f"], + RowBox[{ + RowBox[{"eqssof", "[", "IntermediateVarlist", "]"}], "[", + RowBox[{"[", + RowBox[{"3", ";;", "9"}], "]"}], "]"}], "//", "TableForm"}]], "Input", + CellChangeTimes->{{3.929024383410981*^9, 3.929024406138372*^9}, { + 3.929024565919876*^9, 3.9290245676259747`*^9}}, + CellLabel->"In[8]:=",ExpressionUUID->"2e8a66b0-40dc-4bf7-b559-33933d594c22"], Cell[BoxData[ - RowBox[{ - InterpretationBox[ - StyleBox[GridBox[{ - {"\[Gamma]", - StyleBox[GridBox[{ - {"i", "j"}, - {" ", " "} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`invgam[$CellContext`i, $CellContext`j], - Editable->False], "\[Equal]", - RowBox[{ - InterpretationBox[ - StyleBox["\[Chi]", - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`chi[], - Editable->False], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["\[Gamma]", "~"], + TagBox[ + TagBox[GridBox[{ + { + RowBox[{ + InterpretationBox[ StyleBox[GridBox[{ - {"i", "j"}, - {" ", " "} + {"\[Gamma]", + StyleBox[GridBox[{ + {"i", "j"}, + {" ", " "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, GridBoxSpacings->{"Columns" -> { - Offset[0.], { + Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`invgamt[$CellContext`i, $CellContext`j], - Editable->False]}]}]], "Output", - CellChangeTimes->{{3.929019663478157*^9, 3.929019673216135*^9}, - 3.9290200742323847`*^9}, - CellLabel->"Out[9]=",ExpressionUUID->"36e1d772-0219-45a1-8c86-c05a4013cacb"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{"eqssof", "[", "IntermediateVarlist", "]"}], "[", - RowBox[{"[", "4", "]"}], "]"}]], "Input", - CellChangeTimes->{{3.929019588646916*^9, 3.929019598119532*^9}, { - 3.929019672740724*^9, 3.9290196959597673`*^9}}, - CellLabel->"In[10]:=",ExpressionUUID->"9f69de5b-73dd-4500-b471-73efe7e0321b"], - -Cell[BoxData[ - RowBox[{ - InterpretationBox[ - StyleBox[GridBox[{ - {"\[Gamma]", - StyleBox[GridBox[{ - {" ", " "}, - {"i", "j"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`gam[-$CellContext`i, -$CellContext`j], - Editable->False], "\[Equal]", - FractionBox[ - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["\[Gamma]", "~"], + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`invgam[$CellContext`i, $CellContext`j], + Editable->False], "\[Equal]", + RowBox[{ + InterpretationBox[ + StyleBox["\[Chi]", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`chi[], + Editable->False], " ", + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["\[Gamma]", "~"], + StyleBox[GridBox[{ + {"i", "j"}, + {" ", " "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`invgamt[$CellContext`i, $CellContext`j], + Editable->False]}]}]}, + { + RowBox[{ + InterpretationBox[ StyleBox[GridBox[{ - {" ", " "}, - {"i", "j"} + {"\[Gamma]", + StyleBox[GridBox[{ + {" ", " "}, + {"i", "j"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, GridBoxSpacings->{"Columns" -> { - Offset[0.], { + Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`gamt[-$CellContext`i, -$CellContext`j], - Editable->False], - InterpretationBox[ - StyleBox["\[Chi]", - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`chi[], - Editable->False]]}]], "Output", - CellChangeTimes->{3.9290196963830433`*^9, 3.929020075536174*^9}, - CellLabel->"Out[10]=",ExpressionUUID->"971e0821-0a15-4554-bbe9-04f376cd6510"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{"eqssof", "[", "IntermediateVarlist", "]"}], "[", - RowBox[{"[", "5", "]"}], "]"}]], "Input", - CellChangeTimes->{{3.929019588646916*^9, 3.929019598119532*^9}, { - 3.929019672740724*^9, 3.929019699493511*^9}}, - CellLabel->"In[11]:=",ExpressionUUID->"9c048e2d-b1d3-4ee2-ae1b-8c28d2161104"], - -Cell[BoxData[ - RowBox[{ - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["\[CapitalGamma]", "~"], - StyleBox[GridBox[{ - {" ", " ", " "}, - {"k", "i", "j"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`GtDDD[-$CellContext`k, -$CellContext`i, -$CellContext`j], - Editable->False], "\[Equal]", - RowBox[{ - FractionBox["1", "2"], " ", - RowBox[{"(", - RowBox[{ - InterpretationBox[ - StyleBox[GridBox[{ - { - RowBox[{"\[PartialD]", - OverscriptBox["\[Gamma]", "~"]}], - StyleBox[GridBox[{ - {" ", " ", " "}, - {"i", "j", "k"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`dgamt[-$CellContext`i, -$CellContext`j, -$CellContext`k], - Editable->False], "+", - InterpretationBox[ - StyleBox[GridBox[{ - { - RowBox[{"\[PartialD]", - OverscriptBox["\[Gamma]", "~"]}], - StyleBox[GridBox[{ - {" ", " ", " "}, - {"j", "k", "i"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`dgamt[-$CellContext`j, -$CellContext`k, -$CellContext`i], - Editable->False], "-", - InterpretationBox[ - StyleBox[GridBox[{ - { - RowBox[{"\[PartialD]", - OverscriptBox["\[Gamma]", "~"]}], - StyleBox[GridBox[{ - {" ", " ", " "}, - {"k", "i", "j"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`dgamt[-$CellContext`k, -$CellContext`i, -$CellContext`j], - Editable->False]}], ")"}]}]}]], "Output", - CellChangeTimes->{3.92901969975537*^9, 3.929020077045559*^9}, - CellLabel->"Out[11]=",ExpressionUUID->"c973e854-d359-4205-8248-5741e63934e8"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{"eqssof", "[", "IntermediateVarlist", "]"}], "[", - RowBox[{"[", "6", "]"}], "]"}]], "Input", - CellChangeTimes->{{3.929019588646916*^9, 3.929019598119532*^9}, { - 3.929019672740724*^9, 3.929019702710689*^9}}, - CellLabel->"In[12]:=",ExpressionUUID->"a6562f8e-6ac4-41e1-82b6-8a2d80d17b15"], - -Cell[BoxData[ - RowBox[{ - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["\[CapitalGamma]", "~"], - StyleBox[GridBox[{ - {" ", " ", "j"}, - {"k", "i", " "} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`GtDDU[-$CellContext`k, -$CellContext`i, $CellContext`j], - Editable->False], "\[Equal]", - RowBox[{ - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["\[CapitalGamma]", "~"], + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`gam[-$CellContext`i, -$CellContext`j], + Editable->False], "\[Equal]", + FractionBox[ + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["\[Gamma]", "~"], + StyleBox[GridBox[{ + {" ", " "}, + {"i", "j"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`gamt[-$CellContext`i, -$CellContext`j], + Editable->False], + InterpretationBox[ + StyleBox["\[Chi]", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`chi[], + Editable->False]]}]}, + { + RowBox[{ + InterpretationBox[ StyleBox[GridBox[{ - {" ", " ", " "}, - {"k", "i", "a"} + { + OverscriptBox["\[CapitalGamma]", "~"], + StyleBox[GridBox[{ + {" ", " ", " "}, + {"k", "i", "j"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, GridBoxSpacings->{"Columns" -> { - Offset[0.], { + Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`GtDDD[-$CellContext`k, -$CellContext`i, -$CellContext`a], - Editable->False], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["\[Gamma]", "~"], + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`GtDDD[-$CellContext`k, -$CellContext`i, -$CellContext`j], + + Editable->False], "\[Equal]", + RowBox[{ + FractionBox["1", "2"], " ", + RowBox[{"(", + RowBox[{ + InterpretationBox[ + StyleBox[GridBox[{ + { + RowBox[{"\[PartialD]", + OverscriptBox["\[Gamma]", "~"]}], + StyleBox[GridBox[{ + {" ", " ", " "}, + {"i", "j", "k"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`dgamt[-$CellContext`i, -$CellContext`j, \ +-$CellContext`k], + Editable->False], "+", + InterpretationBox[ + StyleBox[GridBox[{ + { + RowBox[{"\[PartialD]", + OverscriptBox["\[Gamma]", "~"]}], + StyleBox[GridBox[{ + {" ", " ", " "}, + {"j", "k", "i"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`dgamt[-$CellContext`j, -$CellContext`k, \ +-$CellContext`i], + Editable->False], "-", + InterpretationBox[ + StyleBox[GridBox[{ + { + RowBox[{"\[PartialD]", + OverscriptBox["\[Gamma]", "~"]}], + StyleBox[GridBox[{ + {" ", " ", " "}, + {"k", "i", "j"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`dgamt[-$CellContext`k, -$CellContext`i, \ +-$CellContext`j], + Editable->False]}], ")"}]}]}]}, + { + RowBox[{ + InterpretationBox[ StyleBox[GridBox[{ - {"j", "a"}, - {" ", " "} + { + OverscriptBox["\[CapitalGamma]", "~"], + StyleBox[GridBox[{ + {" ", " ", "j"}, + {"k", "i", " "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, GridBoxSpacings->{"Columns" -> { - Offset[0.], { + Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`invgamt[$CellContext`j, $CellContext`a], - Editable->False]}]}]], "Output", - CellChangeTimes->{3.929019702973445*^9, 3.9290200787453213`*^9}, - CellLabel->"Out[12]=",ExpressionUUID->"893d306f-7c32-41a8-886e-6d1fffcf7649"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{"eqssof", "[", "IntermediateVarlist", "]"}], "[", - RowBox[{"[", "7", "]"}], "]"}]], "Input", - CellChangeTimes->{{3.929019588646916*^9, 3.929019598119532*^9}, { - 3.929019672740724*^9, 3.929019672965487*^9}, {3.929019705321364*^9, - 3.9290197056810417`*^9}}, - CellLabel->"In[13]:=",ExpressionUUID->"50151aa3-3d28-4f31-941e-e14f18f48ef3"], - -Cell[BoxData[ - RowBox[{ - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["\[CapitalGamma]", "~"], - StyleBox[GridBox[{ - {"k", " ", " "}, - {" ", "i", "j"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`Gt[$CellContext`k, -$CellContext`i, -$CellContext`j], - Editable->False], "\[Equal]", - RowBox[{ - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["\[CapitalGamma]", "~"], - StyleBox[GridBox[{ - {" ", " ", " "}, - {"a", "i", "j"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`GtDDD[-$CellContext`a, -$CellContext`i, -$CellContext`j], - Editable->False], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["\[Gamma]", "~"], - StyleBox[GridBox[{ - {"k", "a"}, - {" ", " "} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`invgamt[$CellContext`k, $CellContext`a], - Editable->False]}]}]], "Output", - CellChangeTimes->{3.9290197062151613`*^9, 3.929020080899242*^9}, - CellLabel->"Out[13]=",ExpressionUUID->"2cf68dd6-d960-4278-992b-3f96d7a69fe9"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{"eqssof", "[", "IntermediateVarlist", "]"}], "[", - RowBox[{"[", "8", "]"}], "]"}]], "Input", - CellChangeTimes->{{3.929019588646916*^9, 3.929019598119532*^9}, { - 3.929019672740724*^9, 3.929019672965487*^9}, {3.929019708628751*^9, - 3.9290197089653807`*^9}}, - CellLabel->"In[14]:=",ExpressionUUID->"2180752d-b352-44e1-8426-6426d0055d23"], - -Cell[BoxData[ - RowBox[{ - InterpretationBox[ - StyleBox[GridBox[{ - { - RowBox[{"(", - SubscriptBox[ - OverscriptBox["\[CapitalGamma]", "~"], "d"], ")"}], - StyleBox[GridBox[{ - {"i"}, - {" "} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`trGtd[$CellContext`i], - Editable->False], "\[Equal]", - RowBox[{ - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["\[CapitalGamma]", "~"], - StyleBox[GridBox[{ - {"i", " ", " "}, - {" ", "a", "b"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`Gt[$CellContext`i, -$CellContext`a, -$CellContext`b], - Editable->False], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["\[Gamma]", "~"], - StyleBox[GridBox[{ - {"a", "b"}, - {" ", " "} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`invgamt[$CellContext`a, $CellContext`b], - Editable->False]}]}]], "Output", - CellChangeTimes->{3.929019709466701*^9, 3.929020083399167*^9}, - CellLabel->"Out[14]=",ExpressionUUID->"003d21c5-fff6-45dd-a3f5-68a51cd5cf85"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{"eqssof", "[", "IntermediateVarlist", "]"}], "[", - RowBox[{"[", "9", "]"}], "]"}]], "Input", - CellChangeTimes->{{3.929019588646916*^9, 3.929019598119532*^9}, { - 3.929019672740724*^9, 3.929019672965487*^9}, {3.929019711880315*^9, - 3.929019712127054*^9}}, - CellLabel->"In[15]:=",ExpressionUUID->"e3bb5e00-be05-4735-a147-98f023825d22"], - -Cell[BoxData[ - RowBox[{ - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["A", "~"], - StyleBox[GridBox[{ - {"i", "j"}, - {" ", " "} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`exAtUU[$CellContext`i, $CellContext`j], - Editable->False], "\[Equal]", - RowBox[{ - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["A", "~"], - StyleBox[GridBox[{ - {" ", " "}, - {"a", "b"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`exAt[-$CellContext`a, -$CellContext`b], - Editable->False], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["\[Gamma]", "~"], - StyleBox[GridBox[{ - {"i", "a"}, - {" ", " "} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`invgamt[$CellContext`i, $CellContext`a], - Editable->False], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["\[Gamma]", "~"], - StyleBox[GridBox[{ - {"j", "b"}, - {" ", " "} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`invgamt[$CellContext`j, $CellContext`b], - Editable->False]}]}]], "Output", - CellChangeTimes->{3.929019712637431*^9, 3.92902008513207*^9}, - CellLabel->"Out[15]=",ExpressionUUID->"f6aa7740-416b-4dd6-aa2c-1f8e18474ce6"] -}, Open ]] -}, Open ]], - -Cell[CellGroupData[{ - -Cell["DD", "Subsubsection", - CellChangeTimes->{{3.929019767061803*^9, - 3.929019771312601*^9}},ExpressionUUID->"bd50a41a-4066-4d0d-8dfc-\ -53de4b6c2744"], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"Length", "[", "DDVarlist", "]"}]], "Input", - CellChangeTimes->{{3.92901977322431*^9, 3.929019775995604*^9}}, - CellLabel->"In[16]:=",ExpressionUUID->"1a5de8cf-475e-444c-a955-b2fa53652542"], - -Cell[BoxData["2"], "Output", - CellChangeTimes->{3.929019776514558*^9, 3.929020087203813*^9}, - CellLabel->"Out[16]=",ExpressionUUID->"13326222-769e-4348-98af-5827ea62968d"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{"eqssof", "[", "DDVarlist", "]"}], "[", - RowBox[{"[", "1", "]"}], "]"}]], "Input", - CellChangeTimes->{{3.92901977795203*^9, 3.92901978760408*^9}}, - CellLabel->"In[17]:=",ExpressionUUID->"a4877912-c0a1-4d4e-8492-97eb263d906d"], - -Cell[BoxData[ - RowBox[{ - InterpretationBox[ - StyleBox[GridBox[{ - { + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`GtDDU[-$CellContext`k, -$CellContext`i, $CellContext`j], + Editable->False], "\[Equal]", RowBox[{ - OverscriptBox["D", "~"], - OverscriptBox["D", "~"], "\[Chi]"}], - StyleBox[GridBox[{ - {" ", " "}, - {"i", "j"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`tDtDchi[-$CellContext`i, -$CellContext`j], - Editable->False], "\[Equal]", - RowBox[{ - InterpretationBox[ - StyleBox[GridBox[{ - { - RowBox[{"\[PartialD]", - RowBox[{"\[PartialD]", "\[Chi]"}]}], - StyleBox[GridBox[{ - {" ", " "}, - {"i", "j"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`ddchi[-$CellContext`i, -$CellContext`j], - Editable->False], "-", - RowBox[{ - InterpretationBox[ - StyleBox[GridBox[{ - { - RowBox[{"\[PartialD]", "\[Chi]"}], + InterpretationBox[ StyleBox[GridBox[{ - {" "}, - {"a"} + { + OverscriptBox["\[CapitalGamma]", "~"], + StyleBox[GridBox[{ + {" ", " ", " "}, + {"k", "i", "a"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, GridBoxSpacings->{"Columns" -> { - Offset[0.], { + Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`dchi[-$CellContext`a], - Editable->False], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["\[CapitalGamma]", "~"], + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`GtDDD[-$CellContext`k, -$CellContext`i, -$CellContext`a], + Editable->False], " ", + InterpretationBox[ StyleBox[GridBox[{ - {"a", " ", " "}, - {" ", "i", "j"} + { + OverscriptBox["\[Gamma]", "~"], + StyleBox[GridBox[{ + {"j", "a"}, + {" ", " "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, GridBoxSpacings->{"Columns" -> { - Offset[0.], { + Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`Gt[$CellContext`a, -$CellContext`i, -$CellContext`j], - Editable->False]}]}]}]], "Output", - CellChangeTimes->{3.929019788062148*^9, 3.9290200894454317`*^9}, - CellLabel->"Out[17]=",ExpressionUUID->"d9fab246-030d-44bb-9206-7cb3b32dbd3b"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{"eqssof", "[", "DDVarlist", "]"}], "[", - RowBox[{"[", "2", "]"}], "]"}]], "Input", - CellChangeTimes->{{3.92901977795203*^9, 3.929019803746799*^9}}, - CellLabel->"In[18]:=",ExpressionUUID->"65fd4493-6cff-4df5-a36b-5dcb905c1dc5"], - -Cell[BoxData[ - RowBox[{ - InterpretationBox[ - StyleBox[GridBox[{ - {"DD\[Alpha]", - StyleBox[GridBox[{ - {" ", " "}, - {"i", "j"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`DDalpha[-$CellContext`i, -$CellContext`j], - Editable->False], "\[Equal]", - RowBox[{ - FractionBox[ - RowBox[{ - RowBox[{ - InterpretationBox[ - StyleBox[GridBox[{ - { - RowBox[{"\[PartialD]", "\[Alpha]"}], - StyleBox[GridBox[{ - {" "}, - {"j"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`dalpha[-$CellContext`j], - Editable->False], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - RowBox[{"\[PartialD]", "\[Chi]"}], - StyleBox[GridBox[{ - {" "}, - {"i"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`dchi[-$CellContext`i], - Editable->False]}], "+", - RowBox[{ - InterpretationBox[ - StyleBox[GridBox[{ - { - RowBox[{"\[PartialD]", "\[Alpha]"}], - StyleBox[GridBox[{ - {" "}, - {"i"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`dalpha[-$CellContext`i], - Editable->False], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - RowBox[{"\[PartialD]", "\[Chi]"}], - StyleBox[GridBox[{ - {" "}, - {"j"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`dchi[-$CellContext`j], - Editable->False]}]}], - RowBox[{"2", " ", - InterpretationBox[ - StyleBox["\[Chi]", - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`chi[], - Editable->False]}]], "+", - InterpretationBox[ - StyleBox[GridBox[{ - { - RowBox[{"\[PartialD]", - RowBox[{"\[PartialD]", "\[Alpha]"}]}], + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`invgamt[$CellContext`j, $CellContext`a], + Editable->False]}]}]}, + { + RowBox[{ + InterpretationBox[ StyleBox[GridBox[{ - {" ", " "}, - {"i", "j"} + { + OverscriptBox["\[CapitalGamma]", "~"], + StyleBox[GridBox[{ + {"k", " ", " "}, + {" ", "i", "j"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, GridBoxSpacings->{"Columns" -> { - Offset[0.], { + Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`ddalpha[-$CellContext`i, -$CellContext`j], - Editable->False], "-", - RowBox[{ - InterpretationBox[ - StyleBox[GridBox[{ - { - RowBox[{"\[PartialD]", "\[Alpha]"}], + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`Gt[$CellContext`k, -$CellContext`i, -$CellContext`j], + Editable->False], "\[Equal]", + RowBox[{ + InterpretationBox[ StyleBox[GridBox[{ - {" "}, - {"a"} + { + OverscriptBox["\[CapitalGamma]", "~"], + StyleBox[GridBox[{ + {" ", " ", " "}, + {"a", "i", "j"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, GridBoxSpacings->{"Columns" -> { - Offset[0.], { + Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`dalpha[-$CellContext`a], - Editable->False], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["\[CapitalGamma]", "~"], + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`GtDDD[-$CellContext`a, -$CellContext`i, -$CellContext`j], + Editable->False], " ", + InterpretationBox[ StyleBox[GridBox[{ - {"a", " ", " "}, - {" ", "i", "j"} + { + OverscriptBox["\[Gamma]", "~"], + StyleBox[GridBox[{ + {"k", "a"}, + {" ", " "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, GridBoxSpacings->{"Columns" -> { - Offset[0.], { + Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`Gt[$CellContext`a, -$CellContext`i, -$CellContext`j], - Editable->False]}], "-", - FractionBox[ - RowBox[{ - InterpretationBox[ - StyleBox[GridBox[{ - { - RowBox[{"\[PartialD]", "\[Alpha]"}], - StyleBox[GridBox[{ - {" "}, - {"a"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`dalpha[-$CellContext`a], - Editable->False], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - RowBox[{"\[PartialD]", "\[Chi]"}], - StyleBox[GridBox[{ - {" "}, - {"b"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`dchi[-$CellContext`b], - Editable->False], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["\[Gamma]", "~"], - StyleBox[GridBox[{ - {" ", " "}, - {"i", "j"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`gamt[-$CellContext`i, -$CellContext`j], - Editable->False], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["\[Gamma]", "~"], - StyleBox[GridBox[{ - {"a", "b"}, - {" ", " "} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`invgamt[$CellContext`a, $CellContext`b], - Editable->False]}], - RowBox[{"2", " ", - InterpretationBox[ - StyleBox["\[Chi]", - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`chi[], - Editable->False]}]]}]}]], "Output", - CellChangeTimes->{3.929019804106441*^9, 3.929020090869206*^9}, - CellLabel->"Out[18]=",ExpressionUUID->"a6988465-eb59-489a-98bc-4811cf81fe3f"] -}, Open ]] -}, Open ]], - -Cell[CellGroupData[{ - -Cell["Rs", "Subsubsection", - CellChangeTimes->{{3.929010469218392*^9, 3.929010473998561*^9}, { - 3.929010653248419*^9, - 3.92901065375465*^9}},ExpressionUUID->"222918aa-bedb-47fe-850e-\ -130d6a441f4f"], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"Length", "[", "RVarlist", "]"}]], "Input", - CellChangeTimes->{{3.929019811104521*^9, 3.9290198148188057`*^9}}, - CellLabel->"In[19]:=",ExpressionUUID->"810df460-afbf-4366-b7a0-f5ac9d47bc4b"], - -Cell[BoxData["4"], "Output", - CellChangeTimes->{3.929019815276367*^9, 3.9290200932918158`*^9}, - CellLabel->"Out[19]=",ExpressionUUID->"3520a290-2eba-4bb6-8045-9d820b169a04"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{"eqssof", "[", "RVarlist", "]"}], "[", - RowBox[{"[", "1", "]"}], "]"}]], "Input", - CellChangeTimes->{{3.92901977795203*^9, 3.92901978760408*^9}, { - 3.929019846846792*^9, 3.929019847319368*^9}}, - CellLabel->"In[20]:=",ExpressionUUID->"54d2617b-604a-4786-9590-619903ba1775"], - -Cell[BoxData[ - RowBox[{ - InterpretationBox[ - StyleBox[GridBox[{ - { - SuperscriptBox[ - OverscriptBox["R", "~"], "\[Chi]"], - StyleBox[GridBox[{ - {" ", " "}, - {"i", "j"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`Rtchi[-$CellContext`i, -$CellContext`j], - Editable->False], "\[Equal]", - RowBox[{ - RowBox[{"-", - FractionBox[ - RowBox[{ - InterpretationBox[ - StyleBox[GridBox[{ - { - RowBox[{"\[PartialD]", "\[Chi]"}], - StyleBox[GridBox[{ - {" "}, - {"i"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`dchi[-$CellContext`i], - Editable->False], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - RowBox[{"\[PartialD]", "\[Chi]"}], - StyleBox[GridBox[{ - {" "}, - {"j"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`dchi[-$CellContext`j], - Editable->False]}], - RowBox[{"4", " ", - SuperscriptBox[ - InterpretationBox[ - StyleBox["\[Chi]", - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`chi[], - Editable->False], "2"]}]]}], "-", - FractionBox[ - RowBox[{"3", " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - RowBox[{"\[PartialD]", "\[Chi]"}], - StyleBox[GridBox[{ - {" "}, - {"a"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`dchi[-$CellContext`a], - Editable->False], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - RowBox[{"\[PartialD]", "\[Chi]"}], - StyleBox[GridBox[{ - {" "}, - {"b"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`dchi[-$CellContext`b], - Editable->False], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["\[Gamma]", "~"], - StyleBox[GridBox[{ - {" ", " "}, - {"i", "j"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`gamt[-$CellContext`i, -$CellContext`j], - Editable->False], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["\[Gamma]", "~"], - StyleBox[GridBox[{ - {"a", "b"}, - {" ", " "} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`invgamt[$CellContext`a, $CellContext`b], - Editable->False]}], - RowBox[{"4", " ", - SuperscriptBox[ - InterpretationBox[ - StyleBox["\[Chi]", - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`chi[], - Editable->False], "2"]}]], "+", - FractionBox[ - RowBox[{ - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["\[Gamma]", "~"], - StyleBox[GridBox[{ - {" ", " "}, - {"i", "j"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`gamt[-$CellContext`i, -$CellContext`j], - Editable->False], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["\[Gamma]", "~"], - StyleBox[GridBox[{ - {"a", "b"}, - {" ", " "} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`invgamt[$CellContext`a, $CellContext`b], - Editable->False], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - RowBox[{ - OverscriptBox["D", "~"], - OverscriptBox["D", "~"], "\[Chi]"}], - StyleBox[GridBox[{ - {" ", " "}, - {"a", "b"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`tDtDchi[-$CellContext`a, -$CellContext`b], - Editable->False]}], - RowBox[{"2", " ", - InterpretationBox[ - StyleBox["\[Chi]", - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`chi[], - Editable->False]}]], "+", - FractionBox[ - InterpretationBox[ - StyleBox[GridBox[{ - { - RowBox[{ - OverscriptBox["D", "~"], - OverscriptBox["D", "~"], "\[Chi]"}], - StyleBox[GridBox[{ - {" ", " "}, - {"i", "j"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`tDtDchi[-$CellContext`i, -$CellContext`j], - Editable->False], - RowBox[{"2", " ", - InterpretationBox[ - StyleBox["\[Chi]", - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`chi[], - Editable->False]}]]}]}]], "Output", - CellChangeTimes->{{3.929019824466651*^9, 3.929019848369066*^9}, - 3.929020094772449*^9}, - CellLabel->"Out[20]=",ExpressionUUID->"a938a091-ea50-41d1-bf74-58a252575def"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{"eqssof", "[", "RVarlist", "]"}], "[", - RowBox[{"[", "2", "]"}], "]"}]], "Input", - CellChangeTimes->{{3.92901977795203*^9, 3.92901978760408*^9}, { - 3.929019838544072*^9, 3.929019851325845*^9}}, - CellLabel->"In[21]:=",ExpressionUUID->"0a111962-117e-4350-8176-adae10e352b5"], - -Cell[BoxData[ - RowBox[{ - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["R", "~"], - StyleBox[GridBox[{ - {" ", " "}, - {"i", "j"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`Rt[-$CellContext`i, -$CellContext`j], - Editable->False], "\[Equal]", - RowBox[{ - RowBox[{ - FractionBox["1", "2"], " ", - RowBox[{"(", - RowBox[{ + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`invgamt[$CellContext`k, $CellContext`a], + Editable->False]}]}]}, + { RowBox[{ InterpretationBox[ StyleBox[GridBox[{ { - RowBox[{"\[PartialD]", - OverscriptBox["\[CapitalGamma]", "~"]}], - StyleBox[GridBox[{ - {" ", "a"}, - {"j", " "} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`dtrGt[-$CellContext`j, $CellContext`a], - Editable->False], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["\[Gamma]", "~"], + RowBox[{"(", + SubscriptBox[ + OverscriptBox["\[CapitalGamma]", "~"], "d"], ")"}], StyleBox[GridBox[{ - {" ", " "}, - {"a", "i"} + {"i"}, + {" "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { @@ -2472,17 +1223,72 @@ Cell[BoxData[ Offset[0.2]}}], ShowAutoStyles->False, AutoSpacing->False], - $CellContext`gamt[-$CellContext`a, -$CellContext`i], - Editable->False]}], "+", + $CellContext`trGtd[$CellContext`i], + Editable->False], "\[Equal]", + RowBox[{ + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["\[CapitalGamma]", "~"], + StyleBox[GridBox[{ + {"i", " ", " "}, + {" ", "a", "b"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`Gt[$CellContext`i, -$CellContext`a, -$CellContext`b], + Editable->False], " ", + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["\[Gamma]", "~"], + StyleBox[GridBox[{ + {"a", "b"}, + {" ", " "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`invgamt[$CellContext`a, $CellContext`b], + Editable->False]}]}]}, + { RowBox[{ InterpretationBox[ StyleBox[GridBox[{ { - RowBox[{"\[PartialD]", - OverscriptBox["\[CapitalGamma]", "~"]}], + OverscriptBox["A", "~"], StyleBox[GridBox[{ - {" ", "a"}, - {"i", " "} + {"i", "j"}, + {" ", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { @@ -2501,15 +1307,140 @@ Cell[BoxData[ Offset[0.2]}}], ShowAutoStyles->False, AutoSpacing->False], - $CellContext`dtrGt[-$CellContext`i, $CellContext`a], - Editable->False], " ", + $CellContext`exAtUU[$CellContext`i, $CellContext`j], + Editable->False], "\[Equal]", + RowBox[{ + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["A", "~"], + StyleBox[GridBox[{ + {" ", " "}, + {"a", "b"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`exAt[-$CellContext`a, -$CellContext`b], + Editable->False], " ", + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["\[Gamma]", "~"], + StyleBox[GridBox[{ + {"i", "a"}, + {" ", " "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`invgamt[$CellContext`i, $CellContext`a], + Editable->False], " ", + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["\[Gamma]", "~"], + StyleBox[GridBox[{ + {"j", "b"}, + {" ", " "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`invgamt[$CellContext`j, $CellContext`b], + Editable->False]}]}]} + }, + GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.5599999999999999]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + Column], + Function[BoxForm`e$, + TableForm[BoxForm`e$]]]], "Output", + CellChangeTimes->{{3.929024406743181*^9, 3.929024442243766*^9}, + 3.929024568175048*^9, 3.929024757801688*^9}, + CellLabel-> + "Out[8]//TableForm=",ExpressionUUID->"a1177118-0a17-4ab2-88a5-93c34d1dbb78"] +}, Open ]] +}, Open ]], + +Cell[CellGroupData[{ + +Cell["DD", "Subsubsection", + CellChangeTimes->{{3.929019767061803*^9, + 3.929019771312601*^9}},ExpressionUUID->"bd50a41a-4066-4d0d-8dfc-\ +53de4b6c2744"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"eqssof", "[", "DDVarlist", "]"}], "//", "TableForm"}]], "Input", + CellChangeTimes->{{3.929024383410981*^9, 3.929024406138372*^9}, { + 3.929024451260728*^9, 3.92902445713243*^9}, {3.9290245591697187`*^9, + 3.929024561148157*^9}}, + CellLabel->"In[9]:=",ExpressionUUID->"5c78a9e5-52c6-4a5c-90c9-79ac4dc82fdf"], + +Cell[BoxData[ + TagBox[ + TagBox[GridBox[{ + { + RowBox[{ InterpretationBox[ StyleBox[GridBox[{ { - OverscriptBox["\[Gamma]", "~"], + RowBox[{ + OverscriptBox["D", "~"], + OverscriptBox["D", "~"], "\[Chi]"}], StyleBox[GridBox[{ {" ", " "}, - {"a", "j"} + {"i", "j"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { @@ -2528,736 +1459,102 @@ Cell[BoxData[ Offset[0.2]}}], ShowAutoStyles->False, AutoSpacing->False], - $CellContext`gamt[-$CellContext`a, -$CellContext`j], - Editable->False]}]}], ")"}]}], "+", - RowBox[{ - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["\[CapitalGamma]", "~"], - StyleBox[GridBox[{ - {"a", " ", " "}, - {" ", "i", "b"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`Gt[$CellContext`a, -$CellContext`i, -$CellContext`b], - Editable->False], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["\[CapitalGamma]", "~"], - StyleBox[GridBox[{ - {" ", " ", "b"}, - {"a", "j", " "} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`GtDDU[-$CellContext`a, -$CellContext`j, $CellContext`b], - Editable->False]}], "+", - RowBox[{ - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["\[CapitalGamma]", "~"], - StyleBox[GridBox[{ - {"a", " ", " "}, - {" ", "b", "j"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`Gt[$CellContext`a, -$CellContext`b, -$CellContext`j], - Editable->False], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["\[CapitalGamma]", "~"], + $CellContext`tDtDchi[-$CellContext`i, -$CellContext`j], + Editable->False], "\[Equal]", + RowBox[{ + InterpretationBox[ StyleBox[GridBox[{ - {" ", " ", "b"}, - {"i", "a", " "} + { + RowBox[{"\[PartialD]", + RowBox[{"\[PartialD]", "\[Chi]"}]}], + StyleBox[GridBox[{ + {" ", " "}, + {"i", "j"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, GridBoxSpacings->{"Columns" -> { - Offset[0.], { + Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`GtDDU[-$CellContext`i, -$CellContext`a, $CellContext`b], - Editable->False]}], "+", - RowBox[{ - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["\[CapitalGamma]", "~"], - StyleBox[GridBox[{ - {"a", " ", " "}, - {" ", "b", "i"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`Gt[$CellContext`a, -$CellContext`b, -$CellContext`i], - Editable->False], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["\[CapitalGamma]", "~"], - StyleBox[GridBox[{ - {" ", " ", "b"}, - {"j", "a", " "} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`GtDDU[-$CellContext`j, -$CellContext`a, $CellContext`b], - Editable->False]}], "-", - RowBox[{ - FractionBox["1", "2"], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - RowBox[{"\[PartialD]", - RowBox[{"\[PartialD]", - OverscriptBox["\[Gamma]", "~"]}]}], - StyleBox[GridBox[{ - {" ", " ", " ", " "}, - {"a", "b", "i", "j"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`ddgamt[-$CellContext`a, -$CellContext`b, -$CellContext`i, \ --$CellContext`j], - Editable->False], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["\[Gamma]", "~"], - StyleBox[GridBox[{ - {"a", "b"}, - {" ", " "} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`invgamt[$CellContext`a, $CellContext`b], - Editable->False]}], "+", - RowBox[{ - FractionBox["1", "2"], " ", - RowBox[{"(", - RowBox[{ - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["\[CapitalGamma]", "~"], - StyleBox[GridBox[{ - {" ", " ", " "}, - {"i", "j", "a"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`GtDDD[-$CellContext`i, -$CellContext`j, -$CellContext`a], - Editable->False], "+", - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["\[CapitalGamma]", "~"], - StyleBox[GridBox[{ - {" ", " ", " "}, - {"j", "i", "a"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`GtDDD[-$CellContext`j, -$CellContext`i, -$CellContext`a], - Editable->False]}], ")"}], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - RowBox[{"(", - SubscriptBox[ - OverscriptBox["\[CapitalGamma]", "~"], "d"], ")"}], - StyleBox[GridBox[{ - {"a"}, - {" "} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`trGtd[$CellContext`a], - Editable->False]}]}]}]], "Output", - CellChangeTimes->{{3.929019839035385*^9, 3.929019851703887*^9}, - 3.929020096081587*^9}, - CellLabel->"Out[21]=",ExpressionUUID->"2590acaa-b9f6-4f6f-b0f8-ca6d2937f684"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{"eqssof", "[", "RVarlist", "]"}], "[", - RowBox[{"[", "3", "]"}], "]"}]], "Input", - CellChangeTimes->{{3.92901977795203*^9, 3.92901978760408*^9}, { - 3.929019842121632*^9, 3.929019854859454*^9}}, - CellLabel->"In[22]:=",ExpressionUUID->"8d7a23f2-d5db-41c6-af28-0e0d003aac47"], - -Cell[BoxData[ - RowBox[{ - InterpretationBox[ - StyleBox[GridBox[{ - {"R", - StyleBox[GridBox[{ - {" ", " "}, - {"i", "j"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`R[-$CellContext`i, -$CellContext`j], - Editable->False], "\[Equal]", - RowBox[{ - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["R", "~"], - StyleBox[GridBox[{ - {" ", " "}, - {"i", "j"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`Rt[-$CellContext`i, -$CellContext`j], - Editable->False], "+", - InterpretationBox[ - StyleBox[GridBox[{ - { - SuperscriptBox[ - OverscriptBox["R", "~"], "\[Chi]"], - StyleBox[GridBox[{ - {" ", " "}, - {"i", "j"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`Rtchi[-$CellContext`i, -$CellContext`j], - Editable->False]}]}]], "Output", - CellChangeTimes->{{3.9290198431634407`*^9, 3.929019855229805*^9}, - 3.929020097761284*^9}, - CellLabel->"Out[22]=",ExpressionUUID->"e153de8f-d970-4920-8dce-864f4f396850"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{"eqssof", "[", "RVarlist", "]"}], "[", - RowBox[{"[", "4", "]"}], "]"}]], "Input", - CellChangeTimes->{{3.92901977795203*^9, 3.92901978760408*^9}, { - 3.929019842121632*^9, 3.929019867342716*^9}}, - CellLabel->"In[23]:=",ExpressionUUID->"91af6c64-65ee-4afd-8318-680c3bdd411a"], - -Cell[BoxData[ - RowBox[{ - InterpretationBox[ - StyleBox["R", - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`trR[], - Editable->False], "\[Equal]", - RowBox[{ - InterpretationBox[ - StyleBox[GridBox[{ - {"\[Gamma]", - StyleBox[GridBox[{ - {"a", "b"}, - {" ", " "} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`invgam[$CellContext`a, $CellContext`b], - Editable->False], " ", - InterpretationBox[ - StyleBox[GridBox[{ - {"R", - StyleBox[GridBox[{ - {" ", " "}, - {"a", "b"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`R[-$CellContext`a, -$CellContext`b], - Editable->False]}]}]], "Output", - CellChangeTimes->{3.9290198680745373`*^9, 3.9290200991986513`*^9}, - CellLabel->"Out[23]=",ExpressionUUID->"413fb4c9-6331-44be-9959-2ee43ada119d"] -}, Open ]] -}, Open ]], - -Cell[CellGroupData[{ - -Cell["Matter", "Subsubsection", - CellChangeTimes->{{3.929019876085415*^9, - 3.9290198777301702`*^9}},ExpressionUUID->"0287564f-00d4-433c-9445-\ -ca9165b79b14"], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"Length", "[", "MatterVarlist", "]"}]], "Input", - CellChangeTimes->{{3.929019880160879*^9, 3.929019886930945*^9}}, - CellLabel->"In[24]:=",ExpressionUUID->"add3d20e-f303-4f5a-93e8-c6701903a2de"], - -Cell[BoxData["4"], "Output", - CellChangeTimes->{3.9290198879912024`*^9, 3.92902010194233*^9}, - CellLabel->"Out[24]=",ExpressionUUID->"1cd63814-86b0-45e7-abb8-477cf1e9b4c8"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{"eqssof", "[", "MatterVarlist", "]"}], "[", - RowBox[{"[", "1", "]"}], "]"}]], "Input", - CellChangeTimes->{{3.929019889136162*^9, 3.929019896143227*^9}}, - CellLabel->"In[25]:=",ExpressionUUID->"226ea86b-d479-4580-97ca-fcaab355d2aa"], - -Cell[BoxData[ - RowBox[{ - InterpretationBox[ - StyleBox["\[Rho]", - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`rho[], - Editable->False], "\[Equal]", - FractionBox[ - RowBox[{ - RowBox[{ - InterpretationBox[ - StyleBox[GridBox[{ - {"\[Beta]", - StyleBox[GridBox[{ - {"a"}, - {" "} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`beta[$CellContext`a], - Editable->False], " ", - InterpretationBox[ - StyleBox[GridBox[{ - {"\[Beta]", - StyleBox[GridBox[{ - {"b"}, - {" "} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`beta[$CellContext`b], - Editable->False], " ", - InterpretationBox[ - StyleBox[GridBox[{ - {"T", - StyleBox[GridBox[{ - {" ", " "}, - {"a", "b"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`eT[-$CellContext`a, -$CellContext`b], - Editable->False]}], "-", - RowBox[{"2", " ", - InterpretationBox[ - StyleBox[GridBox[{ - {"\[Beta]", + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`ddchi[-$CellContext`i, -$CellContext`j], + Editable->False], "-", + RowBox[{ + InterpretationBox[ StyleBox[GridBox[{ - {"b"}, - {" "} + { + RowBox[{"\[PartialD]", "\[Chi]"}], + StyleBox[GridBox[{ + {" "}, + {"a"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { - Offset[0.], { + Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`beta[$CellContext`b], - Editable->False], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - SubscriptBox["T", "t"], + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`dchi[-$CellContext`a], + Editable->False], " ", + InterpretationBox[ StyleBox[GridBox[{ - {" "}, - {"b"} + { + OverscriptBox["\[CapitalGamma]", "~"], + StyleBox[GridBox[{ + {"a", " ", " "}, + {" ", "i", "j"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { - Offset[0.], { + Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`eTt[-$CellContext`b], - Editable->False]}], "+", - InterpretationBox[ - StyleBox[ - SubscriptBox["T", "tt"], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`eTtt[], - Editable->False]}], - SuperscriptBox[ - InterpretationBox[ - StyleBox["\[Alpha]", - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`alpha[], - Editable->False], "2"]]}]], "Output", - CellChangeTimes->{3.9290198969450483`*^9, 3.929020103366681*^9}, - CellLabel->"Out[25]=",ExpressionUUID->"bb0cb16f-2c56-4816-9a2d-fd8d24a554c0"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{"eqssof", "[", "MatterVarlist", "]"}], "[", - RowBox[{"[", "2", "]"}], "]"}]], "Input", - CellChangeTimes->{{3.929019898248068*^9, 3.929019908924127*^9}}, - CellLabel->"In[26]:=",ExpressionUUID->"38e745d7-50ef-46ab-b939-7224cbc0db82"], - -Cell[BoxData[ - RowBox[{ - InterpretationBox[ - StyleBox[GridBox[{ - {"S", - StyleBox[GridBox[{ - {" "}, - {"i"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`Sm[-$CellContext`i], - Editable->False], "\[Equal]", - RowBox[{"-", - FractionBox[ - RowBox[{ - RowBox[{ - RowBox[{"-", + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`Gt[$CellContext`a, -$CellContext`i, -$CellContext`j], + Editable->False]}]}]}]}, + { + RowBox[{ InterpretationBox[ StyleBox[GridBox[{ - {"\[Beta]", + {"DD\[Alpha]", StyleBox[GridBox[{ - {"a"}, - {" "} + {" ", " "}, + {"i", "j"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { @@ -3276,1496 +1573,388 @@ Cell[BoxData[ Offset[0.2]}}], ShowAutoStyles->False, AutoSpacing->False], - $CellContext`beta[$CellContext`a], - Editable->False]}], " ", - InterpretationBox[ - StyleBox[GridBox[{ - {"T", - StyleBox[GridBox[{ - {" ", " "}, - {"a", "i"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`eT[-$CellContext`a, -$CellContext`i], - Editable->False]}], "+", - InterpretationBox[ - StyleBox[GridBox[{ - { - SubscriptBox["T", "t"], + $CellContext`DDalpha[-$CellContext`i, -$CellContext`j], + Editable->False], "\[Equal]", + RowBox[{ + FractionBox[ + RowBox[{ + RowBox[{ + InterpretationBox[ + StyleBox[GridBox[{ + { + RowBox[{"\[PartialD]", "\[Alpha]"}], + StyleBox[GridBox[{ + {" "}, + {"j"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + + GridBoxAlignment->{ + "Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`dalpha[-$CellContext`j], + Editable->False], " ", + InterpretationBox[ + StyleBox[GridBox[{ + { + RowBox[{"\[PartialD]", "\[Chi]"}], + StyleBox[GridBox[{ + {" "}, + {"i"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + + GridBoxAlignment->{ + "Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`dchi[-$CellContext`i], + Editable->False]}], "+", + RowBox[{ + InterpretationBox[ + StyleBox[GridBox[{ + { + RowBox[{"\[PartialD]", "\[Alpha]"}], + StyleBox[GridBox[{ + {" "}, + {"i"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + + GridBoxAlignment->{ + "Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`dalpha[-$CellContext`i], + Editable->False], " ", + InterpretationBox[ + StyleBox[GridBox[{ + { + RowBox[{"\[PartialD]", "\[Chi]"}], + StyleBox[GridBox[{ + {" "}, + {"j"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + + GridBoxAlignment->{ + "Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`dchi[-$CellContext`j], + Editable->False]}]}], + RowBox[{"2", " ", + InterpretationBox[ + StyleBox["\[Chi]", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`chi[], + Editable->False]}]], "+", + InterpretationBox[ + StyleBox[GridBox[{ + { + RowBox[{"\[PartialD]", + RowBox[{"\[PartialD]", "\[Alpha]"}]}], + StyleBox[GridBox[{ + {" ", " "}, + {"i", "j"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`ddalpha[-$CellContext`i, -$CellContext`j], + Editable->False], "-", + RowBox[{ + InterpretationBox[ StyleBox[GridBox[{ - {" "}, - {"i"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`eTt[-$CellContext`i], - Editable->False]}], - InterpretationBox[ - StyleBox["\[Alpha]", - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`alpha[], - Editable->False]]}]}]], "Output", - CellChangeTimes->{3.929019909560408*^9, 3.929020104980362*^9}, - CellLabel->"Out[26]=",ExpressionUUID->"2c63fc48-261a-425f-9896-e50ac2c44f36"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{"eqssof", "[", "MatterVarlist", "]"}], "[", - RowBox[{"[", "3", "]"}], "]"}]], "Input", - CellChangeTimes->{{3.929019913459428*^9, 3.929019921771615*^9}}, - CellLabel->"In[27]:=",ExpressionUUID->"59dcc2b3-a47a-4bf5-92ee-4f168ae9d229"], - -Cell[BoxData[ - RowBox[{ - InterpretationBox[ - StyleBox[GridBox[{ - {"S", - StyleBox[GridBox[{ - {" ", " "}, - {"i", "j"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`Ss[-$CellContext`i, -$CellContext`j], - Editable->False], "\[Equal]", - InterpretationBox[ - StyleBox[GridBox[{ - {"T", - StyleBox[GridBox[{ - {" ", " "}, - {"i", "j"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`eT[-$CellContext`i, -$CellContext`j], - Editable->False]}]], "Output", - CellChangeTimes->{3.929019922325843*^9, 3.929020106204941*^9}, - CellLabel->"Out[27]=",ExpressionUUID->"085840ad-aa87-47ce-86b7-06c50435e3b0"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{"eqssof", "[", "MatterVarlist", "]"}], "[", - RowBox[{"[", "4", "]"}], "]"}]], "Input", - CellChangeTimes->{{3.9290199236178493`*^9, 3.9290199350254097`*^9}}, - CellLabel->"In[28]:=",ExpressionUUID->"e49236b0-25cd-4838-a75a-ea8d631f651f"], - -Cell[BoxData[ - RowBox[{ - InterpretationBox[ - StyleBox["S", - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`trSs[], - Editable->False], "\[Equal]", - RowBox[{ - InterpretationBox[ - StyleBox[GridBox[{ - {"\[Gamma]", - StyleBox[GridBox[{ - {"a", "b"}, - {" ", " "} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`invgam[$CellContext`a, $CellContext`b], - Editable->False], " ", - InterpretationBox[ - StyleBox[GridBox[{ - {"S", - StyleBox[GridBox[{ - {" ", " "}, - {"a", "b"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`Ss[-$CellContext`a, -$CellContext`b], - Editable->False]}]}]], "Output", - CellChangeTimes->{3.9290199354513407`*^9, 3.929020107503026*^9}, - CellLabel->"Out[28]=",ExpressionUUID->"76e075d5-60aa-4e0d-8dbe-46714d2ed322"] -}, Open ]] -}, Open ]], - -Cell[CellGroupData[{ - -Cell["dAtUU", "Subsubsection", - CellChangeTimes->{{3.9290199535998907`*^9, - 3.929019956863778*^9}},ExpressionUUID->"71eee9d4-1630-4b56-acb7-\ -b57c6d036a93"], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"Length", "[", "dAtUUVarlist", "]"}]], "Input", - CellChangeTimes->{{3.929019958886196*^9, 3.929019961833798*^9}}, - CellLabel->"In[29]:=",ExpressionUUID->"0f1ac2d7-163a-4e10-840b-16c8d3d28ed8"], - -Cell[BoxData["1"], "Output", - CellChangeTimes->{3.929019962334032*^9, 3.929020109649845*^9}, - CellLabel->"Out[29]=",ExpressionUUID->"2c094355-8aed-499e-8ec0-7d4f8748b30b"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{"eqssof", "[", "dAtUUVarlist", "]"}], "[", - RowBox[{"[", "1", "]"}], "]"}]], "Input", - CellChangeTimes->{{3.9290199640856733`*^9, 3.929019971441038*^9}}, - CellLabel->"In[30]:=",ExpressionUUID->"887f1bd3-281b-4813-84d6-a40853ebe752"], - -Cell[BoxData[ - RowBox[{ - InterpretationBox[ - StyleBox[GridBox[{ - { - RowBox[{"\[PartialD]", - OverscriptBox["A", "~"]}], - StyleBox[GridBox[{ - {"i"}, - {" "} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`trdexAtUU[$CellContext`i], - Editable->False], "\[Equal]", - RowBox[{ - RowBox[{ - RowBox[{"-", "2"}], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - RowBox[{"\[PartialD]", - OverscriptBox["\[Gamma]", "~"]}], - StyleBox[GridBox[{ - {" ", " ", " "}, - {"a", "b", "c"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`dgamt[-$CellContext`a, -$CellContext`b, -$CellContext`c], - Editable->False], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["A", "~"], - StyleBox[GridBox[{ - {"a", "c"}, - {" ", " "} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`exAtUU[$CellContext`a, $CellContext`c], - Editable->False], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["\[Gamma]", "~"], - StyleBox[GridBox[{ - {"i", "b"}, - {" ", " "} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`invgamt[$CellContext`i, $CellContext`b], - Editable->False]}], "+", - RowBox[{ - InterpretationBox[ - StyleBox[GridBox[{ - { - RowBox[{"\[PartialD]", - OverscriptBox["A", "~"]}], - StyleBox[GridBox[{ - {" ", " ", " "}, - {"a", "b", "c"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`dexAt[-$CellContext`a, -$CellContext`b, -$CellContext`c], - Editable->False], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["\[Gamma]", "~"], - StyleBox[GridBox[{ - {"a", "c"}, - {" ", " "} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`invgamt[$CellContext`a, $CellContext`c], - Editable->False], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["\[Gamma]", "~"], - StyleBox[GridBox[{ - {"i", "b"}, - {" ", " "} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`invgamt[$CellContext`i, $CellContext`b], - Editable->False]}]}]}]], "Output", - CellChangeTimes->{3.929019972018496*^9, 3.929020111606514*^9}, - CellLabel->"Out[30]=",ExpressionUUID->"fb961632-26d4-4b3a-9953-d5d8de45a355"] -}, Open ]] -}, Open ]], - -Cell[CellGroupData[{ - -Cell["Constraint", "Subsubsection", - CellChangeTimes->{{3.929010438218876*^9, - 3.929010439390278*^9}},ExpressionUUID->"4c82ece6-45bc-4ae9-a3db-\ -3146ef191f5a"], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"Length", "[", "ConstraintVarlist", "]"}]], "Input", - CellChangeTimes->{{3.929019978262494*^9, 3.92901998332366*^9}}, - CellLabel->"In[31]:=",ExpressionUUID->"1c6033fc-8fb8-4a65-a7c2-02e2fa1ca257"], - -Cell[BoxData["3"], "Output", - CellChangeTimes->{3.9290199838420353`*^9, 3.929020113847045*^9}, - CellLabel->"Out[31]=",ExpressionUUID->"bc9f9396-8d8b-4a3a-8b5c-7a193703e7f6"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{"eqssof", "[", "ConstraintVarlist", "]"}], "[", - RowBox[{"[", "1", "]"}], "]"}]], "Input", - CellChangeTimes->{{3.929019986045722*^9, 3.9290199932660437`*^9}}, - CellLabel->"In[32]:=",ExpressionUUID->"48b52939-cee1-4779-8be1-fc1fae506bdc"], - -Cell[BoxData[ - RowBox[{ - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["Z", "~"], - StyleBox[GridBox[{ - {"i"}, - {" "} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`ZtC[$CellContext`i], - Editable->False], "\[Equal]", - RowBox[{ - FractionBox["1", "2"], " ", - RowBox[{"(", - RowBox[{ - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["\[CapitalGamma]", "~"], - StyleBox[GridBox[{ - {"i"}, - {" "} + { + RowBox[{"\[PartialD]", "\[Alpha]"}], + StyleBox[GridBox[{ + {" "}, + {"a"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { - Offset[0.], { + Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`trGt[$CellContext`i], - Editable->False], "-", - InterpretationBox[ - StyleBox[GridBox[{ - { - RowBox[{"(", - SubscriptBox[ - OverscriptBox["\[CapitalGamma]", "~"], "d"], ")"}], + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`dalpha[-$CellContext`a], + Editable->False], " ", + InterpretationBox[ StyleBox[GridBox[{ - {"i"}, - {" "} + { + OverscriptBox["\[CapitalGamma]", "~"], + StyleBox[GridBox[{ + {"a", " ", " "}, + {" ", "i", "j"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { - Offset[0.], { + Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`trGtd[$CellContext`i], - Editable->False]}], ")"}]}]}]], "Output", - CellChangeTimes->{3.929019994061953*^9, 3.9290201156262503`*^9}, - CellLabel->"Out[32]=",ExpressionUUID->"2b0a981d-3467-4374-b22a-256c7cacd884"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{"eqssof", "[", "ConstraintVarlist", "]"}], "[", - RowBox[{"[", "2", "]"}], "]"}]], "Input", - CellChangeTimes->{{3.929019986045722*^9, 3.929020003122162*^9}}, - CellLabel->"In[33]:=",ExpressionUUID->"11674024-ff40-4559-971d-80d91cf14dea"], - -Cell[BoxData[ - RowBox[{ - InterpretationBox[ - StyleBox["H", - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`HC[], - Editable->False], "\[Equal]", - RowBox[{ - RowBox[{ - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["A", "~"], - StyleBox[GridBox[{ - {" ", " "}, - {"a", "b"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`exAt[-$CellContext`a, -$CellContext`b], - Editable->False], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["A", "~"], - StyleBox[GridBox[{ - {"a", "b"}, - {" ", " "} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`exAtUU[$CellContext`a, $CellContext`b], - Editable->False]}], "-", - RowBox[{"16", " ", - InterpretationBox[ - StyleBox["\[Pi]", - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`cpi, - Editable->False], " ", - InterpretationBox[ - StyleBox["\[Rho]", - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`rho[], - Editable->False]}], "-", - RowBox[{ - FractionBox["2", "3"], " ", - SuperscriptBox[ - RowBox[{"(", - RowBox[{ - InterpretationBox[ - StyleBox[ - OverscriptBox["K", "^"], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`exKh[], - Editable->False], "+", - RowBox[{"2", " ", - InterpretationBox[ - StyleBox["\[CapitalTheta]", - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`Theta[], - Editable->False]}]}], ")"}], "2"]}], "+", - InterpretationBox[ - StyleBox["R", - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`trR[], - Editable->False]}]}]], "Output", - CellChangeTimes->{3.929020003474471*^9, 3.929020117401465*^9}, - CellLabel->"Out[33]=",ExpressionUUID->"40a3e1c5-6fb0-4737-bc17-8c1f34d05ce6"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{"eqssof", "[", "ConstraintVarlist", "]"}], "[", - RowBox[{"[", "3", "]"}], "]"}]], "Input", - CellChangeTimes->{{3.929019986045722*^9, 3.9290200069007397`*^9}}, - CellLabel->"In[34]:=",ExpressionUUID->"c24bb9a4-b016-4d5a-bff0-99c6e59ffb5b"], - -Cell[BoxData[ - RowBox[{ - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["M", "~"], - StyleBox[GridBox[{ - {"i"}, - {" "} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`MtC[$CellContext`i], - Editable->False], "\[Equal]", - RowBox[{ - RowBox[{"-", - FractionBox[ - RowBox[{"2", " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - RowBox[{"\[PartialD]", "\[Chi]"}], + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`Gt[$CellContext`a, -$CellContext`i, -$CellContext`j], + Editable->False]}], "-", + FractionBox[ + RowBox[{ + InterpretationBox[ StyleBox[GridBox[{ - {" "}, - {"a"} + { + RowBox[{"\[PartialD]", "\[Alpha]"}], + StyleBox[GridBox[{ + {" "}, + {"a"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, GridBoxSpacings->{"Columns" -> { - Offset[0.], { + Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`dchi[-$CellContext`a], - Editable->False], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["A", "~"], + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`dalpha[-$CellContext`a], + Editable->False], " ", + InterpretationBox[ StyleBox[GridBox[{ - {"i", "a"}, - {" ", " "} + { + RowBox[{"\[PartialD]", "\[Chi]"}], + StyleBox[GridBox[{ + {" "}, + {"b"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, GridBoxSpacings->{"Columns" -> { - Offset[0.], { + Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`exAtUU[$CellContext`i, $CellContext`a], - Editable->False]}], - RowBox[{"3", " ", - InterpretationBox[ - StyleBox["\[Chi]", - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`chi[], - Editable->False]}]]}], "+", - RowBox[{ - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["A", "~"], - StyleBox[GridBox[{ - {"a", "b"}, - {" ", " "} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`exAtUU[$CellContext`a, $CellContext`b], - Editable->False], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["\[CapitalGamma]", "~"], - StyleBox[GridBox[{ - {"i", " ", " "}, - {" ", "a", "b"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`Gt[$CellContext`i, -$CellContext`a, -$CellContext`b], - Editable->False]}], "-", - RowBox[{ - FractionBox["2", "3"], " ", - RowBox[{"(", - RowBox[{ - InterpretationBox[ - StyleBox[GridBox[{ - { - RowBox[{"\[PartialD]", - OverscriptBox["K", "^"]}], + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`dchi[-$CellContext`b], + Editable->False], " ", + InterpretationBox[ StyleBox[GridBox[{ - {" "}, - {"a"} + { + OverscriptBox["\[Gamma]", "~"], + StyleBox[GridBox[{ + {" ", " "}, + {"i", "j"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, GridBoxSpacings->{"Columns" -> { - Offset[0.], { + Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`dexKh[-$CellContext`a], - Editable->False], "+", - RowBox[{"2", " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - RowBox[{"\[PartialD]", "\[CapitalTheta]"}], - StyleBox[GridBox[{ - {" "}, - {"a"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`dTheta[-$CellContext`a], - Editable->False]}]}], ")"}], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["\[Gamma]", "~"], - StyleBox[GridBox[{ - {"i", "a"}, - {" ", " "} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`invgamt[$CellContext`i, $CellContext`a], - Editable->False]}], "-", - RowBox[{"8", " ", - InterpretationBox[ - StyleBox["\[Pi]", - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`cpi, - Editable->False], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["\[Gamma]", "~"], - StyleBox[GridBox[{ - {"i", "a"}, - {" ", " "} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`invgamt[$CellContext`i, $CellContext`a], - Editable->False], " ", - InterpretationBox[ - StyleBox[GridBox[{ - {"S", - StyleBox[GridBox[{ - {" "}, - {"a"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`Sm[-$CellContext`a], - Editable->False]}], "+", - InterpretationBox[ - StyleBox[GridBox[{ - { - RowBox[{"\[PartialD]", - OverscriptBox["A", "~"]}], - StyleBox[GridBox[{ - {"i"}, - {" "} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`trdexAtUU[$CellContext`i], - Editable->False]}]}]], "Output", - CellChangeTimes->{3.92902000719173*^9, 3.929020118756967*^9}, - CellLabel->"Out[34]=",ExpressionUUID->"adf2a2b3-24a4-4c8e-9122-a1984c656ea9"] -}, Open ]] -}, Open ]] -}, Open ]], - -Cell[CellGroupData[{ - -Cell["EOM", "Subsection", - CellChangeTimes->{{3.929009393980769*^9, - 3.929009396658312*^9}},ExpressionUUID->"920279f5-ee9e-4dc5-b72f-\ -c3be20398e5f"], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"Length", "[", "dtEvolVarlist", "]"}]], "Input", - CellChangeTimes->{{3.929019492380168*^9, 3.929019506250082*^9}}, - CellLabel->"In[35]:=",ExpressionUUID->"06e9ff3d-3545-464e-a7fa-78d01067a2fb"], - -Cell[BoxData["8"], "Output", - CellChangeTimes->{{3.929019496979405*^9, 3.929019506612356*^9}, - 3.929019656136404*^9, 3.9290201212699747`*^9}, - CellLabel->"Out[35]=",ExpressionUUID->"b792026e-c3ea-448f-bc73-fe66b1a4a244"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{"eqssof", "[", "dtEvolVarlist", "]"}], "[", - RowBox[{"[", "1", "]"}], "]"}]], "Input", - CellChangeTimes->{{3.9290193804645977`*^9, 3.929019385741303*^9}, { - 3.92901945574961*^9, 3.929019473861459*^9}}, - CellLabel->"In[36]:=",ExpressionUUID->"35004047-a64e-4fca-81c8-cc6ee9a1dbca"], - -Cell[BoxData[ - RowBox[{ - InterpretationBox[ - StyleBox[ - RowBox[{ - SubscriptBox["\[PartialD]", "t"], "\[Chi]"}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`dtchi[], - Editable->False], "\[Equal]", - RowBox[{ - FractionBox["2", "3"], " ", - InterpretationBox[ - StyleBox["\[Chi]", - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`chi[], - Editable->False], " ", - RowBox[{"(", - RowBox[{ - RowBox[{"-", - InterpretationBox[ - StyleBox[GridBox[{ - { - RowBox[{"\[PartialD]", "\[Beta]"}], + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`gamt[-$CellContext`i, -$CellContext`j], + Editable->False], " ", + InterpretationBox[ StyleBox[GridBox[{ - {" ", "a"}, - {"a", " "} + { + OverscriptBox["\[Gamma]", "~"], + StyleBox[GridBox[{ + {"a", "b"}, + {" ", " "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, GridBoxSpacings->{"Columns" -> { - Offset[0.], { + Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`dbeta[-$CellContext`a, $CellContext`a], - Editable->False]}], "+", - RowBox[{ - InterpretationBox[ - StyleBox["\[Alpha]", - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`alpha[], - Editable->False], " ", - RowBox[{"(", - RowBox[{ - InterpretationBox[ - StyleBox[ - OverscriptBox["K", "^"], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`exKh[], - Editable->False], "+", - RowBox[{"2", " ", - InterpretationBox[ - StyleBox["\[CapitalTheta]", - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`Theta[], - Editable->False]}]}], ")"}]}]}], ")"}]}]}]], "Output", - CellChangeTimes->{ - 3.929019386356266*^9, {3.929019457705763*^9, 3.9290194763308487`*^9}, - 3.929019657525566*^9, 3.92902012308248*^9}, - CellLabel->"Out[36]=",ExpressionUUID->"2d09c129-7591-4344-95b1-dd6ae156c352"] + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`invgamt[$CellContext`a, $CellContext`b], + Editable->False]}], + RowBox[{"2", " ", + InterpretationBox[ + StyleBox["\[Chi]", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`chi[], + Editable->False]}]]}]}]} + }, + GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.5599999999999999]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + Column], + Function[BoxForm`e$, + TableForm[BoxForm`e$]]]], "Output", + CellChangeTimes->{3.929024457706399*^9, 3.929024561782095*^9, + 3.929024761315168*^9}, + CellLabel-> + "Out[9]//TableForm=",ExpressionUUID->"75c304aa-c943-4133-b307-fe52cbf616dd"] +}, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[BoxData[ - RowBox[{ - RowBox[{"eqssof", "[", "dtEvolVarlist", "]"}], "[", - RowBox[{"[", "2", "]"}], "]"}]], "Input", - CellChangeTimes->{{3.9290193804645977`*^9, 3.929019385741303*^9}, { - 3.92901945574961*^9, 3.929019484144177*^9}}, - CellLabel->"In[37]:=",ExpressionUUID->"9c468d8e-f56d-4645-a6ce-487f80d8b8c1"], - -Cell[BoxData[ - RowBox[{ - InterpretationBox[ - StyleBox[GridBox[{ - { - RowBox[{ - SubscriptBox["\[PartialD]", "t"], - OverscriptBox["\[Gamma]", "~"]}], - StyleBox[GridBox[{ - {" ", " "}, - {"i", "j"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`dtgamt[-$CellContext`i, -$CellContext`j], - Editable->False], "\[Equal]", - RowBox[{ - RowBox[{ - RowBox[{"-", "2"}], " ", - InterpretationBox[ - StyleBox["\[Alpha]", - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`alpha[], - Editable->False], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["A", "~"], - StyleBox[GridBox[{ - {" ", " "}, - {"i", "j"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`exAt[-$CellContext`i, -$CellContext`j], - Editable->False]}], "+", - RowBox[{ - InterpretationBox[ - StyleBox[GridBox[{ - { - RowBox[{"\[PartialD]", "\[Beta]"}], - StyleBox[GridBox[{ - {" ", "a"}, - {"j", " "} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`dbeta[-$CellContext`j, $CellContext`a], - Editable->False], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["\[Gamma]", "~"], - StyleBox[GridBox[{ - {" ", " "}, - {"a", "i"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`gamt[-$CellContext`a, -$CellContext`i], - Editable->False]}], "+", - RowBox[{ - InterpretationBox[ - StyleBox[GridBox[{ - { - RowBox[{"\[PartialD]", "\[Beta]"}], - StyleBox[GridBox[{ - {" ", "a"}, - {"i", " "} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`dbeta[-$CellContext`i, $CellContext`a], - Editable->False], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["\[Gamma]", "~"], - StyleBox[GridBox[{ - {" ", " "}, - {"a", "j"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`gamt[-$CellContext`a, -$CellContext`j], - Editable->False]}], "-", - RowBox[{ - FractionBox["2", "3"], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - RowBox[{"\[PartialD]", "\[Beta]"}], - StyleBox[GridBox[{ - {" ", "a"}, - {"a", " "} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`dbeta[-$CellContext`a, $CellContext`a], - Editable->False], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["\[Gamma]", "~"], - StyleBox[GridBox[{ - {" ", " "}, - {"i", "j"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`gamt[-$CellContext`i, -$CellContext`j], - Editable->False]}]}]}]], "Output", - CellChangeTimes->{3.929019484455688*^9, 3.929019659329606*^9, - 3.929020124433806*^9}, - CellLabel->"Out[37]=",ExpressionUUID->"a74234b9-a160-45c1-9285-3c4acc51e845"] -}, Open ]], +Cell["Rs", "Subsubsection", + CellChangeTimes->{{3.929010469218392*^9, 3.929010473998561*^9}, { + 3.929010653248419*^9, + 3.92901065375465*^9}},ExpressionUUID->"222918aa-bedb-47fe-850e-\ +130d6a441f4f"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ - RowBox[{"eqssof", "[", "dtEvolVarlist", "]"}], "[", - RowBox[{"[", "3", "]"}], "]"}]], "Input", - CellChangeTimes->{{3.9290193804645977`*^9, 3.929019385741303*^9}, { - 3.92901945574961*^9, 3.92901948992594*^9}}, - CellLabel->"In[38]:=",ExpressionUUID->"1021fdfd-6ef3-4f83-b9bd-7f0436d388a8"], + RowBox[{"eqssof", "[", "RVarlist", "]"}], "//", "TableForm"}]], "Input", + CellChangeTimes->{{3.929024383410981*^9, 3.929024406138372*^9}, { + 3.929024451260728*^9, 3.9290244733206797`*^9}, {3.929024552407406*^9, + 3.9290245543301077`*^9}}, + CellLabel->"In[10]:=",ExpressionUUID->"de08b628-fb62-4306-88f8-b62676416998"], Cell[BoxData[ - RowBox[{ - InterpretationBox[ - StyleBox[ - RowBox[{ - SubscriptBox["\[PartialD]", "t"], - OverscriptBox["K", "^"]}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`dtexKh[], - Editable->False], "\[Equal]", - RowBox[{ - RowBox[{ - RowBox[{"-", - InterpretationBox[ - StyleBox[GridBox[{ - {"DD\[Alpha]", - StyleBox[GridBox[{ - {" ", " "}, - {"a", "b"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`DDalpha[-$CellContext`a, -$CellContext`b], - Editable->False]}], " ", - InterpretationBox[ - StyleBox[GridBox[{ - {"\[Gamma]", - StyleBox[GridBox[{ - {"a", "b"}, - {" ", " "} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`invgam[$CellContext`a, $CellContext`b], - Editable->False]}], "+", - RowBox[{ - InterpretationBox[ - StyleBox[ - SubscriptBox["\[Kappa]", "1"], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`ckappa1, - Editable->False], " ", - RowBox[{"(", - RowBox[{"1", "-", - InterpretationBox[ - StyleBox[ - SubscriptBox["\[Kappa]", "2"], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`ckappa2, - Editable->False]}], ")"}], " ", - InterpretationBox[ - StyleBox["\[Alpha]", - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`alpha[], - Editable->False], " ", - InterpretationBox[ - StyleBox["\[CapitalTheta]", - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`Theta[], - Editable->False]}], "+", - RowBox[{ - InterpretationBox[ - StyleBox["\[Alpha]", - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`alpha[], - Editable->False], " ", - RowBox[{"(", - RowBox[{ + TagBox[ + TagBox[GridBox[{ + { RowBox[{ InterpretationBox[ StyleBox[GridBox[{ { - OverscriptBox["A", "~"], + SuperscriptBox[ + OverscriptBox["R", "~"], "\[Chi]"], StyleBox[GridBox[{ {" ", " "}, - {"a", "b"} + {"i", "j"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { @@ -4784,393 +1973,141 @@ Cell[BoxData[ Offset[0.2]}}], ShowAutoStyles->False, AutoSpacing->False], - $CellContext`exAt[-$CellContext`a, -$CellContext`b], - Editable->False], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["A", "~"], + $CellContext`Rtchi[-$CellContext`i, -$CellContext`j], + Editable->False], "\[Equal]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{ + InterpretationBox[ StyleBox[GridBox[{ - {"a", "b"}, - {" ", " "} + { + RowBox[{"\[PartialD]", "\[Chi]"}], + StyleBox[GridBox[{ + {" "}, + {"i"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} }, + + GridBoxAlignment->{ + "Columns" -> {{Center}}, "Rows" -> {{Center}}}, GridBoxSpacings->{"Columns" -> { - Offset[0.], { + Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`exAtUU[$CellContext`a, $CellContext`b], - Editable->False]}], "+", - RowBox[{ - FractionBox["1", "3"], " ", - SuperscriptBox[ - RowBox[{"(", - RowBox[{ - InterpretationBox[ - StyleBox[ - OverscriptBox["K", "^"], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`exKh[], - Editable->False], "+", - RowBox[{"2", " ", - InterpretationBox[ - StyleBox["\[CapitalTheta]", + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], ShowAutoStyles->False, AutoSpacing->False], - $CellContext`Theta[], - Editable->False]}]}], ")"}], "2"]}]}], ")"}]}], "+", - RowBox[{"4", " ", - InterpretationBox[ - StyleBox["\[Pi]", - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`cpi, - Editable->False], " ", - InterpretationBox[ - StyleBox["\[Alpha]", - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`alpha[], - Editable->False], " ", - RowBox[{"(", - RowBox[{ - InterpretationBox[ - StyleBox["\[Rho]", - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`rho[], - Editable->False], "+", - InterpretationBox[ - StyleBox["S", - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`trSs[], - Editable->False]}], ")"}]}]}]}]], "Output", - CellChangeTimes->{3.929019490181374*^9, 3.929020125713862*^9}, - CellLabel->"Out[38]=",ExpressionUUID->"d72cfd80-5b7d-4956-96f6-7ef3c450b993"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{"eqssof", "[", "dtEvolVarlist", "]"}], "[", - RowBox[{"[", "4", "]"}], "]"}]], "Input", - CellChangeTimes->{{3.9290193804645977`*^9, 3.929019385741303*^9}, { - 3.92901945574961*^9, 3.92901948992594*^9}, {3.9290195259149837`*^9, - 3.929019526185422*^9}}, - CellLabel->"In[39]:=",ExpressionUUID->"0038b22a-f222-4ed3-9106-f071f44125de"], - -Cell[BoxData[ - RowBox[{ - InterpretationBox[ - StyleBox[GridBox[{ - { - RowBox[{ - SubscriptBox["\[PartialD]", "t"], - OverscriptBox["A", "~"]}], - StyleBox[GridBox[{ - {" ", " "}, - {"i", "j"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`dtexAt[-$CellContext`i, -$CellContext`j], - Editable->False], "\[Equal]", - RowBox[{ - RowBox[{ - InterpretationBox[ - StyleBox[GridBox[{ - { - RowBox[{"\[PartialD]", "\[Beta]"}], - StyleBox[GridBox[{ - {" ", "a"}, - {"j", " "} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`dbeta[-$CellContext`j, $CellContext`a], - Editable->False], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["A", "~"], - StyleBox[GridBox[{ - {" ", " "}, - {"a", "i"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`exAt[-$CellContext`a, -$CellContext`i], - Editable->False]}], "+", - RowBox[{ - InterpretationBox[ - StyleBox[GridBox[{ - { - RowBox[{"\[PartialD]", "\[Beta]"}], - StyleBox[GridBox[{ - {" ", "a"}, - {"i", " "} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`dbeta[-$CellContext`i, $CellContext`a], - Editable->False], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["A", "~"], - StyleBox[GridBox[{ - {" ", " "}, - {"a", "j"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`exAt[-$CellContext`a, -$CellContext`j], - Editable->False]}], "-", - RowBox[{ - FractionBox["2", "3"], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - RowBox[{"\[PartialD]", "\[Beta]"}], - StyleBox[GridBox[{ - {" ", "a"}, - {"a", " "} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`dbeta[-$CellContext`a, $CellContext`a], - Editable->False], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["A", "~"], - StyleBox[GridBox[{ - {" ", " "}, - {"i", "j"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`exAt[-$CellContext`i, -$CellContext`j], - Editable->False]}], "+", - RowBox[{ - InterpretationBox[ - StyleBox["\[Chi]", - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`chi[], - Editable->False], " ", - RowBox[{"(", - RowBox[{ - RowBox[{"-", - InterpretationBox[ - StyleBox[GridBox[{ - {"DD\[Alpha]", + $CellContext`dchi[-$CellContext`i], + Editable->False], " ", + InterpretationBox[ StyleBox[GridBox[{ - {" ", " "}, - {"i", "j"} + { + RowBox[{"\[PartialD]", "\[Chi]"}], + StyleBox[GridBox[{ + {" "}, + {"j"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} }, + + GridBoxAlignment->{ + "Columns" -> {{Center}}, "Rows" -> {{Center}}}, GridBoxSpacings->{"Columns" -> { - Offset[0.], { + Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`DDalpha[-$CellContext`i, -$CellContext`j], - Editable->False]}], "-", - RowBox[{ - FractionBox["1", "3"], " ", - InterpretationBox[ - StyleBox[GridBox[{ - {"\[Gamma]", - StyleBox[GridBox[{ - {" ", " "}, - {"i", "j"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`gam[-$CellContext`i, -$CellContext`j], - Editable->False], " ", - InterpretationBox[ - StyleBox[GridBox[{ - {"\[Gamma]", - StyleBox[GridBox[{ - {"a", "b"}, - {" ", " "} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`invgam[$CellContext`a, $CellContext`b], - Editable->False], " ", - RowBox[{"(", - RowBox[{ - RowBox[{"-", + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`dchi[-$CellContext`j], + Editable->False]}], + RowBox[{"4", " ", + SuperscriptBox[ + InterpretationBox[ + StyleBox["\[Chi]", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`chi[], + Editable->False], "2"]}]]}], "-", + FractionBox[ + RowBox[{"3", " ", InterpretationBox[ StyleBox[GridBox[{ - {"DD\[Alpha]", + { + RowBox[{"\[PartialD]", "\[Chi]"}], + StyleBox[GridBox[{ + {" "}, + {"a"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`dchi[-$CellContext`a], + Editable->False], " ", + InterpretationBox[ + StyleBox[GridBox[{ + { + RowBox[{"\[PartialD]", "\[Chi]"}], + StyleBox[GridBox[{ + {" "}, + {"b"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`dchi[-$CellContext`b], + Editable->False], " ", + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["\[Gamma]", "~"], StyleBox[GridBox[{ {" ", " "}, - {"a", "b"} + {"i", "j"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { @@ -5189,23 +2126,3773 @@ Cell[BoxData[ Offset[0.2]}}], ShowAutoStyles->False, AutoSpacing->False], - $CellContext`DDalpha[-$CellContext`a, -$CellContext`b], - Editable->False]}], "+", + $CellContext`gamt[-$CellContext`i, -$CellContext`j], + Editable->False], " ", + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["\[Gamma]", "~"], + StyleBox[GridBox[{ + {"a", "b"}, + {" ", " "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`invgamt[$CellContext`a, $CellContext`b], + Editable->False]}], + RowBox[{"4", " ", + SuperscriptBox[ + InterpretationBox[ + StyleBox["\[Chi]", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`chi[], + Editable->False], "2"]}]], "+", + FractionBox[ RowBox[{ InterpretationBox[ - StyleBox["\[Alpha]", + StyleBox[GridBox[{ + { + OverscriptBox["\[Gamma]", "~"], + StyleBox[GridBox[{ + {" ", " "}, + {"i", "j"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], ShowAutoStyles->False, AutoSpacing->False], - $CellContext`alpha[], + $CellContext`gamt[-$CellContext`i, -$CellContext`j], Editable->False], " ", - RowBox[{"(", - RowBox[{ - InterpretationBox[ - StyleBox[GridBox[{ - {"R", - StyleBox[GridBox[{ - {" ", " "}, - {"a", "b"} + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["\[Gamma]", "~"], + StyleBox[GridBox[{ + {"a", "b"}, + {" ", " "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`invgamt[$CellContext`a, $CellContext`b], + Editable->False], " ", + InterpretationBox[ + StyleBox[GridBox[{ + { + RowBox[{ + OverscriptBox["D", "~"], + OverscriptBox["D", "~"], "\[Chi]"}], + StyleBox[GridBox[{ + {" ", " "}, + {"a", "b"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`tDtDchi[-$CellContext`a, -$CellContext`b], + Editable->False]}], + RowBox[{"2", " ", + InterpretationBox[ + StyleBox["\[Chi]", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`chi[], + Editable->False]}]], "+", + FractionBox[ + InterpretationBox[ + StyleBox[GridBox[{ + { + RowBox[{ + OverscriptBox["D", "~"], + OverscriptBox["D", "~"], "\[Chi]"}], + StyleBox[GridBox[{ + {" ", " "}, + {"i", "j"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`tDtDchi[-$CellContext`i, -$CellContext`j], + Editable->False], + RowBox[{"2", " ", + InterpretationBox[ + StyleBox["\[Chi]", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`chi[], + Editable->False]}]]}]}]}, + { + RowBox[{ + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["R", "~"], + StyleBox[GridBox[{ + {" ", " "}, + {"i", "j"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`Rt[-$CellContext`i, -$CellContext`j], + Editable->False], "\[Equal]", + RowBox[{ + RowBox[{ + FractionBox["1", "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + InterpretationBox[ + StyleBox[GridBox[{ + { + RowBox[{"\[PartialD]", + OverscriptBox["\[CapitalGamma]", "~"]}], + StyleBox[GridBox[{ + {" ", "a"}, + {"j", " "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + + GridBoxAlignment->{ + "Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`dtrGt[-$CellContext`j, $CellContext`a], + Editable->False], " ", + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["\[Gamma]", "~"], + StyleBox[GridBox[{ + {" ", " "}, + {"a", "i"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + + GridBoxAlignment->{ + "Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`gamt[-$CellContext`a, -$CellContext`i], + Editable->False]}], "+", + RowBox[{ + InterpretationBox[ + StyleBox[GridBox[{ + { + RowBox[{"\[PartialD]", + OverscriptBox["\[CapitalGamma]", "~"]}], + StyleBox[GridBox[{ + {" ", "a"}, + {"i", " "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + + GridBoxAlignment->{ + "Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`dtrGt[-$CellContext`i, $CellContext`a], + Editable->False], " ", + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["\[Gamma]", "~"], + StyleBox[GridBox[{ + {" ", " "}, + {"a", "j"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + + GridBoxAlignment->{ + "Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`gamt[-$CellContext`a, -$CellContext`j], + Editable->False]}]}], ")"}]}], "+", + RowBox[{ + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["\[CapitalGamma]", "~"], + StyleBox[GridBox[{ + {"a", " ", " "}, + {" ", "i", "b"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`Gt[$CellContext`a, -$CellContext`i, -$CellContext`b], + Editable->False], " ", + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["\[CapitalGamma]", "~"], + StyleBox[GridBox[{ + {" ", " ", "b"}, + {"a", "j", " "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`GtDDU[-$CellContext`a, -$CellContext`j, $CellContext`b], + Editable->False]}], "+", + RowBox[{ + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["\[CapitalGamma]", "~"], + StyleBox[GridBox[{ + {"a", " ", " "}, + {" ", "b", "j"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`Gt[$CellContext`a, -$CellContext`b, -$CellContext`j], + Editable->False], " ", + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["\[CapitalGamma]", "~"], + StyleBox[GridBox[{ + {" ", " ", "b"}, + {"i", "a", " "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`GtDDU[-$CellContext`i, -$CellContext`a, $CellContext`b], + Editable->False]}], "+", + RowBox[{ + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["\[CapitalGamma]", "~"], + StyleBox[GridBox[{ + {"a", " ", " "}, + {" ", "b", "i"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`Gt[$CellContext`a, -$CellContext`b, -$CellContext`i], + Editable->False], " ", + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["\[CapitalGamma]", "~"], + StyleBox[GridBox[{ + {" ", " ", "b"}, + {"j", "a", " "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`GtDDU[-$CellContext`j, -$CellContext`a, $CellContext`b], + Editable->False]}], "-", + RowBox[{ + FractionBox["1", "2"], " ", + InterpretationBox[ + StyleBox[GridBox[{ + { + RowBox[{"\[PartialD]", + RowBox[{"\[PartialD]", + OverscriptBox["\[Gamma]", "~"]}]}], + StyleBox[GridBox[{ + {" ", " ", " ", " "}, + {"a", "b", "i", "j"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`ddgamt[-$CellContext`a, -$CellContext`b, \ +-$CellContext`i, -$CellContext`j], + Editable->False], " ", + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["\[Gamma]", "~"], + StyleBox[GridBox[{ + {"a", "b"}, + {" ", " "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`invgamt[$CellContext`a, $CellContext`b], + Editable->False]}], "+", + RowBox[{ + FractionBox["1", "2"], " ", + RowBox[{"(", + RowBox[{ + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["\[CapitalGamma]", "~"], + StyleBox[GridBox[{ + {" ", " ", " "}, + {"i", "j", "a"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + + GridBoxAlignment->{ + "Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`GtDDD[-$CellContext`i, -$CellContext`j, \ +-$CellContext`a], + Editable->False], "+", + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["\[CapitalGamma]", "~"], + StyleBox[GridBox[{ + {" ", " ", " "}, + {"j", "i", "a"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + + GridBoxAlignment->{ + "Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`GtDDD[-$CellContext`j, -$CellContext`i, \ +-$CellContext`a], + Editable->False]}], ")"}], " ", + InterpretationBox[ + StyleBox[GridBox[{ + { + RowBox[{"(", + SubscriptBox[ + OverscriptBox["\[CapitalGamma]", "~"], "d"], ")"}], + StyleBox[GridBox[{ + {"a"}, + {" "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`trGtd[$CellContext`a], + Editable->False]}]}]}]}, + { + RowBox[{ + InterpretationBox[ + StyleBox[GridBox[{ + {"R", + StyleBox[GridBox[{ + {" ", " "}, + {"i", "j"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`R[-$CellContext`i, -$CellContext`j], + Editable->False], "\[Equal]", + RowBox[{ + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["R", "~"], + StyleBox[GridBox[{ + {" ", " "}, + {"i", "j"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`Rt[-$CellContext`i, -$CellContext`j], + Editable->False], "+", + InterpretationBox[ + StyleBox[GridBox[{ + { + SuperscriptBox[ + OverscriptBox["R", "~"], "\[Chi]"], + StyleBox[GridBox[{ + {" ", " "}, + {"i", "j"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`Rtchi[-$CellContext`i, -$CellContext`j], + Editable->False]}]}]}, + { + RowBox[{ + InterpretationBox[ + StyleBox["R", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`trR[], + Editable->False], "\[Equal]", + RowBox[{ + InterpretationBox[ + StyleBox[GridBox[{ + {"\[Gamma]", + StyleBox[GridBox[{ + {"a", "b"}, + {" ", " "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`invgam[$CellContext`a, $CellContext`b], + Editable->False], " ", + InterpretationBox[ + StyleBox[GridBox[{ + {"R", + StyleBox[GridBox[{ + {" ", " "}, + {"a", "b"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`R[-$CellContext`a, -$CellContext`b], + Editable->False]}]}]} + }, + GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.5599999999999999]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + Column], + Function[BoxForm`e$, + TableForm[BoxForm`e$]]]], "Output", + CellChangeTimes->{3.929024473931591*^9, 3.929024556266985*^9, + 3.9290247638131523`*^9}, + CellLabel-> + "Out[10]//TableForm=",ExpressionUUID->"d02941c9-31c4-499f-9242-\ +cba52aec82e6"] +}, Open ]] +}, Open ]], + +Cell[CellGroupData[{ + +Cell["Matter", "Subsubsection", + CellChangeTimes->{{3.929019876085415*^9, + 3.9290198777301702`*^9}},ExpressionUUID->"0287564f-00d4-433c-9445-\ +ca9165b79b14"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"eqssof", "[", "MatterVarlist", "]"}], "//", "TableForm"}]], "Input",\ + + CellChangeTimes->{{3.929024383410981*^9, 3.929024406138372*^9}, { + 3.929024451260728*^9, 3.92902453923372*^9}, {3.929024593514805*^9, + 3.929024628884738*^9}}, + CellLabel->"In[11]:=",ExpressionUUID->"f824a446-751c-4d68-9e0e-02874034e76a"], + +Cell[BoxData[ + TagBox[ + TagBox[GridBox[{ + { + RowBox[{ + InterpretationBox[ + StyleBox["\[Rho]", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`rho[], + Editable->False], "\[Equal]", + FractionBox[ + RowBox[{ + RowBox[{ + InterpretationBox[ + StyleBox[GridBox[{ + {"\[Beta]", + StyleBox[GridBox[{ + {"a"}, + {" "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`beta[$CellContext`a], + Editable->False], " ", + InterpretationBox[ + StyleBox[GridBox[{ + {"\[Beta]", + StyleBox[GridBox[{ + {"b"}, + {" "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`beta[$CellContext`b], + Editable->False], " ", + InterpretationBox[ + StyleBox[GridBox[{ + {"T", + StyleBox[GridBox[{ + {" ", " "}, + {"a", "b"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`eT[-$CellContext`a, -$CellContext`b], + Editable->False]}], "-", + RowBox[{"2", " ", + InterpretationBox[ + StyleBox[GridBox[{ + {"\[Beta]", + StyleBox[GridBox[{ + {"b"}, + {" "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`beta[$CellContext`b], + Editable->False], " ", + InterpretationBox[ + StyleBox[GridBox[{ + { + SubscriptBox["T", "t"], + StyleBox[GridBox[{ + {" "}, + {"b"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`eTt[-$CellContext`b], + Editable->False]}], "+", + InterpretationBox[ + StyleBox[ + SubscriptBox["T", "tt"], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`eTtt[], + Editable->False]}], + SuperscriptBox[ + InterpretationBox[ + StyleBox["\[Alpha]", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`alpha[], + Editable->False], "2"]]}]}, + { + RowBox[{ + InterpretationBox[ + StyleBox[GridBox[{ + {"S", + StyleBox[GridBox[{ + {" "}, + {"i"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`Sm[-$CellContext`i], + Editable->False], "\[Equal]", + RowBox[{"-", + FractionBox[ + RowBox[{ + RowBox[{ + RowBox[{"-", + InterpretationBox[ + StyleBox[GridBox[{ + {"\[Beta]", + StyleBox[GridBox[{ + {"a"}, + {" "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + + GridBoxAlignment->{ + "Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`beta[$CellContext`a], + Editable->False]}], " ", + InterpretationBox[ + StyleBox[GridBox[{ + {"T", + StyleBox[GridBox[{ + {" ", " "}, + {"a", "i"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + + GridBoxAlignment->{ + "Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`eT[-$CellContext`a, -$CellContext`i], + Editable->False]}], "+", + InterpretationBox[ + StyleBox[GridBox[{ + { + SubscriptBox["T", "t"], + StyleBox[GridBox[{ + {" "}, + {"i"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`eTt[-$CellContext`i], + Editable->False]}], + InterpretationBox[ + StyleBox["\[Alpha]", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`alpha[], + Editable->False]]}]}]}, + { + RowBox[{ + InterpretationBox[ + StyleBox[GridBox[{ + {"S", + StyleBox[GridBox[{ + {" ", " "}, + {"i", "j"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`Ss[-$CellContext`i, -$CellContext`j], + Editable->False], "\[Equal]", + InterpretationBox[ + StyleBox[GridBox[{ + {"T", + StyleBox[GridBox[{ + {" ", " "}, + {"i", "j"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`eT[-$CellContext`i, -$CellContext`j], + Editable->False]}]}, + { + RowBox[{ + InterpretationBox[ + StyleBox["S", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`trSs[], + Editable->False], "\[Equal]", + RowBox[{ + InterpretationBox[ + StyleBox[GridBox[{ + {"\[Gamma]", + StyleBox[GridBox[{ + {"a", "b"}, + {" ", " "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`invgam[$CellContext`a, $CellContext`b], + Editable->False], " ", + InterpretationBox[ + StyleBox[GridBox[{ + {"S", + StyleBox[GridBox[{ + {" ", " "}, + {"a", "b"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`Ss[-$CellContext`a, -$CellContext`b], + Editable->False]}]}]} + }, + GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.5599999999999999]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + Column], + Function[BoxForm`e$, + TableForm[BoxForm`e$]]]], "Output", + CellChangeTimes->{{3.92902449744289*^9, 3.929024526401215*^9}, { + 3.929024598895005*^9, 3.9290246295990477`*^9}, 3.929024766230892*^9}, + CellLabel-> + "Out[11]//TableForm=",ExpressionUUID->"f043a7c6-ccec-4c50-bcd8-\ +7be0184a8e6a"] +}, Open ]] +}, Open ]], + +Cell[CellGroupData[{ + +Cell["dAtUU", "Subsubsection", + CellChangeTimes->{{3.9290199535998907`*^9, + 3.929019956863778*^9}},ExpressionUUID->"71eee9d4-1630-4b56-acb7-\ +b57c6d036a93"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"eqssof", "[", "dAtUUVarlist", "]"}], "//", "TableForm"}]], "Input",\ + + CellChangeTimes->{{3.929024383410981*^9, 3.929024406138372*^9}, { + 3.929024451260728*^9, 3.92902453923372*^9}, {3.929024593514805*^9, + 3.929024628884738*^9}, {3.929024678518619*^9, 3.929024687416381*^9}}, + CellLabel->"In[12]:=",ExpressionUUID->"11da6f55-1161-46a6-9908-762d17a32dae"], + +Cell[BoxData[ + TagBox[ + TagBox[GridBox[{ + { + RowBox[{ + InterpretationBox[ + StyleBox[GridBox[{ + { + RowBox[{"\[PartialD]", + OverscriptBox["A", "~"]}], + StyleBox[GridBox[{ + {"i"}, + {" "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`trdexAtUU[$CellContext`i], + Editable->False], "\[Equal]", + RowBox[{ + RowBox[{ + RowBox[{"-", + InterpretationBox[ + StyleBox[GridBox[{ + { + RowBox[{"\[PartialD]", + OverscriptBox["\[Gamma]", "~"]}], + StyleBox[GridBox[{ + {" ", " ", " "}, + {"a", "b", "c"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`dgamt[-$CellContext`a, -$CellContext`b, \ +-$CellContext`c], + Editable->False]}], " ", + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["A", "~"], + StyleBox[GridBox[{ + {"i", "c"}, + {" ", " "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`exAtUU[$CellContext`i, $CellContext`c], + Editable->False], " ", + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["\[Gamma]", "~"], + StyleBox[GridBox[{ + {"a", "b"}, + {" ", " "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`invgamt[$CellContext`a, $CellContext`b], + Editable->False]}], "-", + RowBox[{ + InterpretationBox[ + StyleBox[GridBox[{ + { + RowBox[{"\[PartialD]", + OverscriptBox["\[Gamma]", "~"]}], + StyleBox[GridBox[{ + {" ", " ", " "}, + {"a", "b", "c"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`dgamt[-$CellContext`a, -$CellContext`b, \ +-$CellContext`c], + Editable->False], " ", + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["A", "~"], + StyleBox[GridBox[{ + {"a", "c"}, + {" ", " "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`exAtUU[$CellContext`a, $CellContext`c], + Editable->False], " ", + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["\[Gamma]", "~"], + StyleBox[GridBox[{ + {"i", "b"}, + {" ", " "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`invgamt[$CellContext`i, $CellContext`b], + Editable->False]}], "+", + RowBox[{ + InterpretationBox[ + StyleBox[GridBox[{ + { + RowBox[{"\[PartialD]", + OverscriptBox["A", "~"]}], + StyleBox[GridBox[{ + {" ", " ", " "}, + {"a", "b", "c"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`dexAt[-$CellContext`a, -$CellContext`b, \ +-$CellContext`c], + Editable->False], " ", + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["\[Gamma]", "~"], + StyleBox[GridBox[{ + {"a", "c"}, + {" ", " "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`invgamt[$CellContext`a, $CellContext`c], + Editable->False], " ", + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["\[Gamma]", "~"], + StyleBox[GridBox[{ + {"i", "b"}, + {" ", " "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`invgamt[$CellContext`i, $CellContext`b], + Editable->False]}]}]}]} + }, + GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.5599999999999999]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + Column], + Function[BoxForm`e$, + TableForm[BoxForm`e$]]]], "Output", + CellChangeTimes->{3.9290246895199423`*^9, 3.929024769261507*^9}, + CellLabel-> + "Out[12]//TableForm=",ExpressionUUID->"51088f94-6996-4763-bd83-\ +71f2c6374eb2"] +}, Open ]] +}, Open ]], + +Cell[CellGroupData[{ + +Cell["Constraint", "Subsubsection", + CellChangeTimes->{{3.929010438218876*^9, + 3.929010439390278*^9}},ExpressionUUID->"4c82ece6-45bc-4ae9-a3db-\ +3146ef191f5a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"eqssof", "[", "ConstraintVarlist", "]"}], "//", + "TableForm"}]], "Input", + CellChangeTimes->{{3.929024383410981*^9, 3.929024406138372*^9}, { + 3.929024451260728*^9, 3.92902453923372*^9}, {3.929024593514805*^9, + 3.929024628884738*^9}, {3.929024678518619*^9, 3.929024687416381*^9}, { + 3.9290247783845987`*^9, 3.929024785087817*^9}}, + CellLabel->"In[13]:=",ExpressionUUID->"bdbcbf98-0b60-482a-9cb7-363b469ac67f"], + +Cell[BoxData[ + TagBox[ + TagBox[GridBox[{ + { + RowBox[{ + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["Z", "~"], + StyleBox[GridBox[{ + {"i"}, + {" "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`ZtC[$CellContext`i], + Editable->False], "\[Equal]", + RowBox[{ + FractionBox["1", "2"], " ", + RowBox[{"(", + RowBox[{ + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["\[CapitalGamma]", "~"], + StyleBox[GridBox[{ + {"i"}, + {" "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`trGt[$CellContext`i], + Editable->False], "-", + InterpretationBox[ + StyleBox[GridBox[{ + { + RowBox[{"(", + SubscriptBox[ + OverscriptBox["\[CapitalGamma]", "~"], "d"], ")"}], + StyleBox[GridBox[{ + {"i"}, + {" "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`trGtd[$CellContext`i], + Editable->False]}], ")"}]}]}]}, + { + RowBox[{ + InterpretationBox[ + StyleBox["H", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`HC[], + Editable->False], "\[Equal]", + RowBox[{ + RowBox[{ + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["A", "~"], + StyleBox[GridBox[{ + {" ", " "}, + {"a", "b"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`exAt[-$CellContext`a, -$CellContext`b], + Editable->False], " ", + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["A", "~"], + StyleBox[GridBox[{ + {"a", "b"}, + {" ", " "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`exAtUU[$CellContext`a, $CellContext`b], + Editable->False]}], "-", + RowBox[{"16", " ", + InterpretationBox[ + StyleBox["\[Pi]", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`cpi, + Editable->False], " ", + InterpretationBox[ + StyleBox["\[Rho]", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`rho[], + Editable->False]}], "-", + RowBox[{ + FractionBox["2", "3"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + InterpretationBox[ + StyleBox[ + OverscriptBox["K", "^"], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`exKh[], + Editable->False], "+", + RowBox[{"2", " ", + InterpretationBox[ + StyleBox["\[CapitalTheta]", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`Theta[], + Editable->False]}]}], ")"}], "2"]}], "+", + InterpretationBox[ + StyleBox["R", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`trR[], + Editable->False]}]}]}, + { + RowBox[{ + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["M", "~"], + StyleBox[GridBox[{ + {"i"}, + {" "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`MtC[$CellContext`i], + Editable->False], "\[Equal]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"2", " ", + InterpretationBox[ + StyleBox[GridBox[{ + { + RowBox[{"\[PartialD]", "\[Chi]"}], + StyleBox[GridBox[{ + {" "}, + {"a"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + + GridBoxAlignment->{ + "Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`dchi[-$CellContext`a], + Editable->False], " ", + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["A", "~"], + StyleBox[GridBox[{ + {"i", "a"}, + {" ", " "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + + GridBoxAlignment->{ + "Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`exAtUU[$CellContext`i, $CellContext`a], + Editable->False]}], + RowBox[{"3", " ", + InterpretationBox[ + StyleBox["\[Chi]", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`chi[], + Editable->False]}]]}], "+", + RowBox[{ + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["A", "~"], + StyleBox[GridBox[{ + {"a", "b"}, + {" ", " "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`exAtUU[$CellContext`a, $CellContext`b], + Editable->False], " ", + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["\[CapitalGamma]", "~"], + StyleBox[GridBox[{ + {"i", " ", " "}, + {" ", "a", "b"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`Gt[$CellContext`i, -$CellContext`a, -$CellContext`b], + Editable->False]}], "-", + RowBox[{ + FractionBox["2", "3"], " ", + RowBox[{"(", + RowBox[{ + InterpretationBox[ + StyleBox[GridBox[{ + { + RowBox[{"\[PartialD]", + OverscriptBox["K", "^"]}], + StyleBox[GridBox[{ + {" "}, + {"a"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + + GridBoxAlignment->{ + "Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`dexKh[-$CellContext`a], + Editable->False], "+", + RowBox[{"2", " ", + InterpretationBox[ + StyleBox[GridBox[{ + { + RowBox[{"\[PartialD]", "\[CapitalTheta]"}], + StyleBox[GridBox[{ + {" "}, + {"a"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + + GridBoxAlignment->{ + "Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`dTheta[-$CellContext`a], + Editable->False]}]}], ")"}], " ", + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["\[Gamma]", "~"], + StyleBox[GridBox[{ + {"i", "a"}, + {" ", " "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`invgamt[$CellContext`i, $CellContext`a], + Editable->False]}], "-", + RowBox[{"8", " ", + InterpretationBox[ + StyleBox["\[Pi]", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`cpi, + Editable->False], " ", + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["\[Gamma]", "~"], + StyleBox[GridBox[{ + {"i", "a"}, + {" ", " "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`invgamt[$CellContext`i, $CellContext`a], + Editable->False], " ", + InterpretationBox[ + StyleBox[GridBox[{ + {"S", + StyleBox[GridBox[{ + {" "}, + {"a"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`Sm[-$CellContext`a], + Editable->False]}], "+", + InterpretationBox[ + StyleBox[GridBox[{ + { + RowBox[{"\[PartialD]", + OverscriptBox["A", "~"]}], + StyleBox[GridBox[{ + {"i"}, + {" "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`trdexAtUU[$CellContext`i], + Editable->False]}]}]} + }, + GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.5599999999999999]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + Column], + Function[BoxForm`e$, + TableForm[BoxForm`e$]]]], "Output", + CellChangeTimes->{3.9290247859458923`*^9}, + CellLabel-> + "Out[13]//TableForm=",ExpressionUUID->"c734641f-bad8-4b02-a808-\ +a9698b4527c0"] +}, Open ]] +}, Open ]] +}, Open ]], + +Cell[CellGroupData[{ + +Cell["EOM", "Subsection", + CellChangeTimes->{{3.929009393980769*^9, + 3.929009396658312*^9}},ExpressionUUID->"920279f5-ee9e-4dc5-b72f-\ +c3be20398e5f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"eqssof", "[", "dtEvolVarlist", "]"}], "//", "TableForm"}]], "Input",\ + + CellChangeTimes->{{3.929024383410981*^9, 3.929024406138372*^9}, { + 3.929024451260728*^9, 3.92902453923372*^9}, {3.929024593514805*^9, + 3.929024628884738*^9}, {3.929024678518619*^9, 3.929024687416381*^9}, { + 3.9290247783845987`*^9, 3.929024813675012*^9}}, + CellLabel->"In[14]:=",ExpressionUUID->"1e84ed0f-aaf2-45a5-8ef2-0d6ed6beeba9"], + +Cell[BoxData[ + TagBox[ + TagBox[GridBox[{ + { + RowBox[{ + InterpretationBox[ + StyleBox[ + RowBox[{ + SubscriptBox["\[PartialD]", "t"], "\[Chi]"}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`dtchi[], + Editable->False], "\[Equal]", + RowBox[{ + FractionBox["2", "3"], " ", + InterpretationBox[ + StyleBox["\[Chi]", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`chi[], + Editable->False], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + InterpretationBox[ + StyleBox[GridBox[{ + { + RowBox[{"\[PartialD]", "\[Beta]"}], + StyleBox[GridBox[{ + {" ", "a"}, + {"a", " "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + + GridBoxAlignment->{ + "Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`dbeta[-$CellContext`a, $CellContext`a], + Editable->False]}], "+", + RowBox[{ + InterpretationBox[ + StyleBox["\[Alpha]", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`alpha[], + Editable->False], " ", + RowBox[{"(", + RowBox[{ + InterpretationBox[ + StyleBox[ + OverscriptBox["K", "^"], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`exKh[], + Editable->False], "+", + RowBox[{"2", " ", + InterpretationBox[ + StyleBox["\[CapitalTheta]", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`Theta[], + Editable->False]}]}], ")"}]}]}], ")"}]}]}]}, + { + RowBox[{ + InterpretationBox[ + StyleBox[GridBox[{ + { + RowBox[{ + SubscriptBox["\[PartialD]", "t"], + OverscriptBox["\[Gamma]", "~"]}], + StyleBox[GridBox[{ + {" ", " "}, + {"i", "j"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`dtgamt[-$CellContext`i, -$CellContext`j], + Editable->False], "\[Equal]", + RowBox[{ + RowBox[{ + RowBox[{"-", "2"}], " ", + InterpretationBox[ + StyleBox["\[Alpha]", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`alpha[], + Editable->False], " ", + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["A", "~"], + StyleBox[GridBox[{ + {" ", " "}, + {"i", "j"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`exAt[-$CellContext`i, -$CellContext`j], + Editable->False]}], "+", + RowBox[{ + InterpretationBox[ + StyleBox[GridBox[{ + { + RowBox[{"\[PartialD]", "\[Beta]"}], + StyleBox[GridBox[{ + {" ", "a"}, + {"j", " "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`dbeta[-$CellContext`j, $CellContext`a], + Editable->False], " ", + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["\[Gamma]", "~"], + StyleBox[GridBox[{ + {" ", " "}, + {"a", "i"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`gamt[-$CellContext`a, -$CellContext`i], + Editable->False]}], "+", + RowBox[{ + InterpretationBox[ + StyleBox[GridBox[{ + { + RowBox[{"\[PartialD]", "\[Beta]"}], + StyleBox[GridBox[{ + {" ", "a"}, + {"i", " "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`dbeta[-$CellContext`i, $CellContext`a], + Editable->False], " ", + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["\[Gamma]", "~"], + StyleBox[GridBox[{ + {" ", " "}, + {"a", "j"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`gamt[-$CellContext`a, -$CellContext`j], + Editable->False]}], "-", + RowBox[{ + FractionBox["2", "3"], " ", + InterpretationBox[ + StyleBox[GridBox[{ + { + RowBox[{"\[PartialD]", "\[Beta]"}], + StyleBox[GridBox[{ + {" ", "a"}, + {"a", " "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`dbeta[-$CellContext`a, $CellContext`a], + Editable->False], " ", + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["\[Gamma]", "~"], + StyleBox[GridBox[{ + {" ", " "}, + {"i", "j"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`gamt[-$CellContext`i, -$CellContext`j], + Editable->False]}]}]}]}, + { + RowBox[{ + InterpretationBox[ + StyleBox[ + RowBox[{ + SubscriptBox["\[PartialD]", "t"], + OverscriptBox["K", "^"]}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`dtexKh[], + Editable->False], "\[Equal]", + RowBox[{ + RowBox[{ + RowBox[{"-", + InterpretationBox[ + StyleBox[GridBox[{ + {"DD\[Alpha]", + StyleBox[GridBox[{ + {" ", " "}, + {"a", "b"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`DDalpha[-$CellContext`a, -$CellContext`b], + Editable->False]}], " ", + InterpretationBox[ + StyleBox[GridBox[{ + {"\[Gamma]", + StyleBox[GridBox[{ + {"a", "b"}, + {" ", " "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`invgam[$CellContext`a, $CellContext`b], + Editable->False]}], "+", + RowBox[{ + InterpretationBox[ + StyleBox[ + SubscriptBox["\[Kappa]", "1"], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`ckappa1, + Editable->False], " ", + RowBox[{"(", + RowBox[{"1", "-", + InterpretationBox[ + StyleBox[ + SubscriptBox["\[Kappa]", "2"], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`ckappa2, + Editable->False]}], ")"}], " ", + InterpretationBox[ + StyleBox["\[Alpha]", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`alpha[], + Editable->False], " ", + InterpretationBox[ + StyleBox["\[CapitalTheta]", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`Theta[], + Editable->False]}], "+", + RowBox[{ + InterpretationBox[ + StyleBox["\[Alpha]", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`alpha[], + Editable->False], " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["A", "~"], + StyleBox[GridBox[{ + {" ", " "}, + {"a", "b"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + + GridBoxAlignment->{ + "Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`exAt[-$CellContext`a, -$CellContext`b], + Editable->False], " ", + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["A", "~"], + StyleBox[GridBox[{ + {"a", "b"}, + {" ", " "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + + GridBoxAlignment->{ + "Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`exAtUU[$CellContext`a, $CellContext`b], + Editable->False]}], "+", + RowBox[{ + FractionBox["1", "3"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + InterpretationBox[ + StyleBox[ + OverscriptBox["K", "^"], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`exKh[], + Editable->False], "+", + RowBox[{"2", " ", + InterpretationBox[ + StyleBox["\[CapitalTheta]", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`Theta[], + Editable->False]}]}], ")"}], "2"]}]}], ")"}]}], "+", + RowBox[{"4", " ", + InterpretationBox[ + StyleBox["\[Pi]", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`cpi, + Editable->False], " ", + InterpretationBox[ + StyleBox["\[Alpha]", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`alpha[], + Editable->False], " ", + RowBox[{"(", + RowBox[{ + InterpretationBox[ + StyleBox["\[Rho]", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`rho[], + Editable->False], "+", + InterpretationBox[ + StyleBox["S", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`trSs[], + Editable->False]}], ")"}]}]}]}]}, + { + RowBox[{ + InterpretationBox[ + StyleBox[GridBox[{ + { + RowBox[{ + SubscriptBox["\[PartialD]", "t"], + OverscriptBox["A", "~"]}], + StyleBox[GridBox[{ + {" ", " "}, + {"i", "j"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`dtexAt[-$CellContext`i, -$CellContext`j], + Editable->False], "\[Equal]", + RowBox[{ + RowBox[{ + InterpretationBox[ + StyleBox[GridBox[{ + { + RowBox[{"\[PartialD]", "\[Beta]"}], + StyleBox[GridBox[{ + {" ", "a"}, + {"j", " "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`dbeta[-$CellContext`j, $CellContext`a], + Editable->False], " ", + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["A", "~"], + StyleBox[GridBox[{ + {" ", " "}, + {"a", "i"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`exAt[-$CellContext`a, -$CellContext`i], + Editable->False]}], "+", + RowBox[{ + InterpretationBox[ + StyleBox[GridBox[{ + { + RowBox[{"\[PartialD]", "\[Beta]"}], + StyleBox[GridBox[{ + {" ", "a"}, + {"i", " "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`dbeta[-$CellContext`i, $CellContext`a], + Editable->False], " ", + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["A", "~"], + StyleBox[GridBox[{ + {" ", " "}, + {"a", "j"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`exAt[-$CellContext`a, -$CellContext`j], + Editable->False]}], "-", + RowBox[{ + FractionBox["2", "3"], " ", + InterpretationBox[ + StyleBox[GridBox[{ + { + RowBox[{"\[PartialD]", "\[Beta]"}], + StyleBox[GridBox[{ + {" ", "a"}, + {"a", " "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`dbeta[-$CellContext`a, $CellContext`a], + Editable->False], " ", + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["A", "~"], + StyleBox[GridBox[{ + {" ", " "}, + {"i", "j"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`exAt[-$CellContext`i, -$CellContext`j], + Editable->False]}], "+", + RowBox[{ + InterpretationBox[ + StyleBox["\[Chi]", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`chi[], + Editable->False], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + InterpretationBox[ + StyleBox[GridBox[{ + {"DD\[Alpha]", + StyleBox[GridBox[{ + {" ", " "}, + {"i", "j"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + + GridBoxAlignment->{ + "Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`DDalpha[-$CellContext`i, -$CellContext`j], + Editable->False]}], "-", + RowBox[{ + FractionBox["1", "3"], " ", + InterpretationBox[ + StyleBox[GridBox[{ + {"\[Gamma]", + StyleBox[GridBox[{ + {" ", " "}, + {"i", "j"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + + GridBoxAlignment->{ + "Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`gam[-$CellContext`i, -$CellContext`j], + Editable->False], " ", + InterpretationBox[ + StyleBox[GridBox[{ + {"\[Gamma]", + StyleBox[GridBox[{ + {"a", "b"}, + {" ", " "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + + GridBoxAlignment->{ + "Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`invgam[$CellContext`a, $CellContext`b], + Editable->False], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + InterpretationBox[ + StyleBox[GridBox[{ + {"DD\[Alpha]", + StyleBox[GridBox[{ + {" ", " "}, + {"a", "b"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + + GridBoxAlignment->{ + "Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`DDalpha[-$CellContext`a, -$CellContext`b], + Editable->False]}], "+", + RowBox[{ + InterpretationBox[ + StyleBox["\[Alpha]", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`alpha[], + Editable->False], " ", + RowBox[{"(", + RowBox[{ + InterpretationBox[ + StyleBox[GridBox[{ + {"R", + StyleBox[GridBox[{ + {" ", " "}, + {"a", "b"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + + GridBoxAlignment->{ + "Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`R[-$CellContext`a, -$CellContext`b], + Editable->False], "-", + RowBox[{"8", " ", + InterpretationBox[ + StyleBox["\[Pi]", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`cpi, + Editable->False], " ", + InterpretationBox[ + StyleBox[GridBox[{ + {"S", + StyleBox[GridBox[{ + {" ", " "}, + {"a", "b"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + + GridBoxAlignment->{ + "Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`Ss[-$CellContext`a, -$CellContext`b], + Editable->False]}]}], ")"}]}]}], ")"}]}], "+", + RowBox[{ + InterpretationBox[ + StyleBox["\[Alpha]", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`alpha[], + Editable->False], " ", + RowBox[{"(", + RowBox[{ + InterpretationBox[ + StyleBox[GridBox[{ + {"R", + StyleBox[GridBox[{ + {" ", " "}, + {"i", "j"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + + GridBoxAlignment->{ + "Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`R[-$CellContext`i, -$CellContext`j], + Editable->False], "-", + RowBox[{"8", " ", + InterpretationBox[ + StyleBox["\[Pi]", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`cpi, + Editable->False], " ", + InterpretationBox[ + StyleBox[GridBox[{ + {"S", + StyleBox[GridBox[{ + {" ", " "}, + {"i", "j"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + + GridBoxAlignment->{ + "Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`Ss[-$CellContext`i, -$CellContext`j], + Editable->False]}]}], ")"}]}]}], ")"}]}], "+", + RowBox[{ + InterpretationBox[ + StyleBox["\[Alpha]", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`alpha[], + Editable->False], " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"-", "2"}], " ", + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["A", "~"], + StyleBox[GridBox[{ + {" ", " "}, + {"a", "i"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + + GridBoxAlignment->{ + "Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`exAt[-$CellContext`a, -$CellContext`i], + Editable->False], " ", + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["A", "~"], + StyleBox[GridBox[{ + {" ", " "}, + {"b", "j"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + + GridBoxAlignment->{ + "Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`exAt[-$CellContext`b, -$CellContext`j], + Editable->False], " ", + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["\[Gamma]", "~"], + StyleBox[GridBox[{ + {"a", "b"}, + {" ", " "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + + GridBoxAlignment->{ + "Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`invgamt[$CellContext`a, $CellContext`b], + Editable->False]}], "+", + RowBox[{ + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["A", "~"], + StyleBox[GridBox[{ + {" ", " "}, + {"i", "j"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + + GridBoxAlignment->{ + "Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`exAt[-$CellContext`i, -$CellContext`j], + Editable->False], " ", + RowBox[{"(", + RowBox[{ + InterpretationBox[ + StyleBox[ + OverscriptBox["K", "^"], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`exKh[], + Editable->False], "+", + RowBox[{"2", " ", + InterpretationBox[ + StyleBox["\[CapitalTheta]", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`Theta[], + Editable->False]}]}], ")"}]}]}], ")"}]}]}]}]}, + { + RowBox[{ + InterpretationBox[ + StyleBox[GridBox[{ + { + RowBox[{ + SubscriptBox["\[PartialD]", "t"], + OverscriptBox["\[CapitalGamma]", "~"]}], + StyleBox[GridBox[{ + {"i"}, + {" "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`dttrGt[$CellContext`i], + Editable->False], "\[Equal]", + RowBox[{ + RowBox[{ + RowBox[{"-", "2"}], " ", + InterpretationBox[ + StyleBox[GridBox[{ + { + RowBox[{"\[PartialD]", "\[Alpha]"}], + StyleBox[GridBox[{ + {" "}, + {"a"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`dalpha[-$CellContext`a], + Editable->False], " ", + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["A", "~"], + StyleBox[GridBox[{ + {"i", "a"}, + {" ", " "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`exAtUU[$CellContext`i, $CellContext`a], + Editable->False]}], "+", + RowBox[{ + InterpretationBox[ + StyleBox[GridBox[{ + { + RowBox[{"\[PartialD]", + RowBox[{"\[PartialD]", "\[Beta]"}]}], + StyleBox[GridBox[{ + {" ", " ", "i"}, + {"a", "b", " "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`ddbeta[-$CellContext`a, -$CellContext`b, \ +$CellContext`i], + Editable->False], " ", + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["\[Gamma]", "~"], + StyleBox[GridBox[{ + {"a", "b"}, + {" ", " "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`invgamt[$CellContext`a, $CellContext`b], + Editable->False]}], "+", + RowBox[{ + FractionBox["1", "3"], " ", + InterpretationBox[ + StyleBox[GridBox[{ + { + RowBox[{"\[PartialD]", + RowBox[{"\[PartialD]", "\[Beta]"}]}], + StyleBox[GridBox[{ + {" ", " ", "b"}, + {"a", "b", " "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`ddbeta[-$CellContext`a, -$CellContext`b, \ +$CellContext`b], + Editable->False], " ", + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["\[Gamma]", "~"], + StyleBox[GridBox[{ + {"i", "a"}, + {" ", " "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`invgamt[$CellContext`i, $CellContext`a], + Editable->False]}], "+", + RowBox[{"2", " ", + InterpretationBox[ + StyleBox["\[Alpha]", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`alpha[], + Editable->False], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"3", " ", + InterpretationBox[ + StyleBox[GridBox[{ + { + RowBox[{"\[PartialD]", "\[Chi]"}], + StyleBox[GridBox[{ + {" "}, + {"a"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + + GridBoxAlignment->{ + "Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`dchi[-$CellContext`a], + Editable->False], " ", + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["A", "~"], + StyleBox[GridBox[{ + {"i", "a"}, + {" ", " "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + + GridBoxAlignment->{ + "Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`exAtUU[$CellContext`i, $CellContext`a], + Editable->False]}], + RowBox[{"2", " ", + InterpretationBox[ + StyleBox["\[Chi]", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`chi[], + Editable->False]}]]}], "+", + RowBox[{ + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["A", "~"], + StyleBox[GridBox[{ + {"a", "b"}, + {" ", " "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + + GridBoxAlignment->{ + "Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`exAtUU[$CellContext`a, $CellContext`b], + Editable->False], " ", + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["\[CapitalGamma]", "~"], + StyleBox[GridBox[{ + {"i", " ", " "}, + {" ", "a", "b"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + + GridBoxAlignment->{ + "Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`Gt[$CellContext`i, -$CellContext`a, -$CellContext`b], + Editable->False]}], "-", + RowBox[{ + FractionBox["1", "3"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"2", " ", + InterpretationBox[ + StyleBox[GridBox[{ + { + RowBox[{"\[PartialD]", + OverscriptBox["K", "^"]}], + StyleBox[GridBox[{ + {" "}, + {"a"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + + GridBoxAlignment->{ + "Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`dexKh[-$CellContext`a], + Editable->False]}], "+", + InterpretationBox[ + StyleBox[GridBox[{ + { + RowBox[{"\[PartialD]", "\[CapitalTheta]"}], + StyleBox[GridBox[{ + {" "}, + {"a"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + + GridBoxAlignment->{ + "Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`dTheta[-$CellContext`a], + Editable->False]}], ")"}], " ", + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["\[Gamma]", "~"], + StyleBox[GridBox[{ + {"i", "a"}, + {" ", " "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + + GridBoxAlignment->{ + "Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`invgamt[$CellContext`i, $CellContext`a], + Editable->False]}], "-", + RowBox[{"8", " ", + InterpretationBox[ + StyleBox["\[Pi]", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`cpi, + Editable->False], " ", + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["\[Gamma]", "~"], + StyleBox[GridBox[{ + {"i", "a"}, + {" ", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { @@ -5226,58 +5913,44 @@ Cell[BoxData[ Offset[0.2]}}], ShowAutoStyles->False, AutoSpacing->False], - $CellContext`R[-$CellContext`a, -$CellContext`b], - Editable->False], "-", - RowBox[{"8", " ", - InterpretationBox[ - StyleBox["\[Pi]", - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`cpi, - Editable->False], " ", - InterpretationBox[ - StyleBox[GridBox[{ - {"S", - StyleBox[GridBox[{ - {" ", " "}, - {"a", "b"} - }, - GridBoxSpacings->{"Columns" -> { + $CellContext`invgamt[$CellContext`i, $CellContext`a], + Editable->False], " ", + InterpretationBox[ + StyleBox[GridBox[{ + {"S", + StyleBox[GridBox[{ + {" "}, + {"a"} + }, + GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "Rows" -> {{ Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - - GridBoxAlignment->{ - "Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { + FontSize->Rational[39, 4]]} + }, + + GridBoxAlignment->{ + "Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`Ss[-$CellContext`a, -$CellContext`b], - Editable->False]}]}], ")"}]}]}], ")"}]}], "+", - RowBox[{ - InterpretationBox[ - StyleBox["\[Alpha]", - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`alpha[], - Editable->False], " ", - RowBox[{"(", + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`Sm[-$CellContext`a], + Editable->False]}]}], ")"}]}], "-", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ - {"R", + { + RowBox[{"\[PartialD]", "\[Beta]"}], StyleBox[GridBox[{ - {" ", " "}, - {"i", "j"} + {" ", "i"}, + {"a", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { @@ -5297,412 +5970,123 @@ Cell[BoxData[ Offset[0.2]}}], ShowAutoStyles->False, AutoSpacing->False], - $CellContext`R[-$CellContext`i, -$CellContext`j], - Editable->False], "-", - RowBox[{"8", " ", - InterpretationBox[ - StyleBox["\[Pi]", - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`cpi, - Editable->False], " ", - InterpretationBox[ - StyleBox[GridBox[{ - {"S", - StyleBox[GridBox[{ - {" ", " "}, - {"i", "j"} - }, - GridBoxSpacings->{"Columns" -> { + $CellContext`dbeta[-$CellContext`a, $CellContext`i], + Editable->False], " ", + InterpretationBox[ + StyleBox[GridBox[{ + { + RowBox[{"(", + SubscriptBox[ + OverscriptBox["\[CapitalGamma]", "~"], "d"], ")"}], + StyleBox[GridBox[{ + {"a"}, + {" "} + }, + GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "Rows" -> {{ Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`Ss[-$CellContext`i, -$CellContext`j], - Editable->False]}]}], ")"}]}]}], ")"}]}], "+", - RowBox[{ - InterpretationBox[ - StyleBox["\[Alpha]", - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`alpha[], - Editable->False], " ", - RowBox[{"(", - RowBox[{ - RowBox[{ - RowBox[{"-", "2"}], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["A", "~"], - StyleBox[GridBox[{ - {" ", " "}, - {"a", "i"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`exAt[-$CellContext`a, -$CellContext`i], - Editable->False], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["A", "~"], - StyleBox[GridBox[{ - {" ", " "}, - {"b", "j"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`exAt[-$CellContext`b, -$CellContext`j], - Editable->False], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["\[Gamma]", "~"], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`trGtd[$CellContext`a], + Editable->False]}], "-", + RowBox[{"2", " ", + InterpretationBox[ + StyleBox[ + SubscriptBox["\[Kappa]", "1"], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`ckappa1, + Editable->False], " ", + InterpretationBox[ + StyleBox["\[Alpha]", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`alpha[], + Editable->False], " ", + RowBox[{"(", + RowBox[{ + InterpretationBox[ StyleBox[GridBox[{ - {"a", "b"}, - {" ", " "} + { + OverscriptBox["\[CapitalGamma]", "~"], + StyleBox[GridBox[{ + {"i"}, + {" "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} }, + + GridBoxAlignment->{ + "Columns" -> {{Center}}, "Rows" -> {{Center}}}, GridBoxSpacings->{"Columns" -> { - Offset[0.], { + Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`invgamt[$CellContext`a, $CellContext`b], - Editable->False]}], "+", - RowBox[{ - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["A", "~"], + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`trGt[$CellContext`i], + Editable->False], "-", + InterpretationBox[ StyleBox[GridBox[{ - {" ", " "}, - {"i", "j"} + { + RowBox[{"(", + SubscriptBox[ + OverscriptBox["\[CapitalGamma]", "~"], "d"], ")"}], + StyleBox[GridBox[{ + {"i"}, + {" "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} }, + + GridBoxAlignment->{ + "Columns" -> {{Center}}, "Rows" -> {{Center}}}, GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`exAt[-$CellContext`i, -$CellContext`j], - Editable->False], " ", - RowBox[{"(", - RowBox[{ - InterpretationBox[ - StyleBox[ - OverscriptBox["K", "^"], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`exKh[], - Editable->False], "+", - RowBox[{"2", " ", - InterpretationBox[ - StyleBox["\[CapitalTheta]", - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`Theta[], - Editable->False]}]}], ")"}]}]}], ")"}]}]}]}]], "Output", - CellChangeTimes->{3.9290195268168697`*^9, 3.929020126957885*^9}, - CellLabel->"Out[39]=",ExpressionUUID->"034d5a2f-04ad-4893-9877-07d370834972"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{"eqssof", "[", "dtEvolVarlist", "]"}], "[", - RowBox[{"[", "5", "]"}], "]"}]], "Input", - CellChangeTimes->{{3.9290193804645977`*^9, 3.929019385741303*^9}, { - 3.92901945574961*^9, 3.92901948992594*^9}, {3.929019530258*^9, - 3.9290195308869953`*^9}}, - CellLabel->"In[40]:=",ExpressionUUID->"eb82a071-e297-4595-a783-ceb140127e99"], - -Cell[BoxData[ - RowBox[{ - InterpretationBox[ - StyleBox[GridBox[{ - { - RowBox[{ - SubscriptBox["\[PartialD]", "t"], - OverscriptBox["\[CapitalGamma]", "~"]}], - StyleBox[GridBox[{ - {"i"}, - {" "} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`dttrGt[$CellContext`i], - Editable->False], "\[Equal]", - RowBox[{ - RowBox[{ - RowBox[{"-", "2"}], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - RowBox[{"\[PartialD]", "\[Alpha]"}], - StyleBox[GridBox[{ - {" "}, - {"a"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`dalpha[-$CellContext`a], - Editable->False], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["A", "~"], - StyleBox[GridBox[{ - {"i", "a"}, - {" ", " "} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`exAtUU[$CellContext`i, $CellContext`a], - Editable->False]}], "+", - RowBox[{ - InterpretationBox[ - StyleBox[GridBox[{ - { - RowBox[{"\[PartialD]", - RowBox[{"\[PartialD]", "\[Beta]"}]}], - StyleBox[GridBox[{ - {" ", " ", "i"}, - {"a", "b", " "} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`ddbeta[-$CellContext`a, -$CellContext`b, $CellContext`i], - Editable->False], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["\[Gamma]", "~"], - StyleBox[GridBox[{ - {"a", "b"}, - {" ", " "} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`invgamt[$CellContext`a, $CellContext`b], - Editable->False]}], "+", - RowBox[{ - FractionBox["1", "3"], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - RowBox[{"\[PartialD]", - RowBox[{"\[PartialD]", "\[Beta]"}]}], - StyleBox[GridBox[{ - {" ", " ", "b"}, - {"a", "b", " "} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`ddbeta[-$CellContext`a, -$CellContext`b, $CellContext`b], - Editable->False], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["\[Gamma]", "~"], - StyleBox[GridBox[{ - {"i", "a"}, - {" ", " "} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`invgamt[$CellContext`i, $CellContext`a], - Editable->False]}], "+", - RowBox[{"2", " ", - InterpretationBox[ - StyleBox["\[Alpha]", - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`alpha[], - Editable->False], " ", - RowBox[{"(", - RowBox[{ - RowBox[{"-", - FractionBox[ - RowBox[{"3", " ", + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`trGtd[$CellContext`i], + Editable->False]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "3"], " ", InterpretationBox[ StyleBox[GridBox[{ { - RowBox[{"\[PartialD]", "\[Chi]"}], + RowBox[{"\[PartialD]", "\[Beta]"}], StyleBox[GridBox[{ - {" "}, - {"a"} + {" ", "a"}, + {"a", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { @@ -5722,15 +6106,17 @@ Cell[BoxData[ Offset[0.2]}}], ShowAutoStyles->False, AutoSpacing->False], - $CellContext`dchi[-$CellContext`a], + $CellContext`dbeta[-$CellContext`a, $CellContext`a], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ { - OverscriptBox["A", "~"], + RowBox[{"(", + SubscriptBox[ + OverscriptBox["\[CapitalGamma]", "~"], "d"], ")"}], StyleBox[GridBox[{ - {"i", "a"}, - {" ", " "} + {"i"}, + {" "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { @@ -5750,523 +6136,203 @@ Cell[BoxData[ Offset[0.2]}}], ShowAutoStyles->False, AutoSpacing->False], - $CellContext`exAtUU[$CellContext`i, $CellContext`a], - Editable->False]}], - RowBox[{"2", " ", - InterpretationBox[ - StyleBox["\[Chi]", - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`chi[], - Editable->False]}]]}], "+", + $CellContext`trGtd[$CellContext`i], + Editable->False]}]}]}]}, + { RowBox[{ InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["A", "~"], - StyleBox[GridBox[{ - {"a", "b"}, - {" ", " "} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`exAtUU[$CellContext`a, $CellContext`b], - Editable->False], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["\[CapitalGamma]", "~"], - StyleBox[GridBox[{ - {"i", " ", " "}, - {" ", "a", "b"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], + StyleBox[ + RowBox[{ + SubscriptBox["\[PartialD]", "t"], "\[CapitalTheta]"}], ShowAutoStyles->False, AutoSpacing->False], - $CellContext`Gt[$CellContext`i, -$CellContext`a, -$CellContext`b], - Editable->False]}], "-", - RowBox[{ - FractionBox["1", "3"], " ", - RowBox[{"(", + $CellContext`dtTheta[], + Editable->False], "\[Equal]", + RowBox[{ RowBox[{ - RowBox[{"2", " ", + RowBox[{"-", InterpretationBox[ - StyleBox[GridBox[{ - { - RowBox[{"\[PartialD]", - OverscriptBox["K", "^"]}], - StyleBox[GridBox[{ - {" "}, - {"a"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], + StyleBox["\[Alpha]", ShowAutoStyles->False, AutoSpacing->False], - $CellContext`dexKh[-$CellContext`a], - Editable->False]}], "+", + $CellContext`alpha[], + Editable->False]}], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"8", " ", + InterpretationBox[ + StyleBox["\[Pi]", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`cpi, + Editable->False], " ", + InterpretationBox[ + StyleBox["\[Rho]", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`rho[], + Editable->False]}], "+", + RowBox[{ + InterpretationBox[ + StyleBox[ + SubscriptBox["\[Kappa]", "1"], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`ckappa1, + Editable->False], " ", + RowBox[{"(", + RowBox[{"2", "+", + InterpretationBox[ + StyleBox[ + SubscriptBox["\[Kappa]", "2"], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`ckappa2, + Editable->False]}], ")"}], " ", + InterpretationBox[ + StyleBox["\[CapitalTheta]", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`Theta[], + Editable->False]}]}], ")"}]}], "+", + RowBox[{ + FractionBox["1", "2"], " ", InterpretationBox[ - StyleBox[GridBox[{ - { - RowBox[{"\[PartialD]", "\[CapitalTheta]"}], - StyleBox[GridBox[{ - {" "}, - {"a"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], + StyleBox["\[Alpha]", ShowAutoStyles->False, AutoSpacing->False], - $CellContext`dTheta[-$CellContext`a], - Editable->False]}], ")"}], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["\[Gamma]", "~"], - StyleBox[GridBox[{ - {"i", "a"}, - {" ", " "} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`invgamt[$CellContext`i, $CellContext`a], - Editable->False]}], "-", - RowBox[{"8", " ", - InterpretationBox[ - StyleBox["\[Pi]", - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`cpi, - Editable->False], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["\[Gamma]", "~"], - StyleBox[GridBox[{ - {"i", "a"}, - {" ", " "} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`invgamt[$CellContext`i, $CellContext`a], - Editable->False], " ", - InterpretationBox[ - StyleBox[GridBox[{ - {"S", - StyleBox[GridBox[{ - {" "}, - {"a"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`Sm[-$CellContext`a], - Editable->False]}]}], ")"}]}], "-", - RowBox[{ - InterpretationBox[ - StyleBox[GridBox[{ - { - RowBox[{"\[PartialD]", "\[Beta]"}], - StyleBox[GridBox[{ - {" ", "i"}, - {"a", " "} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`dbeta[-$CellContext`a, $CellContext`i], - Editable->False], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - RowBox[{"(", - SubscriptBox[ - OverscriptBox["\[CapitalGamma]", "~"], "d"], ")"}], - StyleBox[GridBox[{ - {"a"}, - {" "} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`trGtd[$CellContext`a], - Editable->False]}], "-", - RowBox[{"2", " ", - InterpretationBox[ - StyleBox[ - SubscriptBox["\[Kappa]", "1"], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`ckappa1, - Editable->False], " ", - InterpretationBox[ - StyleBox["\[Alpha]", - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`alpha[], - Editable->False], " ", - RowBox[{"(", - RowBox[{ - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["\[CapitalGamma]", "~"], - StyleBox[GridBox[{ - {"i"}, - {" "} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`trGt[$CellContext`i], - Editable->False], "-", - InterpretationBox[ - StyleBox[GridBox[{ - { - RowBox[{"(", - SubscriptBox[ - OverscriptBox["\[CapitalGamma]", "~"], "d"], ")"}], - StyleBox[GridBox[{ - {"i"}, - {" "} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`trGtd[$CellContext`i], - Editable->False]}], ")"}]}], "+", - RowBox[{ - FractionBox["2", "3"], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - RowBox[{"\[PartialD]", "\[Beta]"}], - StyleBox[GridBox[{ - {" ", "a"}, - {"a", " "} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`dbeta[-$CellContext`a, $CellContext`a], - Editable->False], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - RowBox[{"(", - SubscriptBox[ - OverscriptBox["\[CapitalGamma]", "~"], "d"], ")"}], - StyleBox[GridBox[{ - {"i"}, - {" "} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`trGtd[$CellContext`i], - Editable->False]}]}]}]], "Output", - CellChangeTimes->{3.9290195312858887`*^9, 3.929020128436797*^9}, - CellLabel->"Out[40]=",ExpressionUUID->"d6a37e98-9ecd-4ab0-84cd-bd6c57fa6a27"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{"eqssof", "[", "dtEvolVarlist", "]"}], "[", - RowBox[{"[", "6", "]"}], "]"}]], "Input", - CellChangeTimes->{{3.9290193804645977`*^9, 3.929019385741303*^9}, { - 3.92901945574961*^9, 3.92901948992594*^9}, {3.929019534308874*^9, - 3.929019534713382*^9}}, - CellLabel->"In[41]:=",ExpressionUUID->"e39264ea-7d5d-4b6b-b90c-f1e81024f299"], - -Cell[BoxData[ - RowBox[{ - InterpretationBox[ - StyleBox[ - RowBox[{ - SubscriptBox["\[PartialD]", "t"], "\[CapitalTheta]"}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`dtTheta[], - Editable->False], "\[Equal]", - RowBox[{ - RowBox[{ - RowBox[{"-", - InterpretationBox[ - StyleBox["\[Alpha]", - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`alpha[], - Editable->False]}], " ", - RowBox[{"(", - RowBox[{ - RowBox[{"8", " ", - InterpretationBox[ - StyleBox["\[Pi]", - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`cpi, - Editable->False], " ", - InterpretationBox[ - StyleBox["\[Rho]", - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`rho[], - Editable->False]}], "+", + $CellContext`alpha[], + Editable->False], " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"-", + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["A", "~"], + StyleBox[GridBox[{ + {" ", " "}, + {"a", "b"} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + + GridBoxAlignment->{ + "Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`exAt[-$CellContext`a, -$CellContext`b], + Editable->False]}], " ", + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["A", "~"], + StyleBox[GridBox[{ + {"a", "b"}, + {" ", " "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + + GridBoxAlignment->{ + "Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`exAtUU[$CellContext`a, $CellContext`b], + Editable->False]}], "+", + RowBox[{ + FractionBox["2", "3"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + InterpretationBox[ + StyleBox[ + OverscriptBox["K", "^"], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`exKh[], + Editable->False], "+", + RowBox[{"2", " ", + InterpretationBox[ + StyleBox["\[CapitalTheta]", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`Theta[], + Editable->False]}]}], ")"}], "2"]}], "+", + InterpretationBox[ + StyleBox["R", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`trR[], + Editable->False]}], ")"}]}]}]}]}, + { RowBox[{ InterpretationBox[ StyleBox[ - SubscriptBox["\[Kappa]", "1"], + RowBox[{ + SubscriptBox["\[PartialD]", "t"], "\[Alpha]"}], ShowAutoStyles->False, AutoSpacing->False], - $CellContext`ckappa1, - Editable->False], " ", - RowBox[{"(", - RowBox[{"2", "+", + $CellContext`dtalpha[], + Editable->False], "\[Equal]", + RowBox[{ + RowBox[{"-", InterpretationBox[ StyleBox[ - SubscriptBox["\[Kappa]", "2"], + SubscriptBox["\[Mu]", "L"], ShowAutoStyles->False, AutoSpacing->False], - $CellContext`ckappa2, - Editable->False]}], ")"}], " ", - InterpretationBox[ - StyleBox["\[CapitalTheta]", - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`Theta[], - Editable->False]}]}], ")"}]}], "+", - RowBox[{ - FractionBox["1", "2"], " ", - InterpretationBox[ - StyleBox["\[Alpha]", - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`alpha[], - Editable->False], " ", - RowBox[{"(", - RowBox[{ - RowBox[{ - RowBox[{"-", + $CellContext`cmuL, + Editable->False]}], " ", + SuperscriptBox[ + InterpretationBox[ + StyleBox["\[Alpha]", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`alpha[], + Editable->False], "2"], " ", InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["A", "~"], - StyleBox[GridBox[{ - {" ", " "}, - {"a", "b"} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], + StyleBox[ + OverscriptBox["K", "^"], ShowAutoStyles->False, AutoSpacing->False], - $CellContext`exAt[-$CellContext`a, -$CellContext`b], - Editable->False]}], " ", + $CellContext`exKh[], + Editable->False]}]}]}, + { + RowBox[{ InterpretationBox[ StyleBox[GridBox[{ { - OverscriptBox["A", "~"], + RowBox[{ + SubscriptBox["\[PartialD]", "t"], "\[Beta]"}], StyleBox[GridBox[{ - {"a", "b"}, - {" ", " "} + {"i"}, + {" "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { @@ -6285,205 +6351,103 @@ Cell[BoxData[ Offset[0.2]}}], ShowAutoStyles->False, AutoSpacing->False], - $CellContext`exAtUU[$CellContext`a, $CellContext`b], - Editable->False]}], "+", - RowBox[{ - FractionBox["2", "3"], " ", - SuperscriptBox[ - RowBox[{"(", - RowBox[{ + $CellContext`dtbeta[$CellContext`i], + Editable->False], "\[Equal]", + RowBox[{ + RowBox[{ + RowBox[{"-", InterpretationBox[ - StyleBox[ - OverscriptBox["K", "^"], + StyleBox["\[Eta]", ShowAutoStyles->False, AutoSpacing->False], - $CellContext`exKh[], - Editable->False], "+", - RowBox[{"2", " ", - InterpretationBox[ - StyleBox["\[CapitalTheta]", - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`Theta[], - Editable->False]}]}], ")"}], "2"]}], "+", - InterpretationBox[ - StyleBox["R", - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`trR[], - Editable->False]}], ")"}]}]}]}]], "Output", - CellChangeTimes->{3.929019535053995*^9, 3.929020129935501*^9}, - CellLabel->"Out[41]=",ExpressionUUID->"0576afcd-40eb-4fc4-b732-c1e08ef1ff91"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{"eqssof", "[", "dtEvolVarlist", "]"}], "[", - RowBox[{"[", "7", "]"}], "]"}]], "Input", - CellChangeTimes->{{3.9290193804645977`*^9, 3.929019385741303*^9}, { - 3.92901945574961*^9, 3.92901948992594*^9}, {3.92901953770583*^9, - 3.929019538201069*^9}}, - CellLabel->"In[42]:=",ExpressionUUID->"adfef86a-1a87-4e56-9d89-ba716b80868b"], - -Cell[BoxData[ - RowBox[{ - InterpretationBox[ - StyleBox[ - RowBox[{ - SubscriptBox["\[PartialD]", "t"], "\[Alpha]"}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`dtalpha[], - Editable->False], "\[Equal]", - RowBox[{ - RowBox[{"-", - InterpretationBox[ - StyleBox[ - SubscriptBox["\[Mu]", "L"], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`cmuL, - Editable->False]}], " ", - SuperscriptBox[ - InterpretationBox[ - StyleBox["\[Alpha]", - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`alpha[], - Editable->False], "2"], " ", - InterpretationBox[ - StyleBox[ - OverscriptBox["K", "^"], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`exKh[], - Editable->False]}]}]], "Output", - CellChangeTimes->{3.929019538839109*^9, 3.9290201311093082`*^9}, - CellLabel->"Out[42]=",ExpressionUUID->"1961e204-51ac-4b0f-884b-5656ba286d8b"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{"eqssof", "[", "dtEvolVarlist", "]"}], "[", - RowBox[{"[", "8", "]"}], "]"}]], "Input", - CellChangeTimes->{{3.9290193804645977`*^9, 3.929019385741303*^9}, { - 3.92901945574961*^9, 3.92901948992594*^9}, {3.9290195410814447`*^9, - 3.929019541417183*^9}}, - CellLabel->"In[43]:=",ExpressionUUID->"646533d5-2f52-4319-9b1e-5d89aec18e5e"], - -Cell[BoxData[ - RowBox[{ - InterpretationBox[ - StyleBox[GridBox[{ - { - RowBox[{ - SubscriptBox["\[PartialD]", "t"], "\[Beta]"}], - StyleBox[GridBox[{ - {"i"}, - {" "} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`dtbeta[$CellContext`i], - Editable->False], "\[Equal]", - RowBox[{ - RowBox[{ - RowBox[{"-", - InterpretationBox[ - StyleBox["\[Eta]", - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`ceta, - Editable->False]}], " ", - InterpretationBox[ - StyleBox[GridBox[{ - {"\[Beta]", - StyleBox[GridBox[{ - {"i"}, - {" "} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`beta[$CellContext`i], - Editable->False]}], "+", - RowBox[{ - InterpretationBox[ - StyleBox[ - SubscriptBox["\[Mu]", "S"], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`cmuS, - Editable->False], " ", - SuperscriptBox[ - InterpretationBox[ - StyleBox["\[Alpha]", - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`alpha[], - Editable->False], "2"], " ", - InterpretationBox[ - StyleBox[GridBox[{ - { - OverscriptBox["\[CapitalGamma]", "~"], - StyleBox[GridBox[{ - {"i"}, - {" "} - }, - GridBoxSpacings->{"Columns" -> { - Offset[0.], { - Offset[0.034999999999999996`]}, - Offset[0.]}, "Rows" -> {{ - Offset[0.]}}}], - FontSize->Rational[39, 4]]} - }, - GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.034999999999999996`]}, - Offset[0.27999999999999997`]}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}}], - ShowAutoStyles->False, - AutoSpacing->False], - $CellContext`trGt[$CellContext`i], - Editable->False]}]}]}]], "Output", - CellChangeTimes->{3.929019541928355*^9, 3.929020132265339*^9}, - CellLabel->"Out[43]=",ExpressionUUID->"3201c903-7156-4125-a4f7-a632dd0b5731"] + $CellContext`ceta, + Editable->False]}], " ", + InterpretationBox[ + StyleBox[GridBox[{ + {"\[Beta]", + StyleBox[GridBox[{ + {"i"}, + {" "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`beta[$CellContext`i], + Editable->False]}], "+", + RowBox[{ + InterpretationBox[ + StyleBox[ + SubscriptBox["\[Mu]", "S"], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`cmuS, + Editable->False], " ", + SuperscriptBox[ + InterpretationBox[ + StyleBox["\[Alpha]", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`alpha[], + Editable->False], "2"], " ", + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["\[CapitalGamma]", "~"], + StyleBox[GridBox[{ + {"i"}, + {" "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`trGt[$CellContext`i], + Editable->False]}]}]}]} + }, + GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.5599999999999999]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + Column], + Function[BoxForm`e$, + TableForm[BoxForm`e$]]]], "Output", + CellChangeTimes->{3.929024815033225*^9}, + CellLabel-> + "Out[14]//TableForm=",ExpressionUUID->"a4c13ac9-43b9-45e7-b320-\ +2dc6e58a2164"] }, Open ]] }, Open ]] }, Open ]], @@ -6571,7 +6535,7 @@ Cell[BoxData[ CellLabel->"In[50]:=",ExpressionUUID->"4082dbad-b700-412c-918b-7616ddad2b60"] }, Open ]] }, -WindowSize->{1010, 1027}, +WindowSize->{960, 1027}, WindowMargins->{{0, Automatic}, {Automatic, 40}}, FrontEndVersion->"14.0 for Mac OS X x86 (64-bit) (December 12, 2023)", StyleDefinitions->"Default.nb", @@ -6589,228 +6553,112 @@ CellTagsIndex->{} (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ -Cell[580, 22, 579, 13, 46, "Input",ExpressionUUID->"9857cbce-1237-4124-83ba-143c7adb15bb", +Cell[580, 22, 579, 13, 68, "Input",ExpressionUUID->"9857cbce-1237-4124-83ba-143c7adb15bb", InitializationCell->True], Cell[CellGroupData[{ -Cell[1184, 39, 1003, 16, 24, "Print",ExpressionUUID->"6e97295c-3c14-4dbb-9410-5ed6b8818a39"], -Cell[2190, 57, 1273, 24, 24, "Print",ExpressionUUID->"b1c03e4b-3c44-452e-9af6-7833631e06de"], -Cell[3466, 83, 1022, 16, 24, "Print",ExpressionUUID->"3f144069-6d94-4af7-a824-2ce1a3d3b1c6"], -Cell[4491, 101, 979, 15, 24, "Print",ExpressionUUID->"692f039d-3c18-4e4b-9339-43e0f5fb507a"], -Cell[5473, 118, 962, 15, 24, "Print",ExpressionUUID->"9b419fbe-d666-41b3-a919-5edb8a21cbcb"], -Cell[6438, 135, 1001, 16, 24, "Print",ExpressionUUID->"6da71c1e-8533-43bd-9658-aa7c2dc79ce2"], -Cell[7442, 153, 1279, 24, 24, "Print",ExpressionUUID->"729ab6da-a4a9-4f1a-80f1-13d11c5cc439"], -Cell[8724, 179, 1024, 16, 24, "Print",ExpressionUUID->"d5d48480-7db4-4bb0-918a-e8b710fe9a17"], -Cell[9751, 197, 1001, 16, 24, "Print",ExpressionUUID->"9e8751ce-9ade-49e6-8844-609cdd8bdfd0"], -Cell[10755, 215, 1158, 18, 44, "Print",ExpressionUUID->"e34187bc-442b-463c-834e-cb6138d209af"], -Cell[11916, 235, 1001, 16, 24, "Print",ExpressionUUID->"4b822208-ab75-4e78-bcc6-70a6afcab14d"], -Cell[12920, 253, 1001, 16, 24, "Print",ExpressionUUID->"9e734457-67d9-41e0-b29b-d93d7afa4c84"], -Cell[13924, 271, 1275, 24, 24, "Print",ExpressionUUID->"f534a9f7-68c6-4794-aaf8-a0ef2403b7a9"], -Cell[15202, 297, 1040, 16, 24, "Print",ExpressionUUID->"3cb24d72-770e-4bd7-98a4-3372d56e2a5c"], -Cell[16245, 315, 1001, 16, 24, "Print",ExpressionUUID->"32fd8606-24c3-42d4-a342-2fd9df37eb17"], -Cell[17249, 333, 1156, 18, 44, "Print",ExpressionUUID->"21e10b84-85ec-48fa-8c72-842ee41eb4fd"], -Cell[18408, 353, 1001, 16, 24, "Print",ExpressionUUID->"cca39270-d384-4026-8527-9f8a48f273b4"], -Cell[19412, 371, 1001, 16, 24, "Print",ExpressionUUID->"aae298d4-a853-485a-8c3a-bb03af77b65c"], -Cell[20416, 389, 977, 15, 24, "Print",ExpressionUUID->"d1e52b49-a4e0-4878-a410-15ef4cf4c7f8"], -Cell[21396, 406, 1003, 16, 24, "Print",ExpressionUUID->"d34cf4a4-9467-4dea-9c00-9c12ecc32336"], -Cell[22402, 424, 1001, 16, 24, "Print",ExpressionUUID->"1847c4cd-ff57-4350-be80-9761bf7cd530"], -Cell[23406, 442, 981, 15, 24, "Print",ExpressionUUID->"3869f13d-55ee-48be-a34c-a9a27b7b94d1"], -Cell[24390, 459, 1001, 16, 24, "Print",ExpressionUUID->"c2b6c621-0d6d-4105-b635-e336e4ba440c"], -Cell[25394, 477, 1003, 16, 24, "Print",ExpressionUUID->"40c366a3-a876-4e78-9d09-a514d79b3a04"], -Cell[26400, 495, 979, 15, 24, "Print",ExpressionUUID->"f9dcee20-dbdc-4ee8-ae5e-b4e99b46102d"], -Cell[27382, 512, 1001, 16, 24, "Print",ExpressionUUID->"063bbda0-7616-470b-a5be-ce19dbc46f54"], -Cell[28386, 530, 1001, 16, 24, "Print",ExpressionUUID->"989dc6d5-6340-4a71-b22d-97ee21b342c3"], -Cell[29390, 548, 981, 15, 24, "Print",ExpressionUUID->"682e41a8-3a4b-4f82-b396-a1a07032ed2c"], -Cell[30374, 565, 1001, 16, 24, "Print",ExpressionUUID->"82ebf92a-7e1c-4617-9942-d8f88af3ddbe"], -Cell[31378, 583, 1001, 16, 24, "Print",ExpressionUUID->"fe6db00b-2e2d-4f00-a933-acb7580bc32d"], -Cell[32382, 601, 982, 15, 24, "Print",ExpressionUUID->"5e0c247d-5cb6-4222-a6f7-d6b9609fb0e3"], -Cell[33367, 618, 1001, 16, 24, "Print",ExpressionUUID->"99064e47-beb2-428a-a5d0-8a9983f63943"], -Cell[34371, 636, 938, 15, 24, "Print",ExpressionUUID->"87162350-6003-4811-8ada-c2b5ac2e208f"] +Cell[1184, 39, 1023, 16, 24, "Print",ExpressionUUID->"de7b6795-2d8b-466d-8148-c778de0d1ea9"], +Cell[2210, 57, 1297, 24, 24, "Print",ExpressionUUID->"28975089-55fb-4c44-83ca-cc25d2b59356"], +Cell[3510, 83, 1043, 16, 24, "Print",ExpressionUUID->"4fb95459-67b4-4fad-bba7-f18c279e3ed9"], +Cell[4556, 101, 1001, 15, 24, "Print",ExpressionUUID->"5e59d723-0ad1-4ea6-a376-bb21c0390b3c"], +Cell[5560, 118, 984, 15, 24, "Print",ExpressionUUID->"93897799-bee1-46e2-a25c-d1d2796b0311"], +Cell[6547, 135, 1023, 16, 24, "Print",ExpressionUUID->"395a5cf1-8c9d-4892-a7be-43368732f5ee"], +Cell[7573, 153, 1303, 24, 24, "Print",ExpressionUUID->"30fc7775-27d1-4afe-b12f-c2af3070aa49"], +Cell[8879, 179, 1044, 16, 24, "Print",ExpressionUUID->"cfc84b80-b4b9-46af-8817-65da48877961"], +Cell[9926, 197, 1023, 16, 24, "Print",ExpressionUUID->"a2cb8728-8b7f-4f03-8928-6ee16828511d"], +Cell[10952, 215, 1180, 18, 44, "Print",ExpressionUUID->"6726f4d4-83bd-4972-afd2-da625df46c3f"], +Cell[12135, 235, 1023, 16, 24, "Print",ExpressionUUID->"7de50198-2ea8-4f91-bb59-8a3c8061a444"], +Cell[13161, 253, 1023, 16, 24, "Print",ExpressionUUID->"91ed09e5-7065-4ec1-80c2-e43d0178778a"], +Cell[14187, 271, 1297, 24, 24, "Print",ExpressionUUID->"a4119182-244a-42a4-aba2-9e29ac2a144f"], +Cell[15487, 297, 1061, 16, 24, "Print",ExpressionUUID->"534da6fc-9a32-4435-af46-876211a0bba3"], +Cell[16551, 315, 1023, 16, 24, "Print",ExpressionUUID->"bf4f922d-6f67-4cb6-89a4-0cf216a12f4c"], +Cell[17577, 333, 1180, 18, 44, "Print",ExpressionUUID->"2c5c2b3d-ecc6-48a4-a5d3-7f4ddcaab9c8"], +Cell[18760, 353, 1023, 16, 24, "Print",ExpressionUUID->"d43574a4-277a-41f9-ac43-0bcab4f0bd82"], +Cell[19786, 371, 1023, 16, 24, "Print",ExpressionUUID->"ecb6d8a6-6620-48b3-9d2f-f48c2607e29d"], +Cell[20812, 389, 999, 15, 24, "Print",ExpressionUUID->"187aca57-a575-47a4-9533-5e18ed17fb08"], +Cell[21814, 406, 1023, 16, 24, "Print",ExpressionUUID->"1080824c-3315-4602-a4cd-605ab07dba0e"], +Cell[22840, 424, 1025, 16, 24, "Print",ExpressionUUID->"e9320d67-e415-4b14-a00b-18dbb07beedd"], +Cell[23868, 442, 1003, 15, 24, "Print",ExpressionUUID->"da6df3fe-1de2-4e41-825e-6158d3e39162"], +Cell[24874, 459, 1025, 16, 24, "Print",ExpressionUUID->"9fc779de-f231-40a0-afd0-2dd6b9aed94f"], +Cell[25902, 477, 1023, 16, 24, "Print",ExpressionUUID->"58b47b61-496c-4795-9e4a-43ed7bc7690b"], +Cell[26928, 495, 1001, 15, 24, "Print",ExpressionUUID->"79e6f8b7-648f-4b83-939b-e13f45bc0698"], +Cell[27932, 512, 1023, 16, 24, "Print",ExpressionUUID->"7df60d53-9694-427b-9d41-dc7442b1ff0c"], +Cell[28958, 530, 1023, 16, 24, "Print",ExpressionUUID->"6ddb23af-fce1-4f06-ad30-03da02df900d"], +Cell[29984, 548, 1003, 15, 24, "Print",ExpressionUUID->"3d5f2dd3-9b26-4f09-95e0-7f02e5b2ac55"], +Cell[30990, 565, 1023, 16, 24, "Print",ExpressionUUID->"264f4501-d52f-469f-a1fc-4acfc0fdf3bd"], +Cell[32016, 583, 1023, 16, 24, "Print",ExpressionUUID->"e164ea1c-e109-4629-a030-de99f6bbe44a"], +Cell[33042, 601, 1004, 15, 24, "Print",ExpressionUUID->"28c1748a-fd45-4337-a02b-00df5647d38f"], +Cell[34049, 618, 1025, 16, 24, "Print",ExpressionUUID->"87da9c07-7cd2-4986-b206-1cde80d58971"], +Cell[35077, 636, 961, 15, 24, "Print",ExpressionUUID->"4e0f4645-3bca-4027-8f2b-b685040db4f6"] }, Open ]] }, Open ]], -Cell[35336, 655, 373, 9, 46, "Input",ExpressionUUID->"dc88cf1b-3b54-44ff-b471-d7efa31651a2", +Cell[36065, 655, 373, 9, 46, "Input",ExpressionUUID->"dc88cf1b-3b54-44ff-b471-d7efa31651a2", InitializationCell->True], -Cell[35712, 666, 294, 6, 46, "Input",ExpressionUUID->"bcf3d33f-c2e3-4846-9c1c-4cfd7929fe92", +Cell[36441, 666, 294, 6, 46, "Input",ExpressionUUID->"bcf3d33f-c2e3-4846-9c1c-4cfd7929fe92", InitializationCell->True], -Cell[36009, 674, 243, 4, 46, "Input",ExpressionUUID->"28397444-6f1b-40f7-9f73-fe33ec91543b", +Cell[36738, 674, 243, 4, 46, "Input",ExpressionUUID->"28397444-6f1b-40f7-9f73-fe33ec91543b", InitializationCell->True], -Cell[36255, 680, 326, 6, 46, "Input",ExpressionUUID->"465f2346-9a0b-41e7-a4bf-1a5b9b7b3fee", +Cell[36984, 680, 326, 6, 46, "Input",ExpressionUUID->"465f2346-9a0b-41e7-a4bf-1a5b9b7b3fee", InitializationCell->True], Cell[CellGroupData[{ -Cell[36606, 690, 163, 3, 67, "Section",ExpressionUUID->"881c7a62-60e5-4d3a-a383-aedf982655f9"], -Cell[36772, 695, 1863, 53, 73, "Input",ExpressionUUID->"e99a6455-f5a4-4baa-bd3e-e9cd24d138a8"], -Cell[CellGroupData[{ -Cell[38660, 752, 160, 3, 54, "Subsection",ExpressionUUID->"24362129-a923-4e4f-aab6-1fba3b2ad38c"], -Cell[CellGroupData[{ -Cell[38845, 759, 165, 3, 45, "Subsubsection",ExpressionUUID->"b6e88603-27a8-4857-86e3-61df123c7cf6"], -Cell[CellGroupData[{ -Cell[39035, 766, 318, 5, 30, "Input",ExpressionUUID->"1caaeb3e-2cad-454e-9ea8-fd46511352fd"], -Cell[39356, 773, 247, 4, 34, "Output",ExpressionUUID->"4733cc65-031b-4f11-8f33-233171678739"] -}, Open ]], -Cell[CellGroupData[{ -Cell[39640, 782, 321, 6, 30, "Input",ExpressionUUID->"b4017a8d-beaf-489b-a153-91a7fc76bb2f"], -Cell[39964, 790, 2085, 64, 39, "Output",ExpressionUUID->"36e1d772-0219-45a1-8c86-c05a4013cacb"] -}, Open ]], -Cell[CellGroupData[{ -Cell[42086, 859, 324, 6, 30, "Input",ExpressionUUID->"9f69de5b-73dd-4500-b471-73efe7e0321b"], -Cell[42413, 867, 2054, 63, 59, "Output",ExpressionUUID->"971e0821-0a15-4554-bbe9-04f376cd6510"] -}, Open ]], -Cell[CellGroupData[{ -Cell[44504, 935, 322, 6, 30, "Input",ExpressionUUID->"9c048e2d-b1d3-4ee2-ae1b-8c28d2161104"], -Cell[44829, 943, 4160, 118, 49, "Output",ExpressionUUID->"c973e854-d359-4205-8248-5741e63934e8"] -}, Open ]], -Cell[CellGroupData[{ -Cell[49026, 1066, 322, 6, 30, "Input",ExpressionUUID->"a6562f8e-6ac4-41e1-82b6-8a2d80d17b15"], -Cell[49351, 1074, 2887, 85, 41, "Output",ExpressionUUID->"893d306f-7c32-41a8-886e-6d1fffcf7649"] -}, Open ]], +Cell[37335, 690, 163, 3, 67, "Section",ExpressionUUID->"881c7a62-60e5-4d3a-a383-aedf982655f9"], +Cell[37501, 695, 2021, 57, 115, "Input",ExpressionUUID->"e99a6455-f5a4-4baa-bd3e-e9cd24d138a8"], Cell[CellGroupData[{ -Cell[52275, 1164, 373, 7, 30, "Input",ExpressionUUID->"50151aa3-3d28-4f31-941e-e14f18f48ef3"], -Cell[52651, 1173, 2884, 85, 41, "Output",ExpressionUUID->"2cf68dd6-d960-4278-992b-3f96d7a69fe9"] -}, Open ]], +Cell[39547, 756, 160, 3, 54, "Subsection",ExpressionUUID->"24362129-a923-4e4f-aab6-1fba3b2ad38c"], Cell[CellGroupData[{ -Cell[55572, 1263, 373, 7, 30, "Input",ExpressionUUID->"2180752d-b352-44e1-8426-6426d0055d23"], -Cell[55948, 1272, 2885, 87, 41, "Output",ExpressionUUID->"003d21c5-fff6-45dd-a3f5-68a51cd5cf85"] -}, Open ]], +Cell[39732, 763, 165, 3, 45, "Subsubsection",ExpressionUUID->"b6e88603-27a8-4857-86e3-61df123c7cf6"], Cell[CellGroupData[{ -Cell[58870, 1364, 371, 7, 30, "Input",ExpressionUUID->"e3bb5e00-be05-4735-a147-98f023825d22"], -Cell[59244, 1373, 3685, 112, 39, "Output",ExpressionUUID->"f6aa7740-416b-4dd6-aa2c-1f8e18474ce6"] +Cell[39922, 770, 383, 8, 30, "Input",ExpressionUUID->"2e8a66b0-40dc-4bf7-b559-33933d594c22"], +Cell[40308, 780, 23123, 628, 227, "Output",ExpressionUUID->"a1177118-0a17-4ab2-88a5-93c34d1dbb78"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[62978, 1491, 153, 3, 45, "Subsubsection",ExpressionUUID->"bd50a41a-4066-4d0d-8dfc-53de4b6c2744"], -Cell[CellGroupData[{ -Cell[63156, 1498, 211, 3, 30, "Input",ExpressionUUID->"1a5de8cf-475e-444c-a955-b2fa53652542"], -Cell[63370, 1503, 171, 2, 34, "Output",ExpressionUUID->"13326222-769e-4348-98af-5827ea62968d"] -}, Open ]], -Cell[CellGroupData[{ -Cell[63578, 1510, 261, 5, 30, "Input",ExpressionUUID->"a4877912-c0a1-4d4e-8492-97eb263d906d"], -Cell[63842, 1517, 3873, 116, 39, "Output",ExpressionUUID->"d9fab246-030d-44bb-9206-7cb3b32dbd3b"] -}, Open ]], +Cell[63480, 1414, 153, 3, 45, "Subsubsection",ExpressionUUID->"bd50a41a-4066-4d0d-8dfc-53de4b6c2744"], Cell[CellGroupData[{ -Cell[67752, 1638, 262, 5, 30, "Input",ExpressionUUID->"65fd4493-6cff-4df5-a36b-5dcb905c1dc5"], -Cell[68017, 1645, 11732, 349, 59, "Output",ExpressionUUID->"a6988465-eb59-489a-98bc-4811cf81fe3f"] +Cell[63658, 1421, 342, 6, 30, "Input",ExpressionUUID->"5c78a9e5-52c6-4a5c-90c9-79ac4dc82fdf"], +Cell[64003, 1429, 18306, 493, 93, "Output",ExpressionUUID->"75c304aa-c943-4133-b307-fe52cbf616dd"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[79798, 2000, 201, 4, 45, "Subsubsection",ExpressionUUID->"222918aa-bedb-47fe-850e-130d6a441f4f"], -Cell[CellGroupData[{ -Cell[80024, 2008, 213, 3, 30, "Input",ExpressionUUID->"810df460-afbf-4366-b7a0-f5ac9d47bc4b"], -Cell[80240, 2013, 173, 2, 34, "Output",ExpressionUUID->"3520a290-2eba-4bb6-8045-9d820b169a04"] -}, Open ]], -Cell[CellGroupData[{ -Cell[80450, 2020, 309, 6, 30, "Input",ExpressionUUID->"54d2617b-604a-4786-9590-619903ba1775"], -Cell[80762, 2028, 11487, 345, 61, "Output",ExpressionUUID->"a938a091-ea50-41d1-bf74-58a252575def"] -}, Open ]], -Cell[CellGroupData[{ -Cell[92286, 2378, 309, 6, 30, "Input",ExpressionUUID->"0a111962-117e-4350-8176-adae10e352b5"], -Cell[92598, 2386, 15980, 459, 49, "Output",ExpressionUUID->"2590acaa-b9f6-4f6f-b0f8-ca6d2937f684"] -}, Open ]], -Cell[CellGroupData[{ -Cell[108615, 2850, 309, 6, 30, "Input",ExpressionUUID->"8d7a23f2-d5db-41c6-af28-0e0d003aac47"], -Cell[108927, 2858, 2828, 86, 39, "Output",ExpressionUUID->"e153de8f-d970-4920-8dce-864f4f396850"] -}, Open ]], +Cell[82358, 1928, 201, 4, 45, "Subsubsection",ExpressionUUID->"222918aa-bedb-47fe-850e-130d6a441f4f"], Cell[CellGroupData[{ -Cell[111792, 2949, 309, 6, 30, "Input",ExpressionUUID->"91af6c64-65ee-4afd-8318-680c3bdd411a"], -Cell[112104, 2957, 2035, 62, 39, "Output",ExpressionUUID->"413fb4c9-6331-44be-9959-2ee43ada119d"] +Cell[82584, 1936, 345, 6, 30, "Input",ExpressionUUID->"de08b628-fb62-4306-88f8-b62676416998"], +Cell[82932, 1944, 37153, 992, 149, "Output",ExpressionUUID->"d02941c9-31c4-499f-9242-cba52aec82e6"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[114188, 3025, 159, 3, 45, "Subsubsection",ExpressionUUID->"0287564f-00d4-433c-9445-ca9165b79b14"], +Cell[120134, 2942, 159, 3, 45, "Subsubsection",ExpressionUUID->"0287564f-00d4-433c-9445-ca9165b79b14"], Cell[CellGroupData[{ -Cell[114372, 3032, 216, 3, 30, "Input",ExpressionUUID->"add3d20e-f303-4f5a-93e8-c6701903a2de"], -Cell[114591, 3037, 172, 2, 34, "Output",ExpressionUUID->"1cd63814-86b0-45e7-abb8-477cf1e9b4c8"] -}, Open ]], -Cell[CellGroupData[{ -Cell[114800, 3044, 267, 5, 30, "Input",ExpressionUUID->"226ea86b-d479-4580-97ca-fcaab355d2aa"], -Cell[115070, 3051, 5187, 158, 60, "Output",ExpressionUUID->"bb0cb16f-2c56-4816-9a2d-fd8d24a554c0"] -}, Open ]], -Cell[CellGroupData[{ -Cell[120294, 3214, 267, 5, 30, "Input",ExpressionUUID->"38e745d7-50ef-46ab-b939-7224cbc0db82"], -Cell[120564, 3221, 3969, 119, 58, "Output",ExpressionUUID->"2c63fc48-261a-425f-9896-e50ac2c44f36"] -}, Open ]], -Cell[CellGroupData[{ -Cell[124570, 3345, 267, 5, 30, "Input",ExpressionUUID->"59dcc2b3-a47a-4bf5-92ee-4f168ae9d229"], -Cell[124840, 3352, 1818, 55, 39, "Output",ExpressionUUID->"085840ad-aa87-47ce-86b7-06c50435e3b0"] -}, Open ]], -Cell[CellGroupData[{ -Cell[126695, 3412, 271, 5, 30, "Input",ExpressionUUID->"e49236b0-25cd-4838-a75a-ea8d631f651f"], -Cell[126969, 3419, 2035, 62, 39, "Output",ExpressionUUID->"76e075d5-60aa-4e0d-8dbe-46714d2ed322"] +Cell[120318, 2949, 347, 7, 30, "Input",ExpressionUUID->"f824a446-751c-4d68-9e0e-02874034e76a"], +Cell[120668, 2958, 14968, 413, 159, "Output",ExpressionUUID->"f043a7c6-ccec-4c50-bcd8-7be0184a8e6a"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[129053, 3487, 158, 3, 45, "Subsubsection",ExpressionUUID->"71eee9d4-1630-4b56-acb7-b57c6d036a93"], +Cell[135685, 3377, 158, 3, 45, "Subsubsection",ExpressionUUID->"71eee9d4-1630-4b56-acb7-b57c6d036a93"], Cell[CellGroupData[{ -Cell[129236, 3494, 215, 3, 30, "Input",ExpressionUUID->"0f1ac2d7-163a-4e10-840b-16c8d3d28ed8"], -Cell[129454, 3499, 171, 2, 34, "Output",ExpressionUUID->"2c094355-8aed-499e-8ec0-7d4f8748b30b"] -}, Open ]], -Cell[CellGroupData[{ -Cell[129662, 3506, 268, 5, 30, "Input",ExpressionUUID->"887f1bd3-281b-4813-84d6-a40853ebe752"], -Cell[129933, 3513, 6688, 199, 39, "Output",ExpressionUUID->"fb961632-26d4-4b3a-9953-d5d8de45a355"] +Cell[135868, 3384, 392, 7, 30, "Input",ExpressionUUID->"11da6f55-1161-46a6-9908-762d17a32dae"], +Cell[136263, 3393, 11429, 310, 55, "Output",ExpressionUUID->"51088f94-6996-4763-bd83-71f2c6374eb2"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[136670, 3718, 161, 3, 45, "Subsubsection",ExpressionUUID->"4c82ece6-45bc-4ae9-a3db-3146ef191f5a"], -Cell[CellGroupData[{ -Cell[136856, 3725, 219, 3, 30, "Input",ExpressionUUID->"1c6033fc-8fb8-4a65-a7c2-02e2fa1ca257"], -Cell[137078, 3730, 173, 2, 34, "Output",ExpressionUUID->"bc9f9396-8d8b-4a3a-8b5c-7a193703e7f6"] -}, Open ]], -Cell[CellGroupData[{ -Cell[137288, 3737, 273, 5, 30, "Input",ExpressionUUID->"48b52939-cee1-4779-8be1-fc1fae506bdc"], -Cell[137564, 3744, 2983, 90, 49, "Output",ExpressionUUID->"2b0a981d-3467-4374-b22a-256c7cacd884"] -}, Open ]], -Cell[CellGroupData[{ -Cell[140584, 3839, 271, 5, 30, "Input",ExpressionUUID->"11674024-ff40-4559-971d-80d91cf14dea"], -Cell[140858, 3846, 3171, 103, 49, "Output",ExpressionUUID->"40a3e1c5-6fb0-4737-bc17-8c1f34d05ce6"] -}, Open ]], +Cell[147741, 3709, 161, 3, 45, "Subsubsection",ExpressionUUID->"4c82ece6-45bc-4ae9-a3db-3146ef191f5a"], Cell[CellGroupData[{ -Cell[144066, 3954, 273, 5, 30, "Input",ExpressionUUID->"c24bb9a4-b016-4d5a-bff0-99c6e59ffb5b"], -Cell[144342, 3961, 10814, 325, 59, "Output",ExpressionUUID->"adf2a2b3-24a4-4c8e-9122-a1984c656ea9"] +Cell[147927, 3716, 449, 8, 30, "Input",ExpressionUUID->"bdbcbf98-0b60-482a-9cb7-363b469ac67f"], +Cell[148379, 3726, 19767, 548, 119, "Output",ExpressionUUID->"c734641f-bad8-4b02-a808-a9698b4527c0"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[155217, 4293, 151, 3, 54, "Subsection",ExpressionUUID->"920279f5-ee9e-4dc5-b72f-c3be20398e5f"], -Cell[CellGroupData[{ -Cell[155393, 4300, 216, 3, 30, "Input",ExpressionUUID->"06e9ff3d-3545-464e-a7fa-78d01067a2fb"], -Cell[155612, 4305, 223, 3, 34, "Output",ExpressionUUID->"b792026e-c3ea-448f-bc73-fe66b1a4a244"] -}, Open ]], -Cell[CellGroupData[{ -Cell[155872, 4313, 317, 6, 30, "Input",ExpressionUUID->"35004047-a64e-4fca-81c8-cc6ee9a1dbca"], -Cell[156192, 4321, 2351, 74, 49, "Output",ExpressionUUID->"2d09c129-7591-4344-95b1-dd6ae156c352"] -}, Open ]], -Cell[CellGroupData[{ -Cell[158580, 4400, 317, 6, 30, "Input",ExpressionUUID->"9c468d8e-f56d-4645-a6ce-487f80d8b8c1"], -Cell[158900, 4408, 7793, 235, 49, "Output",ExpressionUUID->"a74234b9-a160-45c1-9285-3c4acc51e845"] -}, Open ]], -Cell[CellGroupData[{ -Cell[166730, 4648, 316, 6, 30, "Input",ExpressionUUID->"1021fdfd-6ef3-4f83-b9bd-7f0436d388a8"], -Cell[167049, 4656, 6533, 206, 49, "Output",ExpressionUUID->"d72cfd80-5b7d-4956-96f6-7ef3c450b993"] -}, Open ]], -Cell[CellGroupData[{ -Cell[173619, 4867, 367, 7, 30, "Input",ExpressionUUID->"0038b22a-f222-4ed3-9106-f071f44125de"], -Cell[173989, 4876, 20850, 595, 87, "Output",ExpressionUUID->"034d5a2f-04ad-4893-9877-07d370834972"] -}, Open ]], -Cell[CellGroupData[{ -Cell[194876, 5476, 364, 7, 30, "Input",ExpressionUUID->"eb82a071-e297-4595-a783-ceb140127e99"], -Cell[195243, 5485, 22895, 667, 106, "Output",ExpressionUUID->"d6a37e98-9ecd-4ab0-84cd-bd6c57fa6a27"] -}, Open ]], -Cell[CellGroupData[{ -Cell[218175, 6157, 365, 7, 30, "Input",ExpressionUUID->"e39264ea-7d5d-4b6b-b90c-f1e81024f299"], -Cell[218543, 6166, 4754, 149, 49, "Output",ExpressionUUID->"0576afcd-40eb-4fc4-b732-c1e08ef1ff91"] -}, Open ]], -Cell[CellGroupData[{ -Cell[223334, 6320, 364, 7, 30, "Input",ExpressionUUID->"adfef86a-1a87-4e56-9d89-ba716b80868b"], -Cell[223701, 6329, 960, 34, 35, "Output",ExpressionUUID->"1961e204-51ac-4b0f-884b-5656ba286d8b"] -}, Open ]], +Cell[168207, 4281, 151, 3, 54, "Subsection",ExpressionUUID->"920279f5-ee9e-4dc5-b72f-c3be20398e5f"], Cell[CellGroupData[{ -Cell[224698, 6368, 367, 7, 30, "Input",ExpressionUUID->"646533d5-2f52-4319-9b1e-5d89aec18e5e"], -Cell[225068, 6377, 3379, 108, 62, "Output",ExpressionUUID->"3201c903-7156-4125-a4f7-a632dd0b5731"] +Cell[168383, 4288, 444, 8, 30, "Input",ExpressionUUID->"1e84ed0f-aaf2-45a5-8ef2-0d6ed6beeba9"], +Cell[168830, 4298, 79359, 2151, 259, "Output",ExpressionUUID->"a4c13ac9-43b9-45e7-b320-2dc6e58a2164"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[228508, 6492, 172, 3, 67, "Section",ExpressionUUID->"926fcc7b-37b2-44e0-a0d4-39b1e5f39312"], -Cell[228683, 6497, 542, 14, 30, "Input",ExpressionUUID->"d9b393c6-2d0e-4365-ab94-7d6ec5710670"], -Cell[229228, 6513, 2089, 57, 157, "Input",ExpressionUUID->"4082dbad-b700-412c-918b-7616ddad2b60"] +Cell[248250, 6456, 172, 3, 67, "Section",ExpressionUUID->"926fcc7b-37b2-44e0-a0d4-39b1e5f39312"], +Cell[248425, 6461, 542, 14, 30, "Input",ExpressionUUID->"d9b393c6-2d0e-4365-ab94-7d6ec5710670"], +Cell[248970, 6477, 2089, 57, 157, "Input",ExpressionUUID->"4082dbad-b700-412c-918b-7616ddad2b60"] }, Open ]] } ]