Skip to content
Snippets Groups Projects
Commit de4402bf authored by Nitschke, Ingo's avatar Nitschke, Ingo
Browse files

2024-02-26-18-45-45

parent 1bb70cc3
No related branches found
No related tags found
No related merge requests found
Expand all Hide whitespace changes
Inline Side-by-side
Activity/mathematica/deRhamR3.nb 0 → 100644
+ 1936
− 0
View file @ de4402bf
(* Content-type: application/vnd.wolfram.mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 13.2' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 65029, 1928]
NotebookOptionsPosition[ 59844, 1839]
NotebookOutlinePosition[ 60319, 1857]
CellTagsIndexPosition[ 60276, 1854]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
RowBox[{
RowBox[{"Inner2", "[",
RowBox[{"R1_", ",", "R2_"}], "]"}], ":=",
RowBox[{"Sum", "[",
RowBox[{
RowBox[{
RowBox[{"R1", "[",
RowBox[{"[",
RowBox[{"i", ",", "j"}], "]"}], "]"}], "*",
RowBox[{"R2", "[",
RowBox[{"[",
RowBox[{"i", ",", "j"}], "]"}], "]"}]}], ",",
RowBox[{"{",
RowBox[{"i", ",", "3"}], "}"}], ",",
RowBox[{"{",
RowBox[{"j", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Inner3", "[",
RowBox[{"M1_", ",", "M2_"}], "]"}], ":=",
RowBox[{"Sum", "[",
RowBox[{
RowBox[{
RowBox[{"M1", "[",
RowBox[{"[",
RowBox[{"i", ",", "j", ",", "k"}], "]"}], "]"}], "*",
RowBox[{"M2", "[",
RowBox[{"[",
RowBox[{"i", ",", "j", ",", "k"}], "]"}], "]"}]}], ",",
RowBox[{"{",
RowBox[{"i", ",", "3"}], "}"}], ",",
RowBox[{"{",
RowBox[{"j", ",", "3"}], "}"}], ",",
RowBox[{"{",
RowBox[{"k", ",", "3"}], "}"}]}], "]"}]}]}], "Input",
CellChangeTimes->{{3.9175229303062696`*^9, 3.917522935399048*^9}, {
3.917523033786647*^9, 3.917523063256877*^9}, {3.917524955056366*^9,
3.9175249854277477`*^9}},
CellLabel->"In[1]:=",ExpressionUUID->"815c29ff-a687-43a5-9fd5-a07b8daeb950"],
Cell[BoxData[{
RowBox[{
RowBox[{"vars", "=",
RowBox[{"{",
RowBox[{"x", ",", "y", ",", "z"}], "}"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"D0", "[", "f_", "]"}], ":=",
RowBox[{"D", "[",
RowBox[{"f", ",",
RowBox[{"{", "vars", "}"}]}], "]"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"D1", "[", "W_", "]"}], ":=",
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{"DW", "=",
RowBox[{"D", "[",
RowBox[{"W", ",",
RowBox[{"{", "vars", "}"}]}], "]"}]}], "}"}], ",",
RowBox[{
RowBox[{"1", "/", "2"}], "*",
RowBox[{"Table", "[",
RowBox[{
RowBox[{
RowBox[{"DW", "[",
RowBox[{"[",
RowBox[{"i", ",", "j"}], "]"}], "]"}], "-",
RowBox[{"DW", "[",
RowBox[{"[",
RowBox[{"j", ",", "i"}], "]"}], "]"}]}], ",",
RowBox[{"{",
RowBox[{"i", ",", "3"}], "}"}], ",",
RowBox[{"{",
RowBox[{"j", ",", "3"}], "}"}]}], "]"}]}]}],
"]"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"D2", "[", "R_", "]"}], ":=",
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{"DR", "=",
RowBox[{"D", "[",
RowBox[{"R", ",",
RowBox[{"{", "vars", "}"}]}], "]"}]}], "}"}], ",",
RowBox[{
RowBox[{"1", "/", "6"}], "*",
RowBox[{"Table", "[",
RowBox[{
RowBox[{
RowBox[{"DR", "[",
RowBox[{"[",
RowBox[{"i", ",", "j", ",", "k"}], "]"}], "]"}], "+",
RowBox[{"DR", "[",
RowBox[{"[",
RowBox[{"j", ",", "k", ",", "i"}], "]"}], "]"}], "+",
RowBox[{"DR", "[",
RowBox[{"[",
RowBox[{"k", ",", "i", ",", "j"}], "]"}], "]"}],
"\[IndentingNewLine]", "\t\t\t\t\t\t\t\t\t\t", "-",
RowBox[{"DR", "[",
RowBox[{"[",
RowBox[{"j", ",", "i", ",", "k"}], "]"}], "]"}], "-",
RowBox[{"DR", "[",
RowBox[{"[",
RowBox[{"k", ",", "j", ",", "i"}], "]"}], "]"}], "-",
RowBox[{"DR", "[",
RowBox[{"[",
RowBox[{"i", ",", "k", ",", "j"}], "]"}], "]"}]}], ",",
RowBox[{"{",
RowBox[{"i", ",", "3"}], "}"}], ",",
RowBox[{"{",
RowBox[{"j", ",", "3"}], "}"}], ",",
RowBox[{"{",
RowBox[{"k", ",", "3"}], "}"}]}], "]"}]}]}], "]"}]}]}], "Input",
CellChangeTimes->{{3.917519328433827*^9, 3.91751938340723*^9}, {
3.917519486695147*^9, 3.917519611653339*^9}, {3.917519785085023*^9,
3.91751987496894*^9}, {3.917519917341774*^9, 3.917519978851902*^9}, {
3.917520754959477*^9, 3.9175208828158503`*^9}, {3.917522961921887*^9,
3.9175229861765823`*^9}},
CellLabel->"In[3]:=",ExpressionUUID->"e108bad1-d348-4c37-966b-260dccd5abb1"],
Cell[BoxData[{
RowBox[{
RowBox[{"DH1", "[", "W_", "]"}], ":=",
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{"DW", "=",
RowBox[{"D", "[",
RowBox[{"W", ",",
RowBox[{"{", "vars", "}"}]}], "]"}]}], "}"}], ",",
RowBox[{
RowBox[{"1", "/",
RowBox[{"Sqrt", "[", "3", "]"}]}], "*",
RowBox[{"Sum", "[",
RowBox[{
RowBox[{"DW", "[",
RowBox[{"[",
RowBox[{"k", ",", "k"}], "]"}], "]"}], ",",
RowBox[{"{",
RowBox[{"k", ",", "3"}], "}"}]}], "]"}]}]}],
"]"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"DH2", "[", "R_", "]"}], ":=",
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{"DR", "=",
RowBox[{"D", "[",
RowBox[{"R", ",",
RowBox[{"{", "vars", "}"}]}], "]"}]}], "}"}], ",",
RowBox[{
RowBox[{"1", "/", "2"}], "*",
RowBox[{"Sum", "[",
RowBox[{
RowBox[{"Table", "[",
RowBox[{
RowBox[{
RowBox[{"DR", "[",
RowBox[{"[",
RowBox[{"k", ",", "i", ",", "k"}], "]"}], "]"}], "-",
RowBox[{"DR", "[",
RowBox[{"[",
RowBox[{"i", ",", "k", ",", "k"}], "]"}], "]"}]}], ",",
RowBox[{"{",
RowBox[{"i", ",", "3"}], "}"}]}], "]"}], ",",
RowBox[{"{",
RowBox[{"k", ",", "3"}], "}"}]}], "]"}]}]}],
"]"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"DH3", "[", "M_", "]"}], ":=",
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{"DM", "=",
RowBox[{"D", "[",
RowBox[{"M", ",",
RowBox[{"{", "vars", "}"}]}], "]"}]}], "}"}], ",",
RowBox[{
RowBox[{"1", "/",
RowBox[{"(",
RowBox[{"2", "*",
RowBox[{"Sqrt", "[", "3", "]"}]}], ")"}]}], "*",
RowBox[{"Sum", "[",
RowBox[{
RowBox[{"Table", "[",
RowBox[{
RowBox[{
RowBox[{"DM", "[",
RowBox[{"[",
RowBox[{"i", ",", "j", ",", "k", ",", "k"}], "]"}], "]"}], "+",
RowBox[{"DM", "[",
RowBox[{"[",
RowBox[{"j", ",", "k", ",", "i", ",", "k"}], "]"}], "]"}], "+",
RowBox[{"DM", "[",
RowBox[{"[",
RowBox[{"k", ",", "i", ",", "j", ",", "k"}], "]"}], "]"}],
"\[IndentingNewLine]", "\t\t\t\t\t\t\t\t\t\t\t\t\t\t", "-",
RowBox[{"DM", "[",
RowBox[{"[",
RowBox[{"j", ",", "i", ",", "k", ",", "k"}], "]"}], "]"}], "-",
RowBox[{"DM", "[",
RowBox[{"[",
RowBox[{"k", ",", "j", ",", "i", ",", "k"}], "]"}], "]"}], "-",
RowBox[{"DM", "[",
RowBox[{"[",
RowBox[{"i", ",", "k", ",", "j", ",", "k"}], "]"}], "]"}]}], ",",
RowBox[{"{",
RowBox[{"i", ",", "3"}], "}"}], ",",
RowBox[{"{",
RowBox[{"j", ",", "3"}], "}"}]}], "]"}], ",",
RowBox[{"{",
RowBox[{"k", ",", "3"}], "}"}]}], "]"}]}]}], "]"}]}]}], "Input",
CellChangeTimes->{{3.917528626711585*^9, 3.917528890907765*^9}, {
3.917531119976448*^9, 3.917531135808015*^9}, {3.9175318914898252`*^9,
3.917531995402637*^9}, {3.917532834956554*^9, 3.917532835087596*^9}, {
3.917534568575585*^9, 3.917534654479227*^9}},
CellLabel->"In[7]:=",ExpressionUUID->"e301f5bf-e80a-477b-aec4-74d262b4023c"],
Cell[BoxData[{
RowBox[{
RowBox[{"LC", "=",
RowBox[{
RowBox[{"LeviCivitaTensor", "[", "3", "]"}], "//", "Normal"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"H0", "[", "f_", "]"}], ":=",
RowBox[{
RowBox[{"f", "/",
RowBox[{"Sqrt", "[", "6", "]"}]}], "*", "LC"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"H1", "[", "W_", "]"}], ":=",
RowBox[{
RowBox[{"1", "/",
RowBox[{"Sqrt", "[", "2", "]"}]}], "*",
RowBox[{"LC", ".", "W"}]}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"H2", "[", "R_", "]"}], ":=",
RowBox[{
RowBox[{"1", "/",
RowBox[{"Sqrt", "[", "2", "]"}]}], "*",
RowBox[{"Table", "[",
RowBox[{
RowBox[{"Inner2", "[",
RowBox[{
RowBox[{"LC", "[",
RowBox[{"[",
RowBox[{"i", ",", "All", ",", "All"}], "]"}], "]"}], ",", "R"}],
"]"}], ",",
RowBox[{"{",
RowBox[{"i", ",", "3"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"H3", "[", "M_", "]"}], ":=",
RowBox[{
RowBox[{"Inner3", "[",
RowBox[{"M", ",", "LC"}], "]"}], "/",
RowBox[{"Sqrt", "[", "6", "]"}]}]}]}], "Input",
CellChangeTimes->{{3.9175227451889477`*^9, 3.917522754815133*^9}, {
3.917522789896686*^9, 3.9175228531285267`*^9}, {3.9175231037942533`*^9,
3.917523175359262*^9}, {3.9175249915198727`*^9, 3.917525104015345*^9}},
CellLabel->"In[10]:=",ExpressionUUID->"c6a58f46-293e-4723-96f1-342c3f6dc92d"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"f", "=",
RowBox[{"fun", "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}]}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{"D0f", "=",
RowBox[{
RowBox[{"D0", "[", "f", "]"}], "//", "Simplify"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{
RowBox[{"D1", "[", "D0f", "]"}], "//", "Simplify"}], "//", "Echo"}],
";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{"H0f", "=",
RowBox[{
RowBox[{"H0", "[", "f", "]"}], "//", "Simplify"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{
RowBox[{"Inner3", "[",
RowBox[{"H0f", ",", "H0f"}], "]"}], "-",
RowBox[{"f", "^", "2"}]}], "//", "Simplify"}], "//", "Echo"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{
RowBox[{
RowBox[{"H3", "[", "H0f", "]"}], "-", "f"}], "//", "Simplify"}], "//",
"Echo"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{
RowBox[{"DH3", "@", "H0f"}], "-",
RowBox[{
RowBox[{"1", "/",
RowBox[{"Sqrt", "[", "2", "]"}]}], "*",
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{"Df", "=",
RowBox[{"D", "[",
RowBox[{"f", ",",
RowBox[{"{", "vars", "}"}]}], "]"}]}], "}"}], ",",
RowBox[{"LC", ".", "Df"}]}], "]"}]}]}], "//", "Simplify"}], "//",
"Echo"}], ";"}]}], "Input",
CellChangeTimes->{{3.9175194291168537`*^9, 3.917519446918385*^9}, {
3.917519613803781*^9, 3.917519636335486*^9}, {3.917522858100216*^9,
3.9175229070035686`*^9}, {3.9175230715441847`*^9, 3.917523092531769*^9}, {
3.917523180540204*^9, 3.917523201248638*^9}, {3.917532018988899*^9,
3.9175320365664*^9}, {3.917533227793532*^9, 3.917533376725119*^9}, {
3.917533638400626*^9, 3.917533643233139*^9}, {3.917533714423731*^9,
3.917533728134345*^9}, {3.917533910257688*^9, 3.9175339117506447`*^9}},
CellLabel->"In[15]:=",ExpressionUUID->"632bf49c-c5af-4b58-a3c9-08073625ea2f"],
Cell[BoxData[
RowBox[{"fun", "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}]], "Output",
CellChangeTimes->{{3.9175194590459948`*^9, 3.917519481082444*^9},
3.917519638559504*^9, 3.9175228757119417`*^9, 3.917523093746526*^9, {
3.917523196665427*^9, 3.917523201840226*^9}, 3.917523423844007*^9, {
3.91753202117694*^9, 3.917532037436277*^9}, 3.917533377687087*^9,
3.917533644903236*^9, 3.9175337303181562`*^9, 3.917533913855735*^9,
3.917952307739996*^9},
CellLabel->"Out[15]=",ExpressionUUID->"ad299955-813d-4683-9933-0f6e00b0106b"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
SuperscriptBox["fun",
TagBox[
RowBox[{"(",
RowBox[{"1", ",", "0", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None], "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}], ",",
RowBox[{
SuperscriptBox["fun",
TagBox[
RowBox[{"(",
RowBox[{"0", ",", "1", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None], "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}], ",",
RowBox[{
SuperscriptBox["fun",
TagBox[
RowBox[{"(",
RowBox[{"0", ",", "0", ",", "1"}], ")"}],
Derivative],
MultilineFunction->None], "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "}"}]], "Output",
CellChangeTimes->{{3.9175194590459948`*^9, 3.917519481082444*^9},
3.917519638559504*^9, 3.9175228757119417`*^9, 3.917523093746526*^9, {
3.917523196665427*^9, 3.917523201840226*^9}, 3.917523423844007*^9, {
3.91753202117694*^9, 3.917532037436277*^9}, 3.917533377687087*^9,
3.917533644903236*^9, 3.9175337303181562`*^9, 3.917533913855735*^9,
3.917952307760004*^9},
CellLabel->"Out[16]=",ExpressionUUID->"16050ba9-5144-4774-9f0d-ce2a547c7c70"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Echo",
CellChangeTimes->{
3.9179523077657547`*^9},ExpressionUUID->"9f6673b4-2c9e-4d20-ac93-\
cbf09d0d0a3b"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",",
FractionBox[
RowBox[{"fun", "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}],
SqrtBox["6"]]}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{"-",
FractionBox[
RowBox[{"fun", "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}],
SqrtBox["6"]]}], ",", "0"}], "}"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "0", ",",
RowBox[{"-",
FractionBox[
RowBox[{"fun", "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}],
SqrtBox["6"]]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{
FractionBox[
RowBox[{"fun", "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}],
SqrtBox["6"]], ",", "0", ",", "0"}], "}"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",",
FractionBox[
RowBox[{"fun", "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}],
SqrtBox["6"]], ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-",
FractionBox[
RowBox[{"fun", "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}],
SqrtBox["6"]]}], ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]], "Output",
CellChangeTimes->{{3.9175194590459948`*^9, 3.917519481082444*^9},
3.917519638559504*^9, 3.9175228757119417`*^9, 3.917523093746526*^9, {
3.917523196665427*^9, 3.917523201840226*^9}, 3.917523423844007*^9, {
3.91753202117694*^9, 3.917532037436277*^9}, 3.917533377687087*^9,
3.917533644903236*^9, 3.9175337303181562`*^9, 3.917533913855735*^9,
3.917952307785074*^9},
CellLabel->"Out[18]=",ExpressionUUID->"fa53848a-aecd-47d4-ab28-b4959995242a"],
Cell[CellGroupData[{
Cell[BoxData["0"], "Echo",
CellChangeTimes->{
3.917952307790964*^9},ExpressionUUID->"25dff489-7f51-467b-8267-\
8a8ef3c9ba6f"],
Cell[BoxData["0"], "Echo",
CellChangeTimes->{
3.917952307812481*^9},ExpressionUUID->"ae7dbbc5-ed04-44f8-8bad-\
e3fc7c6ca049"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Echo",
CellChangeTimes->{
3.917952307843955*^9},ExpressionUUID->"f55315c7-234e-458d-bb26-\
df92861e6289"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{"Df", "=",
RowBox[{"D", "[",
RowBox[{"f", ",",
RowBox[{"{", "vars", "}"}]}], "]"}]}], "}"}], ",",
RowBox[{"Table", "[",
RowBox[{
RowBox[{"LC", "[",
RowBox[{"[",
RowBox[{"i", ",", "All", ",", "All"}], "]"}], "]"}], ",",
RowBox[{"{",
RowBox[{"i", ",", "3"}], "}"}]}], "]"}]}], "]"}]], "Input",
CellChangeTimes->{
3.9175334644895897`*^9, {3.917533564733687*^9, 3.9175335985536823`*^9}},
CellLabel->"In[22]:=",ExpressionUUID->"231ee263-8864-42b3-8013-a43697df1172"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{"-", "1"}], ",", "0"}], "}"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "0", ",",
RowBox[{"-", "1"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]], "Output",
CellChangeTimes->{{3.917533454283296*^9, 3.917533465508072*^9},
3.917533566015839*^9, 3.9175336001637287`*^9, 3.9179523078672743`*^9},
CellLabel->"Out[22]=",ExpressionUUID->"fc41a922-c84e-4830-804e-7848e726adb6"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"W", "=",
RowBox[{"{",
RowBox[{
RowBox[{"W1", "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}], ",",
RowBox[{"W2", "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}], ",",
RowBox[{"W3", "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "}"}]}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{"D1W", "=",
RowBox[{
RowBox[{"D1", "[", "W", "]"}], "//", "Simplify"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"D2", "[", "D1W", "]"}], "//", "Simplify"}], "//", "Echo"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{
RowBox[{
RowBox[{"H1", "@",
RowBox[{"H2", "@",
RowBox[{"D", "[",
RowBox[{"W", ",",
RowBox[{"{", "vars", "}"}]}], "]"}]}]}], "-", "D1W"}], "//",
"Simplify"}], "//", "Echo"}], ";"}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{"H1W", "=",
RowBox[{
RowBox[{"H1", "[", "W", "]"}], "//", "Simplify"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{
RowBox[{"Inner2", "[",
RowBox[{"H1W", ",", "H1W"}], "]"}], "-",
RowBox[{"W", ".", "W"}]}], "//", "Simplify"}], "//", "Echo"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{
RowBox[{
RowBox[{"H2", "[", "H1W", "]"}], "-", "W"}], "//", "Simplify"}], "//",
"Echo"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{"DH1W", "=",
RowBox[{
RowBox[{"DH1", "[", "W", "]"}], "//",
"Simplify"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{
RowBox[{
RowBox[{"H3", "@",
RowBox[{"D2", "@", "H1W"}]}], "-", "DH1W"}], "//", "Simplify"}], "//",
"Echo"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{
RowBox[{"DH2", "@", "H1W"}], "-",
RowBox[{
RowBox[{"1", "/",
RowBox[{"Sqrt", "[", "2", "]"}]}], "*",
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{"DW", "=",
RowBox[{"D", "[",
RowBox[{"W", ",",
RowBox[{"{", "vars", "}"}]}], "]"}]}], "}"}], ",",
RowBox[{"Table", "[",
RowBox[{
RowBox[{"Inner2", "[",
RowBox[{
RowBox[{"LC", "[",
RowBox[{"[",
RowBox[{"i", ",", "All", ",", "All"}], "]"}], "]"}], ",",
"DW"}], "]"}], ",",
RowBox[{"{",
RowBox[{"i", ",", "3"}], "}"}]}], "]"}]}], "]"}]}]}], "//",
"Simplify"}], "//", "Echo"}], ";"}]}], "Input",
CellChangeTimes->{{3.9175196991086483`*^9, 3.917519745004529*^9}, {
3.917519984104176*^9, 3.917519996442968*^9}, {3.91752511569459*^9,
3.917525198615542*^9}, {3.917526024009098*^9, 3.917526119767963*^9}, {
3.917532046572184*^9, 3.9175320555423927`*^9}, {3.91753388981841*^9,
3.917534004326777*^9}, {3.9175346682271*^9, 3.9175347446907167`*^9}},
CellLabel->"In[23]:=",ExpressionUUID->"35dc5f6e-6eba-44ee-89b7-fbc23c2cc703"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"W1", "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}], ",",
RowBox[{"W2", "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}], ",",
RowBox[{"W3", "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "}"}]], "Output",
CellChangeTimes->{
3.917519746666326*^9, 3.917519998007819*^9, 3.917520893498451*^9,
3.917523423885416*^9, 3.917525133377392*^9, 3.917525165733817*^9,
3.917525200551222*^9, {3.9175260919953737`*^9, 3.91752612117807*^9}, {
3.917532050417877*^9, 3.9175320613344603`*^9}, 3.917534007503439*^9,
3.9175347456714687`*^9, 3.917952307887135*^9},
CellLabel->"Out[23]=",ExpressionUUID->"e62ce448-e31f-4225-a675-da54ca3eba6c"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
SuperscriptBox["W1",
TagBox[
RowBox[{"(",
RowBox[{"0", ",", "1", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None], "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}], "-",
RowBox[{
SuperscriptBox["W2",
TagBox[
RowBox[{"(",
RowBox[{"1", ",", "0", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None], "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], ",",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
SuperscriptBox["W1",
TagBox[
RowBox[{"(",
RowBox[{"0", ",", "0", ",", "1"}], ")"}],
Derivative],
MultilineFunction->None], "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}], "-",
RowBox[{
SuperscriptBox["W3",
TagBox[
RowBox[{"(",
RowBox[{"1", ",", "0", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None], "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
RowBox[{
SuperscriptBox["W1",
TagBox[
RowBox[{"(",
RowBox[{"0", ",", "1", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None], "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+",
RowBox[{
SuperscriptBox["W2",
TagBox[
RowBox[{"(",
RowBox[{"1", ",", "0", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None], "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], ",", "0", ",",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
SuperscriptBox["W2",
TagBox[
RowBox[{"(",
RowBox[{"0", ",", "0", ",", "1"}], ")"}],
Derivative],
MultilineFunction->None], "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}], "-",
RowBox[{
SuperscriptBox["W3",
TagBox[
RowBox[{"(",
RowBox[{"0", ",", "1", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None], "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
RowBox[{
SuperscriptBox["W1",
TagBox[
RowBox[{"(",
RowBox[{"0", ",", "0", ",", "1"}], ")"}],
Derivative],
MultilineFunction->None], "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+",
RowBox[{
SuperscriptBox["W3",
TagBox[
RowBox[{"(",
RowBox[{"1", ",", "0", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None], "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], ",",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
RowBox[{
SuperscriptBox["W2",
TagBox[
RowBox[{"(",
RowBox[{"0", ",", "0", ",", "1"}], ")"}],
Derivative],
MultilineFunction->None], "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+",
RowBox[{
SuperscriptBox["W3",
TagBox[
RowBox[{"(",
RowBox[{"0", ",", "1", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None], "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], ",", "0"}],
"}"}]}], "}"}]], "Output",
CellChangeTimes->{
3.917519746666326*^9, 3.917519998007819*^9, 3.917520893498451*^9,
3.917523423885416*^9, 3.917525133377392*^9, 3.917525165733817*^9,
3.917525200551222*^9, {3.9175260919953737`*^9, 3.91752612117807*^9}, {
3.917532050417877*^9, 3.9175320613344603`*^9}, 3.917534007503439*^9,
3.9175347456714687`*^9, 3.917952307889817*^9},
CellLabel->"Out[24]=",ExpressionUUID->"9c0c2c29-941c-44cd-8726-99ee26719cf0"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]], "Echo",
CellChangeTimes->{
3.917952307895804*^9},ExpressionUUID->"8c0ff128-cab8-4d49-972a-\
be291c6f1c62"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Echo",
CellChangeTimes->{
3.917952307917418*^9},ExpressionUUID->"0430ec03-dba0-4409-af48-\
3d88d98d0854"]
}, Open ]],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",",
FractionBox[
RowBox[{"W3", "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}],
SqrtBox["2"]], ",",
RowBox[{"-",
FractionBox[
RowBox[{"W2", "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}],
SqrtBox["2"]]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-",
FractionBox[
RowBox[{"W3", "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}],
SqrtBox["2"]]}], ",", "0", ",",
FractionBox[
RowBox[{"W1", "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}],
SqrtBox["2"]]}], "}"}], ",",
RowBox[{"{",
RowBox[{
FractionBox[
RowBox[{"W2", "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}],
SqrtBox["2"]], ",",
RowBox[{"-",
FractionBox[
RowBox[{"W1", "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}],
SqrtBox["2"]]}], ",", "0"}], "}"}]}], "}"}]], "Output",
CellChangeTimes->{
3.917519746666326*^9, 3.917519998007819*^9, 3.917520893498451*^9,
3.917523423885416*^9, 3.917525133377392*^9, 3.917525165733817*^9,
3.917525200551222*^9, {3.9175260919953737`*^9, 3.91752612117807*^9}, {
3.917532050417877*^9, 3.9175320613344603`*^9}, 3.917534007503439*^9,
3.9175347456714687`*^9, 3.917952307946727*^9},
CellLabel->"Out[27]=",ExpressionUUID->"dc4dc3d2-8912-4d76-84f0-d5a0e7a06e92"],
Cell[CellGroupData[{
Cell[BoxData["0"], "Echo",
CellChangeTimes->{
3.917952307954062*^9},ExpressionUUID->"a26b4032-5ed7-4087-baff-\
f335e7009154"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}]], "Echo",
CellChangeTimes->{
3.9179523079841957`*^9},ExpressionUUID->"a86fa1e5-6b38-4e52-aa3f-\
b5641c1ee35c"]
}, Open ]],
Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{
SuperscriptBox["W3",
TagBox[
RowBox[{"(",
RowBox[{"0", ",", "0", ",", "1"}], ")"}],
Derivative],
MultilineFunction->None], "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}], "+",
RowBox[{
SuperscriptBox["W2",
TagBox[
RowBox[{"(",
RowBox[{"0", ",", "1", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None], "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}], "+",
RowBox[{
SuperscriptBox["W1",
TagBox[
RowBox[{"(",
RowBox[{"1", ",", "0", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None], "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}]}],
SqrtBox["3"]]], "Output",
CellChangeTimes->{
3.917519746666326*^9, 3.917519998007819*^9, 3.917520893498451*^9,
3.917523423885416*^9, 3.917525133377392*^9, 3.917525165733817*^9,
3.917525200551222*^9, {3.9175260919953737`*^9, 3.91752612117807*^9}, {
3.917532050417877*^9, 3.9175320613344603`*^9}, 3.917534007503439*^9,
3.9175347456714687`*^9, 3.917952308012414*^9},
CellLabel->"Out[30]=",ExpressionUUID->"4061b963-d1f9-4583-b0cd-3dbfd4ae5e37"],
Cell[CellGroupData[{
Cell[BoxData["0"], "Echo",
CellChangeTimes->{
3.9179523080197277`*^9},ExpressionUUID->"9874cea6-1e75-4007-8214-\
daa44f175845"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}]], "Echo",
CellChangeTimes->{
3.917952308048497*^9},ExpressionUUID->"664ef1f1-b95c-4447-bec6-\
ec69daebc7c2"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"R", "=",
RowBox[{
RowBox[{"LC", ".",
RowBox[{"{",
RowBox[{
RowBox[{"R1", "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}], ",",
RowBox[{"R2", "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}], ",",
RowBox[{"R3", "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "}"}]}], "//",
"Simplify"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{"D2R", "=",
RowBox[{
RowBox[{"D2", "[", "R", "]"}], "//", "Simplify"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{
RowBox[{"H0", "@",
RowBox[{"H3", "@",
RowBox[{"D", "[",
RowBox[{"R", ",",
RowBox[{"{", "vars", "}"}]}], "]"}]}]}], "-", "D2R"}], "//",
"Simplify"}], "//", "Echo"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{
RowBox[{
RowBox[{
RowBox[{"1", "/", "3"}], "*",
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{"DR", "=",
RowBox[{"D", "[",
RowBox[{"R", ",",
RowBox[{"{", "vars", "}"}]}], "]"}]}], "}"}], ",",
RowBox[{"Table", "[",
RowBox[{
RowBox[{
RowBox[{"DR", "[",
RowBox[{"[",
RowBox[{"i", ",", "j", ",", "k"}], "]"}], "]"}], "+",
RowBox[{"DR", "[",
RowBox[{"[",
RowBox[{"j", ",", "k", ",", "i"}], "]"}], "]"}], "+",
RowBox[{"DR", "[",
RowBox[{"[",
RowBox[{"k", ",", "i", ",", "j"}], "]"}], "]"}]}], ",",
RowBox[{"{",
RowBox[{"i", ",", "3"}], "}"}], ",",
RowBox[{"{",
RowBox[{"j", ",", "3"}], "}"}], ",",
RowBox[{"{",
RowBox[{"k", ",", "3"}], "}"}]}], "]"}]}], "]"}]}], "-", "D2R"}],
"//", "Simplify"}], "//", "Echo"}], ";"}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{"H2R", "=",
RowBox[{
RowBox[{"H2", "[", "R", "]"}], "//", "Simplify"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{
RowBox[{"H2R", ".", "H2R"}], "-",
RowBox[{"Inner2", "[",
RowBox[{"R", ",", "R"}], "]"}]}], "//", "Simplify"}], "//", "Echo"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{
RowBox[{
RowBox[{"H1", "[", "H2R", "]"}], "-", "R"}], "//", "Simplify"}], "//",
"Echo"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{"DH2R", "=",
RowBox[{
RowBox[{"DH2", "[", "R", "]"}], "//",
"Simplify"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{
RowBox[{"H2", "@",
RowBox[{"D1", "[", "H2R", "]"}]}], "-", "DH2R"}], "//", "Simplify"}], "//",
"Echo"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{"DR", "=",
RowBox[{"D", "[",
RowBox[{"R", ",",
RowBox[{"{", "vars", "}"}]}], "]"}]}], "}"}], ",",
RowBox[{"Sum", "[",
RowBox[{
RowBox[{"DR", "[",
RowBox[{"[",
RowBox[{"All", ",", "k", ",", "k"}], "]"}], "]"}], ",",
RowBox[{"{",
RowBox[{"k", ",", "3"}], "}"}]}], "]"}]}], "]"}]}], "-", "DH2R"}],
"//", "Simplify"}], "//", "Echo"}], ";"}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"DH1", "[", "DH2R", "]"}], "//", "Simplify"}], "//", "Echo"}],
";"}]}], "Input",
CellChangeTimes->{{3.917520121727027*^9, 3.9175201325751247`*^9}, {
3.917520205282957*^9, 3.917520361214666*^9}, 3.917520900440751*^9, {
3.917520936315892*^9, 3.9175209902999687`*^9}, {3.917522992266307*^9,
3.91752299894831*^9}, {3.917523253826717*^9, 3.917523276593727*^9}, {
3.917523310180977*^9, 3.917523358292213*^9}, {3.917523481022274*^9,
3.917523487293439*^9}, {3.9175252077309437`*^9, 3.9175253123560266`*^9}, {
3.917526253956746*^9, 3.917526288960965*^9}, {3.917528360925041*^9,
3.917528448816086*^9}, {3.917532069057317*^9, 3.9175320753872213`*^9}, {
3.9175321621058826`*^9, 3.917532169878519*^9}, {3.917532224337892*^9,
3.917532300605468*^9}, {3.917532347229974*^9, 3.917532354832672*^9}, {
3.917532845599773*^9, 3.9175329771398907`*^9}, {3.9179523602489147`*^9,
3.9179523827435226`*^9}},
CellLabel->"In[58]:=",ExpressionUUID->"3fef82e9-d3fe-4594-804c-066622d614c9"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{"R3", "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}], ",",
RowBox[{"-",
RowBox[{"R2", "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-",
RowBox[{"R3", "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ",", "0", ",",
RowBox[{"R1", "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"R2", "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}], ",",
RowBox[{"-",
RowBox[{"R1", "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ",", "0"}], "}"}]}],
"}"}]], "Output",
CellChangeTimes->{{3.917520123742063*^9, 3.917520133394862*^9},
3.9175202835186377`*^9, {3.9175203483054857`*^9, 3.917520362383415*^9}, {
3.91752089698285*^9, 3.9175209025980883`*^9}, 3.917520991262635*^9,
3.917523011874608*^9, 3.917523359399188*^9, 3.917523423913765*^9,
3.917523494937673*^9, 3.917525313593958*^9, 3.9175262915228*^9,
3.917528453990711*^9, 3.91753210906444*^9, 3.917532301786687*^9, {
3.9175323484955378`*^9, 3.917532355669895*^9}, 3.917532847362857*^9, {
3.9175329439298763`*^9, 3.917532977562233*^9}, 3.917952308087775*^9,
3.91795238427341*^9},
CellLabel->"Out[58]=",ExpressionUUID->"8c8c6e43-8f5d-4ee5-b8ce-01103147cd3d"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",",
RowBox[{
FractionBox["1", "3"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
SuperscriptBox["R3",
TagBox[
RowBox[{"(",
RowBox[{"0", ",", "0", ",", "1"}], ")"}],
Derivative],
MultilineFunction->None], "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}], "+",
RowBox[{
SuperscriptBox["R2",
TagBox[
RowBox[{"(",
RowBox[{"0", ",", "1", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None], "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}], "+",
RowBox[{
SuperscriptBox["R1",
TagBox[
RowBox[{"(",
RowBox[{"1", ",", "0", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None], "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{
FractionBox["1", "3"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
RowBox[{
SuperscriptBox["R3",
TagBox[
RowBox[{"(",
RowBox[{"0", ",", "0", ",", "1"}], ")"}],
Derivative],
MultilineFunction->None], "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "-",
RowBox[{
SuperscriptBox["R2",
TagBox[
RowBox[{"(",
RowBox[{"0", ",", "1", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None], "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}], "-",
RowBox[{
SuperscriptBox["R1",
TagBox[
RowBox[{"(",
RowBox[{"1", ",", "0", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None], "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], ",", "0"}],
"}"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "0", ",",
RowBox[{
FractionBox["1", "3"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
RowBox[{
SuperscriptBox["R3",
TagBox[
RowBox[{"(",
RowBox[{"0", ",", "0", ",", "1"}], ")"}],
Derivative],
MultilineFunction->None], "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "-",
RowBox[{
SuperscriptBox["R2",
TagBox[
RowBox[{"(",
RowBox[{"0", ",", "1", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None], "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}], "-",
RowBox[{
SuperscriptBox["R1",
TagBox[
RowBox[{"(",
RowBox[{"1", ",", "0", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None], "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{
FractionBox["1", "3"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
SuperscriptBox["R3",
TagBox[
RowBox[{"(",
RowBox[{"0", ",", "0", ",", "1"}], ")"}],
Derivative],
MultilineFunction->None], "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}], "+",
RowBox[{
SuperscriptBox["R2",
TagBox[
RowBox[{"(",
RowBox[{"0", ",", "1", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None], "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}], "+",
RowBox[{
SuperscriptBox["R1",
TagBox[
RowBox[{"(",
RowBox[{"1", ",", "0", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None], "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], ",", "0", ",",
"0"}], "}"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{
FractionBox["1", "3"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
SuperscriptBox["R3",
TagBox[
RowBox[{"(",
RowBox[{"0", ",", "0", ",", "1"}], ")"}],
Derivative],
MultilineFunction->None], "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}], "+",
RowBox[{
SuperscriptBox["R2",
TagBox[
RowBox[{"(",
RowBox[{"0", ",", "1", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None], "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}], "+",
RowBox[{
SuperscriptBox["R1",
TagBox[
RowBox[{"(",
RowBox[{"1", ",", "0", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None], "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], ",", "0"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{
FractionBox["1", "3"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
RowBox[{
SuperscriptBox["R3",
TagBox[
RowBox[{"(",
RowBox[{"0", ",", "0", ",", "1"}], ")"}],
Derivative],
MultilineFunction->None], "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "-",
RowBox[{
SuperscriptBox["R2",
TagBox[
RowBox[{"(",
RowBox[{"0", ",", "1", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None], "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}], "-",
RowBox[{
SuperscriptBox["R1",
TagBox[
RowBox[{"(",
RowBox[{"1", ",", "0", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None], "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], ",", "0", ",",
"0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]], "Output",
CellChangeTimes->{{3.917520123742063*^9, 3.917520133394862*^9},
3.9175202835186377`*^9, {3.9175203483054857`*^9, 3.917520362383415*^9}, {
3.91752089698285*^9, 3.9175209025980883`*^9}, 3.917520991262635*^9,
3.917523011874608*^9, 3.917523359399188*^9, 3.917523423913765*^9,
3.917523494937673*^9, 3.917525313593958*^9, 3.9175262915228*^9,
3.917528453990711*^9, 3.91753210906444*^9, 3.917532301786687*^9, {
3.9175323484955378`*^9, 3.917532355669895*^9}, 3.917532847362857*^9, {
3.9175329439298763`*^9, 3.917532977562233*^9}, 3.917952308087775*^9,
3.917952384276095*^9},
CellLabel->"Out[59]=",ExpressionUUID->"0594d633-eabb-48c4-a34b-03bb98f36555"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]], "Echo",
CellChangeTimes->{
3.9179523842823477`*^9},ExpressionUUID->"558938bd-56ae-49d0-a75c-\
499f178e8962"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]], "Echo",
CellChangeTimes->{
3.9179523843175383`*^9},ExpressionUUID->"f1609992-2942-4000-a52e-\
47a57f9223df"]
}, Open ]],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
SqrtBox["2"], " ",
RowBox[{"R1", "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ",",
RowBox[{
SqrtBox["2"], " ",
RowBox[{"R2", "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ",",
RowBox[{
SqrtBox["2"], " ",
RowBox[{"R3", "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}]}]}], "}"}]], "Output",
CellChangeTimes->{{3.917520123742063*^9, 3.917520133394862*^9},
3.9175202835186377`*^9, {3.9175203483054857`*^9, 3.917520362383415*^9}, {
3.91752089698285*^9, 3.9175209025980883`*^9}, 3.917520991262635*^9,
3.917523011874608*^9, 3.917523359399188*^9, 3.917523423913765*^9,
3.917523494937673*^9, 3.917525313593958*^9, 3.9175262915228*^9,
3.917528453990711*^9, 3.91753210906444*^9, 3.917532301786687*^9, {
3.9175323484955378`*^9, 3.917532355669895*^9}, 3.917532847362857*^9, {
3.9175329439298763`*^9, 3.917532977562233*^9}, 3.917952308087775*^9,
3.917952384344213*^9},
CellLabel->"Out[62]=",ExpressionUUID->"483997db-4d1e-49eb-9335-13c0d8254033"],
Cell[CellGroupData[{
Cell[BoxData["0"], "Echo",
CellChangeTimes->{
3.917952384349369*^9},ExpressionUUID->"0cbb7b3e-c2ce-4004-94bb-\
204964e7dcb0"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Echo",
CellChangeTimes->{
3.917952384377099*^9},ExpressionUUID->"72cff460-b666-4ca7-9e32-\
e203d018bbfe"]
}, Open ]],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{
SuperscriptBox["R2",
TagBox[
RowBox[{"(",
RowBox[{"0", ",", "0", ",", "1"}], ")"}],
Derivative],
MultilineFunction->None], "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}], "-",
RowBox[{
SuperscriptBox["R3",
TagBox[
RowBox[{"(",
RowBox[{"0", ",", "1", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None], "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ",",
RowBox[{
RowBox[{"-",
RowBox[{
SuperscriptBox["R1",
TagBox[
RowBox[{"(",
RowBox[{"0", ",", "0", ",", "1"}], ")"}],
Derivative],
MultilineFunction->None], "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "+",
RowBox[{
SuperscriptBox["R3",
TagBox[
RowBox[{"(",
RowBox[{"1", ",", "0", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None], "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ",",
RowBox[{
RowBox[{
SuperscriptBox["R1",
TagBox[
RowBox[{"(",
RowBox[{"0", ",", "1", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None], "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}], "-",
RowBox[{
SuperscriptBox["R2",
TagBox[
RowBox[{"(",
RowBox[{"1", ",", "0", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None], "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}]}]}], "}"}]], "Output",
CellChangeTimes->{{3.917520123742063*^9, 3.917520133394862*^9},
3.9175202835186377`*^9, {3.9175203483054857`*^9, 3.917520362383415*^9}, {
3.91752089698285*^9, 3.9175209025980883`*^9}, 3.917520991262635*^9,
3.917523011874608*^9, 3.917523359399188*^9, 3.917523423913765*^9,
3.917523494937673*^9, 3.917525313593958*^9, 3.9175262915228*^9,
3.917528453990711*^9, 3.91753210906444*^9, 3.917532301786687*^9, {
3.9175323484955378`*^9, 3.917532355669895*^9}, 3.917532847362857*^9, {
3.9175329439298763`*^9, 3.917532977562233*^9}, 3.917952308087775*^9,
3.9179523844058332`*^9},
CellLabel->"Out[65]=",ExpressionUUID->"e4f645d5-898c-4c19-8929-df8a119a20b6"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}]], "Echo",
CellChangeTimes->{
3.917952384411212*^9},ExpressionUUID->"43561a2b-b2bd-4773-939c-\
559358c1e050"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}]], "Echo",
CellChangeTimes->{
3.9179523844414873`*^9},ExpressionUUID->"b5722862-624a-4309-a094-\
97e2ca435e4c"],
Cell[BoxData["0"], "Echo",
CellChangeTimes->{
3.917952384450245*^9},ExpressionUUID->"8cd9506e-bff5-4460-9724-\
ab8740a59223"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"M", "=",
RowBox[{
RowBox[{
RowBox[{"Mfun", "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}], "*", "LC"}], "//",
"Simplify"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{"H3M", "=",
RowBox[{
RowBox[{"H3", "[", "M", "]"}], "//", "Simplify"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{
RowBox[{"H3M", "^", "2"}], "-",
RowBox[{"Inner3", "[",
RowBox[{"M", ",", "M"}], "]"}]}], "//", "Simplify"}], "//", "Echo"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{
RowBox[{"M", "-",
RowBox[{"H0", "[", "H3M", "]"}]}], "//", "Simplify"}], "//", "Echo"}],
";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{"DH3M", "=",
RowBox[{
RowBox[{"DH3", "[", "M", "]"}], "//",
"Simplify"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{
RowBox[{"H1", "@",
RowBox[{"D0", "[", "H3M", "]"}]}], "-", "DH3M"}], "//", "Simplify"}], "//",
"Echo"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{
RowBox[{
RowBox[{
RowBox[{"Sqrt", "[", "3", "]"}], "*",
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{"DM", "=",
RowBox[{"D", "[",
RowBox[{"M", ",",
RowBox[{"{", "vars", "}"}]}], "]"}]}], "}"}], ",",
RowBox[{"Sum", "[",
RowBox[{
RowBox[{"DM", "[",
RowBox[{"[",
RowBox[{"All", ",", "All", ",", "k", ",", "k"}], "]"}], "]"}],
",",
RowBox[{"{",
RowBox[{"k", ",", "3"}], "}"}]}], "]"}]}], "]"}]}], "-", "DH3M"}],
"//", "Simplify"}], "//", "Echo"}], ";"}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"DH2", "[", "DH3M", "]"}], "//", "Simplify"}], "//", "Echo"}],
";"}]}], "Input",
CellChangeTimes->{{3.917523512406413*^9, 3.917523526737381*^9}, {
3.917523566939909*^9, 3.917523690337219*^9}, {3.917528906242353*^9,
3.917528942007462*^9}, {3.9175289731155453`*^9, 3.917529025799683*^9}, {
3.9175295438007603`*^9, 3.917529618129043*^9}, {3.917532115826044*^9,
3.917532120107593*^9}, {3.9179523165615177`*^9, 3.917952352519706*^9}},
CellLabel->"In[50]:=",ExpressionUUID->"a4a9d32c-9b04-497f-95cf-e2b3b33899f4"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",",
RowBox[{"Mfun", "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{"-",
RowBox[{"Mfun", "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ",", "0"}], "}"}]}],
"}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "0", ",",
RowBox[{"-",
RowBox[{"Mfun", "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"Mfun", "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}], ",", "0", ",", "0"}],
"}"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{"Mfun", "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}], ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-",
RowBox[{"Mfun", "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ",", "0", ",", "0"}],
"}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]], "Output",
CellChangeTimes->{{3.917523642162938*^9, 3.917523657212357*^9},
3.917523691136468*^9, 3.917528943051415*^9, 3.917529028590289*^9,
3.91752962170813*^9, 3.917532121119779*^9, 3.917952308279591*^9,
3.9179523536756268`*^9},
CellLabel->"Out[50]=",ExpressionUUID->"17b2dd92-ecff-4a31-bae1-632e3ef716a4"],
Cell[BoxData[
RowBox[{
SqrtBox["6"], " ",
RowBox[{"Mfun", "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}]}]], "Output",
CellChangeTimes->{{3.917523642162938*^9, 3.917523657212357*^9},
3.917523691136468*^9, 3.917528943051415*^9, 3.917529028590289*^9,
3.91752962170813*^9, 3.917532121119779*^9, 3.917952308279591*^9,
3.917952353678047*^9},
CellLabel->"Out[51]=",ExpressionUUID->"790d4737-8c9d-4d7d-a4e3-5a465335967b"],
Cell[CellGroupData[{
Cell[BoxData["0"], "Echo",
CellChangeTimes->{
3.917952353683481*^9},ExpressionUUID->"fa2545c3-caa2-4fa1-817a-\
0e1a8462a9f6"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]], "Echo",
CellChangeTimes->{
3.9179523537145357`*^9},ExpressionUUID->"d318dd84-7b98-4513-8076-\
75a16b6661bf"]
}, Open ]],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{
SqrtBox["3"], " ",
RowBox[{
SuperscriptBox["Mfun",
TagBox[
RowBox[{"(",
RowBox[{"0", ",", "0", ",", "1"}], ")"}],
Derivative],
MultilineFunction->None], "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ",",
RowBox[{
RowBox[{"-",
SqrtBox["3"]}], " ",
RowBox[{
SuperscriptBox["Mfun",
TagBox[
RowBox[{"(",
RowBox[{"0", ",", "1", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None], "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"-",
SqrtBox["3"]}], " ",
RowBox[{
SuperscriptBox["Mfun",
TagBox[
RowBox[{"(",
RowBox[{"0", ",", "0", ",", "1"}], ")"}],
Derivative],
MultilineFunction->None], "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ",", "0", ",",
RowBox[{
SqrtBox["3"], " ",
RowBox[{
SuperscriptBox["Mfun",
TagBox[
RowBox[{"(",
RowBox[{"1", ",", "0", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None], "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{
SqrtBox["3"], " ",
RowBox[{
SuperscriptBox["Mfun",
TagBox[
RowBox[{"(",
RowBox[{"0", ",", "1", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None], "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ",",
RowBox[{
RowBox[{"-",
SqrtBox["3"]}], " ",
RowBox[{
SuperscriptBox["Mfun",
TagBox[
RowBox[{"(",
RowBox[{"1", ",", "0", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None], "[",
RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], ",", "0"}], "}"}]}],
"}"}]], "Output",
CellChangeTimes->{{3.917523642162938*^9, 3.917523657212357*^9},
3.917523691136468*^9, 3.917528943051415*^9, 3.917529028590289*^9,
3.91752962170813*^9, 3.917532121119779*^9, 3.917952308279591*^9,
3.917952353744647*^9},
CellLabel->"Out[54]=",ExpressionUUID->"47a83a1d-3f43-4956-998e-13e5d762653e"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Echo",
CellChangeTimes->{
3.9179523537505493`*^9},ExpressionUUID->"9d65a020-edc2-46a7-b37d-\
7f881856d9a3"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Echo",
CellChangeTimes->{
3.9179523537812347`*^9},ExpressionUUID->"b882762c-8b2b-4f8b-acc1-\
be51102598be"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0"}], "}"}]], "Echo",
CellChangeTimes->{
3.917952353813695*^9},ExpressionUUID->"cf381daa-64d0-42e8-af45-\
7ecb23f337c0"]
}, Open ]]
}, Open ]]
},
WindowSize->{1260., 751.5},
WindowMargins->{{Automatic, -1260}, {Automatic, 18.75}},
TaggingRules-><|"TryRealOnly" -> False|>,
Magnification:>0.8 Inherited,
FrontEndVersion->"13.2 for Linux x86 (64-bit) (January 30, 2023)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"af66ab94-3fd3-4ee9-8dfe-92a0924f72cb"
]
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 1282, 38, 40, "Input",ExpressionUUID->"815c29ff-a687-43a5-9fd5-a07b8daeb950"],
Cell[1843, 60, 2768, 80, 87, "Input",ExpressionUUID->"e108bad1-d348-4c37-966b-260dccd5abb1"],
Cell[4614, 142, 3372, 97, 71, "Input",ExpressionUUID->"e301f5bf-e80a-477b-aec4-74d262b4023c"],
Cell[7989, 241, 1438, 41, 87, "Input",ExpressionUUID->"c6a58f46-293e-4723-96f1-342c3f6dc92d"],
Cell[CellGroupData[{
Cell[9452, 286, 2088, 57, 167, "Input",ExpressionUUID->"632bf49c-c5af-4b58-a3c9-08073625ea2f"],
Cell[11543, 345, 550, 9, 26, "Output",ExpressionUUID->"ad299955-813d-4683-9933-0f6e00b0106b"],
Cell[12096, 356, 1200, 33, 28, "Output",ExpressionUUID->"16050ba9-5144-4774-9f0d-ce2a547c7c70"],
Cell[13299, 391, 362, 11, 20, "Echo",ExpressionUUID->"9f6673b4-2c9e-4d20-ac93-cbf09d0d0a3b"],
Cell[13664, 404, 2088, 60, 44, "Output",ExpressionUUID->"fa53848a-aecd-47d4-ab28-b4959995242a"],
Cell[CellGroupData[{
Cell[15777, 468, 128, 3, 20, "Echo",ExpressionUUID->"25dff489-7f51-467b-8267-8a8ef3c9ba6f"],
Cell[15908, 473, 128, 3, 20, "Echo",ExpressionUUID->"ae7dbbc5-ed04-44f8-8bad-e3fc7c6ca049"],
Cell[16039, 478, 360, 11, 20, "Echo",ExpressionUUID->"f55315c7-234e-458d-bb26-df92861e6289"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[16448, 495, 605, 17, 23, "Input",ExpressionUUID->"231ee263-8864-42b3-8013-a43697df1172"],
Cell[17056, 514, 1115, 32, 26, "Output",ExpressionUUID->"fc41a922-c84e-4830-804e-7848e726adb6"]
}, Open ]],
Cell[CellGroupData[{
Cell[18208, 551, 3098, 93, 231, "Input",ExpressionUUID->"35dc5f6e-6eba-44ee-89b7-fbc23c2cc703"],
Cell[21309, 646, 713, 15, 26, "Output",ExpressionUUID->"e62ce448-e31f-4225-a675-da54ca3eba6c"],
Cell[22025, 663, 4528, 139, 70, "Output",ExpressionUUID->"9c0c2c29-941c-44cd-8726-99ee26719cf0"],
Cell[CellGroupData[{
Cell[26578, 806, 927, 29, 20, "Echo",ExpressionUUID->"8c0ff128-cab8-4d49-972a-be291c6f1c62"],
Cell[27508, 837, 360, 11, 20, "Echo",ExpressionUUID->"0430ec03-dba0-4409-af48-3d88d98d0854"]
}, Open ]],
Cell[27883, 851, 1436, 42, 44, "Output",ExpressionUUID->"dc4dc3d2-8912-4d76-84f0-d5a0e7a06e92"],
Cell[CellGroupData[{
Cell[29344, 897, 128, 3, 20, "Echo",ExpressionUUID->"a26b4032-5ed7-4087-baff-f335e7009154"],
Cell[29475, 902, 185, 5, 20, "Echo",ExpressionUUID->"a86fa1e5-6b38-4e52-aa3f-b5641c1ee35c"]
}, Open ]],
Cell[29675, 910, 1182, 34, 45, "Output",ExpressionUUID->"4061b963-d1f9-4583-b0cd-3dbfd4ae5e37"],
Cell[CellGroupData[{
Cell[30882, 948, 130, 3, 20, "Echo",ExpressionUUID->"9874cea6-1e75-4007-8214-daa44f175845"],
Cell[31015, 953, 183, 5, 20, "Echo",ExpressionUUID->"664ef1f1-b95c-4447-bec6-ec69daebc7c2"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[31247, 964, 4589, 129, 247, "Input",ExpressionUUID->"3fef82e9-d3fe-4594-804c-066622d614c9"],
Cell[35839, 1095, 1420, 34, 26, "Output",ExpressionUUID->"8c8c6e43-8f5d-4ee5-b8ce-01103147cd3d"],
Cell[37262, 1131, 7322, 213, 101, "Output",ExpressionUUID->"0594d633-eabb-48c4-a34b-03bb98f36555"],
Cell[CellGroupData[{
Cell[44609, 1348, 929, 29, 20, "Echo",ExpressionUUID->"558938bd-56ae-49d0-a75c-499f178e8962"],
Cell[45541, 1379, 929, 29, 20, "Echo",ExpressionUUID->"f1609992-2942-4000-a52e-47a57f9223df"]
}, Open ]],
Cell[46485, 1411, 1073, 24, 29, "Output",ExpressionUUID->"483997db-4d1e-49eb-9335-13c0d8254033"],
Cell[CellGroupData[{
Cell[47583, 1439, 128, 3, 20, "Echo",ExpressionUUID->"0cbb7b3e-c2ce-4004-94bb-204964e7dcb0"],
Cell[47714, 1444, 360, 11, 20, "Echo",ExpressionUUID->"72cff460-b666-4ca7-9e32-e203d018bbfe"]
}, Open ]],
Cell[48089, 1458, 2216, 64, 28, "Output",ExpressionUUID->"e4f645d5-898c-4c19-8929-df8a119a20b6"],
Cell[CellGroupData[{
Cell[50330, 1526, 183, 5, 20, "Echo",ExpressionUUID->"43561a2b-b2bd-4773-939c-559358c1e050"],
Cell[50516, 1533, 185, 5, 20, "Echo",ExpressionUUID->"b5722862-624a-4309-a094-97e2ca435e4c"],
Cell[50704, 1540, 128, 3, 20, "Echo",ExpressionUUID->"8cd9506e-bff5-4460-9724-ab8740a59223"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[50881, 1549, 2413, 71, 183, "Input",ExpressionUUID->"a4a9d32c-9b04-497f-95cf-e2b3b33899f4"],
Cell[53297, 1622, 1683, 49, 26, "Output",ExpressionUUID->"17b2dd92-ecff-4a31-bae1-632e3ef716a4"],
Cell[54983, 1673, 437, 9, 27, "Output",ExpressionUUID->"790d4737-8c9d-4d7d-a4e3-5a465335967b"],
Cell[CellGroupData[{
Cell[55445, 1686, 128, 3, 20, "Echo",ExpressionUUID->"fa2545c3-caa2-4fa1-817a-0e1a8462a9f6"],
Cell[55576, 1691, 929, 29, 20, "Echo",ExpressionUUID->"d318dd84-7b98-4513-8076-75a16b6661bf"]
}, Open ]],
Cell[56520, 1723, 2358, 77, 29, "Output",ExpressionUUID->"47a83a1d-3f43-4956-998e-13e5d762653e"],
Cell[CellGroupData[{
Cell[58903, 1804, 362, 11, 20, "Echo",ExpressionUUID->"9d65a020-edc2-46a7-b37d-7f881856d9a3"],
Cell[59268, 1817, 362, 11, 20, "Echo",ExpressionUUID->"b882762c-8b2b-4f8b-acc1-be51102598be"],
Cell[59633, 1830, 183, 5, 20, "Echo",ExpressionUUID->"cf381daa-64d0-42e8-af45-7ecb23f337c0"]
}, Open ]]
}, Open ]]
}
]
*)
Activity/mathematica/deRhamSurfaceR3.nb 0 → 100644
+ 2306
− 0
View file @ de4402bf
This diff is collapsed.
mathematica/levicivita_decomb.nb 0 → 100644
+ 1617
− 0
View file @ de4402bf
This diff is collapsed.
mathematica/variateK.nb 0 → 100644
+ 1614
− 0
View file @ de4402bf
This diff is collapsed.
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment