diff --git a/Z4co/wolfram/check_rhs.nb b/Z4co/wolfram/check_rhs.nb index c2f2a680..45ae7060 100644 --- a/Z4co/wolfram/check_rhs.nb +++ b/Z4co/wolfram/check_rhs.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] -NotebookDataLength[ 92031, 2392] -NotebookOptionsPosition[ 83931, 2257] -NotebookOutlinePosition[ 84328, 2273] -CellTagsIndexPosition[ 84285, 2270] +NotebookDataLength[ 126015, 3331] +NotebookOptionsPosition[ 117803, 3194] +NotebookOutlinePosition[ 118198, 3210] +CellTagsIndexPosition[ 118155, 3207] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -21,17 +21,18 @@ Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"Needs", "[", - RowBox[{"\"\\"", ",", - RowBox[{"FileNameJoin", "[", - RowBox[{"{", - RowBox[{ - RowBox[{"Environment", "[", "\"\\"", "]"}], ",", - "\"\\""}], "}"}], - "]"}]}], "]"}]], "Input", + RowBox[{ + 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}}, + 3.928779364042645*^9, 3.928779365849419*^9}, 3.9289641463776283`*^9}, CellLabel->"In[1]:=",ExpressionUUID->"9857cbce-1237-4124-83ba-143c7adb15bb"], Cell[CellGroupData[{ @@ -45,10 +46,12 @@ Cell[BoxData["\<\"------------------------------------------------------------\ 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}, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, + 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, + 3.92896627106909*^9, 3.928966427872181*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"641f79bd-b97e-48aa-aa4e-5a50fd2ffdcf"], +In[1]:=",ExpressionUUID->"7ccc0bd0-938d-4c88-9ebb-eb63a0a12cb3"], Cell[BoxData[ InterpretationBox[ @@ -67,10 +70,12 @@ Cell[BoxData[ 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}, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, + 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, + 3.92896627106909*^9, 3.928966427873288*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"809f4ad5-6f58-4428-8899-3203d49eeb50"], +In[1]:=",ExpressionUUID->"252463e4-4fc9-4f60-8a22-db8d6dbb6c26"], Cell[BoxData["\<\"CopyRight (C) 2003-2020, Jose M. Martin-Garcia, under the \ General Public License.\"\>"], "Print", @@ -81,10 +86,12 @@ General Public License.\"\>"], "Print", 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}, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, + 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, + 3.92896627106909*^9, 3.9289664278753138`*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"7ef015d1-8728-4365-acbe-df52ab271f47"], +In[1]:=",ExpressionUUID->"a39a43c6-c9b8-4bf5-b9e7-e64434c70ac8"], Cell[BoxData["\<\"Connecting to external mac executable...\"\>"], "Print", CellChangeTimes->{3.928779369275519*^9, 3.928785921920507*^9, @@ -94,10 +101,12 @@ Cell[BoxData["\<\"Connecting to external mac executable...\"\>"], "Print", 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}, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, + 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, + 3.92896627106909*^9, 3.928966427944615*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"7462857d-7df3-4798-afaa-6553f244e796"], +In[1]:=",ExpressionUUID->"299d6874-bc32-4deb-a192-61ffc32e39ed"], Cell[BoxData["\<\"Connection established.\"\>"], "Print", CellChangeTimes->{3.928779369275519*^9, 3.928785921920507*^9, @@ -107,10 +116,12 @@ Cell[BoxData["\<\"Connection established.\"\>"], "Print", 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}, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, + 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, + 3.92896627106909*^9, 3.928966428031767*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"ab529b6a-e588-42b4-8cc7-72c49c85341e"], +In[1]:=",ExpressionUUID->"7517edbc-a36a-4783-aa2c-3ba8ce4be16d"], Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print", @@ -121,10 +132,12 @@ Cell[BoxData["\<\"------------------------------------------------------------\ 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}, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, + 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, + 3.92896627106909*^9, 3.928966428032731*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"9e9ad9d3-d282-477c-9fdb-46b06f06a9b6"], +In[1]:=",ExpressionUUID->"25e74a4d-a95b-409d-a630-d73c20ff93f2"], Cell[BoxData[ InterpretationBox[ @@ -143,10 +156,12 @@ Cell[BoxData[ 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}, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, + 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, + 3.92896627106909*^9, 3.928966428033504*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"51053d0e-6cf6-48fb-bdb0-0e322306e7e7"], +In[1]:=",ExpressionUUID->"724b7f3f-121b-4465-8cf1-334c171f78f1"], Cell[BoxData["\<\"CopyRight (C) 2002-2021, Jose M. Martin-Garcia, under the \ General Public License.\"\>"], "Print", @@ -157,10 +172,12 @@ General Public License.\"\>"], "Print", 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}, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, + 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, + 3.92896627106909*^9, 3.928966428034247*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"be826e62-6e0d-429a-a8d5-9f7e9ab2e734"], +In[1]:=",ExpressionUUID->"65f03dff-b39a-44ef-8ef3-df9d692364c5"], Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print", @@ -171,10 +188,12 @@ Cell[BoxData["\<\"------------------------------------------------------------\ 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}, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, + 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, + 3.92896627106909*^9, 3.928966428052549*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"cae5fc5e-51ad-4ef4-a6d0-72b90651a501"], +In[1]:=",ExpressionUUID->"704eb53a-dd14-4ecf-aaac-b62d894d6515"], Cell[BoxData["\<\"These packages come with ABSOLUTELY NO WARRANTY; for \ details type Disclaimer[]. This is free software, and you are welcome to \ @@ -187,10 +206,12 @@ details.\"\>"], "Print", 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}, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, + 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, + 3.92896627106909*^9, 3.928966428053648*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"ab9fbc25-2463-40cb-a999-20438249c03e"], +In[1]:=",ExpressionUUID->"b661834e-0d7b-4d71-8cc4-9e0cd6f94522"], Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print", @@ -201,10 +222,12 @@ Cell[BoxData["\<\"------------------------------------------------------------\ 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}, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, + 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, + 3.92896627106909*^9, 3.928966428054942*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"ec0f62f5-a187-4764-8c92-c9e8a622a251"], +In[1]:=",ExpressionUUID->"948c81de-2770-4d58-922b-3b3316214e31"], Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print", @@ -215,10 +238,12 @@ Cell[BoxData["\<\"------------------------------------------------------------\ 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}, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, + 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, + 3.92896627106909*^9, 3.928966428222825*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"7b6cbb68-e888-4558-9ccc-b289389d57d0"], +In[1]:=",ExpressionUUID->"a95bfeb1-c2fc-4c63-82fe-6ff2defaf114"], Cell[BoxData[ InterpretationBox[ @@ -237,10 +262,12 @@ Cell[BoxData[ 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}, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, + 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, + 3.92896627106909*^9, 3.928966428223909*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"dd71f473-3d51-40ba-b101-ae16f7597454"], +In[1]:=",ExpressionUUID->"aef92069-6b9e-463e-aa42-fc4bcdb20849"], Cell[BoxData["\<\"CopyRight (C) 2005-2021, David Yllanes and Jose M. \ Martin-Garcia, under the General Public License.\"\>"], "Print", @@ -251,10 +278,12 @@ Martin-Garcia, under the General Public License.\"\>"], "Print", 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}, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, + 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, + 3.92896627106909*^9, 3.928966428224757*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"1cc19495-b183-4e50-af73-0c1cb64e432d"], +In[1]:=",ExpressionUUID->"d68b3c6b-608b-422b-acf3-afea533a9a4a"], Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print", @@ -265,10 +294,12 @@ Cell[BoxData["\<\"------------------------------------------------------------\ 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}, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, + 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, + 3.92896627106909*^9, 3.928966428249254*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"407e3d59-4f6c-4803-82c3-2435537c8438"], +In[1]:=",ExpressionUUID->"47ae4391-4f6d-47a5-b3d7-a99bfe43f332"], Cell[BoxData["\<\"These packages come with ABSOLUTELY NO WARRANTY; for \ details type Disclaimer[]. This is free software, and you are welcome to \ @@ -281,10 +312,12 @@ details.\"\>"], "Print", 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}, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, + 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, + 3.92896627106909*^9, 3.928966428250465*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"3b039420-4477-42cd-bd4e-ce0b677e4e8e"], +In[1]:=",ExpressionUUID->"6932e004-6959-468c-a027-92d98c508a72"], Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print", @@ -295,10 +328,12 @@ Cell[BoxData["\<\"------------------------------------------------------------\ 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}, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, + 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, + 3.92896627106909*^9, 3.928966428251567*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"a87e2713-ecde-449f-81d5-f851e98c92ce"], +In[1]:=",ExpressionUUID->"520a5db6-fdf1-468b-be39-cfa18303da83"], Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print", @@ -309,10 +344,12 @@ Cell[BoxData["\<\"------------------------------------------------------------\ 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}, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, + 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, + 3.92896627106909*^9, 3.9289664294124327`*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"6eb61b9c-72a7-4c4c-828d-f649f81f4a0a"], +In[1]:=",ExpressionUUID->"d82f6bf0-73d8-4f4b-86cc-2cf317321d17"], Cell[BoxData["\<\"Package Generato`Basic`, {2024, 1, 11}\"\>"], "Print", CellChangeTimes->{3.928779369275519*^9, 3.928785921920507*^9, @@ -322,10 +359,12 @@ Cell[BoxData["\<\"Package Generato`Basic`, {2024, 1, 11}\"\>"], "Print", 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}, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, + 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, + 3.92896627106909*^9, 3.9289664294136753`*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"57bc421f-192f-4bf8-a8b5-e844966b693e"], +In[1]:=",ExpressionUUID->"a0e43200-3ba1-4897-8d08-ab0d741e7c0f"], Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print", @@ -336,10 +375,12 @@ Cell[BoxData["\<\"------------------------------------------------------------\ 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}, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, + 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, + 3.92896627106909*^9, 3.928966429414689*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"6893318b-4581-45ce-ae88-d8d9892a612d"], +In[1]:=",ExpressionUUID->"d8a168bd-e06a-423a-8c17-960ccfcd78a2"], Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print", @@ -350,10 +391,12 @@ Cell[BoxData["\<\"------------------------------------------------------------\ 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}, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, + 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, + 3.92896627106909*^9, 3.928966429415653*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"db2e3ffc-e4ba-42c3-a0ad-2bec45d1b79d"], +In[1]:=",ExpressionUUID->"ad419cbf-18f8-4704-a691-209466495cd0"], Cell[BoxData["\<\"Package Generato`Component`, {2024, 1, 11}\"\>"], "Print", CellChangeTimes->{3.928779369275519*^9, 3.928785921920507*^9, @@ -363,10 +406,12 @@ Cell[BoxData["\<\"Package Generato`Component`, {2024, 1, 11}\"\>"], "Print", 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}, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, + 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, + 3.92896627106909*^9, 3.928966429416594*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"e4a4ff98-cfe1-4d8a-b1e1-5c5e036d6274"], +In[1]:=",ExpressionUUID->"cfe631c2-2a7a-4303-81f6-1a33ec79a251"], Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print", @@ -377,10 +422,12 @@ Cell[BoxData["\<\"------------------------------------------------------------\ 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}, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, + 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, + 3.92896627106909*^9, 3.92896642941749*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"6c5e2de1-c513-437d-856c-e0142aaf35ff"], +In[1]:=",ExpressionUUID->"ba30a431-6261-466a-892c-b36358173fea"], Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print", @@ -391,10 +438,12 @@ Cell[BoxData["\<\"------------------------------------------------------------\ 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}, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, + 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, + 3.92896627106909*^9, 3.928966429418378*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"947e3b2f-476a-4c42-832f-dbdd25d02b17"], +In[1]:=",ExpressionUUID->"c348876c-1d3b-4980-a9da-b11bd9992e87"], Cell[BoxData["\<\"Package Generato`Varlist`, {2024, 1, 11}\"\>"], "Print", CellChangeTimes->{3.928779369275519*^9, 3.928785921920507*^9, @@ -404,10 +453,12 @@ Cell[BoxData["\<\"Package Generato`Varlist`, {2024, 1, 11}\"\>"], "Print", 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}, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, + 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, + 3.92896627106909*^9, 3.928966429419243*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"ad87133b-20c4-4715-8198-8f24d931e01c"], +In[1]:=",ExpressionUUID->"a9782f4e-70a1-431c-b9f6-6edbd0ea8f76"], Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print", @@ -418,10 +469,12 @@ Cell[BoxData["\<\"------------------------------------------------------------\ 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}, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, + 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, + 3.92896627106909*^9, 3.928966429420106*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"4e1f620f-730b-47de-ae30-58e59b6143c0"], +In[1]:=",ExpressionUUID->"3d982cc6-0e6d-4697-b380-20a91be891a4"], Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print", @@ -432,10 +485,12 @@ Cell[BoxData["\<\"------------------------------------------------------------\ 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}, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, + 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, + 3.92896627106909*^9, 3.928966429420987*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"827f822e-b4ce-4e5e-9a56-6af775514fe5"], +In[1]:=",ExpressionUUID->"0f606b87-23d3-43d5-9038-cbb054b8dd36"], Cell[BoxData["\<\"Package Generato`Interface`, {2024, 1, 11}\"\>"], "Print", CellChangeTimes->{3.928779369275519*^9, 3.928785921920507*^9, @@ -445,10 +500,12 @@ Cell[BoxData["\<\"Package Generato`Interface`, {2024, 1, 11}\"\>"], "Print", 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}, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, + 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, + 3.92896627106909*^9, 3.928966429421845*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"2d30ba91-f4e5-4dc7-8c1f-be660785d3f5"], +In[1]:=",ExpressionUUID->"b20c89f3-0967-4ebd-acff-c68d4dc8b284"], Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print", @@ -459,10 +516,12 @@ Cell[BoxData["\<\"------------------------------------------------------------\ 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}, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, + 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, + 3.92896627106909*^9, 3.928966429422724*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"66c3549f-7d0e-44f4-8ce9-518ae76d51ec"], +In[1]:=",ExpressionUUID->"04147cbb-2030-4140-9e2e-5338a2779e3d"], Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print", @@ -473,10 +532,12 @@ Cell[BoxData["\<\"------------------------------------------------------------\ 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}, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, + 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, + 3.92896627106909*^9, 3.928966429423644*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"ee625317-2ca4-4214-953c-6a03728455cf"], +In[1]:=",ExpressionUUID->"e78bac8f-dde9-4274-8e5b-f6c3ad4e20b4"], Cell[BoxData["\<\"Package Generato`Derivation`, {2024, 1, 18}\"\>"], "Print", CellChangeTimes->{3.928779369275519*^9, 3.928785921920507*^9, @@ -486,10 +547,12 @@ Cell[BoxData["\<\"Package Generato`Derivation`, {2024, 1, 18}\"\>"], "Print", 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}, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, + 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, + 3.92896627106909*^9, 3.928966429424527*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"9024a8f3-8cdb-4791-ba10-1c52a032b3e0"], +In[1]:=",ExpressionUUID->"0ee013fb-d7d6-4124-97eb-8aba1998da8f"], Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print", @@ -500,10 +563,12 @@ Cell[BoxData["\<\"------------------------------------------------------------\ 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}, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, + 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, + 3.92896627106909*^9, 3.928966429425397*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"08346bec-d8f5-41f0-8011-5c940e07f905"], +In[1]:=",ExpressionUUID->"0c5cef84-20ad-422e-a518-92d32b94e51a"], Cell[BoxData["\<\"\"\>"], "Print", CellChangeTimes->{3.928779369275519*^9, 3.928785921920507*^9, @@ -513,22 +578,15 @@ Cell[BoxData["\<\"\"\>"], "Print", 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}, + 3.928922529309305*^9, 3.9289227830989847`*^9, 3.928923388413964*^9, + 3.928964160342538*^9, 3.928964296956814*^9, 3.928964365009714*^9, + 3.92896627106909*^9, 3.9289664294262543`*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"a9646f5b-4d68-467d-830f-9864181cab3f"] +In[1]:=",ExpressionUUID->"44588186-d291-435b-8979-5327344e3573"] }, 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", "[", @@ -542,6 +600,14 @@ Cell[BoxData[ Cell[CellGroupData[{ +Cell["Variable List", "Section", + CellChangeTimes->{{3.928922145638079*^9, 3.928922148281581*^9}, { + 3.928922253905546*^9, + 3.928922256640169*^9}},ExpressionUUID->"d93e9e9c-e043-49bf-adc4-\ +613bb015a823"], + +Cell[CellGroupData[{ + Cell["Output", "Subsection", CellChangeTimes->{{3.928922438020507*^9, 3.928922440113844*^9}},ExpressionUUID->"cc0db77f-50b2-45da-9194-\ @@ -636,7 +702,6 @@ Cell[BoxData[ 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-\ @@ -708,7 +773,6 @@ Cell[BoxData[ 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, @@ -745,7 +809,6 @@ Cell[BoxData[ 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, @@ -830,7 +893,6 @@ Cell[BoxData[ 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, @@ -906,7 +968,6 @@ Cell[BoxData[ 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}, { @@ -918,7 +979,6 @@ Cell[BoxData[ Cell[CellGroupData[{ Cell["Temp", "Subsection", - Editable->False, CellChangeTimes->{{3.9288195149467583`*^9, 3.928819526489415*^9}},ExpressionUUID->"1fd445a5-eeab-43da-98f4-\ 96f9414b6b16"], @@ -1025,7 +1085,6 @@ Cell[BoxData[ 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}, { @@ -1076,7 +1135,6 @@ Cell[BoxData[ 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, @@ -1135,7 +1193,6 @@ Cell[BoxData[ RowBox[{"trR", "[", "]"}], ",", RowBox[{"PrintAs", "->", "\"\\""}]}], "}"}]}], "\[IndentingNewLine]", "]"}], ";"}]], "Input", - Editable->False, InitializationCell->True, CellChangeTimes->{{3.928836234865031*^9, 3.928836243310957*^9}, { 3.928838514237761*^9, 3.928838528459001*^9}}, @@ -1144,7 +1201,6 @@ Cell[BoxData[ Cell[CellGroupData[{ Cell["Matter", "Subsubsection", - Editable->False, CellChangeTimes->{{3.928836335137689*^9, 3.928836338355296*^9}},ExpressionUUID->"63c86796-f445-4596-a568-\ cf6b7233992a"], @@ -1182,7 +1238,6 @@ Cell[BoxData[ 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, @@ -1193,7 +1248,6 @@ Cell[BoxData[ Cell[CellGroupData[{ Cell["Constraints", "Subsubsection", - Editable->False, CellChangeTimes->{{3.928838206212228*^9, 3.928838207562324*^9}},ExpressionUUID->"28d203fe-58c8-4126-8774-\ 88d5a1781306"], @@ -1203,19 +1257,14 @@ Cell[BoxData[ RowBox[{"DefTensors", "[", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ - RowBox[{"dexAtUU", "[", - RowBox[{ - RowBox[{"-", "k"}], ",", "i", ",", "j"}], "]"}], ",", - RowBox[{"Symmetric", "[", - RowBox[{"{", - RowBox[{"i", ",", "j"}], "}"}], "]"}], ",", + RowBox[{"trdexAtUU", "[", "i", "]"}], ",", RowBox[{ "PrintAs", "->", "\"\<\[PartialD]\!\(\*OverscriptBox[\(A\), \(~\)]\)\>\""}]}], "}"}], "\[IndentingNewLine]", "]"}], ";"}]], "Input", - Editable->False, InitializationCell->True, - CellChangeTimes->{{3.928838799406372*^9, 3.92883885541286*^9}}, + CellChangeTimes->{{3.928838799406372*^9, 3.92883885541286*^9}, { + 3.928964407407938*^9, 3.928964449201947*^9}}, CellLabel->"In[12]:=",ExpressionUUID->"c47cb394-ee24-4509-bdff-c280f2d44f4a"], Cell[BoxData[ @@ -1239,7 +1288,6 @@ Cell[BoxData[ 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"] @@ -1249,7 +1297,6 @@ Cell[BoxData[ Cell[CellGroupData[{ Cell["Constant", "Subsection", - Editable->False, CellChangeTimes->{{3.928788008646267*^9, 3.928788014497714*^9}},ExpressionUUID->"ab64c7df-87cb-4c7d-990a-\ 2b0543e709db"], @@ -1288,14 +1335,13 @@ Cell[BoxData[{ 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}}, + 3.9287973225423393`*^9}}, CellLabel->"In[14]:=",ExpressionUUID->"e471a9d0-e772-4737-b68b-dc67e2be03b9"] }, Open ]] -}, Open ]], +}, Closed]], Cell[CellGroupData[{ @@ -1305,879 +1351,1769 @@ Cell["RHS", "Section", 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]", +Cell[BoxData[ 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, + RowBox[{"SetDirectory", "[", + RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}]], "Input", 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"], + CellChangeTimes->{{3.928964226558416*^9, 3.928964236379902*^9}}, + CellLabel->"In[20]:=",ExpressionUUID->"bcf3d33f-c2e3-4846-9c1c-4cfd7929fe92"], -Cell[BoxData[{ - RowBox[{ - RowBox[{"SetEQN", "[", - RowBox[{ - RowBox[{"dtalpha", "[", "]"}], ",", - RowBox[{ - RowBox[{"-", - SuperscriptBox[ - RowBox[{"alpha", "[", "]"}], "2"]}], "cmuL", " ", - RowBox[{"exKh", "[", "]"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", +Cell[BoxData[ 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, + RowBox[{"<<", "\"\\""}], ";"}]], "Input", 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"] + CellChangeTimes->{{3.928964185135023*^9, 3.928964202762931*^9}, + 3.928964283303729*^9, {3.928964317484146*^9, 3.928964318877675*^9}}, + CellLabel->"In[21]:=",ExpressionUUID->"465f2346-9a0b-41e7-a4bf-1a5b9b7b3fee"] }, Open ]], Cell[CellGroupData[{ -Cell["Temp", "Subsection", +Cell["Check RHS", "Section", Editable->False, - CellChangeTimes->{{3.928818678205492*^9, - 3.928818680253039*^9}},ExpressionUUID->"29fb9a40-8f32-4735-bf46-\ -1b2322d6762f"], + CellChangeTimes->{{3.928922179904344*^9, + 3.928922182897522*^9}},ExpressionUUID->"fccd9e5b-e02b-4435-b659-\ +204d650d5919"], -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]", +Cell[CellGroupData[{ + +Cell["Check expression", "Subsection", + CellChangeTimes->{{3.928964466504136*^9, + 3.9289644867882233`*^9}},ExpressionUUID->"881c7a62-60e5-4d3a-a383-\ +aedf982655f9"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"dtchi$RHS", "[", "]"}]], "Input", + CellChangeTimes->{{3.9289645276507883`*^9, 3.9289645381912193`*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"37bd862a-bfb9-4e90-897d-4ec6176a0421"], + +Cell[BoxData[ RowBox[{ - RowBox[{"SetEQN", "[", + FractionBox["2", "3"], " ", + InterpretationBox[ + StyleBox["\[Chi]", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`chi[], + Editable->False], " ", + RowBox[{"(", RowBox[{ - RowBox[{"GtDDD", "[", - RowBox[{"k_", ",", "i_", ",", "j_"}], "]"}], ",", + 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[{ - FractionBox["1", "2"], + InterpretationBox[ + StyleBox["\[Alpha]", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`alpha[], + Editable->False], " ", 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"], + 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.9289645343087482`*^9, 3.928964538798901*^9}, + 3.928966275004567*^9, 3.928966431673462*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"36218ab4-d290-42a5-bf7e-21f91f7ca46b"] +}, Open ]], -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[CellGroupData[{ -Cell[BoxData[{ +Cell[BoxData[ + RowBox[{"dtgamt$RHS", "[", + RowBox[{ + RowBox[{"-", "i"}], ",", + RowBox[{"-", "j"}]}], "]"}]], "Input", + CellChangeTimes->{{3.928965648994341*^9, 3.9289656618526993`*^9}}, + CellLabel->"In[23]:=",ExpressionUUID->"6e287b1e-4c94-495c-8676-b68848156dae"], + +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[{"-", "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.928965657598768*^9, 3.928965662429008*^9}, + 3.928966277491879*^9, 3.92896643845725*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"4c7eded5-8410-4259-8e35-a3bb3ed5b9e0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"dtexKh$RHS", "[", "]"}]], "Input", + CellChangeTimes->{{3.9289656900336447`*^9, 3.92896569550109*^9}}, + CellLabel->"In[24]:=",ExpressionUUID->"ad4468d2-be76-430b-94ec-3f5c853bdd94"], + +Cell[BoxData[ RowBox[{ - RowBox[{"SetEQN", "[", - RowBox[{ - RowBox[{"Rt", "[", - RowBox[{"i_", ",", "j_"}], "]"}], ",", + 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[{ - 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[{ + 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[{ - 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", "[", "]"}], ",", + 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[{ - 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"], + 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.9289656960963297`*^9, 3.928966279382185*^9, + 3.928966441344634*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"fb6b54e9-f969-47fe-8791-436e6867e630"] +}, Open ]], Cell[CellGroupData[{ -Cell["Matter", "Subsubsection", - Editable->False, - CellChangeTimes->{{3.928836325237843*^9, - 3.928836330500912*^9}},ExpressionUUID->"21635a48-b393-484a-82e9-\ -abbe12d2c210"], +Cell[BoxData[ + RowBox[{"dtexAt$RHS", "[", + RowBox[{ + RowBox[{"-", "i"}], ",", + RowBox[{"-", "j"}]}], "]"}]], "Input", + CellChangeTimes->{{3.92896578412668*^9, 3.928965792221045*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"bc359c6c-652c-4059-b2db-0b92f1f31d9d"], -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]", +Cell[BoxData[ RowBox[{ - RowBox[{"SetEQN", "[", - RowBox[{ - RowBox[{"Sm", "[", "i_", "]"}], ",", + 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[{"-", - SuperscriptBox[ - RowBox[{"alpha", "[", "]"}], - RowBox[{"-", "1"}]]}], - RowBox[{"(", - RowBox[{ - RowBox[{"eTt", "[", "i", "]"}], "-", + 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[{"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[{"-", + 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[{"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"] + 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]}]}], ")"}]}]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.928965793723925*^9, 3.928966281144665*^9, + 3.928966444342515*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"63307520-7d7d-4213-8f2a-23f3bb4c268a"] }, 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"], + RowBox[{"dttrGt$RHS", "[", "i", "]"}]], "Input", + CellChangeTimes->{{3.928965900258523*^9, 3.928965911025522*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"4af799ba-4478-4a70-b900-87d485df0f8f"], -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]", +Cell[BoxData[ RowBox[{ - RowBox[{"SetEQN", "[", - RowBox[{ - RowBox[{"MtC", "[", "i_", "]"}], ",", + 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[{"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[{"-", + 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[{"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 ]] + 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.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + 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.9289659061614113`*^9, 3.928965911461485*^9}, + 3.9289662837017527`*^9, 3.928966450132257*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"0d45afe0-a415-443c-8e7f-2ce76ce7eddb"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell["Check RHS", "Section", - Editable->False, - CellChangeTimes->{{3.928922179904344*^9, - 3.928922182897522*^9}},ExpressionUUID->"fccd9e5b-e02b-4435-b659-\ -204d650d5919"], +Cell["Check with static solutions", "Subsection", + CellChangeTimes->{{3.928964473974399*^9, + 3.928964499207979*^9}},ExpressionUUID->"926fcc7b-37b2-44e0-a0d4-\ +39b1e5f39312"], Cell[BoxData[ RowBox[{ @@ -2193,7 +3129,7 @@ Cell[BoxData[ RowBox[{"ChartColor", "->", "Blue"}]}], "]"}], ";"}]], "Input", Editable->False, CellChangeTimes->{{3.92892218457619*^9, 3.9289221845795403`*^9}}, - CellLabel->"In[49]:=",ExpressionUUID->"d9b393c6-2d0e-4365-ab94-7d6ec5710670"], + CellLabel->"In[22]:=",ExpressionUUID->"d9b393c6-2d0e-4365-ab94-7d6ec5710670"], Cell[BoxData[ RowBox[{ @@ -2253,10 +3189,11 @@ Cell[BoxData[ "Simplify"}]}], "]"}]}]}], "\n", "]"}], ";"}]], "Input", Editable->False, CellLabel->"In[50]:=",ExpressionUUID->"4082dbad-b700-412c-918b-7616ddad2b60"] +}, Closed]] }, Open ]] }, -WindowSize->{960, 1027}, -WindowMargins->{{0, Automatic}, {Automatic, 40}}, +WindowSize->{896, 520}, +WindowMargins->{{0, Automatic}, {0, Automatic}}, FrontEndVersion->"14.0 for Mac OS X x86 (64-bit) (December 12, 2023)", StyleDefinitions->"Default.nb", ExpressionUUID->"ebd466d4-c373-4284-afdd-a9043ac1493f" @@ -2273,126 +3210,128 @@ CellTagsIndex->{} (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ -Cell[580, 22, 531, 12, 68, "Input",ExpressionUUID->"9857cbce-1237-4124-83ba-143c7adb15bb", +Cell[580, 22, 581, 13, 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"] +Cell[1186, 39, 861, 14, 24, "Print",ExpressionUUID->"7ccc0bd0-938d-4c88-9ebb-eb63a0a12cb3"], +Cell[2050, 55, 1133, 22, 24, "Print",ExpressionUUID->"252463e4-4fc9-4f60-8a22-db8d6dbb6c26"], +Cell[3186, 79, 884, 14, 24, "Print",ExpressionUUID->"a39a43c6-c9b8-4bf5-b9e7-e64434c70ac8"], +Cell[4073, 95, 839, 13, 24, "Print",ExpressionUUID->"299d6874-bc32-4deb-a192-61ffc32e39ed"], +Cell[4915, 110, 822, 13, 24, "Print",ExpressionUUID->"7517edbc-a36a-4783-aa2c-3ba8ce4be16d"], +Cell[5740, 125, 861, 14, 24, "Print",ExpressionUUID->"25e74a4d-a95b-409d-a630-d73c20ff93f2"], +Cell[6604, 141, 1139, 22, 24, "Print",ExpressionUUID->"724b7f3f-121b-4465-8cf1-334c171f78f1"], +Cell[7746, 165, 882, 14, 24, "Print",ExpressionUUID->"65f03dff-b39a-44ef-8ef3-df9d692364c5"], +Cell[8631, 181, 861, 14, 24, "Print",ExpressionUUID->"704eb53a-dd14-4ecf-aaac-b62d894d6515"], +Cell[9495, 197, 1016, 16, 44, "Print",ExpressionUUID->"b661834e-0d7b-4d71-8cc4-9e0cd6f94522"], +Cell[10514, 215, 861, 14, 24, "Print",ExpressionUUID->"948c81de-2770-4d58-922b-3b3316214e31"], +Cell[11378, 231, 861, 14, 24, "Print",ExpressionUUID->"a95bfeb1-c2fc-4c63-82fe-6ff2defaf114"], +Cell[12242, 247, 1133, 22, 24, "Print",ExpressionUUID->"aef92069-6b9e-463e-aa42-fc4bcdb20849"], +Cell[13378, 271, 900, 14, 24, "Print",ExpressionUUID->"d68b3c6b-608b-422b-acf3-afea533a9a4a"], +Cell[14281, 287, 861, 14, 24, "Print",ExpressionUUID->"47ae4391-4f6d-47a5-b3d7-a99bfe43f332"], +Cell[15145, 303, 1016, 16, 44, "Print",ExpressionUUID->"6932e004-6959-468c-a027-92d98c508a72"], +Cell[16164, 321, 861, 14, 24, "Print",ExpressionUUID->"520a5db6-fdf1-468b-be39-cfa18303da83"], +Cell[17028, 337, 863, 14, 24, "Print",ExpressionUUID->"d82f6bf0-73d8-4f4b-86cc-2cf317321d17"], +Cell[17894, 353, 839, 13, 24, "Print",ExpressionUUID->"a0e43200-3ba1-4897-8d08-ab0d741e7c0f"], +Cell[18736, 368, 861, 14, 24, "Print",ExpressionUUID->"d8a168bd-e06a-423a-8c17-960ccfcd78a2"], +Cell[19600, 384, 861, 14, 24, "Print",ExpressionUUID->"ad419cbf-18f8-4704-a691-209466495cd0"], +Cell[20464, 400, 841, 13, 24, "Print",ExpressionUUID->"cfe631c2-2a7a-4303-81f6-1a33ec79a251"], +Cell[21308, 415, 860, 14, 24, "Print",ExpressionUUID->"ba30a431-6261-466a-892c-b36358173fea"], +Cell[22171, 431, 861, 14, 24, "Print",ExpressionUUID->"c348876c-1d3b-4980-a9da-b11bd9992e87"], +Cell[23035, 447, 839, 13, 24, "Print",ExpressionUUID->"a9782f4e-70a1-431c-b9f6-6edbd0ea8f76"], +Cell[23877, 462, 861, 14, 24, "Print",ExpressionUUID->"3d982cc6-0e6d-4697-b380-20a91be891a4"], +Cell[24741, 478, 861, 14, 24, "Print",ExpressionUUID->"0f606b87-23d3-43d5-9038-cbb054b8dd36"], +Cell[25605, 494, 841, 13, 24, "Print",ExpressionUUID->"b20c89f3-0967-4ebd-acff-c68d4dc8b284"], +Cell[26449, 509, 861, 14, 24, "Print",ExpressionUUID->"04147cbb-2030-4140-9e2e-5338a2779e3d"], +Cell[27313, 525, 861, 14, 24, "Print",ExpressionUUID->"e78bac8f-dde9-4274-8e5b-f6c3ad4e20b4"], +Cell[28177, 541, 842, 13, 24, "Print",ExpressionUUID->"0ee013fb-d7d6-4124-97eb-8aba1998da8f"], +Cell[29022, 556, 861, 14, 24, "Print",ExpressionUUID->"0c5cef84-20ad-422e-a518-92d32b94e51a"], +Cell[29886, 572, 801, 13, 24, "Print",ExpressionUUID->"44588186-d291-435b-8979-5327344e3573"] }, 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", +Cell[30714, 589, 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", +Cell[31112, 602, 207, 4, 67, "Section",ExpressionUUID->"d93e9e9c-e043-49bf-adc4-613bb015a823"], +Cell[CellGroupData[{ +Cell[31344, 610, 154, 3, 54, "Subsection",ExpressionUUID->"cc0db77f-50b2-45da-9194-890bb5a70986"], +Cell[31501, 615, 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", +Cell[34324, 703, 206, 4, 54, "Subsection",ExpressionUUID->"8f6e447f-5ad1-4983-a220-4a62c32eb45e"], +Cell[34533, 709, 2799, 75, 249, "Input",ExpressionUUID->"586963a8-981b-4f2c-bc38-3bd149af82cd", InitializationCell->True], -Cell[33551, 722, 1110, 30, 131, "Input",ExpressionUUID->"c08588c0-b1be-4279-a26f-ad8578054e37", +Cell[37335, 786, 1092, 29, 131, "Input",ExpressionUUID->"c08588c0-b1be-4279-a26f-ad8578054e37", InitializationCell->True], -Cell[34664, 754, 3263, 89, 249, "Input",ExpressionUUID->"4ff7b252-b898-4dd1-8ab8-4a2c09d190d5", +Cell[38430, 817, 3245, 88, 249, "Input",ExpressionUUID->"4ff7b252-b898-4dd1-8ab8-4a2c09d190d5", InitializationCell->True], -Cell[37930, 845, 2434, 69, 158, "Input",ExpressionUUID->"9fecfaa3-ca7e-42bb-a622-c6a21140981a", +Cell[41678, 907, 2416, 68, 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", +Cell[44131, 980, 154, 3, 54, "Subsection",ExpressionUUID->"1fd445a5-eeab-43da-98f4-96f9414b6b16"], +Cell[44288, 985, 4478, 118, 275, "Input",ExpressionUUID->"230e3e3d-ec24-4b15-9bc4-4c66fa656cc7", InitializationCell->True], -Cell[45075, 1046, 1483, 39, 116, "Input",ExpressionUUID->"012d0ece-df9c-44ca-af29-bd29950146e4", +Cell[48769, 1105, 1465, 38, 116, "Input",ExpressionUUID->"012d0ece-df9c-44ca-af29-bd29950146e4", InitializationCell->True], -Cell[46561, 1087, 1763, 54, 161, "Input",ExpressionUUID->"b2cd1bbb-ebc2-4ae5-98e8-1baa91d81aa3", +Cell[50237, 1145, 1745, 53, 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", +Cell[52007, 1202, 157, 3, 45, "Subsubsection",ExpressionUUID->"63c86796-f445-4596-a568-cf6b7233992a"], +Cell[52167, 1207, 1310, 37, 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", +Cell[53514, 1249, 162, 3, 45, "Subsubsection",ExpressionUUID->"28d203fe-58c8-4126-8774-88d5a1781306"], +Cell[53679, 1254, 538, 13, 95, "Input",ExpressionUUID->"c47cb394-ee24-4509-bdff-c280f2d44f4a", InitializationCell->True], -Cell[50747, 1220, 875, 24, 139, "Input",ExpressionUUID->"5502d63c-b6fc-4a63-a203-12b5cbab9476", +Cell[54220, 1269, 857, 23, 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", +Cell[55126, 1298, 156, 3, 54, "Subsection",ExpressionUUID->"ab64c7df-87cb-4c7d-990a-2b0543e709db"], +Cell[55285, 1303, 1418, 38, 152, "Input",ExpressionUUID->"e471a9d0-e772-4737-b68b-dc67e2be03b9", InitializationCell->True] }, Open ]] -}, Open ]], +}, Closed]], 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", +Cell[56752, 1347, 166, 4, 53, "Section",ExpressionUUID->"519fe4de-6999-4db6-9e6b-17dff89f6b40"], +Cell[56921, 1353, 295, 6, 46, "Input",ExpressionUUID->"bcf3d33f-c2e3-4846-9c1c-4cfd7929fe92", InitializationCell->True], -Cell[63945, 1634, 1044, 27, 72, "Input",ExpressionUUID->"3545a3fa-9727-44d6-9422-6e4c3ef3c427", +Cell[57219, 1361, 327, 6, 46, "Input",ExpressionUUID->"465f2346-9a0b-41e7-a4bf-1a5b9b7b3fee", 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[57583, 1372, 172, 4, 67, "Section",ExpressionUUID->"fccd9e5b-e02b-4435-b659-204d650d5919"], 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] +Cell[57780, 1380, 166, 3, 54, "Subsection",ExpressionUUID->"881c7a62-60e5-4d3a-a383-aedf982655f9"], +Cell[CellGroupData[{ +Cell[57971, 1387, 206, 3, 30, "Input",ExpressionUUID->"37bd862a-bfb9-4e90-897d-4ec6176a0421"], +Cell[58180, 1392, 2045, 64, 49, "Output",ExpressionUUID->"36218ab4-d290-42a5-bf7e-21f91f7ca46b"] }, 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 ]] +Cell[60262, 1461, 271, 6, 30, "Input",ExpressionUUID->"6e287b1e-4c94-495c-8676-b68848156dae"], +Cell[60536, 1469, 6676, 205, 49, "Output",ExpressionUUID->"4c7eded5-8410-4259-8e35-a3bb3ed5b9e0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[67249, 1679, 204, 3, 30, "Input",ExpressionUUID->"ad4468d2-be76-430b-94ec-3f5c853bdd94"], +Cell[67456, 1684, 6123, 197, 49, "Output",ExpressionUUID->"fb6b54e9-f969-47fe-8791-436e6867e630"] +}, Open ]], +Cell[CellGroupData[{ +Cell[73616, 1886, 268, 6, 30, "Input",ExpressionUUID->"bc359c6c-652c-4059-b2db-0b92f1f31d9d"], +Cell[73887, 1894, 19398, 566, 87, "Output",ExpressionUUID->"63307520-7d7d-4213-8f2a-23f3bb4c268a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[93322, 2465, 208, 3, 30, "Input",ExpressionUUID->"4af799ba-4478-4a70-b900-87d485df0f8f"], +Cell[93533, 2470, 21381, 636, 129, "Output",ExpressionUUID->"0d45afe0-a415-443c-8e7f-2ce76ce7eddb"] }, 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"] +Cell[114963, 3112, 175, 3, 54, "Subsection",ExpressionUUID->"926fcc7b-37b2-44e0-a0d4-39b1e5f39312"], +Cell[115141, 3117, 542, 14, 30, "Input",ExpressionUUID->"d9b393c6-2d0e-4365-ab94-7d6ec5710670"], +Cell[115686, 3133, 2089, 57, 157, "Input",ExpressionUUID->"4082dbad-b700-412c-918b-7616ddad2b60"] +}, Closed]] }, Open ]] } ] diff --git a/Z4co/wolfram/wl/Z4c_rhs.wl b/Z4co/wolfram/wl/Z4c_rhs.wl index 69fae578..f7b5e0ae 100644 --- a/Z4co/wolfram/wl/Z4c_rhs.wl +++ b/Z4co/wolfram/wl/Z4c_rhs.wl @@ -113,9 +113,11 @@ SetEQN[dtexAt[i_, j_], chi[] ((-DDalpha[i, j] + alpha[] (R[i, j] - 8 cpi SetEQN[dttrGt[i_], -2 exAtUU[i, j] dalpha[-j] + 2 alpha[] (Gt[i, -j, -k ] exAtUU[j, k] - 3/2 exAtUU[i, j] dchi[-j] / chi[] - 1/3 invgamt[i, j] - (2 dexKh[-j] + dTheta[-j]) - 8 cpi invgam[i, j] Sm[-j]) + invgamt[j, k] - ddbeta[-j, -k, i] + 1/3 invgamt[i, j] ddbeta[-j, -k, k] - 2/3 trGtd[i] - dbeta[-j, j] - 2 alpha[] ckappa1 (trGt[i] - trGtd[i])]; + (2 dexKh[-j] + dTheta[-j]) - 8 cpi invgamt[i, j] Sm[-j]) + invgamt[j, k] + ddbeta[-j, -k, i] + 1/3 invgamt[i, j] ddbeta[-j, -k, k] + - trGtd[j] dbeta[-j, i] + + 2/3 trGtd[i] dbeta[-j, j] + - 2 alpha[] ckappa1 (trGt[i] - trGtd[i])]; (* (6) *)