2023-11-07-10-06-29

eec97d1b · Nitschke, Ingo · 86772645 · eec97d1b
Commit eec97d1b authored 1 year ago by Nitschke, Ingo
--- a/Landau-De Gennes with Lagrange-DAlembert/mathematica/ParodiLeslie.nb
+++ b/Landau-De Gennes with Lagrange-DAlembert/mathematica/ParodiLeslie.nb
+(* 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[     14874,        400]
+NotebookOptionsPosition[     12128,        354]
+NotebookOutlinePosition[     12524,        370]
+CellTagsIndexPosition[     12481,        367]
+WindowFrame->Normal*)
+
+(* Beginning of Notebook Content *)
+Notebook[{
+
+Cell[CellGroupData[{
+Cell[BoxData[{
+ RowBox[{"a1", "=", 
+  RowBox[{"n", " ", 
+   RowBox[{"s", "^", "2"}], " ", 
+   RowBox[{"x", "^", "2"}]}]}], "\[IndentingNewLine]", 
+ RowBox[{"a2", "=", 
+  RowBox[{
+   RowBox[{"-", "n"}], " ", "s", " ", "x", " ", 
+   RowBox[{"(", 
+    RowBox[{"1", "+", 
+     RowBox[{"s", " ", 
+      RowBox[{"x", " ", "/", "3"}]}]}], ")"}]}]}], "\[IndentingNewLine]", 
+ RowBox[{"a3", "=", 
+  RowBox[{
+   RowBox[{"-", "n"}], " ", "s", " ", "x", " ", 
+   RowBox[{"(", 
+    RowBox[{"1", "-", 
+     RowBox[{"2", " ", "s", " ", 
+      RowBox[{"x", " ", "/", "3"}]}]}], ")"}]}]}], "\[IndentingNewLine]", 
+ RowBox[{"a4", "=", 
+  RowBox[{"2", " ", "n", " ", 
+   RowBox[{
+    RowBox[{"(", 
+     RowBox[{"1", "+", 
+      RowBox[{"s", " ", 
+       RowBox[{"x", " ", "/", "3"}]}]}], ")"}], "^", 
+    "2"}]}]}], "\[IndentingNewLine]", 
+ RowBox[{"a5", "=", 
+  RowBox[{
+   RowBox[{"-", "n"}], " ", "s", " ", "x", " ", 
+   RowBox[{"(", 
+    RowBox[{"1", "+", 
+     RowBox[{"s", " ", 
+      RowBox[{"x", " ", "/", "3"}]}]}], ")"}]}]}], "\[IndentingNewLine]", 
+ RowBox[{"a6", "=", 
+  RowBox[{
+   RowBox[{"-", "3"}], "n", " ", "s", " ", "x", " "}]}]}], "Input",
+ CellChangeTimes->{{3.9082593758231487`*^9, 3.908259506740602*^9}, {
+  3.908259840313637*^9, 3.908259840597521*^9}},
+ CellLabel->"In[18]:=",ExpressionUUID->"68d4c702-02cc-4c0c-b6f3-4f1c8f324e1e"],
+
+Cell[BoxData[
+ RowBox[{"n", " ", 
+  SuperscriptBox["s", "2"], " ", 
+  SuperscriptBox["x", "2"]}]], "Output",
+ CellChangeTimes->{3.9082595136790648`*^9, 3.908259855520969*^9},
+ CellLabel->"Out[18]=",ExpressionUUID->"25f9d112-68e9-4818-8c8d-1622e8dee8cc"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", "n"}], " ", "s", " ", "x", " ", 
+  RowBox[{"(", 
+   RowBox[{"1", "+", 
+    FractionBox[
+     RowBox[{"s", " ", "x"}], "3"]}], ")"}]}]], "Output",
+ CellChangeTimes->{3.9082595136790648`*^9, 3.9082598555268183`*^9},
+ CellLabel->"Out[19]=",ExpressionUUID->"ca179242-39ca-439a-a903-9c18a6424fe0"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", "n"}], " ", "s", " ", "x", " ", 
+  RowBox[{"(", 
+   RowBox[{"1", "-", 
+    FractionBox[
+     RowBox[{"2", " ", "s", " ", "x"}], "3"]}], ")"}]}]], "Output",
+ CellChangeTimes->{3.9082595136790648`*^9, 3.908259855532765*^9},
+ CellLabel->"Out[20]=",ExpressionUUID->"1bbafae7-544f-47a2-83f6-10931a1c2f01"],
+
+Cell[BoxData[
+ RowBox[{"2", " ", "n", " ", 
+  SuperscriptBox[
+   RowBox[{"(", 
+    RowBox[{"1", "+", 
+     FractionBox[
+      RowBox[{"s", " ", "x"}], "3"]}], ")"}], "2"]}]], "Output",
+ CellChangeTimes->{3.9082595136790648`*^9, 3.9082598555382433`*^9},
+ CellLabel->"Out[21]=",ExpressionUUID->"6cae4006-9277-46ca-8394-a6dbe484108b"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", "n"}], " ", "s", " ", "x", " ", 
+  RowBox[{"(", 
+   RowBox[{"1", "+", 
+    FractionBox[
+     RowBox[{"s", " ", "x"}], "3"]}], ")"}]}]], "Output",
+ CellChangeTimes->{3.9082595136790648`*^9, 3.908259855543652*^9},
+ CellLabel->"Out[22]=",ExpressionUUID->"f9d054cf-9ffb-4fd2-9ed2-7ea91ca29920"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", "3"}], " ", "n", " ", "s", " ", "x"}]], "Output",
+ CellChangeTimes->{3.9082595136790648`*^9, 3.908259855548753*^9},
+ CellLabel->"Out[23]=",ExpressionUUID->"eb81d408-10de-4d0a-953a-af1f60ffbdf5"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", 
+   RowBox[{"Parodi", "-", "Relation"}], "*)"}], "\[IndentingNewLine]", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"a2", "+", "a3"}], "//", "Simplify"}], "\[IndentingNewLine]", 
+   RowBox[{
+    RowBox[{"a6", "-", "a5"}], "//", "Simplify"}], "\[IndentingNewLine]", 
+   RowBox[{
+    RowBox[{"a2", "+", "a3", "-", 
+     RowBox[{"(", 
+      RowBox[{"a6", "-", "a5"}], ")"}]}], "//", "Simplify"}]}]}]], "Input",
+ CellChangeTimes->{{3.908259733109221*^9, 3.908259786750326*^9}},
+ CellLabel->"In[24]:=",ExpressionUUID->"a235d58f-29f5-44d6-b471-813503990db2"],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox["1", "3"], " ", "n", " ", "s", " ", "x", " ", 
+  RowBox[{"(", 
+   RowBox[{
+    RowBox[{"-", "6"}], "+", 
+    RowBox[{"s", " ", "x"}]}], ")"}]}]], "Output",
+ CellChangeTimes->{3.908259788085137*^9, 3.908259858664414*^9},
+ CellLabel->"Out[24]=",ExpressionUUID->"608e8701-b1ab-4e50-b22e-b3abfcefec34"],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox["1", "3"], " ", "n", " ", "s", " ", "x", " ", 
+  RowBox[{"(", 
+   RowBox[{
+    RowBox[{"-", "6"}], "+", 
+    RowBox[{"s", " ", "x"}]}], ")"}]}]], "Output",
+ CellChangeTimes->{3.908259788085137*^9, 3.90825985867089*^9},
+ CellLabel->"Out[25]=",ExpressionUUID->"b5b4c66a-af2d-467e-be3d-93738e9f06ca"],
+
+Cell[BoxData["0"], "Output",
+ CellChangeTimes->{3.908259788085137*^9, 3.908259858677739*^9},
+ CellLabel->"Out[26]=",ExpressionUUID->"090ee6f6-3695-4190-a742-81fee986ecb3"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", 
+   RowBox[{"Leslie", "-", 
+    RowBox[{"Rels", " ", "by", " ", "Parodi"}]}], "*)"}], 
+  "\[IndentingNewLine]", 
+  RowBox[{
+   RowBox[{"g1", "=", 
+    RowBox[{
+     RowBox[{"a3", "-", "a2"}], "//", "Simplify"}]}], "\[IndentingNewLine]", 
+   RowBox[{"g2", "=", 
+    RowBox[{
+     RowBox[{"a6", "-", "a5"}], "//", "Simplify"}]}], "\[IndentingNewLine]", 
+   RowBox[{"b", "=", 
+    RowBox[{
+     RowBox[{"a5", "+", "a6"}], "//", "Simplify"}]}], "\[IndentingNewLine]", 
+   "foobar", "\[IndentingNewLine]", "a4", "\[IndentingNewLine]", "g1", 
+   "\[IndentingNewLine]", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"2", " ", "a4"}], " ", "+", " ", "b"}], "//", "Simplify"}], 
+   "\[IndentingNewLine]", 
+   RowBox[{
+    RowBox[{"a1", "+", "b", "+", "a4"}], "//", "Simplify"}], 
+   "\[IndentingNewLine]", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"g1", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"2", "a4"}], "+", "b"}], ")"}]}], "-", 
+     RowBox[{"g2", "^", "2"}]}], "//", "Simplify"}], "\[IndentingNewLine]", 
+   "foobar", "\[IndentingNewLine]", 
+   RowBox[{
+    RowBox[{
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{"g1", "+", 
+        RowBox[{"2", "M", " ", 
+         RowBox[{"s", "^", "2"}]}]}], ")"}], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"2", "a4"}], "+", "b"}], ")"}]}], "-", 
+     RowBox[{"g2", "^", "2"}]}], "//", "Simplify", 
+    RowBox[{"(*", 
+     RowBox[{"with", " ", "Jaumann", " ", "immobility"}], 
+     "*)"}]}]}]}]], "Input",
+ CellChangeTimes->{{3.908259517179019*^9, 3.908259665400256*^9}, {
+  3.908259882556059*^9, 3.908259896722147*^9}, {3.908260911409477*^9, 
+  3.908260932420621*^9}, {3.9082721259736643`*^9, 3.9082721709753637`*^9}},
+ CellLabel->"In[62]:=",ExpressionUUID->"5e8a243f-6645-444e-9e0b-e35fe503a170"],
+
+Cell[BoxData[
+ RowBox[{"n", " ", 
+  SuperscriptBox["s", "2"], " ", 
+  SuperscriptBox["x", "2"]}]], "Output",
+ CellChangeTimes->{
+  3.908259666246768*^9, 3.908259899768682*^9, 3.9082607224473352`*^9, {
+   3.90826092721038*^9, 3.908260933052017*^9}, 3.908272204965666*^9},
+ CellLabel->"Out[62]=",ExpressionUUID->"15f0df63-7dc2-4a69-a745-cb47e3546a20"],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox["1", "3"], " ", "n", " ", "s", " ", "x", " ", 
+  RowBox[{"(", 
+   RowBox[{
+    RowBox[{"-", "6"}], "+", 
+    RowBox[{"s", " ", "x"}]}], ")"}]}]], "Output",
+ CellChangeTimes->{
+  3.908259666246768*^9, 3.908259899768682*^9, 3.9082607224473352`*^9, {
+   3.90826092721038*^9, 3.908260933052017*^9}, 3.908272204971325*^9},
+ CellLabel->"Out[63]=",ExpressionUUID->"6537e812-a688-4e99-9a1d-c1ffd2df977a"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"-", 
+   FractionBox["1", "3"]}], " ", "n", " ", "s", " ", "x", " ", 
+  RowBox[{"(", 
+   RowBox[{"12", "+", 
+    RowBox[{"s", " ", "x"}]}], ")"}]}]], "Output",
+ CellChangeTimes->{
+  3.908259666246768*^9, 3.908259899768682*^9, 3.9082607224473352`*^9, {
+   3.90826092721038*^9, 3.908260933052017*^9}, 3.90827220497688*^9},
+ CellLabel->"Out[64]=",ExpressionUUID->"af022f1b-feb3-4f81-9e98-8daa688b747c"],
+
+Cell[BoxData["foobar"], "Output",
+ CellChangeTimes->{
+  3.908259666246768*^9, 3.908259899768682*^9, 3.9082607224473352`*^9, {
+   3.90826092721038*^9, 3.908260933052017*^9}, 3.9082722049822063`*^9},
+ CellLabel->"Out[65]=",ExpressionUUID->"ff4b576a-8c94-42b4-800c-45ab6b116b54"],
+
+Cell[BoxData[
+ RowBox[{"2", " ", "n", " ", 
+  SuperscriptBox[
+   RowBox[{"(", 
+    RowBox[{"1", "+", 
+     FractionBox[
+      RowBox[{"s", " ", "x"}], "3"]}], ")"}], "2"]}]], "Output",
+ CellChangeTimes->{
+  3.908259666246768*^9, 3.908259899768682*^9, 3.9082607224473352`*^9, {
+   3.90826092721038*^9, 3.908260933052017*^9}, 3.90827220498687*^9},
+ CellLabel->"Out[66]=",ExpressionUUID->"b030c51b-8ee0-47d5-b375-d9b02aa6b756"],
+
+Cell[BoxData[
+ RowBox[{"n", " ", 
+  SuperscriptBox["s", "2"], " ", 
+  SuperscriptBox["x", "2"]}]], "Output",
+ CellChangeTimes->{
+  3.908259666246768*^9, 3.908259899768682*^9, 3.9082607224473352`*^9, {
+   3.90826092721038*^9, 3.908260933052017*^9}, 3.908272204991405*^9},
+ CellLabel->"Out[67]=",ExpressionUUID->"b37361b0-0672-4628-bfe6-011d49e2481b"],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox["1", "9"], " ", "n", " ", 
+  SuperscriptBox[
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", "6"}], "+", 
+     RowBox[{"s", " ", "x"}]}], ")"}], "2"]}]], "Output",
+ CellChangeTimes->{
+  3.908259666246768*^9, 3.908259899768682*^9, 3.9082607224473352`*^9, {
+   3.90826092721038*^9, 3.908260933052017*^9}, 3.908272204996125*^9},
+ CellLabel->"Out[68]=",ExpressionUUID->"b798733d-cf37-4352-8243-13e431f3e03e"],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox["2", "9"], " ", "n", " ", 
+  SuperscriptBox[
+   RowBox[{"(", 
+    RowBox[{"3", "-", 
+     RowBox[{"2", " ", "s", " ", "x"}]}], ")"}], "2"]}]], "Output",
+ CellChangeTimes->{
+  3.908259666246768*^9, 3.908259899768682*^9, 3.9082607224473352`*^9, {
+   3.90826092721038*^9, 3.908260933052017*^9}, 3.9082722050008287`*^9},
+ CellLabel->"Out[69]=",ExpressionUUID->"187ed9a2-d01e-4213-97d9-e62d69f917eb"],
+
+Cell[BoxData["0"], "Output",
+ CellChangeTimes->{
+  3.908259666246768*^9, 3.908259899768682*^9, 3.9082607224473352`*^9, {
+   3.90826092721038*^9, 3.908260933052017*^9}, 3.9082722050049877`*^9},
+ CellLabel->"Out[70]=",ExpressionUUID->"02ca2ca2-54d5-4a50-8782-6fcde015a368"],
+
+Cell[BoxData["foobar"], "Output",
+ CellChangeTimes->{
+  3.908259666246768*^9, 3.908259899768682*^9, 3.9082607224473352`*^9, {
+   3.90826092721038*^9, 3.908260933052017*^9}, 3.908272205009201*^9},
+ CellLabel->"Out[71]=",ExpressionUUID->"0826c446-d99a-4322-8a9b-d375ea8b66cd"],
+
+Cell[BoxData[
+ RowBox[{
+  FractionBox["2", "9"], " ", "M", " ", "n", " ", 
+  SuperscriptBox["s", "2"], " ", 
+  SuperscriptBox[
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{"-", "6"}], "+", 
+     RowBox[{"s", " ", "x"}]}], ")"}], "2"]}]], "Output",
+ CellChangeTimes->{
+  3.908259666246768*^9, 3.908259899768682*^9, 3.9082607224473352`*^9, {
+   3.90826092721038*^9, 3.908260933052017*^9}, 3.9082722050141287`*^9},
+ CellLabel->"Out[72]=",ExpressionUUID->"be98afb8-d9d8-4a12-a359-8034d1d9f7b2"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"(*", 
+   RowBox[{
+    RowBox[{"by", " ", "Lesli", " ", "and", " ", "Beris"}], "-", "Edwards"}], 
+   "*)"}], "\[IndentingNewLine]", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"2", "a1"}], "+", 
+    RowBox[{"3", "a4"}], "+", 
+    RowBox[{"2", "b"}]}], "//", "Simplify"}]}]], "Input",
+ CellChangeTimes->{{3.908270196416788*^9, 3.908270228887322*^9}},
+ CellLabel->"In[61]:=",ExpressionUUID->"fe0bd0a9-d581-46e7-80e5-c9c546040200"],
+
+Cell[BoxData[
+ RowBox[{"2", " ", "n", " ", 
+  RowBox[{"(", 
+   RowBox[{"3", "-", 
+    RowBox[{"2", " ", "s", " ", "x"}], "+", 
+    RowBox[{
+     SuperscriptBox["s", "2"], " ", 
+     SuperscriptBox["x", "2"]}]}], ")"}]}]], "Output",
+ CellChangeTimes->{3.9082702296312933`*^9},
+ CellLabel->"Out[61]=",ExpressionUUID->"9e7e3fd3-5bf5-46a9-a974-5be740a45eea"]
+}, Open  ]]
+},
+WindowSize->{1260., 752.25},
+WindowMargins->{{0, Automatic}, {0, Automatic}},
+FrontEndVersion->"13.2 for Linux x86 (64-bit) (January 30, 2023)",
+StyleDefinitions->"Default.nb",
+ExpressionUUID->"6c17f10c-aac9-4700-8e92-091e1c001382"
+]
+(* End of Notebook Content *)
+
+(* Internal cache information *)
+(*CellTagsOutline
+CellTagsIndex->{}
+*)
+(*CellTagsIndex
+CellTagsIndex->{}
+*)
+(*NotebookFileOutline
+Notebook[{
+Cell[CellGroupData[{
+Cell[580, 22, 1336, 39, 111, "Input",ExpressionUUID->"68d4c702-02cc-4c0c-b6f3-4f1c8f324e1e"],
+Cell[1919, 63, 253, 5, 26, "Output",ExpressionUUID->"25f9d112-68e9-4818-8c8d-1622e8dee8cc"],
+Cell[2175, 70, 331, 8, 46, "Output",ExpressionUUID->"ca179242-39ca-439a-a903-9c18a6424fe0"],
+Cell[2509, 80, 339, 8, 46, "Output",ExpressionUUID->"1bbafae7-544f-47a2-83f6-10931a1c2f01"],
+Cell[2851, 90, 331, 8, 47, "Output",ExpressionUUID->"6cae4006-9277-46ca-8394-a6dbe484108b"],
+Cell[3185, 100, 329, 8, 46, "Output",ExpressionUUID->"f9d054cf-9ffb-4fd2-9ed2-7ea91ca29920"],
+Cell[3517, 110, 233, 4, 26, "Output",ExpressionUUID->"eb81d408-10de-4d0a-953a-af1f60ffbdf5"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[3787, 119, 584, 14, 71, "Input",ExpressionUUID->"a235d58f-29f5-44d6-b471-813503990db2"],
+Cell[4374, 135, 336, 8, 39, "Output",ExpressionUUID->"608e8701-b1ab-4e50-b22e-b3abfcefec34"],
+Cell[4713, 145, 335, 8, 39, "Output",ExpressionUUID->"b5b4c66a-af2d-467e-be3d-93738e9f06ca"],
+Cell[5051, 155, 171, 2, 25, "Output",ExpressionUUID->"090ee6f6-3695-4190-a742-81fee986ecb3"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[5259, 162, 1799, 50, 203, "Input",ExpressionUUID->"5e8a243f-6645-444e-9e0b-e35fe503a170"],
+Cell[7061, 214, 349, 7, 26, "Output",ExpressionUUID->"15f0df63-7dc2-4a69-a745-cb47e3546a20"],
+Cell[7413, 223, 434, 10, 39, "Output",ExpressionUUID->"6537e812-a688-4e99-9a1d-c1ffd2df977a"],
+Cell[7850, 235, 433, 10, 39, "Output",ExpressionUUID->"af022f1b-feb3-4f81-9e98-8daa688b747c"],
+Cell[8286, 247, 276, 4, 25, "Output",ExpressionUUID->"ff4b576a-8c94-42b4-800c-45ab6b116b54"],
+Cell[8565, 253, 424, 10, 47, "Output",ExpressionUUID->"b030c51b-8ee0-47d5-b375-d9b02aa6b756"],
+Cell[8992, 265, 349, 7, 26, "Output",ExpressionUUID->"b37361b0-0672-4628-bfe6-011d49e2481b"],
+Cell[9344, 274, 442, 11, 39, "Output",ExpressionUUID->"b798733d-cf37-4352-8243-13e431f3e03e"],
+Cell[9789, 287, 433, 10, 39, "Output",ExpressionUUID->"187ed9a2-d01e-4213-97d9-e62d69f917eb"],
+Cell[10225, 299, 271, 4, 25, "Output",ExpressionUUID->"02ca2ca2-54d5-4a50-8782-6fcde015a368"],
+Cell[10499, 305, 274, 4, 25, "Output",ExpressionUUID->"0826c446-d99a-4322-8a9b-d375ea8b66cd"],
+Cell[10776, 311, 488, 12, 39, "Output",ExpressionUUID->"be98afb8-d9d8-4a12-a359-8034d1d9f7b2"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[11301, 328, 454, 12, 41, "Input",ExpressionUUID->"fe0bd0a9-d581-46e7-80e5-c9c546040200"],
+Cell[11758, 342, 354, 9, 28, "Output",ExpressionUUID->"9e7e3fd3-5bf5-46a9-a974-5be740a45eea"]
+}, Open  ]]
+}
+]
+*)
+