diff --git a/Z4co/wolfram/check_rhs.nb b/Z4co/wolfram/check_rhs.nb index 6da2f0cb..204293c9 100644 --- a/Z4co/wolfram/check_rhs.nb +++ b/Z4co/wolfram/check_rhs.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] -NotebookDataLength[ 160183, 4341] -NotebookOptionsPosition[ 151053, 4188] -NotebookOutlinePosition[ 151449, 4204] -CellTagsIndexPosition[ 151406, 4201] +NotebookDataLength[ 138861, 3743] +NotebookOptionsPosition[ 131449, 3622] +NotebookOutlinePosition[ 131846, 3638] +CellTagsIndexPosition[ 131803, 3635] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -48,10 +48,11 @@ Cell[BoxData["\<\"------------------------------------------------------------\ 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^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, 3.928999536824163*^9}, + 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, + 3.929009409821639*^9, 3.929009722843943*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"20094415-68da-4af4-9c6c-3fdc1a23a603"], +In[1]:=",ExpressionUUID->"9120fe83-6a2b-4ec7-8e50-fcc134b62e8c"], Cell[BoxData[ InterpretationBox[ @@ -72,10 +73,11 @@ Cell[BoxData[ 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^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, 3.92899953682549*^9}, + 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, + 3.929009409821639*^9, 3.929009722845414*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"f9d9b649-55ae-4cae-a8ac-04400e708816"], +In[1]:=",ExpressionUUID->"3d1ecaf5-6a47-4f09-babc-57972ca73272"], Cell[BoxData["\<\"CopyRight (C) 2003-2020, Jose M. Martin-Garcia, under the \ General Public License.\"\>"], "Print", @@ -88,10 +90,11 @@ General Public License.\"\>"], "Print", 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^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, 3.928999536828717*^9}, + 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, + 3.929009409821639*^9, 3.929009722847005*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"178ea6b0-a3fb-4a94-80c6-d4b3cb19fedf"], +In[1]:=",ExpressionUUID->"e08664ad-6104-4cfa-98b7-ca2968b1ce59"], Cell[BoxData["\<\"Connecting to external mac executable...\"\>"], "Print", CellChangeTimes->{3.928779369275519*^9, 3.928785921920507*^9, @@ -103,10 +106,11 @@ Cell[BoxData["\<\"Connecting to external mac executable...\"\>"], "Print", 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^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, 3.928999536913677*^9}, + 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, + 3.929009409821639*^9, 3.929009722930254*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"b74c4bad-8987-48ef-8cab-1cb37299b64e"], +In[1]:=",ExpressionUUID->"5769f9f3-d494-4ba1-a743-3430da7f0ad4"], Cell[BoxData["\<\"Connection established.\"\>"], "Print", CellChangeTimes->{3.928779369275519*^9, 3.928785921920507*^9, @@ -118,10 +122,11 @@ Cell[BoxData["\<\"Connection established.\"\>"], "Print", 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^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, 3.928999537019346*^9}, + 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, + 3.929009409821639*^9, 3.929009723022167*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"90b5d5b9-dc23-4b15-a582-274d6437d06c"], +In[1]:=",ExpressionUUID->"8ab69c72-5bd0-4933-931e-c6afecac09f1"], Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print", @@ -134,10 +139,11 @@ Cell[BoxData["\<\"------------------------------------------------------------\ 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^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, 3.928999537020458*^9}, + 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, + 3.929009409821639*^9, 3.929009723023281*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"16aee840-3934-4565-9474-e1384a364e7c"], +In[1]:=",ExpressionUUID->"7aade315-fd02-4c32-af5f-7877092559a5"], Cell[BoxData[ InterpretationBox[ @@ -158,10 +164,11 @@ Cell[BoxData[ 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^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, 3.928999537021248*^9}, + 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, + 3.929009409821639*^9, 3.929009723024179*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"1923a055-e636-4474-bcb5-e17fd234d170"], +In[1]:=",ExpressionUUID->"ffdb9704-c1bb-48d0-9e36-d3996801fb6f"], Cell[BoxData["\<\"CopyRight (C) 2002-2021, Jose M. Martin-Garcia, under the \ General Public License.\"\>"], "Print", @@ -174,10 +181,11 @@ General Public License.\"\>"], "Print", 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^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, 3.928999537021997*^9}, + 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, + 3.929009409821639*^9, 3.929009723024975*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"b9a51533-a204-4e5f-95f8-b48f6af3be77"], +In[1]:=",ExpressionUUID->"89a6a6d0-8e6c-49b4-8550-2b333801f226"], Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print", @@ -190,10 +198,11 @@ Cell[BoxData["\<\"------------------------------------------------------------\ 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^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, 3.928999537040289*^9}, + 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, + 3.929009409821639*^9, 3.929009723060289*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"08713b5f-c249-4e38-b6cd-e19695584e43"], +In[1]:=",ExpressionUUID->"c9c96747-ae28-40fa-a52d-5da6d65872e5"], Cell[BoxData["\<\"These packages come with ABSOLUTELY NO WARRANTY; for \ details type Disclaimer[]. This is free software, and you are welcome to \ @@ -208,10 +217,11 @@ details.\"\>"], "Print", 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^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, 3.92899953704125*^9}, + 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, + 3.929009409821639*^9, 3.929009723061245*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"1252be88-68e1-49cd-921c-f81c796c3c10"], +In[1]:=",ExpressionUUID->"cd90b7f8-6065-4b49-8d97-a33d144a03d3"], Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print", @@ -224,10 +234,11 @@ Cell[BoxData["\<\"------------------------------------------------------------\ 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^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, 3.928999537042207*^9}, + 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, + 3.929009409821639*^9, 3.9290097230621223`*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"7fb9e36a-dd8d-4343-b081-67549a38c8ca"], +In[1]:=",ExpressionUUID->"31351dc0-882f-4a5e-9f5e-eaf3f54e2faf"], Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print", @@ -240,10 +251,11 @@ Cell[BoxData["\<\"------------------------------------------------------------\ 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^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, 3.928999537229299*^9}, + 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, + 3.929009409821639*^9, 3.929009723239043*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"f04835e3-5151-4a5b-9ec0-7251263a0f2f"], +In[1]:=",ExpressionUUID->"6b4c79b2-e5b5-4d7c-a1c3-c44efad8b86b"], Cell[BoxData[ InterpretationBox[ @@ -264,10 +276,11 @@ Cell[BoxData[ 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^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, 3.928999537230506*^9}, + 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, + 3.929009409821639*^9, 3.929009723240295*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"beaf23fa-8c05-472b-a6fb-3f5fa93cbe14"], +In[1]:=",ExpressionUUID->"8adf5822-aa11-44a2-8360-61cd724a9169"], Cell[BoxData["\<\"CopyRight (C) 2005-2021, David Yllanes and Jose M. \ Martin-Garcia, under the General Public License.\"\>"], "Print", @@ -280,10 +293,11 @@ Martin-Garcia, under the General Public License.\"\>"], "Print", 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^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, 3.928999537231462*^9}, + 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, + 3.929009409821639*^9, 3.9290097232412453`*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"cc2977c5-9eef-4b43-bc77-05bf3b65e2f7"], +In[1]:=",ExpressionUUID->"97411cdd-cc35-4980-89dc-bc2897b5951f"], Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print", @@ -296,10 +310,11 @@ Cell[BoxData["\<\"------------------------------------------------------------\ 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^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, 3.9289995372561626`*^9}, + 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, + 3.929009409821639*^9, 3.9290097232808437`*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"96f32b29-e21e-4d81-a2d4-e97d39125df1"], +In[1]:=",ExpressionUUID->"a977f34a-ef45-407b-93ae-55c722845ee5"], Cell[BoxData["\<\"These packages come with ABSOLUTELY NO WARRANTY; for \ details type Disclaimer[]. This is free software, and you are welcome to \ @@ -314,10 +329,11 @@ details.\"\>"], "Print", 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^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, 3.928999537257395*^9}, + 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, + 3.929009409821639*^9, 3.9290097232820272`*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"8e11dd46-e9fe-463b-a34f-b821e4de580b"], +In[1]:=",ExpressionUUID->"a4212f0d-a09e-48ad-91ac-04bf58c99c96"], Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print", @@ -330,10 +346,11 @@ Cell[BoxData["\<\"------------------------------------------------------------\ 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^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, 3.928999537258581*^9}, + 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, + 3.929009409821639*^9, 3.92900972328306*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"7c4d704b-00dc-465e-b20e-86307db6e57c"], +In[1]:=",ExpressionUUID->"6c0ede5c-bcf0-41eb-b8d0-ac34d45db64a"], Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print", @@ -346,10 +363,11 @@ Cell[BoxData["\<\"------------------------------------------------------------\ 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^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, 3.9289995393061543`*^9}, + 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, + 3.929009409821639*^9, 3.929009725284054*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"654f265f-c808-4d5e-bc9e-d827f5564438"], +In[1]:=",ExpressionUUID->"ddddb1b2-6015-49a3-a155-783705f0d01f"], Cell[BoxData["\<\"Package Generato`Basic`, {2024, 1, 11}\"\>"], "Print", CellChangeTimes->{3.928779369275519*^9, 3.928785921920507*^9, @@ -361,10 +379,11 @@ Cell[BoxData["\<\"Package Generato`Basic`, {2024, 1, 11}\"\>"], "Print", 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^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, 3.9289995393075037`*^9}, + 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, + 3.929009409821639*^9, 3.929009725285528*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"32b6a7fb-e56e-421a-a42f-82f4b4ecdca5"], +In[1]:=",ExpressionUUID->"e1a9cb56-0e54-48fd-ad4b-18b20d1fb8e8"], Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print", @@ -377,10 +396,11 @@ Cell[BoxData["\<\"------------------------------------------------------------\ 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^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, 3.928999539308496*^9}, + 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, + 3.929009409821639*^9, 3.929009725286673*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"e526ba7c-dc89-417a-ba24-f3882c589ad2"], +In[1]:=",ExpressionUUID->"a235f701-d9b7-410f-9d1b-7208f084a13d"], Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print", @@ -393,10 +413,11 @@ Cell[BoxData["\<\"------------------------------------------------------------\ 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^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, 3.928999539309471*^9}, + 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, + 3.929009409821639*^9, 3.92900972528782*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"3f74268a-05b7-4b78-89dd-d97e14cbe2c9"], +In[1]:=",ExpressionUUID->"a05852a7-0c88-47cf-b674-a2e2daa1bcee"], Cell[BoxData["\<\"Package Generato`Component`, {2024, 1, 11}\"\>"], "Print", CellChangeTimes->{3.928779369275519*^9, 3.928785921920507*^9, @@ -408,10 +429,11 @@ Cell[BoxData["\<\"Package Generato`Component`, {2024, 1, 11}\"\>"], "Print", 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^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, 3.928999539310514*^9}, + 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, + 3.929009409821639*^9, 3.929009725288837*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"9c2c3fc9-beec-4c36-8f38-350b0867d880"], +In[1]:=",ExpressionUUID->"efa0cf86-73cb-4d6f-8327-b31176a265e2"], Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print", @@ -424,10 +446,11 @@ Cell[BoxData["\<\"------------------------------------------------------------\ 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^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, 3.9289995393114557`*^9}, + 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, + 3.929009409821639*^9, 3.929009725289831*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"0b5f4bca-9987-4299-8144-39cfe589ce34"], +In[1]:=",ExpressionUUID->"a099d0e5-58b7-4751-8de4-0c03fe86ae56"], Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print", @@ -440,10 +463,11 @@ Cell[BoxData["\<\"------------------------------------------------------------\ 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^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, 3.928999539312348*^9}, + 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, + 3.929009409821639*^9, 3.929009725290951*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"697cb5d2-bf19-4224-845e-50c40f24f6e3"], +In[1]:=",ExpressionUUID->"cdf69130-e07b-4ece-b14e-9ceeb1270086"], Cell[BoxData["\<\"Package Generato`Varlist`, {2024, 1, 11}\"\>"], "Print", CellChangeTimes->{3.928779369275519*^9, 3.928785921920507*^9, @@ -455,10 +479,11 @@ Cell[BoxData["\<\"Package Generato`Varlist`, {2024, 1, 11}\"\>"], "Print", 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^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, 3.9289995393132553`*^9}, + 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, + 3.929009409821639*^9, 3.929009725292137*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"d97ac3db-299b-4e94-9db5-dead7285badb"], +In[1]:=",ExpressionUUID->"a741f45d-8bc2-4400-9283-70416ea347b1"], Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print", @@ -471,10 +496,11 @@ Cell[BoxData["\<\"------------------------------------------------------------\ 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^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, 3.928999539314266*^9}, + 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, + 3.929009409821639*^9, 3.92900972529309*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"e468c4a0-d107-408b-9f7e-f18ce72804ff"], +In[1]:=",ExpressionUUID->"2e411fc1-7d71-4bd5-906c-7aa9e718640f"], Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print", @@ -487,10 +513,11 @@ Cell[BoxData["\<\"------------------------------------------------------------\ 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^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, 3.928999539315097*^9}, + 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, + 3.929009409821639*^9, 3.929009725294197*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"053d743e-e7b2-443a-b9be-2e5f19bcdf3a"], +In[1]:=",ExpressionUUID->"f849bf9a-c849-4c71-b546-1a288aa4e60c"], Cell[BoxData["\<\"Package Generato`Interface`, {2024, 1, 11}\"\>"], "Print", CellChangeTimes->{3.928779369275519*^9, 3.928785921920507*^9, @@ -502,10 +529,11 @@ Cell[BoxData["\<\"Package Generato`Interface`, {2024, 1, 11}\"\>"], "Print", 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^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, 3.928999539316209*^9}, + 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, + 3.929009409821639*^9, 3.9290097252950478`*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"9c95a535-46ba-47d7-89e8-61ed2a73715f"], +In[1]:=",ExpressionUUID->"ca024b76-6988-46cf-812e-a0576adc029b"], Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print", @@ -518,10 +546,11 @@ Cell[BoxData["\<\"------------------------------------------------------------\ 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^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, 3.928999539317092*^9}, + 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, + 3.929009409821639*^9, 3.929009725296026*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"e9968493-3fce-47a4-b4cd-88abdf37904b"], +In[1]:=",ExpressionUUID->"3cc64170-5f9d-4b1d-af34-dd79cbded907"], Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print", @@ -534,10 +563,11 @@ Cell[BoxData["\<\"------------------------------------------------------------\ 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^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, 3.9289995393179283`*^9}, + 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, + 3.929009409821639*^9, 3.929009725296863*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"635b6570-c5f9-4dbe-ba61-3138a0bb5b10"], +In[1]:=",ExpressionUUID->"b876f94e-4676-4a8c-9f2a-82494287598b"], Cell[BoxData["\<\"Package Generato`Derivation`, {2024, 1, 18}\"\>"], "Print", CellChangeTimes->{3.928779369275519*^9, 3.928785921920507*^9, @@ -549,10 +579,11 @@ Cell[BoxData["\<\"Package Generato`Derivation`, {2024, 1, 18}\"\>"], "Print", 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^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, 3.9289995393188763`*^9}, + 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, + 3.929009409821639*^9, 3.9290097252979403`*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"3ffcbd72-45c1-41d8-b561-6d209a5443bc"], +In[1]:=",ExpressionUUID->"6900b768-ee15-48f9-8bf6-603c9b015324"], Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print", @@ -565,10 +596,11 @@ Cell[BoxData["\<\"------------------------------------------------------------\ 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^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, 3.928999539319747*^9}, + 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, + 3.929009409821639*^9, 3.929009725298874*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"4cc89d80-cf73-4799-9d60-f253a4945f46"], +In[1]:=",ExpressionUUID->"3ccb2afc-6f64-4577-8069-792263b7ad36"], Cell[BoxData["\<\"\"\>"], "Print", CellChangeTimes->{3.928779369275519*^9, 3.928785921920507*^9, @@ -580,10 +612,11 @@ Cell[BoxData["\<\"\"\>"], "Print", 3.928821943000177*^9, 3.928838600341427*^9, 3.928921219102206*^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, 3.928999539320669*^9}, + 3.92896627106909*^9, 3.928966427872181*^9, 3.928999536824163*^9, + 3.929009409821639*^9, 3.929009725299892*^9}, CellLabel-> "During evaluation of \ -In[1]:=",ExpressionUUID->"d68a51db-5d72-41b7-aac9-308f4d87b62d"] +In[1]:=",ExpressionUUID->"9f3307e8-985f-49b8-a103-87805bd76796"] }, Open ]] }, Open ]], @@ -598,766 +631,19 @@ Cell[BoxData[ CellChangeTimes->{{3.928779387620249*^9, 3.9287794127533712`*^9}}, CellLabel->"In[2]:=",ExpressionUUID->"dc88cf1b-3b54-44ff-b471-d7efa31651a2"], -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-\ -890bb5a70986"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"DefTensors", "[", "\[IndentingNewLine]", - RowBox[{ - RowBox[{"{", - RowBox[{ - RowBox[{"dtchi", "[", "]"}], ",", - RowBox[{ - "PrintAs", "->", - "\"\<\!\(\*SubscriptBox[\(\[PartialD]\), \(t\)]\)\[Chi]\>\""}]}], - "}"}], ",", "\[IndentingNewLine]", - RowBox[{"{", - RowBox[{ - RowBox[{"dtgamt", "[", - RowBox[{ - RowBox[{"-", "i"}], ",", - RowBox[{"-", "j"}]}], "]"}], ",", - RowBox[{"Symmetric", "[", - RowBox[{"{", - RowBox[{ - RowBox[{"-", "i"}], ",", - RowBox[{"-", "j"}]}], "}"}], "]"}], ",", - RowBox[{ - "PrintAs", "->", - "\"\<\!\(\*SubscriptBox[\(\[PartialD]\), \ -\(t\)]\)\!\(\*OverscriptBox[\(\[Gamma]\), \(~\)]\)\>\""}]}], "}"}], ",", - "\[IndentingNewLine]", - RowBox[{"{", - RowBox[{ - RowBox[{"dtexKh", "[", "]"}], ",", - RowBox[{ - "PrintAs", "->", - "\"\<\!\(\*SubscriptBox[\(\[PartialD]\), \ -\(t\)]\)\!\(\*OverscriptBox[\(K\), \(^\)]\)\>\""}]}], "}"}], ",", - "\[IndentingNewLine]", - RowBox[{"{", - RowBox[{ - RowBox[{"dtexAt", "[", - RowBox[{ - RowBox[{"-", "i"}], ",", - RowBox[{"-", "j"}]}], "]"}], ",", - RowBox[{"Symmetric", "[", - RowBox[{"{", - RowBox[{ - RowBox[{"-", "i"}], ",", - RowBox[{"-", "j"}]}], "}"}], "]"}], ",", - RowBox[{ - "PrintAs", "->", - "\"\<\!\(\*SubscriptBox[\(\[PartialD]\), \ -\(t\)]\)\!\(\*OverscriptBox[\(A\), \(~\)]\)\>\""}]}], "}"}], ",", - "\[IndentingNewLine]", - RowBox[{"{", - RowBox[{ - RowBox[{"dttrGt", "[", "i", "]"}], ",", - RowBox[{ - "PrintAs", "->", - "\"\<\!\(\*SubscriptBox[\(\[PartialD]\), \ -\(t\)]\)\!\(\*OverscriptBox[\(\[CapitalGamma]\), \(~\)]\)\>\""}]}], "}"}], - ",", "\[IndentingNewLine]", - RowBox[{"{", - RowBox[{ - RowBox[{"dtTheta", "[", "]"}], ",", - RowBox[{ - "PrintAs", "->", - "\"\<\!\(\*SubscriptBox[\(\[PartialD]\), \ -\(t\)]\)\[CapitalTheta]\>\""}]}], "}"}], ",", "\[IndentingNewLine]", - RowBox[{"{", - RowBox[{ - RowBox[{"dtalpha", "[", "]"}], ",", - RowBox[{ - "PrintAs", "->", - "\"\<\!\(\*SubscriptBox[\(\[PartialD]\), \(t\)]\)\[Alpha]\>\""}]}], - "}"}], ",", "\[IndentingNewLine]", - RowBox[{"{", - RowBox[{ - RowBox[{"dtbeta", "[", "i", "]"}], ",", - RowBox[{ - "PrintAs", "->", - "\"\<\!\(\*SubscriptBox[\(\[PartialD]\), \(t\)]\)\[Beta]\>\""}]}], - "}"}]}], "\[IndentingNewLine]", "]"}], ";"}]], "Input", - InitializationCell->True, - CellChangeTimes->{{3.92892245137897*^9, 3.92892249081022*^9}, { - 3.928922711600036*^9, 3.928922757461806*^9}}, - CellLabel->"In[3]:=",ExpressionUUID->"4e6d5e4d-3e2c-4e00-b731-80f125a28f58"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell["Input", "Subsection", - CellChangeTimes->{{3.928786604353549*^9, 3.9287866060181503`*^9}, { - 3.9288194877806473`*^9, - 3.928819488701147*^9}},ExpressionUUID->"8f6e447f-5ad1-4983-a220-\ -4a62c32eb45e"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"DefTensors", "[", "\[IndentingNewLine]", - RowBox[{ - RowBox[{"{", - RowBox[{ - RowBox[{"chi", "[", "]"}], ",", - RowBox[{"PrintAs", "->", "\"\<\[Chi]\>\""}]}], "}"}], ",", - "\[IndentingNewLine]", - RowBox[{"{", - RowBox[{ - RowBox[{"gamt", "[", - RowBox[{ - RowBox[{"-", "i"}], ",", - RowBox[{"-", "j"}]}], "]"}], ",", - RowBox[{"Symmetric", "[", - RowBox[{"{", - RowBox[{ - RowBox[{"-", "i"}], ",", - RowBox[{"-", "j"}]}], "}"}], "]"}], ",", - RowBox[{ - "PrintAs", "->", - "\"\<\!\(\*OverscriptBox[\(\[Gamma]\), \(~\)]\)\>\""}]}], "}"}], ",", - "\[IndentingNewLine]", - RowBox[{"{", - RowBox[{ - RowBox[{"exKh", "[", "]"}], ",", - RowBox[{ - "PrintAs", "->", "\"\<\!\(\*OverscriptBox[\(K\), \(^\)]\)\>\""}]}], - "}"}], ",", "\[IndentingNewLine]", - RowBox[{"{", - RowBox[{ - RowBox[{"exAt", "[", - RowBox[{ - RowBox[{"-", "i"}], ",", - RowBox[{"-", "j"}]}], "]"}], ",", - RowBox[{"Symmetric", "[", - RowBox[{"{", - RowBox[{ - RowBox[{"-", "i"}], ",", - RowBox[{"-", "j"}]}], "}"}], "]"}], ",", - RowBox[{ - "PrintAs", "->", "\"\<\!\(\*OverscriptBox[\(A\), \(~\)]\)\>\""}]}], - "}"}], ",", "\[IndentingNewLine]", - RowBox[{"{", - RowBox[{ - RowBox[{"trGt", "[", "i", "]"}], ",", - RowBox[{ - "PrintAs", "->", - "\"\<\!\(\*OverscriptBox[\(\[CapitalGamma]\), \(~\)]\)\>\""}]}], "}"}], - ",", "\[IndentingNewLine]", - RowBox[{"{", - RowBox[{ - RowBox[{"Theta", "[", "]"}], ",", - RowBox[{"PrintAs", "->", "\"\<\[CapitalTheta]\>\""}]}], "}"}], ",", - "\[IndentingNewLine]", - RowBox[{"{", - RowBox[{ - RowBox[{"alpha", "[", "]"}], ",", - RowBox[{"PrintAs", "->", "\"\<\[Alpha]\>\""}]}], "}"}], ",", - "\[IndentingNewLine]", - RowBox[{"{", - RowBox[{ - RowBox[{"beta", "[", "i", "]"}], ",", - RowBox[{"PrintAs", "->", "\"\<\[Beta]\>\""}]}], "}"}]}], - "\[IndentingNewLine]", "]"}], ";"}]], "Input", - InitializationCell->True, - CellChangeTimes->{{3.928779419569825*^9, 3.928779449821466*^9}, { - 3.9287797755635242`*^9, 3.928780001342947*^9}, {3.928786432843616*^9, - 3.928786461835287*^9}, {3.928786847253495*^9, 3.928786856883863*^9}, { - 3.92878708011068*^9, 3.928787086071513*^9}, {3.928787156901491*^9, - 3.928787207136179*^9}, {3.928787347613456*^9, 3.928787356042318*^9}, { - 3.928791395104095*^9, 3.9287913966338654`*^9}, {3.928792686833561*^9, - 3.928792687171047*^9}, {3.928818036070669*^9, 3.928818042043166*^9}, - 3.928818277532764*^9, 3.928818332489665*^9, 3.928818901005639*^9}, - CellLabel->"In[4]:=",ExpressionUUID->"586963a8-981b-4f2c-bc38-3bd149af82cd"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"DefTensors", "[", "\[IndentingNewLine]", - RowBox[{ - RowBox[{"{", - RowBox[{ - RowBox[{"eTtt", "[", "]"}], ",", - RowBox[{ - "PrintAs", "->", "\"\<\!\(\*SubscriptBox[\(T\), \(tt\)]\)\>\""}]}], - "}"}], ",", "\[IndentingNewLine]", - RowBox[{"{", - RowBox[{ - RowBox[{"eTt", "[", - RowBox[{"-", "i"}], "]"}], ",", - RowBox[{ - "PrintAs", "->", "\"\<\!\(\*SubscriptBox[\(T\), \(t\)]\)\>\""}]}], - "}"}], ",", "\[IndentingNewLine]", - RowBox[{"{", - RowBox[{ - RowBox[{"eT", "[", - RowBox[{ - RowBox[{"-", "i"}], ",", - RowBox[{"-", "j"}]}], "]"}], ",", - RowBox[{"PrintAs", "->", "\"\\""}]}], "}"}]}], - "\[IndentingNewLine]", "]"}], ";"}]], "Input", - InitializationCell->True, - CellChangeTimes->{{3.928836579943162*^9, 3.928836615491*^9}, { - 3.928836745826116*^9, 3.92883674625337*^9}, {3.928836798904362*^9, - 3.928836841519875*^9}, {3.9288370376345053`*^9, 3.928837039390031*^9}}, - CellLabel->"In[5]:=",ExpressionUUID->"c08588c0-b1be-4279-a26f-ad8578054e37"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"DefTensors", "[", "\[IndentingNewLine]", - RowBox[{ - RowBox[{"{", - RowBox[{ - RowBox[{"dchi", "[", - RowBox[{"-", "k"}], "]"}], ",", - RowBox[{"PrintAs", "->", "\"\<\[PartialD]\[Chi]\>\""}]}], "}"}], ",", - "\[IndentingNewLine]", - RowBox[{"{", - RowBox[{ - RowBox[{"dgamt", "[", - RowBox[{ - RowBox[{"-", "k"}], ",", - RowBox[{"-", "i"}], ",", - RowBox[{"-", "j"}]}], "]"}], ",", - RowBox[{"Symmetric", "[", - RowBox[{"{", - RowBox[{ - RowBox[{"-", "i"}], ",", - RowBox[{"-", "j"}]}], "}"}], "]"}], ",", - RowBox[{ - "PrintAs", "->", - "\"\<\[PartialD]\!\(\*OverscriptBox[\(\[Gamma]\), \(~\)]\)\>\""}]}], - "}"}], ",", "\[IndentingNewLine]", - RowBox[{"{", - RowBox[{ - RowBox[{"dexKh", "[", - RowBox[{"-", "k"}], "]"}], ",", - RowBox[{ - "PrintAs", "->", - "\"\<\[PartialD]\!\(\*OverscriptBox[\(K\), \(^\)]\)\>\""}]}], "}"}], - ",", "\[IndentingNewLine]", - RowBox[{"{", - RowBox[{ - RowBox[{"dexAt", "[", - RowBox[{ - RowBox[{"-", "k"}], ",", - RowBox[{"-", "i"}], ",", - RowBox[{"-", "j"}]}], "]"}], ",", - RowBox[{"Symmetric", "[", - RowBox[{"{", - RowBox[{ - RowBox[{"-", "i"}], ",", - RowBox[{"-", "j"}]}], "}"}], "]"}], ",", - RowBox[{ - "PrintAs", "->", - "\"\<\[PartialD]\!\(\*OverscriptBox[\(A\), \(~\)]\)\>\""}]}], "}"}], - ",", "\[IndentingNewLine]", - RowBox[{"{", - RowBox[{ - RowBox[{"dtrGt", "[", - RowBox[{ - RowBox[{"-", "k"}], ",", "i"}], "]"}], ",", - RowBox[{ - "PrintAs", "->", - "\"\<\[PartialD]\!\(\*OverscriptBox[\(\[CapitalGamma]\), \ -\(~\)]\)\>\""}]}], "}"}], ",", "\[IndentingNewLine]", - RowBox[{"{", - RowBox[{ - RowBox[{"dTheta", "[", - RowBox[{"-", "k"}], "]"}], ",", - RowBox[{"PrintAs", "->", "\"\<\[PartialD]\[CapitalTheta]\>\""}]}], - "}"}], ",", "\[IndentingNewLine]", - RowBox[{"{", - RowBox[{ - RowBox[{"dalpha", "[", - RowBox[{"-", "k"}], "]"}], ",", - RowBox[{"PrintAs", "->", "\"\<\[PartialD]\[Alpha]\>\""}]}], "}"}], ",", - "\[IndentingNewLine]", - RowBox[{"{", - RowBox[{ - RowBox[{"dbeta", "[", - RowBox[{ - RowBox[{"-", "k"}], ",", "i"}], "]"}], ",", - RowBox[{"PrintAs", "->", "\"\<\[PartialD]\[Beta]\>\""}]}], "}"}]}], - "\[IndentingNewLine]", "]"}], ";"}]], "Input", - InitializationCell->True, - CellChangeTimes->{{3.928786614738221*^9, 3.928786634594159*^9}, { - 3.928786722234556*^9, 3.928786742581704*^9}, {3.928786802854874*^9, - 3.928786824434333*^9}, {3.92878688693832*^9, 3.9287869155352297`*^9}, { - 3.9287869597636766`*^9, 3.928787044220189*^9}, {3.9287873992345037`*^9, - 3.928787520557636*^9}, {3.928792802971236*^9, 3.9287928031578693`*^9}, { - 3.928792911411598*^9, 3.928792912131485*^9}, {3.928817587559072*^9, - 3.928817587769424*^9}, 3.928818083034062*^9, 3.928818158587529*^9, - 3.928818283204087*^9, 3.928818339572599*^9, 3.9288189068167343`*^9, { - 3.928819633921884*^9, 3.92881967156325*^9}}, - CellLabel->"In[6]:=",ExpressionUUID->"4ff7b252-b898-4dd1-8ab8-4a2c09d190d5"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"DefTensors", "[", "\[IndentingNewLine]", - RowBox[{ - RowBox[{"{", - RowBox[{ - RowBox[{"ddchi", "[", - RowBox[{ - RowBox[{"-", "i"}], ",", - RowBox[{"-", "j"}]}], "]"}], ",", - RowBox[{"Symmetric", "[", - RowBox[{"{", - RowBox[{ - RowBox[{"-", "i"}], ",", - RowBox[{"-", "j"}]}], "}"}], "]"}], ",", - RowBox[{"PrintAs", "->", "\"\<\[PartialD]\[PartialD]\[Chi]\>\""}]}], - "}"}], ",", "\[IndentingNewLine]", - RowBox[{"{", - RowBox[{ - RowBox[{"ddgamt", "[", - RowBox[{ - RowBox[{"-", "l"}], ",", - RowBox[{"-", "m"}], ",", - RowBox[{"-", "i"}], ",", - RowBox[{"-", "j"}]}], "]"}], ",", - RowBox[{"GenSet", "[", - RowBox[{ - RowBox[{"Cycles", "[", - RowBox[{"{", - RowBox[{"1", ",", "2"}], "}"}], "]"}], ",", - RowBox[{"Cycles", "[", - RowBox[{"{", - RowBox[{"3", ",", "4"}], "}"}], "]"}]}], "]"}], ",", - RowBox[{ - "PrintAs", "->", - "\"\<\[PartialD]\[PartialD]\!\(\*OverscriptBox[\(\[Gamma]\), \ -\(~\)]\)\>\""}]}], "}"}], ",", "\[IndentingNewLine]", - RowBox[{"{", - RowBox[{ - RowBox[{"ddalpha", "[", - RowBox[{ - RowBox[{"-", "i"}], ",", - RowBox[{"-", "j"}]}], "]"}], ",", - RowBox[{"Symmetric", "[", - RowBox[{"{", - RowBox[{ - RowBox[{"-", "i"}], ",", - RowBox[{"-", "j"}]}], "}"}], "]"}], ",", - RowBox[{"PrintAs", "->", "\"\<\[PartialD]\[PartialD]\[Alpha]\>\""}]}], - "}"}], ",", "\[IndentingNewLine]", - RowBox[{"{", - RowBox[{ - RowBox[{"ddbeta", "[", - RowBox[{ - RowBox[{"-", "i"}], ",", - RowBox[{"-", "j"}], ",", "k"}], "]"}], ",", - RowBox[{"Symmetric", "[", - RowBox[{"{", - RowBox[{ - RowBox[{"-", "i"}], ",", - RowBox[{"-", "j"}]}], "}"}], "]"}], ",", - RowBox[{"PrintAs", "->", "\"\<\[PartialD]\[PartialD]\[Beta]\>\""}]}], - "}"}]}], "\[IndentingNewLine]", "]"}], ";"}]], "Input", - InitializationCell->True, - CellChangeTimes->{{3.9288169618487673`*^9, 3.92881698006419*^9}, - 3.928818284670382*^9, {3.928819316864279*^9, 3.928819367894333*^9}, { - 3.928819562440492*^9, 3.928819601944265*^9}, {3.928819718902767*^9, - 3.9288197436285753`*^9}}, - CellLabel->"In[7]:=",ExpressionUUID->"9fecfaa3-ca7e-42bb-a622-c6a21140981a"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell["Temp", "Subsection", - CellChangeTimes->{{3.9288195149467583`*^9, - 3.928819526489415*^9}},ExpressionUUID->"1fd445a5-eeab-43da-98f4-\ -96f9414b6b16"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"DefTensors", "[", "\[IndentingNewLine]", - RowBox[{ - RowBox[{"{", - RowBox[{ - RowBox[{"detinvgamt", "[", "]"}], ",", - RowBox[{ - "PrintAs", "->", - "\"\<1/\!\(\*OverscriptBox[\(\[Gamma]\), \(~\)]\)\>\""}]}], "}"}], ",", - "\[IndentingNewLine]", - RowBox[{"{", - RowBox[{ - RowBox[{"invgamt", "[", - RowBox[{"i", ",", "j"}], "]"}], ",", - RowBox[{"Symmetric", "[", - RowBox[{"{", - RowBox[{"i", ",", "j"}], "}"}], "]"}], ",", - RowBox[{ - "PrintAs", "->", - "\"\<\!\(\*OverscriptBox[\(\[Gamma]\), \(~\)]\)\>\""}]}], "}"}], ",", - "\[IndentingNewLine]", - RowBox[{"{", - RowBox[{ - RowBox[{"invgam", "[", - RowBox[{"i", ",", "j"}], "]"}], ",", - RowBox[{"Symmetric", "[", - RowBox[{"{", - RowBox[{"i", ",", "j"}], "}"}], "]"}], ",", - RowBox[{"PrintAs", "->", "\"\<\[Gamma]\>\""}]}], "}"}], ",", - "\[IndentingNewLine]", - RowBox[{"{", - RowBox[{ - RowBox[{"gam", "[", - RowBox[{ - RowBox[{"-", "i"}], ",", - RowBox[{"-", "j"}]}], "]"}], ",", - RowBox[{"Symmetric", "[", - RowBox[{"{", - RowBox[{ - RowBox[{"-", "i"}], ",", - RowBox[{"-", "j"}]}], "}"}], "]"}], ",", - RowBox[{"PrintAs", "->", "\"\<\[Gamma]\>\""}]}], "}"}], ",", - "\[IndentingNewLine]", - RowBox[{"{", - RowBox[{ - RowBox[{"GtDDD", "[", - RowBox[{ - RowBox[{"-", "k"}], ",", - RowBox[{"-", "i"}], ",", - RowBox[{"-", "j"}]}], "]"}], ",", - RowBox[{"Symmetric", "[", - RowBox[{"{", - RowBox[{ - RowBox[{"-", "i"}], ",", - RowBox[{"-", "j"}]}], "}"}], "]"}], ",", - RowBox[{ - "PrintAs", "->", - "\"\<\!\(\*OverscriptBox[\(\[CapitalGamma]\), \(~\)]\)\>\""}]}], "}"}], - ",", "\[IndentingNewLine]", - RowBox[{"{", - RowBox[{ - RowBox[{"GtDDU", "[", - RowBox[{ - RowBox[{"-", "k"}], ",", - RowBox[{"-", "i"}], ",", "j"}], "]"}], ",", - RowBox[{ - "PrintAs", "->", - "\"\<\!\(\*OverscriptBox[\(\[CapitalGamma]\), \(~\)]\)\>\""}]}], "}"}], - ",", "\[IndentingNewLine]", - RowBox[{"{", - RowBox[{ - RowBox[{"Gt", "[", - RowBox[{"k", ",", - RowBox[{"-", "i"}], ",", - RowBox[{"-", "j"}]}], "]"}], ",", - RowBox[{"Symmetric", "[", - RowBox[{"{", - RowBox[{ - RowBox[{"-", "i"}], ",", - RowBox[{"-", "j"}]}], "}"}], "]"}], ",", - RowBox[{ - "PrintAs", "->", - "\"\<\!\(\*OverscriptBox[\(\[CapitalGamma]\), \(~\)]\)\>\""}]}], "}"}], - ",", "\[IndentingNewLine]", - RowBox[{"{", - RowBox[{ - RowBox[{"trGtd", "[", "i", "]"}], ",", - RowBox[{ - "PrintAs", "->", - "\"\<(\!\(\*SubscriptBox[OverscriptBox[\(\[CapitalGamma]\), \(~\)], \ -\(d\)]\))\>\""}]}], "}"}], ",", "\[IndentingNewLine]", - RowBox[{"{", - RowBox[{ - RowBox[{"exAtUU", "[", - RowBox[{"i", ",", "j"}], "]"}], ",", - RowBox[{"Symmetric", "[", - RowBox[{"{", - RowBox[{"i", ",", "j"}], "}"}], "]"}], ",", - RowBox[{ - "PrintAs", "->", "\"\<\!\(\*OverscriptBox[\(A\), \(~\)]\)\>\""}]}], - "}"}]}], "\[IndentingNewLine]", "]"}], ";"}]], "Input", - InitializationCell->True, - CellChangeTimes->{{3.928785928985149*^9, 3.928786087978428*^9}, - 3.928786629457264*^9, {3.928786861878175*^9, 3.928786865635483*^9}, { - 3.928787339845923*^9, 3.928787341802931*^9}, {3.928791406939233*^9, - 3.928791427196692*^9}, {3.928791461188624*^9, 3.928791466510343*^9}, { - 3.928791782168232*^9, 3.928791822282562*^9}, {3.928792263871332*^9, - 3.928792296266157*^9}, {3.928792330242548*^9, 3.928792335728332*^9}, { - 3.928792700494267*^9, 3.9287927326180887`*^9}, {3.928793041602625*^9, - 3.928793075981928*^9}, {3.928794674719866*^9, 3.928794749806027*^9}, { - 3.928796226110096*^9, 3.92879626124386*^9}, {3.9288180654899387`*^9, - 3.9288180744719*^9}, {3.9288182788597717`*^9, 3.928818281304373*^9}, { - 3.928818334058167*^9, 3.928818336847477*^9}, {3.928818901877288*^9, - 3.928818903931491*^9}, {3.928820886470365*^9, 3.928820890394692*^9}, { - 3.9288217145115*^9, 3.928821730690242*^9}, {3.928821785001086*^9, - 3.928821798416621*^9}, 3.928836232745147*^9, {3.928836281224597*^9, - 3.928836281538724*^9}, {3.928920995545884*^9, 3.928921053931546*^9}}, - CellLabel->"In[8]:=",ExpressionUUID->"230e3e3d-ec24-4b15-9bc4-4c66fa656cc7"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"DefTensors", "[", "\[IndentingNewLine]", - RowBox[{ - RowBox[{"{", - RowBox[{ - RowBox[{"tDtDchi", "[", - RowBox[{ - RowBox[{"-", "i"}], ",", - RowBox[{"-", "j"}]}], "]"}], ",", - RowBox[{"Symmetric", "[", - RowBox[{"{", - RowBox[{ - RowBox[{"-", "i"}], ",", - RowBox[{"-", "j"}]}], "}"}], "]"}], ",", - RowBox[{ - "PrintAs", "->", - "\"\<\!\(\*OverscriptBox[\(D\), \(~\)]\)\!\(\*OverscriptBox[\(D\), \(~\ -\)]\)\[Chi]\>\""}]}], "}"}], ",", "\[IndentingNewLine]", - RowBox[{"{", - RowBox[{ - RowBox[{"DDalpha", "[", - RowBox[{ - RowBox[{"-", "i"}], ",", - RowBox[{"-", "j"}]}], "]"}], ",", - RowBox[{"Symmetric", "[", - RowBox[{"{", - RowBox[{ - RowBox[{"-", "i"}], ",", - RowBox[{"-", "j"}]}], "}"}], "]"}], ",", - RowBox[{"PrintAs", "->", "\"\\""}]}], "}"}]}], - "\[IndentingNewLine]", "]"}], ";"}]], "Input", - InitializationCell->True, - CellChangeTimes->{{3.928794418060472*^9, 3.92879445590598*^9}, { - 3.928794488404871*^9, 3.928794488798927*^9}, {3.928795120622587*^9, - 3.928795150755408*^9}, {3.928797346058392*^9, 3.928797355776825*^9}, { - 3.928816976913252*^9, 3.928816988108404*^9}, {3.928822715841466*^9, - 3.928822716199737*^9}, {3.928822779283828*^9, 3.928822783408156*^9}}, - CellLabel->"In[9]:=",ExpressionUUID->"012d0ece-df9c-44ca-af29-bd29950146e4"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"DefTensors", "[", "\[IndentingNewLine]", - RowBox[{ - RowBox[{"{", - RowBox[{ - RowBox[{"Rtchi", "[", - RowBox[{ - RowBox[{"-", "i"}], ",", - RowBox[{"-", "j"}]}], "]"}], ",", - RowBox[{"Symmetric", "[", - RowBox[{"{", - RowBox[{ - RowBox[{"-", "i"}], ",", - RowBox[{"-", "j"}]}], "}"}], "]"}], ",", - RowBox[{ - "PrintAs", "->", - "\"\<\!\(\*SuperscriptBox[OverscriptBox[\(R\), \(~\)], \(\[Chi]\)]\)\>\ -\""}]}], "}"}], ",", "\[IndentingNewLine]", - RowBox[{"{", - RowBox[{ - RowBox[{"Rt", "[", - RowBox[{ - RowBox[{"-", "i"}], ",", - RowBox[{"-", "j"}]}], "]"}], ",", - RowBox[{"Symmetric", "[", - RowBox[{"{", - RowBox[{ - RowBox[{"-", "i"}], ",", - RowBox[{"-", "j"}]}], "}"}], "]"}], ",", - RowBox[{ - "PrintAs", "->", "\"\<\!\(\*OverscriptBox[\(R\), \(~\)]\)\>\""}]}], - "}"}], ",", "\[IndentingNewLine]", - RowBox[{"{", - RowBox[{ - RowBox[{"R", "[", - RowBox[{ - RowBox[{"-", "i"}], ",", - RowBox[{"-", "j"}]}], "]"}], ",", - RowBox[{"Symmetric", "[", - RowBox[{"{", - RowBox[{ - RowBox[{"-", "i"}], ",", - RowBox[{"-", "j"}]}], "}"}], "]"}]}], "}"}], ",", - "\[IndentingNewLine]", - RowBox[{"{", - RowBox[{ - RowBox[{"trR", "[", "]"}], ",", - RowBox[{"PrintAs", "->", "\"\\""}]}], "}"}]}], - "\[IndentingNewLine]", "]"}], ";"}]], "Input", - InitializationCell->True, - CellChangeTimes->{{3.928836234865031*^9, 3.928836243310957*^9}, { - 3.928838514237761*^9, 3.928838528459001*^9}}, - CellLabel->"In[10]:=",ExpressionUUID->"b2cd1bbb-ebc2-4ae5-98e8-1baa91d81aa3"], - -Cell[CellGroupData[{ - -Cell["Matter", "Subsubsection", - CellChangeTimes->{{3.928836335137689*^9, - 3.928836338355296*^9}},ExpressionUUID->"63c86796-f445-4596-a568-\ -cf6b7233992a"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"DefTensors", "[", "\[IndentingNewLine]", - RowBox[{ - RowBox[{"{", - RowBox[{ - RowBox[{"rho", "[", "]"}], ",", - RowBox[{"PrintAs", "->", "\"\<\[Rho]\>\""}]}], "}"}], ",", - "\[IndentingNewLine]", - RowBox[{"{", - RowBox[{ - RowBox[{"Sm", "[", - RowBox[{"-", "i"}], "]"}], ",", - RowBox[{"PrintAs", "->", "\"\\""}]}], "}"}], ",", - "\[IndentingNewLine]", - RowBox[{"{", - RowBox[{ - RowBox[{"Ss", "[", - RowBox[{ - RowBox[{"-", "i"}], ",", - RowBox[{"-", "j"}]}], "]"}], ",", - RowBox[{"Symmetric", "[", - RowBox[{"{", - RowBox[{ - RowBox[{"-", "i"}], ",", - RowBox[{"-", "j"}]}], "}"}], "]"}], ",", - RowBox[{"PrintAs", "->", "\"\\""}]}], "}"}], ",", - "\[IndentingNewLine]", - RowBox[{"{", - RowBox[{ - RowBox[{"trSs", "[", "]"}], ",", - RowBox[{"PrintAs", "->", "\"\\""}]}], "}"}]}], - "\[IndentingNewLine]", "]"}], ";"}]], "Input", - InitializationCell->True, - CellChangeTimes->{{3.928790254224685*^9, 3.928790291322857*^9}, { - 3.928790623947823*^9, 3.928790696710313*^9}, {3.928790869029275*^9, - 3.928790972579005*^9}, 3.92879101482416*^9}, - CellLabel->"In[11]:=",ExpressionUUID->"61eaa4ba-0069-4a97-a6d7-a02ee559a741"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell["Constraints", "Subsubsection", - CellChangeTimes->{{3.928838206212228*^9, - 3.928838207562324*^9}},ExpressionUUID->"28d203fe-58c8-4126-8774-\ -88d5a1781306"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"DefTensors", "[", "\[IndentingNewLine]", - RowBox[{"{", - RowBox[{ - RowBox[{"trdexAtUU", "[", "i", "]"}], ",", - RowBox[{ - "PrintAs", "->", - "\"\<\[PartialD]\!\(\*OverscriptBox[\(A\), \(~\)]\)\>\""}]}], "}"}], - "\[IndentingNewLine]", "]"}], ";"}]], "Input", - InitializationCell->True, - CellChangeTimes->{{3.928838799406372*^9, 3.92883885541286*^9}, { - 3.928964407407938*^9, 3.928964449201947*^9}}, - CellLabel->"In[12]:=",ExpressionUUID->"c47cb394-ee24-4509-bdff-c280f2d44f4a"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"DefTensors", "[", "\[IndentingNewLine]", - RowBox[{ - RowBox[{"{", - RowBox[{ - RowBox[{"ZtC", "[", "i", "]"}], ",", - RowBox[{ - "PrintAs", "->", "\"\<\!\(\*OverscriptBox[\(Z\), \(~\)]\)\>\""}]}], - "}"}], ",", "\[IndentingNewLine]", - RowBox[{"{", - RowBox[{ - RowBox[{"HC", "[", "]"}], ",", - RowBox[{"PrintAs", "->", "\"\\""}]}], "}"}], ",", - "\[IndentingNewLine]", - RowBox[{"{", - RowBox[{ - RowBox[{"MtC", "[", "i", "]"}], ",", - RowBox[{ - "PrintAs", "->", "\"\<\!\(\*OverscriptBox[\(M\), \(~\)]\)\>\""}]}], - "}"}]}], "\[IndentingNewLine]", "]"}], ";"}]], "Input", - InitializationCell->True, - CellChangeTimes->{{3.9288382290069113`*^9, 3.9288383176366997`*^9}}, - CellLabel->"In[13]:=",ExpressionUUID->"5502d63c-b6fc-4a63-a203-12b5cbab9476"] -}, Open ]] -}, Open ]], - -Cell[CellGroupData[{ - -Cell["Constant", "Subsection", - CellChangeTimes->{{3.928788008646267*^9, - 3.928788014497714*^9}},ExpressionUUID->"ab64c7df-87cb-4c7d-990a-\ -2b0543e709db"], - -Cell[BoxData[{ - RowBox[{ - RowBox[{"DefConstantSymbol", "[", - RowBox[{"cpi", ",", - RowBox[{"PrintAs", "->", "\"\<\[Pi]\>\""}]}], "]"}], - ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{"DefConstantSymbol", "[", - RowBox[{"ckappa1", ",", - RowBox[{ - "PrintAs", "->", "\"\<\!\(\*SubscriptBox[\(\[Kappa]\), \(1\)]\)\>\""}]}], - "]"}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{"DefConstantSymbol", "[", - RowBox[{"ckappa2", ",", - RowBox[{ - "PrintAs", "->", "\"\<\!\(\*SubscriptBox[\(\[Kappa]\), \(2\)]\)\>\""}]}], - "]"}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{"DefConstantSymbol", "[", - RowBox[{"cmuL", ",", - RowBox[{ - "PrintAs", "->", "\"\<\!\(\*SubscriptBox[\(\[Mu]\), \(L\)]\)\>\""}]}], - "]"}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{"DefConstantSymbol", "[", - RowBox[{"cmuS", ",", - RowBox[{ - "PrintAs", "->", "\"\<\!\(\*SubscriptBox[\(\[Mu]\), \(S\)]\)\>\""}]}], - "]"}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{"DefConstantSymbol", "[", - RowBox[{"ceta", ",", - RowBox[{"PrintAs", "->", "\"\<\[Eta]\>\""}]}], "]"}], ";"}]}], "Input", - InitializationCell->True, - CellChangeTimes->{{3.928788017861888*^9, 3.9287880651917562`*^9}, { - 3.928797169707514*^9, 3.928797172450495*^9}, {3.928797313015642*^9, - 3.9287973225423403`*^9}}, - CellLabel->"In[14]:=",ExpressionUUID->"e471a9d0-e772-4737-b68b-dc67e2be03b9"] -}, Open ]] -}, Closed]], - -Cell[CellGroupData[{ - -Cell["RHS", "Section", - Editable->False, - CellChangeTimes->{{3.928785747144782*^9, - 3.928785747527007*^9}},ExpressionUUID->"519fe4de-6999-4db6-9e6b-\ -17dff89f6b40"], - Cell[BoxData[ RowBox[{ RowBox[{"SetDirectory", "[", RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}]], "Input", InitializationCell->True, CellChangeTimes->{{3.928964226558416*^9, 3.928964236379902*^9}}, - CellLabel->"In[20]:=",ExpressionUUID->"bcf3d33f-c2e3-4846-9c1c-4cfd7929fe92"], + CellLabel->"In[3]:=",ExpressionUUID->"bcf3d33f-c2e3-4846-9c1c-4cfd7929fe92"], + +Cell[BoxData[ + RowBox[{"<<", "\"\\""}]], "Input", + InitializationCell->True, + CellChangeTimes->{{3.929009668254949*^9, 3.929009679636344*^9}}, + CellLabel->"In[4]:=",ExpressionUUID->"28397444-6f1b-40f7-9f73-fe33ec91543b"], Cell[BoxData[ RowBox[{ @@ -1365,8 +651,7 @@ Cell[BoxData[ InitializationCell->True, 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 ]], + CellLabel->"In[5]:=",ExpressionUUID->"465f2346-9a0b-41e7-a4bf-1a5b9b7b3fee"], Cell[CellGroupData[{ @@ -1385,10 +670,17 @@ aedf982655f9"], Cell[CellGroupData[{ +Cell["EOM", "Subsubsection", + CellChangeTimes->{{3.929009393980769*^9, + 3.929009396658312*^9}},ExpressionUUID->"920279f5-ee9e-4dc5-b72f-\ +c3be20398e5f"], + +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"dtchi$RHS", "[", "]"}]], "Input", CellChangeTimes->{{3.9289645276507883`*^9, 3.92896453819122*^9}}, - CellLabel->"In[22]:=",ExpressionUUID->"37bd862a-bfb9-4e90-897d-4ec6176a0421"], + CellLabel->"In[7]:=",ExpressionUUID->"37bd862a-bfb9-4e90-897d-4ec6176a0421"], Cell[BoxData[ RowBox[{ @@ -1453,8 +745,9 @@ Cell[BoxData[ $CellContext`Theta[], Editable->False]}]}], ")"}]}]}], ")"}]}]], "Output", CellChangeTimes->{{3.928964534308748*^9, 3.928964538798901*^9}, - 3.928966275004567*^9, 3.928966431673462*^9, 3.9289995400771427`*^9}, - CellLabel->"Out[22]=",ExpressionUUID->"d40a3761-0229-4a8d-9f07-52ac2b60e11f"] + 3.928966275004567*^9, 3.928966431673462*^9, 3.9289995400771437`*^9, + 3.929009413030512*^9, {3.9290097259185743`*^9, 3.9290097347037687`*^9}}, + CellLabel->"Out[7]=",ExpressionUUID->"78641000-23b5-4054-8c65-c04dc97904f7"] }, Open ]], Cell[CellGroupData[{ @@ -1464,8 +757,8 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "i"}], ",", RowBox[{"-", "j"}]}], "]"}]], "Input", - CellChangeTimes->{{3.928965648994341*^9, 3.9289656618526998`*^9}}, - CellLabel->"In[23]:=",ExpressionUUID->"6e287b1e-4c94-495c-8676-b68848156dae"], + CellChangeTimes->{{3.928965648994341*^9, 3.9289656618527*^9}}, + CellLabel->"In[8]:=",ExpressionUUID->"6e287b1e-4c94-495c-8676-b68848156dae"], Cell[BoxData[ RowBox[{ @@ -1671,8 +964,9 @@ Cell[BoxData[ $CellContext`gamt[-$CellContext`i, -$CellContext`j], Editable->False]}]}]], "Output", CellChangeTimes->{{3.928965657598768*^9, 3.928965662429008*^9}, - 3.928966277491879*^9, 3.92896643845725*^9, 3.928999547791008*^9}, - CellLabel->"Out[23]=",ExpressionUUID->"241cac57-9fc2-4554-a653-ca6527491672"] + 3.928966277491879*^9, 3.92896643845725*^9, 3.928999547791008*^9, + 3.929009417880041*^9, 3.929009737697625*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"fb74e702-abb8-4710-b17d-e3bef82cd65d"] }, Open ]], Cell[CellGroupData[{ @@ -1680,7 +974,7 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"dtexKh$RHS", "[", "]"}]], "Input", CellChangeTimes->{{3.928965690033644*^9, 3.92896569550109*^9}}, - CellLabel->"In[24]:=",ExpressionUUID->"ad4468d2-be76-430b-94ec-3f5c853bdd94"], + CellLabel->"In[9]:=",ExpressionUUID->"ad4468d2-be76-430b-94ec-3f5c853bdd94"], Cell[BoxData[ RowBox[{ @@ -1878,8 +1172,9 @@ Cell[BoxData[ $CellContext`trSs[], Editable->False]}], ")"}]}]}]], "Output", CellChangeTimes->{3.9289656960963297`*^9, 3.928966279382185*^9, - 3.928966441344634*^9, 3.928999581990584*^9}, - CellLabel->"Out[24]=",ExpressionUUID->"b9b15884-c30c-489d-9cef-0b12c4d390d2"] + 3.928966441344634*^9, 3.928999581990584*^9, 3.9290094203620167`*^9, + 3.9290097415545063`*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"0ddd9186-2c29-42d6-b245-10ce3b830593"] }, Open ]], Cell[CellGroupData[{ @@ -1889,8 +1184,9 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "i"}], ",", RowBox[{"-", "j"}]}], "]"}]], "Input", - CellChangeTimes->{{3.92896578412668*^9, 3.928965792221045*^9}}, - CellLabel->"In[25]:=",ExpressionUUID->"bc359c6c-652c-4059-b2db-0b92f1f31d9d"], + CellChangeTimes->{{3.92896578412668*^9, 3.928965792221045*^9}, { + 3.929009422937711*^9, 3.929009424106461*^9}}, + CellLabel->"In[10]:=",ExpressionUUID->"bc359c6c-652c-4059-b2db-0b92f1f31d9d"], Cell[BoxData[ RowBox[{ @@ -2457,8 +1753,9 @@ Cell[BoxData[ $CellContext`Theta[], Editable->False]}]}], ")"}]}]}], ")"}]}]}]], "Output", CellChangeTimes->{3.928965793723925*^9, 3.928966281144665*^9, - 3.928966444342515*^9, 3.9289996154328127`*^9}, - CellLabel->"Out[25]=",ExpressionUUID->"3631de59-2b09-46ad-969c-6d2885d3f6b2"] + 3.928966444342515*^9, 3.928999615432813*^9, 3.9290094246719837`*^9, + 3.92900974375696*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"0a1007f7-fb95-45a9-9269-4700dc0a0eae"] }, Open ]], Cell[CellGroupData[{ @@ -2466,7 +1763,7 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"dttrGt$RHS", "[", "i", "]"}]], "Input", CellChangeTimes->{{3.928965900258523*^9, 3.928965911025522*^9}}, - CellLabel->"In[26]:=",ExpressionUUID->"4af799ba-4478-4a70-b900-87d485df0f8f"], + CellLabel->"In[11]:=",ExpressionUUID->"4af799ba-4478-4a70-b900-87d485df0f8f"], Cell[BoxData[ RowBox[{ @@ -3103,8 +2400,9 @@ Cell[BoxData[ $CellContext`trGtd[$CellContext`i], Editable->False]}]}]], "Output", CellChangeTimes->{{3.9289659061614113`*^9, 3.928965911461485*^9}, - 3.928966283701753*^9, 3.928966450132257*^9, 3.928999659816043*^9}, - CellLabel->"Out[26]=",ExpressionUUID->"4812d6f1-9ff1-4f5b-9efe-d71d1e39bb1c"] + 3.928966283701753*^9, 3.928966450132257*^9, 3.928999659816043*^9, + 3.929009427098297*^9, 3.9290097478161583`*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"b2893371-9be7-4ae5-9919-3bd2deb926a4"] }, Open ]], Cell[CellGroupData[{ @@ -3112,7 +2410,7 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"dtTheta$RHS", "[", "]"}]], "Input", CellChangeTimes->{{3.928999841545508*^9, 3.928999857374609*^9}}, - CellLabel->"In[28]:=",ExpressionUUID->"d951c37d-1a0b-47ad-9385-2f40e346f232"], + CellLabel->"In[12]:=",ExpressionUUID->"d951c37d-1a0b-47ad-9385-2f40e346f232"], Cell[BoxData[ RowBox[{ @@ -3253,19 +2551,152 @@ Cell[BoxData[ AutoSpacing->False], $CellContext`trR[], Editable->False]}], ")"}]}]}]], "Output", - CellChangeTimes->{{3.928999853634059*^9, 3.928999858026732*^9}}, - CellLabel->"Out[28]=",ExpressionUUID->"cfe37751-dcbd-4ea4-a752-8bf88465306a"] + CellChangeTimes->{{3.928999853634059*^9, 3.928999858026732*^9}, + 3.92900942954214*^9, 3.929009759553322*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"62739b94-f91d-415c-bdcb-9b96ef584fbb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"dtalpha$RHS", "[", "]"}]], "Input", + CellChangeTimes->{{3.9290094308572474`*^9, 3.929009436212594*^9}}, + CellLabel->"In[13]:=",ExpressionUUID->"5f46b571-7d78-4545-a4c6-859857497c32"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", + InterpretationBox[ + StyleBox[ + SubscriptBox["\[Mu]", "L"], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`cmuL, + Editable->False]}], " ", + SuperscriptBox[ + InterpretationBox[ + StyleBox["\[Alpha]", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`alpha[], + Editable->False], "2"], " ", + InterpretationBox[ + StyleBox[ + OverscriptBox["K", "^"], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`exKh[], + Editable->False]}]], "Output", + CellChangeTimes->{3.929009436762292*^9, 3.929009761441183*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"cb4a2b5a-7212-4b1d-a267-c0f005afbcb9"] }, Open ]], Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"dtbeta$RHS", "[", "i", "]"}]], "Input", + CellChangeTimes->{{3.929009437810054*^9, 3.929009442724103*^9}}, + CellLabel->"In[14]:=",ExpressionUUID->"1cc21a6a-57ab-480b-8db2-e0edd5f9e4f2"], + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{"-", + InterpretationBox[ + StyleBox["\[Eta]", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`ceta, + Editable->False]}], " ", + InterpretationBox[ + StyleBox[GridBox[{ + {"\[Beta]", + StyleBox[GridBox[{ + {"i"}, + {" "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`beta[$CellContext`i], + Editable->False]}], "+", + RowBox[{ + InterpretationBox[ + StyleBox[ + SubscriptBox["\[Mu]", "S"], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`cmuS, + Editable->False], " ", + SuperscriptBox[ + InterpretationBox[ + StyleBox["\[Alpha]", + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`alpha[], + Editable->False], "2"], " ", + InterpretationBox[ + StyleBox[GridBox[{ + { + OverscriptBox["\[CapitalGamma]", "~"], + StyleBox[GridBox[{ + {"i"}, + {" "} + }, + GridBoxSpacings->{"Columns" -> { + Offset[0.], { + Offset[0.034999999999999996`]}, + Offset[0.]}, "Rows" -> {{ + Offset[0.]}}}], + FontSize->Rational[39, 4]]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.034999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + ShowAutoStyles->False, + AutoSpacing->False], + $CellContext`trGt[$CellContext`i], + Editable->False]}]}]], "Output", + CellChangeTimes->{3.929009443389668*^9, 3.929009762834182*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"1ea7e9b8-f7ec-4e9e-b3b5-4efcf380f9e8"] +}, Open ]] +}, Open ]], + +Cell[CellGroupData[{ + +Cell["Intermediate", "Subsubsection", + CellChangeTimes->{{3.929009360817727*^9, + 3.929009366160524*^9}},ExpressionUUID->"24362129-a923-4e4f-aab6-\ +1fba3b2ad38c"], + +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"R$RHS", "[", RowBox[{ RowBox[{"-", "i"}], ",", RowBox[{"-", "j"}]}], "]"}]], "Input", CellChangeTimes->{{3.928999909565073*^9, 3.928999923886753*^9}}, - CellLabel->"In[29]:=",ExpressionUUID->"48083dc8-73df-48a3-ac32-06c169e7a39b"], + CellLabel->"In[15]:=",ExpressionUUID->"48083dc8-73df-48a3-ac32-06c169e7a39b"], Cell[BoxData[ RowBox[{ @@ -3324,8 +2755,8 @@ Cell[BoxData[ AutoSpacing->False], $CellContext`Rtchi[-$CellContext`i, -$CellContext`j], Editable->False]}]], "Output", - CellChangeTimes->{3.928999924493513*^9}, - CellLabel->"Out[29]=",ExpressionUUID->"e4a9f183-f6ed-438d-80be-0064ae6a7bf2"] + CellChangeTimes->{3.928999924493513*^9, 3.9290097651317244`*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"46161b63-00fb-4ad8-9c8f-5d478b3d6dc4"] }, Open ]], Cell[CellGroupData[{ @@ -3336,7 +2767,7 @@ Cell[BoxData[ RowBox[{"-", "i"}], ",", RowBox[{"-", "j"}]}], "]"}]], "Input", CellChangeTimes->{{3.928999931750568*^9, 3.928999951462659*^9}}, - CellLabel->"In[31]:=",ExpressionUUID->"0c9b7ab7-2e97-44a2-bc66-21cf7d775e9f"], + CellLabel->"In[16]:=",ExpressionUUID->"0c9b7ab7-2e97-44a2-bc66-21cf7d775e9f"], Cell[BoxData[ RowBox[{ @@ -3652,8 +3083,9 @@ Cell[BoxData[ AutoSpacing->False], $CellContext`chi[], Editable->False]}]]}]], "Output", - CellChangeTimes->{{3.9289999466343937`*^9, 3.9289999519223423`*^9}}, - CellLabel->"Out[31]=",ExpressionUUID->"667a3b92-a6ca-4a99-8f2a-eba3afffe810"] + CellChangeTimes->{{3.9289999466343946`*^9, 3.9289999519223433`*^9}, + 3.929009766453514*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"cd45f900-f32d-4e19-a75b-feff39b8396a"] }, Open ]], Cell[CellGroupData[{ @@ -3665,7 +3097,7 @@ Cell[BoxData[ RowBox[{"-", "j"}]}], "]"}]], "Input", CellChangeTimes->{{3.92899995695133*^9, 3.928999963340358*^9}, { 3.929000161832176*^9, 3.929000183443277*^9}}, - CellLabel->"In[34]:=",ExpressionUUID->"cbd99df0-6345-42bc-999e-33fbf9e53e3a"], + CellLabel->"In[17]:=",ExpressionUUID->"cbd99df0-6345-42bc-999e-33fbf9e53e3a"], Cell[BoxData[ RowBox[{ @@ -4097,8 +3529,10 @@ Cell[BoxData[ $CellContext`trGtd[$CellContext`a], Editable->False]}]}]], "Output", CellChangeTimes->{ - 3.9289999643123207`*^9, {3.929000164438487*^9, 3.9290001840712347`*^9}}, - CellLabel->"Out[34]=",ExpressionUUID->"de44d0d1-d4e5-4234-81df-6482a286fc10"] + 3.928999964312321*^9, {3.929000164438487*^9, 3.9290001840712347`*^9}, + 3.929009768365443*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"07af2353-150e-417a-abeb-58ca603638d8"] +}, Open ]] }, Open ]] }, Open ]], @@ -4186,8 +3620,8 @@ Cell[BoxData[ }, Closed]] }, Open ]] }, -WindowSize->{896, 1067}, -WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +WindowSize->{960, 1027}, +WindowMargins->{{0, Automatic}, {Automatic, 40}}, FrontEndVersion->"14.0 for Mac OS X x86 (64-bit) (December 12, 2023)", StyleDefinitions->"Default.nb", ExpressionUUID->"ebd466d4-c373-4284-afdd-a9043ac1493f" @@ -4207,140 +3641,108 @@ Cell[CellGroupData[{ Cell[580, 22, 579, 13, 68, "Input",ExpressionUUID->"9857cbce-1237-4124-83ba-143c7adb15bb", InitializationCell->True], Cell[CellGroupData[{ -Cell[1184, 39, 883, 14, 24, "Print",ExpressionUUID->"20094415-68da-4af4-9c6c-3fdc1a23a603"], -Cell[2070, 55, 1154, 22, 24, "Print",ExpressionUUID->"f9d9b649-55ae-4cae-a8ac-04400e708816"], -Cell[3227, 79, 904, 14, 24, "Print",ExpressionUUID->"178ea6b0-a3fb-4a94-80c6-d4b3cb19fedf"], -Cell[4134, 95, 861, 13, 24, "Print",ExpressionUUID->"b74c4bad-8987-48ef-8cab-1cb37299b64e"], -Cell[4998, 110, 844, 13, 24, "Print",ExpressionUUID->"90b5d5b9-dc23-4b15-a582-274d6437d06c"], -Cell[5845, 125, 883, 14, 24, "Print",ExpressionUUID->"16aee840-3934-4565-9474-e1384a364e7c"], -Cell[6731, 141, 1161, 22, 24, "Print",ExpressionUUID->"1923a055-e636-4474-bcb5-e17fd234d170"], -Cell[7895, 165, 904, 14, 24, "Print",ExpressionUUID->"b9a51533-a204-4e5f-95f8-b48f6af3be77"], -Cell[8802, 181, 883, 14, 24, "Print",ExpressionUUID->"08713b5f-c249-4e38-b6cd-e19695584e43"], -Cell[9688, 197, 1037, 16, 44, "Print",ExpressionUUID->"1252be88-68e1-49cd-921c-f81c796c3c10"], -Cell[10728, 215, 883, 14, 24, "Print",ExpressionUUID->"7fb9e36a-dd8d-4343-b081-67549a38c8ca"], -Cell[11614, 231, 883, 14, 24, "Print",ExpressionUUID->"f04835e3-5151-4a5b-9ec0-7251263a0f2f"], -Cell[12500, 247, 1155, 22, 24, "Print",ExpressionUUID->"beaf23fa-8c05-472b-a6fb-3f5fa93cbe14"], -Cell[13658, 271, 922, 14, 24, "Print",ExpressionUUID->"cc2977c5-9eef-4b43-bc77-05bf3b65e2f7"], -Cell[14583, 287, 885, 14, 24, "Print",ExpressionUUID->"96f32b29-e21e-4d81-a2d4-e97d39125df1"], -Cell[15471, 303, 1038, 16, 44, "Print",ExpressionUUID->"8e11dd46-e9fe-463b-a34f-b821e4de580b"], -Cell[16512, 321, 883, 14, 24, "Print",ExpressionUUID->"7c4d704b-00dc-465e-b20e-86307db6e57c"], -Cell[17398, 337, 885, 14, 24, "Print",ExpressionUUID->"654f265f-c808-4d5e-bc9e-d827f5564438"], -Cell[18286, 353, 861, 13, 24, "Print",ExpressionUUID->"32b6a7fb-e56e-421a-a42f-82f4b4ecdca5"], -Cell[19150, 368, 883, 14, 24, "Print",ExpressionUUID->"e526ba7c-dc89-417a-ba24-f3882c589ad2"], -Cell[20036, 384, 883, 14, 24, "Print",ExpressionUUID->"3f74268a-05b7-4b78-89dd-d97e14cbe2c9"], -Cell[20922, 400, 863, 13, 24, "Print",ExpressionUUID->"9c2c3fc9-beec-4c36-8f38-350b0867d880"], -Cell[21788, 415, 885, 14, 24, "Print",ExpressionUUID->"0b5f4bca-9987-4299-8144-39cfe589ce34"], -Cell[22676, 431, 883, 14, 24, "Print",ExpressionUUID->"697cb5d2-bf19-4224-845e-50c40f24f6e3"], -Cell[23562, 447, 863, 13, 24, "Print",ExpressionUUID->"d97ac3db-299b-4e94-9db5-dead7285badb"], -Cell[24428, 462, 883, 14, 24, "Print",ExpressionUUID->"e468c4a0-d107-408b-9f7e-f18ce72804ff"], -Cell[25314, 478, 883, 14, 24, "Print",ExpressionUUID->"053d743e-e7b2-443a-b9be-2e5f19bcdf3a"], -Cell[26200, 494, 863, 13, 24, "Print",ExpressionUUID->"9c95a535-46ba-47d7-89e8-61ed2a73715f"], -Cell[27066, 509, 883, 14, 24, "Print",ExpressionUUID->"e9968493-3fce-47a4-b4cd-88abdf37904b"], -Cell[27952, 525, 885, 14, 24, "Print",ExpressionUUID->"635b6570-c5f9-4dbe-ba61-3138a0bb5b10"], -Cell[28840, 541, 866, 13, 24, "Print",ExpressionUUID->"3ffcbd72-45c1-41d8-b561-6d209a5443bc"], -Cell[29709, 556, 883, 14, 24, "Print",ExpressionUUID->"4cc89d80-cf73-4799-9d60-f253a4945f46"], -Cell[30595, 572, 821, 13, 24, "Print",ExpressionUUID->"d68a51db-5d72-41b7-aac9-308f4d87b62d"] +Cell[1184, 39, 930, 15, 24, "Print",ExpressionUUID->"9120fe83-6a2b-4ec7-8e50-fcc134b62e8c"], +Cell[2117, 56, 1202, 23, 24, "Print",ExpressionUUID->"3d1ecaf5-6a47-4f09-babc-57972ca73272"], +Cell[3322, 81, 951, 15, 24, "Print",ExpressionUUID->"e08664ad-6104-4cfa-98b7-ca2968b1ce59"], +Cell[4276, 98, 908, 14, 24, "Print",ExpressionUUID->"5769f9f3-d494-4ba1-a743-3430da7f0ad4"], +Cell[5187, 114, 891, 14, 24, "Print",ExpressionUUID->"8ab69c72-5bd0-4933-931e-c6afecac09f1"], +Cell[6081, 130, 930, 15, 24, "Print",ExpressionUUID->"7aade315-fd02-4c32-af5f-7877092559a5"], +Cell[7014, 147, 1208, 23, 24, "Print",ExpressionUUID->"ffdb9704-c1bb-48d0-9e36-d3996801fb6f"], +Cell[8225, 172, 951, 15, 24, "Print",ExpressionUUID->"89a6a6d0-8e6c-49b4-8550-2b333801f226"], +Cell[9179, 189, 930, 15, 24, "Print",ExpressionUUID->"c9c96747-ae28-40fa-a52d-5da6d65872e5"], +Cell[10112, 206, 1085, 17, 44, "Print",ExpressionUUID->"cd90b7f8-6065-4b49-8d97-a33d144a03d3"], +Cell[11200, 225, 932, 15, 24, "Print",ExpressionUUID->"31351dc0-882f-4a5e-9f5e-eaf3f54e2faf"], +Cell[12135, 242, 930, 15, 24, "Print",ExpressionUUID->"6b4c79b2-e5b5-4d7c-a1c3-c44efad8b86b"], +Cell[13068, 259, 1202, 23, 24, "Print",ExpressionUUID->"8adf5822-aa11-44a2-8360-61cd724a9169"], +Cell[14273, 284, 971, 15, 24, "Print",ExpressionUUID->"97411cdd-cc35-4980-89dc-bc2897b5951f"], +Cell[15247, 301, 932, 15, 24, "Print",ExpressionUUID->"a977f34a-ef45-407b-93ae-55c722845ee5"], +Cell[16182, 318, 1087, 17, 44, "Print",ExpressionUUID->"a4212f0d-a09e-48ad-91ac-04bf58c99c96"], +Cell[17272, 337, 929, 15, 24, "Print",ExpressionUUID->"6c0ede5c-bcf0-41eb-b8d0-ac34d45db64a"], +Cell[18204, 354, 930, 15, 24, "Print",ExpressionUUID->"ddddb1b2-6015-49a3-a155-783705f0d01f"], +Cell[19137, 371, 906, 14, 24, "Print",ExpressionUUID->"e1a9cb56-0e54-48fd-ad4b-18b20d1fb8e8"], +Cell[20046, 387, 930, 15, 24, "Print",ExpressionUUID->"a235f701-d9b7-410f-9d1b-7208f084a13d"], +Cell[20979, 404, 929, 15, 24, "Print",ExpressionUUID->"a05852a7-0c88-47cf-b674-a2e2daa1bcee"], +Cell[21911, 421, 910, 14, 24, "Print",ExpressionUUID->"efa0cf86-73cb-4d6f-8327-b31176a265e2"], +Cell[22824, 437, 930, 15, 24, "Print",ExpressionUUID->"a099d0e5-58b7-4751-8de4-0c03fe86ae56"], +Cell[23757, 454, 930, 15, 24, "Print",ExpressionUUID->"cdf69130-e07b-4ece-b14e-9ceeb1270086"], +Cell[24690, 471, 908, 14, 24, "Print",ExpressionUUID->"a741f45d-8bc2-4400-9283-70416ea347b1"], +Cell[25601, 487, 929, 15, 24, "Print",ExpressionUUID->"2e411fc1-7d71-4bd5-906c-7aa9e718640f"], +Cell[26533, 504, 930, 15, 24, "Print",ExpressionUUID->"f849bf9a-c849-4c71-b546-1a288aa4e60c"], +Cell[27466, 521, 912, 14, 24, "Print",ExpressionUUID->"ca024b76-6988-46cf-812e-a0576adc029b"], +Cell[28381, 537, 930, 15, 24, "Print",ExpressionUUID->"3cc64170-5f9d-4b1d-af34-dd79cbded907"], +Cell[29314, 554, 930, 15, 24, "Print",ExpressionUUID->"b876f94e-4676-4a8c-9f2a-82494287598b"], +Cell[30247, 571, 913, 14, 24, "Print",ExpressionUUID->"6900b768-ee15-48f9-8bf6-603c9b015324"], +Cell[31163, 587, 930, 15, 24, "Print",ExpressionUUID->"3ccb2afc-6f64-4577-8069-792263b7ad36"], +Cell[32096, 604, 868, 14, 24, "Print",ExpressionUUID->"9f3307e8-985f-49b8-a103-87805bd76796"] }, Open ]] }, Open ]], -Cell[31443, 589, 373, 9, 46, "Input",ExpressionUUID->"dc88cf1b-3b54-44ff-b471-d7efa31651a2", - InitializationCell->True], -Cell[CellGroupData[{ -Cell[31841, 602, 207, 4, 67, "Section",ExpressionUUID->"d93e9e9c-e043-49bf-adc4-613bb015a823"], -Cell[CellGroupData[{ -Cell[32073, 610, 154, 3, 54, "Subsection",ExpressionUUID->"cc0db77f-50b2-45da-9194-890bb5a70986"], -Cell[32230, 615, 2786, 83, 249, "Input",ExpressionUUID->"4e6d5e4d-3e2c-4e00-b731-80f125a28f58", - InitializationCell->True] -}, Open ]], -Cell[CellGroupData[{ -Cell[35053, 703, 206, 4, 54, "Subsection",ExpressionUUID->"8f6e447f-5ad1-4983-a220-4a62c32eb45e"], -Cell[35262, 709, 2799, 75, 249, "Input",ExpressionUUID->"586963a8-981b-4f2c-bc38-3bd149af82cd", - InitializationCell->True], -Cell[38064, 786, 1092, 29, 131, "Input",ExpressionUUID->"c08588c0-b1be-4279-a26f-ad8578054e37", - InitializationCell->True], -Cell[39159, 817, 3245, 88, 249, "Input",ExpressionUUID->"4ff7b252-b898-4dd1-8ab8-4a2c09d190d5", +Cell[32991, 622, 373, 9, 46, "Input",ExpressionUUID->"dc88cf1b-3b54-44ff-b471-d7efa31651a2", InitializationCell->True], -Cell[42407, 907, 2416, 68, 158, "Input",ExpressionUUID->"9fecfaa3-ca7e-42bb-a622-c6a21140981a", - InitializationCell->True] -}, Open ]], -Cell[CellGroupData[{ -Cell[44860, 980, 154, 3, 54, "Subsection",ExpressionUUID->"1fd445a5-eeab-43da-98f4-96f9414b6b16"], -Cell[45017, 985, 4478, 118, 275, "Input",ExpressionUUID->"230e3e3d-ec24-4b15-9bc4-4c66fa656cc7", +Cell[33367, 633, 294, 6, 46, "Input",ExpressionUUID->"bcf3d33f-c2e3-4846-9c1c-4cfd7929fe92", InitializationCell->True], -Cell[49498, 1105, 1465, 38, 116, "Input",ExpressionUUID->"012d0ece-df9c-44ca-af29-bd29950146e4", +Cell[33664, 641, 243, 4, 46, "Input",ExpressionUUID->"28397444-6f1b-40f7-9f73-fe33ec91543b", InitializationCell->True], -Cell[50966, 1145, 1745, 53, 161, "Input",ExpressionUUID->"b2cd1bbb-ebc2-4ae5-98e8-1baa91d81aa3", +Cell[33910, 647, 326, 6, 46, "Input",ExpressionUUID->"465f2346-9a0b-41e7-a4bf-1a5b9b7b3fee", InitializationCell->True], Cell[CellGroupData[{ -Cell[52736, 1202, 157, 3, 45, "Subsubsection",ExpressionUUID->"63c86796-f445-4596-a568-cf6b7233992a"], -Cell[52896, 1207, 1310, 37, 152, "Input",ExpressionUUID->"61eaa4ba-0069-4a97-a6d7-a02ee559a741", - InitializationCell->True] -}, Open ]], +Cell[34261, 657, 172, 4, 67, "Section",ExpressionUUID->"fccd9e5b-e02b-4435-b659-204d650d5919"], Cell[CellGroupData[{ -Cell[54243, 1249, 162, 3, 45, "Subsubsection",ExpressionUUID->"28d203fe-58c8-4126-8774-88d5a1781306"], -Cell[54408, 1254, 538, 13, 95, "Input",ExpressionUUID->"c47cb394-ee24-4509-bdff-c280f2d44f4a", - InitializationCell->True], -Cell[54949, 1269, 857, 23, 139, "Input",ExpressionUUID->"5502d63c-b6fc-4a63-a203-12b5cbab9476", - InitializationCell->True] -}, Open ]] -}, Open ]], +Cell[34458, 665, 166, 3, 54, "Subsection",ExpressionUUID->"881c7a62-60e5-4d3a-a383-aedf982655f9"], Cell[CellGroupData[{ -Cell[55855, 1298, 156, 3, 54, "Subsection",ExpressionUUID->"ab64c7df-87cb-4c7d-990a-2b0543e709db"], -Cell[56014, 1303, 1418, 38, 152, "Input",ExpressionUUID->"e471a9d0-e772-4737-b68b-dc67e2be03b9", - InitializationCell->True] -}, Open ]] -}, Closed]], +Cell[34649, 672, 154, 3, 45, "Subsubsection",ExpressionUUID->"920279f5-ee9e-4dc5-b72f-c3be20398e5f"], Cell[CellGroupData[{ -Cell[57481, 1347, 166, 4, 53, "Section",ExpressionUUID->"519fe4de-6999-4db6-9e6b-17dff89f6b40"], -Cell[57650, 1353, 295, 6, 46, "Input",ExpressionUUID->"bcf3d33f-c2e3-4846-9c1c-4cfd7929fe92", - InitializationCell->True], -Cell[57948, 1361, 327, 6, 46, "Input",ExpressionUUID->"465f2346-9a0b-41e7-a4bf-1a5b9b7b3fee", - InitializationCell->True] +Cell[34828, 679, 202, 3, 30, "Input",ExpressionUUID->"37bd862a-bfb9-4e90-897d-4ec6176a0421"], +Cell[35033, 684, 2142, 65, 49, "Output",ExpressionUUID->"78641000-23b5-4054-8c65-c04dc97904f7"] }, Open ]], Cell[CellGroupData[{ -Cell[58312, 1372, 172, 4, 67, "Section",ExpressionUUID->"fccd9e5b-e02b-4435-b659-204d650d5919"], -Cell[CellGroupData[{ -Cell[58509, 1380, 166, 3, 54, "Subsection",ExpressionUUID->"881c7a62-60e5-4d3a-a383-aedf982655f9"], +Cell[37212, 754, 266, 6, 30, "Input",ExpressionUUID->"6e287b1e-4c94-495c-8676-b68848156dae"], +Cell[37481, 762, 6745, 206, 49, "Output",ExpressionUUID->"fb74e702-abb8-4710-b17d-e3bef82cd65d"] +}, Open ]], Cell[CellGroupData[{ -Cell[58700, 1387, 203, 3, 30, "Input",ExpressionUUID->"37bd862a-bfb9-4e90-897d-4ec6176a0421"], -Cell[58906, 1392, 2067, 64, 49, "Output",ExpressionUUID->"d40a3761-0229-4a8d-9f07-52ac2b60e11f"] +Cell[44263, 973, 201, 3, 30, "Input",ExpressionUUID->"ad4468d2-be76-430b-94ec-3f5c853bdd94"], +Cell[44467, 978, 6195, 198, 49, "Output",ExpressionUUID->"0ddd9186-2c29-42d6-b245-10ce3b830593"] }, Open ]], Cell[CellGroupData[{ -Cell[61010, 1461, 271, 6, 30, "Input",ExpressionUUID->"6e287b1e-4c94-495c-8676-b68848156dae"], -Cell[61284, 1469, 6698, 205, 49, "Output",ExpressionUUID->"241cac57-9fc2-4554-a653-ca6527491672"] +Cell[50699, 1181, 317, 7, 30, "Input",ExpressionUUID->"bc359c6c-652c-4059-b2db-0b92f1f31d9d"], +Cell[51019, 1190, 19468, 567, 87, "Output",ExpressionUUID->"0a1007f7-fb95-45a9-9269-4700dc0a0eae"] }, Open ]], Cell[CellGroupData[{ -Cell[68019, 1679, 202, 3, 30, "Input",ExpressionUUID->"ad4468d2-be76-430b-94ec-3f5c853bdd94"], -Cell[68224, 1684, 6145, 197, 49, "Output",ExpressionUUID->"b9b15884-c30c-489d-9cef-0b12c4d390d2"] +Cell[70524, 1762, 208, 3, 30, "Input",ExpressionUUID->"4af799ba-4478-4a70-b900-87d485df0f8f"], +Cell[70735, 1767, 21451, 637, 106, "Output",ExpressionUUID->"b2893371-9be7-4ae5-9919-3bd2deb926a4"] }, Open ]], Cell[CellGroupData[{ -Cell[74406, 1886, 268, 6, 30, "Input",ExpressionUUID->"bc359c6c-652c-4059-b2db-0b92f1f31d9d"], -Cell[74677, 1894, 19422, 566, 87, "Output",ExpressionUUID->"3631de59-2b09-46ad-969c-6d2885d3f6b2"] +Cell[92223, 2409, 204, 3, 30, "Input",ExpressionUUID->"d951c37d-1a0b-47ad-9385-2f40e346f232"], +Cell[92430, 2414, 4433, 141, 49, "Output",ExpressionUUID->"62739b94-f91d-415c-bdcb-9b96ef584fbb"] }, Open ]], Cell[CellGroupData[{ -Cell[94136, 2465, 208, 3, 30, "Input",ExpressionUUID->"4af799ba-4478-4a70-b900-87d485df0f8f"], -Cell[94347, 2470, 21401, 636, 106, "Output",ExpressionUUID->"4812d6f1-9ff1-4f5b-9efe-d71d1e39bb1c"] +Cell[96900, 2560, 206, 3, 30, "Input",ExpressionUUID->"5f46b571-7d78-4545-a4c6-859857497c32"], +Cell[97109, 2565, 710, 25, 35, "Output",ExpressionUUID->"cb4a2b5a-7212-4b1d-a267-c0f005afbcb9"] }, Open ]], Cell[CellGroupData[{ -Cell[115785, 3111, 204, 3, 30, "Input",ExpressionUUID->"d951c37d-1a0b-47ad-9385-2f40e346f232"], -Cell[115992, 3116, 4386, 140, 49, "Output",ExpressionUUID->"cfe37751-dcbd-4ea4-a752-8bf88465306a"] +Cell[97856, 2595, 208, 3, 30, "Input",ExpressionUUID->"1cc21a6a-57ab-480b-8db2-e0edd5f9e4f2"], +Cell[98067, 2600, 2421, 79, 39, "Output",ExpressionUUID->"1ea7e9b8-f7ec-4e9e-b3b5-4efcf380f9e8"] +}, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[120415, 3261, 264, 6, 30, "Input",ExpressionUUID->"48083dc8-73df-48a3-ac32-06c169e7a39b"], -Cell[120682, 3269, 1883, 58, 39, "Output",ExpressionUUID->"e4a9f183-f6ed-438d-80be-0064ae6a7bf2"] +Cell[100537, 2685, 163, 3, 45, "Subsubsection",ExpressionUUID->"24362129-a923-4e4f-aab6-1fba3b2ad38c"], +Cell[CellGroupData[{ +Cell[100725, 2692, 264, 6, 30, "Input",ExpressionUUID->"48083dc8-73df-48a3-ac32-06c169e7a39b"], +Cell[100992, 2700, 1907, 58, 39, "Output",ExpressionUUID->"46161b63-00fb-4ad8-9c8f-5d478b3d6dc4"] }, Open ]], Cell[CellGroupData[{ -Cell[122602, 3332, 268, 6, 30, "Input",ExpressionUUID->"0c9b7ab7-2e97-44a2-bc66-21cf7d775e9f"], -Cell[122873, 3340, 10248, 315, 61, "Output",ExpressionUUID->"667a3b92-a6ca-4a99-8f2a-eba3afffe810"] +Cell[102936, 2763, 268, 6, 30, "Input",ExpressionUUID->"0c9b7ab7-2e97-44a2-bc66-21cf7d775e9f"], +Cell[103207, 2771, 10274, 316, 61, "Output",ExpressionUUID->"cd45f900-f32d-4e19-a75b-feff39b8396a"] }, Open ]], Cell[CellGroupData[{ -Cell[133158, 3660, 313, 7, 30, "Input",ExpressionUUID->"cbd99df0-6345-42bc-999e-33fbf9e53e3a"], -Cell[133474, 3669, 14690, 431, 72, "Output",ExpressionUUID->"de44d0d1-d4e5-4234-81df-6482a286fc10"] +Cell[113518, 3092, 313, 7, 30, "Input",ExpressionUUID->"cbd99df0-6345-42bc-999e-33fbf9e53e3a"], +Cell[113834, 3101, 14714, 432, 72, "Output",ExpressionUUID->"07af2353-150e-417a-abeb-58ca603638d8"] +}, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[148213, 4106, 175, 3, 54, "Subsection",ExpressionUUID->"926fcc7b-37b2-44e0-a0d4-39b1e5f39312"], -Cell[148391, 4111, 542, 14, 30, "Input",ExpressionUUID->"d9b393c6-2d0e-4365-ab94-7d6ec5710670"], -Cell[148936, 4127, 2089, 57, 157, "Input",ExpressionUUID->"4082dbad-b700-412c-918b-7616ddad2b60"] +Cell[128609, 3540, 175, 3, 54, "Subsection",ExpressionUUID->"926fcc7b-37b2-44e0-a0d4-39b1e5f39312"], +Cell[128787, 3545, 542, 14, 30, "Input",ExpressionUUID->"d9b393c6-2d0e-4365-ab94-7d6ec5710670"], +Cell[129332, 3561, 2089, 57, 157, "Input",ExpressionUUID->"4082dbad-b700-412c-918b-7616ddad2b60"] }, Closed]] }, Open ]] }