(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 51631, 1088] NotebookOptionsPosition[ 50978, 1068] NotebookOutlinePosition[ 51447, 1086] CellTagsIndexPosition[ 51404, 1083] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Clear", "[", RowBox[{ "a", ",", "x", ",", "y", ",", "z", ",", "hy", ",", "hyo", ",", "hz", ",", "jy", ",", "jz", ",", "\[Gamma]", ",", "\[Mu]r", ",", "\[Mu]0", ",", "f", ",", "hmax", ",", "d"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Mu]0", "=", RowBox[{"4", " ", "\[Pi]", " ", SuperscriptBox["10", RowBox[{"-", "7"}]]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"a", "[", RowBox[{"\[Gamma]_", ",", "\[Mu]r_", ",", "f_"}], "]"}], "=", SqrtBox[ FractionBox["2", RowBox[{ "2", " ", "\[Pi]", " ", "f", " ", "\[Gamma]", " ", "\[Mu]r", " ", "\[Mu]0", " "}]]]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sol", "=", RowBox[{"DSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Curl", "[", RowBox[{ RowBox[{"Curl", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"hy", "[", "x", "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", RowBox[{"hy", "[", "x", "]"}]}], "*", "\[ImaginaryI]", " ", "2", " ", "\[Pi]", " ", "f", " ", "\[Gamma]", " ", "\[Mu]r", " ", "\[Mu]0"}]}], " ", ",", RowBox[{ RowBox[{"hy", "[", "0", "]"}], "\[Equal]", RowBox[{"hmax", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ "\[ImaginaryI]", " ", "2", " ", "\[Pi]", " ", "f", " ", "t"}]]}]}], ",", RowBox[{ RowBox[{"hy", "[", RowBox[{"100", "\[Pi]", " ", RowBox[{"a", "[", RowBox[{"\[Gamma]", ",", "\[Mu]r", ",", "f"}], "]"}]}], "]"}], "\[Equal]", "0"}]}], "}"}], ",", RowBox[{"hy", "[", "x", "]"}], ",", "x"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"hy", "[", RowBox[{ "x_", ",", "\[Gamma]_", ",", "\[Mu]r_", ",", "f_", ",", "t_", ",", "hmax_", ",", "d_"}], "]"}], "=", RowBox[{ RowBox[{"hy", "[", "x", "]"}], "/.", RowBox[{"Flatten", "[", "sol", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"solo", "=", RowBox[{"DSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Curl", "[", RowBox[{ RowBox[{"Curl", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"hyo", "[", "x", "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", RowBox[{"hyo", "[", "x", "]"}]}], "*", "\[ImaginaryI]", " ", "2", " ", "\[Pi]", " ", "f", " ", "\[Gamma]", " ", "\[Mu]r", " ", "\[Mu]0"}]}], " ", ",", RowBox[{ RowBox[{"hyo", "[", "0", "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"hyo", "[", "d", "]"}], "\[Equal]", RowBox[{"-", RowBox[{"hy", "[", RowBox[{ "d", ",", "\[Gamma]", ",", "\[Mu]r", ",", "f", ",", "t", ",", "hmax", ",", "d"}], "]"}]}]}]}], "}"}], ",", RowBox[{"hyo", "[", "x", "]"}], ",", "x"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"hyo", "[", RowBox[{ "x_", ",", "\[Gamma]_", ",", "\[Mu]r_", ",", "f_", ",", "t_", ",", "hmax_", ",", "d_"}], "]"}], "=", RowBox[{ RowBox[{"hyo", "[", "x", "]"}], "/.", RowBox[{"Flatten", "[", "solo", "]"}]}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"jz", "[", RowBox[{ "x_", ",", "\[Gamma]_", ",", "\[Mu]r_", ",", "f_", ",", "t_", ",", "hmax_", ",", "d_"}], "]"}], "=", RowBox[{ RowBox[{"Curl", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"hy", "[", RowBox[{ "x", ",", "\[Gamma]", ",", "\[Mu]r", ",", "f", ",", "t", ",", "hmax", ",", "d"}], "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], "]"}], "[", RowBox[{"[", "3", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"jzo", "[", RowBox[{ "x_", ",", "\[Gamma]_", ",", "\[Mu]r_", ",", "f_", ",", "t_", ",", "hmax_", ",", "d_"}], "]"}], "=", RowBox[{ RowBox[{"Curl", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"hyo", "[", RowBox[{ "x", ",", "\[Gamma]", ",", "\[Mu]r", ",", "f", ",", "t", ",", "hmax", ",", "d"}], "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], "]"}], "[", RowBox[{"[", "3", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"ReImPlot", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{"ShowReImHy", ",", RowBox[{"hy", "[", RowBox[{ "x", ",", "\[Gamma]", ",", "\[Mu]r", ",", "f", ",", "t", ",", "hmax", ",", "d"}], "]"}], ",", "\"\<\>\""}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"ShowAbsHy", ",", RowBox[{"Abs", "[", RowBox[{"hy", "[", RowBox[{ "x", ",", "\[Gamma]", ",", "\[Mu]r", ",", "f", ",", "t", ",", "hmax", ",", "d"}], "]"}], "]"}], ",", "\"\<\>\""}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"ShowReImHyo", ",", RowBox[{"hyo", "[", RowBox[{ "x", ",", "\[Gamma]", ",", "\[Mu]r", ",", "f", ",", "t", ",", "hmax", ",", "d"}], "]"}], ",", "\"\<\>\""}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"ShowAbsHyo", ",", RowBox[{"-", RowBox[{"Abs", "[", RowBox[{"hyo", "[", RowBox[{ "x", ",", "\[Gamma]", ",", "\[Mu]r", ",", "f", ",", "t", ",", "hmax", ",", "d"}], "]"}], "]"}]}], ",", "\"\<\>\""}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"ShowRatioReImAbsHy", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"hy", "[", RowBox[{ "x", ",", "\[Gamma]", ",", "\[Mu]r", ",", "f", ",", "t", ",", "hmax", ",", "d"}], "]"}], "/", RowBox[{"Abs", "[", RowBox[{"hy", "[", RowBox[{ "0", ",", "\[Gamma]", ",", "\[Mu]r", ",", "f", ",", "t", ",", "hmax", ",", "d"}], "]"}], "]"}]}], ",", RowBox[{"Abs", "[", RowBox[{ RowBox[{"hy", "[", RowBox[{ "x", ",", "\[Gamma]", ",", "\[Mu]r", ",", "f", ",", "t", ",", "hmax", ",", "d"}], "]"}], "/", RowBox[{"Abs", "[", RowBox[{"hy", "[", RowBox[{ "0", ",", "\[Gamma]", ",", "\[Mu]r", ",", "f", ",", "t", ",", "hmax", ",", "d"}], "]"}], "]"}]}], "]"}]}], "}"}], ",", "\"\<\>\""}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"ShowRatioReImAbsHyo", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"hyo", "[", RowBox[{ "x", ",", "\[Gamma]", ",", "\[Mu]r", ",", "f", ",", "t", ",", "hmax", ",", "d"}], "]"}], "/", RowBox[{"Abs", "[", RowBox[{"hy", "[", RowBox[{ "0", ",", "\[Gamma]", ",", "\[Mu]r", ",", "f", ",", "t", ",", "hmax", ",", "d"}], "]"}], "]"}]}], ",", RowBox[{"-", RowBox[{"Abs", "[", RowBox[{ RowBox[{"hyo", "[", RowBox[{ "x", ",", "\[Gamma]", ",", "\[Mu]r", ",", "f", ",", "t", ",", "hmax", ",", "d"}], "]"}], "/", RowBox[{"Abs", "[", RowBox[{"hy", "[", RowBox[{ "0", ",", "\[Gamma]", ",", "\[Mu]r", ",", "f", ",", "t", ",", "hmax", ",", "d"}], "]"}], "]"}]}], "]"}]}]}], "}"}], ",", "\"\<\>\""}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"ShowReImJz", ",", RowBox[{"jz", "[", RowBox[{ "x", ",", "\[Gamma]", ",", "\[Mu]r", ",", "f", ",", "t", ",", "hmax", ",", "d"}], "]"}], ",", "\"\<\>\""}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"ShowAbsJz", ",", RowBox[{"Abs", "[", RowBox[{"jz", "[", RowBox[{ "x", ",", "\[Gamma]", ",", "\[Mu]r", ",", "f", ",", "t", ",", "hmax", ",", "d"}], "]"}], "]"}], ",", "\"\<\>\""}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"ShowReImJzo", ",", RowBox[{"-", RowBox[{"jzo", "[", RowBox[{ "x", ",", "\[Gamma]", ",", "\[Mu]r", ",", "f", ",", "t", ",", "hmax", ",", "d"}], "]"}]}], ",", "\"\<\>\""}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"ShowAbsJzo", ",", RowBox[{"Abs", "[", RowBox[{"jzo", "[", RowBox[{ "x", ",", "\[Gamma]", ",", "\[Mu]r", ",", "f", ",", "t", ",", "hmax", ",", "d"}], "]"}], "]"}], ",", "\"\<\>\""}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"ShowRatioReImJz", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"jz", "[", RowBox[{ "x", ",", "\[Gamma]", ",", "\[Mu]r", ",", "f", ",", "t", ",", "hmax", ",", "d"}], "]"}], "/", RowBox[{"Abs", "[", RowBox[{"jz", "[", RowBox[{ "0", ",", "\[Gamma]", ",", "\[Mu]r", ",", "f", ",", "0", ",", "hmax", ",", "d"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"Abs", "[", RowBox[{"jz", "[", RowBox[{ "x", ",", "\[Gamma]", ",", "\[Mu]r", ",", "f", ",", "t", ",", "hmax", ",", "d"}], "]"}], "]"}], "/", RowBox[{"Abs", "[", RowBox[{"jz", "[", RowBox[{ "0", ",", "\[Gamma]", ",", "\[Mu]r", ",", "f", ",", "0", ",", "hmax", ",", "d"}], "]"}], "]"}]}]}], "}"}], ",", "\"\<\>\""}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"ShowRatioReImJzo", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"jzo", "[", RowBox[{ "x", ",", "\[Gamma]", ",", "\[Mu]r", ",", "f", ",", "t", ",", "hmax", ",", "d"}], "]"}], "/", RowBox[{"Abs", "[", RowBox[{"jz", "[", RowBox[{ "0", ",", "\[Gamma]", ",", "\[Mu]r", ",", "f", ",", "0", ",", "hmax", ",", "d"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"Abs", "[", RowBox[{"jzo", "[", RowBox[{ "x", ",", "\[Gamma]", ",", "\[Mu]r", ",", "f", ",", "t", ",", "hmax", ",", "d"}], "]"}], "]"}], "/", RowBox[{"Abs", "[", RowBox[{"jz", "[", RowBox[{ "0", ",", "\[Gamma]", ",", "\[Mu]r", ",", "f", ",", "0", ",", "hmax", ",", "d"}], "]"}], "]"}]}]}], "}"}], ",", "\"\<\>\""}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"ShowReImZ", ",", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"jz", "[", RowBox[{ "x", ",", "\[Gamma]", ",", "\[Mu]r", ",", "f", ",", "t", ",", "hmax", ",", "d"}], "]"}]}], "-", RowBox[{"jzo", "[", RowBox[{ "x", ",", "\[Gamma]", ",", "\[Mu]r", ",", "f", ",", "t", ",", "hmax", ",", "d"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{"2", " ", "\[Gamma]", "*", RowBox[{"(", RowBox[{ RowBox[{"hy", "[", RowBox[{ "x", ",", "\[Gamma]", ",", "\[Mu]r", ",", "f", ",", "t", ",", "hmax", ",", "d"}], "]"}], "-", RowBox[{"hyo", "[", RowBox[{ "x", ",", "\[Gamma]", ",", "\[Mu]r", ",", "f", ",", "t", ",", "hmax", ",", "d"}], "]"}]}], ")"}]}], ")"}]}], ")"}], ",", "\"\<\>\""}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"ShowReImSzJz", ",", RowBox[{ SuperscriptBox[ RowBox[{"jz", "[", RowBox[{ "x", ",", "\[Gamma]", ",", "\[Mu]r", ",", "f", ",", "t", ",", "hmax", ",", "d"}], "]"}], "2"], "/", " ", RowBox[{"(", RowBox[{"2", " ", "\[Gamma]"}], ")"}]}], ",", "\"\<\>\""}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"ShowReImSzHy", ",", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"hy", "[", RowBox[{ "x", ",", "\[Gamma]", ",", "\[Mu]r", ",", "f", ",", "t", ",", "hmax", ",", "d"}], "]"}], "2"], " "}], RowBox[{"2", " ", "\[Gamma]", " ", SuperscriptBox[ RowBox[{"a", "[", RowBox[{"\[Gamma]", ",", "\[Mu]r", ",", "f"}], "]"}], "2"]}]]}], "]"}]}], " ", "\[IndentingNewLine]", "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", " ", "d"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"PlotLegends", "\[Rule]", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"Placed", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{"ShowReImHy", ",", "\"\\"", ",", "\"\<\>\""}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"ShowAbsHy", ",", "\"\\"", ",", "\"\<\>\""}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"ShowReImHyo", ",", "\"\\"", ",", "\"\<\>\""}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"ShowAbsHyo", ",", "\"\<-AbsHyo\>\"", ",", "\"\<\>\""}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ "ShowRatioReImAbsHy", ",", "\"\\"", ",", "\"\<\>\""}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ "ShowRatioReImAbsHyo", ",", "\"\\"", ",", "\"\<\>\""}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"ShowReImJz", ",", "\"\\"", ",", "\"\<\>\""}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"ShowAbsJz", ",", "\"\\"", ",", "\"\<\>\""}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"ShowReImJzo", ",", "\"\\"", ",", "\"\<\>\""}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"ShowAbsJzo", ",", "\"\\"", ",", "\"\<\>\""}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ "ShowRatioReImJz", ",", "\"\\"", ",", "\"\<\>\""}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ "ShowRatioReImJzo", ",", "\"\\"", ",", "\"\<\>\""}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"ShowReImZ", ",", "\"\\"", ",", "\"\<\>\""}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"ShowReImSzJz", ",", "\"\\"", ",", "\"\<\>\""}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"ShowReImSzHy", ",", "\"\\"", ",", "\"\<\>\""}], "]"}]}], "}"}], ",", "Right"}], "]"}], "\[IndentingNewLine]", "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"Scaled", "[", "0.4", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotLabel", "\[Rule]", RowBox[{"StringForm", "[", RowBox[{ "\"\\"", ",", " ", RowBox[{"N", "[", RowBox[{ RowBox[{"1000", "*", RowBox[{"a", "[", RowBox[{"\[Gamma]", ",", "\[Mu]r", ",", "f"}], "]"}]}], ",", "4"}], "]"}], ",", RowBox[{"N", "[", RowBox[{ RowBox[{"d", "/", RowBox[{"a", "[", RowBox[{"\[Gamma]", ",", "\[Mu]r", ",", "f"}], "]"}]}], ",", "4"}], "]"}], ",", RowBox[{"Round", "[", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Re", "[", RowBox[{"jz", "[", RowBox[{ "x", ",", "\[Gamma]", ",", "\[Mu]r", ",", "f", ",", "t", ",", "hmax", ",", "d"}], "]"}], "]"}], "2"], "/", " ", RowBox[{"(", RowBox[{"2", " ", "\[Gamma]"}], ")"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", " ", "d"}], "}"}]}], "]"}], "]"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"d", ",", RowBox[{ FractionBox["\[Pi]", "2"], " ", RowBox[{"a", "[", RowBox[{"\[Gamma]", ",", "\[Mu]r", ",", "f"}], "]"}]}], ",", "\"\\""}], "}"}], ",", " ", RowBox[{ RowBox[{"a", "[", RowBox[{"\[Gamma]", ",", "\[Mu]r", ",", "f"}], "]"}], "/", "2"}], ",", "0.1", ",", RowBox[{"Appearance", "\[Rule]", " ", "\"\\""}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"f", ",", "10000", ",", "\"\\""}], "}"}], ",", "1000", ",", "100000", ",", RowBox[{"Appearance", "\[Rule]", " ", "\"\\""}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "\[Gamma]", ",", "58000000", ",", "\"\<\[Gamma] [\!\(\*FractionBox[\(S\), \(m\)]\)]\>\""}], "}"}], ",", "200000", ",", "58000000", ",", RowBox[{"Appearance", "\[Rule]", " ", "\"\\""}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[Mu]r", ",", "1", ",", "\"\<\[Mu]r [-]\>\""}], "}"}], ",", "1", ",", "1000", ",", RowBox[{"Appearance", "\[Rule]", " ", "\"\\""}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "hmax", ",", "1000", ",", "\"\\""}], "}"}], ",", "1", ",", "10000", ",", RowBox[{"Appearance", "\[Rule]", " ", "\"\\""}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"ShowReImHy", ",", RowBox[{"{", RowBox[{"True", ",", "False"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"ShowAbsHy", ",", RowBox[{"{", RowBox[{"False", ",", "True"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"ShowReImHyo", ",", RowBox[{"{", RowBox[{"False", ",", "True"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"ShowAbsHyo", ",", RowBox[{"{", RowBox[{"False", ",", "True"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"ShowRatioReImAbsHy", ",", RowBox[{"{", RowBox[{"False", ",", "True"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"ShowRatioReImAbsHyo", ",", RowBox[{"{", RowBox[{"False", ",", "True"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"ShowReImJz", ",", RowBox[{"{", RowBox[{"False", ",", "True"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"ShowAbsJz", ",", RowBox[{"{", RowBox[{"False", ",", "True"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"ShowReImJzo", ",", RowBox[{"{", RowBox[{"False", ",", "True"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"ShowAbsJzo", ",", RowBox[{"{", RowBox[{"False", ",", "True"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"ShowRatioReImJz", ",", RowBox[{"{", RowBox[{"False", ",", "True"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"ShowRatioReImJzo", ",", RowBox[{"{", RowBox[{"False", ",", "True"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"ShowReImZ", ",", RowBox[{"{", RowBox[{"False", ",", "True"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"ShowReImSzJz", ",", RowBox[{"{", RowBox[{"False", ",", "True"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"ShowReImSzHy", ",", RowBox[{"{", RowBox[{"False", ",", "True"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"t", ",", "0", ",", "\"\\""}], "}"}], ",", "0", ",", RowBox[{"1", "/", " ", "f"}], ",", RowBox[{"Appearance", "\[Rule]", " ", "\"\\""}]}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.7828034020984674`*^9, 3.7828034837330284`*^9}, { 3.78280358468064*^9, 3.782803612161034*^9}, {3.782804133697883*^9, 3.7828041609076633`*^9}, {3.782804216097089*^9, 3.782804239388978*^9}, { 3.7828042957247806`*^9, 3.7828042982630982`*^9}, {3.782804369980296*^9, 3.7828043753036613`*^9}, {3.7828044491444273`*^9, 3.7828044600580187`*^9}, {3.782805744566044*^9, 3.7828058112799625`*^9}, { 3.782805847064747*^9, 3.782805883912329*^9}, {3.7828060184698496`*^9, 3.7828060236008234`*^9}, {3.7828060537575345`*^9, 3.7828060554237566`*^9}, {3.7828063142260785`*^9, 3.7828063955167522`*^9}, {3.782806443371663*^9, 3.7828064481450047`*^9}, { 3.782806545547166*^9, 3.7828065679224358`*^9}, {3.7828067302948613`*^9, 3.7828067485927935`*^9}, {3.782806995401901*^9, 3.782807017102331*^9}, { 3.7828071727300425`*^9, 3.782807196019529*^9}, {3.782807975742515*^9, 3.782807988758058*^9}, {3.782808250000717*^9, 3.7828083859417915`*^9}, { 3.782808416165143*^9, 3.782808499967362*^9}, {3.782808623237296*^9, 3.7828086492197056`*^9}, {3.78280869070115*^9, 3.782808752031517*^9}, { 3.7828088182849655`*^9, 3.782808899610561*^9}, {3.782808937221141*^9, 3.7828091680161157`*^9}, {3.782809201070845*^9, 3.782809202761134*^9}, { 3.7828093029240932`*^9, 3.7828093592146907`*^9}, {3.7828095336432147`*^9, 3.782809534711439*^9}, {3.782809567962743*^9, 3.782809599124936*^9}, { 3.782809635079158*^9, 3.782809637651368*^9}, {3.7828097739398413`*^9, 3.782809790063472*^9}, {3.78280988755739*^9, 3.782809902162719*^9}, { 3.7828099439802647`*^9, 3.782809983607839*^9}, {3.7828100711691666`*^9, 3.7828101084366226`*^9}, {3.7828104792757163`*^9, 3.782810543911648*^9}, { 3.782810607595115*^9, 3.782810688535102*^9}, {3.7828107241129436`*^9, 3.782810724122943*^9}, {3.7828107805685167`*^9, 3.7828108172586355`*^9}, { 3.782810916923921*^9, 3.78281093187077*^9}, {3.782812002703245*^9, 3.782812045389212*^9}, {3.7828123050102167`*^9, 3.7828123241957455`*^9}, 3.782812400327712*^9, {3.782812433347501*^9, 3.782812447317816*^9}, { 3.7828125712019033`*^9, 3.782812574328002*^9}, {3.7828129146500034`*^9, 3.7828129613740764`*^9}, {3.78281408366658*^9, 3.782814119491583*^9}, { 3.782814226232873*^9, 3.7828142291345873`*^9}, {3.7828142660235996`*^9, 3.7828142687816896`*^9}, {3.782814416506355*^9, 3.7828144199557915`*^9}, { 3.782814468383083*^9, 3.7828145368727036`*^9}, 3.7828145809837646`*^9, { 3.7828146302321806`*^9, 3.7828147355632343`*^9}, {3.782814774092123*^9, 3.78281478052855*^9}, {3.782814886720105*^9, 3.782814964891763*^9}, { 3.782815042489688*^9, 3.782815050063301*^9}, {3.7828152493487973`*^9, 3.782815455835125*^9}, {3.7828158146695185`*^9, 3.7828158165425277`*^9}, { 3.7828158596716766`*^9, 3.7828159604258714`*^9}, {3.782816002142599*^9, 3.782816006561906*^9}, {3.7828160519638586`*^9, 3.782816254032998*^9}, { 3.782816322940998*^9, 3.7828163359539022`*^9}, {3.782816368736577*^9, 3.7828163992899666`*^9}, {3.7828164600018826`*^9, 3.7828166200703087`*^9}, {3.782816652950547*^9, 3.7828166615548944`*^9}, { 3.782816952739537*^9, 3.782816956603036*^9}, {3.782816991764862*^9, 3.7828170353990364`*^9}, {3.782817087807384*^9, 3.782817197361725*^9}, { 3.782817292963479*^9, 3.7828172933813667`*^9}, {3.782817384130479*^9, 3.7828173999670067`*^9}, {3.78281743510187*^9, 3.782817438343095*^9}, { 3.782817607292074*^9, 3.7828176930325217`*^9}, {3.7828177267664075`*^9, 3.782817749999651*^9}, {3.7828177822979693`*^9, 3.7828178611204996`*^9}, { 3.782817948216891*^9, 3.782818004644631*^9}, {3.7828180665505147`*^9, 3.7828180713020177`*^9}, {3.782818151754979*^9, 3.782818250655238*^9}, { 3.782818317562106*^9, 3.7828183327832623`*^9}, {3.782818363330303*^9, 3.7828184220788374`*^9}, {3.7828184634236655`*^9, 3.7828184870195255`*^9}, {3.7828269171458454`*^9, 3.7828270176508107`*^9}, {3.782827086469641*^9, 3.7828270969926167`*^9}, { 3.7828271547426357`*^9, 3.7828271608704166`*^9}, 3.7828274775428333`*^9, 3.782828819020305*^9, {3.782828865095902*^9, 3.7828288733813524`*^9}, { 3.782828925485738*^9, 3.7828289298438263`*^9}, {3.78282996872563*^9, 3.7828299718501635`*^9}, {3.7828300549731526`*^9, 3.782830129622882*^9}, { 3.782830236167476*^9, 3.78283025443351*^9}, {3.782830511028966*^9, 3.78283052238227*^9}, {3.782830838900876*^9, 3.7828308784683113`*^9}, 3.782833005372038*^9, {3.782833054466021*^9, 3.782833070825288*^9}, 3.7828331667420406`*^9, {3.7828332017615833`*^9, 3.7828332040410814`*^9}, { 3.7828337537946515`*^9, 3.782833780212879*^9}, {3.7828339695471354`*^9, 3.78283396996402*^9}, {3.7828845318513794`*^9, 3.782884542224122*^9}, { 3.7828845785218964`*^9, 3.7828845799039907`*^9}, {3.782884732767128*^9, 3.7828847988969812`*^9}, {3.7828848511813254`*^9, 3.782884852223013*^9}, 3.782885456144249*^9, {3.7828854913665867`*^9, 3.782885493205654*^9}, { 3.78288559077166*^9, 3.782885656105524*^9}, {3.782885706821822*^9, 3.782885722761179*^9}, {3.7828857692510996`*^9, 3.782885785892177*^9}, { 3.782886006027109*^9, 3.7828860091781716`*^9}, {3.7828861337353992`*^9, 3.782886147970052*^9}, {3.782886245378827*^9, 3.7828862510448895`*^9}, { 3.7828865341868134`*^9, 3.7828866406689544`*^9}, {3.782886684200105*^9, 3.782886716429262*^9}, {3.782886758048294*^9, 3.7828868237180777`*^9}, { 3.7828868554510245`*^9, 3.782886855810316*^9}, {3.7828869243988504`*^9, 3.7828871272873807`*^9}, {3.7828871852425127`*^9, 3.7828871868671293`*^9}, 3.7828875222389736`*^9, {3.7828875656133657`*^9, 3.782887644880967*^9}, { 3.7828877238991346`*^9, 3.782887748529194*^9}, {3.782888019408847*^9, 3.782888078236827*^9}, {3.7828881260688553`*^9, 3.7828881391054497`*^9}, { 3.7828881886127005`*^9, 3.7828882174880776`*^9}, {3.782888679945224*^9, 3.7828887400934258`*^9}, 3.782888772450124*^9, {3.7828890476249523`*^9, 3.782889144948786*^9}, {3.7828892528543816`*^9, 3.7828893866458282`*^9}, { 3.7828894174830694`*^9, 3.7828894247922144`*^9}, {3.7828894704127984`*^9, 3.7828894832806067`*^9}, {3.7828895676621637`*^9, 3.7828896989824104`*^9}, {3.782889897534284*^9, 3.782889974096103*^9}, { 3.782890008314211*^9, 3.7828900144648685`*^9}, {3.782890064956847*^9, 3.7828900761517053`*^9}, {3.782890156541432*^9, 3.7828902369649267`*^9}, { 3.7828902882200904`*^9, 3.7828902932587423`*^9}, {3.7828903268988404`*^9, 3.7828903694321003`*^9}, {3.7828904048692026`*^9, 3.782890576517725*^9}, { 3.7828907072630215`*^9, 3.7828907112260923`*^9}, {3.7828907621042376`*^9, 3.782890767979224*^9}, {3.7828908139684525`*^9, 3.7828908594301414`*^9}, 3.782890932371729*^9, 3.7828910010350957`*^9, {3.782891172433777*^9, 3.7828912750809608`*^9}, {3.782891351864987*^9, 3.7828913553590746`*^9}, { 3.78289140629068*^9, 3.7828914593111854`*^9}, {3.7828915750152044`*^9, 3.782891585019949*^9}, {3.7828916454955325`*^9, 3.7828916978996363`*^9}, { 3.782891739613984*^9, 3.7828917592012825`*^9}, {3.782891821043155*^9, 3.782891824256428*^9}, {3.782894298043989*^9, 3.782894307175351*^9}, { 3.7828943676755705`*^9, 3.782894368581606*^9}, {3.7828947395419793`*^9, 3.7828947759680758`*^9}, {3.7828948089087405`*^9, 3.782894810722316*^9}, { 3.782894912862831*^9, 3.782894949353745*^9}, {3.7828949825923862`*^9, 3.7828950345599213`*^9}, {3.782895088348708*^9, 3.7828953638156986`*^9}, { 3.7828954073454404`*^9, 3.782895435883808*^9}, {3.7828954757069473`*^9, 3.7828955122484803`*^9}, {3.782895620542512*^9, 3.7828957058087964`*^9}, { 3.7828957563941526`*^9, 3.782895762991886*^9}, {3.782895881470869*^9, 3.7828958860981727`*^9}, {3.7828960486758223`*^9, 3.782896127331545*^9}, { 3.782896273753708*^9, 3.7828962774444885`*^9}, {3.7828963232918715`*^9, 3.782896351127663*^9}, {3.7828964342323*^9, 3.782896441052888*^9}, 3.782896489464527*^9, 3.78289652210252*^9, 3.7828966125366173`*^9, { 3.782896817163787*^9, 3.782896832567005*^9}, {3.7828968691010213`*^9, 3.7828968798888965`*^9}, {3.782896913905579*^9, 3.78289694185149*^9}, { 3.7828970247075415`*^9, 3.7828970524484186`*^9}, 3.7828971254554486`*^9, { 3.7828971658784275`*^9, 3.7828971679630733`*^9}, {3.7828972048788977`*^9, 3.782897299950742*^9}, {3.7828974368276095`*^9, 3.7828974535112624`*^9}, 3.782897536655864*^9, 3.7828975680817747`*^9, 3.782897616253992*^9, 3.7828976469349585`*^9, {3.7828976795799694`*^9, 3.7828977044546337`*^9}, 3.7828977708783903`*^9, {3.7828980017107067`*^9, 3.782898004957708*^9}, 3.782898148130244*^9, {3.782898214216318*^9, 3.7828982482853093`*^9}, { 3.782898387862194*^9, 3.7828983911069994`*^9}, 3.7828984902269435`*^9, { 3.782898886862504*^9, 3.782898892164832*^9}, {3.7828989562437344`*^9, 3.782898959260625*^9}, {3.7828991839937725`*^9, 3.7828992137402306`*^9}, 3.7828992458180723`*^9, {3.782899276758917*^9, 3.7828993734243283`*^9}, { 3.782899464058586*^9, 3.7828994950370293`*^9}, {3.7828995292493677`*^9, 3.782899554417571*^9}, 3.782899590190215*^9, {3.7828996776076326`*^9, 3.7828996849260406`*^9}, 3.782899744175626*^9, {3.78289988021144*^9, 3.7828999040867567`*^9}, 3.782899940498805*^9, {3.782900030456924*^9, 3.782900052659714*^9}, {3.7829002444482503`*^9, 3.782900251362461*^9}, { 3.782900396563794*^9, 3.782900397150196*^9}, {3.7829004877848935`*^9, 3.7829004938940954`*^9}, {3.7829006347749557`*^9, 3.7829006869145327`*^9}, {3.7829007706265354`*^9, 3.7829007950908637`*^9}, {3.7829010035299864`*^9, 3.7829010097791758`*^9}, {3.7829010833006496`*^9, 3.782901095965846*^9}, { 3.7829011470919085`*^9, 3.782901187256313*^9}, {3.7829012430721216`*^9, 3.7829013052230473`*^9}, {3.7829013770654387`*^9, 3.7829014458215656`*^9}, {3.782901485217337*^9, 3.782901486971298*^9}, 3.7829015237537174`*^9, {3.7829015771448545`*^9, 3.782901586557348*^9}, { 3.7829016275250006`*^9, 3.7829016664017773`*^9}, {3.782901909327207*^9, 3.7829019384348154`*^9}, {3.7829019706074266`*^9, 3.78290203257812*^9}, 3.7829020772496333`*^9, {3.7829021838216133`*^9, 3.782902344850629*^9}, { 3.7829023806756415`*^9, 3.7829024291694574`*^9}, {3.782902579690954*^9, 3.7829025813974533`*^9}, 3.782902627383565*^9, {3.7829026883518376`*^9, 3.7829026903579235`*^9}, {3.7829027304788127`*^9, 3.7829027937762165`*^9}, 3.7829028341747923`*^9, {3.782902917059637*^9, 3.7829029476138887`*^9}, { 3.7829029954375453`*^9, 3.782902998151017*^9}, {3.7829030315162053`*^9, 3.7829030433312235`*^9}, {3.7829030761745443`*^9, 3.7829030891579084`*^9}, {3.7829031411235094`*^9, 3.7829031414054604`*^9}, {3.782903172285349*^9, 3.782903179429344*^9}, { 3.7829032686598215`*^9, 3.782903303061305*^9}, {3.7829033429745398`*^9, 3.782903371733317*^9}, 3.7829034176624985`*^9, {3.782903476486271*^9, 3.782903488217367*^9}, {3.7829035607250605`*^9, 3.7829036092318616`*^9}, { 3.7829037310508027`*^9, 3.782903806100004*^9}, {3.7829038738327513`*^9, 3.782903894066*^9}, {3.782903949417422*^9, 3.7829039896357107`*^9}, { 3.7829041534348774`*^9, 3.7829041623626275`*^9}, {3.782904240304512*^9, 3.7829043434041653`*^9}, {3.782904393821103*^9, 3.7829044524407177`*^9}, { 3.7844346660822277`*^9, 3.784434832342655*^9}, {3.7844348704563932`*^9, 3.7844348804931803`*^9}, {3.784434912696774*^9, 3.784434980754865*^9}, { 3.7844350634002333`*^9, 3.7844350789352427`*^9}, {3.8575675808817043`*^9, 3.8575675930050573`*^9}, {3.857567690244873*^9, 3.8575676977356443`*^9}}, CellLabel->"In[11]:=",ExpressionUUID->"423115ed-e096-4332-984d-f7e7114c8e2a"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`d$$ = 250 10^Rational[ 1, 2] ($CellContext`f$$^(-1) $CellContext`\[Gamma]$$^(-1)/$CellContext`\ \[Mu]r$$)^Rational[1, 2], $CellContext`f$$ = 10000, $CellContext`hmax$$ = 1000, $CellContext`ShowAbsHy$$ = False, $CellContext`ShowAbsHyo$$ = False, $CellContext`ShowAbsJz$$ = False, $CellContext`ShowAbsJzo$$ = False, $CellContext`ShowRatioReImAbsHy$$ = False, $CellContext`ShowRatioReImAbsHyo$$ = False, $CellContext`ShowRatioReImJz$$ = False, $CellContext`ShowRatioReImJzo$$ = False, $CellContext`ShowReImHy$$ = True, $CellContext`ShowReImHyo$$ = False, $CellContext`ShowReImJz$$ = False, $CellContext`ShowReImJzo$$ = False, $CellContext`ShowReImSzHy$$ = False, $CellContext`ShowReImSzJz$$ = False, $CellContext`ShowReImZ$$ = False, $CellContext`t$$ = 0, $CellContext`\[Gamma]$$ = 58000000, $CellContext`\[Mu]r$$ = 1, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`d$$], 250 10^Rational[ 1, 2] ($CellContext`f$$^(-1) \ $CellContext`\[Gamma]$$^(-1)/$CellContext`\[Mu]r$$)^Rational[1, 2], "d [m]"}, Dynamic[$CellContext`a[$CellContext`\[Gamma]$$, $CellContext`\[Mu]r$$, \ $CellContext`f$$]/2], 0.1}, {{ Hold[$CellContext`f$$], 10000, "f [Hz]"}, 1000, 100000}, {{ Hold[$CellContext`\[Gamma]$$], 58000000, "\[Gamma] [\!\(\*FractionBox[\(S\), \(m\)]\)]"}, 200000, 58000000}, {{ Hold[$CellContext`\[Mu]r$$], 1, "\[Mu]r [-]"}, 1, 1000}, {{ Hold[$CellContext`hmax$$], 1000, "Hmax [\!\(\*FractionBox[\(V\), \(m\)]\)]"}, 1, 10000}, { Hold[$CellContext`ShowReImHy$$], {True, False}}, { Hold[$CellContext`ShowAbsHy$$], {False, True}}, { Hold[$CellContext`ShowReImHyo$$], {False, True}}, { Hold[$CellContext`ShowAbsHyo$$], {False, True}}, { Hold[$CellContext`ShowRatioReImAbsHy$$], {False, True}}, { Hold[$CellContext`ShowRatioReImAbsHyo$$], {False, True}}, { Hold[$CellContext`ShowReImJz$$], {False, True}}, { Hold[$CellContext`ShowAbsJz$$], {False, True}}, { Hold[$CellContext`ShowReImJzo$$], {False, True}}, { Hold[$CellContext`ShowAbsJzo$$], {False, True}}, { Hold[$CellContext`ShowRatioReImJz$$], {False, True}}, { Hold[$CellContext`ShowRatioReImJzo$$], {False, True}}, { Hold[$CellContext`ShowReImZ$$], {False, True}}, { Hold[$CellContext`ShowReImSzJz$$], {False, True}}, { Hold[$CellContext`ShowReImSzHy$$], {False, True}}, {{ Hold[$CellContext`t$$], 0, "t [s]"}, 0, Dynamic[1/$CellContext`f$$]}}, Typeset`size$$ = {759., {190., 195.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`d$$ = 250 10^Rational[ 1, 2] ($CellContext`f$$^(-1) \ $CellContext`\[Gamma]$$^(-1)/$CellContext`\[Mu]r$$)^ Rational[1, 2], $CellContext`f$$ = 10000, $CellContext`hmax$$ = 1000, $CellContext`ShowAbsHy$$ = False, $CellContext`ShowAbsHyo$$ = False, $CellContext`ShowAbsJz$$ = False, $CellContext`ShowAbsJzo$$ = False, $CellContext`ShowRatioReImAbsHy$$ = False, $CellContext`ShowRatioReImAbsHyo$$ = False, $CellContext`ShowRatioReImJz$$ = False, $CellContext`ShowRatioReImJzo$$ = False, $CellContext`ShowReImHy$$ = True, $CellContext`ShowReImHyo$$ = False, $CellContext`ShowReImJz$$ = False, $CellContext`ShowReImJzo$$ = False, $CellContext`ShowReImSzHy$$ = False, $CellContext`ShowReImSzJz$$ = False, $CellContext`ShowReImZ$$ = False, $CellContext`t$$ = 0, $CellContext`\[Gamma]$$ = 58000000, $CellContext`\[Mu]r$$ = 1}, "ControllerVariables" :> {}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> ReImPlot[{ If[$CellContext`ShowReImHy$$, $CellContext`hy[$CellContext`x, $CellContext`\[Gamma]$$, \ $CellContext`\[Mu]r$$, $CellContext`f$$, $CellContext`t$$, \ $CellContext`hmax$$, $CellContext`d$$], ""], If[$CellContext`ShowAbsHy$$, Abs[ $CellContext`hy[$CellContext`x, $CellContext`\[Gamma]$$, \ $CellContext`\[Mu]r$$, $CellContext`f$$, $CellContext`t$$, \ $CellContext`hmax$$, $CellContext`d$$]], ""], If[$CellContext`ShowReImHyo$$, $CellContext`hyo[$CellContext`x, $CellContext`\[Gamma]$$, \ $CellContext`\[Mu]r$$, $CellContext`f$$, $CellContext`t$$, \ $CellContext`hmax$$, $CellContext`d$$], ""], If[$CellContext`ShowAbsHyo$$, -Abs[ $CellContext`hyo[$CellContext`x, $CellContext`\[Gamma]$$, \ $CellContext`\[Mu]r$$, $CellContext`f$$, $CellContext`t$$, \ $CellContext`hmax$$, $CellContext`d$$]], ""], If[$CellContext`ShowRatioReImAbsHy$$, \ {$CellContext`hy[$CellContext`x, $CellContext`\[Gamma]$$, \ $CellContext`\[Mu]r$$, $CellContext`f$$, $CellContext`t$$, \ $CellContext`hmax$$, $CellContext`d$$]/Abs[ $CellContext`hy[ 0, $CellContext`\[Gamma]$$, $CellContext`\[Mu]r$$, \ $CellContext`f$$, $CellContext`t$$, $CellContext`hmax$$, $CellContext`d$$]], Abs[$CellContext`hy[$CellContext`x, $CellContext`\[Gamma]$$, \ $CellContext`\[Mu]r$$, $CellContext`f$$, $CellContext`t$$, \ $CellContext`hmax$$, $CellContext`d$$]/Abs[ $CellContext`hy[ 0, $CellContext`\[Gamma]$$, $CellContext`\[Mu]r$$, \ $CellContext`f$$, $CellContext`t$$, $CellContext`hmax$$, $CellContext`d$$]]]}, ""], If[$CellContext`ShowRatioReImAbsHyo$$, \ {$CellContext`hyo[$CellContext`x, $CellContext`\[Gamma]$$, \ $CellContext`\[Mu]r$$, $CellContext`f$$, $CellContext`t$$, \ $CellContext`hmax$$, $CellContext`d$$]/Abs[ $CellContext`hy[ 0, $CellContext`\[Gamma]$$, $CellContext`\[Mu]r$$, \ $CellContext`f$$, $CellContext`t$$, $CellContext`hmax$$, $CellContext`d$$]], - Abs[$CellContext`hyo[$CellContext`x, $CellContext`\[Gamma]$$, \ $CellContext`\[Mu]r$$, $CellContext`f$$, $CellContext`t$$, \ $CellContext`hmax$$, $CellContext`d$$]/Abs[ $CellContext`hy[ 0, $CellContext`\[Gamma]$$, $CellContext`\[Mu]r$$, \ $CellContext`f$$, $CellContext`t$$, $CellContext`hmax$$, $CellContext`d$$]]]}, ""], If[$CellContext`ShowReImJz$$, $CellContext`jz[$CellContext`x, $CellContext`\[Gamma]$$, \ $CellContext`\[Mu]r$$, $CellContext`f$$, $CellContext`t$$, \ $CellContext`hmax$$, $CellContext`d$$], ""], If[$CellContext`ShowAbsJz$$, Abs[ $CellContext`jz[$CellContext`x, $CellContext`\[Gamma]$$, \ $CellContext`\[Mu]r$$, $CellContext`f$$, $CellContext`t$$, \ $CellContext`hmax$$, $CellContext`d$$]], ""], If[$CellContext`ShowReImJzo$$, -$CellContext`jzo[$CellContext`x, \ $CellContext`\[Gamma]$$, $CellContext`\[Mu]r$$, $CellContext`f$$, \ $CellContext`t$$, $CellContext`hmax$$, $CellContext`d$$], ""], If[$CellContext`ShowAbsJzo$$, Abs[ $CellContext`jzo[$CellContext`x, $CellContext`\[Gamma]$$, \ $CellContext`\[Mu]r$$, $CellContext`f$$, $CellContext`t$$, \ $CellContext`hmax$$, $CellContext`d$$]], ""], If[$CellContext`ShowRatioReImJz$$, {$CellContext`jz[$CellContext`x, \ $CellContext`\[Gamma]$$, $CellContext`\[Mu]r$$, $CellContext`f$$, \ $CellContext`t$$, $CellContext`hmax$$, $CellContext`d$$]/Abs[ $CellContext`jz[ 0, $CellContext`\[Gamma]$$, $CellContext`\[Mu]r$$, \ $CellContext`f$$, 0, $CellContext`hmax$$, $CellContext`d$$]], Abs[ $CellContext`jz[$CellContext`x, $CellContext`\[Gamma]$$, \ $CellContext`\[Mu]r$$, $CellContext`f$$, $CellContext`t$$, \ $CellContext`hmax$$, $CellContext`d$$]]/Abs[ $CellContext`jz[ 0, $CellContext`\[Gamma]$$, $CellContext`\[Mu]r$$, \ $CellContext`f$$, 0, $CellContext`hmax$$, $CellContext`d$$]]}, ""], If[$CellContext`ShowRatioReImJzo$$, \ {$CellContext`jzo[$CellContext`x, $CellContext`\[Gamma]$$, \ $CellContext`\[Mu]r$$, $CellContext`f$$, $CellContext`t$$, \ $CellContext`hmax$$, $CellContext`d$$]/Abs[ $CellContext`jz[ 0, $CellContext`\[Gamma]$$, $CellContext`\[Mu]r$$, \ $CellContext`f$$, 0, $CellContext`hmax$$, $CellContext`d$$]], Abs[ $CellContext`jzo[$CellContext`x, $CellContext`\[Gamma]$$, \ $CellContext`\[Mu]r$$, $CellContext`f$$, $CellContext`t$$, \ $CellContext`hmax$$, $CellContext`d$$]]/Abs[ $CellContext`jz[ 0, $CellContext`\[Gamma]$$, $CellContext`\[Mu]r$$, \ $CellContext`f$$, 0, $CellContext`hmax$$, $CellContext`d$$]]}, ""], If[$CellContext`ShowReImZ$$, (-$CellContext`jz[$CellContext`x, \ $CellContext`\[Gamma]$$, $CellContext`\[Mu]r$$, $CellContext`f$$, \ $CellContext`t$$, $CellContext`hmax$$, $CellContext`d$$] - \ $CellContext`jzo[$CellContext`x, $CellContext`\[Gamma]$$, \ $CellContext`\[Mu]r$$, $CellContext`f$$, $CellContext`t$$, \ $CellContext`hmax$$, $CellContext`d$$])/( 2 $CellContext`\[Gamma]$$ ($CellContext`hy[$CellContext`x, \ $CellContext`\[Gamma]$$, $CellContext`\[Mu]r$$, $CellContext`f$$, \ $CellContext`t$$, $CellContext`hmax$$, $CellContext`d$$] - \ $CellContext`hyo[$CellContext`x, $CellContext`\[Gamma]$$, \ $CellContext`\[Mu]r$$, $CellContext`f$$, $CellContext`t$$, \ $CellContext`hmax$$, $CellContext`d$$])), ""], If[$CellContext`ShowReImSzJz$$, $CellContext`jz[$CellContext`x, \ $CellContext`\[Gamma]$$, $CellContext`\[Mu]r$$, $CellContext`f$$, \ $CellContext`t$$, $CellContext`hmax$$, $CellContext`d$$]^2/( 2 $CellContext`\[Gamma]$$), ""], If[$CellContext`ShowReImSzHy$$, $CellContext`hy[$CellContext`x, \ $CellContext`\[Gamma]$$, $CellContext`\[Mu]r$$, $CellContext`f$$, \ $CellContext`t$$, $CellContext`hmax$$, $CellContext`d$$]^2/( 2 $CellContext`\[Gamma]$$ $CellContext`a[$CellContext`\[Gamma]$$, \ $CellContext`\[Mu]r$$, $CellContext`f$$]^2)]}, {$CellContext`x, 0, $CellContext`d$$}, PlotRange -> All, PlotLegends -> { Placed[{ If[$CellContext`ShowReImHy$$, "ReImHy", ""], If[$CellContext`ShowAbsHy$$, "AbsHy", ""], If[$CellContext`ShowReImHyo$$, "ReImHyo", ""], If[$CellContext`ShowAbsHyo$$, "-AbsHyo", ""], If[$CellContext`ShowRatioReImAbsHy$$, "ReImAbsHy/max", ""], If[$CellContext`ShowRatioReImAbsHyo$$, "ReImAbsHyo/max", ""], If[$CellContext`ShowReImJz$$, "ReImJz", ""], If[$CellContext`ShowAbsJz$$, "AbsJz", ""], If[$CellContext`ShowReImJzo$$, "ReImJzo", ""], If[$CellContext`ShowAbsJzo$$, "AbsJzo", ""], If[$CellContext`ShowRatioReImJz$$, "ReImJz/max", ""], If[$CellContext`ShowRatioReImJzo$$, "ReImJzo/max", ""], If[$CellContext`ShowReImZ$$, "ReImZ", ""], If[$CellContext`ShowReImSzJz$$, "ReImS", ""], If[$CellContext`ShowReImSzHy$$, "ReImS", ""]}, Right]}, ImageSize -> Scaled[0.4], PlotLabel -> StringForm[ "a=`` [mm],d/a=`` [-], P transmitted by plane waves to an \ electrically conductive wall P=`` [W]", N[ 1000 $CellContext`a[$CellContext`\[Gamma]$$, $CellContext`\[Mu]r$$, \ $CellContext`f$$], 4], N[$CellContext`d$$/$CellContext`a[$CellContext`\[Gamma]$$, \ $CellContext`\[Mu]r$$, $CellContext`f$$], 4], Round[ NIntegrate[Re[ $CellContext`jz[$CellContext`x, $CellContext`\[Gamma]$$, \ $CellContext`\[Mu]r$$, $CellContext`f$$, $CellContext`t$$, \ $CellContext`hmax$$, $CellContext`d$$]]^2/( 2 $CellContext`\[Gamma]$$), {$CellContext`x, 0, $CellContext`d$$}]]]], "Specifications" :> {{{$CellContext`d$$, 250 10^Rational[ 1, 2] ($CellContext`f$$^(-1) \ $CellContext`\[Gamma]$$^(-1)/$CellContext`\[Mu]r$$)^Rational[1, 2], "d [m]"}, Dynamic[$CellContext`a[$CellContext`\[Gamma]$$, \ $CellContext`\[Mu]r$$, $CellContext`f$$]/2], 0.1, Appearance -> "Labeled"}, {{$CellContext`f$$, 10000, "f [Hz]"}, 1000, 100000, Appearance -> "Labeled"}, {{$CellContext`\[Gamma]$$, 58000000, "\[Gamma] [\!\(\*FractionBox[\(S\), \(m\)]\)]"}, 200000, 58000000, Appearance -> "Labeled"}, {{$CellContext`\[Mu]r$$, 1, "\[Mu]r [-]"}, 1, 1000, Appearance -> "Labeled"}, {{$CellContext`hmax$$, 1000, "Hmax [\!\(\*FractionBox[\(V\), \(m\)]\)]"}, 1, 10000, Appearance -> "Labeled"}, {$CellContext`ShowReImHy$$, { True, False}}, {$CellContext`ShowAbsHy$$, { False, True}}, {$CellContext`ShowReImHyo$$, { False, True}}, {$CellContext`ShowAbsHyo$$, { False, True}}, {$CellContext`ShowRatioReImAbsHy$$, { False, True}}, {$CellContext`ShowRatioReImAbsHyo$$, { False, True}}, {$CellContext`ShowReImJz$$, { False, True}}, {$CellContext`ShowAbsJz$$, { False, True}}, {$CellContext`ShowReImJzo$$, { False, True}}, {$CellContext`ShowAbsJzo$$, { False, True}}, {$CellContext`ShowRatioReImJz$$, { False, True}}, {$CellContext`ShowRatioReImJzo$$, { False, True}}, {$CellContext`ShowReImZ$$, { False, True}}, {$CellContext`ShowReImSzJz$$, { False, True}}, {$CellContext`ShowReImSzHy$$, { False, True}}, {{$CellContext`t$$, 0, "t [s]"}, 0, Dynamic[1/$CellContext`f$$], Appearance -> "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{1223., {276., 282.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.782902769989749*^9, 3.78290280137811*^9}, { 3.782902834894926*^9, 3.7829028473608294`*^9}, {3.7829029258761415`*^9, 3.7829029532020946`*^9}, {3.782903044922798*^9, 3.7829030935879354`*^9}, { 3.782903180441214*^9, 3.7829031851555443`*^9}, {3.78290326912848*^9, 3.7829032732179937`*^9}, {3.782903306090639*^9, 3.782903377474197*^9}, { 3.782903418856244*^9, 3.7829034283002386`*^9}, {3.7829034634127655`*^9, 3.7829035247460017`*^9}, {3.7829035614816504`*^9, 3.7829036102716165`*^9}, 3.782903679271896*^9, {3.782903808104802*^9, 3.7829038348674955`*^9}, { 3.7829039907871246`*^9, 3.782904028024031*^9}, {3.782904156053215*^9, 3.7829041935779657`*^9}, 3.7829043445977325`*^9, 3.7829043968176966`*^9, { 3.782904435449577*^9, 3.7829044528480263`*^9}, 3.783828526733189*^9, { 3.7838285711902647`*^9, 3.7838286788800735`*^9}, 3.784434520233183*^9, { 3.784434783508397*^9, 3.78443479681911*^9}, {3.7844348332843647`*^9, 3.784434881213914*^9}, 3.7844349161086874`*^9, {3.784434982176407*^9, 3.784434989249119*^9}, 3.7844350841145616`*^9, {3.857565947930612*^9, 3.857565975526128*^9}, 3.857567598512041*^9, 3.8575676994677353`*^9}, CellLabel->"Out[20]=",ExpressionUUID->"295e27c2-8fcb-4387-9fa6-a73f745d0dfc"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.857565985525043*^9, 3.857565987890698*^9}},ExpressionUUID->"b6351c87-c9c6-401f-a95f-\ 9e1be6f6685f"] }, WindowSize->{Full, Full}, WindowMargins->{{-7, Automatic}, {Automatic, 0}}, TaggingRules-><|"TryRealOnly" -> False|>, Magnification:>1.1 Inherited, FrontEndVersion->"13.0 for Mac OS X ARM (64-bit) (February 4, 2022)", StyleDefinitions->"Default.nb", ExpressionUUID->"2768b8f0-119c-4a3b-b20b-7ad095bcee40" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 34600, 759, 1804, "Input",ExpressionUUID->"423115ed-e096-4332-984d-f7e7114c8e2a"], Cell[35183, 783, 15624, 277, 601, "Output",ExpressionUUID->"295e27c2-8fcb-4387-9fa6-a73f745d0dfc"] }, Open ]], Cell[50822, 1063, 152, 3, 34, "Input",ExpressionUUID->"b6351c87-c9c6-401f-a95f-9e1be6f6685f"] } ] *)