270 lines
9.1 KiB
Mathematica
270 lines
9.1 KiB
Mathematica
(* Content-type: application/vnd.wolfram.mathematica *)
|
|
|
|
(*** Wolfram Notebook File ***)
|
|
(* http://www.wolfram.com/nb *)
|
|
|
|
(* CreatedBy='Mathematica 12.1' *)
|
|
|
|
(*CacheID: 234*)
|
|
(* Internal cache information:
|
|
NotebookFileLineBreakTest
|
|
NotebookFileLineBreakTest
|
|
NotebookDataPosition[ 158, 7]
|
|
NotebookDataLength[ 9200, 261]
|
|
NotebookOptionsPosition[ 8577, 241]
|
|
NotebookOutlinePosition[ 9019, 259]
|
|
CellTagsIndexPosition[ 8976, 256]
|
|
WindowFrame->Normal*)
|
|
|
|
(* Beginning of Notebook Content *)
|
|
Notebook[{
|
|
|
|
Cell[CellGroupData[{
|
|
Cell[BoxData[{
|
|
RowBox[{
|
|
RowBox[{"\[Phi]", "=",
|
|
RowBox[{"Pi", "/", "4"}]}], ";"}], "\[IndentingNewLine]",
|
|
RowBox[{
|
|
RowBox[{"J", "=",
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"Cos", "[", "\[Phi]", "]"}], ",",
|
|
RowBox[{
|
|
RowBox[{"-", "\[Rho]"}], "*",
|
|
RowBox[{"Sin", "[", "\[Phi]", "]"}]}], ",", "0"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"Sin", "[", "\[Phi]", "]"}], ",",
|
|
RowBox[{"\[Rho]", "*",
|
|
RowBox[{"Cos", "[", "\[Phi]", "]"}]}], ",", "0"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}],
|
|
";"}], "\[IndentingNewLine]",
|
|
RowBox[{
|
|
RowBox[{"Jt", "=",
|
|
RowBox[{"Transpose", "[", "J", "]"}]}], ";"}], "\[IndentingNewLine]",
|
|
RowBox[{
|
|
RowBox[{"invJ", "=",
|
|
RowBox[{"Inverse", "[", "J", "]"}]}], ";"}], "\[IndentingNewLine]",
|
|
RowBox[{
|
|
RowBox[{"invJt", "=",
|
|
RowBox[{"Transpose", "[", "invJ", "]"}]}], ";"}], "\[IndentingNewLine]",
|
|
RowBox[{
|
|
RowBox[{"detJ", "=", "\[Rho]"}], ";"}], "\[IndentingNewLine]",
|
|
RowBox[{
|
|
RowBox[{"\[CapitalLambda]", "=",
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{"a", ",", "0", ",", "0"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "b", ",", "0"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "c"}], "}"}]}], "}"}]}],
|
|
";"}], "\[IndentingNewLine]",
|
|
RowBox[{
|
|
RowBox[{"\[Epsilon]", "=",
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{"\[Epsilon]r", ",", "0", ",", "0"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "\[Epsilon]r", ",", "0"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "\[Epsilon]r"}], "}"}]}], "}"}]}],
|
|
";"}], "\[IndentingNewLine]",
|
|
RowBox[{"\[Epsilon]c1", "=",
|
|
RowBox[{"Simplify", "[",
|
|
RowBox[{
|
|
RowBox[{"Dot", "[",
|
|
RowBox[{"invJt", ",", "invJ"}], "]"}], "*", "detJ", "*", "\[Epsilon]r"}],
|
|
"]"}]}], "\[IndentingNewLine]",
|
|
RowBox[{"\[Epsilon]d1", "=",
|
|
RowBox[{"Simplify", "[",
|
|
RowBox[{
|
|
RowBox[{"Dot", "[",
|
|
RowBox[{
|
|
RowBox[{"Dot", "[",
|
|
RowBox[{"J", ",", "\[Epsilon]c1"}], "]"}], ",", "Jt"}], "]"}], "/",
|
|
"detJ"}], "]"}]}], "\[IndentingNewLine]",
|
|
RowBox[{
|
|
RowBox[{"\[Epsilon]c", "=",
|
|
RowBox[{"Simplify", "[",
|
|
RowBox[{"Expand", "[",
|
|
RowBox[{
|
|
RowBox[{"Dot", "[",
|
|
RowBox[{
|
|
RowBox[{"Dot", "[",
|
|
RowBox[{"invJt", ",", "\[Epsilon]"}], "]"}], ",", "invJ"}], "]"}],
|
|
"*", "detJ"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]",
|
|
RowBox[{
|
|
RowBox[{"\[Epsilon]d", "=",
|
|
RowBox[{"Simplify", "[",
|
|
RowBox[{"Expand", "[",
|
|
RowBox[{
|
|
RowBox[{"Dot", "[",
|
|
RowBox[{
|
|
RowBox[{"Dot", "[",
|
|
RowBox[{"J", ",", "\[Epsilon]c"}], "]"}], ",", "Jt"}], "]"}], "/",
|
|
"detJ"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]",
|
|
RowBox[{
|
|
RowBox[{"out2", "=",
|
|
RowBox[{"\[CapitalLambda]", "*", "out1"}]}], ";"}], "\[IndentingNewLine]",
|
|
RowBox[{
|
|
RowBox[{"out3", "=",
|
|
RowBox[{"Simplify", "[",
|
|
RowBox[{"J", "*", "out2", "*",
|
|
RowBox[{"Jt", "/", "detJ"}]}], "]"}]}], ";"}]}], "Input",
|
|
CellChangeTimes->{{3.87826392075375*^9, 3.8782640038387327`*^9}, {
|
|
3.8782640346199102`*^9, 3.8782640525867434`*^9}, {3.878264096322109*^9,
|
|
3.8782642909788175`*^9}, {3.878366827309362*^9, 3.878366855739708*^9}, {
|
|
3.8783669176977344`*^9, 3.878367031965499*^9}, {3.878367234778309*^9,
|
|
3.878367257604923*^9}, {3.8783673692412977`*^9, 3.878367377888261*^9}, {
|
|
3.8783674274881167`*^9, 3.878367436972155*^9}, {3.87836753780801*^9,
|
|
3.8783675579656696`*^9}, {3.8783675942548385`*^9, 3.8783676455659122`*^9},
|
|
3.878367744811143*^9, {3.8783694387856283`*^9, 3.8783694927292333`*^9}, {
|
|
3.878437222863204*^9, 3.8784373619052305`*^9}, {3.8784373994254766`*^9,
|
|
3.878437463101755*^9}, {3.8784375627541084`*^9, 3.87843762739037*^9}, {
|
|
3.87843768861413*^9, 3.878437724725313*^9}, {3.8784378441982956`*^9,
|
|
3.8784378660220375`*^9}},
|
|
CellLabel->"In[71]:=",ExpressionUUID->"32ea560a-f4d7-41e4-8516-a2ed807e1de9"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Epsilon]r", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
SuperscriptBox["\[Rho]", "2"]}], ")"}]}],
|
|
RowBox[{"2", " ", "\[Rho]"}]], ",",
|
|
FractionBox[
|
|
RowBox[{"\[Epsilon]r", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
SuperscriptBox["\[Rho]", "2"]}], ")"}]}],
|
|
RowBox[{"2", " ", "\[Rho]"}]], ",", "0"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Epsilon]r", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
SuperscriptBox["\[Rho]", "2"]}], ")"}]}],
|
|
RowBox[{"2", " ", "\[Rho]"}]], ",",
|
|
FractionBox[
|
|
RowBox[{"\[Epsilon]r", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
SuperscriptBox["\[Rho]", "2"]}], ")"}]}],
|
|
RowBox[{"2", " ", "\[Rho]"}]], ",", "0"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",",
|
|
RowBox[{"\[Epsilon]r", " ", "\[Rho]"}]}], "}"}]}], "}"}]], "Output",
|
|
CellChangeTimes->{
|
|
3.8782642944489164`*^9, 3.878366969509962*^9, 3.878367259327838*^9,
|
|
3.8783673794151826`*^9, {3.878367429139791*^9, 3.8783674380069137`*^9},
|
|
3.878367560697214*^9, {3.878367639387352*^9, 3.878367646921693*^9},
|
|
3.878367746912111*^9, 3.8783694464464893`*^9, 3.8783694938380947`*^9, {
|
|
3.878437403369676*^9, 3.8784374249554353`*^9}, 3.8784374649959755`*^9, {
|
|
3.87843761044571*^9, 3.8784376291616783`*^9}, 3.878437726088578*^9,
|
|
3.8784378685865498`*^9},
|
|
CellLabel->"Out[79]=",ExpressionUUID->"666e36a3-f4a1-4148-8ea7-240dc507bcfb"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"\[Epsilon]r", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"2", " ", "\[Rho]"}], "+",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox["\[Rho]", "2"]}], "-",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox["\[Rho]", "3"]}], "+",
|
|
SuperscriptBox["\[Rho]", "4"]}], ")"}]}],
|
|
RowBox[{"4", " ",
|
|
SuperscriptBox["\[Rho]", "2"]}]], ",",
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{"\[Epsilon]r", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
SuperscriptBox["\[Rho]", "4"]}], ")"}]}],
|
|
RowBox[{"4", " ",
|
|
SuperscriptBox["\[Rho]", "2"]}]]}], ",", "0"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{"\[Epsilon]r", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+",
|
|
SuperscriptBox["\[Rho]", "4"]}], ")"}]}],
|
|
RowBox[{"4", " ",
|
|
SuperscriptBox["\[Rho]", "2"]}]]}], ",",
|
|
FractionBox[
|
|
RowBox[{"\[Epsilon]r", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
RowBox[{"2", " ", "\[Rho]"}], "+",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox["\[Rho]", "2"]}], "+",
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox["\[Rho]", "3"]}], "+",
|
|
SuperscriptBox["\[Rho]", "4"]}], ")"}]}],
|
|
RowBox[{"4", " ",
|
|
SuperscriptBox["\[Rho]", "2"]}]], ",", "0"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "\[Epsilon]r"}], "}"}]}], "}"}]], "Output",
|
|
CellChangeTimes->{
|
|
3.8782642944489164`*^9, 3.878366969509962*^9, 3.878367259327838*^9,
|
|
3.8783673794151826`*^9, {3.878367429139791*^9, 3.8783674380069137`*^9},
|
|
3.878367560697214*^9, {3.878367639387352*^9, 3.878367646921693*^9},
|
|
3.878367746912111*^9, 3.8783694464464893`*^9, 3.8783694938380947`*^9, {
|
|
3.878437403369676*^9, 3.8784374249554353`*^9}, 3.8784374649959755`*^9, {
|
|
3.87843761044571*^9, 3.8784376291616783`*^9}, 3.878437726088578*^9,
|
|
3.8784378685917764`*^9},
|
|
CellLabel->"Out[80]=",ExpressionUUID->"e9e8cafb-5294-4e1f-acf2-663562973483"]
|
|
}, Open ]]
|
|
},
|
|
WindowSize->{820, 833},
|
|
WindowMargins->{{53, Automatic}, {71, Automatic}},
|
|
Magnification:>1.4 Inherited,
|
|
FrontEndVersion->"12.1 for Microsoft Windows (64-bit) (2020\:5e743\:670814\
|
|
\:65e5)",
|
|
StyleDefinitions->"Default.nb",
|
|
ExpressionUUID->"c3e7a1e5-64ca-4e82-913e-b1ba467e7781"
|
|
]
|
|
(* End of Notebook Content *)
|
|
|
|
(* Internal cache information *)
|
|
(*CellTagsOutline
|
|
CellTagsIndex->{}
|
|
*)
|
|
(*CellTagsIndex
|
|
CellTagsIndex->{}
|
|
*)
|
|
(*NotebookFileOutline
|
|
Notebook[{
|
|
Cell[CellGroupData[{
|
|
Cell[580, 22, 4106, 109, 632, "Input",ExpressionUUID->"32ea560a-f4d7-41e4-8516-a2ed807e1de9"],
|
|
Cell[4689, 133, 1664, 44, 134, "Output",ExpressionUUID->"666e36a3-f4a1-4148-8ea7-240dc507bcfb"],
|
|
Cell[6356, 179, 2205, 59, 182, "Output",ExpressionUUID->"e9e8cafb-5294-4e1f-acf2-663562973483"]
|
|
}, Open ]]
|
|
}
|
|
]
|
|
*)
|
|
|