176 lines
5.6 KiB
Mathematica
176 lines
5.6 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[ 5520, 165]
|
|
NotebookOptionsPosition[ 4807, 144]
|
|
NotebookOutlinePosition[ 5249, 162]
|
|
CellTagsIndexPosition[ 5206, 159]
|
|
WindowFrame->Normal*)
|
|
|
|
(* Beginning of Notebook Content *)
|
|
Notebook[{
|
|
|
|
Cell[CellGroupData[{
|
|
Cell[BoxData[{
|
|
RowBox[{"\[Epsilon]r", "=",
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{"\[Epsilon]", ",", "0", ",", "0"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "\[Epsilon]", ",", "0"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "\[Epsilon]"}], "}"}]}],
|
|
"}"}]}], "\[IndentingNewLine]",
|
|
RowBox[{
|
|
RowBox[{"Arc", "=",
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"Cos", "[", "\[Theta]", "]"}], ",",
|
|
RowBox[{"Sin", "[", "\[Theta]", "]"}], ",", "0"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-",
|
|
RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "/", "\[Rho]"}], ",",
|
|
RowBox[{
|
|
RowBox[{"Cos", "[", "\[Theta]", "]"}], "/", "\[Rho]"}], ",", "0"}],
|
|
"}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}],
|
|
";"}], "\[IndentingNewLine]",
|
|
RowBox[{
|
|
RowBox[{"Arct", "=",
|
|
RowBox[{"Transpose", "[", "Arc", "]"}]}], ";"}], "\[IndentingNewLine]",
|
|
RowBox[{
|
|
RowBox[{"detArc", "=",
|
|
RowBox[{"1", "/", "\[Rho]"}]}], ";"}], "\[IndentingNewLine]",
|
|
RowBox[{"\[Epsilon]c", "=",
|
|
RowBox[{"Simplify", "[",
|
|
RowBox[{
|
|
RowBox[{"Dot", "[",
|
|
RowBox[{
|
|
RowBox[{"Dot", "[",
|
|
RowBox[{"Arc", ",", "\[Epsilon]r"}], "]"}], ",", "Arct"}], "]"}], "/",
|
|
"detArc"}], "]"}]}], "\[IndentingNewLine]",
|
|
RowBox[{
|
|
RowBox[{"Acr", "=",
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"Cos", "[", "\[Theta]", "]"}], ",",
|
|
RowBox[{
|
|
RowBox[{"-", "\[Rho]"}], "*",
|
|
RowBox[{"Sin", "[", "\[Theta]", "]"}]}], ",", "0"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"Sin", "[", "\[Theta]", "]"}], ",",
|
|
RowBox[{"\[Rho]", "*",
|
|
RowBox[{"Cos", "[", "\[Theta]", "]"}]}], ",", "0"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}],
|
|
";"}], "\[IndentingNewLine]",
|
|
RowBox[{
|
|
RowBox[{"Acrt", "=",
|
|
RowBox[{"Transpose", "[", "Acr", "]"}]}], ";"}], "\[IndentingNewLine]",
|
|
RowBox[{
|
|
RowBox[{"detAcr", "=", "\[Rho]"}], ";"}], "\[IndentingNewLine]",
|
|
RowBox[{"\[Epsilon]r2", "=",
|
|
RowBox[{"Simplify", "[",
|
|
RowBox[{
|
|
RowBox[{"Dot", "[",
|
|
RowBox[{
|
|
RowBox[{"Dot", "[",
|
|
RowBox[{"Acr", ",", "\[Epsilon]c"}], "]"}], ",", "Acrt"}], "]"}], "/",
|
|
"detAcr"}], "]"}]}], "\[IndentingNewLine]"}], "Input",
|
|
CellChangeTimes->{{3.878439000723466*^9, 3.878439281895889*^9}, {
|
|
3.878439492709023*^9, 3.8784395635719175`*^9}},
|
|
CellLabel->"In[81]:=",ExpressionUUID->"0f0ef59d-6d0e-4791-bb8c-2221d1d95195"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{"\[Epsilon]", ",", "0", ",", "0"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "\[Epsilon]", ",", "0"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "\[Epsilon]"}], "}"}]}], "}"}]], "Output",
|
|
CellChangeTimes->{{3.8784392221603146`*^9, 3.8784392834730997`*^9}, {
|
|
3.878439512832144*^9, 3.8784395651991262`*^9}},
|
|
CellLabel->"Out[81]=",ExpressionUUID->"218e2dc0-a970-4780-835a-1544cf4aeab1"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"\[Epsilon]", " ", "\[Rho]"}], ",", "0", ",", "0"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",",
|
|
FractionBox["\[Epsilon]", "\[Rho]"], ",", "0"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",",
|
|
RowBox[{"\[Epsilon]", " ", "\[Rho]"}]}], "}"}]}], "}"}]], "Output",
|
|
CellChangeTimes->{{3.8784392221603146`*^9, 3.8784392834730997`*^9}, {
|
|
3.878439512832144*^9, 3.8784395652066164`*^9}},
|
|
CellLabel->"Out[85]=",ExpressionUUID->"6432553c-4028-418f-87ea-2753e264ad58"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{"\[Epsilon]", ",", "0", ",", "0"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "\[Epsilon]", ",", "0"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "\[Epsilon]"}], "}"}]}], "}"}]], "Output",
|
|
CellChangeTimes->{{3.8784392221603146`*^9, 3.8784392834730997`*^9}, {
|
|
3.878439512832144*^9, 3.8784395652096076`*^9}},
|
|
CellLabel->"Out[89]=",ExpressionUUID->"4c9afe14-d264-4497-ae6d-dd3493973279"]
|
|
}, Open ]]
|
|
},
|
|
WindowSize->{981, 843},
|
|
WindowMargins->{{23, Automatic}, {48, Automatic}},
|
|
Magnification:>1.7 Inherited,
|
|
FrontEndVersion->"12.1 for Microsoft Windows (64-bit) (2020\:5e743\:670814\
|
|
\:65e5)",
|
|
StyleDefinitions->"Default.nb",
|
|
ExpressionUUID->"00d59bab-1c11-4c99-b5ff-bb9d3904eb3c"
|
|
]
|
|
(* End of Notebook Content *)
|
|
|
|
(* Internal cache information *)
|
|
(*CellTagsOutline
|
|
CellTagsIndex->{}
|
|
*)
|
|
(*CellTagsIndex
|
|
CellTagsIndex->{}
|
|
*)
|
|
(*NotebookFileOutline
|
|
Notebook[{
|
|
Cell[CellGroupData[{
|
|
Cell[580, 22, 2650, 77, 521, "Input",ExpressionUUID->"0f0ef59d-6d0e-4791-bb8c-2221d1d95195"],
|
|
Cell[3233, 101, 487, 11, 55, "Output",ExpressionUUID->"218e2dc0-a970-4780-835a-1544cf4aeab1"],
|
|
Cell[3723, 114, 578, 14, 74, "Output",ExpressionUUID->"6432553c-4028-418f-87ea-2753e264ad58"],
|
|
Cell[4304, 130, 487, 11, 95, "Output",ExpressionUUID->"4c9afe14-d264-4497-ae6d-dd3493973279"]
|
|
}, Open ]]
|
|
}
|
|
]
|
|
*)
|
|
|
|
(* End of internal cache information *)
|
|
|