(* 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[ 46362, 1016] NotebookOptionsPosition[ 45774, 997] NotebookOutlinePosition[ 46272, 1015] CellTagsIndexPosition[ 46229, 1012] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{ "i1m", ",", "f", ",", "t", ",", "r", ",", "h1", ",", "h2", ",", "tr1", ",", "tr2", ",", "j1", ",", "j2", ",", "\[Sigma]1", ",", "\[Sigma]2", ",", "z1", ",", "z2", ",", "vp2", ",", "\[Gamma]", ",", "\[Mu]r"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Mu]0", "=", RowBox[{"4", " ", "\[Pi]", " ", SuperscriptBox["10", RowBox[{"-", "7"}]]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"a", "[", RowBox[{"f_", ",", "\[Mu]r_", ",", "\[Gamma]_"}], "]"}], "=", SqrtBox[ FractionBox["2", RowBox[{ "2", " ", "\[Pi]", " ", "f", " ", "\[Mu]r", " ", "\[Mu]0", " ", "\[Gamma]", " "}]]]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"h1", "[", RowBox[{ "i1m_", ",", "f_", ",", "t_", ",", "r_", ",", "tr1_", ",", "tr2_", ",", "\[Gamma]_", ",", "\[Mu]r_"}], "]"}], "=", RowBox[{ RowBox[{"DSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Curl", "[", RowBox[{ RowBox[{"Curl", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"h1", "[", "r", "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "\[Theta]", ",", "z"}], "}"}], ",", " ", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"r", ",", "\[Theta]", ",", "z"}], "}"}], ",", " ", "\"\\""}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "2"}], SuperscriptBox[ RowBox[{"a", "[", RowBox[{"f", ",", "\[Mu]r", ",", "\[Gamma]"}], "]"}], "2"]], " ", RowBox[{"h1", "[", "r", "]"}]}]}], ",", RowBox[{ RowBox[{"h1", "[", "0", "]"}], "==", "0"}], ",", RowBox[{ RowBox[{"h1", "[", "tr1", "]"}], "\[Equal]", RowBox[{ FractionBox["i1m", RowBox[{"2", " ", "\[Pi]", " ", "tr1"}]], SuperscriptBox["\[ExponentialE]", RowBox[{ "\[ImaginaryI]", " ", "2", " ", "\[Pi]", " ", "f", " ", "t"}]]}]}]}], "}"}], ",", RowBox[{"h1", "[", "r", "]"}], ",", "r"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"h2", "[", RowBox[{ "i1m_", ",", "f_", ",", "t_", ",", "r_", ",", "tr1_", ",", "tr2_", ",", "\[Gamma]_", ",", "\[Mu]r_"}], "]"}], "=", RowBox[{ RowBox[{"DSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Curl", "[", RowBox[{ RowBox[{"Curl", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"h2", "[", "r", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "\[Theta]", ",", "z"}], "}"}], ",", " ", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"r", ",", "\[Theta]", ",", "z"}], "}"}], ",", " ", "\"\\""}], "]"}], "[", RowBox[{"[", "3", "]"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "2"}], SuperscriptBox[ RowBox[{"a", "[", RowBox[{"f", ",", "\[Mu]r", ",", "\[Gamma]"}], "]"}], "2"]], " ", RowBox[{"h2", "[", "r", "]"}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["h2", "\[Prime]", MultilineFunction->None], "[", "0", "]"}], "==", "0"}], ",", RowBox[{ RowBox[{"h2", "[", "tr2", "]"}], "==", RowBox[{ FractionBox["i1m", RowBox[{"2", " ", "\[Pi]", " ", "tr1"}]], SuperscriptBox["\[ExponentialE]", RowBox[{ "\[ImaginaryI]", " ", "2", " ", "\[Pi]", " ", "f", " ", "t"}]]}]}]}], "}"}], ",", RowBox[{"h2", "[", "r", "]"}], ",", "r"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"j1", "[", RowBox[{ "i1m_", ",", "f_", ",", "t_", ",", "r_", ",", "tr1_", ",", "tr2_", ",", "\[Gamma]_", ",", "\[Mu]r_"}], "]"}], "=", RowBox[{ RowBox[{"Curl", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"h1", "[", RowBox[{ "i1m", ",", "f", ",", "t", ",", "r", ",", "tr1", ",", "tr2", ",", "\[Gamma]", ",", "\[Mu]r"}], "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "\[Theta]", ",", "z"}], "}"}], ",", " ", "\"\\""}], "]"}], "[", RowBox[{"[", "3", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"j2", "[", RowBox[{ "i1m_", ",", "f_", ",", "t_", ",", "r_", ",", "tr1_", ",", "tr2_", ",", "\[Gamma]_", ",", "\[Mu]r_"}], "]"}], "=", RowBox[{ RowBox[{"Curl", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"h2", "[", RowBox[{ "i1m", ",", "f", ",", "t", ",", "r", ",", "tr1", ",", "tr2", ",", "\[Gamma]", ",", "\[Mu]r"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "\[Theta]", ",", "z"}], "}"}], ",", " ", "\"\\""}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Sigma]1", "[", RowBox[{ "i1m_", ",", "f_", ",", "t_", ",", "r_", ",", "tr1_", ",", "tr2_", ",", "\[Gamma]_", ",", "\[Mu]r_"}], "]"}], "=", FractionBox[ SuperscriptBox[ RowBox[{"j1", "[", RowBox[{ "i1m", ",", "f", ",", "t", ",", "r", ",", "tr1", ",", "tr2", ",", "\[Gamma]", ",", "\[Mu]r"}], "]"}], "2"], "\[Gamma]"]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Sigma]2", "[", RowBox[{ "i1m_", ",", "f_", ",", "t_", ",", "r_", ",", "tr1_", ",", "tr2_", ",", "\[Gamma]_", ",", "\[Mu]r_"}], "]"}], "=", FractionBox[ SuperscriptBox[ RowBox[{"j2", "[", RowBox[{ "i1m", ",", "f", ",", "t", ",", "r", ",", "tr1", ",", "tr2", ",", "\[Gamma]", ",", "\[Mu]r"}], "]"}], "2"], "\[Gamma]"]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"z1", "[", RowBox[{ "i1m_", ",", "f_", ",", "t_", ",", "r_", ",", "tr1_", ",", "tr2_", ",", "\[Gamma]_", ",", "\[Mu]r_"}], "]"}], "=", FractionBox[ RowBox[{"j1", "[", RowBox[{ "i1m", ",", "f", ",", "t", ",", "r", ",", "tr1", ",", "tr2", ",", "\[Gamma]", ",", "\[Mu]r"}], "]"}], RowBox[{"\[Gamma]", " ", RowBox[{"h1", "[", RowBox[{ "i1m", ",", "f", ",", "t", ",", "r", ",", "tr1", ",", "tr2", ",", "\[Gamma]", ",", "\[Mu]r"}], "]"}]}]]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"z2", "[", RowBox[{ "i1m_", ",", "f_", ",", "t_", ",", "r_", ",", "tr1_", ",", "tr2_", ",", "\[Gamma]_", ",", "\[Mu]r_"}], "]"}], "=", FractionBox[ RowBox[{"j2", "[", RowBox[{ "i1m", ",", "f", ",", "t", ",", "r", ",", "tr1", ",", "tr2", ",", "\[Gamma]", ",", "\[Mu]r"}], "]"}], RowBox[{"\[Gamma]", " ", RowBox[{"h2", "[", RowBox[{ "i1m", ",", "f", ",", "t", ",", "r", ",", "tr1", ",", "tr2", ",", "\[Gamma]", ",", "\[Mu]r"}], "]"}]}]]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"vp2", "[", RowBox[{ "i1m_", ",", "f_", ",", "t_", ",", "r_", ",", "tr1_", ",", "tr2_", ",", "\[Gamma]_", ",", "\[Mu]r_"}], "]"}], "=", RowBox[{ RowBox[{"DSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Curl", "[", RowBox[{ RowBox[{ FractionBox["1", RowBox[{"\[Mu]r", " ", "\[Mu]0"}]], RowBox[{"Curl", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"vp2", "[", "r", "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "\[Theta]", ",", "z"}], "}"}], ",", " ", "\"\\""}], "]"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "\[Theta]", ",", "z"}], "}"}], ",", " ", "\"\\""}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", "\[Gamma]"}], " ", "\[ImaginaryI]", " ", "2", " ", "\[Pi]", " ", "f", " ", RowBox[{"vp2", "[", "r", "]"}]}]}], ",", RowBox[{ RowBox[{"vp2", "[", "0", "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"vp2", "[", "tr2", "]"}], "\[Equal]", RowBox[{ FractionBox["i1m", RowBox[{"20000", " ", "\[Pi]", " ", "tr1"}]], SuperscriptBox["\[ExponentialE]", RowBox[{ "\[ImaginaryI]", " ", "2", " ", "\[Pi]", " ", "f", " ", "t"}]]}]}]}], "}"}], ",", RowBox[{"vp2", "[", "r", "]"}], ",", "r"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{"workpiece", ",", RowBox[{"Manipulate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"ReImPlot", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{"zh2", ",", RowBox[{"h2", "[", RowBox[{ "i1m", ",", "f", ",", "t", ",", "r", ",", "tr1", ",", "tr2", ",", "\[Gamma]", ",", "\[Mu]r"}], "]"}], ",", "Nothing"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"zj2", ",", RowBox[{"j2", "[", RowBox[{ "i1m", ",", "f", ",", "t", ",", "r", ",", "tr1", ",", "tr2", ",", "\[Gamma]", ",", "\[Mu]r"}], "]"}], ",", "Nothing"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"z\[Sigma]2", ",", RowBox[{"\[Sigma]2", "[", RowBox[{ "i1m", ",", "f", ",", "t", ",", "r", ",", "tr1", ",", "tr2", ",", "\[Gamma]", ",", "\[Mu]r"}], "]"}], ",", "Nothing"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"zz2", ",", RowBox[{"z2", "[", RowBox[{ "i1m", ",", "f", ",", "t", ",", "r", ",", "tr1", ",", "tr2", ",", "\[Gamma]", ",", "\[Mu]r"}], "]"}], ",", "Nothing"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"ratio2", ",", RowBox[{ RowBox[{"h2", "[", RowBox[{ "i1m", ",", "f", ",", "t", ",", "r", ",", "tr1", ",", "tr2", ",", "\[Gamma]", ",", "\[Mu]r"}], "]"}], "/", RowBox[{"h2", "[", RowBox[{ "i1m", ",", "f", ",", "t", ",", "tr2", ",", "tr1", ",", "tr2", ",", "\[Gamma]", ",", "\[Mu]r"}], "]"}]}], ",", "Nothing"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"ratio2", ",", RowBox[{ RowBox[{"j2", "[", RowBox[{ "i1m", ",", "f", ",", "t", ",", "r", ",", "tr1", ",", "tr2", ",", "\[Gamma]", ",", "\[Mu]r"}], "]"}], "/", RowBox[{"j2", "[", RowBox[{ "i1m", ",", "f", ",", "t", ",", "tr2", ",", "tr1", ",", "tr2", ",", "\[Gamma]", ",", "\[Mu]r"}], "]"}]}], ",", "Nothing"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"ratio2", ",", RowBox[{ RowBox[{"\[Sigma]2", "[", RowBox[{ "i1m", ",", "f", ",", "t", ",", "r", ",", "tr1", ",", "tr2", ",", "\[Gamma]", ",", "\[Mu]r"}], "]"}], "/", RowBox[{"\[Sigma]2", "[", RowBox[{ "i1m", ",", "f", ",", "t", ",", "tr2", ",", "tr1", ",", "tr2", ",", "\[Gamma]", ",", "\[Mu]r"}], "]"}]}], ",", "Nothing"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"ratio2", ",", RowBox[{ RowBox[{"z2", "[", RowBox[{ "i1m", ",", "f", ",", "t", ",", "r", ",", "tr1", ",", "tr2", ",", "\[Gamma]", ",", "\[Mu]r"}], "]"}], "/", RowBox[{"z2", "[", RowBox[{ "i1m", ",", "f", ",", "t", ",", "tr2", ",", "tr1", ",", "tr2", ",", "\[Gamma]", ",", "\[Mu]r"}], "]"}]}], ",", "Nothing"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"zvp2", ",", RowBox[{"vp2", "[", RowBox[{ "i1m", ",", "f", ",", "t", ",", "r", ",", "tr1", ",", "tr2", ",", "\[Gamma]", ",", "\[Mu]r"}], "]"}], ",", "Nothing"}], "]"}]}], "\[IndentingNewLine]", "}"}], ",", RowBox[{"{", RowBox[{"r", ",", RowBox[{"itl", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"itl", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "\"\<\>\""}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\<\>\""}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotLabel", "\[Rule]", RowBox[{"StringForm", "[", RowBox[{ "\"\\"", ",", RowBox[{"1000", "*", RowBox[{"a", "[", RowBox[{"f", ",", "\[Mu]r", ",", "\[Gamma]"}], "]"}]}], ",", RowBox[{"Round", "[", FractionBox[ RowBox[{ SqrtBox["2"], "*", "tr2"}], RowBox[{"a", "[", RowBox[{"f", ",", "\[Mu]r", ",", "\[Gamma]"}], "]"}]], "]"}], ",", RowBox[{"Round", "[", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{"Re", "[", RowBox[{"\[Sigma]2", "[", RowBox[{ "i1m", ",", "f", ",", "t", ",", "r", ",", "tr1", ",", "tr2", ",", "\[Gamma]", ",", "\[Mu]r"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "tr2"}], "}"}]}], "]"}], "]"}]}], "]"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"itl", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "tr2"}], ",", "tr2"}], "}"}]}], "}"}], ",", RowBox[{"-", "tr2"}], ",", "tr2", ",", "IntervalSlider", ",", " ", RowBox[{"Appearance", "\[Rule]", "\"\\""}], ",", RowBox[{"Method", "\[Rule]", "\"\\""}], ",", RowBox[{"MinIntervalSize", "\[Rule]", "0.001"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"f", ",", "10000"}], "}"}], ",", "1000", ",", "100000", ",", " ", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"i1m", ",", RowBox[{"100", "/", "1.41"}]}], "}"}], ",", "1", ",", "5000", ",", " ", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[Gamma]", ",", "58000000"}], "}"}], ",", "2000000", ",", "58000000", ",", " ", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"\[Mu]r", ",", "1", ",", "17", ",", " ", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"1", "/", "f"}], ",", " ", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"zh2", ",", RowBox[{"{", RowBox[{"True", ",", "False"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"zj2", ",", RowBox[{"{", RowBox[{"False", ",", "True"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"z\[Sigma]2", ",", RowBox[{"{", RowBox[{"False", ",", "True"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"zz2", ",", RowBox[{"{", RowBox[{"False", ",", "True"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"ratio2", ",", RowBox[{"{", RowBox[{"False", ",", "True"}], "}"}]}], "}"}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"{", RowBox[{"zvp2", ",", RowBox[{"{", RowBox[{"True", ",", "False"}], "}"}]}], "}"}], " ", "okrajove", " ", "podminky", " ", "nejsou", " ", "spravne"}], "*)"}], "\[IndentingNewLine]", "]"}], ",", "Nothing"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"conductor", ",", RowBox[{"Manipulate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"ReImPlot", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{"zh1", ",", RowBox[{"h1", "[", RowBox[{ "i1m", ",", "f", ",", "t", ",", "r", ",", "tr1", ",", "tr2", ",", "\[Gamma]", ",", "\[Mu]r"}], "]"}], ",", "Nothing"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"zj1", ",", RowBox[{"j1", "[", RowBox[{ "i1m", ",", "f", ",", "t", ",", "r", ",", "tr1", ",", "tr2", ",", "\[Gamma]", ",", "\[Mu]r"}], "]"}], ",", "Nothing"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"z\[Sigma]1", ",", RowBox[{"\[Sigma]1", "[", RowBox[{ "i1m", ",", "f", ",", "t", ",", "r", ",", "tr1", ",", "tr2", ",", "\[Gamma]", ",", "\[Mu]r"}], "]"}], ",", "Nothing"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"zz1", ",", RowBox[{"z1", "[", RowBox[{ "i1m", ",", "f", ",", "t", ",", "r", ",", "tr1", ",", "tr2", ",", "\[Gamma]", ",", "\[Mu]r"}], "]"}], ",", "Nothing"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"ratio1", ",", RowBox[{ RowBox[{"h1", "[", RowBox[{ "i1m", ",", "f", ",", "t", ",", "r", ",", "tr1", ",", "tr2", ",", "\[Gamma]", ",", "\[Mu]r"}], "]"}], "/", RowBox[{"h1", "[", RowBox[{ "i1m", ",", "f", ",", "t", ",", "tr1", ",", "tr1", ",", "tr2", ",", "\[Gamma]", ",", "\[Mu]r"}], "]"}]}], ",", "Nothing"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"ratio1", ",", RowBox[{ RowBox[{"j1", "[", RowBox[{ "i1m", ",", "f", ",", "t", ",", "r", ",", "tr1", ",", "tr2", ",", "\[Gamma]", ",", "\[Mu]r"}], "]"}], "/", RowBox[{"j1", "[", RowBox[{ "i1m", ",", "f", ",", "t", ",", "tr1", ",", "tr1", ",", "tr2", ",", "\[Gamma]", ",", "\[Mu]r"}], "]"}]}], ",", "Nothing"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"ratio1", ",", RowBox[{ RowBox[{"\[Sigma]1", "[", RowBox[{ "i1m", ",", "f", ",", "t", ",", "r", ",", "tr1", ",", "tr2", ",", "\[Gamma]", ",", "\[Mu]r"}], "]"}], "/", RowBox[{"\[Sigma]1", "[", RowBox[{ "i1m", ",", "f", ",", "t", ",", "tr1", ",", "tr1", ",", "tr2", ",", "\[Gamma]", ",", "\[Mu]r"}], "]"}]}], ",", "Nothing"}], "]"}]}], "\[IndentingNewLine]", "}"}], ",", RowBox[{"{", RowBox[{"r", ",", RowBox[{"itl", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"itl", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "\"\<\>\""}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\<\>\""}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotLabel", "\[Rule]", RowBox[{"StringForm", "[", RowBox[{ "\"\\"", ",", RowBox[{"1000", "*", RowBox[{"a", "[", RowBox[{"f", ",", "\[Mu]r", ",", "\[Gamma]"}], "]"}]}], ",", RowBox[{"Round", "[", FractionBox[ RowBox[{ SqrtBox["2"], "*", "tr1"}], RowBox[{"a", "[", RowBox[{"f", ",", "\[Mu]r", ",", "\[Gamma]"}], "]"}]], "]"}], ",", RowBox[{"Round", "[", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{"Re", "[", RowBox[{"\[Sigma]1", "[", RowBox[{ "i1m", ",", "f", ",", "t", ",", "r", ",", "tr1", ",", "tr2", ",", "\[Gamma]", ",", "\[Mu]r"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "tr1"}], "}"}]}], "]"}], "]"}]}], "]"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"itl", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "tr1"}], ",", "tr1"}], "}"}]}], "}"}], ",", RowBox[{"-", "tr1"}], ",", "tr1", ",", "IntervalSlider", ",", " ", RowBox[{"Appearance", "\[Rule]", "\"\\""}], ",", RowBox[{"Method", "\[Rule]", "\"\\""}], ",", RowBox[{"MinIntervalSize", "\[Rule]", "0.001"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"f", ",", "10000"}], "}"}], ",", "1000", ",", "100000", ",", " ", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"i1m", ",", RowBox[{"100", "/", "1.41"}]}], "}"}], ",", "1", ",", "5000", ",", " ", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[Gamma]", ",", "58000000"}], "}"}], ",", "2000000", ",", "58000000", ",", " ", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"\[Mu]r", ",", "1", ",", "17", ",", " ", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"1", "/", "f"}], ",", " ", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"zh1", ",", RowBox[{"{", RowBox[{"True", ",", "False"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"zj1", ",", RowBox[{"{", RowBox[{"False", ",", "True"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"z\[Sigma]1", ",", RowBox[{"{", RowBox[{"False", ",", "True"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"zz1", ",", RowBox[{"{", RowBox[{"False", ",", "True"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"ratio1", ",", RowBox[{"{", RowBox[{"False", ",", "True"}], "}"}]}], "}"}]}], "\[IndentingNewLine]", "]"}], ",", "Nothing"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"workpiece", ",", RowBox[{"{", RowBox[{"True", ",", "False"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"conductor", ",", RowBox[{"{", RowBox[{"True", ",", "False"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"tr1", ",", "0.004"}], "}"}], ",", "0.001", ",", "0.1", ",", " ", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"tr2", ",", "0.015"}], "}"}], ",", "0.001", ",", "0.1", ",", " ", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}]}], "\[IndentingNewLine]", "]"}]}], "Input", CellChangeTimes->{{3.7829149120954833`*^9, 3.7829149131746273`*^9}, { 3.7829153820035706`*^9, 3.7829153842560368`*^9}, {3.782915598750223*^9, 3.7829156574802012`*^9}, {3.7829159989969926`*^9, 3.7829160035099306`*^9}, 3.782916124519209*^9, {3.7829162016798773`*^9, 3.782916210788796*^9}, { 3.7829167329904613`*^9, 3.7829167337155247`*^9}, {3.7829173365402517`*^9, 3.7829173577473183`*^9}, {3.782918313321909*^9, 3.782918342116111*^9}, 3.7829184137693377`*^9, {3.782918473290596*^9, 3.782918485516291*^9}, 3.782918636093169*^9, {3.7829186960974956`*^9, 3.782918880352234*^9}, 3.782918930828788*^9, {3.7829189610229063`*^9, 3.78291897756316*^9}, 3.782919039366378*^9, {3.7829190976277742`*^9, 3.782919120770258*^9}, { 3.7829191614683905`*^9, 3.7829191821442003`*^9}, {3.782919225044591*^9, 3.7829192480189743`*^9}, {3.7829192835642366`*^9, 3.782919395748404*^9}, { 3.7829194287523327`*^9, 3.782919534163176*^9}, {3.78291958474616*^9, 3.7829195924638014`*^9}, {3.7829196329526577`*^9, 3.782919654097251*^9}, { 3.7829197153865147`*^9, 3.782919718331085*^9}, {3.7829198434804616`*^9, 3.7829200033606386`*^9}, {3.7829200888092313`*^9, 3.7829202219268217`*^9}, {3.782920277892947*^9, 3.782920305291327*^9}, { 3.7829203838192873`*^9, 3.7829204193631163`*^9}, {3.782920523321105*^9, 3.782920585940446*^9}, {3.7829207002323613`*^9, 3.782920724017544*^9}, { 3.782920810992199*^9, 3.782920834427045*^9}, {3.782963275952981*^9, 3.782963286368014*^9}, {3.7829633277068844`*^9, 3.782963331192313*^9}, 3.7829634054352016`*^9, {3.782963506272173*^9, 3.782963574914991*^9}, { 3.7829636897912397`*^9, 3.7829637061016808`*^9}, {3.782963803808731*^9, 3.78296380726252*^9}, {3.782963841664184*^9, 3.7829638727660093`*^9}, 3.782963925185173*^9, {3.782963955963286*^9, 3.78296395971817*^9}, { 3.7829640262839155`*^9, 3.78296407510071*^9}, {3.782964107928069*^9, 3.7829641161057634`*^9}, {3.782964171409329*^9, 3.7829641770799046`*^9}, { 3.782964220823995*^9, 3.78296443994521*^9}, {3.7829645238322296`*^9, 3.782964525716401*^9}, {3.7829645709198823`*^9, 3.7829645728277783`*^9}, { 3.78296464364359*^9, 3.782964678843588*^9}, {3.782964823227989*^9, 3.7829648354976764`*^9}, {3.782964865831918*^9, 3.7829648704145365`*^9}, { 3.782964910462034*^9, 3.7829649416501455`*^9}, {3.782965003208226*^9, 3.782965059927186*^9}, {3.7829651293873568`*^9, 3.7829651351484537`*^9}, { 3.7829651870434628`*^9, 3.782965200154108*^9}, {3.7829652530283704`*^9, 3.782965414048216*^9}, {3.7829654608742294`*^9, 3.7829654812299385`*^9}, { 3.782965606545229*^9, 3.7829656217149057`*^9}, 3.7829657473225293`*^9, { 3.7829658381215796`*^9, 3.7829658962866507`*^9}, {3.782965935496522*^9, 3.7829659415445905`*^9}, {3.7829660048738675`*^9, 3.7829660098032894`*^9}, {3.78296604982778*^9, 3.7829660503383975`*^9}, { 3.7829665350765953`*^9, 3.7829665865845633`*^9}, {3.782966675714157*^9, 3.7829666838889427`*^9}, 3.7829667380503235`*^9, {3.7829667758746023`*^9, 3.7829667770362177`*^9}, {3.782966894115976*^9, 3.7829669722232785`*^9}, { 3.7829670779358363`*^9, 3.7829671653768363`*^9}, {3.782982468685237*^9, 3.7829826349435453`*^9}, {3.782982711225611*^9, 3.7829827362544427`*^9}, { 3.7829827829039392`*^9, 3.782982796234528*^9}, 3.78298892799776*^9, 3.782989015914081*^9, {3.782989211967884*^9, 3.7829892361174192`*^9}, { 3.7829893095225677`*^9, 3.782989313797408*^9}, {3.7829893711819296`*^9, 3.78298937743908*^9}, {3.7829895281046963`*^9, 3.782989529675028*^9}, { 3.782989622545065*^9, 3.782989647861455*^9}, {3.7829897086667786`*^9, 3.7829898821977215`*^9}, {3.78298992005166*^9, 3.782989976430643*^9}, { 3.784435117086959*^9, 3.784435134653289*^9}, 3.7844353312246947`*^9, 3.7844353627358317`*^9, {3.784435427761207*^9, 3.7844354387452393`*^9}, { 3.7844354702676325`*^9, 3.7844354810781984`*^9}, {3.8539368769636297`*^9, 3.853936878192566*^9}, {3.85393691636077*^9, 3.8539369173488183`*^9}, { 3.857566074716342*^9, 3.8575660984329357`*^9}, {3.8575661343385143`*^9, 3.8575661343738127`*^9}, {3.857566183983244*^9, 3.857566184020563*^9}, { 3.857566275770364*^9, 3.8575662843537703`*^9}, {3.8575663345100946`*^9, 3.857566347056278*^9}}, CellLabel->"In[66]:=",ExpressionUUID->"879b8df1-dbc3-4fd4-8b5a-a530e5eb677a"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`conductor$$ = True, $CellContext`tr1$$ = 0.004, $CellContext`tr2$$ = 0.015, $CellContext`workpiece$$ = True, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`workpiece$$], {True, False}}, { Hold[$CellContext`conductor$$], {True, False}}, {{ Hold[$CellContext`tr1$$], 0.004}, 0.001, 0.1}, {{ Hold[$CellContext`tr2$$], 0.015}, 0.001, 0.1}}, Typeset`size$$ = { 850.52, {677., 219.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`conductor$$ = True, $CellContext`tr1$$ = 0.004, $CellContext`tr2$$ = 0.015, $CellContext`workpiece$$ = True}, "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" :> { If[$CellContext`workpiece$$, Manipulate[ ReImPlot[{ If[$CellContext`zh2, $CellContext`h2[$CellContext`i1m, $CellContext`f, \ $CellContext`t, $CellContext`r, $CellContext`tr1$$, $CellContext`tr2$$, \ $CellContext`\[Gamma], $CellContext`\[Mu]r], Nothing], If[$CellContext`zj2, $CellContext`j2[$CellContext`i1m, $CellContext`f, \ $CellContext`t, $CellContext`r, $CellContext`tr1$$, $CellContext`tr2$$, \ $CellContext`\[Gamma], $CellContext`\[Mu]r], Nothing], If[$CellContext`z\[Sigma]2, $CellContext`\[Sigma]2[$CellContext`i1m, $CellContext`f, \ $CellContext`t, $CellContext`r, $CellContext`tr1$$, $CellContext`tr2$$, \ $CellContext`\[Gamma], $CellContext`\[Mu]r], Nothing], If[$CellContext`zz2, $CellContext`z2[$CellContext`i1m, $CellContext`f, \ $CellContext`t, $CellContext`r, $CellContext`tr1$$, $CellContext`tr2$$, \ $CellContext`\[Gamma], $CellContext`\[Mu]r], Nothing], If[$CellContext`ratio2, $CellContext`h2[$CellContext`i1m, \ $CellContext`f, $CellContext`t, $CellContext`r, $CellContext`tr1$$, \ $CellContext`tr2$$, $CellContext`\[Gamma], \ $CellContext`\[Mu]r]/$CellContext`h2[$CellContext`i1m, $CellContext`f, \ $CellContext`t, $CellContext`tr2$$, $CellContext`tr1$$, $CellContext`tr2$$, \ $CellContext`\[Gamma], $CellContext`\[Mu]r], Nothing], If[$CellContext`ratio2, $CellContext`j2[$CellContext`i1m, \ $CellContext`f, $CellContext`t, $CellContext`r, $CellContext`tr1$$, \ $CellContext`tr2$$, $CellContext`\[Gamma], \ $CellContext`\[Mu]r]/$CellContext`j2[$CellContext`i1m, $CellContext`f, \ $CellContext`t, $CellContext`tr2$$, $CellContext`tr1$$, $CellContext`tr2$$, \ $CellContext`\[Gamma], $CellContext`\[Mu]r], Nothing], If[$CellContext`ratio2, $CellContext`\[Sigma]2[$CellContext`i1m, \ $CellContext`f, $CellContext`t, $CellContext`r, $CellContext`tr1$$, \ $CellContext`tr2$$, $CellContext`\[Gamma], $CellContext`\[Mu]r]/$CellContext`\ \[Sigma]2[$CellContext`i1m, $CellContext`f, $CellContext`t, \ $CellContext`tr2$$, $CellContext`tr1$$, $CellContext`tr2$$, $CellContext`\ \[Gamma], $CellContext`\[Mu]r], Nothing], If[$CellContext`ratio2, $CellContext`z2[$CellContext`i1m, \ $CellContext`f, $CellContext`t, $CellContext`r, $CellContext`tr1$$, \ $CellContext`tr2$$, $CellContext`\[Gamma], \ $CellContext`\[Mu]r]/$CellContext`z2[$CellContext`i1m, $CellContext`f, \ $CellContext`t, $CellContext`tr2$$, $CellContext`tr1$$, $CellContext`tr2$$, \ $CellContext`\[Gamma], $CellContext`\[Mu]r], Nothing], If[$CellContext`zvp2, $CellContext`vp2[$CellContext`i1m, $CellContext`f, \ $CellContext`t, $CellContext`r, $CellContext`tr1$$, $CellContext`tr2$$, \ $CellContext`\[Gamma], $CellContext`\[Mu]r], Nothing]}, {$CellContext`r, Part[$CellContext`itl, 1], Part[$CellContext`itl, 2]}, PlotRange -> All, ImageSize -> Large, Frame -> True, FrameLabel -> {{"velicina", ""}, {"r [m]", ""}}, PlotLabel -> StringForm[ "W workpiece, a=`` [mm], X2=`` [-], P21=`` [W]", 1000 $CellContext`a[$CellContext`f, $CellContext`\[Mu]r, \ $CellContext`\[Gamma]], Round[ Sqrt[2] $CellContext`tr2$$/$CellContext`a[$CellContext`f, \ $CellContext`\[Mu]r, $CellContext`\[Gamma]]], Round[ NIntegrate[ Re[ $CellContext`\[Sigma]2[$CellContext`i1m, $CellContext`f, \ $CellContext`t, $CellContext`r, $CellContext`tr1$$, $CellContext`tr2$$, \ $CellContext`\[Gamma], $CellContext`\[Mu]r]], {$CellContext`r, 0, $CellContext`tr2$$}]]]], {{$CellContext`itl, \ {-$CellContext`tr2$$, $CellContext`tr2$$}}, -$CellContext`tr2$$, \ $CellContext`tr2$$, IntervalSlider, Appearance -> "Labeled", Method -> "Push", MinIntervalSize -> 0.001}, {{$CellContext`f, 10000}, 1000, 100000, Appearance -> "Labeled"}, {{$CellContext`i1m, 100/1.41}, 1, 5000, Appearance -> "Labeled"}, {{$CellContext`\[Gamma], 58000000}, 2000000, 58000000, Appearance -> "Labeled"}, {$CellContext`\[Mu]r, 1, 17, Appearance -> "Labeled"}, {$CellContext`t, 0, 1/$CellContext`f, Appearance -> "Labeled"}, {$CellContext`zh2, { True, False}}, {$CellContext`zj2, { False, True}}, {$CellContext`z\[Sigma]2, { False, True}}, {$CellContext`zz2, { False, True}}, {$CellContext`ratio2, {False, True}}], Nothing], If[$CellContext`conductor$$, Manipulate[ ReImPlot[{ If[$CellContext`zh1, $CellContext`h1[$CellContext`i1m, $CellContext`f, \ $CellContext`t, $CellContext`r, $CellContext`tr1$$, $CellContext`tr2$$, \ $CellContext`\[Gamma], $CellContext`\[Mu]r], Nothing], If[$CellContext`zj1, $CellContext`j1[$CellContext`i1m, $CellContext`f, \ $CellContext`t, $CellContext`r, $CellContext`tr1$$, $CellContext`tr2$$, \ $CellContext`\[Gamma], $CellContext`\[Mu]r], Nothing], If[$CellContext`z\[Sigma]1, $CellContext`\[Sigma]1[$CellContext`i1m, $CellContext`f, \ $CellContext`t, $CellContext`r, $CellContext`tr1$$, $CellContext`tr2$$, \ $CellContext`\[Gamma], $CellContext`\[Mu]r], Nothing], If[$CellContext`zz1, $CellContext`z1[$CellContext`i1m, $CellContext`f, \ $CellContext`t, $CellContext`r, $CellContext`tr1$$, $CellContext`tr2$$, \ $CellContext`\[Gamma], $CellContext`\[Mu]r], Nothing], If[$CellContext`ratio1, $CellContext`h1[$CellContext`i1m, \ $CellContext`f, $CellContext`t, $CellContext`r, $CellContext`tr1$$, \ $CellContext`tr2$$, $CellContext`\[Gamma], \ $CellContext`\[Mu]r]/$CellContext`h1[$CellContext`i1m, $CellContext`f, \ $CellContext`t, $CellContext`tr1$$, $CellContext`tr1$$, $CellContext`tr2$$, \ $CellContext`\[Gamma], $CellContext`\[Mu]r], Nothing], If[$CellContext`ratio1, $CellContext`j1[$CellContext`i1m, \ $CellContext`f, $CellContext`t, $CellContext`r, $CellContext`tr1$$, \ $CellContext`tr2$$, $CellContext`\[Gamma], \ $CellContext`\[Mu]r]/$CellContext`j1[$CellContext`i1m, $CellContext`f, \ $CellContext`t, $CellContext`tr1$$, $CellContext`tr1$$, $CellContext`tr2$$, \ $CellContext`\[Gamma], $CellContext`\[Mu]r], Nothing], If[$CellContext`ratio1, $CellContext`\[Sigma]1[$CellContext`i1m, \ $CellContext`f, $CellContext`t, $CellContext`r, $CellContext`tr1$$, \ $CellContext`tr2$$, $CellContext`\[Gamma], $CellContext`\[Mu]r]/$CellContext`\ \[Sigma]1[$CellContext`i1m, $CellContext`f, $CellContext`t, \ $CellContext`tr1$$, $CellContext`tr1$$, $CellContext`tr2$$, $CellContext`\ \[Gamma], $CellContext`\[Mu]r], Nothing]}, {$CellContext`r, Part[$CellContext`itl, 1], Part[$CellContext`itl, 2]}, PlotRange -> All, ImageSize -> Large, Frame -> True, FrameLabel -> {{"velicina", ""}, {"r [m]", ""}}, PlotLabel -> StringForm[ "C conductor, a=`` [mm], X2=`` [-], P21=`` [W]", 1000 $CellContext`a[$CellContext`f, $CellContext`\[Mu]r, \ $CellContext`\[Gamma]], Round[ Sqrt[2] $CellContext`tr1$$/$CellContext`a[$CellContext`f, \ $CellContext`\[Mu]r, $CellContext`\[Gamma]]], Round[ NIntegrate[ Re[ $CellContext`\[Sigma]1[$CellContext`i1m, $CellContext`f, \ $CellContext`t, $CellContext`r, $CellContext`tr1$$, $CellContext`tr2$$, \ $CellContext`\[Gamma], $CellContext`\[Mu]r]], {$CellContext`r, 0, $CellContext`tr1$$}]]]], {{$CellContext`itl, \ {-$CellContext`tr1$$, $CellContext`tr1$$}}, -$CellContext`tr1$$, \ $CellContext`tr1$$, IntervalSlider, Appearance -> "Labeled", Method -> "Push", MinIntervalSize -> 0.001}, {{$CellContext`f, 10000}, 1000, 100000, Appearance -> "Labeled"}, {{$CellContext`i1m, 100/1.41}, 1, 5000, Appearance -> "Labeled"}, {{$CellContext`\[Gamma], 58000000}, 2000000, 58000000, Appearance -> "Labeled"}, {$CellContext`\[Mu]r, 1, 17, Appearance -> "Labeled"}, {$CellContext`t, 0, 1/$CellContext`f, Appearance -> "Labeled"}, {$CellContext`zh1, { True, False}}, {$CellContext`zj1, { False, True}}, {$CellContext`z\[Sigma]1, { False, True}}, {$CellContext`zz1, { False, True}}, {$CellContext`ratio1, {False, True}}], Nothing]}, "Specifications" :> {{$CellContext`workpiece$$, { True, False}}, {$CellContext`conductor$$, { True, False}}, {{$CellContext`tr1$$, 0.004}, 0.001, 0.1, Appearance -> "Labeled"}, {{$CellContext`tr2$$, 0.015}, 0.001, 0.1, Appearance -> "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{1616., {521., 526.}}, 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.782964679928686*^9, 3.782964837448366*^9, {3.7829649420830154`*^9, 3.782964946468481*^9}, 3.7829650693696847`*^9, {3.7829651366621857`*^9, 3.7829651609212093`*^9}, {3.7829652011903276`*^9, 3.7829652238852615`*^9}, 3.7829652952514515`*^9, 3.78296541759475*^9, {3.782965467111015*^9, 3.7829654822282906`*^9}, 3.7829655243947525`*^9, {3.782965573102887*^9, 3.7829655825463495`*^9}, 3.7829656280222645`*^9, 3.782965658632067*^9, 3.7829657550673027`*^9, 3.782965815284963*^9, {3.7829658988240604`*^9, 3.7829659031065683`*^9}, {3.782965942518984*^9, 3.782965944806056*^9}, { 3.7829660109412355`*^9, 3.782966016224775*^9}, 3.782966051386575*^9, { 3.782966576380543*^9, 3.782966610161234*^9}, {3.7829666854687166`*^9, 3.7829667021988025`*^9}, {3.782966739195259*^9, 3.782966742399685*^9}, { 3.7829667783689814`*^9, 3.7829667828751707`*^9}, {3.782966865800249*^9, 3.7829668705601997`*^9}, {3.782967008808135*^9, 3.78296701841425*^9}, { 3.7829671144462595`*^9, 3.782967194601689*^9}, {3.782974839141967*^9, 3.782974845868024*^9}, 3.7829826361798677`*^9, {3.782982737541501*^9, 3.782982797004593*^9}, 3.7829829569716034`*^9, 3.7829887225901165`*^9, { 3.782988931207912*^9, 3.782988956437501*^9}, 3.7829890169531345`*^9, 3.782989237755189*^9, {3.7829893148511705`*^9, 3.7829893352793455`*^9}, 3.782989379754347*^9, 3.7829894135607185`*^9, 3.7829895307167325`*^9, { 3.7829896237460074`*^9, 3.782989648681001*^9}, 3.782989728755829*^9, { 3.7829898375531282`*^9, 3.78298988335331*^9}, {3.7829899656074476`*^9, 3.782989976949815*^9}, 3.7832291816680684`*^9, {3.783235767234714*^9, 3.7832357910046716`*^9}, 3.7838291017148705`*^9, 3.784435101001134*^9, 3.784435136819585*^9, 3.7844352537352314`*^9, 3.7844353659339485`*^9, 3.784435444596999*^9, 3.8539368662572565`*^9, 3.8539369190699415`*^9, 3.857566037025236*^9, {3.85756609984986*^9, 3.8575661054224358`*^9}, 3.857566191404817*^9, 3.857566288036775*^9, 3.857566350925764*^9}, CellLabel->"Out[78]=",ExpressionUUID->"eadebc6e-e542-4e68-8c0c-9fd84958876b"] }, Open ]] }, WindowSize->{Full, Full}, WindowMargins->{{Automatic, -5}, {-6, Automatic}}, PrivateNotebookOptions->{"CloudPublishPath"->"/Published/EMP VS.nb"}, Magnification:>0.9 Inherited, FrontEndVersion->"13.0 for Mac OS X ARM (64-bit) (February 4, 2022)", StyleDefinitions->"Default.nb", ExpressionUUID->"adffe2b4-530f-4919-ab46-d091fdc0b868" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 32440, 751, 1672, "Input",ExpressionUUID->"879b8df1-dbc3-4fd4-8b5a-a530e5eb677a"], Cell[33023, 775, 12735, 219, 1089, "Output",ExpressionUUID->"eadebc6e-e542-4e68-8c0c-9fd84958876b"] }, Open ]] } ] *)