(* 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 *)