(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 7.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 231432, 4657] NotebookOptionsPosition[ 225962, 4551] NotebookOutlinePosition[ 226530, 4571] CellTagsIndexPosition[ 226487, 4568] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Kinematics 2021", "Section", CellChangeTimes->{{3.542948801634627*^9, 3.5429488340054784`*^9}, { 3.54294888700751*^9, 3.5429488892326374`*^9}, {3.603154693094841*^9, 3.603154707836867*^9}, {3.666097111252185*^9, 3.666097115682593*^9}, { 3.6965768920921483`*^9, 3.696576904612166*^9}, 3.7278463526698585`*^9, 3.759824742029703*^9, {3.7919453181935596`*^9, 3.7919453188824453`*^9}, 3.823943389281064*^9},ExpressionUUID->"64c24900-9b02-49c7-a7fd-\ c7b253b01f4d"], Cell[CellGroupData[{ Cell["Curvilinear system defs", "Subsection", CellChangeTimes->{ 3.4710857577642*^9, {3.4710858112098*^9, 3.4710858239082003`*^9}, { 3.4710859049969997`*^9, 3.4710859061046*^9}, {3.4710892678536*^9, 3.4710892701*^9}, 3.4710893817648*^9, {3.4710894793115997`*^9, 3.4710895039596*^9}, {3.4710905118050003`*^9, 3.471090512741*^9}, { 3.4724589485142*^9, 3.4724589539274*^9}, {3.4724611172438*^9, 3.4724611386001997`*^9}, {3.472468943269*^9, 3.4724689445638*^9}, { 3.4724698165922003`*^9, 3.4724698198058*^9}, {3.4724822226106*^9, 3.4724822252469997`*^9}, 3.473564312486*^9, {3.603095648328417*^9, 3.6030956491396184`*^9}, {3.6030962680707054`*^9, 3.6030962681643057`*^9}, {3.603096412433359*^9, 3.603096434569798*^9}, { 3.6964817736875143`*^9, 3.696481779157522*^9}},ExpressionUUID->"87de75ea-01c3-4ba5-abfd-\ 3a87a459ae44"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{"FF", ",", "HH", ",", "DF", ",", "GG", ",", "\[Kappa]\[Kappa]"}], "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"FF", "[", RowBox[{"r_", ",", RowBox[{"{", RowBox[{"\[Alpha]_", ",", "\[Beta]_", ",", "\[Gamma]_"}], "}"}], ",", "cnd_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "e\[Alpha]", ",", "e\[Beta]", ",", "e\[Gamma]", ",", "h\[Alpha]", ",", "h\[Beta]", ",", "h\[Gamma]"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"e\[Alpha]", " ", "=", RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "r"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"h\[Alpha]", " ", "=", RowBox[{"Simplify", "[", RowBox[{"Sqrt", "[", RowBox[{"e\[Alpha]", ".", "e\[Alpha]"}], " ", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"e\[Alpha]", " ", "=", RowBox[{"Simplify", "[", RowBox[{"e\[Alpha]", "/", "h\[Alpha]"}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"e\[Beta]", " ", "=", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "r"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"PossibleZeroQ", "[", "e\[Beta]", "]"}], ",", RowBox[{"#", "&"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"e\[Beta]", " ", "=", RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "e\[Alpha]"}]}], ";", "\[IndentingNewLine]", RowBox[{"h\[Beta]", "=", RowBox[{"Simplify", "[", RowBox[{"Sqrt", "[", RowBox[{"e\[Beta]", ".", "e\[Beta]"}], " ", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"e\[Beta]", "=", RowBox[{"e\[Beta]", "/", "h\[Beta]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"h\[Beta]", "=", RowBox[{"Simplify", "[", RowBox[{"Sqrt", "[", RowBox[{"e\[Beta]", ".", "e\[Beta]"}], " ", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"e\[Beta]", "=", RowBox[{"Simplify", "[", RowBox[{"e\[Beta]", "/", "h\[Beta]"}], "]"}]}]}]}], "]"}], ";", " ", "\[IndentingNewLine]", RowBox[{"e\[Gamma]", " ", "=", RowBox[{ SubscriptBox["\[PartialD]", "\[Gamma]"], "r"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"PossibleZeroQ", "[", "e\[Gamma]", " ", "]"}], ",", RowBox[{"#", "&"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"e\[Gamma]", " ", "=", RowBox[{"Simplify", "[", RowBox[{"e\[Alpha]", "\[Cross]", "e\[Beta]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"h\[Gamma]", "=", RowBox[{"Simplify", "[", RowBox[{"Sqrt", "[", RowBox[{"e\[Gamma]", ".", "e\[Gamma]"}], " ", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"e\[Gamma]", "=", RowBox[{"Simplify", "[", RowBox[{"e\[Gamma]", "/", "h\[Gamma]"}], "]"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"{", RowBox[{"e\[Alpha]", ",", "e\[Beta]", ",", "e\[Gamma]"}], "}"}], ",", "cnd"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"DF", "[", RowBox[{"r_", ",", "var_", ",", "cnd_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"FFT", ",", "FFTINV"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"FFT", "=", RowBox[{"FF", "[", RowBox[{"r", ",", "var", ",", "cnd"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"FFTINV", "=", RowBox[{"Inverse", "[", "FFT", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{"FFT", ",", "#"}], "]"}], ".", "FFTINV"}], "&"}], ",", "var"}], "]"}], ",", "cnd"}], "]"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"HH", "[", RowBox[{"r_", ",", RowBox[{"{", RowBox[{"\[Alpha]_", ",", "\[Beta]_", ",", "\[Gamma]_"}], "}"}], ",", "cnd_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "e\[Alpha]", ",", "e\[Beta]", ",", "e\[Gamma]", ",", "h\[Alpha]", ",", "h\[Beta]", ",", "h\[Gamma]", ",", "rr"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"rr", "=", "r"}], ";", "\[IndentingNewLine]", RowBox[{"e\[Alpha]", " ", "=", RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "r"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"h\[Alpha]", " ", "=", RowBox[{"Simplify", "[", RowBox[{"Sqrt", "[", RowBox[{"e\[Alpha]", ".", "e\[Alpha]"}], " ", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"e\[Alpha]", " ", "=", RowBox[{"Simplify", "[", RowBox[{"e\[Alpha]", "/", "h\[Alpha]"}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"e\[Beta]", " ", "=", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "r"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"PossibleZeroQ", "[", "e\[Beta]", "]"}], ",", RowBox[{"#", "&"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"e\[Beta]", " ", "=", RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "e\[Alpha]"}]}], ";", "\[IndentingNewLine]", RowBox[{"h\[Beta]", "=", RowBox[{"Simplify", "[", RowBox[{"Sqrt", "[", RowBox[{"e\[Beta]", ".", "e\[Beta]"}], " ", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"e\[Beta]", "=", RowBox[{"e\[Beta]", "/", "h\[Beta]"}]}], ";", RowBox[{"rr", "=", RowBox[{"rr", "+", RowBox[{"\[Beta]", " ", "e\[Beta]"}]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"h\[Beta]", "=", RowBox[{"Simplify", "[", RowBox[{"Sqrt", "[", RowBox[{"e\[Beta]", ".", "e\[Beta]"}], " ", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"e\[Beta]", "=", RowBox[{"Simplify", "[", RowBox[{"e\[Beta]", "/", "h\[Beta]"}], "]"}]}]}]}], "]"}], ";", " ", "\[IndentingNewLine]", RowBox[{"e\[Gamma]", " ", "=", RowBox[{ SubscriptBox["\[PartialD]", "\[Gamma]"], "r"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"PossibleZeroQ", "[", "e\[Gamma]", " ", "]"}], ",", RowBox[{"#", "&"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"e\[Gamma]", " ", "=", RowBox[{"Simplify", "[", RowBox[{"e\[Alpha]", "\[Cross]", "e\[Beta]"}], "]"}]}], ";", " ", RowBox[{"rr", "=", RowBox[{"rr", "+", RowBox[{"\[Gamma]", " ", "e\[Gamma]"}]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"h\[Gamma]", "=", RowBox[{"Simplify", "[", RowBox[{"Sqrt", "[", RowBox[{"e\[Gamma]", ".", "e\[Gamma]"}], " ", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"e\[Gamma]", "=", RowBox[{"Simplify", "[", RowBox[{"e\[Gamma]", "/", "h\[Gamma]"}], "]"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"D", "[", RowBox[{"rr", " ", ",", RowBox[{"{", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}], "}"}]}], "]"}], "]"}], ",", "cnd"}], "]"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"GG", "[", RowBox[{"r_", ",", RowBox[{"{", RowBox[{"\[Alpha]_", ",", "\[Beta]_", ",", "\[Gamma]_"}], "}"}], ",", "cnd_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "e\[Alpha]", ",", "e\[Beta]", ",", "e\[Gamma]", ",", "h\[Alpha]", ",", "h\[Beta]", ",", "h\[Gamma]", ",", "rr", ",", "FFT", ",", "HHT"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"rr", "=", "r"}], ";", "\[IndentingNewLine]", RowBox[{"e\[Alpha]", " ", "=", RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "r"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"h\[Alpha]", " ", "=", RowBox[{"Simplify", "[", RowBox[{"Sqrt", "[", RowBox[{"e\[Alpha]", ".", "e\[Alpha]"}], " ", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"e\[Alpha]", " ", "=", RowBox[{"Simplify", "[", RowBox[{"e\[Alpha]", "/", "h\[Alpha]"}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"e\[Beta]", " ", "=", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "r"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"PossibleZeroQ", "[", "e\[Beta]", "]"}], ",", RowBox[{"#", "&"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"e\[Beta]", " ", "=", RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "e\[Alpha]"}]}], ";", "\[IndentingNewLine]", RowBox[{"h\[Beta]", "=", RowBox[{"Simplify", "[", RowBox[{"Sqrt", "[", RowBox[{"e\[Beta]", ".", "e\[Beta]"}], " ", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"e\[Beta]", "=", RowBox[{"e\[Beta]", "/", "h\[Beta]"}]}], ";", RowBox[{"rr", "=", RowBox[{"rr", "+", RowBox[{"\[Beta]", " ", "e\[Beta]"}]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"h\[Beta]", "=", RowBox[{"Simplify", "[", RowBox[{"Sqrt", "[", RowBox[{"e\[Beta]", ".", "e\[Beta]"}], " ", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"e\[Beta]", "=", RowBox[{"Simplify", "[", RowBox[{"e\[Beta]", "/", "h\[Beta]"}], "]"}]}]}]}], "]"}], ";", " ", "\[IndentingNewLine]", RowBox[{"e\[Gamma]", " ", "=", RowBox[{ SubscriptBox["\[PartialD]", "\[Gamma]"], "r"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"PossibleZeroQ", "[", "e\[Gamma]", " ", "]"}], ",", RowBox[{"#", "&"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"e\[Gamma]", " ", "=", RowBox[{"Simplify", "[", RowBox[{"e\[Alpha]", "\[Cross]", "e\[Beta]"}], "]"}]}], ";", " ", RowBox[{"rr", "=", RowBox[{"rr", "+", RowBox[{"\[Gamma]", " ", "e\[Gamma]"}]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"h\[Gamma]", "=", RowBox[{"Simplify", "[", RowBox[{"Sqrt", "[", RowBox[{"e\[Gamma]", ".", "e\[Gamma]"}], " ", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"e\[Gamma]", "=", RowBox[{"Simplify", "[", RowBox[{"e\[Gamma]", "/", "h\[Gamma]"}], "]"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"FFT", "=", RowBox[{"{", RowBox[{"e\[Alpha]", ",", "e\[Beta]", ",", "e\[Gamma]"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"HHT", "=", " ", RowBox[{"Transpose", "[", RowBox[{"D", "[", RowBox[{"rr", " ", ",", RowBox[{"{", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}], "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Inverse", "[", RowBox[{"HHT", ".", " ", RowBox[{"Transpose", "[", "FFT", "]"}]}], "]"}], ",", "cnd"}], "]"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Kappa]\[Kappa]", "[", RowBox[{"r_", ",", "var_", ",", "cnd_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"GGT", ",", "DFT", ",", "GN", ",", "e\[Beta]"}], "}"}], ",", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"DFT", "=", RowBox[{"DF", "[", RowBox[{"r", ",", "var", ",", "cnd"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"e\[Beta]", " ", "=", RowBox[{"D", "[", RowBox[{"r", ",", RowBox[{"var", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"GN", "=", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"PossibleZeroQ", "[", "e\[Beta]", "]"}], ",", RowBox[{"#", "&"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"DFT", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", RowBox[{"DFT", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", RowBox[{"DFT", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"DFT", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], ",", RowBox[{"DFT", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], ",", RowBox[{"DFT", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"GGT", "=", RowBox[{"GG", "[", RowBox[{"r", ",", "var", ",", "cnd"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"Simplify", "[", RowBox[{"Transpose", "[", RowBox[{"GGT", ".", "GN"}], "]"}], "]"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "Input", InitializationCell->True, CellChangeTimes->{{3.4781600783766003`*^9, 3.4781602062654*^9}, { 3.478160319381*^9, 3.4781604649133997`*^9}, {3.4781604970025997`*^9, 3.4781604992178*^9}, {3.4781605326486*^9, 3.4781605731618*^9}, { 3.4781607106758003`*^9, 3.4781608313574*^9}, {3.478172384784*^9, 3.4781724734700003`*^9}, {3.478172543436*^9, 3.4781726180039997`*^9}, { 3.478174440796*^9, 3.4781744702488003`*^9}, {3.4781745122595997`*^9, 3.478174579792*^9}, {3.478175509084*^9, 3.4781755809376*^9}, { 3.4781756219188004`*^9, 3.4781756248672*^9}, {3.478175922094*^9, 3.4781759276632*^9}, {3.4781759799700003`*^9, 3.4781759827156*^9}, { 3.478177659538*^9, 3.4781777642608*^9}, {3.4781779852972*^9, 3.478178127538*^9}, 3.4781781958348*^9, {3.47817825148*^9, 3.4781784160132*^9}, {3.4781784651532*^9, 3.47817851951*^9}, { 3.4781789813792*^9, 3.4781790215336*^9}, {3.4781790637472*^9, 3.4781790664304*^9}, {3.4781793631518*^9, 3.478179398751*^9}, { 3.4781801059926*^9, 3.4781802263310003`*^9}, {3.4781802697302*^9, 3.4781805877674*^9}, {3.4781806237566*^9, 3.4781806689653997`*^9}, { 3.4781807150322*^9, 3.478180734657*^9}, {3.4781807905206003`*^9, 3.4781808355422*^9}, {3.4781808841674*^9, 3.4781809448202*^9}, { 3.4781809791558*^9, 3.4781810987298*^9}, {3.4781811410682*^9, 3.4781811575886*^9}, {3.4781813577209997`*^9, 3.4781813677518*^9}, { 3.4781814484194*^9, 3.478181510991*^9}, {3.4781816181474*^9, 3.4781816215014*^9}, {3.4781816821854*^9, 3.4781816858046*^9}, { 3.4781817169734*^9, 3.4781817194382*^9}, {3.4781838232542*^9, 3.4781838314598*^9}, {3.4781839135313997`*^9, 3.4781840022174*^9}, { 3.478184045211*^9, 3.4781841746442003`*^9}, {3.4781842273722*^9, 3.4781842481046*^9}, {3.4781843274462*^9, 3.4781843294742002`*^9}, { 3.4781843613918*^9, 3.4781843747766*^9}, {3.4781844429174*^9, 3.4781844985313997`*^9}, {3.4781845700418*^9, 3.4781845782318*^9}, { 3.4781848974858*^9, 3.4781849532246*^9}, {3.4781859998598003`*^9, 3.4781861645334*^9}, {3.4781862008658*^9, 3.4781862274638*^9}, { 3.4781862604890003`*^9, 3.4781862830778*^9}, {3.4781879829898*^9, 3.4781879874982*^9}, {3.4781880363417997`*^9, 3.4781881199110003`*^9}, { 3.4781882916826*^9, 3.4781883701661997`*^9}, {3.4781884199146*^9, 3.478188537759*^9}, {3.4781887375034*^9, 3.4781888148014*^9}, { 3.4781888588402*^9, 3.4781889058742*^9}, 3.4781889360601997`*^9, 3.4781889686486*^9, {3.4783514740859365`*^9, 3.4783515141935363`*^9}, { 3.478351544824336*^9, 3.478351573356736*^9}, {3.478352269221936*^9, 3.4783522917171364`*^9}, {3.4783525196799364`*^9, 3.4783525299759364`*^9}, {3.4783532396667366`*^9, 3.478353243629136*^9}, { 3.4783581197835364`*^9, 3.4783581394863367`*^9}, {3.4783581824955363`*^9, 3.4783581851787367`*^9}, {3.4785201869288*^9, 3.4785203624132*^9}, 3.4785204014912*^9, {3.4785204623624*^9, 3.4785204664496*^9}, { 3.4785206787188*^9, 3.4785207337868*^9}, {3.4785207674983997`*^9, 3.478520782802*^9}, {3.4785208298672*^9, 3.47852087609*^9}, { 3.478520916182*^9, 3.4785209170868*^9}, {3.4785210020444*^9, 3.4785210552716*^9}, {3.4785211636136*^9, 3.4785212076212*^9}, { 3.4785212762612*^9, 3.4785212786948*^9}, {3.4785213465548*^9, 3.4785213656492*^9}, 3.4785214115912*^9, {3.4785217364300003`*^9, 3.4785217744784*^9}, {3.4785218086112003`*^9, 3.4785219046448*^9}, { 3.4785221081836*^9, 3.4785221085112*^9}, {3.4785279742342*^9, 3.4785279751702003`*^9}, {3.4794678105926*^9, 3.479467829141*^9}, { 3.4794678624782*^9, 3.4794679091066*^9}, {3.479467955891*^9, 3.4794680340178003`*^9}, {3.479468069929*^9, 3.4794680997874002`*^9}, { 3.479470692475*^9, 3.4794706934890003`*^9}, {3.4794707252349997`*^9, 3.479470744267*^9}, {3.4794707908018*^9, 3.4794710130706*^9}, { 3.4794711469342003`*^9, 3.4794712594414*^9}, {3.479471307505*^9, 3.4794713146809998`*^9}, {3.4794736226698*^9, 3.4794737172838*^9}, { 3.4794739234222*^9, 3.4794739386478*^9}, {3.4794739755886*^9, 3.4794740041834*^9}, 3.4794743432026*^9, {3.4794745723198*^9, 3.4794745756738*^9}, {3.4794746099625998`*^9, 3.479474748631*^9}, { 3.4794747985978003`*^9, 3.4794748684858*^9}, {3.4794749036014*^9, 3.4794749042878*^9}, {3.4794749355814*^9, 3.4794750858562*^9}, { 3.4794751622181997`*^9, 3.479475321385*^9}, {3.4794754186822*^9, 3.4794754191502*^9}, {3.4798959595638*^9, 3.4798960023546*^9}, { 3.479962872524*^9, 3.4799631196591997`*^9}, {3.4799669730308*^9, 3.4799669739044*^9}, {3.4799694904196*^9, 3.4799695049432*^9}, { 3.4800004631584*^9, 3.48000059554*^9}, {3.4800006262251997`*^9, 3.4800008073724003`*^9}, {3.4800008763868*^9, 3.4800008773384*^9}, { 3.4800009217516003`*^9, 3.4800009300352*^9}, {3.4800009745108*^9, 3.4800011521168003`*^9}, {3.4800012058276*^9, 3.480001215094*^9}, { 3.4800013516624002`*^9, 3.480001595686*^9}, 3.4800016426731997`*^9, { 3.4800016884124002`*^9, 3.4800017054476*^9}, {3.4800017723403997`*^9, 3.4800017783775997`*^9}, 3.4800020254192*^9, {3.4800363173459997`*^9, 3.4800363217452*^9}, {3.4800363840671997`*^9, 3.4800364725972*^9}, { 3.4800368443764*^9, 3.4800368683848*^9}, {3.4800369395987997`*^9, 3.4800369559007998`*^9}, {3.4800415331998*^9, 3.4800415438858*^9}, { 3.4800415924018*^9, 3.4800415985794*^9}, {3.4800416408710003`*^9, 3.4800416802142*^9}, {3.4800417341902*^9, 3.4800417448606*^9}, { 3.4800417841882*^9, 3.4800418023310003`*^9}, {3.4800418544505997`*^9, 3.4800418701442003`*^9}, {3.4800419374426003`*^9, 3.4800419536354*^9}, { 3.4800419986726*^9, 3.480042002947*^9}, {3.480042069091*^9, 3.4800420796210003`*^9}, {3.4801569001488*^9, 3.4801569008508*^9}, 3.4801569728136*^9, {3.4801571114040003`*^9, 3.4801571172539997`*^9}, { 3.480239036333*^9, 3.4802390366918*^9}, {3.4802391318361998`*^9, 3.4802393826062*^9}, {3.4802394158342*^9, 3.4802397543982*^9}, { 3.4802398182382*^9, 3.4802398238854*^9}, {3.4802399301682*^9, 3.4802399766406*^9}, {3.4802400340486*^9, 3.480240127321*^9}, 3.4802401808758*^9, {3.4802402706226*^9, 3.4802402734306*^9}, { 3.4802404793506002`*^9, 3.4802404932033997`*^9}, {3.4802405372265997`*^9, 3.4802405739646*^9}, {3.4802406168646*^9, 3.4802406241498003`*^9}, { 3.480240696565*^9, 3.4802407310254*^9}, {3.4802407839406*^9, 3.4802407843774*^9}, {3.480243537058*^9, 3.480243547744*^9}, { 3.5993111864678535`*^9, 3.599311210866296*^9}, 3.5993113796897926`*^9, { 3.5993114222934675`*^9, 3.599311667681898*^9}, {3.599311703795962*^9, 3.599311779019294*^9}, {3.599311815460958*^9, 3.599311823120571*^9}, { 3.599311859921036*^9, 3.599311860529437*^9}, {3.599311900418707*^9, 3.5993119160499344`*^9}, {3.5993955839247246`*^9, 3.5993956025823574`*^9}, {3.599395710113346*^9, 3.5993957650254426`*^9}, { 3.5993958251011477`*^9, 3.5993958418087773`*^9}, 3.5993959189509125`*^9, { 3.5993959592145834`*^9, 3.599395959947785*^9}, {3.5993959943614454`*^9, 3.599396040085126*^9}, {3.599396120830868*^9, 3.5993961243720737`*^9}, { 3.5993961856957817`*^9, 3.5993962396250763`*^9}, {3.5993973767578735`*^9, 3.5993973809386806`*^9}, {3.59939963494084*^9, 3.599399657482879*^9}, { 3.5993997748418856`*^9, 3.599399937487771*^9}, {3.599399983039851*^9, 3.5993999927274685`*^9}, {3.5994000742532115`*^9, 3.5994001169348865`*^9}, {3.599400149819744*^9, 3.5994001560129547`*^9}, { 3.5994001891630135`*^9, 3.5994001964014263`*^9}, {3.599400274432763*^9, 3.599400277193968*^9}, {3.599400316069236*^9, 3.599400324664851*^9}, { 3.5994003725569353`*^9, 3.599400407875397*^9}, {3.5994004448474627`*^9, 3.599400450588272*^9}, {3.599400512395581*^9, 3.5994005445472374`*^9}, { 3.603130243173998*^9, 3.6031302669640393`*^9}, {3.6031303236701393`*^9, 3.603130362359207*^9}, {3.6031304053060827`*^9, 3.6031304404997444`*^9}, { 3.6031305441775265`*^9, 3.6031306145492496`*^9}, {3.603130699584999*^9, 3.603130724623043*^9}, {3.603130944068629*^9, 3.603130945238631*^9}, { 3.60313105291002*^9, 3.6031310555152245`*^9}, 3.603131216382707*^9, { 3.603131268174798*^9, 3.6031312859120293`*^9}, 3.6031313857210045`*^9, { 3.603131416109858*^9, 3.603131439634699*^9}, {3.603131473268358*^9, 3.6031314747503605`*^9}, {3.603131524654848*^9, 3.6031315318464613`*^9}, { 3.6031547324381104`*^9, 3.603154736572117*^9}, {3.603154804042236*^9, 3.603154877097164*^9}, {3.6031549836453514`*^9, 3.603154987358158*^9}, { 3.6031554666221995`*^9, 3.6031554836886296`*^9}, {3.603155544185536*^9, 3.6031555584751606`*^9}, {3.603155622560074*^9, 3.6031556620749426`*^9}, { 3.603155695147001*^9, 3.6031556964262033`*^9}, {3.603155755971508*^9, 3.6031558429104605`*^9}, {3.6031558997569604`*^9, 3.603155906371372*^9}, { 3.603155960987068*^9, 3.603155994105926*^9}, {3.603156085085286*^9, 3.603156094694903*^9}, {3.603156181587055*^9, 3.6031561958298807`*^9}, { 3.6031562334727464`*^9, 3.6031562534875813`*^9}, {3.6031563005840645`*^9, 3.6031563034544697`*^9}, {3.603156338336131*^9, 3.603156345402943*^9}, { 3.603157228177294*^9, 3.603157235181706*^9}, {3.6031572758041773`*^9, 3.603157282231388*^9}, {3.603175639502486*^9, 3.6031757230718327`*^9}, { 3.6031759151705704`*^9, 3.603176075788452*^9}, {3.603180177114857*^9, 3.6031801773332577`*^9}, {3.603596280709713*^9, 3.6035963375562124`*^9}, { 3.603596402093526*^9, 3.6035964073975353`*^9}, {3.6035965390149665`*^9, 3.6035965760338316`*^9}, {3.6036001545644865`*^9, 3.603600155703289*^9}, { 3.6036309774767623`*^9, 3.6036309858851767`*^9}, {3.6036310537764964`*^9, 3.603631060328508*^9}, {3.6036311630390882`*^9, 3.603631173428706*^9}, { 3.603632913455763*^9, 3.6036329457790194`*^9}, 3.6660800728617263`*^9, { 3.666080128007823*^9, 3.6660806047290606`*^9}, {3.6660806856836033`*^9, 3.666080800265805*^9}, {3.6660808333066626`*^9, 3.666080846816286*^9}, { 3.6660808855667543`*^9, 3.666081162607641*^9}, 3.666081254913003*^9, 3.666081325815128*^9, {3.666083542969022*^9, 3.6660835519234376`*^9}, { 3.666083608723138*^9, 3.6660836394551916`*^9}, {3.6660838006346745`*^9, 3.666083812553096*^9}, {3.6660838875580273`*^9, 3.666084051405115*^9}, { 3.6660841783269377`*^9, 3.66608417943454*^9}, {3.666084323799594*^9, 3.666084361208459*^9}, {3.666092909238324*^9, 3.6660929395491776`*^9}, { 3.666092991684469*^9, 3.6660930500597715`*^9}, {3.696342569836173*^9, 3.6963426483262835`*^9}, {3.6963426800463276`*^9, 3.6963427100863695`*^9}, {3.6963428891366205`*^9, 3.6963429133666544`*^9}, {3.696343100706917*^9, 3.696343377467304*^9}, { 3.6963434336773825`*^9, 3.6963435625775633`*^9}, {3.6963436149776363`*^9, 3.6963436156176376`*^9}, {3.6963436477076826`*^9, 3.6963436840077333`*^9}, {3.696343718687782*^9, 3.696343749467825*^9}, 3.6963438047679024`*^9, {3.6963438359779463`*^9, 3.6963438424579554`*^9}, { 3.6963921743945956`*^9, 3.6963921766345987`*^9}, 3.6963922130246496`*^9, { 3.696392273674734*^9, 3.6963922979347687`*^9}, {3.6963923323248167`*^9, 3.696392430664954*^9}, {3.69639247041501*^9, 3.69639256294514*^9}, { 3.696392614165211*^9, 3.6963928067854805`*^9}, {3.696392850595542*^9, 3.696392931575656*^9}, {3.6963930540358267`*^9, 3.696393082375867*^9}, { 3.696393208066043*^9, 3.6963932103060455`*^9}, {3.69639328484615*^9, 3.696393346466236*^9}, {3.6963934951864443`*^9, 3.696393568206547*^9}, { 3.6963936186766176`*^9, 3.6963938378369246`*^9}, {3.696393930337054*^9, 3.696393938387065*^9}, {3.6963941567873707`*^9, 3.696394161187377*^9}, { 3.69639423473748*^9, 3.696394265637523*^9}, 3.69639429933757*^9, { 3.6963945864679728`*^9, 3.6963946158280134`*^9}, {3.6963946464180565`*^9, 3.696394666048084*^9}, {3.6963946965881267`*^9, 3.696394741288189*^9}, 3.6963947777982407`*^9, {3.6963948172082953`*^9, 3.69639487765838*^9}, { 3.6963950102785654`*^9, 3.6963950359886017`*^9}, {3.6963952100888453`*^9, 3.6963952675889263`*^9}, {3.6963953747390757`*^9, 3.6963953939991026`*^9}, {3.6963954701592093`*^9, 3.6963954844092293`*^9}, {3.696395516949275*^9, 3.696395557739332*^9}, { 3.696395603199396*^9, 3.6963956433194523`*^9}, {3.696395864389762*^9, 3.6963958646697617`*^9}, {3.696396687650914*^9, 3.6963967908010583`*^9}, { 3.696399087807124*^9, 3.6963990965571365`*^9}, {3.69639914943721*^9, 3.6963991745372458`*^9}, {3.6963992288773212`*^9, 3.6963992567073603`*^9}, {3.6963992924174104`*^9, 3.696399350287492*^9}, { 3.6963994067575703`*^9, 3.696399511967718*^9}, {3.696399556897781*^9, 3.696399558417783*^9}, {3.69639962059787*^9, 3.696399646497906*^9}, { 3.6964010248898363`*^9, 3.6964010333398476`*^9}, {3.696401432950407*^9, 3.6964016515407133`*^9}, {3.696480891090067*^9, 3.696480919080106*^9}, { 3.696480959240162*^9, 3.696481017140243*^9}, {3.6964812163810797`*^9, 3.6964812569911366`*^9}, {3.6964812925811863`*^9, 3.6964814741370945`*^9}, {3.69648155651721*^9, 3.696481557347211*^9}, { 3.6964938308596582`*^9, 3.6964938755797205`*^9}, {3.696493907529765*^9, 3.69649395343983*^9}, {3.6964940328999405`*^9, 3.6964940639599843`*^9}, { 3.696500765280301*^9, 3.696500830160392*^9}, {3.696500925410525*^9, 3.696500954830566*^9}, {3.7278701240471563`*^9, 3.727870130157137*^9}, { 3.7919499592138195`*^9, 3.7919499881000547`*^9}}, CellLabel->"In[1]:=",ExpressionUUID->"7d12de3e-3596-4ff5-8a7f-4966689d790d"] }, Closed]], Cell[CellGroupData[{ Cell["Coordinate graphics defs", "Subsection", CellChangeTimes->{ 3.4710857577642*^9, {3.4710858112098*^9, 3.4710858239082003`*^9}, { 3.4710859049969997`*^9, 3.4710859061046*^9}, 3.471085963809*^9, { 3.6030959412345314`*^9, 3.6030959441829367`*^9}, {3.6661639559692492`*^9, 3.6661639715741415`*^9}, {3.696484486951313*^9, 3.696484505301338*^9}},ExpressionUUID->"c1adbef8-70be-4296-8770-\ 4f242967562e"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"SURFACEPLOT", "[", RowBox[{ "r0_", ",", "\[Alpha]dom_", ",", "\[Beta]dom_", ",", "\[Gamma]dom_"}], "]"}], " ", ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]", ",", "rr", ",", "e\[Alpha]", ",", "h\[Alpha]", " ", ",", "e\[Beta]", ",", "h\[Beta]", ",", "e\[Gamma]", ",", "h\[Gamma]", ",", "DIM"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}], "=", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]dom", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"\[Beta]dom", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"\[Gamma]dom", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"rr", "=", "r0"}], ";", "\[IndentingNewLine]", RowBox[{"e\[Alpha]", " ", "=", RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "rr"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"h\[Alpha]", " ", "=", RowBox[{"Simplify", "[", RowBox[{"Sqrt", "[", RowBox[{"e\[Alpha]", ".", "e\[Alpha]"}], " ", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"e\[Alpha]", " ", "=", RowBox[{"Simplify", "[", RowBox[{"e\[Alpha]", "/", "h\[Alpha]"}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"e\[Beta]", " ", "=", RowBox[{ SubscriptBox["\[PartialD]", "\[Beta]"], "rr"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"PossibleZeroQ", "[", "e\[Beta]", "]"}], ",", RowBox[{"#", "&"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"DIM", " ", "=", "1"}], ";", RowBox[{"e\[Beta]", " ", "=", RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], "e\[Alpha]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"h\[Beta]", "=", RowBox[{"Simplify", "[", RowBox[{"Sqrt", "[", RowBox[{"e\[Beta]", ".", "e\[Beta]"}], " ", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"e\[Beta]", "=", RowBox[{"e\[Beta]", "/", "h\[Beta]"}]}], ";", RowBox[{"rr", "=", RowBox[{"rr", "+", RowBox[{"\[Beta]", " ", "e\[Beta]"}]}]}]}], ",", RowBox[{ RowBox[{"DIM", "=", "2"}], ";", "\[IndentingNewLine]", RowBox[{"h\[Beta]", "=", RowBox[{"Simplify", "[", RowBox[{"Sqrt", "[", RowBox[{"e\[Beta]", ".", "e\[Beta]"}], " ", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"e\[Beta]", "=", RowBox[{"Simplify", "[", RowBox[{"e\[Beta]", "/", "h\[Beta]"}], "]"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"e\[Gamma]", " ", "=", RowBox[{ SubscriptBox["\[PartialD]", "\[Gamma]"], "rr"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"AllTrue", "[", RowBox[{ RowBox[{"PossibleZeroQ", "[", "e\[Gamma]", " ", "]"}], ",", RowBox[{"#", "&"}]}], "]"}], ",", "\[IndentingNewLine]", " ", RowBox[{ RowBox[{"e\[Gamma]", " ", "=", RowBox[{"Simplify", "[", RowBox[{"e\[Alpha]", "\[Cross]", "e\[Beta]"}], "]"}]}], ";", " ", RowBox[{"rr", "=", RowBox[{"rr", "+", RowBox[{"\[Gamma]", " ", "e\[Gamma]"}]}]}]}], ",", RowBox[{ RowBox[{"DIM", "=", "3"}], ";", "\[IndentingNewLine]", RowBox[{"h\[Gamma]", "=", RowBox[{"Simplify", "[", RowBox[{"Sqrt", "[", RowBox[{"e\[Gamma]", ".", "e\[Gamma]"}], " ", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"e\[Gamma]", "=", RowBox[{"Simplify", "[", RowBox[{"e\[Gamma]", "/", "h\[Gamma]"}], "]"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", "surfaces", "*)"}], "\[IndentingNewLine]", RowBox[{"domainpoints", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"(", RowBox[{"rr", " ", "/.", RowBox[{"\[Gamma]", "\[Rule]", "0"}]}], ")"}], ",", "\[Alpha]dom", ",", "\[Beta]dom"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"outerpoints", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"(", RowBox[{"rr", "/.", RowBox[{"\[Gamma]", "\[Rule]", RowBox[{"\[Gamma]dom", "[", RowBox[{"[", "3", "]"}], "]"}]}]}], ")"}], ",", "\[Alpha]dom", ",", "\[Beta]dom"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"innerpoints", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"(", RowBox[{"rr", "/.", RowBox[{"\[Gamma]", "\[Rule]", RowBox[{"\[Gamma]dom", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], ")"}], ",", "\[Alpha]dom", ",", "\[Beta]dom"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"lowerpoints", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"(", RowBox[{"rr", "/.", RowBox[{"\[Beta]", "\[Rule]", RowBox[{"\[Beta]dom", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], ")"}], ",", "\[Alpha]dom", ",", "\[Gamma]dom"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"upperpoints", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"(", RowBox[{"rr", "/.", RowBox[{"\[Beta]", "\[Rule]", RowBox[{"\[Beta]dom", "[", RowBox[{"[", "3", "]"}], "]"}]}]}], ")"}], ",", "\[Alpha]dom", ",", "\[Gamma]dom"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"domain", " ", "=", RowBox[{"MAKESURFACE", "[", RowBox[{"domainpoints", ",", "0.6"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"outer", " ", "=", " ", RowBox[{"MAKESURFACE", "[", RowBox[{"outerpoints", ",", "0.5"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"inner", " ", "=", " ", RowBox[{"MAKESURFACE", "[", RowBox[{"innerpoints", ",", "0.5"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"lower", " ", "=", " ", RowBox[{"MAKESURFACE", "[", RowBox[{"lowerpoints", ",", "0.5"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"upper", "=", " ", RowBox[{"MAKESURFACE", "[", RowBox[{"upperpoints", ",", "0.5"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", "arrows", "*)"}], "\[IndentingNewLine]", RowBox[{"doma", " ", "=", "\[Alpha]dom"}], ";", RowBox[{ RowBox[{"doma", "[", RowBox[{"[", "4", "]"}], "]"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Alpha]dom", "[", RowBox[{"[", "3", "]"}], "]"}], "-", RowBox[{"\[Alpha]dom", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "/", "10"}]}], ";", "\[IndentingNewLine]", RowBox[{"domb", " ", "=", "\[Beta]dom"}], ";", RowBox[{ RowBox[{"domb", "[", RowBox[{"[", "4", "]"}], "]"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Beta]dom", "[", RowBox[{"[", "3", "]"}], "]"}], "-", RowBox[{"\[Beta]dom", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "/", "10"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"arr1", " ", ",", "arr2", " ", ",", "arr3"}], "}"}], "=", RowBox[{"Which", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"DIM", "==", "1"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Table", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"rr", ",", RowBox[{"rr", "+", RowBox[{"e\[Alpha]", "/", "20"}]}]}], "}"}], "/.", RowBox[{"{", " ", RowBox[{ RowBox[{"\[Gamma]", "\[Rule]", "0"}], ",", " ", RowBox[{"\[Beta]", "\[Rule]", "0"}]}], "}"}]}], ")"}], ",", RowBox[{"Evaluate", "[", "doma", "]"}]}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{"Table", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"rr", ",", RowBox[{"rr", "+", RowBox[{"e\[Beta]", "/", "20"}]}]}], "}"}], "/.", " ", RowBox[{"{", " ", RowBox[{ RowBox[{"\[Gamma]", "\[Rule]", "0"}], ",", " ", RowBox[{"\[Beta]", "\[Rule]", "0"}]}], "}"}]}], ")"}], ",", RowBox[{"Evaluate", "[", "doma", "]"}]}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{"Table", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"rr", ",", RowBox[{"rr", "+", RowBox[{"e\[Gamma]", "/", "20"}]}]}], "}"}], "/.", RowBox[{"{", " ", RowBox[{ RowBox[{"\[Gamma]", "\[Rule]", "0"}], ",", " ", RowBox[{"\[Beta]", "\[Rule]", "0"}]}], "}"}]}], ")"}], ",", RowBox[{"Evaluate", "[", "doma", "]"}]}], "]"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"DIM", "\[Equal]", "2"}], " ", ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"rr", ",", RowBox[{"rr", "+", RowBox[{"e\[Alpha]", "/", "20"}]}]}], "}"}], "/.", " ", RowBox[{"\[Gamma]", "\[Rule]", "0"}]}], ")"}], ",", RowBox[{"Evaluate", "[", "doma", "]"}], ",", RowBox[{"Evaluate", "[", "domb", "]"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"rr", ",", RowBox[{"rr", "+", RowBox[{"e\[Beta]", "/", "20"}]}]}], "}"}], "/.", " ", RowBox[{"\[Gamma]", "\[Rule]", "0"}]}], ")"}], ",", RowBox[{"Evaluate", "[", "doma", "]"}], ",", RowBox[{"Evaluate", "[", "domb", "]"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"rr", ",", RowBox[{"rr", "+", RowBox[{"e\[Gamma]", "/", "20"}]}]}], "}"}], "/.", RowBox[{"\[Gamma]", "\[Rule]", "0"}]}], ")"}], ",", RowBox[{"Evaluate", "[", "doma", "]"}], ",", RowBox[{"Evaluate", "[", "domb", "]"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"DIM", "\[Equal]", "3"}], " ", ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"rr", ",", RowBox[{"rr", "+", RowBox[{"e\[Alpha]", "/", "20"}]}]}], "}"}], "/.", " ", RowBox[{ RowBox[{"\[Gamma]dom", "[", RowBox[{"[", "1", "]"}], "]"}], "\[Rule]", "0."}]}], ")"}], ",", RowBox[{"Evaluate", "[", "doma", "]"}], ",", RowBox[{"Evaluate", "[", "domb", "]"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"rr", ",", RowBox[{"rr", "+", RowBox[{"e\[Beta]", "/", "20"}]}]}], "}"}], "*", "1."}], "/.", " ", RowBox[{ RowBox[{"\[Gamma]dom", "[", RowBox[{"[", "1", "]"}], "]"}], "\[Rule]", "0"}]}], ")"}], ",", RowBox[{"Evaluate", "[", "doma", "]"}], ",", RowBox[{"Evaluate", "[", "domb", "]"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"rr", ",", RowBox[{"rr", "+", RowBox[{"e\[Gamma]", "/", "20"}]}]}], "}"}], "*", "1."}], "/.", RowBox[{ RowBox[{"\[Gamma]dom", "[", RowBox[{"[", "1", "]"}], "]"}], "\[Rule]", "0"}]}], ")"}], ",", RowBox[{"Evaluate", "[", "doma", "]"}], ",", RowBox[{"Evaluate", "[", "domb", "]"}]}], "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"arrows1", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Arrowheads", "[", "Tiny", "]"}], ",", "Red"}], "}"}], ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Arrow", "[", "#", "]"}], "&"}], ",", RowBox[{"Flatten", "[", RowBox[{"arr1", ",", "1"}], "]"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"arrows2", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Arrowheads", "[", "Tiny", "]"}], ",", "Green"}], "}"}], ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Arrow", "[", "#", "]"}], "&"}], ",", RowBox[{"Flatten", "[", RowBox[{"arr2", ",", "1"}], "]"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"arrows3", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Arrowheads", "[", "Tiny", "]"}], ",", "Blue"}], "}"}], ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Arrow", "[", "#", "]"}], "&"}], ",", RowBox[{"Flatten", "[", RowBox[{"arr3", ",", "1"}], "]"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"SHOW", " ", "ACTIVES"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics3D", "[", "inner", "]"}], ",", RowBox[{"Graphics3D", "[", "outer", "]"}], ",", RowBox[{"Graphics3D", "[", "lower", "]"}], ",", RowBox[{"Graphics3D", "[", "upper", "]"}], ",", RowBox[{"Graphics3D", "[", "arrows1", "]"}], ",", RowBox[{"Graphics3D", "[", "arrows2", "]"}], ",", RowBox[{"Graphics3D", "[", "arrows3", "]"}], ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"X", ",", "Y", ",", "Z"}], "}"}]}], ",", RowBox[{"Lighting", "\[Rule]", "\"\\""}], ",", RowBox[{"Boxed", "\[Rule]", "False"}]}], "]"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"SURFACEPLOT", "[", RowBox[{"rr_", ",", RowBox[{"{", RowBox[{"e\[Alpha]_", ",", "e\[Beta]_", ",", "e\[Gamma]_"}], "}"}], ",", "\[Alpha]dom_", ",", "\[Beta]dom_", ",", "\[Gamma]dom_"}], "]"}], " ", ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", RowBox[{"(*", " ", "SURFACES", " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"domainpoints", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"(", RowBox[{"rr", " ", "/.", RowBox[{ RowBox[{"\[Gamma]dom", "[", RowBox[{"[", "1", "]"}], "]"}], "\[Rule]", "0"}]}], ")"}], ",", "\[Alpha]dom", ",", "\[Beta]dom"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"outerpoints", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"(", RowBox[{"rr", "/.", RowBox[{ RowBox[{"\[Gamma]dom", "[", RowBox[{"[", "1", "]"}], "]"}], "\[Rule]", RowBox[{"\[Gamma]dom", "[", RowBox[{"[", "3", "]"}], "]"}]}]}], ")"}], ",", "\[Alpha]dom", ",", "\[Beta]dom"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"innerpoints", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"(", RowBox[{"rr", "/.", RowBox[{ RowBox[{"\[Gamma]dom", "[", RowBox[{"[", "1", "]"}], "]"}], "\[Rule]", RowBox[{"\[Gamma]dom", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], ")"}], ",", "\[Alpha]dom", ",", "\[Beta]dom"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"lowerpoints", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"(", RowBox[{"rr", "/.", RowBox[{ RowBox[{"\[Beta]dom", "[", RowBox[{"[", "1", "]"}], "]"}], "\[Rule]", RowBox[{"\[Beta]dom", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], ")"}], ",", "\[Alpha]dom", ",", "\[Gamma]dom"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"upperpoints", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"(", RowBox[{"rr", "/.", RowBox[{ RowBox[{"\[Beta]dom", "[", RowBox[{"[", "1", "]"}], "]"}], "\[Rule]", RowBox[{"\[Beta]dom", "[", RowBox[{"[", "3", "]"}], "]"}]}]}], ")"}], ",", "\[Alpha]dom", ",", "\[Gamma]dom"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"domain", " ", "=", RowBox[{"MAKESURFACE", "[", RowBox[{"domainpoints", ",", "0.6"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"outer", " ", "=", " ", RowBox[{"MAKESURFACE", "[", RowBox[{"outerpoints", ",", "0.5"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"inner", " ", "=", " ", RowBox[{"MAKESURFACE", "[", RowBox[{"innerpoints", ",", "0.5"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"lower", " ", "=", " ", RowBox[{"MAKESURFACE", "[", RowBox[{"lowerpoints", ",", "0.5"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"upper", "=", " ", RowBox[{"MAKESURFACE", "[", RowBox[{"upperpoints", ",", "0.5"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", "ARROWS", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"doma", " ", "=", "\[Alpha]dom"}], ";", RowBox[{ RowBox[{"doma", "[", RowBox[{"[", "4", "]"}], "]"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Alpha]dom", "[", RowBox[{"[", "3", "]"}], "]"}], "-", RowBox[{"\[Alpha]dom", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "/", "10"}]}], ";", "\[IndentingNewLine]", RowBox[{"domb", " ", "=", "\[Beta]dom"}], ";", RowBox[{ RowBox[{"domb", "[", RowBox[{"[", "4", "]"}], "]"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Beta]dom", "[", RowBox[{"[", "3", "]"}], "]"}], "-", RowBox[{"\[Beta]dom", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "/", "10"}]}], ";", "\[IndentingNewLine]", RowBox[{"arr1", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"rr", ",", RowBox[{"rr", "+", RowBox[{"e\[Alpha]", "/", "20"}]}]}], "}"}], "/.", " ", RowBox[{ RowBox[{"\[Gamma]dom", "[", RowBox[{"[", "1", "]"}], "]"}], "\[Rule]", "0."}]}], ")"}], ",", RowBox[{"Evaluate", "[", "doma", "]"}], ",", RowBox[{"Evaluate", "[", "domb", "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"arr2", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"rr", ",", RowBox[{"rr", "+", RowBox[{"e\[Beta]", "/", "20"}]}]}], "}"}], "*", "1."}], "/.", " ", RowBox[{ RowBox[{"\[Gamma]dom", "[", RowBox[{"[", "1", "]"}], "]"}], "\[Rule]", "0"}]}], ")"}], ",", RowBox[{"Evaluate", "[", "doma", "]"}], ",", RowBox[{"Evaluate", "[", "domb", "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"arr3", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"rr", ",", RowBox[{"rr", "+", RowBox[{"e\[Gamma]", "/", "20"}]}]}], "}"}], "*", "1."}], "/.", RowBox[{ RowBox[{"\[Gamma]dom", "[", RowBox[{"[", "1", "]"}], "]"}], "\[Rule]", "0"}]}], ")"}], ",", RowBox[{"Evaluate", "[", "doma", "]"}], ",", RowBox[{"Evaluate", "[", "domb", "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"arrows1", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Arrowheads", "[", "Tiny", "]"}], ",", "Red"}], "}"}], ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Arrow", "[", "#", "]"}], "&"}], ",", RowBox[{"Flatten", "[", RowBox[{"arr1", ",", "1"}], "]"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"arrows2", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Arrowheads", "[", "Tiny", "]"}], ",", "Green"}], "}"}], ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Arrow", "[", "#", "]"}], "&"}], ",", RowBox[{"Flatten", "[", RowBox[{"arr2", ",", "1"}], "]"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"arrows3", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Arrowheads", "[", "Tiny", "]"}], ",", "Blue"}], "}"}], ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Arrow", "[", "#", "]"}], "&"}], ",", RowBox[{"Flatten", "[", RowBox[{"arr3", ",", "1"}], "]"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"SHOW", " ", "ACTIVES"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics3D", "[", "inner", "]"}], ",", RowBox[{"Graphics3D", "[", "outer", "]"}], ",", RowBox[{"Graphics3D", "[", "lower", "]"}], ",", RowBox[{"Graphics3D", "[", "upper", "]"}], ",", RowBox[{"Graphics3D", "[", "arrows1", "]"}], ",", RowBox[{"Graphics3D", "[", "arrows2", "]"}], ",", RowBox[{"Graphics3D", "[", "arrows3", "]"}], ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"X", ",", "Y", ",", "Z"}], "}"}]}], ",", RowBox[{"Lighting", "\[Rule]", "\"\\""}], ",", RowBox[{"Boxed", "\[Rule]", "False"}]}], "]"}]}]}], " ", "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"MAKESURFACE", "[", RowBox[{"points_", ",", "opacity_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", "]"}], ",", RowBox[{"Opacity", "[", RowBox[{"opacity", ",", "Gray"}], "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"points", " ", "[", RowBox[{"[", RowBox[{"ii", ",", RowBox[{"{", RowBox[{"jj", ",", RowBox[{"jj", "+", "1"}]}], "}"}]}], "]"}], "]"}], ",", RowBox[{"Reverse", "[", RowBox[{"points", " ", "[", RowBox[{"[", RowBox[{ RowBox[{"ii", "+", "1"}], ",", RowBox[{"{", RowBox[{"jj", ",", RowBox[{"jj", "+", "1"}]}], "}"}]}], "]"}], "]"}], "]"}]}], " ", "}"}], ",", "1"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"ii", ",", "1", ",", RowBox[{ RowBox[{"Length", "[", "points", " ", "]"}], "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", RowBox[{ RowBox[{"Length", "[", RowBox[{"points", " ", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "-", "1"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "Input", InitializationCell->True, CellChangeTimes->{{3.47099820412*^9, 3.4709982441963997`*^9}, { 3.4709982841636*^9, 3.4709984139244003`*^9}, {3.4709984525188*^9, 3.470998495217*^9}, 3.4709986392362003`*^9, {3.4709993623898*^9, 3.4709993759618*^9}, {3.4710000941369004`*^9, 3.4710003768403006`*^9}, { 3.4710004538419003`*^9, 3.4710005845387*^9}, {3.4710006147403*^9, 3.4710008755099*^9}, {3.4710009790277004`*^9, 3.4710009799013004`*^9}, { 3.4710010273877*^9, 3.4710010755293007`*^9}, {3.4710011347469006`*^9, 3.4710011353397007`*^9}, {3.4710013020257006`*^9, 3.4710013527101*^9}, { 3.4710014314901004`*^9, 3.4710014978213005`*^9}, {3.4710015332333*^9, 3.4710016230113*^9}, 3.4710016990321007`*^9, {3.4710017333545003`*^9, 3.4710018255661*^9}, {3.4710019272625003`*^9, 3.4710019545157003`*^9}, { 3.4710020061985006`*^9, 3.4710020072437005`*^9}, {3.4710021130585003`*^9, 3.4710021169117002`*^9}, {3.4710022681381006`*^9, 3.4710023131753006`*^9}, {3.4710023463721004`*^9, 3.4710023734069004`*^9}, {3.4710024303157005`*^9, 3.4710026640349007`*^9}, {3.4710026984641004`*^9, 3.4710027559033003`*^9}, {3.4710027907381*^9, 3.4710028222501*^9}, { 3.4710029648029003`*^9, 3.4710030009013004`*^9}, {3.4710030486529007`*^9, 3.4710030648769007`*^9}, {3.4710031248589*^9, 3.4710031826881003`*^9}, { 3.4710033596409006`*^9, 3.4710034167057004`*^9}, {3.4710494122444*^9, 3.4710494125875998`*^9}, {3.4710495028492002`*^9, 3.4710495460299997`*^9}, {3.4710497723859997`*^9, 3.4710498858936*^9}, { 3.471049928722*^9, 3.4710499387256002`*^9}, {3.4710499775248003`*^9, 3.4710500206275997`*^9}, {3.471050070532*^9, 3.4710500917324*^9}, { 3.4710501802156*^9, 3.4710502338952*^9}, {3.4710502694788*^9, 3.471050339788*^9}, {3.4710528445752*^9, 3.471052869972*^9}, { 3.4710572923389997`*^9, 3.4710573765322*^9}, {3.4710574482922*^9, 3.4710576210466003`*^9}, {3.4710577053178*^9, 3.471057783973*^9}, { 3.4710578398522*^9, 3.4710578798974*^9}, {3.4710579857278*^9, 3.4710579969286003`*^9}, {3.471067280638*^9, 3.4710673325236*^9}, 3.471067365658*^9, {3.4710674010232*^9, 3.471067422832*^9}, { 3.4710677004611998`*^9, 3.4710677268096*^9}, {3.4710852587202*^9, 3.471085280841*^9}, {3.4710853152546*^9, 3.4710853555962*^9}, { 3.471085394565*^9, 3.4710853959066*^9}, {3.4710854362482*^9, 3.4710854370906*^9}, {3.4710854875098*^9, 3.471085680513*^9}, { 3.4710859480998*^9, 3.4710859530294*^9}, {3.4710860012334003`*^9, 3.4710860758794003`*^9}, {3.4710861100122004`*^9, 3.4710861717258*^9}, 3.4710862335018*^9, {3.4710862656066*^9, 3.4710862672914*^9}, { 3.4710863606261997`*^9, 3.4710863851962*^9}, {3.4710864318714*^9, 3.4710864589217997`*^9}, {3.4710865317114*^9, 3.4710865345973997`*^9}, { 3.4710865680906*^9, 3.4710865822553997`*^9}, 3.4710866204442*^9, { 3.4710866531730003`*^9, 3.4710866860422*^9}, {3.4710867255414*^9, 3.4710870209898*^9}, {3.4710871225146*^9, 3.4710871236066*^9}, { 3.4710871584258003`*^9, 3.4710872236493998`*^9}, {3.4710872972813997`*^9, 3.4710875501574*^9}, {3.471087588627*^9, 3.4710876437262*^9}, { 3.4710876812130003`*^9, 3.4710878577894*^9}, {3.4710879397581997`*^9, 3.4710879404914*^9}, {3.4710879710568*^9, 3.4710881032044*^9}, { 3.4710881604096003`*^9, 3.4710882066324*^9}, 3.471088268814*^9, 3.4710883209648*^9, {3.4710883560024*^9, 3.4710883660643997`*^9}, 3.4710884254848003`*^9, 3.4710892911132*^9, {3.4710893257139997`*^9, 3.471089335776*^9}, {3.4710902165594*^9, 3.4710902571038*^9}, { 3.4710902921726*^9, 3.4710904193906*^9}, {3.471090826633*^9, 3.4710908497366*^9}, 3.4710924237298*^9, {3.4730724092086*^9, 3.4730724143722*^9}, {3.473124224415*^9, 3.473124227613*^9}, { 3.4731242631654*^9, 3.4731242692338*^9}, {3.603095693240896*^9, 3.6030956942860975`*^9}, 3.6030960268474817`*^9, {3.6030961661713266`*^9, 3.6030962072149982`*^9}, {3.6030989660018444`*^9, 3.603098967125046*^9}, { 3.603099039259573*^9, 3.6030990580420055`*^9}, {3.6030994241278486`*^9, 3.603099429416258*^9}, {3.603099534061242*^9, 3.603099541752055*^9}, { 3.603099608660573*^9, 3.603099621748996*^9}, 3.603099660889465*^9, { 3.6031025082625785`*^9, 3.603102524283807*^9}, {3.666164678792592*^9, 3.6661646850389495`*^9}, {3.6661647249222307`*^9, 3.6661647399000874`*^9}, {3.666165174459943*^9, 3.666165175300991*^9}, { 3.666165312609844*^9, 3.666165315631017*^9}, {3.666277658807538*^9, 3.666277741955684*^9}, {3.6964824090484037`*^9, 3.696482414318411*^9}, { 3.6964825344785795`*^9, 3.6964827514188833`*^9}, {3.6964827945789433`*^9, 3.6964828233789835`*^9}, {3.6964828706490498`*^9, 3.696482995229224*^9}, { 3.6964831501494412`*^9, 3.696483193619502*^9}, {3.696483269919609*^9, 3.6964832924696407`*^9}, {3.6964833226996827`*^9, 3.6964833817797656`*^9}, {3.69648343530984*^9, 3.696483492849921*^9}, { 3.6964835265099683`*^9, 3.696483613000089*^9}, {3.6964837824503264`*^9, 3.696483900600492*^9}, {3.6964839318605356`*^9, 3.6964839665305843`*^9}, { 3.696484007950642*^9, 3.6964840162606535`*^9}, 3.6964840582507124`*^9, { 3.696484114440791*^9, 3.696484158190852*^9}, {3.696484281361025*^9, 3.6964843046910577`*^9}, {3.69648446360128*^9, 3.6964844743912954`*^9}, { 3.6966497019710526`*^9, 3.696649702471053*^9}, {3.696649816541213*^9, 3.696649884521308*^9}, {3.696649931441374*^9, 3.696650159181693*^9}, { 3.696650361411976*^9, 3.6966503807920027`*^9}, {3.696650491412158*^9, 3.6966506310323534`*^9}, {3.6966506796924214`*^9, 3.696650709462463*^9}, { 3.6966507552625275`*^9, 3.6966507710125494`*^9}, {3.696650982042845*^9, 3.696651025502906*^9}, {3.6966510937130013`*^9, 3.696651179493121*^9}, { 3.696651299363289*^9, 3.696651519533597*^9}, {3.6966515776536784`*^9, 3.696651633863757*^9}, {3.696651955954208*^9, 3.696651975284235*^9}, { 3.6966520946944027`*^9, 3.6966520954144034`*^9}, {3.7278703862784667`*^9, 3.7278704345962057`*^9}, {3.7278705411232977`*^9, 3.727870568798212*^9}, { 3.7278706319124804`*^9, 3.7278707442058954`*^9}, {3.7278707989305534`*^9, 3.7278708158386097`*^9}, {3.727871041300455*^9, 3.7278710489419003`*^9}, { 3.7278711258937845`*^9, 3.7278711371606255`*^9}, {3.727875628282947*^9, 3.7278756372214046`*^9}, {3.7278756751329637`*^9, 3.7278756999081745`*^9}, {3.727875751163699*^9, 3.727875758555127*^9}, { 3.7278758127169437`*^9, 3.727875832063074*^9}, {3.7278759541699753`*^9, 3.7278759567015085`*^9}, {3.7278772608575554`*^9, 3.7278773056483254`*^9}, {3.727877336651395*^9, 3.7278773393236065`*^9}, { 3.7278773819741344`*^9, 3.727877399648032*^9}, 3.7278790010736065`*^9, 3.7278790350614157`*^9, 3.727879105991172*^9, {3.7278791369788637`*^9, 3.7278791375883408`*^9}, {3.727879198016725*^9, 3.7278791983137045`*^9}, { 3.727879271024325*^9, 3.7278792935739326`*^9}}, CellLabel->"In[7]:=",ExpressionUUID->"1371452b-3802-4ef1-8a95-b844a8f31fa5"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Coordinate systems", "Section", CellChangeTimes->{{3.542948801634627*^9, 3.5429488340054784`*^9}, { 3.54294888700751*^9, 3.5429488892326374`*^9}, {3.603154693094841*^9, 3.603154707836867*^9}, {3.666097111252185*^9, 3.666097115682593*^9}, { 3.6964818347176*^9, 3.696481842657611*^9}, {3.7919452603246107`*^9, 3.791945267982557*^9}, 3.791945303688809*^9, 3.79194537060648*^9, { 3.7919454499476423`*^9, 3.79194545446933*^9}, 3.791945484769356*^9, { 3.791945519817969*^9, 3.7919455209588566`*^9}},ExpressionUUID->"1df387e4-613c-4627-bba4-\ c978fbf0cd8b"], Cell[CellGroupData[{ Cell["THEORY IN A NUTSHELL", "Subsection", CellChangeTimes->{ 3.4710857577642*^9, {3.4710858112098*^9, 3.4710858239082003`*^9}, { 3.4710859049969997`*^9, 3.4710859061046*^9}, {3.4710892678536*^9, 3.4710892701*^9}, 3.4710893817648*^9, {3.4710894793115997`*^9, 3.4710895039596*^9}, {3.4710905118050003`*^9, 3.471090512741*^9}, { 3.4725252603414*^9, 3.472525264101*^9}, {3.4725253064862003`*^9, 3.4725253370934*^9}, {3.4747629998582*^9, 3.4747630055678*^9}, { 3.4752273878873997`*^9, 3.4752273904926*^9}, {3.4753663741484003`*^9, 3.4753664116352*^9}, {3.4753773567911997`*^9, 3.475377356916*^9}, 3.4753775870472*^9, {3.4754620951394*^9, 3.4754621031266003`*^9}, { 3.4779795207265997`*^9, 3.4779795250576*^9}, {3.4781723763912*^9, 3.4781723803691998`*^9}, {3.4781776626736*^9, 3.4781776635628*^9}, { 3.4781800950726*^9, 3.4781800976154003`*^9}, 3.4785220883716*^9, { 3.4802390003438*^9, 3.4802390181902*^9}, {3.60315471527808*^9, 3.6031547167444825`*^9}, 3.603155521690296*^9, {3.6660843947173185`*^9, 3.6660843958873205`*^9}, {3.6660852732892294`*^9, 3.6660852822904453`*^9}, {3.6964934969791903`*^9, 3.696493529669236*^9}, 3.696493658969417*^9, {3.696500606350078*^9, 3.696500624720104*^9}, { 3.6965019445919514`*^9, 3.6965019665919824`*^9}, {3.696502040442086*^9, 3.6965020414520874`*^9}, {3.791952497157584*^9, 3.791952504410621*^9}, { 3.791953017738306*^9, 3.7919530249618945`*^9}, {3.7919531899268208`*^9, 3.7919531955660057`*^9}},ExpressionUUID->"64c78e3c-0b44-4d86-820f-\ 674362b962e1"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Solid", " ", RowBox[{"mapping", ":", " ", RowBox[{ OverscriptBox["r", "\[RightVector]"], RowBox[{"(", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], ")"}]}]}]}], "=", RowBox[{ SuperscriptBox[ RowBox[{"(", GridBox[{ { RowBox[{"x", RowBox[{"(", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], ")"}]}]}, {GridBox[{ { RowBox[{"y", RowBox[{"(", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], ")"}]}]}, { RowBox[{"z", RowBox[{"(", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], ")"}]}]} }]} }], ")"}], "T"], RowBox[{"(", GridBox[{ { OverscriptBox["i", "\[RightVector]"]}, {GridBox[{ { OverscriptBox["j", "\[RightVector]"]}, { OverscriptBox["k", "\[RightVector]"]} }]} }], ")"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Plate", " ", RowBox[{"mapping", ":", " ", RowBox[{ OverscriptBox["r", "\[RightVector]"], RowBox[{"(", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], ")"}]}]}]}], "=", RowBox[{ RowBox[{ SubscriptBox[ OverscriptBox["r", "\[RightVector]"], "0"], RowBox[{"(", RowBox[{"\[Alpha]", ",", "\[Beta]"}], ")"}]}], "+", RowBox[{"n", SubscriptBox[ OverscriptBox["e", "\[RightVector]"], "n"]}]}]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Beam", " ", RowBox[{"mapping", ":", " ", RowBox[{ OverscriptBox["r", "\[RightVector]"], RowBox[{"(", "\[Alpha]", ")"}]}]}]}], "=", RowBox[{ RowBox[{ SubscriptBox[ OverscriptBox["r", "\[RightVector]"], "0"], RowBox[{"(", "\[Alpha]", ")"}]}], "+", RowBox[{"n", SubscriptBox[ OverscriptBox["e", "\[RightVector]"], "n"]}], "+", RowBox[{"b", SubscriptBox[ OverscriptBox["e", "\[RightVector]"], "b"]}]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Basis", " ", RowBox[{"vectors", ":", " ", RowBox[{"(", GridBox[{ { SubscriptBox[ OverscriptBox["e", "\[RightVector]"], "\[Alpha]"]}, {GridBox[{ { SubscriptBox[ OverscriptBox["e", "\[RightVector]"], "\[Beta]"]}, { SubscriptBox[ OverscriptBox["e", "\[RightVector]"], "\[Gamma]"]} }]} }], ")"}]}]}], "=", RowBox[{ RowBox[{"[", "FF", "]"}], RowBox[{"(", GridBox[{ { OverscriptBox["i", "\[RightVector]"]}, {GridBox[{ { OverscriptBox["j", "\[RightVector]"]}, { OverscriptBox["k", "\[RightVector]"]} }]} }], ")"}]}]}], ",", " ", RowBox[{ RowBox[{ FractionBox["\[PartialD]", RowBox[{"\[PartialD]", "\[Eta]"}]], RowBox[{"(", GridBox[{ { SubscriptBox[ OverscriptBox["e", "\[RightVector]"], "\[Alpha]"]}, {GridBox[{ { SubscriptBox[ OverscriptBox["e", "\[RightVector]"], "\[Beta]"]}, { SubscriptBox[ OverscriptBox["e", "\[RightVector]"], "\[Gamma]"]} }]} }], ")"}]}], "=", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"(", RowBox[{ FractionBox["\[PartialD]", RowBox[{"\[PartialD]", "\[Eta]"}]], RowBox[{"[", "FF", "]"}]}], ")"}], "[", "FF", "]"}], RowBox[{"-", "1"}]], RowBox[{"(", GridBox[{ { SubscriptBox[ OverscriptBox["e", "\[RightVector]"], "\[Alpha]"]}, {GridBox[{ { SubscriptBox[ OverscriptBox["e", "\[RightVector]"], "\[Beta]"]}, { SubscriptBox[ OverscriptBox["e", "\[RightVector]"], "\[Gamma]"]} }]} }], ")"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Hessian", ":", " ", RowBox[{"(", GridBox[{ { RowBox[{ RowBox[{"\[PartialD]", OverscriptBox["r", "\[RightVector]"]}], "/", RowBox[{"\[PartialD]", "\[Alpha]"}]}]}, {GridBox[{ { RowBox[{ RowBox[{"\[PartialD]", OverscriptBox["r", "\[RightVector]"]}], "/", RowBox[{"\[PartialD]", "\[Beta]"}]}]}, { RowBox[{ RowBox[{"\[PartialD]", OverscriptBox["r", "\[RightVector]"]}], "/", RowBox[{"\[PartialD]", "\[Gamma]"}]}]} }]} }], ")"}]}], "=", RowBox[{ RowBox[{"[", "HH", "]"}], RowBox[{"(", GridBox[{ { OverscriptBox["i", "\[RightVector]"]}, {GridBox[{ { OverscriptBox["j", "\[RightVector]"]}, { OverscriptBox["k", "\[RightVector]"]} }]} }], ")"}]}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Gradient", ":", " ", RowBox[{ RowBox[{"\[Del]", "=", RowBox[{ SuperscriptBox[ RowBox[{"(", GridBox[{ { SubscriptBox[ OverscriptBox["e", "\[RightVector]"], "\[Alpha]"]}, {GridBox[{ { SubscriptBox[ OverscriptBox["e", "\[RightVector]"], "\[Beta]"]}, { SubscriptBox[ OverscriptBox["e", "\[RightVector]"], "\[Gamma]"]} }]} }], ")"}], "T"], "[", "GG", "]"}]}], RowBox[{"(", GridBox[{ { RowBox[{"\[PartialD]", RowBox[{"/", RowBox[{"\[PartialD]", "\[Alpha]"}]}]}]}, {GridBox[{ { RowBox[{"\[PartialD]", RowBox[{"/", RowBox[{"\[PartialD]", "\[Beta]"}]}]}]}, { RowBox[{"\[PartialD]", RowBox[{"/", RowBox[{"\[PartialD]", "\[Gamma]"}]}]}]} }]} }], ")"}]}]}], ",", " ", RowBox[{ RowBox[{"[", "GG", "]"}], "=", SuperscriptBox[ RowBox[{"(", SuperscriptBox[ RowBox[{ RowBox[{"[", "HH", "]"}], "[", "FF", "]"}], "T"], ")"}], RowBox[{"-", "1"}]]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Curvature", ":", " ", "\[Kappa]\[Kappa]"}], "=", SubscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[Del]", "0"], SubscriptBox[ OverscriptBox["e", "\[RightVector]"], "n"]}], ")"}], "c"], " "}]}], "Input", Evaluatable->False, CellChangeTimes->{{3.791950241022375*^9, 3.7919505239008274`*^9}, { 3.7919505558558664`*^9, 3.791950709448852*^9}, {3.7919507660431957`*^9, 3.791950837754595*^9}, {3.79195087830024*^9, 3.791950956395948*^9}, 3.7919509906809344`*^9, {3.7919510739928904`*^9, 3.7919517120990496`*^9}, { 3.791951746098464*^9, 3.791951772019127*^9}, {3.7919518951209593`*^9, 3.7919520096910634`*^9}, 3.79195206368932*^9, {3.7919522517818623`*^9, 3.7919524305569515`*^9}, {3.7919529532681456`*^9, 3.791952981289525*^9}, { 3.791953030423273*^9, 3.7919530369352818`*^9}},ExpressionUUID->"9e21d708-2c4c-4b15-a362-\ a62d9b321f75"] }, Closed]], Cell[CellGroupData[{ Cell["Cylindrical solid system", "Subsection", CellChangeTimes->{ 3.4710857577642*^9, {3.4710858112098*^9, 3.4710858239082003`*^9}, { 3.4710859049969997`*^9, 3.4710859061046*^9}, {3.4710892678536*^9, 3.4710892701*^9}, 3.4710893817648*^9, {3.4710894793115997`*^9, 3.4710895039596*^9}, {3.4710905118050003`*^9, 3.471090512741*^9}, { 3.4725252603414*^9, 3.472525264101*^9}, {3.4725253064862003`*^9, 3.4725253370934*^9}, {3.4747629998582*^9, 3.4747630055678*^9}, { 3.4752273878873997`*^9, 3.4752273904926*^9}, {3.4753663741484003`*^9, 3.4753664116352*^9}, {3.4753773567911997`*^9, 3.475377356916*^9}, 3.4753775870472*^9, {3.4754620951394*^9, 3.4754621031266003`*^9}, { 3.4779795207265997`*^9, 3.4779795250576*^9}, {3.4781723763912*^9, 3.4781723803691998`*^9}, {3.4781776626736*^9, 3.4781776635628*^9}, { 3.4781800950726*^9, 3.4781800976154003`*^9}, 3.4785220883716*^9, { 3.4802390003438*^9, 3.4802390181902*^9}, {3.60315471527808*^9, 3.6031547167444825`*^9}, 3.603155521690296*^9, {3.6660843947173185`*^9, 3.6660843958873205`*^9}, {3.6660852732892294`*^9, 3.6660852822904453`*^9}, {3.6964934969791903`*^9, 3.696493529669236*^9}, 3.696493658969417*^9, {3.696500606350078*^9, 3.696500624720104*^9}, { 3.6965019445919514`*^9, 3.6965019665919824`*^9}, {3.696502040442086*^9, 3.6965020414520874`*^9}, {3.791952497157584*^9, 3.791952504410621*^9}, { 3.791953177295227*^9, 3.791953184330231*^9}},ExpressionUUID->"8478dd95-e374-4c5a-a325-\ 150d3ea97de6"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"rr", "=", RowBox[{"{", RowBox[{ RowBox[{"r", " ", RowBox[{"Cos", "[", "\[Phi]", "]"}]}], ",", RowBox[{"r", " ", RowBox[{"Sin", "[", "\[Phi]", "]"}]}], ",", "z"}], "}"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"var", "=", RowBox[{"{", RowBox[{"r", ",", "\[Phi]", ",", "z"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"cnd", "=", " ", RowBox[{"r", ">", "0"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"FF", "[", RowBox[{"rr", ",", "var", ",", "cnd"}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{ StyleBox["MatrixForm", "OperatorCharacter"], StyleBox["/@", "OperatorCharacter"], StyleBox[" ", "OperatorCharacter"], RowBox[{"DF", "[", RowBox[{"rr", ",", "var", ",", "cnd"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"GG", "[", RowBox[{"rr", ",", "var", ",", "cnd"}], "]"}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.6660967834123464`*^9, 3.666096788482355*^9}, { 3.695949560175663*^9, 3.695949567405673*^9}, {3.695949627465757*^9, 3.695949628675759*^9}, {3.6964935354592447`*^9, 3.696493668959431*^9}, 3.696501778351719*^9, {3.6965019414619474`*^9, 3.6965019419319477`*^9}, { 3.6965019731219916`*^9, 3.6965020166720524`*^9}, {3.696502051582102*^9, 3.6965020719521303`*^9}, {3.6965021140421886`*^9, 3.6965021543522453`*^9}, {3.6965772421616664`*^9, 3.6965772681417027`*^9}, {3.824270875473936*^9, 3.8242709218363714`*^9}},ExpressionUUID->"7ce10ac9-8b8c-45db-805b-\ f3cea387ccee"] }, Closed]], Cell[CellGroupData[{ Cell["Spherical solid system", "Subsection", CellChangeTimes->{ 3.4710857577642*^9, {3.4710858112098*^9, 3.4710858239082003`*^9}, { 3.4710859049969997`*^9, 3.4710859061046*^9}, {3.4710892678536*^9, 3.4710892701*^9}, 3.4710893817648*^9, {3.4710894793115997`*^9, 3.4710895039596*^9}, {3.4710905118050003`*^9, 3.471090512741*^9}, { 3.4725252603414*^9, 3.472525264101*^9}, {3.4725253064862003`*^9, 3.4725253370934*^9}, {3.4747629998582*^9, 3.4747630055678*^9}, { 3.4752273878873997`*^9, 3.4752273904926*^9}, {3.4753663741484003`*^9, 3.4753664116352*^9}, {3.4753773567911997`*^9, 3.475377356916*^9}, 3.4753775870472*^9, {3.4754620951394*^9, 3.4754621031266003`*^9}, { 3.4779795207265997`*^9, 3.4779795250576*^9}, {3.4781723763912*^9, 3.4781723803691998`*^9}, {3.4781776626736*^9, 3.4781776635628*^9}, { 3.4781800950726*^9, 3.4781800976154003`*^9}, 3.4785220883716*^9, { 3.4802390003438*^9, 3.4802390181902*^9}, {3.60315471527808*^9, 3.6031547167444825`*^9}, 3.603155521690296*^9, {3.6660843947173185`*^9, 3.6660843958873205`*^9}, {3.6660852732892294`*^9, 3.6660852822904453`*^9}, {3.6964934969791903`*^9, 3.696493529669236*^9}, 3.696493658969417*^9, {3.696500606350078*^9, 3.696500624720104*^9}, { 3.6965019445919514`*^9, 3.6965019665919824`*^9}, {3.696502040442086*^9, 3.6965020414520874`*^9}, {3.6965021900922956`*^9, 3.696502192862299*^9}, 3.791952512996173*^9, {3.791953199716821*^9, 3.791953204985473*^9}},ExpressionUUID->"2cb4bc58-2185-4d13-a3e0-\ d7390d85f976"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"rr", "=", RowBox[{"r", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", RowBox[{"Cos", "[", "\[Phi]", "]"}]}], ",", RowBox[{ RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", RowBox[{"Sin", "[", "\[Phi]", "]"}]}], ",", RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "}"}]}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"var", "=", RowBox[{"{", RowBox[{"\[Theta]", ",", "\[Phi]", ",", "r"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"cnd", "=", " ", RowBox[{ RowBox[{"r", ">", "0"}], "&&", " ", RowBox[{"\[Theta]", ">", "0"}], " ", "&&", " ", RowBox[{"\[Theta]", "<", "Pi"}]}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"FF", "[", RowBox[{"rr", ",", "var", ",", "cnd"}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{ StyleBox["MatrixForm", "OperatorCharacter"], StyleBox["/@", "OperatorCharacter"], StyleBox[" ", "OperatorCharacter"], RowBox[{"DF", "[", RowBox[{"rr", ",", "var", ",", "cnd"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"GG", "[", RowBox[{"rr", ",", "var", ",", "cnd"}], "]"}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.6660967834123464`*^9, 3.666096788482355*^9}, { 3.695949560175663*^9, 3.695949567405673*^9}, {3.695949627465757*^9, 3.695949628675759*^9}, {3.6964935354592447`*^9, 3.696493668959431*^9}, 3.696501778351719*^9, {3.6965019414619474`*^9, 3.6965019419319477`*^9}, { 3.6965019731219916`*^9, 3.6965020166720524`*^9}, {3.696502051582102*^9, 3.6965020719521303`*^9}, {3.6965021140421886`*^9, 3.6965021543522453`*^9}, {3.6965022136623287`*^9, 3.6965022658224015`*^9}}, CellLabel->"In[15]:=",ExpressionUUID->"74b9353b-1452-4e62-a78d-3235349ec1ef"] }, Closed]], Cell[CellGroupData[{ Cell["Circular beam system", "Subsection", CellChangeTimes->{ 3.4710857577642*^9, {3.4710858112098*^9, 3.4710858239082003`*^9}, { 3.4710859049969997`*^9, 3.4710859061046*^9}, {3.4710892678536*^9, 3.4710892701*^9}, 3.4710893817648*^9, {3.4710894793115997`*^9, 3.4710895039596*^9}, {3.4710905118050003`*^9, 3.471090512741*^9}, { 3.4725252603414*^9, 3.472525264101*^9}, {3.4725253064862003`*^9, 3.4725253370934*^9}, {3.4747629998582*^9, 3.4747630055678*^9}, { 3.4752273878873997`*^9, 3.4752273904926*^9}, {3.4753663741484003`*^9, 3.4753664116352*^9}, {3.4753773567911997`*^9, 3.475377356916*^9}, 3.4753775870472*^9, {3.4754620951394*^9, 3.4754621031266003`*^9}, { 3.4779795207265997`*^9, 3.4779795250576*^9}, {3.4781723763912*^9, 3.4781723803691998`*^9}, {3.4781776626736*^9, 3.4781776635628*^9}, { 3.4781800950726*^9, 3.4781800976154003`*^9}, 3.4785220883716*^9, { 3.4802390003438*^9, 3.4802390181902*^9}, {3.60315471527808*^9, 3.6031547167444825`*^9}, 3.603155521690296*^9, {3.6660843947173185`*^9, 3.6660843958873205`*^9}, {3.6660852732892294`*^9, 3.6660852822904453`*^9}, {3.6964934969791903`*^9, 3.696493529669236*^9}, 3.696493658969417*^9, {3.696500606350078*^9, 3.696500624720104*^9}, { 3.696502020912059*^9, 3.6965020458920937`*^9}, {3.696502383202566*^9, 3.6965024093926024`*^9}, {3.7919525170307794`*^9, 3.791952521271451*^9}, { 3.791953208106427*^9, 3.791953221146119*^9}},ExpressionUUID->"9e6b9f11-dc9d-485c-899d-\ d3dc5bbd7083"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"r0", "=", RowBox[{"{", RowBox[{ RowBox[{"R", " ", RowBox[{"Cos", "[", "\[Alpha]", "]"}]}], ",", RowBox[{"R", " ", RowBox[{"Sin", "[", "\[Alpha]", "]"}]}], ",", "0"}], "}"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"var", "=", RowBox[{"{", RowBox[{"\[Alpha]", ",", "n", ",", "b"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"cnd", "=", " ", RowBox[{"R", ">", "0"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"FF", "[", RowBox[{"r0", ",", "var", ",", "cnd"}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{ StyleBox["MatrixForm", "OperatorCharacter"], StyleBox["/@", "OperatorCharacter"], StyleBox[" ", "OperatorCharacter"], RowBox[{"DF", "[", RowBox[{"r0", ",", "var", ",", "cnd"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"GG", "[", RowBox[{"r0", ",", "var", ",", "cnd"}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"\[Kappa]\[Kappa]", "[", RowBox[{"r0", ",", "var", ",", "cnd"}], "]"}], "]"}], " "}]}], "Input", CellChangeTimes->{{3.6660967834123464`*^9, 3.666096788482355*^9}, { 3.695949560175663*^9, 3.695949567405673*^9}, {3.695949627465757*^9, 3.695949628675759*^9}, {3.6964935354592447`*^9, 3.696493668959431*^9}, 3.696501778351719*^9}, CellLabel->"In[16]:=",ExpressionUUID->"c9070d89-63eb-4c7e-9e73-1c40217ac58a"] }, Closed]], Cell[CellGroupData[{ Cell["Spring beam system", "Subsection", CellChangeTimes->{ 3.4710857577642*^9, {3.4710858112098*^9, 3.4710858239082003`*^9}, { 3.4710859049969997`*^9, 3.4710859061046*^9}, {3.4710892678536*^9, 3.4710892701*^9}, 3.4710893817648*^9, {3.4710894793115997`*^9, 3.4710895039596*^9}, {3.4710905118050003`*^9, 3.471090512741*^9}, { 3.4725252603414*^9, 3.472525264101*^9}, {3.4725253064862003`*^9, 3.4725253370934*^9}, {3.4747629998582*^9, 3.4747630055678*^9}, { 3.4752273878873997`*^9, 3.4752273904926*^9}, {3.4753663741484003`*^9, 3.4753664116352*^9}, {3.4753773567911997`*^9, 3.475377356916*^9}, 3.4753775870472*^9, {3.4754620951394*^9, 3.4754621031266003`*^9}, { 3.4779795207265997`*^9, 3.4779795250576*^9}, {3.4781723763912*^9, 3.4781723803691998`*^9}, {3.4781776626736*^9, 3.4781776635628*^9}, { 3.4781800950726*^9, 3.4781800976154003`*^9}, 3.4785220883716*^9, { 3.4802390003438*^9, 3.4802390181902*^9}, {3.60315471527808*^9, 3.6031547167444825`*^9}, 3.603155521690296*^9, {3.6660843947173185`*^9, 3.6660843958873205`*^9}, {3.6660852732892294`*^9, 3.6660852822904453`*^9}, {3.6964934969791903`*^9, 3.696493529669236*^9}, 3.696493658969417*^9, {3.696500606350078*^9, 3.696500624720104*^9}, { 3.696502020912059*^9, 3.6965020458920937`*^9}, {3.696502383202566*^9, 3.6965024093926024`*^9}, {3.6966472704676485`*^9, 3.696647272497651*^9}, { 3.791952529219052*^9, 3.791952530995529*^9}, {3.791953215124217*^9, 3.791953216483968*^9}},ExpressionUUID->"6a88d7f9-7213-49ea-ac77-\ 08ca128e2986"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"r0", "=", RowBox[{"{", RowBox[{ RowBox[{"R", " ", RowBox[{"Cos", "[", FractionBox["s", SqrtBox[ RowBox[{ SuperscriptBox["R", "2"], "+", SuperscriptBox["h", "2"]}]]], "]"}]}], ",", RowBox[{"R", " ", RowBox[{"Sin", "[", FractionBox["s", SqrtBox[ RowBox[{ SuperscriptBox["R", "2"], "+", SuperscriptBox["h", "2"]}]]], "]"}]}], ",", RowBox[{"h", FractionBox["s", SqrtBox[ RowBox[{ SuperscriptBox["R", "2"], "+", SuperscriptBox["h", "2"]}]]]}]}], "}"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"var", "=", RowBox[{"{", RowBox[{"s", ",", "n", ",", "b"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"cnd", "=", " ", RowBox[{ RowBox[{"R", ">", "0"}], " ", "&&", " ", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["R", "2"], "+", SuperscriptBox["h", "2"]}], ")"}], ">", "0"}]}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"FF", "[", RowBox[{"r0", ",", "var", ",", "cnd"}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{ StyleBox["MatrixForm", "OperatorCharacter"], StyleBox["/@", "OperatorCharacter"], StyleBox[" ", "OperatorCharacter"], RowBox[{"DF", "[", RowBox[{"r0", ",", "var", ",", "cnd"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"GG", "[", RowBox[{"r0", ",", "var", ",", "cnd"}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{ RowBox[{"\[Kappa]\[Kappa]", "[", RowBox[{"r0", ",", "var", ",", "cnd"}], "]"}], " ", "/.", " ", RowBox[{"n", "\[Rule]", "0"}]}], "]"}], " "}]}], "Input", CellChangeTimes->{{3.6660967834123464`*^9, 3.666096788482355*^9}, { 3.695949560175663*^9, 3.695949567405673*^9}, {3.695949627465757*^9, 3.695949628675759*^9}, {3.6964935354592447`*^9, 3.696493668959431*^9}, 3.696501778351719*^9, 3.696647281147663*^9, {3.6966473200277176`*^9, 3.696647392447819*^9}, {3.696647444357892*^9, 3.6966474488978987`*^9}, 3.696647518647996*^9, 3.6966476156981316`*^9}, CellLabel->"In[37]:=",ExpressionUUID->"91651d3b-281b-4f16-bdba-de3985ebdd77"] }, Closed]], Cell[CellGroupData[{ Cell["Cylindrical plate system", "Subsection", CellChangeTimes->{ 3.4710857577642*^9, {3.4710858112098*^9, 3.4710858239082003`*^9}, { 3.4710859049969997`*^9, 3.4710859061046*^9}, {3.4710892678536*^9, 3.4710892701*^9}, 3.4710893817648*^9, {3.4710894793115997`*^9, 3.4710895039596*^9}, {3.4710905118050003`*^9, 3.471090512741*^9}, { 3.4725252603414*^9, 3.472525264101*^9}, {3.4725253064862003`*^9, 3.4725253370934*^9}, {3.4747629998582*^9, 3.4747630055678*^9}, { 3.4752273878873997`*^9, 3.4752273904926*^9}, {3.4753663741484003`*^9, 3.4753664116352*^9}, {3.4753773567911997`*^9, 3.475377356916*^9}, 3.4753775870472*^9, {3.4754620951394*^9, 3.4754621031266003`*^9}, { 3.4779795207265997`*^9, 3.4779795250576*^9}, {3.4781723763912*^9, 3.4781723803691998`*^9}, {3.4781776626736*^9, 3.4781776635628*^9}, { 3.4781800950726*^9, 3.4781800976154003`*^9}, 3.4785220883716*^9, { 3.4802390003438*^9, 3.4802390181902*^9}, {3.60315471527808*^9, 3.6031547167444825`*^9}, 3.603155521690296*^9, {3.6660843947173185`*^9, 3.6660843958873205`*^9}, {3.6660852732892294`*^9, 3.6660852822904453`*^9}, {3.6964934969791903`*^9, 3.696493529669236*^9}, { 3.6965005897200546`*^9, 3.6965006282901087`*^9}, {3.696502370512548*^9, 3.696502417842614*^9}, {3.7919525342641773`*^9, 3.7919525413884277`*^9}, { 3.791953224665785*^9, 3.791953230667413*^9}},ExpressionUUID->"a411d087-ad44-4712-bfae-\ 912cabed599a"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"r0", "=", RowBox[{"{", RowBox[{ RowBox[{"R", " ", RowBox[{"Cos", "[", "\[Phi]", "]"}]}], ",", RowBox[{"R", " ", RowBox[{"Sin", "[", "\[Phi]", "]"}]}], ",", "z"}], "}"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"var", "=", RowBox[{"{", RowBox[{"z", ",", "\[Phi]", ",", "n"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"cnd", "=", " ", RowBox[{"R", ">", "0"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"FF", "[", RowBox[{"r0", ",", "var", ",", "cnd"}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{ StyleBox["MatrixForm", "OperatorCharacter"], StyleBox["/@", "OperatorCharacter"], StyleBox[" ", "OperatorCharacter"], RowBox[{"DF", "[", RowBox[{"r0", ",", "var", ",", "cnd"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"GG", "[", RowBox[{"r0", ",", "var", ",", "cnd"}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{ RowBox[{"\[Kappa]\[Kappa]", "[", RowBox[{"r0", ",", "var", ",", "cnd"}], "]"}], " ", "/.", " ", RowBox[{"n", "\[Rule]", "0"}]}], "]"}], " "}]}], "Input", CellChangeTimes->{{3.6660967834123464`*^9, 3.666096788482355*^9}, { 3.695949560175663*^9, 3.695949567405673*^9}, {3.695949627465757*^9, 3.695949628675759*^9}, {3.6964935354592447`*^9, 3.69649358242931*^9}, { 3.696500642310128*^9, 3.696500711620226*^9}, {3.6965008884704733`*^9, 3.6965008914804773`*^9}, 3.6965010431206894`*^9, 3.696501077770738*^9, 3.6965011458808336`*^9, {3.6965012164109325`*^9, 3.6965013067910585`*^9}, { 3.69650136490114*^9, 3.696501414051209*^9}, {3.69650145778127*^9, 3.6965014622612762`*^9}, 3.6965015164013524`*^9, {3.6965016445915318`*^9, 3.6965016522815423`*^9}, {3.6965017653817005`*^9, 3.69650178629173*^9}, { 3.696502449802659*^9, 3.6965024554526668`*^9}, {3.69650249304272*^9, 3.6965025244527636`*^9}},ExpressionUUID->"35b3ddcf-73eb-4259-9b74-\ 8674bcc731c5"] }, Closed]], Cell[CellGroupData[{ Cell["Spherical plate system", "Subsection", CellChangeTimes->{ 3.4710857577642*^9, {3.4710858112098*^9, 3.4710858239082003`*^9}, { 3.4710859049969997`*^9, 3.4710859061046*^9}, {3.4710892678536*^9, 3.4710892701*^9}, 3.4710893817648*^9, {3.4710894793115997`*^9, 3.4710895039596*^9}, {3.4710905118050003`*^9, 3.471090512741*^9}, { 3.4725252603414*^9, 3.472525264101*^9}, {3.4725253064862003`*^9, 3.4725253370934*^9}, {3.4747629998582*^9, 3.4747630055678*^9}, { 3.4752273878873997`*^9, 3.4752273904926*^9}, {3.4753663741484003`*^9, 3.4753664116352*^9}, {3.4753773567911997`*^9, 3.475377356916*^9}, 3.4753775870472*^9, {3.4754620951394*^9, 3.4754621031266003`*^9}, { 3.4779795207265997`*^9, 3.4779795250576*^9}, {3.4781723763912*^9, 3.4781723803691998`*^9}, {3.4781776626736*^9, 3.4781776635628*^9}, { 3.4781800950726*^9, 3.4781800976154003`*^9}, 3.4785220883716*^9, { 3.4802390003438*^9, 3.4802390181902*^9}, {3.60315471527808*^9, 3.6031547167444825`*^9}, 3.603155521690296*^9, {3.6660843947173185`*^9, 3.6660843958873205`*^9}, {3.6660852732892294`*^9, 3.6660852822904453`*^9}, {3.6964934969791903`*^9, 3.696493529669236*^9}, { 3.6965005897200546`*^9, 3.6965006282901087`*^9}, {3.696502370512548*^9, 3.696502417842614*^9}, {3.696502599122868*^9, 3.6965026014728713`*^9}, { 3.791952554380402*^9, 3.791952554990651*^9}, {3.7919532351308217`*^9, 3.791953241005062*^9}},ExpressionUUID->"ce2c1936-6b68-4b2e-b71a-\ 439ff336dd4b"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"r0", "=", RowBox[{"R", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", RowBox[{"Cos", "[", "\[Phi]", "]"}]}], ",", RowBox[{ RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", RowBox[{"Sin", "[", "\[Phi]", "]"}]}], ",", RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "}"}]}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"var", "=", RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "n"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"cnd", "=", " ", RowBox[{ RowBox[{"R", ">", "0"}], "&&", " ", RowBox[{"\[Theta]", ">", "0"}], " ", "&&", " ", RowBox[{"\[Theta]", "<", "Pi"}]}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"FF", "[", RowBox[{"r0", ",", "var", ",", "cnd"}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{ StyleBox["MatrixForm", "OperatorCharacter"], StyleBox["/@", "OperatorCharacter"], StyleBox[" ", "OperatorCharacter"], RowBox[{"DF", "[", RowBox[{"r0", ",", "var", ",", "cnd"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"GG", "[", RowBox[{"r0", ",", "var", ",", "cnd"}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{ RowBox[{"\[Kappa]\[Kappa]", "[", RowBox[{"r0", ",", "var", ",", "cnd"}], "]"}], " ", "/.", " ", RowBox[{"n", "\[Rule]", "0"}]}], "]"}], " "}]}], "Input", CellChangeTimes->{{3.6660967834123464`*^9, 3.666096788482355*^9}, { 3.695949560175663*^9, 3.695949567405673*^9}, {3.695949627465757*^9, 3.695949628675759*^9}, {3.6964935354592447`*^9, 3.69649358242931*^9}, { 3.696500642310128*^9, 3.696500711620226*^9}, {3.6965008884704733`*^9, 3.6965008914804773`*^9}, 3.6965010431206894`*^9, 3.696501077770738*^9, 3.6965011458808336`*^9, {3.6965012164109325`*^9, 3.6965013067910585`*^9}, { 3.69650136490114*^9, 3.696501414051209*^9}, {3.69650145778127*^9, 3.6965014622612762`*^9}, 3.6965015164013524`*^9, {3.6965016445915318`*^9, 3.6965016522815423`*^9}, {3.6965017653817005`*^9, 3.69650178629173*^9}, { 3.696502449802659*^9, 3.6965024554526668`*^9}, {3.69650249304272*^9, 3.6965025244527636`*^9}, {3.696502627802908*^9, 3.69650264333293*^9}, { 3.6965026986630077`*^9, 3.6965027042830153`*^9}},ExpressionUUID->"c5b0ef22-29b7-4e15-9c41-\ 2536a3d79581"] }, Closed]], Cell[CellGroupData[{ Cell["Toroidal plate system", "Subsection", CellChangeTimes->{ 3.4710857577642*^9, {3.4710858112098*^9, 3.4710858239082003`*^9}, { 3.4710859049969997`*^9, 3.4710859061046*^9}, {3.4710892678536*^9, 3.4710892701*^9}, 3.4710893817648*^9, {3.4710894793115997`*^9, 3.4710895039596*^9}, {3.4710905118050003`*^9, 3.471090512741*^9}, { 3.4725252603414*^9, 3.472525264101*^9}, {3.4725253064862003`*^9, 3.4725253370934*^9}, {3.4747629998582*^9, 3.4747630055678*^9}, { 3.4752273878873997`*^9, 3.4752273904926*^9}, {3.4753663741484003`*^9, 3.4753664116352*^9}, {3.4753773567911997`*^9, 3.475377356916*^9}, 3.4753775870472*^9, {3.4754620951394*^9, 3.4754621031266003`*^9}, { 3.4779795207265997`*^9, 3.4779795250576*^9}, {3.4781723763912*^9, 3.4781723803691998`*^9}, {3.4781776626736*^9, 3.4781776635628*^9}, { 3.4781800950726*^9, 3.4781800976154003`*^9}, 3.4785220883716*^9, { 3.4802390003438*^9, 3.4802390181902*^9}, {3.60315471527808*^9, 3.6031547167444825`*^9}, 3.603155521690296*^9, {3.6660843947173185`*^9, 3.6660843958873205`*^9}, {3.6660852732892294`*^9, 3.6660852822904453`*^9}, {3.6964934969791903`*^9, 3.696493529669236*^9}, { 3.6965005897200546`*^9, 3.6965006282901087`*^9}, {3.696502370512548*^9, 3.696502417842614*^9}, {3.696502599122868*^9, 3.6965026014728713`*^9}, { 3.69650278616313*^9, 3.6965027886631336`*^9}, {3.791952558161487*^9, 3.791952558666793*^9}, {3.791953244929482*^9, 3.7919532510790133`*^9}},ExpressionUUID->"1855d76e-ab44-4a79-b196-\ 65f9d0364c4b"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"Toroidal", " ", "shell", " ", "domain"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"r0", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"R", "+", RowBox[{"r", " ", RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], ")"}], " ", RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", "\[Phi]", "]"}], ",", RowBox[{"Sin", "[", "\[Phi]", "]"}], ",", "0"}], "}"}]}], "+", RowBox[{"r", " ", RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}]}]}], ";"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"var", "=", RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", "n"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cnd", "=", RowBox[{ RowBox[{"r", ">", "0"}], "&&", " ", RowBox[{"R", ">", "0"}], "&&", " ", RowBox[{"\[Theta]", ">", "0"}], " ", "&&", " ", RowBox[{ RowBox[{"R", "+", RowBox[{"r", " ", RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], ">", "0"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"FF", "[", RowBox[{"r0", ",", "var", ",", "cnd"}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{ StyleBox["MatrixForm", "OperatorCharacter"], StyleBox["/@", "OperatorCharacter"], StyleBox[" ", "OperatorCharacter"], RowBox[{"DF", "[", RowBox[{"r0", ",", "var", ",", "cnd"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"GG", "[", RowBox[{"r0", ",", "var", ",", "cnd"}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{ RowBox[{"\[Kappa]\[Kappa]", "[", RowBox[{"r0", ",", "var", ",", "cnd"}], "]"}], " ", "/.", " ", RowBox[{"n", "\[Rule]", "0"}]}], "]"}], " "}]}]], "Input", CellChangeTimes->{{3.6660967834123464`*^9, 3.666096788482355*^9}, { 3.695949560175663*^9, 3.695949567405673*^9}, {3.695949627465757*^9, 3.695949628675759*^9}, {3.6964935354592447`*^9, 3.69649358242931*^9}, { 3.696500642310128*^9, 3.696500711620226*^9}, {3.6965008884704733`*^9, 3.6965008914804773`*^9}, 3.6965010431206894`*^9, 3.696501077770738*^9, 3.6965011458808336`*^9, {3.6965012164109325`*^9, 3.6965013067910585`*^9}, { 3.69650136490114*^9, 3.696501414051209*^9}, {3.69650145778127*^9, 3.6965014622612762`*^9}, 3.6965015164013524`*^9, {3.6965016445915318`*^9, 3.6965016522815423`*^9}, {3.6965017653817005`*^9, 3.69650178629173*^9}, { 3.696502449802659*^9, 3.6965024554526668`*^9}, {3.69650249304272*^9, 3.6965025244527636`*^9}, {3.696502627802908*^9, 3.69650264333293*^9}, { 3.6965026986630077`*^9, 3.6965027042830153`*^9}, {3.696502829903191*^9, 3.696502914273309*^9}, {3.6965029488933578`*^9, 3.696502952643363*^9}, { 3.6965030216034594`*^9, 3.696503034713478*^9}, {3.6966445953319035`*^9, 3.696644603591915*^9}},ExpressionUUID->"c4d6f12e-bd4e-4f9c-b021-\ 572114943f54"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", RowBox[{"Sin", "[", "\[Phi]", "]"}]}], RowBox[{"Cos", "[", "\[Phi]", "]"}], "0"}, { RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", "\[Phi]", "]"}]}], " ", RowBox[{"Sin", "[", "\[Theta]", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", "\[Theta]", "]"}]}], " ", RowBox[{"Sin", "[", "\[Phi]", "]"}]}], RowBox[{"Cos", "[", "\[Theta]", "]"}]}, { RowBox[{ RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", RowBox[{"Cos", "[", "\[Phi]", "]"}]}], RowBox[{ RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", RowBox[{"Sin", "[", "\[Phi]", "]"}]}], RowBox[{"Sin", "[", "\[Theta]", "]"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.728120897718967*^9},ExpressionUUID->"1bd66cdf-8c06-4b15-afd4-\ 37d951fc7ff2"], Cell[BoxData[ RowBox[{"{", RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"Sin", "[", "\[Theta]", "]"}], RowBox[{"-", RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}, { RowBox[{"-", RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "0", "0"}, { RowBox[{"Cos", "[", "\[Theta]", "]"}], "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0"}, {"0", "0", RowBox[{"-", "1"}]}, {"0", "1", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "}"}]], "Output", CellChangeTimes->{ 3.7281208977502213`*^9},ExpressionUUID->"a28e115a-775b-4fc6-8615-\ f45aa7a80586"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { FractionBox["1", RowBox[{"R", "+", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "r"}], ")"}], " ", RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}]], "0", "0"}, {"0", FractionBox["1", RowBox[{"n", "+", "r"}]], "0"}, {"0", "0", "1"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.7281208985159273`*^9},ExpressionUUID->"7ec5db89-2e47-4ac7-95b2-\ f344e7666e50"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { FractionBox[ RowBox[{"Cos", "[", "\[Theta]", "]"}], RowBox[{"R", "+", RowBox[{"r", " ", RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}]], "0", "0"}, {"0", FractionBox["1", "r"], "0"}, {"0", "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.7281208986096635`*^9},ExpressionUUID->"43ffc774-c503-4b11-afa8-\ 1ffb91c6f6fe"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Conical plate system", "Subsection", CellChangeTimes->{ 3.4710857577642*^9, {3.4710858112098*^9, 3.4710858239082003`*^9}, { 3.4710859049969997`*^9, 3.4710859061046*^9}, {3.4710892678536*^9, 3.4710892701*^9}, 3.4710893817648*^9, {3.4710894793115997`*^9, 3.4710895039596*^9}, {3.4710905118050003`*^9, 3.471090512741*^9}, { 3.4725252603414*^9, 3.472525264101*^9}, {3.4725253064862003`*^9, 3.4725253370934*^9}, {3.4747629998582*^9, 3.4747630055678*^9}, { 3.4752273878873997`*^9, 3.4752273904926*^9}, {3.4753663741484003`*^9, 3.4753664116352*^9}, {3.4753773567911997`*^9, 3.475377356916*^9}, 3.4753775870472*^9, {3.4754620951394*^9, 3.4754621031266003`*^9}, { 3.4779795207265997`*^9, 3.4779795250576*^9}, {3.4781723763912*^9, 3.4781723803691998`*^9}, {3.4781776626736*^9, 3.4781776635628*^9}, { 3.4781800950726*^9, 3.4781800976154003`*^9}, 3.4785220883716*^9, { 3.4802390003438*^9, 3.4802390181902*^9}, {3.60315471527808*^9, 3.6031547167444825`*^9}, 3.603155521690296*^9, {3.6660843947173185`*^9, 3.6660843958873205`*^9}, {3.6660852732892294`*^9, 3.6660852822904453`*^9}, {3.6964934969791903`*^9, 3.696493529669236*^9}, { 3.6965005897200546`*^9, 3.6965006282901087`*^9}, {3.696502370512548*^9, 3.696502417842614*^9}, {3.696502599122868*^9, 3.6965026014728713`*^9}, { 3.69650278616313*^9, 3.6965027886631336`*^9}, {3.6965032751138144`*^9, 3.696503277193817*^9}, {3.7919525617124915`*^9, 3.7919525622518*^9}, { 3.791953255729467*^9, 3.7919532616561975`*^9}},ExpressionUUID->"8100a435-831a-41a5-b86a-\ 9722737c23b5"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"r0", "=", RowBox[{"z", " ", RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", "\[Phi]", "]"}], ",", RowBox[{"Sin", "[", "\[Phi]", "]"}], ",", "\[Epsilon]"}], "}"}]}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"var", "=", RowBox[{"{", RowBox[{"z", ",", "\[Phi]", ",", "n"}], "}"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"cnd", "=", RowBox[{"z", ">", "0"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"FF", "[", RowBox[{"r0", ",", "var", ",", "cnd"}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{ StyleBox["MatrixForm", "OperatorCharacter"], StyleBox["/@", "OperatorCharacter"], StyleBox[" ", "OperatorCharacter"], RowBox[{"DF", "[", RowBox[{"r0", ",", "var", ",", "cnd"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"GG", "[", RowBox[{"r0", ",", "var", ",", "cnd"}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{ RowBox[{"\[Kappa]\[Kappa]", "[", RowBox[{"r0", ",", "var", ",", "cnd"}], "]"}], " ", "/.", " ", RowBox[{"n", "\[Rule]", "0"}]}], "]"}], " "}]}], "Input", CellChangeTimes->{{3.6660967834123464`*^9, 3.666096788482355*^9}, { 3.695949560175663*^9, 3.695949567405673*^9}, {3.695949627465757*^9, 3.695949628675759*^9}, {3.6964935354592447`*^9, 3.69649358242931*^9}, { 3.696500642310128*^9, 3.696500711620226*^9}, {3.6965008884704733`*^9, 3.6965008914804773`*^9}, 3.6965010431206894`*^9, 3.696501077770738*^9, 3.6965011458808336`*^9, {3.6965012164109325`*^9, 3.6965013067910585`*^9}, { 3.69650136490114*^9, 3.696501414051209*^9}, {3.69650145778127*^9, 3.6965014622612762`*^9}, 3.6965015164013524`*^9, {3.6965016445915318`*^9, 3.6965016522815423`*^9}, {3.6965017653817005`*^9, 3.69650178629173*^9}, { 3.696502449802659*^9, 3.6965024554526668`*^9}, {3.69650249304272*^9, 3.6965025244527636`*^9}, {3.696502627802908*^9, 3.69650264333293*^9}, { 3.6965026986630077`*^9, 3.6965027042830153`*^9}, {3.696502829903191*^9, 3.696502914273309*^9}, {3.6965029488933578`*^9, 3.696502952643363*^9}, { 3.6965030216034594`*^9, 3.696503034713478*^9}, {3.696503307023859*^9, 3.696503333323896*^9}, {3.696503366973943*^9, 3.6965033886239734`*^9}, { 3.6965034199440174`*^9, 3.6965034538740644`*^9}, {3.6965035235841627`*^9, 3.6965035470541954`*^9}, 3.7282786674792295`*^9},ExpressionUUID->"e05e3aee-a643-4e3b-ab24-\ ccf9a0edd556"] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Graphics", "Section", CellChangeTimes->{{3.542948801634627*^9, 3.5429488340054784`*^9}, { 3.54294888700751*^9, 3.5429488892326374`*^9}, {3.603154693094841*^9, 3.603154707836867*^9}, {3.666097111252185*^9, 3.666097115682593*^9}, { 3.6964818347176*^9, 3.696481842657611*^9}, {3.7919452603246107`*^9, 3.7919453113362217`*^9}},ExpressionUUID->"0455fd37-5b55-4198-8c49-\ f0ae73d4be85"], Cell[CellGroupData[{ Cell["Cylindrical plate graphics", "Subsection", CellChangeTimes->{ 3.4710857577642*^9, {3.4710858112098*^9, 3.4710858239082003`*^9}, { 3.4710859049969997`*^9, 3.4710859061046*^9}, {3.4710892678536*^9, 3.4710892701*^9}, 3.4710893817648*^9, {3.4710894793115997`*^9, 3.4710895039596*^9}, {3.4710905118050003`*^9, 3.471090512741*^9}, { 3.4724589485142*^9, 3.4724589539274*^9}, {3.4724611172438*^9, 3.4724611386001997`*^9}, {3.472468943269*^9, 3.4724689445638*^9}, { 3.4724698165922003`*^9, 3.4724698198058*^9}, {3.4724822226106*^9, 3.4724822252469997`*^9}, 3.473564312486*^9, {3.603095648328417*^9, 3.6030956491396184`*^9}, {3.6030962680707054`*^9, 3.6030962681643057`*^9}, {3.603096412433359*^9, 3.603096434569798*^9}, { 3.696481896247686*^9, 3.6964818995076904`*^9}, {3.6964819832578077`*^9, 3.6964819853078103`*^9}, {3.7919532803324337`*^9, 3.791953281110156*^9}},ExpressionUUID->"df0d3110-0b1b-436f-a371-\ 1a23071dae05"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"Cylindrical", " ", "shell", " ", "domain"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"r0", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"R", " ", RowBox[{"Cos", "[", "\[Phi]", "]"}]}], ",", RowBox[{"R", " ", RowBox[{"Sin", "[", "\[Phi]", "]"}]}], ",", "z"}], "}"}], " ", "/.", " ", RowBox[{"R", "\[Rule]", "0.5"}]}]}], ";"}], " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"zdom", " ", "=", RowBox[{"{", RowBox[{"z", ",", "0", ",", "1", ",", RowBox[{"1", "/", "2"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Phi]dom", " ", "=", RowBox[{"{", RowBox[{"\[Phi]", ",", "0", ",", "Pi", ",", RowBox[{"Pi", "/", "32"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ndom", "=", RowBox[{ RowBox[{"{", RowBox[{"n", ",", RowBox[{ RowBox[{"-", "1"}], "/", "20"}], ",", RowBox[{"1", "/", "20"}], ",", RowBox[{"1", "/", "40"}]}], "}"}], "/", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"SURFACEPLOT", "[", RowBox[{"r0", ",", "zdom", ",", "\[Phi]dom", ",", "ndom"}], "]"}], " ", "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.47099820412*^9, 3.4709982441963997`*^9}, { 3.4709982841636*^9, 3.4709984139244003`*^9}, {3.4709984525188*^9, 3.470998495217*^9}, 3.4709986392362003`*^9, {3.4709993623898*^9, 3.4709993759618*^9}, {3.4710000941369004`*^9, 3.4710003768403006`*^9}, { 3.4710004538419003`*^9, 3.4710005845387*^9}, {3.4710006147403*^9, 3.4710008755099*^9}, {3.4710009790277004`*^9, 3.4710009799013004`*^9}, { 3.4710010273877*^9, 3.4710010755293007`*^9}, {3.4710011347469006`*^9, 3.4710011353397007`*^9}, {3.4710013020257006`*^9, 3.4710013527101*^9}, { 3.4710014314901004`*^9, 3.4710014978213005`*^9}, {3.4710015332333*^9, 3.4710016230113*^9}, 3.4710016990321007`*^9, {3.4710017333545003`*^9, 3.4710018255661*^9}, {3.4710019272625003`*^9, 3.4710019545157003`*^9}, { 3.4710020061985006`*^9, 3.4710020072437005`*^9}, {3.4710021130585003`*^9, 3.4710021169117002`*^9}, {3.4710022681381006`*^9, 3.4710023131753006`*^9}, {3.4710023463721004`*^9, 3.4710023734069004`*^9}, {3.4710024303157005`*^9, 3.4710026640349007`*^9}, {3.4710026984641004`*^9, 3.4710027559033003`*^9}, {3.4710027907381*^9, 3.4710028222501*^9}, { 3.4710029648029003`*^9, 3.4710030009013004`*^9}, {3.4710030486529007`*^9, 3.4710030648769007`*^9}, {3.4710031248589*^9, 3.4710031826881003`*^9}, { 3.4710033596409006`*^9, 3.4710034167057004`*^9}, {3.4710494122444*^9, 3.4710494125875998`*^9}, {3.4710495028492002`*^9, 3.4710495460299997`*^9}, {3.4710497723859997`*^9, 3.4710498858936*^9}, { 3.471049928722*^9, 3.4710499387256002`*^9}, {3.4710499775248003`*^9, 3.4710500206275997`*^9}, {3.471050070532*^9, 3.4710500917324*^9}, { 3.4710501802156*^9, 3.4710502338952*^9}, {3.4710502694788*^9, 3.471050339788*^9}, {3.4710528445752*^9, 3.471052869972*^9}, { 3.4710572923389997`*^9, 3.4710573765322*^9}, {3.4710574482922*^9, 3.4710576210466003`*^9}, {3.4710577053178*^9, 3.471057783973*^9}, { 3.4710578398522*^9, 3.4710578798974*^9}, {3.4710579857278*^9, 3.4710579969286003`*^9}, {3.471067280638*^9, 3.4710673325236*^9}, 3.471067365658*^9, {3.4710674010232*^9, 3.471067422832*^9}, { 3.4710677004611998`*^9, 3.4710677268096*^9}, {3.4710852587202*^9, 3.471085280841*^9}, {3.4710853152546*^9, 3.4710853555962*^9}, { 3.471085394565*^9, 3.4710853959066*^9}, {3.4710854362482*^9, 3.4710854370906*^9}, {3.4710854875098*^9, 3.471085680513*^9}, { 3.4710892604904003`*^9, 3.4710893034372*^9}, {3.471089356836*^9, 3.4710893764608*^9}, {3.4710894188459997`*^9, 3.471089425788*^9}, { 3.4724589773118*^9, 3.4724589776862*^9}, {3.4724590337058*^9, 3.4724592062262*^9}, {3.4724592707790003`*^9, 3.472459517027*^9}, { 3.472461044579*^9, 3.4724610729086*^9}, {3.4724611263073997`*^9, 3.4724611623746*^9}, {3.4724611959926*^9, 3.4724612582209997`*^9}, { 3.4724613167522*^9, 3.4724613785594*^9}, {3.4724614100518*^9, 3.4724614967722*^9}, {3.4724615747878*^9, 3.472461689479*^9}, { 3.4724617301638002`*^9, 3.4724618946502*^9}, {3.4724619767998*^9, 3.4724620530214*^9}, {3.4724620884958*^9, 3.4724621006326*^9}, { 3.4724623393282003`*^9, 3.4724623760818*^9}, {3.4724661846314*^9, 3.4724665395626*^9}, {3.4724665958318*^9, 3.472466724797*^9}, { 3.4724685801166*^9, 3.4724685805690002`*^9}, 3.4724686943866*^9, { 3.4724688321034*^9, 3.4724688576717997`*^9}, 3.4724689149238*^9, { 3.4724689527693996`*^9, 3.4724690179502*^9}, {3.4724696817146*^9, 3.4724697652058*^9}, {3.4724698252502003`*^9, 3.4724698632206*^9}, { 3.472470118421*^9, 3.4724701218686*^9}, {3.4724822341858*^9, 3.4724822532178*^9}, {3.4724822840746*^9, 3.472482389047*^9}, { 3.4724824465797997`*^9, 3.4724825484322*^9}, {3.4724825811454*^9, 3.4724825927518*^9}, {3.4724826764614*^9, 3.4724826888634*^9}, { 3.4724827403122*^9, 3.4724827437754*^9}, {3.472483138549*^9, 3.4724834098174*^9}, {3.4724834809846*^9, 3.4724835016702003`*^9}, 3.4724835752866*^9, {3.472483617469*^9, 3.4724836620538*^9}, { 3.4724837426514*^9, 3.4724837545854*^9}, {3.472483817157*^9, 3.4724840938772*^9}, {3.4724841715964003`*^9, 3.4724841722047997`*^9}, { 3.4724842246208*^9, 3.4724842734332*^9}, 3.4724843040248003`*^9, { 3.4724843480011997`*^9, 3.4724843522444*^9}, {3.4724843859716*^9, 3.4724843935532*^9}, {3.4724844459536*^9, 3.4724844810848*^9}, { 3.4724845226588*^9, 3.4724845582424*^9}, {3.4724845977416*^9, 3.4724846431064*^9}, {3.4724847282044*^9, 3.472484831414*^9}, { 3.4724849352788*^9, 3.4724849889584*^9}, 3.4724850417332*^9, { 3.4724850729332*^9, 3.4724850937124*^9}, {3.4724851659132*^9, 3.4724852686703997`*^9}, {3.4724853395256*^9, 3.4724853408204*^9}, { 3.4724853955764*^9, 3.4724854591464*^9}, 3.4724854917504*^9, { 3.4724855320296*^9, 3.4724856142883997`*^9}, {3.4724856780612*^9, 3.4724857337688*^9}, {3.4724857773864*^9, 3.4724859967068*^9}, { 3.4724861010708*^9, 3.4724861330508003`*^9}, {3.4724861866368*^9, 3.4724861884308*^9}, 3.4724863147752*^9, {3.4730691016610003`*^9, 3.4730691571814003`*^9}, 3.4730691910646*^9, {3.4730692318118*^9, 3.4730693926946*^9}, {3.4730694506954*^9, 3.4730696453366003`*^9}, { 3.473069681513*^9, 3.4730696947106*^9}, {3.4730697312614*^9, 3.4730699368694*^9}, {3.4730700174912*^9, 3.4730701931472*^9}, { 3.4730702507111998`*^9, 3.473070323922*^9}, {3.4730704242924*^9, 3.4730704250256*^9}, {3.47307050769*^9, 3.4730705522904*^9}, { 3.4730705866104*^9, 3.4730706117108*^9}, {3.4730706700704*^9, 3.4730707164804*^9}, {3.473070751752*^9, 3.4730708560692*^9}, 3.4730709027444*^9, {3.4730709789192*^9, 3.4730710312416*^9}, { 3.4730711046708*^9, 3.4730711179776*^9}, {3.4730711593644*^9, 3.4730712155868*^9}, {3.4730713067064*^9, 3.4730713693872004`*^9}, { 3.4730714130828*^9, 3.4730714830488*^9}, {3.4730715954936*^9, 3.4730715973188*^9}, {3.4730716322316*^9, 3.4730717027002*^9}, 3.473071735741*^9, {3.4730717862538*^9, 3.4730717867530003`*^9}, { 3.473071877545*^9, 3.4730718860002003`*^9}, {3.4730719225198*^9, 3.4730721296254*^9}, {3.4730721652558002`*^9, 3.4730722515706*^9}, { 3.4730722878562*^9, 3.4730723251558*^9}, 3.4730723601622*^9, 3.4730723958082*^9, {3.4730724414538*^9, 3.4730727985066*^9}, { 3.4730728721542*^9, 3.4730729685642*^9}, {3.4730730453942003`*^9, 3.4730732321261997`*^9}, {3.4731243399018*^9, 3.4731243449094*^9}, 3.4731244295706*^9, {3.6030951294767056`*^9, 3.6030951722519803`*^9}, { 3.6030952607197356`*^9, 3.603095264401342*^9}, 3.6030956800588727`*^9, { 3.6030957143477325`*^9, 3.6030957145505333`*^9}, {3.603095833204342*^9, 3.6030958549195795`*^9}, {3.603096095331602*^9, 3.6030960960024033`*^9}, { 3.603098733031035*^9, 3.6030987743399076`*^9}, {3.6030988249463964`*^9, 3.6030988972993236`*^9}, 3.60309899219429*^9, {3.6030990892108603`*^9, 3.603099173139008*^9}, 3.6031024927249513`*^9, {3.6661640997424726`*^9, 3.666164100202499*^9}, {3.6661641701565*^9, 3.6661641885225506`*^9}, { 3.666164237804369*^9, 3.6661642428346567`*^9}, {3.6661642844720383`*^9, 3.6661644636692877`*^9}, {3.6661645452539544`*^9, 3.6661645610818596`*^9}, {3.666164607209498*^9, 3.6661646118367624`*^9}, 3.666165027447534*^9, {3.6661651156745806`*^9, 3.666165125657151*^9}, 3.6661652237917643`*^9, {3.666165257197675*^9, 3.666165264057068*^9}, 3.666165352833145*^9, 3.666166427364605*^9, {3.6661665900289087`*^9, 3.6661666005765123`*^9}, 3.666166660976967*^9, 3.666277913243985*^9, { 3.6662779771728973`*^9, 3.6662779872037153`*^9}, 3.6665023543669844`*^9, { 3.696481930677734*^9, 3.6964819365677423`*^9}, {3.696481998407829*^9, 3.6964820231078634`*^9}, {3.696482075807937*^9, 3.6964820991179695`*^9}, { 3.696482191438099*^9, 3.6964823674283457`*^9}, {3.696482454978468*^9, 3.6964824796185026`*^9}, {3.696484434451239*^9, 3.696484457241271*^9}, { 3.6966445150217905`*^9, 3.6966445461418343`*^9}, {3.6966519209441595`*^9, 3.696651927994169*^9}, {3.6966520219743004`*^9, 3.696652026634307*^9}}, CellLabel->"In[35]:=",ExpressionUUID->"9bfd4492-7d5d-4990-8c86-a4c90611af8e"] }, Closed]], Cell[CellGroupData[{ Cell["Cylindrical plate graphics", "Subsection", CellChangeTimes->{ 3.4710857577642*^9, {3.4710858112098*^9, 3.4710858239082003`*^9}, { 3.4710859049969997`*^9, 3.4710859061046*^9}, {3.4710892678536*^9, 3.4710892701*^9}, 3.4710893817648*^9, {3.4710894793115997`*^9, 3.4710895039596*^9}, {3.4710905118050003`*^9, 3.471090512741*^9}, { 3.4724589485142*^9, 3.4724589539274*^9}, {3.4724611172438*^9, 3.4724611386001997`*^9}, {3.472468943269*^9, 3.4724689445638*^9}, { 3.4724698165922003`*^9, 3.4724698198058*^9}, {3.4724822226106*^9, 3.4724822252469997`*^9}, 3.473564312486*^9, {3.603095648328417*^9, 3.6030956491396184`*^9}, {3.6030962680707054`*^9, 3.6030962681643057`*^9}, {3.603096412433359*^9, 3.603096434569798*^9}, { 3.696481896247686*^9, 3.6964818995076904`*^9}, {3.6964819832578077`*^9, 3.6964819853078103`*^9}, 3.791953287055973*^9},ExpressionUUID->"f1ca905c-676b-4151-9df6-\ 35728ff5065a"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"Cylindrical", " ", "shell", " ", "domain"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"r0", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"R", " ", RowBox[{"Cos", "[", RowBox[{"s", "/", "R"}], "]"}]}], ",", RowBox[{"R", " ", RowBox[{"Sin", "[", RowBox[{"s", "/", "R"}], "]"}]}], ",", "z"}], "}"}], " ", "/.", " ", RowBox[{"R", "\[Rule]", "0.5"}]}]}], ";"}], " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"zdom", " ", "=", RowBox[{"{", RowBox[{"z", ",", "0", ",", "1", ",", RowBox[{"1", "/", "2"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sdom", " ", "=", RowBox[{"{", RowBox[{"s", ",", "0", ",", RowBox[{"Pi", "*", "0.5"}], ",", RowBox[{ RowBox[{"Pi", "/", "32"}], "*", "0.5"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ndom", "=", RowBox[{ RowBox[{"{", RowBox[{"n", ",", RowBox[{ RowBox[{"-", "1"}], "/", "20"}], ",", RowBox[{"1", "/", "20"}], ",", RowBox[{"1", "/", "40"}]}], "}"}], "/", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"SURFACEPLOT", "[", RowBox[{"r0", ",", "sdom", ",", "zdom", ",", "ndom"}], "]"}], " ", "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.47099820412*^9, 3.4709982441963997`*^9}, { 3.4709982841636*^9, 3.4709984139244003`*^9}, {3.4709984525188*^9, 3.470998495217*^9}, 3.4709986392362003`*^9, {3.4709993623898*^9, 3.4709993759618*^9}, {3.4710000941369004`*^9, 3.4710003768403006`*^9}, { 3.4710004538419003`*^9, 3.4710005845387*^9}, {3.4710006147403*^9, 3.4710008755099*^9}, {3.4710009790277004`*^9, 3.4710009799013004`*^9}, { 3.4710010273877*^9, 3.4710010755293007`*^9}, {3.4710011347469006`*^9, 3.4710011353397007`*^9}, {3.4710013020257006`*^9, 3.4710013527101*^9}, { 3.4710014314901004`*^9, 3.4710014978213005`*^9}, {3.4710015332333*^9, 3.4710016230113*^9}, 3.4710016990321007`*^9, {3.4710017333545003`*^9, 3.4710018255661*^9}, {3.4710019272625003`*^9, 3.4710019545157003`*^9}, { 3.4710020061985006`*^9, 3.4710020072437005`*^9}, {3.4710021130585003`*^9, 3.4710021169117002`*^9}, {3.4710022681381006`*^9, 3.4710023131753006`*^9}, {3.4710023463721004`*^9, 3.4710023734069004`*^9}, {3.4710024303157005`*^9, 3.4710026640349007`*^9}, {3.4710026984641004`*^9, 3.4710027559033003`*^9}, {3.4710027907381*^9, 3.4710028222501*^9}, { 3.4710029648029003`*^9, 3.4710030009013004`*^9}, {3.4710030486529007`*^9, 3.4710030648769007`*^9}, {3.4710031248589*^9, 3.4710031826881003`*^9}, { 3.4710033596409006`*^9, 3.4710034167057004`*^9}, {3.4710494122444*^9, 3.4710494125875998`*^9}, {3.4710495028492002`*^9, 3.4710495460299997`*^9}, {3.4710497723859997`*^9, 3.4710498858936*^9}, { 3.471049928722*^9, 3.4710499387256002`*^9}, {3.4710499775248003`*^9, 3.4710500206275997`*^9}, {3.471050070532*^9, 3.4710500917324*^9}, { 3.4710501802156*^9, 3.4710502338952*^9}, {3.4710502694788*^9, 3.471050339788*^9}, {3.4710528445752*^9, 3.471052869972*^9}, { 3.4710572923389997`*^9, 3.4710573765322*^9}, {3.4710574482922*^9, 3.4710576210466003`*^9}, {3.4710577053178*^9, 3.471057783973*^9}, { 3.4710578398522*^9, 3.4710578798974*^9}, {3.4710579857278*^9, 3.4710579969286003`*^9}, {3.471067280638*^9, 3.4710673325236*^9}, 3.471067365658*^9, {3.4710674010232*^9, 3.471067422832*^9}, { 3.4710677004611998`*^9, 3.4710677268096*^9}, {3.4710852587202*^9, 3.471085280841*^9}, {3.4710853152546*^9, 3.4710853555962*^9}, { 3.471085394565*^9, 3.4710853959066*^9}, {3.4710854362482*^9, 3.4710854370906*^9}, {3.4710854875098*^9, 3.471085680513*^9}, { 3.4710892604904003`*^9, 3.4710893034372*^9}, {3.471089356836*^9, 3.4710893764608*^9}, {3.4710894188459997`*^9, 3.471089425788*^9}, { 3.4724589773118*^9, 3.4724589776862*^9}, {3.4724590337058*^9, 3.4724592062262*^9}, {3.4724592707790003`*^9, 3.472459517027*^9}, { 3.472461044579*^9, 3.4724610729086*^9}, {3.4724611263073997`*^9, 3.4724611623746*^9}, {3.4724611959926*^9, 3.4724612582209997`*^9}, { 3.4724613167522*^9, 3.4724613785594*^9}, {3.4724614100518*^9, 3.4724614967722*^9}, {3.4724615747878*^9, 3.472461689479*^9}, { 3.4724617301638002`*^9, 3.4724618946502*^9}, {3.4724619767998*^9, 3.4724620530214*^9}, {3.4724620884958*^9, 3.4724621006326*^9}, { 3.4724623393282003`*^9, 3.4724623760818*^9}, {3.4724661846314*^9, 3.4724665395626*^9}, {3.4724665958318*^9, 3.472466724797*^9}, { 3.4724685801166*^9, 3.4724685805690002`*^9}, 3.4724686943866*^9, { 3.4724688321034*^9, 3.4724688576717997`*^9}, 3.4724689149238*^9, { 3.4724689527693996`*^9, 3.4724690179502*^9}, {3.4724696817146*^9, 3.4724697652058*^9}, {3.4724698252502003`*^9, 3.4724698632206*^9}, { 3.472470118421*^9, 3.4724701218686*^9}, {3.4724822341858*^9, 3.4724822532178*^9}, {3.4724822840746*^9, 3.472482389047*^9}, { 3.4724824465797997`*^9, 3.4724825484322*^9}, {3.4724825811454*^9, 3.4724825927518*^9}, {3.4724826764614*^9, 3.4724826888634*^9}, { 3.4724827403122*^9, 3.4724827437754*^9}, {3.472483138549*^9, 3.4724834098174*^9}, {3.4724834809846*^9, 3.4724835016702003`*^9}, 3.4724835752866*^9, {3.472483617469*^9, 3.4724836620538*^9}, { 3.4724837426514*^9, 3.4724837545854*^9}, {3.472483817157*^9, 3.4724840938772*^9}, {3.4724841715964003`*^9, 3.4724841722047997`*^9}, { 3.4724842246208*^9, 3.4724842734332*^9}, 3.4724843040248003`*^9, { 3.4724843480011997`*^9, 3.4724843522444*^9}, {3.4724843859716*^9, 3.4724843935532*^9}, {3.4724844459536*^9, 3.4724844810848*^9}, { 3.4724845226588*^9, 3.4724845582424*^9}, {3.4724845977416*^9, 3.4724846431064*^9}, {3.4724847282044*^9, 3.472484831414*^9}, { 3.4724849352788*^9, 3.4724849889584*^9}, 3.4724850417332*^9, { 3.4724850729332*^9, 3.4724850937124*^9}, {3.4724851659132*^9, 3.4724852686703997`*^9}, {3.4724853395256*^9, 3.4724853408204*^9}, { 3.4724853955764*^9, 3.4724854591464*^9}, 3.4724854917504*^9, { 3.4724855320296*^9, 3.4724856142883997`*^9}, {3.4724856780612*^9, 3.4724857337688*^9}, {3.4724857773864*^9, 3.4724859967068*^9}, { 3.4724861010708*^9, 3.4724861330508003`*^9}, {3.4724861866368*^9, 3.4724861884308*^9}, 3.4724863147752*^9, {3.4730691016610003`*^9, 3.4730691571814003`*^9}, 3.4730691910646*^9, {3.4730692318118*^9, 3.4730693926946*^9}, {3.4730694506954*^9, 3.4730696453366003`*^9}, { 3.473069681513*^9, 3.4730696947106*^9}, {3.4730697312614*^9, 3.4730699368694*^9}, {3.4730700174912*^9, 3.4730701931472*^9}, { 3.4730702507111998`*^9, 3.473070323922*^9}, {3.4730704242924*^9, 3.4730704250256*^9}, {3.47307050769*^9, 3.4730705522904*^9}, { 3.4730705866104*^9, 3.4730706117108*^9}, {3.4730706700704*^9, 3.4730707164804*^9}, {3.473070751752*^9, 3.4730708560692*^9}, 3.4730709027444*^9, {3.4730709789192*^9, 3.4730710312416*^9}, { 3.4730711046708*^9, 3.4730711179776*^9}, {3.4730711593644*^9, 3.4730712155868*^9}, {3.4730713067064*^9, 3.4730713693872004`*^9}, { 3.4730714130828*^9, 3.4730714830488*^9}, {3.4730715954936*^9, 3.4730715973188*^9}, {3.4730716322316*^9, 3.4730717027002*^9}, 3.473071735741*^9, {3.4730717862538*^9, 3.4730717867530003`*^9}, { 3.473071877545*^9, 3.4730718860002003`*^9}, {3.4730719225198*^9, 3.4730721296254*^9}, {3.4730721652558002`*^9, 3.4730722515706*^9}, { 3.4730722878562*^9, 3.4730723251558*^9}, 3.4730723601622*^9, 3.4730723958082*^9, {3.4730724414538*^9, 3.4730727985066*^9}, { 3.4730728721542*^9, 3.4730729685642*^9}, {3.4730730453942003`*^9, 3.4730732321261997`*^9}, {3.4731243399018*^9, 3.4731243449094*^9}, 3.4731244295706*^9, {3.6030951294767056`*^9, 3.6030951722519803`*^9}, { 3.6030952607197356`*^9, 3.603095264401342*^9}, 3.6030956800588727`*^9, { 3.6030957143477325`*^9, 3.6030957145505333`*^9}, {3.603095833204342*^9, 3.6030958549195795`*^9}, {3.603096095331602*^9, 3.6030960960024033`*^9}, { 3.603098733031035*^9, 3.6030987743399076`*^9}, {3.6030988249463964`*^9, 3.6030988972993236`*^9}, 3.60309899219429*^9, {3.6030990892108603`*^9, 3.603099173139008*^9}, 3.6031024927249513`*^9, {3.6661640997424726`*^9, 3.666164100202499*^9}, {3.6661641701565*^9, 3.6661641885225506`*^9}, { 3.666164237804369*^9, 3.6661642428346567`*^9}, {3.6661642844720383`*^9, 3.6661644636692877`*^9}, {3.6661645452539544`*^9, 3.6661645610818596`*^9}, {3.666164607209498*^9, 3.6661646118367624`*^9}, 3.666165027447534*^9, {3.6661651156745806`*^9, 3.666165125657151*^9}, 3.6661652237917643`*^9, {3.666165257197675*^9, 3.666165264057068*^9}, 3.666165352833145*^9, 3.666166427364605*^9, {3.6661665900289087`*^9, 3.6661666005765123`*^9}, 3.666166660976967*^9, 3.666277913243985*^9, { 3.6662779771728973`*^9, 3.6662779872037153`*^9}, 3.6665023543669844`*^9, { 3.696481930677734*^9, 3.6964819365677423`*^9}, {3.696481998407829*^9, 3.6964820231078634`*^9}, {3.696482075807937*^9, 3.6964820991179695`*^9}, { 3.696482191438099*^9, 3.6964823674283457`*^9}, {3.696482454978468*^9, 3.6964824796185026`*^9}, {3.696484434451239*^9, 3.696484457241271*^9}, { 3.6966445150217905`*^9, 3.6966445461418343`*^9}, {3.6966519209441595`*^9, 3.696651927994169*^9}, {3.6966520219743004`*^9, 3.696652026634307*^9}, { 3.731051606136548*^9, 3.7310516462978125`*^9}},ExpressionUUID->"2eb3ee45-c7cf-4249-a922-\ 72908c476f76"], Cell[BoxData[ Graphics3DBox[{ {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], Polygon3DBox[CompressedData[" 1:eJyVmN9rjXEcx58aKVfcKWW2C1P+g2P1PSZKlBKlNj9SJg2nZvLrQonr3WwS brhYCTfzI1c+Lg4pZGONzblYyoUbraNc2/p+HuXb+/V9slrWq3ev97uO8zzf 5+k61th3vKMoivrS74ql3+W/379b/mmFIvnRfCE07t7bued+K/QfaPftGp8I ec4ezRfBQ5x7Kb/y9Jat3aEVZi+/ujN88VkFZw/t1B7i3Ev58wOTJ/aPfg3X zv36PfT8ZQVnD+3UHuLcS/n27ku1sdvz4ezNjhvfV7+u4OyhndpDnHsp37m2 Z6I2OBc+rPm0blXP2wrOHtqpPcS5l/IPm5sO9rU/hyfNH4/XF1MVnD20U3uI cy/lu94cOVrfPhvmb/2sbdvxsYKzh3ZqD3HupfypvWGg/9DM33/znD20U3uI cy/ly76N3p/n7KGd2kOceyn/1D/v8vPPc/bQTu0hzr2Un/bv2wb//uU5e2in 9hDnXsqP+PWuvP7lOXtop/YQ517Kl/ebC37/yXP20E7tIc69lP/i9/vy/p/n 7KGd2kOceyk/6OetM37+ynP20E7tIc69lK+HF5sfNK/0/nv+Jc4e2qk9xLmX 8odjrzWSPZqzh3ZqD3HupfxM/Nwt/f+gOXtop/YQ517KX43fO0u/j5qzh3Zq D3HupfxwvO5Zej3UnD20U3uIcy/lp+J9xzqT+5Hm7KGd2kOceyk/Ge/79ig5 D2jOHtqpPcS5l/Jz8dxl3cl5THP20E7tIc69lB+K511Lz8Oas4d2ag9x7qW8 P3cYPI9Y+hz0f72L4CHOvZT3z9vS50HN2UM7tYc491Lez7s2nTyPa84e2qk9 xLmX8n69sxH9PiTh7KGd2kOceynv753sun4flXD20E7tIc69lPf7vX3T7wMT zh7aqT3EuZfyft61k8n7WM3ZQzu1hzj3Ut7PuxbPv6O9ec4e2qk9xBfCH4dt qLA= "]]}, {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], Polygon3DBox[CompressedData[" 1:eJyVmL9LVWEcxg8kDWYI+RdUixC5uV165d7GWkyCnLpCRkEqRLRpJBQtLQ3a lUqHWpxqEWr4NjiYk5bmjxTvpcHF4S4JDVLK+56gl+fzHhQk+fDweR643XPe c84ODPfeOpFlWc/hb8vh79HftZdHPw2XRT+a193Qytij3fGGOzhT7W6pzbo0 Z4/mTfAQ517Kd72rfjhZabhLS6e3Dh5+KuDsoZ3aQ5x7Kf/6z965ibW6e7Iw Nzg9PF/A2UM7tYc491L+6u1f72fKdXft4425neZiAWcP7dQe4txL+crdzdKF Uztu5d6r2Y2JpQLOHtqpPcS5l/K10f3fzy5vu622+9b//FsBZw/t1B7i3Ev5 6uDig8/dP9zX6fPtb/u+F3D20E7tIc69lO/qtJHGz/V//6Y5e2in9hDnXsrn fTdDf5qzh3ZqD3Hupfx2+Lzzzz/N2UM7tYc491J+NXzfyuH7l+bsoZ3aQ5x7 Kd8Xrnf59S/N2UM7tYc491I+v9+8CfefNGcP7dQe4txL+XK43+f3/zRnD+3U HuLcS/nWDn/eys9fac4e2qk9xLmX8kOTX5b374yX/j//EmcP7dQe4txL+cz3 WrxHc/bQTu0hzr2UL/nP3eL/D5qzh3ZqD3Hupfxj/72z+PuoOXtop/YQ517K 9/rrnsXXQ83ZQzu1hzj3Uj6cd60S3Y80Zw/t1B7i3Ev5TX/ft6noPKA5e2in 9hDnXsov+3OXDUTnMc3ZQzu1hzj3Uv6iP+9afB7WnD20U3uIcy/lw3OHwfOI xc9Bx+ttgoc491I+fN4WPw9qzh7aqT3EuZfy4bxrq9HzuObsoZ3aQ5x7KR+u d3Zdvw+JOHtop/YQ517Kh/dO9lS/j4o4e2in9hDnXsqH+71d0e8DI84e2qk9 xLmX8uG8Ze0d8n1sxNlDO7WHOPdSPpx3zZ9/X5TSnD20U3uI191fFsKJow== "]]}, {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], Polygon3DBox[CompressedData[" 1:eJyFmg1s1dUZxhsp6PBblC4aAVGgHQIRZwL0yimtdBExW5Q5FBRBKCAfNX6h LpNSp2NLxKogWFCoH12AYaCoICKvYqmA1bb0i5Zbeisa/EBFUCYM5mDnPdd4 /veX80+aS88lz5Pn+Tfvec9z3ssmFd40pVNaWlrRyZ/0kz+n/v1R9aknbtK8 p+D/z97I+qh9Q384kLPXvJ++4Kc5Tf9Mfl9Y9lL+6JVxM+6Ph3KvX1RuQjj2 SUTW+/ape/nJ3e3mytezNpdnrEx+T7yEY3VF1+dd/dusjI0Js+iubQ81jl2V /J54Caf0+VNPR2R9dsPcov2PdZgTF0y8Jr10dfJ74iXfSG/r5Kc7t9W2mYMl i2de9NaG5HrnWf2ze5u4afrztmX3PvxmEIf0rh3/75rFk9pN1/LpsY0/bgzy Eg7pzVs18MasRxLmirezzxo3ZFOQl3DI54HlEyu65HWY4bVnx0/MeTvIS76R 3qyRsfZRGW1m5D8+vWBo+XvJ9TnjK6aOeWqP+esDh4/M2PhuEAd9HlB1y4jl e03n5Y0DuyzcGuQlHNKbf2bm/qXdEmbb+qpR9fPeD/ISDvn84k8Hei9uTpgn tm8oWFFYGeQl30jvsplN6Wnd4+arXrf2mHzdB8n1Qzc8Mmzh0lZz35JOz33W tSqIQ3rznxxcM6Okzdy18rXyT/6yPciLOKD34JoFzzd3bTd7rkofNHHDjiAv 4ZDPN079YV1ZbsLcvOnWDe0HdwZ5yTfSO21//YcP1rSaxzvNyhy8sjq53vP8 fuXDClpMzXn1vz6934dBHNK77p2i7yqGxE32kS5Dbu//cZCXcEjvsWcHZHxb 1ma++3zF7+avqQnyEg75nHd3a6z/me2mYdYLq1sW1wZ5yTfSm7m+NKchv8Vs 6V794Op9P+P/q7Lv2NxDzeb1yi/WX5JWG8QhvS+XnZNVcPLvYfu014Zmf1AX 5CUc0tujpPj8H7/dY3ZtKjm+c9WuIC/hkM+ljx45+vfr2kz8rPvktgX1QV7y DfUWbpqSmNtsxsb/M+ji63/Gv2z7hDtz8ppMa+k3w0aM3BXEIb0jMi6aUbR5 t2m69Fd9Do9uCPISDumt21J4T6+jLWbMhO4XV/+hMchLOOTzxIKdD7x7zcn/ v+Lyc18d0xTkJd9I77KREzqOP9po3Kdbn/l7M37c7Q3GfYZwSO9H2XMLXlzR ZNxniJdwSO9/r1r+ldnabNxniJdwyOeBmXJPx77dxn2GeMk30ut8XKu+unX3 /nrp+wzhkF7nY476GuIlHNLrfKxVX0O8hEM+u/dxp76fEC/5RnpF64irK279 Da1frp6FcEjvDq0jrq6EeAmH9NZrHXF1JcRLOORzm9YjV59CvOQb6Z2v++hU 3Vfdep3u3z10Pw/hkN7huo+u1X01xEs4pPd73UeP6r4a4iUc8rlR9+Nc3Z9D vOQb6T2gfaTrK936/dq/un42hEN6J2sf6frKEC/hkN649pGurwzxEg75PEb7 UdefhnjJN9LrzlG/0XOVW3fnt4f0PBfCIb3uHLVHz1UhXsIhve4c5c5VIV7C IZ/deWy5ns9CvOQb6T2sOYLLFdz6bs0vXJ4RwiG9Z2uO4HKFEC/hkN5+miO4 XCHESzjkc67mES6fCPGSb6S3RnM0l6u59QLN72ZrnhfCIb1DNEfro7laiJdw SG+Z5mhFmquFeAmHfO7azeZxLp8L8ZJvpLf+nbf2XVtZFPNz5RyzJXN15dyY n2cTDuk9ffyFV/ctnxezvyWCvIRDerOPzS4+Z35xzM+ViZdwyOfZS3bUHZn+ WMzPp4mXfCO9VdZP8f28w75HKfTeI+GQ3kHWT+nr+Um8hEN6l1g/ZZ7nJ/ES DvmcZt+L+O+FeMk30vuNrSfi15MGW8fEr2OEQ3rPsPVE/HpCvIRDenvbeiJ+ PSFewiGfY7YuiV+XiJd8I725dj8Vfz8ttvu4+Ps44ZDe0+x+Kv5+SryEQ3q3 2v1U/P2UeAmHfC62+7L4+zLxkm+k90vbT4rfT95r+1jx+1jCIb2TbD8pfj9J vIRDelttPyl+P0m86Bv4fJPtS8XvS4mXfCO9T9jzlEzzzlO19hwnPb1zHOGQ 3pg9T8k67zxFvIRDeg/Z85Qc885TxEs45LPm0ZLnncuIl3wjvZttniBZXp5Q YXMMWePlGIRDeqtsniCveHkC8RIO6rV5gvT08gTiJRzyudXmErLUyyWIl3wj vX+yeZpUeHlai83xpLeX4xEO6W20eZrkenka8RIO6b3Z5mmyy8vTiJdwyOc6 m8vJJC+XI17yjfQutTmy+HnyDJtfi59jEw7prbY5svh5MvESDuk9YXNk8fNk 4iUc8nmAzaPFz6WJl3wjvXqfInD/Jf49DuGQXr1PEbj/ivASDunV+xSB+68I L+GQz3ovI3D/FeEl30iv1hHx7xO1fol/j0k4pFfriPj3icRLOKRX64j494nE Szjks9Yj8e8liZd8I72aI8t87z5d82up8+7xCYf0ao4sw737dOIlHNKrObJ8 792nEy/hkM+aR0ujdy9PvOQb6dU+Ur5OPf8j93tzLIRDerWPlCmp538ivIRD erWPlLbU8z8RXsIhn7UflVtSz/9EeMk30qvzVJKfev5NHvfmuAiH9Oo8lXRJ Pf8W4SUc9Nmeo6Qq9fxbhJdwyGedy5K/pZ5/i/CSb6RXcwQ5nnr+Uz7x5hgR B/RqjiAZqec/I7yEQ3o1R5DBqec/I7yEQz5rHiGjU89/RnjJN9KrOZrUe/O0 ml/LdG+Ol3BIr+bIEks9/xzhJRzSqzmyvOrN0xIv4ZDPmsfJud1+OZdLvOQb 6dUcWWyuXBJz65pfi82zn4qFcEivfRJic+WnkzjESzikV3NksbnyM7G0XzxR XvQNfNY8Wmw+/aznT5T3f896a6k= "]]}, {GrayLevel[0.5], Opacity[0.5], EdgeForm[None], Polygon3DBox[CompressedData[" 1:eJyFmgts1dUdxxspuOFblBrNAHFAOwQiagL0yimtdJFhNMocDhRBKCCPGl+o y6TU6dgSsT7BwoT66AIMA8UJIvJTLBWw2pa+aLmlt6LBTaYVlAmDOdj5nWt6 /veT06S5cEI+33y/l5zH95zLpxXeMqNbWlpa0anf9FO/p//8cfXpn7hJ6/LT aQr+/7M/Mj7uwMjvDuXsNx+kL/lhQdNfjRsvLHslf/zquJn068O5N7xQbkIc +5mIjA8cUPfqU3vbzZVvZm0tz1id5JAucayv6Piiq6/JyticMC/cvePhxolr khzSJU7pS6d/OiLj8xsWFh18vMOcvHDqtemla5Mc0qXcyG/r9Ge6t9W2mc6S pXMvfntTcrz7vMHZ/U3cNP1ux4r7HnkryCG/6yf/u2bptHbTs3x2bPP3m4O6 xCG/eWuG3pj1aML8/J3ssyeN2BLUJQ7lPLR8akWPvA4zuvac+MkF7wR1KTfy mzU21j4uo82M/fNnF44sfz85vmByxcwJT+8zf3jwyNE5m98LcjDnIVW3jVm5 33Rf2Ti0x/Pbg7rEIb/5Z2UeXN4rYXZsrBpXv+iDoC5xKOeXfzjUf2lzwjy5 c1PBqsLKoC7lRn5XzG1KT+sdN1/2u73P9Os/TI4f/tWjo55f3mruX9btxc97 VgU55Df/qeE1c0razN2r3yj/9Pc7g7rIAb+d65a81Nyz3ey7Kn3Y1E27grrE oZxvnPndhrLchLl1y+2b2jt3B3UpN/I762D9Rw/VtJonus3LHL66Ojne94JB 5aMKWkzN+fWXnDnooyCH/G54t+ibihFxk320x4g7Bn8S1CUO+T3+3JCMr8va zDdfrPrl4nU1QV3iUM5597TGBp/Vbhrm/WVty9LaoC7lRn4zN5bmNOS3mG29 qx9ae+BH/t8qB07MPdxs3qz8x8bL0mqDHPL7atm5WQWn/j/snPXGyOwP64K6 xCG/fUqKL/j+631mz5aSE7vX7AnqEodyLn3s6LE/Xd9m4mffL79dUh/UpdzQ b+GWGYmFzWZi/D/DLr3hR/7lO6fclZPXZFpLvxo1ZuyeIIf8jsm4eE7R1r2m 6Wc/HXBkfENQlzjkt25b4b39jrWYCVN6X1p9c2NQlziU89SC3Q++d+2pf7/q ivNen9AU1KXcyO+KsVM6TjzWmPx043NvMpMn3dGQ/AxxyO/H2QsLXl7VlPwM 6RKH/P73qpVfmu3Nyc+QLnEo56GZcm/Hgb3Jz5Au5UZ+XY7rNVc37r6/fvp9 hjjk1+WYo7mGdIlDfl2OtZprSJc4lLP7Pu7S7yekS7mRX9F5xM0rbvzvOn+5 +SzEIb+7dB5x80pIlzjkt17nETevhHSJQzm36Xzk5qeQLuVGfhfrOjpT11U3 Xqfrdx9dz0Mc8jta19H1uq6GdIlDfr/VdfSYrqshXeJQzo26Hufq+hzSpdzI 7yHdR7p9pRt/QPevbj8b4pDf6bqPdPvKkC5xyG9c95FuXxnSJQ7lPEH3o25/ GtKl3MivO0f9Qs9Vbtyd3x7W81yIQ37dOWqfnqtCusQhv+4c5c5VIV3iUM7u PLZSz2chXcqN/B7RHsH1Cm58r/YXrs8IccjvOdojuF4hpEsc8jtIewTXK4R0 iUM552of4fqJkC7lRn5rtEdzvZobL9D+br72eSEO+R2hPdoA7dVCusQhv2Xa oxVprxbSJQ7l3LOX7eNcPxfSpdzIb/27bx+4rrIo1rVX7jQ5Zlvm2sqFsa59 NnPI75mTL7p6YPmimP17IqhLHPKbfXx+8bmLi2Nde2XWJQ7lPH/Zrrqjsx+P de2nWZdyI79VNk/x87zTfo9S6H2PxCG/w2yeMtDLk3SJQ36X2TxlkZcn6RKH ck6z34v43wvpUm7k9ys7n4g/nzTYeUz8eYw45Pcndj4Rfz4hXeKQ3/52PhF/ PiFd4lDOMTsviT8vkS7lRn5z7Xoq/npabNdx8ddx4pDfM+x6Kv56SrrEIb/b 7Xoq/npKusShnIvtuiz+uky6lBv5/afdT4q/n7zP7mPF38cSh/xOs/tJ8feT pEsc8ttq95Pi7ydJF3ODnG+x+1Lx96WkS7mR3yfteUpmeeepWnuOk77eOY44 5Ddmz1OywTtPkS5xyO9he56S4955inSJQzlrHy153rmMdCk38rvV9gmS5fUJ FbbHkHVej0Ec8ltl+wR5zesTSJc46Nf2CdLX6xNIlziUc6vtJWS510uQLuVG fn9j+zSp8Pq0FtvjSX+vxyMO+W20fZrken0a6RKH/N5q+zTZ4/VppEscyrnO 9nIyzevlSJdyI7/LbY8sfp88x/bX4vfYxCG/1bZHFr9PJl3ikN+TtkcWv08m XeJQzkNsHy1+L026lBv51fsUgfsv8e9xiEN+9T5F4P4roksc8qv3KQL3XxFd 4lDOei8jcP8V0aXcyK/OI+LfJ+r8Jf49JnHIr84j4t8nki5xyK/OI+LfJ5Iu cShnnY/Ev5ckXcqN/GqPLIu9+3Ttr6XOu8cnDvnVHllGe/fppEsc8qs9snzr 3aeTLnEoZ+2jpdG7lyddyo386j5S/pX6/Y884L1jIQ751X2kzEj9/ieiSxzy q/tIaUv9/ieiSxzKWfejclvq9z8RXcqN/Op7KslP/f5NnvDecRGH/Op7KumR +v1bRJc4mLM9R0lV6vdvEV3iUM76Lkv+mPr9W0SXciO/2iPIidTvP+VT7x0j csCv9giSkfr9Z0SXOORXewQZnvr9Z0SXOJSz9hEyPvX7z4gu5UZ+tUeTeu89 rfbXMtt7x0sc8qs9ssRSv3+O6BKH/GqPLK9772lJlziUs/Zxcl6vru9ySZdy I7/aI4vtlUtiblz7a7F99tOxEIf82s+E2F75mVhIlzjkV3tksb3ys7GQLuYG OWsfLbaffi4W0v0f+G/Jxw== "]]}, {RGBColor[1, 0, 0], Arrowheads[Tiny], Arrow3DBox[{{0.5, 0., 0.}, {0.5, 0.05, 0.}}], Arrow3DBox[{{0.5, 0., 0.1}, {0.5, 0.05, 0.1}}], Arrow3DBox[{{0.5, 0., 0.2}, {0.5, 0.05, 0.2}}], Arrow3DBox[{{0.5, 0., 0.3}, {0.5, 0.05, 0.3}}], Arrow3DBox[{{0.5, 0., 0.4}, {0.5, 0.05, 0.4}}], Arrow3DBox[{{0.5, 0., 0.5}, {0.5, 0.05, 0.5}}], Arrow3DBox[{{0.5, 0., 0.6}, {0.5, 0.05, 0.6}}], Arrow3DBox[{{0.5, 0., 0.7}, {0.5, 0.05, 0.7}}], Arrow3DBox[{{0.5, 0., 0.8}, {0.5, 0.05, 0.8}}], Arrow3DBox[{{0.5, 0., 0.9}, {0.5, 0.05, 0.9}}], Arrow3DBox[{{0.5, 0., 1.}, {0.5, 0.05, 1.}}], Arrow3DBox[{{0.47552825814757677`, 0.1545084971874737, 0.}, { 0.4600774084288294, 0.20206132300223137`, 0.}}], Arrow3DBox[{{0.47552825814757677`, 0.1545084971874737, 0.1}, { 0.4600774084288294, 0.20206132300223137`, 0.1}}], Arrow3DBox[{{0.47552825814757677`, 0.1545084971874737, 0.2}, { 0.4600774084288294, 0.20206132300223137`, 0.2}}], Arrow3DBox[{{0.47552825814757677`, 0.1545084971874737, 0.3}, { 0.4600774084288294, 0.20206132300223137`, 0.3}}], Arrow3DBox[{{0.47552825814757677`, 0.1545084971874737, 0.4}, { 0.4600774084288294, 0.20206132300223137`, 0.4}}], Arrow3DBox[{{0.47552825814757677`, 0.1545084971874737, 0.5}, { 0.4600774084288294, 0.20206132300223137`, 0.5}}], Arrow3DBox[{{0.47552825814757677`, 0.1545084971874737, 0.6}, { 0.4600774084288294, 0.20206132300223137`, 0.6}}], Arrow3DBox[{{0.47552825814757677`, 0.1545084971874737, 0.7}, { 0.4600774084288294, 0.20206132300223137`, 0.7}}], Arrow3DBox[{{0.47552825814757677`, 0.1545084971874737, 0.8}, { 0.4600774084288294, 0.20206132300223137`, 0.8}}], Arrow3DBox[{{0.47552825814757677`, 0.1545084971874737, 0.9}, { 0.4600774084288294, 0.20206132300223137`, 0.9}}], Arrow3DBox[{{0.47552825814757677`, 0.1545084971874737, 1.}, { 0.4600774084288294, 0.20206132300223137`, 1.}}], Arrow3DBox[{{0.4045084971874737, 0.29389262614623657`, 0.}, { 0.37511923457285007`, 0.3343434758649839, 0.}}], Arrow3DBox[{{0.4045084971874737, 0.29389262614623657`, 0.1}, { 0.37511923457285007`, 0.3343434758649839, 0.1}}], Arrow3DBox[{{0.4045084971874737, 0.29389262614623657`, 0.2}, { 0.37511923457285007`, 0.3343434758649839, 0.2}}], Arrow3DBox[{{0.4045084971874737, 0.29389262614623657`, 0.3}, { 0.37511923457285007`, 0.3343434758649839, 0.3}}], Arrow3DBox[{{0.4045084971874737, 0.29389262614623657`, 0.4}, { 0.37511923457285007`, 0.3343434758649839, 0.4}}], Arrow3DBox[{{0.4045084971874737, 0.29389262614623657`, 0.5}, { 0.37511923457285007`, 0.3343434758649839, 0.5}}], Arrow3DBox[{{0.4045084971874737, 0.29389262614623657`, 0.6}, { 0.37511923457285007`, 0.3343434758649839, 0.6}}], Arrow3DBox[{{0.4045084971874737, 0.29389262614623657`, 0.7}, { 0.37511923457285007`, 0.3343434758649839, 0.7}}], Arrow3DBox[{{0.4045084971874737, 0.29389262614623657`, 0.8}, { 0.37511923457285007`, 0.3343434758649839, 0.8}}], Arrow3DBox[{{0.4045084971874737, 0.29389262614623657`, 0.9}, { 0.37511923457285007`, 0.3343434758649839, 0.9}}], Arrow3DBox[{{0.4045084971874737, 0.29389262614623657`, 1.}, { 0.37511923457285007`, 0.3343434758649839, 1.}}], Arrow3DBox[{{0.29389262614623657`, 0.4045084971874737, 0.}, { 0.2534417764274892, 0.4338977598020974, 0.}}], Arrow3DBox[{{0.29389262614623657`, 0.4045084971874737, 0.1}, { 0.2534417764274892, 0.4338977598020974, 0.1}}], Arrow3DBox[{{0.29389262614623657`, 0.4045084971874737, 0.2}, { 0.2534417764274892, 0.4338977598020974, 0.2}}], Arrow3DBox[{{0.29389262614623657`, 0.4045084971874737, 0.3}, { 0.2534417764274892, 0.4338977598020974, 0.3}}], Arrow3DBox[{{0.29389262614623657`, 0.4045084971874737, 0.4}, { 0.2534417764274892, 0.4338977598020974, 0.4}}], Arrow3DBox[{{0.29389262614623657`, 0.4045084971874737, 0.5}, { 0.2534417764274892, 0.4338977598020974, 0.5}}], Arrow3DBox[{{0.29389262614623657`, 0.4045084971874737, 0.6}, { 0.2534417764274892, 0.4338977598020974, 0.6}}], Arrow3DBox[{{0.29389262614623657`, 0.4045084971874737, 0.7}, { 0.2534417764274892, 0.4338977598020974, 0.7}}], Arrow3DBox[{{0.29389262614623657`, 0.4045084971874737, 0.8}, { 0.2534417764274892, 0.4338977598020974, 0.8}}], Arrow3DBox[{{0.29389262614623657`, 0.4045084971874737, 0.9}, { 0.2534417764274892, 0.4338977598020974, 0.9}}], Arrow3DBox[{{0.29389262614623657`, 0.4045084971874737, 1.}, { 0.2534417764274892, 0.4338977598020974, 1.}}], Arrow3DBox[{{0.15450849718747373`, 0.47552825814757677`, 0.}, { 0.10695567137271605`, 0.49097910786632415`, 0.}}], Arrow3DBox[{{0.15450849718747373`, 0.47552825814757677`, 0.1}, { 0.10695567137271605`, 0.49097910786632415`, 0.1}}], Arrow3DBox[{{0.15450849718747373`, 0.47552825814757677`, 0.2}, { 0.10695567137271605`, 0.49097910786632415`, 0.2}}], Arrow3DBox[{{0.15450849718747373`, 0.47552825814757677`, 0.3}, { 0.10695567137271605`, 0.49097910786632415`, 0.3}}], Arrow3DBox[{{0.15450849718747373`, 0.47552825814757677`, 0.4}, { 0.10695567137271605`, 0.49097910786632415`, 0.4}}], Arrow3DBox[{{0.15450849718747373`, 0.47552825814757677`, 0.5}, { 0.10695567137271605`, 0.49097910786632415`, 0.5}}], Arrow3DBox[{{0.15450849718747373`, 0.47552825814757677`, 0.6}, { 0.10695567137271605`, 0.49097910786632415`, 0.6}}], Arrow3DBox[{{0.15450849718747373`, 0.47552825814757677`, 0.7}, { 0.10695567137271605`, 0.49097910786632415`, 0.7}}], Arrow3DBox[{{0.15450849718747373`, 0.47552825814757677`, 0.8}, { 0.10695567137271605`, 0.49097910786632415`, 0.8}}], Arrow3DBox[{{0.15450849718747373`, 0.47552825814757677`, 0.9}, { 0.10695567137271605`, 0.49097910786632415`, 0.9}}], Arrow3DBox[{{0.15450849718747373`, 0.47552825814757677`, 1.}, { 0.10695567137271605`, 0.49097910786632415`, 1.}}], Arrow3DBox[{{3.061616997868383*^-17, 0.5, 0.}, {-0.049999999999999975`, 0.5, 0.}}], Arrow3DBox[{{3.061616997868383*^-17, 0.5, 0.1}, {-0.049999999999999975`, 0.5, 0.1}}], Arrow3DBox[{{3.061616997868383*^-17, 0.5, 0.2}, {-0.049999999999999975`, 0.5, 0.2}}], Arrow3DBox[{{3.061616997868383*^-17, 0.5, 0.3}, {-0.049999999999999975`, 0.5, 0.3}}], Arrow3DBox[{{3.061616997868383*^-17, 0.5, 0.4}, {-0.049999999999999975`, 0.5, 0.4}}], Arrow3DBox[{{3.061616997868383*^-17, 0.5, 0.5}, {-0.049999999999999975`, 0.5, 0.5}}], Arrow3DBox[{{3.061616997868383*^-17, 0.5, 0.6}, {-0.049999999999999975`, 0.5, 0.6}}], Arrow3DBox[{{3.061616997868383*^-17, 0.5, 0.7}, {-0.049999999999999975`, 0.5, 0.7}}], Arrow3DBox[{{3.061616997868383*^-17, 0.5, 0.8}, {-0.049999999999999975`, 0.5, 0.8}}], Arrow3DBox[{{3.061616997868383*^-17, 0.5, 0.9}, {-0.049999999999999975`, 0.5, 0.9}}], Arrow3DBox[{{3.061616997868383*^-17, 0.5, 1.}, {-0.049999999999999975`, 0.5, 1.}}], Arrow3DBox[{{-0.15450849718747367`, 0.4755282581475768, 0.}, {-0.20206132300223134`, 0.46007740842882944`, 0.}}], Arrow3DBox[{{-0.15450849718747367`, 0.4755282581475768, 0.1}, {-0.20206132300223134`, 0.46007740842882944`, 0.1}}], Arrow3DBox[{{-0.15450849718747367`, 0.4755282581475768, 0.2}, {-0.20206132300223134`, 0.46007740842882944`, 0.2}}], Arrow3DBox[{{-0.15450849718747367`, 0.4755282581475768, 0.3}, {-0.20206132300223134`, 0.46007740842882944`, 0.3}}], Arrow3DBox[{{-0.15450849718747367`, 0.4755282581475768, 0.4}, {-0.20206132300223134`, 0.46007740842882944`, 0.4}}], Arrow3DBox[{{-0.15450849718747367`, 0.4755282581475768, 0.5}, {-0.20206132300223134`, 0.46007740842882944`, 0.5}}], Arrow3DBox[{{-0.15450849718747367`, 0.4755282581475768, 0.6}, {-0.20206132300223134`, 0.46007740842882944`, 0.6}}], Arrow3DBox[{{-0.15450849718747367`, 0.4755282581475768, 0.7}, {-0.20206132300223134`, 0.46007740842882944`, 0.7}}], Arrow3DBox[{{-0.15450849718747367`, 0.4755282581475768, 0.8}, {-0.20206132300223134`, 0.46007740842882944`, 0.8}}], Arrow3DBox[{{-0.15450849718747367`, 0.4755282581475768, 0.9}, {-0.20206132300223134`, 0.46007740842882944`, 0.9}}], Arrow3DBox[{{-0.15450849718747367`, 0.4755282581475768, 1.}, {-0.20206132300223134`, 0.46007740842882944`, 1.}}], Arrow3DBox[{{-0.2938926261462365, 0.4045084971874737, 0.}, {-0.3343434758649839, 0.37511923457285007`, 0.}}], Arrow3DBox[{{-0.2938926261462365, 0.4045084971874737, 0.1}, {-0.3343434758649839, 0.37511923457285007`, 0.1}}], Arrow3DBox[{{-0.2938926261462365, 0.4045084971874737, 0.2}, {-0.3343434758649839, 0.37511923457285007`, 0.2}}], Arrow3DBox[{{-0.2938926261462365, 0.4045084971874737, 0.3}, {-0.3343434758649839, 0.37511923457285007`, 0.3}}], Arrow3DBox[{{-0.2938926261462365, 0.4045084971874737, 0.4}, {-0.3343434758649839, 0.37511923457285007`, 0.4}}], Arrow3DBox[{{-0.2938926261462365, 0.4045084971874737, 0.5}, {-0.3343434758649839, 0.37511923457285007`, 0.5}}], Arrow3DBox[{{-0.2938926261462365, 0.4045084971874737, 0.6}, {-0.3343434758649839, 0.37511923457285007`, 0.6}}], Arrow3DBox[{{-0.2938926261462365, 0.4045084971874737, 0.7}, {-0.3343434758649839, 0.37511923457285007`, 0.7}}], Arrow3DBox[{{-0.2938926261462365, 0.4045084971874737, 0.8}, {-0.3343434758649839, 0.37511923457285007`, 0.8}}], Arrow3DBox[{{-0.2938926261462365, 0.4045084971874737, 0.9}, {-0.3343434758649839, 0.37511923457285007`, 0.9}}], Arrow3DBox[{{-0.2938926261462365, 0.4045084971874737, 1.}, {-0.3343434758649839, 0.37511923457285007`, 1.}}], Arrow3DBox[{{-0.40450849718747367`, 0.2938926261462366, 0.}, {-0.4338977598020973, 0.2534417764274893, 0.}}], Arrow3DBox[{{-0.40450849718747367`, 0.2938926261462366, 0.1}, {-0.4338977598020973, 0.2534417764274893, 0.1}}], Arrow3DBox[{{-0.40450849718747367`, 0.2938926261462366, 0.2}, {-0.4338977598020973, 0.2534417764274893, 0.2}}], Arrow3DBox[{{-0.40450849718747367`, 0.2938926261462366, 0.3}, {-0.4338977598020973, 0.2534417764274893, 0.3}}], Arrow3DBox[{{-0.40450849718747367`, 0.2938926261462366, 0.4}, {-0.4338977598020973, 0.2534417764274893, 0.4}}], Arrow3DBox[{{-0.40450849718747367`, 0.2938926261462366, 0.5}, {-0.4338977598020973, 0.2534417764274893, 0.5}}], Arrow3DBox[{{-0.40450849718747367`, 0.2938926261462366, 0.6}, {-0.4338977598020973, 0.2534417764274893, 0.6}}], Arrow3DBox[{{-0.40450849718747367`, 0.2938926261462366, 0.7}, {-0.4338977598020973, 0.2534417764274893, 0.7}}], Arrow3DBox[{{-0.40450849718747367`, 0.2938926261462366, 0.8}, {-0.4338977598020973, 0.2534417764274893, 0.8}}], Arrow3DBox[{{-0.40450849718747367`, 0.2938926261462366, 0.9}, {-0.4338977598020973, 0.2534417764274893, 0.9}}], Arrow3DBox[{{-0.40450849718747367`, 0.2938926261462366, 1.}, {-0.4338977598020973, 0.2534417764274893, 1.}}], Arrow3DBox[{{-0.47552825814757677`, 0.15450849718747375`, 0.}, {-0.49097910786632415`, 0.10695567137271608`, 0.}}], Arrow3DBox[{{-0.47552825814757677`, 0.15450849718747375`, 0.1}, {-0.49097910786632415`, 0.10695567137271608`, 0.1}}], Arrow3DBox[{{-0.47552825814757677`, 0.15450849718747375`, 0.2}, {-0.49097910786632415`, 0.10695567137271608`, 0.2}}], Arrow3DBox[{{-0.47552825814757677`, 0.15450849718747375`, 0.3}, {-0.49097910786632415`, 0.10695567137271608`, 0.3}}], Arrow3DBox[{{-0.47552825814757677`, 0.15450849718747375`, 0.4}, {-0.49097910786632415`, 0.10695567137271608`, 0.4}}], Arrow3DBox[{{-0.47552825814757677`, 0.15450849718747375`, 0.5}, {-0.49097910786632415`, 0.10695567137271608`, 0.5}}], Arrow3DBox[{{-0.47552825814757677`, 0.15450849718747375`, 0.6}, {-0.49097910786632415`, 0.10695567137271608`, 0.6}}], Arrow3DBox[{{-0.47552825814757677`, 0.15450849718747375`, 0.7}, {-0.49097910786632415`, 0.10695567137271608`, 0.7}}], Arrow3DBox[{{-0.47552825814757677`, 0.15450849718747375`, 0.8}, {-0.49097910786632415`, 0.10695567137271608`, 0.8}}], Arrow3DBox[{{-0.47552825814757677`, 0.15450849718747375`, 0.9}, {-0.49097910786632415`, 0.10695567137271608`, 0.9}}], Arrow3DBox[{{-0.47552825814757677`, 0.15450849718747375`, 1.}, {-0.49097910786632415`, 0.10695567137271608`, 1.}}], Arrow3DBox[{{-0.5, 6.123233995736766*^-17, 0.}, {-0.5, -0.04999999999999994, 0.}}], Arrow3DBox[{{-0.5, 6.123233995736766*^-17, 0.1}, {-0.5, -0.04999999999999994, 0.1}}], Arrow3DBox[{{-0.5, 6.123233995736766*^-17, 0.2}, {-0.5, -0.04999999999999994, 0.2}}], Arrow3DBox[{{-0.5, 6.123233995736766*^-17, 0.3}, {-0.5, -0.04999999999999994, 0.3}}], Arrow3DBox[{{-0.5, 6.123233995736766*^-17, 0.4}, {-0.5, -0.04999999999999994, 0.4}}], Arrow3DBox[{{-0.5, 6.123233995736766*^-17, 0.5}, {-0.5, -0.04999999999999994, 0.5}}], Arrow3DBox[{{-0.5, 6.123233995736766*^-17, 0.6}, {-0.5, -0.04999999999999994, 0.6}}], Arrow3DBox[{{-0.5, 6.123233995736766*^-17, 0.7}, {-0.5, -0.04999999999999994, 0.7}}], Arrow3DBox[{{-0.5, 6.123233995736766*^-17, 0.8}, {-0.5, -0.04999999999999994, 0.8}}], Arrow3DBox[{{-0.5, 6.123233995736766*^-17, 0.9}, {-0.5, -0.04999999999999994, 0.9}}], Arrow3DBox[{{-0.5, 6.123233995736766*^-17, 1.}, {-0.5, -0.04999999999999994, 1.}}]}, {RGBColor[0, 1, 0], Arrowheads[Tiny], Arrow3DBox[{{0.5, 0., 0.}, {0.5, 0., 0.05}}], Arrow3DBox[{{0.5, 0., 0.1}, {0.5, 0., 0.15000000000000002`}}], Arrow3DBox[{{0.5, 0., 0.2}, {0.5, 0., 0.25}}], Arrow3DBox[{{0.5, 0., 0.3}, {0.5, 0., 0.35}}], Arrow3DBox[{{0.5, 0., 0.4}, {0.5, 0., 0.45}}], Arrow3DBox[{{0.5, 0., 0.5}, {0.5, 0., 0.55}}], Arrow3DBox[{{0.5, 0., 0.6}, {0.5, 0., 0.65}}], Arrow3DBox[{{0.5, 0., 0.7}, {0.5, 0., 0.75}}], Arrow3DBox[{{0.5, 0., 0.8}, {0.5, 0., 0.8500000000000001}}], Arrow3DBox[{{0.5, 0., 0.9}, {0.5, 0., 0.9500000000000001}}], Arrow3DBox[{{0.5, 0., 1.}, {0.5, 0., 1.05}}], Arrow3DBox[{{0.47552825814757677`, 0.1545084971874737, 0.}, { 0.47552825814757677`, 0.1545084971874737, 0.05}}], Arrow3DBox[{{0.47552825814757677`, 0.1545084971874737, 0.1}, { 0.47552825814757677`, 0.1545084971874737, 0.15000000000000002`}}], Arrow3DBox[{{0.47552825814757677`, 0.1545084971874737, 0.2}, { 0.47552825814757677`, 0.1545084971874737, 0.25}}], Arrow3DBox[{{0.47552825814757677`, 0.1545084971874737, 0.3}, { 0.47552825814757677`, 0.1545084971874737, 0.35}}], Arrow3DBox[{{0.47552825814757677`, 0.1545084971874737, 0.4}, { 0.47552825814757677`, 0.1545084971874737, 0.45}}], Arrow3DBox[{{0.47552825814757677`, 0.1545084971874737, 0.5}, { 0.47552825814757677`, 0.1545084971874737, 0.55}}], Arrow3DBox[{{0.47552825814757677`, 0.1545084971874737, 0.6}, { 0.47552825814757677`, 0.1545084971874737, 0.65}}], Arrow3DBox[{{0.47552825814757677`, 0.1545084971874737, 0.7}, { 0.47552825814757677`, 0.1545084971874737, 0.75}}], Arrow3DBox[{{0.47552825814757677`, 0.1545084971874737, 0.8}, { 0.47552825814757677`, 0.1545084971874737, 0.8500000000000001}}], Arrow3DBox[{{0.47552825814757677`, 0.1545084971874737, 0.9}, { 0.47552825814757677`, 0.1545084971874737, 0.9500000000000001}}], Arrow3DBox[{{0.47552825814757677`, 0.1545084971874737, 1.}, { 0.47552825814757677`, 0.1545084971874737, 1.05}}], Arrow3DBox[{{0.4045084971874737, 0.29389262614623657`, 0.}, { 0.4045084971874737, 0.29389262614623657`, 0.05}}], Arrow3DBox[{{0.4045084971874737, 0.29389262614623657`, 0.1}, { 0.4045084971874737, 0.29389262614623657`, 0.15000000000000002`}}], Arrow3DBox[{{0.4045084971874737, 0.29389262614623657`, 0.2}, { 0.4045084971874737, 0.29389262614623657`, 0.25}}], Arrow3DBox[{{0.4045084971874737, 0.29389262614623657`, 0.3}, { 0.4045084971874737, 0.29389262614623657`, 0.35}}], Arrow3DBox[{{0.4045084971874737, 0.29389262614623657`, 0.4}, { 0.4045084971874737, 0.29389262614623657`, 0.45}}], Arrow3DBox[{{0.4045084971874737, 0.29389262614623657`, 0.5}, { 0.4045084971874737, 0.29389262614623657`, 0.55}}], Arrow3DBox[{{0.4045084971874737, 0.29389262614623657`, 0.6}, { 0.4045084971874737, 0.29389262614623657`, 0.65}}], Arrow3DBox[{{0.4045084971874737, 0.29389262614623657`, 0.7}, { 0.4045084971874737, 0.29389262614623657`, 0.75}}], Arrow3DBox[{{0.4045084971874737, 0.29389262614623657`, 0.8}, { 0.4045084971874737, 0.29389262614623657`, 0.8500000000000001}}], Arrow3DBox[{{0.4045084971874737, 0.29389262614623657`, 0.9}, { 0.4045084971874737, 0.29389262614623657`, 0.9500000000000001}}], Arrow3DBox[{{0.4045084971874737, 0.29389262614623657`, 1.}, { 0.4045084971874737, 0.29389262614623657`, 1.05}}], Arrow3DBox[{{0.29389262614623657`, 0.4045084971874737, 0.}, { 0.29389262614623657`, 0.4045084971874737, 0.05}}], Arrow3DBox[{{0.29389262614623657`, 0.4045084971874737, 0.1}, { 0.29389262614623657`, 0.4045084971874737, 0.15000000000000002`}}], Arrow3DBox[{{0.29389262614623657`, 0.4045084971874737, 0.2}, { 0.29389262614623657`, 0.4045084971874737, 0.25}}], Arrow3DBox[{{0.29389262614623657`, 0.4045084971874737, 0.3}, { 0.29389262614623657`, 0.4045084971874737, 0.35}}], Arrow3DBox[{{0.29389262614623657`, 0.4045084971874737, 0.4}, { 0.29389262614623657`, 0.4045084971874737, 0.45}}], Arrow3DBox[{{0.29389262614623657`, 0.4045084971874737, 0.5}, { 0.29389262614623657`, 0.4045084971874737, 0.55}}], Arrow3DBox[{{0.29389262614623657`, 0.4045084971874737, 0.6}, { 0.29389262614623657`, 0.4045084971874737, 0.65}}], Arrow3DBox[{{0.29389262614623657`, 0.4045084971874737, 0.7}, { 0.29389262614623657`, 0.4045084971874737, 0.75}}], Arrow3DBox[{{0.29389262614623657`, 0.4045084971874737, 0.8}, { 0.29389262614623657`, 0.4045084971874737, 0.8500000000000001}}], Arrow3DBox[{{0.29389262614623657`, 0.4045084971874737, 0.9}, { 0.29389262614623657`, 0.4045084971874737, 0.9500000000000001}}], Arrow3DBox[{{0.29389262614623657`, 0.4045084971874737, 1.}, { 0.29389262614623657`, 0.4045084971874737, 1.05}}], Arrow3DBox[{{0.15450849718747373`, 0.47552825814757677`, 0.}, { 0.15450849718747373`, 0.47552825814757677`, 0.05}}], Arrow3DBox[{{0.15450849718747373`, 0.47552825814757677`, 0.1}, { 0.15450849718747373`, 0.47552825814757677`, 0.15000000000000002`}}], Arrow3DBox[{{0.15450849718747373`, 0.47552825814757677`, 0.2}, { 0.15450849718747373`, 0.47552825814757677`, 0.25}}], Arrow3DBox[{{0.15450849718747373`, 0.47552825814757677`, 0.3}, { 0.15450849718747373`, 0.47552825814757677`, 0.35}}], Arrow3DBox[{{0.15450849718747373`, 0.47552825814757677`, 0.4}, { 0.15450849718747373`, 0.47552825814757677`, 0.45}}], Arrow3DBox[{{0.15450849718747373`, 0.47552825814757677`, 0.5}, { 0.15450849718747373`, 0.47552825814757677`, 0.55}}], Arrow3DBox[{{0.15450849718747373`, 0.47552825814757677`, 0.6}, { 0.15450849718747373`, 0.47552825814757677`, 0.65}}], Arrow3DBox[{{0.15450849718747373`, 0.47552825814757677`, 0.7}, { 0.15450849718747373`, 0.47552825814757677`, 0.75}}], Arrow3DBox[{{0.15450849718747373`, 0.47552825814757677`, 0.8}, { 0.15450849718747373`, 0.47552825814757677`, 0.8500000000000001}}], Arrow3DBox[{{0.15450849718747373`, 0.47552825814757677`, 0.9}, { 0.15450849718747373`, 0.47552825814757677`, 0.9500000000000001}}], Arrow3DBox[{{0.15450849718747373`, 0.47552825814757677`, 1.}, { 0.15450849718747373`, 0.47552825814757677`, 1.05}}], Arrow3DBox[{{3.061616997868383*^-17, 0.5, 0.}, {3.061616997868383*^-17, 0.5, 0.05}}], Arrow3DBox[{{3.061616997868383*^-17, 0.5, 0.1}, {3.061616997868383*^-17, 0.5, 0.15000000000000002`}}], Arrow3DBox[{{3.061616997868383*^-17, 0.5, 0.2}, {3.061616997868383*^-17, 0.5, 0.25}}], Arrow3DBox[{{3.061616997868383*^-17, 0.5, 0.3}, {3.061616997868383*^-17, 0.5, 0.35}}], Arrow3DBox[{{3.061616997868383*^-17, 0.5, 0.4}, {3.061616997868383*^-17, 0.5, 0.45}}], Arrow3DBox[{{3.061616997868383*^-17, 0.5, 0.5}, {3.061616997868383*^-17, 0.5, 0.55}}], Arrow3DBox[{{3.061616997868383*^-17, 0.5, 0.6}, {3.061616997868383*^-17, 0.5, 0.65}}], Arrow3DBox[{{3.061616997868383*^-17, 0.5, 0.7}, {3.061616997868383*^-17, 0.5, 0.75}}], Arrow3DBox[{{3.061616997868383*^-17, 0.5, 0.8}, {3.061616997868383*^-17, 0.5, 0.8500000000000001}}], Arrow3DBox[{{3.061616997868383*^-17, 0.5, 0.9}, {3.061616997868383*^-17, 0.5, 0.9500000000000001}}], Arrow3DBox[{{3.061616997868383*^-17, 0.5, 1.}, {3.061616997868383*^-17, 0.5, 1.05}}], Arrow3DBox[{{-0.15450849718747367`, 0.4755282581475768, 0.}, {-0.15450849718747367`, 0.4755282581475768, 0.05}}], Arrow3DBox[{{-0.15450849718747367`, 0.4755282581475768, 0.1}, {-0.15450849718747367`, 0.4755282581475768, 0.15000000000000002`}}], Arrow3DBox[{{-0.15450849718747367`, 0.4755282581475768, 0.2}, {-0.15450849718747367`, 0.4755282581475768, 0.25}}], Arrow3DBox[{{-0.15450849718747367`, 0.4755282581475768, 0.3}, {-0.15450849718747367`, 0.4755282581475768, 0.35}}], Arrow3DBox[{{-0.15450849718747367`, 0.4755282581475768, 0.4}, {-0.15450849718747367`, 0.4755282581475768, 0.45}}], Arrow3DBox[{{-0.15450849718747367`, 0.4755282581475768, 0.5}, {-0.15450849718747367`, 0.4755282581475768, 0.55}}], Arrow3DBox[{{-0.15450849718747367`, 0.4755282581475768, 0.6}, {-0.15450849718747367`, 0.4755282581475768, 0.65}}], Arrow3DBox[{{-0.15450849718747367`, 0.4755282581475768, 0.7}, {-0.15450849718747367`, 0.4755282581475768, 0.75}}], Arrow3DBox[{{-0.15450849718747367`, 0.4755282581475768, 0.8}, {-0.15450849718747367`, 0.4755282581475768, 0.8500000000000001}}], Arrow3DBox[{{-0.15450849718747367`, 0.4755282581475768, 0.9}, {-0.15450849718747367`, 0.4755282581475768, 0.9500000000000001}}], Arrow3DBox[{{-0.15450849718747367`, 0.4755282581475768, 1.}, {-0.15450849718747367`, 0.4755282581475768, 1.05}}], Arrow3DBox[{{-0.2938926261462365, 0.4045084971874737, 0.}, {-0.2938926261462365, 0.4045084971874737, 0.05}}], Arrow3DBox[{{-0.2938926261462365, 0.4045084971874737, 0.1}, {-0.2938926261462365, 0.4045084971874737, 0.15000000000000002`}}], Arrow3DBox[{{-0.2938926261462365, 0.4045084971874737, 0.2}, {-0.2938926261462365, 0.4045084971874737, 0.25}}], Arrow3DBox[{{-0.2938926261462365, 0.4045084971874737, 0.3}, {-0.2938926261462365, 0.4045084971874737, 0.35}}], Arrow3DBox[{{-0.2938926261462365, 0.4045084971874737, 0.4}, {-0.2938926261462365, 0.4045084971874737, 0.45}}], Arrow3DBox[{{-0.2938926261462365, 0.4045084971874737, 0.5}, {-0.2938926261462365, 0.4045084971874737, 0.55}}], Arrow3DBox[{{-0.2938926261462365, 0.4045084971874737, 0.6}, {-0.2938926261462365, 0.4045084971874737, 0.65}}], Arrow3DBox[{{-0.2938926261462365, 0.4045084971874737, 0.7}, {-0.2938926261462365, 0.4045084971874737, 0.75}}], Arrow3DBox[{{-0.2938926261462365, 0.4045084971874737, 0.8}, {-0.2938926261462365, 0.4045084971874737, 0.8500000000000001}}], Arrow3DBox[{{-0.2938926261462365, 0.4045084971874737, 0.9}, {-0.2938926261462365, 0.4045084971874737, 0.9500000000000001}}], Arrow3DBox[{{-0.2938926261462365, 0.4045084971874737, 1.}, {-0.2938926261462365, 0.4045084971874737, 1.05}}], Arrow3DBox[{{-0.40450849718747367`, 0.2938926261462366, 0.}, {-0.40450849718747367`, 0.2938926261462366, 0.05}}], Arrow3DBox[{{-0.40450849718747367`, 0.2938926261462366, 0.1}, {-0.40450849718747367`, 0.2938926261462366, 0.15000000000000002`}}], Arrow3DBox[{{-0.40450849718747367`, 0.2938926261462366, 0.2}, {-0.40450849718747367`, 0.2938926261462366, 0.25}}], Arrow3DBox[{{-0.40450849718747367`, 0.2938926261462366, 0.3}, {-0.40450849718747367`, 0.2938926261462366, 0.35}}], Arrow3DBox[{{-0.40450849718747367`, 0.2938926261462366, 0.4}, {-0.40450849718747367`, 0.2938926261462366, 0.45}}], Arrow3DBox[{{-0.40450849718747367`, 0.2938926261462366, 0.5}, {-0.40450849718747367`, 0.2938926261462366, 0.55}}], Arrow3DBox[{{-0.40450849718747367`, 0.2938926261462366, 0.6}, {-0.40450849718747367`, 0.2938926261462366, 0.65}}], Arrow3DBox[{{-0.40450849718747367`, 0.2938926261462366, 0.7}, {-0.40450849718747367`, 0.2938926261462366, 0.75}}], Arrow3DBox[{{-0.40450849718747367`, 0.2938926261462366, 0.8}, {-0.40450849718747367`, 0.2938926261462366, 0.8500000000000001}}], Arrow3DBox[{{-0.40450849718747367`, 0.2938926261462366, 0.9}, {-0.40450849718747367`, 0.2938926261462366, 0.9500000000000001}}], Arrow3DBox[{{-0.40450849718747367`, 0.2938926261462366, 1.}, {-0.40450849718747367`, 0.2938926261462366, 1.05}}], Arrow3DBox[{{-0.47552825814757677`, 0.15450849718747375`, 0.}, {-0.47552825814757677`, 0.15450849718747375`, 0.05}}], Arrow3DBox[{{-0.47552825814757677`, 0.15450849718747375`, 0.1}, {-0.47552825814757677`, 0.15450849718747375`, 0.15000000000000002`}}], Arrow3DBox[{{-0.47552825814757677`, 0.15450849718747375`, 0.2}, {-0.47552825814757677`, 0.15450849718747375`, 0.25}}], Arrow3DBox[{{-0.47552825814757677`, 0.15450849718747375`, 0.3}, {-0.47552825814757677`, 0.15450849718747375`, 0.35}}], Arrow3DBox[{{-0.47552825814757677`, 0.15450849718747375`, 0.4}, {-0.47552825814757677`, 0.15450849718747375`, 0.45}}], Arrow3DBox[{{-0.47552825814757677`, 0.15450849718747375`, 0.5}, {-0.47552825814757677`, 0.15450849718747375`, 0.55}}], Arrow3DBox[{{-0.47552825814757677`, 0.15450849718747375`, 0.6}, {-0.47552825814757677`, 0.15450849718747375`, 0.65}}], Arrow3DBox[{{-0.47552825814757677`, 0.15450849718747375`, 0.7}, {-0.47552825814757677`, 0.15450849718747375`, 0.75}}], Arrow3DBox[{{-0.47552825814757677`, 0.15450849718747375`, 0.8}, {-0.47552825814757677`, 0.15450849718747375`, 0.8500000000000001}}], Arrow3DBox[{{-0.47552825814757677`, 0.15450849718747375`, 0.9}, {-0.47552825814757677`, 0.15450849718747375`, 0.9500000000000001}}], Arrow3DBox[{{-0.47552825814757677`, 0.15450849718747375`, 1.}, {-0.47552825814757677`, 0.15450849718747375`, 1.05}}], Arrow3DBox[{{-0.5, 6.123233995736766*^-17, 0.}, {-0.5, 6.123233995736766*^-17, 0.05}}], Arrow3DBox[{{-0.5, 6.123233995736766*^-17, 0.1}, {-0.5, 6.123233995736766*^-17, 0.15000000000000002`}}], Arrow3DBox[{{-0.5, 6.123233995736766*^-17, 0.2}, {-0.5, 6.123233995736766*^-17, 0.25}}], Arrow3DBox[{{-0.5, 6.123233995736766*^-17, 0.3}, {-0.5, 6.123233995736766*^-17, 0.35}}], Arrow3DBox[{{-0.5, 6.123233995736766*^-17, 0.4}, {-0.5, 6.123233995736766*^-17, 0.45}}], Arrow3DBox[{{-0.5, 6.123233995736766*^-17, 0.5}, {-0.5, 6.123233995736766*^-17, 0.55}}], Arrow3DBox[{{-0.5, 6.123233995736766*^-17, 0.6}, {-0.5, 6.123233995736766*^-17, 0.65}}], Arrow3DBox[{{-0.5, 6.123233995736766*^-17, 0.7}, {-0.5, 6.123233995736766*^-17, 0.75}}], Arrow3DBox[{{-0.5, 6.123233995736766*^-17, 0.8}, {-0.5, 6.123233995736766*^-17, 0.8500000000000001}}], Arrow3DBox[{{-0.5, 6.123233995736766*^-17, 0.9}, {-0.5, 6.123233995736766*^-17, 0.9500000000000001}}], Arrow3DBox[{{-0.5, 6.123233995736766*^-17, 1.}, {-0.5, 6.123233995736766*^-17, 1.05}}]}, {RGBColor[0, 0, 1], Arrowheads[Tiny], Arrow3DBox[{{0.5, 0., 0.}, {0.55, 0., 0.}}], Arrow3DBox[{{0.5, 0., 0.1}, {0.55, 0., 0.1}}], Arrow3DBox[{{0.5, 0., 0.2}, {0.55, 0., 0.2}}], Arrow3DBox[{{0.5, 0., 0.3}, {0.55, 0., 0.3}}], Arrow3DBox[{{0.5, 0., 0.4}, {0.55, 0., 0.4}}], Arrow3DBox[{{0.5, 0., 0.5}, {0.55, 0., 0.5}}], Arrow3DBox[{{0.5, 0., 0.6}, {0.55, 0., 0.6}}], Arrow3DBox[{{0.5, 0., 0.7}, {0.55, 0., 0.7}}], Arrow3DBox[{{0.5, 0., 0.8}, {0.55, 0., 0.8}}], Arrow3DBox[{{0.5, 0., 0.9}, {0.55, 0., 0.9}}], Arrow3DBox[{{0.5, 0., 1.}, {0.55, 0., 1.}}], Arrow3DBox[{{0.47552825814757677`, 0.1545084971874737, 0.}, { 0.5230810839623344, 0.16995934690622105`, 0.}}], Arrow3DBox[{{0.47552825814757677`, 0.1545084971874737, 0.1}, { 0.5230810839623344, 0.16995934690622105`, 0.1}}], Arrow3DBox[{{0.47552825814757677`, 0.1545084971874737, 0.2}, { 0.5230810839623344, 0.16995934690622105`, 0.2}}], Arrow3DBox[{{0.47552825814757677`, 0.1545084971874737, 0.3}, { 0.5230810839623344, 0.16995934690622105`, 0.3}}], Arrow3DBox[{{0.47552825814757677`, 0.1545084971874737, 0.4}, { 0.5230810839623344, 0.16995934690622105`, 0.4}}], Arrow3DBox[{{0.47552825814757677`, 0.1545084971874737, 0.5}, { 0.5230810839623344, 0.16995934690622105`, 0.5}}], Arrow3DBox[{{0.47552825814757677`, 0.1545084971874737, 0.6}, { 0.5230810839623344, 0.16995934690622105`, 0.6}}], Arrow3DBox[{{0.47552825814757677`, 0.1545084971874737, 0.7}, { 0.5230810839623344, 0.16995934690622105`, 0.7}}], Arrow3DBox[{{0.47552825814757677`, 0.1545084971874737, 0.8}, { 0.5230810839623344, 0.16995934690622105`, 0.8}}], Arrow3DBox[{{0.47552825814757677`, 0.1545084971874737, 0.9}, { 0.5230810839623344, 0.16995934690622105`, 0.9}}], Arrow3DBox[{{0.47552825814757677`, 0.1545084971874737, 1.}, { 0.5230810839623344, 0.16995934690622105`, 1.}}], Arrow3DBox[{{0.4045084971874737, 0.29389262614623657`, 0.}, { 0.4449593469062211, 0.3232818887608602, 0.}}], Arrow3DBox[{{0.4045084971874737, 0.29389262614623657`, 0.1}, { 0.4449593469062211, 0.3232818887608602, 0.1}}], Arrow3DBox[{{0.4045084971874737, 0.29389262614623657`, 0.2}, { 0.4449593469062211, 0.3232818887608602, 0.2}}], Arrow3DBox[{{0.4045084971874737, 0.29389262614623657`, 0.3}, { 0.4449593469062211, 0.3232818887608602, 0.3}}], Arrow3DBox[{{0.4045084971874737, 0.29389262614623657`, 0.4}, { 0.4449593469062211, 0.3232818887608602, 0.4}}], Arrow3DBox[{{0.4045084971874737, 0.29389262614623657`, 0.5}, { 0.4449593469062211, 0.3232818887608602, 0.5}}], Arrow3DBox[{{0.4045084971874737, 0.29389262614623657`, 0.6}, { 0.4449593469062211, 0.3232818887608602, 0.6}}], Arrow3DBox[{{0.4045084971874737, 0.29389262614623657`, 0.7}, { 0.4449593469062211, 0.3232818887608602, 0.7}}], Arrow3DBox[{{0.4045084971874737, 0.29389262614623657`, 0.8}, { 0.4449593469062211, 0.3232818887608602, 0.8}}], Arrow3DBox[{{0.4045084971874737, 0.29389262614623657`, 0.9}, { 0.4449593469062211, 0.3232818887608602, 0.9}}], Arrow3DBox[{{0.4045084971874737, 0.29389262614623657`, 1.}, { 0.4449593469062211, 0.3232818887608602, 1.}}], Arrow3DBox[{{0.29389262614623657`, 0.4045084971874737, 0.}, { 0.3232818887608602, 0.4449593469062211, 0.}}], Arrow3DBox[{{0.29389262614623657`, 0.4045084971874737, 0.1}, { 0.3232818887608602, 0.4449593469062211, 0.1}}], Arrow3DBox[{{0.29389262614623657`, 0.4045084971874737, 0.2}, { 0.3232818887608602, 0.4449593469062211, 0.2}}], Arrow3DBox[{{0.29389262614623657`, 0.4045084971874737, 0.3}, { 0.3232818887608602, 0.4449593469062211, 0.3}}], Arrow3DBox[{{0.29389262614623657`, 0.4045084971874737, 0.4}, { 0.3232818887608602, 0.4449593469062211, 0.4}}], Arrow3DBox[{{0.29389262614623657`, 0.4045084971874737, 0.5}, { 0.3232818887608602, 0.4449593469062211, 0.5}}], Arrow3DBox[{{0.29389262614623657`, 0.4045084971874737, 0.6}, { 0.3232818887608602, 0.4449593469062211, 0.6}}], Arrow3DBox[{{0.29389262614623657`, 0.4045084971874737, 0.7}, { 0.3232818887608602, 0.4449593469062211, 0.7}}], Arrow3DBox[{{0.29389262614623657`, 0.4045084971874737, 0.8}, { 0.3232818887608602, 0.4449593469062211, 0.8}}], Arrow3DBox[{{0.29389262614623657`, 0.4045084971874737, 0.9}, { 0.3232818887608602, 0.4449593469062211, 0.9}}], Arrow3DBox[{{0.29389262614623657`, 0.4045084971874737, 1.}, { 0.3232818887608602, 0.4449593469062211, 1.}}], Arrow3DBox[{{0.15450849718747373`, 0.47552825814757677`, 0.}, { 0.1699593469062211, 0.5230810839623344, 0.}}], Arrow3DBox[{{0.15450849718747373`, 0.47552825814757677`, 0.1}, { 0.1699593469062211, 0.5230810839623344, 0.1}}], Arrow3DBox[{{0.15450849718747373`, 0.47552825814757677`, 0.2}, { 0.1699593469062211, 0.5230810839623344, 0.2}}], Arrow3DBox[{{0.15450849718747373`, 0.47552825814757677`, 0.3}, { 0.1699593469062211, 0.5230810839623344, 0.3}}], Arrow3DBox[{{0.15450849718747373`, 0.47552825814757677`, 0.4}, { 0.1699593469062211, 0.5230810839623344, 0.4}}], Arrow3DBox[{{0.15450849718747373`, 0.47552825814757677`, 0.5}, { 0.1699593469062211, 0.5230810839623344, 0.5}}], Arrow3DBox[{{0.15450849718747373`, 0.47552825814757677`, 0.6}, { 0.1699593469062211, 0.5230810839623344, 0.6}}], Arrow3DBox[{{0.15450849718747373`, 0.47552825814757677`, 0.7}, { 0.1699593469062211, 0.5230810839623344, 0.7}}], Arrow3DBox[{{0.15450849718747373`, 0.47552825814757677`, 0.8}, { 0.1699593469062211, 0.5230810839623344, 0.8}}], Arrow3DBox[{{0.15450849718747373`, 0.47552825814757677`, 0.9}, { 0.1699593469062211, 0.5230810839623344, 0.9}}], Arrow3DBox[{{0.15450849718747373`, 0.47552825814757677`, 1.}, { 0.1699593469062211, 0.5230810839623344, 1.}}], Arrow3DBox[{{3.061616997868383*^-17, 0.5, 0.}, {3.367778697655221*^-17, 0.55, 0.}}], Arrow3DBox[{{3.061616997868383*^-17, 0.5, 0.1}, {3.367778697655221*^-17, 0.55, 0.1}}], Arrow3DBox[{{3.061616997868383*^-17, 0.5, 0.2}, {3.367778697655221*^-17, 0.55, 0.2}}], Arrow3DBox[{{3.061616997868383*^-17, 0.5, 0.3}, {3.367778697655221*^-17, 0.55, 0.3}}], Arrow3DBox[{{3.061616997868383*^-17, 0.5, 0.4}, {3.367778697655221*^-17, 0.55, 0.4}}], Arrow3DBox[{{3.061616997868383*^-17, 0.5, 0.5}, {3.367778697655221*^-17, 0.55, 0.5}}], Arrow3DBox[{{3.061616997868383*^-17, 0.5, 0.6}, {3.367778697655221*^-17, 0.55, 0.6}}], Arrow3DBox[{{3.061616997868383*^-17, 0.5, 0.7}, {3.367778697655221*^-17, 0.55, 0.7}}], Arrow3DBox[{{3.061616997868383*^-17, 0.5, 0.8}, {3.367778697655221*^-17, 0.55, 0.8}}], Arrow3DBox[{{3.061616997868383*^-17, 0.5, 0.9}, {3.367778697655221*^-17, 0.55, 0.9}}], Arrow3DBox[{{3.061616997868383*^-17, 0.5, 1.}, {3.367778697655221*^-17, 0.55, 1.}}], Arrow3DBox[{{-0.15450849718747367`, 0.4755282581475768, 0.}, {-0.16995934690622103`, 0.5230810839623345, 0.}}], Arrow3DBox[{{-0.15450849718747367`, 0.4755282581475768, 0.1}, {-0.16995934690622103`, 0.5230810839623345, 0.1}}], Arrow3DBox[{{-0.15450849718747367`, 0.4755282581475768, 0.2}, {-0.16995934690622103`, 0.5230810839623345, 0.2}}], Arrow3DBox[{{-0.15450849718747367`, 0.4755282581475768, 0.3}, {-0.16995934690622103`, 0.5230810839623345, 0.3}}], Arrow3DBox[{{-0.15450849718747367`, 0.4755282581475768, 0.4}, {-0.16995934690622103`, 0.5230810839623345, 0.4}}], Arrow3DBox[{{-0.15450849718747367`, 0.4755282581475768, 0.5}, {-0.16995934690622103`, 0.5230810839623345, 0.5}}], Arrow3DBox[{{-0.15450849718747367`, 0.4755282581475768, 0.6}, {-0.16995934690622103`, 0.5230810839623345, 0.6}}], Arrow3DBox[{{-0.15450849718747367`, 0.4755282581475768, 0.7}, {-0.16995934690622103`, 0.5230810839623345, 0.7}}], Arrow3DBox[{{-0.15450849718747367`, 0.4755282581475768, 0.8}, {-0.16995934690622103`, 0.5230810839623345, 0.8}}], Arrow3DBox[{{-0.15450849718747367`, 0.4755282581475768, 0.9}, {-0.16995934690622103`, 0.5230810839623345, 0.9}}], Arrow3DBox[{{-0.15450849718747367`, 0.4755282581475768, 1.}, {-0.16995934690622103`, 0.5230810839623345, 1.}}], Arrow3DBox[{{-0.2938926261462365, 0.4045084971874737, 0.}, {-0.32328188876086017`, 0.4449593469062211, 0.}}], Arrow3DBox[{{-0.2938926261462365, 0.4045084971874737, 0.1}, {-0.32328188876086017`, 0.4449593469062211, 0.1}}], Arrow3DBox[{{-0.2938926261462365, 0.4045084971874737, 0.2}, {-0.32328188876086017`, 0.4449593469062211, 0.2}}], Arrow3DBox[{{-0.2938926261462365, 0.4045084971874737, 0.3}, {-0.32328188876086017`, 0.4449593469062211, 0.3}}], Arrow3DBox[{{-0.2938926261462365, 0.4045084971874737, 0.4}, {-0.32328188876086017`, 0.4449593469062211, 0.4}}], Arrow3DBox[{{-0.2938926261462365, 0.4045084971874737, 0.5}, {-0.32328188876086017`, 0.4449593469062211, 0.5}}], Arrow3DBox[{{-0.2938926261462365, 0.4045084971874737, 0.6}, {-0.32328188876086017`, 0.4449593469062211, 0.6}}], Arrow3DBox[{{-0.2938926261462365, 0.4045084971874737, 0.7}, {-0.32328188876086017`, 0.4449593469062211, 0.7}}], Arrow3DBox[{{-0.2938926261462365, 0.4045084971874737, 0.8}, {-0.32328188876086017`, 0.4449593469062211, 0.8}}], Arrow3DBox[{{-0.2938926261462365, 0.4045084971874737, 0.9}, {-0.32328188876086017`, 0.4449593469062211, 0.9}}], Arrow3DBox[{{-0.2938926261462365, 0.4045084971874737, 1.}, {-0.32328188876086017`, 0.4449593469062211, 1.}}], Arrow3DBox[{{-0.40450849718747367`, 0.2938926261462366, 0.}, {-0.444959346906221, 0.3232818887608603, 0.}}], Arrow3DBox[{{-0.40450849718747367`, 0.2938926261462366, 0.1}, {-0.444959346906221, 0.3232818887608603, 0.1}}], Arrow3DBox[{{-0.40450849718747367`, 0.2938926261462366, 0.2}, {-0.444959346906221, 0.3232818887608603, 0.2}}], Arrow3DBox[{{-0.40450849718747367`, 0.2938926261462366, 0.3}, {-0.444959346906221, 0.3232818887608603, 0.3}}], Arrow3DBox[{{-0.40450849718747367`, 0.2938926261462366, 0.4}, {-0.444959346906221, 0.3232818887608603, 0.4}}], Arrow3DBox[{{-0.40450849718747367`, 0.2938926261462366, 0.5}, {-0.444959346906221, 0.3232818887608603, 0.5}}], Arrow3DBox[{{-0.40450849718747367`, 0.2938926261462366, 0.6}, {-0.444959346906221, 0.3232818887608603, 0.6}}], Arrow3DBox[{{-0.40450849718747367`, 0.2938926261462366, 0.7}, {-0.444959346906221, 0.3232818887608603, 0.7}}], Arrow3DBox[{{-0.40450849718747367`, 0.2938926261462366, 0.8}, {-0.444959346906221, 0.3232818887608603, 0.8}}], Arrow3DBox[{{-0.40450849718747367`, 0.2938926261462366, 0.9}, {-0.444959346906221, 0.3232818887608603, 0.9}}], Arrow3DBox[{{-0.40450849718747367`, 0.2938926261462366, 1.}, {-0.444959346906221, 0.3232818887608603, 1.}}], Arrow3DBox[{{-0.47552825814757677`, 0.15450849718747375`, 0.}, {-0.5230810839623344, 0.16995934690622114`, 0.}}], Arrow3DBox[{{-0.47552825814757677`, 0.15450849718747375`, 0.1}, {-0.5230810839623344, 0.16995934690622114`, 0.1}}], Arrow3DBox[{{-0.47552825814757677`, 0.15450849718747375`, 0.2}, {-0.5230810839623344, 0.16995934690622114`, 0.2}}], Arrow3DBox[{{-0.47552825814757677`, 0.15450849718747375`, 0.3}, {-0.5230810839623344, 0.16995934690622114`, 0.3}}], Arrow3DBox[{{-0.47552825814757677`, 0.15450849718747375`, 0.4}, {-0.5230810839623344, 0.16995934690622114`, 0.4}}], Arrow3DBox[{{-0.47552825814757677`, 0.15450849718747375`, 0.5}, {-0.5230810839623344, 0.16995934690622114`, 0.5}}], Arrow3DBox[{{-0.47552825814757677`, 0.15450849718747375`, 0.6}, {-0.5230810839623344, 0.16995934690622114`, 0.6}}], Arrow3DBox[{{-0.47552825814757677`, 0.15450849718747375`, 0.7}, {-0.5230810839623344, 0.16995934690622114`, 0.7}}], Arrow3DBox[{{-0.47552825814757677`, 0.15450849718747375`, 0.8}, {-0.5230810839623344, 0.16995934690622114`, 0.8}}], Arrow3DBox[{{-0.47552825814757677`, 0.15450849718747375`, 0.9}, {-0.5230810839623344, 0.16995934690622114`, 0.9}}], Arrow3DBox[{{-0.47552825814757677`, 0.15450849718747375`, 1.}, {-0.5230810839623344, 0.16995934690622114`, 1.}}], Arrow3DBox[{{-0.5, 6.123233995736766*^-17, 0.}, {-0.55, 6.735557395310443*^-17, 0.}}], Arrow3DBox[{{-0.5, 6.123233995736766*^-17, 0.1}, {-0.55, 6.735557395310443*^-17, 0.1}}], Arrow3DBox[{{-0.5, 6.123233995736766*^-17, 0.2}, {-0.55, 6.735557395310443*^-17, 0.2}}], Arrow3DBox[{{-0.5, 6.123233995736766*^-17, 0.3}, {-0.55, 6.735557395310443*^-17, 0.3}}], Arrow3DBox[{{-0.5, 6.123233995736766*^-17, 0.4}, {-0.55, 6.735557395310443*^-17, 0.4}}], Arrow3DBox[{{-0.5, 6.123233995736766*^-17, 0.5}, {-0.55, 6.735557395310443*^-17, 0.5}}], Arrow3DBox[{{-0.5, 6.123233995736766*^-17, 0.6}, {-0.55, 6.735557395310443*^-17, 0.6}}], Arrow3DBox[{{-0.5, 6.123233995736766*^-17, 0.7}, {-0.55, 6.735557395310443*^-17, 0.7}}], Arrow3DBox[{{-0.5, 6.123233995736766*^-17, 0.8}, {-0.55, 6.735557395310443*^-17, 0.8}}], Arrow3DBox[{{-0.5, 6.123233995736766*^-17, 0.9}, {-0.55, 6.735557395310443*^-17, 0.9}}], Arrow3DBox[{{-0.5, 6.123233995736766*^-17, 1.}, {-0.55, 6.735557395310443*^-17, 1.}}]}}, Axes->True, AxesLabel->{ FormBox["X", TraditionalForm], FormBox["Y", TraditionalForm], FormBox["Z", TraditionalForm]}, Boxed->False, Lighting->"Neutral"]], "Print", CellChangeTimes->{ 3.731052470280533*^9},ExpressionUUID->"617b1fa2-f76f-4f6d-9ed1-\ 986a5b0012f6"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Conical plate graphics", "Subsection", CellChangeTimes->{ 3.4710857577642*^9, {3.4710858112098*^9, 3.4710858239082003`*^9}, { 3.4710859049969997`*^9, 3.4710859061046*^9}, {3.4710892678536*^9, 3.4710892701*^9}, 3.4710893817648*^9, {3.4710894793115997`*^9, 3.4710895039596*^9}, {3.4710905118050003`*^9, 3.471090512741*^9}, { 3.4724589485142*^9, 3.4724589539274*^9}, {3.4724611172438*^9, 3.4724611386001997`*^9}, {3.472468943269*^9, 3.4724689445638*^9}, { 3.4724698165922003`*^9, 3.4724698198058*^9}, {3.4724822226106*^9, 3.4724822252469997`*^9}, 3.473564312486*^9, {3.603095648328417*^9, 3.6030956491396184`*^9}, {3.603096275293518*^9, 3.6030962817519293`*^9}, { 3.6030964025741415`*^9, 3.6030964374870033`*^9}, 3.6964818744076552`*^9, { 3.6964819063477*^9, 3.696481910027705*^9}, {3.69650363616432*^9, 3.696503640584326*^9}, 3.791953289762884*^9},ExpressionUUID->"c8081ec0-e26f-41d9-99b3-\ d24f12c732b3"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"conical", " ", "shell", " ", "domain"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"r0", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"R", "-", RowBox[{"z", "/", "3"}]}], ")"}], " ", RowBox[{"Cos", "[", "\[Phi]", "]"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"R", "-", RowBox[{"z", "/", "3"}]}], ")"}], " ", RowBox[{"Sin", "[", "\[Phi]", "]"}]}], ",", "z"}], "}"}], "/.", RowBox[{"R", "\[Rule]", "0.5"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"zdom", " ", "=", RowBox[{"{", RowBox[{"z", ",", "0", ",", "1", ",", RowBox[{"1", "/", "2"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Phi]dom", " ", "=", RowBox[{"{", RowBox[{"\[Phi]", ",", "0", ",", RowBox[{"3", RowBox[{"Pi", "/", "2"}]}], ",", RowBox[{"Pi", "/", "64"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ndom", "=", RowBox[{"{", RowBox[{"n", ",", RowBox[{ RowBox[{"-", "1"}], "/", "40"}], ",", RowBox[{"1", "/", "40"}], ",", RowBox[{"1", "/", "80"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"SURFACEPLOT", "[", RowBox[{"r0", ",", "zdom", ",", "\[Phi]dom", ",", "ndom"}], "]"}], " ", "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.47099820412*^9, 3.4709982441963997`*^9}, { 3.4709982841636*^9, 3.4709984139244003`*^9}, {3.4709984525188*^9, 3.470998495217*^9}, 3.4709986392362003`*^9, {3.4709993623898*^9, 3.4709993759618*^9}, {3.4710000941369004`*^9, 3.4710003768403006`*^9}, { 3.4710004538419003`*^9, 3.4710005845387*^9}, {3.4710006147403*^9, 3.4710008755099*^9}, {3.4710009790277004`*^9, 3.4710009799013004`*^9}, { 3.4710010273877*^9, 3.4710010755293007`*^9}, {3.4710011347469006`*^9, 3.4710011353397007`*^9}, {3.4710013020257006`*^9, 3.4710013527101*^9}, { 3.4710014314901004`*^9, 3.4710014978213005`*^9}, {3.4710015332333*^9, 3.4710016230113*^9}, 3.4710016990321007`*^9, {3.4710017333545003`*^9, 3.4710018255661*^9}, {3.4710019272625003`*^9, 3.4710019545157003`*^9}, { 3.4710020061985006`*^9, 3.4710020072437005`*^9}, {3.4710021130585003`*^9, 3.4710021169117002`*^9}, {3.4710022681381006`*^9, 3.4710023131753006`*^9}, {3.4710023463721004`*^9, 3.4710023734069004`*^9}, {3.4710024303157005`*^9, 3.4710026640349007`*^9}, {3.4710026984641004`*^9, 3.4710027559033003`*^9}, {3.4710027907381*^9, 3.4710028222501*^9}, { 3.4710029648029003`*^9, 3.4710030009013004`*^9}, {3.4710030486529007`*^9, 3.4710030648769007`*^9}, {3.4710031248589*^9, 3.4710031826881003`*^9}, { 3.4710033596409006`*^9, 3.4710034167057004`*^9}, {3.4710494122444*^9, 3.4710494125875998`*^9}, {3.4710495028492002`*^9, 3.4710495460299997`*^9}, {3.4710497723859997`*^9, 3.4710498858936*^9}, { 3.471049928722*^9, 3.4710499387256002`*^9}, {3.4710499775248003`*^9, 3.4710500206275997`*^9}, {3.471050070532*^9, 3.4710500917324*^9}, { 3.4710501802156*^9, 3.4710502338952*^9}, {3.4710502694788*^9, 3.471050339788*^9}, {3.4710528445752*^9, 3.471052869972*^9}, { 3.4710572923389997`*^9, 3.4710573765322*^9}, {3.4710574482922*^9, 3.4710576210466003`*^9}, {3.4710577053178*^9, 3.471057783973*^9}, { 3.4710578398522*^9, 3.4710578798974*^9}, {3.4710579857278*^9, 3.4710579969286003`*^9}, {3.471067280638*^9, 3.4710673325236*^9}, 3.471067365658*^9, {3.4710674010232*^9, 3.471067422832*^9}, { 3.4710677004611998`*^9, 3.4710677268096*^9}, {3.4710852587202*^9, 3.471085280841*^9}, {3.4710853152546*^9, 3.4710853555962*^9}, { 3.471085394565*^9, 3.4710853959066*^9}, {3.4710854362482*^9, 3.4710854370906*^9}, {3.4710854875098*^9, 3.471085680513*^9}, { 3.4710892604904003`*^9, 3.4710893034372*^9}, {3.471089356836*^9, 3.4710893764608*^9}, {3.4710894188459997`*^9, 3.471089425788*^9}, { 3.4724589773118*^9, 3.4724589776862*^9}, {3.4724590337058*^9, 3.4724592062262*^9}, {3.4724592707790003`*^9, 3.472459517027*^9}, { 3.472461044579*^9, 3.4724610729086*^9}, {3.4724611263073997`*^9, 3.4724611623746*^9}, {3.4724611959926*^9, 3.4724612582209997`*^9}, { 3.4724613167522*^9, 3.4724613785594*^9}, {3.4724614100518*^9, 3.4724614967722*^9}, {3.4724615747878*^9, 3.472461689479*^9}, { 3.4724617301638002`*^9, 3.4724618946502*^9}, {3.4724619767998*^9, 3.4724620530214*^9}, {3.4724620884958*^9, 3.4724621006326*^9}, { 3.4724623393282003`*^9, 3.4724623760818*^9}, {3.4724661846314*^9, 3.4724665395626*^9}, {3.4724665958318*^9, 3.472466724797*^9}, { 3.4724685801166*^9, 3.4724685805690002`*^9}, 3.4724686943866*^9, { 3.4724688321034*^9, 3.4724688576717997`*^9}, 3.4724689149238*^9, { 3.4724689527693996`*^9, 3.4724690179502*^9}, {3.4724696817146*^9, 3.4724697652058*^9}, {3.4724698252502003`*^9, 3.4724698632206*^9}, { 3.472470118421*^9, 3.4724701218686*^9}, {3.4724822341858*^9, 3.4724822532178*^9}, {3.4724822840746*^9, 3.472482389047*^9}, { 3.4724824465797997`*^9, 3.4724825484322*^9}, {3.4724825811454*^9, 3.4724825927518*^9}, {3.4724826764614*^9, 3.4724826888634*^9}, { 3.4724827403122*^9, 3.4724827437754*^9}, {3.472483138549*^9, 3.4724834098174*^9}, {3.4724834809846*^9, 3.4724835016702003`*^9}, 3.4724835752866*^9, {3.472483617469*^9, 3.4724836620538*^9}, { 3.4724837426514*^9, 3.4724837545854*^9}, {3.472483817157*^9, 3.4724840938772*^9}, {3.4724841715964003`*^9, 3.4724841722047997`*^9}, { 3.4724842246208*^9, 3.4724842734332*^9}, 3.4724843040248003`*^9, { 3.4724843480011997`*^9, 3.4724843522444*^9}, {3.4724843859716*^9, 3.4724843935532*^9}, {3.4724844459536*^9, 3.4724844810848*^9}, { 3.4724845226588*^9, 3.4724845582424*^9}, {3.4724845977416*^9, 3.4724846431064*^9}, {3.4724847282044*^9, 3.472484831414*^9}, { 3.4724849352788*^9, 3.4724849889584*^9}, 3.4724850417332*^9, { 3.4724850729332*^9, 3.4724850937124*^9}, {3.4724851659132*^9, 3.4724852686703997`*^9}, {3.4724853395256*^9, 3.4724853408204*^9}, { 3.4724853955764*^9, 3.4724854591464*^9}, 3.4724854917504*^9, { 3.4724855320296*^9, 3.4724856142883997`*^9}, {3.4724856780612*^9, 3.4724857337688*^9}, {3.4724857773864*^9, 3.4724859967068*^9}, { 3.4724861010708*^9, 3.4724861330508003`*^9}, {3.4724861866368*^9, 3.4724861884308*^9}, 3.4724863147752*^9, {3.4730691016610003`*^9, 3.4730691571814003`*^9}, 3.4730691910646*^9, {3.4730692318118*^9, 3.4730693926946*^9}, {3.4730694506954*^9, 3.4730696453366003`*^9}, { 3.473069681513*^9, 3.4730696947106*^9}, {3.4730697312614*^9, 3.4730699368694*^9}, {3.4730700174912*^9, 3.4730701931472*^9}, { 3.4730702507111998`*^9, 3.473070323922*^9}, {3.4730704242924*^9, 3.4730704250256*^9}, {3.47307050769*^9, 3.4730705522904*^9}, { 3.4730705866104*^9, 3.4730706117108*^9}, {3.4730706700704*^9, 3.4730707164804*^9}, {3.473070751752*^9, 3.4730708560692*^9}, 3.4730709027444*^9, {3.4730709789192*^9, 3.4730710312416*^9}, { 3.4730711046708*^9, 3.4730711179776*^9}, {3.4730711593644*^9, 3.4730712155868*^9}, {3.4730713067064*^9, 3.4730713693872004`*^9}, { 3.4730714130828*^9, 3.4730714830488*^9}, {3.4730715954936*^9, 3.4730715973188*^9}, {3.4730716322316*^9, 3.4730717027002*^9}, 3.473071735741*^9, {3.4730717862538*^9, 3.4730717867530003`*^9}, { 3.473071877545*^9, 3.4730718860002003`*^9}, {3.4730719225198*^9, 3.4730721296254*^9}, {3.4730721652558002`*^9, 3.4730722515706*^9}, { 3.4730722878562*^9, 3.4730723251558*^9}, 3.4730723601622*^9, 3.4730723958082*^9, {3.4730724414538*^9, 3.4730727985066*^9}, { 3.4730728721542*^9, 3.4730729685642*^9}, {3.4730730453942003`*^9, 3.4730732321261997`*^9}, {3.4731243399018*^9, 3.4731243449094*^9}, 3.4731244295706*^9, {3.6030951294767056`*^9, 3.6030951722519803`*^9}, { 3.6030952607197356`*^9, 3.603095264401342*^9}, 3.6030956800588727`*^9, { 3.6030957143477325`*^9, 3.6030957145505333`*^9}, {3.6661653673899775`*^9, 3.6661654530248756`*^9}, {3.6661654918190947`*^9, 3.66616549506228*^9}, 3.66616577235114*^9, {3.66616590749487*^9, 3.66616591239215*^9}, { 3.6661659431529093`*^9, 3.6661659520364175`*^9}, {3.6661661050661707`*^9, 3.6661661101374607`*^9}, {3.6661661562931004`*^9, 3.6661661637155247`*^9}, {3.6661661990265446`*^9, 3.6661662023857365`*^9}, {3.666166288075638*^9, 3.6661663141691303`*^9}, { 3.666166347697048*^9, 3.666166352313312*^9}, {3.666166608072941*^9, 3.66616661627941*^9}, 3.666166678135948*^9, {3.666175535538022*^9, 3.6661755838357067`*^9}, {3.666175653287029*^9, 3.666175686577487*^9}, { 3.6661757320203667`*^9, 3.6661757880868654`*^9}, {3.6661759657558136`*^9, 3.666175968880992*^9}, {3.6662778539014807`*^9, 3.666277856038685*^9}, { 3.6662778876599402`*^9, 3.6662779233528028`*^9}, {3.6662779628676724`*^9, 3.6662779689204826`*^9}, {3.696482036467882*^9, 3.696482049807901*^9}, { 3.696577136322919*^9, 3.6965771366219363`*^9}, {3.6966435882604933`*^9, 3.6966437733507524`*^9}, {3.6966438092808027`*^9, 3.6966438844109077`*^9}, {3.696643916030952*^9, 3.6966439594510126`*^9}, { 3.6966440190410967`*^9, 3.6966441052012167`*^9}, {3.6966444917917585`*^9, 3.696644505231777*^9}, {3.696652148824478*^9, 3.696652168004505*^9}, 3.727879498189735*^9, {3.7281133190258856`*^9, 3.728113348732515*^9}, { 3.728278888252929*^9, 3.7282788882839913`*^9}},ExpressionUUID->"4b6fb094-c155-4c99-a480-\ 59f4896337ae"] }, Closed]], Cell[CellGroupData[{ Cell["Spherical plate graphics", "Subsection", CellChangeTimes->{ 3.4710857577642*^9, {3.4710858112098*^9, 3.4710858239082003`*^9}, { 3.4710859049969997`*^9, 3.4710859061046*^9}, {3.4710892678536*^9, 3.4710892701*^9}, 3.4710893817648*^9, {3.4710894793115997`*^9, 3.4710895039596*^9}, {3.4710905118050003`*^9, 3.471090512741*^9}, { 3.4724589485142*^9, 3.4724589539274*^9}, {3.4724611172438*^9, 3.4724611386001997`*^9}, {3.472468943269*^9, 3.4724689445638*^9}, { 3.4724698165922003`*^9, 3.4724698198058*^9}, {3.4724822226106*^9, 3.4724822252469997`*^9}, 3.473564312486*^9, {3.603095648328417*^9, 3.6030956491396184`*^9}, {3.603096275293518*^9, 3.6030962817519293`*^9}, { 3.6030964432122135`*^9, 3.603096444507015*^9}, {3.696481911727708*^9, 3.6964819131277094`*^9}, {3.6965036445843315`*^9, 3.6965036472543354`*^9}, 3.7919532929413853`*^9},ExpressionUUID->"553f09e1-1ffd-43a0-80e6-\ 35b751ea14a6"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"spherical", " ", "shell", " ", "domain"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"r0", "=", RowBox[{ RowBox[{"R", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", RowBox[{"Cos", "[", "\[Phi]", "]"}]}], ",", RowBox[{ RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", RowBox[{"Sin", "[", "\[Phi]", "]"}]}], ",", RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "}"}]}], " ", "/.", RowBox[{"R", "\[Rule]", "0.5"}]}]}], ";"}], " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Phi]dom", " ", "=", RowBox[{"{", RowBox[{"\[Phi]", ",", "0", ",", RowBox[{"2", "Pi"}], ",", RowBox[{"Pi", "/", "32"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Theta]dom", " ", "=", RowBox[{"{", RowBox[{"\[Theta]", ",", RowBox[{"Pi", "/", "6"}], ",", RowBox[{"5", RowBox[{"Pi", "/", "6"}]}], ",", RowBox[{"Pi", "/", "32"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ndom", "=", RowBox[{"{", RowBox[{"n", ",", RowBox[{ RowBox[{"-", "1"}], "/", "40"}], ",", RowBox[{"1", "/", "40"}], ",", RowBox[{"1", "/", "80"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"SURFACEPLOT", "[", RowBox[{"r0", ",", "\[Phi]dom", ",", "\[Theta]dom", ",", "ndom"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.47099820412*^9, 3.4709982441963997`*^9}, { 3.4709982841636*^9, 3.4709984139244003`*^9}, {3.4709984525188*^9, 3.470998495217*^9}, 3.4709986392362003`*^9, {3.4709993623898*^9, 3.4709993759618*^9}, {3.4710000941369004`*^9, 3.4710003768403006`*^9}, { 3.4710004538419003`*^9, 3.4710005845387*^9}, {3.4710006147403*^9, 3.4710008755099*^9}, {3.4710009790277004`*^9, 3.4710009799013004`*^9}, { 3.4710010273877*^9, 3.4710010755293007`*^9}, {3.4710011347469006`*^9, 3.4710011353397007`*^9}, {3.4710013020257006`*^9, 3.4710013527101*^9}, { 3.4710014314901004`*^9, 3.4710014978213005`*^9}, {3.4710015332333*^9, 3.4710016230113*^9}, 3.4710016990321007`*^9, {3.4710017333545003`*^9, 3.4710018255661*^9}, {3.4710019272625003`*^9, 3.4710019545157003`*^9}, { 3.4710020061985006`*^9, 3.4710020072437005`*^9}, {3.4710021130585003`*^9, 3.4710021169117002`*^9}, {3.4710022681381006`*^9, 3.4710023131753006`*^9}, {3.4710023463721004`*^9, 3.4710023734069004`*^9}, {3.4710024303157005`*^9, 3.4710026640349007`*^9}, {3.4710026984641004`*^9, 3.4710027559033003`*^9}, {3.4710027907381*^9, 3.4710028222501*^9}, { 3.4710029648029003`*^9, 3.4710030009013004`*^9}, {3.4710030486529007`*^9, 3.4710030648769007`*^9}, {3.4710031248589*^9, 3.4710031826881003`*^9}, { 3.4710033596409006`*^9, 3.4710034167057004`*^9}, {3.4710494122444*^9, 3.4710494125875998`*^9}, {3.4710495028492002`*^9, 3.4710495460299997`*^9}, {3.4710497723859997`*^9, 3.4710498858936*^9}, { 3.471049928722*^9, 3.4710499387256002`*^9}, {3.4710499775248003`*^9, 3.4710500206275997`*^9}, {3.471050070532*^9, 3.4710500917324*^9}, { 3.4710501802156*^9, 3.4710502338952*^9}, {3.4710502694788*^9, 3.471050339788*^9}, {3.4710528445752*^9, 3.471052869972*^9}, { 3.4710572923389997`*^9, 3.4710573765322*^9}, {3.4710574482922*^9, 3.4710576210466003`*^9}, {3.4710577053178*^9, 3.471057783973*^9}, { 3.4710578398522*^9, 3.4710578798974*^9}, {3.4710579857278*^9, 3.4710579969286003`*^9}, {3.471067280638*^9, 3.4710673325236*^9}, 3.471067365658*^9, {3.4710674010232*^9, 3.471067422832*^9}, { 3.4710677004611998`*^9, 3.4710677268096*^9}, {3.4710852587202*^9, 3.471085280841*^9}, {3.4710853152546*^9, 3.4710853555962*^9}, { 3.471085394565*^9, 3.4710853959066*^9}, {3.4710854362482*^9, 3.4710854370906*^9}, {3.4710854875098*^9, 3.471085680513*^9}, { 3.4710892604904003`*^9, 3.4710893034372*^9}, {3.471089356836*^9, 3.4710893764608*^9}, {3.4710894188459997`*^9, 3.471089425788*^9}, { 3.4724589773118*^9, 3.4724589776862*^9}, {3.4724590337058*^9, 3.4724592062262*^9}, {3.4724592707790003`*^9, 3.472459517027*^9}, { 3.472461044579*^9, 3.4724610729086*^9}, {3.4724611263073997`*^9, 3.4724611623746*^9}, {3.4724611959926*^9, 3.4724612582209997`*^9}, { 3.4724613167522*^9, 3.4724613785594*^9}, {3.4724614100518*^9, 3.4724614967722*^9}, {3.4724615747878*^9, 3.472461689479*^9}, { 3.4724617301638002`*^9, 3.4724618946502*^9}, {3.4724619767998*^9, 3.4724620530214*^9}, {3.4724620884958*^9, 3.4724621006326*^9}, { 3.4724623393282003`*^9, 3.4724623760818*^9}, {3.4724661846314*^9, 3.4724665395626*^9}, {3.4724665958318*^9, 3.472466724797*^9}, { 3.4724685801166*^9, 3.4724685805690002`*^9}, 3.4724686943866*^9, { 3.4724688321034*^9, 3.4724688576717997`*^9}, 3.4724689149238*^9, { 3.4724689527693996`*^9, 3.4724690179502*^9}, {3.4724696817146*^9, 3.4724697652058*^9}, {3.4724698252502003`*^9, 3.4724698632206*^9}, { 3.472470118421*^9, 3.4724701218686*^9}, {3.4724822341858*^9, 3.4724822532178*^9}, {3.4724822840746*^9, 3.472482389047*^9}, { 3.4724824465797997`*^9, 3.4724825484322*^9}, {3.4724825811454*^9, 3.4724825927518*^9}, {3.4724826764614*^9, 3.4724826888634*^9}, { 3.4724827403122*^9, 3.4724827437754*^9}, {3.472483138549*^9, 3.4724834098174*^9}, {3.4724834809846*^9, 3.4724835016702003`*^9}, 3.4724835752866*^9, {3.472483617469*^9, 3.4724836620538*^9}, { 3.4724837426514*^9, 3.4724837545854*^9}, {3.472483817157*^9, 3.4724840938772*^9}, {3.4724841715964003`*^9, 3.4724841722047997`*^9}, { 3.4724842246208*^9, 3.4724842734332*^9}, 3.4724843040248003`*^9, { 3.4724843480011997`*^9, 3.4724843522444*^9}, {3.4724843859716*^9, 3.4724843935532*^9}, {3.4724844459536*^9, 3.4724844810848*^9}, { 3.4724845226588*^9, 3.4724845582424*^9}, {3.4724845977416*^9, 3.4724846431064*^9}, {3.4724847282044*^9, 3.472484831414*^9}, { 3.4724849352788*^9, 3.4724849889584*^9}, 3.4724850417332*^9, { 3.4724850729332*^9, 3.4724850937124*^9}, {3.4724851659132*^9, 3.4724852686703997`*^9}, {3.4724853395256*^9, 3.4724853408204*^9}, { 3.4724853955764*^9, 3.4724854591464*^9}, 3.4724854917504*^9, { 3.4724855320296*^9, 3.4724856142883997`*^9}, {3.4724856780612*^9, 3.4724857337688*^9}, {3.4724857773864*^9, 3.4724859967068*^9}, { 3.4724861010708*^9, 3.4724861330508003`*^9}, {3.4724861866368*^9, 3.4724861884308*^9}, 3.4724863147752*^9, {3.4730691016610003`*^9, 3.4730691571814003`*^9}, 3.4730691910646*^9, {3.4730692318118*^9, 3.4730693926946*^9}, {3.4730694506954*^9, 3.4730696453366003`*^9}, { 3.473069681513*^9, 3.4730696947106*^9}, {3.4730697312614*^9, 3.4730699368694*^9}, {3.4730700174912*^9, 3.4730701931472*^9}, { 3.4730702507111998`*^9, 3.473070323922*^9}, {3.4730704242924*^9, 3.4730704250256*^9}, {3.47307050769*^9, 3.4730705522904*^9}, { 3.4730705866104*^9, 3.4730706117108*^9}, {3.4730706700704*^9, 3.4730707164804*^9}, {3.473070751752*^9, 3.4730708560692*^9}, 3.4730709027444*^9, {3.4730709789192*^9, 3.4730710312416*^9}, { 3.4730711046708*^9, 3.4730711179776*^9}, {3.4730711593644*^9, 3.4730712155868*^9}, {3.4730713067064*^9, 3.4730713693872004`*^9}, { 3.4730714130828*^9, 3.4730714830488*^9}, {3.4730715954936*^9, 3.4730715973188*^9}, {3.4730716322316*^9, 3.4730717027002*^9}, 3.473071735741*^9, {3.4730717862538*^9, 3.4730717867530003`*^9}, { 3.473071877545*^9, 3.4730718860002003`*^9}, {3.4730719225198*^9, 3.4730721296254*^9}, {3.4730721652558002`*^9, 3.4730722515706*^9}, { 3.4730722878562*^9, 3.4730723251558*^9}, 3.4730723601622*^9, 3.4730723958082*^9, {3.4730724414538*^9, 3.4730727985066*^9}, { 3.4730728721542*^9, 3.4730729685642*^9}, {3.4730730453942003`*^9, 3.4730732321261997`*^9}, {3.4731243399018*^9, 3.4731243449094*^9}, 3.4731244295706*^9, {3.6030951294767056`*^9, 3.6030951722519803`*^9}, { 3.6030952607197356`*^9, 3.603095264401342*^9}, 3.6030956800588727`*^9, { 3.6030957143477325`*^9, 3.6030957145505333`*^9}, {3.6030964620102463`*^9, 3.603096553738407*^9}, 3.6030965948444796`*^9, {3.60309664070856*^9, 3.60309669789826*^9}, {3.603096746351946*^9, 3.603096765383979*^9}, { 3.6030968606377463`*^9, 3.603096901931019*^9}, {3.603102637711606*^9, 3.603102637852006*^9}, 3.60310287924683*^9, {3.666166749758453*^9, 3.6661668605966473`*^9}, {3.6661669647580304`*^9, 3.666166978158454*^9}, { 3.6661670441465697`*^9, 3.666167063662204*^9}, {3.666167121741106*^9, 3.666167126982715*^9}, {3.666167175218*^9, 3.6661671818792114`*^9}, { 3.6661672198964787`*^9, 3.666167229584096*^9}, {3.666167289520401*^9, 3.6661672917668047`*^9}, {3.666171421065259*^9, 3.6661714462281036`*^9}, { 3.6661715078014116`*^9, 3.666171514244223*^9}, 3.6661716401520443`*^9, { 3.6661716710712986`*^9, 3.6661716804157147`*^9}, 3.666277027508229*^9, { 3.66627783650745*^9, 3.6662778410782585`*^9}, {3.6662779306068153`*^9, 3.6662779504032507`*^9}, {3.6966441860113297`*^9, 3.6966442655014415`*^9}, {3.696644308831502*^9, 3.6966444538917055`*^9}, { 3.6966522044645557`*^9, 3.6966522219545803`*^9}, {3.7278709555411963`*^9, 3.7278709780905066`*^9}, {3.7278710735599966`*^9, 3.7278710837017317`*^9}, {3.7278711566627316`*^9, 3.7278711623508444`*^9}},ExpressionUUID->"76ad445f-4114-431e-8b4f-\ cfdaff900e7f"] }, Closed]], Cell[CellGroupData[{ Cell["Toroidal plate graphics", "Subsection", CellChangeTimes->{ 3.4710857577642*^9, {3.4710858112098*^9, 3.4710858239082003`*^9}, { 3.4710859049969997`*^9, 3.4710859061046*^9}, {3.4710892678536*^9, 3.4710892701*^9}, 3.4710893817648*^9, {3.4710894793115997`*^9, 3.4710895039596*^9}, {3.4710905118050003`*^9, 3.471090512741*^9}, { 3.4724589485142*^9, 3.4724589539274*^9}, {3.4724611172438*^9, 3.4724611386001997`*^9}, {3.472468943269*^9, 3.4724689445638*^9}, { 3.4724698165922003`*^9, 3.4724698198058*^9}, {3.4724822226106*^9, 3.4724822252469997`*^9}, 3.473564312486*^9, {3.603095648328417*^9, 3.6030956491396184`*^9}, {3.603096275293518*^9, 3.6030962817519293`*^9}, { 3.6030964432122135`*^9, 3.603096444507015*^9}, {3.666277223272972*^9, 3.666277225316576*^9}, {3.6964819147277117`*^9, 3.696481915667713*^9}, { 3.6965036513543415`*^9, 3.6965036540243444`*^9}, 3.791953295845837*^9},ExpressionUUID->"052f2812-5bfd-4826-a49d-\ 31bc8e11ed22"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"Toroidal", " ", "shell", " ", "domain"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"r0", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"R", "+", RowBox[{"r", " ", RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], ")"}], " ", RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", "\[Phi]", "]"}], ",", RowBox[{"Sin", "[", "\[Phi]", "]"}], ",", "0"}], "}"}]}], "+", RowBox[{"r", " ", RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}]}], " ", "/.", RowBox[{"{", RowBox[{ RowBox[{"R", "\[Rule]", "0.5"}], ",", RowBox[{"r", "\[Rule]", "0.2"}]}], "}"}]}]}], ";"}], " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Phi]dom", " ", "=", RowBox[{"{", RowBox[{"\[Phi]", ",", "0", ",", RowBox[{"3", RowBox[{"Pi", "/", "2"}]}], ",", RowBox[{"Pi", "/", "32"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Theta]dom", " ", "=", RowBox[{"{", RowBox[{"\[Theta]", ",", "0", ",", RowBox[{"3", RowBox[{"Pi", "/", "2"}]}], ",", RowBox[{"Pi", "/", "16"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ndom", "=", RowBox[{"{", RowBox[{"n", ",", RowBox[{ RowBox[{"-", "1"}], "/", "40"}], ",", RowBox[{"1", "/", "40"}], ",", RowBox[{"1", "/", "80"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"SURFACEPLOT", "[", RowBox[{"r0", ",", "\[Phi]dom", ",", "\[Theta]dom", ",", "ndom"}], "]"}], " ", "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.47099820412*^9, 3.4709982441963997`*^9}, { 3.4709982841636*^9, 3.4709984139244003`*^9}, {3.4709984525188*^9, 3.470998495217*^9}, 3.4709986392362003`*^9, {3.4709993623898*^9, 3.4709993759618*^9}, {3.4710000941369004`*^9, 3.4710003768403006`*^9}, { 3.4710004538419003`*^9, 3.4710005845387*^9}, {3.4710006147403*^9, 3.4710008755099*^9}, {3.4710009790277004`*^9, 3.4710009799013004`*^9}, { 3.4710010273877*^9, 3.4710010755293007`*^9}, {3.4710011347469006`*^9, 3.4710011353397007`*^9}, {3.4710013020257006`*^9, 3.4710013527101*^9}, { 3.4710014314901004`*^9, 3.4710014978213005`*^9}, {3.4710015332333*^9, 3.4710016230113*^9}, 3.4710016990321007`*^9, {3.4710017333545003`*^9, 3.4710018255661*^9}, {3.4710019272625003`*^9, 3.4710019545157003`*^9}, { 3.4710020061985006`*^9, 3.4710020072437005`*^9}, {3.4710021130585003`*^9, 3.4710021169117002`*^9}, {3.4710022681381006`*^9, 3.4710023131753006`*^9}, {3.4710023463721004`*^9, 3.4710023734069004`*^9}, {3.4710024303157005`*^9, 3.4710026640349007`*^9}, {3.4710026984641004`*^9, 3.4710027559033003`*^9}, {3.4710027907381*^9, 3.4710028222501*^9}, { 3.4710029648029003`*^9, 3.4710030009013004`*^9}, {3.4710030486529007`*^9, 3.4710030648769007`*^9}, {3.4710031248589*^9, 3.4710031826881003`*^9}, { 3.4710033596409006`*^9, 3.4710034167057004`*^9}, {3.4710494122444*^9, 3.4710494125875998`*^9}, {3.4710495028492002`*^9, 3.4710495460299997`*^9}, {3.4710497723859997`*^9, 3.4710498858936*^9}, { 3.471049928722*^9, 3.4710499387256002`*^9}, {3.4710499775248003`*^9, 3.4710500206275997`*^9}, {3.471050070532*^9, 3.4710500917324*^9}, { 3.4710501802156*^9, 3.4710502338952*^9}, {3.4710502694788*^9, 3.471050339788*^9}, {3.4710528445752*^9, 3.471052869972*^9}, { 3.4710572923389997`*^9, 3.4710573765322*^9}, {3.4710574482922*^9, 3.4710576210466003`*^9}, {3.4710577053178*^9, 3.471057783973*^9}, { 3.4710578398522*^9, 3.4710578798974*^9}, {3.4710579857278*^9, 3.4710579969286003`*^9}, {3.471067280638*^9, 3.4710673325236*^9}, 3.471067365658*^9, {3.4710674010232*^9, 3.471067422832*^9}, { 3.4710677004611998`*^9, 3.4710677268096*^9}, {3.4710852587202*^9, 3.471085280841*^9}, {3.4710853152546*^9, 3.4710853555962*^9}, { 3.471085394565*^9, 3.4710853959066*^9}, {3.4710854362482*^9, 3.4710854370906*^9}, {3.4710854875098*^9, 3.471085680513*^9}, { 3.4710892604904003`*^9, 3.4710893034372*^9}, {3.471089356836*^9, 3.4710893764608*^9}, {3.4710894188459997`*^9, 3.471089425788*^9}, { 3.4724589773118*^9, 3.4724589776862*^9}, {3.4724590337058*^9, 3.4724592062262*^9}, {3.4724592707790003`*^9, 3.472459517027*^9}, { 3.472461044579*^9, 3.4724610729086*^9}, {3.4724611263073997`*^9, 3.4724611623746*^9}, {3.4724611959926*^9, 3.4724612582209997`*^9}, { 3.4724613167522*^9, 3.4724613785594*^9}, {3.4724614100518*^9, 3.4724614967722*^9}, {3.4724615747878*^9, 3.472461689479*^9}, { 3.4724617301638002`*^9, 3.4724618946502*^9}, {3.4724619767998*^9, 3.4724620530214*^9}, {3.4724620884958*^9, 3.4724621006326*^9}, { 3.4724623393282003`*^9, 3.4724623760818*^9}, {3.4724661846314*^9, 3.4724665395626*^9}, {3.4724665958318*^9, 3.472466724797*^9}, { 3.4724685801166*^9, 3.4724685805690002`*^9}, 3.4724686943866*^9, { 3.4724688321034*^9, 3.4724688576717997`*^9}, 3.4724689149238*^9, { 3.4724689527693996`*^9, 3.4724690179502*^9}, {3.4724696817146*^9, 3.4724697652058*^9}, {3.4724698252502003`*^9, 3.4724698632206*^9}, { 3.472470118421*^9, 3.4724701218686*^9}, {3.4724822341858*^9, 3.4724822532178*^9}, {3.4724822840746*^9, 3.472482389047*^9}, { 3.4724824465797997`*^9, 3.4724825484322*^9}, {3.4724825811454*^9, 3.4724825927518*^9}, {3.4724826764614*^9, 3.4724826888634*^9}, { 3.4724827403122*^9, 3.4724827437754*^9}, {3.472483138549*^9, 3.4724834098174*^9}, {3.4724834809846*^9, 3.4724835016702003`*^9}, 3.4724835752866*^9, {3.472483617469*^9, 3.4724836620538*^9}, { 3.4724837426514*^9, 3.4724837545854*^9}, {3.472483817157*^9, 3.4724840938772*^9}, {3.4724841715964003`*^9, 3.4724841722047997`*^9}, { 3.4724842246208*^9, 3.4724842734332*^9}, 3.4724843040248003`*^9, { 3.4724843480011997`*^9, 3.4724843522444*^9}, {3.4724843859716*^9, 3.4724843935532*^9}, {3.4724844459536*^9, 3.4724844810848*^9}, { 3.4724845226588*^9, 3.4724845582424*^9}, {3.4724845977416*^9, 3.4724846431064*^9}, {3.4724847282044*^9, 3.472484831414*^9}, { 3.4724849352788*^9, 3.4724849889584*^9}, 3.4724850417332*^9, { 3.4724850729332*^9, 3.4724850937124*^9}, {3.4724851659132*^9, 3.4724852686703997`*^9}, {3.4724853395256*^9, 3.4724853408204*^9}, { 3.4724853955764*^9, 3.4724854591464*^9}, 3.4724854917504*^9, { 3.4724855320296*^9, 3.4724856142883997`*^9}, {3.4724856780612*^9, 3.4724857337688*^9}, {3.4724857773864*^9, 3.4724859967068*^9}, { 3.4724861010708*^9, 3.4724861330508003`*^9}, {3.4724861866368*^9, 3.4724861884308*^9}, 3.4724863147752*^9, {3.4730691016610003`*^9, 3.4730691571814003`*^9}, 3.4730691910646*^9, {3.4730692318118*^9, 3.4730693926946*^9}, {3.4730694506954*^9, 3.4730696453366003`*^9}, { 3.473069681513*^9, 3.4730696947106*^9}, {3.4730697312614*^9, 3.4730699368694*^9}, {3.4730700174912*^9, 3.4730701931472*^9}, { 3.4730702507111998`*^9, 3.473070323922*^9}, {3.4730704242924*^9, 3.4730704250256*^9}, {3.47307050769*^9, 3.4730705522904*^9}, { 3.4730705866104*^9, 3.4730706117108*^9}, {3.4730706700704*^9, 3.4730707164804*^9}, {3.473070751752*^9, 3.4730708560692*^9}, 3.4730709027444*^9, {3.4730709789192*^9, 3.4730710312416*^9}, { 3.4730711046708*^9, 3.4730711179776*^9}, {3.4730711593644*^9, 3.4730712155868*^9}, {3.4730713067064*^9, 3.4730713693872004`*^9}, { 3.4730714130828*^9, 3.4730714830488*^9}, {3.4730715954936*^9, 3.4730715973188*^9}, {3.4730716322316*^9, 3.4730717027002*^9}, 3.473071735741*^9, {3.4730717862538*^9, 3.4730717867530003`*^9}, { 3.473071877545*^9, 3.4730718860002003`*^9}, {3.4730719225198*^9, 3.4730721296254*^9}, {3.4730721652558002`*^9, 3.4730722515706*^9}, { 3.4730722878562*^9, 3.4730723251558*^9}, 3.4730723601622*^9, 3.4730723958082*^9, {3.4730724414538*^9, 3.4730727985066*^9}, { 3.4730728721542*^9, 3.4730729685642*^9}, {3.4730730453942003`*^9, 3.4730732321261997`*^9}, {3.4731243399018*^9, 3.4731243449094*^9}, 3.4731244295706*^9, {3.6030951294767056`*^9, 3.6030951722519803`*^9}, { 3.6030952607197356`*^9, 3.603095264401342*^9}, 3.6030956800588727`*^9, { 3.6030957143477325`*^9, 3.6030957145505333`*^9}, {3.6030964620102463`*^9, 3.603096553738407*^9}, 3.6030965948444796`*^9, {3.60309664070856*^9, 3.60309669789826*^9}, {3.603096746351946*^9, 3.603096765383979*^9}, { 3.6030968606377463`*^9, 3.603096901931019*^9}, {3.603102637711606*^9, 3.603102637852006*^9}, 3.60310287924683*^9, {3.666166749758453*^9, 3.6661668605966473`*^9}, {3.6661669647580304`*^9, 3.666166978158454*^9}, { 3.6661670441465697`*^9, 3.666167063662204*^9}, {3.666167121741106*^9, 3.666167126982715*^9}, {3.666167175218*^9, 3.6661671818792114`*^9}, { 3.6661672198964787`*^9, 3.666167229584096*^9}, {3.666167289520401*^9, 3.6661672917668047`*^9}, {3.666171421065259*^9, 3.6661714462281036`*^9}, { 3.6661715078014116`*^9, 3.666171514244223*^9}, 3.6661716401520443`*^9, { 3.6661716710712986`*^9, 3.6661716804157147`*^9}, {3.666277053373074*^9, 3.6662772197785664`*^9}, {3.6662772800414724`*^9, 3.6662773971482787`*^9}, {3.6662774297679358`*^9, 3.666277488002838*^9}, 3.6662777734365396`*^9, {3.666278004160945*^9, 3.6662780246281805`*^9}, { 3.69664462893195*^9, 3.6966447174220743`*^9}, {3.6966447727521515`*^9, 3.6966447912121773`*^9}, {3.696644848772258*^9, 3.696644875432295*^9}, 3.696644917602354*^9, {3.6966522509146214`*^9, 3.6966522823446655`*^9}, { 3.6966523204247184`*^9, 3.6966523241247234`*^9}, {3.762507921310543*^9, 3.7625079863578954`*^9}}, CellLabel->"In[10]:=",ExpressionUUID->"4a1c8002-9813-4243-acd2-bdd0193fe660"] }, Closed]], Cell[CellGroupData[{ Cell["Coil beam graphics", "Subsection", CellChangeTimes->{ 3.4710857577642*^9, {3.4710858112098*^9, 3.4710858239082003`*^9}, { 3.4710859049969997`*^9, 3.4710859061046*^9}, {3.4710892678536*^9, 3.4710892701*^9}, 3.4710893817648*^9, {3.4710894793115997`*^9, 3.4710895039596*^9}, {3.4710905118050003`*^9, 3.471090512741*^9}, { 3.4724589485142*^9, 3.4724589539274*^9}, {3.4724611172438*^9, 3.4724611386001997`*^9}, {3.472468943269*^9, 3.4724689445638*^9}, { 3.4724698165922003`*^9, 3.4724698198058*^9}, {3.4724822226106*^9, 3.4724822252469997`*^9}, 3.473564312486*^9, {3.603095648328417*^9, 3.6030956491396184`*^9}, {3.603096275293518*^9, 3.6030962817519293`*^9}, { 3.6030964432122135`*^9, 3.603096444507015*^9}, {3.666277223272972*^9, 3.666277225316576*^9}, {3.6964819147277117`*^9, 3.696481915667713*^9}, { 3.6965036513543415`*^9, 3.6965036540243444`*^9}, {3.696648558079451*^9, 3.6966485647094603`*^9}},ExpressionUUID->"b88e8f13-2dc1-4c58-a255-\ 01eb5ae77376"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"Coil", " ", "beam", " ", "domain"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"r0", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"R", " ", RowBox[{"Cos", "[", FractionBox["s", SqrtBox[ RowBox[{ SuperscriptBox["R", "2"], "+", SuperscriptBox["h", "2"]}]]], "]"}]}], ",", RowBox[{"R", " ", RowBox[{"Sin", "[", FractionBox["s", SqrtBox[ RowBox[{ SuperscriptBox["R", "2"], "+", SuperscriptBox["h", "2"]}]]], "]"}]}], ",", RowBox[{"h", FractionBox["s", SqrtBox[ RowBox[{ SuperscriptBox["R", "2"], "+", SuperscriptBox["h", "2"]}]]]}]}], "}"}], " ", "/.", RowBox[{"{", RowBox[{ RowBox[{"R", "\[Rule]", "0.3"}], ",", RowBox[{"h", "\[Rule]", "0.025"}]}], "}"}]}]}], ";"}], " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"sdom", " ", "=", RowBox[{"{", RowBox[{"s", ",", "0", ",", "10", ",", "0.0125"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ndom", " ", "=", RowBox[{"{", RowBox[{"n", ",", RowBox[{"-", "0.025"}], ",", "0.025", ",", "0.025"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"bdom", "=", RowBox[{"{", RowBox[{"b", ",", RowBox[{"-", "0.025"}], ",", "0.025", ",", "0.025"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"SURFACEPLOT", "[", RowBox[{"r0", ",", "sdom", ",", "ndom", ",", "bdom"}], "]"}], " ", "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.47099820412*^9, 3.4709982441963997`*^9}, { 3.4709982841636*^9, 3.4709984139244003`*^9}, {3.4709984525188*^9, 3.470998495217*^9}, 3.4709986392362003`*^9, {3.4709993623898*^9, 3.4709993759618*^9}, {3.4710000941369004`*^9, 3.4710003768403006`*^9}, { 3.4710004538419003`*^9, 3.4710005845387*^9}, {3.4710006147403*^9, 3.4710008755099*^9}, {3.4710009790277004`*^9, 3.4710009799013004`*^9}, { 3.4710010273877*^9, 3.4710010755293007`*^9}, {3.4710011347469006`*^9, 3.4710011353397007`*^9}, {3.4710013020257006`*^9, 3.4710013527101*^9}, { 3.4710014314901004`*^9, 3.4710014978213005`*^9}, {3.4710015332333*^9, 3.4710016230113*^9}, 3.4710016990321007`*^9, {3.4710017333545003`*^9, 3.4710018255661*^9}, {3.4710019272625003`*^9, 3.4710019545157003`*^9}, { 3.4710020061985006`*^9, 3.4710020072437005`*^9}, {3.4710021130585003`*^9, 3.4710021169117002`*^9}, {3.4710022681381006`*^9, 3.4710023131753006`*^9}, {3.4710023463721004`*^9, 3.4710023734069004`*^9}, {3.4710024303157005`*^9, 3.4710026640349007`*^9}, {3.4710026984641004`*^9, 3.4710027559033003`*^9}, {3.4710027907381*^9, 3.4710028222501*^9}, { 3.4710029648029003`*^9, 3.4710030009013004`*^9}, {3.4710030486529007`*^9, 3.4710030648769007`*^9}, {3.4710031248589*^9, 3.4710031826881003`*^9}, { 3.4710033596409006`*^9, 3.4710034167057004`*^9}, {3.4710494122444*^9, 3.4710494125875998`*^9}, {3.4710495028492002`*^9, 3.4710495460299997`*^9}, {3.4710497723859997`*^9, 3.4710498858936*^9}, { 3.471049928722*^9, 3.4710499387256002`*^9}, {3.4710499775248003`*^9, 3.4710500206275997`*^9}, {3.471050070532*^9, 3.4710500917324*^9}, { 3.4710501802156*^9, 3.4710502338952*^9}, {3.4710502694788*^9, 3.471050339788*^9}, {3.4710528445752*^9, 3.471052869972*^9}, { 3.4710572923389997`*^9, 3.4710573765322*^9}, {3.4710574482922*^9, 3.4710576210466003`*^9}, {3.4710577053178*^9, 3.471057783973*^9}, { 3.4710578398522*^9, 3.4710578798974*^9}, {3.4710579857278*^9, 3.4710579969286003`*^9}, {3.471067280638*^9, 3.4710673325236*^9}, 3.471067365658*^9, {3.4710674010232*^9, 3.471067422832*^9}, { 3.4710677004611998`*^9, 3.4710677268096*^9}, {3.4710852587202*^9, 3.471085280841*^9}, {3.4710853152546*^9, 3.4710853555962*^9}, { 3.471085394565*^9, 3.4710853959066*^9}, {3.4710854362482*^9, 3.4710854370906*^9}, {3.4710854875098*^9, 3.471085680513*^9}, { 3.4710892604904003`*^9, 3.4710893034372*^9}, {3.471089356836*^9, 3.4710893764608*^9}, {3.4710894188459997`*^9, 3.471089425788*^9}, { 3.4724589773118*^9, 3.4724589776862*^9}, {3.4724590337058*^9, 3.4724592062262*^9}, {3.4724592707790003`*^9, 3.472459517027*^9}, { 3.472461044579*^9, 3.4724610729086*^9}, {3.4724611263073997`*^9, 3.4724611623746*^9}, {3.4724611959926*^9, 3.4724612582209997`*^9}, { 3.4724613167522*^9, 3.4724613785594*^9}, {3.4724614100518*^9, 3.4724614967722*^9}, {3.4724615747878*^9, 3.472461689479*^9}, { 3.4724617301638002`*^9, 3.4724618946502*^9}, {3.4724619767998*^9, 3.4724620530214*^9}, {3.4724620884958*^9, 3.4724621006326*^9}, { 3.4724623393282003`*^9, 3.4724623760818*^9}, {3.4724661846314*^9, 3.4724665395626*^9}, {3.4724665958318*^9, 3.472466724797*^9}, { 3.4724685801166*^9, 3.4724685805690002`*^9}, 3.4724686943866*^9, { 3.4724688321034*^9, 3.4724688576717997`*^9}, 3.4724689149238*^9, { 3.4724689527693996`*^9, 3.4724690179502*^9}, {3.4724696817146*^9, 3.4724697652058*^9}, {3.4724698252502003`*^9, 3.4724698632206*^9}, { 3.472470118421*^9, 3.4724701218686*^9}, {3.4724822341858*^9, 3.4724822532178*^9}, {3.4724822840746*^9, 3.472482389047*^9}, { 3.4724824465797997`*^9, 3.4724825484322*^9}, {3.4724825811454*^9, 3.4724825927518*^9}, {3.4724826764614*^9, 3.4724826888634*^9}, { 3.4724827403122*^9, 3.4724827437754*^9}, {3.472483138549*^9, 3.4724834098174*^9}, {3.4724834809846*^9, 3.4724835016702003`*^9}, 3.4724835752866*^9, {3.472483617469*^9, 3.4724836620538*^9}, { 3.4724837426514*^9, 3.4724837545854*^9}, {3.472483817157*^9, 3.4724840938772*^9}, {3.4724841715964003`*^9, 3.4724841722047997`*^9}, { 3.4724842246208*^9, 3.4724842734332*^9}, 3.4724843040248003`*^9, { 3.4724843480011997`*^9, 3.4724843522444*^9}, {3.4724843859716*^9, 3.4724843935532*^9}, {3.4724844459536*^9, 3.4724844810848*^9}, { 3.4724845226588*^9, 3.4724845582424*^9}, {3.4724845977416*^9, 3.4724846431064*^9}, {3.4724847282044*^9, 3.472484831414*^9}, { 3.4724849352788*^9, 3.4724849889584*^9}, 3.4724850417332*^9, { 3.4724850729332*^9, 3.4724850937124*^9}, {3.4724851659132*^9, 3.4724852686703997`*^9}, {3.4724853395256*^9, 3.4724853408204*^9}, { 3.4724853955764*^9, 3.4724854591464*^9}, 3.4724854917504*^9, { 3.4724855320296*^9, 3.4724856142883997`*^9}, {3.4724856780612*^9, 3.4724857337688*^9}, {3.4724857773864*^9, 3.4724859967068*^9}, { 3.4724861010708*^9, 3.4724861330508003`*^9}, {3.4724861866368*^9, 3.4724861884308*^9}, 3.4724863147752*^9, {3.4730691016610003`*^9, 3.4730691571814003`*^9}, 3.4730691910646*^9, {3.4730692318118*^9, 3.4730693926946*^9}, {3.4730694506954*^9, 3.4730696453366003`*^9}, { 3.473069681513*^9, 3.4730696947106*^9}, {3.4730697312614*^9, 3.4730699368694*^9}, {3.4730700174912*^9, 3.4730701931472*^9}, { 3.4730702507111998`*^9, 3.473070323922*^9}, {3.4730704242924*^9, 3.4730704250256*^9}, {3.47307050769*^9, 3.4730705522904*^9}, { 3.4730705866104*^9, 3.4730706117108*^9}, {3.4730706700704*^9, 3.4730707164804*^9}, {3.473070751752*^9, 3.4730708560692*^9}, 3.4730709027444*^9, {3.4730709789192*^9, 3.4730710312416*^9}, { 3.4730711046708*^9, 3.4730711179776*^9}, {3.4730711593644*^9, 3.4730712155868*^9}, {3.4730713067064*^9, 3.4730713693872004`*^9}, { 3.4730714130828*^9, 3.4730714830488*^9}, {3.4730715954936*^9, 3.4730715973188*^9}, {3.4730716322316*^9, 3.4730717027002*^9}, 3.473071735741*^9, {3.4730717862538*^9, 3.4730717867530003`*^9}, { 3.473071877545*^9, 3.4730718860002003`*^9}, {3.4730719225198*^9, 3.4730721296254*^9}, {3.4730721652558002`*^9, 3.4730722515706*^9}, { 3.4730722878562*^9, 3.4730723251558*^9}, 3.4730723601622*^9, 3.4730723958082*^9, {3.4730724414538*^9, 3.4730727985066*^9}, { 3.4730728721542*^9, 3.4730729685642*^9}, {3.4730730453942003`*^9, 3.4730732321261997`*^9}, {3.4731243399018*^9, 3.4731243449094*^9}, 3.4731244295706*^9, {3.6030951294767056`*^9, 3.6030951722519803`*^9}, { 3.6030952607197356`*^9, 3.603095264401342*^9}, 3.6030956800588727`*^9, { 3.6030957143477325`*^9, 3.6030957145505333`*^9}, {3.6030964620102463`*^9, 3.603096553738407*^9}, 3.6030965948444796`*^9, {3.60309664070856*^9, 3.60309669789826*^9}, {3.603096746351946*^9, 3.603096765383979*^9}, { 3.6030968606377463`*^9, 3.603096901931019*^9}, {3.603102637711606*^9, 3.603102637852006*^9}, 3.60310287924683*^9, {3.666166749758453*^9, 3.6661668605966473`*^9}, {3.6661669647580304`*^9, 3.666166978158454*^9}, { 3.6661670441465697`*^9, 3.666167063662204*^9}, {3.666167121741106*^9, 3.666167126982715*^9}, {3.666167175218*^9, 3.6661671818792114`*^9}, { 3.6661672198964787`*^9, 3.666167229584096*^9}, {3.666167289520401*^9, 3.6661672917668047`*^9}, {3.666171421065259*^9, 3.6661714462281036`*^9}, { 3.6661715078014116`*^9, 3.666171514244223*^9}, 3.6661716401520443`*^9, { 3.6661716710712986`*^9, 3.6661716804157147`*^9}, {3.666277053373074*^9, 3.6662772197785664`*^9}, {3.6662772800414724`*^9, 3.6662773971482787`*^9}, {3.6662774297679358`*^9, 3.666277488002838*^9}, 3.6662777734365396`*^9, {3.666278004160945*^9, 3.6662780246281805`*^9}, { 3.69664462893195*^9, 3.6966447174220743`*^9}, {3.6966447727521515`*^9, 3.6966447912121773`*^9}, {3.696644848772258*^9, 3.696644875432295*^9}, 3.696644917602354*^9, {3.6966485874094925`*^9, 3.696648618609536*^9}, { 3.6966486491295786`*^9, 3.696648686579631*^9}, {3.6966490812201834`*^9, 3.6966492755704556`*^9}, {3.6966493108005047`*^9, 3.696649331450534*^9}, { 3.696649392250619*^9, 3.6966493942206216`*^9}, {3.6966494497606993`*^9, 3.6966494551707067`*^9}, {3.696650841612648*^9, 3.69665088591271*^9}, { 3.696651661303796*^9, 3.696651716743873*^9}, {3.6966517491939187`*^9, 3.6966517672239437`*^9}, {3.6966518135240088`*^9, 3.6966518774340982`*^9}}, CellLabel->"In[44]:=",ExpressionUUID->"7d2d73bf-7774-445d-bc0e-400951e58323"] }, Closed]] }, Open ]] }, AutoGeneratedPackage->Automatic, WindowToolbars->"EditBar", WindowSize->{951., 469.75}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}}, Magnification:>1.5 Inherited, FrontEndVersion->"12.1 for Microsoft Windows (64-bit) (June 19, 2020)", StyleDefinitions->"Default.nb", ExpressionUUID->"86afbf52-1fca-46d4-8c25-105e49a79595" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[567, 22, 484, 7, 100, "Section",ExpressionUUID->"64c24900-9b02-49c7-a7fd-c7b253b01f4d"], Cell[CellGroupData[{ Cell[1076, 33, 863, 14, 81, "Subsection",ExpressionUUID->"87de75ea-01c3-4ba5-abfd-3a87a459ae44"], Cell[1942, 49, 29041, 591, 2191, "Input",ExpressionUUID->"7d12de3e-3596-4ff5-8a7f-4966689d790d", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[31020, 645, 419, 7, 55, "Subsection",ExpressionUUID->"c1adbef8-70be-4296-8770-4f242967562e"], Cell[31442, 654, 33856, 765, 131078414, "Input",ExpressionUUID->"1371452b-3802-4ef1-8a95-b844a8f31fa5", InitializationCell->True] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[65347, 1425, 581, 9, 77, "Section",ExpressionUUID->"1df387e4-613c-4627-bba4-c978fbf0cd8b"], Cell[CellGroupData[{ Cell[65953, 1438, 1565, 23, 81, "Subsection",ExpressionUUID->"64c78e3c-0b44-4d86-820f-674362b962e1"], Cell[67521, 1463, 7399, 240, 657, "Input",ExpressionUUID->"9e21d708-2c4c-4b15-a362-a62d9b321f75", Evaluatable->False] }, Closed]], Cell[CellGroupData[{ Cell[74957, 1708, 1517, 23, 55, "Subsection",ExpressionUUID->"8478dd95-e374-4c5a-a325-150d3ea97de6"], Cell[76477, 1733, 1709, 44, 244, "Input",ExpressionUUID->"7ce10ac9-8b8c-45db-805b-f3cea387ccee"] }, Closed]], Cell[CellGroupData[{ Cell[78223, 1782, 1539, 23, 55, "Subsection",ExpressionUUID->"2cb4bc58-2185-4d13-a3e0-d7390d85f976"], Cell[79765, 1807, 1961, 49, 244, "Input",ExpressionUUID->"74b9353b-1452-4e62-a78d-3235349ec1ef"] }, Closed]], Cell[CellGroupData[{ Cell[81763, 1861, 1513, 23, 55, "Subsection",ExpressionUUID->"9e6b9f11-dc9d-485c-899d-d3dc5bbd7083"], Cell[83279, 1886, 1564, 43, 244, "Input",ExpressionUUID->"c9070d89-63eb-4c7e-9e73-1c40217ac58a"] }, Closed]], Cell[CellGroupData[{ Cell[84880, 1934, 1557, 23, 55, "Subsection",ExpressionUUID->"6a88d7f9-7213-49ea-ac77-08ca128e2986"], Cell[86440, 1959, 2404, 68, 284, "Input",ExpressionUUID->"91651d3b-281b-4f16-bdba-de3985ebdd77"] }, Closed]], Cell[CellGroupData[{ Cell[88881, 2032, 1447, 22, 55, "Subsection",ExpressionUUID->"a411d087-ad44-4712-bfae-912cabed599a"], Cell[90331, 2056, 2134, 52, 247, "Input",ExpressionUUID->"35b3ddcf-73eb-4259-9b74-8674bcc731c5"] }, Closed]], Cell[CellGroupData[{ Cell[92502, 2113, 1491, 22, 55, "Subsection",ExpressionUUID->"ce2c1936-6b68-4b2e-b71a-439ff336dd4b"], Cell[93996, 2137, 2523, 61, 172946877, "Input",ExpressionUUID->"c5b0ef22-29b7-4e15-9c41-2536a3d79581"] }, Closed]], Cell[CellGroupData[{ Cell[96556, 2203, 1541, 23, 55, "Subsection",ExpressionUUID->"1855d76e-ab44-4a79-b196-65f9d0364c4b"], Cell[CellGroupData[{ Cell[98122, 2230, 3122, 73, 276, "Input",ExpressionUUID->"c4d6f12e-bd4e-4f9c-b021-572114943f54"], Cell[101247, 2305, 1386, 40, 101, "Output",ExpressionUUID->"1bd66cdf-8c06-4b15-afd4-37d951fc7ff2"], Cell[102636, 2347, 2308, 66, 100, "Output",ExpressionUUID->"a28e115a-775b-4fc6-8615-f45aa7a80586"], Cell[104947, 2415, 961, 29, 123, "Output",ExpressionUUID->"7ec5db89-2e47-4ac7-95b2-f344e7666e50"], Cell[105911, 2446, 914, 27, 124, "Output",ExpressionUUID->"43ffc774-c503-4b11-afa8-1ffb91c6f6fe"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[106874, 2479, 1592, 24, 55, "Subsection",ExpressionUUID->"8100a435-831a-41a5-b86a-9722737c23b5"], Cell[108469, 2505, 2615, 59, 967740, "Input",ExpressionUUID->"e05e3aee-a643-4e3b-ab24-ccf9a0edd556"] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[111133, 2570, 397, 6, 100, "Section",ExpressionUUID->"0455fd37-5b55-4198-8c49-f0ae73d4be85"], Cell[CellGroupData[{ Cell[111555, 2580, 968, 15, 81, "Subsection",ExpressionUUID->"df0d3110-0b1b-436f-a371-1a23071dae05"], Cell[112526, 2597, 9460, 156, 247, "Input",ExpressionUUID->"9bfd4492-7d5d-4990-8c86-a4c90611af8e"] }, Closed]], Cell[CellGroupData[{ Cell[122023, 2758, 942, 15, 55, "Subsection",ExpressionUUID->"f1ca905c-676b-4151-9df6-35728ff5065a"], Cell[CellGroupData[{ Cell[122990, 2777, 9589, 162, 282613, "Input",ExpressionUUID->"2eb3ee45-c7cf-4249-a922-72908c476f76"], Cell[132582, 2941, 50148, 852, 1511748, "Print",ExpressionUUID->"617b1fa2-f76f-4f6d-9ed1-986a5b0012f6"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[182779, 3799, 955, 15, 55, "Subsection",ExpressionUUID->"c8081ec0-e26f-41d9-99b3-d24f12c732b3"], Cell[183737, 3816, 9626, 163, 967740, "Input",ExpressionUUID->"4b6fb094-c155-4c99-a480-59f4896337ae"] }, Closed]], Cell[CellGroupData[{ Cell[193400, 3984, 938, 14, 55, "Subsection",ExpressionUUID->"553f09e1-1ffd-43a0-80e6-35b751ea14a6"], Cell[194341, 4000, 9486, 160, 2879628, "Input",ExpressionUUID->"76ad445f-4114-431e-8b4f-cfdaff900e7f"] }, Closed]], Cell[CellGroupData[{ Cell[203864, 4165, 985, 15, 55, "Subsection",ExpressionUUID->"052f2812-5bfd-4826-a49d-31bc8e11ed22"], Cell[204852, 4182, 9867, 168, 247, "Input",ExpressionUUID->"4a1c8002-9813-4243-acd2-bdd0193fe660"] }, Closed]], Cell[CellGroupData[{ Cell[214756, 4355, 1006, 15, 55, "Subsection",ExpressionUUID->"b88e8f13-2dc1-4c58-a255-01eb5ae77376"], Cell[215765, 4372, 10169, 175, 283, "Input",ExpressionUUID->"7d2d73bf-7774-445d-bc0e-400951e58323"] }, Closed]] }, Open ]] } ] *)