(* 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[ 181604, 3795] NotebookOptionsPosition[ 176276, 3692] NotebookOutlinePosition[ 176854, 3712] CellTagsIndexPosition[ 176811, 3709] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Kinematics 2023", "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, 3.8557093290966406`*^9, {3.8868169671623583`*^9, 3.886816967307132*^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]", "True"}]}], "]"}], "]"}]}]}], "]"}]}], ";"}], "\[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]", "False"}], ",", 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}, {3.885602872058692*^9, 3.8856028757079883`*^9}, {3.8856029071513605`*^9, 3.885602910223812*^9}, { 3.8856029436155834`*^9, 3.885602968481907*^9}, {3.8871763652210255`*^9, 3.8871763880953846`*^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}}, CellLabel->"In[17]:=",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[10]:=",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[23]:=",ExpressionUUID->"9bfd4492-7d5d-4990-8c86-a4c90611af8e"] }, 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}}, CellLabel->"In[33]:=",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}}, CellLabel->"In[38]:=",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[48]:=",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[53]:=",ExpressionUUID->"7d2d73bf-7774-445d-bc0e-400951e58323"] }, Closed]], Cell[CellGroupData[{ Cell["Circular 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}, {3.8856034390103416`*^9, 3.885603441478948*^9}},ExpressionUUID->"d90f6b87-71c8-4052-897b-\ dff8d1a245ef"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"r0", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"R", " ", RowBox[{"Cos", "[", FractionBox["s", "R"], "]"}]}], ",", RowBox[{"R", " ", RowBox[{"Sin", "[", FractionBox["s", "R"], "]"}]}], ",", "0"}], "}"}], " ", "/.", RowBox[{"{", RowBox[{"R", "\[Rule]", "0.3"}], "}"}]}]}], ";"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sdom", " ", "=", RowBox[{"{", RowBox[{"s", ",", "0", ",", "1.5", ",", "0.0125"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ndom", " ", "=", RowBox[{"{", RowBox[{"n", ",", RowBox[{"-", "0.01"}], ",", "0.01", ",", "0.01"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"bdom", "=", RowBox[{"{", RowBox[{"b", ",", RowBox[{"-", "0.01"}], ",", "0.01", ",", "0.01"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ 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}, {3.8856034748266664`*^9, 3.885603630865975*^9}, { 3.885603671050786*^9, 3.8856036766139565`*^9}}, CellLabel->"In[58]:=",ExpressionUUID->"ae8ee7eb-03ef-43aa-b8b2-81e13c0fb41e"] }, Closed]] }, Open ]] }, AutoGeneratedPackage->Automatic, WindowToolbars->"EditBar", WindowSize->{951., 463.75}, WindowMargins->{{-30.75, Automatic}, {Automatic, 140.75}}, PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}}, Magnification:>1.5 Inherited, FrontEndVersion->"13.1 for Microsoft Windows (64-bit) (June 16, 2022)", 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, 560, 8, 100, "Section",ExpressionUUID->"64c24900-9b02-49c7-a7fd-c7b253b01f4d"], Cell[CellGroupData[{ Cell[1152, 34, 863, 14, 81, "Subsection",ExpressionUUID->"87de75ea-01c3-4ba5-abfd-3a87a459ae44"], Cell[2018, 50, 29041, 591, 2191, "Input",ExpressionUUID->"7d12de3e-3596-4ff5-8a7f-4966689d790d", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[31096, 646, 419, 7, 55, "Subsection",ExpressionUUID->"c1adbef8-70be-4296-8770-4f242967562e"], Cell[31518, 655, 34062, 768, 3179, "Input",ExpressionUUID->"1371452b-3802-4ef1-8a95-b844a8f31fa5", InitializationCell->True] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[65629, 1429, 581, 9, 77, "Section",ExpressionUUID->"1df387e4-613c-4627-bba4-c978fbf0cd8b"], Cell[CellGroupData[{ Cell[66235, 1442, 1565, 23, 81, "Subsection",ExpressionUUID->"64c78e3c-0b44-4d86-820f-674362b962e1"], Cell[67803, 1467, 7399, 240, 642, "Input",ExpressionUUID->"9e21d708-2c4c-4b15-a362-a62d9b321f75", Evaluatable->False] }, Closed]], Cell[CellGroupData[{ Cell[75239, 1712, 1517, 23, 55, "Subsection",ExpressionUUID->"8478dd95-e374-4c5a-a325-150d3ea97de6"], Cell[76759, 1737, 1727, 43, 243, "Input",ExpressionUUID->"7ce10ac9-8b8c-45db-805b-f3cea387ccee"] }, Closed]], Cell[CellGroupData[{ Cell[78523, 1785, 1539, 23, 55, "Subsection",ExpressionUUID->"2cb4bc58-2185-4d13-a3e0-d7390d85f976"], Cell[80065, 1810, 1961, 49, 244, "Input",ExpressionUUID->"74b9353b-1452-4e62-a78d-3235349ec1ef"] }, Closed]], Cell[CellGroupData[{ Cell[82063, 1864, 1513, 23, 55, "Subsection",ExpressionUUID->"9e6b9f11-dc9d-485c-899d-d3dc5bbd7083"], Cell[83579, 1889, 1564, 43, 243, "Input",ExpressionUUID->"c9070d89-63eb-4c7e-9e73-1c40217ac58a"] }, Closed]], Cell[CellGroupData[{ Cell[85180, 1937, 1557, 23, 55, "Subsection",ExpressionUUID->"6a88d7f9-7213-49ea-ac77-08ca128e2986"], Cell[86740, 1962, 2404, 68, 282, "Input",ExpressionUUID->"91651d3b-281b-4f16-bdba-de3985ebdd77"] }, Closed]], Cell[CellGroupData[{ Cell[89181, 2035, 1447, 22, 55, "Subsection",ExpressionUUID->"a411d087-ad44-4712-bfae-912cabed599a"], Cell[90631, 2059, 2134, 52, 247, "Input",ExpressionUUID->"35b3ddcf-73eb-4259-9b74-8674bcc731c5"] }, Closed]], Cell[CellGroupData[{ Cell[92802, 2116, 1491, 22, 55, "Subsection",ExpressionUUID->"ce2c1936-6b68-4b2e-b71a-439ff336dd4b"], Cell[94296, 2140, 2523, 61, 172946877, "Input",ExpressionUUID->"c5b0ef22-29b7-4e15-9c41-2536a3d79581"] }, Closed]], Cell[CellGroupData[{ Cell[96856, 2206, 1541, 23, 55, "Subsection",ExpressionUUID->"1855d76e-ab44-4a79-b196-65f9d0364c4b"], Cell[CellGroupData[{ Cell[98422, 2233, 3122, 73, 276, "Input",ExpressionUUID->"c4d6f12e-bd4e-4f9c-b021-572114943f54"], Cell[101547, 2308, 1386, 40, 101, "Output",ExpressionUUID->"1bd66cdf-8c06-4b15-afd4-37d951fc7ff2"], Cell[102936, 2350, 2308, 66, 100, "Output",ExpressionUUID->"a28e115a-775b-4fc6-8615-f45aa7a80586"], Cell[105247, 2418, 961, 29, 123, "Output",ExpressionUUID->"7ec5db89-2e47-4ac7-95b2-f344e7666e50"], Cell[106211, 2449, 914, 27, 124, "Output",ExpressionUUID->"43ffc774-c503-4b11-afa8-1ffb91c6f6fe"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[107174, 2482, 1592, 24, 55, "Subsection",ExpressionUUID->"8100a435-831a-41a5-b86a-9722737c23b5"], Cell[108769, 2508, 2615, 59, 967740, "Input",ExpressionUUID->"e05e3aee-a643-4e3b-ab24-ccf9a0edd556"] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[111433, 2573, 397, 6, 100, "Section",ExpressionUUID->"0455fd37-5b55-4198-8c49-f0ae73d4be85"], Cell[CellGroupData[{ Cell[111855, 2583, 968, 15, 81, "Subsection",ExpressionUUID->"df0d3110-0b1b-436f-a371-1a23071dae05"], Cell[112826, 2600, 9460, 156, 243, "Input",ExpressionUUID->"9bfd4492-7d5d-4990-8c86-a4c90611af8e"] }, Closed]], Cell[CellGroupData[{ Cell[122323, 2761, 955, 15, 55, "Subsection",ExpressionUUID->"c8081ec0-e26f-41d9-99b3-d24f12c732b3"], Cell[123281, 2778, 9644, 162, 243, "Input",ExpressionUUID->"4b6fb094-c155-4c99-a480-59f4896337ae"] }, Closed]], Cell[CellGroupData[{ Cell[132962, 2945, 938, 14, 55, "Subsection",ExpressionUUID->"553f09e1-1ffd-43a0-80e6-35b751ea14a6"], Cell[133903, 2961, 9504, 159, 214, "Input",ExpressionUUID->"76ad445f-4114-431e-8b4f-cfdaff900e7f"] }, Closed]], Cell[CellGroupData[{ Cell[143444, 3125, 985, 15, 55, "Subsection",ExpressionUUID->"052f2812-5bfd-4826-a49d-31bc8e11ed22"], Cell[144432, 3142, 9867, 168, 271, "Input",ExpressionUUID->"4a1c8002-9813-4243-acd2-bdd0193fe660"] }, Closed]], Cell[CellGroupData[{ Cell[154336, 3315, 1006, 15, 55, "Subsection",ExpressionUUID->"b88e8f13-2dc1-4c58-a255-01eb5ae77376"], Cell[155345, 3332, 10169, 175, 281, "Input",ExpressionUUID->"7d2d73bf-7774-445d-bc0e-400951e58323"] }, Closed]], Cell[CellGroupData[{ Cell[165551, 3512, 1062, 16, 55, "Subsection",ExpressionUUID->"d90f6b87-71c8-4052-897b-dff8d1a245ef"], Cell[166616, 3530, 9632, 158, 237, "Input",ExpressionUUID->"ae8ee7eb-03ef-43aa-b8b2-81e13c0fb41e"] }, Closed]] }, Open ]] } ] *)