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

2023-11-07-10-06-29

parent 86772645
No related branches found
No related tags found
No related merge requests found
(* 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 ]]
}
]
*)
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment