From 5ce2769e5fd41845a1006b8099982fcddea74edc Mon Sep 17 00:00:00 2001 From: Liwei Ji Date: Tue, 2 Jul 2024 22:47:41 -0400 Subject: [PATCH] Z4co: backup type_rhs.nb --- Z4co/wolfram/type_rhs.nb | 2400 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 2400 insertions(+) create mode 100644 Z4co/wolfram/type_rhs.nb diff --git a/Z4co/wolfram/type_rhs.nb b/Z4co/wolfram/type_rhs.nb new file mode 100644 index 00000000..c2f2a680 --- /dev/null +++ b/Z4co/wolfram/type_rhs.nb @@ -0,0 +1,2400 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Mathematica 14.0' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 158, 7] +NotebookDataLength[ 92031, 2392] +NotebookOptionsPosition[ 83931, 2257] +NotebookOutlinePosition[ 84328, 2273] +CellTagsIndexPosition[ 84285, 2270] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"Needs", "[", + RowBox[{"\"\\"", ",", + RowBox[{"FileNameJoin", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"Environment", "[", "\"\\"", "]"}], ",", + "\"\\""}], "}"}], + "]"}]}], "]"}]], "Input", + InitializationCell->True, + CellChangeTimes->{{3.9287793106508217`*^9, 3.928779332282189*^9}, { + 3.928779364042645*^9, 3.928779365849419*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"9857cbce-1237-4124-83ba-143c7adb15bb"], + +Cell[CellGroupData[{ + +Cell[BoxData["\<\"------------------------------------------------------------\ +\"\>"], "Print", + CellChangeTimes->{3.928779369275519*^9, 3.928785921920507*^9, + 3.928786533173875*^9, 3.928786935120081*^9, 3.928787121237308*^9, + 3.928787381239373*^9, 3.928791502068035*^9, 3.9287915491944*^9, + 3.928791837145893*^9, 3.928792362648822*^9, 3.928792783869076*^9, + 3.928792872096545*^9, 3.928792972522664*^9, 3.92879477211884*^9, + 3.928796308289264*^9, 3.928819264261452*^9, 3.928819829538828*^9, + 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^9, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.9289233884139633`*^9}, + CellLabel-> + "During evaluation of \ +In[1]:=",ExpressionUUID->"641f79bd-b97e-48aa-aa4e-5a50fd2ffdcf"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"Package xAct`xPerm` version \"\>", + "\[InvisibleSpace]", "\<\"1.2.3\"\>", "\[InvisibleSpace]", "\<\", \"\>", + "\[InvisibleSpace]", + RowBox[{"{", + RowBox[{"2015", ",", "8", ",", "23"}], "}"}]}], + SequenceForm["Package xAct`xPerm` version ", "1.2.3", ", ", {2015, 8, 23}], + + Editable->False]], "Print", + CellChangeTimes->{3.928779369275519*^9, 3.928785921920507*^9, + 3.928786533173875*^9, 3.928786935120081*^9, 3.928787121237308*^9, + 3.928787381239373*^9, 3.928791502068035*^9, 3.9287915491944*^9, + 3.928791837145893*^9, 3.928792362648822*^9, 3.928792783869076*^9, + 3.928792872096545*^9, 3.928792972522664*^9, 3.92879477211884*^9, + 3.928796308289264*^9, 3.928819264261452*^9, 3.928819829538828*^9, + 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^9, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.9289233884149923`*^9}, + CellLabel-> + "During evaluation of \ +In[1]:=",ExpressionUUID->"809f4ad5-6f58-4428-8899-3203d49eeb50"], + +Cell[BoxData["\<\"CopyRight (C) 2003-2020, Jose M. Martin-Garcia, under the \ +General Public License.\"\>"], "Print", + CellChangeTimes->{3.928779369275519*^9, 3.928785921920507*^9, + 3.928786533173875*^9, 3.928786935120081*^9, 3.928787121237308*^9, + 3.928787381239373*^9, 3.928791502068035*^9, 3.9287915491944*^9, + 3.928791837145893*^9, 3.928792362648822*^9, 3.928792783869076*^9, + 3.928792872096545*^9, 3.928792972522664*^9, 3.92879477211884*^9, + 3.928796308289264*^9, 3.928819264261452*^9, 3.928819829538828*^9, + 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^9, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.9289233884166737`*^9}, + CellLabel-> + "During evaluation of \ +In[1]:=",ExpressionUUID->"7ef015d1-8728-4365-acbe-df52ab271f47"], + +Cell[BoxData["\<\"Connecting to external mac executable...\"\>"], "Print", + CellChangeTimes->{3.928779369275519*^9, 3.928785921920507*^9, + 3.928786533173875*^9, 3.928786935120081*^9, 3.928787121237308*^9, + 3.928787381239373*^9, 3.928791502068035*^9, 3.9287915491944*^9, + 3.928791837145893*^9, 3.928792362648822*^9, 3.928792783869076*^9, + 3.928792872096545*^9, 3.928792972522664*^9, 3.92879477211884*^9, + 3.928796308289264*^9, 3.928819264261452*^9, 3.928819829538828*^9, + 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^9, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388494279*^9}, + CellLabel-> + "During evaluation of \ +In[1]:=",ExpressionUUID->"7462857d-7df3-4798-afaa-6553f244e796"], + +Cell[BoxData["\<\"Connection established.\"\>"], "Print", + CellChangeTimes->{3.928779369275519*^9, 3.928785921920507*^9, + 3.928786533173875*^9, 3.928786935120081*^9, 3.928787121237308*^9, + 3.928787381239373*^9, 3.928791502068035*^9, 3.9287915491944*^9, + 3.928791837145893*^9, 3.928792362648822*^9, 3.928792783869076*^9, + 3.928792872096545*^9, 3.928792972522664*^9, 3.92879477211884*^9, + 3.928796308289264*^9, 3.928819264261452*^9, 3.928819829538828*^9, + 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^9, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388584572*^9}, + CellLabel-> + "During evaluation of \ +In[1]:=",ExpressionUUID->"ab529b6a-e588-42b4-8cc7-72c49c85341e"], + +Cell[BoxData["\<\"------------------------------------------------------------\ +\"\>"], "Print", + CellChangeTimes->{3.928779369275519*^9, 3.928785921920507*^9, + 3.928786533173875*^9, 3.928786935120081*^9, 3.928787121237308*^9, + 3.928787381239373*^9, 3.928791502068035*^9, 3.9287915491944*^9, + 3.928791837145893*^9, 3.928792362648822*^9, 3.928792783869076*^9, + 3.928792872096545*^9, 3.928792972522664*^9, 3.92879477211884*^9, + 3.928796308289264*^9, 3.928819264261452*^9, 3.928819829538828*^9, + 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^9, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388585535*^9}, + CellLabel-> + "During evaluation of \ +In[1]:=",ExpressionUUID->"9e9ad9d3-d282-477c-9fdb-46b06f06a9b6"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"Package xAct`xTensor` version \"\>", + "\[InvisibleSpace]", "\<\"1.2.0\"\>", "\[InvisibleSpace]", "\<\", \"\>", + "\[InvisibleSpace]", + RowBox[{"{", + RowBox[{"2021", ",", "10", ",", "17"}], "}"}]}], + SequenceForm[ + "Package xAct`xTensor` version ", "1.2.0", ", ", {2021, 10, 17}], + Editable->False]], "Print", + CellChangeTimes->{3.928779369275519*^9, 3.928785921920507*^9, + 3.928786533173875*^9, 3.928786935120081*^9, 3.928787121237308*^9, + 3.928787381239373*^9, 3.928791502068035*^9, 3.9287915491944*^9, + 3.928791837145893*^9, 3.928792362648822*^9, 3.928792783869076*^9, + 3.928792872096545*^9, 3.928792972522664*^9, 3.92879477211884*^9, + 3.928796308289264*^9, 3.928819264261452*^9, 3.928819829538828*^9, + 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^9, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.9289233885864973`*^9}, + CellLabel-> + "During evaluation of \ +In[1]:=",ExpressionUUID->"51053d0e-6cf6-48fb-bdb0-0e322306e7e7"], + +Cell[BoxData["\<\"CopyRight (C) 2002-2021, Jose M. Martin-Garcia, under the \ +General Public License.\"\>"], "Print", + CellChangeTimes->{3.928779369275519*^9, 3.928785921920507*^9, + 3.928786533173875*^9, 3.928786935120081*^9, 3.928787121237308*^9, + 3.928787381239373*^9, 3.928791502068035*^9, 3.9287915491944*^9, + 3.928791837145893*^9, 3.928792362648822*^9, 3.928792783869076*^9, + 3.928792872096545*^9, 3.928792972522664*^9, 3.92879477211884*^9, + 3.928796308289264*^9, 3.928819264261452*^9, 3.928819829538828*^9, + 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^9, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388587236*^9}, + CellLabel-> + "During evaluation of \ +In[1]:=",ExpressionUUID->"be826e62-6e0d-429a-a8d5-9f7e9ab2e734"], + +Cell[BoxData["\<\"------------------------------------------------------------\ +\"\>"], "Print", + CellChangeTimes->{3.928779369275519*^9, 3.928785921920507*^9, + 3.928786533173875*^9, 3.928786935120081*^9, 3.928787121237308*^9, + 3.928787381239373*^9, 3.928791502068035*^9, 3.9287915491944*^9, + 3.928791837145893*^9, 3.928792362648822*^9, 3.928792783869076*^9, + 3.928792872096545*^9, 3.928792972522664*^9, 3.92879477211884*^9, + 3.928796308289264*^9, 3.928819264261452*^9, 3.928819829538828*^9, + 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^9, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388603835*^9}, + CellLabel-> + "During evaluation of \ +In[1]:=",ExpressionUUID->"cae5fc5e-51ad-4ef4-a6d0-72b90651a501"], + +Cell[BoxData["\<\"These packages come with ABSOLUTELY NO WARRANTY; for \ +details type Disclaimer[]. This is free software, and you are welcome to \ +redistribute it under certain conditions. See the General Public License for \ +details.\"\>"], "Print", + CellChangeTimes->{3.928779369275519*^9, 3.928785921920507*^9, + 3.928786533173875*^9, 3.928786935120081*^9, 3.928787121237308*^9, + 3.928787381239373*^9, 3.928791502068035*^9, 3.9287915491944*^9, + 3.928791837145893*^9, 3.928792362648822*^9, 3.928792783869076*^9, + 3.928792872096545*^9, 3.928792972522664*^9, 3.92879477211884*^9, + 3.928796308289264*^9, 3.928819264261452*^9, 3.928819829538828*^9, + 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^9, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.9289233886049223`*^9}, + CellLabel-> + "During evaluation of \ +In[1]:=",ExpressionUUID->"ab9fbc25-2463-40cb-a999-20438249c03e"], + +Cell[BoxData["\<\"------------------------------------------------------------\ +\"\>"], "Print", + CellChangeTimes->{3.928779369275519*^9, 3.928785921920507*^9, + 3.928786533173875*^9, 3.928786935120081*^9, 3.928787121237308*^9, + 3.928787381239373*^9, 3.928791502068035*^9, 3.9287915491944*^9, + 3.928791837145893*^9, 3.928792362648822*^9, 3.928792783869076*^9, + 3.928792872096545*^9, 3.928792972522664*^9, 3.92879477211884*^9, + 3.928796308289264*^9, 3.928819264261452*^9, 3.928819829538828*^9, + 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^9, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.9289233886058817`*^9}, + CellLabel-> + "During evaluation of \ +In[1]:=",ExpressionUUID->"ec0f62f5-a187-4764-8c92-c9e8a622a251"], + +Cell[BoxData["\<\"------------------------------------------------------------\ +\"\>"], "Print", + CellChangeTimes->{3.928779369275519*^9, 3.928785921920507*^9, + 3.928786533173875*^9, 3.928786935120081*^9, 3.928787121237308*^9, + 3.928787381239373*^9, 3.928791502068035*^9, 3.9287915491944*^9, + 3.928791837145893*^9, 3.928792362648822*^9, 3.928792783869076*^9, + 3.928792872096545*^9, 3.928792972522664*^9, 3.92879477211884*^9, + 3.928796308289264*^9, 3.928819264261452*^9, 3.928819829538828*^9, + 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^9, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388783072*^9}, + CellLabel-> + "During evaluation of \ +In[1]:=",ExpressionUUID->"7b6cbb68-e888-4558-9ccc-b289389d57d0"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"Package xAct`xCoba` version \"\>", + "\[InvisibleSpace]", "\<\"0.8.6\"\>", "\[InvisibleSpace]", "\<\", \"\>", + "\[InvisibleSpace]", + RowBox[{"{", + RowBox[{"2021", ",", "2", ",", "28"}], "}"}]}], + SequenceForm["Package xAct`xCoba` version ", "0.8.6", ", ", {2021, 2, 28}], + + Editable->False]], "Print", + CellChangeTimes->{3.928779369275519*^9, 3.928785921920507*^9, + 3.928786533173875*^9, 3.928786935120081*^9, 3.928787121237308*^9, + 3.928787381239373*^9, 3.928791502068035*^9, 3.9287915491944*^9, + 3.928791837145893*^9, 3.928792362648822*^9, 3.928792783869076*^9, + 3.928792872096545*^9, 3.928792972522664*^9, 3.92879477211884*^9, + 3.928796308289264*^9, 3.928819264261452*^9, 3.928819829538828*^9, + 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^9, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388784289*^9}, + CellLabel-> + "During evaluation of \ +In[1]:=",ExpressionUUID->"dd71f473-3d51-40ba-b101-ae16f7597454"], + +Cell[BoxData["\<\"CopyRight (C) 2005-2021, David Yllanes and Jose M. \ +Martin-Garcia, under the General Public License.\"\>"], "Print", + CellChangeTimes->{3.928779369275519*^9, 3.928785921920507*^9, + 3.928786533173875*^9, 3.928786935120081*^9, 3.928787121237308*^9, + 3.928787381239373*^9, 3.928791502068035*^9, 3.9287915491944*^9, + 3.928791837145893*^9, 3.928792362648822*^9, 3.928792783869076*^9, + 3.928792872096545*^9, 3.928792972522664*^9, 3.92879477211884*^9, + 3.928796308289264*^9, 3.928819264261452*^9, 3.928819829538828*^9, + 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^9, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388785207*^9}, + CellLabel-> + "During evaluation of \ +In[1]:=",ExpressionUUID->"1cc19495-b183-4e50-af73-0c1cb64e432d"], + +Cell[BoxData["\<\"------------------------------------------------------------\ +\"\>"], "Print", + CellChangeTimes->{3.928779369275519*^9, 3.928785921920507*^9, + 3.928786533173875*^9, 3.928786935120081*^9, 3.928787121237308*^9, + 3.928787381239373*^9, 3.928791502068035*^9, 3.9287915491944*^9, + 3.928791837145893*^9, 3.928792362648822*^9, 3.928792783869076*^9, + 3.928792872096545*^9, 3.928792972522664*^9, 3.92879477211884*^9, + 3.928796308289264*^9, 3.928819264261452*^9, 3.928819829538828*^9, + 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^9, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388804222*^9}, + CellLabel-> + "During evaluation of \ +In[1]:=",ExpressionUUID->"407e3d59-4f6c-4803-82c3-2435537c8438"], + +Cell[BoxData["\<\"These packages come with ABSOLUTELY NO WARRANTY; for \ +details type Disclaimer[]. This is free software, and you are welcome to \ +redistribute it under certain conditions. See the General Public License for \ +details.\"\>"], "Print", + CellChangeTimes->{3.928779369275519*^9, 3.928785921920507*^9, + 3.928786533173875*^9, 3.928786935120081*^9, 3.928787121237308*^9, + 3.928787381239373*^9, 3.928791502068035*^9, 3.9287915491944*^9, + 3.928791837145893*^9, 3.928792362648822*^9, 3.928792783869076*^9, + 3.928792872096545*^9, 3.928792972522664*^9, 3.92879477211884*^9, + 3.928796308289264*^9, 3.928819264261452*^9, 3.928819829538828*^9, + 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^9, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388805313*^9}, + CellLabel-> + "During evaluation of \ +In[1]:=",ExpressionUUID->"3b039420-4477-42cd-bd4e-ce0b677e4e8e"], + +Cell[BoxData["\<\"------------------------------------------------------------\ +\"\>"], "Print", + CellChangeTimes->{3.928779369275519*^9, 3.928785921920507*^9, + 3.928786533173875*^9, 3.928786935120081*^9, 3.928787121237308*^9, + 3.928787381239373*^9, 3.928791502068035*^9, 3.9287915491944*^9, + 3.928791837145893*^9, 3.928792362648822*^9, 3.928792783869076*^9, + 3.928792872096545*^9, 3.928792972522664*^9, 3.92879477211884*^9, + 3.928796308289264*^9, 3.928819264261452*^9, 3.928819829538828*^9, + 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^9, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388806306*^9}, + CellLabel-> + "During evaluation of \ +In[1]:=",ExpressionUUID->"a87e2713-ecde-449f-81d5-f851e98c92ce"], + +Cell[BoxData["\<\"------------------------------------------------------------\ +\"\>"], "Print", + CellChangeTimes->{3.928779369275519*^9, 3.928785921920507*^9, + 3.928786533173875*^9, 3.928786935120081*^9, 3.928787121237308*^9, + 3.928787381239373*^9, 3.928791502068035*^9, 3.9287915491944*^9, + 3.928791837145893*^9, 3.928792362648822*^9, 3.928792783869076*^9, + 3.928792872096545*^9, 3.928792972522664*^9, 3.92879477211884*^9, + 3.928796308289264*^9, 3.928819264261452*^9, 3.928819829538828*^9, + 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^9, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923390580139*^9}, + CellLabel-> + "During evaluation of \ +In[1]:=",ExpressionUUID->"6eb61b9c-72a7-4c4c-828d-f649f81f4a0a"], + +Cell[BoxData["\<\"Package Generato`Basic`, {2024, 1, 11}\"\>"], "Print", + CellChangeTimes->{3.928779369275519*^9, 3.928785921920507*^9, + 3.928786533173875*^9, 3.928786935120081*^9, 3.928787121237308*^9, + 3.928787381239373*^9, 3.928791502068035*^9, 3.9287915491944*^9, + 3.928791837145893*^9, 3.928792362648822*^9, 3.928792783869076*^9, + 3.928792872096545*^9, 3.928792972522664*^9, 3.92879477211884*^9, + 3.928796308289264*^9, 3.928819264261452*^9, 3.928819829538828*^9, + 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^9, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923390581366*^9}, + CellLabel-> + "During evaluation of \ +In[1]:=",ExpressionUUID->"57bc421f-192f-4bf8-a8b5-e844966b693e"], + +Cell[BoxData["\<\"------------------------------------------------------------\ +\"\>"], "Print", + CellChangeTimes->{3.928779369275519*^9, 3.928785921920507*^9, + 3.928786533173875*^9, 3.928786935120081*^9, 3.928787121237308*^9, + 3.928787381239373*^9, 3.928791502068035*^9, 3.9287915491944*^9, + 3.928791837145893*^9, 3.928792362648822*^9, 3.928792783869076*^9, + 3.928792872096545*^9, 3.928792972522664*^9, 3.92879477211884*^9, + 3.928796308289264*^9, 3.928819264261452*^9, 3.928819829538828*^9, + 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^9, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923390582281*^9}, + CellLabel-> + "During evaluation of \ +In[1]:=",ExpressionUUID->"6893318b-4581-45ce-ae88-d8d9892a612d"], + +Cell[BoxData["\<\"------------------------------------------------------------\ +\"\>"], "Print", + CellChangeTimes->{3.928779369275519*^9, 3.928785921920507*^9, + 3.928786533173875*^9, 3.928786935120081*^9, 3.928787121237308*^9, + 3.928787381239373*^9, 3.928791502068035*^9, 3.9287915491944*^9, + 3.928791837145893*^9, 3.928792362648822*^9, 3.928792783869076*^9, + 3.928792872096545*^9, 3.928792972522664*^9, 3.92879477211884*^9, + 3.928796308289264*^9, 3.928819264261452*^9, 3.928819829538828*^9, + 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^9, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923390583173*^9}, + CellLabel-> + "During evaluation of \ +In[1]:=",ExpressionUUID->"db2e3ffc-e4ba-42c3-a0ad-2bec45d1b79d"], + +Cell[BoxData["\<\"Package Generato`Component`, {2024, 1, 11}\"\>"], "Print", + CellChangeTimes->{3.928779369275519*^9, 3.928785921920507*^9, + 3.928786533173875*^9, 3.928786935120081*^9, 3.928787121237308*^9, + 3.928787381239373*^9, 3.928791502068035*^9, 3.9287915491944*^9, + 3.928791837145893*^9, 3.928792362648822*^9, 3.928792783869076*^9, + 3.928792872096545*^9, 3.928792972522664*^9, 3.92879477211884*^9, + 3.928796308289264*^9, 3.928819264261452*^9, 3.928819829538828*^9, + 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^9, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923390584035*^9}, + CellLabel-> + "During evaluation of \ +In[1]:=",ExpressionUUID->"e4a4ff98-cfe1-4d8a-b1e1-5c5e036d6274"], + +Cell[BoxData["\<\"------------------------------------------------------------\ +\"\>"], "Print", + CellChangeTimes->{3.928779369275519*^9, 3.928785921920507*^9, + 3.928786533173875*^9, 3.928786935120081*^9, 3.928787121237308*^9, + 3.928787381239373*^9, 3.928791502068035*^9, 3.9287915491944*^9, + 3.928791837145893*^9, 3.928792362648822*^9, 3.928792783869076*^9, + 3.928792872096545*^9, 3.928792972522664*^9, 3.92879477211884*^9, + 3.928796308289264*^9, 3.928819264261452*^9, 3.928819829538828*^9, + 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^9, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923390584889*^9}, + CellLabel-> + "During evaluation of \ +In[1]:=",ExpressionUUID->"6c5e2de1-c513-437d-856c-e0142aaf35ff"], + +Cell[BoxData["\<\"------------------------------------------------------------\ +\"\>"], "Print", + CellChangeTimes->{3.928779369275519*^9, 3.928785921920507*^9, + 3.928786533173875*^9, 3.928786935120081*^9, 3.928787121237308*^9, + 3.928787381239373*^9, 3.928791502068035*^9, 3.9287915491944*^9, + 3.928791837145893*^9, 3.928792362648822*^9, 3.928792783869076*^9, + 3.928792872096545*^9, 3.928792972522664*^9, 3.92879477211884*^9, + 3.928796308289264*^9, 3.928819264261452*^9, 3.928819829538828*^9, + 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^9, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923390585752*^9}, + CellLabel-> + "During evaluation of \ +In[1]:=",ExpressionUUID->"947e3b2f-476a-4c42-832f-dbdd25d02b17"], + +Cell[BoxData["\<\"Package Generato`Varlist`, {2024, 1, 11}\"\>"], "Print", + CellChangeTimes->{3.928779369275519*^9, 3.928785921920507*^9, + 3.928786533173875*^9, 3.928786935120081*^9, 3.928787121237308*^9, + 3.928787381239373*^9, 3.928791502068035*^9, 3.9287915491944*^9, + 3.928791837145893*^9, 3.928792362648822*^9, 3.928792783869076*^9, + 3.928792872096545*^9, 3.928792972522664*^9, 3.92879477211884*^9, + 3.928796308289264*^9, 3.928819264261452*^9, 3.928819829538828*^9, + 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^9, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923390586588*^9}, + CellLabel-> + "During evaluation of \ +In[1]:=",ExpressionUUID->"ad87133b-20c4-4715-8198-8f24d931e01c"], + +Cell[BoxData["\<\"------------------------------------------------------------\ +\"\>"], "Print", + CellChangeTimes->{3.928779369275519*^9, 3.928785921920507*^9, + 3.928786533173875*^9, 3.928786935120081*^9, 3.928787121237308*^9, + 3.928787381239373*^9, 3.928791502068035*^9, 3.9287915491944*^9, + 3.928791837145893*^9, 3.928792362648822*^9, 3.928792783869076*^9, + 3.928792872096545*^9, 3.928792972522664*^9, 3.92879477211884*^9, + 3.928796308289264*^9, 3.928819264261452*^9, 3.928819829538828*^9, + 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^9, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923390587448*^9}, + CellLabel-> + "During evaluation of \ +In[1]:=",ExpressionUUID->"4e1f620f-730b-47de-ae30-58e59b6143c0"], + +Cell[BoxData["\<\"------------------------------------------------------------\ +\"\>"], "Print", + CellChangeTimes->{3.928779369275519*^9, 3.928785921920507*^9, + 3.928786533173875*^9, 3.928786935120081*^9, 3.928787121237308*^9, + 3.928787381239373*^9, 3.928791502068035*^9, 3.9287915491944*^9, + 3.928791837145893*^9, 3.928792362648822*^9, 3.928792783869076*^9, + 3.928792872096545*^9, 3.928792972522664*^9, 3.92879477211884*^9, + 3.928796308289264*^9, 3.928819264261452*^9, 3.928819829538828*^9, + 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^9, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923390588299*^9}, + CellLabel-> + "During evaluation of \ +In[1]:=",ExpressionUUID->"827f822e-b4ce-4e5e-9a56-6af775514fe5"], + +Cell[BoxData["\<\"Package Generato`Interface`, {2024, 1, 11}\"\>"], "Print", + CellChangeTimes->{3.928779369275519*^9, 3.928785921920507*^9, + 3.928786533173875*^9, 3.928786935120081*^9, 3.928787121237308*^9, + 3.928787381239373*^9, 3.928791502068035*^9, 3.9287915491944*^9, + 3.928791837145893*^9, 3.928792362648822*^9, 3.928792783869076*^9, + 3.928792872096545*^9, 3.928792972522664*^9, 3.92879477211884*^9, + 3.928796308289264*^9, 3.928819264261452*^9, 3.928819829538828*^9, + 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^9, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923390589148*^9}, + CellLabel-> + "During evaluation of \ +In[1]:=",ExpressionUUID->"2d30ba91-f4e5-4dc7-8c1f-be660785d3f5"], + +Cell[BoxData["\<\"------------------------------------------------------------\ +\"\>"], "Print", + CellChangeTimes->{3.928779369275519*^9, 3.928785921920507*^9, + 3.928786533173875*^9, 3.928786935120081*^9, 3.928787121237308*^9, + 3.928787381239373*^9, 3.928791502068035*^9, 3.9287915491944*^9, + 3.928791837145893*^9, 3.928792362648822*^9, 3.928792783869076*^9, + 3.928792872096545*^9, 3.928792972522664*^9, 3.92879477211884*^9, + 3.928796308289264*^9, 3.928819264261452*^9, 3.928819829538828*^9, + 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^9, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.9289233905900393`*^9}, + CellLabel-> + "During evaluation of \ +In[1]:=",ExpressionUUID->"66c3549f-7d0e-44f4-8ce9-518ae76d51ec"], + +Cell[BoxData["\<\"------------------------------------------------------------\ +\"\>"], "Print", + CellChangeTimes->{3.928779369275519*^9, 3.928785921920507*^9, + 3.928786533173875*^9, 3.928786935120081*^9, 3.928787121237308*^9, + 3.928787381239373*^9, 3.928791502068035*^9, 3.9287915491944*^9, + 3.928791837145893*^9, 3.928792362648822*^9, 3.928792783869076*^9, + 3.928792872096545*^9, 3.928792972522664*^9, 3.92879477211884*^9, + 3.928796308289264*^9, 3.928819264261452*^9, 3.928819829538828*^9, + 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^9, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923390590905*^9}, + CellLabel-> + "During evaluation of \ +In[1]:=",ExpressionUUID->"ee625317-2ca4-4214-953c-6a03728455cf"], + +Cell[BoxData["\<\"Package Generato`Derivation`, {2024, 1, 18}\"\>"], "Print", + CellChangeTimes->{3.928779369275519*^9, 3.928785921920507*^9, + 3.928786533173875*^9, 3.928786935120081*^9, 3.928787121237308*^9, + 3.928787381239373*^9, 3.928791502068035*^9, 3.9287915491944*^9, + 3.928791837145893*^9, 3.928792362648822*^9, 3.928792783869076*^9, + 3.928792872096545*^9, 3.928792972522664*^9, 3.92879477211884*^9, + 3.928796308289264*^9, 3.928819264261452*^9, 3.928819829538828*^9, + 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^9, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923390591753*^9}, + CellLabel-> + "During evaluation of \ +In[1]:=",ExpressionUUID->"9024a8f3-8cdb-4791-ba10-1c52a032b3e0"], + +Cell[BoxData["\<\"------------------------------------------------------------\ +\"\>"], "Print", + CellChangeTimes->{3.928779369275519*^9, 3.928785921920507*^9, + 3.928786533173875*^9, 3.928786935120081*^9, 3.928787121237308*^9, + 3.928787381239373*^9, 3.928791502068035*^9, 3.9287915491944*^9, + 3.928791837145893*^9, 3.928792362648822*^9, 3.928792783869076*^9, + 3.928792872096545*^9, 3.928792972522664*^9, 3.92879477211884*^9, + 3.928796308289264*^9, 3.928819264261452*^9, 3.928819829538828*^9, + 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^9, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.9289233905926*^9}, + CellLabel-> + "During evaluation of \ +In[1]:=",ExpressionUUID->"08346bec-d8f5-41f0-8011-5c940e07f905"], + +Cell[BoxData["\<\"\"\>"], "Print", + CellChangeTimes->{3.928779369275519*^9, 3.928785921920507*^9, + 3.928786533173875*^9, 3.928786935120081*^9, 3.928787121237308*^9, + 3.928787381239373*^9, 3.928791502068035*^9, 3.9287915491944*^9, + 3.928791837145893*^9, 3.928792362648822*^9, 3.928792783869076*^9, + 3.928792872096545*^9, 3.928792972522664*^9, 3.92879477211884*^9, + 3.928796308289264*^9, 3.928819264261452*^9, 3.928819829538828*^9, + 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^9, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923390593433*^9}, + CellLabel-> + "During evaluation of \ +In[1]:=",ExpressionUUID->"a9646f5b-4d68-467d-830f-9864181cab3f"] +}, Open ]] +}, Open ]], + +Cell[CellGroupData[{ + +Cell["Variable List", "Section", + Editable->False, + CellChangeTimes->{{3.9289221456380796`*^9, 3.928922148281581*^9}, { + 3.928922253905546*^9, + 3.928922256640169*^9}},ExpressionUUID->"d93e9e9c-e043-49bf-adc4-\ +613bb015a823"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"DefManifold", "[", + RowBox[{"M3", ",", "3", ",", + RowBox[{"IndexRange", "[", + RowBox[{"a", ",", "z"}], "]"}]}], "]"}], ";"}]], "Input", + Editable->False, + InitializationCell->True, + CellChangeTimes->{{3.928779387620249*^9, 3.9287794127533712`*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"dc88cf1b-3b54-44ff-b471-d7efa31651a2"], + +Cell[CellGroupData[{ + +Cell["Output", "Subsection", + CellChangeTimes->{{3.928922438020507*^9, + 3.928922440113844*^9}},ExpressionUUID->"cc0db77f-50b2-45da-9194-\ +890bb5a70986"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"DefTensors", "[", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"dtchi", "[", "]"}], ",", + RowBox[{ + "PrintAs", "->", + "\"\<\!\(\*SubscriptBox[\(\[PartialD]\), \(t\)]\)\[Chi]\>\""}]}], + "}"}], ",", "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{ + RowBox[{"dtgamt", "[", + RowBox[{ + RowBox[{"-", "i"}], ",", + RowBox[{"-", "j"}]}], "]"}], ",", + RowBox[{"Symmetric", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "i"}], ",", + RowBox[{"-", "j"}]}], "}"}], "]"}], ",", + RowBox[{ + "PrintAs", "->", + "\"\<\!\(\*SubscriptBox[\(\[PartialD]\), \ +\(t\)]\)\!\(\*OverscriptBox[\(\[Gamma]\), \(~\)]\)\>\""}]}], "}"}], ",", + "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{ + RowBox[{"dtexKh", "[", "]"}], ",", + RowBox[{ + "PrintAs", "->", + "\"\<\!\(\*SubscriptBox[\(\[PartialD]\), \ +\(t\)]\)\!\(\*OverscriptBox[\(K\), \(^\)]\)\>\""}]}], "}"}], ",", + "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{ + RowBox[{"dtexAt", "[", + RowBox[{ + RowBox[{"-", "i"}], ",", + RowBox[{"-", "j"}]}], "]"}], ",", + RowBox[{"Symmetric", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "i"}], ",", + RowBox[{"-", "j"}]}], "}"}], "]"}], ",", + RowBox[{ + "PrintAs", "->", + "\"\<\!\(\*SubscriptBox[\(\[PartialD]\), \ +\(t\)]\)\!\(\*OverscriptBox[\(A\), \(~\)]\)\>\""}]}], "}"}], ",", + "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{ + RowBox[{"dttrGt", "[", "i", "]"}], ",", + RowBox[{ + "PrintAs", "->", + "\"\<\!\(\*SubscriptBox[\(\[PartialD]\), \ +\(t\)]\)\!\(\*OverscriptBox[\(\[CapitalGamma]\), \(~\)]\)\>\""}]}], "}"}], + ",", "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{ + RowBox[{"dtTheta", "[", "]"}], ",", + RowBox[{ + "PrintAs", "->", + "\"\<\!\(\*SubscriptBox[\(\[PartialD]\), \ +\(t\)]\)\[CapitalTheta]\>\""}]}], "}"}], ",", "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{ + RowBox[{"dtalpha", "[", "]"}], ",", + RowBox[{ + "PrintAs", "->", + "\"\<\!\(\*SubscriptBox[\(\[PartialD]\), \(t\)]\)\[Alpha]\>\""}]}], + "}"}], ",", "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{ + RowBox[{"dtbeta", "[", "i", "]"}], ",", + RowBox[{ + "PrintAs", "->", + "\"\<\!\(\*SubscriptBox[\(\[PartialD]\), \(t\)]\)\[Beta]\>\""}]}], + "}"}]}], "\[IndentingNewLine]", "]"}], ";"}]], "Input", + InitializationCell->True, + CellChangeTimes->{{3.92892245137897*^9, 3.92892249081022*^9}, { + 3.928922711600036*^9, 3.928922757461806*^9}}, + CellLabel->"In[3]:=",ExpressionUUID->"4e6d5e4d-3e2c-4e00-b731-80f125a28f58"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell["Input", "Subsection", + Editable->False, + CellChangeTimes->{{3.928786604353549*^9, 3.9287866060181503`*^9}, { + 3.9288194877806473`*^9, + 3.928819488701147*^9}},ExpressionUUID->"8f6e447f-5ad1-4983-a220-\ +4a62c32eb45e"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"DefTensors", "[", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"chi", "[", "]"}], ",", + RowBox[{"PrintAs", "->", "\"\<\[Chi]\>\""}]}], "}"}], ",", + "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{ + RowBox[{"gamt", "[", + RowBox[{ + RowBox[{"-", "i"}], ",", + RowBox[{"-", "j"}]}], "]"}], ",", + RowBox[{"Symmetric", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "i"}], ",", + RowBox[{"-", "j"}]}], "}"}], "]"}], ",", + RowBox[{ + "PrintAs", "->", + "\"\<\!\(\*OverscriptBox[\(\[Gamma]\), \(~\)]\)\>\""}]}], "}"}], ",", + "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{ + RowBox[{"exKh", "[", "]"}], ",", + RowBox[{ + "PrintAs", "->", "\"\<\!\(\*OverscriptBox[\(K\), \(^\)]\)\>\""}]}], + "}"}], ",", "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{ + RowBox[{"exAt", "[", + RowBox[{ + RowBox[{"-", "i"}], ",", + RowBox[{"-", "j"}]}], "]"}], ",", + RowBox[{"Symmetric", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "i"}], ",", + RowBox[{"-", "j"}]}], "}"}], "]"}], ",", + RowBox[{ + "PrintAs", "->", "\"\<\!\(\*OverscriptBox[\(A\), \(~\)]\)\>\""}]}], + "}"}], ",", "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{ + RowBox[{"trGt", "[", "i", "]"}], ",", + RowBox[{ + "PrintAs", "->", + "\"\<\!\(\*OverscriptBox[\(\[CapitalGamma]\), \(~\)]\)\>\""}]}], "}"}], + ",", "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{ + RowBox[{"Theta", "[", "]"}], ",", + RowBox[{"PrintAs", "->", "\"\<\[CapitalTheta]\>\""}]}], "}"}], ",", + "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{ + RowBox[{"alpha", "[", "]"}], ",", + RowBox[{"PrintAs", "->", "\"\<\[Alpha]\>\""}]}], "}"}], ",", + "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{ + RowBox[{"beta", "[", "i", "]"}], ",", + RowBox[{"PrintAs", "->", "\"\<\[Beta]\>\""}]}], "}"}]}], + "\[IndentingNewLine]", "]"}], ";"}]], "Input", + Editable->False, + InitializationCell->True, + CellChangeTimes->{{3.928779419569825*^9, 3.928779449821466*^9}, { + 3.9287797755635242`*^9, 3.928780001342947*^9}, {3.928786432843616*^9, + 3.928786461835287*^9}, {3.928786847253495*^9, 3.928786856883863*^9}, { + 3.92878708011068*^9, 3.928787086071513*^9}, {3.928787156901491*^9, + 3.928787207136179*^9}, {3.928787347613456*^9, 3.928787356042318*^9}, { + 3.928791395104095*^9, 3.9287913966338654`*^9}, {3.928792686833561*^9, + 3.928792687171047*^9}, {3.928818036070669*^9, 3.928818042043166*^9}, + 3.928818277532764*^9, 3.928818332489665*^9, 3.928818901005639*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"586963a8-981b-4f2c-bc38-3bd149af82cd"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"DefTensors", "[", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"eTtt", "[", "]"}], ",", + RowBox[{ + "PrintAs", "->", "\"\<\!\(\*SubscriptBox[\(T\), \(tt\)]\)\>\""}]}], + "}"}], ",", "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{ + RowBox[{"eTt", "[", + RowBox[{"-", "i"}], "]"}], ",", + RowBox[{ + "PrintAs", "->", "\"\<\!\(\*SubscriptBox[\(T\), \(t\)]\)\>\""}]}], + "}"}], ",", "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{ + RowBox[{"eT", "[", + RowBox[{ + RowBox[{"-", "i"}], ",", + RowBox[{"-", "j"}]}], "]"}], ",", + RowBox[{"PrintAs", "->", "\"\\""}]}], "}"}]}], + "\[IndentingNewLine]", "]"}], ";"}]], "Input", + Editable->False, + InitializationCell->True, + CellChangeTimes->{{3.928836579943162*^9, 3.928836615491*^9}, { + 3.928836745826116*^9, 3.92883674625337*^9}, {3.928836798904362*^9, + 3.928836841519875*^9}, {3.9288370376345053`*^9, 3.928837039390031*^9}}, + CellLabel->"In[5]:=",ExpressionUUID->"c08588c0-b1be-4279-a26f-ad8578054e37"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"DefTensors", "[", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"dchi", "[", + RowBox[{"-", "k"}], "]"}], ",", + RowBox[{"PrintAs", "->", "\"\<\[PartialD]\[Chi]\>\""}]}], "}"}], ",", + "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{ + RowBox[{"dgamt", "[", + RowBox[{ + RowBox[{"-", "k"}], ",", + RowBox[{"-", "i"}], ",", + RowBox[{"-", "j"}]}], "]"}], ",", + RowBox[{"Symmetric", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "i"}], ",", + RowBox[{"-", "j"}]}], "}"}], "]"}], ",", + RowBox[{ + "PrintAs", "->", + "\"\<\[PartialD]\!\(\*OverscriptBox[\(\[Gamma]\), \(~\)]\)\>\""}]}], + "}"}], ",", "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{ + RowBox[{"dexKh", "[", + RowBox[{"-", "k"}], "]"}], ",", + RowBox[{ + "PrintAs", "->", + "\"\<\[PartialD]\!\(\*OverscriptBox[\(K\), \(^\)]\)\>\""}]}], "}"}], + ",", "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{ + RowBox[{"dexAt", "[", + RowBox[{ + RowBox[{"-", "k"}], ",", + RowBox[{"-", "i"}], ",", + RowBox[{"-", "j"}]}], "]"}], ",", + RowBox[{"Symmetric", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "i"}], ",", + RowBox[{"-", "j"}]}], "}"}], "]"}], ",", + RowBox[{ + "PrintAs", "->", + "\"\<\[PartialD]\!\(\*OverscriptBox[\(A\), \(~\)]\)\>\""}]}], "}"}], + ",", "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{ + RowBox[{"dtrGt", "[", + RowBox[{ + RowBox[{"-", "k"}], ",", "i"}], "]"}], ",", + RowBox[{ + "PrintAs", "->", + "\"\<\[PartialD]\!\(\*OverscriptBox[\(\[CapitalGamma]\), \ +\(~\)]\)\>\""}]}], "}"}], ",", "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{ + RowBox[{"dTheta", "[", + RowBox[{"-", "k"}], "]"}], ",", + RowBox[{"PrintAs", "->", "\"\<\[PartialD]\[CapitalTheta]\>\""}]}], + "}"}], ",", "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{ + RowBox[{"dalpha", "[", + RowBox[{"-", "k"}], "]"}], ",", + RowBox[{"PrintAs", "->", "\"\<\[PartialD]\[Alpha]\>\""}]}], "}"}], ",", + "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{ + RowBox[{"dbeta", "[", + RowBox[{ + RowBox[{"-", "k"}], ",", "i"}], "]"}], ",", + RowBox[{"PrintAs", "->", "\"\<\[PartialD]\[Beta]\>\""}]}], "}"}]}], + "\[IndentingNewLine]", "]"}], ";"}]], "Input", + Editable->False, + InitializationCell->True, + CellChangeTimes->{{3.928786614738221*^9, 3.928786634594159*^9}, { + 3.928786722234556*^9, 3.928786742581704*^9}, {3.928786802854874*^9, + 3.928786824434333*^9}, {3.92878688693832*^9, 3.9287869155352297`*^9}, { + 3.9287869597636766`*^9, 3.928787044220189*^9}, {3.9287873992345037`*^9, + 3.928787520557636*^9}, {3.928792802971236*^9, 3.9287928031578693`*^9}, { + 3.928792911411598*^9, 3.928792912131485*^9}, {3.928817587559072*^9, + 3.928817587769424*^9}, 3.928818083034062*^9, 3.928818158587529*^9, + 3.928818283204087*^9, 3.928818339572599*^9, 3.9288189068167343`*^9, { + 3.928819633921884*^9, 3.92881967156325*^9}}, + CellLabel->"In[6]:=",ExpressionUUID->"4ff7b252-b898-4dd1-8ab8-4a2c09d190d5"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"DefTensors", "[", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"ddchi", "[", + RowBox[{ + RowBox[{"-", "i"}], ",", + RowBox[{"-", "j"}]}], "]"}], ",", + RowBox[{"Symmetric", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "i"}], ",", + RowBox[{"-", "j"}]}], "}"}], "]"}], ",", + RowBox[{"PrintAs", "->", "\"\<\[PartialD]\[PartialD]\[Chi]\>\""}]}], + "}"}], ",", "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{ + RowBox[{"ddgamt", "[", + RowBox[{ + RowBox[{"-", "l"}], ",", + RowBox[{"-", "m"}], ",", + RowBox[{"-", "i"}], ",", + RowBox[{"-", "j"}]}], "]"}], ",", + RowBox[{"GenSet", "[", + RowBox[{ + RowBox[{"Cycles", "[", + RowBox[{"{", + RowBox[{"1", ",", "2"}], "}"}], "]"}], ",", + RowBox[{"Cycles", "[", + RowBox[{"{", + RowBox[{"3", ",", "4"}], "}"}], "]"}]}], "]"}], ",", + RowBox[{ + "PrintAs", "->", + "\"\<\[PartialD]\[PartialD]\!\(\*OverscriptBox[\(\[Gamma]\), \ +\(~\)]\)\>\""}]}], "}"}], ",", "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{ + RowBox[{"ddalpha", "[", + RowBox[{ + RowBox[{"-", "i"}], ",", + RowBox[{"-", "j"}]}], "]"}], ",", + RowBox[{"Symmetric", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "i"}], ",", + RowBox[{"-", "j"}]}], "}"}], "]"}], ",", + RowBox[{"PrintAs", "->", "\"\<\[PartialD]\[PartialD]\[Alpha]\>\""}]}], + "}"}], ",", "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{ + RowBox[{"ddbeta", "[", + RowBox[{ + RowBox[{"-", "i"}], ",", + RowBox[{"-", "j"}], ",", "k"}], "]"}], ",", + RowBox[{"Symmetric", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "i"}], ",", + RowBox[{"-", "j"}]}], "}"}], "]"}], ",", + RowBox[{"PrintAs", "->", "\"\<\[PartialD]\[PartialD]\[Beta]\>\""}]}], + "}"}]}], "\[IndentingNewLine]", "]"}], ";"}]], "Input", + Editable->False, + InitializationCell->True, + CellChangeTimes->{{3.9288169618487673`*^9, 3.92881698006419*^9}, + 3.928818284670382*^9, {3.928819316864279*^9, 3.928819367894333*^9}, { + 3.928819562440492*^9, 3.928819601944265*^9}, {3.928819718902767*^9, + 3.9288197436285753`*^9}}, + CellLabel->"In[7]:=",ExpressionUUID->"9fecfaa3-ca7e-42bb-a622-c6a21140981a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell["Temp", "Subsection", + Editable->False, + CellChangeTimes->{{3.9288195149467583`*^9, + 3.928819526489415*^9}},ExpressionUUID->"1fd445a5-eeab-43da-98f4-\ +96f9414b6b16"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"DefTensors", "[", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"detinvgamt", "[", "]"}], ",", + RowBox[{ + "PrintAs", "->", + "\"\<1/\!\(\*OverscriptBox[\(\[Gamma]\), \(~\)]\)\>\""}]}], "}"}], ",", + "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{ + RowBox[{"invgamt", "[", + RowBox[{"i", ",", "j"}], "]"}], ",", + RowBox[{"Symmetric", "[", + RowBox[{"{", + RowBox[{"i", ",", "j"}], "}"}], "]"}], ",", + RowBox[{ + "PrintAs", "->", + "\"\<\!\(\*OverscriptBox[\(\[Gamma]\), \(~\)]\)\>\""}]}], "}"}], ",", + "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{ + RowBox[{"invgam", "[", + RowBox[{"i", ",", "j"}], "]"}], ",", + RowBox[{"Symmetric", "[", + RowBox[{"{", + RowBox[{"i", ",", "j"}], "}"}], "]"}], ",", + RowBox[{"PrintAs", "->", "\"\<\[Gamma]\>\""}]}], "}"}], ",", + "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{ + RowBox[{"gam", "[", + RowBox[{ + RowBox[{"-", "i"}], ",", + RowBox[{"-", "j"}]}], "]"}], ",", + RowBox[{"Symmetric", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "i"}], ",", + RowBox[{"-", "j"}]}], "}"}], "]"}], ",", + RowBox[{"PrintAs", "->", "\"\<\[Gamma]\>\""}]}], "}"}], ",", + "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{ + RowBox[{"GtDDD", "[", + RowBox[{ + RowBox[{"-", "k"}], ",", + RowBox[{"-", "i"}], ",", + RowBox[{"-", "j"}]}], "]"}], ",", + RowBox[{"Symmetric", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "i"}], ",", + RowBox[{"-", "j"}]}], "}"}], "]"}], ",", + RowBox[{ + "PrintAs", "->", + "\"\<\!\(\*OverscriptBox[\(\[CapitalGamma]\), \(~\)]\)\>\""}]}], "}"}], + ",", "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{ + RowBox[{"GtDDU", "[", + RowBox[{ + RowBox[{"-", "k"}], ",", + RowBox[{"-", "i"}], ",", "j"}], "]"}], ",", + RowBox[{ + "PrintAs", "->", + "\"\<\!\(\*OverscriptBox[\(\[CapitalGamma]\), \(~\)]\)\>\""}]}], "}"}], + ",", "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{ + RowBox[{"Gt", "[", + RowBox[{"k", ",", + RowBox[{"-", "i"}], ",", + RowBox[{"-", "j"}]}], "]"}], ",", + RowBox[{"Symmetric", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "i"}], ",", + RowBox[{"-", "j"}]}], "}"}], "]"}], ",", + RowBox[{ + "PrintAs", "->", + "\"\<\!\(\*OverscriptBox[\(\[CapitalGamma]\), \(~\)]\)\>\""}]}], "}"}], + ",", "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{ + RowBox[{"trGtd", "[", "i", "]"}], ",", + RowBox[{ + "PrintAs", "->", + "\"\<(\!\(\*SubscriptBox[OverscriptBox[\(\[CapitalGamma]\), \(~\)], \ +\(d\)]\))\>\""}]}], "}"}], ",", "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{ + RowBox[{"exAtUU", "[", + RowBox[{"i", ",", "j"}], "]"}], ",", + RowBox[{"Symmetric", "[", + RowBox[{"{", + RowBox[{"i", ",", "j"}], "}"}], "]"}], ",", + RowBox[{ + "PrintAs", "->", "\"\<\!\(\*OverscriptBox[\(A\), \(~\)]\)\>\""}]}], + "}"}]}], "\[IndentingNewLine]", "]"}], ";"}]], "Input", + Editable->False, + InitializationCell->True, + CellChangeTimes->{{3.928785928985149*^9, 3.928786087978428*^9}, + 3.928786629457264*^9, {3.928786861878175*^9, 3.928786865635483*^9}, { + 3.928787339845923*^9, 3.928787341802931*^9}, {3.928791406939233*^9, + 3.928791427196692*^9}, {3.928791461188624*^9, 3.928791466510343*^9}, { + 3.928791782168232*^9, 3.928791822282562*^9}, {3.928792263871332*^9, + 3.928792296266157*^9}, {3.928792330242548*^9, 3.928792335728332*^9}, { + 3.928792700494267*^9, 3.9287927326180887`*^9}, {3.928793041602625*^9, + 3.928793075981928*^9}, {3.928794674719866*^9, 3.928794749806027*^9}, { + 3.928796226110096*^9, 3.92879626124386*^9}, {3.9288180654899387`*^9, + 3.9288180744719*^9}, {3.9288182788597717`*^9, 3.928818281304373*^9}, { + 3.928818334058167*^9, 3.928818336847477*^9}, {3.928818901877288*^9, + 3.928818903931491*^9}, {3.928820886470365*^9, 3.928820890394692*^9}, { + 3.9288217145115*^9, 3.928821730690242*^9}, {3.928821785001086*^9, + 3.928821798416621*^9}, 3.928836232745147*^9, {3.928836281224597*^9, + 3.928836281538724*^9}, {3.928920995545884*^9, 3.928921053931546*^9}}, + CellLabel->"In[8]:=",ExpressionUUID->"230e3e3d-ec24-4b15-9bc4-4c66fa656cc7"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"DefTensors", "[", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"tDtDchi", "[", + RowBox[{ + RowBox[{"-", "i"}], ",", + RowBox[{"-", "j"}]}], "]"}], ",", + RowBox[{"Symmetric", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "i"}], ",", + RowBox[{"-", "j"}]}], "}"}], "]"}], ",", + RowBox[{ + "PrintAs", "->", + "\"\<\!\(\*OverscriptBox[\(D\), \(~\)]\)\!\(\*OverscriptBox[\(D\), \(~\ +\)]\)\[Chi]\>\""}]}], "}"}], ",", "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{ + RowBox[{"DDalpha", "[", + RowBox[{ + RowBox[{"-", "i"}], ",", + RowBox[{"-", "j"}]}], "]"}], ",", + RowBox[{"Symmetric", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "i"}], ",", + RowBox[{"-", "j"}]}], "}"}], "]"}], ",", + RowBox[{"PrintAs", "->", "\"\\""}]}], "}"}]}], + "\[IndentingNewLine]", "]"}], ";"}]], "Input", + Editable->False, + InitializationCell->True, + CellChangeTimes->{{3.928794418060472*^9, 3.92879445590598*^9}, { + 3.928794488404871*^9, 3.928794488798927*^9}, {3.928795120622587*^9, + 3.928795150755408*^9}, {3.928797346058392*^9, 3.928797355776825*^9}, { + 3.928816976913252*^9, 3.928816988108404*^9}, {3.928822715841466*^9, + 3.928822716199737*^9}, {3.928822779283828*^9, 3.928822783408156*^9}}, + CellLabel->"In[9]:=",ExpressionUUID->"012d0ece-df9c-44ca-af29-bd29950146e4"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"DefTensors", "[", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"Rtchi", "[", + RowBox[{ + RowBox[{"-", "i"}], ",", + RowBox[{"-", "j"}]}], "]"}], ",", + RowBox[{"Symmetric", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "i"}], ",", + RowBox[{"-", "j"}]}], "}"}], "]"}], ",", + RowBox[{ + "PrintAs", "->", + "\"\<\!\(\*SuperscriptBox[OverscriptBox[\(R\), \(~\)], \(\[Chi]\)]\)\>\ +\""}]}], "}"}], ",", "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{ + RowBox[{"Rt", "[", + RowBox[{ + RowBox[{"-", "i"}], ",", + RowBox[{"-", "j"}]}], "]"}], ",", + RowBox[{"Symmetric", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "i"}], ",", + RowBox[{"-", "j"}]}], "}"}], "]"}], ",", + RowBox[{ + "PrintAs", "->", "\"\<\!\(\*OverscriptBox[\(R\), \(~\)]\)\>\""}]}], + "}"}], ",", "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{ + RowBox[{"R", "[", + RowBox[{ + RowBox[{"-", "i"}], ",", + RowBox[{"-", "j"}]}], "]"}], ",", + RowBox[{"Symmetric", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "i"}], ",", + RowBox[{"-", "j"}]}], "}"}], "]"}]}], "}"}], ",", + "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{ + RowBox[{"trR", "[", "]"}], ",", + RowBox[{"PrintAs", "->", "\"\\""}]}], "}"}]}], + "\[IndentingNewLine]", "]"}], ";"}]], "Input", + Editable->False, + InitializationCell->True, + CellChangeTimes->{{3.928836234865031*^9, 3.928836243310957*^9}, { + 3.928838514237761*^9, 3.928838528459001*^9}}, + CellLabel->"In[10]:=",ExpressionUUID->"b2cd1bbb-ebc2-4ae5-98e8-1baa91d81aa3"], + +Cell[CellGroupData[{ + +Cell["Matter", "Subsubsection", + Editable->False, + CellChangeTimes->{{3.928836335137689*^9, + 3.928836338355296*^9}},ExpressionUUID->"63c86796-f445-4596-a568-\ +cf6b7233992a"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"DefTensors", "[", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"rho", "[", "]"}], ",", + RowBox[{"PrintAs", "->", "\"\<\[Rho]\>\""}]}], "}"}], ",", + "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{ + RowBox[{"Sm", "[", + RowBox[{"-", "i"}], "]"}], ",", + RowBox[{"PrintAs", "->", "\"\\""}]}], "}"}], ",", + "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{ + RowBox[{"Ss", "[", + RowBox[{ + RowBox[{"-", "i"}], ",", + RowBox[{"-", "j"}]}], "]"}], ",", + RowBox[{"Symmetric", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "i"}], ",", + RowBox[{"-", "j"}]}], "}"}], "]"}], ",", + RowBox[{"PrintAs", "->", "\"\\""}]}], "}"}], ",", + "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{ + RowBox[{"trSs", "[", "]"}], ",", + RowBox[{"PrintAs", "->", "\"\\""}]}], "}"}]}], + "\[IndentingNewLine]", "]"}], ";"}]], "Input", + Editable->False, + InitializationCell->True, + CellChangeTimes->{{3.928790254224685*^9, 3.928790291322857*^9}, { + 3.928790623947823*^9, 3.928790696710313*^9}, {3.928790869029275*^9, + 3.928790972579005*^9}, 3.92879101482416*^9}, + CellLabel->"In[11]:=",ExpressionUUID->"61eaa4ba-0069-4a97-a6d7-a02ee559a741"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell["Constraints", "Subsubsection", + Editable->False, + CellChangeTimes->{{3.928838206212228*^9, + 3.928838207562324*^9}},ExpressionUUID->"28d203fe-58c8-4126-8774-\ +88d5a1781306"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"DefTensors", "[", "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{ + RowBox[{"dexAtUU", "[", + RowBox[{ + RowBox[{"-", "k"}], ",", "i", ",", "j"}], "]"}], ",", + RowBox[{"Symmetric", "[", + RowBox[{"{", + RowBox[{"i", ",", "j"}], "}"}], "]"}], ",", + RowBox[{ + "PrintAs", "->", + "\"\<\[PartialD]\!\(\*OverscriptBox[\(A\), \(~\)]\)\>\""}]}], "}"}], + "\[IndentingNewLine]", "]"}], ";"}]], "Input", + Editable->False, + InitializationCell->True, + CellChangeTimes->{{3.928838799406372*^9, 3.92883885541286*^9}}, + CellLabel->"In[12]:=",ExpressionUUID->"c47cb394-ee24-4509-bdff-c280f2d44f4a"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"DefTensors", "[", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"ZtC", "[", "i", "]"}], ",", + RowBox[{ + "PrintAs", "->", "\"\<\!\(\*OverscriptBox[\(Z\), \(~\)]\)\>\""}]}], + "}"}], ",", "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{ + RowBox[{"HC", "[", "]"}], ",", + RowBox[{"PrintAs", "->", "\"\\""}]}], "}"}], ",", + "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{ + RowBox[{"MtC", "[", "i", "]"}], ",", + RowBox[{ + "PrintAs", "->", "\"\<\!\(\*OverscriptBox[\(M\), \(~\)]\)\>\""}]}], + "}"}]}], "\[IndentingNewLine]", "]"}], ";"}]], "Input", + Editable->False, + InitializationCell->True, + CellChangeTimes->{{3.9288382290069113`*^9, 3.9288383176366997`*^9}}, + CellLabel->"In[13]:=",ExpressionUUID->"5502d63c-b6fc-4a63-a203-12b5cbab9476"] +}, Open ]] +}, Open ]], + +Cell[CellGroupData[{ + +Cell["Constant", "Subsection", + Editable->False, + CellChangeTimes->{{3.928788008646267*^9, + 3.928788014497714*^9}},ExpressionUUID->"ab64c7df-87cb-4c7d-990a-\ +2b0543e709db"], + +Cell[BoxData[{ + RowBox[{ + RowBox[{"DefConstantSymbol", "[", + RowBox[{"cpi", ",", + RowBox[{"PrintAs", "->", "\"\<\[Pi]\>\""}]}], "]"}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"DefConstantSymbol", "[", + RowBox[{"ckappa1", ",", + RowBox[{ + "PrintAs", "->", "\"\<\!\(\*SubscriptBox[\(\[Kappa]\), \(1\)]\)\>\""}]}], + "]"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"DefConstantSymbol", "[", + RowBox[{"ckappa2", ",", + RowBox[{ + "PrintAs", "->", "\"\<\!\(\*SubscriptBox[\(\[Kappa]\), \(2\)]\)\>\""}]}], + "]"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"DefConstantSymbol", "[", + RowBox[{"cmuL", ",", + RowBox[{ + "PrintAs", "->", "\"\<\!\(\*SubscriptBox[\(\[Mu]\), \(L\)]\)\>\""}]}], + "]"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"DefConstantSymbol", "[", + RowBox[{"cmuS", ",", + RowBox[{ + "PrintAs", "->", "\"\<\!\(\*SubscriptBox[\(\[Mu]\), \(S\)]\)\>\""}]}], + "]"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"DefConstantSymbol", "[", + RowBox[{"ceta", ",", + RowBox[{"PrintAs", "->", "\"\<\[Eta]\>\""}]}], "]"}], ";"}]}], "Input", + Editable->False, + InitializationCell->True, + CellChangeTimes->{{3.928788017861888*^9, 3.9287880651917562`*^9}, { + 3.928797169707514*^9, 3.928797172450495*^9}, {3.928797313015642*^9, + 3.9287973225423384`*^9}}, + CellLabel->"In[14]:=",ExpressionUUID->"e471a9d0-e772-4737-b68b-dc67e2be03b9"] +}, Open ]] +}, Open ]], + +Cell[CellGroupData[{ + +Cell["RHS", "Section", + Editable->False, + CellChangeTimes->{{3.928785747144782*^9, + 3.928785747527007*^9}},ExpressionUUID->"519fe4de-6999-4db6-9e6b-\ +17dff89f6b40"], + +Cell[CellGroupData[{ + +Cell["Evolve", "Subsection", + Editable->False, + CellChangeTimes->{{3.928797062044775*^9, 3.928797063274568*^9}, { + 3.928818665942694*^9, + 3.92881866714654*^9}},ExpressionUUID->"d2530e9e-4fda-44f3-b4db-\ +77d8f8476f20"], + +Cell[BoxData[{ + RowBox[{ + RowBox[{"SetEQN", "[", + RowBox[{ + RowBox[{"dtchi", "[", "]"}], ",", + RowBox[{ + FractionBox["2", "3"], + RowBox[{"chi", "[", "]"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"alpha", "[", "]"}], + RowBox[{"(", + RowBox[{ + RowBox[{"exKh", "[", "]"}], "+", + RowBox[{"2", + RowBox[{"Theta", "[", "]"}]}]}], ")"}]}], "-", + RowBox[{"dbeta", "[", + RowBox[{ + RowBox[{"-", "i"}], ",", "i"}], "]"}]}], ")"}]}]}], "]"}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"SetEQN", "[", + RowBox[{ + RowBox[{"dtgamt", "[", + RowBox[{"i_", ",", "j_"}], "]"}], ",", + RowBox[{ + RowBox[{ + RowBox[{"-", "2"}], + RowBox[{"alpha", "[", "]"}], + RowBox[{"exAt", "[", + RowBox[{"i", ",", "j"}], "]"}]}], "+", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"gamt", "[", + RowBox[{ + RowBox[{"-", "k"}], ",", "i"}], "]"}], + RowBox[{"dbeta", "[", + RowBox[{"j", ",", "k"}], "]"}]}], "+", + RowBox[{ + RowBox[{"gamt", "[", + RowBox[{ + RowBox[{"-", "k"}], ",", "j"}], "]"}], + RowBox[{"dbeta", "[", + RowBox[{"i", ",", "k"}], "]"}]}]}], ")"}], "-", + RowBox[{ + FractionBox["2", "3"], + RowBox[{"gamt", "[", + RowBox[{"i", ",", "j"}], "]"}], + RowBox[{"dbeta", "[", + RowBox[{ + RowBox[{"-", "k"}], ",", "k"}], "]"}]}]}]}], "]"}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"SetEQN", "[", + RowBox[{ + RowBox[{"dtexKh", "[", "]"}], ",", + RowBox[{ + RowBox[{ + RowBox[{"-", + RowBox[{"invgam", "[", + RowBox[{"k", ",", "l"}], "]"}]}], + RowBox[{"DDalpha", "[", + RowBox[{ + RowBox[{"-", "k"}], ",", + RowBox[{"-", "l"}]}], "]"}]}], "+", + RowBox[{ + RowBox[{"alpha", "[", "]"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"exAt", "[", + RowBox[{ + RowBox[{"-", "k"}], ",", + RowBox[{"-", "l"}]}], "]"}], + RowBox[{"exAtUU", "[", + RowBox[{"k", ",", "l"}], "]"}]}], "+", + RowBox[{ + FractionBox["1", "3"], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"exKh", "[", "]"}], "+", + RowBox[{"2", + RowBox[{"Theta", "[", "]"}]}]}], ")"}], "2"]}]}], ")"}]}], "+", + RowBox[{"4", "cpi", " ", + RowBox[{"alpha", "[", "]"}], + RowBox[{"(", + RowBox[{ + RowBox[{"trSs", "[", "]"}], "+", + RowBox[{"rho", "[", "]"}]}], ")"}]}], "+", + RowBox[{ + RowBox[{"alpha", "[", "]"}], "ckappa1", + RowBox[{"(", + RowBox[{"1", "-", "ckappa2"}], ")"}], + RowBox[{"Theta", "[", "]"}]}]}]}], "]"}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"SetEQN", "[", + RowBox[{ + RowBox[{"dtexAt", "[", + RowBox[{"i_", ",", "j_"}], "]"}], ",", + RowBox[{ + RowBox[{ + RowBox[{"chi", "[", "]"}], + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"-", + RowBox[{"DDalpha", "[", + RowBox[{"i", ",", "j"}], "]"}]}], "+", + RowBox[{ + RowBox[{"alpha", "[", "]"}], + RowBox[{"(", + RowBox[{ + RowBox[{"R", "[", + RowBox[{"i", ",", "j"}], "]"}], "-", + RowBox[{"8", "cpi", " ", + RowBox[{"Ss", "[", + RowBox[{"i", ",", "j"}], "]"}]}]}], ")"}]}]}], ")"}], "-", + RowBox[{ + FractionBox["1", "3"], + RowBox[{"gam", "[", + RowBox[{"i", ",", "j"}], "]"}], + RowBox[{"invgam", "[", + RowBox[{"k", ",", "l"}], "]"}], + RowBox[{"(", + RowBox[{ + RowBox[{"-", + RowBox[{"DDalpha", "[", + RowBox[{ + RowBox[{"-", "k"}], ",", + RowBox[{"-", "l"}]}], "]"}]}], "+", + RowBox[{ + RowBox[{"alpha", "[", "]"}], + RowBox[{"(", + RowBox[{ + RowBox[{"R", "[", + RowBox[{ + RowBox[{"-", "k"}], ",", + RowBox[{"-", "l"}]}], "]"}], "-", + RowBox[{"8", "cpi", " ", + RowBox[{"Ss", "[", + RowBox[{ + RowBox[{"-", "k"}], ",", + RowBox[{"-", "l"}]}], "]"}]}]}], ")"}]}]}], ")"}]}]}], + ")"}]}], "+", + RowBox[{ + RowBox[{"alpha", "[", "]"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"exKh", "[", "]"}], "+", + RowBox[{"2", + RowBox[{"Theta", "[", "]"}]}]}], ")"}], + RowBox[{"exAt", "[", + RowBox[{"i", ",", "j"}], "]"}]}], "-", + RowBox[{"2", + RowBox[{"invgamt", "[", + RowBox[{"k", ",", "l"}], "]"}], + RowBox[{"exAt", "[", + RowBox[{ + RowBox[{"-", "k"}], ",", "i"}], "]"}], + RowBox[{"exAt", "[", + RowBox[{ + RowBox[{"-", "l"}], ",", "j"}], "]"}]}]}], ")"}]}], "+", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"exAt", "[", + RowBox[{ + RowBox[{"-", "k"}], ",", "i"}], "]"}], + RowBox[{"dbeta", "[", + RowBox[{"j", ",", "k"}], "]"}]}], "+", + RowBox[{ + RowBox[{"exAt", "[", + RowBox[{ + RowBox[{"-", "k"}], ",", "j"}], "]"}], + RowBox[{"dbeta", "[", + RowBox[{"i", ",", "k"}], "]"}]}]}], ")"}], "-", + RowBox[{ + FractionBox["2", "3"], + RowBox[{"exAt", "[", + RowBox[{"i", ",", "j"}], "]"}], + RowBox[{"dbeta", "[", + RowBox[{ + RowBox[{"-", "k"}], ",", "k"}], "]"}]}]}]}], "]"}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"SetEQN", "[", + RowBox[{ + RowBox[{"dttrGt", "[", "i_", "]"}], ",", + RowBox[{ + RowBox[{ + RowBox[{"-", "2"}], + RowBox[{"exAtUU", "[", + RowBox[{"i", ",", "j"}], "]"}], + RowBox[{"dalpha", "[", + RowBox[{"-", "j"}], "]"}]}], "+", + RowBox[{"2", + RowBox[{"alpha", "[", "]"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"Gt", "[", + RowBox[{"i", ",", + RowBox[{"-", "j"}], ",", + RowBox[{"-", "k"}]}], "]"}], + RowBox[{"exAtUU", "[", + RowBox[{"j", ",", "k"}], "]"}]}], "-", + RowBox[{ + FractionBox["3", "2"], + RowBox[{"exAtUU", "[", + RowBox[{"i", ",", "j"}], "]"}], + FractionBox[ + RowBox[{"dchi", "[", + RowBox[{"-", "j"}], "]"}], + RowBox[{"chi", "[", "]"}]]}], "-", + RowBox[{ + FractionBox["1", "3"], + RowBox[{"invgamt", "[", + RowBox[{"i", ",", "j"}], "]"}], + RowBox[{"(", + RowBox[{ + RowBox[{"2", + RowBox[{"dexKh", "[", + RowBox[{"-", "j"}], "]"}]}], "+", + RowBox[{"dTheta", "[", + RowBox[{"-", "j"}], "]"}]}], ")"}]}], "-", + RowBox[{"8", "cpi", " ", + RowBox[{"invgam", "[", + RowBox[{"i", ",", "j"}], "]"}], + RowBox[{"Sm", "[", + RowBox[{"-", "j"}], "]"}]}]}], ")"}]}], "+", + RowBox[{ + RowBox[{"invgamt", "[", + RowBox[{"j", ",", "k"}], "]"}], + RowBox[{"ddbeta", "[", + RowBox[{ + RowBox[{"-", "j"}], ",", + RowBox[{"-", "k"}], ",", "i"}], "]"}]}], "+", + RowBox[{ + FractionBox["1", "3"], + RowBox[{"invgamt", "[", + RowBox[{"i", ",", "j"}], "]"}], + RowBox[{"ddbeta", "[", + RowBox[{ + RowBox[{"-", "j"}], ",", + RowBox[{"-", "k"}], ",", "k"}], "]"}]}], "-", + RowBox[{ + FractionBox["2", "3"], + RowBox[{"trGtd", "[", "i", "]"}], + RowBox[{"dbeta", "[", + RowBox[{ + RowBox[{"-", "j"}], ",", "j"}], "]"}]}], "-", + RowBox[{"2", + RowBox[{"alpha", "[", "]"}], "ckappa1", + RowBox[{"(", + RowBox[{ + RowBox[{"trGt", "[", "i", "]"}], "-", + RowBox[{"trGtd", "[", "i", "]"}]}], ")"}]}]}]}], "]"}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"SetEQN", "[", + RowBox[{ + RowBox[{"dtTheta", "[", "]"}], ",", + RowBox[{ + RowBox[{ + FractionBox["1", "2"], + RowBox[{"alpha", "[", "]"}], + RowBox[{"(", + RowBox[{ + RowBox[{"trR", "[", "]"}], "-", + RowBox[{ + RowBox[{"exAt", "[", + RowBox[{ + RowBox[{"-", "k"}], ",", + RowBox[{"-", "l"}]}], "]"}], + RowBox[{"exAtUU", "[", + RowBox[{"k", ",", "l"}], "]"}]}], "+", + RowBox[{ + FractionBox["2", "3"], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"exKh", "[", "]"}], "+", + RowBox[{"2", + RowBox[{"Theta", "[", "]"}]}]}], ")"}], "2"]}]}], ")"}]}], "-", + RowBox[{ + RowBox[{"alpha", "[", "]"}], + RowBox[{"(", + RowBox[{ + RowBox[{"8", "cpi", " ", + RowBox[{"rho", "[", "]"}]}], "+", + RowBox[{"ckappa1", + RowBox[{"(", + RowBox[{"2", "+", "ckappa2"}], ")"}], + RowBox[{"Theta", "[", "]"}]}]}], ")"}]}]}]}], "]"}], ";"}]}], "Input",\ + + Editable->False, + InitializationCell->True, + CellChangeTimes->{{3.928786397486115*^9, 3.928786418600286*^9}, { + 3.928786648860441*^9, 3.928786716655348*^9}, {3.928786925358366*^9, + 3.928786926370363*^9}, 3.928791153907498*^9, {3.9287912133538647`*^9, + 3.928791220283757*^9}, {3.928795005317316*^9, 3.928795022456435*^9}, { + 3.9288180961270027`*^9, 3.928818162798976*^9}, {3.928818287613455*^9, + 3.928818297995034*^9}, {3.928818346759857*^9, 3.92881835276016*^9}, { + 3.928818913170492*^9, 3.928818916498968*^9}, {3.928820272001666*^9, + 3.928820280537575*^9}, {3.928835938033397*^9, 3.928835938345463*^9}, { + 3.92883600473666*^9, 3.928836004936543*^9}, {3.928838646191992*^9, + 3.928838656767353*^9}, {3.928923290672167*^9, 3.9289233133060217`*^9}, { + 3.9289233478709993`*^9, 3.928923348029323*^9}}, + CellLabel->"In[20]:=",ExpressionUUID->"c2c4137e-d6ac-4ba6-852a-2c178eb54733"], + +Cell[BoxData[{ + RowBox[{ + RowBox[{"SetEQN", "[", + RowBox[{ + RowBox[{"dtalpha", "[", "]"}], ",", + RowBox[{ + RowBox[{"-", + SuperscriptBox[ + RowBox[{"alpha", "[", "]"}], "2"]}], "cmuL", " ", + RowBox[{"exKh", "[", "]"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"SetEQN", "[", + RowBox[{ + RowBox[{"dtbeta", "[", "i_", "]"}], ",", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"alpha", "[", "]"}], "2"], "cmuS", " ", + RowBox[{"trGt", "[", "i", "]"}]}], "-", + RowBox[{"ceta", " ", + RowBox[{"beta", "[", "i", "]"}]}]}]}], "]"}], ";"}]}], "Input", + Editable->False, + InitializationCell->True, + CellChangeTimes->{{3.928797074708628*^9, 3.928797082743736*^9}, { + 3.928797184828194*^9, 3.9287971986142883`*^9}, {3.928797256579565*^9, + 3.928797265453051*^9}, 3.9288181497481747`*^9, 3.928818355932049*^9, + 3.928818918336738*^9, {3.92892331917724*^9, 3.9289233209759827`*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"3545a3fa-9727-44d6-9422-6e4c3ef3c427"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell["Temp", "Subsection", + Editable->False, + CellChangeTimes->{{3.928818678205492*^9, + 3.928818680253039*^9}},ExpressionUUID->"29fb9a40-8f32-4735-bf46-\ +1b2322d6762f"], + +Cell[BoxData[{ + RowBox[{ + RowBox[{"SetEQN", "[", + RowBox[{ + RowBox[{"invgam", "[", + RowBox[{"i_", ",", "j_"}], "]"}], ",", + RowBox[{ + RowBox[{"chi", "[", "]"}], + RowBox[{"invgamt", "[", + RowBox[{"i", ",", "j"}], "]"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"SetEQN", "[", + RowBox[{ + RowBox[{"gam", "[", + RowBox[{"i_", ",", "j_"}], "]"}], ",", + RowBox[{ + SuperscriptBox[ + RowBox[{"chi", "[", "]"}], + RowBox[{"-", "1"}]], + RowBox[{"gamt", "[", + RowBox[{"i", ",", "j"}], "]"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"SetEQN", "[", + RowBox[{ + RowBox[{"GtDDD", "[", + RowBox[{"k_", ",", "i_", ",", "j_"}], "]"}], ",", + RowBox[{ + FractionBox["1", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"dgamt", "[", + RowBox[{"i", ",", "j", ",", "k"}], "]"}], "+", + RowBox[{"dgamt", "[", + RowBox[{"j", ",", "k", ",", "i"}], "]"}], "-", + RowBox[{"dgamt", "[", + RowBox[{"k", ",", "i", ",", "j"}], "]"}]}], ")"}]}]}], "]"}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"SetEQN", "[", + RowBox[{ + RowBox[{"GtDDU", "[", + RowBox[{"i_", ",", "j_", ",", "k_"}], "]"}], ",", + RowBox[{ + RowBox[{"gamt", "[", + RowBox[{"k", ",", "l"}], "]"}], + RowBox[{"GtDDD", "[", + RowBox[{"i", ",", "j", ",", + RowBox[{"-", "l"}]}], "]"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"SetEQN", "[", + RowBox[{ + RowBox[{"Gt", "[", + RowBox[{"k_", ",", "i_", ",", "j_"}], "]"}], ",", + RowBox[{ + RowBox[{"invgamt", "[", + RowBox[{"k", ",", "l"}], "]"}], + RowBox[{"GtDDD", "[", + RowBox[{ + RowBox[{"-", "l"}], ",", "i", ",", "j"}], "]"}]}]}], "]"}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"SetEQN", "[", + RowBox[{ + RowBox[{"trGtd", "[", "i_", "]"}], ",", + RowBox[{ + RowBox[{"invgamt", "[", + RowBox[{"k", ",", "l"}], "]"}], + RowBox[{"Gt", "[", + RowBox[{"i", ",", + RowBox[{"-", "k"}], ",", + RowBox[{"-", "l"}]}], "]"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"SetEQN", "[", + RowBox[{ + RowBox[{"exAtUU", "[", + RowBox[{"i_", ",", "j_"}], "]"}], ",", + RowBox[{ + RowBox[{"invgamt", "[", + RowBox[{"i", ",", "k"}], "]"}], + RowBox[{"invgamt", "[", + RowBox[{"j", ",", "l"}], "]"}], + RowBox[{"exAt", "[", + RowBox[{ + RowBox[{"-", "k"}], ",", + RowBox[{"-", "l"}]}], "]"}]}]}], "]"}], ";"}]}], "Input", + Editable->False, + InitializationCell->True, + CellChangeTimes->{{3.92882045451426*^9, 3.928820494015818*^9}, { + 3.92882054464657*^9, 3.928820550091407*^9}, {3.928822389143814*^9, + 3.928822403936602*^9}, {3.928822478660738*^9, 3.9288225192530327`*^9}, { + 3.9288361544164658`*^9, 3.928836162461919*^9}, {3.92892211822755*^9, + 3.928922119069038*^9}}, + CellLabel->"In[28]:=",ExpressionUUID->"06d87d1d-b673-41db-8089-81c4e3d83936"], + +Cell[BoxData[{ + RowBox[{ + RowBox[{"SetEQN", "[", + RowBox[{ + RowBox[{"tDtDchi", "[", + RowBox[{"i_", ",", "j_"}], "]"}], ",", + RowBox[{ + RowBox[{"ddchi", "[", + RowBox[{"i", ",", "j"}], "]"}], "-", + RowBox[{ + RowBox[{"Gt", "[", + RowBox[{"k", ",", "i", ",", "j"}], "]"}], + RowBox[{"dchi", "[", + RowBox[{"-", "k"}], "]"}]}]}]}], "]"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"SetEQN", "[", + RowBox[{ + RowBox[{"DDalpha", "[", + RowBox[{"i_", ",", "j_"}], "]"}], ",", + RowBox[{ + RowBox[{"ddalpha", "[", + RowBox[{"i", ",", "j"}], "]"}], "-", + RowBox[{ + RowBox[{"Gt", "[", + RowBox[{"k", ",", "i", ",", "j"}], "]"}], + RowBox[{"dalpha", "[", + RowBox[{"-", "k"}], "]"}]}], "+", + RowBox[{ + FractionBox["1", "2"], + SuperscriptBox[ + RowBox[{"chi", "[", "]"}], + RowBox[{"-", "1"}]], + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"dchi", "[", "i", "]"}], + RowBox[{"dalpha", "[", "j", "]"}]}], "+", + RowBox[{ + RowBox[{"dchi", "[", "j", "]"}], + RowBox[{"dalpha", "[", "i", "]"}]}]}], ")"}]}], "-", + RowBox[{ + FractionBox["1", "2"], + RowBox[{"gamt", "[", + RowBox[{"i", ",", "j"}], "]"}], + RowBox[{"invgamt", "[", + RowBox[{"k", ",", "l"}], "]"}], + SuperscriptBox[ + RowBox[{"chi", "[", "]"}], + RowBox[{"-", "1"}]], + RowBox[{"dchi", "[", + RowBox[{"-", "l"}], "]"}], + RowBox[{"dalpha", "[", + RowBox[{"-", "k"}], "]"}]}]}]}], "]"}], ";"}]}], "Input", + Editable->False, + InitializationCell->True, + CellChangeTimes->{{3.9288227944544783`*^9, 3.928822810574251*^9}, { + 3.9288229306259193`*^9, 3.928822961554441*^9}, {3.928827711886616*^9, + 3.928827712160763*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"addb5cb3-53a1-44da-ab6b-df91a8d8681f"], + +Cell[BoxData[{ + RowBox[{ + RowBox[{"SetEQN", "[", + RowBox[{ + RowBox[{"Rtchi", "[", + RowBox[{"i_", ",", "j_"}], "]"}], ",", + RowBox[{ + RowBox[{ + FractionBox["1", + RowBox[{"2", + RowBox[{"chi", "[", "]"}]}]], + RowBox[{"tDtDchi", "[", + RowBox[{"i", ",", "j"}], "]"}]}], "+", + RowBox[{ + FractionBox["1", + RowBox[{"2", + RowBox[{"chi", "[", "]"}]}]], + RowBox[{"gamt", "[", + RowBox[{"i", ",", "j"}], "]"}], + RowBox[{"invgamt", "[", + RowBox[{"k", ",", "l"}], "]"}], + RowBox[{"tDtDchi", "[", + RowBox[{ + RowBox[{"-", "k"}], ",", + RowBox[{"-", "l"}]}], "]"}]}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", + SuperscriptBox[ + RowBox[{"chi", "[", "]"}], "2"]}]], + RowBox[{"dchi", "[", "i", "]"}], + RowBox[{"dchi", "[", "j", "]"}]}], "-", + RowBox[{ + FractionBox["3", + RowBox[{"4", + SuperscriptBox[ + RowBox[{"chi", "[", "]"}], "2"]}]], + RowBox[{"gamt", "[", + RowBox[{"i", ",", "j"}], "]"}], + RowBox[{"invgamt", "[", + RowBox[{"k", ",", "l"}], "]"}], + RowBox[{"dchi", "[", + RowBox[{"-", "k"}], "]"}], + RowBox[{"dchi", "[", + RowBox[{"-", "l"}], "]"}]}]}]}], "]"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"SetEQN", "[", + RowBox[{ + RowBox[{"Rt", "[", + RowBox[{"i_", ",", "j_"}], "]"}], ",", + RowBox[{ + RowBox[{ + RowBox[{"-", + FractionBox["1", "2"]}], + RowBox[{"invgamt", "[", + RowBox[{"l", ",", "m"}], "]"}], + RowBox[{"ddgamt", "[", + RowBox[{ + RowBox[{"-", "l"}], ",", + RowBox[{"-", "m"}], ",", "i", ",", "j"}], "]"}]}], "+", + RowBox[{ + FractionBox["1", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"gamt", "[", + RowBox[{ + RowBox[{"-", "k"}], ",", "i"}], "]"}], + RowBox[{"dtrGt", "[", + RowBox[{"j", ",", "k"}], "]"}]}], "+", + RowBox[{ + RowBox[{"gamt", "[", + RowBox[{ + RowBox[{"-", "k"}], ",", "j"}], "]"}], + RowBox[{"dtrGt", "[", + RowBox[{"i", ",", "k"}], "]"}]}]}], ")"}]}], "+", + RowBox[{ + FractionBox["1", "2"], + RowBox[{"trGtd", "[", "k", "]"}], + RowBox[{"(", + RowBox[{ + RowBox[{"GtDDD", "[", + RowBox[{"i", ",", "j", ",", + RowBox[{"-", "k"}]}], "]"}], "+", + RowBox[{"GtDDD", "[", + RowBox[{"j", ",", "i", ",", + RowBox[{"-", "k"}]}], "]"}]}], ")"}]}], "+", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"Gt", "[", + RowBox[{"k", ",", + RowBox[{"-", "l"}], ",", "i"}], "]"}], + RowBox[{"GtDDU", "[", + RowBox[{"j", ",", + RowBox[{"-", "k"}], ",", "l"}], "]"}]}], "+", + RowBox[{ + RowBox[{"Gt", "[", + RowBox[{"k", ",", + RowBox[{"-", "l"}], ",", "j"}], "]"}], + RowBox[{"GtDDU", "[", + RowBox[{"i", ",", + RowBox[{"-", "k"}], ",", "l"}], "]"}]}]}], ")"}], "+", + RowBox[{ + RowBox[{"Gt", "[", + RowBox[{"k", ",", "i", ",", + RowBox[{"-", "m"}]}], "]"}], + RowBox[{"GtDDU", "[", + RowBox[{ + RowBox[{"-", "k"}], ",", "j", ",", "m"}], "]"}]}]}], ")"}]}]}], + "]"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"SetEQN", "[", + RowBox[{ + RowBox[{"R", "[", + RowBox[{"i_", ",", "j_"}], "]"}], ",", + RowBox[{ + RowBox[{"Rtchi", "[", + RowBox[{"i", ",", "j"}], "]"}], "+", + RowBox[{"Rt", "[", + RowBox[{"i", ",", "j"}], "]"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"SetEQN", "[", + RowBox[{ + RowBox[{"trR", "[", "]"}], ",", + RowBox[{ + RowBox[{"invgam", "[", + RowBox[{"k", ",", "l"}], "]"}], + RowBox[{"R", "[", + RowBox[{ + RowBox[{"-", "k"}], ",", + RowBox[{"-", "l"}]}], "]"}]}]}], "]"}], ";"}]}], "Input", + Editable->False, + InitializationCell->True, + CellChangeTimes->{{3.928795055142088*^9, 3.928795097524678*^9}, { + 3.928795285307967*^9, 3.928795396640392*^9}, 3.928795530373377*^9, { + 3.928797033157564*^9, 3.92879703750044*^9}, {3.92881829940282*^9, + 3.928818307012298*^9}, {3.92881836473006*^9, 3.9288183755776*^9}, { + 3.928818924377984*^9, 3.928818932083852*^9}, {3.928821849388647*^9, + 3.928821916271117*^9}, {3.9288227556687393`*^9, 3.928822767114849*^9}, { + 3.92883856377037*^9, 3.92883858232276*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"761ee28a-77fa-409e-93f8-f3c874c11e4e"], + +Cell[CellGroupData[{ + +Cell["Matter", "Subsubsection", + Editable->False, + CellChangeTimes->{{3.928836325237843*^9, + 3.928836330500912*^9}},ExpressionUUID->"21635a48-b393-484a-82e9-\ +abbe12d2c210"], + +Cell[BoxData[{ + RowBox[{ + RowBox[{"SetEQN", "[", + RowBox[{ + RowBox[{"rho", "[", "]"}], ",", + RowBox[{ + SuperscriptBox[ + RowBox[{"alpha", "[", "]"}], + RowBox[{"-", "2"}]], + RowBox[{"(", + RowBox[{ + RowBox[{"eTtt", "[", "]"}], "-", + RowBox[{"2", + RowBox[{"beta", "[", "j", "]"}], + RowBox[{"eTt", "[", + RowBox[{"-", "j"}], "]"}]}], "+", + RowBox[{ + RowBox[{"beta", "[", "i", "]"}], + RowBox[{"beta", "[", "j", "]"}], + RowBox[{"eT", "[", + RowBox[{ + RowBox[{"-", "i"}], ",", + RowBox[{"-", "j"}]}], "]"}]}]}], ")"}]}]}], "]"}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"SetEQN", "[", + RowBox[{ + RowBox[{"Sm", "[", "i_", "]"}], ",", + RowBox[{ + RowBox[{"-", + SuperscriptBox[ + RowBox[{"alpha", "[", "]"}], + RowBox[{"-", "1"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"eTt", "[", "i", "]"}], "-", + RowBox[{ + RowBox[{"beta", "[", "k", "]"}], + RowBox[{"eT", "[", + RowBox[{ + RowBox[{"-", "k"}], ",", "i"}], "]"}]}]}], ")"}]}]}], "]"}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"SetEQN", "[", + RowBox[{ + RowBox[{"Ss", "[", + RowBox[{"i_", ",", "j_"}], "]"}], ",", + RowBox[{"eT", "[", + RowBox[{"i", ",", "j"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"SetEQN", "[", + RowBox[{ + RowBox[{"trSs", "[", "]"}], ",", + RowBox[{ + RowBox[{"invgam", "[", + RowBox[{"k", ",", "l"}], "]"}], + RowBox[{"Ss", "[", + RowBox[{ + RowBox[{"-", "k"}], ",", + RowBox[{"-", "l"}]}], "]"}]}]}], "]"}], ";"}]}], "Input", + Editable->False, + InitializationCell->True, + CellChangeTimes->{{3.9288368620865*^9, 3.928836869329986*^9}, { + 3.928836906985135*^9, 3.928836910561809*^9}, {3.928837011184399*^9, + 3.928837024212061*^9}, {3.92883705599408*^9, 3.92883712663377*^9}, { + 3.928837309405642*^9, 3.92883735024449*^9}, 3.928837402423648*^9, { + 3.928837488959302*^9, 3.928837522484947*^9}, {3.928837566001819*^9, + 3.928837587478956*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"0f3722e5-6cf3-48e0-a39d-b9f9cec7d095"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell["Constraints", "Subsubsection", + Editable->False, + CellChangeTimes->{{3.928838372391102*^9, + 3.9288383741909857`*^9}},ExpressionUUID->"aea00190-9ff0-4165-bc4a-\ +9094b2949563"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"SetEQN", "[", + RowBox[{ + RowBox[{"dexAtUU", "[", + RowBox[{"k_", ",", "i_", ",", "j_"}], "]"}], ",", + RowBox[{ + RowBox[{ + RowBox[{"-", "2"}], + RowBox[{"invgamt", "[", + RowBox[{"i", ",", "l"}], "]"}], + RowBox[{"exAtUU", "[", + RowBox[{"j", ",", "m"}], "]"}], + RowBox[{"dgamt", "[", + RowBox[{"k", ",", + RowBox[{"-", "l"}], ",", + RowBox[{"-", "m"}]}], "]"}]}], "+", + RowBox[{ + RowBox[{"invgamt", "[", + RowBox[{"i", ",", "l"}], "]"}], + RowBox[{"invgamt", "[", + RowBox[{"j", ",", "m"}], "]"}], + RowBox[{"dexAt", "[", + RowBox[{"k", ",", + RowBox[{"-", "l"}], ",", + RowBox[{"-", "m"}]}], "]"}]}]}]}], "]"}], ";"}]], "Input", + Editable->False, + InitializationCell->True, + CellChangeTimes->{{3.928838875038344*^9, 3.928838894895752*^9}, { + 3.9288441652718153`*^9, 3.928844242787822*^9}, 3.928844284761671*^9}, + CellLabel->"In[45]:=",ExpressionUUID->"ae0ccc22-84fc-44d6-a8fc-878997b350c4"], + +Cell[BoxData[{ + RowBox[{ + RowBox[{"SetEQN", "[", + RowBox[{ + RowBox[{"ZtC", "[", "i_", "]"}], ",", + RowBox[{ + RowBox[{"trGt", "[", "i", "]"}], "-", + RowBox[{"trGtd", "[", "i", "]"}]}]}], "]"}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"SetEQN", "[", + RowBox[{ + RowBox[{"HC", "[", "]"}], ",", + RowBox[{ + RowBox[{"trR", "[", "]"}], "+", + RowBox[{ + RowBox[{"exAt", "[", + RowBox[{ + RowBox[{"-", "k"}], ",", + RowBox[{"-", "l"}]}], "]"}], + RowBox[{"exAtUU", "[", + RowBox[{"k", ",", "l"}], "]"}]}], "-", + RowBox[{ + FractionBox["2", "3"], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"exKh", "[", "]"}], "+", + RowBox[{"2", + RowBox[{"Theta", "[", "]"}]}]}], ")"}], "2"]}], "-", + RowBox[{"16", " ", "cpi", " ", + RowBox[{"rho", "[", "]"}]}]}]}], "]"}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"SetEQN", "[", + RowBox[{ + RowBox[{"MtC", "[", "i_", "]"}], ",", + RowBox[{ + RowBox[{"dexAtUU", "[", + RowBox[{ + RowBox[{"-", "j"}], ",", "i", ",", "j"}], "]"}], "+", + RowBox[{ + RowBox[{"Gt", "[", + RowBox[{"i", ",", + RowBox[{"-", "j"}], ",", + RowBox[{"-", "k"}]}], "]"}], + RowBox[{"exAtUU", "[", + RowBox[{"j", ",", "k"}], "]"}]}], "-", + RowBox[{ + FractionBox["2", "3"], + RowBox[{"invgamt", "[", + RowBox[{"i", ",", "j"}], "]"}], + RowBox[{"(", + RowBox[{ + RowBox[{"dexKh", "[", + RowBox[{"-", "j"}], "]"}], "+", + RowBox[{"2", + RowBox[{"dTheta", "[", + RowBox[{"-", "j"}], "]"}]}]}], ")"}]}], "-", + RowBox[{ + FractionBox["2", "3"], + RowBox[{"exAtUU", "[", + RowBox[{"i", ",", "j"}], "]"}], + SuperscriptBox[ + RowBox[{"chi", "[", "]"}], + RowBox[{"-", "1"}]], + RowBox[{"dchi", "[", + RowBox[{"-", "j"}], "]"}]}], "-", + RowBox[{"8", "cpi", " ", + RowBox[{"invgamt", "[", + RowBox[{"i", ",", "j"}], "]"}], + RowBox[{"Sm", "[", + RowBox[{"-", "j"}], "]"}]}]}]}], "]"}], ";"}]}], "Input", + Editable->False, + InitializationCell->True, + CellChangeTimes->{{3.928838379343862*^9, 3.928838434795819*^9}, { + 3.928838591512603*^9, 3.9288385946294413`*^9}, {3.92883866676774*^9, + 3.928838768805194*^9}, {3.9288394542052717`*^9, 3.928839458164912*^9}, { + 3.928844309306735*^9, 3.9288445005134497`*^9}}, + CellLabel->"In[46]:=",ExpressionUUID->"de7d67c1-605e-4f29-b6a7-28029963f3cd"] +}, Open ]] +}, Open ]] +}, Open ]], + +Cell[CellGroupData[{ + +Cell["Check RHS", "Section", + Editable->False, + CellChangeTimes->{{3.928922179904344*^9, + 3.928922182897522*^9}},ExpressionUUID->"fccd9e5b-e02b-4435-b659-\ +204d650d5919"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"DefChart", "[", + RowBox[{"cart", ",", "M3", ",", + RowBox[{"{", + RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"X", "[", "]"}], ",", + RowBox[{"Y", "[", "]"}], ",", + RowBox[{"Z", "[", "]"}]}], "}"}], ",", + RowBox[{"ChartColor", "->", "Blue"}]}], "]"}], ";"}]], "Input", + Editable->False, + CellChangeTimes->{{3.92892218457619*^9, 3.9289221845795403`*^9}}, + CellLabel->"In[49]:=",ExpressionUUID->"d9b393c6-2d0e-4365-ab94-7d6ec5710670"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Module", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"Mat", ",", " ", "invMat"}], "}"}], ",", "\n", " ", + RowBox[{ + RowBox[{"Mat", " ", "=", " ", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{ + RowBox[{"gamt", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"ii", ",", " ", + RowBox[{"-", "cart"}]}], "}"}], ",", " ", + RowBox[{"{", + RowBox[{"jj", ",", " ", + RowBox[{"-", "cart"}]}], "}"}]}], "]"}], " ", "//", " ", + "ToValues"}], ",", " ", + RowBox[{"{", + RowBox[{"ii", ",", " ", "1", ",", " ", "3"}], "}"}], ",", " ", + RowBox[{"{", + RowBox[{"jj", ",", "\n", " ", "1", ",", " ", "3"}], "}"}]}], + "]"}]}], ";", "\n", " ", + RowBox[{"invMat", " ", "=", " ", + RowBox[{ + RowBox[{"Inverse", "[", "Mat", "]"}], " ", "/.", " ", + RowBox[{"{", + RowBox[{ + RowBox[{"1", " ", "/", " ", + RowBox[{"Det", "[", "Mat", "]"}]}], " ", "->", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"detinvgamt", "[", "]"}], " ", "//", " ", "ToValues"}], + ")"}]}], "}"}]}]}], ";", "\n", " ", + RowBox[{"SetEQNDelayed", "[", + RowBox[{ + RowBox[{"detinvgamt", "[", "]"}], ",", " ", + RowBox[{ + RowBox[{"1", " ", "/", " ", + RowBox[{"Det", "[", "Mat", "]"}]}], " ", "//", " ", "Simplify"}]}], + "]"}], ";", "\n", " ", + RowBox[{"SetEQNDelayed", "[", + RowBox[{ + RowBox[{"invgamt", "[", + RowBox[{"i_", ",", " ", "j_"}], "]"}], ",", " ", + RowBox[{ + RowBox[{"invMat", "[", + RowBox[{"[", + RowBox[{ + RowBox[{"i", "[", + RowBox[{"[", "1", "]"}], "]"}], ",", " ", + RowBox[{"j", "[", + RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}], " ", "//", " ", + "Simplify"}]}], "]"}]}]}], "\n", "]"}], ";"}]], "Input", + Editable->False, + CellLabel->"In[50]:=",ExpressionUUID->"4082dbad-b700-412c-918b-7616ddad2b60"] +}, Open ]] +}, +WindowSize->{960, 1027}, +WindowMargins->{{0, Automatic}, {Automatic, 40}}, +FrontEndVersion->"14.0 for Mac OS X x86 (64-bit) (December 12, 2023)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"ebd466d4-c373-4284-afdd-a9043ac1493f" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[580, 22, 531, 12, 68, "Input",ExpressionUUID->"9857cbce-1237-4124-83ba-143c7adb15bb", + InitializationCell->True], +Cell[CellGroupData[{ +Cell[1136, 38, 748, 12, 24, "Print",ExpressionUUID->"641f79bd-b97e-48aa-aa4e-5a50fd2ffdcf"], +Cell[1887, 52, 1020, 20, 24, "Print",ExpressionUUID->"809f4ad5-6f58-4428-8899-3203d49eeb50"], +Cell[2910, 74, 769, 12, 24, "Print",ExpressionUUID->"7ef015d1-8728-4365-acbe-df52ab271f47"], +Cell[3682, 88, 724, 11, 24, "Print",ExpressionUUID->"7462857d-7df3-4798-afaa-6553f244e796"], +Cell[4409, 101, 707, 11, 24, "Print",ExpressionUUID->"ab529b6a-e588-42b4-8cc7-72c49c85341e"], +Cell[5119, 114, 746, 12, 24, "Print",ExpressionUUID->"9e9ad9d3-d282-477c-9fdb-46b06f06a9b6"], +Cell[5868, 128, 1026, 20, 24, "Print",ExpressionUUID->"51053d0e-6cf6-48fb-bdb0-0e322306e7e7"], +Cell[6897, 150, 767, 12, 24, "Print",ExpressionUUID->"be826e62-6e0d-429a-a8d5-9f7e9ab2e734"], +Cell[7667, 164, 746, 12, 24, "Print",ExpressionUUID->"cae5fc5e-51ad-4ef4-a6d0-72b90651a501"], +Cell[8416, 178, 903, 14, 44, "Print",ExpressionUUID->"ab9fbc25-2463-40cb-a999-20438249c03e"], +Cell[9322, 194, 748, 12, 24, "Print",ExpressionUUID->"ec0f62f5-a187-4764-8c92-c9e8a622a251"], +Cell[10073, 208, 746, 12, 24, "Print",ExpressionUUID->"7b6cbb68-e888-4558-9ccc-b289389d57d0"], +Cell[10822, 222, 1018, 20, 24, "Print",ExpressionUUID->"dd71f473-3d51-40ba-b101-ae16f7597454"], +Cell[11843, 244, 785, 12, 24, "Print",ExpressionUUID->"1cc19495-b183-4e50-af73-0c1cb64e432d"], +Cell[12631, 258, 746, 12, 24, "Print",ExpressionUUID->"407e3d59-4f6c-4803-82c3-2435537c8438"], +Cell[13380, 272, 901, 14, 44, "Print",ExpressionUUID->"3b039420-4477-42cd-bd4e-ce0b677e4e8e"], +Cell[14284, 288, 746, 12, 24, "Print",ExpressionUUID->"a87e2713-ecde-449f-81d5-f851e98c92ce"], +Cell[15033, 302, 746, 12, 24, "Print",ExpressionUUID->"6eb61b9c-72a7-4c4c-828d-f649f81f4a0a"], +Cell[15782, 316, 722, 11, 24, "Print",ExpressionUUID->"57bc421f-192f-4bf8-a8b5-e844966b693e"], +Cell[16507, 329, 746, 12, 24, "Print",ExpressionUUID->"6893318b-4581-45ce-ae88-d8d9892a612d"], +Cell[17256, 343, 746, 12, 24, "Print",ExpressionUUID->"db2e3ffc-e4ba-42c3-a0ad-2bec45d1b79d"], +Cell[18005, 357, 726, 11, 24, "Print",ExpressionUUID->"e4a4ff98-cfe1-4d8a-b1e1-5c5e036d6274"], +Cell[18734, 370, 746, 12, 24, "Print",ExpressionUUID->"6c5e2de1-c513-437d-856c-e0142aaf35ff"], +Cell[19483, 384, 746, 12, 24, "Print",ExpressionUUID->"947e3b2f-476a-4c42-832f-dbdd25d02b17"], +Cell[20232, 398, 724, 11, 24, "Print",ExpressionUUID->"ad87133b-20c4-4715-8198-8f24d931e01c"], +Cell[20959, 411, 746, 12, 24, "Print",ExpressionUUID->"4e1f620f-730b-47de-ae30-58e59b6143c0"], +Cell[21708, 425, 746, 12, 24, "Print",ExpressionUUID->"827f822e-b4ce-4e5e-9a56-6af775514fe5"], +Cell[22457, 439, 726, 11, 24, "Print",ExpressionUUID->"2d30ba91-f4e5-4dc7-8c1f-be660785d3f5"], +Cell[23186, 452, 748, 12, 24, "Print",ExpressionUUID->"66c3549f-7d0e-44f4-8ce9-518ae76d51ec"], +Cell[23937, 466, 746, 12, 24, "Print",ExpressionUUID->"ee625317-2ca4-4214-953c-6a03728455cf"], +Cell[24686, 480, 727, 11, 24, "Print",ExpressionUUID->"9024a8f3-8cdb-4791-ba10-1c52a032b3e0"], +Cell[25416, 493, 744, 12, 24, "Print",ExpressionUUID->"08346bec-d8f5-41f0-8011-5c940e07f905"], +Cell[26163, 507, 684, 11, 24, "Print",ExpressionUUID->"a9646f5b-4d68-467d-830f-9864181cab3f"] +}, Open ]] +}, Open ]], +Cell[CellGroupData[{ +Cell[26896, 524, 227, 5, 67, "Section",ExpressionUUID->"d93e9e9c-e043-49bf-adc4-613bb015a823"], +Cell[27126, 531, 373, 9, 46, "Input",ExpressionUUID->"dc88cf1b-3b54-44ff-b471-d7efa31651a2", + InitializationCell->True], +Cell[CellGroupData[{ +Cell[27524, 544, 154, 3, 54, "Subsection",ExpressionUUID->"cc0db77f-50b2-45da-9194-890bb5a70986"], +Cell[27681, 549, 2786, 83, 249, "Input",ExpressionUUID->"4e6d5e4d-3e2c-4e00-b731-80f125a28f58", + InitializationCell->True] +}, Open ]], +Cell[CellGroupData[{ +Cell[30504, 637, 224, 5, 54, "Subsection",ExpressionUUID->"8f6e447f-5ad1-4983-a220-4a62c32eb45e"], +Cell[30731, 644, 2817, 76, 249, "Input",ExpressionUUID->"586963a8-981b-4f2c-bc38-3bd149af82cd", + InitializationCell->True], +Cell[33551, 722, 1110, 30, 131, "Input",ExpressionUUID->"c08588c0-b1be-4279-a26f-ad8578054e37", + InitializationCell->True], +Cell[34664, 754, 3263, 89, 249, "Input",ExpressionUUID->"4ff7b252-b898-4dd1-8ab8-4a2c09d190d5", + InitializationCell->True], +Cell[37930, 845, 2434, 69, 158, "Input",ExpressionUUID->"9fecfaa3-ca7e-42bb-a622-c6a21140981a", + InitializationCell->True] +}, Open ]], +Cell[CellGroupData[{ +Cell[40401, 919, 172, 4, 54, "Subsection",ExpressionUUID->"1fd445a5-eeab-43da-98f4-96f9414b6b16"], +Cell[40576, 925, 4496, 119, 275, "Input",ExpressionUUID->"230e3e3d-ec24-4b15-9bc4-4c66fa656cc7", + InitializationCell->True], +Cell[45075, 1046, 1483, 39, 116, "Input",ExpressionUUID->"012d0ece-df9c-44ca-af29-bd29950146e4", + InitializationCell->True], +Cell[46561, 1087, 1763, 54, 161, "Input",ExpressionUUID->"b2cd1bbb-ebc2-4ae5-98e8-1baa91d81aa3", + InitializationCell->True], +Cell[CellGroupData[{ +Cell[48349, 1145, 175, 4, 45, "Subsubsection",ExpressionUUID->"63c86796-f445-4596-a568-cf6b7233992a"], +Cell[48527, 1151, 1328, 38, 152, "Input",ExpressionUUID->"61eaa4ba-0069-4a97-a6d7-a02ee559a741", + InitializationCell->True] +}, Open ]], +Cell[CellGroupData[{ +Cell[49892, 1194, 180, 4, 45, "Subsubsection",ExpressionUUID->"28d203fe-58c8-4126-8774-88d5a1781306"], +Cell[50075, 1200, 669, 18, 95, "Input",ExpressionUUID->"c47cb394-ee24-4509-bdff-c280f2d44f4a", + InitializationCell->True], +Cell[50747, 1220, 875, 24, 139, "Input",ExpressionUUID->"5502d63c-b6fc-4a63-a203-12b5cbab9476", + InitializationCell->True] +}, Open ]] +}, Open ]], +Cell[CellGroupData[{ +Cell[51671, 1250, 174, 4, 54, "Subsection",ExpressionUUID->"ab64c7df-87cb-4c7d-990a-2b0543e709db"], +Cell[51848, 1256, 1436, 39, 152, "Input",ExpressionUUID->"e471a9d0-e772-4737-b68b-dc67e2be03b9", + InitializationCell->True] +}, Open ]] +}, Open ]], +Cell[CellGroupData[{ +Cell[53333, 1301, 166, 4, 67, "Section",ExpressionUUID->"519fe4de-6999-4db6-9e6b-17dff89f6b40"], +Cell[CellGroupData[{ +Cell[53524, 1309, 220, 5, 54, "Subsection",ExpressionUUID->"d2530e9e-4fda-44f3-b4db-77d8f8476f20"], +Cell[53747, 1316, 10195, 316, 634, "Input",ExpressionUUID->"c2c4137e-d6ac-4ba6-852a-2c178eb54733", + InitializationCell->True], +Cell[63945, 1634, 1044, 27, 72, "Input",ExpressionUUID->"3545a3fa-9727-44d6-9422-6e4c3ef3c427", + InitializationCell->True] +}, Open ]], +Cell[CellGroupData[{ +Cell[65026, 1666, 170, 4, 54, "Subsection",ExpressionUUID->"29fb9a40-8f32-4735-bf46-1b2322d6762f"], +Cell[65199, 1672, 3011, 92, 193, "Input",ExpressionUUID->"06d87d1d-b673-41db-8089-81c4e3d83936", + InitializationCell->True], +Cell[68213, 1766, 1908, 58, 152, "Input",ExpressionUUID->"addb5cb3-53a1-44da-ab6b-df91a8d8681f", + InitializationCell->True], +Cell[70124, 1826, 4683, 143, 260, "Input",ExpressionUUID->"761ee28a-77fa-409e-93f8-f3c874c11e4e", + InitializationCell->True], +Cell[CellGroupData[{ +Cell[74832, 1973, 175, 4, 45, "Subsubsection",ExpressionUUID->"21635a48-b393-484a-82e9-abbe12d2c210"], +Cell[75010, 1979, 2211, 68, 114, "Input",ExpressionUUID->"0f3722e5-6cf3-48e0-a39d-b9f9cec7d095", + InitializationCell->True] +}, Open ]], +Cell[CellGroupData[{ +Cell[77258, 2052, 182, 4, 45, "Subsubsection",ExpressionUUID->"aea00190-9ff0-4165-bc4a-9094b2949563"], +Cell[77443, 2058, 1051, 30, 68, "Input",ExpressionUUID->"ae0ccc22-84fc-44d6-a8fc-878997b350c4", + InitializationCell->True], +Cell[78497, 2090, 2548, 78, 152, "Input",ExpressionUUID->"de7d67c1-605e-4f29-b6a7-28029963f3cd", + InitializationCell->True] +}, Open ]] +}, Open ]] +}, Open ]], +Cell[CellGroupData[{ +Cell[81106, 2175, 172, 4, 67, "Section",ExpressionUUID->"fccd9e5b-e02b-4435-b659-204d650d5919"], +Cell[81281, 2181, 542, 14, 30, "Input",ExpressionUUID->"d9b393c6-2d0e-4365-ab94-7d6ec5710670"], +Cell[81826, 2197, 2089, 57, 212, "Input",ExpressionUUID->"4082dbad-b700-412c-918b-7616ddad2b60"] +}, Open ]] +} +] +*) +