(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 6.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 861205, 18996] NotebookOptionsPosition[ 843172, 18415] NotebookOutlinePosition[ 843508, 18430] CellTagsIndexPosition[ 843465, 18427] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Horizontal Transport", "Title", CellChangeTimes->{{3.441119380241498*^9, 3.441119382476987*^9}}], Cell["\<\ Michael Yee: 16 January 2009 Using \"Push Coil Design 4.nb\" to compute the initial currents, this script \ calculates the remaining horizontal transport scheme, and then tests the \ total current scheme by evaluating the potential minimum, field gradient, and \ aspect ratio at each position.\ \>", "Text", CellChangeTimes->{{3.441119393834166*^9, 3.441119514581979*^9}}], Cell[CellGroupData[{ Cell["Initialization", "Section", CellChangeTimes->{{3.424781127981875*^9, 3.424781133263125*^9}}], Cell["\<\ Initializes the objects and equations for the remainder of this notebook.\ \>", "Text", CellChangeTimes->{{3.441119583536813*^9, 3.441119601542062*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Needs", "[", "\"\\"", "]"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.42478165177875*^9, 3.424781677888125*^9}}], Cell[CellGroupData[{ Cell["Units", "Subsection", CellChangeTimes->{{3.424781136935*^9, 3.424781154356875*^9}}], Cell["Base units are SI units.", "Text", CellChangeTimes->{{3.42478117352875*^9, 3.424781184106875*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"m", " ", "=", " ", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"T", " ", "=", " ", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amp", " ", "=", " ", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"mm", " ", "=", " ", RowBox[{ SuperscriptBox["10", RowBox[{"-", "3"}]], "m"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cm", " ", "=", " ", RowBox[{ SuperscriptBox["10", RowBox[{"-", "2"}]], "m"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"gauss", " ", "=", " ", RowBox[{ SuperscriptBox["10", RowBox[{"-", "4"}]], "T"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"zero", " ", "=", " ", RowBox[{"0.1", "mm"}]}], ";"}]}], "Input", CellChangeTimes->{{3.4247811597475*^9, 3.42478124490375*^9}, { 3.4247821467475*^9, 3.42478215159125*^9}, {3.424789023981875*^9, 3.424789028981875*^9}, {3.425143676425956*^9, 3.425143682097831*^9}, { 3.425230004488*^9, 3.4252300055505*^9}, {3.425306530347375*^9, 3.425306532347375*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Magnetic Coils", "Subsection", CellChangeTimes->{{3.42478129202875*^9, 3.42478129646625*^9}}], Cell[CellGroupData[{ Cell["B field of single current loop", "Subsubsection", CellChangeTimes->{{3.42478133859125*^9, 3.42478134856*^9}}], Cell[TextData[{ StyleBox["curr\t\t", "Subsubsection", FontSize->10], StyleBox[Cell[BoxData[ FormBox[ FractionBox[ RowBox[{"I", " ", "\[Mu]"}], RowBox[{"2", "\[Pi]"}]], TraditionalForm]], "Subsubsection", FontSize->10], "Subsubsection"], StyleBox["\n\[Mu]\t\tpermeability of free space\nI\t\tcurrent of a single \ current loop\nR\t\tradius of a single current loop\nA\t\tz position of the \ current loop", "Subsubsection", FontSize->10] }], "Text", CellChangeTimes->{{3.424781359575625*^9, 3.424781373200625*^9}, { 3.42478147215375*^9, 3.424781475700625*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"Bx", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "R_", ",", "A_", ",", "curr_"}], "]"}], ":=", RowBox[{ FractionBox["curr", SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"]}]]], "*", FractionBox[ RowBox[{"z", "-", "A"}], SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"R", "+", SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"]}]]}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"z", "-", "A"}], ")"}], "2"]}]]], "*", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"EllipticK", "[", FractionBox[ RowBox[{"4", "*", "R", "*", SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"]}]]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"R", "+", SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"]}]]}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"z", "-", "A"}], ")"}], "2"]}]], "]"}]}], "+", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["R", "2"], "+", RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"]}], ")"}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"z", "-", "A"}], ")"}], "2"]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"R", "-", SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"]}]]}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"z", "-", "A"}], ")"}], "2"]}]], "*", RowBox[{"EllipticE", "[", FractionBox[ RowBox[{"4", "*", "R", "*", SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"]}]]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"R", "+", SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"]}]]}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"z", "-", "A"}], ")"}], "2"]}]], "]"}]}]}], ")"}], "*", FractionBox["x", SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"]}]]]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"By", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "R_", ",", "A_", ",", "curr_"}], "]"}], ":=", RowBox[{ FractionBox["curr", SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"]}]]], "*", FractionBox[ RowBox[{"z", "-", "A"}], SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"R", "+", SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"]}]]}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"z", "-", "A"}], ")"}], "2"]}]]], "*", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"EllipticK", "[", FractionBox[ RowBox[{"4", "*", "R", "*", SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"]}]]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"R", "+", SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"]}]]}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"z", "-", "A"}], ")"}], "2"]}]], "]"}]}], "+", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["R", "2"], "+", RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"]}], ")"}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"z", "-", "A"}], ")"}], "2"]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"R", "-", SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"]}]]}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"z", "-", "A"}], ")"}], "2"]}]], "*", RowBox[{"EllipticE", "[", FractionBox[ RowBox[{"4", "*", "R", "*", SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"]}]]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"R", "+", SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"]}]]}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"z", "-", "A"}], ")"}], "2"]}]], "]"}]}]}], ")"}], "*", FractionBox["y", SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"]}]]]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Bz", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "R_", ",", "A_", ",", "curr_"}], "]"}], ":=", RowBox[{"curr", "*", FractionBox["1", SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"R", "+", SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"]}]]}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"z", "-", "A"}], ")"}], "2"]}]]], "*", RowBox[{"(", RowBox[{ RowBox[{"EllipticK", "[", FractionBox[ RowBox[{"4", "*", "R", "*", SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"]}]]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"R", "+", SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"]}]]}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"z", "-", "A"}], ")"}], "2"]}]], "]"}], "+", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["R", "2"], "-", RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"]}], ")"}], "-", SuperscriptBox[ RowBox[{"(", RowBox[{"z", "-", "A"}], ")"}], "2"]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"R", "-", SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"]}]]}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"z", "-", "A"}], ")"}], "2"]}]], "*", RowBox[{"EllipticE", "[", FractionBox[ RowBox[{"4", "*", "R", "*", SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"]}]]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"R", "+", SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"]}]]}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"z", "-", "A"}], ")"}], "2"]}]], "]"}]}]}], ")"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"VecB", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "R_", ",", "A_", ",", "curr_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"Bx", "[", RowBox[{"x", ",", "y", ",", "z", ",", "R", ",", "A", ",", "curr"}], "]"}], ",", RowBox[{"By", "[", RowBox[{"x", ",", "y", ",", "z", ",", "R", ",", "A", ",", "curr"}], "]"}], ",", RowBox[{"Bz", "[", RowBox[{"x", ",", "y", ",", "z", ",", "R", ",", "A", ",", "curr"}], "]"}]}], "}"}]}]}], "Input", CellChangeTimes->{{3.42478140996625*^9, 3.424781438325625*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Quadrupole Trap from two opposite loops", "Subsubsection", CellChangeTimes->{{3.424781402638125*^9, 3.4247814077475*^9}, { 3.424781499950625*^9, 3.42478151015375*^9}}], Cell["\<\ Coils are placed symmetrically apart with currents running in opposite \ directions.\ \>", "Text", CellChangeTimes->{{3.42478151727875*^9, 3.424781531513125*^9}}], Cell["\<\ d\tdistance between two coils placed at +A and -A, so that 2A=d\ \>", "Text", CellChangeTimes->{3.424781535263125*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"VecQuad", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "R_", ",", "d_", ",", "I_"}], "]"}], ":=", RowBox[{ RowBox[{"VecB", "[", RowBox[{"x", ",", "y", ",", "z", ",", "R", ",", FractionBox["d", "2"], ",", RowBox[{"I", "*", "2", "*", SuperscriptBox["10", RowBox[{"-", "7"}]]}]}], "]"}], "+", RowBox[{"VecB", "[", RowBox[{"x", ",", "y", ",", "z", ",", "R", ",", RowBox[{"-", FractionBox["d", "2"]}], ",", RowBox[{ RowBox[{"-", "I"}], "*", "2", "*", SuperscriptBox["10", RowBox[{"-", "7"}]]}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"VecQuad", "[", RowBox[{"x", ",", "y", ",", "z", ",", "R", ",", "d", ",", "I"}], "]"}], "[", RowBox[{"[", "3", "]"}], "]"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", "0"}], ",", RowBox[{"y", "\[Rule]", "0"}], ",", RowBox[{"z", "\[Rule]", "0"}]}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.424781540435*^9, 3.42478157915375*^9}, { 3.424781930669375*^9, 3.4247819931225*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VectorFieldPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"VecQuad", "[", RowBox[{"x", ",", "y", ",", "z", ",", RowBox[{"50", "*", "cm"}], ",", RowBox[{"50", "*", "cm"}], ",", RowBox[{"1", "*", "amp"}]}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "/.", RowBox[{"{", RowBox[{"z", "\[Rule]", " ", "zero"}], "}"}]}], ",", " ", RowBox[{ RowBox[{ RowBox[{"VecQuad", "[", RowBox[{"x", ",", "y", ",", "z", ",", RowBox[{"50", "*", "cm"}], ",", RowBox[{"50", "*", "cm"}], ",", RowBox[{"1", "*", "amp"}]}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "/.", RowBox[{"{", RowBox[{"z", "\[Rule]", "zero"}], "}"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"-", "50"}], "*", "cm"}], ",", RowBox[{"50", "*", "cm"}]}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{ RowBox[{"-", "50"}], "*", "cm"}], ",", RowBox[{"50", "*", "cm"}]}], "}"}], ",", " ", RowBox[{"PlotLabel", " ", "\[Rule]", " ", "\"\\""}]}], "]"}]], "Input", CellChangeTimes->{{3.42478170415375*^9, 3.424781856419375*^9}, { 3.424781996200625*^9, 3.42478205559125*^9}, {3.4247821221225*^9, 3.424782205731875*^9}, {3.424782259450625*^9, 3.424782281169375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Power", "::", "\<\"infy\"\>"}], RowBox[{ ":", " "}], "\<\"Infinite expression \\!\\(1\\/0\\) encountered. \ \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \ ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/infy\\\", \ ButtonNote -> \\\"Power::infy\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{ 3.424782056794375*^9, 3.42478213834125*^9, 3.424782208263125*^9, 3.424782287356875*^9, 3.42478904090375*^9, 3.4247941992475*^9, 3.424794361388125*^9, 3.42479439881*^9, 3.42503789731*^9, 3.42531009001925*^9, 3.42531290939425*^9, 3.425318693941125*^9, 3.425379821546875*^9, 3.425396757546875*^9, 3.4256506730625*^9, 3.425658200359375*^9, 3.42572399375*^9, {3.4275481388879633`*^9, 3.427548141087324*^9}, 3.4275482714421797`*^9, 3.427557843454774*^9, 3.427652766002359*^9, 3.427711361275473*^9, 3.4317975184819183`*^9, 3.431959499030724*^9, 3.432522045345408*^9, 3.432563462654313*^9, 3.4338642208010893`*^9, 3.433864337463372*^9, 3.434202771175598*^9, 3.434204363900329*^9, 3.434204579566489*^9, 3.434204730075555*^9, 3.434204985187833*^9, 3.434214520875239*^9, 3.4343851606266747`*^9, 3.436385875262321*^9, 3.440421197676456*^9, 3.4404339521940737`*^9, 3.440510245731439*^9, 3.440785635248899*^9, 3.4411146063831253`*^9, 3.441114903481941*^9, 3.441122209186358*^9, 3.4411288570622997`*^9, 3.44113183318046*^9, 3.441152243331521*^9, 3.441371869179084*^9, 3.441372642481102*^9, {3.4416770991601152`*^9, 3.441677121221202*^9}, 3.441680414030467*^9, 3.441713840182374*^9, 3.441713893638048*^9, 3.44171650904946*^9, 3.441817238278709*^9, 3.4422555894857483`*^9, 3.442255878341855*^9, 3.442256087696246*^9, 3.442257372759324*^9, 3.442261477310848*^9, 3.442325254741076*^9, 3.4431811159585953`*^9, 3.4431812172736807`*^9, 3.4431827534956207`*^9, 3.443273234689456*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Power", "::", "\<\"infy\"\>"}], RowBox[{ ":", " "}], "\<\"Infinite expression \\!\\(1\\/0\\) encountered. \ \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \ ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/infy\\\", \ ButtonNote -> \\\"Power::infy\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{ 3.424782056794375*^9, 3.42478213834125*^9, 3.424782208263125*^9, 3.424782287356875*^9, 3.42478904090375*^9, 3.4247941992475*^9, 3.424794361388125*^9, 3.42479439881*^9, 3.42503789731*^9, 3.42531009001925*^9, 3.42531290939425*^9, 3.425318693941125*^9, 3.425379821546875*^9, 3.425396757546875*^9, 3.4256506730625*^9, 3.425658200359375*^9, 3.42572399375*^9, {3.4275481388879633`*^9, 3.427548141087324*^9}, 3.4275482714421797`*^9, 3.427557843454774*^9, 3.427652766002359*^9, 3.427711361275473*^9, 3.4317975184819183`*^9, 3.431959499030724*^9, 3.432522045345408*^9, 3.432563462654313*^9, 3.4338642208010893`*^9, 3.433864337463372*^9, 3.434202771175598*^9, 3.434204363900329*^9, 3.434204579566489*^9, 3.434204730075555*^9, 3.434204985187833*^9, 3.434214520875239*^9, 3.4343851606266747`*^9, 3.436385875262321*^9, 3.440421197676456*^9, 3.4404339521940737`*^9, 3.440510245731439*^9, 3.440785635248899*^9, 3.4411146063831253`*^9, 3.441114903481941*^9, 3.441122209186358*^9, 3.4411288570622997`*^9, 3.44113183318046*^9, 3.441152243331521*^9, 3.441371869179084*^9, 3.441372642481102*^9, {3.4416770991601152`*^9, 3.441677121221202*^9}, 3.441680414030467*^9, 3.441713840182374*^9, 3.441713893638048*^9, 3.44171650904946*^9, 3.441817238278709*^9, 3.4422555894857483`*^9, 3.442255878341855*^9, 3.442256087696246*^9, 3.442257372759324*^9, 3.442261477310848*^9, 3.442325254741076*^9, 3.4431811159585953`*^9, 3.4431812172736807`*^9, 3.4431827534956207`*^9, 3.443273234691008*^9}], Cell[BoxData[ RowBox[{ RowBox[{"\[Infinity]", "::", "\<\"indet\"\>"}], RowBox[{ ":", " "}], "\<\"Indeterminate expression \\!\\(0\\\\ ComplexInfinity\\) \ encountered. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \ ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/General/indet\\\", ButtonNote -> \ \\\"Infinity::indet\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{ 3.424782056794375*^9, 3.42478213834125*^9, 3.424782208263125*^9, 3.424782287356875*^9, 3.42478904090375*^9, 3.4247941992475*^9, 3.424794361388125*^9, 3.42479439881*^9, 3.42503789731*^9, 3.42531009001925*^9, 3.42531290939425*^9, 3.425318693941125*^9, 3.425379821546875*^9, 3.425396757546875*^9, 3.4256506730625*^9, 3.425658200359375*^9, 3.42572399375*^9, {3.4275481388879633`*^9, 3.427548141087324*^9}, 3.4275482714421797`*^9, 3.427557843454774*^9, 3.427652766002359*^9, 3.427711361275473*^9, 3.4317975184819183`*^9, 3.431959499030724*^9, 3.432522045345408*^9, 3.432563462654313*^9, 3.4338642208010893`*^9, 3.433864337463372*^9, 3.434202771175598*^9, 3.434204363900329*^9, 3.434204579566489*^9, 3.434204730075555*^9, 3.434204985187833*^9, 3.434214520875239*^9, 3.4343851606266747`*^9, 3.436385875262321*^9, 3.440421197676456*^9, 3.4404339521940737`*^9, 3.440510245731439*^9, 3.440785635248899*^9, 3.4411146063831253`*^9, 3.441114903481941*^9, 3.441122209186358*^9, 3.4411288570622997`*^9, 3.44113183318046*^9, 3.441152243331521*^9, 3.441371869179084*^9, 3.441372642481102*^9, {3.4416770991601152`*^9, 3.441677121221202*^9}, 3.441680414030467*^9, 3.441713840182374*^9, 3.441713893638048*^9, 3.44171650904946*^9, 3.441817238278709*^9, 3.4422555894857483`*^9, 3.442255878341855*^9, 3.442256087696246*^9, 3.442257372759324*^9, 3.442261477310848*^9, 3.442325254741076*^9, 3.4431811159585953`*^9, 3.4431812172736807`*^9, 3.4431827534956207`*^9, 3.443273234774967*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Power", "::", "\<\"infy\"\>"}], RowBox[{ ":", " "}], "\<\"Infinite expression \\!\\(1\\/0\\) encountered. \ \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \ ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/infy\\\", \ ButtonNote -> \\\"Power::infy\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{ 3.424782056794375*^9, 3.42478213834125*^9, 3.424782208263125*^9, 3.424782287356875*^9, 3.42478904090375*^9, 3.4247941992475*^9, 3.424794361388125*^9, 3.42479439881*^9, 3.42503789731*^9, 3.42531009001925*^9, 3.42531290939425*^9, 3.425318693941125*^9, 3.425379821546875*^9, 3.425396757546875*^9, 3.4256506730625*^9, 3.425658200359375*^9, 3.42572399375*^9, {3.4275481388879633`*^9, 3.427548141087324*^9}, 3.4275482714421797`*^9, 3.427557843454774*^9, 3.427652766002359*^9, 3.427711361275473*^9, 3.4317975184819183`*^9, 3.431959499030724*^9, 3.432522045345408*^9, 3.432563462654313*^9, 3.4338642208010893`*^9, 3.433864337463372*^9, 3.434202771175598*^9, 3.434204363900329*^9, 3.434204579566489*^9, 3.434204730075555*^9, 3.434204985187833*^9, 3.434214520875239*^9, 3.4343851606266747`*^9, 3.436385875262321*^9, 3.440421197676456*^9, 3.4404339521940737`*^9, 3.440510245731439*^9, 3.440785635248899*^9, 3.4411146063831253`*^9, 3.441114903481941*^9, 3.441122209186358*^9, 3.4411288570622997`*^9, 3.44113183318046*^9, 3.441152243331521*^9, 3.441371869179084*^9, 3.441372642481102*^9, {3.4416770991601152`*^9, 3.441677121221202*^9}, 3.441680414030467*^9, 3.441713840182374*^9, 3.441713893638048*^9, 3.44171650904946*^9, 3.441817238278709*^9, 3.4422555894857483`*^9, 3.442255878341855*^9, 3.442256087696246*^9, 3.442257372759324*^9, 3.442261477310848*^9, 3.442325254741076*^9, 3.4431811159585953`*^9, 3.4431812172736807`*^9, 3.4431827534956207`*^9, 3.4432732347762737`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"General", "::", "\<\"stop\"\>"}], RowBox[{ ":", " "}], "\<\"Further output of \\!\\(Power :: \\\"infy\\\"\\) will be \ suppressed during this calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\ \", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \ \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{ 3.424782056794375*^9, 3.42478213834125*^9, 3.424782208263125*^9, 3.424782287356875*^9, 3.42478904090375*^9, 3.4247941992475*^9, 3.424794361388125*^9, 3.42479439881*^9, 3.42503789731*^9, 3.42531009001925*^9, 3.42531290939425*^9, 3.425318693941125*^9, 3.425379821546875*^9, 3.425396757546875*^9, 3.4256506730625*^9, 3.425658200359375*^9, 3.42572399375*^9, {3.4275481388879633`*^9, 3.427548141087324*^9}, 3.4275482714421797`*^9, 3.427557843454774*^9, 3.427652766002359*^9, 3.427711361275473*^9, 3.4317975184819183`*^9, 3.431959499030724*^9, 3.432522045345408*^9, 3.432563462654313*^9, 3.4338642208010893`*^9, 3.433864337463372*^9, 3.434202771175598*^9, 3.434204363900329*^9, 3.434204579566489*^9, 3.434204730075555*^9, 3.434204985187833*^9, 3.434214520875239*^9, 3.4343851606266747`*^9, 3.436385875262321*^9, 3.440421197676456*^9, 3.4404339521940737`*^9, 3.440510245731439*^9, 3.440785635248899*^9, 3.4411146063831253`*^9, 3.441114903481941*^9, 3.441122209186358*^9, 3.4411288570622997`*^9, 3.44113183318046*^9, 3.441152243331521*^9, 3.441371869179084*^9, 3.441372642481102*^9, {3.4416770991601152`*^9, 3.441677121221202*^9}, 3.441680414030467*^9, 3.441713840182374*^9, 3.441713893638048*^9, 3.44171650904946*^9, 3.441817238278709*^9, 3.4422555894857483`*^9, 3.442255878341855*^9, 3.442256087696246*^9, 3.442257372759324*^9, 3.442261477310848*^9, 3.442325254741076*^9, 3.4431811159585953`*^9, 3.4431812172736807`*^9, 3.4431827534956207`*^9, 3.4432732348288593`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"\[Infinity]", "::", "\<\"indet\"\>"}], RowBox[{ ":", " "}], "\<\"Indeterminate expression \\!\\(0\\\\ ComplexInfinity\\) \ encountered. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \ ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/General/indet\\\", ButtonNote -> \ \\\"Infinity::indet\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{ 3.424782056794375*^9, 3.42478213834125*^9, 3.424782208263125*^9, 3.424782287356875*^9, 3.42478904090375*^9, 3.4247941992475*^9, 3.424794361388125*^9, 3.42479439881*^9, 3.42503789731*^9, 3.42531009001925*^9, 3.42531290939425*^9, 3.425318693941125*^9, 3.425379821546875*^9, 3.425396757546875*^9, 3.4256506730625*^9, 3.425658200359375*^9, 3.42572399375*^9, {3.4275481388879633`*^9, 3.427548141087324*^9}, 3.4275482714421797`*^9, 3.427557843454774*^9, 3.427652766002359*^9, 3.427711361275473*^9, 3.4317975184819183`*^9, 3.431959499030724*^9, 3.432522045345408*^9, 3.432563462654313*^9, 3.4338642208010893`*^9, 3.433864337463372*^9, 3.434202771175598*^9, 3.434204363900329*^9, 3.434204579566489*^9, 3.434204730075555*^9, 3.434204985187833*^9, 3.434214520875239*^9, 3.4343851606266747`*^9, 3.436385875262321*^9, 3.440421197676456*^9, 3.4404339521940737`*^9, 3.440510245731439*^9, 3.440785635248899*^9, 3.4411146063831253`*^9, 3.441114903481941*^9, 3.441122209186358*^9, 3.4411288570622997`*^9, 3.44113183318046*^9, 3.441152243331521*^9, 3.441371869179084*^9, 3.441372642481102*^9, {3.4416770991601152`*^9, 3.441677121221202*^9}, 3.441680414030467*^9, 3.441713840182374*^9, 3.441713893638048*^9, 3.44171650904946*^9, 3.441817238278709*^9, 3.4422555894857483`*^9, 3.442255878341855*^9, 3.442256087696246*^9, 3.442257372759324*^9, 3.442261477310848*^9, 3.442325254741076*^9, 3.4431811159585953`*^9, 3.4431812172736807`*^9, 3.4431827534956207`*^9, 3.4432732348301086`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"\[Infinity]", "::", "\<\"indet\"\>"}], RowBox[{ ":", " "}], "\<\"Indeterminate expression \\!\\(0\\\\ ComplexInfinity\\) \ encountered. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \ ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/General/indet\\\", ButtonNote -> \ \\\"Infinity::indet\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{ 3.424782056794375*^9, 3.42478213834125*^9, 3.424782208263125*^9, 3.424782287356875*^9, 3.42478904090375*^9, 3.4247941992475*^9, 3.424794361388125*^9, 3.42479439881*^9, 3.42503789731*^9, 3.42531009001925*^9, 3.42531290939425*^9, 3.425318693941125*^9, 3.425379821546875*^9, 3.425396757546875*^9, 3.4256506730625*^9, 3.425658200359375*^9, 3.42572399375*^9, {3.4275481388879633`*^9, 3.427548141087324*^9}, 3.4275482714421797`*^9, 3.427557843454774*^9, 3.427652766002359*^9, 3.427711361275473*^9, 3.4317975184819183`*^9, 3.431959499030724*^9, 3.432522045345408*^9, 3.432563462654313*^9, 3.4338642208010893`*^9, 3.433864337463372*^9, 3.434202771175598*^9, 3.434204363900329*^9, 3.434204579566489*^9, 3.434204730075555*^9, 3.434204985187833*^9, 3.434214520875239*^9, 3.4343851606266747`*^9, 3.436385875262321*^9, 3.440421197676456*^9, 3.4404339521940737`*^9, 3.440510245731439*^9, 3.440785635248899*^9, 3.4411146063831253`*^9, 3.441114903481941*^9, 3.441122209186358*^9, 3.4411288570622997`*^9, 3.44113183318046*^9, 3.441152243331521*^9, 3.441371869179084*^9, 3.441372642481102*^9, {3.4416770991601152`*^9, 3.441677121221202*^9}, 3.441680414030467*^9, 3.441713840182374*^9, 3.441713893638048*^9, 3.44171650904946*^9, 3.441817238278709*^9, 3.4422555894857483`*^9, 3.442255878341855*^9, 3.442256087696246*^9, 3.442257372759324*^9, 3.442261477310848*^9, 3.442325254741076*^9, 3.4431811159585953`*^9, 3.4431812172736807`*^9, 3.4431827534956207`*^9, 3.443273234831213*^9}], Cell[BoxData[ RowBox[{ RowBox[{"General", "::", "\<\"stop\"\>"}], RowBox[{ ":", " "}], "\<\"Further output of \\!\\(\[Infinity] :: \\\"indet\\\"\\) \ will be suppressed during this calculation. \\!\\(\\*ButtonBox[\\\"\ \[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \ \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{ 3.424782056794375*^9, 3.42478213834125*^9, 3.424782208263125*^9, 3.424782287356875*^9, 3.42478904090375*^9, 3.4247941992475*^9, 3.424794361388125*^9, 3.42479439881*^9, 3.42503789731*^9, 3.42531009001925*^9, 3.42531290939425*^9, 3.425318693941125*^9, 3.425379821546875*^9, 3.425396757546875*^9, 3.4256506730625*^9, 3.425658200359375*^9, 3.42572399375*^9, {3.4275481388879633`*^9, 3.427548141087324*^9}, 3.4275482714421797`*^9, 3.427557843454774*^9, 3.427652766002359*^9, 3.427711361275473*^9, 3.4317975184819183`*^9, 3.431959499030724*^9, 3.432522045345408*^9, 3.432563462654313*^9, 3.4338642208010893`*^9, 3.433864337463372*^9, 3.434202771175598*^9, 3.434204363900329*^9, 3.434204579566489*^9, 3.434204730075555*^9, 3.434204985187833*^9, 3.434214520875239*^9, 3.4343851606266747`*^9, 3.436385875262321*^9, 3.440421197676456*^9, 3.4404339521940737`*^9, 3.440510245731439*^9, 3.440785635248899*^9, 3.4411146063831253`*^9, 3.441114903481941*^9, 3.441122209186358*^9, 3.4411288570622997`*^9, 3.44113183318046*^9, 3.441152243331521*^9, 3.441371869179084*^9, 3.441372642481102*^9, {3.4416770991601152`*^9, 3.441677121221202*^9}, 3.441680414030467*^9, 3.441713840182374*^9, 3.441713893638048*^9, 3.44171650904946*^9, 3.441817238278709*^9, 3.4422555894857483`*^9, 3.442255878341855*^9, 3.442256087696246*^9, 3.442257372759324*^9, 3.442261477310848*^9, 3.442325254741076*^9, 3.4431811159585953`*^9, 3.4431812172736807`*^9, 3.4431827534956207`*^9, 3.4432732348323174`*^9}], Cell[BoxData[ GraphicsBox[ {Thickness[Small], Arrowheads[0.02], ArrowBox[{{-0.5, -0.5}, {-0.4756922826891026, -0.4756922826891026}}], ArrowBox[{{-0.5, -0.42857142857142855`}, {-0.46684794414856984`, \ -0.4001553806987741}}], ArrowBox[{{-0.5, -0.35714285714285715`}, {-0.4568343700387195, \ -0.3263102643133711}}], ArrowBox[{{-0.5, -0.2857142857142857}, {-0.4470123870468233, \ -0.2554356497410419}}], ArrowBox[{{-0.5, -0.21428571428571427`}, {-0.43885520074406315`, \ -0.1880808003188842}}], ArrowBox[{{-0.5, -0.14285714285714285`}, {-0.43319109998510485`, \ -0.12376888571002995`}}], ArrowBox[{{-0.5, -0.07142857142857142}, {-0.4300342000997472, \ -0.06143345715710674}}], ArrowBox[{{-0.5, 0.}, {-0.4290420870698832, 0.}}], ArrowBox[{{-0.5, 0.07142857142857142}, {-0.4300342000997472, 0.06143345715710674}}], ArrowBox[{{-0.5, 0.14285714285714285`}, {-0.43319109998510485`, 0.12376888571002995`}}], ArrowBox[{{-0.5, 0.21428571428571427`}, {-0.43885520074406315`, 0.1880808003188842}}], ArrowBox[{{-0.5, 0.2857142857142857}, {-0.4470123870468233, 0.2554356497410419}}], ArrowBox[{{-0.5, 0.35714285714285715`}, {-0.4568343700387195, 0.3263102643133711}}], ArrowBox[{{-0.5, 0.42857142857142855`}, {-0.46684794414856984`, 0.4001553806987741}}], ArrowBox[{{-0.5, 0.5}, {-0.4756922826891026, 0.4756922826891026}}], ArrowBox[{{-0.42857142857142855`, -0.5}, {-0.4001553806987741, \ -0.46684794414856984`}}], ArrowBox[{{-0.42857142857142855`, -0.42857142857142855`}, \ {-0.3897955879378246, -0.3897955879378246}}], ArrowBox[{{-0.42857142857142855`, -0.35714285714285715`}, \ {-0.37916579978169185`, -0.3159714998180766}}], ArrowBox[{{-0.42857142857142855`, -0.2857142857142857}, \ {-0.37038180121961717`, -0.2469212008130781}}], ArrowBox[{{-0.42857142857142855`, -0.21428571428571427`}, \ {-0.36468377207143454`, -0.18234188603571727`}}], ArrowBox[{{-0.42857142857142855`, -0.14285714285714285`}, \ {-0.36180321718504027`, -0.12060107239501343`}}], ArrowBox[{{-0.42857142857142855`, -0.07142857142857142}, \ {-0.3606868391408047, -0.06011447319013411}}], ArrowBox[{{-0.42857142857142855`, 0.}, {-0.36042553770515956`, 0.}}], ArrowBox[{{-0.42857142857142855`, 0.07142857142857142}, {-0.3606868391408047, 0.06011447319013411}}], ArrowBox[{{-0.42857142857142855`, 0.14285714285714285`}, {-0.36180321718504027`, 0.12060107239501343`}}], ArrowBox[{{-0.42857142857142855`, 0.21428571428571427`}, {-0.36468377207143454`, 0.18234188603571727`}}], ArrowBox[{{-0.42857142857142855`, 0.2857142857142857}, {-0.37038180121961717`, 0.2469212008130781}}], ArrowBox[{{-0.42857142857142855`, 0.35714285714285715`}, {-0.37916579978169185`, 0.3159714998180766}}], ArrowBox[{{-0.42857142857142855`, 0.42857142857142855`}, {-0.3897955879378246, 0.3897955879378246}}], ArrowBox[{{-0.42857142857142855`, 0.5}, {-0.4001553806987741, 0.46684794414856984`}}], ArrowBox[{{-0.35714285714285715`, -0.5}, {-0.3263102643133711, \ -0.4568343700387195}}], ArrowBox[{{-0.35714285714285715`, -0.42857142857142855`}, \ {-0.3159714998180766, -0.37916579978169185`}}], ArrowBox[{{-0.35714285714285715`, -0.35714285714285715`}, \ {-0.3071672857855337, -0.3071672857855337}}], ArrowBox[{{-0.35714285714285715`, -0.2857142857142857}, \ {-0.30190172923386677`, -0.2415213833870934}}], ArrowBox[{{-0.35714285714285715`, -0.21428571428571427`}, \ {-0.30006139177961644`, -0.18003683506776985`}}], ArrowBox[{{-0.35714285714285715`, -0.14285714285714285`}, \ {-0.3001571277614118, -0.12006285110456472`}}], ArrowBox[{{-0.35714285714285715`, -0.07142857142857142}, \ {-0.30075699311659865`, -0.06015139862331973}}], ArrowBox[{{-0.35714285714285715`, 0.}, {-0.3010401354090765, 0.}}], ArrowBox[{{-0.35714285714285715`, 0.07142857142857142}, {-0.30075699311659865`, 0.06015139862331973}}], ArrowBox[{{-0.35714285714285715`, 0.14285714285714285`}, {-0.3001571277614118, 0.12006285110456472`}}], ArrowBox[{{-0.35714285714285715`, 0.21428571428571427`}, {-0.30006139177961644`, 0.18003683506776985`}}], ArrowBox[{{-0.35714285714285715`, 0.2857142857142857}, {-0.30190172923386677`, 0.2415213833870934}}], ArrowBox[{{-0.35714285714285715`, 0.35714285714285715`}, {-0.3071672857855337, 0.3071672857855337}}], ArrowBox[{{-0.35714285714285715`, 0.42857142857142855`}, {-0.3159714998180766, 0.37916579978169185`}}], ArrowBox[{{-0.35714285714285715`, 0.5}, {-0.3263102643133711, 0.4568343700387195}}], ArrowBox[{{-0.2857142857142857, -0.5}, {-0.2554356497410419, \ -0.4470123870468233}}], ArrowBox[{{-0.2857142857142857, -0.42857142857142855`}, \ {-0.2469212008130781, -0.37038180121961717`}}], ArrowBox[{{-0.2857142857142857, -0.35714285714285715`}, \ {-0.2415213833870934, -0.30190172923386677`}}], ArrowBox[{{-0.2857142857142857, -0.2857142857142857}, \ {-0.23996710621661504`, -0.23996710621661504`}}], ArrowBox[{{-0.2857142857142857, -0.21428571428571427`}, \ {-0.24083210832726118`, -0.18062408124544588`}}], ArrowBox[{{-0.2857142857142857, -0.14285714285714285`}, \ {-0.24240128885337386`, -0.12120064442668693`}}], ArrowBox[{{-0.2857142857142857, -0.07142857142857142}, \ {-0.24363434930065359`, -0.060908587325163396`}}], ArrowBox[{{-0.2857142857142857, 0.}, {-0.2440838468742476, 0.}}], ArrowBox[{{-0.2857142857142857, 0.07142857142857142}, {-0.24363434930065359`, 0.060908587325163396`}}], ArrowBox[{{-0.2857142857142857, 0.14285714285714285`}, {-0.24240128885337386`, 0.12120064442668693`}}], ArrowBox[{{-0.2857142857142857, 0.21428571428571427`}, {-0.24083210832726118`, 0.18062408124544588`}}], ArrowBox[{{-0.2857142857142857, 0.2857142857142857}, {-0.23996710621661504`, 0.23996710621661504`}}], ArrowBox[{{-0.2857142857142857, 0.35714285714285715`}, {-0.2415213833870934, 0.30190172923386677`}}], ArrowBox[{{-0.2857142857142857, 0.42857142857142855`}, {-0.2469212008130781, 0.37038180121961717`}}], ArrowBox[{{-0.2857142857142857, 0.5}, {-0.2554356497410419, 0.4470123870468233}}], ArrowBox[{{-0.21428571428571427`, -0.5}, {-0.1880808003188842, \ -0.43885520074406315`}}], ArrowBox[{{-0.21428571428571427`, -0.42857142857142855`}, \ {-0.18234188603571727`, -0.36468377207143454`}}], ArrowBox[{{-0.21428571428571427`, -0.35714285714285715`}, \ {-0.18003683506776985`, -0.30006139177961644`}}], ArrowBox[{{-0.21428571428571427`, -0.2857142857142857}, \ {-0.18062408124544588`, -0.24083210832726118`}}], ArrowBox[{{-0.21428571428571427`, -0.21428571428571427`}, \ {-0.18240221585837507`, -0.18240221585837507`}}], ArrowBox[{{-0.21428571428571427`, -0.14285714285714285`}, \ {-0.18414318301098861`, -0.12276212200732574`}}], ArrowBox[{{-0.21428571428571427`, -0.07142857142857142}, \ {-0.18530173548703313`, -0.06176724516234438}}], ArrowBox[{{-0.21428571428571427`, 0.}, {-0.18570007882022738`, 0.}}], ArrowBox[{{-0.21428571428571427`, 0.07142857142857142}, {-0.18530173548703313`, 0.06176724516234438}}], ArrowBox[{{-0.21428571428571427`, 0.14285714285714285`}, {-0.18414318301098861`, 0.12276212200732574`}}], ArrowBox[{{-0.21428571428571427`, 0.21428571428571427`}, {-0.18240221585837507`, 0.18240221585837507`}}], ArrowBox[{{-0.21428571428571427`, 0.2857142857142857}, {-0.18062408124544588`, 0.24083210832726118`}}], ArrowBox[{{-0.21428571428571427`, 0.35714285714285715`}, {-0.18003683506776985`, 0.30006139177961644`}}], ArrowBox[{{-0.21428571428571427`, 0.42857142857142855`}, {-0.18234188603571727`, 0.36468377207143454`}}], ArrowBox[{{-0.21428571428571427`, 0.5}, {-0.1880808003188842, 0.43885520074406315`}}], ArrowBox[{{-0.14285714285714285`, -0.5}, {-0.12376888571002995`, \ -0.43319109998510485`}}], ArrowBox[{{-0.14285714285714285`, -0.42857142857142855`}, \ {-0.12060107239501343`, -0.36180321718504027`}}], ArrowBox[{{-0.14285714285714285`, -0.35714285714285715`}, \ {-0.12006285110456472`, -0.3001571277614118}}], ArrowBox[{{-0.14285714285714285`, -0.2857142857142857}, \ {-0.12120064442668693`, -0.24240128885337386`}}], ArrowBox[{{-0.14285714285714285`, -0.21428571428571427`}, \ {-0.12276212200732574`, -0.18414318301098861`}}], ArrowBox[{{-0.14285714285714285`, -0.14285714285714285`}, \ {-0.1240685234598431, -0.1240685234598431}}], ArrowBox[{{-0.14285714285714285`, -0.07142857142857142}, \ {-0.12488520359264957`, -0.062442601796324784`}}], ArrowBox[{{-0.14285714285714285`, 0.}, {-0.1251593021275051, 0.}}], ArrowBox[{{-0.14285714285714285`, 0.07142857142857142}, {-0.12488520359264957`, 0.062442601796324784`}}], ArrowBox[{{-0.14285714285714285`, 0.14285714285714285`}, {-0.1240685234598431, 0.1240685234598431}}], ArrowBox[{{-0.14285714285714285`, 0.21428571428571427`}, {-0.12276212200732574`, 0.18414318301098861`}}], ArrowBox[{{-0.14285714285714285`, 0.2857142857142857}, {-0.12120064442668693`, 0.24240128885337386`}}], ArrowBox[{{-0.14285714285714285`, 0.35714285714285715`}, {-0.12006285110456472`, 0.3001571277614118}}], ArrowBox[{{-0.14285714285714285`, 0.42857142857142855`}, {-0.12060107239501343`, 0.36180321718504027`}}], ArrowBox[{{-0.14285714285714285`, 0.5}, {-0.12376888571002995`, 0.43319109998510485`}}], ArrowBox[{{-0.07142857142857142, -0.5}, {-0.06143345715710674, \ -0.4300342000997472}}], ArrowBox[{{-0.07142857142857142, -0.42857142857142855`}, \ {-0.06011447319013411, -0.3606868391408047}}], ArrowBox[{{-0.07142857142857142, -0.35714285714285715`}, \ {-0.06015139862331973, -0.30075699311659865`}}], ArrowBox[{{-0.07142857142857142, -0.2857142857142857}, \ {-0.060908587325163396`, -0.24363434930065359`}}], ArrowBox[{{-0.07142857142857142, -0.21428571428571427`}, \ {-0.06176724516234438, -0.18530173548703313`}}], ArrowBox[{{-0.07142857142857142, -0.14285714285714285`}, \ {-0.062442601796324784`, -0.12488520359264957`}}], ArrowBox[{{-0.07142857142857142, -0.07142857142857142}, \ {-0.06285364539430495, -0.06285364539430495}}], ArrowBox[{{-0.07142857142857142, 0.}, {-0.06299014933158056, 0.}}], ArrowBox[{{-0.07142857142857142, 0.07142857142857142}, {-0.06285364539430495, 0.06285364539430495}}], ArrowBox[{{-0.07142857142857142, 0.14285714285714285`}, {-0.062442601796324784`, 0.12488520359264957`}}], ArrowBox[{{-0.07142857142857142, 0.21428571428571427`}, {-0.06176724516234438, 0.18530173548703313`}}], ArrowBox[{{-0.07142857142857142, 0.2857142857142857}, {-0.060908587325163396`, 0.24363434930065359`}}], ArrowBox[{{-0.07142857142857142, 0.35714285714285715`}, {-0.06015139862331973, 0.30075699311659865`}}], ArrowBox[{{-0.07142857142857142, 0.42857142857142855`}, {-0.06011447319013411, 0.3606868391408047}}], ArrowBox[{{-0.07142857142857142, 0.5}, {-0.06143345715710674, 0.4300342000997472}}], ArrowBox[{{0., -0.5}, {0., -0.4290420870698832}}], ArrowBox[{{0., -0.42857142857142855`}, {0., -0.36042553770515956`}}], ArrowBox[{{0., -0.35714285714285715`}, {0., -0.3010401354090765}}], ArrowBox[{{0., -0.2857142857142857}, {0., -0.2440838468742476}}], ArrowBox[{{0., -0.21428571428571427`}, {0., -0.18570007882022738`}}], ArrowBox[{{0., -0.14285714285714285`}, {0., -0.1251593021275051}}], ArrowBox[{{0., -0.07142857142857142}, {0., -0.06299014933158056}}], ArrowBox[{{0., 0.07142857142857142}, {0., 0.06299014933158056}}], ArrowBox[{{0., 0.14285714285714285`}, {0., 0.1251593021275051}}], ArrowBox[{{0., 0.21428571428571427`}, {0., 0.18570007882022738`}}], ArrowBox[{{0., 0.2857142857142857}, {0., 0.2440838468742476}}], ArrowBox[{{0., 0.35714285714285715`}, {0., 0.3010401354090765}}], ArrowBox[{{0., 0.42857142857142855`}, {0., 0.36042553770515956`}}], ArrowBox[{{0., 0.5}, {0., 0.4290420870698832}}], ArrowBox[{{0.07142857142857142, -0.5}, { 0.06143345715710674, -0.4300342000997472}}], ArrowBox[{{0.07142857142857142, -0.42857142857142855`}, { 0.06011447319013411, -0.3606868391408047}}], ArrowBox[{{0.07142857142857142, -0.35714285714285715`}, { 0.06015139862331973, -0.30075699311659865`}}], ArrowBox[{{0.07142857142857142, -0.2857142857142857}, { 0.060908587325163396`, -0.24363434930065359`}}], ArrowBox[{{0.07142857142857142, -0.21428571428571427`}, { 0.06176724516234438, -0.18530173548703313`}}], ArrowBox[{{0.07142857142857142, -0.14285714285714285`}, { 0.062442601796324784`, -0.12488520359264957`}}], ArrowBox[{{0.07142857142857142, -0.07142857142857142}, { 0.06285364539430495, -0.06285364539430495}}], ArrowBox[{{0.07142857142857142, 0.}, {0.06299014933158056, 0.}}], ArrowBox[{{0.07142857142857142, 0.07142857142857142}, {0.06285364539430495, 0.06285364539430495}}], ArrowBox[{{0.07142857142857142, 0.14285714285714285`}, { 0.062442601796324784`, 0.12488520359264957`}}], ArrowBox[{{0.07142857142857142, 0.21428571428571427`}, { 0.06176724516234438, 0.18530173548703313`}}], ArrowBox[{{0.07142857142857142, 0.2857142857142857}, { 0.060908587325163396`, 0.24363434930065359`}}], ArrowBox[{{0.07142857142857142, 0.35714285714285715`}, { 0.06015139862331973, 0.30075699311659865`}}], ArrowBox[{{0.07142857142857142, 0.42857142857142855`}, { 0.06011447319013411, 0.3606868391408047}}], ArrowBox[{{0.07142857142857142, 0.5}, {0.06143345715710674, 0.4300342000997472}}], ArrowBox[{{0.14285714285714285`, -0.5}, { 0.12376888571002995`, -0.43319109998510485`}}], ArrowBox[{{0.14285714285714285`, -0.42857142857142855`}, { 0.12060107239501343`, -0.36180321718504027`}}], ArrowBox[{{0.14285714285714285`, -0.35714285714285715`}, { 0.12006285110456472`, -0.3001571277614118}}], ArrowBox[{{0.14285714285714285`, -0.2857142857142857}, { 0.12120064442668693`, -0.24240128885337386`}}], ArrowBox[{{0.14285714285714285`, -0.21428571428571427`}, { 0.12276212200732574`, -0.18414318301098861`}}], ArrowBox[{{0.14285714285714285`, -0.14285714285714285`}, { 0.1240685234598431, -0.1240685234598431}}], ArrowBox[{{0.14285714285714285`, -0.07142857142857142}, { 0.12488520359264957`, -0.062442601796324784`}}], ArrowBox[{{0.14285714285714285`, 0.}, {0.1251593021275051, 0.}}], ArrowBox[{{0.14285714285714285`, 0.07142857142857142}, { 0.12488520359264957`, 0.062442601796324784`}}], ArrowBox[{{0.14285714285714285`, 0.14285714285714285`}, { 0.1240685234598431, 0.1240685234598431}}], ArrowBox[{{0.14285714285714285`, 0.21428571428571427`}, { 0.12276212200732574`, 0.18414318301098861`}}], ArrowBox[{{0.14285714285714285`, 0.2857142857142857}, { 0.12120064442668693`, 0.24240128885337386`}}], ArrowBox[{{0.14285714285714285`, 0.35714285714285715`}, { 0.12006285110456472`, 0.3001571277614118}}], ArrowBox[{{0.14285714285714285`, 0.42857142857142855`}, { 0.12060107239501343`, 0.36180321718504027`}}], ArrowBox[{{0.14285714285714285`, 0.5}, {0.12376888571002995`, 0.43319109998510485`}}], ArrowBox[{{0.21428571428571427`, -0.5}, { 0.1880808003188842, -0.43885520074406315`}}], ArrowBox[{{0.21428571428571427`, -0.42857142857142855`}, { 0.18234188603571727`, -0.36468377207143454`}}], ArrowBox[{{0.21428571428571427`, -0.35714285714285715`}, { 0.18003683506776985`, -0.30006139177961644`}}], ArrowBox[{{0.21428571428571427`, -0.2857142857142857}, { 0.18062408124544588`, -0.24083210832726118`}}], ArrowBox[{{0.21428571428571427`, -0.21428571428571427`}, { 0.18240221585837507`, -0.18240221585837507`}}], ArrowBox[{{0.21428571428571427`, -0.14285714285714285`}, { 0.18414318301098861`, -0.12276212200732574`}}], ArrowBox[{{0.21428571428571427`, -0.07142857142857142}, { 0.18530173548703313`, -0.06176724516234438}}], ArrowBox[{{0.21428571428571427`, 0.}, {0.18570007882022738`, 0.}}], ArrowBox[{{0.21428571428571427`, 0.07142857142857142}, { 0.18530173548703313`, 0.06176724516234438}}], ArrowBox[{{0.21428571428571427`, 0.14285714285714285`}, { 0.18414318301098861`, 0.12276212200732574`}}], ArrowBox[{{0.21428571428571427`, 0.21428571428571427`}, { 0.18240221585837507`, 0.18240221585837507`}}], ArrowBox[{{0.21428571428571427`, 0.2857142857142857}, { 0.18062408124544588`, 0.24083210832726118`}}], ArrowBox[{{0.21428571428571427`, 0.35714285714285715`}, { 0.18003683506776985`, 0.30006139177961644`}}], ArrowBox[{{0.21428571428571427`, 0.42857142857142855`}, { 0.18234188603571727`, 0.36468377207143454`}}], ArrowBox[{{0.21428571428571427`, 0.5}, {0.1880808003188842, 0.43885520074406315`}}], ArrowBox[{{0.2857142857142857, -0.5}, { 0.2554356497410419, -0.4470123870468233}}], ArrowBox[{{0.2857142857142857, -0.42857142857142855`}, { 0.2469212008130781, -0.37038180121961717`}}], ArrowBox[{{0.2857142857142857, -0.35714285714285715`}, { 0.2415213833870934, -0.30190172923386677`}}], ArrowBox[{{0.2857142857142857, -0.2857142857142857}, { 0.23996710621661504`, -0.23996710621661504`}}], ArrowBox[{{0.2857142857142857, -0.21428571428571427`}, { 0.24083210832726118`, -0.18062408124544588`}}], ArrowBox[{{0.2857142857142857, -0.14285714285714285`}, { 0.24240128885337386`, -0.12120064442668693`}}], ArrowBox[{{0.2857142857142857, -0.07142857142857142}, { 0.24363434930065359`, -0.060908587325163396`}}], ArrowBox[{{0.2857142857142857, 0.}, {0.2440838468742476, 0.}}], ArrowBox[{{0.2857142857142857, 0.07142857142857142}, {0.24363434930065359`, 0.060908587325163396`}}], ArrowBox[{{0.2857142857142857, 0.14285714285714285`}, { 0.24240128885337386`, 0.12120064442668693`}}], ArrowBox[{{0.2857142857142857, 0.21428571428571427`}, { 0.24083210832726118`, 0.18062408124544588`}}], ArrowBox[{{0.2857142857142857, 0.2857142857142857}, {0.23996710621661504`, 0.23996710621661504`}}], ArrowBox[{{0.2857142857142857, 0.35714285714285715`}, {0.2415213833870934, 0.30190172923386677`}}], ArrowBox[{{0.2857142857142857, 0.42857142857142855`}, {0.2469212008130781, 0.37038180121961717`}}], ArrowBox[{{0.2857142857142857, 0.5}, {0.2554356497410419, 0.4470123870468233}}], ArrowBox[{{0.35714285714285715`, -0.5}, { 0.3263102643133711, -0.4568343700387195}}], ArrowBox[{{0.35714285714285715`, -0.42857142857142855`}, { 0.3159714998180766, -0.37916579978169185`}}], ArrowBox[{{0.35714285714285715`, -0.35714285714285715`}, { 0.3071672857855337, -0.3071672857855337}}], ArrowBox[{{0.35714285714285715`, -0.2857142857142857}, { 0.30190172923386677`, -0.2415213833870934}}], ArrowBox[{{0.35714285714285715`, -0.21428571428571427`}, { 0.30006139177961644`, -0.18003683506776985`}}], ArrowBox[{{0.35714285714285715`, -0.14285714285714285`}, { 0.3001571277614118, -0.12006285110456472`}}], ArrowBox[{{0.35714285714285715`, -0.07142857142857142}, { 0.30075699311659865`, -0.06015139862331973}}], ArrowBox[{{0.35714285714285715`, 0.}, {0.3010401354090765, 0.}}], ArrowBox[{{0.35714285714285715`, 0.07142857142857142}, { 0.30075699311659865`, 0.06015139862331973}}], ArrowBox[{{0.35714285714285715`, 0.14285714285714285`}, { 0.3001571277614118, 0.12006285110456472`}}], ArrowBox[{{0.35714285714285715`, 0.21428571428571427`}, { 0.30006139177961644`, 0.18003683506776985`}}], ArrowBox[{{0.35714285714285715`, 0.2857142857142857}, { 0.30190172923386677`, 0.2415213833870934}}], ArrowBox[{{0.35714285714285715`, 0.35714285714285715`}, { 0.3071672857855337, 0.3071672857855337}}], ArrowBox[{{0.35714285714285715`, 0.42857142857142855`}, { 0.3159714998180766, 0.37916579978169185`}}], ArrowBox[{{0.35714285714285715`, 0.5}, {0.3263102643133711, 0.4568343700387195}}], ArrowBox[{{0.42857142857142855`, -0.5}, { 0.4001553806987741, -0.46684794414856984`}}], ArrowBox[{{0.42857142857142855`, -0.42857142857142855`}, { 0.3897955879378246, -0.3897955879378246}}], ArrowBox[{{0.42857142857142855`, -0.35714285714285715`}, { 0.37916579978169185`, -0.3159714998180766}}], ArrowBox[{{0.42857142857142855`, -0.2857142857142857}, { 0.37038180121961717`, -0.2469212008130781}}], ArrowBox[{{0.42857142857142855`, -0.21428571428571427`}, { 0.36468377207143454`, -0.18234188603571727`}}], ArrowBox[{{0.42857142857142855`, -0.14285714285714285`}, { 0.36180321718504027`, -0.12060107239501343`}}], ArrowBox[{{0.42857142857142855`, -0.07142857142857142}, { 0.3606868391408047, -0.06011447319013411}}], ArrowBox[{{0.42857142857142855`, 0.}, {0.36042553770515956`, 0.}}], ArrowBox[{{0.42857142857142855`, 0.07142857142857142}, {0.3606868391408047, 0.06011447319013411}}], ArrowBox[{{0.42857142857142855`, 0.14285714285714285`}, { 0.36180321718504027`, 0.12060107239501343`}}], ArrowBox[{{0.42857142857142855`, 0.21428571428571427`}, { 0.36468377207143454`, 0.18234188603571727`}}], ArrowBox[{{0.42857142857142855`, 0.2857142857142857}, { 0.37038180121961717`, 0.2469212008130781}}], ArrowBox[{{0.42857142857142855`, 0.35714285714285715`}, { 0.37916579978169185`, 0.3159714998180766}}], ArrowBox[{{0.42857142857142855`, 0.42857142857142855`}, { 0.3897955879378246, 0.3897955879378246}}], ArrowBox[{{0.42857142857142855`, 0.5}, {0.4001553806987741, 0.46684794414856984`}}], ArrowBox[{{0.5, -0.5}, {0.4756922826891026, -0.4756922826891026}}], ArrowBox[{{0.5, -0.42857142857142855`}, { 0.46684794414856984`, -0.4001553806987741}}], ArrowBox[{{0.5, -0.35714285714285715`}, { 0.4568343700387195, -0.3263102643133711}}], ArrowBox[{{0.5, -0.2857142857142857}, { 0.4470123870468233, -0.2554356497410419}}], ArrowBox[{{0.5, -0.21428571428571427`}, { 0.43885520074406315`, -0.1880808003188842}}], ArrowBox[{{0.5, -0.14285714285714285`}, { 0.43319109998510485`, -0.12376888571002995`}}], ArrowBox[{{0.5, -0.07142857142857142}, { 0.4300342000997472, -0.06143345715710674}}], ArrowBox[{{0.5, 0.}, {0.4290420870698832, 0.}}], ArrowBox[{{0.5, 0.07142857142857142}, {0.4300342000997472, 0.06143345715710674}}], ArrowBox[{{0.5, 0.14285714285714285`}, {0.43319109998510485`, 0.12376888571002995`}}], ArrowBox[{{0.5, 0.21428571428571427`}, {0.43885520074406315`, 0.1880808003188842}}], ArrowBox[{{0.5, 0.2857142857142857}, {0.4470123870468233, 0.2554356497410419}}], ArrowBox[{{0.5, 0.35714285714285715`}, {0.4568343700387195, 0.3263102643133711}}], ArrowBox[{{0.5, 0.42857142857142855`}, {0.46684794414856984`, 0.4001553806987741}}], ArrowBox[{{0.5, 0.5}, {0.4756922826891026, 0.4756922826891026}}]}, AlignmentPoint->Center, AspectRatio->Automatic, Axes->False, AxesLabel->None, AxesOrigin->Automatic, AxesStyle->{}, Background->None, BaseStyle->{}, BaselinePosition->Automatic, ColorOutput->Automatic, ContentSelectable->Automatic, DisplayFunction:>$DisplayFunction, Epilog->{}, FormatType:>TraditionalForm, Frame->False, FrameLabel->None, FrameStyle->{}, FrameTicks->Automatic, FrameTicksStyle->{}, GridLines->None, GridLinesStyle->{}, ImageMargins->0., ImagePadding->All, ImageSize->Automatic, LabelStyle->{}, Method->Automatic, PlotLabel->FormBox["\"B(z=0)\"", TraditionalForm], PlotRange->All, PlotRangeClipping->False, PlotRangePadding->Automatic, PlotRegion->Automatic, PreserveImageOptions->Automatic, Prolog->{}, RotateLabel->True, Ticks->Automatic, TicksStyle->{}]], "Output", CellChangeTimes->{ 3.42531009070675*^9, 3.425312910097375*^9, 3.425318694628625*^9, 3.425379822578125*^9, 3.425396758234375*^9, 3.42565067371875*^9, 3.42565820103125*^9, 3.425723994734375*^9, {3.42754813959153*^9, 3.427548141659535*^9}, 3.427548272011507*^9, 3.427557844019438*^9, 3.42765276673412*^9, 3.427711362161708*^9, 3.4317975192351007`*^9, 3.4319594998324137`*^9, 3.432522046156041*^9, 3.432563463539208*^9, 3.433864221668048*^9, 3.433864338020976*^9, 3.4342027720604477`*^9, 3.434204364470052*^9, 3.4342045801384373`*^9, 3.434204730655129*^9, 3.434204985764822*^9, 3.434214521565899*^9, 3.4343851615252237`*^9, 3.43638587637237*^9, 3.44042119856767*^9, 3.4404339527749863`*^9, 3.440510246548554*^9, 3.440785636115219*^9, 3.4411146072618313`*^9, 3.441114904057149*^9, 3.441122209758659*^9, 3.441128857621922*^9, 3.441131833912126*^9, 3.441152244104821*^9, 3.441371870174218*^9, 3.441372643057846*^9, {3.441677099989623*^9, 3.441677121790909*^9}, 3.441680414603347*^9, 3.441713841001855*^9, 3.441713894220745*^9, 3.441716509617296*^9, 3.441817239165482*^9, 3.442255590367399*^9, 3.44225587891571*^9, 3.442256088269665*^9, 3.4422573733329067`*^9, 3.442261477884136*^9, 3.4423252556221447`*^9, 3.443181116854727*^9, 3.443181217879573*^9, 3.4431827540768223`*^9, 3.443273235563335*^9}] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["QT using a coil with multiple windings", "Subsubsection", CellChangeTimes->{{3.424788437169375*^9, 3.4247884708725*^9}}], Cell["\<\ The magnetic field produced by two coils in Anti-Helmholtz configuration is \ simulated by adding up the fields of single current loops. rad\t\t\tinner radius of coil dist\t\t\tdistanze between two coils in z direction wireWidth\t\tthickness of a rectangular wire (dimension in radial direction) wireLength\t\theight of a rectangular wire (dimension in axial direction) num Rad\t\tnumber of wire turns in radial direction numAx\t\t\tnumber of wire turns in axial direction Bcoil\t\t\tmagnetic quadrupole field due to coils\ \>", "Text", CellChangeTimes->{{3.42478848331*^9, 3.42478849002875*^9}, { 3.42478883690375*^9, 3.42478883727875*^9}}], Cell[BoxData[{ RowBox[{"Clear", "[", "Coil", "]"}], "\n", RowBox[{"Clear", "[", "curr", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coil", "[", RowBox[{ "x_", ",", "y_", ",", "z_", ",", "dist_", ",", "I_", ",", "rad_", ",", "wireWidth_", ",", "wireLength_", ",", " ", "numRad_", ",", "numAx_"}], "]"}], " ", ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", "j", ",", "Bcoil", ",", "temp"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"temp", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "\[LessEqual]", "numRad"}], ",", " ", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", "numAx"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Bcoil", " ", "=", " ", RowBox[{"temp", " ", "+", RowBox[{"VecQuad", "[", RowBox[{"x", ",", "y", ",", "z", ",", RowBox[{"rad", "+", RowBox[{ RowBox[{"(", RowBox[{"i", "-", "0.5"}], ")"}], "*", "wireWidth"}]}], ",", RowBox[{"dist", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "*", "j"}], "-", "1"}], ")"}], "*", "wireLength"}]}], ",", "I"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"temp", " ", "=", " ", "Bcoil"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "Bcoil"}]}], "\[IndentingNewLine]", "]"}]}]}], "Input", CellChangeTimes->{{3.424788509200625*^9, 3.424788534763125*^9}, { 3.42478858752875*^9, 3.42478862459125*^9}, 3.424788841388125*^9}] }, Closed]], Cell[CellGroupData[{ Cell["Push Coil", "Subsubsection", CellChangeTimes->{{3.424789467700625*^9, 3.424789471763125*^9}}], Cell[TextData[{ "The push coil axes are redefined so that they correspond to the same axes \ as the entire transport system. ", StyleBox["y ", FontSlant->"Italic"], "corresponds to the direction of horizontal transport, z to the symmetry \ axes of the horizontal coils." }], "Text", CellChangeTimes->{{3.42521305289425*^9, 3.4252131170505*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"VecPush", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "R_", ",", "A_", ",", "I_"}], "]"}], " ", ":=", " ", RowBox[{"{", RowBox[{ RowBox[{"Bx", "[", RowBox[{"x", ",", "z", ",", RowBox[{"-", "y"}], ",", "R", ",", "A", ",", RowBox[{ RowBox[{"-", "2"}], "*", SuperscriptBox["10", RowBox[{"-", "7"}]], "I"}]}], "]"}], ",", RowBox[{"-", RowBox[{"Bz", "[", RowBox[{"x", ",", "z", ",", RowBox[{"-", "y"}], ",", "R", ",", "A", ",", RowBox[{ RowBox[{"-", "2"}], "*", SuperscriptBox["10", RowBox[{"-", "7"}]], "I"}]}], "]"}]}], ",", RowBox[{"By", "[", RowBox[{"x", ",", "z", ",", RowBox[{"-", "y"}], ",", "R", ",", "A", ",", RowBox[{ RowBox[{"-", "2"}], "*", SuperscriptBox["10", RowBox[{"-", "7"}]], "I"}]}], "]"}]}], "}"}]}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{ 3.424789482481875*^9, {3.424789742544375*^9, 3.42478982471625*^9}, { 3.424789860856875*^9, 3.424789968200625*^9}, {3.4247903552475*^9, 3.42479038977875*^9}, {3.42505104521625*^9, 3.425051047138125*^9}, { 3.427652704770536*^9, 3.427652711160387*^9}}], Cell[CellGroupData[{ Cell["Iteration of VecPush", "Subsubsubsection", CellChangeTimes->{{3.424790308044375*^9, 3.424790312825625*^9}}], Cell["\<\ I - current in amps rad - inner radius of the coil\ \>", "Text", CellChangeTimes->{{3.424790749888125*^9, 3.424790774685*^9}}], Cell["\<\ dist - distance between coil and the MOT centre along y axis.\ \>", "Text", CellChangeTimes->{{3.42479078065375*^9, 3.42479079606*^9}}], Cell[BoxData[{ RowBox[{"Clear", "[", "PushCoil", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"PushCoil", "[", RowBox[{ "x_", ",", "y_", ",", "z_", ",", "dist_", ",", "I_", ",", "rad_", ",", "wireWidth_", ",", "wireLength_", ",", " ", "numRad_", ",", "numAx_"}], "]"}], " ", ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", "j", ",", "BPush", ",", "temp"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"temp", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "\[LessEqual]", "numRad"}], ",", " ", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", "numAx"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"BPush", " ", "=", " ", RowBox[{"temp", " ", "+", RowBox[{"VecPush", "[", RowBox[{"x", ",", "y", ",", "z", ",", RowBox[{"rad", "+", RowBox[{ RowBox[{"(", RowBox[{"i", "-", "0.5"}], ")"}], "*", "wireWidth"}]}], ",", RowBox[{"dist", "+", RowBox[{ RowBox[{"(", RowBox[{"j", "-", "0.5"}], ")"}], "*", "wireLength"}]}], ",", "I"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"temp", " ", "=", " ", "BPush"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "BPush"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", RowBox[{"Clear", "[", "temp", "]"}]}], "Input", CellChangeTimes->{ 3.424790315106875*^9, {3.424790465106875*^9, 3.424790477888125*^9}, { 3.4247905354975*^9, 3.424790647935*^9}}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Conical Push Coil", "Subsection", CellChangeTimes->{{3.42539639284375*^9, 3.42539639584375*^9}, 3.4275575635228148`*^9}], Cell[TextData[{ "Push coil that is conical. The first axial layer has 1 radial loop, the \ 2nd axial layer has 1+numGain radial loops, etc. The ", Cell[BoxData[ FormBox[ SuperscriptBox["n", "th"], TraditionalForm]]], "axial layer has 1+numGain radial loops.\nNumRadialInitial is the number of \ radial loops in the first axial layer. NumGain is the number of radial \ layers gained per axial layer." }], "Text", CellChangeTimes->{{3.425396648296875*^9, 3.425396678984375*^9}, { 3.425396766609375*^9, 3.425396784*^9}, {3.425657735234375*^9, 3.425657747109375*^9}, {3.42565781853125*^9, 3.425657840171875*^9}, 3.427557563523551*^9}], Cell[BoxData[{ RowBox[{"Clear", "[", "ConicalPush", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ConicalPush", "[", RowBox[{ "x_", ",", "y_", ",", "z_", ",", "dist_", ",", "I_", ",", "rad_", ",", "wireWidth_", ",", "wireLength_", ",", " ", "numRadInitial_", ",", "numAx_", ",", "numGain_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", "j", ",", "BPush", ",", "temp"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"temp", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", " ", "numAx"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", RowBox[{"numRadInitial", "+", RowBox[{ RowBox[{"(", RowBox[{"i", "-", "1"}], ")"}], "*", "numGain"}]}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"BPush", "=", RowBox[{"temp", "+", RowBox[{"VecPush", "[", RowBox[{"x", ",", "y", ",", "z", ",", RowBox[{"rad", "+", RowBox[{ RowBox[{"(", RowBox[{"j", "-", "0.5"}], ")"}], "*", "wireWidth"}]}], ",", RowBox[{"dist", "+", RowBox[{ RowBox[{"(", RowBox[{"i", "-", "0.5"}], ")"}], "*", "wireLength"}]}], ",", "I"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"temp", "=", "BPush"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "BPush"}]}], "\[IndentingNewLine]", "]"}]}]}], "Input", CellChangeTimes->{{3.4253964134375*^9, 3.4253966124375*^9}, { 3.425396720234375*^9, 3.425396733796875*^9}, {3.425657719046875*^9, 3.425657722546875*^9}, {3.425657765015625*^9, 3.425657804234375*^9}, 3.427557563524448*^9}] }, Open ]], Cell[CellGroupData[{ Cell["Coil Length Script", "Subsection", CellChangeTimes->{{3.442931344913374*^9, 3.4429313505097103`*^9}, { 3.442932049454712*^9, 3.442932053803328*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"CoilLength", "[", RowBox[{ "innerRad_", ",", "numRad_", ",", "numAx_", ",", "wireWidth_", ",", "wireLength_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", "j", ",", "length"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"length", "=", "0"}], ";", " ", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "\[LessEqual]", "numRad"}], ",", " ", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", "numAx"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"length", "=", RowBox[{"length", "+", RowBox[{"2", "*", "Pi", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"i", "-", "0.5"}], ")"}], "*", "wireWidth"}], "+", "innerRad"}], ")"}]}]}]}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "length"}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.44293142761687*^9, 3.4429314597015963`*^9}, { 3.442931494415444*^9, 3.4429315291595078`*^9}, {3.44293159571487*^9, 3.442931723585752*^9}, {3.442931756084354*^9, 3.442931763252604*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Power Dissipation Script", "Subsection", CellChangeTimes->{{3.442932067083324*^9, 3.4429320696352463`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"\[Rho]", "=", RowBox[{"1.7", " ", "*", SuperscriptBox["10", RowBox[{"-", "8"}]]}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"resistivity", " ", "of", " ", RowBox[{"Copper", " ", "[", RowBox[{"\[CapitalOmega]", "/", "m"}], "]"}]}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Resistance", "[", RowBox[{ "innerRad_", ",", "numRad_", ",", "numAx_", ",", "wireWidth_", ",", "wireLength_"}], "]"}], ":=", RowBox[{ RowBox[{"CoilLength", "[", RowBox[{ "innerRad", ",", "numRad", ",", "numAx", ",", "wireWidth", ",", "wireLength"}], "]"}], " ", "*", " ", FractionBox["\[Rho]", RowBox[{"(", RowBox[{"wireWidth", "*", "wireLength"}], ")"}]]}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"R", " ", "=", " ", FractionBox[ RowBox[{"\[Rho]", " ", "L"}], "A"]}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"PowerDissipated", "[", RowBox[{ "innerRad_", ",", "numRad_", ",", "numAx_", ",", "wireWidth_", ",", "wireLength_", ",", "I_"}], "]"}], ":=", RowBox[{ RowBox[{"Resistance", "[", RowBox[{ "innerRad", ",", "numRad", ",", "numAx", ",", "wireWidth", ",", "wireLength"}], "]"}], " ", "*", " ", SuperscriptBox["I", "2"]}]}], ";"}]}], "Input", CellChangeTimes->{{3.442932076806809*^9, 3.442932177577281*^9}, { 3.44293221206393*^9, 3.4429323307900553`*^9}, {3.442932714051219*^9, 3.4429327150414762`*^9}, {3.442932832756073*^9, 3.4429328331690607`*^9}, 3.442932876572979*^9, {3.442932984218153*^9, 3.442933035416232*^9}, { 3.442933531647621*^9, 3.442933592892173*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Horizontal Transport Geometry", "Subsection", CellChangeTimes->{{3.427547957149158*^9, 3.427547962448024*^9}}], Cell["\<\ This transport geometry is fixed owing to the constructed horizontal \ transport coils, MOT coils and the mounting apparatus. We can only play with \ the Push coil geometry.\ \>", "Text", CellChangeTimes->{{3.427547964762435*^9, 3.427548000679418*^9}}], Cell["\<\ Specifies the arrangement of the coil in space. Determines the inner radius \ of the coils, the wire dimensions, number of radial and axial turns and \ distance from the point of origin. \ \>", "Text", CellChangeTimes->{{3.424188811902378*^9, 3.424188862933628*^9}}], Cell["\<\ For this entire system we will take the center of the MOT coils to be the \ point of origin with the (y) direction corresponding to the horizontal \ transport direction and the (z) direction corresonding to the MOT coil axis \ direction. \ \>", "Text", CellChangeTimes->{{3.4241888668555036`*^9, 3.424188943308628*^9}}], Cell[CellGroupData[{ Cell["Initial clearance", "Subsubsection", CellChangeTimes->{{3.424188958121128*^9, 3.424188982371128*^9}}], Cell[BoxData[{ RowBox[{"Clear", "[", RowBox[{"radP", ",", "rad1", ",", "rad2", ",", "rad3", ",", "rad4"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{"dist1", ",", "dist2", ",", "dist3", ",", "dist4"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", "wireWidth", "]"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", "wireLength", "]"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", "MOTwireWidth", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", "MOTwireLength", "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", RowBox[{ "numRad1", ",", "numRad2", ",", "numRad3", ",", "numRad4", ",", "numRad5", ",", "numRad6", ",", "numRad7"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{ "numAx1", ",", "numAx2", ",", "numAx3", ",", "numAx4", ",", "numAx5", ",", "numAx6", ",", "numAx7"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", "numTurns", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"numTurns", "=", "1"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", "dist1", "]"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", "dist2", "]"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", "dist3", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{"dist4", ",", "dist5", ",", "dist6", ",", "dist7"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", "ydispl1", "]"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", "ydispl2", "]"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", "ydispl3", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{"ydispl4", ",", "ydispl5", ",", "ydispl6", ",", "ydispl7"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", "amps1", "]"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", "amps2", "]"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", "amps3", "]"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", "amps4", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", " ", "[", RowBox[{"amps5", ",", "amps6", ",", "amps7", ",", " ", "ampsPush"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Clear", " ", "[", "ypos", "]"}]}], "Input", CellChangeTimes->{{3.4241889901992536`*^9, 3.424189007652378*^9}, { 3.4241891427617536`*^9, 3.4241891459180036`*^9}, {3.424189278339878*^9, 3.4241892928555036`*^9}, {3.424191445839878*^9, 3.424191448371128*^9}, { 3.4244309440117536`*^9, 3.424431073308628*^9}, {3.424793496606875*^9, 3.424793520919375*^9}, {3.424794024935*^9, 3.424794026544375*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Inner Radii ", "Subsubsection", CellChangeTimes->{{3.424189044433628*^9, 3.424189047402378*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"rad1", "=", RowBox[{"22.9", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rad2", "=", RowBox[{"12.4", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rad3", "=", RowBox[{"12.4", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rad4", "=", RowBox[{"12.4", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rad5", "=", RowBox[{"12.4", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rad6", "=", RowBox[{"12.4", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rad7", "=", RowBox[{"12.4", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rad8", "=", RowBox[{"12.4", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rad9", "=", RowBox[{"12.4", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rad10", "=", RowBox[{"12.4", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rad11", "=", RowBox[{"25.0", "mm"}]}], ";"}]}], "Input", CellChangeTimes->{{3.424189051402378*^9, 3.4241890590742536`*^9}, { 3.4244276190430036`*^9, 3.4244276370742536`*^9}, {3.424789074263125*^9, 3.424789097513125*^9}, {3.424793655435*^9, 3.424793666169375*^9}, { 3.42505336815375*^9, 3.4250533683725*^9}, {3.42505356171625*^9, 3.425053577935*^9}, {3.425140933410331*^9, 3.425140934441581*^9}, { 3.425143741457206*^9, 3.425143742300956*^9}, {3.427548035644526*^9, 3.427548036818087*^9}, {3.441372427416478*^9, 3.4413724535169477`*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Wire dimensions", "Subsubsection", CellChangeTimes->{{3.424189072683628*^9, 3.424189082183628*^9}}], Cell["Wire dimensions taken from Oswald Co. ", "Text", CellChangeTimes->{{3.424189588683628*^9, 3.4241896030117536`*^9}}], Cell["\<\ MOT wire: 2.5mm x 0.6mm with 0.065mm insulation on all sides.\ \>", "Text", CellChangeTimes->{{3.424189603308628*^9, 3.424189622183628*^9}}], Cell["\<\ Horizontal wire: 2.5mm x 1.0mm with 0.065 mm insulation on all sides.\ \>", "Text", CellChangeTimes->{{3.4241896234492536`*^9, 3.4241896359180036`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"PwireWidth", "=", RowBox[{"1.02", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"PwireLength", "=", RowBox[{"2.29", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MOTwireWidth", " ", "=", " ", RowBox[{"0.73", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MOTwireLength", " ", "=", " ", RowBox[{"2.63", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"HwireWidth", "=", RowBox[{"1.13", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"HwireLength", "=", RowBox[{"2.63", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"VwireWidth", "=", RowBox[{"1.43", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"VwireLength", "=", RowBox[{"2.33", "mm"}]}], ";"}]}], "Input", CellChangeTimes->{{3.4241890856680036`*^9, 3.4241890949805036`*^9}, { 3.4241895843555036`*^9, 3.424189586308628*^9}, {3.4250385483725*^9, 3.4250385616225*^9}, {3.442255470166635*^9, 3.442255514171144*^9}, { 3.4422558388389997`*^9, 3.442255851812006*^9}, {3.442257332985935*^9, 3.442257333154011*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Winding geometry", "Subsubsection", CellChangeTimes->{{3.424189112371128*^9, 3.424189114246128*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"numRad1", "=", "33"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"numAx1", "=", "2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"numRad2", "=", "16"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"numAx2", "=", "2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"numRad3", "=", "16"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"numAx3", "=", "2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"numRad4", "=", "16"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"numAx4", "=", "2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"numRad5", "=", "16"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"numAx5", " ", "=", "2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"numRad6", "=", "16"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"numAx6", " ", "=", "2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"numRad7", "=", "16"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"numAx7", "=", "2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"numRad8", "=", "16"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"numAx8", "=", "2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"numRad9", "=", "16"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"numAx9", "=", "2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"numRad10", "=", "16"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"numAx10", "=", "2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"numRad11", "=", "19"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"numAx11", "=", "4"}], ";"}]}], "Input", CellChangeTimes->{{3.424189116214878*^9, 3.4241891271055036`*^9}, { 3.4244276635117536`*^9, 3.424427693558628*^9}, {3.424788916138125*^9, 3.42478891702875*^9}, {3.4325231395447807`*^9, 3.432523152993294*^9}, { 3.4413724745334463`*^9, 3.4413724999110003`*^9}, {3.441372534992401*^9, 3.441372536416271*^9}, {3.441677117572969*^9, 3.441677117713537*^9}, { 3.441716496728706*^9, 3.441716497055667*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Inner Separation of the Coils", "Subsubsection", CellChangeTimes->{{3.424189132527378*^9, 3.424189132527378*^9}, { 3.424189174371128*^9, 3.424189224683628*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"dist1", "=", RowBox[{"50", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dist2", "=", RowBox[{"63.48", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dist3", "=", RowBox[{"51.48", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dist4", "=", RowBox[{"63.48", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dist5", "=", RowBox[{"51.48", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dist6", "=", RowBox[{"63.48", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dist7", "=", RowBox[{"51.48", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dist8", "=", RowBox[{"63.48", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dist9", "=", RowBox[{"51.48", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dist10", "=", RowBox[{"63.48", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dist11", "=", RowBox[{"41", "mm"}]}], ";"}]}], "Input", CellChangeTimes->{{3.4241891968555036`*^9, 3.4241892040117536`*^9}, { 3.424189301558628*^9, 3.424189317339878*^9}, {3.424427700246128*^9, 3.4244277146680036`*^9}, {3.425052273435*^9, 3.425052277669375*^9}, { 3.4250529797475*^9, 3.425052988575625*^9}, {3.425053583981875*^9, 3.425053584919375*^9}, {3.425140979910331*^9, 3.425140981207206*^9}, { 3.425143751879081*^9, 3.425143757738456*^9}, {3.425144597785331*^9, 3.425144598269706*^9}, {3.425401229875*^9, 3.425401230765625*^9}, { 3.4254013063125*^9, 3.425401307296875*^9}, {3.42754807648866*^9, 3.427548085825205*^9}, {3.44112194124338*^9, 3.441121974054619*^9}, { 3.441372287665059*^9, 3.4413723327638273`*^9}, {3.442261421095668*^9, 3.4422614420131683`*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Location of the Coil Axes", "Subsubsection", CellChangeTimes->{{3.4241892281992536`*^9, 3.424189231527378*^9}}], Cell["\<\ TotLength corresponds to the total transport length. Ydispl# corresponsd to \ the displacement of the coil axes from the MOT center.\ \>", "Text", CellChangeTimes->{{3.424190183808628*^9, 3.4241902195117536`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"TotLength", " ", "=", " ", "360"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ydispl1", "=", "0.0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ydispl2", "=", RowBox[{"53.3", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ydispl3", "=", RowBox[{"84.8", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ydispl4", "=", RowBox[{"116.3", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ydispl5", "=", RowBox[{"147.8", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ydispl6", "=", RowBox[{"179.3", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ydispl7", "=", RowBox[{"210.8", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ydispl8", "=", RowBox[{"242.3", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ydispl9", "=", RowBox[{"273.8", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ydispl10", "=", RowBox[{"305.3", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ydispl11", "=", RowBox[{"360", "mm"}]}], ";"}]}], "Input", CellChangeTimes->{{3.424189339683628*^9, 3.4241893434805036`*^9}, { 3.4241901737930036`*^9, 3.4241901783555036`*^9}, {3.424190242589878*^9, 3.4241902436367536`*^9}, {3.424427723683628*^9, 3.4244277791055036`*^9}, { 3.424428038589878*^9, 3.4244280396055036`*^9}, {3.424430665433628*^9, 3.424430666371128*^9}, {3.424788947356875*^9, 3.424788957325625*^9}, { 3.42478911315375*^9, 3.42478912484125*^9}, {3.4247891634975*^9, 3.424789165044375*^9}, {3.424793689606875*^9, 3.424793709669375*^9}, { 3.4250522819975*^9, 3.425052282294375*^9}, {3.42531272083175*^9, 3.425312721722375*^9}, {3.432523623123352*^9, 3.432523661240356*^9}, { 3.440433944625757*^9, 3.440433945633008*^9}, {3.4411218339629583`*^9, 3.4411219299404716`*^9}, {3.441122161785907*^9, 3.441122163497692*^9}, { 3.441128837152281*^9, 3.441128841492868*^9}, {3.441371971641038*^9, 3.4413720029570827`*^9}, {3.441372079766046*^9, 3.4413721330286818`*^9}, { 3.441372366798023*^9, 3.441372396449924*^9}, {3.441372759038903*^9, 3.44137276032823*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Current Vector Initialization", "Subsubsection", CellChangeTimes->{{3.441372723564836*^9, 3.441372747815134*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"I1", "=", RowBox[{"UnitVector", "[", RowBox[{"TotLength", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"I2", "=", RowBox[{"UnitVector", "[", RowBox[{"TotLength", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"IP", "=", RowBox[{"UnitVector", "[", RowBox[{"TotLength", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"I3", "=", RowBox[{"UnitVector", "[", RowBox[{"TotLength", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"I4", "=", RowBox[{"UnitVector", "[", RowBox[{"TotLength", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"I5", "=", RowBox[{"UnitVector", "[", RowBox[{"TotLength", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"I6", "=", RowBox[{"UnitVector", "[", RowBox[{"TotLength", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"I7", "=", RowBox[{"UnitVector", "[", RowBox[{"TotLength", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"I8", "=", RowBox[{"UnitVector", "[", RowBox[{"TotLength", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"I9", "=", RowBox[{"UnitVector", "[", RowBox[{"TotLength", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"I10", "=", RowBox[{"UnitVector", "[", RowBox[{"TotLength", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"I11", "=", RowBox[{"UnitVector", "[", RowBox[{"TotLength", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"I3", "[", RowBox[{"[", "1", "]"}], "]"}], "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"I4", "[", RowBox[{"[", "1", "]"}], "]"}], "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"I5", "[", RowBox[{"[", "1", "]"}], "]"}], "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"I6", "[", RowBox[{"[", "1", "]"}], "]"}], "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"I7", "[", RowBox[{"[", "1", "]"}], "]"}], "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"I8", "[", RowBox[{"[", "1", "]"}], "]"}], "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"I9", "[", RowBox[{"[", "1", "]"}], "]"}], "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"I10", "[", RowBox[{"[", "1", "]"}], "]"}], "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"I11", "[", RowBox[{"[", "1", "]"}], "]"}], "=", "0"}], ";"}]}], "Input", CellChangeTimes->{{3.441372777624343*^9, 3.441372815545825*^9}}] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Coil Resistances", "Subsection", CellChangeTimes->{{3.443181580273239*^9, 3.4431815819651327`*^9}}], Cell["\<\ Theoretical resistances. Measured resistances are typically ~ 20% higher.\ \>", "Text", CellChangeTimes->{{3.443181783777257*^9, 3.4431817997799177`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"R1", "=", RowBox[{ RowBox[{"Resistance", "[", RowBox[{ "rad1", ",", "numRad1", ",", "numAx1", ",", "MOTwireWidth", ",", "MOTwireLength"}], "]"}], "*", "2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"R2", "=", RowBox[{ RowBox[{"Resistance", "[", RowBox[{ "rad2", ",", "numRad2", ",", "numAx2", ",", "HwireWidth", ",", "HwireLength"}], "]"}], "*", "2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"R3", "=", RowBox[{ RowBox[{"Resistance", "[", RowBox[{ "rad3", ",", "numRad3", ",", "numAx3", ",", "HwireWidth", ",", "HwireLength"}], "]"}], "*", "2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"R4", "=", RowBox[{ RowBox[{"Resistance", "[", RowBox[{ "rad4", ",", "numRad4", ",", "numAx4", ",", "HwireWidth", ",", "HwireLength"}], "]"}], "*", "2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"R5", "=", RowBox[{ RowBox[{"Resistance", "[", RowBox[{ "rad5", ",", "numRad5", ",", "numAx5", ",", "HwireWidth", ",", "HwireLength"}], "]"}], "*", "2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"R6", "=", RowBox[{ RowBox[{"Resistance", "[", RowBox[{ "rad6", ",", "numRad6", ",", "numAx6", ",", "HwireWidth", ",", "HwireLength"}], "]"}], "*", "2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"R7", "=", RowBox[{ RowBox[{"Resistance", "[", RowBox[{ "rad7", ",", "numRad7", ",", "numAx7", ",", "HwireWidth", ",", "HwireLength"}], "]"}], "*", "2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"R8", "=", RowBox[{ RowBox[{"Resistance", "[", RowBox[{ "rad8", ",", "numRad8", ",", "numAx8", ",", "HwireWidth", ",", "HwireLength"}], "]"}], "*", "2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"R9", "=", RowBox[{ RowBox[{"Resistance", "[", RowBox[{ "rad9", ",", "numRad9", ",", "numAx9", ",", "HwireWidth", ",", "HwireLength"}], "]"}], "*", "2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"R10", "=", RowBox[{ RowBox[{"Resistance", "[", RowBox[{ "rad10", ",", "numRad10", ",", "numAx10", ",", "HwireWidth", ",", "HwireLength"}], "]"}], "*", "2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"R11", "=", RowBox[{ RowBox[{"Resistance", "[", RowBox[{ "rad11", ",", "numRad11", ",", "numAx11", ",", "VwireWidth", ",", "VwireLength"}], "]"}], "*", "2"}]}], ";"}]}], "Input", CellChangeTimes->{{3.443181584075428*^9, 3.443181745391254*^9}, { 3.4431818044158688`*^9, 3.443181806549633*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Transport Parameters", "Section", CellChangeTimes->{{3.4432079270298243`*^9, 3.443207933642233*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"gradient", "=", RowBox[{"100", RowBox[{"gauss", "/", "cm"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Aspect", "[", "r_", "]"}], "=", RowBox[{"Piecewise", "[", RowBox[{"{", " ", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1.0", "+", RowBox[{"0.72", RowBox[{"r", "/", RowBox[{"(", RowBox[{"45", "mm"}], ")"}]}]}]}], ",", RowBox[{"0", "\[LessEqual]", " ", "r", "<", RowBox[{"45", "mm"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.72", ",", " ", RowBox[{"r", "\[GreaterEqual]", RowBox[{"45", "mm"}]}]}], "}"}]}], " ", "}"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.443207936132319*^9, 3.443207955404249*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Push Coil - Transport Segment 1", "Section", CellChangeTimes->{{3.427557417391244*^9, 3.4275574212738867`*^9}, { 3.4411221096197567`*^9, 3.441122111491469*^9}, {3.441677481307551*^9, 3.4416774850996943`*^9}}], Cell["\<\ We can adjust the following paramaters of the Push coil: radP - inner radius of the push coil. width and length of the wire. distP - separation of the MOT centre from the inner push coil loop. type of push coil: We can choose either a rectangular, conical or custom \ push coil.\ \>", "Text", CellChangeTimes->{{3.4275574238332644`*^9, 3.427557519898347*^9}}], Cell[CellGroupData[{ Cell["Design Parameters:", "Subsection", CellChangeTimes->{{3.427557617814075*^9, 3.427557625162644*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"distP", "=", RowBox[{"42.5", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"radP", "=", RowBox[{"7.5", "mm"}]}], ";"}]}], "Input", CellChangeTimes->{{3.427557629993005*^9, 3.4275576946367683`*^9}, 3.4275577389188223`*^9, {3.431797821336253*^9, 3.431797822899378*^9}, { 3.4318005895999393`*^9, 3.431800605093213*^9}, {3.4325220375989733`*^9, 3.4325220398784924`*^9}, {3.4325222737352953`*^9, 3.432522274752206*^9}, { 3.432523052645611*^9, 3.43252307225243*^9}, {3.4405203473154707`*^9, 3.440520348979847*^9}, {3.4407856412564087`*^9, 3.440785642503026*^9}, { 3.442256065140553*^9, 3.442256073013311*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Fudge factor", "Subsection", CellChangeTimes->{{3.4325231691265287`*^9, 3.432523178988639*^9}}], Cell["Default is that NumRad1 = 35;", "Text", CellChangeTimes->{{3.432523190830155*^9, 3.432523195637004*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"numRad1", " ", "=", " ", "40"}], ";"}]], "Input", CellChangeTimes->{{3.432523181600211*^9, 3.4325231839496193`*^9}, { 3.432563454400537*^9, 3.43256345487081*^9}, {3.433864326196555*^9, 3.433864327066834*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Custom Push Coil (Conical + Rectangular geometry)", "Subsection", CellChangeTimes->{{3.427557279518165*^9, 3.4275572822736807`*^9}, { 3.427557525386456*^9, 3.42755753127663*^9}, {3.4275575901797647`*^9, 3.427557599476157*^9}}], Cell["\<\ This object defines a push coil that is a combination of a conical geometry \ and a standard rectangular geometry. Input the paramaters according to \ ConicalPush[] and according to PushCoil[] and adjust the distance to \ compensate for the rectangular coil being pushed further away.\ \>", "Text", CellChangeTimes->{{3.427557285639278*^9, 3.427557383785865*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"CustomPush", "[", RowBox[{ "x_", ",", "y_", ",", "z_", ",", "dist_", ",", "I_", ",", "rad_", ",", "wireWidth_", ",", "wireLength_"}], "]"}], ":=", RowBox[{ RowBox[{"ConicalPush", "[", RowBox[{ "x", ",", "y", ",", "z", ",", "dist", ",", "I", ",", "rad", ",", "wireWidth", ",", "wireLength", ",", "5", ",", "4", ",", "2"}], "]"}], "+", RowBox[{"PushCoil", "[", RowBox[{"x", ",", "y", ",", "z", ",", RowBox[{"dist", "+", RowBox[{"4", "*", "wireLength"}]}], ",", "I", ",", "rad", ",", "wireWidth", ",", "wireLength", ",", "11", ",", "4"}], "]"}], "+", RowBox[{"ConicalPush", "[", RowBox[{ "x", ",", "y", ",", "z", ",", "dist", ",", "I", ",", "rad", ",", "wireWidth", ",", "wireLength", ",", "25", ",", "4", ",", "2"}], "]"}], "+", RowBox[{"PushCoil", "[", RowBox[{"x", ",", "y", ",", "z", ",", RowBox[{"dist", "+", RowBox[{"11", "*", "wireLength"}]}], ",", "I", ",", "rad", ",", "wireWidth", ",", "wireLength", ",", "30", ",", "4"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"Rpush", "=", " ", RowBox[{ RowBox[{"Resistance", "[", RowBox[{ "radP", ",", "5", ",", "1", ",", "PwireWidth", ",", "PwireLength"}], "]"}], "+", RowBox[{"Resistance", "[", RowBox[{ "radP", ",", "7", ",", "1", ",", "PwireWidth", ",", "PwireLength"}], "]"}], "+", RowBox[{"Resistance", "[", RowBox[{ "radP", ",", "9", ",", "1", ",", "PwireWidth", ",", "PwireLength"}], "]"}], "+", RowBox[{"Resistance", "[", RowBox[{ "radP", ",", "11", ",", "5", ",", "PwireWidth", ",", "PwireLength"}], "]"}], "+", RowBox[{"Resistance", "[", RowBox[{ "radP", ",", "24", ",", "2", ",", "PwireWidth", ",", "PwireLength"}], "]"}], "+", RowBox[{"Resistance", "[", RowBox[{ "radP", ",", "28", ",", "2", ",", "PwireWidth", ",", "PwireLength"}], "]"}], "+", RowBox[{"Resistance", "[", RowBox[{ "radP", ",", "30", ",", "4", ",", "PwireWidth", ",", "PwireLength"}], "]"}]}]}]}], "Input", CellChangeTimes->{{3.436385922563961*^9, 3.4363859240020247`*^9}, { 3.436385965163478*^9, 3.4363860743712883`*^9}, {3.436386596675852*^9, 3.43638659771351*^9}, {3.436395560047887*^9, 3.436395560996007*^9}, { 3.43639653843814*^9, 3.436396539267775*^9}, {3.436396854688286*^9, 3.436396855213888*^9}, {3.4363971052564287`*^9, 3.436397105646182*^9}, { 3.436397225164123*^9, 3.4363972257616463`*^9}, {3.4363974745961246`*^9, 3.43639747478617*^9}, {3.436398669179903*^9, 3.436398670016777*^9}, { 3.4364497006581917`*^9, 3.436449742480866*^9}, {3.436449774738982*^9, 3.436449798193808*^9}, {3.436450128356676*^9, 3.436450157316594*^9}, { 3.4364502681142797`*^9, 3.4364502685119534`*^9}, {3.4364503866091337`*^9, 3.4364504219497137`*^9}, {3.436450744816639*^9, 3.436450756375676*^9}, { 3.440421096870842*^9, 3.440421097489963*^9}, {3.440510216470921*^9, 3.440510228829232*^9}, {3.440785577794245*^9, 3.440785616069352*^9}, { 3.442257265873695*^9, 3.44225726652843*^9}, {3.4431813431441708`*^9, 3.443181386916234*^9}, {3.443181838507572*^9, 3.443181939492806*^9}, { 3.443182082878848*^9, 3.443182083549814*^9}}], Cell[BoxData["0.2680094064651974`"], "Output", CellChangeTimes->{3.443181939882708*^9, 3.44318208560576*^9, 3.44318276119033*^9, 3.443183773260673*^9, 3.4431944885884953`*^9, 3.443207986835781*^9, 3.4432080722600813`*^9, 3.443273236000785*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Coil Definition", "Subsection", CellChangeTimes->{{3.424789285638125*^9, 3.42478928884125*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"Push", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "ampsPush_"}], "]"}], ":=", " ", RowBox[{"CustomPush", "[", RowBox[{ "x", ",", "y", ",", "z", ",", "distP", ",", "ampsPush", ",", "radP", ",", "PwireWidth", ",", "PwireLength"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coil1", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "amps1_"}], "]"}], ":=", RowBox[{"Coil", "[", RowBox[{"x", ",", RowBox[{"y", "-", "ydispl1"}], ",", "z", ",", "dist1", ",", "amps1", ",", "rad1", ",", "MOTwireWidth", ",", "MOTwireLength", ",", "numRad1", ",", "numAx1"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coil2", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "amps2_"}], "]"}], ":=", RowBox[{"Coil", "[", RowBox[{"x", ",", RowBox[{"y", "-", "ydispl2"}], ",", "z", ",", "dist2", ",", "amps2", ",", "rad2", ",", "HwireWidth", ",", "HwireLength", ",", "numRad2", ",", "numAx2"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coil3", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "amps3_"}], "]"}], ":=", RowBox[{"Coil", "[", RowBox[{"x", ",", RowBox[{"y", "-", "ydispl3"}], ",", "z", ",", "dist3", ",", "amps3", ",", "rad3", ",", "HwireWidth", ",", "HwireLength", ",", "numRad3", ",", "numAx3"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coil4", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "amps4_"}], "]"}], ":=", RowBox[{"Coil", "[", RowBox[{"x", ",", RowBox[{"y", "-", "ydispl4"}], ",", "z", ",", "dist4", ",", "amps4", ",", "rad4", ",", "HwireWidth", ",", "HwireLength", ",", "numRad4", ",", "numAx4"}], "]"}]}]}], "Input", CellChangeTimes->{{3.4108691929057975`*^9, 3.4108692511714225`*^9}, { 3.4108696083120475`*^9, 3.4108696370776725`*^9}, {3.4108878639057975`*^9, 3.4108878917339225`*^9}, 3.4108880255620475`*^9, {3.4108880572026725`*^9, 3.4108880934839225`*^9}, {3.4108881324057975`*^9, 3.4108881358276725`*^9}, {3.4114971485377502`*^9, 3.4114971533502502`*^9}, {3.4115798687252502`*^9, 3.4115798990846252`*^9}, {3.4115801645377502`*^9, 3.4115801658346252`*^9}, {3.4115850364908752`*^9, 3.4115850513502502`*^9}, {3.4116541353815002`*^9, 3.4116541668815002`*^9}, {3.4116543291315002`*^9, 3.4116543294752502`*^9}, {3.413042775259*^9, 3.41304278797775*^9}, { 3.4130428408215*^9, 3.413042899509*^9}, {3.413042982962125*^9, 3.41304298922775*^9}, {3.41304393541525*^9, 3.4130439359465*^9}, { 3.4130475845715*^9, 3.41304758510275*^9}, {3.4147689327342415`*^9, 3.4147689545786905`*^9}, {3.4157043510358753`*^9, 3.4157043545515003`*^9}, {3.4240142755295*^9, 3.424014280982625*^9}, { 3.424708044607378*^9, 3.424708045091753*^9}, {3.424708516388628*^9, 3.424708547888628*^9}, {3.424789355935*^9, 3.424789362294375*^9}, { 3.424793540700625*^9, 3.42479354259125*^9}, {3.42479373102875*^9, 3.424793804356875*^9}, {3.42479385740375*^9, 3.424793870231875*^9}, { 3.424793962731875*^9, 3.424794012106875*^9}, {3.424794111200625*^9, 3.42479411184125*^9}, {3.42479467331*^9, 3.424794687200625*^9}, { 3.42504874452875*^9, 3.425048750606875*^9}, 3.42504893756*^9, 3.425049003856875*^9, {3.425052076763125*^9, 3.425052080075625*^9}, { 3.42505228456*^9, 3.425052285138125*^9}, {3.425053193700625*^9, 3.42505319734125*^9}, {3.425140953629081*^9, 3.425140955394706*^9}, { 3.425143919457206*^9, 3.425143919832206*^9}, {3.42530989195675*^9, 3.425309893034875*^9}, {3.4253099389255*^9, 3.425309941488*^9}, { 3.42531268476925*^9, 3.425312693941125*^9}, {3.4275484377987127`*^9, 3.427548439150815*^9}, {3.427549179203624*^9, 3.427549180977133*^9}, { 3.427557753123818*^9, 3.427557807078123*^9}, {3.431959729046167*^9, 3.431959734430778*^9}, {3.431959767318501*^9, 3.431959777847219*^9}, { 3.432522576195047*^9, 3.432522576768517*^9}, {3.432522640640594*^9, 3.432522641159569*^9}, {3.43252273720122*^9, 3.4325227374044447`*^9}, { 3.4325227774233923`*^9, 3.4325227782576227`*^9}, {3.432522979857479*^9, 3.432522986718114*^9}, {3.4342027674829407`*^9, 3.434202767818779*^9}, { 3.4342033583019247`*^9, 3.434203358566132*^9}, {3.4342035182972803`*^9, 3.434203518695207*^9}, {3.434203693374236*^9, 3.4342036937433043`*^9}, { 3.4342038767456837`*^9, 3.434203880149901*^9}, {3.4342043595530024`*^9, 3.434204360389633*^9}, {3.434204574074339*^9, 3.434204576586729*^9}, { 3.434204726385235*^9, 3.434204727655446*^9}, {3.4342049825787983`*^9, 3.4342049830998783`*^9}, {3.4363860850199957`*^9, 3.4363861459997807`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Calculation", "Subsection", CellChangeTimes->{{3.427557803876124*^9, 3.4275578048430853`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Clear", " ", "[", RowBox[{ "ypos", ",", "buf", ",", "n", ",", "y0", ",", "yf", ",", "scale", ",", "MagX", ",", "MagY", ",", "MagZ", ",", "curr1", ",", "curr2", ",", "currP"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ampsP", " ", "=", " ", "currP"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amps1", "=", "curr1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amps2", "=", "curr2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amps3", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"amps4", "=", "0"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Unit", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], ":=", RowBox[{ RowBox[{"Push", "[", RowBox[{"x", ",", "y", ",", "z", ",", "ampsP"}], "]"}], "+", RowBox[{"Coil1", "[", RowBox[{"x", ",", "y", ",", "z", ",", "amps1"}], "]"}], "+", RowBox[{"Coil2", "[", RowBox[{"x", ",", "y", ",", "z", ",", "amps2"}], "]"}], "+", RowBox[{"Coil3", "[", RowBox[{"x", ",", "y", ",", "z", ",", "amps3"}], "]"}], "+", RowBox[{"Coil4", "[", RowBox[{"x", ",", "y", ",", "z", ",", "amps4"}], "]"}]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"xComp", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{ RowBox[{"Unit", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"yComp", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{ RowBox[{"Unit", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"zComp", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{ RowBox[{"Unit", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "[", RowBox[{"[", "3", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GxComp", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{ SubscriptBox["\[PartialD]", "x"], RowBox[{"xComp", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GyComp", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{ SubscriptBox["\[PartialD]", "y"], RowBox[{"yComp", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"GzComp", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{ SubscriptBox["\[PartialD]", "z"], RowBox[{"zComp", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}]}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", " ", "=", " ", "44"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y0", "=", " ", RowBox[{"1", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"yf", " ", "=", " ", RowBox[{"44", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"scale", " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"yf", "-", "y0"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"buf", " ", "=", " ", RowBox[{"UnitVector", "[", RowBox[{"n", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"asp", " ", "=", " ", RowBox[{"UnitVector", "[", RowBox[{"n", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "0"}], ",", RowBox[{"i", "<", "n"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"ypos", " ", "=", " ", RowBox[{"y0", "+", RowBox[{"scale", "*", "i"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"sol", " ", "=", " ", RowBox[{"Solve", " ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"yComp", "[", RowBox[{"zero", ",", "ypos", ",", "zero"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"GzComp", "[", RowBox[{"zero", ",", "ypos", ",", "zero"}], "]"}], "\[Equal]", "gradient"}], ",", RowBox[{ FractionBox[ RowBox[{"GxComp", "[", RowBox[{"zero", ",", "ypos", ",", "zero"}], "]"}], RowBox[{"GyComp", "[", RowBox[{"zero", ",", "ypos", ",", "zero"}], "]"}]], "\[Equal]", RowBox[{"Aspect", "[", "ypos", "]"}]}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"curr1", ",", " ", "curr2", ",", "currP"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"buf", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], " ", "=", " ", RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"asp", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "=", RowBox[{"Aspect", "[", "ypos", "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"CurrP", " ", "=", " ", RowBox[{"currP", "/.", "buf"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Curr1", " ", "=", " ", RowBox[{"curr1", "/.", "buf"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Curr2", " ", "=", " ", RowBox[{"curr2", "/.", "buf"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", " ", "=", " ", "0"}], ",", " ", RowBox[{"i", "<", "n"}], ",", RowBox[{"i", "++"}], ",", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"I1", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "=", RowBox[{"Curr1", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"I2", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "=", RowBox[{"Curr2", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"IP", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "=", RowBox[{"CurrP", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"I3", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "=", "0"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"I4", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "=", "0"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"I5", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "=", "0"}], ";"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"Curr1", ",", "Curr2", ",", "CurrP"}], "}"}], ",", RowBox[{"DataRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"y0", "*", "1000"}], ",", RowBox[{ RowBox[{"(", RowBox[{"y0", "+", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}], "*", "scale"}]}], ")"}], "*", "1000"}]}], "}"}]}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"y0", "*", "1000"}], ",", "0"}], "}"}]}], ",", RowBox[{"PlotMarkers", "\[Rule]", RowBox[{"{", RowBox[{"Automatic", ",", "Small"}], "}"}]}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotLabel", "\[Rule]", "\"\\""}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}]}], "Input", CellChangeTimes->{{3.424794846638125*^9, 3.424795033419375*^9}, { 3.4247952409975*^9, 3.4247952994975*^9}, {3.424795401575625*^9, 3.424795403138125*^9}, {3.424795508919375*^9, 3.42479551006*^9}, { 3.42479560059125*^9, 3.42479568802875*^9}, {3.424796194185*^9, 3.42479622109125*^9}, {3.424796345856875*^9, 3.4247963796225*^9}, { 3.424799205356875*^9, 3.4247992094975*^9}, {3.424799415481875*^9, 3.42479941565375*^9}, {3.424799600919375*^9, 3.424799612825625*^9}, { 3.4247996814975*^9, 3.424799686356875*^9}, {3.424799847013125*^9, 3.42479985396625*^9}, {3.425044396138125*^9, 3.42504440177875*^9}, 3.4250446944975*^9, {3.42504483252875*^9, 3.42504489046625*^9}, { 3.42504494815375*^9, 3.42504499659125*^9}, {3.425052742794375*^9, 3.425052768794375*^9}, 3.42505291606*^9, {3.425146476738456*^9, 3.425146492550956*^9}, {3.425146874222831*^9, 3.425146874941581*^9}, { 3.425306681503625*^9, 3.425306686816125*^9}, {3.425311146534875*^9, 3.4253112353005*^9}, {3.425311319238*^9, 3.425311322847375*^9}, { 3.42531273214425*^9, 3.42531275320675*^9}, {3.425313256472375*^9, 3.425313257488*^9}, {3.425313288566125*^9, 3.425313289222375*^9}, 3.42565147825*^9, {3.425658336640625*^9, 3.425658352046875*^9}, { 3.4256584149375*^9, 3.425658423671875*^9}, {3.42565847684375*^9, 3.425658480296875*^9}, {3.42565853471875*^9, 3.42565853840625*^9}, 3.427652733232007*^9, {3.4276530609284573`*^9, 3.427653061947754*^9}, { 3.432523452809812*^9, 3.432523501924593*^9}, {3.432563448739462*^9, 3.432563449857027*^9}, {3.433864207548109*^9, 3.433864208716193*^9}, { 3.4404342365420523`*^9, 3.44043424244471*^9}, {3.441122176941136*^9, 3.4411221973153133`*^9}, {3.443183735598383*^9, 3.443183738421411*^9}, { 3.443194426474124*^9, 3.443194431722164*^9}, {3.443194469008045*^9, 3.44319448440317*^9}, {3.44320797477629*^9, 3.44320797544141*^9}, { 3.443208051709021*^9, 3.443208053778639*^9}}], Cell[BoxData[ GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJzt1vs31HkYB/DJpaYQFbI1R0hDs1PjMgyD5o0Z19qVTopajaQbSUVW2kW6 0OVsbK1LK8fGrlWoPW1buupCbRfblga10Qppbcmi0nbs7Ho+8/P+AfP9Zc5r 3t/LmTnv53se6+XrQ2N0OBwOdxSH8+/nyNErC6/p8hi+4AT6Avv9M7wO3Wbm YtOuO3VhzcwmyON1p5r9zmyKknump+u7mC1QZD6hYu1zZh74fDNfrsZWWMAr 7zvVyWwD6PfMLGhjtkWC55WSRypmPgwmZyjP3GK2R2/mkc8SLjILsPulsjTo OLMQxlW5i78qdsKo/zwbe+L26X27j+UOOK462Hx7C7MjghN2fBG1itkJZpcz J/6wgNkZ05oMRQZgFiNy89q5J4TMLoiK6fBt/YDZFev1X0ReHcMsQfoenfRt g44Y/u+Q4HDLswRhpyPl7khfeEB+9QGzFHJXt6Pu15k98HNBrs7qGmZP/CrK uDup0pF+nxcMH+u6dxWzfA5U4gfVcbnMMgTrG40fs509Xwa97MqEjk2UpwMZ M0uqe5XsfG/wC2suVwWy3BvRjee45kKW+8D1yKU+hT7LfdC0x2HsxLsOlPsi 1di/TZpNTveFUfu1N+NsWS5Hn8pwaex0EeVyLMy9Z9W9bhblCuQvK/QqqRVQ rkByY+2kvEA+5X7QFe5V/dgzldwrky+sMJ41y5zMQUCckXuP4wwyF51V1tvb omeTTXDSoj1iV6Qz2RTx12zaU/gSsgXsTJtyuDlSMg+ncSBCv8yLbIVhxVHb BDHINqiOi3UP3+BNtkWpalHe9L0+ZD4cmus7cnb5ku3xYaVxv99KOVmAigUG wdcFCrIQlx/6iNNVCk1/H1YlKy7G+1HugAuOaz4/38fsiLOro0YfivEnOyFr XFme8gazM+5HWJYPTwsgizHcEKkMjWV2QcSM6YlTK5ldEdZf8Eq/i1mCE93b LcumBGr6W91xJjUxMJBydxQP7+A2JTJLYdkkbuMdZvbAoVDdeVvqmD1xLGRg 3aSXgZr+2lXeynlrEUT5HFQs7tsoUjDLYF03mFOZGKTp796rPMPV5ZSr+1vn x8sMe8LO90ZblMAozSqYcm88XZJ8T38VWd3flq3nAuSnWO6D/JT4kD+N51Lu i++zzhYHbCar+9txJTyksIflcrzNH9j/NHke5XIcOJudssHqI8oVeK0q+nvu AFnd3y8LY9LKx4VQ7gc9QUuAbidzr+zrkEubD+q1ykbMwZ3ubWHzNvaSuQiz ClaKeENkE6Q2HBMnRevQ9aZIOhaewPXiki0QwrWIXXp4PJmHiPqbFSuuTSRb oV4Zv6Z2G5sXG2TuH+t3P2sK2RZ/jc0cLWy2JPNR/UtrSXWNNdkeIa5Jot0i W7IAdYG3L+neYvMpxE7bnNrROTM1/a0qNfXOThNS7oBllad2ZufT/Kv761Zt +FNmPHu/OCGqeIfZez6bT2ekti+fZj0oJothIFlyM/iRK9kFUv9X7840u5Fd 0W/eMLT1BZtfCbIeYXHcFC9Nfyfzw13MP5FR7g6+KLr9QQubZyke17w+lzrB h+yB2PS0K/nz2fx64viQycp3BXJNf2+8uS8x7GbzOwfv16xSnvRk8yeDNPIP pSQ3QNPf85OfZA510Dyo+7t0fGGKyJn10xs7fzN3mb+J9c8btdJnLWFF1Dd1 f4d0rr+JLWX98sFpvdbvGpM+ptwXbkFOz5cMkNX9DXOLaGgbZLkcRfb+nW5O LJcj61WOnULA7q9AQWjjN6n9NP/q/jqs4ETWlLH/xw88u0Vxjz/tvThi7f6g 3R+0+4N2f9DuDyO5dn/Q7g/a/eH/7A//AJCIag8= "], { {Hue[0.67, 0.6, 0.6], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 133], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 134], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 135], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 136], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 137], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 138], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 139], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 140], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 141], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 142], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 143], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 144], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 145], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 146], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 147], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 148], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 149], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 150], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 151], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 152], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 153], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 154], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 155], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 156], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 157], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 158], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 159], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 160], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 161], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 162], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 163], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 164], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 165], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 166], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 167], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 168], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 169], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 170], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 171], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 172], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 173], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 174], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 175], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 176]}, {Hue[0.9060679774997897, 0.6, 0.6], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 177], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 178], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 179], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 180], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 181], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 182], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 183], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 184], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 185], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 186], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 187], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 188], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 189], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 190], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 191], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 192], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 193], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 194], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 195], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 196], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 197], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 198], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 199], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 200], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 201], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 202], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 203], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 204], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 205], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 206], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 207], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 208], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 209], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 210], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 211], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 212], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 213], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 214], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 215], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 216], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 217], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 218], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 219], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 220]}, {Hue[0.1421359549995791, 0.6, 0.6], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 221], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 222], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 223], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 224], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 225], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 226], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 227], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 228], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 229], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 230], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 231], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 232], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 233], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 234], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 235], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 236], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 237], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 238], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 239], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 240], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 241], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 242], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 243], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 244], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 245], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 246], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 247], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 248], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 249], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 250], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 251], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 252], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 253], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 254], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 255], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 256], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 257], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 258], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 259], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 260], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 261], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 262], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 263], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 264]}, {}}], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["\"y (mm)\"", TraditionalForm], FormBox["\"I (A)\"", TraditionalForm]}, AxesOrigin->{1, 0}, ImageSize->400, PlotLabel->FormBox["\"Push-MOT Current Regime\"", TraditionalForm], PlotRange->{{0., 44.}, {-1.0295089942978342`, 67.59395047478762}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", Evaluatable->False, CellChangeTimes->{3.4342145796800823`*^9, 3.434385202004236*^9, 3.436386197656507*^9, 3.436386651213832*^9, 3.436395613556868*^9, 3.436396817504443*^9, 3.4363969126714*^9, 3.4363971792293*^9, 3.436397300430133*^9, 3.436397559830633*^9, 3.436398752391986*^9, 3.436449865788514*^9, 3.436450221673046*^9, 3.436450329516295*^9, 3.436450489105962*^9, 3.4364508144356947`*^9, 3.440421240342807*^9, 3.440433992439755*^9, 3.4405102804636908`*^9, 3.4405203924137697`*^9, 3.440785677635889*^9, 3.441114949414207*^9, 3.4411222459797983`*^9, 3.441128892017138*^9, 3.4411522768329477`*^9, 3.441677169918887*^9, 3.4416804488264503`*^9, 3.44171392709299*^9, 3.441716541873864*^9, 3.441817346803617*^9, 3.442255632878783*^9, 3.442255917872335*^9, 3.442256121249511*^9, 3.442257407253626*^9, 3.442261511598783*^9, 3.442325288977309*^9, 3.4431811599229317`*^9, 3.443181255604485*^9, 3.443181425605303*^9, 3.4431827931559067`*^9, 3.443183803875031*^9, 3.4431944630421143`*^9, 3.443194520863613*^9, 3.443208020248549*^9, 3.443208103966172*^9, 3.443273266589079*^9}, ImageSize->{400., -0.0625}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"TotCurrent", "=", RowBox[{"IP", "+", "I1", "+", "I2", "+", "I3", "+", "I4", "+", "I5"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Ppush", "=", RowBox[{ SuperscriptBox["IP", "2"], "*", "Rpush"}]}], ";"}]}], "Input", CellChangeTimes->{{3.441122030666716*^9, 3.4411220413190317`*^9}, { 3.443182067290431*^9, 3.443182093595127*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Max", "[", "TotCurrent", "]"}]], "Input", CellChangeTimes->{{3.44167717616908*^9, 3.441677180760222*^9}}], Cell[BoxData["137.91798735732618`"], "Output", CellChangeTimes->{3.4416771812914867`*^9, 3.441680448975164*^9, 3.4417139273394537`*^9, 3.441716542023644*^9, 3.441817346944927*^9, 3.4422556333257847`*^9, 3.4422559179799767`*^9, 3.442256121707685*^9, 3.4422574074494534`*^9, 3.4422615116959057`*^9, 3.4423252891333427`*^9, 3.44318116008396*^9, 3.443181255903092*^9, 3.443181425769279*^9, 3.443182793261815*^9, 3.4431838040903378`*^9, 3.443194521076561*^9, 3.4432080204372377`*^9, 3.443208104113288*^9, 3.4432732667311287`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Mean", "[", "Ppush", "]"}]], "Input", CellChangeTimes->{{3.443182126685902*^9, 3.443182132096582*^9}}], Cell[BoxData["42.59978101281493`"], "Output", CellChangeTimes->{3.443182132756592*^9, 3.443182793308096*^9, 3.443183804174917*^9, 3.443194521170271*^9, 3.443208020622324*^9, 3.443208104153035*^9, 3.443273266783021*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Clear", "[", "Pstage1", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Pstage1", "=", RowBox[{ RowBox[{ SuperscriptBox["CurrP", "2"], "*", "Rpush"}], "+", RowBox[{ SuperscriptBox["Curr1", "2"], "*", "R1"}], "+", RowBox[{ SuperscriptBox["Curr2", "2"], "*", "R2"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Max", "[", "Pstage1", "]"}], "\[IndentingNewLine]", RowBox[{"Mean", "[", "Pstage1", "]"}]}], "Input", CellChangeTimes->{{3.443183493646551*^9, 3.443183533140491*^9}, { 3.4431835789813643`*^9, 3.44318358409748*^9}, {3.443183654197153*^9, 3.4431836834595413`*^9}}], Cell[BoxData["1327.2196135298746`"], "Output", CellChangeTimes->{ 3.443183534736319*^9, {3.443183670624605*^9, 3.4431836841271553`*^9}, 3.443183804260548*^9, 3.443194521235978*^9, 3.44320802078115*^9, 3.4432081042222443`*^9, 3.443273266834119*^9}], Cell[BoxData["539.4600252444226`"], "Output", CellChangeTimes->{ 3.443183534736319*^9, {3.443183670624605*^9, 3.4431836841271553`*^9}, 3.443183804260548*^9, 3.443194521235978*^9, 3.44320802078115*^9, 3.4432081042222443`*^9, 3.443273266839047*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{"TotCurrent", ",", RowBox[{ "PlotLabel", "\[Rule]", "\"\\""}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "50"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "150"}], "}"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.440433863096459*^9, 3.440433920590934*^9}, { 3.440434005472899*^9, 3.4404341123054037`*^9}, {3.443182017999486*^9, 3.443182057201667*^9}}], Cell[BoxData[ GraphicsBox[ {Hue[0.67, 0.6, 0.6], PointBox[CompressedData[" 1:eJxd0m9oVXUcx/GvgWgFeWMJJiNuasvGspta6trmd+5PatPdubnpnNvPOee0 Te90qfSgfg+Mxii79KwH1ZlKGf3xRpBZID+IDCrigrNAsE5gTcgHVyiD/mCE v0P83ufJ4XXeHD7ncM79/fs37bpNRIZmiPx3vnWUVl/Lvn+x5/xK9Re0rSr3 yMcjdd6z9dDsAzePflfvndI3pgvnXmhu9L5HW3dPdlyfaPaep9Nz3xp48+21 3uXaXbVkYFm03jut9emHv154pMV7gfZNLuhySzd6L9L539++Z8WFVu8KHa3S 1Rs+yHov1p7evh9LQ23elVo6dqb5j/mbvKv0Ru2R8fNfJF6iFV/OaPl0b7t3 Rg9fyQ0uvLPD+1Gtq7k41Xwq8VKdvDw1t6dhs/cybSt/d3ricuLl2n0hfejq 4U7vx3SqdtYdY2Vd3o9rY31Na9mHiVfopY3tTcfatniv1JkHR6Ynfk+8Sj9/ 794Xx1/f6l2tc7oGzl5a1+39hN6Y88v4iT8T1+jx0Z2935ze5l2rz35190d/ D/V41+nEvuNzX35gu/dqte2/1YxdSaw6mK08WXmy95at6vWxhsrn+/t8r9f7 Tkxffegu43u9dtrT114b9JY12rP87LcdZ5K+RueMrrr56l9Jb9BTnUefS1Xt 8L1Bc5/NfNDUekuj/vzPK2XnypPeqMOLOqpfeie5v0mrfxo+PG+Dfx7bpN2z fsh/UpG8b7Muzk9W/drvv69N/rvkeDK0hWUtOizr0GFZjw7LU+iwtKDDsgEd lo3osLSiw5INrbCFHSxtoRW2sINlU2iFLexgaQ+tsIUdLB2hFbawg2VzaIUt 7GDpDK2whR0sXaEVtrCDZUtohS3sYNkaWmELO1i6QytsYQfLttAKW9jB0hNa YQs7WLaHVtjCDpZe3A9b2MHSF1phCztYTOg0rLCBLRzBDo5h2RE6DStsYAtH sINjWPqxDytsYAtHsINjWHZiH1bYwBaOYAfHsAxgH1bYwBaOYAfHsOzCPqyw gS0cwQ6OYRnEPqywgS0cwQ6OYdmNfVhhA1s4gh0cwzKEfVhhA1s4gh0cw7IH +7DCBrZwBDs4hmUv9mGFDWzhCHZwDMvT2IcVNrCFI9jBMSzD2IcVNrCFI9jB MSwj2IcVNrCFI9jBMSz7sA8rbGALR7CDY1j2Yx9W2MAWjmAHx7DkQqfgNJyB Fc7CBs7BFs7DEVyAHVyEY7gEy2joFJyGM7DCWdjAOdjCeTiCC7CDi3AMl2A5 EDoFp+EMrHAWNnAOtnAejuAC7OAiHMMlWA6GTsFpOAMrnIUNnIMtnIcjuAA7 uAjHcAmWsdApOA1nYIWzsIFzsIXzcAQXYAcX4RguwfJM6BSchjOwwlnYwDnY wnk4gguwg4twDJdgORQ6BafhDKxwFjZwDrb/+1/EbAJI "]]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["\"y (mm)\"", TraditionalForm], FormBox["\"Current(A)\"", TraditionalForm]}, AxesOrigin->{0, Automatic}, ImageSize->400, PlotLabel->FormBox[ "\"Total Current in IP,I1,I2 Channels\"", TraditionalForm], PlotRange->{{0, 50}, {0, 150}}, PlotRangeClipping->True]], "Output", CellChangeTimes->{{3.4404338706928463`*^9, 3.4404339093366947`*^9}, { 3.4404339927742643`*^9, 3.440434018048895*^9}, {3.440434093418631*^9, 3.440434113077877*^9}, 3.440510280901784*^9, 3.440520393190773*^9, 3.4407856782923937`*^9, 3.441114950142436*^9, 3.4411222461642313`*^9, 3.441128892181224*^9, 3.441152277037891*^9, 3.4416771702114973`*^9, 3.441680449028656*^9, 3.4417139274253407`*^9, 3.441716542059043*^9, 3.441817347007284*^9, 3.44225563342767*^9, 3.442255918040278*^9, 3.442256121809785*^9, 3.442257407509404*^9, 3.442261511730382*^9, 3.4423252891914988`*^9, 3.443181160124744*^9, 3.443181255962524*^9, 3.4431814258107157`*^9, 3.4431820581708727`*^9, 3.443182793356683*^9, 3.4431838044313498`*^9, 3.443194521385215*^9, 3.4432080212770033`*^9, 3.443208104256441*^9, 3.443273266884053*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Correction to Fudge factor", "Subsection", CellChangeTimes->{{3.4325231691265287`*^9, 3.432523178988639*^9}, { 3.441122086728032*^9, 3.4411220883336983`*^9}}], Cell["Default is that NumRad1 = 33;", "Text", CellChangeTimes->{{3.432523190830155*^9, 3.432523195637004*^9}, { 3.44167713381674*^9, 3.441677133961087*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"numRad1", " ", "=", " ", "33"}], ";"}]], "Input", CellChangeTimes->{{3.432523181600211*^9, 3.4325231839496193`*^9}, { 3.432563454400537*^9, 3.43256345487081*^9}, {3.433864326196555*^9, 3.433864327066834*^9}, {3.441122091223893*^9, 3.4411220916703377`*^9}, { 3.441677130848419*^9, 3.441677131025339*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Transport Segment 2", "Section", CellChangeTimes->{{3.427557417391244*^9, 3.4275574212738867`*^9}, { 3.4411221096197567`*^9, 3.441122111491469*^9}, {3.441122508437797*^9, 3.441122511640093*^9}, {3.441677475061776*^9, 3.4416774780758343`*^9}}], Cell["Segment 1 - MOT & Coils 2 - 3.", "Text", CellChangeTimes->{{3.4275574238332644`*^9, 3.427557519898347*^9}, { 3.441122709553803*^9, 3.441122723090308*^9}}], Cell[CellGroupData[{ Cell["Coil Definition", "Subsection", CellChangeTimes->{{3.424789285638125*^9, 3.42478928884125*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"Push", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "ampsPush_"}], "]"}], ":=", " ", RowBox[{"CustomPush", "[", RowBox[{ "x", ",", "y", ",", "z", ",", "distP", ",", "ampsPush", ",", "radP", ",", "PwireWidth", ",", "PwireLength"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coil1", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "amps1_"}], "]"}], ":=", RowBox[{"Coil", "[", RowBox[{"x", ",", RowBox[{"y", "-", "ydispl1"}], ",", "z", ",", "dist1", ",", "amps1", ",", "rad1", ",", "MOTwireWidth", ",", "MOTwireLength", ",", "numRad1", ",", "numAx1"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coil2", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "amps2_"}], "]"}], ":=", RowBox[{"Coil", "[", RowBox[{"x", ",", RowBox[{"y", "-", "ydispl2"}], ",", "z", ",", "dist2", ",", "amps2", ",", "rad2", ",", "HwireWidth", ",", "HwireLength", ",", "numRad2", ",", "numAx2"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coil3", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "amps3_"}], "]"}], ":=", RowBox[{"Coil", "[", RowBox[{"x", ",", RowBox[{"y", "-", "ydispl3"}], ",", "z", ",", "dist3", ",", "amps3", ",", "rad3", ",", "HwireWidth", ",", "HwireLength", ",", "numRad3", ",", "numAx3"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coil4", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "amps4_"}], "]"}], ":=", RowBox[{"Coil", "[", RowBox[{"x", ",", RowBox[{"y", "-", "ydispl4"}], ",", "z", ",", "dist4", ",", "amps4", ",", "rad4", ",", "HwireWidth", ",", "HwireLength", ",", "numRad4", ",", "numAx4"}], "]"}]}]}], "Input", CellChangeTimes->{{3.4108691929057975`*^9, 3.4108692511714225`*^9}, { 3.4108696083120475`*^9, 3.4108696370776725`*^9}, {3.4108878639057975`*^9, 3.4108878917339225`*^9}, 3.4108880255620475`*^9, {3.4108880572026725`*^9, 3.4108880934839225`*^9}, {3.4108881324057975`*^9, 3.4108881358276725`*^9}, {3.4114971485377502`*^9, 3.4114971533502502`*^9}, {3.4115798687252502`*^9, 3.4115798990846252`*^9}, {3.4115801645377502`*^9, 3.4115801658346252`*^9}, {3.4115850364908752`*^9, 3.4115850513502502`*^9}, {3.4116541353815002`*^9, 3.4116541668815002`*^9}, {3.4116543291315002`*^9, 3.4116543294752502`*^9}, {3.413042775259*^9, 3.41304278797775*^9}, { 3.4130428408215*^9, 3.413042899509*^9}, {3.413042982962125*^9, 3.41304298922775*^9}, {3.41304393541525*^9, 3.4130439359465*^9}, { 3.4130475845715*^9, 3.41304758510275*^9}, {3.4147689327342415`*^9, 3.4147689545786905`*^9}, {3.4157043510358753`*^9, 3.4157043545515003`*^9}, {3.4240142755295*^9, 3.424014280982625*^9}, { 3.424708044607378*^9, 3.424708045091753*^9}, {3.424708516388628*^9, 3.424708547888628*^9}, {3.424789355935*^9, 3.424789362294375*^9}, { 3.424793540700625*^9, 3.42479354259125*^9}, {3.42479373102875*^9, 3.424793804356875*^9}, {3.42479385740375*^9, 3.424793870231875*^9}, { 3.424793962731875*^9, 3.424794012106875*^9}, {3.424794111200625*^9, 3.42479411184125*^9}, {3.42479467331*^9, 3.424794687200625*^9}, { 3.42504874452875*^9, 3.425048750606875*^9}, 3.42504893756*^9, 3.425049003856875*^9, {3.425052076763125*^9, 3.425052080075625*^9}, { 3.42505228456*^9, 3.425052285138125*^9}, {3.425053193700625*^9, 3.42505319734125*^9}, {3.425140953629081*^9, 3.425140955394706*^9}, { 3.425143919457206*^9, 3.425143919832206*^9}, {3.42530989195675*^9, 3.425309893034875*^9}, {3.4253099389255*^9, 3.425309941488*^9}, { 3.42531268476925*^9, 3.425312693941125*^9}, {3.4275484377987127`*^9, 3.427548439150815*^9}, {3.427549179203624*^9, 3.427549180977133*^9}, { 3.427557753123818*^9, 3.427557807078123*^9}, {3.431959729046167*^9, 3.431959734430778*^9}, {3.431959767318501*^9, 3.431959777847219*^9}, { 3.432522576195047*^9, 3.432522576768517*^9}, {3.432522640640594*^9, 3.432522641159569*^9}, {3.43252273720122*^9, 3.4325227374044447`*^9}, { 3.4325227774233923`*^9, 3.4325227782576227`*^9}, {3.432522979857479*^9, 3.432522986718114*^9}, {3.4342027674829407`*^9, 3.434202767818779*^9}, { 3.4342033583019247`*^9, 3.434203358566132*^9}, {3.4342035182972803`*^9, 3.434203518695207*^9}, {3.434203693374236*^9, 3.4342036937433043`*^9}, { 3.4342038767456837`*^9, 3.434203880149901*^9}, {3.4342043595530024`*^9, 3.434204360389633*^9}, {3.434204574074339*^9, 3.434204576586729*^9}, { 3.434204726385235*^9, 3.434204727655446*^9}, {3.4342049825787983`*^9, 3.4342049830998783`*^9}, {3.4363860850199957`*^9, 3.4363861459997807`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Calculation", "Subsection", CellChangeTimes->{{3.427557803876124*^9, 3.4275578048430853`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Clear", " ", "[", RowBox[{ "ypos", ",", "buf", ",", "n", ",", "y0", ",", "yf", ",", "scale", ",", "MagX", ",", "MagY", ",", "MagZ", ",", "curr1", ",", "curr2", ",", "currP", ",", "curr3"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ampsP", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amps1", "=", "curr1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amps2", "=", "curr2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amps3", "=", "curr3"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"amps4", "=", "0"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Unit", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], ":=", RowBox[{ RowBox[{"Push", "[", RowBox[{"x", ",", "y", ",", "z", ",", "ampsP"}], "]"}], "+", RowBox[{"Coil1", "[", RowBox[{"x", ",", "y", ",", "z", ",", "amps1"}], "]"}], "+", RowBox[{"Coil2", "[", RowBox[{"x", ",", "y", ",", "z", ",", "amps2"}], "]"}], "+", RowBox[{"Coil3", "[", RowBox[{"x", ",", "y", ",", "z", ",", "amps3"}], "]"}], "+", RowBox[{"Coil4", "[", RowBox[{"x", ",", "y", ",", "z", ",", "amps4"}], "]"}]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"xComp", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{ RowBox[{"Unit", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"yComp", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{ RowBox[{"Unit", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"zComp", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{ RowBox[{"Unit", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "[", RowBox[{"[", "3", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GxComp", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{ SubscriptBox["\[PartialD]", "x"], RowBox[{"xComp", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GyComp", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{ SubscriptBox["\[PartialD]", "y"], RowBox[{"yComp", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"GzComp", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{ SubscriptBox["\[PartialD]", "z"], RowBox[{"zComp", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}]}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", " ", "=", " ", "23"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y0", "=", " ", RowBox[{"45", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"yf", " ", "=", " ", RowBox[{"67", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"scale", " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"yf", "-", "y0"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"buf", " ", "=", " ", RowBox[{"UnitVector", "[", RowBox[{"n", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"asp", " ", "=", " ", RowBox[{"UnitVector", "[", RowBox[{"n", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "0"}], ",", RowBox[{"i", "<", "n"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"ypos", " ", "=", " ", RowBox[{"y0", "+", RowBox[{"scale", "*", "i"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"sol", " ", "=", " ", RowBox[{"Solve", " ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"yComp", "[", RowBox[{"zero", ",", "ypos", ",", "zero"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"GzComp", "[", RowBox[{"zero", ",", "ypos", ",", "zero"}], "]"}], "\[Equal]", "gradient"}], ",", RowBox[{ FractionBox[ RowBox[{"GxComp", "[", RowBox[{"zero", ",", "ypos", ",", "zero"}], "]"}], RowBox[{"GyComp", "[", RowBox[{"zero", ",", "ypos", ",", "zero"}], "]"}]], "\[Equal]", RowBox[{"Aspect", "[", "ypos", "]"}]}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"curr1", ",", " ", "curr2", ",", "curr3"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"buf", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], " ", "=", " ", RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"asp", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "=", RowBox[{"Aspect", "[", "ypos", "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Curr1", " ", "=", " ", RowBox[{"curr1", "/.", "buf"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Curr2", " ", "=", " ", RowBox[{"curr2", "/.", "buf"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Curr3", " ", "=", " ", RowBox[{"curr3", "/.", "buf"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", " ", "=", " ", "0"}], ",", " ", RowBox[{"i", "<", "n"}], ",", RowBox[{"i", "++"}], ",", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"I1", "[", RowBox[{"[", RowBox[{"i", "+", "45"}], "]"}], "]"}], "=", RowBox[{"Curr1", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"I2", "[", RowBox[{"[", RowBox[{"i", "+", "45"}], "]"}], "]"}], "=", RowBox[{"Curr2", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"I3", "[", RowBox[{"[", RowBox[{"i", "+", "45"}], "]"}], "]"}], "=", RowBox[{"Curr3", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"IP", "[", RowBox[{"[", RowBox[{"i", "+", "45"}], "]"}], "]"}], "=", "0"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"I4", "[", RowBox[{"[", RowBox[{"i", "+", "45"}], "]"}], "]"}], "=", "0"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"I5", "[", RowBox[{"[", RowBox[{"i", "+", "45"}], "]"}], "]"}], "=", "0"}], ";"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"Curr1", ",", "Curr2", ",", "Curr3"}], "}"}], ",", RowBox[{"DataRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"y0", "*", "1000"}], ",", RowBox[{ RowBox[{"(", RowBox[{"y0", "+", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}], "*", "scale"}]}], ")"}], "*", "1000"}]}], "}"}]}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"y0", "*", "1000"}], ",", "0"}], "}"}]}], ",", RowBox[{"PlotMarkers", "\[Rule]", RowBox[{"{", RowBox[{"Automatic", ",", "Small"}], "}"}]}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotLabel", "\[Rule]", "\"\\""}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}]}], "Input", CellChangeTimes->{{3.424794846638125*^9, 3.424795033419375*^9}, { 3.4247952409975*^9, 3.4247952994975*^9}, {3.424795401575625*^9, 3.424795403138125*^9}, {3.424795508919375*^9, 3.42479551006*^9}, { 3.42479560059125*^9, 3.42479568802875*^9}, {3.424796194185*^9, 3.42479622109125*^9}, {3.424796345856875*^9, 3.4247963796225*^9}, { 3.424799205356875*^9, 3.4247992094975*^9}, {3.424799415481875*^9, 3.42479941565375*^9}, {3.424799600919375*^9, 3.424799612825625*^9}, { 3.4247996814975*^9, 3.424799686356875*^9}, {3.424799847013125*^9, 3.42479985396625*^9}, {3.425044396138125*^9, 3.42504440177875*^9}, 3.4250446944975*^9, {3.42504483252875*^9, 3.42504489046625*^9}, { 3.42504494815375*^9, 3.42504499659125*^9}, {3.425052742794375*^9, 3.425052768794375*^9}, 3.42505291606*^9, {3.425146476738456*^9, 3.425146492550956*^9}, {3.425146874222831*^9, 3.425146874941581*^9}, { 3.425306681503625*^9, 3.425306686816125*^9}, {3.425311146534875*^9, 3.4253112353005*^9}, {3.425311319238*^9, 3.425311322847375*^9}, { 3.42531273214425*^9, 3.42531275320675*^9}, {3.425313256472375*^9, 3.425313257488*^9}, {3.425313288566125*^9, 3.425313289222375*^9}, 3.42565147825*^9, {3.425658336640625*^9, 3.425658352046875*^9}, { 3.4256584149375*^9, 3.425658423671875*^9}, {3.42565847684375*^9, 3.425658480296875*^9}, {3.42565853471875*^9, 3.42565853840625*^9}, 3.427652733232007*^9, {3.4276530609284573`*^9, 3.427653061947754*^9}, { 3.432523452809812*^9, 3.432523501924593*^9}, {3.432563448739462*^9, 3.432563449857027*^9}, {3.433864207548109*^9, 3.433864208716193*^9}, { 3.4404342365420523`*^9, 3.44043424244471*^9}, {3.441122176941136*^9, 3.4411221973153133`*^9}, {3.441122540205755*^9, 3.441122625789896*^9}, { 3.4411226578767242`*^9, 3.4411226860159073`*^9}, {3.441127677620097*^9, 3.4411276834324827`*^9}, {3.4411278350794697`*^9, 3.4411278379381742`*^9}, {3.441127936667429*^9, 3.441127941110198*^9}, { 3.4431945467048187`*^9, 3.443194550946456*^9}, {3.443194687905787*^9, 3.443194719507143*^9}, {3.443207998175758*^9, 3.443207998631942*^9}, { 3.443208131117894*^9, 3.4432081325028067`*^9}}], Cell[BoxData[ GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJzt1Psv1XEcx/Ezl5PjNMmc0IRznGZG5NpFOW+M49zPsebQRehgjTSUH5rL MexYUlpzWM7OOphbRJvQRjF0YXZSjA6htoSTmlVCIXU+388f0M/O9t3Z6/v8 /vT44U2PvxyRYEQika5vP3////3kYRDF/umYwaCD4QUbtuYK89aVToYtZ8Pt ZGX5XhO0SeEw0Dm8mvraAfVwGOxwFW0UH0CdA6UFkhFnX3vUOfDKIqUrY3A/ 6lywsjEbHhDaoc6Feqonnd1rgzoPqH0yoYKxD3UeFCxT7IoyrFHnQ3lHU7H2 kRXqfGjNT1Bm6y1RF0Dvr76+YQ8L1AXgNvQwNPWaOepC6GI+J53oI6MuhOYq V08azRh1EazJzqv0G5ssQxdBysz3xAqXVcMmiWE012vIbXzZsEEMd38YtWfe mUffi0HqSJ785Ddj2D1igCLNQo79GxbhHbB5P6XNX4K95fmz0a1kCfbm0d++ GJgQY2/HkJJ7V5vE2PtDfOkkO4/oHDAeXbg4FEl0DvQXj38pcyc6F0YOmUeE GBGdC2GZdv6LD0TYuzvf37ZaKsLeplduzZhsCrH3chuDlqQRYu/TKttAehDR BaCwzJ0tnBJgbzOK46mpdAH2rk6MZUYbE10IloHBndYlfOwdNJ3+bssC7W3v /IO6ljEFDwhvlbOaYb7CBcL7Aj+Y2SZFe9t7qaNWn9bIAcJ72ic2LlQfDoT3 ezemU4z3wlPCO+FkNdenfoVFeC/2lJ1RK6nYuyapJMdUQsPe6oqYzBq+PfY2 2dXcOpdIx95ah9rs0DQm9m5gOQv6eS7Y+/Nmlpb+2xV771aR2ysV7ti7rorl a/TNA3vb1q21yDSHsTdFH5d8o9sLe/ND5ylLWm/snSPL+hqv88He69Iodee0 L/YumZphNE/7Ye/kS08a1yf9sXdIAFdxbuII9tbolIuVY0exd8Pjs89ujh3D 3vVUVqS77jj2lo++3FP2MQB779yTnXuyc0927gnh/b/35A8+F2A8 "], { {Hue[0.67, 0.6, 0.6], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 70], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 71], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 72], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 73], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 74], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 75], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 76], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 77], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 78], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 79], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 80], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 81], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 82], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 83], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 84], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 85], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 86], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 87], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 88], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 89], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 90], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 91], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 92]}, {Hue[0.9060679774997897, 0.6, 0.6], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 93], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 94], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 95], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 96], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 97], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 98], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 99], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 100], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 101], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 102], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 103], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 104], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 105], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 106], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 107], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 108], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 109], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 110], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 111], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 112], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 113], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 114], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 115]}, {Hue[0.1421359549995791, 0.6, 0.6], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 116], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 117], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 118], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 119], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 120], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 121], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 122], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 123], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 124], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 125], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 126], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 127], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 128], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 129], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 130], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 131], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 132], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 133], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 134], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 135], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 136], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 137], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 138]}, {}}], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["\"y (mm)\"", TraditionalForm], FormBox["\"I (A)\"", TraditionalForm]}, AxesOrigin->{45, 0}, ImageSize->400, PlotLabel->FormBox["\"Current Segment 1\"", TraditionalForm], PlotRange->{{45., 67.}, {-0.7873983981856975, 68.85476223751259}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", Evaluatable->False, CellChangeTimes->{3.4342145796800823`*^9, 3.434385202004236*^9, 3.436386197656507*^9, 3.436386651213832*^9, 3.436395613556868*^9, 3.436396817504443*^9, 3.4363969126714*^9, 3.4363971792293*^9, 3.436397300430133*^9, 3.436397559830633*^9, 3.436398752391986*^9, 3.436449865788514*^9, 3.436450221673046*^9, 3.436450329516295*^9, 3.436450489105962*^9, 3.4364508144356947`*^9, 3.440421240342807*^9, 3.440433992439755*^9, 3.4405102804636908`*^9, 3.4405203924137697`*^9, 3.440785677635889*^9, 3.441114949414207*^9, 3.4411222459797983`*^9, 3.441122718256427*^9, 3.441127719177099*^9, 3.441127858526287*^9, 3.4411279578528957`*^9, 3.4411289018741837`*^9, 3.441152285967772*^9, 3.441677211252666*^9, 3.441680457832181*^9, 3.44171393610608*^9, 3.4417165507899513`*^9, 3.441817355930134*^9, 3.442255687796257*^9, 3.4422559268292227`*^9, 3.442257416596034*^9, 3.442261520432098*^9, 3.442325297799369*^9, 3.4431828021134577`*^9, 3.443184013163941*^9, 3.443193996426009*^9, 3.4431945655217953`*^9, 3.4431947045164547`*^9, 3.44319473474865*^9, 3.443208031365987*^9, 3.4432081524957*^9, 3.443273276384173*^9}, ImageSize->{400., -0.0625}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"TotCurrent", "=", RowBox[{"IP", "+", "I1", "+", "I2", "+", "I3", "+", "I4", "+", "I5"}]}], ";"}]], "Input", CellChangeTimes->{{3.441122030666716*^9, 3.4411220413190317`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{"TotCurrent", ",", RowBox[{ "PlotLabel", "\[Rule]", "\"\\""}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}], ",", RowBox[{"PlotRange", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "70"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "180"}], "}"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.440433863096459*^9, 3.440433920590934*^9}, { 3.440434005472899*^9, 3.4404341123054037`*^9}, {3.4416772405076637`*^9, 3.441677245813497*^9}, {3.4416772922629833`*^9, 3.4416773089625*^9}}], Cell[BoxData[ GraphicsBox[ {Hue[0.67, 0.6, 0.6], PointBox[CompressedData[" 1:eJxd02tsFUUYxvGBhIAa7TFARNKQAxTEWvEIKFDa8paWcuvl9EILpbRLKaUg l1MoLTFRJoihqVxO5IMhaN0C0SooJV4AMWTiBYwiqQKSNAHXBG1VJIcoEBWC GmZj9r9fNr99dvbZmcmMrF1bsqy/Uqqhn1L/3e9eielXou+crzo5RewDKU6L PfHh6izrQdI8aN2dLd9lW4ekvbfrxIt5udZDpGh5R9m1tjzrYdI79I2619+c bZ0slWnj6ya6c63Dkh1+/KvRG/OtR0lNx6gKM6HQOkWGX7hnxeSzRdZjpTFN phe8G7UeJ1XVNd8nGoqtUyWx40jezeEl1mlyI3Nj68nPfY+Xsaf65X+0stQ6 Ii2XY/Wj7yuzflKyMs6fy+v0PUE6Lp4bWpUz33qiFCcf6G276HuSVJ4NN/e1 lFs/JecyB97bNLjC+mnJzc4oGnzY92TpKSyduaN4gfUUGbB+dW/bdd9T5dOD D29tfW2hdbokVdQd65lTaT1NbiT91LrvL98ZsrdxafXpQ4usM+XZLx9871ZD lXWWtK3ZO3T7mMXW00WX/pHRdNm3SH00dX/q/uq71iLXmnJSN9XW2DxbRuzr 7Xv0Acfm2VKuD13ZXW+tZkjVpGNnyo74+QxJapx65+W//TxHOsu3PB9KW2Lz HIkdH/CIk2mtcuXH2zsHn0j281xZlVKWvu0tf/xMSf9hVcuwAvs/eqZUDrwU PzrWn2+ejIt3pP1aa/dX58mZ9pVD2sf5+ztLyr+e1hJpstaz5LNXO6/e+sDP Z8uY6/37Dl7189nyc2/fzW9G+Ps/R9K2D3nulzxrPUdeCpX2LFvu53Nl8kOb pnRqP58rH89LOnX/Lj+fJ/Eln7T81u7n8yRW4E3es9/P8+XozrmHVvjW+ZI6 ct6uA/77qkCajl1w3/e/pwvk9mPJC3pe8PNCad58enfTWj8vlOylJYWXyv28 SJJae2Y1p/t5kYQ2LNrjDvfzqDTvGHn8i5t2/hKVrZUph+u+9dfj33M2Juv3 P9+2NlF5JbJtfcpmf/38c2cvgTVsYFUStMAaNrAqDVpgDRtYlQUtsIYNrOYH LbCGDazKgxZYwwZWFUELrGEDqwVBC6xhA6uFQQusYQOryqAF1rCB1aKgBdaw gVVV0AJr2MBqcdACa9jAqhrjYQ0bWNUELbCGDaycoMOwwA6sYRc2sAerJUGH YYEdWMMubGAPVrXohwV2YA27sIE9WC1FPyywA2vYhQ3swaoO/bDADqxhFzaw B6tl6IcFdmANu7CBPVjVox8W2IE17MIG9mC1HP2wwA6sYRc2sAerBvTDAjuw hl3YwB6sVqAfFtiBNezCBvZgtRL9sMAOrGEXNrAHq2fQDwvswBp2YQN7sFqF flhgB9awCxvYg9Vq9MMCO7CGXdjAHqzWoB8W2IE17MIG9mC1Fv2wwA6sYRc2 sAerWNAhOAxHYIGjsAPHYA3HYRfugg3cDXtwAlaNQYfgMByBBY7CDhyDNRyH XbgLNnA37MEJWK0LOgSH4QgscBR24Bis4Tjswl2wgbthD07Aan3QITgMR2CB o7ADx2ANx2EX7oIN3A17cAJWTUGH4DAcgQWOwg4cgzUch124CzZwN+zBCVht CDoEh+EILHAUduAYrOE47MJdsIG7YQ9OwKo56BAchiOwwFHYgWOw/t//AOyW VQA= "]]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["\"y (mm)\"", TraditionalForm], FormBox["\"Current(A)\"", TraditionalForm]}, AxesOrigin->{0, Automatic}, ImageSize->400, PlotLabel->FormBox[ "\"Total Current in IP,I1,I2 Channels\"", TraditionalForm], PlotRange->{{0, 70}, {0, 180}}, PlotRangeClipping->True]], "Output", CellChangeTimes->{{3.4404338706928463`*^9, 3.4404339093366947`*^9}, { 3.4404339927742643`*^9, 3.440434018048895*^9}, {3.440434093418631*^9, 3.440434113077877*^9}, 3.440510280901784*^9, 3.440520393190773*^9, 3.4407856782923937`*^9, 3.441114950142436*^9, 3.4411222461642313`*^9, 3.4411227185617447`*^9, 3.441127719666*^9, 3.4411278590737267`*^9, 3.4411279583929663`*^9, 3.441128901998747*^9, 3.441152286143601*^9, 3.4416772115919*^9, 3.441677310727466*^9, 3.441680458085617*^9, 3.441713936408051*^9, 3.4417165509634047`*^9, 3.441817356055928*^9, 3.442255687999049*^9, 3.44225592703226*^9, 3.442257416725813*^9, 3.4422615205751553`*^9, 3.442325298065124*^9, 3.443182802270125*^9, 3.443184013400072*^9, 3.44319399661583*^9, 3.443194565711398*^9, 3.443194704709772*^9, 3.443194734934369*^9, 3.443208031473336*^9, 3.4432081527022123`*^9, 3.443273276563959*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Max", "[", RowBox[{"I1", "+", "I2", "+", "I3"}], "]"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", "Pstage2", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Pstage2", "=", RowBox[{ RowBox[{ SuperscriptBox["Curr1", "2"], "*", "R1"}], "+", RowBox[{ SuperscriptBox["Curr2", "2"], "*", "R2"}], "+", RowBox[{ SuperscriptBox["Curr3", "2"], "*", "R3"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Max", "[", "Pstage2", "]"}], "\[IndentingNewLine]", RowBox[{"Mean", "[", "Pstage2", "]"}]}], "Input", CellChangeTimes->{{3.441677338386978*^9, 3.441677344023634*^9}, { 3.443183976856902*^9, 3.443184021407146*^9}}], Cell[BoxData["82.57197377113856`"], "Output", CellChangeTimes->{ 3.44167734840134*^9, 3.441680458137649*^9, 3.441713936440674*^9, 3.441716551003819*^9, 3.44181735609268*^9, 3.442255688025731*^9, 3.442255927074477*^9, 3.442257416748086*^9, 3.442261520596196*^9, 3.442325298154664*^9, 3.443182802326057*^9, {3.443184013487019*^9, 3.443184022194209*^9}, 3.4431939967051773`*^9, 3.443194565803527*^9, 3.443194704798036*^9, 3.443194735021715*^9, 3.4432080317321367`*^9, 3.4432081527738457`*^9, 3.443273276614718*^9}], Cell[BoxData["252.67915512571426`"], "Output", CellChangeTimes->{ 3.44167734840134*^9, 3.441680458137649*^9, 3.441713936440674*^9, 3.441716551003819*^9, 3.44181735609268*^9, 3.442255688025731*^9, 3.442255927074477*^9, 3.442257416748086*^9, 3.442261520596196*^9, 3.442325298154664*^9, 3.443182802326057*^9, {3.443184013487019*^9, 3.443184022194209*^9}, 3.4431939967051773`*^9, 3.443194565803527*^9, 3.443194704798036*^9, 3.443194735021715*^9, 3.4432080317321367`*^9, 3.4432081527738457`*^9, 3.443273276619747*^9}], Cell[BoxData["204.9427188112125`"], "Output", CellChangeTimes->{ 3.44167734840134*^9, 3.441680458137649*^9, 3.441713936440674*^9, 3.441716551003819*^9, 3.44181735609268*^9, 3.442255688025731*^9, 3.442255927074477*^9, 3.442257416748086*^9, 3.442261520596196*^9, 3.442325298154664*^9, 3.443182802326057*^9, {3.443184013487019*^9, 3.443184022194209*^9}, 3.4431939967051773`*^9, 3.443194565803527*^9, 3.443194704798036*^9, 3.443194735021715*^9, 3.4432080317321367`*^9, 3.4432081527738457`*^9, 3.443273276623466*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"IP", ",", "I1", ",", "I2", ",", "I3", ",", "I4", ",", "I5"}], "}"}], ",", " ", RowBox[{"AxesLabel", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "80"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "100"}], "}"}]}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}]], "Input", CellChangeTimes->{{3.44112710904547*^9, 3.441127170733067*^9}, { 3.441127290575543*^9, 3.44112737727042*^9}, {3.4411275665611353`*^9, 3.4411276232081537`*^9}}], Cell[BoxData[ GraphicsBox[{ {Hue[0.67, 0.6, 0.6], PointBox[CompressedData[" 1:eJxd0G1olWUcx/F/JjJJ5BQ2RUadhUyT0TnuueXaf9Ntzjk9rpruwXm5+bS2 5kmbFAu8cCSzV2dBoJF1F0YQludF9CBF14iysNp5oYFi7g4psiCOZCYTIWLX iPO93tx8rh+/+3dzF/bua9s1R0T23iXy33PmZGtfT7iDr86dqvUX+sO1w+2t +7PeedoebTGxgmnviI5Mniob7pujM16kw6c6knk1ed5LNJG3ZKD7jYXeBdp5 9tx7O7+6zzuqZ81Q/8ThfO+HdDQ1v/H82FLvZfrX/NF5xRcf8C7S05mpt06f KfReoYmK4djLsWXeK/Xr5u/d3d8VeRfrkWXjE/PGH/Z+RD84uaju6KFi77hu f/+jI0ePxbxXadXpBR+PDq3yLtEdb750/52iUu9SHbna+2DhzTLvMr2nsutc y+UK73Ktbrp++9OLVd4VeiN/cvrFP6u9K3Xssm4dXFrjXaWLizrK87fVej+q RbG+qz9eUu9qvXLmn89G7q33fkwH7KEvj21e471a09OR3bePr/Wu0W9vna9c cK3B+3G907/HfLi6ybtWq3v+MJWvrPNW/Xzxz6PTvzTP2Kp2L3zthVhpi8/r 9MhP+eWbD2zweZ1OVP92qf1Eq8/rdXrON7cGTm70eb1+Mnfq3QvDm3y+RqvW l/ze9be3XaPtVZ2T4c3ZfK2eWNH0a1XJbL5Wx66PL29YOfv+Bj3eduHtkRv+ e22DxndKz5l3Zv9PoxYs3zJ45fnsFzN5o7+fPU25trCsQw5LM3JY1iOHpQU5 LBuQw9KKHJaNyGHZhByWRK4VtrCDZTP6sIUdLG3owxZ2sDyBPmxhB8uT6MMW drA8hT5sYQdLO/qwhR0sW9CHLexg2Yo+bGEHSwf6sIUdLJ3owxZ2sHShD1vY wdKNPmxhB8s29GELO1h60Ict7GDZjj5sYQeLyXUUVtjAFg5gB4ew7MA+rLCB LRzADg5h6cU+rLCBLRzADg5h6cM+rLCBLRzADg5h2Yl9WGEDWziAHRzCsgv7 sMIGtnAAOziEZTf2YYUNbOEAdnAIyx7swwob2MIB7OAQlr3YhxU2sIUD2MEh LP3YhxU2sIUD2MEhLE9jH1bYwBYOYAeHsAxgH1bYwBYOYAeHsAxiH1bYwBYO YAeHsDyDfVhhA1s4gB0cwjKEfVhhA1s4gB0cwrIP+7DCBrZwADs4hCWZ6wgc heOwwgnYwEnYwik4gNOwgzNwCGdheTbXETgKx2GFE7CBk7CFU3AAp2EHZ+AQ zsKyP9cROArHYYUTsIGTsIVTcACnYQdn4BDOwnIg1xE4CsdhhROwgZOwhVNw AKdhB2fgEM7C8lyuI3AUjsMKJ2ADJ2ELp+AATsMOzsAhnIVlONcROArHYYUT sIGTsIVTcACnYQdn4BDOwnIw1xE4CsdhhROwgZOw/d//AkfxBbI= "]]}, {Hue[0.9060679774997897, 0.6, 0.6], PointBox[CompressedData[" 1:eJxdzXuQjXUcx/Ff2CzrcixLastxma1ls4eQa77srrWWdZBbicdlEYtTW5ph 1G/DoM102moXXTybpjEVjmZcMqZ+a0lDW4tYqskzNSwxdZguqpGm2edXs+/n n2dez/v5zqfrnGUTC5sopRbeptS/74YnPnz6gfohtz7uK/4HieaWDHu9xjpR itd98emUc9YBqUi9vDLle+sOUnmqw/6j9dZ3yJsd27236EfrVElLS8lK/M9B mZS6/frei9bdRBKupm/2rHtIZGh15bd11mmS1KnE+ehz6/skvnrbqsgn1j3l hZ+dd8bErDOk7c6yaeVbrXtLadHGZu9utA5JrO61czUrrPtIfmTtS7MXWPeV lEOrkz+cZP2AdDnbKjNJrPvJzOWLxu7OsO4vswsvZJ3vbD1AliX8NPNwc+sH RZc20c//1sf3QHnr60uRjIvWg0RPfjX78BnrwZI9YOD7gz6zHiLHNpc1WXjA eqiczCw50X6H9TBp9V3TQfVbrR+Sun5ndhWVWQ+X/ITWbZqvsRZptmFH5EKx by1Skl65K+7YPkLSthw4tDPP9hEy9/TBxI4Zto+UAdvM9ZwE20fK2dJQi+QT Ib9nycq2ud7gDb51lrT+4ciNlj1sz5brda1mLO6e6fdsmVx2Knh5yf1+z5FN s7YMq6zq6fcceeZ0VfuKvDS/j5KmGS/W7bl6l99HybTc37sUd+vq91y5dXFt yZ/lQb/nysuLyyvaNfOtRsuR/TU3lp68x++j5di+9PE3S+/2e55E10w40b1f qt/zpLZN0cHiY3f6fYwkd0qsOVLQ2e9jZHtSZtfcqk5+z5ek6nkF67p19Hu+ rLnWovP64g5+HysV+z4o/XJPst/HSmx1YfmqKwG/j5Oqv6qra3q38fs46XV8 d87SFS39XiAHexxVQ6tv93uB7Hg7PTMlpanfx8sf82a9ceXm38Mb+ngpOv/L /E333miwCstXz/U53qvuWoMlLFt+bbJ3+SuX/P/DMrXL7d/U9z/fYBMWWV95 +dnUU/79BH/HfwTWsIHVRNzDGjawmoR7WMMGVg/jHtawgdVk3MMaNrCagntY wwZWU3EPa9jAahruYQ0bWE3HPaxhA6tHcA9r2MDqUdzDGjawmoF7WMMGVo/h HtawgdVM3MMaNrCahXtYwwZWTmMHYYEdWMMubGAPVrOxDwvswBp2YQN7sJqD fVhgB9awCxvYg9Vc7MMCO7CGXdjAHqzmYR8W2IE17MIG9mBViH1YYAfWsAsb 2IPVfOzDAjuwhl3YwB6sFmAfFtiBNezCBvZgtRD7sMAOrGEXNrAHq8exDwvs wBp2YQN7sFqEfVhgB9awCxvYg9Vi7MMCO7CGXdjAHqyKsA8L7MAadmEDe7Ba gn1YYAfWsAsb2IPVUuzDAjuwhl3YwB6slmEfFtiBNezCBvZgFWnsAByEQ7DA YdiBI7CGo7ALx2AD18IeHIfVE40dgINwCBY4DDtwBNZwFHbhGGzgWtiD47B6 srEDcBAOwQKHYQeOwBqOwi4cgw1cC3twHFbFjR2Ag3AIFjgMO3AE1nAUduEY bOBa2IPjsHqqsQNwEA7BAodhB47AGo7CLhyDDVwLe3AcVk83dgAOwiFY4DDs wBFYw1HYhWOwgWthD47DanljB+AgHIIFDsMOHIH1//4HIWNTUw== "]]}, {Hue[0.1421359549995791, 0.6, 0.6], PointBox[CompressedData[" 1:eJxd0n9olVUcx/GTOrGVeSGLVUPvdGqY2jWXpqZ+93tzm96mbm6WPdPmj5zz bk3FijyhMiOlOzI0NX3CDFOnC0YZZh1KzShokbH5I3vKH2FqTVFDCBfROcR9 P/9cXvfDhw/PeU7anCWl1d2UUgvuUOrf3/+ezkk5M3b3GT78frF/SEFN77GX Rw6y7iUX9qWtDuaOsA5Ja8rZysbZo6z7Su2RAWdXDB5jnSJD+nY09WoaZ50q B2RDZdLOCdZh6crdkx7LEOsBsr9m0diKukzrdHmvvXzjwHVZ1oMlcuKr802N 2dYPyyPNfa7nzcuxHiq7p91VdGxorvUw+eJUVoZudx4hp/Ytz/28Ns86Ip+N XPjKoWvOI+XggqqeW6rzrR+Ttck7N3pfO4+S45X9dnX1L7DOkK7vZnuli5wf l8pBAxseanYeLWXX376a9JvzGPnw4up+Ox8stH5C9p//5KWGQuexsr1rTa+O Budx0q8jI0jd5jxetpR2L3nxqPOTsjd6Y/G9fzpPkCHN3zbdSplsPVF2z7xW /2iu8yRJO3qzqbnBWWTd4dS7F+yy1iJH81JXlf3i8kwJqob2XhkusnmmnJu1 /Iek+dYqS06+/GlBzkcuz5JNK2qjV/oU2zxbPlh7cHvBMmudLee/rIhuvuzy HLm16Ub83PISm+fIhoOvragLT7F5rvzV/s7fxTesda68ubl65a7kqM3zpMfQ kwXdL1jrPBl/e09N6+inbJ4velVQ0dLTWudLUdqJY0c6XL9A+mev95fudf0C +XVO/FT+qy4vlO7HLy78pszlhXL49fY/3hrm8sny/fDk0uxuLp8secseGP37 vqk2L5JDq0an7Ci31kWS1PDGzz1uu/crlqutA+6b/657v2Kp3JoyMS3T5SXS GFoZrDntzqdEet3Zf/rpems1RXbM89Irurt8ioQmZh3ou96d71TJPFP/U9c9 7vynyqpBJ/f/2Oi+X1S2Dtw2IPmm/d4SlbnFWemt5e4+ROXKx+9fqttt75eJ yplRXlXuJXef3TnbR2ANG1iVog9r2MBqGvqwhg2spqMPa9jAagb6sIYNrMrQ hzVsYFWOPqxhA6uZ6MMaNrCqQB/WsIFVJfqwhg2sZqEPa9jA6mn0YQ0bWD2D PqxhA6vZ6MMaNrB6Fn1YwwZWXqLDsMAerGEfNnAAqyrswwJ7sIZ92MABrOZg HxbYgzXswwYOYDUX+7DAHqxhHzZwAKvnsA8L7MEa9mEDB7Cqxj4ssAdr2IcN HMBqHvZhgT1Ywz5s4ABW87EPC+zBGvZhAwewWoB9WGAP1rAPGziA1ULswwJ7 sIZ92MABrJ7HPiywB2vYhw0cwGoR9mGBPVjDPmzgAFY12IcF9mAN+7CBA1gt xj4ssAdr2IcNHMCqFvuwwB6sYR82cACrJdiHBfZgDfuwgQNYxRIdgsNwBBY4 CntwDNZwHPbhFtjAbXAAd8KqLtEhOAxHYIGjsAfHYA3HYR9ugQ3cBgdwJ6zq Ex2Cw3AEFjgKe3AM1nAc9uEW2MBtcAB3wuqFRIfgMByBBY7CHhyDNRyHfbgF NnAbHMCdsGpIdAgOwxFY4CjswTFYw3HYh1tgA7fBAdwJq6WJDsFhOAILHIU9 OAZrOA77cAts4DY4gDthtSzRITgMR2CBo7AHx2D9v/8B/sxTgg== "]]}, {Hue[0.37820393249936934`, 0.6, 0.6], PointBox[CompressedData[" 1:eJxd0k2IVXUYx/FH0VIUuosCFxJnTHqVuKmlZnafsvFlXvRo+a7T33FGrcm8 arkyeXZuMu5GCYzhb0lqIN1V6KJ6FhG4mrtQkDH036IoX/CCECgREXMucb5n c/ichx8/OPy6BvevH54sInsnifz3nnjaNSk/WuY0uAI/Ds+CZ8MZPAeeCz8N Pws/D8+DX4Sr8EvwfHgBvBB+GX4FXgQvhpfAr8JL4dfgZfDrcA3Wsg2WN3CH 5U3cYVmOOyxv4Q5LN+6wrMB9hf76wtxsYP6fP058WKnDy77qWXDur4ld20q9 5Se2jZ6cUeRW6Zk9x49OXffEhG2Vjn4+cPhMX2enq3XKoxeav+/uKu6rdezJ rz/pPtDZZY+erz3V/1PvM8W9R+/8c2Ss6+/ninuvzvzike9OHSt2aL169sva wsn3Ozvs01lnH3w7dLrYofXp9Ns7Rz79vrPDfu3r/mP63bFih9avR4eO3Bsc 7+xwjT7ctHn04o1ih7ZGj/9yc86FG50drtWRfT988/B6sUNbq8uX9hzbca2z w1xPj5+8depqsUPN9fyl7T9/drXYoeV6bkZt47zxYoeeq125/NiJ3zo7XFf+ /wob7LCsRx422GF5G3nYYIflHeRhgx2WDcjDBjssG5GHDXZYNiEPG+ywbEYe Nthh2YI8bLDDshV52GCHZRvysMEOy3bkYYMdlh3IwwY7LAPIwwY7LO8iDxvs sISyM1jhABscYYcTLDvRDyscYIMj7HCCZRD9sMIBNjjCDidYdqEfVjjABkfY 4QTLEPphhQNscIQdTrAMox9WOMAGR9jhBMtu9MMKB9jgCDucYNmDfljhABsc YYcTLHvRDyscYIMj7HCC5T30wwoH2OAIO5xgeR/9sMIBNjjCDidYRtAPKxxg gyPscILlA/TDCgfY4Ag7nGDZh35Y4QAbHGGHEywfoh9WOMAGR9jhBMt+9MMK B9jgCDucYKmXXYEzuAornMMBrsMGN+AIN2GHW3CC27AcKLsCZ3AVVjiHA1yH DW7AEW7CDrfgBLdhOVh2Bc7gKqxwDge4DhvcgCPchB1uwQluw3Ko7AqcwVVY 4RwOcB02uAFHuAk73IIT3Iblo7IrcAZXYYVzOMB12OAGHOEm7HALTnAblo/L rsAZXIUVzuEA12GDG3CEm7DDLTjBbVgOl12BM7gKK5zDAa7D9r//BSZev6o= "]]}, {Hue[0.6142719099991583, 0.6, 0.6], PointBox[CompressedData[" 1:eJxdzTkOXFUQBdCCiLADAgIHH4QQQgg182w/DNjMNGaenw0GM7oZ41pCL+Et oZdQS+glvCX0EhAiQP9UUjq6urr33rh97eadEXHrjoh//393vhTra2vehTf4 bnwPvoAXfB++Hz+AH8QP4YfxI3iLH8WP4cfxE/hJ/BR+Gj+Dn8XP4efxC/hF fBFfwm3txPESOY7L5DheJsfxCjmOV8lxXCHHcZUcx2vkOF4nx/EGOY43yXG8 RY7jbXIc75DjeJccx27thhMXjvfo48SF4xp9nLhwvE8fJy4cH9DHiQvHh/Rx 4sLxEX2cuHB8TB8nLhyf0MeJC8en9HHiwvEZfZy4cHxOHycuHF/Qx4kLx5f0 ceLC8RV9nLhwfE0fJy4cfe0FN9xx4oELTxzX2ccNd5x44MITxw32ccMdJx64 8MTxDfu44Y4TD1x44viWfdxwx4kHLjxx3GQfN9xx4oELTxzfsY8b7jjxwIUn ju/Zxw13nHjgwhPHLfZxwx0nHrjwxPED+7jhjhMPXHji+JF93HDHiQcuPHH8 xD5uuOPEAxeeOH5mHzfcceKBC08cv7CPG+448cCFJ45f2ccNd5x44MITx232 ccMdJx648MSxX3uDF7zFDe9wx3uc+IAHPuLCJzzxGcdva2/wgre44R3ueI8T H/DAR1z4hCc+4/h97Q1e8BY3vMMd73HiAx74iAuf8MRnHH+svcEL3uKGd7jj PU58wAMfceETnviM48+1N3jBW9zwDne8x4kPeOAjLnzCE59x/LX2Bi94ixve 4Y73OPEBD3zEhU944jOOv9fe4AVvccM73PEe5//+B6A5aws= "]]}, {Hue[0.8503398874989481, 0.6, 0.6], PointBox[CompressedData[" 1:eJxdzTkOXFUQBdCCiLADAgIHH4QQQgg182w/DNjMNGaenw0GM7oZ41pCL+Et oZdQS+glvCX0EhAiQP9UUjq6urr33rh97eadEXHrjoh//393vhTra2vehTf4 bnwPvoAXfB++Hz+AH8QP4YfxI3iLH8WP4cfxE/hJ/BR+Gj+Dn8XP4efxC/hF fBFfwm3txPESOY7L5DheJsfxCjmOV8lxXCHHcZUcx2vkOF4nx/EGOY43yXG8 RY7jbXIc75DjeJccx27thhMXjvfo48SF4xp9nLhwvE8fJy4cH9DHiQvHh/Rx 4sLxEX2cuHB8TB8nLhyf0MeJC8en9HHiwvEZfZy4cHxOHycuHF/Qx4kLx5f0 ceLC8RV9nLhwfE0fJy4cfe0FN9xx4oELTxzX2ccNd5x44MITxw32ccMdJx64 8MTxDfu44Y4TD1x44viWfdxwx4kHLjxx3GQfN9xx4oELTxzfsY8b7jjxwIUn ju/Zxw13nHjgwhPHLfZxwx0nHrjwxPED+7jhjhMPXHji+JF93HDHiQcuPHH8 xD5uuOPEAxeeOH5mHzfcceKBC08cv7CPG+448cCFJ45f2ccNd5x44MITx232 ccMdJx648MSxX3uDF7zFDe9wx3uc+IAHPuLCJzzxGcdva2/wgre44R3ueI8T H/DAR1z4hCc+4/h97Q1e8BY3vMMd73HiAx74iAuf8MRnHH+svcEL3uKGd7jj PU58wAMfceETnviM48+1N3jBW9zwDne8x4kPeOAjLnzCE59x/LX2Bi94ixve 4Y73OPEBD3zEhU944jOOv9fe4AVvccM73PEe5//+B6A5aws= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["\"y (mm)\"", TraditionalForm], FormBox["\"Current(A)\"", TraditionalForm]}, AxesOrigin->{0, Automatic}, ImageSize->400, PlotRange->{{0, 80}, {0, 100}}, PlotRangeClipping->True]], "Output", CellChangeTimes->{{3.4411271495300627`*^9, 3.441127171381648*^9}, 3.441127293772106*^9, 3.44112736634089*^9, {3.441127598488855*^9, 3.44112762480086*^9}, 3.441127719748439*^9, 3.441127859149719*^9, 3.4411279584821663`*^9, 3.44112890201661*^9, 3.4411522862061*^9, 3.441677211677758*^9, 3.4416804581934423`*^9, 3.44171393653695*^9, 3.441716551037033*^9, 3.441817356121005*^9, 3.44225568810625*^9, 3.442255927116291*^9, 3.442257416784521*^9, 3.4422615206363287`*^9, 3.4423252982362127`*^9, 3.443182802374834*^9, 3.4431840136592817`*^9, 3.443193996857016*^9, 3.443194565952176*^9, 3.443194704929384*^9, 3.4431947351761007`*^9, 3.4432080321984*^9, 3.44320815295681*^9, 3.443273276665085*^9}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Transport Segment 3", "Section", CellChangeTimes->{{3.427557417391244*^9, 3.4275574212738867`*^9}, { 3.4411221096197567`*^9, 3.441122111491469*^9}, {3.441122508437797*^9, 3.441122511640093*^9}, {3.4411277226665297`*^9, 3.441127722814207*^9}, { 3.441677494075849*^9, 3.4416774975077963`*^9}}], Cell["Segment 2 - Coils 2, 3 & 4.", "Text", CellChangeTimes->{{3.4275574238332644`*^9, 3.427557519898347*^9}, { 3.441122709553803*^9, 3.441122723090308*^9}, {3.4411277251617403`*^9, 3.441127734985326*^9}}], Cell[CellGroupData[{ Cell["Coil Definition", "Subsection", CellChangeTimes->{{3.424789285638125*^9, 3.42478928884125*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"Push", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "ampsPush_"}], "]"}], ":=", " ", RowBox[{"CustomPush", "[", RowBox[{ "x", ",", "y", ",", "z", ",", "distP", ",", "ampsPush", ",", "radP", ",", "PwireWidth", ",", "PwireLength"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coil1", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "amps1_"}], "]"}], ":=", RowBox[{"Coil", "[", RowBox[{"x", ",", RowBox[{"y", "-", "ydispl1"}], ",", "z", ",", "dist1", ",", "amps1", ",", "rad1", ",", "MOTwireWidth", ",", "MOTwireLength", ",", "numRad1", ",", "numAx1"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coil2", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "amps2_"}], "]"}], ":=", RowBox[{"Coil", "[", RowBox[{"x", ",", RowBox[{"y", "-", "ydispl2"}], ",", "z", ",", "dist2", ",", "amps2", ",", "rad2", ",", "HwireWidth", ",", "HwireLength", ",", "numRad2", ",", "numAx2"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coil3", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "amps3_"}], "]"}], ":=", RowBox[{"Coil", "[", RowBox[{"x", ",", RowBox[{"y", "-", "ydispl3"}], ",", "z", ",", "dist3", ",", "amps3", ",", "rad3", ",", "HwireWidth", ",", "HwireLength", ",", "numRad3", ",", "numAx3"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coil4", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "amps4_"}], "]"}], ":=", RowBox[{"Coil", "[", RowBox[{"x", ",", RowBox[{"y", "-", "ydispl4"}], ",", "z", ",", "dist4", ",", "amps4", ",", "rad4", ",", "HwireWidth", ",", "HwireLength", ",", "numRad4", ",", "numAx4"}], "]"}]}]}], "Input", CellChangeTimes->{{3.4108691929057975`*^9, 3.4108692511714225`*^9}, { 3.4108696083120475`*^9, 3.4108696370776725`*^9}, {3.4108878639057975`*^9, 3.4108878917339225`*^9}, 3.4108880255620475`*^9, {3.4108880572026725`*^9, 3.4108880934839225`*^9}, {3.4108881324057975`*^9, 3.4108881358276725`*^9}, {3.4114971485377502`*^9, 3.4114971533502502`*^9}, {3.4115798687252502`*^9, 3.4115798990846252`*^9}, {3.4115801645377502`*^9, 3.4115801658346252`*^9}, {3.4115850364908752`*^9, 3.4115850513502502`*^9}, {3.4116541353815002`*^9, 3.4116541668815002`*^9}, {3.4116543291315002`*^9, 3.4116543294752502`*^9}, {3.413042775259*^9, 3.41304278797775*^9}, { 3.4130428408215*^9, 3.413042899509*^9}, {3.413042982962125*^9, 3.41304298922775*^9}, {3.41304393541525*^9, 3.4130439359465*^9}, { 3.4130475845715*^9, 3.41304758510275*^9}, {3.4147689327342415`*^9, 3.4147689545786905`*^9}, {3.4157043510358753`*^9, 3.4157043545515003`*^9}, {3.4240142755295*^9, 3.424014280982625*^9}, { 3.424708044607378*^9, 3.424708045091753*^9}, {3.424708516388628*^9, 3.424708547888628*^9}, {3.424789355935*^9, 3.424789362294375*^9}, { 3.424793540700625*^9, 3.42479354259125*^9}, {3.42479373102875*^9, 3.424793804356875*^9}, {3.42479385740375*^9, 3.424793870231875*^9}, { 3.424793962731875*^9, 3.424794012106875*^9}, {3.424794111200625*^9, 3.42479411184125*^9}, {3.42479467331*^9, 3.424794687200625*^9}, { 3.42504874452875*^9, 3.425048750606875*^9}, 3.42504893756*^9, 3.425049003856875*^9, {3.425052076763125*^9, 3.425052080075625*^9}, { 3.42505228456*^9, 3.425052285138125*^9}, {3.425053193700625*^9, 3.42505319734125*^9}, {3.425140953629081*^9, 3.425140955394706*^9}, { 3.425143919457206*^9, 3.425143919832206*^9}, {3.42530989195675*^9, 3.425309893034875*^9}, {3.4253099389255*^9, 3.425309941488*^9}, { 3.42531268476925*^9, 3.425312693941125*^9}, {3.4275484377987127`*^9, 3.427548439150815*^9}, {3.427549179203624*^9, 3.427549180977133*^9}, { 3.427557753123818*^9, 3.427557807078123*^9}, {3.431959729046167*^9, 3.431959734430778*^9}, {3.431959767318501*^9, 3.431959777847219*^9}, { 3.432522576195047*^9, 3.432522576768517*^9}, {3.432522640640594*^9, 3.432522641159569*^9}, {3.43252273720122*^9, 3.4325227374044447`*^9}, { 3.4325227774233923`*^9, 3.4325227782576227`*^9}, {3.432522979857479*^9, 3.432522986718114*^9}, {3.4342027674829407`*^9, 3.434202767818779*^9}, { 3.4342033583019247`*^9, 3.434203358566132*^9}, {3.4342035182972803`*^9, 3.434203518695207*^9}, {3.434203693374236*^9, 3.4342036937433043`*^9}, { 3.4342038767456837`*^9, 3.434203880149901*^9}, {3.4342043595530024`*^9, 3.434204360389633*^9}, {3.434204574074339*^9, 3.434204576586729*^9}, { 3.434204726385235*^9, 3.434204727655446*^9}, {3.4342049825787983`*^9, 3.4342049830998783`*^9}, {3.4363860850199957`*^9, 3.4363861459997807`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Calculation", "Subsection", CellChangeTimes->{{3.427557803876124*^9, 3.4275578048430853`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Clear", " ", "[", RowBox[{ "ypos", ",", "buf", ",", "n", ",", "y0", ",", "yf", ",", "scale", ",", "MagX", ",", "MagY", ",", "MagZ", ",", "curr1", ",", "curr2", ",", "currP", ",", "curr3"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ampsP", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amps1", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amps2", "=", "curr2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amps3", "=", "curr3"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"amps4", "=", "curr4"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Unit", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], ":=", RowBox[{ RowBox[{"Push", "[", RowBox[{"x", ",", "y", ",", "z", ",", "ampsP"}], "]"}], "+", RowBox[{"Coil1", "[", RowBox[{"x", ",", "y", ",", "z", ",", "amps1"}], "]"}], "+", RowBox[{"Coil2", "[", RowBox[{"x", ",", "y", ",", "z", ",", "amps2"}], "]"}], "+", RowBox[{"Coil3", "[", RowBox[{"x", ",", "y", ",", "z", ",", "amps3"}], "]"}], "+", RowBox[{"Coil4", "[", RowBox[{"x", ",", "y", ",", "z", ",", "amps4"}], "]"}]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"xComp", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{ RowBox[{"Unit", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"yComp", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{ RowBox[{"Unit", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"zComp", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{ RowBox[{"Unit", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "[", RowBox[{"[", "3", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GxComp", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{ SubscriptBox["\[PartialD]", "x"], RowBox[{"xComp", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GyComp", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{ SubscriptBox["\[PartialD]", "y"], RowBox[{"yComp", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"GzComp", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{ SubscriptBox["\[PartialD]", "z"], RowBox[{"zComp", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}]}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y0", "=", " ", RowBox[{"68", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"yf", " ", "=", " ", RowBox[{"102", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "=", "35"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"scale", " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"yf", "-", "y0"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"buf", " ", "=", " ", RowBox[{"UnitVector", "[", RowBox[{"n", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"asp", " ", "=", " ", RowBox[{"UnitVector", "[", RowBox[{"n", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "0"}], ",", RowBox[{"i", "<", "n"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"ypos", " ", "=", " ", RowBox[{"y0", "+", RowBox[{"scale", "*", "i"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"sol", " ", "=", " ", RowBox[{"Solve", " ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"yComp", "[", RowBox[{"zero", ",", "ypos", ",", "zero"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"GzComp", "[", RowBox[{"zero", ",", "ypos", ",", "zero"}], "]"}], "\[Equal]", "gradient"}], ",", RowBox[{ FractionBox[ RowBox[{"GxComp", "[", RowBox[{"zero", ",", "ypos", ",", "zero"}], "]"}], RowBox[{"GyComp", "[", RowBox[{"zero", ",", "ypos", ",", "zero"}], "]"}]], "\[Equal]", RowBox[{"Aspect", "[", "ypos", "]"}]}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"curr2", ",", " ", "curr3", ",", "curr4"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"buf", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], " ", "=", " ", RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"asp", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "=", RowBox[{"Aspect", "[", "ypos", "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Curr4", "=", " ", RowBox[{"curr4", "/.", "buf"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Curr2", " ", "=", " ", RowBox[{"curr2", "/.", "buf"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Curr3", " ", "=", " ", RowBox[{"curr3", "/.", "buf"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", " ", "=", " ", "0"}], ",", " ", RowBox[{"i", "<", "n"}], ",", RowBox[{"i", "++"}], ",", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"I1", "[", RowBox[{"[", RowBox[{"i", "+", RowBox[{"y0", "/", "mm"}]}], "]"}], "]"}], "=", "0"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"I2", "[", RowBox[{"[", RowBox[{"i", "+", RowBox[{"y0", "/", "mm"}]}], "]"}], "]"}], "=", RowBox[{"Curr2", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"I3", "[", RowBox[{"[", RowBox[{"i", "+", RowBox[{"y0", "/", "mm"}]}], "]"}], "]"}], "=", RowBox[{"Curr3", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"IP", "[", RowBox[{"[", RowBox[{"i", "+", RowBox[{"y0", "/", "mm"}]}], "]"}], "]"}], "=", "0"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"I4", "[", RowBox[{"[", RowBox[{"i", "+", RowBox[{"y0", "/", "mm"}]}], "]"}], "]"}], "=", RowBox[{"Curr4", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"I5", "[", RowBox[{"[", RowBox[{"i", "+", RowBox[{"y0", "/", "mm"}]}], "]"}], "]"}], "=", "0"}], ";"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"Curr2", ",", "Curr3", ",", "Curr4"}], "}"}], ",", RowBox[{"DataRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"y0", "*", "1000"}], ",", RowBox[{ RowBox[{"(", RowBox[{"y0", "+", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}], "*", "scale"}]}], ")"}], "*", "1000"}]}], "}"}]}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"y0", "*", "1000"}], ",", "0"}], "}"}]}], ",", RowBox[{"PlotMarkers", "\[Rule]", RowBox[{"{", RowBox[{"Automatic", ",", "Small"}], "}"}]}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotLabel", "\[Rule]", "\"\\""}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}]}], "Input", CellChangeTimes->{{3.424794846638125*^9, 3.424795033419375*^9}, { 3.4247952409975*^9, 3.4247952994975*^9}, {3.424795401575625*^9, 3.424795403138125*^9}, {3.424795508919375*^9, 3.42479551006*^9}, { 3.42479560059125*^9, 3.42479568802875*^9}, {3.424796194185*^9, 3.42479622109125*^9}, {3.424796345856875*^9, 3.4247963796225*^9}, { 3.424799205356875*^9, 3.4247992094975*^9}, {3.424799415481875*^9, 3.42479941565375*^9}, {3.424799600919375*^9, 3.424799612825625*^9}, { 3.4247996814975*^9, 3.424799686356875*^9}, {3.424799847013125*^9, 3.42479985396625*^9}, {3.425044396138125*^9, 3.42504440177875*^9}, 3.4250446944975*^9, {3.42504483252875*^9, 3.42504489046625*^9}, { 3.42504494815375*^9, 3.42504499659125*^9}, {3.425052742794375*^9, 3.425052768794375*^9}, 3.42505291606*^9, {3.425146476738456*^9, 3.425146492550956*^9}, {3.425146874222831*^9, 3.425146874941581*^9}, { 3.425306681503625*^9, 3.425306686816125*^9}, {3.425311146534875*^9, 3.4253112353005*^9}, {3.425311319238*^9, 3.425311322847375*^9}, { 3.42531273214425*^9, 3.42531275320675*^9}, {3.425313256472375*^9, 3.425313257488*^9}, {3.425313288566125*^9, 3.425313289222375*^9}, 3.42565147825*^9, {3.425658336640625*^9, 3.425658352046875*^9}, { 3.4256584149375*^9, 3.425658423671875*^9}, {3.42565847684375*^9, 3.425658480296875*^9}, {3.42565853471875*^9, 3.42565853840625*^9}, 3.427652733232007*^9, {3.4276530609284573`*^9, 3.427653061947754*^9}, { 3.432523452809812*^9, 3.432523501924593*^9}, {3.432563448739462*^9, 3.432563449857027*^9}, {3.433864207548109*^9, 3.433864208716193*^9}, { 3.4404342365420523`*^9, 3.44043424244471*^9}, {3.441122176941136*^9, 3.4411221973153133`*^9}, {3.441122540205755*^9, 3.441122625789896*^9}, { 3.4411226578767242`*^9, 3.4411226860159073`*^9}, {3.441127677620097*^9, 3.4411276834324827`*^9}, {3.441127739341113*^9, 3.441127808168995*^9}, { 3.441127981960608*^9, 3.441128045797517*^9}, {3.441128186416677*^9, 3.441128213359702*^9}, {3.441128358141787*^9, 3.441128359546916*^9}, { 3.4411285259023247`*^9, 3.44112852610019*^9}, {3.441128608285178*^9, 3.441128609994923*^9}, {3.443194577660673*^9, 3.4431945815944643`*^9}, { 3.443194613740508*^9, 3.44319461541844*^9}, {3.443207804784998*^9, 3.443207805023266*^9}, {3.443208198248564*^9, 3.443208206716827*^9}, { 3.443208241137601*^9, 3.4432082886349583`*^9}}], Cell[BoxData[ GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJzt1ftPU2cYB/ACBbwUJmOgXCYrMFKGEi4CMkAeCgWcI9DTc2lN2JBLDC4M xxiKE4dsTi4jK7IJDikyCbcthUFiTCRT2SbUcZFLRRnglIsiQrMNkUyW7Wx9 3vAn7Jc2aZrvD5+c5n2+533EqdlUhrlAIBjmv//+Gj9ymNorkiYlxMN/EeSQ cCba73x2nDEXyuHXqpO2JTWxxnxNDsd8kt26BmTGLKCgy+uQ3z5rzECBQbPp 3YboGPQUpH0+cbegKBo9BY7aqildtxS9Aoa9y/a2WWAGBWTFj+Z8HBOFXgE1 59M7fvoE0Cug5ZhoNbg4Ej0Nic/92XPCPehpWGxySf7oRDh6GnTDPvrHT19H T4PvV16VG98JRc+Ax+nWwB1TIegZMJx4/HtXYjB6BnI1lZkh13ahZ2DuYG+Y u18gehYWBp5sEF3wR8/CqDZvR/kWP/Qs5OT/ue+CcCd6FiYzHRpkT7zRc3Cq V7PVa9wLPQfSqymTgUMe6DlgbJwvd+pfQc+BsNAzZuQXF/RKmPM9OrMp1hG9 Er45fr38ptAOvRJknKNnUMEG9EoYbzb3smEE6FUgs5xI0exfjjR6FeR41yY3 li4Yc6EK6GXbedeOJWPm+1JYLunLrcfz5fvSuuq41Vwbgc+Tw/3hTG3UGZwH 3xf9z8tHJByZFwV1PQuMxgznyfcl6Gq7oiYBM98XZ043ElpB5k3BktM2fUM/ Zr4vmoM/+l20wH7wfalKlU23Ba735Wm/OtHmLcx8X4rM/3o0WoSZ74sqKXin 8GviaTB0eRw/fYV4GsYooWv0IPE01B0NLneeJJ6BRfvY4JUZ4hnotq5O7Zkj noED9aklpQ+IZ+DWFz2jcXeIZ+Fh29KcXS/xLByyWr5v3kE8C9V5VFfIWeJZ mFgLWdDlEs/B7Ih1ek8C8XwfxlKmJWLiOTgZEBp3Y4mcHwef3fGuir9Ezk8J 9x4oRE5HyPkrofZws+BNP3L+Ssi/dPc10XWcF98X98FFYcdmMj8VPHs/LU0S Rt43Fai1vWVW8WT+KhCN1s66S7AffF+a/i691+eIfeL7kqze9cO8xID9koNr 54H2jM5VY+b7ktf9/U1dugV6CvbUPS+P9BHh8yiwkc7YV79oj8+joKU5y7o4 fxv+Xwo8m8oYF+/t6BVgpq5jPS3d0StA/tL2iw1Wr6JXgFb/8odt9hL0Ckit CQg/J/FBT0NMT4PtsNQXPQ0rf5wyi2gn7zcN8/Wz6s0QgJ4Gh29b1wJukfuB gZGJxgy3lCD0DHwQNRojM6zfLzWHbfrEBbvRM/DdSmd25Ea8r/i+XC7P84io DEPPQpZ9jcOYMzlvFt7r160Y6sj7xsL47qYtCXZk3hw0rdx2VQ+ReXNg/kz8 pVXFel8k4QNDTklS9Bz0TT/U7X8B72u+L48WKO9PBzHzfTlbZv1GSQW535Ug nvTvK2bx/uf70kjH9c+74b7g+/Lbbb34bQNmvi+RK0r12g2yX1RwxSfTUtGC +8e0j0z7yLSPTPvItI/Qm/bR/7WP/gGiAp+N "], { {Hue[0.67, 0.6, 0.6], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 106], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 107], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 108], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 109], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 110], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 111], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 112], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 113], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 114], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 115], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 116], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 117], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 118], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 119], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 120], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 121], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 122], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 123], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 124], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 125], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 126], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 127], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 128], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 129], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 130], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 131], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 132], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 133], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 134], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 135], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 136], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 137], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 138], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 139], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 140]}, {Hue[0.9060679774997897, 0.6, 0.6], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 141], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 142], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 143], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 144], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 145], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 146], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 147], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 148], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 149], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 150], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 151], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 152], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 153], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 154], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 155], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 156], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 157], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 158], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 159], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 160], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 161], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 162], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 163], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 164], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 165], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 166], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 167], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 168], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 169], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 170], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 171], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 172], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 173], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 174], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 175]}, {Hue[0.1421359549995791, 0.6, 0.6], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 176], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 177], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 178], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 179], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 180], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 181], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 182], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 183], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 184], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 185], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 186], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 187], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 188], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 189], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 190], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 191], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 192], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 193], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 194], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 195], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 196], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 197], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 198], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 199], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 200], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 201], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 202], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 203], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 204], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 205], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 206], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 207], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 208], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 209], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 210]}, {}}], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["\"y (mm)\"", TraditionalForm], FormBox["\"I (A)\"", TraditionalForm]}, AxesOrigin->{68, 0}, ImageSize->400, PlotLabel->FormBox["\"Current Segment 2\"", TraditionalForm], PlotRange->{{68., 102.}, {0., 49.3228461040048}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", Evaluatable->False, CellChangeTimes->{3.4342145796800823`*^9, 3.434385202004236*^9, 3.436386197656507*^9, 3.436386651213832*^9, 3.436395613556868*^9, 3.436396817504443*^9, 3.4363969126714*^9, 3.4363971792293*^9, 3.436397300430133*^9, 3.436397559830633*^9, 3.436398752391986*^9, 3.436449865788514*^9, 3.436450221673046*^9, 3.436450329516295*^9, 3.436450489105962*^9, 3.4364508144356947`*^9, 3.440421240342807*^9, 3.440433992439755*^9, 3.4405102804636908`*^9, 3.4405203924137697`*^9, 3.440785677635889*^9, 3.441114949414207*^9, 3.4411222459797983`*^9, 3.441122718256427*^9, 3.441128084695787*^9, 3.441128230884494*^9, 3.441128396434573*^9, 3.4411285427938337`*^9, 3.441128913412943*^9, 3.4411522974705973`*^9, 3.4416775224082413`*^9, 3.441680469693266*^9, 3.441713947776662*^9, 3.4417165624925203`*^9, 3.4418173672617073`*^9, 3.442255699359742*^9, 3.4422559384356422`*^9, 3.442257428082595*^9, 3.4422615320377417`*^9, 3.442325309456375*^9, 3.443182814711432*^9, 3.443194599075016*^9, 3.4431946309590197`*^9, 3.4432083088819637`*^9, 3.4432732866851387`*^9}, ImageSize->{400., -0.0625}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Max", "[", RowBox[{"I2", "+", "I3", "+", "I4"}], "]"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", "Pstage3", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Pstage3", "=", RowBox[{ RowBox[{ SuperscriptBox["Curr2", "2"], "*", "R2"}], "+", RowBox[{ SuperscriptBox["Curr3", "2"], "*", "R3"}], "+", RowBox[{ SuperscriptBox["Curr4", "2"], "*", "R4"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Max", "[", "Pstage3", "]"}], "\[IndentingNewLine]", RowBox[{"Mean", "[", "Pstage3", "]"}]}], "Input", CellChangeTimes->{{3.44167708018141*^9, 3.44167708984289*^9}, { 3.443184123835197*^9, 3.4431841488435*^9}}], Cell[BoxData["81.04908734159827`"], "Output", CellChangeTimes->{3.441677090881928*^9, 3.441677522650408*^9, 3.441680469863162*^9, 3.44171394807467*^9, 3.441716562555067*^9, 3.441817367380945*^9, 3.442255699554152*^9, 3.44225593857197*^9, 3.442257428206575*^9, 3.442261532140828*^9, 3.44232530975699*^9, 3.443182814896204*^9, 3.443184149587356*^9, 3.443194599264488*^9, 3.443194631141492*^9, 3.443208309070142*^9, 3.443273286795577*^9}], Cell[BoxData["159.12069743529534`"], "Output", CellChangeTimes->{3.441677090881928*^9, 3.441677522650408*^9, 3.441680469863162*^9, 3.44171394807467*^9, 3.441716562555067*^9, 3.441817367380945*^9, 3.442255699554152*^9, 3.44225593857197*^9, 3.442257428206575*^9, 3.442261532140828*^9, 3.44232530975699*^9, 3.443182814896204*^9, 3.443184149587356*^9, 3.443194599264488*^9, 3.443194631141492*^9, 3.443208309070142*^9, 3.443273286800769*^9}], Cell[BoxData["129.09465868293222`"], "Output", CellChangeTimes->{3.441677090881928*^9, 3.441677522650408*^9, 3.441680469863162*^9, 3.44171394807467*^9, 3.441716562555067*^9, 3.441817367380945*^9, 3.442255699554152*^9, 3.44225593857197*^9, 3.442257428206575*^9, 3.442261532140828*^9, 3.44232530975699*^9, 3.443182814896204*^9, 3.443184149587356*^9, 3.443194599264488*^9, 3.443194631141492*^9, 3.443208309070142*^9, 3.443273286804388*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"TotCurrent", "=", RowBox[{"IP", "+", "I1", "+", "I2", "+", "I3", "+", "I4", "+", "I5"}]}], ";"}]], "Input", CellChangeTimes->{{3.441122030666716*^9, 3.4411220413190317`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{"TotCurrent", ",", RowBox[{"PlotLabel", "\[Rule]", "\"\\""}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "130"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "180"}], "}"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.440433863096459*^9, 3.440433920590934*^9}, { 3.440434005472899*^9, 3.4404341123054037`*^9}, {3.441128061444706*^9, 3.441128063196477*^9}, {3.441677527975131*^9, 3.4416775415401793`*^9}}], Cell[BoxData[ GraphicsBox[ {Hue[0.67, 0.6, 0.6], PointBox[CompressedData[" 1:eJxd1HlsVFUYBfCL0YAbHQPIYoMDLaXWiiOLZWt72kKhQNvpOqWU9tGFTZZp GVqMildAQNYRNaIgPpQoikoJKosGX4yCKGAR0Fi3pwHLniEouICo8X4xc94/ L78578z37r2Z6VU9u7DuOqXU1HZK/Xv/74qkn/W/eaxi72CYD1CQHLz33Zlp xh3Q2KHh2qIvM4w9eKGtec/j2SOMOyN/ysbiC8uyjbuhrcsrtS++Oto4FuXJ /WoH2GOMvcj03vNZ3Lxxxr1RtbF3wOmfZxyPHl/dOC3lSL5xAuqTkZ77lt84 ERWVVT9EphYYJyGyakf25R6Fxsm4lDpv6d6Pxf2QsK/duN3Ti4x9aDoenBx3 c7HxfUgffuxo9mZxf2z87miXiqwS4wEoiN3Stuw78UCUH/E2nmwqNR6Eo6nt bwp1ChjfjxEZw/M7bROnoDWvaOSqgjLjwbh+zsy2Zb+Kh+DDN7ovWfrCeOOh iAnU7mrNKTcehksxPy99+Q/xcLxUX1N5YOsE41Q89Olt269MrTBOw7JZL3VZ 2WeicToeK/pleOi4GKjzJ21K2lT5nzVwIZSV9Gh1lckz0PPltpN3dbRMnoES vfXsc5ONVSYqBu46VLxD8kzE1A+5tuZPybPwaumi+Z7kSSbPQv17N/S1Uo3V CJy4urrTnljJR2BGfPHQFa9JfySG/TijqVuueR89EuXtvw/vTJD1ZiMxvDH5 TLU5X52NQxumd96QKOc7CqUHhzX5QsZ6FD5av/n8lXckH40+v1538o3zko/G qbaTlw/3lPPPQfLKzo+czjbWOVjuKWqtmyL5GKR0fXTwZi35GLw/NmbfrU9J PhbhSR82ndsg+VgEc92UdZskH4edq8dsnSbW45DUa+xTW+R5lYvQrq/st+X7 dC6u3h1b1rpQ8jw0LjjwXGi25HnIqCnM+75U8nzELG0d1ThU8nx45k5YZ/eQ 3I/GVb3e++SyWT/8WFIev632C9mPf35nfdIu/v66sePHs74Vc+IXyP4VIK/y 83P9H5d+ARoiM+vtSdIvQGjf+id6l0i/AHv3tHs4r0z6hUg8+vwHh+qkX4gB F++o3v+g9Aux/2BOIPSk9AsR2uCL2S/vo4qwc/ef+3I/kn4RblkbTD//rfSL 8NfsyuAPF6VfhMDF9uXLO8j6i3Eq/cqbC2Q/UIzgyN3HGu6S/SrG2sWL+945 yNgphrty9fSKVOmX4JfqpnYdM6Vfgj+2D0uPz5J+CUJPd1+zDtIvQcefMkse lvNQpYi9N5z2jU/6pfh4zvzHWuOkX4ovr5af2NJJ+qXoOrqh/9NK+gEE0moW Rk7L+gM4M/9cStoRWX8A135bvDBht6w/gOSEz46vsmX/ylB4ukdO8xLpl+FE l4F5KfXSL8OpjpHu9VXSL0PNgJjDT8h5qvFYPnhU3PGA9Mej649fpzwzQ/rj sT/x/Nzb10tf/tfkKo82yJrskNWEaIOsyQ5ZVUQbZE12yGpitEHWZIesKqlP 1mSHrKqiDbImO2RlRdtLBtkia7JNdsguWU2KtpcMskXWZJvskF2yqqb5ZJAt sibbZIfsklUNzSeDbJE12SY7ZJesamk+GWSLrMk22SG7ZFVH88kgW2RNtskO 2SWryTSfDLJF1mSb7JBdsppC88kgW2RNtskO2SWrqTSfDLJF1mSb7JBdsppG 88kgW2RNtskO2SWr6TSfDLJF1mSb7JBdsnqA5pNBtsiabJMdsktWM2g+GWSL rMk22SG7ZDWT5pNBtsiabJMdsktWs2g+GWSLrMk22SG7ZDWb5pNBtsiabJMd sktWwWh7yF6yjwyyn2yRg2RNDpNtcjPZIbeQXXKErOqj7SF7yT4yyH6yRQ6S NTlMtsnNZIfcQnbJEbJqiLaH7CX7yCD7yRY5SNbkMNkmN5MdcgvZJUfIak60 PWQv2UcG2U+2yEGyJofJNrmZ7JBbyC45QlahaHvIXrKPDLKfbJGDZE0Ok21y M9kht5BdcoSs5kbbQ/aSfWSQ/WSLHCRrcphsk5vJDrmF7JIjZNUYbQ/ZS/aR QfaTLXKQrP/339qrz1Q= "]]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["\"y (mm)\"", TraditionalForm], FormBox["\"Current(A)\"", TraditionalForm]}, AxesOrigin->{0, Automatic}, ImageSize->400, PlotLabel->FormBox["\"Total Current in Channels\"", TraditionalForm], PlotRange->{{0, 130}, {0, 180}}, PlotRangeClipping->True]], "Output", CellChangeTimes->{{3.4404338706928463`*^9, 3.4404339093366947`*^9}, { 3.4404339927742643`*^9, 3.440434018048895*^9}, {3.440434093418631*^9, 3.440434113077877*^9}, 3.440510280901784*^9, 3.440520393190773*^9, 3.4407856782923937`*^9, 3.441114950142436*^9, 3.4411222461642313`*^9, 3.4411227185617447`*^9, 3.441128085083641*^9, 3.4411282312936287`*^9, 3.441128396613501*^9, 3.4411285430331793`*^9, 3.441128913539069*^9, 3.4411522976373873`*^9, {3.441677522749784*^9, 3.441677542398204*^9}, 3.441680469926169*^9, 3.441713948267173*^9, 3.4417165625753307`*^9, 3.4418173674199123`*^9, 3.442255699658609*^9, 3.4422559386473303`*^9, 3.442257428270815*^9, 3.442261532191153*^9, 3.4423253098904057`*^9, 3.4431828149480343`*^9, 3.443194599441202*^9, 3.4431946313110447`*^9, 3.4432083092469177`*^9, 3.4432732868491707`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"IP", ",", "I1", ",", "I2", ",", "I3", ",", "I4", ",", "I5"}], "}"}], ",", " ", RowBox[{"AxesLabel", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "120"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "100"}], "}"}]}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}]], "Input", CellChangeTimes->{{3.44112710904547*^9, 3.441127170733067*^9}, { 3.441127290575543*^9, 3.44112737727042*^9}, {3.4411275665611353`*^9, 3.4411276232081537`*^9}, {3.441128111549569*^9, 3.441128121148506*^9}, { 3.44167755235083*^9, 3.441677552605935*^9}}], Cell[BoxData[ GraphicsBox[{ {Hue[0.67, 0.6, 0.6], PointBox[CompressedData[" 1:eJxd0G1olWUcx/F/JjJJ5BQ2RUadhUyT0TnuueXaf9Ntzjk9rpruwXm5+bS2 5kmbFAu8cCSzV2dBoJF1F0YQludF9CBF14iysNp5oYFi7g4psiCOZCYTIWLX iPO93tx8rh+/+3dzF/bua9s1R0T23iXy33PmZGtfT7iDr86dqvUX+sO1w+2t +7PeedoebTGxgmnviI5Mniob7pujM16kw6c6knk1ed5LNJG3ZKD7jYXeBdp5 9tx7O7+6zzuqZ81Q/8ThfO+HdDQ1v/H82FLvZfrX/NF5xRcf8C7S05mpt06f KfReoYmK4djLsWXeK/Xr5u/d3d8VeRfrkWXjE/PGH/Z+RD84uaju6KFi77hu f/+jI0ePxbxXadXpBR+PDq3yLtEdb750/52iUu9SHbna+2DhzTLvMr2nsutc y+UK73Ktbrp++9OLVd4VeiN/cvrFP6u9K3Xssm4dXFrjXaWLizrK87fVej+q RbG+qz9eUu9qvXLmn89G7q33fkwH7KEvj21e471a09OR3bePr/Wu0W9vna9c cK3B+3G907/HfLi6ybtWq3v+MJWvrPNW/Xzxz6PTvzTP2Kp2L3zthVhpi8/r 9MhP+eWbD2zweZ1OVP92qf1Eq8/rdXrON7cGTm70eb1+Mnfq3QvDm3y+RqvW l/ze9be3XaPtVZ2T4c3ZfK2eWNH0a1XJbL5Wx66PL29YOfv+Bj3eduHtkRv+ e22DxndKz5l3Zv9PoxYs3zJ45fnsFzN5o7+fPU25trCsQw5LM3JY1iOHpQU5 LBuQw9KKHJaNyGHZhByWRK4VtrCDZTP6sIUdLG3owxZ2sDyBPmxhB8uT6MMW drA8hT5sYQdLO/qwhR0sW9CHLexg2Yo+bGEHSwf6sIUdLJ3owxZ2sHShD1vY wdKNPmxhB8s29GELO1h60Ict7GDZjj5sYQeLyXUUVtjAFg5gB4ew7MA+rLCB LRzADg5h6cU+rLCBLRzADg5h6cM+rLCBLRzADg5h2Yl9WGEDWziAHRzCsgv7 sMIGtnAAOziEZTf2YYUNbOEAdnAIyx7swwob2MIB7OAQlr3YhxU2sIUD2MEh LP3YhxU2sIUD2MEhLE9jH1bYwBYOYAeHsAxgH1bYwBYOYAeHsAxiH1bYwBYO YAeHsDyDfVhhA1s4gB0cwjKEfVhhA1s4gB0cwrIP+7DCBrZwADs4hCWZ6wgc heOwwgnYwEnYwik4gNOwgzNwCGdheTbXETgKx2GFE7CBk7CFU3AAp2EHZ+AQ zsKyP9cROArHYYUTsIGTsIVTcACnYQdn4BDOwnIg1xE4CsdhhROwgZOwhVNw AKdhB2fgEM7C8lyuI3AUjsMKJ2ADJ2ELp+AATsMOzsAhnIVlONcROArHYYUT sIGTsIVTcACnYQdn4BDOwnIw1xE4CsdhhROwgZOw/d//AkfxBbI= "]]}, {Hue[0.9060679774997897, 0.6, 0.6], PointBox[CompressedData[" 1:eJxdzXuQjXUcx/Ff2CzrcixLastxma1ls4eQa77srrWWdZBbicdlEYtTW5ph 1G/DoM102moXXTybpjEVjmZcMqZ+a0lDW4tYqskzNSwxdZguqpGm2edXs+/n n2dez/v5zqfrnGUTC5sopRbeptS/74YnPnz6gfohtz7uK/4HieaWDHu9xjpR itd98emUc9YBqUi9vDLle+sOUnmqw/6j9dZ3yJsd27236EfrVElLS8lK/M9B mZS6/frei9bdRBKupm/2rHtIZGh15bd11mmS1KnE+ehz6/skvnrbqsgn1j3l hZ+dd8bErDOk7c6yaeVbrXtLadHGZu9utA5JrO61czUrrPtIfmTtS7MXWPeV lEOrkz+cZP2AdDnbKjNJrPvJzOWLxu7OsO4vswsvZJ3vbD1AliX8NPNwc+sH RZc20c//1sf3QHnr60uRjIvWg0RPfjX78BnrwZI9YOD7gz6zHiLHNpc1WXjA eqiczCw50X6H9TBp9V3TQfVbrR+Sun5ndhWVWQ+X/ITWbZqvsRZptmFH5EKx by1Skl65K+7YPkLSthw4tDPP9hEy9/TBxI4Zto+UAdvM9ZwE20fK2dJQi+QT Ib9nycq2ud7gDb51lrT+4ciNlj1sz5brda1mLO6e6fdsmVx2Knh5yf1+z5FN s7YMq6zq6fcceeZ0VfuKvDS/j5KmGS/W7bl6l99HybTc37sUd+vq91y5dXFt yZ/lQb/nysuLyyvaNfOtRsuR/TU3lp68x++j5di+9PE3S+/2e55E10w40b1f qt/zpLZN0cHiY3f6fYwkd0qsOVLQ2e9jZHtSZtfcqk5+z5ek6nkF67p19Hu+ rLnWovP64g5+HysV+z4o/XJPst/HSmx1YfmqKwG/j5Oqv6qra3q38fs46XV8 d87SFS39XiAHexxVQ6tv93uB7Hg7PTMlpanfx8sf82a9ceXm38Mb+ngpOv/L /E333miwCstXz/U53qvuWoMlLFt+bbJ3+SuX/P/DMrXL7d/U9z/fYBMWWV95 +dnUU/79BH/HfwTWsIHVRNzDGjawmoR7WMMGVg/jHtawgdVk3MMaNrCagntY wwZWU3EPa9jAahruYQ0bWE3HPaxhA6tHcA9r2MDqUdzDGjawmoF7WMMGVo/h HtawgdVM3MMaNrCahXtYwwZWTmMHYYEdWMMubGAPVrOxDwvswBp2YQN7sJqD fVhgB9awCxvYg9Vc7MMCO7CGXdjAHqzmYR8W2IE17MIG9mBViH1YYAfWsAsb 2IPVfOzDAjuwhl3YwB6sFmAfFtiBNezCBvZgtRD7sMAOrGEXNrAHq8exDwvs wBp2YQN7sFqEfVhgB9awCxvYg9Vi7MMCO7CGXdjAHqyKsA8L7MAadmEDe7Ba gn1YYAfWsAsb2IPVUuzDAjuwhl3YwB6slmEfFtiBNezCBvZgFWnsAByEQ7DA YdiBI7CGo7ALx2AD18IeHIfVE40dgINwCBY4DDtwBNZwFHbhGGzgWtiD47B6 srEDcBAOwQKHYQeOwBqOwi4cgw1cC3twHFbFjR2Ag3AIFjgMO3AE1nAUduEY bOBa2IPjsHqqsQNwEA7BAodhB47AGo7CLhyDDVwLe3AcVk83dgAOwiFY4DDs wBFYw1HYhWOwgWthD47DanljB+AgHIIFDsMOHIH1//4HIWNTUw== "]]}, {Hue[0.1421359549995791, 0.6, 0.6], PointBox[CompressedData[" 1:eJxd1HtwVNUdB/AjSWxMeWyniKlkYPMglqebJgYRhW822ZCQhGzeD4VeQB4R CEuMUKjC0cAEH4yJ2EEB4+0IFoOE1DItHVCPVihUx0aFAQKktxXo8JLIgK1t x3Q6/M509rv/ZD75zne+s3fvOcnzlpcvGKSUWnybUv/7e+vTPz2vqnPYxIkj IP9AwdIhU65kjBHH40JX8npv/iSxD/sSv6xvnZMpHo7GQylfrk6fLE7EPcNP tse3PyBOwn68XB+38yGxHwOh3WmRLIhTsHfpkil1K3LEadhxomZL6gtBcToC p/54vr01V/xjjN8z7Eb+wjzxOHRWfL/oyLiQeAI+PB3M0iesJ+F016rQ+435 4gDey2hY++516wwcWDz39m0LZoh/go0JO7c4R60zcax+1K6B0QXiLAz8eY5T vsT6PtSPSW0eucc6G9U3Xv067u/Wk/Hri+tH7by7UHw/9p7//c+bC62n4PWB DfEnm60fwKiTWV5Sh/VUbCuPKVlz2PpBvB2+ueyH16wfwj17Pmn/NnGmeBo6 a6833Ruyno7kw9+072m2Bl74KGnw4l1iDRzOT2qp/qvNc+DNHTdknb9I8hyc e3jVF3GLxCqI3icPFuT91uZBvLK6MXx1WLHkuXhr44HXC1aKdS7O/6EuvPWK zfPw7Ss3286tKpE8Dy8feHb1Cv8syUP4x4nX/lN8U6xD2Lx1wbpdCWHJ8xE7 rrcg5oJY52Pqd7uX7ssuk3wGdItX1327WM9AUfKpI4dO2n4BRuducp942/YL 8Ld5badnPG3zQsQcu9jwcbXNC/HR8ye++sUEm8/EZxMTynMH2Xwm8lf+KPtS V6nkRXi3JTvxjRqxLkJc84t/if3Ofr9ifL0v5c5Fv7Tfrxj12xOnJefYvASt vnXehjP2+ZQg/o7RlWeaxGoW3ljopNXF2HwWfNOC+4dvss+3FDl9TWcHhtrn X4qWMb17j7fa3y+M7akdKQnfyO+NMOYXB9P21dj3IYyrv3vz8opOeb9MGH2Z ztzQZfs+l6GvcHAwXCJGGUpeyg1sXy7nRZfB2/L00Ge3yfkyZVgzfvbog5/a 81iOg+mPBYq+J0Y5rnUkNO7IlfOsyzH/xTOnnnpGzrspx4iuLX1HPwxKvwKf j32+cG+MGBVYVnCsqSVP7g9dgW3bH33n0Hq5X0wF3loz+J/ZG6dLvxKl/86o fjV2mvQrcfVXI2evW/ug9Ctx9PPxxy/dlPvLVGLS1vTNdyyZIv0qpLZ2Zk7o k/sOVbi29tL1g6XZ0q9Cc8fmhskmS/pVuLDoyNSUgL0vq3H50yvxg90M6Vfj WNfKCZt8AelXo2n1v4rc2InSr8bZhjt3hK6MlX4NNhzpuCu9N136NQi+75zN /CxV+jWoGnL3/t8c90u/BrE6Le+L0yOlX4sLk352LiFf7nvUYveTH2z6U+wP pF+LUM2ItPueipd+LXp3DUofUqWkX4dQ3Bmno/7G9Fv9OjSNfW32m89dvmVd h8obQy8mvfPVLZs66dlPfbRB1mRDVg9Tn6zJhqweoT5Zkw1ZzaY+WZMNWc2h PlmTDVn9lPpkTTZk5UTbTwbZIWuySzZkj6zm0j4ZZIesyS7ZkD2ymkf7ZJAd sia7ZEP2yGo+7ZNBdsia7JIN2SOrR2mfDLJD1mSXbMgeWS2gfTLIDlmTXbIh e2S1kPbJIDtkTXbJhuyR1SLaJ4PskDXZJRuyR1aLaZ8MskPWZJdsyB5ZNdA+ GWSHrMku2ZA9snqM9skgO2RNdsmG7JHVEtong+yQNdklG7JHVktpnwyyQ9Zk l2zIHlkto30yyA5Zk12yIXtk1Uj7ZJAdsia7ZEP2yGo57ZNBdsia7JIN2SOr SLR9ZD85QAY5THbIEbImt5FdcjfZkHvIHrmfrFZE20f2kwNkkMNkhxwha3Ib 2SV3kw25h+yR+8mqKdo+sp8cIIMcJjvkCFmT28guuZtsyD1kj9xPVo9H20f2 kwNkkMNkhxwha3Ib2SV3kw25h+yR+8mqOdo+sp8cIIMcJjvkCFmT28guuZts yD1kj9xPVk9E20f2kwNkkMNkhxwha3Ib2SV3kw25h+yR+8lqZbR9ZD85QAY5 THbIEbL+v/8LTE3JmA== "]]}, {Hue[0.37820393249936934`, 0.6, 0.6], PointBox[CompressedData[" 1:eJxd0ltsVFUYxfFNrSChxjHegBAzLUQLohm5FBGxH2JpKS1Mp5dpBeqmlLvI IAiaINnyQlRqRiOXBCmnQOSSABMeiEaUrSEUoqQTaQMiwgEEEQQmEVEJGmN6 dsz8z8vkN19WVnLOym9aFJuVo5Sa20Op/367n0yxyn4km/fAIfhBuC88AA7D BfAg+DG4EB4CD4WfgiPw0/AweDg8Ah4JF8Gj4Gfg0fCz8Bj4OXgs/DxcDEu2 DazG4Q6rF3CH1XjcYfUi7rAqwR1WE3CfIOeeGBRuHPbLwe4/SmXW2K3lw3fc 6t61KZUrdu3U1nV9glyZbJvTsvLuqoe6bcqkdUPjsm0VbqcTJbfX7tSl2fnB faJ0PPrJWyWL3S7LZWfxwMpDkx4P7uXy6z8rOvLvDA7ukyTv4577N64Odmgm yfYtxSNyfnM7rJC+2//a29wW7NBUSO+rMxas+cLtsFIqSi73vtYR7NBUysrm FTeaTrkdTpbb8frWT88EOzSTpeX02YLdZ9wOp8iChV/uuv1DsEMzRcaPKV89 /aTbYVTaTq27srEr2KFEZedn0w6/3xXs0ERlR5/iuqGngh3aqJjOo/etveh2 WCWmpfDbpW3BDqVKdv358CM5e4Idmio59928PeM+DHZoq6Trm5vLC+NuhzHZ 3H61trVHsDuJyciDqeqNlYFNTPrHjx4f/UFgG5Pr/fp2bTvmdlotrXMORbbe FexSqmV9U8mFvcMDm2r5/Vhyyr2NgW21rMr5+3LnKrfjGmmIFj2Zu8Xla+TG gYErVn/u8jVyIpY7YHyHy9fI5jeKWvr/6PK1cu2BCUW3fnL5Wvm614am9ksu Xysz2preefe8y9dK+qP2ztKTLl8nP++9fun+Iy5fJ/N73jyXs8/l62TDstiB Uetcvk5O3xl19ehSl4/LxeO9mtsrXT4uuSf0hcJ8l4/L28NGlx6+7t5fXNac HLy+bL97f/Vy9nx1Xr/l7v3Xy6bEDlURce+/Xt7c//2QvK+C72XrpaDjWu6+ Pu77NcgfS2bOLBwTfF9pkOSeI+/1LHPfv0HyOjddLCgM9mEbgpx7Xsq2wAa2 sJqKPGxgC6tpyMMGtrCajjxsYAurRuRhA1tYvYw8bGALK53tMCywhg3swRb2 YTUD/bDAGjawB1vYh1UT+mGBNWxgD7awD6uZ6IcF1rCBPdjCPqya0Q8LrGED e7CFfVjNQj8ssIYN7MEW9mE1G/2wwBo2sAdb2IfVHPTDAmvYwB5sYR9Wc9EP C6xhA3uwhX1YzUM/LLCGDezBFvZhNR/9sMAaNrAHW9iH1QL0wwJr2MAebGEf Vq+gHxZYwwb2YAv7sFqIflhgDRvYgy3sw+pV9MMCa9jAHmxhH1aL0A8LrGED e7CFfVglsh2Cw3AEFjgKazgBGzgJe3AKtnAa9uEMrBZnOwSH4QgscBTWcAI2 cBL24BRs4TTswxlYvZbtEByGI7DAUVjDCdjASdiDU7CF07APZ2C1JNshOAxH YIGjsIYTsIGTsAenYAunYR/OwGpptkNwGI7AAkdhDSdgAydhD07BFk7DPpyB 1evZDsFhOAILHIU1nIANnIQ9OAVbOA37cAZWy7IdgsNwBBY4Cms4AZv//S+D MTwG "]]}, {Hue[0.6142719099991583, 0.6, 0.6], PointBox[CompressedData[" 1:eJxd1H9o1HUcx/H3DLUo62oa/Vh6sxWzRZzLympzb5dmWdbttt02y/y4XGm1 dlYOIoLPP4UlwlfCKPbHPpG4jKiL/RME8aGgWMw6Kw2i6AMVNfxjF8EKEoq4 zxHf5/ef48GL973+en2ah8cKI4tEZE+DyH+/ta/aJelP0zwXzsDL4cvgJjgL r4Zb4GvhVvg6+Hr4BjgHr4Xb4RvhdfBN8M3wLfB6+Fb4Nvh2uAPuhDfAXbCm bWHZiByWbuSw3IEclk3IYdmMHJY7kcOyBTksdyGH5W7ksGxFDss9yGG5Fzks 25DDch9yWO5HDks+bYUt7GHp0al/Xv5x9tIztXdDe3RHsu6Tudb5mm2PNk3v Ko9M/1Wz79Hxjz/6fGb3OfF/Crph8u9DXW0X1KwFXdb9c+NrlzTWbAt6/K3R pQeeje+IL2jL1MH+K9esjPe92pBMFlsWr473vdqzfOWbR5dcE+979d1TVz33 XmN8J3yvDk+0d7ze2hbv+3TTZ0cv/Ko7vgvapwt/vNDQWY7vgu3TuTd+Sc7X +A74Pl3xzttn2yv1d6Bfv/7+2MgqE3ev/bp/4zebNs/H3dt+nSgtm21+Pu7c 9+v7C9NjXefVd13UDw6NX935Sty1FnW0cWLFt1fEHdui7jsxszA/GXfsi/rd +qnMtovrOx3QqYXTTcnJaB3QRX82H1lyOO7UDmhrxxcnL893x/sBnf3p15nt F9V3OKi/nSmsefHLaB3UVw8u3frS4bhDO6jNP6ydPVCMu/ODeqxvy4m5VfWd Denvp08175yP1iHtWhhMzn4ad2aH9MO2vYt7j8dd+aF4V/+2p62whT0sD+Ae trCH5UHcwxb2sOzAPWxhD8tDuIct7GHZiXvYwh4Wk3YWVtjAFnawhwMsu9AP K2xgCzvYwwGWYfTDChvYwg72cIDlYfTDChvYwg72cIBlN/phhQ1sYQd7OMAy gn5YYQNb2MEeDrA8gn5YYQNb2MEeDrA8in5YYQNb2MEeDrDsQT+ssIEt7GAP B1j2oh9W2MAWdrCHAyyPoR9W2MAWdrCHAyyPox9W2MAWdrCHAyxPoB9W2MAW drCHAyyj6IcVNrCFHezhAMuT6IcVNrCFHezhAMsY+mGFDWxhB3s4wFJKOwNn 4RyscB42cAm2cAI7uAx7uAIHuArLvrQzcBbOwQrnYQOXYAsnsIPLsIcrcICr sDyVdgbOwjlY4Txs4BJs4QR2cBn2cAUOcBWWp9POwFk4Byuchw1cgi2cwA4u wx6uwAGuwvJM2hk4C+dghfOwgUuwhRPYwWXYwxU4wFVY9qedgbNwDlY4Dxu4 BFs4gR1chj1cgQNchWU87QychXOwwnnYwCXY/u9/AcEb48c= "]]}, {Hue[0.8503398874989481, 0.6, 0.6], PointBox[CompressedData[" 1:eJxdzTkOXFUQBdCCiLADAgIHH4QQQgg182w/DNjMNGaenw0GM7oZ41pCL+Et oZdQS+glvCX0EhAiQP9UUjq6urr33rh97eadEXHrjoh//393vhTra2vehTf4 bnwPvoAXfB++Hz+AH8QP4YfxI3iLH8WP4cfxE/hJ/BR+Gj+Dn8XP4efxC/hF fBFfwm3txPESOY7L5DheJsfxCjmOV8lxXCHHcZUcx2vkOF4nx/EGOY43yXG8 RY7jbXIc75DjeJccx27thhMXjvfo48SF4xp9nLhwvE8fJy4cH9DHiQvHh/Rx 4sLxEX2cuHB8TB8nLhyf0MeJC8en9HHiwvEZfZy4cHxOHycuHF/Qx4kLx5f0 ceLC8RV9nLhwfE0fJy4cfe0FN9xx4oELTxzX2ccNd5x44MITxw32ccMdJx64 8MTxDfu44Y4TD1x44viWfdxwx4kHLjxx3GQfN9xx4oELTxzfsY8b7jjxwIUn ju/Zxw13nHjgwhPHLfZxwx0nHrjwxPED+7jhjhMPXHji+JF93HDHiQcuPHH8 xD5uuOPEAxeeOH5mHzfcceKBC08cv7CPG+448cCFJ45f2ccNd5x44MITx232 ccMdJx648MSxX3uDF7zFDe9wx3uc+IAHPuLCJzzxGcdva2/wgre44R3ueI8T H/DAR1z4hCc+4/h97Q1e8BY3vMMd73HiAx74iAuf8MRnHH+svcEL3uKGd7jj PU58wAMfceETnviM48+1N3jBW9zwDne8x4kPeOAjLnzCE59x/LX2Bi94ixve 4Y73OPEBD3zEhU944jOOv9fe4AVvccM73PEe5//+B6A5aws= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["\"y (mm)\"", TraditionalForm], FormBox["\"Current(A)\"", TraditionalForm]}, AxesOrigin->{0, Automatic}, ImageSize->500, PlotRange->{{0, 120}, {0, 100}}, PlotRangeClipping->True]], "Output", CellChangeTimes->{{3.4411271495300627`*^9, 3.441127171381648*^9}, 3.441127293772106*^9, 3.44112736634089*^9, {3.441127598488855*^9, 3.44112762480086*^9}, {3.4411280851867247`*^9, 3.441128121815927*^9}, 3.441128231418127*^9, 3.441128396649535*^9, 3.441128543072863*^9, 3.441128913558227*^9, 3.4411522976744843`*^9, 3.441677522821109*^9, 3.441677553325171*^9, 3.4416804699786243`*^9, 3.441713948302434*^9, 3.441716562592161*^9, 3.441817367449048*^9, 3.44225569968401*^9, 3.442255938699896*^9, 3.442257428282166*^9, 3.442261532202293*^9, 3.442325309978209*^9, 3.4431828149962606`*^9, 3.4431945995146*^9, 3.443194631420011*^9, 3.443208309336937*^9, 3.443273286895804*^9}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Transport Segment 4", "Section", CellChangeTimes->{{3.427557417391244*^9, 3.4275574212738867`*^9}, { 3.4411221096197567`*^9, 3.441122111491469*^9}, {3.441122508437797*^9, 3.441122511640093*^9}, {3.4411277226665297`*^9, 3.441127722814207*^9}, { 3.441128631204597*^9, 3.44112863229961*^9}, {3.441677590429941*^9, 3.4416775930292463`*^9}}], Cell["Segment 3 - Coils 3, 4 & 5.", "Text", CellChangeTimes->{{3.4275574238332644`*^9, 3.427557519898347*^9}, { 3.441122709553803*^9, 3.441122723090308*^9}, {3.4411277251617403`*^9, 3.441127734985326*^9}, {3.441128634874387*^9, 3.4411286420184526`*^9}}], Cell[CellGroupData[{ Cell["Coil Definition", "Subsection", CellChangeTimes->{{3.424789285638125*^9, 3.42478928884125*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"Push", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "ampsPush_"}], "]"}], ":=", " ", RowBox[{"CustomPush", "[", RowBox[{ "x", ",", "y", ",", "z", ",", "distP", ",", "ampsPush", ",", "radP", ",", "PwireWidth", ",", "PwireLength"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coil1", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "amps1_"}], "]"}], ":=", RowBox[{"Coil", "[", RowBox[{"x", ",", RowBox[{"y", "-", "ydispl1"}], ",", "z", ",", "dist1", ",", "amps1", ",", "rad1", ",", "MOTwireWidth", ",", "MOTwireLength", ",", "numRad1", ",", "numAx1"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coil2", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "amps2_"}], "]"}], ":=", RowBox[{"Coil", "[", RowBox[{"x", ",", RowBox[{"y", "-", "ydispl2"}], ",", "z", ",", "dist2", ",", "amps2", ",", "rad2", ",", "HwireWidth", ",", "HwireLength", ",", "numRad2", ",", "numAx2"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coil3", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "amps3_"}], "]"}], ":=", RowBox[{"Coil", "[", RowBox[{"x", ",", RowBox[{"y", "-", "ydispl3"}], ",", "z", ",", "dist3", ",", "amps3", ",", "rad3", ",", "HwireWidth", ",", "HwireLength", ",", "numRad3", ",", "numAx3"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coil4", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "amps4_"}], "]"}], ":=", RowBox[{"Coil", "[", RowBox[{"x", ",", RowBox[{"y", "-", "ydispl4"}], ",", "z", ",", "dist4", ",", "amps4", ",", "rad4", ",", "HwireWidth", ",", "HwireLength", ",", "numRad4", ",", "numAx4"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coil5", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "amps5_"}], "]"}], ":=", RowBox[{"Coil", "[", RowBox[{"x", ",", RowBox[{"y", "-", "ydispl5"}], ",", "z", ",", "dist5", ",", "amps5", ",", "rad5", ",", "HwireWidth", ",", "HwireLength", ",", "numRad5", ",", "numAx5"}], "]"}]}]}], "Input", CellChangeTimes->{{3.4108691929057975`*^9, 3.4108692511714225`*^9}, { 3.4108696083120475`*^9, 3.4108696370776725`*^9}, {3.4108878639057975`*^9, 3.4108878917339225`*^9}, 3.4108880255620475`*^9, {3.4108880572026725`*^9, 3.4108880934839225`*^9}, {3.4108881324057975`*^9, 3.4108881358276725`*^9}, {3.4114971485377502`*^9, 3.4114971533502502`*^9}, {3.4115798687252502`*^9, 3.4115798990846252`*^9}, {3.4115801645377502`*^9, 3.4115801658346252`*^9}, {3.4115850364908752`*^9, 3.4115850513502502`*^9}, {3.4116541353815002`*^9, 3.4116541668815002`*^9}, {3.4116543291315002`*^9, 3.4116543294752502`*^9}, {3.413042775259*^9, 3.41304278797775*^9}, { 3.4130428408215*^9, 3.413042899509*^9}, {3.413042982962125*^9, 3.41304298922775*^9}, {3.41304393541525*^9, 3.4130439359465*^9}, { 3.4130475845715*^9, 3.41304758510275*^9}, {3.4147689327342415`*^9, 3.4147689545786905`*^9}, {3.4157043510358753`*^9, 3.4157043545515003`*^9}, {3.4240142755295*^9, 3.424014280982625*^9}, { 3.424708044607378*^9, 3.424708045091753*^9}, {3.424708516388628*^9, 3.424708547888628*^9}, {3.424789355935*^9, 3.424789362294375*^9}, { 3.424793540700625*^9, 3.42479354259125*^9}, {3.42479373102875*^9, 3.424793804356875*^9}, {3.42479385740375*^9, 3.424793870231875*^9}, { 3.424793962731875*^9, 3.424794012106875*^9}, {3.424794111200625*^9, 3.42479411184125*^9}, {3.42479467331*^9, 3.424794687200625*^9}, { 3.42504874452875*^9, 3.425048750606875*^9}, 3.42504893756*^9, 3.425049003856875*^9, {3.425052076763125*^9, 3.425052080075625*^9}, { 3.42505228456*^9, 3.425052285138125*^9}, {3.425053193700625*^9, 3.42505319734125*^9}, {3.425140953629081*^9, 3.425140955394706*^9}, { 3.425143919457206*^9, 3.425143919832206*^9}, {3.42530989195675*^9, 3.425309893034875*^9}, {3.4253099389255*^9, 3.425309941488*^9}, { 3.42531268476925*^9, 3.425312693941125*^9}, {3.4275484377987127`*^9, 3.427548439150815*^9}, {3.427549179203624*^9, 3.427549180977133*^9}, { 3.427557753123818*^9, 3.427557807078123*^9}, {3.431959729046167*^9, 3.431959734430778*^9}, {3.431959767318501*^9, 3.431959777847219*^9}, { 3.432522576195047*^9, 3.432522576768517*^9}, {3.432522640640594*^9, 3.432522641159569*^9}, {3.43252273720122*^9, 3.4325227374044447`*^9}, { 3.4325227774233923`*^9, 3.4325227782576227`*^9}, {3.432522979857479*^9, 3.432522986718114*^9}, {3.4342027674829407`*^9, 3.434202767818779*^9}, { 3.4342033583019247`*^9, 3.434203358566132*^9}, {3.4342035182972803`*^9, 3.434203518695207*^9}, {3.434203693374236*^9, 3.4342036937433043`*^9}, { 3.4342038767456837`*^9, 3.434203880149901*^9}, {3.4342043595530024`*^9, 3.434204360389633*^9}, {3.434204574074339*^9, 3.434204576586729*^9}, { 3.434204726385235*^9, 3.434204727655446*^9}, {3.4342049825787983`*^9, 3.4342049830998783`*^9}, {3.4363860850199957`*^9, 3.4363861459997807`*^9}, {3.4411286966296463`*^9, 3.441128719136548*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Calculation", "Subsection", CellChangeTimes->{{3.427557803876124*^9, 3.4275578048430853`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Clear", " ", "[", RowBox[{ "ypos", ",", "buf", ",", "n", ",", "y0", ",", "yf", ",", "scale", ",", "MagX", ",", "MagY", ",", "MagZ", ",", "curr1", ",", "curr2", ",", "currP", ",", "curr3"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ampsP", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amps1", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amps2", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amps3", "=", "curr3"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amps4", "=", "curr4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"amps5", "=", "curr5"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Unit", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], ":=", RowBox[{ RowBox[{"Push", "[", RowBox[{"x", ",", "y", ",", "z", ",", "ampsP"}], "]"}], "+", RowBox[{"Coil1", "[", RowBox[{"x", ",", "y", ",", "z", ",", "amps1"}], "]"}], "+", RowBox[{"Coil2", "[", RowBox[{"x", ",", "y", ",", "z", ",", "amps2"}], "]"}], "+", RowBox[{"Coil3", "[", RowBox[{"x", ",", "y", ",", "z", ",", "amps3"}], "]"}], "+", RowBox[{"Coil4", "[", RowBox[{"x", ",", "y", ",", "z", ",", "amps4"}], "]"}], "+", RowBox[{"Coil5", "[", RowBox[{"x", ",", "y", ",", "z", ",", "amps5"}], "]"}]}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"xComp", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{ RowBox[{"Unit", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"yComp", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{ RowBox[{"Unit", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"zComp", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{ RowBox[{"Unit", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "[", RowBox[{"[", "3", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GxComp", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{ SubscriptBox["\[PartialD]", "x"], RowBox[{"xComp", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GyComp", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{ SubscriptBox["\[PartialD]", "y"], RowBox[{"yComp", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"GzComp", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{ SubscriptBox["\[PartialD]", "z"], RowBox[{"zComp", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}]}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", " ", "=", " ", "30"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y0", "=", " ", RowBox[{"103", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"yf", " ", "=", " ", RowBox[{"132", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"scale", " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"yf", "-", "y0"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"buf", " ", "=", " ", RowBox[{"UnitVector", "[", RowBox[{"n", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"asp", " ", "=", " ", RowBox[{"UnitVector", "[", RowBox[{"n", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "0"}], ",", RowBox[{"i", "<", "n"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"ypos", " ", "=", " ", RowBox[{"y0", "+", RowBox[{"scale", "*", "i"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"sol", " ", "=", " ", RowBox[{"Solve", " ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"yComp", "[", RowBox[{"zero", ",", "ypos", ",", "zero"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"GzComp", "[", RowBox[{"zero", ",", "ypos", ",", "zero"}], "]"}], "\[Equal]", "gradient"}], ",", RowBox[{ FractionBox[ RowBox[{"GxComp", "[", RowBox[{"zero", ",", "ypos", ",", "zero"}], "]"}], RowBox[{"GyComp", "[", RowBox[{"zero", ",", "ypos", ",", "zero"}], "]"}]], "\[Equal]", RowBox[{"Aspect", "[", "ypos", "]"}]}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"curr3", ",", " ", "curr4", ",", "curr5"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"buf", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], " ", "=", " ", RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"asp", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "=", RowBox[{"Aspect", "[", "ypos", "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Curr4", "=", " ", RowBox[{"curr4", "/.", "buf"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Curr5", " ", "=", " ", RowBox[{"curr5", "/.", "buf"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Curr3", " ", "=", " ", RowBox[{"curr3", "/.", "buf"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", " ", "=", " ", "0"}], ",", " ", RowBox[{"i", "<", "n"}], ",", RowBox[{"i", "++"}], ",", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"I1", "[", RowBox[{"[", RowBox[{"i", "+", RowBox[{"y0", "/", "mm"}]}], "]"}], "]"}], "=", "0"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"I2", "[", RowBox[{"[", RowBox[{"i", "+", RowBox[{"y0", "/", "mm"}]}], "]"}], "]"}], "=", "0"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"I3", "[", RowBox[{"[", RowBox[{"i", "+", RowBox[{"y0", "/", "mm"}]}], "]"}], "]"}], "=", RowBox[{"Curr3", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"IP", "[", RowBox[{"[", RowBox[{"i", "+", RowBox[{"y0", "/", "mm"}]}], "]"}], "]"}], "=", "0"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"I4", "[", RowBox[{"[", RowBox[{"i", "+", RowBox[{"y0", "/", "mm"}]}], "]"}], "]"}], "=", RowBox[{"Curr4", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"I5", "[", RowBox[{"[", RowBox[{"i", "+", RowBox[{"y0", "/", "mm"}]}], "]"}], "]"}], "=", RowBox[{"Curr5", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"Curr3", ",", "Curr4", ",", "Curr5"}], "}"}], ",", RowBox[{"DataRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"y0", "*", "1000"}], ",", RowBox[{ RowBox[{"(", RowBox[{"y0", "+", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}], "*", "scale"}]}], ")"}], "*", "1000"}]}], "}"}]}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"y0", "*", "1000"}], ",", "0"}], "}"}]}], ",", RowBox[{"PlotMarkers", "\[Rule]", RowBox[{"{", RowBox[{"Automatic", ",", "Small"}], "}"}]}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotLabel", "\[Rule]", "\"\\""}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}]}], "Input", CellChangeTimes->{{3.424794846638125*^9, 3.424795033419375*^9}, { 3.4247952409975*^9, 3.4247952994975*^9}, {3.424795401575625*^9, 3.424795403138125*^9}, {3.424795508919375*^9, 3.42479551006*^9}, { 3.42479560059125*^9, 3.42479568802875*^9}, {3.424796194185*^9, 3.42479622109125*^9}, {3.424796345856875*^9, 3.4247963796225*^9}, { 3.424799205356875*^9, 3.4247992094975*^9}, {3.424799415481875*^9, 3.42479941565375*^9}, {3.424799600919375*^9, 3.424799612825625*^9}, { 3.4247996814975*^9, 3.424799686356875*^9}, {3.424799847013125*^9, 3.42479985396625*^9}, {3.425044396138125*^9, 3.42504440177875*^9}, 3.4250446944975*^9, {3.42504483252875*^9, 3.42504489046625*^9}, { 3.42504494815375*^9, 3.42504499659125*^9}, {3.425052742794375*^9, 3.425052768794375*^9}, 3.42505291606*^9, {3.425146476738456*^9, 3.425146492550956*^9}, {3.425146874222831*^9, 3.425146874941581*^9}, { 3.425306681503625*^9, 3.425306686816125*^9}, {3.425311146534875*^9, 3.4253112353005*^9}, {3.425311319238*^9, 3.425311322847375*^9}, { 3.42531273214425*^9, 3.42531275320675*^9}, {3.425313256472375*^9, 3.425313257488*^9}, {3.425313288566125*^9, 3.425313289222375*^9}, 3.42565147825*^9, {3.425658336640625*^9, 3.425658352046875*^9}, { 3.4256584149375*^9, 3.425658423671875*^9}, {3.42565847684375*^9, 3.425658480296875*^9}, {3.42565853471875*^9, 3.42565853840625*^9}, 3.427652733232007*^9, {3.4276530609284573`*^9, 3.427653061947754*^9}, { 3.432523452809812*^9, 3.432523501924593*^9}, {3.432563448739462*^9, 3.432563449857027*^9}, {3.433864207548109*^9, 3.433864208716193*^9}, { 3.4404342365420523`*^9, 3.44043424244471*^9}, {3.441122176941136*^9, 3.4411221973153133`*^9}, {3.441122540205755*^9, 3.441122625789896*^9}, { 3.4411226578767242`*^9, 3.4411226860159073`*^9}, {3.441127677620097*^9, 3.4411276834324827`*^9}, {3.441127739341113*^9, 3.441127808168995*^9}, { 3.441127981960608*^9, 3.441128045797517*^9}, {3.441128186416677*^9, 3.441128213359702*^9}, {3.441128358141787*^9, 3.441128359546916*^9}, { 3.4411285259023247`*^9, 3.44112852610019*^9}, {3.441128608285178*^9, 3.441128609994923*^9}, {3.441128679152594*^9, 3.4411286910788813`*^9}, { 3.4411287233249607`*^9, 3.4411287862321253`*^9}, {3.441676999938737*^9, 3.441677000191649*^9}, {3.443207821336577*^9, 3.443207827667921*^9}, { 3.443207883845065*^9, 3.443207894559989*^9}, {3.4432083859915457`*^9, 3.443208430597031*^9}}], Cell[BoxData[ GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJzt1PtX03Ucx/EldEErRw1DcQIDDjdFcBswpux9vEw3NrnkYvd9pdAMCtHT UYI82CkLjQKVLOgiRLCgQGDnJNJZRCcp5hmQns4JmrRwdABTDLRpXCL3+bz/ hn7YztnZee2c5zn77nHOOzSnICt3CYvFsiy+//u8/+rWgM/bdVxOoRg8X2hB InnG+tCzKZ4NWqguUaxxqkWeXaqFnTX8vI2ZyZ7drYXyuy7dsDyJ9DoIVl7J MG9NJL0OVjTLmyybhKTXwW/q2PlkoYD0OlD9yLiqYvik14O07+UoFXcD6fVw W+IbHvtYAun1MDO7qX5qej3p9SBSFcxW9a4jvQFeFcec6KmKJb0Btk1qd2ab oklvAOELlzi1EZGkN8BZ8z/v50yEk94Ij8+PhYy28khvBL21otinKIT0Rtj9 s1v61cnVpDdCdXRtXa88kPQmcN4tGlFHcEhvgrlL+w9nxbNJb4Iu7ljIrnuP kN4EWbsvn76yZQnpGfhlbPkX6ybckvszhIEKf6WtTXXTs4GBVE3ejndYo57N MOC2vNtSusvh2aUMCJlo2++t1yTUd1XAncq5JBn6isu2HSq+LkPfY+zx1y+W y9F3+dRzvQ5uGvoO8jn+8HEa+orbjmY/yFagb2DbwDfTBxXoG269pa/sU6Dv qfqvM/gcJfp+umW0e2mmEn3T63gj648q0dfleDG4uV6Jvk3Bzo9KumhvAFn+ QmPt97Q3wEBpe3bgd7Q3gGP2aryzg/YGcOfaOufP0N4IPTIN+2AB7Y1Q+FfK m+IU2huhZbOvXu6mv98I/edq3jvyuQJ993J9VlUr6fObIGm136/Ca2noK9s7 E2TJp/+fCVpSK6XxY3L0TX/aNZ+XTvai72f7g0rON1APBjqk2U8Oj+8A6tve cytjMoDsRd/CYs5LUZHbgfqe1SQ0dK34Q0J9bXalP7N0WkJ9+zOdj9akz0mo 7749muNDQ77oa806XGt2LEPfD/tHBO1Wf/QNGrlnv/1DAPouE1THtc2tRN+n Jjk+cRlr0Ldzz/V6ri4UfT/QD168fCoMffOnVOM37BHoe/PvA812vyj0PdN0 bDxncwz62suDT6w8tBZ9/+T5uQYb4tBXVVa0sO/5ePQN7WoU5L6SgL5bWQd+ MpZtQF8Br1H4VhUffcNEC4mpnwjQt9NyrvXhRiH6qh8Yijz9ZSL6modFfRc6 ktA37bVvbUUXktF3bdjAG3d6ROh7Q2euOGKn95QB6URTyvGrYvTlnVf3dc9s RF8Tn81eeCIVfb332XufvffZe5+pr/c+/z/u87+KsTSX "], { {Hue[0.67, 0.6, 0.6], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 91], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 92], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 93], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 94], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 95], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 96], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 97], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 98], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 99], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 100], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 101], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 102], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 103], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 104], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 105], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 106], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 107], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 108], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 109], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 110], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 111], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 112], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 113], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 114], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 115], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 116], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 117], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 118], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 119], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 120]}, {Hue[0.9060679774997897, 0.6, 0.6], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 121], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 122], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 123], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 124], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 125], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 126], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 127], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 128], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 129], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 130], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 131], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 132], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 133], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 134], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 135], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 136], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 137], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 138], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 139], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 140], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 141], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 142], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 143], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 144], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 145], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 146], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 147], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 148], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 149], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 150]}, {Hue[0.1421359549995791, 0.6, 0.6], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 151], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 152], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 153], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 154], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 155], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 156], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 157], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 158], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 159], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 160], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 161], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 162], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 163], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 164], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 165], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 166], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 167], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 168], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 169], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 170], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 171], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 172], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 173], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 174], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 175], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 176], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 177], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 178], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 179], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 180]}, {}}], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["\"y (mm)\"", TraditionalForm], FormBox["\"I (A)\"", TraditionalForm]}, AxesOrigin->{103, 0}, ImageSize->400, PlotLabel->FormBox["\"Current Segment 3\"", TraditionalForm], PlotRange->{{103., 132.}, {0., 59.54399585697008}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", Evaluatable->False, CellChangeTimes->{3.4342145796800823`*^9, 3.434385202004236*^9, 3.436386197656507*^9, 3.436386651213832*^9, 3.436395613556868*^9, 3.436396817504443*^9, 3.4363969126714*^9, 3.4363971792293*^9, 3.436397300430133*^9, 3.436397559830633*^9, 3.436398752391986*^9, 3.436449865788514*^9, 3.436450221673046*^9, 3.436450329516295*^9, 3.436450489105962*^9, 3.4364508144356947`*^9, 3.440421240342807*^9, 3.440433992439755*^9, 3.4405102804636908`*^9, 3.4405203924137697`*^9, 3.440785677635889*^9, 3.441114949414207*^9, 3.4411222459797983`*^9, 3.441122718256427*^9, 3.441128084695787*^9, 3.441128230884494*^9, 3.441128396434573*^9, 3.4411285427938337`*^9, 3.441128814746563*^9, 3.441128924618191*^9, 3.4411523083245153`*^9, 3.4416775983315163`*^9, 3.441680481217638*^9, 3.4417139587969227`*^9, 3.441716573425947*^9, 3.4418173779394493`*^9, 3.442255710202289*^9, 3.442255949382615*^9, 3.442257438829378*^9, 3.4422615429536657`*^9, 3.442325320526637*^9, 3.443182825684968*^9, 3.443207845511889*^9, 3.443208496736272*^9, 3.443273295853134*^9}, ImageSize->{400., -0.0625}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"TotCurrent", "=", RowBox[{"IP", "+", "I1", "+", "I2", "+", "I3", "+", "I4", "+", "I5"}]}], ";"}]], "Input", CellChangeTimes->{{3.441122030666716*^9, 3.4411220413190317`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Max", "[", RowBox[{"I3", "+", "I4", "+", "I5"}], "]"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", "Pstage4", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Pstage4", "=", RowBox[{ RowBox[{ SuperscriptBox["Curr3", "2"], "*", "R3"}], "+", RowBox[{ SuperscriptBox["Curr4", "2"], "*", "R4"}], "+", RowBox[{ SuperscriptBox["Curr5", "2"], "*", "R5"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Max", "[", "Pstage4", "]"}], "\[IndentingNewLine]", RowBox[{"Mean", "[", "Pstage4", "]"}]}], "Input", CellChangeTimes->{{3.441677624896196*^9, 3.441677630391364*^9}, { 3.443208459923291*^9, 3.443208478241914*^9}}], Cell[BoxData["86.46615662223086`"], "Output", CellChangeTimes->{3.441677631094013*^9, 3.441680481464036*^9, 3.441713959065661*^9, 3.441716573492588*^9, 3.4418173780663843`*^9, 3.4422557104401417`*^9, 3.442255949539076*^9, 3.442257438964622*^9, 3.442261543082196*^9, 3.442325320842557*^9, 3.443182825873849*^9, 3.443207845907786*^9, 3.44320849693791*^9, 3.4432732960508633`*^9}], Cell[BoxData["192.73738581522088`"], "Output", CellChangeTimes->{3.441677631094013*^9, 3.441680481464036*^9, 3.441713959065661*^9, 3.441716573492588*^9, 3.4418173780663843`*^9, 3.4422557104401417`*^9, 3.442255949539076*^9, 3.442257438964622*^9, 3.442261543082196*^9, 3.442325320842557*^9, 3.443182825873849*^9, 3.443207845907786*^9, 3.44320849693791*^9, 3.44327329605835*^9}], Cell[BoxData["179.61604849841254`"], "Output", CellChangeTimes->{3.441677631094013*^9, 3.441680481464036*^9, 3.441713959065661*^9, 3.441716573492588*^9, 3.4418173780663843`*^9, 3.4422557104401417`*^9, 3.442255949539076*^9, 3.442257438964622*^9, 3.442261543082196*^9, 3.442325320842557*^9, 3.443182825873849*^9, 3.443207845907786*^9, 3.44320849693791*^9, 3.4432732960627117`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{"TotCurrent", ",", RowBox[{"PlotLabel", "\[Rule]", "\"\\""}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}], ",", RowBox[{"PlotRange", "->", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "132"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "180"}], "}"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.440433863096459*^9, 3.440433920590934*^9}, { 3.440434005472899*^9, 3.4404341123054037`*^9}, {3.441128061444706*^9, 3.441128063196477*^9}, {3.441129295493791*^9, 3.441129328387967*^9}, { 3.441677612555744*^9, 3.4416776129451017`*^9}}], Cell[BoxData[ GraphicsBox[ {Hue[0.67, 0.6, 0.6], PointBox[CompressedData[" 1:eJxd1HtQVOcZBvBDph1NL7AJEqMyyapICKVxI6QoCDyAgqDAcl1YbkcEFcW4 wAppasyJxisqRGNzUcnROImNpkJtGjWtPeN4qU1iCWoywSaeRCzeZ1ONtonW ppPvnQ7P/sP8eHh49/2+OWd0zcKCuns0TZsbpGn/+/n9J5Byxf326YqjE6F+ gfwY3/g/LEhWHoqWoU13n/84VdmBrQNdB5dnTFEehrw524q+WpOh/CAGwt6o fe3Nacrh8MY8VhtrZis7keb8+ftjn5qhPAb6tjEea0KucgRGfnJvffzJPOVI +GKQkvNbt3IUKqqqzwbm5itHI7D+3YxbIwuUY3Az6alVR4+IH0PksaAZB+YV KrvQ2u+bPfbHRcqPI3ny6VMZO8UTsP2zU2EV6cXKsXCH7xpY85k4Dt6TzpYL rSXKT+BU0pAf+UM9yr/AlNTJeaHd4nj05RZOXZ9fqjwRP2heMLDma/EkHNo9 YuWqrWXKCQjx1O7vy/IqJ+JmyD9Wvf6NeDK2N86q+mBPuXISfvXX+/benluh nIzVT24PWzeuUjkFRuGNyf5+MTDbHb0jekfV9zaAr/zp0c/WVKs8FQ+9PnDh 0WBd5akoMfZceWW2spaGirj9J4relTwNIY2T7m74VvJ07Cx5fokjZqbK0+F7 74eP6EnK2hScv9MeejBc8iloiChKWPsb6U9F4hcNrQ/mqO9jTIV3yOcd+yJl 3wxEdWyLuVyj7tfIwInOecM6o+R+M1HyYWKry69sZOLwlp3Xbr8j+TSM+/qe C7uvST4NFwcu3ProIbn/LMSsG/bMpQxlIwttjsK+ujmSZyN++LMTdxqSZ+OP 00OO/XSj5NPRMfNQ69VOyafDl2PHb94h+Qzsa8/eUy82ZiB69PSNu+TvtRz4 939i/l7+n5GDOz8LL+1bJnkuWpZ+8Ip/oeS5SJ1VkPt5ieR5CFnVl9mSIHke HIvKN5sjJXejZf3o9/5yS+0PN1Z6I7pre+U8vnvOxiVf//dbypYbL7nWNkcs lfPLR27V365OWC79fDQFFjSaM6WfD/+xLavHFEs/H0cPBi3OLZV+AaJOvfrn E3XSL0Ds9VE1x38p/QIc/zDL439B+gXwd7pCjsv30Qqx78C3x3IOS78QP3nZ l3Lt79IvxH8WVvnOXpd+ITzXh3jbhsr+RbiYcvvtpXIeKIJv6oHTTY/KeRXh 5RUrHnn4CWWrCPa69nkVSdIvxo2a1qDgNOkX45u9iSkR6dIvhv/FERs2Q/rF CP4yrXix3IdWgvDxHclnXNIvwZHmJc/1jZV+CT6+4z2/K1T6JRg+rWnCi5r0 PfAkz1oWuCT7e3B5ydX45JOyvwd3/7ViWeQB2d+DmMj3+9ebcn6lKLg0Mqtr pfRLcT4sLje+UfqluBgcGNFYLf1SzIoN+Wi13KdWhraJmWP7PdIvw/AvPo3f 1CD9MhyPurbogS3SL0Oqoyuz8Q3pe7Gz7ZnLUWek70V3TOLNsvtlfy+Co3t7 h2XL/l586W2POCzPm1aOsxfSzw1/R86vHFO65825eV765Wgrvao13a/e11Y5 3CcHgg5Nkvd3BRK2xVQnlyujAvvWNjxe2aJsVKCzof657jXSr8DTn145d+kl 6VdioHfT0tNbpV+Jtvahmd4t0q9EqOutW0s2Sr8SdWvOjZ+9TPpVmN/cPCmv QfpVCLtv98CmXOlXIbv1zJ7fRUv/O++PL0wMkn41jPLzK/p7Zf9qpI1a+vBy U/avxuIz7TNHzZfzq8aNV88mnI6V89MR/M9fe8Jvq/N36misPzH1zSNyHzo6 4wbiXtigrOt44LU/lT8tz6uhI3/rDmtvqrIp7231scg2WZs52E4yyDrZIJtk i2yTtRqaTwZZJxtkk2yRbbI2i+aTQdbJBtkkW2SbrNXSfDLIOtkgm2SLbJO1 OppPBlknG2STbJFtsjab5pNB1skG2SRbZJuszaH5ZJB1skE2yRbZJmtzaT4Z ZJ1skE2yRbbJWj3NJ4Oskw2ySbbINlmbR/PJIOtkg2ySLbJN1ubTfDLIOtkg m2SLbJO1BppPBlknG2STbJFtsraA5pNB1skG2SRbZJusPUnzySDrZINski2y TdYW0nwyyDrZIJtki2yTNd9gO8hOsosMspusk31kg9xBNsldZIvcQ7bJAbLW ONgOspPsIoPsJutkH9kgd5BNchfZIveQbXKArDUNtoPsJLvIILvJOtlHNsgd ZJPcRbbIPWSbHCBrzYPtIDvJLjLIbrJO9pENcgfZJHeRLXIP2SYHyJp/sB1k J9lFBtlN1sk+skHuIJvkLrJF7iHb5ABZWzTYDrKT7CKD7CbrZB/ZIHeQTXIX 2SL3kG1ygKy1DLaD7CS7yCC7yTrZRzb+7/8CEIQ6KQ== "]]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["\"y (mm)\"", TraditionalForm], FormBox["\"Current(A)\"", TraditionalForm]}, AxesOrigin->{0, Automatic}, ImageSize->400, PlotLabel->FormBox["\"Total Current in Channels\"", TraditionalForm], PlotRange->{{0, 132}, {0, 180}}, PlotRangeClipping->True]], "Output", CellChangeTimes->{{3.4404338706928463`*^9, 3.4404339093366947`*^9}, { 3.4404339927742643`*^9, 3.440434018048895*^9}, {3.440434093418631*^9, 3.440434113077877*^9}, 3.440510280901784*^9, 3.440520393190773*^9, 3.4407856782923937`*^9, 3.441114950142436*^9, 3.4411222461642313`*^9, 3.4411227185617447`*^9, 3.441128085083641*^9, 3.4411282312936287`*^9, 3.441128396613501*^9, 3.4411285430331793`*^9, 3.441128815078815*^9, 3.4411289247530823`*^9, {3.441129314904706*^9, 3.441129328896772*^9}, 3.4411523085392723`*^9, {3.441677598682901*^9, 3.441677613619111*^9}, 3.44168048154138*^9, 3.441713959149659*^9, 3.441716573508709*^9, 3.441817378099576*^9, 3.442255710512203*^9, 3.4422559495751047`*^9, 3.4422574390219507`*^9, 3.442261543127823*^9, 3.442325320914309*^9, 3.443182825920187*^9, 3.443207845983498*^9, 3.4432084971104517`*^9, 3.443273296109079*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"IP", ",", "I1", ",", "I2", ",", "I3", ",", "I4", ",", "I5"}], "}"}], ",", " ", RowBox[{"AxesLabel", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "100"}], "}"}]}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}]], "Input", CellChangeTimes->{{3.44112710904547*^9, 3.441127170733067*^9}, { 3.441127290575543*^9, 3.44112737727042*^9}, {3.4411275665611353`*^9, 3.4411276232081537`*^9}, {3.441128111549569*^9, 3.441128121148506*^9}, { 3.441128795152684*^9, 3.441128796584991*^9}}], Cell[BoxData[ GraphicsBox[{ {Hue[0.67, 0.6, 0.6], PointBox[CompressedData[" 1:eJxd0G1olWUcx/F/JjJJ5BQ2RUadhUyT0TnuueXaf9Ntzjk9rpruwXm5+bS2 5kmbFAu8cCSzV2dBoJF1F0YQludF9CBF14iysNp5oYFi7g4psiCOZCYTIWLX iPO93tx8rh+/+3dzF/bua9s1R0T23iXy33PmZGtfT7iDr86dqvUX+sO1w+2t +7PeedoebTGxgmnviI5Mniob7pujM16kw6c6knk1ed5LNJG3ZKD7jYXeBdp5 9tx7O7+6zzuqZ81Q/8ThfO+HdDQ1v/H82FLvZfrX/NF5xRcf8C7S05mpt06f KfReoYmK4djLsWXeK/Xr5u/d3d8VeRfrkWXjE/PGH/Z+RD84uaju6KFi77hu f/+jI0ePxbxXadXpBR+PDq3yLtEdb750/52iUu9SHbna+2DhzTLvMr2nsutc y+UK73Ktbrp++9OLVd4VeiN/cvrFP6u9K3Xssm4dXFrjXaWLizrK87fVej+q RbG+qz9eUu9qvXLmn89G7q33fkwH7KEvj21e471a09OR3bePr/Wu0W9vna9c cK3B+3G907/HfLi6ybtWq3v+MJWvrPNW/Xzxz6PTvzTP2Kp2L3zthVhpi8/r 9MhP+eWbD2zweZ1OVP92qf1Eq8/rdXrON7cGTm70eb1+Mnfq3QvDm3y+RqvW l/ze9be3XaPtVZ2T4c3ZfK2eWNH0a1XJbL5Wx66PL29YOfv+Bj3eduHtkRv+ e22DxndKz5l3Zv9PoxYs3zJ45fnsFzN5o7+fPU25trCsQw5LM3JY1iOHpQU5 LBuQw9KKHJaNyGHZhByWRK4VtrCDZTP6sIUdLG3owxZ2sDyBPmxhB8uT6MMW drA8hT5sYQdLO/qwhR0sW9CHLexg2Yo+bGEHSwf6sIUdLJ3owxZ2sHShD1vY wdKNPmxhB8s29GELO1h60Ict7GDZjj5sYQeLyXUUVtjAFg5gB4ew7MA+rLCB LRzADg5h6cU+rLCBLRzADg5h6cM+rLCBLRzADg5h2Yl9WGEDWziAHRzCsgv7 sMIGtnAAOziEZTf2YYUNbOEAdnAIyx7swwob2MIB7OAQlr3YhxU2sIUD2MEh LP3YhxU2sIUD2MEhLE9jH1bYwBYOYAeHsAxgH1bYwBYOYAeHsAxiH1bYwBYO YAeHsDyDfVhhA1s4gB0cwjKEfVhhA1s4gB0cwrIP+7DCBrZwADs4hCWZ6wgc heOwwgnYwEnYwik4gNOwgzNwCGdheTbXETgKx2GFE7CBk7CFU3AAp2EHZ+AQ zsKyP9cROArHYYUTsIGTsIVTcACnYQdn4BDOwnIg1xE4CsdhhROwgZOwhVNw AKdhB2fgEM7C8lyuI3AUjsMKJ2ADJ2ELp+AATsMOzsAhnIVlONcROArHYYUT sIGTsIVTcACnYQdn4BDOwnIw1xE4CsdhhROwgZOw/d//AkfxBbI= "]]}, {Hue[0.9060679774997897, 0.6, 0.6], PointBox[CompressedData[" 1:eJxdzXuQjXUcx/Ff2CzrcixLastxma1ls4eQa77srrWWdZBbicdlEYtTW5ph 1G/DoM102moXXTybpjEVjmZcMqZ+a0lDW4tYqskzNSwxdZguqpGm2edXs+/n n2dez/v5zqfrnGUTC5sopRbeptS/74YnPnz6gfohtz7uK/4HieaWDHu9xjpR itd98emUc9YBqUi9vDLle+sOUnmqw/6j9dZ3yJsd27236EfrVElLS8lK/M9B mZS6/frei9bdRBKupm/2rHtIZGh15bd11mmS1KnE+ehz6/skvnrbqsgn1j3l hZ+dd8bErDOk7c6yaeVbrXtLadHGZu9utA5JrO61czUrrPtIfmTtS7MXWPeV lEOrkz+cZP2AdDnbKjNJrPvJzOWLxu7OsO4vswsvZJ3vbD1AliX8NPNwc+sH RZc20c//1sf3QHnr60uRjIvWg0RPfjX78BnrwZI9YOD7gz6zHiLHNpc1WXjA eqiczCw50X6H9TBp9V3TQfVbrR+Sun5ndhWVWQ+X/ITWbZqvsRZptmFH5EKx by1Skl65K+7YPkLSthw4tDPP9hEy9/TBxI4Zto+UAdvM9ZwE20fK2dJQi+QT Ib9nycq2ud7gDb51lrT+4ciNlj1sz5brda1mLO6e6fdsmVx2Knh5yf1+z5FN s7YMq6zq6fcceeZ0VfuKvDS/j5KmGS/W7bl6l99HybTc37sUd+vq91y5dXFt yZ/lQb/nysuLyyvaNfOtRsuR/TU3lp68x++j5di+9PE3S+/2e55E10w40b1f qt/zpLZN0cHiY3f6fYwkd0qsOVLQ2e9jZHtSZtfcqk5+z5ek6nkF67p19Hu+ rLnWovP64g5+HysV+z4o/XJPst/HSmx1YfmqKwG/j5Oqv6qra3q38fs46XV8 d87SFS39XiAHexxVQ6tv93uB7Hg7PTMlpanfx8sf82a9ceXm38Mb+ngpOv/L /E333miwCstXz/U53qvuWoMlLFt+bbJ3+SuX/P/DMrXL7d/U9z/fYBMWWV95 +dnUU/79BH/HfwTWsIHVRNzDGjawmoR7WMMGVg/jHtawgdVk3MMaNrCagntY wwZWU3EPa9jAahruYQ0bWE3HPaxhA6tHcA9r2MDqUdzDGjawmoF7WMMGVo/h HtawgdVM3MMaNrCahXtYwwZWTmMHYYEdWMMubGAPVrOxDwvswBp2YQN7sJqD fVhgB9awCxvYg9Vc7MMCO7CGXdjAHqzmYR8W2IE17MIG9mBViH1YYAfWsAsb 2IPVfOzDAjuwhl3YwB6sFmAfFtiBNezCBvZgtRD7sMAOrGEXNrAHq8exDwvs wBp2YQN7sFqEfVhgB9awCxvYg9Vi7MMCO7CGXdjAHqyKsA8L7MAadmEDe7Ba gn1YYAfWsAsb2IPVUuzDAjuwhl3YwB6slmEfFtiBNezCBvZgFWnsAByEQ7DA YdiBI7CGo7ALx2AD18IeHIfVE40dgINwCBY4DDtwBNZwFHbhGGzgWtiD47B6 srEDcBAOwQKHYQeOwBqOwi4cgw1cC3twHFbFjR2Ag3AIFjgMO3AE1nAUduEY bOBa2IPjsHqqsQNwEA7BAodhB47AGo7CLhyDDVwLe3AcVk83dgAOwiFY4DDs wBFYw1HYhWOwgWthD47DanljB+AgHIIFDsMOHIH1//4HIWNTUw== "]]}, {Hue[0.1421359549995791, 0.6, 0.6], PointBox[CompressedData[" 1:eJxd1HtwVNUdB/AjSWxMeWyniKlkYPMglqebJgYRhW822ZCQhGzeD4VeQB4R CEuMUKjC0cAEH4yJ2EEB4+0IFoOE1DItHVCPVihUx0aFAQKktxXo8JLIgK1t x3Q6/M509rv/ZD75zne+s3fvOcnzlpcvGKSUWnybUv/7e+vTPz2vqnPYxIkj IP9AwdIhU65kjBHH40JX8npv/iSxD/sSv6xvnZMpHo7GQylfrk6fLE7EPcNP tse3PyBOwn68XB+38yGxHwOh3WmRLIhTsHfpkil1K3LEadhxomZL6gtBcToC p/54vr01V/xjjN8z7Eb+wjzxOHRWfL/oyLiQeAI+PB3M0iesJ+F016rQ+435 4gDey2hY++516wwcWDz39m0LZoh/go0JO7c4R60zcax+1K6B0QXiLAz8eY5T vsT6PtSPSW0eucc6G9U3Xv067u/Wk/Hri+tH7by7UHw/9p7//c+bC62n4PWB DfEnm60fwKiTWV5Sh/VUbCuPKVlz2PpBvB2+ueyH16wfwj17Pmn/NnGmeBo6 a6833Ruyno7kw9+072m2Bl74KGnw4l1iDRzOT2qp/qvNc+DNHTdknb9I8hyc e3jVF3GLxCqI3icPFuT91uZBvLK6MXx1WLHkuXhr44HXC1aKdS7O/6EuvPWK zfPw7Ss3286tKpE8Dy8feHb1Cv8syUP4x4nX/lN8U6xD2Lx1wbpdCWHJ8xE7 rrcg5oJY52Pqd7uX7ssuk3wGdItX1327WM9AUfKpI4dO2n4BRuducp942/YL 8Ld5badnPG3zQsQcu9jwcbXNC/HR8ye++sUEm8/EZxMTynMH2Xwm8lf+KPtS V6nkRXi3JTvxjRqxLkJc84t/if3Ofr9ifL0v5c5Fv7Tfrxj12xOnJefYvASt vnXehjP2+ZQg/o7RlWeaxGoW3ljopNXF2HwWfNOC+4dvss+3FDl9TWcHhtrn X4qWMb17j7fa3y+M7akdKQnfyO+NMOYXB9P21dj3IYyrv3vz8opOeb9MGH2Z ztzQZfs+l6GvcHAwXCJGGUpeyg1sXy7nRZfB2/L00Ge3yfkyZVgzfvbog5/a 81iOg+mPBYq+J0Y5rnUkNO7IlfOsyzH/xTOnnnpGzrspx4iuLX1HPwxKvwKf j32+cG+MGBVYVnCsqSVP7g9dgW3bH33n0Hq5X0wF3loz+J/ZG6dLvxKl/86o fjV2mvQrcfVXI2evW/ug9Ctx9PPxxy/dlPvLVGLS1vTNdyyZIv0qpLZ2Zk7o k/sOVbi29tL1g6XZ0q9Cc8fmhskmS/pVuLDoyNSUgL0vq3H50yvxg90M6Vfj WNfKCZt8AelXo2n1v4rc2InSr8bZhjt3hK6MlX4NNhzpuCu9N136NQi+75zN /CxV+jWoGnL3/t8c90u/BrE6Le+L0yOlX4sLk352LiFf7nvUYveTH2z6U+wP pF+LUM2ItPueipd+LXp3DUofUqWkX4dQ3Bmno/7G9Fv9OjSNfW32m89dvmVd h8obQy8mvfPVLZs66dlPfbRB1mRDVg9Tn6zJhqweoT5Zkw1ZzaY+WZMNWc2h PlmTDVn9lPpkTTZk5UTbTwbZIWuySzZkj6zm0j4ZZIesyS7ZkD2ymkf7ZJAd sia7ZEP2yGo+7ZNBdsia7JIN2SOrR2mfDLJD1mSXbMgeWS2gfTLIDlmTXbIh e2S1kPbJIDtkTXbJhuyR1SLaJ4PskDXZJRuyR1aLaZ8MskPWZJdsyB5ZNdA+ GWSHrMku2ZA9snqM9skgO2RNdsmG7JHVEtong+yQNdklG7JHVktpnwyyQ9Zk l2zIHlkto30yyA5Zk12yIXtk1Uj7ZJAdsia7ZEP2yGo57ZNBdsia7JIN2SOr SLR9ZD85QAY5THbIEbImt5FdcjfZkHvIHrmfrFZE20f2kwNkkMNkhxwha3Ib 2SV3kw25h+yR+8mqKdo+sp8cIIMcJjvkCFmT28guuZtsyD1kj9xPVo9H20f2 kwNkkMNkhxwha3Ib2SV3kw25h+yR+8mqOdo+sp8cIIMcJjvkCFmT28guuZts yD1kj9xPVk9E20f2kwNkkMNkhxwha3Ib2SV3kw25h+yR+8lqZbR9ZD85QAY5 THbIEbL+v/8LTE3JmA== "]]}, {Hue[0.37820393249936934`, 0.6, 0.6], PointBox[CompressedData[" 1:eJxd1X901XMcx/GPNcUpzBHiiNuEVeIqK0n2Jluztrq7293vH9+tXzR0I9ER 58M/HWpcjqUj5rt0mKhNxwkH+XAck3K2o0UifVc2lGrnCJV0HGefz3Hu8/vP zuN+zmvvc77f1+fzGVW/KDovRSl11xlK/fd34OnPUsmPJPMsOA0eDo+AL4ND cDo8Gr4azoDHwtfC18Fh+AZ4AjwRvhHOhCfBk+Gb4CnwzfBU+BZ4GnwrnAVL sjWsbsM6rG7HOqymYx1Wd2AdVtlYh1UO1nOkZ9zoUM2EXz8e+GGGzJv2at7E 1j8Heq1nyEHTVNm8eqjN5cr6BY2PnVl44YB1rjSvqVm6Pt/19E5JHbKxvW/+ KLt+p3Re/tqj2YtdL/PkjawrCz6beY1dz5PfTi/vHHVqjF2fKcNeGrxl7Qrb Qz1TXl+XdWPK766H+TLi9RNtc1tsD3W+nH2ormHVR66HBZKf/cvZhzttD3WB PDZ3+dH6Pa6Hs+RkaVnzez/aHupZ0vjDvvSNP7oezpaGe7duOPm97aGeLdOn 5q2o3u16GJGWPasPrt1leygReeP9qs+f3mV7qCPSOjSr5No9tocmIrp723lN va6HhaIbM3YsabE9lELZcPyii1M22R7qQun5+u5Ntz1ne2gKZdf2Yw9llLoe RuWVjkOx5jNs7yQqmR+3F60tsNZRubR0284pz1qbqBy5ZMSu9V+5nhZJ84LP wq8Osr2UInmhPvtA20RrXSR/fJWYfU6NtSmSJ1L++aX7CdfjYimPTBqfus7l i+Xoh1cuX/GByxfLt9HUy6Z3unyxvPLwpMZL97p8TA5fkDPpz59cPiafDllT 39Hn8jGpa6l/8qn9Lh+Truc7umfsdvkS+bntSN/5X7h8iSwcfKwnZbPLl8ia pdEPJ692+RL54dTkQ9uWuHyp9O4cMrejwOVLJfVb70DGKJcvlccnTJnx+RH3 /kpl1e4xL+Ruce+vTPbtLxp2yUPu/ZfJy/FWlR92779Mlm35buywT+z3MmWS 3nk4dfNQ9/3K5a8H5szJmGq/r5RLYtMXKwfnuu9fLsO6X+5Nz7D9MOUyaNW6 kcMXu/5USFZWydbBc2y/pEJeXJ5/eU+Z61+FzFo7seGWQttPUyGNJ3orv89z /a2UKwq6I6132H5LpVz0Zt6Gd6bZ/utKCcrGnb4p0+4PUymxbV5v01i3f6ok 58sHM2Ij7f6SKvkjK3X0uHPs/tNVcuzUtPX9v19v81UyJbboVFPHeJuvlken jl35adM4m6+W7EMVs0pr7f7X1ZK5cMfwlqvs+WCqxW/9e039QXd+1Mi5p/tC B9rSbb5GqrYmHhm0zN6Lukbqvjme8+5z9jwyNfLimJZ1HXnuXq2VnhPL9pVd Ze9dqZV/dsQfjobtvaxr5YORfaHik/beNrUSrdv5fPf0FJv35Lu+894af/D4 wPkY8iRxfsH2t2NHByye3FrekPu0OjBgz5Pj7zyzSRfvteepJ5nemO37234a sO/Z/2sfAwewqkt2CBbYgzXswwYOYFWP+bDAHqxhHzZwAKs5mA8L7MEa9mED B7Cai/mwwB6sYR82cACreZgPC+zBGvZhAwewmo/5sMAerGEfNnAAqwWYDwvs wRr2YQMHsLoL82GBPVjDPmzgAFZ3Yz4ssAdr2IcNHMBqIebDAnuwhn3YwAGs GjAfFtiDNezDBg5gdQ/mwwJ7sIZ92MABrO7FfFhgD9awDxs4gNV9mA8L7MEa 9mEDB7BahPmwwB6sYR82cACreLLT4BAchgWOwB4chzWcgH24HTZwFxzA/bBa nOw0OASHYYEjsAfHYQ0nYB9uhw3cBQdwP6zuT3YaHILDsMAR2IPjsIYTsA+3 wwbuggO4H1YPJDsNDsFhWOAI7MFxWMMJ2IfbYQN3wQHcD6slyU6DQ3AYFjgC e3Ac1nAC9uF22MBdcAD3w+rBZKfBITgMCxyBPTgOazgB+3A7bOAuOID7YbU0 2WlwCA7DAkdgD47D+n//C67RpGc= "]]}, {Hue[0.6142719099991583, 0.6, 0.6], PointBox[CompressedData[" 1:eJxd1GtsVFUUhuGNCIiKDLY1CIVOsWoRo8NNkAJdlJtFsdP7vT0gFRBKpyIY A5pNoggSkmmIeGmUg1QqaHCg/sBgcAciBCwyqGCiVA4B1AaTFjGVRARjuk/M vOdP8+TLmjWdk2+lL2woqLtFKbWkj1L//e19urNV4iOJvA0OwMnwUDgVDsKj 4Az4ATgTfgh+GH4EDsFj4XHweHgCPBF+DJ4ET4Yfh6fAWfBUeBo8Hc6GJdEa VjOQwyoHOaxmIofVLOSwmo0cVnOQw2ouclg9gRxWuchhNQ85rJ5EDqunkMNq PnJYPY0cVnnIYRVOtMAaNrDKl9abb5xrv+dy792QfKmOTjjcmdnVa50vqW0L YnVt13pt8mX1oYPHjy3qaz+nQKZv+3tz9pg7ey0FMijnYtLbdyf1WhfIro/q B2x4yd4RUyAZrZuKh48eaecLpU90W0lGv1F2vlDyk0fuaOl/v50vlD2nR6z5 NMneCVMoC5vHTX0nc4ydL5JZR1vu+jbH3gUpkp6rr/WZFrN3QRdJ5/ZL0TvE 3gFTJCmf7L4+Lu7fgWL57uzOujTH9l6KZdWM72fN7rK918XSHBnUnv6y7bkp lr09bQ3ZA/1el8j+zavvm7bF9lpKpD6pOeWHYbbHukQaTxzr6dpme2xK5MfJ rYH5Q/yelkprz5nU6ClrKZVb/kp/s3+T7akulcyp35y6N5xj50ul/cKvxyoG +z0sk98uF4xef9JaymTrpgHzNjbZHuoySe8Y276hxPbOlMnOorknOtP8npXL lTOn02u7rKVcsnvKoteP2J7pcjkwZmm/wl22V6ZchqX0NP0zye9RhWRtnP3i mt+tpULWBzpfPbLZ9khXyODuRUc7RtjemAo5NT55iLzv96hSsvauK+0XsL2R Shm6N/7l1ZXWulIyDl6pajpubSplS8sX4fHJfo+qZMfMC+b2fGupkrwPRp17 dJ21rpJLHfVpH7dYmyrZnXb+vbUH/PlqyV1+s3X7V/58tcT1vtKhh/35aum4 /nPofJs/Xy3X6r7+/MZb/nyNHMotD6xs8OdrpPGPKa9nTfHna2RPzq1V8675 379GTsaat76yy78TtbJ4RN9h7873//9amZQ68OzEi/b30bWSu/jP4Z8t93+/ WtkzvWlO6Bf/TjmSV3jpxrI866AjH0aGr92/038fjrTNKU36qdO+P8eRfYeu hC+nWGtHGtckr8h80L5v17Gfax8De7BakOggLLADa9iFDezBaiH2wwI7sIZd 2MAerJ7BflhgB9awCxvYg9Ui7IcFdmANu7CBPVjVYT8ssANr2IUN7MHqWeyH BXZgDbuwgT1YLcZ+WGAH1rALG9iD1RLshwV2YA27sIE9WC3FflhgB9awCxvY g9Vz2A8L7MAadmEDe7Bahv2wwA6sYRc2sAer5dgPC+zAGnZhA3uwqsd+WGAH 1rALG9iD1QrshwV2YA27sIE9WDVgPyywA2vYhQ3swSqS6AAchEOwwGHYgSOw hqOwC8dgA8dhD+6GVWOiA3AQDsECh2EHjsAajsIuHIMNHIc9uBtWzyc6AAfh ECxwGHbgCKzhKOzCMdjAcdiDu2G1MtEBOAiHYIHDsANHYA1HYReOwQaOwx7c DasXEh2Ag3AIFjgMO3AE1nAUduEYbOA47MHdsFqV6AAchEOwwGHYgSOwhqOw C8dgA8dhD+6G1epEB+AgHIIFDsMOHIH1//4X/atOeA== "]]}, {Hue[0.8503398874989481, 0.6, 0.6], PointBox[CompressedData[" 1:eJxd1VloXFUcx/F/VdBaH26lLsXtJnFDSpjaaTVV27+11qWtvY1Gk8xk5hhN TLTaMa71QQ6CYivCgIq4QI8gTaiI4/JgWyhHH0RamE71LaI9PojUpQ64gVAi MifI/Z6Xy4cfv/t//HWNbu8fO0VEJhaI/PftvPZayT/N8ww4gZfA58MXwinc DV8KXw5fCV8FL4N74QK8HL4aXgEX4ZXwKvga+Fq4D14NXwdfD98Ar4HXwpq3 heVG5LCsQw7LTchhWY8clpuRw7IBOSy3IIflVuSw3IYcltuRw7IROSybkMOy GTksdyCHZQtyWLK8Fbawh2Ur+rCFPSz96MMW9rDciT5sYQ/LXejDFvawDKAP W9jDcjf6sIU9LPegD1vYwzKIPmxhD8sQ+rCF/ZC6oeV7Dpz7Y9yZYT3c3LzY nPl7xzqsR7Z+f9ZbW052bId1cnxo1+zsaZ3/+GE92P/0OzPfLor/LenbR44V Pzq4uGMt6QXH/mn++eU5HduSLiq+2fvhyaWxX9Lzfl5yam92ceyXdd/4L+9e VOqK/bK+UT76xdev9MR+Wbe1B46faF4W+2X97e+p95oL53dnRF/f+8Lx0XVx d3REmy9f8tLSp+Lu2BH9tXvhD0f3xN3xIzqwc8fc5MT87lS068B0ceyZuDta 0fUy9VVlZ9wdW9Fi9/TKF1+Lu+Mr2tM3t2rN7vndqeq+TxofnD4dd0erOrhg 9opX34+7Y6s6803fof0fx93xVd343GeHd+yf3x2jy3paz//1edyd1OiJ0kz9 2WbcHTW64ae9q3d9F3fHGO3+dPCQ/yPujjVaXZEkc2fHnXEm/jc+DwdY7s07 hRU2sIUd7OEAyyjuwwob2MIO9nCA5T7chxU2sIUd7OEAy/24DytsYAs72MMB ljHchxU2sIUd7OEAyzjuwwob2MIO9nCA5QHchxU2sIUd7OEAywTuwwob2MIO 9nCAZRL3YYUNbGEHezjA8iDuwwob2MIO9nCA5SHchxU2sIUd7OEAyzbchxU2 sIUd7OEAy8O4DytsYAs72MMBlkdwH1bYwBZ2sIcDLNtxH1bYwBZ2sIcDLLW8 EziFC7DCGWzgGmzhOuzgBuzhFhzgNiyP5p3AKVyAFc5gA9dgC9dhBzdgD7fg ALdhmco7gVO4ACucwQauwRauww5uwB5uwQFuw/JY3gmcwgVY4Qw2cA22cB12 cAP2cAsOcBuWx/NO4BQuwApnsIFrsIXrsIMbsIdbcIDbsDyRdwKncAFWOIMN XIMtXIcd3IA93IID3IblybwTOIULsMIZbOAabP/3vxH72N0= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["\"y (mm)\"", TraditionalForm], FormBox["\"Current(A)\"", TraditionalForm]}, AxesOrigin->{0, Automatic}, ImageSize->500, PlotRange->{{0, 140}, {0, 100}}, PlotRangeClipping->True]], "Output", CellChangeTimes->{{3.4411271495300627`*^9, 3.441127171381648*^9}, 3.441127293772106*^9, 3.44112736634089*^9, {3.441127598488855*^9, 3.44112762480086*^9}, {3.4411280851867247`*^9, 3.441128121815927*^9}, 3.441128231418127*^9, 3.441128396649535*^9, 3.441128543072863*^9, 3.441128815166627*^9, 3.441128924772481*^9, 3.441152308590137*^9, 3.4416775987571297`*^9, 3.441680481608119*^9, 3.441713959171677*^9, 3.441716573525819*^9, 3.441817378134355*^9, 3.442255710529828*^9, 3.442255949602035*^9, 3.442257439033448*^9, 3.442261543139677*^9, 3.442325321015615*^9, 3.443182825969636*^9, 3.4432078460643167`*^9, 3.443208497195072*^9, 3.443273296154111*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Export", "[", RowBox[{"\"\\"", ",", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"IP", ",", "I1", ",", "I2", ",", "I3", ",", "I4", ",", "I5"}], "}"}], ",", " ", RowBox[{"AxesLabel", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "100"}], "}"}]}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}], ",", RowBox[{"PlotLabel", "\[Rule]", "\"\\""}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.4411312677752457`*^9, 3.441131334369751*^9}}], Cell[BoxData["\<\"Horizontal_Current.eps\"\>"], "Output", CellChangeTimes->{3.441131343946723*^9, 3.4411523095940247`*^9, 3.441677599817442*^9, 3.4416804819301043`*^9, 3.441713959840343*^9, 3.441716573781239*^9, 3.441817379156802*^9, 3.4422557113287992`*^9, 3.4422559498978662`*^9, 3.4422574392783833`*^9, 3.442261543392516*^9, 3.442325321723477*^9, 3.443182827075101*^9, 3.443207846429697*^9, 3.4432084975390177`*^9, 3.4432732968634768`*^9}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Transport Segment 5", "Section", CellChangeTimes->{{3.427557417391244*^9, 3.4275574212738867`*^9}, { 3.4411221096197567`*^9, 3.441122111491469*^9}, {3.441122508437797*^9, 3.441122511640093*^9}, {3.4411277226665297`*^9, 3.441127722814207*^9}, { 3.441128631204597*^9, 3.44112863229961*^9}, {3.441677590429941*^9, 3.4416775930292463`*^9}, {3.44167783010979*^9, 3.441677830333523*^9}}], Cell["Segment 5 - Coils 4, 5, 6", "Text", CellChangeTimes->{{3.4275574238332644`*^9, 3.427557519898347*^9}, { 3.441122709553803*^9, 3.441122723090308*^9}, {3.4411277251617403`*^9, 3.441127734985326*^9}, {3.441128634874387*^9, 3.4411286420184526`*^9}, { 3.441677837518024*^9, 3.441677846179837*^9}}], Cell[CellGroupData[{ Cell["Coil Definition", "Subsection", CellChangeTimes->{{3.424789285638125*^9, 3.42478928884125*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"Push", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "ampsPush_"}], "]"}], ":=", " ", RowBox[{"CustomPush", "[", RowBox[{ "x", ",", "y", ",", "z", ",", "distP", ",", "ampsPush", ",", "radP", ",", "PwireWidth", ",", "PwireLength"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coil1", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "amps1_"}], "]"}], ":=", RowBox[{"Coil", "[", RowBox[{"x", ",", RowBox[{"y", "-", "ydispl1"}], ",", "z", ",", "dist1", ",", "amps1", ",", "rad1", ",", "MOTwireWidth", ",", "MOTwireLength", ",", "numRad1", ",", "numAx1"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coil2", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "amps2_"}], "]"}], ":=", RowBox[{"Coil", "[", RowBox[{"x", ",", RowBox[{"y", "-", "ydispl2"}], ",", "z", ",", "dist2", ",", "amps2", ",", "rad2", ",", "HwireWidth", ",", "HwireLength", ",", "numRad2", ",", "numAx2"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coil3", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "amps3_"}], "]"}], ":=", RowBox[{"Coil", "[", RowBox[{"x", ",", RowBox[{"y", "-", "ydispl3"}], ",", "z", ",", "dist3", ",", "amps3", ",", "rad3", ",", "HwireWidth", ",", "HwireLength", ",", "numRad3", ",", "numAx3"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coil4", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "amps4_"}], "]"}], ":=", RowBox[{"Coil", "[", RowBox[{"x", ",", RowBox[{"y", "-", "ydispl4"}], ",", "z", ",", "dist4", ",", "amps4", ",", "rad4", ",", "HwireWidth", ",", "HwireLength", ",", "numRad4", ",", "numAx4"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coil5", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "amps5_"}], "]"}], ":=", RowBox[{"Coil", "[", RowBox[{"x", ",", RowBox[{"y", "-", "ydispl5"}], ",", "z", ",", "dist5", ",", "amps5", ",", "rad5", ",", "HwireWidth", ",", "HwireLength", ",", "numRad5", ",", "numAx5"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coil6", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "amps5_"}], "]"}], ":=", RowBox[{"Coil", "[", RowBox[{"x", ",", RowBox[{"y", "-", "ydispl6"}], ",", "z", ",", "dist6", ",", "amps6", ",", "rad6", ",", "HwireWidth", ",", "HwireLength", ",", "numRad6", ",", "numAx6"}], "]"}]}]}], "Input", CellChangeTimes->{{3.4108691929057975`*^9, 3.4108692511714225`*^9}, { 3.4108696083120475`*^9, 3.4108696370776725`*^9}, {3.4108878639057975`*^9, 3.4108878917339225`*^9}, 3.4108880255620475`*^9, {3.4108880572026725`*^9, 3.4108880934839225`*^9}, {3.4108881324057975`*^9, 3.4108881358276725`*^9}, {3.4114971485377502`*^9, 3.4114971533502502`*^9}, {3.4115798687252502`*^9, 3.4115798990846252`*^9}, {3.4115801645377502`*^9, 3.4115801658346252`*^9}, {3.4115850364908752`*^9, 3.4115850513502502`*^9}, {3.4116541353815002`*^9, 3.4116541668815002`*^9}, {3.4116543291315002`*^9, 3.4116543294752502`*^9}, {3.413042775259*^9, 3.41304278797775*^9}, { 3.4130428408215*^9, 3.413042899509*^9}, {3.413042982962125*^9, 3.41304298922775*^9}, {3.41304393541525*^9, 3.4130439359465*^9}, { 3.4130475845715*^9, 3.41304758510275*^9}, {3.4147689327342415`*^9, 3.4147689545786905`*^9}, {3.4157043510358753`*^9, 3.4157043545515003`*^9}, {3.4240142755295*^9, 3.424014280982625*^9}, { 3.424708044607378*^9, 3.424708045091753*^9}, {3.424708516388628*^9, 3.424708547888628*^9}, {3.424789355935*^9, 3.424789362294375*^9}, { 3.424793540700625*^9, 3.42479354259125*^9}, {3.42479373102875*^9, 3.424793804356875*^9}, {3.42479385740375*^9, 3.424793870231875*^9}, { 3.424793962731875*^9, 3.424794012106875*^9}, {3.424794111200625*^9, 3.42479411184125*^9}, {3.42479467331*^9, 3.424794687200625*^9}, { 3.42504874452875*^9, 3.425048750606875*^9}, 3.42504893756*^9, 3.425049003856875*^9, {3.425052076763125*^9, 3.425052080075625*^9}, { 3.42505228456*^9, 3.425052285138125*^9}, {3.425053193700625*^9, 3.42505319734125*^9}, {3.425140953629081*^9, 3.425140955394706*^9}, { 3.425143919457206*^9, 3.425143919832206*^9}, {3.42530989195675*^9, 3.425309893034875*^9}, {3.4253099389255*^9, 3.425309941488*^9}, { 3.42531268476925*^9, 3.425312693941125*^9}, {3.4275484377987127`*^9, 3.427548439150815*^9}, {3.427549179203624*^9, 3.427549180977133*^9}, { 3.427557753123818*^9, 3.427557807078123*^9}, {3.431959729046167*^9, 3.431959734430778*^9}, {3.431959767318501*^9, 3.431959777847219*^9}, { 3.432522576195047*^9, 3.432522576768517*^9}, {3.432522640640594*^9, 3.432522641159569*^9}, {3.43252273720122*^9, 3.4325227374044447`*^9}, { 3.4325227774233923`*^9, 3.4325227782576227`*^9}, {3.432522979857479*^9, 3.432522986718114*^9}, {3.4342027674829407`*^9, 3.434202767818779*^9}, { 3.4342033583019247`*^9, 3.434203358566132*^9}, {3.4342035182972803`*^9, 3.434203518695207*^9}, {3.434203693374236*^9, 3.4342036937433043`*^9}, { 3.4342038767456837`*^9, 3.434203880149901*^9}, {3.4342043595530024`*^9, 3.434204360389633*^9}, {3.434204574074339*^9, 3.434204576586729*^9}, { 3.434204726385235*^9, 3.434204727655446*^9}, {3.4342049825787983`*^9, 3.4342049830998783`*^9}, {3.4363860850199957`*^9, 3.4363861459997807`*^9}, {3.4411286966296463`*^9, 3.441128719136548*^9}, { 3.441677862797627*^9, 3.441677883779232*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Calculation", "Subsection", CellChangeTimes->{{3.427557803876124*^9, 3.4275578048430853`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Clear", " ", "[", RowBox[{ "ypos", ",", "buf", ",", "n", ",", "y0", ",", "yf", ",", "scale", ",", "MagX", ",", "MagY", ",", "MagZ", ",", "curr1", ",", "curr2", ",", "currP", ",", "curr3"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amps4", "=", "curr4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amps5", "=", "curr5"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"amps6", "=", "curr6"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Unit", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], ":=", RowBox[{ RowBox[{"Coil4", "[", RowBox[{"x", ",", "y", ",", "z", ",", "amps4"}], "]"}], "+", RowBox[{"Coil5", "[", RowBox[{"x", ",", "y", ",", "z", ",", "amps5"}], "]"}], "+", RowBox[{"Coil6", "[", RowBox[{"x", ",", "y", ",", "z", ",", "amps6"}], "]"}]}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"xComp", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{ RowBox[{"Unit", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"yComp", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{ RowBox[{"Unit", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"zComp", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{ RowBox[{"Unit", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "[", RowBox[{"[", "3", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GxComp", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{ SubscriptBox["\[PartialD]", "x"], RowBox[{"xComp", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GyComp", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{ SubscriptBox["\[PartialD]", "y"], RowBox[{"yComp", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"GzComp", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{ SubscriptBox["\[PartialD]", "z"], RowBox[{"zComp", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}]}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", " ", "=", " ", "35"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y0", "=", " ", RowBox[{"131", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"yf", " ", "=", " ", RowBox[{"165", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"scale", " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"yf", "-", "y0"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"buf", " ", "=", " ", RowBox[{"UnitVector", "[", RowBox[{"n", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"asp", " ", "=", " ", RowBox[{"UnitVector", "[", RowBox[{"n", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "0"}], ",", RowBox[{"i", "<", "n"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"ypos", " ", "=", " ", RowBox[{"y0", "+", RowBox[{"scale", "*", "i"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"sol", " ", "=", " ", RowBox[{"Solve", " ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"yComp", "[", RowBox[{"zero", ",", "ypos", ",", "zero"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"GzComp", "[", RowBox[{"zero", ",", "ypos", ",", "zero"}], "]"}], "\[Equal]", "gradient"}], ",", RowBox[{ FractionBox[ RowBox[{"GxComp", "[", RowBox[{"zero", ",", "ypos", ",", "zero"}], "]"}], RowBox[{"GyComp", "[", RowBox[{"zero", ",", "ypos", ",", "zero"}], "]"}]], "\[Equal]", RowBox[{"Aspect", "[", "ypos", "]"}]}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"curr4", ",", " ", "curr5", ",", "curr6"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"buf", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], " ", "=", " ", RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"asp", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "=", RowBox[{"Aspect", "[", "ypos", "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Curr4", "=", " ", RowBox[{"curr4", "/.", "buf"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Curr5", " ", "=", " ", RowBox[{"curr5", "/.", "buf"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Curr6", " ", "=", " ", RowBox[{"curr6", "/.", "buf"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", " ", "=", " ", "0"}], ",", " ", RowBox[{"i", "<", "n"}], ",", RowBox[{"i", "++"}], ",", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"I4", "[", RowBox[{"[", RowBox[{"i", "+", RowBox[{"y0", "/", "mm"}]}], "]"}], "]"}], "=", RowBox[{"Curr4", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"I5", "[", RowBox[{"[", RowBox[{"i", "+", RowBox[{"y0", "/", "mm"}]}], "]"}], "]"}], "=", RowBox[{"Curr5", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"I6", "[", RowBox[{"[", RowBox[{"i", "+", RowBox[{"y0", "/", "mm"}]}], "]"}], "]"}], "=", RowBox[{"Curr6", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"Curr4", ",", "Curr5", ",", "Curr6"}], "}"}], ",", RowBox[{"DataRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"y0", "*", "1000"}], ",", RowBox[{ RowBox[{"(", RowBox[{"y0", "+", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}], "*", "scale"}]}], ")"}], "*", "1000"}]}], "}"}]}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"y0", "*", "1000"}], ",", "0"}], "}"}]}], ",", RowBox[{"PlotMarkers", "\[Rule]", RowBox[{"{", RowBox[{"Automatic", ",", "Small"}], "}"}]}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotLabel", "\[Rule]", "\"\\""}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}]}], "Input", CellChangeTimes->{{3.424794846638125*^9, 3.424795033419375*^9}, { 3.4247952409975*^9, 3.4247952994975*^9}, {3.424795401575625*^9, 3.424795403138125*^9}, {3.424795508919375*^9, 3.42479551006*^9}, { 3.42479560059125*^9, 3.42479568802875*^9}, {3.424796194185*^9, 3.42479622109125*^9}, {3.424796345856875*^9, 3.4247963796225*^9}, { 3.424799205356875*^9, 3.4247992094975*^9}, {3.424799415481875*^9, 3.42479941565375*^9}, {3.424799600919375*^9, 3.424799612825625*^9}, { 3.4247996814975*^9, 3.424799686356875*^9}, {3.424799847013125*^9, 3.42479985396625*^9}, {3.425044396138125*^9, 3.42504440177875*^9}, 3.4250446944975*^9, {3.42504483252875*^9, 3.42504489046625*^9}, { 3.42504494815375*^9, 3.42504499659125*^9}, {3.425052742794375*^9, 3.425052768794375*^9}, 3.42505291606*^9, {3.425146476738456*^9, 3.425146492550956*^9}, {3.425146874222831*^9, 3.425146874941581*^9}, { 3.425306681503625*^9, 3.425306686816125*^9}, {3.425311146534875*^9, 3.4253112353005*^9}, {3.425311319238*^9, 3.425311322847375*^9}, { 3.42531273214425*^9, 3.42531275320675*^9}, {3.425313256472375*^9, 3.425313257488*^9}, {3.425313288566125*^9, 3.425313289222375*^9}, 3.42565147825*^9, {3.425658336640625*^9, 3.425658352046875*^9}, { 3.4256584149375*^9, 3.425658423671875*^9}, {3.42565847684375*^9, 3.425658480296875*^9}, {3.42565853471875*^9, 3.42565853840625*^9}, 3.427652733232007*^9, {3.4276530609284573`*^9, 3.427653061947754*^9}, { 3.432523452809812*^9, 3.432523501924593*^9}, {3.432563448739462*^9, 3.432563449857027*^9}, {3.433864207548109*^9, 3.433864208716193*^9}, { 3.4404342365420523`*^9, 3.44043424244471*^9}, {3.441122176941136*^9, 3.4411221973153133`*^9}, {3.441122540205755*^9, 3.441122625789896*^9}, { 3.4411226578767242`*^9, 3.4411226860159073`*^9}, {3.441127677620097*^9, 3.4411276834324827`*^9}, {3.441127739341113*^9, 3.441127808168995*^9}, { 3.441127981960608*^9, 3.441128045797517*^9}, {3.441128186416677*^9, 3.441128213359702*^9}, {3.441128358141787*^9, 3.441128359546916*^9}, { 3.4411285259023247`*^9, 3.44112852610019*^9}, {3.441128608285178*^9, 3.441128609994923*^9}, {3.441128679152594*^9, 3.4411286910788813`*^9}, { 3.4411287233249607`*^9, 3.4411287862321253`*^9}, {3.441676999938737*^9, 3.441677000191649*^9}, {3.441677898815668*^9, 3.4416779796748753`*^9}, { 3.441678011840901*^9, 3.441678070293551*^9}, {3.441678164201255*^9, 3.44167816655227*^9}, {3.443194318190917*^9, 3.4431943651893997`*^9}, { 3.443208559411212*^9, 3.443208565528121*^9}}], Cell[BoxData[ GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJztletPk3cUx2upVLEwWSfKZWKBNWVFU0C5CMjhjjAigwGbCfO5sYFkY9kI 6jY2cI5xsRuIDhxQUBpEXwDCYpZIpk5mqQM7oIBugCC3IQoJMiSDmf205wl/ wt60SdN8kyafk3M+v3NkTFZCmlAgEPSS7/PfFx+Kgvv7JaHxcdHwIudREHMq TFWdFWXKdRSMVuTbFFVFmvJ1CvKUqc7tdyJMeZSCH+WHVbFizAIapjVWH2rD wk15Bw2Hvhu6l3s8zJSBBklTxYj+l1BTpmjody/Z32yBOY+G9Gjjx1+FhyCf ho5qrvXXE4B8GoY/lSz7FAYjn4bMFc/ks6J9yGdg5IJj6pdfBCKfAes+Zf/D v/cinwG3Snn5xkx/5JP/F1zy9hjxRT4Dws6HC+0HfJDPwJi2PMP3+m7kM5Cf 3hngovJGPgN+hkcbJHWeyGdhrCnHQ71ZhXwWKo/9E1sn2ol8Fh6nb9FGPHJH PgtpnZqt8j/kyGch+Ro17N3jinwWGGuHn9r6dyCfBS7PLbzvT0fks7C46+iE VaQd8jmIyb2hvi2yRT4H2e/Yue3J3YB8DlYahXLrJAHyOSiwGqI0BxeDTXwO xB41qQ3Fs6Zcx0HKos2MU+ucKRNfTqgVXdnnsL/El5Zlu63CpiCsl4LJ3oym kFM4D+LL4G+LRxQp/Lwo0OpmkzTrcJ7El73XWhKr4jATX5xS9H3+ZZiJLwv2 2/q13ZiJL7Xvd6jqLdAP4ssPTMR4s/eaL/PdpQes38VMfMkX/vuX8Thm4ktK vM9O0XnMxJeFdtfPv7mKmfjSlyByCjNgJr50HPVROwxjJr48kUb6LE3wfAY8 LSoZ3RTPZ0BwjikqfsDzGdCd1hmj7vJ8Bqaa56ZsO3k+C5mWi2PCVp5PfMlJ aPf9nuezML3qO6vP5vksTPWJOV0cz2fBYpAaV8h4Pgv5Xv5Rt+b498LCybvu FdFXMBNfxh4kSuyP8P3noOajRsEbKr7/xJcr916X3MB5EV9cDY9FrZswE19m P2FZRQDOl/iibuossYzm58+BxFgz6aJAP4gvimfF97vs0Cfiy3snd9+cUcyj XxSMXKZb0tqWTZn4su/mz7f1nAXWS4GfZkUdrJRgvTS0h0xIK1+WYr00vNn4 gbjw2Dasl4a8hpIkR/ftyKdBWlqb7LbeBeulwe+V7fVay9ewXhqyBl79rFmq wH7RYKjyCjyrUCKfhlid1qY3dBfyGeh68vW6oBb+fTPgfH6ydBN4IZ+Bby9e WvX6HfcD8SV7qCHNmdqDfLI/Co3hEfNr+yUyx7pLluuHfAaUT9uygjfiviK+ jKpzXIPKA5DPAiut2jLogP0mvhzu1i/N1+I8iC+X/S5sjrPl3wsLmqUBp9Ie zM99eSo7Y1m25os88E6PfXwo8lkwjE/rD76E+5r4Mjmb4F5gwEx8qS4RxxSV 8fudA/mwZ1dhMu5/4kv9W1HdM854L4gvzwb6ZYfmMRNfYOnt0tVb/H3h4Koy Y33iRbw/5ntkvkfme2S+R+Z7hP0y36P/6x79B95It2E= "], { {Hue[0.67, 0.6, 0.6], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 106], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 107], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 108], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 109], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 110], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 111], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 112], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 113], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 114], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 115], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 116], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 117], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 118], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 119], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 120], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 121], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 122], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 123], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 124], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 125], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 126], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 127], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 128], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 129], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 130], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 131], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 132], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 133], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 134], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 135], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 136], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 137], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 138], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 139], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 140]}, {Hue[0.9060679774997897, 0.6, 0.6], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 141], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 142], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 143], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 144], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 145], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 146], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 147], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 148], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 149], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 150], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 151], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 152], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 153], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 154], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 155], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 156], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 157], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 158], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 159], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 160], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 161], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 162], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 163], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 164], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 165], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 166], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 167], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 168], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 169], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 170], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 171], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 172], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 173], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 174], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 175]}, {Hue[0.1421359549995791, 0.6, 0.6], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 176], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 177], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 178], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 179], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 180], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 181], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 182], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 183], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 184], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 185], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 186], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 187], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 188], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 189], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 190], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 191], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 192], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 193], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 194], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 195], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 196], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 197], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 198], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 199], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 200], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 201], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 202], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 203], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 204], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 205], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 206], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 207], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 208], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 209], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 210]}, {}}], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["\"y (mm)\"", TraditionalForm], FormBox["\"I (A)\"", TraditionalForm]}, AxesOrigin->{131, 0}, ImageSize->400, PlotLabel->FormBox["\"Transport Segment 4\"", TraditionalForm], PlotRange->{{131., 165.}, {0., 49.3228461040048}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", Evaluatable->False, CellChangeTimes->{ 3.4342145796800823`*^9, 3.434385202004236*^9, 3.436386197656507*^9, 3.436386651213832*^9, 3.436395613556868*^9, 3.436396817504443*^9, 3.4363969126714*^9, 3.4363971792293*^9, 3.436397300430133*^9, 3.436397559830633*^9, 3.436398752391986*^9, 3.436449865788514*^9, 3.436450221673046*^9, 3.436450329516295*^9, 3.436450489105962*^9, 3.4364508144356947`*^9, 3.440421240342807*^9, 3.440433992439755*^9, 3.4405102804636908`*^9, 3.4405203924137697`*^9, 3.440785677635889*^9, 3.441114949414207*^9, 3.4411222459797983`*^9, 3.441122718256427*^9, 3.441128084695787*^9, 3.441128230884494*^9, 3.441128396434573*^9, 3.4411285427938337`*^9, 3.441128814746563*^9, 3.441128924618191*^9, 3.4411523083245153`*^9, 3.4416775983315163`*^9, 3.441678141105877*^9, 3.4416781800929193`*^9, 3.441680491874957*^9, 3.441713969551564*^9, 3.441716583436763*^9, 3.4418173886766567`*^9, 3.44225572130352*^9, 3.442255959676506*^9, 3.442257449198874*^9, 3.442261553205744*^9, 3.4423253313718767`*^9, 3.443182837091235*^9, {3.443194332028002*^9, 3.4431943802909107`*^9}, 3.4432086157721*^9, 3.4432089205419817`*^9, 3.443273306572399*^9}, ImageSize->{400., -0.0625}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"TotCurrent", "=", RowBox[{ "IP", "+", "I1", "+", "I2", "+", "I3", "+", "I4", "+", "I5", "+", "I6"}]}], ";"}]], "Input", CellChangeTimes->{{3.441122030666716*^9, 3.4411220413190317`*^9}, { 3.441678078829946*^9, 3.441678081300557*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Max", "[", RowBox[{"I4", "+", "I5", "+", "I6"}], "]"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", "Pstage5", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Pstage5", "=", RowBox[{ RowBox[{ SuperscriptBox["Curr4", "2"], "*", "R4"}], "+", RowBox[{ SuperscriptBox["Curr5", "2"], "*", "R5"}], "+", RowBox[{ SuperscriptBox["Curr6", "2"], "*", "R6"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Max", "[", "Pstage5", "]"}], "\[IndentingNewLine]", RowBox[{"Mean", "[", "Pstage5", "]"}]}], "Input", CellChangeTimes->{{3.441677624896196*^9, 3.441677630391364*^9}, { 3.4416780850923023`*^9, 3.4416780893246613`*^9}, {3.4432085806691427`*^9, 3.443208601309211*^9}, {3.4432088777988577`*^9, 3.443208903988007*^9}}], Cell[BoxData["81.04908734172105`"], "Output", CellChangeTimes->{3.441677631094013*^9, 3.4416781412273073`*^9, 3.4416781801955843`*^9, 3.4416804920333652`*^9, 3.441713969656796*^9, 3.441716583480908*^9, 3.4418173887529984`*^9, 3.442255721398827*^9, 3.442255959779461*^9, 3.442257449287719*^9, 3.442261553460949*^9, 3.44232533153732*^9, 3.443182837173545*^9, 3.443194332229876*^9, 3.443208615944354*^9, 3.443208920742742*^9, 3.443273306623666*^9}], Cell[BoxData["159.12069743529534`"], "Output", CellChangeTimes->{3.441677631094013*^9, 3.4416781412273073`*^9, 3.4416781801955843`*^9, 3.4416804920333652`*^9, 3.441713969656796*^9, 3.441716583480908*^9, 3.4418173887529984`*^9, 3.442255721398827*^9, 3.442255959779461*^9, 3.442257449287719*^9, 3.442261553460949*^9, 3.44232533153732*^9, 3.443182837173545*^9, 3.443194332229876*^9, 3.443208615944354*^9, 3.443208920742742*^9, 3.443273306627693*^9}], Cell[BoxData["129.09465868294026`"], "Output", CellChangeTimes->{3.441677631094013*^9, 3.4416781412273073`*^9, 3.4416781801955843`*^9, 3.4416804920333652`*^9, 3.441713969656796*^9, 3.441716583480908*^9, 3.4418173887529984`*^9, 3.442255721398827*^9, 3.442255959779461*^9, 3.442257449287719*^9, 3.442261553460949*^9, 3.44232533153732*^9, 3.443182837173545*^9, 3.443194332229876*^9, 3.443208615944354*^9, 3.443208920742742*^9, 3.443273306630679*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{"TotCurrent", ",", RowBox[{"PlotLabel", "\[Rule]", "\"\\""}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}], ",", RowBox[{"PlotRange", "->", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "170"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "180"}], "}"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.440433863096459*^9, 3.440433920590934*^9}, { 3.440434005472899*^9, 3.4404341123054037`*^9}, {3.441128061444706*^9, 3.441128063196477*^9}, {3.441129295493791*^9, 3.441129328387967*^9}, { 3.441677612555744*^9, 3.4416776129451017`*^9}, {3.44167809789408*^9, 3.441678098869556*^9}}], Cell[BoxData[ GraphicsBox[ {Hue[0.67, 0.6, 0.6], PointBox[CompressedData[" 1:eJxd1Hl0VOUZBvAbjz3QRTLKokAODhAxplFGiA0QSB4SSCCQZLJOMtnuLOwB JsmQ2BbwCrIGSAApKksvyFEqWEItZbGHzqEspSqNQPQYqlwlNJElHYpAVSi1 x/ue3nnyT84vb568833feTLYOz9/2gOKosyMUpT/ff/+K5x6zfl2W/nJUTB/ gLyEwPA/zE0x3RP1PWvvv/TReNM2bOtsObosY4LpPsidsaPwxuoM04+hs+8b /l+/Ocl0DNwJz/hH6lmm7UizP/3e0Oenmh4CdccQV2hEjulYDPj4h7OSzuWa HoZAAlKzf+s0HYfyyqqL4Zl5puMRXncw486AfNMJuD3u+ZUnT4ifwbBTUVOP zC4w7UBDR2D60B8Xmn4WKWPbzmfsFo/Azk/P9y1PLzI9Es6YPZ2rPxUnwn3O Xt/VUGz6OZwf1+NHwd4u0z/DhPFjc3vvFyehPadg4rq8EtOj8GDd3M7Vt8Sj cWxv/xUrt5WaHoNol/9w+2S36WTcjv7Hyte/EY/Fzhpf5fv7ykyPwy//+vA7 d2eWm07Bqnk7+659osJ0KrSCr8YGO8TAdGf8rvhdld9bA24E0+Nf8FaZ8/EY 9Hpn11O9VHM+HsXavmuvTjetpKE88fCZwoMyT0N0zej7G76VeTp2F7+02Jbg MefpCLz7gyfVcaaVCbh8r6n30RiZT0B1bOGYNb+R/EQkf17d8Fi2+Xm0iXD3 +Kz50DA5bwbimnckXPWa76tl4Mz22X22x8n7ZqL4g+QGR9C0lonjW3d33z0g 80l44tYDXXu7ZT4JX3Z23flwkLz/ZDy9ts+iKxmmtclotBW0T5sh8ywkPfrC qN2azLNwZEr0qYc2ynwK1nuONVzfLvMpmJ9tJG3ZJfOpONiUtW+WWJuK+MFT Nu6R31eyETz8sf57+XtaNu79NKakfanMc1C/5P1Xg/NlngP48nM+K5Z5LqJX tmfWj5F5LmwLyrboA2TuxIJ1g9/9yx3z/HBihTt2v/+s3IcT92NTbn79lumQ E5sda+pil8j95SGn8m/XRyyTfB5qw3NrdI/k8xA8tXXVkCLJ5+Hk0aiFOSWS z0fc+df+dGaa5PMx8uZA7+mfSz4fpz+Y7Aqul3w+gtsd0afl8ygFOHTk21PZ xyVfgJ+8Ekjt/rvkC/Cf+ZWBizclXwDXzR7uxp5y/kJ0pd59e4ncBwoRmHik rfYpua9CvLJ8+ZOPP2c6VAhjbdPs8nGSL8JX3oaoXmmSL8I37ySnxqZLvgjB l/tv2ALJF6HXF2lFC+U9lGLEDG9OueCQfDFO1C1+sX2o5Ivx0T335T29JV+M fpNqR7ysSN6F4hTf0vAVOb8LVxdfT0o5J+d34f6/ly8ddkTO70LCsPc61uly fyXIvzJgcssKyZego29iTlKN5EvwZa9w/5oqyZfAOzL6w1XynkopGkdlDu1w Sb4U/T7/JGlTteRLcTque0G/rZIvxXhbS2bNG5J3Y3fjoqtxFyTvRktC8u3S R+T8bvSKP3u2T5ac340v3E2xx6VvShkudqVfevSA3F8Z0vfPnnH7suTL0Fhy Xal9xPx/HSqD81xn1LHR8v+7HGN2JFSllJlGOQ6tqX62ot60Vo7t1bNe3L9a 8uX4xSfXLl3ZLPkKdJ7dtKRtm+Qr0NjUM9O9VfIV6O14687ijZKvwLTVl4ZP Xyr5SsypqxudWy35SvR7eG/nphzJVyKr4cK+38VL/jsfTipIjpJ8FbSyy8s7 zsr5q5A2cMnjy3Q5fxUWXmjyDJwj91eFW69dHNM2Uu5PxUP/+pUr5q55/3YV NbPOTHzzhLyHim2JnYnrN5hWVUR1L5q3Yqe8r4r49AeTlEbTuopARN9VtFr7 bqgYZO274kGCte92D/5s7Ts8mGHtu+rBH6191zzoae277kFcwNp3D2qtfTc8 +Ke174oXfmvf7V4csPYdXpxZY+m7+p2tfde8ONxm6bvuRdZma9+9yLX23fBi tLXvig+nrH23+9Bu7Tt8uJJp6bvqQ46175oP3da+6z4oX1v77kOite+GL7Lv ih83rH23+3HX2nf4I/uu+rHL2nfNj4HWvut+6rvf3GN+GWRlWqTtZJBVskbW ySGyQVam034yyCpZI+vkENkgKzNoPxlklayRdXKIbJCVmbSfDLJK1sg6OUQ2 yMos2k8GWSVrZJ0cIhtkZTbtJ4OskjWyTg6RDbIyh/aTQVbJGlknh8gGWamm /WSQVbJG1skhskFW5tJ+MsgqWSPr5BDZICvzaD8ZZJWskXVyiGyQlfm0nwyy StbIOjlENshKINI2sp3sIIPsJKvkAFkjN5N1cgs5RG4lG+QwWamJtI1sJzvI IDvJKjlA1sjNZJ3cQg6RW8kGOUxWaiNtI9vJDjLITrJKDpA1cjNZJ7eQQ+RW skEOk5W6SNvIdrKDDLKTrJIDZI3cTNbJLeQQuZVskMNkJRhpG9lOdpBBdpJV coCskZvJOrmFHCK3kg1ymKwsiLSNbCc7yCA7ySo5QNbIzWSd3EIOkVvJBjlM VuojbSPbyQ4yyE6ySg6Qtf/7v2Dpq2I= "]]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["\"y (mm)\"", TraditionalForm], FormBox["\"Current(A)\"", TraditionalForm]}, AxesOrigin->{0, Automatic}, ImageSize->400, PlotLabel->FormBox["\"Total Current in Channels\"", TraditionalForm], PlotRange->{{0, 170}, {0, 180}}, PlotRangeClipping->True]], "Output", CellChangeTimes->{{3.4404338706928463`*^9, 3.4404339093366947`*^9}, { 3.4404339927742643`*^9, 3.440434018048895*^9}, {3.440434093418631*^9, 3.440434113077877*^9}, 3.440510280901784*^9, 3.440520393190773*^9, 3.4407856782923937`*^9, 3.441114950142436*^9, 3.4411222461642313`*^9, 3.4411227185617447`*^9, 3.441128085083641*^9, 3.4411282312936287`*^9, 3.441128396613501*^9, 3.4411285430331793`*^9, 3.441128815078815*^9, 3.4411289247530823`*^9, {3.441129314904706*^9, 3.441129328896772*^9}, 3.4411523085392723`*^9, {3.441677598682901*^9, 3.441677613619111*^9}, 3.441678141283889*^9, 3.4416781802271643`*^9, 3.441680492088676*^9, 3.4417139697268763`*^9, 3.4417165834969254`*^9, 3.441817388784629*^9, 3.442255721474863*^9, 3.4422559598211193`*^9, 3.4422574493245792`*^9, 3.442261553532467*^9, 3.442325331614582*^9, 3.443182837220153*^9, 3.4431943323177013`*^9, 3.4432086161112547`*^9, 3.4432089209302807`*^9, 3.443273306657337*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"IP", ",", "I1", ",", "I2", ",", "I3", ",", "I4", ",", "I5"}], "}"}], ",", " ", RowBox[{"AxesLabel", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "180"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "100"}], "}"}]}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}]], "Input", CellChangeTimes->{{3.44112710904547*^9, 3.441127170733067*^9}, { 3.441127290575543*^9, 3.44112737727042*^9}, {3.4411275665611353`*^9, 3.4411276232081537`*^9}, {3.441128111549569*^9, 3.441128121148506*^9}, { 3.441128795152684*^9, 3.441128796584991*^9}, {3.4416781069905577`*^9, 3.441678107358614*^9}}], Cell[BoxData[ GraphicsBox[{ {Hue[0.67, 0.6, 0.6], PointBox[CompressedData[" 1:eJxd0G1olWUcx/F/JjJJ5BQ2RUadhUyT0TnuueXaf9Ntzjk9rpruwXm5+bS2 5kmbFAu8cCSzV2dBoJF1F0YQludF9CBF14iysNp5oYFi7g4psiCOZCYTIWLX iPO93tx8rh+/+3dzF/bua9s1R0T23iXy33PmZGtfT7iDr86dqvUX+sO1w+2t +7PeedoebTGxgmnviI5Mniob7pujM16kw6c6knk1ed5LNJG3ZKD7jYXeBdp5 9tx7O7+6zzuqZ81Q/8ThfO+HdDQ1v/H82FLvZfrX/NF5xRcf8C7S05mpt06f KfReoYmK4djLsWXeK/Xr5u/d3d8VeRfrkWXjE/PGH/Z+RD84uaju6KFi77hu f/+jI0ePxbxXadXpBR+PDq3yLtEdb750/52iUu9SHbna+2DhzTLvMr2nsutc y+UK73Ktbrp++9OLVd4VeiN/cvrFP6u9K3Xssm4dXFrjXaWLizrK87fVej+q RbG+qz9eUu9qvXLmn89G7q33fkwH7KEvj21e471a09OR3bePr/Wu0W9vna9c cK3B+3G907/HfLi6ybtWq3v+MJWvrPNW/Xzxz6PTvzTP2Kp2L3zthVhpi8/r 9MhP+eWbD2zweZ1OVP92qf1Eq8/rdXrON7cGTm70eb1+Mnfq3QvDm3y+RqvW l/ze9be3XaPtVZ2T4c3ZfK2eWNH0a1XJbL5Wx66PL29YOfv+Bj3eduHtkRv+ e22DxndKz5l3Zv9PoxYs3zJ45fnsFzN5o7+fPU25trCsQw5LM3JY1iOHpQU5 LBuQw9KKHJaNyGHZhByWRK4VtrCDZTP6sIUdLG3owxZ2sDyBPmxhB8uT6MMW drA8hT5sYQdLO/qwhR0sW9CHLexg2Yo+bGEHSwf6sIUdLJ3owxZ2sHShD1vY wdKNPmxhB8s29GELO1h60Ict7GDZjj5sYQeLyXUUVtjAFg5gB4ew7MA+rLCB LRzADg5h6cU+rLCBLRzADg5h6cM+rLCBLRzADg5h2Yl9WGEDWziAHRzCsgv7 sMIGtnAAOziEZTf2YYUNbOEAdnAIyx7swwob2MIB7OAQlr3YhxU2sIUD2MEh LP3YhxU2sIUD2MEhLE9jH1bYwBYOYAeHsAxgH1bYwBYOYAeHsAxiH1bYwBYO YAeHsDyDfVhhA1s4gB0cwjKEfVhhA1s4gB0cwrIP+7DCBrZwADs4hCWZ6wgc heOwwgnYwEnYwik4gNOwgzNwCGdheTbXETgKx2GFE7CBk7CFU3AAp2EHZ+AQ zsKyP9cROArHYYUTsIGTsIVTcACnYQdn4BDOwnIg1xE4CsdhhROwgZOwhVNw AKdhB2fgEM7C8lyuI3AUjsMKJ2ADJ2ELp+AATsMOzsAhnIVlONcROArHYYUT sIGTsIVTcACnYQdn4BDOwnIw1xE4CsdhhROwgZOw/d//AkfxBbI= "]]}, {Hue[0.9060679774997897, 0.6, 0.6], PointBox[CompressedData[" 1:eJxdzXuQjXUcx/Ff2CzrcixLastxma1ls4eQa77srrWWdZBbicdlEYtTW5ph 1G/DoM102moXXTybpjEVjmZcMqZ+a0lDW4tYqskzNSwxdZguqpGm2edXs+/n n2dez/v5zqfrnGUTC5sopRbeptS/74YnPnz6gfohtz7uK/4HieaWDHu9xjpR itd98emUc9YBqUi9vDLle+sOUnmqw/6j9dZ3yJsd27236EfrVElLS8lK/M9B mZS6/frei9bdRBKupm/2rHtIZGh15bd11mmS1KnE+ehz6/skvnrbqsgn1j3l hZ+dd8bErDOk7c6yaeVbrXtLadHGZu9utA5JrO61czUrrPtIfmTtS7MXWPeV lEOrkz+cZP2AdDnbKjNJrPvJzOWLxu7OsO4vswsvZJ3vbD1AliX8NPNwc+sH RZc20c//1sf3QHnr60uRjIvWg0RPfjX78BnrwZI9YOD7gz6zHiLHNpc1WXjA eqiczCw50X6H9TBp9V3TQfVbrR+Sun5ndhWVWQ+X/ITWbZqvsRZptmFH5EKx by1Skl65K+7YPkLSthw4tDPP9hEy9/TBxI4Zto+UAdvM9ZwE20fK2dJQi+QT Ib9nycq2ud7gDb51lrT+4ciNlj1sz5brda1mLO6e6fdsmVx2Knh5yf1+z5FN s7YMq6zq6fcceeZ0VfuKvDS/j5KmGS/W7bl6l99HybTc37sUd+vq91y5dXFt yZ/lQb/nysuLyyvaNfOtRsuR/TU3lp68x++j5di+9PE3S+/2e55E10w40b1f qt/zpLZN0cHiY3f6fYwkd0qsOVLQ2e9jZHtSZtfcqk5+z5ek6nkF67p19Hu+ rLnWovP64g5+HysV+z4o/XJPst/HSmx1YfmqKwG/j5Oqv6qra3q38fs46XV8 d87SFS39XiAHexxVQ6tv93uB7Hg7PTMlpanfx8sf82a9ceXm38Mb+ngpOv/L /E333miwCstXz/U53qvuWoMlLFt+bbJ3+SuX/P/DMrXL7d/U9z/fYBMWWV95 +dnUU/79BH/HfwTWsIHVRNzDGjawmoR7WMMGVg/jHtawgdVk3MMaNrCagntY wwZWU3EPa9jAahruYQ0bWE3HPaxhA6tHcA9r2MDqUdzDGjawmoF7WMMGVo/h HtawgdVM3MMaNrCahXtYwwZWTmMHYYEdWMMubGAPVrOxDwvswBp2YQN7sJqD fVhgB9awCxvYg9Vc7MMCO7CGXdjAHqzmYR8W2IE17MIG9mBViH1YYAfWsAsb 2IPVfOzDAjuwhl3YwB6sFmAfFtiBNezCBvZgtRD7sMAOrGEXNrAHq8exDwvs wBp2YQN7sFqEfVhgB9awCxvYg9Vi7MMCO7CGXdjAHqyKsA8L7MAadmEDe7Ba gn1YYAfWsAsb2IPVUuzDAjuwhl3YwB6slmEfFtiBNezCBvZgFWnsAByEQ7DA YdiBI7CGo7ALx2AD18IeHIfVE40dgINwCBY4DDtwBNZwFHbhGGzgWtiD47B6 srEDcBAOwQKHYQeOwBqOwi4cgw1cC3twHFbFjR2Ag3AIFjgMO3AE1nAUduEY bOBa2IPjsHqqsQNwEA7BAodhB47AGo7CLhyDDVwLe3AcVk83dgAOwiFY4DDs wBFYw1HYhWOwgWthD47DanljB+AgHIIFDsMOHIH1//4HIWNTUw== "]]}, {Hue[0.1421359549995791, 0.6, 0.6], PointBox[CompressedData[" 1:eJxd1HtwVNUdB/AjSWxMeWyniKlkYPMglqebJgYRhW822ZCQhGzeD4VeQB4R CEuMUKjC0cAEH4yJ2EEB4+0IFoOE1DItHVCPVihUx0aFAQKktxXo8JLIgK1t x3Q6/M509rv/ZD75zne+s3fvOcnzlpcvGKSUWnybUv/7e+vTPz2vqnPYxIkj IP9AwdIhU65kjBHH40JX8npv/iSxD/sSv6xvnZMpHo7GQylfrk6fLE7EPcNP tse3PyBOwn68XB+38yGxHwOh3WmRLIhTsHfpkil1K3LEadhxomZL6gtBcToC p/54vr01V/xjjN8z7Eb+wjzxOHRWfL/oyLiQeAI+PB3M0iesJ+F016rQ+435 4gDey2hY++516wwcWDz39m0LZoh/go0JO7c4R60zcax+1K6B0QXiLAz8eY5T vsT6PtSPSW0eucc6G9U3Xv067u/Wk/Hri+tH7by7UHw/9p7//c+bC62n4PWB DfEnm60fwKiTWV5Sh/VUbCuPKVlz2PpBvB2+ueyH16wfwj17Pmn/NnGmeBo6 a6833Ruyno7kw9+072m2Bl74KGnw4l1iDRzOT2qp/qvNc+DNHTdknb9I8hyc e3jVF3GLxCqI3icPFuT91uZBvLK6MXx1WLHkuXhr44HXC1aKdS7O/6EuvPWK zfPw7Ss3286tKpE8Dy8feHb1Cv8syUP4x4nX/lN8U6xD2Lx1wbpdCWHJ8xE7 rrcg5oJY52Pqd7uX7ssuk3wGdItX1327WM9AUfKpI4dO2n4BRuducp942/YL 8Ld5badnPG3zQsQcu9jwcbXNC/HR8ye++sUEm8/EZxMTynMH2Xwm8lf+KPtS V6nkRXi3JTvxjRqxLkJc84t/if3Ofr9ifL0v5c5Fv7Tfrxj12xOnJefYvASt vnXehjP2+ZQg/o7RlWeaxGoW3ljopNXF2HwWfNOC+4dvss+3FDl9TWcHhtrn X4qWMb17j7fa3y+M7akdKQnfyO+NMOYXB9P21dj3IYyrv3vz8opOeb9MGH2Z ztzQZfs+l6GvcHAwXCJGGUpeyg1sXy7nRZfB2/L00Ge3yfkyZVgzfvbog5/a 81iOg+mPBYq+J0Y5rnUkNO7IlfOsyzH/xTOnnnpGzrspx4iuLX1HPwxKvwKf j32+cG+MGBVYVnCsqSVP7g9dgW3bH33n0Hq5X0wF3loz+J/ZG6dLvxKl/86o fjV2mvQrcfVXI2evW/ug9Ctx9PPxxy/dlPvLVGLS1vTNdyyZIv0qpLZ2Zk7o k/sOVbi29tL1g6XZ0q9Cc8fmhskmS/pVuLDoyNSUgL0vq3H50yvxg90M6Vfj WNfKCZt8AelXo2n1v4rc2InSr8bZhjt3hK6MlX4NNhzpuCu9N136NQi+75zN /CxV+jWoGnL3/t8c90u/BrE6Le+L0yOlX4sLk352LiFf7nvUYveTH2z6U+wP pF+LUM2ItPueipd+LXp3DUofUqWkX4dQ3Bmno/7G9Fv9OjSNfW32m89dvmVd h8obQy8mvfPVLZs66dlPfbRB1mRDVg9Tn6zJhqweoT5Zkw1ZzaY+WZMNWc2h PlmTDVn9lPpkTTZk5UTbTwbZIWuySzZkj6zm0j4ZZIesyS7ZkD2ymkf7ZJAd sia7ZEP2yGo+7ZNBdsia7JIN2SOrR2mfDLJD1mSXbMgeWS2gfTLIDlmTXbIh e2S1kPbJIDtkTXbJhuyR1SLaJ4PskDXZJRuyR1aLaZ8MskPWZJdsyB5ZNdA+ GWSHrMku2ZA9snqM9skgO2RNdsmG7JHVEtong+yQNdklG7JHVktpnwyyQ9Zk l2zIHlkto30yyA5Zk12yIXtk1Uj7ZJAdsia7ZEP2yGo57ZNBdsia7JIN2SOr SLR9ZD85QAY5THbIEbImt5FdcjfZkHvIHrmfrFZE20f2kwNkkMNkhxwha3Ib 2SV3kw25h+yR+8mqKdo+sp8cIIMcJjvkCFmT28guuZtsyD1kj9xPVo9H20f2 kwNkkMNkhxwha3Ib2SV3kw25h+yR+8mqOdo+sp8cIIMcJjvkCFmT28guuZts yD1kj9xPVk9E20f2kwNkkMNkhxwha3Ib2SV3kw25h+yR+8lqZbR9ZD85QAY5 THbIEbL+v/8LTE3JmA== "]]}, {Hue[0.37820393249936934`, 0.6, 0.6], PointBox[CompressedData[" 1:eJxd1X901XMcx/GPNcUpzBHiiNuEVeIqK0n2Jluztrq7293vH9+tXzR0I9ER 58M/HWpcjqUj5rt0mKhNxwkH+XAck3K2o0UifVc2lGrnCJV0HGefz3Hu8/vP zuN+zmvvc77f1+fzGVW/KDovRSl11xlK/fd34OnPUsmPJPMsOA0eDo+AL4ND cDo8Gr4azoDHwtfC18Fh+AZ4AjwRvhHOhCfBk+Gb4CnwzfBU+BZ4GnwrnAVL sjWsbsM6rG7HOqymYx1Wd2AdVtlYh1UO1nOkZ9zoUM2EXz8e+GGGzJv2at7E 1j8Heq1nyEHTVNm8eqjN5cr6BY2PnVl44YB1rjSvqVm6Pt/19E5JHbKxvW/+ KLt+p3Re/tqj2YtdL/PkjawrCz6beY1dz5PfTi/vHHVqjF2fKcNeGrxl7Qrb Qz1TXl+XdWPK766H+TLi9RNtc1tsD3W+nH2ormHVR66HBZKf/cvZhzttD3WB PDZ3+dH6Pa6Hs+RkaVnzez/aHupZ0vjDvvSNP7oezpaGe7duOPm97aGeLdOn 5q2o3u16GJGWPasPrt1leygReeP9qs+f3mV7qCPSOjSr5No9tocmIrp723lN va6HhaIbM3YsabE9lELZcPyii1M22R7qQun5+u5Ntz1ne2gKZdf2Yw9llLoe RuWVjkOx5jNs7yQqmR+3F60tsNZRubR0284pz1qbqBy5ZMSu9V+5nhZJ84LP wq8Osr2UInmhPvtA20RrXSR/fJWYfU6NtSmSJ1L++aX7CdfjYimPTBqfus7l i+Xoh1cuX/GByxfLt9HUy6Z3unyxvPLwpMZL97p8TA5fkDPpz59cPiafDllT 39Hn8jGpa6l/8qn9Lh+Truc7umfsdvkS+bntSN/5X7h8iSwcfKwnZbPLl8ia pdEPJ692+RL54dTkQ9uWuHyp9O4cMrejwOVLJfVb70DGKJcvlccnTJnx+RH3 /kpl1e4xL+Ruce+vTPbtLxp2yUPu/ZfJy/FWlR92779Mlm35buywT+z3MmWS 3nk4dfNQ9/3K5a8H5szJmGq/r5RLYtMXKwfnuu9fLsO6X+5Nz7D9MOUyaNW6 kcMXu/5USFZWydbBc2y/pEJeXJ5/eU+Z61+FzFo7seGWQttPUyGNJ3orv89z /a2UKwq6I6132H5LpVz0Zt6Gd6bZ/utKCcrGnb4p0+4PUymxbV5v01i3f6ok 58sHM2Ij7f6SKvkjK3X0uHPs/tNVcuzUtPX9v19v81UyJbboVFPHeJuvlken jl35adM4m6+W7EMVs0pr7f7X1ZK5cMfwlqvs+WCqxW/9e039QXd+1Mi5p/tC B9rSbb5GqrYmHhm0zN6Lukbqvjme8+5z9jwyNfLimJZ1HXnuXq2VnhPL9pVd Ze9dqZV/dsQfjobtvaxr5YORfaHik/beNrUSrdv5fPf0FJv35Lu+894af/D4 wPkY8iRxfsH2t2NHByye3FrekPu0OjBgz5Pj7zyzSRfvteepJ5nemO37234a sO/Z/2sfAwewqkt2CBbYgzXswwYOYFWP+bDAHqxhHzZwAKs5mA8L7MEa9mED B7Cai/mwwB6sYR82cACreZgPC+zBGvZhAwewmo/5sMAerGEfNnAAqwWYDwvs wRr2YQMHsLoL82GBPVjDPmzgAFZ3Yz4ssAdr2IcNHMBqIebDAnuwhn3YwAGs GjAfFtiDNezDBg5gdQ/mwwJ7sIZ92MABrO7FfFhgD9awDxs4gNV9mA8L7MEa 9mEDB7BahPmwwB6sYR82cACreLLT4BAchgWOwB4chzWcgH24HTZwFxzA/bBa nOw0OASHYYEjsAfHYQ0nYB9uhw3cBQdwP6zuT3YaHILDsMAR2IPjsIYTsA+3 wwbuggO4H1YPJDsNDsFhWOAI7MFxWMMJ2IfbYQN3wQHcD6slyU6DQ3AYFjgC e3Ac1nAC9uF22MBdcAD3w+rBZKfBITgMCxyBPTgOazgB+3A7bOAuOID7YbU0 2WlwCA7DAkdgD47D+n//C67RpGc= "]]}, {Hue[0.6142719099991583, 0.6, 0.6], PointBox[CompressedData[" 1:eJxd1n1QVXUaB/Cfb5kGdg11XcG4GDEaVlfJNFH5hmiBa1zeXwQ593JZMTWu WVZbtj97Mc1huqyzaUvpqUjSGrpKf9jk1C97U7O8rtFOJXqcdIuypDJy0mp3 h+fMzv2ef5jPPDw8l3vO9zm/tGBTccNApVTjAKX+97P/6s1R8RfieSnZQx5F HktOIXvJE8jp5AzyRPI15Mnk68g+8hTyVHIW+QbyNPKN5OnkGeSbyDPJ2eRZ 5NnkOeQcMuKtyepmqpNVLtXJai7VySqP6mQ1j+pkNZ/qZHUL1cnqVqqTVT7V yaqA6mS1gOpk9Seqk9VCqpPVbVQnq0Kqk5U/3iBrsiGrIrT//viJQ2O+6d8b KEJt5Ia3eyae7bcuQkpnINrQeb7fpgir971x8EBokPydYszZdqE5JzOh3yhG Yu6ppC1XJPVbF2PHiyuGrr9P9ogpRnr7xrLkSVdKfwkGRLaVpw+ZIP0lKBp1 5fNtl1wt/SXo6Bp//ytJsidMCYKtU2c9NTFT+kuR937biH/myl5AKfp+fHTA 7KjsBV2KnmdPRy6D7AFTitEv77w4NebugTIcPba9IdWS3KMMd9/8cd68s5J7 XYbWcOKhtDWSc1OGXX2dTTnD3FyXY0/z6qtmb5JcoxwrklpH/2uc5FiXY+WH B/rObpMcm3J8NqPds3Ckm9MKtPd9khI5IkYFBv6c9vdLWiSnugITZ3105I/+ XOmvwKEvvjxQfbmbw0p89U3xpHWHxajEkxuHFmxokRzqSqR1Tzm0vlxyZyqx vfSWD3tS3ZxV4ftPutLqzopRhZy+ysjF9yRnugqvZy4dUrJDcmWqMG50X8uv 090cVSN7w7x77j8jRjXWeXoeea9ZcqSrcXlv6P3u8ZIbU40jWaNGYqubo0XI 3rW2YohHcoNFGLsr9uaPq8R6EdLf+L6m5aDYLMKmtr3+rFFujmrw/NwvzPAi MWpQ+NyEE9evFesanO5ekfpSm9jUYGfqyWceeN3tr0X+8t/bn33X7a9FTO+u GPu221+L7ovHfSc73f5anG/44LXfNrv9i7Evv8qzqsntX4yVP8x8LHum278Y HbmDawrOu59/MQ5HW598cIe7J+qwZPygcf9Y6P7/dZieMuzYtFPy/eg65C85 l/zqcvf7q0PHnJb5vn+7e8pCYcnp35YVir0WXggnP7Bnu3s/LHTOr0j6vEfu n2XhRH5Crn+hWFso+Ntc39NNcr9tC87mtSM2tMrzYCzozNrUvR/J8+NYeDXj dt+Coe4eD+DLrcPvaJsrz5s3gLonjn265iH3eQwgoWPz8QP7cmV+AF2TNua/ MkisA2i89eM7H86T590O4J2nQ7vffUTyYALo/kvC+RvXy3vPCWDZhSnlTw12 34tBHG9Prv3rg/Ie9QaReDSz6+ufJJ8IIn1LxqZhy+S9bP3399ftzJp8XN7j OoiB+7/+YW+h5N0O4mTbpqXTjZwLTBBrG/dnT/DJvnCCmHH4zKUJtnvOqMfJ jtWTmz2yb7z12HLfLwvswdfK/Hp82zi6bd6ZSTK/Hg37t/4h4zM5B+l6lL9p dWcduUrm1yOYOG5PZ5ecq0w9Qjo97+jnyTK/Hueuu/fU8PljZH4IBWveaj44 eKTMD+GuqjHp09bIOQ8hXHhxYEZimZwDrRDWDT9mba0+J/s9hKGTn6nd/rjs fzuEinMjelJ2fyf7PiRz5HLIqiHeXjLIFlmTbbIhO2T1Z5pPBtkia7JNNmSH rJbQfDLIFlmTbbIhO2TVSPPJIFtkTbbJhuyQ1VKaTwbZImuyTTZkh6xup/lk kC2yJttkQ3bIahnNJ4NskTXZJhuyQ1bLaT4ZZIusyTbZkB2yWkHzySBbZE22 yYbskNUdNJ8MskXWZJtsyA5ZNdF8MsgWWZNtsiE7ZBWOt4fsJfvIIPvJFjlM 1uQI2SZHyYYcIzvkXrJaGW8P2Uv2kUH2ky1ymKzJEbJNjpINOUZ2yL1kdWe8 PWQv2UcG2U+2yGGyJkfINjlKNuQY2SH3ktWqeHvIXrKPDLKfbJHDZE2OkG1y lGzIMbJD7iWru+LtIXvJPjLIfrJFDpM1OUK2yVGyIcfIDrmXrO6Ot4fsJfvI IPvJFjlM1uQI2SZHyYYcIzvkXrJaHW8P2Uv2kUH2ky1ymKz/7/8AW4q9jA== "]]}, {Hue[0.8503398874989481, 0.6, 0.6], PointBox[CompressedData[" 1:eJxd1XtolXUcx/Gf29DMBZNMXVmduS5LTI46Z9PSr5qX0uVxtubuz86Zl6Xl SZeXiPgp3dQGp7I0zXws0WGkJwvBC/YzxGnmNp2hGeaj5syWc6hZRGLEfg9x 3s8/48WH7/nA8ww+GeG5+dOTlFKzOin139+Op32kSnwkkbfBaXAPuDfcBw7A feEH4IfgLLgf3B8eAAfhgfAgeDCcDQ+Bc+Ch8GNwLjwMHg4/Dj8Bj4BHwpJo DatRyGE1GjmsxiCH1ZPIYTUWOazGIYfVeOSwmoAcVk8hh9XTyGE1ETmsJiGH VR5yWD2DHFaTkcMqlGiBNWxgNQX3sIYNrPJxD2vYwGoq7mENG1g9i3tYwwZW BbiHNWxg9RzuYQ0bWBXiHtawgdU03MMaNrAqwj2sYVMkbtHATbt7XrQ7UyyH G/K6O7df67AUS+OUs6lrJ9/ssC6W6hlFy0+dSun4HVMse/MXbag73c3+bol8 3Hgme/ve7h2WErnnzN8Nfxy8q8O6RLplrxnw5c10e18ivVp7JA8I3WfvS2Xn jN833luSYe9L5aPSowea38+096Uyp73gUlvDg/a+VK78Oe/zhq7+7pTJqi1v XgqPtrsjZdJQe/+K9IV2d3SZXO7b9cLRTXZ3TJkULFt8q3qWvzvlkrF7c/b0 V+zuSLk8qeYdK19md0eXS3bfzUPe/sDujimXzNxbOSPW+7tTITu/jm/rstnu jlTItE6nHl75hd0dXSF1P+V+t+sruzumQiYu3Xd48S5/dxzpn9n0xo1v7e4E HGkrqYu91mB3RxwZ99uWYct/trvjOPJ6bdb3NRvs7mhH4n/17JW01e6O68iF Y9VbR71nd8c4cuLw9YVZhXZ3PEc21rcWfNLJ35lKGfZNfOraPOtApfQpPNSc +661VMrV9N4/bDxi7VTK+pn7g58l2x3SlbImPPb8tsHWbqVcORKbfEe5tamU JUk3fz2+1NqrlMJQzqMpn/o7FparezJffWu3dSAszfkpfcY0WktY9i/Kqb37 tLUTlmt3jsu58YvfH5aByavD9S1+f1jUhvCy5ef8/rDUr6w/Pv6k3x+Wlm1t Ld0P+v0Rmd35+tmk7X5/RFYvyN8z9EO/PyIX/xnaeqjG749IS3OXqvo8vz8i ySec81kZfn9ElgzKHX+gzb4vE5F3Tj6yasIOay8iZ89NTU1f6L//KlkXrVOT gv77r5KaHT/2S91nv5dUSWbj5ZTt3aydKmmdH4lkDbffV1dJ7daDKzpP8L9/ laQeX3ehb5b9/zBVtsc+HqymJzoAC+zAGnZhA3uwmoF+WGAH1rALG9iD1Uz0 wwI7sIZd2MAerGahHxbYgTXswgb2YFWNflhgB9awCxvYg9Xz6IcFdmANu7CB PVjNRj8ssANr2IUN7MFqDvphgR1Ywy5sYA9WL6AfFtiBNezCBvZg9SL6YYEd WMMubGAPVnPRDwvswBp2YQN7sIomOg0OwEFY4BDswFFYwzHYheOwgZtgD26H 1UuJToMDcBAWOAQ7cBTWcAx24Ths4CbYg9thNS/RaXAADsICh2AHjsIajsEu HIcN3AR7cDus5ic6DQ7AQVjgEOzAUVjDMdiF47CBm2APbodVTaLT4AAchAUO wQ4chTUcg104Dhu4Cfbgdli9nOg0OAAHYYFDsANHYQ3HYBeOwwZugj24HVYL Ep0GB+AgLHAIduAorP/3vyhYTgw= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["\"y (mm)\"", TraditionalForm], FormBox["\"Current(A)\"", TraditionalForm]}, AxesOrigin->{0, Automatic}, ImageSize->500, PlotRange->{{0, 180}, {0, 100}}, PlotRangeClipping->True]], "Output", CellChangeTimes->{{3.4411271495300627`*^9, 3.441127171381648*^9}, 3.441127293772106*^9, 3.44112736634089*^9, {3.441127598488855*^9, 3.44112762480086*^9}, {3.4411280851867247`*^9, 3.441128121815927*^9}, 3.441128231418127*^9, 3.441128396649535*^9, 3.441128543072863*^9, 3.441128815166627*^9, 3.441128924772481*^9, 3.441152308590137*^9, 3.4416775987571297`*^9, 3.4416781413158197`*^9, 3.4416781802614183`*^9, 3.441680492142411*^9, 3.441713969756156*^9, 3.441716583513851*^9, 3.44181738881758*^9, 3.4422557214914*^9, 3.442255959850169*^9, 3.442257449335533*^9, 3.4422615535981913`*^9, 3.442325331715714*^9, 3.4431828372694387`*^9, 3.4431943323865023`*^9, 3.4432086161940193`*^9, 3.4432089210010023`*^9, 3.443273306689073*^9}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Transport Segment 6", "Section", CellChangeTimes->{{3.427557417391244*^9, 3.4275574212738867`*^9}, { 3.4411221096197567`*^9, 3.441122111491469*^9}, {3.441122508437797*^9, 3.441122511640093*^9}, {3.4411277226665297`*^9, 3.441127722814207*^9}, { 3.441128631204597*^9, 3.44112863229961*^9}, {3.441677590429941*^9, 3.4416775930292463`*^9}, {3.44167783010979*^9, 3.441677830333523*^9}, { 3.441678247795299*^9, 3.441678248331245*^9}}], Cell["Segment 6 - Coils 5, 6, 7", "Text", CellChangeTimes->{{3.4275574238332644`*^9, 3.427557519898347*^9}, { 3.441122709553803*^9, 3.441122723090308*^9}, {3.4411277251617403`*^9, 3.441127734985326*^9}, {3.441128634874387*^9, 3.4411286420184526`*^9}, { 3.441677837518024*^9, 3.441677846179837*^9}, {3.441678251476316*^9, 3.441678257826837*^9}}], Cell[CellGroupData[{ Cell["Coil Definition", "Subsection", CellChangeTimes->{{3.424789285638125*^9, 3.42478928884125*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"Push", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "ampsPush_"}], "]"}], ":=", " ", RowBox[{"CustomPush", "[", RowBox[{ "x", ",", "y", ",", "z", ",", "distP", ",", "ampsPush", ",", "radP", ",", "PwireWidth", ",", "PwireLength"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coil1", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "amps1_"}], "]"}], ":=", RowBox[{"Coil", "[", RowBox[{"x", ",", RowBox[{"y", "-", "ydispl1"}], ",", "z", ",", "dist1", ",", "amps1", ",", "rad1", ",", "MOTwireWidth", ",", "MOTwireLength", ",", "numRad1", ",", "numAx1"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coil2", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "amps2_"}], "]"}], ":=", RowBox[{"Coil", "[", RowBox[{"x", ",", RowBox[{"y", "-", "ydispl2"}], ",", "z", ",", "dist2", ",", "amps2", ",", "rad2", ",", "HwireWidth", ",", "HwireLength", ",", "numRad2", ",", "numAx2"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coil3", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "amps3_"}], "]"}], ":=", RowBox[{"Coil", "[", RowBox[{"x", ",", RowBox[{"y", "-", "ydispl3"}], ",", "z", ",", "dist3", ",", "amps3", ",", "rad3", ",", "HwireWidth", ",", "HwireLength", ",", "numRad3", ",", "numAx3"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coil4", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "amps4_"}], "]"}], ":=", RowBox[{"Coil", "[", RowBox[{"x", ",", RowBox[{"y", "-", "ydispl4"}], ",", "z", ",", "dist4", ",", "amps4", ",", "rad4", ",", "HwireWidth", ",", "HwireLength", ",", "numRad4", ",", "numAx4"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coil5", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "amps5_"}], "]"}], ":=", RowBox[{"Coil", "[", RowBox[{"x", ",", RowBox[{"y", "-", "ydispl5"}], ",", "z", ",", "dist5", ",", "amps5", ",", "rad5", ",", "HwireWidth", ",", "HwireLength", ",", "numRad5", ",", "numAx5"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coil6", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "amps6_"}], "]"}], ":=", RowBox[{"Coil", "[", RowBox[{"x", ",", RowBox[{"y", "-", "ydispl6"}], ",", "z", ",", "dist6", ",", "amps6", ",", "rad6", ",", "HwireWidth", ",", "HwireLength", ",", "numRad6", ",", "numAx6"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coil7", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "amps7_"}], "]"}], ":=", RowBox[{"Coil", "[", RowBox[{"x", ",", RowBox[{"y", "-", "ydispl7"}], ",", "z", ",", "dist7", ",", "amps7", ",", "rad7", ",", "HwireWidth", ",", "HwireLength", ",", "numRad7", ",", "numAx7"}], "]"}]}]}], "Input", CellChangeTimes->{{3.4108691929057975`*^9, 3.4108692511714225`*^9}, { 3.4108696083120475`*^9, 3.4108696370776725`*^9}, {3.4108878639057975`*^9, 3.4108878917339225`*^9}, 3.4108880255620475`*^9, {3.4108880572026725`*^9, 3.4108880934839225`*^9}, {3.4108881324057975`*^9, 3.4108881358276725`*^9}, {3.4114971485377502`*^9, 3.4114971533502502`*^9}, {3.4115798687252502`*^9, 3.4115798990846252`*^9}, {3.4115801645377502`*^9, 3.4115801658346252`*^9}, {3.4115850364908752`*^9, 3.4115850513502502`*^9}, {3.4116541353815002`*^9, 3.4116541668815002`*^9}, {3.4116543291315002`*^9, 3.4116543294752502`*^9}, {3.413042775259*^9, 3.41304278797775*^9}, { 3.4130428408215*^9, 3.413042899509*^9}, {3.413042982962125*^9, 3.41304298922775*^9}, {3.41304393541525*^9, 3.4130439359465*^9}, { 3.4130475845715*^9, 3.41304758510275*^9}, {3.4147689327342415`*^9, 3.4147689545786905`*^9}, {3.4157043510358753`*^9, 3.4157043545515003`*^9}, {3.4240142755295*^9, 3.424014280982625*^9}, { 3.424708044607378*^9, 3.424708045091753*^9}, {3.424708516388628*^9, 3.424708547888628*^9}, {3.424789355935*^9, 3.424789362294375*^9}, { 3.424793540700625*^9, 3.42479354259125*^9}, {3.42479373102875*^9, 3.424793804356875*^9}, {3.42479385740375*^9, 3.424793870231875*^9}, { 3.424793962731875*^9, 3.424794012106875*^9}, {3.424794111200625*^9, 3.42479411184125*^9}, {3.42479467331*^9, 3.424794687200625*^9}, { 3.42504874452875*^9, 3.425048750606875*^9}, 3.42504893756*^9, 3.425049003856875*^9, {3.425052076763125*^9, 3.425052080075625*^9}, { 3.42505228456*^9, 3.425052285138125*^9}, {3.425053193700625*^9, 3.42505319734125*^9}, {3.425140953629081*^9, 3.425140955394706*^9}, { 3.425143919457206*^9, 3.425143919832206*^9}, {3.42530989195675*^9, 3.425309893034875*^9}, {3.4253099389255*^9, 3.425309941488*^9}, { 3.42531268476925*^9, 3.425312693941125*^9}, {3.4275484377987127`*^9, 3.427548439150815*^9}, {3.427549179203624*^9, 3.427549180977133*^9}, { 3.427557753123818*^9, 3.427557807078123*^9}, {3.431959729046167*^9, 3.431959734430778*^9}, {3.431959767318501*^9, 3.431959777847219*^9}, { 3.432522576195047*^9, 3.432522576768517*^9}, {3.432522640640594*^9, 3.432522641159569*^9}, {3.43252273720122*^9, 3.4325227374044447`*^9}, { 3.4325227774233923`*^9, 3.4325227782576227`*^9}, {3.432522979857479*^9, 3.432522986718114*^9}, {3.4342027674829407`*^9, 3.434202767818779*^9}, { 3.4342033583019247`*^9, 3.434203358566132*^9}, {3.4342035182972803`*^9, 3.434203518695207*^9}, {3.434203693374236*^9, 3.4342036937433043`*^9}, { 3.4342038767456837`*^9, 3.434203880149901*^9}, {3.4342043595530024`*^9, 3.434204360389633*^9}, {3.434204574074339*^9, 3.434204576586729*^9}, { 3.434204726385235*^9, 3.434204727655446*^9}, {3.4342049825787983`*^9, 3.4342049830998783`*^9}, {3.4363860850199957`*^9, 3.4363861459997807`*^9}, {3.4411286966296463`*^9, 3.441128719136548*^9}, { 3.441677862797627*^9, 3.441677883779232*^9}, {3.441678264731885*^9, 3.4416782900509577`*^9}, {3.441678655615033*^9, 3.4416786583484592`*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Calculation", "Subsection", CellChangeTimes->{{3.427557803876124*^9, 3.4275578048430853`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Clear", " ", "[", RowBox[{ "ypos", ",", "buf", ",", "n", ",", "y0", ",", "yf", ",", "scale", ",", "MagX", ",", "MagY", ",", "MagZ", ",", "curr1", ",", "curr2", ",", "currP", ",", "curr3"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amps5", "=", "curr5"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amps6", "=", "curr6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"amps7", "=", "curr7"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Unit", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], ":=", RowBox[{ RowBox[{"Coil5", "[", RowBox[{"x", ",", "y", ",", "z", ",", "amps5"}], "]"}], "+", RowBox[{"Coil6", "[", RowBox[{"x", ",", "y", ",", "z", ",", "amps6"}], "]"}], "+", RowBox[{"Coil7", "[", RowBox[{"x", ",", "y", ",", "z", ",", "amps7"}], "]"}]}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"xComp", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{ RowBox[{"Unit", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"yComp", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{ RowBox[{"Unit", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"zComp", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{ RowBox[{"Unit", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "[", RowBox[{"[", "3", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GxComp", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{ SubscriptBox["\[PartialD]", "x"], RowBox[{"xComp", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GyComp", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{ SubscriptBox["\[PartialD]", "y"], RowBox[{"yComp", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"GzComp", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{ SubscriptBox["\[PartialD]", "z"], RowBox[{"zComp", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}]}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", " ", "=", " ", "29"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y0", "=", " ", RowBox[{"166", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"yf", " ", "=", " ", RowBox[{"194", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"scale", " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"yf", "-", "y0"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"buf", " ", "=", " ", RowBox[{"UnitVector", "[", RowBox[{"n", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"asp", " ", "=", " ", RowBox[{"UnitVector", "[", RowBox[{"n", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "0"}], ",", RowBox[{"i", "<", "n"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"ypos", " ", "=", " ", RowBox[{"y0", "+", RowBox[{"scale", "*", "i"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"sol", " ", "=", " ", RowBox[{"Solve", " ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"yComp", "[", RowBox[{"zero", ",", "ypos", ",", "zero"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"GzComp", "[", RowBox[{"zero", ",", "ypos", ",", "zero"}], "]"}], "\[Equal]", "gradient"}], ",", RowBox[{ FractionBox[ RowBox[{"GxComp", "[", RowBox[{"zero", ",", "ypos", ",", "zero"}], "]"}], RowBox[{"GyComp", "[", RowBox[{"zero", ",", "ypos", ",", "zero"}], "]"}]], "\[Equal]", RowBox[{"Aspect", "[", "ypos", "]"}]}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"curr5", ",", " ", "curr6", ",", "curr7"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"buf", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], " ", "=", " ", RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"asp", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "=", RowBox[{"Aspect", "[", "ypos", "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Curr5", "=", " ", RowBox[{"curr5", "/.", "buf"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Curr6", " ", "=", " ", RowBox[{"curr6", "/.", "buf"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Curr7", " ", "=", " ", RowBox[{"curr7", "/.", "buf"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", " ", "=", " ", "0"}], ",", " ", RowBox[{"i", "<", "n"}], ",", RowBox[{"i", "++"}], ",", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"I5", "[", RowBox[{"[", RowBox[{"i", "+", RowBox[{"y0", "/", "mm"}]}], "]"}], "]"}], "=", RowBox[{"Curr5", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"I6", "[", RowBox[{"[", RowBox[{"i", "+", RowBox[{"y0", "/", "mm"}]}], "]"}], "]"}], "=", RowBox[{"Curr6", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"I7", "[", RowBox[{"[", RowBox[{"i", "+", RowBox[{"y0", "/", "mm"}]}], "]"}], "]"}], "=", RowBox[{"Curr7", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"Curr5", ",", "Curr6", ",", "Curr7"}], "}"}], ",", RowBox[{"DataRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"y0", "*", "1000"}], ",", RowBox[{ RowBox[{"(", RowBox[{"y0", "+", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}], "*", "scale"}]}], ")"}], "*", "1000"}]}], "}"}]}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"y0", "*", "1000"}], ",", "0"}], "}"}]}], ",", RowBox[{"PlotMarkers", "\[Rule]", RowBox[{"{", RowBox[{"Automatic", ",", "Small"}], "}"}]}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotLabel", "\[Rule]", "\"\\""}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"TotCurrent", "=", RowBox[{ "IP", "+", "I1", "+", "I2", "+", "I3", "+", "I4", "+", "I5", "+", "I6", "+", "I7"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Max", "[", RowBox[{"I5", "+", "I6", "+", "I7"}], "]"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", "Pstage6", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Pstage6", "=", RowBox[{ RowBox[{ SuperscriptBox["Curr5", "2"], "*", "R5"}], "+", RowBox[{ SuperscriptBox["Curr6", "2"], "*", "R6"}], "+", RowBox[{ SuperscriptBox["Curr7", "2"], "*", "R7"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Max", "[", "Pstage6", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Mean", "[", "Pstage6", "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ListPlot", "[", RowBox[{"TotCurrent", ",", RowBox[{"PlotLabel", "\[Rule]", "\"\\""}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}], ",", RowBox[{"PlotRange", "->", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"yf", "/", "mm"}], "+", "5"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "180"}], "}"}]}], "}"}]}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ "IP", ",", "I1", ",", "I2", ",", "I3", ",", "I4", ",", "I5", ",", "I6", ",", "I7"}], "}"}], ",", " ", RowBox[{"AxesLabel", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"yf", "/", "mm"}], "+", "5"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "100"}], "}"}]}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}]}], "Input", CellChangeTimes->{{3.424794846638125*^9, 3.424795033419375*^9}, { 3.4247952409975*^9, 3.4247952994975*^9}, {3.424795401575625*^9, 3.424795403138125*^9}, {3.424795508919375*^9, 3.42479551006*^9}, { 3.42479560059125*^9, 3.42479568802875*^9}, {3.424796194185*^9, 3.42479622109125*^9}, {3.424796345856875*^9, 3.4247963796225*^9}, { 3.424799205356875*^9, 3.4247992094975*^9}, {3.424799415481875*^9, 3.42479941565375*^9}, {3.424799600919375*^9, 3.424799612825625*^9}, { 3.4247996814975*^9, 3.424799686356875*^9}, {3.424799847013125*^9, 3.42479985396625*^9}, {3.425044396138125*^9, 3.42504440177875*^9}, 3.4250446944975*^9, {3.42504483252875*^9, 3.42504489046625*^9}, { 3.42504494815375*^9, 3.42504499659125*^9}, {3.425052742794375*^9, 3.425052768794375*^9}, 3.42505291606*^9, {3.425146476738456*^9, 3.425146492550956*^9}, {3.425146874222831*^9, 3.425146874941581*^9}, { 3.425306681503625*^9, 3.425306686816125*^9}, {3.425311146534875*^9, 3.4253112353005*^9}, {3.425311319238*^9, 3.425311322847375*^9}, { 3.42531273214425*^9, 3.42531275320675*^9}, {3.425313256472375*^9, 3.425313257488*^9}, {3.425313288566125*^9, 3.425313289222375*^9}, 3.42565147825*^9, {3.425658336640625*^9, 3.425658352046875*^9}, { 3.4256584149375*^9, 3.425658423671875*^9}, {3.42565847684375*^9, 3.425658480296875*^9}, {3.42565853471875*^9, 3.42565853840625*^9}, 3.427652733232007*^9, {3.4276530609284573`*^9, 3.427653061947754*^9}, { 3.432523452809812*^9, 3.432523501924593*^9}, {3.432563448739462*^9, 3.432563449857027*^9}, {3.433864207548109*^9, 3.433864208716193*^9}, { 3.4404342365420523`*^9, 3.44043424244471*^9}, {3.441122176941136*^9, 3.4411221973153133`*^9}, {3.441122540205755*^9, 3.441122625789896*^9}, { 3.4411226578767242`*^9, 3.4411226860159073`*^9}, {3.441127677620097*^9, 3.4411276834324827`*^9}, {3.441127739341113*^9, 3.441127808168995*^9}, { 3.441127981960608*^9, 3.441128045797517*^9}, {3.441128186416677*^9, 3.441128213359702*^9}, {3.441128358141787*^9, 3.441128359546916*^9}, { 3.4411285259023247`*^9, 3.44112852610019*^9}, {3.441128608285178*^9, 3.441128609994923*^9}, {3.441128679152594*^9, 3.4411286910788813`*^9}, { 3.4411287233249607`*^9, 3.4411287862321253`*^9}, {3.441676999938737*^9, 3.441677000191649*^9}, {3.441677898815668*^9, 3.4416779796748753`*^9}, { 3.441678011840901*^9, 3.441678070293551*^9}, {3.441678164201255*^9, 3.44167816655227*^9}, {3.441678301408411*^9, 3.44167850696513*^9}, { 3.441678877857873*^9, 3.441678879067252*^9}, {3.443208960827181*^9, 3.443209009513648*^9}, {3.4432090784971237`*^9, 3.44320910354522*^9}}], Cell[BoxData[ GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJzt1PtPU3cYx/EqbA4vscRi8FKpXKLIRLAUaKv2mQqB0iNQYYA1jgDnnBpU FLMggxCZY5ugm6j1AvECIRTEG8LiBUXGHAxwFaYZCVgRsZCi8TIYYQhU5vme 5z/wt57k5OTz0zsnr+RZmpSmpacLBILLU+//3w9PQwo4HCoVi/Yo4cN+mgIq 1Zf1nyYruC2goShbs6Q3Xs5tCQ2biqWpa6KDuQ00HP7PoutWB3E7kQY36lFU xcZAbu+n4Ysq9YXatTJun6ehM95nMlgWwO0GGnxaEi2GFVLSp6Gm9evlseLV pM/APZWjp88cf9Jn4KZtbdmboVWkz8Acbdq4oXkl6TPwXORd0GjwIX0G9C1b NsV95U36DHQm3xeVeC0jfQZGqt6dShr0JH0Gym39kr4r7qTPgvrukSyHTAnp s1DcORp6/ehi0mch0LuktFntSvosmMcye+K9RKTPgu7+7n1aPyHpszAg7pfE jH1G+ix4Jj88/mjDdNJn4fWzuRdXDo6quL4e7rlSbdWxr7kt0UPIttSwnwR9 3AY9bKz8+fL+GLOK91zoMlI4ERSOnsqDIRlZL8PR83uh9bumw2r0nPsmpdks jkDPDqnIGc5GoKeyOjfuE6EGPedVt98d2qtBT4/6t1sLWzXoaSi7HSUVUeh5 ZkNfw8xoCj2jS917VuVS6Nlh3ulWVUah5x233jPZdRR6jqbbjCW/U+hZkHst zvU3Cj3Hx5/49dZQ6DlAt92cPMn3GbgeniDcm8b3Wdjxj+IHpYLvs1C53nGr elSDnu1Xi0/kVGrQM0nssLCI4v+fhaDFTo9lzyPQM4wdXlS7IwI9K9cVhvr1 q9FTu9kymRpJ9pTnud2Lsm+UE48pz0uhcfO6rWHAe/7S+DbqhQvZU56nE/zL 6+YPqHjPJhPlnDhzSMV7tkT3zi6OnFDxniyTkN/V5Yieddp9JRXmWehZ9KAn 4Fq9M3oeeDpm+vcPF/SUS4t8qycWoGeWVeTgG7UEPSfYl2Vi3VL0/FvX0fTw mAd69g3FWl+ZvNBTOJxeZXJajp6WjDxr0voV6Jm3y61gQcbn6FkhdrJ0lPui Z3Z+pm273g89T9UZA+hv/NEzR5D+17aDq9Ezxt0o+9EgRc9ZclvgunMB6Pln 7dUrM4wy9AyZ1rXs+KVA9DR2y1tv1QSh55Zvf23LvBWMnvM92vNGGuXoadNV HMkxKdAzcvCCIv+JEj1n34hvbRheg572e2u/t/Z7a7+3vKf93n6ce/seGS8y Vw== "], { {Hue[0.67, 0.6, 0.6], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 88], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 89], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 90], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 91], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 92], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 93], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 94], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 95], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 96], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 97], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 98], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 99], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 100], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 101], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 102], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 103], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 104], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 105], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 106], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 107], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 108], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 109], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 110], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 111], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 112], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 113], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 114], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 115], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 116]}, {Hue[0.9060679774997897, 0.6, 0.6], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 117], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 118], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 119], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 120], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 121], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 122], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 123], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 124], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 125], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 126], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 127], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 128], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 129], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 130], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 131], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 132], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 133], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 134], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 135], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 136], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 137], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 138], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 139], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 140], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 141], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 142], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 143], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 144], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 145]}, {Hue[0.1421359549995791, 0.6, 0.6], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 146], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 147], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 148], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 149], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 150], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 151], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 152], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 153], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 154], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 155], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 156], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 157], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 158], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 159], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 160], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 161], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 162], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 163], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 164], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 165], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 166], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 167], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 168], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 169], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 170], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 171], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 172], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 173], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 174]}, {}}], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["\"y (mm)\"", TraditionalForm], FormBox["\"I (A)\"", TraditionalForm]}, AxesOrigin->{166, 0}, ImageSize->400, PlotLabel->FormBox["\"Transport Segment 6\"", TraditionalForm], PlotRange->{{166., 194.}, {0., 59.543995856982235`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", Evaluatable->False, CellChangeTimes->{3.4342145796800823`*^9, 3.434385202004236*^9, 3.436386197656507*^9, 3.436386651213832*^9, 3.436395613556868*^9, 3.436396817504443*^9, 3.4363969126714*^9, 3.4363971792293*^9, 3.436397300430133*^9, 3.436397559830633*^9, 3.436398752391986*^9, 3.436449865788514*^9, 3.436450221673046*^9, 3.436450329516295*^9, 3.436450489105962*^9, 3.4364508144356947`*^9, 3.440421240342807*^9, 3.440433992439755*^9, 3.4405102804636908`*^9, 3.4405203924137697`*^9, 3.440785677635889*^9, 3.441114949414207*^9, 3.4411222459797983`*^9, 3.441122718256427*^9, 3.441128084695787*^9, 3.441128230884494*^9, 3.441128396434573*^9, 3.4411285427938337`*^9, 3.441128814746563*^9, 3.441128924618191*^9, 3.4411523083245153`*^9, 3.4416775983315163`*^9, 3.441678141105877*^9, 3.4416781800929193`*^9, 3.441678524261628*^9, 3.441678670446382*^9, 3.44168050234133*^9, 3.441713979601335*^9, 3.441716593576085*^9, 3.441817398492598*^9, 3.4422557314091663`*^9, 3.442255969899041*^9, 3.442257459294311*^9, 3.442261563726536*^9, 3.4423253416165752`*^9, 3.443182847241069*^9, 3.443209027264454*^9, 3.4432091230333967`*^9, 3.443273314967651*^9}, ImageSize->{400., -0.0625}], Cell[BoxData["86.46615662196959`"], "Output", Evaluatable->False, CellChangeTimes->{3.4342145796800823`*^9, 3.434385202004236*^9, 3.436386197656507*^9, 3.436386651213832*^9, 3.436395613556868*^9, 3.436396817504443*^9, 3.4363969126714*^9, 3.4363971792293*^9, 3.436397300430133*^9, 3.436397559830633*^9, 3.436398752391986*^9, 3.436449865788514*^9, 3.436450221673046*^9, 3.436450329516295*^9, 3.436450489105962*^9, 3.4364508144356947`*^9, 3.440421240342807*^9, 3.440433992439755*^9, 3.4405102804636908`*^9, 3.4405203924137697`*^9, 3.440785677635889*^9, 3.441114949414207*^9, 3.4411222459797983`*^9, 3.441122718256427*^9, 3.441128084695787*^9, 3.441128230884494*^9, 3.441128396434573*^9, 3.4411285427938337`*^9, 3.441128814746563*^9, 3.441128924618191*^9, 3.4411523083245153`*^9, 3.4416775983315163`*^9, 3.441678141105877*^9, 3.4416781800929193`*^9, 3.441678524261628*^9, 3.441678670446382*^9, 3.44168050234133*^9, 3.441713979601335*^9, 3.441716593576085*^9, 3.441817398492598*^9, 3.4422557314091663`*^9, 3.442255969899041*^9, 3.442257459294311*^9, 3.442261563726536*^9, 3.4423253416165752`*^9, 3.443182847241069*^9, 3.443209027264454*^9, 3.4432091230333967`*^9, 3.443273314981309*^9}, ImageSize->{400., -0.0625}], Cell[BoxData["192.7373858149294`"], "Output", Evaluatable->False, CellChangeTimes->{3.4342145796800823`*^9, 3.434385202004236*^9, 3.436386197656507*^9, 3.436386651213832*^9, 3.436395613556868*^9, 3.436396817504443*^9, 3.4363969126714*^9, 3.4363971792293*^9, 3.436397300430133*^9, 3.436397559830633*^9, 3.436398752391986*^9, 3.436449865788514*^9, 3.436450221673046*^9, 3.436450329516295*^9, 3.436450489105962*^9, 3.4364508144356947`*^9, 3.440421240342807*^9, 3.440433992439755*^9, 3.4405102804636908`*^9, 3.4405203924137697`*^9, 3.440785677635889*^9, 3.441114949414207*^9, 3.4411222459797983`*^9, 3.441122718256427*^9, 3.441128084695787*^9, 3.441128230884494*^9, 3.441128396434573*^9, 3.4411285427938337`*^9, 3.441128814746563*^9, 3.441128924618191*^9, 3.4411523083245153`*^9, 3.4416775983315163`*^9, 3.441678141105877*^9, 3.4416781800929193`*^9, 3.441678524261628*^9, 3.441678670446382*^9, 3.44168050234133*^9, 3.441713979601335*^9, 3.441716593576085*^9, 3.441817398492598*^9, 3.4422557314091663`*^9, 3.442255969899041*^9, 3.442257459294311*^9, 3.442261563726536*^9, 3.4423253416165752`*^9, 3.443182847241069*^9, 3.443209027264454*^9, 3.4432091230333967`*^9, 3.443273314983955*^9}, ImageSize->{400., -0.0625}], Cell[BoxData["180.62439178367873`"], "Output", Evaluatable->False, CellChangeTimes->{3.4342145796800823`*^9, 3.434385202004236*^9, 3.436386197656507*^9, 3.436386651213832*^9, 3.436395613556868*^9, 3.436396817504443*^9, 3.4363969126714*^9, 3.4363971792293*^9, 3.436397300430133*^9, 3.436397559830633*^9, 3.436398752391986*^9, 3.436449865788514*^9, 3.436450221673046*^9, 3.436450329516295*^9, 3.436450489105962*^9, 3.4364508144356947`*^9, 3.440421240342807*^9, 3.440433992439755*^9, 3.4405102804636908`*^9, 3.4405203924137697`*^9, 3.440785677635889*^9, 3.441114949414207*^9, 3.4411222459797983`*^9, 3.441122718256427*^9, 3.441128084695787*^9, 3.441128230884494*^9, 3.441128396434573*^9, 3.4411285427938337`*^9, 3.441128814746563*^9, 3.441128924618191*^9, 3.4411523083245153`*^9, 3.4416775983315163`*^9, 3.441678141105877*^9, 3.4416781800929193`*^9, 3.441678524261628*^9, 3.441678670446382*^9, 3.44168050234133*^9, 3.441713979601335*^9, 3.441716593576085*^9, 3.441817398492598*^9, 3.4422557314091663`*^9, 3.442255969899041*^9, 3.442257459294311*^9, 3.442261563726536*^9, 3.4423253416165752`*^9, 3.443182847241069*^9, 3.443209027264454*^9, 3.4432091230333967`*^9, 3.443273314986455*^9}, ImageSize->{400., -0.0625}], Cell[BoxData[ GraphicsBox[ {Hue[0.67, 0.6, 0.6], PointBox[CompressedData[" 1:eJxd1HtYVHUex/FDj/votpuMeSmVx0YlIxZ1ElpUFD6CgqLAcIdhgDPDXFBR BxihLbWj5hUVvK2Vl47mk5aWuK3rpV13HvOybuWSSm245SlxIS/suKZupuu6 T7/v02++/MPz4seHM+ec581g55wc9yOKolSGKcr/v//4FUy6Zn231X5yNMQP kB3jG/mHWYnCPVDXo+bBK59NEDZha0fz0SWpE4X7IMu7Pe/GylThJ9HR9y3X G7smC0fAFjPCFaunC5uRbB7+0dAXpgkPgbp9SGFgVKZwJAZ8/vPp8eeyhIfB F4OkjPeswlGwl5VfDFZmC0cjuOZg6p0BOcIxuD3+heUnT5BHYNipsGlHZuQK W1Df7vMM/UWe8HNIHNd6PnU3eRR2fHm+rz0lXzgW1og9HSu/JMfBds5c11lf IPw8zo/v/qi/d6HwrzFxwris3vvJ8WjLzJ20JrtIeDS61c7qWHmLPAbH9vZf tnxrsfBYhBe6DrdNsQkn4Hb4P5e/eZc8DjuqK8o+3lciPB4v/bXX+/cq7cKJ WDF7R9/VT5cKJ0HL/W6cv50MeKzRO6N3lv1oDbjhT4l+2Vkuzidg0Jsdnc/2 VMX5BBRo+6695hFWkmGPO3wm7yCdJyO8esyDdT/QeQp2F7yywBTjEOcp8H3w s2fU8cLKRFy+39j7aASdT0RVZN7YVW/TfhISvq6qfzJDfB5tEmzdv2o6NIzu NxVRTdtjrjrF+9VScWbbjD7bouj9pqHgk4R6i19YS8PxLbu77h2g88l4+tYj nXu76Hwyvu3ovPPpIHr/UzB8dZ/5V1KFtSloMOW2ub10no74J14evVuj83Qc mRp+6rH1dD4Vax3H6q9vo/OpmJNhxG/eSefTcLAxfd90sjYN0YOnrt9Dv69k wH/4c/339Pe0DNz/VURR22I6z0Tdoo9f88+h80ygIifzqwI6z0L48ra0urF0 ngXT3JLN+gA6t2LumsEf/OWOuH9YscwWud91lp6HFQ8iE29+/45wwIpNllW1 kYvo+WUjs+xv10ctoX02aoKzqnUH7bPhP7VlxZB82mfj5NGweZlFtM9B1PnX /3zGTfscxN4c6Dz9G9rn4PQnUwr9a2mfA/82S/hp+jxKLg4d+eFUxnHa5+KX r/qSuv5B+1z8d06Z7+JN2uei8GZ3W0MPuv88dCbde3cRPQ/kwTfpSGvNs/S8 8vDq0qXPPPW8cCAPxurGGfbxtM/Hd876sJ7JtM/H3fcTkiJTaJ8P/4b+6zaD 9vno+U1y/jx6H0oBIkY2JV6w0L4AJ2oXLGwbSvsCfHbfdnlPb9oXoN/kmlEb FNoXoiCxYnHwCt1/Ia4uuB6feI7uvxAP/rN08bAjdP+FiBn2UfsanZ5fEXKu DJjSvIz2RWjvG5cZX037InzbM9i/upz2RXDGhn+6gt6nUoyG0WlD2wtpX4x+ X38Rv7GK9sU4HdU1t98W2hdjgqk5rfot2tuwu2H+1agLtLehOSbhdvHjdP82 9Iw+e7ZPOt2/Dd/YGiOPU29KCS52plx64gA9vxKk7J/hvX2Z9iVoKLqu1Dwu /l8HSmA91xF2bAz9/7Zj7PaY8sQSYdhxaFXVc6V1wpod26qmL9y/kvZ2vPjF tUtXNtG+FB1nNy5q3Ur7UjQ09kizbaF9KXpb3rmzYD3tS+FeeWmkZzHtyzCz tnZMVhXty9Cv196OjZm0L0N6/YV9v4um/UMfjs9NCKN9ObSSy0vbz9L9lyN5 4KKnluh0/+WYd6HRMXAmPb9y3Hr94tjWWHp+Kh77928LI+6J529WUT39zKRd J+h9qNga1xG3dp2wqiKsa/7sZTvo/aqITukWrzQI6yp8Ib2raJF7N1QMkntX HIiRezc78KHcOxzwyr2rDvxR7l1zoIfcu+5AlE/u3YEauXfDgX/JvStOuOTe zU4ckHuHE2dWSb2rDy33rjlxuFXqXXcifZPcuxNZcu+GE2Pk3pUKnJJ7N1eg Te4dFbiSJvWuViBT7l2rQJfcu14B5Xu59wrEyb0bFaG9Ky7ckHs3u3BP7h2u 0N5VF3bKvWsuDJR7112sd1do74YrtHfFHdq72R3aO9yhvavu0N41N5xy77ob L4X07sZwuXfj4bncu+LBBrl3swf2WVLv8GDH36XeVQ/6NUi9ax58uEzqXffg vRFy7x70apB6Nzw4KPeueJEk9272wiX3Di8S5d5VL9bJvWtexMq9617MD+nd i26bpd4NL+7ekHpXKrFQ7t1ciV1y76hE9zf+VPIi9apWip340ph15gCzwaxM D7WZGcwqs8asMweYDWZlBrs+M5hVZo1ZZw4wG8zKTHZ9ZjCrzBqzzhxgNpiV KnZ9ZjCrzBqzzhxgNpiVWez6zGBWmTVmnTnAbDArs9n1mcGsMmvMOnOA2WBW 5rDrM4NZZdaYdeYAs8Gs+EJtYjYzW5jBbGVWmX3MGnMTs87czBxgbmE2mIPM SnWoTcxmZgszmK3MKrOPWWNuYtaZm5kDzC3MBnOQWakJtYnZzGxhBrOVWWX2 MWvMTcw6czNzgLmF2WAOMiu1oTYxm5ktzGC2MqvMPmaNuYlZZ25mDjC3MBvM QWbFH2oTs5nZwgxmK7PK7GPWmJuYdeZm5gBzC7PBHGRW5obaxGxmtjCD2cqs MvuYNeYmZp25mTnA3MJsMAeZlbpQm5jNzBZmMFuZVWYfs/aT/wdnERI4 "]]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["\"y (mm)\"", TraditionalForm], FormBox["\"Current(A)\"", TraditionalForm]}, AxesOrigin->{0, Automatic}, ImageSize->400, PlotLabel->FormBox["\"Total Current in Channels\"", TraditionalForm], PlotRange->{{0, 199}, {0, 180}}, PlotRangeClipping->True]], "Output", Evaluatable->False, CellChangeTimes->{3.4342145796800823`*^9, 3.434385202004236*^9, 3.436386197656507*^9, 3.436386651213832*^9, 3.436395613556868*^9, 3.436396817504443*^9, 3.4363969126714*^9, 3.4363971792293*^9, 3.436397300430133*^9, 3.436397559830633*^9, 3.436398752391986*^9, 3.436449865788514*^9, 3.436450221673046*^9, 3.436450329516295*^9, 3.436450489105962*^9, 3.4364508144356947`*^9, 3.440421240342807*^9, 3.440433992439755*^9, 3.4405102804636908`*^9, 3.4405203924137697`*^9, 3.440785677635889*^9, 3.441114949414207*^9, 3.4411222459797983`*^9, 3.441122718256427*^9, 3.441128084695787*^9, 3.441128230884494*^9, 3.441128396434573*^9, 3.4411285427938337`*^9, 3.441128814746563*^9, 3.441128924618191*^9, 3.4411523083245153`*^9, 3.4416775983315163`*^9, 3.441678141105877*^9, 3.4416781800929193`*^9, 3.441678524261628*^9, 3.441678670446382*^9, 3.44168050234133*^9, 3.441713979601335*^9, 3.441716593576085*^9, 3.441817398492598*^9, 3.4422557314091663`*^9, 3.442255969899041*^9, 3.442257459294311*^9, 3.442261563726536*^9, 3.4423253416165752`*^9, 3.443182847241069*^9, 3.443209027264454*^9, 3.4432091230333967`*^9, 3.443273314989231*^9}, ImageSize->{400., -0.0625}], Cell[BoxData[ GraphicsBox[{ {Hue[0.67, 0.6, 0.6], PointBox[CompressedData[" 1:eJxd0G1olWUcx/F/JjJJ5BQ2RUadhUyT0TnuueXaf9Ntzjk9rpruwXm5+bS2 5kmbFAu8cCSzV2dBoJF1F0YQludF9CBF14iysNp5oYFi7g4psiCOZCYTIWLX iPO93tx8rh+/+3dzF/bua9s1R0T23iXy33PmZGtfT7iDr86dqvUX+sO1w+2t +7PeedoebTGxgmnviI5Mniob7pujM16kw6c6knk1ed5LNJG3ZKD7jYXeBdp5 9tx7O7+6zzuqZ81Q/8ThfO+HdDQ1v/H82FLvZfrX/NF5xRcf8C7S05mpt06f KfReoYmK4djLsWXeK/Xr5u/d3d8VeRfrkWXjE/PGH/Z+RD84uaju6KFi77hu f/+jI0ePxbxXadXpBR+PDq3yLtEdb750/52iUu9SHbna+2DhzTLvMr2nsutc y+UK73Ktbrp++9OLVd4VeiN/cvrFP6u9K3Xssm4dXFrjXaWLizrK87fVej+q RbG+qz9eUu9qvXLmn89G7q33fkwH7KEvj21e471a09OR3bePr/Wu0W9vna9c cK3B+3G907/HfLi6ybtWq3v+MJWvrPNW/Xzxz6PTvzTP2Kp2L3zthVhpi8/r 9MhP+eWbD2zweZ1OVP92qf1Eq8/rdXrON7cGTm70eb1+Mnfq3QvDm3y+RqvW l/ze9be3XaPtVZ2T4c3ZfK2eWNH0a1XJbL5Wx66PL29YOfv+Bj3eduHtkRv+ e22DxndKz5l3Zv9PoxYs3zJ45fnsFzN5o7+fPU25trCsQw5LM3JY1iOHpQU5 LBuQw9KKHJaNyGHZhByWRK4VtrCDZTP6sIUdLG3owxZ2sDyBPmxhB8uT6MMW drA8hT5sYQdLO/qwhR0sW9CHLexg2Yo+bGEHSwf6sIUdLJ3owxZ2sHShD1vY wdKNPmxhB8s29GELO1h60Ict7GDZjj5sYQeLyXUUVtjAFg5gB4ew7MA+rLCB LRzADg5h6cU+rLCBLRzADg5h6cM+rLCBLRzADg5h2Yl9WGEDWziAHRzCsgv7 sMIGtnAAOziEZTf2YYUNbOEAdnAIyx7swwob2MIB7OAQlr3YhxU2sIUD2MEh LP3YhxU2sIUD2MEhLE9jH1bYwBYOYAeHsAxgH1bYwBYOYAeHsAxiH1bYwBYO YAeHsDyDfVhhA1s4gB0cwjKEfVhhA1s4gB0cwrIP+7DCBrZwADs4hCWZ6wgc heOwwgnYwEnYwik4gNOwgzNwCGdheTbXETgKx2GFE7CBk7CFU3AAp2EHZ+AQ zsKyP9cROArHYYUTsIGTsIVTcACnYQdn4BDOwnIg1xE4CsdhhROwgZOwhVNw AKdhB2fgEM7C8lyuI3AUjsMKJ2ADJ2ELp+AATsMOzsAhnIVlONcROArHYYUT sIGTsIVTcACnYQdn4BDOwnIw1xE4CsdhhROwgZOw/d//AkfxBbI= "]]}, {Hue[0.9060679774997897, 0.6, 0.6], PointBox[CompressedData[" 1:eJxdzXuQjXUcx/Ff2CzrcixLastxma1ls4eQa77srrWWdZBbicdlEYtTW5ph 1G/DoM102moXXTybpjEVjmZcMqZ+a0lDW4tYqskzNSwxdZguqpGm2edXs+/n n2dez/v5zqfrnGUTC5sopRbeptS/74YnPnz6gfohtz7uK/4HieaWDHu9xjpR itd98emUc9YBqUi9vDLle+sOUnmqw/6j9dZ3yJsd27236EfrVElLS8lK/M9B mZS6/frei9bdRBKupm/2rHtIZGh15bd11mmS1KnE+ehz6/skvnrbqsgn1j3l hZ+dd8bErDOk7c6yaeVbrXtLadHGZu9utA5JrO61czUrrPtIfmTtS7MXWPeV lEOrkz+cZP2AdDnbKjNJrPvJzOWLxu7OsO4vswsvZJ3vbD1AliX8NPNwc+sH RZc20c//1sf3QHnr60uRjIvWg0RPfjX78BnrwZI9YOD7gz6zHiLHNpc1WXjA eqiczCw50X6H9TBp9V3TQfVbrR+Sun5ndhWVWQ+X/ITWbZqvsRZptmFH5EKx by1Skl65K+7YPkLSthw4tDPP9hEy9/TBxI4Zto+UAdvM9ZwE20fK2dJQi+QT Ib9nycq2ud7gDb51lrT+4ciNlj1sz5brda1mLO6e6fdsmVx2Knh5yf1+z5FN s7YMq6zq6fcceeZ0VfuKvDS/j5KmGS/W7bl6l99HybTc37sUd+vq91y5dXFt yZ/lQb/nysuLyyvaNfOtRsuR/TU3lp68x++j5di+9PE3S+/2e55E10w40b1f qt/zpLZN0cHiY3f6fYwkd0qsOVLQ2e9jZHtSZtfcqk5+z5ek6nkF67p19Hu+ rLnWovP64g5+HysV+z4o/XJPst/HSmx1YfmqKwG/j5Oqv6qra3q38fs46XV8 d87SFS39XiAHexxVQ6tv93uB7Hg7PTMlpanfx8sf82a9ceXm38Mb+ngpOv/L /E333miwCstXz/U53qvuWoMlLFt+bbJ3+SuX/P/DMrXL7d/U9z/fYBMWWV95 +dnUU/79BH/HfwTWsIHVRNzDGjawmoR7WMMGVg/jHtawgdVk3MMaNrCagntY wwZWU3EPa9jAahruYQ0bWE3HPaxhA6tHcA9r2MDqUdzDGjawmoF7WMMGVo/h HtawgdVM3MMaNrCahXtYwwZWTmMHYYEdWMMubGAPVrOxDwvswBp2YQN7sJqD fVhgB9awCxvYg9Vc7MMCO7CGXdjAHqzmYR8W2IE17MIG9mBViH1YYAfWsAsb 2IPVfOzDAjuwhl3YwB6sFmAfFtiBNezCBvZgtRD7sMAOrGEXNrAHq8exDwvs wBp2YQN7sFqEfVhgB9awCxvYg9Vi7MMCO7CGXdjAHqyKsA8L7MAadmEDe7Ba gn1YYAfWsAsb2IPVUuzDAjuwhl3YwB6slmEfFtiBNezCBvZgFWnsAByEQ7DA YdiBI7CGo7ALx2AD18IeHIfVE40dgINwCBY4DDtwBNZwFHbhGGzgWtiD47B6 srEDcBAOwQKHYQeOwBqOwi4cgw1cC3twHFbFjR2Ag3AIFjgMO3AE1nAUduEY bOBa2IPjsHqqsQNwEA7BAodhB47AGo7CLhyDDVwLe3AcVk83dgAOwiFY4DDs wBFYw1HYhWOwgWthD47DanljB+AgHIIFDsMOHIH1//4HIWNTUw== "]]}, {Hue[0.1421359549995791, 0.6, 0.6], PointBox[CompressedData[" 1:eJxd1HtwVNUdB/AjSWxMeWyniKlkYPMglqebJgYRhW822ZCQhGzeD4VeQB4R CEuMUKjC0cAEH4yJ2EEB4+0IFoOE1DItHVCPVihUx0aFAQKktxXo8JLIgK1t x3Q6/M509rv/ZD75zne+s3fvOcnzlpcvGKSUWnybUv/7e+vTPz2vqnPYxIkj IP9AwdIhU65kjBHH40JX8npv/iSxD/sSv6xvnZMpHo7GQylfrk6fLE7EPcNP tse3PyBOwn68XB+38yGxHwOh3WmRLIhTsHfpkil1K3LEadhxomZL6gtBcToC p/54vr01V/xjjN8z7Eb+wjzxOHRWfL/oyLiQeAI+PB3M0iesJ+F016rQ+435 4gDey2hY++516wwcWDz39m0LZoh/go0JO7c4R60zcax+1K6B0QXiLAz8eY5T vsT6PtSPSW0eucc6G9U3Xv067u/Wk/Hri+tH7by7UHw/9p7//c+bC62n4PWB DfEnm60fwKiTWV5Sh/VUbCuPKVlz2PpBvB2+ueyH16wfwj17Pmn/NnGmeBo6 a6833Ruyno7kw9+072m2Bl74KGnw4l1iDRzOT2qp/qvNc+DNHTdknb9I8hyc e3jVF3GLxCqI3icPFuT91uZBvLK6MXx1WLHkuXhr44HXC1aKdS7O/6EuvPWK zfPw7Ss3286tKpE8Dy8feHb1Cv8syUP4x4nX/lN8U6xD2Lx1wbpdCWHJ8xE7 rrcg5oJY52Pqd7uX7ssuk3wGdItX1327WM9AUfKpI4dO2n4BRuducp942/YL 8Ld5badnPG3zQsQcu9jwcbXNC/HR8ye++sUEm8/EZxMTynMH2Xwm8lf+KPtS V6nkRXi3JTvxjRqxLkJc84t/if3Ofr9ifL0v5c5Fv7Tfrxj12xOnJefYvASt vnXehjP2+ZQg/o7RlWeaxGoW3ljopNXF2HwWfNOC+4dvss+3FDl9TWcHhtrn X4qWMb17j7fa3y+M7akdKQnfyO+NMOYXB9P21dj3IYyrv3vz8opOeb9MGH2Z ztzQZfs+l6GvcHAwXCJGGUpeyg1sXy7nRZfB2/L00Ge3yfkyZVgzfvbog5/a 81iOg+mPBYq+J0Y5rnUkNO7IlfOsyzH/xTOnnnpGzrspx4iuLX1HPwxKvwKf j32+cG+MGBVYVnCsqSVP7g9dgW3bH33n0Hq5X0wF3loz+J/ZG6dLvxKl/86o fjV2mvQrcfVXI2evW/ug9Ctx9PPxxy/dlPvLVGLS1vTNdyyZIv0qpLZ2Zk7o k/sOVbi29tL1g6XZ0q9Cc8fmhskmS/pVuLDoyNSUgL0vq3H50yvxg90M6Vfj WNfKCZt8AelXo2n1v4rc2InSr8bZhjt3hK6MlX4NNhzpuCu9N136NQi+75zN /CxV+jWoGnL3/t8c90u/BrE6Le+L0yOlX4sLk352LiFf7nvUYveTH2z6U+wP pF+LUM2ItPueipd+LXp3DUofUqWkX4dQ3Bmno/7G9Fv9OjSNfW32m89dvmVd h8obQy8mvfPVLZs66dlPfbRB1mRDVg9Tn6zJhqweoT5Zkw1ZzaY+WZMNWc2h PlmTDVn9lPpkTTZk5UTbTwbZIWuySzZkj6zm0j4ZZIesyS7ZkD2ymkf7ZJAd sia7ZEP2yGo+7ZNBdsia7JIN2SOrR2mfDLJD1mSXbMgeWS2gfTLIDlmTXbIh e2S1kPbJIDtkTXbJhuyR1SLaJ4PskDXZJRuyR1aLaZ8MskPWZJdsyB5ZNdA+ GWSHrMku2ZA9snqM9skgO2RNdsmG7JHVEtong+yQNdklG7JHVktpnwyyQ9Zk l2zIHlkto30yyA5Zk12yIXtk1Uj7ZJAdsia7ZEP2yGo57ZNBdsia7JIN2SOr SLR9ZD85QAY5THbIEbImt5FdcjfZkHvIHrmfrFZE20f2kwNkkMNkhxwha3Ib 2SV3kw25h+yR+8mqKdo+sp8cIIMcJjvkCFmT28guuZtsyD1kj9xPVo9H20f2 kwNkkMNkhxwha3Ib2SV3kw25h+yR+8mqOdo+sp8cIIMcJjvkCFmT28guuZts yD1kj9xPVk9E20f2kwNkkMNkhxwha3Ib2SV3kw25h+yR+8lqZbR9ZD85QAY5 THbIEbL+v/8LTE3JmA== "]]}, {Hue[0.37820393249936934`, 0.6, 0.6], PointBox[CompressedData[" 1:eJxd1X901XMcx/GPNcUpzBHiiNuEVeIqK0n2Jluztrq7293vH9+tXzR0I9ER 58M/HWpcjqUj5rt0mKhNxwkH+XAck3K2o0UifVc2lGrnCJV0HGefz3Hu8/vP zuN+zmvvc77f1+fzGVW/KDovRSl11xlK/fd34OnPUsmPJPMsOA0eDo+AL4ND cDo8Gr4azoDHwtfC18Fh+AZ4AjwRvhHOhCfBk+Gb4CnwzfBU+BZ4GnwrnAVL sjWsbsM6rG7HOqymYx1Wd2AdVtlYh1UO1nOkZ9zoUM2EXz8e+GGGzJv2at7E 1j8Heq1nyEHTVNm8eqjN5cr6BY2PnVl44YB1rjSvqVm6Pt/19E5JHbKxvW/+ KLt+p3Re/tqj2YtdL/PkjawrCz6beY1dz5PfTi/vHHVqjF2fKcNeGrxl7Qrb Qz1TXl+XdWPK766H+TLi9RNtc1tsD3W+nH2ormHVR66HBZKf/cvZhzttD3WB PDZ3+dH6Pa6Hs+RkaVnzez/aHupZ0vjDvvSNP7oezpaGe7duOPm97aGeLdOn 5q2o3u16GJGWPasPrt1leygReeP9qs+f3mV7qCPSOjSr5No9tocmIrp723lN va6HhaIbM3YsabE9lELZcPyii1M22R7qQun5+u5Ntz1ne2gKZdf2Yw9llLoe RuWVjkOx5jNs7yQqmR+3F60tsNZRubR0284pz1qbqBy5ZMSu9V+5nhZJ84LP wq8Osr2UInmhPvtA20RrXSR/fJWYfU6NtSmSJ1L++aX7CdfjYimPTBqfus7l i+Xoh1cuX/GByxfLt9HUy6Z3unyxvPLwpMZL97p8TA5fkDPpz59cPiafDllT 39Hn8jGpa6l/8qn9Lh+Truc7umfsdvkS+bntSN/5X7h8iSwcfKwnZbPLl8ia pdEPJ692+RL54dTkQ9uWuHyp9O4cMrejwOVLJfVb70DGKJcvlccnTJnx+RH3 /kpl1e4xL+Ruce+vTPbtLxp2yUPu/ZfJy/FWlR92779Mlm35buywT+z3MmWS 3nk4dfNQ9/3K5a8H5szJmGq/r5RLYtMXKwfnuu9fLsO6X+5Nz7D9MOUyaNW6 kcMXu/5USFZWydbBc2y/pEJeXJ5/eU+Z61+FzFo7seGWQttPUyGNJ3orv89z /a2UKwq6I6132H5LpVz0Zt6Gd6bZ/utKCcrGnb4p0+4PUymxbV5v01i3f6ok 58sHM2Ij7f6SKvkjK3X0uHPs/tNVcuzUtPX9v19v81UyJbboVFPHeJuvlken jl35adM4m6+W7EMVs0pr7f7X1ZK5cMfwlqvs+WCqxW/9e039QXd+1Mi5p/tC B9rSbb5GqrYmHhm0zN6Lukbqvjme8+5z9jwyNfLimJZ1HXnuXq2VnhPL9pVd Ze9dqZV/dsQfjobtvaxr5YORfaHik/beNrUSrdv5fPf0FJv35Lu+894af/D4 wPkY8iRxfsH2t2NHByye3FrekPu0OjBgz5Pj7zyzSRfvteepJ5nemO37234a sO/Z/2sfAwewqkt2CBbYgzXswwYOYFWP+bDAHqxhHzZwAKs5mA8L7MEa9mED B7Cai/mwwB6sYR82cACreZgPC+zBGvZhAwewmo/5sMAerGEfNnAAqwWYDwvs wRr2YQMHsLoL82GBPVjDPmzgAFZ3Yz4ssAdr2IcNHMBqIebDAnuwhn3YwAGs GjAfFtiDNezDBg5gdQ/mwwJ7sIZ92MABrO7FfFhgD9awDxs4gNV9mA8L7MEa 9mEDB7BahPmwwB6sYR82cACreLLT4BAchgWOwB4chzWcgH24HTZwFxzA/bBa nOw0OASHYYEjsAfHYQ0nYB9uhw3cBQdwP6zuT3YaHILDsMAR2IPjsIYTsA+3 wwbuggO4H1YPJDsNDsFhWOAI7MFxWMMJ2IfbYQN3wQHcD6slyU6DQ3AYFjgC e3Ac1nAC9uF22MBdcAD3w+rBZKfBITgMCxyBPTgOazgB+3A7bOAuOID7YbU0 2WlwCA7DAkdgD47D+n//C67RpGc= "]]}, {Hue[0.6142719099991583, 0.6, 0.6], PointBox[CompressedData[" 1:eJxd1n1QVXUaB/Cfb5kGdg11XcG4GDEaVlfJNFH5hmiBa1zeXwQ593JZMTWu WVZbtj97Mc1huqyzaUvpqUjSGrpKf9jk1C97U7O8rtFOJXqcdIuypDJy0mp3 h+fMzv2ef5jPPDw8l3vO9zm/tGBTccNApVTjAKX+97P/6s1R8RfieSnZQx5F HktOIXvJE8jp5AzyRPI15Mnk68g+8hTyVHIW+QbyNPKN5OnkGeSbyDPJ2eRZ 5NnkOeQcMuKtyepmqpNVLtXJai7VySqP6mQ1j+pkNZ/qZHUL1cnqVqqTVT7V yaqA6mS1gOpk9Seqk9VCqpPVbVQnq0Kqk5U/3iBrsiGrIrT//viJQ2O+6d8b KEJt5Ia3eyae7bcuQkpnINrQeb7fpgir971x8EBokPydYszZdqE5JzOh3yhG Yu6ppC1XJPVbF2PHiyuGrr9P9ogpRnr7xrLkSVdKfwkGRLaVpw+ZIP0lKBp1 5fNtl1wt/SXo6Bp//ytJsidMCYKtU2c9NTFT+kuR937biH/myl5AKfp+fHTA 7KjsBV2KnmdPRy6D7AFTitEv77w4NebugTIcPba9IdWS3KMMd9/8cd68s5J7 XYbWcOKhtDWSc1OGXX2dTTnD3FyXY0/z6qtmb5JcoxwrklpH/2uc5FiXY+WH B/rObpMcm3J8NqPds3Ckm9MKtPd9khI5IkYFBv6c9vdLWiSnugITZ3105I/+ XOmvwKEvvjxQfbmbw0p89U3xpHWHxajEkxuHFmxokRzqSqR1Tzm0vlxyZyqx vfSWD3tS3ZxV4ftPutLqzopRhZy+ysjF9yRnugqvZy4dUrJDcmWqMG50X8uv 090cVSN7w7x77j8jRjXWeXoeea9ZcqSrcXlv6P3u8ZIbU40jWaNGYqubo0XI 3rW2YohHcoNFGLsr9uaPq8R6EdLf+L6m5aDYLMKmtr3+rFFujmrw/NwvzPAi MWpQ+NyEE9evFesanO5ekfpSm9jUYGfqyWceeN3tr0X+8t/bn33X7a9FTO+u GPu221+L7ovHfSc73f5anG/44LXfNrv9i7Evv8qzqsntX4yVP8x8LHum278Y HbmDawrOu59/MQ5HW598cIe7J+qwZPygcf9Y6P7/dZieMuzYtFPy/eg65C85 l/zqcvf7q0PHnJb5vn+7e8pCYcnp35YVir0WXggnP7Bnu3s/LHTOr0j6vEfu n2XhRH5Crn+hWFso+Ntc39NNcr9tC87mtSM2tMrzYCzozNrUvR/J8+NYeDXj dt+Coe4eD+DLrcPvaJsrz5s3gLonjn265iH3eQwgoWPz8QP7cmV+AF2TNua/ MkisA2i89eM7H86T590O4J2nQ7vffUTyYALo/kvC+RvXy3vPCWDZhSnlTw12 34tBHG9Prv3rg/Ie9QaReDSz6+ufJJ8IIn1LxqZhy+S9bP3399ftzJp8XN7j OoiB+7/+YW+h5N0O4mTbpqXTjZwLTBBrG/dnT/DJvnCCmHH4zKUJtnvOqMfJ jtWTmz2yb7z12HLfLwvswdfK/Hp82zi6bd6ZSTK/Hg37t/4h4zM5B+l6lL9p dWcduUrm1yOYOG5PZ5ecq0w9Qjo97+jnyTK/Hueuu/fU8PljZH4IBWveaj44 eKTMD+GuqjHp09bIOQ8hXHhxYEZimZwDrRDWDT9mba0+J/s9hKGTn6nd/rjs fzuEinMjelJ2fyf7PiRz5HLIqiHeXjLIFlmTbbIhO2T1Z5pPBtkia7JNNmSH rJbQfDLIFlmTbbIhO2TVSPPJIFtkTbbJhuyQ1VKaTwbZImuyTTZkh6xup/lk kC2yJttkQ3bIahnNJ4NskTXZJhuyQ1bLaT4ZZIusyTbZkB2yWkHzySBbZE22 yYbskNUdNJ8MskXWZJtsyA5ZNdF8MsgWWZNtsiE7ZBWOt4fsJfvIIPvJFjlM 1uQI2SZHyYYcIzvkXrJaGW8P2Uv2kUH2ky1ymKzJEbJNjpINOUZ2yL1kdWe8 PWQv2UcG2U+2yGGyJkfINjlKNuQY2SH3ktWqeHvIXrKPDLKfbJHDZE2OkG1y lGzIMbJD7iWru+LtIXvJPjLIfrJFDpM1OUK2yVGyIcfIDrmXrO6Ot4fsJfvI IPvJFjlM1uQI2SZHyYYcIzvkXrJaHW8P2Uv2kUH2ky1ymKz/7/8AW4q9jA== "]]}, {Hue[0.8503398874989481, 0.6, 0.6], PointBox[CompressedData[" 1:eJxd1ntwTFccB/AjyVDFdE1Tj1a4Eirx6iJCvPLzijSEFSKPzePuO0prvaU1 naPTl0farVJK1Y1mSGljPUbHYzhMRhCSkHSiTOoGiaLYQVWV6nT23Onsd//J fOY3v/1m7p7d7+lpn5fuCmOMFbZi7L+/wVcgiYW+KJQvgE3gSHAXcDewAo4G 9wK/Do4F9wX3Bw8Em8GDwIPBQ8Dx4KHgBPAw8HBwIngEeCR4FHg0eAw4CUyh 5mA2FuZgNg7mYDYe5mA2AeZgNhHmYJYMczCbBHMwS4E5mL0JczBLhTmYTYY5 mE2BOZilwRzMpsIczKbBHMwsoSYwBwswmw77YA4WYJYO+2AOFmA2A/bBHCzA bCbsgzlYgFkG7IM5WIDZLNgHc7AAs0zYB3OwALMs2AdzsACzbNgHc7DIJi17 0PbDnW7Insmhquq0juqLD4KmHKqZ3tR+87RnQfMcmu3OXnXpUkTwfUQOHU1f VlLW2E6+r5W+qbkSv/dox6DJSq9deVL9x6lXguZWahe/aeCeZ13lvpU6344M H2jpLvdz6aD799Ioa0+5n0tf554/WfdljNzPpbmBjJt3q3vL/Vy69+eCXdVt jd7Jow07P75pHyd7h/KourjH6q5LZe/wPLoT3bb5/HbZOyKPMlYWPZ9daPRO PvU8vCPe9a7sHcqnCWzBhfyVsnd4PsVH7xj66XrZOyKfYhKfJ4zZavROAR3c 79/dZofsHSqgrFaX+qz7UfYOL6Cyy4lnDu2TvSMKaPIHx6uKDhm9o1L/mNqP Hp2QvaOodNda5nu/WvYOqZR8a+eIVb/K3lFV+rA49uyiEtk7XCX/406dw8pl 72gqNV+YXT52rewdoVJD1cOlsZmyd3SVSitvZ3zbyugZG4045p+xOU1asVG3 zNN1iV9Ik43ud+3yc+k5adVGWz0V5u/CZQ9xG22yT7y2e4i0ZqN753zTOuRL CxutCHv2W/0H0rqNMi0JAyK2GT1mp/tHYpZ/clhasVNdekS38TXSZKeKZQnF rzZKq3Z68HJywqPrRr6dBoVvtFe2GPl2YiX2lauuGvl2qlxXWT/popFvp5bd d1s6njLyHTSn9cOmsL1GvoM2Lkk/MuwrI99BN54Ou316kZHvoJa6Ns7KNCPf QeEN6rXYnka+g1YMTpx08q58XsJBay7GbUg5IK07qOnqjPZdlxrP30lbvGVs itl4/k5adOCXvu2Py8+LnBRTcydibztp1Um3FzocsSPl58udVFx+anXrFOPz d1L7+i3N0bHyfAgnha/ZFhU5X54f3UlJSbOOtnYY9xoXbVo+pXtTlnH+XDR1 85A5o6bL80kuKv6r2Xo5VZ5f1UU90uotZROM8+2isbtSd+4fLc+/5qKGrH7/ DB8qvx/CRf1Oq83r+8rvj+6ifWcWx2ZEGfc6N1UkRfTq10F+/xQ3HXw+ujTw 4A2Z76YO6fOerq8cIPPddD0ybvWJ9f1kvpsKT+dMzSyIk/luanCcjSzp3Ufm u+nRrr832m/Je6zupu3PW5Rru6NlvodSj/neCy+S92DFQ5sbHif/tFbek8lD CXEl2ypT5T1a9VDjk6IrWb3lPZt7yHrWuyzdLO/hmoduRLUoM5/Ie7rwUC9H 3br68WEy30P3rr70w4Bbj+XvbyFVdEmr2pNxL2ilkCbmz0n5jF2Tv8eFNOH7 z8v5zMag1UL5f8sXB2tgAdbBbHaoFTCBVTAHa2AB1sHsLcgHE1gFc7AGFmAd zOZAPpjAKpiDNbAA62A2F/LBBFbBHKyBBVgHs7chH0xgFczBGliAdTB7B/LB BFbBHKyBBVgHs3mQDyawCuZgDSzAOph5Q20CK2AzmMAWsAr2gjnYB9bAfrAA 14J1cADM5ofaBFbAZjCBLWAV7AVzsA+sgf1gAa4F6+AAmC0ItQmsgM1gAlvA KtgL5mAfWAP7wQJcC9bBATBbGGoTWAGbwQS2gFWwF8zBPrAG9oMFuBasgwNg tijUJrACNoMJbAGrYC+Yg31gDewHC3AtWAcHwGxxqE1gBWwGE9gCVsFeMAf7 wBrYDxbgWrAODoDZklCbwArYDCawBayCvWD+v/8F376yhQ== "]]}, {Hue[0.08640786499873876, 0.6, 0.6], PointBox[CompressedData[" 1:eJxd1mlsVFUYxvGDCIgbgy0G2XpZJMUaHTapbH0pO4gM+yLKnb1sdgTEGNAc EhcQMdMY3BC4QgNWY5yKRg2IJxIhYJGpUfwgyyWApMGkRQyQWHHJnImZ//0y +eXNc9879354Tu9I9cz4TUqpqjZK/febu1oqVOElhbwFDsDFcFe4B+zAfeB+ cH+4FL4Pvh9+AA7CA+FB8GB4CDwUfggeBpfDD8PD4RHwSHgUPBqugKXQGlZj MIdVJeawGos5rMZhDqvxmMNqAuawmog5rCZhDqvJmMNqCuawmoo5rB7BHFbT MIfVo5jDajrmsAoVWmANG1jNQB7WsIHVTORhDRtYzUIe1rCB1WzkYQ0bWM1B HtawgdVc5GENG1jNQx7WsIHVfORhDRtYLUAe1rCB1ULkYQ0bWD2GPKxhA6tF yMMaNrB6HHlYwwZWTyAPa9jAajHysIYNrNxCO7DAriulN14503D3pdw5QbuS eHXIwabS5pw9V07XhzPxvddzNq6MPnjg6JFY29x9fFfKt/+5uaLsdnvfsOwf c77orbuKcnbCMuP9FR02PGvPDRIWvXvTnO4DeuXshqUovWNuv3Z9ctZhKS/u tau2/b05e2GpPtFz7cdF9lxgwnJ866CRb5eW2f1hmXq49s4fKvPngIg0XHmx zaiMPQc4ESnZeSF9m9jel4i8VvdB66Cs7X03IqtP7o6XuLbndUTWb/hx3Phm 2/NeRCasuaOh93O2101Eyq7tra7oaHvcj4i/eU3fUa/nezwq0aKtXX7uZnvb icrSY0euNu+wvS1RqS/fE5jW2fayG5XtV0/0SDda66i0vdZ7S/sa28teVPqP /L7xnlCl3R+V4+cuHlnYyfauH5ULl2YOeOl4vodj8u6mDlM21tjedWLS/9TA hg1zbc9KTHbNnnisqcT2qhuTGyd+6r242VrHRK7OT7cesr3qxWRf2ZJ2s+ps j5qYdOtyteavYbY3/ZiM2Dj+mbW/5Xs0Li8Fml44tNn2phOXTi2xw6d62p6U uDQOLu4s263duIyoXz+vXcD2pI5LUX326yurrL249D1weVHNUWsTly21+0OD i21v+nHZNvacuXVGvkcTMmNnnzMPrrd2EtJ4akXJh7XWkpCvSs5uW7fP2k3I 9ZV/73nvW2udkE3rP5nX9aC1l5DW1tPBs3utTUIuxr/78sab+f0J+XzygsCq 6vz+pCz/ffjLI4bn9yelrvLmRVOu2+eXpGQzW994vs7aTUqkZ9tu70zL//+k DOvR8eTQ8/b9eEmZlPyj+6fLrc2/9xtdMyH4q32/flJmzrpwY9n0/DmlSnak uq/7Yrf9Hk6VfDRhXtEvTfb7SZV89s3l0KUu1m6VzdlLwx5sYB9WSwrtwAK7 sIY92MA+rJZiPyywC2vYgw3sw2oZ9sMCu7CGPdjAPqyWYz8ssAtr2IMN7MNq BfbDAruwhj3YwD6snsR+WGAX1rAHG9iHVTX2wwK7sIY92MA+rFKFDsAOHIQF DsEunII1nIY9OAMbOAv7cAusnip0AHbgICxwCHbhFKzhNOzBGdjAWdiHW2C1 stAB2IGDsMAh2IVTsIbTsAdnYANnYR9ugdWqQgdgBw7CAodgF07BGk7DHpyB DZyFfbgFVqsLHYAdOAgLHIJdOAVrOA17cAY2cBb24RZYPV3oAOzAQVjgEOzC KVjDadiDM7CBs7APt8BqTaEDsAMHYYFDsAunYP2//wHJK0wJ "]]}, {Hue[0.3224758424985268, 0.6, 0.6], PointBox[CompressedData[" 1:eJxd1l2IVHUYx/HHCsr0YgSThKyj9kbEMuZqrZU+WfZuO25arlv2b9uZM/ai 0/ZiVshDsVDbzUAFpRf9g3CXIppeLsKF+NeFlNE0FnSxUf0jJDYiBrQugmUj zpE633Nz+PDjd56BufktH94zUD1NROrzRP59Z093gxQfLfIsuAQvhs+Fz4MT eAV8IXwxfCl8GXw53AOX4VXwFfBquBdeA6+Fr4SvgvvgdfDV8DXwtfB6eAOs RRss1yGHZSNyWK5HDssNyGHZhByWG5HDchNyWG5GDsstyGG5FTkstyGH5Xbk sGxGDssdyGHpRw5LpWiFDQ6wbEEfNjjAMoA+bHCA5U70YYMDLFvRhw0OsGxD HzY4wHIX+rDBAZa70YcNDrBsRx82OMAyiD5scIBlB/qwwQGWIfRhgwMs96AP GxxguRd92OAAy070YYMDLPehDxscYHFFJ7DCDjbYwwGOsNyP+7DCDjbYwwGO sAzjPqywgw32cIAjLA/gPqywgw32cIAjLCO4DyvsYIM9HEb09cFVh6aW/Jrt yjiiR9qbF7mzT+Q7s6pfbPl54cH+2cxJVdPa4Pj09BnZd7SqUwNPvTn5w4LM rqoHvv6p94NPFmW2qj4f/27/+fk5mX1V+1Yf6Hl/dmnmUNVnZhaf3lM5P3Os 6mz6+1vLhpbnv7Om3w0dO/LtyyszJzX95cS2mT/aF+X3a1o6OfpOe36+M11N j+8dmxnemO9Mq+nY7gteWro335m+ppPL5h8/dijfmaGmz47vm9tVz3dmrOlr UxO91adP7cxU98voNztfzHdmkurWFRNrXng135ma6oK+ubXr38h3pkv1q49a 7505ke9MS3XTvOlLXnk335k+1Ynv+44e/jDfmSHVHc99+uW+w/nOjKkuWdkZ ++uzUzuzrnNDk8397XxnJnXt/+3tdeM/5jtT67rw4+1Hw8l8Z7q6/v/vFYM9 HOAIy66iE1hhBxvs4QBHWB7EfVhhBxvs4QBHWB7CfVhhBxvs4QBHWB7GfVhh Bxvs4QBHWB7BfVhhBxvs4QBHWHbjPqywgw32cIAjLHtwH1bYwQZ7OMARlkbR JTiBy7DCFdjBDdjgJuzhFhzgDhzhLiyPFl2CE7gMK1yBHdyADW7CHm7BAe7A Ee7CMlp0CU7gMqxwBXZwAza4CXu4BQe4A0e4C8tjRZfgBC7DCldgBzdgg5uw h1twgDtwhLuwPF50CU7gMqxwBXZwAza4CXu4BQe4A0e4C8sTRZfgBC7DCldg Bzdgg5uwh1twgDtwhLuwPFl0CU7gMqxwBXZwA7b//A+jdNfa "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["\"y (mm)\"", TraditionalForm], FormBox["\"Current(A)\"", TraditionalForm]}, AxesOrigin->{0, Automatic}, ImageSize->500, PlotRange->{{0, 199}, {0, 100}}, PlotRangeClipping->True]], "Output", Evaluatable->False, CellChangeTimes->{3.4342145796800823`*^9, 3.434385202004236*^9, 3.436386197656507*^9, 3.436386651213832*^9, 3.436395613556868*^9, 3.436396817504443*^9, 3.4363969126714*^9, 3.4363971792293*^9, 3.436397300430133*^9, 3.436397559830633*^9, 3.436398752391986*^9, 3.436449865788514*^9, 3.436450221673046*^9, 3.436450329516295*^9, 3.436450489105962*^9, 3.4364508144356947`*^9, 3.440421240342807*^9, 3.440433992439755*^9, 3.4405102804636908`*^9, 3.4405203924137697`*^9, 3.440785677635889*^9, 3.441114949414207*^9, 3.4411222459797983`*^9, 3.441122718256427*^9, 3.441128084695787*^9, 3.441128230884494*^9, 3.441128396434573*^9, 3.4411285427938337`*^9, 3.441128814746563*^9, 3.441128924618191*^9, 3.4411523083245153`*^9, 3.4416775983315163`*^9, 3.441678141105877*^9, 3.4416781800929193`*^9, 3.441678524261628*^9, 3.441678670446382*^9, 3.44168050234133*^9, 3.441713979601335*^9, 3.441716593576085*^9, 3.441817398492598*^9, 3.4422557314091663`*^9, 3.442255969899041*^9, 3.442257459294311*^9, 3.442261563726536*^9, 3.4423253416165752`*^9, 3.443182847241069*^9, 3.443209027264454*^9, 3.4432091230333967`*^9, 3.4432733149964933`*^9}, ImageSize->{400., -0.0625}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Transport Segment 7", "Section", CellChangeTimes->{{3.427557417391244*^9, 3.4275574212738867`*^9}, { 3.4411221096197567`*^9, 3.441122111491469*^9}, {3.441122508437797*^9, 3.441122511640093*^9}, {3.4411277226665297`*^9, 3.441127722814207*^9}, { 3.441128631204597*^9, 3.44112863229961*^9}, {3.441677590429941*^9, 3.4416775930292463`*^9}, {3.44167783010979*^9, 3.441677830333523*^9}, { 3.441678247795299*^9, 3.441678248331245*^9}, {3.441678597890871*^9, 3.4416785986413794`*^9}}], Cell["Segment 7 - Coils 6, 7, 8", "Text", CellChangeTimes->{{3.4275574238332644`*^9, 3.427557519898347*^9}, { 3.441122709553803*^9, 3.441122723090308*^9}, {3.4411277251617403`*^9, 3.441127734985326*^9}, {3.441128634874387*^9, 3.4411286420184526`*^9}, { 3.441677837518024*^9, 3.441677846179837*^9}, {3.441678251476316*^9, 3.441678257826837*^9}, {3.441678600624308*^9, 3.4416786071033688`*^9}}], Cell[CellGroupData[{ Cell["Coil Definition", "Subsection", CellChangeTimes->{{3.424789285638125*^9, 3.42478928884125*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"Push", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "ampsPush_"}], "]"}], ":=", " ", RowBox[{"CustomPush", "[", RowBox[{ "x", ",", "y", ",", "z", ",", "distP", ",", "ampsPush", ",", "radP", ",", "PwireWidth", ",", "PwireLength"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coil1", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "amps1_"}], "]"}], ":=", RowBox[{"Coil", "[", RowBox[{"x", ",", RowBox[{"y", "-", "ydispl1"}], ",", "z", ",", "dist1", ",", "amps1", ",", "rad1", ",", "MOTwireWidth", ",", "MOTwireLength", ",", "numRad1", ",", "numAx1"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coil2", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "amps2_"}], "]"}], ":=", RowBox[{"Coil", "[", RowBox[{"x", ",", RowBox[{"y", "-", "ydispl2"}], ",", "z", ",", "dist2", ",", "amps2", ",", "rad2", ",", "HwireWidth", ",", "HwireLength", ",", "numRad2", ",", "numAx2"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coil3", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "amps3_"}], "]"}], ":=", RowBox[{"Coil", "[", RowBox[{"x", ",", RowBox[{"y", "-", "ydispl3"}], ",", "z", ",", "dist3", ",", "amps3", ",", "rad3", ",", "HwireWidth", ",", "HwireLength", ",", "numRad3", ",", "numAx3"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coil4", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "amps4_"}], "]"}], ":=", RowBox[{"Coil", "[", RowBox[{"x", ",", RowBox[{"y", "-", "ydispl4"}], ",", "z", ",", "dist4", ",", "amps4", ",", "rad4", ",", "HwireWidth", ",", "HwireLength", ",", "numRad4", ",", "numAx4"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coil5", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "amps5_"}], "]"}], ":=", RowBox[{"Coil", "[", RowBox[{"x", ",", RowBox[{"y", "-", "ydispl5"}], ",", "z", ",", "dist5", ",", "amps5", ",", "rad5", ",", "HwireWidth", ",", "HwireLength", ",", "numRad5", ",", "numAx5"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coil6", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "amps6_"}], "]"}], ":=", RowBox[{"Coil", "[", RowBox[{"x", ",", RowBox[{"y", "-", "ydispl6"}], ",", "z", ",", "dist6", ",", "amps6", ",", "rad6", ",", "HwireWidth", ",", "HwireLength", ",", "numRad6", ",", "numAx6"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coil7", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "amps7_"}], "]"}], ":=", RowBox[{"Coil", "[", RowBox[{"x", ",", RowBox[{"y", "-", "ydispl7"}], ",", "z", ",", "dist7", ",", "amps7", ",", "rad7", ",", "HwireWidth", ",", "HwireLength", ",", "numRad7", ",", "numAx7"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coil8", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "amps8_"}], "]"}], ":=", RowBox[{"Coil", "[", RowBox[{"x", ",", RowBox[{"y", "-", "ydispl8"}], ",", "z", ",", "dist8", ",", "amps8", ",", "rad8", ",", "HwireWidth", ",", "HwireLength", ",", "numRad8", ",", "numAx8"}], "]"}]}]}], "Input", CellChangeTimes->{{3.4108691929057975`*^9, 3.4108692511714225`*^9}, { 3.4108696083120475`*^9, 3.4108696370776725`*^9}, {3.4108878639057975`*^9, 3.4108878917339225`*^9}, 3.4108880255620475`*^9, {3.4108880572026725`*^9, 3.4108880934839225`*^9}, {3.4108881324057975`*^9, 3.4108881358276725`*^9}, {3.4114971485377502`*^9, 3.4114971533502502`*^9}, {3.4115798687252502`*^9, 3.4115798990846252`*^9}, {3.4115801645377502`*^9, 3.4115801658346252`*^9}, {3.4115850364908752`*^9, 3.4115850513502502`*^9}, {3.4116541353815002`*^9, 3.4116541668815002`*^9}, {3.4116543291315002`*^9, 3.4116543294752502`*^9}, {3.413042775259*^9, 3.41304278797775*^9}, { 3.4130428408215*^9, 3.413042899509*^9}, {3.413042982962125*^9, 3.41304298922775*^9}, {3.41304393541525*^9, 3.4130439359465*^9}, { 3.4130475845715*^9, 3.41304758510275*^9}, {3.4147689327342415`*^9, 3.4147689545786905`*^9}, {3.4157043510358753`*^9, 3.4157043545515003`*^9}, {3.4240142755295*^9, 3.424014280982625*^9}, { 3.424708044607378*^9, 3.424708045091753*^9}, {3.424708516388628*^9, 3.424708547888628*^9}, {3.424789355935*^9, 3.424789362294375*^9}, { 3.424793540700625*^9, 3.42479354259125*^9}, {3.42479373102875*^9, 3.424793804356875*^9}, {3.42479385740375*^9, 3.424793870231875*^9}, { 3.424793962731875*^9, 3.424794012106875*^9}, {3.424794111200625*^9, 3.42479411184125*^9}, {3.42479467331*^9, 3.424794687200625*^9}, { 3.42504874452875*^9, 3.425048750606875*^9}, 3.42504893756*^9, 3.425049003856875*^9, {3.425052076763125*^9, 3.425052080075625*^9}, { 3.42505228456*^9, 3.425052285138125*^9}, {3.425053193700625*^9, 3.42505319734125*^9}, {3.425140953629081*^9, 3.425140955394706*^9}, { 3.425143919457206*^9, 3.425143919832206*^9}, {3.42530989195675*^9, 3.425309893034875*^9}, {3.4253099389255*^9, 3.425309941488*^9}, { 3.42531268476925*^9, 3.425312693941125*^9}, {3.4275484377987127`*^9, 3.427548439150815*^9}, {3.427549179203624*^9, 3.427549180977133*^9}, { 3.427557753123818*^9, 3.427557807078123*^9}, {3.431959729046167*^9, 3.431959734430778*^9}, {3.431959767318501*^9, 3.431959777847219*^9}, { 3.432522576195047*^9, 3.432522576768517*^9}, {3.432522640640594*^9, 3.432522641159569*^9}, {3.43252273720122*^9, 3.4325227374044447`*^9}, { 3.4325227774233923`*^9, 3.4325227782576227`*^9}, {3.432522979857479*^9, 3.432522986718114*^9}, {3.4342027674829407`*^9, 3.434202767818779*^9}, { 3.4342033583019247`*^9, 3.434203358566132*^9}, {3.4342035182972803`*^9, 3.434203518695207*^9}, {3.434203693374236*^9, 3.4342036937433043`*^9}, { 3.4342038767456837`*^9, 3.434203880149901*^9}, {3.4342043595530024`*^9, 3.434204360389633*^9}, {3.434204574074339*^9, 3.434204576586729*^9}, { 3.434204726385235*^9, 3.434204727655446*^9}, {3.4342049825787983`*^9, 3.4342049830998783`*^9}, {3.4363860850199957`*^9, 3.4363861459997807`*^9}, {3.4411286966296463`*^9, 3.441128719136548*^9}, { 3.441677862797627*^9, 3.441677883779232*^9}, {3.441678264731885*^9, 3.4416782900509577`*^9}, {3.441678614250285*^9, 3.441678647835944*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Calculation", "Subsection", CellChangeTimes->{{3.427557803876124*^9, 3.4275578048430853`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Clear", " ", "[", RowBox[{ "ypos", ",", "buf", ",", "n", ",", "y0", ",", "yf", ",", "scale", ",", "MagX", ",", "MagY", ",", "MagZ", ",", "curr1", ",", "curr2", ",", "currP", ",", "curr3"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amps6", "=", "curr6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amps7", "=", "curr7"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"amps8", "=", "curr8"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Unit", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], ":=", RowBox[{ RowBox[{"Coil6", "[", RowBox[{"x", ",", "y", ",", "z", ",", "amps6"}], "]"}], "+", RowBox[{"Coil7", "[", RowBox[{"x", ",", "y", ",", "z", ",", "amps7"}], "]"}], "+", RowBox[{"Coil8", "[", RowBox[{"x", ",", "y", ",", "z", ",", "amps8"}], "]"}]}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"xComp", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{ RowBox[{"Unit", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"yComp", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{ RowBox[{"Unit", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"zComp", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{ RowBox[{"Unit", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "[", RowBox[{"[", "3", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GxComp", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{ SubscriptBox["\[PartialD]", "x"], RowBox[{"xComp", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GyComp", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{ SubscriptBox["\[PartialD]", "y"], RowBox[{"yComp", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"GzComp", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{ SubscriptBox["\[PartialD]", "z"], RowBox[{"zComp", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}]}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", " ", "=", " ", "35"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y0", "=", " ", RowBox[{"195", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"yf", " ", "=", " ", RowBox[{"227", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"scale", " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"yf", "-", "y0"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"buf", " ", "=", " ", RowBox[{"UnitVector", "[", RowBox[{"n", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"asp", " ", "=", " ", RowBox[{"UnitVector", "[", RowBox[{"n", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "0"}], ",", RowBox[{"i", "<", "n"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"ypos", " ", "=", " ", RowBox[{"y0", "+", RowBox[{"scale", "*", "i"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"sol", " ", "=", " ", RowBox[{"Solve", " ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"yComp", "[", RowBox[{"zero", ",", "ypos", ",", "zero"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"GzComp", "[", RowBox[{"zero", ",", "ypos", ",", "zero"}], "]"}], "\[Equal]", "gradient"}], ",", RowBox[{ FractionBox[ RowBox[{"GxComp", "[", RowBox[{"zero", ",", "ypos", ",", "zero"}], "]"}], RowBox[{"GyComp", "[", RowBox[{"zero", ",", "ypos", ",", "zero"}], "]"}]], "\[Equal]", RowBox[{"Aspect", "[", "ypos", "]"}]}]}], "}"}], ",", " ", RowBox[{"{", " ", RowBox[{"curr6", ",", "curr7", ",", "curr8"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"buf", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], " ", "=", " ", RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"asp", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "=", RowBox[{"Aspect", "[", "ypos", "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Curr6", " ", "=", " ", RowBox[{"curr6", "/.", "buf"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Curr7", " ", "=", " ", RowBox[{"curr7", "/.", "buf"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Curr8", "=", " ", RowBox[{"curr8", "/.", "buf"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", " ", "=", " ", "0"}], ",", " ", RowBox[{"i", "<", "n"}], ",", RowBox[{"i", "++"}], ",", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"I6", "[", RowBox[{"[", RowBox[{"i", "+", RowBox[{"y0", "/", "mm"}]}], "]"}], "]"}], "=", RowBox[{"Curr6", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"I7", "[", RowBox[{"[", RowBox[{"i", "+", RowBox[{"y0", "/", "mm"}]}], "]"}], "]"}], "=", RowBox[{"Curr7", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"I8", "[", RowBox[{"[", RowBox[{"i", "+", RowBox[{"y0", "/", "mm"}]}], "]"}], "]"}], "=", RowBox[{"Curr8", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"Curr6", ",", "Curr7", ",", "Curr8"}], "}"}], ",", RowBox[{"DataRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"y0", "*", "1000"}], ",", RowBox[{ RowBox[{"(", RowBox[{"y0", "+", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}], "*", "scale"}]}], ")"}], "*", "1000"}]}], "}"}]}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"y0", "*", "1000"}], ",", "0"}], "}"}]}], ",", RowBox[{"PlotMarkers", "\[Rule]", RowBox[{"{", RowBox[{"Automatic", ",", "Small"}], "}"}]}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotLabel", "\[Rule]", "\"\\""}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"TotCurrent", "=", RowBox[{ "IP", "+", "I1", "+", "I2", "+", "I3", "+", "I4", "+", "I5", "+", "I6", "+", "I7", "+", "I8"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Max", "[", RowBox[{"I6", "+", "I7", "+", "I8"}], "]"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", "Pstage7", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Pstage7", "=", RowBox[{ RowBox[{ SuperscriptBox["Curr6", "2"], "*", "R6"}], "+", RowBox[{ SuperscriptBox["Curr7", "2"], "*", "R7"}], "+", RowBox[{ SuperscriptBox["Curr8", "2"], "*", "R8"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Max", "[", "Pstage7", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Mean", "[", "Pstage7", "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ListPlot", "[", RowBox[{"TotCurrent", ",", RowBox[{"PlotLabel", "\[Rule]", "\"\\""}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}], ",", RowBox[{"PlotRange", "->", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"yf", "/", "mm"}], "+", "5"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "180"}], "}"}]}], "}"}]}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ "IP", ",", "I1", ",", "I2", ",", "I3", ",", "I4", ",", "I5", ",", "I6", ",", "I7", ",", "I8"}], "}"}], ",", " ", RowBox[{"AxesLabel", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"yf", "/", "mm"}], "+", "5"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "100"}], "}"}]}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}]}], "Input", CellChangeTimes->{{3.424794846638125*^9, 3.424795033419375*^9}, { 3.4247952409975*^9, 3.4247952994975*^9}, {3.424795401575625*^9, 3.424795403138125*^9}, {3.424795508919375*^9, 3.42479551006*^9}, { 3.42479560059125*^9, 3.42479568802875*^9}, {3.424796194185*^9, 3.42479622109125*^9}, {3.424796345856875*^9, 3.4247963796225*^9}, { 3.424799205356875*^9, 3.4247992094975*^9}, {3.424799415481875*^9, 3.42479941565375*^9}, {3.424799600919375*^9, 3.424799612825625*^9}, { 3.4247996814975*^9, 3.424799686356875*^9}, {3.424799847013125*^9, 3.42479985396625*^9}, {3.425044396138125*^9, 3.42504440177875*^9}, 3.4250446944975*^9, {3.42504483252875*^9, 3.42504489046625*^9}, { 3.42504494815375*^9, 3.42504499659125*^9}, {3.425052742794375*^9, 3.425052768794375*^9}, 3.42505291606*^9, {3.425146476738456*^9, 3.425146492550956*^9}, {3.425146874222831*^9, 3.425146874941581*^9}, { 3.425306681503625*^9, 3.425306686816125*^9}, {3.425311146534875*^9, 3.4253112353005*^9}, {3.425311319238*^9, 3.425311322847375*^9}, { 3.42531273214425*^9, 3.42531275320675*^9}, {3.425313256472375*^9, 3.425313257488*^9}, {3.425313288566125*^9, 3.425313289222375*^9}, 3.42565147825*^9, {3.425658336640625*^9, 3.425658352046875*^9}, { 3.4256584149375*^9, 3.425658423671875*^9}, {3.42565847684375*^9, 3.425658480296875*^9}, {3.42565853471875*^9, 3.42565853840625*^9}, 3.427652733232007*^9, {3.4276530609284573`*^9, 3.427653061947754*^9}, { 3.432523452809812*^9, 3.432523501924593*^9}, {3.432563448739462*^9, 3.432563449857027*^9}, {3.433864207548109*^9, 3.433864208716193*^9}, { 3.4404342365420523`*^9, 3.44043424244471*^9}, {3.441122176941136*^9, 3.4411221973153133`*^9}, {3.441122540205755*^9, 3.441122625789896*^9}, { 3.4411226578767242`*^9, 3.4411226860159073`*^9}, {3.441127677620097*^9, 3.4411276834324827`*^9}, {3.441127739341113*^9, 3.441127808168995*^9}, { 3.441127981960608*^9, 3.441128045797517*^9}, {3.441128186416677*^9, 3.441128213359702*^9}, {3.441128358141787*^9, 3.441128359546916*^9}, { 3.4411285259023247`*^9, 3.44112852610019*^9}, {3.441128608285178*^9, 3.441128609994923*^9}, {3.441128679152594*^9, 3.4411286910788813`*^9}, { 3.4411287233249607`*^9, 3.4411287862321253`*^9}, {3.441676999938737*^9, 3.441677000191649*^9}, {3.441677898815668*^9, 3.4416779796748753`*^9}, { 3.441678011840901*^9, 3.441678070293551*^9}, {3.441678164201255*^9, 3.44167816655227*^9}, {3.441678301408411*^9, 3.44167850696513*^9}, { 3.4416787034214373`*^9, 3.441678828144466*^9}, {3.441678859028256*^9, 3.441678859635058*^9}, {3.441679000768869*^9, 3.4416790151673183`*^9}, { 3.441679298605201*^9, 3.441679299087459*^9}, {3.443209024964946*^9, 3.443209026212413*^9}, {3.443209163916409*^9, 3.4432092053332453`*^9}}], Cell[BoxData[ GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJzt1f9T0wUcx3GCGkQXBHLDoXwHE+WbAiNgY+8PMJDKU7FEmAoBs3025oIT FKl5ECgaqNBdGSdCWXCSIOi4Ir8gopMxRFwqIGlEAYp8BycH6Nriszd/Qr/s dfe5z+/Pe3w+b+ckSQzf2MjISKV9dO//ligATkm47ylJFDjoJhXApWSfDkVV JLB0OyWAC8681LxBLsTr9psAJHPlH3qu4cJ+3boFQB+7pRCkRcC332inFoD4 oln2ikvh0CDTzoaE264Mt1haOPyu0m49CfU9W9hxMWEwOaHdZhKY3TXM/NME WOomIWF6easqcRjAS7ciEsqyLZ2KAwA+0O1nEpSynaLzmlAgdVOQEFfvP+RY woaCw9oNkdDW7xm03YUFlT9p94YQyj4a2pNSFww3WrRzFUJpujIjjRUE/X9p Rwih/E1aiFweCIs9hGDcOjx1eROT6iEESVa31ZUuf6qHEOjBmdXMBD+qhxBY 26RvVwyuo3oIYeHu8fOZe3ypHkJ4bfZdsyNjXlQPEaiKennbTNZSPURQFvLO xtGVq6keIvjazPtsOtud6iEC9T+2jCefulA9RPCxuXubP+FI9RBB44hjsLiX QfUQwWTnj+ZudTZUDxFsslhou19nSfVIBQtR8D7LcRrVIxX62T6FM3OvOIs9 UuEM8xFfqZjmLPZIBRPPsp2VR59x9F7qZum2xrVs9PLyoVfTzfxQ9OKcc6cq meCglx38FOv0QQ56ad0a/lkBC9DLjt0n7JylgF6sh0cZ9EZAL80Jr+91HwP0 IpmOPqK0X/LSPOdcGLOBQC+FsjDHP8UEeuk+aHf/wDECvVjHHDe1rybQS4XQ bvOFawR6iZoal7uoCPTS2cNjxD4m0MvIl3lZrAECvfianEy6NUigl88nstY8 7yfQizpSyWvvIdBLTTyti6ck0Etve/OVX38h0IvUhOc9r/0e9F7qcqofBOUQ 6KXluigxbxeBXjSDbnV/MAn08uCt+Ufe5gR68U6yaYjqBvRSlhGfoKgA9FKr uHbOPhnQS5/62HK+A6CXe9K0/Os/cNDLTM3t0fqZUNB7mesTDw14hYLeS1Ft 61e0DWzQe3l1yL/l6epxjt7L4YxGLmk8y9F7qRWPOeVlGqOXrppiK798c/TS tEz1CaPXCr1kq0xG5nro6OVkXnS0zGklenm5ylqqandCL9M3Or/vKHVFL8sC bVuNM1ahl73n7pZfjfVAL99pzjwlwRO9+MCdWVcvH/Si8gsgOBbrlv4v9GxN 5aH16IVp+qSYq/FDL7TeguGKfQHoJbfgXgR3fOn/YrR7v/wm/z30ctDji6mm h0HoZcta6XzfxhD08kzd7jFylYVexDL/i83a/novuy6nFPJLOejFgS+fzs0F 9DLTOFFuFLjkpUpmpnk+vOSlJ9XqRdvpMPQyMBmlNt0ajl4q8zN948wi0Ivt xPzZkqYI9KLqCSptyOKilxV/k49fBEail/dDaw90zEeiF1BvP7Egj0Ivhntk uEeGe2S4R4Z7ZLhH/+c9+hckPs0z "], { {Hue[0.67, 0.6, 0.6], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 106], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 107], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 108], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 109], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 110], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 111], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 112], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 113], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 114], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 115], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 116], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 117], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 118], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 119], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 120], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 121], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 122], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 123], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 124], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 125], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 126], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 127], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 128], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 129], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 130], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 131], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 132], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 133], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 134], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 135], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 136], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 137], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 138], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 139], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 140]}, {Hue[0.9060679774997897, 0.6, 0.6], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 141], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 142], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 143], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 144], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 145], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 146], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 147], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 148], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 149], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 150], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 151], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 152], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 153], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 154], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 155], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 156], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 157], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 158], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 159], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 160], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 161], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 162], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 163], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 164], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 165], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 166], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 167], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 168], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 169], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 170], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 171], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 172], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 173], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 174], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 175]}, {Hue[0.1421359549995791, 0.6, 0.6], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 176], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 177], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 178], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 179], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 180], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 181], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 182], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 183], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 184], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 185], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 186], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 187], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 188], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 189], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 190], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 191], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 192], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 193], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 194], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 195], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 196], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 197], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 198], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 199], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 200], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 201], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 202], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 203], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 204], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 205], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 206], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 207], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 208], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 209], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 210]}, {}}], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["\"y (mm)\"", TraditionalForm], FormBox["\"I (A)\"", TraditionalForm]}, AxesOrigin->{195, 0}, ImageSize->400, PlotLabel->FormBox["\"Transport Segment 7\"", TraditionalForm], PlotRange->{{195., 227.}, {0., 47.554582637251315`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", Evaluatable->False, CellChangeTimes->{3.4342145796800823`*^9, 3.434385202004236*^9, 3.436386197656507*^9, 3.436386651213832*^9, 3.436395613556868*^9, 3.436396817504443*^9, 3.4363969126714*^9, 3.4363971792293*^9, 3.436397300430133*^9, 3.436397559830633*^9, 3.436398752391986*^9, 3.436449865788514*^9, 3.436450221673046*^9, 3.436450329516295*^9, 3.436450489105962*^9, 3.4364508144356947`*^9, 3.440421240342807*^9, 3.440433992439755*^9, 3.4405102804636908`*^9, 3.4405203924137697`*^9, 3.440785677635889*^9, 3.441114949414207*^9, 3.4411222459797983`*^9, 3.441122718256427*^9, 3.441128084695787*^9, 3.441128230884494*^9, 3.441128396434573*^9, 3.4411285427938337`*^9, 3.441128814746563*^9, 3.441128924618191*^9, 3.4411523083245153`*^9, 3.4416775983315163`*^9, 3.441678141105877*^9, 3.4416781800929193`*^9, 3.441678524261628*^9, 3.441678962361809*^9, 3.441679036942152*^9, 3.441679320519503*^9, 3.4416805124714537`*^9, 3.441713989262731*^9, 3.441716603343972*^9, 3.441817408287792*^9, 3.4422557410499067`*^9, 3.4422559798760853`*^9, 3.442257469159813*^9, 3.442261573656419*^9, 3.4423253513028097`*^9, 3.443182857271104*^9, 3.4432092231297703`*^9, 3.443273324586134*^9}, ImageSize->{400., -0.0625}], Cell[BoxData["81.04908734172103`"], "Output", Evaluatable->False, CellChangeTimes->{3.4342145796800823`*^9, 3.434385202004236*^9, 3.436386197656507*^9, 3.436386651213832*^9, 3.436395613556868*^9, 3.436396817504443*^9, 3.4363969126714*^9, 3.4363971792293*^9, 3.436397300430133*^9, 3.436397559830633*^9, 3.436398752391986*^9, 3.436449865788514*^9, 3.436450221673046*^9, 3.436450329516295*^9, 3.436450489105962*^9, 3.4364508144356947`*^9, 3.440421240342807*^9, 3.440433992439755*^9, 3.4405102804636908`*^9, 3.4405203924137697`*^9, 3.440785677635889*^9, 3.441114949414207*^9, 3.4411222459797983`*^9, 3.441122718256427*^9, 3.441128084695787*^9, 3.441128230884494*^9, 3.441128396434573*^9, 3.4411285427938337`*^9, 3.441128814746563*^9, 3.441128924618191*^9, 3.4411523083245153`*^9, 3.4416775983315163`*^9, 3.441678141105877*^9, 3.4416781800929193`*^9, 3.441678524261628*^9, 3.441678962361809*^9, 3.441679036942152*^9, 3.441679320519503*^9, 3.4416805124714537`*^9, 3.441713989262731*^9, 3.441716603343972*^9, 3.441817408287792*^9, 3.4422557410499067`*^9, 3.4422559798760853`*^9, 3.442257469159813*^9, 3.442261573656419*^9, 3.4423253513028097`*^9, 3.443182857271104*^9, 3.4432092231297703`*^9, 3.443273324600566*^9}, ImageSize->{400., -0.0625}], Cell[BoxData["153.84911373048658`"], "Output", Evaluatable->False, CellChangeTimes->{3.4342145796800823`*^9, 3.434385202004236*^9, 3.436386197656507*^9, 3.436386651213832*^9, 3.436395613556868*^9, 3.436396817504443*^9, 3.4363969126714*^9, 3.4363971792293*^9, 3.436397300430133*^9, 3.436397559830633*^9, 3.436398752391986*^9, 3.436449865788514*^9, 3.436450221673046*^9, 3.436450329516295*^9, 3.436450489105962*^9, 3.4364508144356947`*^9, 3.440421240342807*^9, 3.440433992439755*^9, 3.4405102804636908`*^9, 3.4405203924137697`*^9, 3.440785677635889*^9, 3.441114949414207*^9, 3.4411222459797983`*^9, 3.441122718256427*^9, 3.441128084695787*^9, 3.441128230884494*^9, 3.441128396434573*^9, 3.4411285427938337`*^9, 3.441128814746563*^9, 3.441128924618191*^9, 3.4411523083245153`*^9, 3.4416775983315163`*^9, 3.441678141105877*^9, 3.4416781800929193`*^9, 3.441678524261628*^9, 3.441678962361809*^9, 3.441679036942152*^9, 3.441679320519503*^9, 3.4416805124714537`*^9, 3.441713989262731*^9, 3.441716603343972*^9, 3.441817408287792*^9, 3.4422557410499067`*^9, 3.4422559798760853`*^9, 3.442257469159813*^9, 3.442261573656419*^9, 3.4423253513028097`*^9, 3.443182857271104*^9, 3.4432092231297703`*^9, 3.443273324602899*^9}, ImageSize->{400., -0.0625}], Cell[BoxData["127.29173847581679`"], "Output", Evaluatable->False, CellChangeTimes->{3.4342145796800823`*^9, 3.434385202004236*^9, 3.436386197656507*^9, 3.436386651213832*^9, 3.436395613556868*^9, 3.436396817504443*^9, 3.4363969126714*^9, 3.4363971792293*^9, 3.436397300430133*^9, 3.436397559830633*^9, 3.436398752391986*^9, 3.436449865788514*^9, 3.436450221673046*^9, 3.436450329516295*^9, 3.436450489105962*^9, 3.4364508144356947`*^9, 3.440421240342807*^9, 3.440433992439755*^9, 3.4405102804636908`*^9, 3.4405203924137697`*^9, 3.440785677635889*^9, 3.441114949414207*^9, 3.4411222459797983`*^9, 3.441122718256427*^9, 3.441128084695787*^9, 3.441128230884494*^9, 3.441128396434573*^9, 3.4411285427938337`*^9, 3.441128814746563*^9, 3.441128924618191*^9, 3.4411523083245153`*^9, 3.4416775983315163`*^9, 3.441678141105877*^9, 3.4416781800929193`*^9, 3.441678524261628*^9, 3.441678962361809*^9, 3.441679036942152*^9, 3.441679320519503*^9, 3.4416805124714537`*^9, 3.441713989262731*^9, 3.441716603343972*^9, 3.441817408287792*^9, 3.4422557410499067`*^9, 3.4422559798760853`*^9, 3.442257469159813*^9, 3.442261573656419*^9, 3.4423253513028097`*^9, 3.443182857271104*^9, 3.4432092231297703`*^9, 3.4432733246050997`*^9}, ImageSize->{400., -0.0625}], Cell[BoxData[ GraphicsBox[ {Hue[0.67, 0.6, 0.6], PointBox[CompressedData[" 1:eJxd1nlYVNcZBvCrtdG2FiZR6vrEUVEJQZ0ACorCCygoCgw7DtudhX3UYRHS RM0V44oK0Vh3vS6N1ixgExNBk0ytS81icSGpmOgYsbjyjNFo4xJrn9wvPfPN Pzw/Pl7OnHPuOzDYMjs5v6skSUVdJOl/X39+uSNuGt9tzT4WCu0bSApwjP5w ZrjmHqjqUf7k9a8iNeuwpaPxk0UxkzT3RmLh9tTby2M090WHz1u2bbunaB4I U8AoW5Aap1mPKP3Iz4e+PF3zEMjbh2Q4AxM0+6L/178pDjmTqHk4HAGIiH/P qNkP2bl5F91FSZr94V71Ucz9/smaA3Bv4stLjx0lj8Lw412mN5ekaDagut1R MPR3qZpfQviE1rMxe8iB2PHtWZ/s6DTNQTAOfLtj+bfkYJjO6KuuVqdrHoOz E7v/trJXhuaxmBQ5IbHXPnII2hJSJq9KytQcim4VMzuW/0Aeh8Pv9FuydMsM zePhnWFraptq0hyGe97/XrrzAXkCdpRZc79oyNI8Ea9+9uz7j4qyNYdj2awd PiuH5WiOgJJyd0JlOxkoMPrv8t+V+7MV4HZltP9rljxtHonnd3ZcfcFL1uaR SFcabm4o0CxFITu46WTqRzSPgnfZuCerH9I8GnvSX5+vCzBr82g4Dv56hDxR szQJVx7X9fpkIM0nwe6bOn7FXyg/GWGX7NV947X3o0yGqfuF+gPDab8x8Kvf HnDDot2vEoOTW0t6b/Wj+41F+pdh1YZKzUosjmze0/loP82nYNgPXa++00nz KbjWcfX+qefp/qciYGXveddjNCtTUatLacsvpHkcQvq8FrpHoXkcDk3zPv77 NTSfhnrz4epbW2k+DY54V8imXTSfjgN1cQ3FZGU6/AdPW/M2/bwUj8qmr9UP 6Pcp8Xj84sDMtoU0T0BVzRcbKmfTPAGR1uSEC+k0T4T30rbYqvE0T4RuTtYm tT/NjahaNfjgP+5r+4cRS0y++2yn6Tye9mxY+J0f92p2GrHOsKLCt4bOLwkJ uf+8FbiI8kkod88sU82UT0Ll8c3LhqRRPgnHPukyNyGT8snwO7vx05P5lE9G 0J0BlhN/pHwyTnw5NaPyDcono3KrwfsEvR8pBQeaHx6PP0L5FPRc74jo/Iby Kfhpdq7j4h3KpyDjTndTbQ/afyquRTx6t4bOA6lwTG5uLX+BzisV6xcvHjFo jGZnKlwr60qyJ1I+DXct1V28oiifhgfvh0X4RlM+DZVv9lu9CZRPg9d3UWlz 6T6kdAwcXR9+3kD5dBytmL+gbSjl0/HVY9OVt3tRPh19ppQHvilRPgMZ4daF 7uu0/wzcmH8rJPwM7T8DT/6zeOHwZtp/BgKGf96+SqXzy0Ty9f5TG5dQPhNX fIITQsoon4lrXu5+ZXmUz4Q1yPvUMrpPaQZqQ2OHtmdQfgb6XDoXstZO+Rk4 4dc55w+bKT8DkbrG2LK3KG/Cntp5N/zOU96EfQFh92Y8R/s3wcv/9OnecbR/ E74z1fkeob5JWbh4Nfpyn/10flmYtK+k8N4VymehNvOWVP6c9nntzILxTEeX w+Po8zsb47cH5IVnaUY2Dqywv5RTpVnJxlZ78YJ9yymfjVfO3bx8fR3lc9Bx em1N6xbK56C2rkesaTPlc9DLsPf+/DWUz0H+8sujCxZSPhelFRXjEu2Uz4XP s+90rE2gfC7iqs83/NWf8k/dFJIS1oXyeVCyrixuP037z0PUgJpBi1Tafx7m nq8zDyil88vD3Y0Xx7cG0fnJ8Pr+TxkDH2nnr5dRVnxy8u6jdB8ytgZ3BL+x WrMso2vnvFlLdtD9yvCP7hYi1WpWZTg8+i6jRey7S8bzYt8lMwLEvuvNOCz2 HWYUin2XzTgk9l0xo4fYd9UMP4fYdzPKxb67zHCLfZcssIl911vwgdh3WHBy hdB3+anFvisWNLcKfVctiFsn9t2CBLHvLgvGiX2XrDgm9l1vxTmx77DieqzQ d9mKRLHvihWdYt9VK6Qfxb5bESz23WX17Ltkw22x73obHol9hw0Wse+yDbvE vis2DBD7rtpY322efXfZPPsu5Xv2XZ/v2Xfke/Zdzvfsu5IPi9h3NR+vevQ9 HyPFvruezsW+SwVYK/ZdX4DsmULfUYAd/xL6LhfAp1bou1KAvy8R+q4W4L1R Yt8L8Gyt0HdXAT4U+y4VIlzsu74QVrHveDoX+y4XYrXYd6UQgWLf1ULM8+h7 IbptEvruKsSD20LfpSIsEPuuL8Juse8oQvdtH2e9Qn2Vi2Dy+PtehAqvBw/z 6PlQi7Cq3S8ykZ4PZxEe75wT/Y2F7r8ILx4eErSX/h+TitHzsxU/TlxO6xdj 3KD1l/+2ndYvxnrzzD3nmmj9YpT9NCa45hStX4xD7uoeDzpo/WLsjN95p4H2 5yzGcyM31Iz1pv0XI//j9x6NH0T9K8H95j8/81oAPX8l+H6NLuLsWHr+SpD9 +caEfuH0/JVg0MNhz4T+0v8SNHn0vwT9DUnTzv/S/xLIc4e0WsNo/RI0xx8e eTKQ1i/F7r6hPmNG0PqlaHv3ie+nfWn9Uuy9dK3f9u60filsAw6mDL5L+y/F ijcMjzdfoP2X4ttvdpXVHaf9l+KF0P07NjfQ+ZdiZWDF/G3r6PztaLo7ueFj hc7fjs6ULXU11GfYcW9Q0PVf5dD529G1/7kJvem+FTsien7WvoQ+31W75+eB 066to71czNJMT+uZwSwzK8wqs5PZxSzNYuszg1lmVphVZiezi1mazdZnBrPM rDCrzE5mF7Pk8LSOWc9sYAazkVlmdjArzPXMKnMjs5O5hdnF7GaWyjytY9Yz G5jBbGSWmR3MCnM9s8rcyOxkbmF2MbuZpXJP65j1zAZmMBuZZWYHs8Jcz6wy NzI7mVuYXcxuZqnC0zpmPbOBGcxGZpnZwaww1zOrzI3MTuYWZhezm1mq9LSO Wc9sYAazkVlmdjArzPXMKnMjs5O5hdnF7GaW5nhax6xnNjCD2cgsMzuYFeZ6 ZpW5kdnJ3MLsYnYzS1We1jHrmQ3MYDYyy8wOZuX//i+6GYwR "]]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["\"y (mm)\"", TraditionalForm], FormBox["\"Current(A)\"", TraditionalForm]}, AxesOrigin->{0, Automatic}, ImageSize->400, PlotLabel->FormBox["\"Total Current in Channels\"", TraditionalForm], PlotRange->{{0, 232}, {0, 180}}, PlotRangeClipping->True]], "Output", Evaluatable->False, CellChangeTimes->{3.4342145796800823`*^9, 3.434385202004236*^9, 3.436386197656507*^9, 3.436386651213832*^9, 3.436395613556868*^9, 3.436396817504443*^9, 3.4363969126714*^9, 3.4363971792293*^9, 3.436397300430133*^9, 3.436397559830633*^9, 3.436398752391986*^9, 3.436449865788514*^9, 3.436450221673046*^9, 3.436450329516295*^9, 3.436450489105962*^9, 3.4364508144356947`*^9, 3.440421240342807*^9, 3.440433992439755*^9, 3.4405102804636908`*^9, 3.4405203924137697`*^9, 3.440785677635889*^9, 3.441114949414207*^9, 3.4411222459797983`*^9, 3.441122718256427*^9, 3.441128084695787*^9, 3.441128230884494*^9, 3.441128396434573*^9, 3.4411285427938337`*^9, 3.441128814746563*^9, 3.441128924618191*^9, 3.4411523083245153`*^9, 3.4416775983315163`*^9, 3.441678141105877*^9, 3.4416781800929193`*^9, 3.441678524261628*^9, 3.441678962361809*^9, 3.441679036942152*^9, 3.441679320519503*^9, 3.4416805124714537`*^9, 3.441713989262731*^9, 3.441716603343972*^9, 3.441817408287792*^9, 3.4422557410499067`*^9, 3.4422559798760853`*^9, 3.442257469159813*^9, 3.442261573656419*^9, 3.4423253513028097`*^9, 3.443182857271104*^9, 3.4432092231297703`*^9, 3.443273324607695*^9}, ImageSize->{400., -0.0625}], Cell[BoxData[ GraphicsBox[{ {Hue[0.67, 0.6, 0.6], PointBox[CompressedData[" 1:eJxd0G1olWUcx/F/JjJJ5BQ2RUadhUyT0TnuueXaf9Ntzjk9rpruwXm5+bS2 5kmbFAu8cCSzV2dBoJF1F0YQludF9CBF14iysNp5oYFi7g4psiCOZCYTIWLX iPO93tx8rh+/+3dzF/bua9s1R0T23iXy33PmZGtfT7iDr86dqvUX+sO1w+2t +7PeedoebTGxgmnviI5Mniob7pujM16kw6c6knk1ed5LNJG3ZKD7jYXeBdp5 9tx7O7+6zzuqZ81Q/8ThfO+HdDQ1v/H82FLvZfrX/NF5xRcf8C7S05mpt06f KfReoYmK4djLsWXeK/Xr5u/d3d8VeRfrkWXjE/PGH/Z+RD84uaju6KFi77hu f/+jI0ePxbxXadXpBR+PDq3yLtEdb750/52iUu9SHbna+2DhzTLvMr2nsutc y+UK73Ktbrp++9OLVd4VeiN/cvrFP6u9K3Xssm4dXFrjXaWLizrK87fVej+q RbG+qz9eUu9qvXLmn89G7q33fkwH7KEvj21e471a09OR3bePr/Wu0W9vna9c cK3B+3G907/HfLi6ybtWq3v+MJWvrPNW/Xzxz6PTvzTP2Kp2L3zthVhpi8/r 9MhP+eWbD2zweZ1OVP92qf1Eq8/rdXrON7cGTm70eb1+Mnfq3QvDm3y+RqvW l/ze9be3XaPtVZ2T4c3ZfK2eWNH0a1XJbL5Wx66PL29YOfv+Bj3eduHtkRv+ e22DxndKz5l3Zv9PoxYs3zJ45fnsFzN5o7+fPU25trCsQw5LM3JY1iOHpQU5 LBuQw9KKHJaNyGHZhByWRK4VtrCDZTP6sIUdLG3owxZ2sDyBPmxhB8uT6MMW drA8hT5sYQdLO/qwhR0sW9CHLexg2Yo+bGEHSwf6sIUdLJ3owxZ2sHShD1vY wdKNPmxhB8s29GELO1h60Ict7GDZjj5sYQeLyXUUVtjAFg5gB4ew7MA+rLCB LRzADg5h6cU+rLCBLRzADg5h6cM+rLCBLRzADg5h2Yl9WGEDWziAHRzCsgv7 sMIGtnAAOziEZTf2YYUNbOEAdnAIyx7swwob2MIB7OAQlr3YhxU2sIUD2MEh LP3YhxU2sIUD2MEhLE9jH1bYwBYOYAeHsAxgH1bYwBYOYAeHsAxiH1bYwBYO YAeHsDyDfVhhA1s4gB0cwjKEfVhhA1s4gB0cwrIP+7DCBrZwADs4hCWZ6wgc heOwwgnYwEnYwik4gNOwgzNwCGdheTbXETgKx2GFE7CBk7CFU3AAp2EHZ+AQ zsKyP9cROArHYYUTsIGTsIVTcACnYQdn4BDOwnIg1xE4CsdhhROwgZOwhVNw AKdhB2fgEM7C8lyuI3AUjsMKJ2ADJ2ELp+AATsMOzsAhnIVlONcROArHYYUT sIGTsIVTcACnYQdn4BDOwnIw1xE4CsdhhROwgZOw/d//AkfxBbI= "]]}, {Hue[0.9060679774997897, 0.6, 0.6], PointBox[CompressedData[" 1:eJxdzXuQjXUcx/Ff2CzrcixLastxma1ls4eQa77srrWWdZBbicdlEYtTW5ph 1G/DoM102moXXTybpjEVjmZcMqZ+a0lDW4tYqskzNSwxdZguqpGm2edXs+/n n2dez/v5zqfrnGUTC5sopRbeptS/74YnPnz6gfohtz7uK/4HieaWDHu9xjpR itd98emUc9YBqUi9vDLle+sOUnmqw/6j9dZ3yJsd27236EfrVElLS8lK/M9B mZS6/frei9bdRBKupm/2rHtIZGh15bd11mmS1KnE+ehz6/skvnrbqsgn1j3l hZ+dd8bErDOk7c6yaeVbrXtLadHGZu9utA5JrO61czUrrPtIfmTtS7MXWPeV lEOrkz+cZP2AdDnbKjNJrPvJzOWLxu7OsO4vswsvZJ3vbD1AliX8NPNwc+sH RZc20c//1sf3QHnr60uRjIvWg0RPfjX78BnrwZI9YOD7gz6zHiLHNpc1WXjA eqiczCw50X6H9TBp9V3TQfVbrR+Sun5ndhWVWQ+X/ITWbZqvsRZptmFH5EKx by1Skl65K+7YPkLSthw4tDPP9hEy9/TBxI4Zto+UAdvM9ZwE20fK2dJQi+QT Ib9nycq2ud7gDb51lrT+4ciNlj1sz5brda1mLO6e6fdsmVx2Knh5yf1+z5FN s7YMq6zq6fcceeZ0VfuKvDS/j5KmGS/W7bl6l99HybTc37sUd+vq91y5dXFt yZ/lQb/nysuLyyvaNfOtRsuR/TU3lp68x++j5di+9PE3S+/2e55E10w40b1f qt/zpLZN0cHiY3f6fYwkd0qsOVLQ2e9jZHtSZtfcqk5+z5ek6nkF67p19Hu+ rLnWovP64g5+HysV+z4o/XJPst/HSmx1YfmqKwG/j5Oqv6qra3q38fs46XV8 d87SFS39XiAHexxVQ6tv93uB7Hg7PTMlpanfx8sf82a9ceXm38Mb+ngpOv/L /E333miwCstXz/U53qvuWoMlLFt+bbJ3+SuX/P/DMrXL7d/U9z/fYBMWWV95 +dnUU/79BH/HfwTWsIHVRNzDGjawmoR7WMMGVg/jHtawgdVk3MMaNrCagntY wwZWU3EPa9jAahruYQ0bWE3HPaxhA6tHcA9r2MDqUdzDGjawmoF7WMMGVo/h HtawgdVM3MMaNrCahXtYwwZWTmMHYYEdWMMubGAPVrOxDwvswBp2YQN7sJqD fVhgB9awCxvYg9Vc7MMCO7CGXdjAHqzmYR8W2IE17MIG9mBViH1YYAfWsAsb 2IPVfOzDAjuwhl3YwB6sFmAfFtiBNezCBvZgtRD7sMAOrGEXNrAHq8exDwvs wBp2YQN7sFqEfVhgB9awCxvYg9Vi7MMCO7CGXdjAHqyKsA8L7MAadmEDe7Ba gn1YYAfWsAsb2IPVUuzDAjuwhl3YwB6slmEfFtiBNezCBvZgFWnsAByEQ7DA YdiBI7CGo7ALx2AD18IeHIfVE40dgINwCBY4DDtwBNZwFHbhGGzgWtiD47B6 srEDcBAOwQKHYQeOwBqOwi4cgw1cC3twHFbFjR2Ag3AIFjgMO3AE1nAUduEY bOBa2IPjsHqqsQNwEA7BAodhB47AGo7CLhyDDVwLe3AcVk83dgAOwiFY4DDs wBFYw1HYhWOwgWthD47DanljB+AgHIIFDsMOHIH1//4HIWNTUw== "]]}, {Hue[0.1421359549995791, 0.6, 0.6], PointBox[CompressedData[" 1:eJxd1HtwVNUdB/AjSWxMeWyniKlkYPMglqebJgYRhW822ZCQhGzeD4VeQB4R CEuMUKjC0cAEH4yJ2EEB4+0IFoOE1DItHVCPVihUx0aFAQKktxXo8JLIgK1t x3Q6/M509rv/ZD75zne+s3fvOcnzlpcvGKSUWnybUv/7e+vTPz2vqnPYxIkj IP9AwdIhU65kjBHH40JX8npv/iSxD/sSv6xvnZMpHo7GQylfrk6fLE7EPcNP tse3PyBOwn68XB+38yGxHwOh3WmRLIhTsHfpkil1K3LEadhxomZL6gtBcToC p/54vr01V/xjjN8z7Eb+wjzxOHRWfL/oyLiQeAI+PB3M0iesJ+F016rQ+435 4gDey2hY++516wwcWDz39m0LZoh/go0JO7c4R60zcax+1K6B0QXiLAz8eY5T vsT6PtSPSW0eucc6G9U3Xv067u/Wk/Hri+tH7by7UHw/9p7//c+bC62n4PWB DfEnm60fwKiTWV5Sh/VUbCuPKVlz2PpBvB2+ueyH16wfwj17Pmn/NnGmeBo6 a6833Ruyno7kw9+072m2Bl74KGnw4l1iDRzOT2qp/qvNc+DNHTdknb9I8hyc e3jVF3GLxCqI3icPFuT91uZBvLK6MXx1WLHkuXhr44HXC1aKdS7O/6EuvPWK zfPw7Ss3286tKpE8Dy8feHb1Cv8syUP4x4nX/lN8U6xD2Lx1wbpdCWHJ8xE7 rrcg5oJY52Pqd7uX7ssuk3wGdItX1327WM9AUfKpI4dO2n4BRuducp942/YL 8Ld5badnPG3zQsQcu9jwcbXNC/HR8ye++sUEm8/EZxMTynMH2Xwm8lf+KPtS V6nkRXi3JTvxjRqxLkJc84t/if3Ofr9ifL0v5c5Fv7Tfrxj12xOnJefYvASt vnXehjP2+ZQg/o7RlWeaxGoW3ljopNXF2HwWfNOC+4dvss+3FDl9TWcHhtrn X4qWMb17j7fa3y+M7akdKQnfyO+NMOYXB9P21dj3IYyrv3vz8opOeb9MGH2Z ztzQZfs+l6GvcHAwXCJGGUpeyg1sXy7nRZfB2/L00Ge3yfkyZVgzfvbog5/a 81iOg+mPBYq+J0Y5rnUkNO7IlfOsyzH/xTOnnnpGzrspx4iuLX1HPwxKvwKf j32+cG+MGBVYVnCsqSVP7g9dgW3bH33n0Hq5X0wF3loz+J/ZG6dLvxKl/86o fjV2mvQrcfVXI2evW/ug9Ctx9PPxxy/dlPvLVGLS1vTNdyyZIv0qpLZ2Zk7o k/sOVbi29tL1g6XZ0q9Cc8fmhskmS/pVuLDoyNSUgL0vq3H50yvxg90M6Vfj WNfKCZt8AelXo2n1v4rc2InSr8bZhjt3hK6MlX4NNhzpuCu9N136NQi+75zN /CxV+jWoGnL3/t8c90u/BrE6Le+L0yOlX4sLk352LiFf7nvUYveTH2z6U+wP pF+LUM2ItPueipd+LXp3DUofUqWkX4dQ3Bmno/7G9Fv9OjSNfW32m89dvmVd h8obQy8mvfPVLZs66dlPfbRB1mRDVg9Tn6zJhqweoT5Zkw1ZzaY+WZMNWc2h PlmTDVn9lPpkTTZk5UTbTwbZIWuySzZkj6zm0j4ZZIesyS7ZkD2ymkf7ZJAd sia7ZEP2yGo+7ZNBdsia7JIN2SOrR2mfDLJD1mSXbMgeWS2gfTLIDlmTXbIh e2S1kPbJIDtkTXbJhuyR1SLaJ4PskDXZJRuyR1aLaZ8MskPWZJdsyB5ZNdA+ GWSHrMku2ZA9snqM9skgO2RNdsmG7JHVEtong+yQNdklG7JHVktpnwyyQ9Zk l2zIHlkto30yyA5Zk12yIXtk1Uj7ZJAdsia7ZEP2yGo57ZNBdsia7JIN2SOr SLR9ZD85QAY5THbIEbImt5FdcjfZkHvIHrmfrFZE20f2kwNkkMNkhxwha3Ib 2SV3kw25h+yR+8mqKdo+sp8cIIMcJjvkCFmT28guuZtsyD1kj9xPVo9H20f2 kwNkkMNkhxwha3Ib2SV3kw25h+yR+8mqOdo+sp8cIIMcJjvkCFmT28guuZts yD1kj9xPVk9E20f2kwNkkMNkhxwha3Ib2SV3kw25h+yR+8lqZbR9ZD85QAY5 THbIEbL+v/8LTE3JmA== "]]}, {Hue[0.37820393249936934`, 0.6, 0.6], PointBox[CompressedData[" 1:eJxd1X901XMcx/GPNcUpzBHiiNuEVeIqK0n2Jluztrq7293vH9+tXzR0I9ER 58M/HWpcjqUj5rt0mKhNxwkH+XAck3K2o0UifVc2lGrnCJV0HGefz3Hu8/vP zuN+zmvvc77f1+fzGVW/KDovRSl11xlK/fd34OnPUsmPJPMsOA0eDo+AL4ND cDo8Gr4azoDHwtfC18Fh+AZ4AjwRvhHOhCfBk+Gb4CnwzfBU+BZ4GnwrnAVL sjWsbsM6rG7HOqymYx1Wd2AdVtlYh1UO1nOkZ9zoUM2EXz8e+GGGzJv2at7E 1j8Heq1nyEHTVNm8eqjN5cr6BY2PnVl44YB1rjSvqVm6Pt/19E5JHbKxvW/+ KLt+p3Re/tqj2YtdL/PkjawrCz6beY1dz5PfTi/vHHVqjF2fKcNeGrxl7Qrb Qz1TXl+XdWPK766H+TLi9RNtc1tsD3W+nH2ormHVR66HBZKf/cvZhzttD3WB PDZ3+dH6Pa6Hs+RkaVnzez/aHupZ0vjDvvSNP7oezpaGe7duOPm97aGeLdOn 5q2o3u16GJGWPasPrt1leygReeP9qs+f3mV7qCPSOjSr5No9tocmIrp723lN va6HhaIbM3YsabE9lELZcPyii1M22R7qQun5+u5Ntz1ne2gKZdf2Yw9llLoe RuWVjkOx5jNs7yQqmR+3F60tsNZRubR0284pz1qbqBy5ZMSu9V+5nhZJ84LP wq8Osr2UInmhPvtA20RrXSR/fJWYfU6NtSmSJ1L++aX7CdfjYimPTBqfus7l i+Xoh1cuX/GByxfLt9HUy6Z3unyxvPLwpMZL97p8TA5fkDPpz59cPiafDllT 39Hn8jGpa6l/8qn9Lh+Truc7umfsdvkS+bntSN/5X7h8iSwcfKwnZbPLl8ia pdEPJ692+RL54dTkQ9uWuHyp9O4cMrejwOVLJfVb70DGKJcvlccnTJnx+RH3 /kpl1e4xL+Ruce+vTPbtLxp2yUPu/ZfJy/FWlR92779Mlm35buywT+z3MmWS 3nk4dfNQ9/3K5a8H5szJmGq/r5RLYtMXKwfnuu9fLsO6X+5Nz7D9MOUyaNW6 kcMXu/5USFZWydbBc2y/pEJeXJ5/eU+Z61+FzFo7seGWQttPUyGNJ3orv89z /a2UKwq6I6132H5LpVz0Zt6Gd6bZ/utKCcrGnb4p0+4PUymxbV5v01i3f6ok 58sHM2Ij7f6SKvkjK3X0uHPs/tNVcuzUtPX9v19v81UyJbboVFPHeJuvlken jl35adM4m6+W7EMVs0pr7f7X1ZK5cMfwlqvs+WCqxW/9e039QXd+1Mi5p/tC B9rSbb5GqrYmHhm0zN6Lukbqvjme8+5z9jwyNfLimJZ1HXnuXq2VnhPL9pVd Ze9dqZV/dsQfjobtvaxr5YORfaHik/beNrUSrdv5fPf0FJv35Lu+894af/D4 wPkY8iRxfsH2t2NHByye3FrekPu0OjBgz5Pj7zyzSRfvteepJ5nemO37234a sO/Z/2sfAwewqkt2CBbYgzXswwYOYFWP+bDAHqxhHzZwAKs5mA8L7MEa9mED B7Cai/mwwB6sYR82cACreZgPC+zBGvZhAwewmo/5sMAerGEfNnAAqwWYDwvs wRr2YQMHsLoL82GBPVjDPmzgAFZ3Yz4ssAdr2IcNHMBqIebDAnuwhn3YwAGs GjAfFtiDNezDBg5gdQ/mwwJ7sIZ92MABrO7FfFhgD9awDxs4gNV9mA8L7MEa 9mEDB7BahPmwwB6sYR82cACreLLT4BAchgWOwB4chzWcgH24HTZwFxzA/bBa nOw0OASHYYEjsAfHYQ0nYB9uhw3cBQdwP6zuT3YaHILDsMAR2IPjsIYTsA+3 wwbuggO4H1YPJDsNDsFhWOAI7MFxWMMJ2IfbYQN3wQHcD6slyU6DQ3AYFjgC e3Ac1nAC9uF22MBdcAD3w+rBZKfBITgMCxyBPTgOazgB+3A7bOAuOID7YbU0 2WlwCA7DAkdgD47D+n//C67RpGc= "]]}, {Hue[0.6142719099991583, 0.6, 0.6], PointBox[CompressedData[" 1:eJxd1n1QVXUaB/Cfb5kGdg11XcG4GDEaVlfJNFH5hmiBa1zeXwQ593JZMTWu WVZbtj97Mc1huqyzaUvpqUjSGrpKf9jk1C97U7O8rtFOJXqcdIuypDJy0mp3 h+fMzv2ef5jPPDw8l3vO9zm/tGBTccNApVTjAKX+97P/6s1R8RfieSnZQx5F HktOIXvJE8jp5AzyRPI15Mnk68g+8hTyVHIW+QbyNPKN5OnkGeSbyDPJ2eRZ 5NnkOeQcMuKtyepmqpNVLtXJai7VySqP6mQ1j+pkNZ/qZHUL1cnqVqqTVT7V yaqA6mS1gOpk9Seqk9VCqpPVbVQnq0Kqk5U/3iBrsiGrIrT//viJQ2O+6d8b KEJt5Ia3eyae7bcuQkpnINrQeb7fpgir971x8EBokPydYszZdqE5JzOh3yhG Yu6ppC1XJPVbF2PHiyuGrr9P9ogpRnr7xrLkSVdKfwkGRLaVpw+ZIP0lKBp1 5fNtl1wt/SXo6Bp//ytJsidMCYKtU2c9NTFT+kuR937biH/myl5AKfp+fHTA 7KjsBV2KnmdPRy6D7AFTitEv77w4NebugTIcPba9IdWS3KMMd9/8cd68s5J7 XYbWcOKhtDWSc1OGXX2dTTnD3FyXY0/z6qtmb5JcoxwrklpH/2uc5FiXY+WH B/rObpMcm3J8NqPds3Ckm9MKtPd9khI5IkYFBv6c9vdLWiSnugITZ3105I/+ XOmvwKEvvjxQfbmbw0p89U3xpHWHxajEkxuHFmxokRzqSqR1Tzm0vlxyZyqx vfSWD3tS3ZxV4ftPutLqzopRhZy+ysjF9yRnugqvZy4dUrJDcmWqMG50X8uv 090cVSN7w7x77j8jRjXWeXoeea9ZcqSrcXlv6P3u8ZIbU40jWaNGYqubo0XI 3rW2YohHcoNFGLsr9uaPq8R6EdLf+L6m5aDYLMKmtr3+rFFujmrw/NwvzPAi MWpQ+NyEE9evFesanO5ekfpSm9jUYGfqyWceeN3tr0X+8t/bn33X7a9FTO+u GPu221+L7ovHfSc73f5anG/44LXfNrv9i7Evv8qzqsntX4yVP8x8LHum278Y HbmDawrOu59/MQ5HW598cIe7J+qwZPygcf9Y6P7/dZieMuzYtFPy/eg65C85 l/zqcvf7q0PHnJb5vn+7e8pCYcnp35YVir0WXggnP7Bnu3s/LHTOr0j6vEfu n2XhRH5Crn+hWFso+Ntc39NNcr9tC87mtSM2tMrzYCzozNrUvR/J8+NYeDXj dt+Coe4eD+DLrcPvaJsrz5s3gLonjn265iH3eQwgoWPz8QP7cmV+AF2TNua/ MkisA2i89eM7H86T590O4J2nQ7vffUTyYALo/kvC+RvXy3vPCWDZhSnlTw12 34tBHG9Prv3rg/Ie9QaReDSz6+ufJJ8IIn1LxqZhy+S9bP3399ftzJp8XN7j OoiB+7/+YW+h5N0O4mTbpqXTjZwLTBBrG/dnT/DJvnCCmHH4zKUJtnvOqMfJ jtWTmz2yb7z12HLfLwvswdfK/Hp82zi6bd6ZSTK/Hg37t/4h4zM5B+l6lL9p dWcduUrm1yOYOG5PZ5ecq0w9Qjo97+jnyTK/Hueuu/fU8PljZH4IBWveaj44 eKTMD+GuqjHp09bIOQ8hXHhxYEZimZwDrRDWDT9mba0+J/s9hKGTn6nd/rjs fzuEinMjelJ2fyf7PiRz5HLIqiHeXjLIFlmTbbIhO2T1Z5pPBtkia7JNNmSH rJbQfDLIFlmTbbIhO2TVSPPJIFtkTbbJhuyQ1VKaTwbZImuyTTZkh6xup/lk kC2yJttkQ3bIahnNJ4NskTXZJhuyQ1bLaT4ZZIusyTbZkB2yWkHzySBbZE22 yYbskNUdNJ8MskXWZJtsyA5ZNdF8MsgWWZNtsiE7ZBWOt4fsJfvIIPvJFjlM 1uQI2SZHyYYcIzvkXrJaGW8P2Uv2kUH2ky1ymKzJEbJNjpINOUZ2yL1kdWe8 PWQv2UcG2U+2yGGyJkfINjlKNuQY2SH3ktWqeHvIXrKPDLKfbJHDZE2OkG1y lGzIMbJD7iWru+LtIXvJPjLIfrJFDpM1OUK2yVGyIcfIDrmXrO6Ot4fsJfvI IPvJFjlM1uQI2SZHyYYcIzvkXrJaHW8P2Uv2kUH2ky1ymKz/7/8AW4q9jA== "]]}, {Hue[0.8503398874989481, 0.6, 0.6], PointBox[CompressedData[" 1:eJxd1ntwTFccB/AjyVDFdE1Tj1a4Eirx6iJCvPLzijSEFSKPzePuO0prvaU1 naPTl0farVJK1Y1mSGljPUbHYzhMRhCSkHSiTOoGiaLYQVWV6nT23Onsd//J fOY3v/1m7p7d7+lpn5fuCmOMFbZi7L+/wVcgiYW+KJQvgE3gSHAXcDewAo4G 9wK/Do4F9wX3Bw8Em8GDwIPBQ8Dx4KHgBPAw8HBwIngEeCR4FHg0eAw4CUyh 5mA2FuZgNg7mYDYe5mA2AeZgNhHmYJYMczCbBHMwS4E5mL0JczBLhTmYTYY5 mE2BOZilwRzMpsIczKbBHMwsoSYwBwswmw77YA4WYJYO+2AOFmA2A/bBHCzA bCbsgzlYgFkG7IM5WIDZLNgHc7AAs0zYB3OwALMs2AdzsACzbNgHc7DIJi17 0PbDnW7Insmhquq0juqLD4KmHKqZ3tR+87RnQfMcmu3OXnXpUkTwfUQOHU1f VlLW2E6+r5W+qbkSv/dox6DJSq9deVL9x6lXguZWahe/aeCeZ13lvpU6344M H2jpLvdz6aD799Ioa0+5n0tf554/WfdljNzPpbmBjJt3q3vL/Vy69+eCXdVt jd7Jow07P75pHyd7h/KourjH6q5LZe/wPLoT3bb5/HbZOyKPMlYWPZ9daPRO PvU8vCPe9a7sHcqnCWzBhfyVsnd4PsVH7xj66XrZOyKfYhKfJ4zZavROAR3c 79/dZofsHSqgrFaX+qz7UfYOL6Cyy4lnDu2TvSMKaPIHx6uKDhm9o1L/mNqP Hp2QvaOodNda5nu/WvYOqZR8a+eIVb/K3lFV+rA49uyiEtk7XCX/406dw8pl 72gqNV+YXT52rewdoVJD1cOlsZmyd3SVSitvZ3zbyugZG4045p+xOU1asVG3 zNN1iV9Ik43ud+3yc+k5adVGWz0V5u/CZQ9xG22yT7y2e4i0ZqN753zTOuRL CxutCHv2W/0H0rqNMi0JAyK2GT1mp/tHYpZ/clhasVNdekS38TXSZKeKZQnF rzZKq3Z68HJywqPrRr6dBoVvtFe2GPl2YiX2lauuGvl2qlxXWT/popFvp5bd d1s6njLyHTSn9cOmsL1GvoM2Lkk/MuwrI99BN54Ou316kZHvoJa6Ns7KNCPf QeEN6rXYnka+g1YMTpx08q58XsJBay7GbUg5IK07qOnqjPZdlxrP30lbvGVs itl4/k5adOCXvu2Py8+LnBRTcydibztp1Um3FzocsSPl58udVFx+anXrFOPz d1L7+i3N0bHyfAgnha/ZFhU5X54f3UlJSbOOtnYY9xoXbVo+pXtTlnH+XDR1 85A5o6bL80kuKv6r2Xo5VZ5f1UU90uotZROM8+2isbtSd+4fLc+/5qKGrH7/ DB8qvx/CRf1Oq83r+8rvj+6ifWcWx2ZEGfc6N1UkRfTq10F+/xQ3HXw+ujTw 4A2Z76YO6fOerq8cIPPddD0ybvWJ9f1kvpsKT+dMzSyIk/luanCcjSzp3Ufm u+nRrr832m/Je6zupu3PW5Rru6NlvodSj/neCy+S92DFQ5sbHif/tFbek8lD CXEl2ypT5T1a9VDjk6IrWb3lPZt7yHrWuyzdLO/hmoduRLUoM5/Ie7rwUC9H 3br68WEy30P3rr70w4Bbj+XvbyFVdEmr2pNxL2ilkCbmz0n5jF2Tv8eFNOH7 z8v5zMag1UL5f8sXB2tgAdbBbHaoFTCBVTAHa2AB1sHsLcgHE1gFc7AGFmAd zOZAPpjAKpiDNbAA62A2F/LBBFbBHKyBBVgHs7chH0xgFczBGliAdTB7B/LB BFbBHKyBBVgHs3mQDyawCuZgDSzAOph5Q20CK2AzmMAWsAr2gjnYB9bAfrAA 14J1cADM5ofaBFbAZjCBLWAV7AVzsA+sgf1gAa4F6+AAmC0ItQmsgM1gAlvA KtgL5mAfWAP7wQJcC9bBATBbGGoTWAGbwQS2gFWwF8zBPrAG9oMFuBasgwNg tijUJrACNoMJbAGrYC+Yg31gDewHC3AtWAcHwGxxqE1gBWwGE9gCVsFeMAf7 wBrYDxbgWrAODoDZklCbwArYDCawBayCvWD+v/8F376yhQ== "]]}, {Hue[0.08640786499873876, 0.6, 0.6], PointBox[CompressedData[" 1:eJxd13lsFHUUB/AfVsqh0MUCctppOURAWTkK9KCPIggIsi3QgoDM3mfpAlJj UPMjUeQQ3WK8gNIRGrAYwhY0Sjj8RSLYArIlihoOR+UQUVrAVKK1qNm3Mfud fzafvLx5uzszv+9vMh3lxe67hBC+dkL89xk/mgtE8kHJ7Ai2gLuDe4H7gTVw FnggeDB4CHgoeDj4EbAV/Ch4JHgUeDR4DDgbPBY8DjwenAPOBeeB88ETwAVg SrYEi4lQB4tCqIPFJKiDxWNQB4vJUAeLKVAHi8ehDhZToQ4W06AOFtOhDhZP QB0sZkAdLGZCHSyehDpYzII6WNiSTWAJVmBRBP1gCVZgUQz9YAlWYDEb+sES rMBiDvSDJViBxVzoB0uwAosS6AdLsAKLUugHS7ACi3nQD5ZgBRbzoR8swQos noJ+sAQrsFgA/WAJVmCxEPrBEqzAYhH0gyVYgcXT0A+WYAUWi6EfLMEKLPRk a2AC6zoNaVv3/Yme1+L7BKmT59XRR64OaYrb0OlCnT3q3nc7bqXThCOHG+pd KfHzmDqN2/rXhoJh9/J57XRw4sX0d+5Lj1uzU9H7ZR3WPMf7BrKT3LF+bt+H Hohbt1N6pLpkYPusuKWdxnV/YHtN6qC4DTuVn+m/ck867wuUnU5tHpn37pBh PN9OTxyr6Xq6MLEPcNCJWy+3y4/yPkBzUMa2S5F7iHOfHPRa7a7WkTHOfd1B z5zb4c7QOeelg1at+eqxyU2c84aDplR0OZH5Aue6ctCwP/aVF3TiHDcdZG6o GJD/RiLHneRM39zjmz6c25qTAifrW5qqObfJSXXjdlpmduNc1p20teVMv0gj Wzop5Y/MN1MrOZcNJw3O+7Kxt62Q5zvp1E9X6p9K49w1nXTpWvFDq08lcthF W9Z3mL62knNXc9Hg84+eWFPCOUsu2j7n8ZNXMzhXdRe1nfk6c3ETW7qIWuZF Wo9yrhouOjDM3352LeeoclGfHi2Vf4/l3DRdlLt28rMrf03kqJtWW66+dHQD 56bmprRm17Hz/TknyU2No7p3o61s3U25datK21s4J6Wb0utin95azjbcNODw jYWVDWzlpjdrDtpGdefcNN1UNekn1bkokaMeKtqW9f2IVWzNQ43nyzI+qGGT hw5l/FD1/AG27qHby+7sfO9ztvTQ+lV7S3sdYRseam29YP1hH1t56Ir7+P62 txPzPfTxtPmW5eWJ+V4K3cx5JTcnMd9LtYV3L5x+m78/eSkW3fzWi7Vs3UuO /il9Ns1M/H4vje3X6dyYi/z/GF6a6v2974chtvr3fBMqp1gv8/9reql49qW2 4KzEPsVH1eG+z3+yg6+H5qPdU0rTz17l60c++uizG7ZrPdi6jwo2TrJuKefr LX10wDniy/qdfD8YPtqbuSD00mW+f5SPyv+snjF8KNv0Uc/rx+p9SxP7PD+V 7eu4su8Bvh81P50c0HtgaSqb/FT3XVH+/OJCnu+n7G93Z7+8le936adbvb44 rf/Cz4Php6qVaVrlGLby0/EPFwX33OHnyfTT/LrRVzI2JvbJAWr4cfj4eVm8 j9YCVDXnyhJXlJ9XCtCmZcdXLM3jfbkeoOpOqblHj/I+Xgbori9+uXlwVuL5 D1D5c992O/QNvxeoAPXMqdiVvZjXDzNAeSUvdjEuJ94zgtTa+PqeiiWJ9SdI 7W4/2HHt9Yd5fpBObzi7oCSF1y89SFW5lpm/9eP1TQbpjY6P1C7LT6x/QWq5 eH/vn71ZPD9IczsPahg9MYPnB2n/rxk5ZWd78/wQ3YjVdB4Y5fc2LUSzurY2 fB1N4/kh6hrMeTatKZXnh+jH/BGv/v5nG6//Idqefd59vP4Wr/8hShletWjH Os4HFeI5fJhgUZZsDUxgHSzBBliBTbBYAvPBBNbBEmyAFdgEi3KYDyawDpZg A6zAJliEk20Ba2ArmMA2sA4OgyU4AjbAUbACx8AmuBkslibbAtbAVjCBbWAd HAZLcARsgKNgBY6BTXAzWCxLtgWsga1gAtvAOjgMluAI2ABHwQocA5vgZrBY nmwLWANbwQS2gXVwGCzBEbABjoIVOAY2wc1g8UyyLWANbAUT2AbWwWGwBEfA BjgKVuAY2AQ3g8WKZFvAGtgKJrANrIPDYAmOgA1wFKzAMbAJbgaLimRbwBrY CiawDayDw2D5v/8BgLvD1A== "]]}, {Hue[0.3224758424985268, 0.6, 0.6], PointBox[CompressedData[" 1:eJxd1mlsVFUYxvGDEJDlw0AQKbEwZVFDpBlk0SLCC8imIkMBWYpwLZ2lMwUG BBEk9SA0YRObqAli1KsxlKDggBgRoh4wImsZUJFF4KoBAgGcSCEG0iBmzo2Z /3xpfnnyzjO5tx+eovI5pZF7lFLxJkr99zf3yQ5W+R/J571wAG4Pd4QfgINw V7g7/CD8MNwTfgQuhkNwb/hRuA/cF+4H94cfgx+HS+AB8BPwQPhJeBA8GJZ8 a1gNQQ6rochhNQw5rJ5CDqvhyGE1AjmsRiKH1SjksBqNHFZPI4fVM8hh9Sxy WI1BDqvnkMNqLHJYhfMtsIYNrMbhHtawgVUp7mENG1iNxz2sYQOrCbiHNWxg NRH3sIYNrJ7HPaxhA6tJuIc1bGA1Gfewhg2spuAe1rCB1VTcwxo2sCrDPaxh A6tpuIc1bGD1Au5hDRtYTcc9rGEDqxm4hzVsYOXkOwgL7MAadmEDe7B6Ef2w wA6sYRc2sAercvTDAjuwhl3YwB6sZqIfFtiBNezCBvZgVYF+WGAH1rALmwp5 d0rvDbs6XMztSq9C9taPaeu0um53ZkT2j/u9zXtjG3MORiQWnbLq1Klmue+R iOwqfeWjjWda5+xEZP2Rc323fds2Zx2RZd6t+hv77svZjUhJn/XFWxsLcjYR efVS+6bF4c45exFpjF35pLCsyP7OqBwvO7r3p7e65RyMyp/XJ166Vt/D9kcl 0DDv0/qWdmc6UTm/sOZS+VC7M3VUamZ3WV2w0O5MNyobC1ueP7rB7kwTlSWr Ft2pjNud6UVl3a66vpHF/s6MSbWad2z6SrszgzGZ0LWu34p37M6UmLQuudN/ 0Id2ZzoxObw9/XmLOrszdUyGNzn10Nub7c50Y1J3uuTAzi/szjQxmfr67oOL dtqd6cWkQ7dMzc09/s6My52yjbXV9XZnBuMy9vKmAavO2p0pcWmzY/IB02B3 phOX9D8d7r9ni92ZOi6Np3p990ON3ZluXIqWHqmbOcTuTBOXaZGKdvMuWHtx 2Td+WGrFQH9nVsq0aG2nomrrYKW0u3y1oMPX1lIpu2c0m9/jmrVTKXOuj155 sNDuUH03v1W0pnSUtVspa7YP7XJulrWplBOvdfpl8Vpr7+73l77ZonCTv2MT 4iY6hbcZ62BCRv79196ux6wlIZmTZQWTzlo7CbmybPmigef9/oSEmq4r//GC 35+QJdlFPW/84fcn5OaIg2WHTvr9Cdk8tfmvZQf9/qScPrT7mx1f+f1JqW5a Vnz7A78/Kemlm46XLPX7k/L9nqSzfLrfn5Q7F7qnf+vv9yfleOvbZ4pb+f1J KS5v/+XIE/b5eUl5f8HUGftd//lXyZb95rPCmf7zrxLv5tqOkc7+86+Sn6vn 1uz52L4/p0oaNh++urXBvm9dJbe8WRfP9/Lff5W8sWXf6uaj7P+HqbI99uPB ala+g7DADqxhFzawB6vZ6IcFdmANu7CBPVjNQT8ssANr2IUN7MEqle8AHIRD sMBh2IFTsIZrYRdOwwbOwB6chdXcfAfgIByCBQ7DDpyCNVwLu3AaNnAG9uAs rOblOwAH4RAscBh24BSs4VrYhdOwgTOwB2dh9VK+A3AQDsECh2EHTsEaroVd OA0bOAN7cBZW8/MdgINwCBY4DDtwCtZwLezCadjAGdiDs7BakO8AHIRDsMBh 2IFTsIZrYRdOwwbOwB6chdXL+Q7AQTgECxyGHTgF6//9L5L1WVs= "]]}, {Hue[0.5585438199983166, 0.6, 0.6], PointBox[CompressedData[" 1:eJxd112I1FUcxvFfG+TSRcxmaFHEvwxxK3NqVzd7cX+am61ljVqpvdjRXJu3 zanc7UWyw6LmRRdjV7VgngiMoGSg7UII90S1RIhNSxCbEAciSJOcslZpq42Y I/H//m+GDw/P/G6fc83mbWv6WkQkf4HIf7/Nr9Et6U/TbIUz8GXw5fBVcAJf C18Hz4XnwdfDN8I3wVn4ZvgWuAPuhBfCi+Au+FZ4MXwbfDt8B3wnvATuhjVt C8tS5LAsQw7LXchhWY4clh7ksNyNHJYVyGG5BzksvchhWYkclnuRw3IfclhW IYflfuSwPIAcllzaClvYw7IafdjCHpY16MMW9rCsRR+2sIflQfRhC3tYHkIf trCH5WH0YQt7WNahD1vYw7IefdjCHpYN6MMW9rA8gj5sYQ/Lo+jDFvawPIY+ bGEPy+Powxb2sGxEH7awh+UJ9GELe1hM2gmssIEt7GAPB1g24T6ssIEt7GAP B1g24z6ssIEt7GAPB1iexH1YYQNb2MEeDrBswX1YYQNb2MEeDrD04T6ssIEt 7GAPB1i24j6ssIEt7GAPB1iewn1YYQNb2MEeDrDkcR9W2OT1nz2dn56Yd7r5 TrB5fXXgcE+h5VzTLq+H+n9Jdg22NHs+r99+sK+tY/fFTYe8js4c33TF8bb4 vwXdMX7hqT8nZjWdFPSNXb29I0l8J2hB/5576c7xo/GdYAp65rP628eG5zRt Czqza/YXLQPxXeAKuv39rw8cWdce7xf0zel3ThQ0vgNCQRfoV+fmzF8Q7xd1 vGPh0u5L4u5Pirp/1o7pg3vi7teiLprx076e6bj7TVEvOr73pHs+7nxb1KG9 3yzvOR13viuqbH1h7PO+uOt9UV9pf/m30e/irg9FXX3Dzqmw6vyOL+nPk0fb Tx2JOz4paf9I54efzI+7XUu68eMtr/UNx91uSnp139iZoaG4021Jfz/cOCBd cZe7kr470jr9x8loX9KJctvZL99aFu+X9MdfV0zOWHt+h5f14O7B7IbWuLuT ss5uTL33+mi0lnV8YvHwRy/G3W3KeuUPhe/PdsWdbcu6csmhl45NRbuy6uT6 6l9jcWf7crwTvwBLf9oJrLCBLexgDwdYnsZ9WGEDW9jBHg6wbMN9WGEDW9jB Hg6wVNLOwAmchRXOwQauwBauwg6uwR6uwwFuwPJM2hk4gbOwwjnYwBXYwlXY wTXYw3U4wA1Ynk07AydwFlY4Bxu4Alu4Cju4Bnu4Dge4ActzaWfgBM7CCudg A1dgC1dhB9dgD9fhADdg2Z52Bk7gLKxwDjZwBbZwFXZwDfZwHQ5wA5aBtDNw AmdhhXOwgSuwhauwg2uwh+twgBuwDKadgRM4Cyucgw1cge3//hdzQu7k "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["\"y (mm)\"", TraditionalForm], FormBox["\"Current(A)\"", TraditionalForm]}, AxesOrigin->{0, Automatic}, ImageSize->500, PlotRange->{{0, 232}, {0, 100}}, PlotRangeClipping->True]], "Output", Evaluatable->False, CellChangeTimes->{3.4342145796800823`*^9, 3.434385202004236*^9, 3.436386197656507*^9, 3.436386651213832*^9, 3.436395613556868*^9, 3.436396817504443*^9, 3.4363969126714*^9, 3.4363971792293*^9, 3.436397300430133*^9, 3.436397559830633*^9, 3.436398752391986*^9, 3.436449865788514*^9, 3.436450221673046*^9, 3.436450329516295*^9, 3.436450489105962*^9, 3.4364508144356947`*^9, 3.440421240342807*^9, 3.440433992439755*^9, 3.4405102804636908`*^9, 3.4405203924137697`*^9, 3.440785677635889*^9, 3.441114949414207*^9, 3.4411222459797983`*^9, 3.441122718256427*^9, 3.441128084695787*^9, 3.441128230884494*^9, 3.441128396434573*^9, 3.4411285427938337`*^9, 3.441128814746563*^9, 3.441128924618191*^9, 3.4411523083245153`*^9, 3.4416775983315163`*^9, 3.441678141105877*^9, 3.4416781800929193`*^9, 3.441678524261628*^9, 3.441678962361809*^9, 3.441679036942152*^9, 3.441679320519503*^9, 3.4416805124714537`*^9, 3.441713989262731*^9, 3.441716603343972*^9, 3.441817408287792*^9, 3.4422557410499067`*^9, 3.4422559798760853`*^9, 3.442257469159813*^9, 3.442261573656419*^9, 3.4423253513028097`*^9, 3.443182857271104*^9, 3.4432092231297703`*^9, 3.443273324614976*^9}, ImageSize->{400., -0.0625}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Export", "[", RowBox[{"\"\\"", ",", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"I6", ",", "I7", ",", "I8"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"190", ",", "227"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "75"}], "}"}]}], "}"}]}], ",", RowBox[{"PlotMarkers", "\[Rule]", RowBox[{"{", RowBox[{"Automatic", ",", "Small"}], "}"}]}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotLabel", "\[Rule]", "\"\\""}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.441818750022903*^9, 3.441818817870332*^9}, { 3.4418198344217997`*^9, 3.441819841805253*^9}, {3.4418199347769537`*^9, 3.441819948386057*^9}, {3.4418199900526*^9, 3.441819996482691*^9}}], Cell[BoxData["\<\"Horizontal3Coil.png\"\>"], "Output", CellChangeTimes->{3.441818820875751*^9, 3.4418198468248653`*^9, 3.441819952091371*^9, 3.441819998558514*^9, 3.442255743202755*^9, 3.442255981191444*^9, 3.442257470130012*^9, 3.442261574629921*^9, 3.442325353467269*^9, 3.443182859403985*^9, 3.4432092245000057`*^9, 3.4432733265654173`*^9}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Transport Segment 8", "Section", CellChangeTimes->{{3.427557417391244*^9, 3.4275574212738867`*^9}, { 3.4411221096197567`*^9, 3.441122111491469*^9}, {3.441122508437797*^9, 3.441122511640093*^9}, {3.4411277226665297`*^9, 3.441127722814207*^9}, { 3.441128631204597*^9, 3.44112863229961*^9}, {3.441677590429941*^9, 3.4416775930292463`*^9}, {3.44167783010979*^9, 3.441677830333523*^9}, { 3.441678247795299*^9, 3.441678248331245*^9}, {3.441678597890871*^9, 3.4416785986413794`*^9}, {3.441679164821513*^9, 3.4416791650945587`*^9}}], Cell["Segment 8 - Coils 7, 8, 9", "Text", CellChangeTimes->{{3.4275574238332644`*^9, 3.427557519898347*^9}, { 3.441122709553803*^9, 3.441122723090308*^9}, {3.4411277251617403`*^9, 3.441127734985326*^9}, {3.441128634874387*^9, 3.4411286420184526`*^9}, { 3.441677837518024*^9, 3.441677846179837*^9}, {3.441678251476316*^9, 3.441678257826837*^9}, {3.441678600624308*^9, 3.4416786071033688`*^9}, { 3.441679169764835*^9, 3.4416791775408087`*^9}}], Cell[CellGroupData[{ Cell["Coil Definition", "Subsection", CellChangeTimes->{{3.424789285638125*^9, 3.42478928884125*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"Push", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "ampsPush_"}], "]"}], ":=", " ", RowBox[{"CustomPush", "[", RowBox[{ "x", ",", "y", ",", "z", ",", "distP", ",", "ampsPush", ",", "radP", ",", "PwireWidth", ",", "PwireLength"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coil1", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "amps1_"}], "]"}], ":=", RowBox[{"Coil", "[", RowBox[{"x", ",", RowBox[{"y", "-", "ydispl1"}], ",", "z", ",", "dist1", ",", "amps1", ",", "rad1", ",", "MOTwireWidth", ",", "MOTwireLength", ",", "numRad1", ",", "numAx1"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coil2", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "amps2_"}], "]"}], ":=", RowBox[{"Coil", "[", RowBox[{"x", ",", RowBox[{"y", "-", "ydispl2"}], ",", "z", ",", "dist2", ",", "amps2", ",", "rad2", ",", "HwireWidth", ",", "HwireLength", ",", "numRad2", ",", "numAx2"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coil3", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "amps3_"}], "]"}], ":=", RowBox[{"Coil", "[", RowBox[{"x", ",", RowBox[{"y", "-", "ydispl3"}], ",", "z", ",", "dist3", ",", "amps3", ",", "rad3", ",", "HwireWidth", ",", "HwireLength", ",", "numRad3", ",", "numAx3"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coil4", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "amps4_"}], "]"}], ":=", RowBox[{"Coil", "[", RowBox[{"x", ",", RowBox[{"y", "-", "ydispl4"}], ",", "z", ",", "dist4", ",", "amps4", ",", "rad4", ",", "HwireWidth", ",", "HwireLength", ",", "numRad4", ",", "numAx4"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coil5", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "amps5_"}], "]"}], ":=", RowBox[{"Coil", "[", RowBox[{"x", ",", RowBox[{"y", "-", "ydispl5"}], ",", "z", ",", "dist5", ",", "amps5", ",", "rad5", ",", "HwireWidth", ",", "HwireLength", ",", "numRad5", ",", "numAx5"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coil6", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "amps6_"}], "]"}], ":=", RowBox[{"Coil", "[", RowBox[{"x", ",", RowBox[{"y", "-", "ydispl6"}], ",", "z", ",", "dist6", ",", "amps6", ",", "rad6", ",", "HwireWidth", ",", "HwireLength", ",", "numRad6", ",", "numAx6"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coil7", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "amps7_"}], "]"}], ":=", RowBox[{"Coil", "[", RowBox[{"x", ",", RowBox[{"y", "-", "ydispl7"}], ",", "z", ",", "dist7", ",", "amps7", ",", "rad7", ",", "HwireWidth", ",", "HwireLength", ",", "numRad7", ",", "numAx7"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coil8", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "amps8_"}], "]"}], ":=", RowBox[{"Coil", "[", RowBox[{"x", ",", RowBox[{"y", "-", "ydispl8"}], ",", "z", ",", "dist8", ",", "amps8", ",", "rad8", ",", "HwireWidth", ",", "HwireLength", ",", "numRad8", ",", "numAx8"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coil9", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "amps9_"}], "]"}], ":=", RowBox[{"Coil", "[", RowBox[{"x", ",", RowBox[{"y", "-", "ydispl9"}], ",", "z", ",", "dist9", ",", "amps9", ",", "rad9", ",", "HwireWidth", ",", "HwireLength", ",", "numRad9", ",", "numAx9"}], "]"}]}]}], "Input", CellChangeTimes->{{3.4108691929057975`*^9, 3.4108692511714225`*^9}, { 3.4108696083120475`*^9, 3.4108696370776725`*^9}, {3.4108878639057975`*^9, 3.4108878917339225`*^9}, 3.4108880255620475`*^9, {3.4108880572026725`*^9, 3.4108880934839225`*^9}, {3.4108881324057975`*^9, 3.4108881358276725`*^9}, {3.4114971485377502`*^9, 3.4114971533502502`*^9}, {3.4115798687252502`*^9, 3.4115798990846252`*^9}, {3.4115801645377502`*^9, 3.4115801658346252`*^9}, {3.4115850364908752`*^9, 3.4115850513502502`*^9}, {3.4116541353815002`*^9, 3.4116541668815002`*^9}, {3.4116543291315002`*^9, 3.4116543294752502`*^9}, {3.413042775259*^9, 3.41304278797775*^9}, { 3.4130428408215*^9, 3.413042899509*^9}, {3.413042982962125*^9, 3.41304298922775*^9}, {3.41304393541525*^9, 3.4130439359465*^9}, { 3.4130475845715*^9, 3.41304758510275*^9}, {3.4147689327342415`*^9, 3.4147689545786905`*^9}, {3.4157043510358753`*^9, 3.4157043545515003`*^9}, {3.4240142755295*^9, 3.424014280982625*^9}, { 3.424708044607378*^9, 3.424708045091753*^9}, {3.424708516388628*^9, 3.424708547888628*^9}, {3.424789355935*^9, 3.424789362294375*^9}, { 3.424793540700625*^9, 3.42479354259125*^9}, {3.42479373102875*^9, 3.424793804356875*^9}, {3.42479385740375*^9, 3.424793870231875*^9}, { 3.424793962731875*^9, 3.424794012106875*^9}, {3.424794111200625*^9, 3.42479411184125*^9}, {3.42479467331*^9, 3.424794687200625*^9}, { 3.42504874452875*^9, 3.425048750606875*^9}, 3.42504893756*^9, 3.425049003856875*^9, {3.425052076763125*^9, 3.425052080075625*^9}, { 3.42505228456*^9, 3.425052285138125*^9}, {3.425053193700625*^9, 3.42505319734125*^9}, {3.425140953629081*^9, 3.425140955394706*^9}, { 3.425143919457206*^9, 3.425143919832206*^9}, {3.42530989195675*^9, 3.425309893034875*^9}, {3.4253099389255*^9, 3.425309941488*^9}, { 3.42531268476925*^9, 3.425312693941125*^9}, {3.4275484377987127`*^9, 3.427548439150815*^9}, {3.427549179203624*^9, 3.427549180977133*^9}, { 3.427557753123818*^9, 3.427557807078123*^9}, {3.431959729046167*^9, 3.431959734430778*^9}, {3.431959767318501*^9, 3.431959777847219*^9}, { 3.432522576195047*^9, 3.432522576768517*^9}, {3.432522640640594*^9, 3.432522641159569*^9}, {3.43252273720122*^9, 3.4325227374044447`*^9}, { 3.4325227774233923`*^9, 3.4325227782576227`*^9}, {3.432522979857479*^9, 3.432522986718114*^9}, {3.4342027674829407`*^9, 3.434202767818779*^9}, { 3.4342033583019247`*^9, 3.434203358566132*^9}, {3.4342035182972803`*^9, 3.434203518695207*^9}, {3.434203693374236*^9, 3.4342036937433043`*^9}, { 3.4342038767456837`*^9, 3.434203880149901*^9}, {3.4342043595530024`*^9, 3.434204360389633*^9}, {3.434204574074339*^9, 3.434204576586729*^9}, { 3.434204726385235*^9, 3.434204727655446*^9}, {3.4342049825787983`*^9, 3.4342049830998783`*^9}, {3.4363860850199957`*^9, 3.4363861459997807`*^9}, {3.4411286966296463`*^9, 3.441128719136548*^9}, { 3.441677862797627*^9, 3.441677883779232*^9}, {3.441678264731885*^9, 3.4416782900509577`*^9}, {3.441678614250285*^9, 3.441678647835944*^9}, { 3.441679079318246*^9, 3.441679100802258*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Calculation", "Subsection", CellChangeTimes->{{3.427557803876124*^9, 3.4275578048430853`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"amps7", "=", "curr7"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amps8", "=", "curr8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"amps9", "=", "curr9"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Unit", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], ":=", RowBox[{ RowBox[{"Coil7", "[", RowBox[{"x", ",", "y", ",", "z", ",", "amps7"}], "]"}], "+", RowBox[{"Coil8", "[", RowBox[{"x", ",", "y", ",", "z", ",", "amps8"}], "]"}], "+", RowBox[{"Coil9", "[", RowBox[{"x", ",", "y", ",", "z", ",", "amps9"}], "]"}]}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"xComp", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{ RowBox[{"Unit", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"yComp", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{ RowBox[{"Unit", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"zComp", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{ RowBox[{"Unit", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "[", RowBox[{"[", "3", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GxComp", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{ SubscriptBox["\[PartialD]", "x"], RowBox[{"xComp", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GyComp", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{ SubscriptBox["\[PartialD]", "y"], RowBox[{"yComp", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"GzComp", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{ SubscriptBox["\[PartialD]", "z"], RowBox[{"zComp", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}]}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", " ", "=", " ", "30"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y0", "=", " ", RowBox[{"228", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"yf", " ", "=", " ", RowBox[{"257", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"scale", " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"yf", "-", "y0"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"buf", " ", "=", " ", RowBox[{"UnitVector", "[", RowBox[{"n", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"asp", " ", "=", " ", RowBox[{"UnitVector", "[", RowBox[{"n", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "0"}], ",", RowBox[{"i", "<", "n"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"ypos", " ", "=", " ", RowBox[{"y0", "+", RowBox[{"scale", "*", "i"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"sol", " ", "=", " ", RowBox[{"Solve", " ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"yComp", "[", RowBox[{"zero", ",", "ypos", ",", "zero"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"GzComp", "[", RowBox[{"zero", ",", "ypos", ",", "zero"}], "]"}], "\[Equal]", "gradient"}], ",", RowBox[{ FractionBox[ RowBox[{"GxComp", "[", RowBox[{"zero", ",", "ypos", ",", "zero"}], "]"}], RowBox[{"GyComp", "[", RowBox[{"zero", ",", "ypos", ",", "zero"}], "]"}]], "\[Equal]", RowBox[{"Aspect", "[", "ypos", "]"}]}]}], "}"}], ",", " ", RowBox[{"{", " ", RowBox[{"curr7", ",", "curr8", ",", "curr9"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"buf", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], " ", "=", " ", RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"asp", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "=", RowBox[{"Aspect", "[", "ypos", "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Curr7", "=", RowBox[{"curr7", "/.", "buf"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Curr8", "=", RowBox[{"curr8", "/.", "buf"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Curr9", "=", RowBox[{"curr9", "/.", "buf"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", " ", "=", " ", "0"}], ",", " ", RowBox[{"i", "<", "n"}], ",", RowBox[{"i", "++"}], ",", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"I7", "[", RowBox[{"[", RowBox[{"i", "+", RowBox[{"y0", "/", "mm"}]}], "]"}], "]"}], "=", RowBox[{"Curr7", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"I8", "[", RowBox[{"[", RowBox[{"i", "+", RowBox[{"y0", "/", "mm"}]}], "]"}], "]"}], "=", RowBox[{"Curr8", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"I9", "[", RowBox[{"[", RowBox[{"i", "+", RowBox[{"y0", "/", "mm"}]}], "]"}], "]"}], "=", RowBox[{"Curr9", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"Curr7", ",", "Curr8", ",", "Curr9"}], "}"}], ",", RowBox[{"DataRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"y0", "*", "1000"}], ",", RowBox[{ RowBox[{"(", RowBox[{"y0", "+", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}], "*", "scale"}]}], ")"}], "*", "1000"}]}], "}"}]}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"y0", "*", "1000"}], ",", "0"}], "}"}]}], ",", RowBox[{"PlotMarkers", "\[Rule]", RowBox[{"{", RowBox[{"Automatic", ",", "Small"}], "}"}]}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotLabel", "\[Rule]", "\"\\""}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"TotCurrent", "=", RowBox[{ "IP", "+", "I1", "+", "I2", "+", "I3", "+", "I4", "+", "I5", "+", "I6", "+", "I7", "+", "I8", "+", "I9"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Max", "[", RowBox[{"I7", "+", "I8", "+", "I9"}], "]"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", "Pstage8", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Pstage8", "=", RowBox[{ RowBox[{ SuperscriptBox["Curr7", "2"], "*", "R7"}], "+", RowBox[{ SuperscriptBox["Curr8", "2"], "*", "R8"}], "+", RowBox[{ SuperscriptBox["Curr9", "2"], "*", "R9"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Max", "[", "Pstage8", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Mean", "[", "Pstage8", "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ListPlot", "[", RowBox[{"TotCurrent", ",", RowBox[{"PlotLabel", "\[Rule]", "\"\\""}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}], ",", RowBox[{"PlotRange", "->", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"yf", "/", "mm"}], "+", "5"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "180"}], "}"}]}], "}"}]}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ "IP", ",", "I1", ",", "I2", ",", "I3", ",", "I4", ",", "I5", ",", "I6", ",", "I7", ",", "I8", ",", "I9"}], "}"}], ",", " ", RowBox[{"AxesLabel", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"yf", "/", "mm"}], "+", "5"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "100"}], "}"}]}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}]}], "Input", CellChangeTimes->{{3.424794846638125*^9, 3.424795033419375*^9}, { 3.4247952409975*^9, 3.4247952994975*^9}, {3.424795401575625*^9, 3.424795403138125*^9}, {3.424795508919375*^9, 3.42479551006*^9}, { 3.42479560059125*^9, 3.42479568802875*^9}, {3.424796194185*^9, 3.42479622109125*^9}, {3.424796345856875*^9, 3.4247963796225*^9}, { 3.424799205356875*^9, 3.4247992094975*^9}, {3.424799415481875*^9, 3.42479941565375*^9}, {3.424799600919375*^9, 3.424799612825625*^9}, { 3.4247996814975*^9, 3.424799686356875*^9}, {3.424799847013125*^9, 3.42479985396625*^9}, {3.425044396138125*^9, 3.42504440177875*^9}, 3.4250446944975*^9, {3.42504483252875*^9, 3.42504489046625*^9}, { 3.42504494815375*^9, 3.42504499659125*^9}, {3.425052742794375*^9, 3.425052768794375*^9}, 3.42505291606*^9, {3.425146476738456*^9, 3.425146492550956*^9}, {3.425146874222831*^9, 3.425146874941581*^9}, { 3.425306681503625*^9, 3.425306686816125*^9}, {3.425311146534875*^9, 3.4253112353005*^9}, {3.425311319238*^9, 3.425311322847375*^9}, { 3.42531273214425*^9, 3.42531275320675*^9}, {3.425313256472375*^9, 3.425313257488*^9}, {3.425313288566125*^9, 3.425313289222375*^9}, 3.42565147825*^9, {3.425658336640625*^9, 3.425658352046875*^9}, { 3.4256584149375*^9, 3.425658423671875*^9}, {3.42565847684375*^9, 3.425658480296875*^9}, {3.42565853471875*^9, 3.42565853840625*^9}, 3.427652733232007*^9, {3.4276530609284573`*^9, 3.427653061947754*^9}, { 3.432523452809812*^9, 3.432523501924593*^9}, {3.432563448739462*^9, 3.432563449857027*^9}, {3.433864207548109*^9, 3.433864208716193*^9}, { 3.4404342365420523`*^9, 3.44043424244471*^9}, {3.441122176941136*^9, 3.4411221973153133`*^9}, {3.441122540205755*^9, 3.441122625789896*^9}, { 3.4411226578767242`*^9, 3.4411226860159073`*^9}, {3.441127677620097*^9, 3.4411276834324827`*^9}, {3.441127739341113*^9, 3.441127808168995*^9}, { 3.441127981960608*^9, 3.441128045797517*^9}, {3.441128186416677*^9, 3.441128213359702*^9}, {3.441128358141787*^9, 3.441128359546916*^9}, { 3.4411285259023247`*^9, 3.44112852610019*^9}, {3.441128608285178*^9, 3.441128609994923*^9}, {3.441128679152594*^9, 3.4411286910788813`*^9}, { 3.4411287233249607`*^9, 3.4411287862321253`*^9}, {3.441676999938737*^9, 3.441677000191649*^9}, {3.441677898815668*^9, 3.4416779796748753`*^9}, { 3.441678011840901*^9, 3.441678070293551*^9}, {3.441678164201255*^9, 3.44167816655227*^9}, {3.441678301408411*^9, 3.44167850696513*^9}, { 3.4416787034214373`*^9, 3.441678828144466*^9}, {3.441678859028256*^9, 3.441678859635058*^9}, {3.441679000768869*^9, 3.4416790151673183`*^9}, { 3.441679108606645*^9, 3.441679145874543*^9}, {3.4416791863019543`*^9, 3.441679279684866*^9}, {3.4432098554088078`*^9, 3.4432099518170967`*^9}, { 3.443210023911192*^9, 3.4432100301980133`*^9}}], Cell[BoxData[ GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJzt1P9TFHUcx/FNKIW+eIyHg19OkC+jQCJwHF/ukH2nxshxi3DJt2CKOSNt uN29cBwkyKDRQoyC8iphxCACklP5NmXSAJJBgl2AOs5AgEhHc8SkAjlEwnW5 n33/Df3AzuzsvH56zs5j5r1Zx2szV1AU1Wp///s+fgr0YOk2rTlzLBIe7y/0 4PBBtUz6pkrYnXqg6aT2p/YrhX1HD+X5mk3jKRHCpliIq5BnRSaEC9uDhZK/ LWnD6jBhAwvuzM34+t2hws5gARrU51p3KIRdwMLtFP+lcEUI6bPgdy3DYvST kz4LLb2HtybKgkmfhau0o7f/s0Gkz8E3th0192e3kz4Hzlr+kbFnG+lzcFfq e7LL6E/6HOiuvRyX/Kov6XMwsP+6tMpnC+lzcK/hn891U96kz0G1bdJj4qIn 6XMQ1lGa55DrQfo8lN6ej/72442kz4Orb1V1j9qN9HloX8gdS/GRkj4PXtcN R7SBEtLnYUY26bFvYRXp86DW3Th1c9cK0udBe3e1advUPC30edjtxvQ1Jd4T NmUAky5rz4fUhLAlBhj88qMLBftGaNH39Izv4QvsHvRd7/qwbDEsBn1VJ17M yZuOQd/3JNZj3SVq9F19/7WeEVks+g7IpS5QGYu+qqbC5CclGvSVNvV3zB7S oK93+4P0sl4N+hprvo+XSxn0rdw10emcwKCvttpzbHshg76DI6x7Qw2Dvh3u 42fy2xj0Xci21VX9yKBvSWFzstsPDPouPRoNHG9h0Hcqs++7pc/EPgdtMamS Q7zY58Awo3xfpRT7PJzf6Ziunteg763Gik+Pfq1B3wMyh/XljPj/PERtdPpV 8Vss+sYdmNvQqo9F3+aosujASTX6pr1kWcraS7bd9yvDhvxLtcTD7tsYnbxm 2Er87L5Xuh7E/+FKtt03+NbKJKpilBZ9K1ODatvW/k6Lvv1mxiXDeZYWfQcT xp+p2LtIi77866nFQ0OO6HtVe6SqfuRp9D37y1hIc7sL+hbdWTD/9ZMr+tLy 8oCmxXXo+45V6hAQvwl9qYPTNbK0zeg7mjbQfeMTL/S1zCZa/zT7oO9zc9kN Zqet6Dudc9yq2+mHvkWc+8l1Oc+jr0nmZBmoDUDft4tzbW8cDETf0211IZlv BaFvHpU9+MqJYPRN8qxTFBnl6OscYQuNOhuCvj+3Nl5cWadA3xeeGNpy6nwo +pqGI3ovt4Shb8K7V/pyL4ej71qv/uMPuyLQl0qvLz1qVqJvxtQ5ZfGoCn1X XUrp7ZyLRN/l+7x8n5fv8/J9Fn2X7/P/4z7/CwySUok= "], { {Hue[0.67, 0.6, 0.6], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 91], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 92], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 93], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 94], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 95], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 96], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 97], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 98], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 99], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 100], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 101], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 102], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 103], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 104], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 105], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 106], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 107], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 108], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 109], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 110], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 111], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 112], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 113], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 114], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 115], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 116], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 117], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 118], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 119], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 120]}, {Hue[0.9060679774997897, 0.6, 0.6], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 121], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 122], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 123], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 124], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 125], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 126], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 127], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 128], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 129], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 130], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 131], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 132], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 133], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 134], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 135], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 136], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 137], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 138], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 139], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 140], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 141], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 142], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 143], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 144], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 145], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 146], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 147], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 148], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 149], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 150]}, {Hue[0.1421359549995791, 0.6, 0.6], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 151], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 152], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 153], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 154], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 155], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 156], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 157], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 158], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 159], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 160], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 161], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 162], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 163], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 164], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 165], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 166], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 167], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 168], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 169], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 170], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 171], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 172], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 173], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 174], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 175], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 176], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 177], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 178], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 179], InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Small], 180]}, {}}], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["\"y (mm)\"", TraditionalForm], FormBox["\"I (A)\"", TraditionalForm]}, AxesOrigin->{228, 0}, ImageSize->400, PlotLabel->FormBox["\"Transport Segment 8\"", TraditionalForm], PlotRange->{{228., 257.}, {0., 59.54399585698225}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", Evaluatable->False, CellChangeTimes->{3.4342145796800823`*^9, 3.434385202004236*^9, 3.436386197656507*^9, 3.436386651213832*^9, 3.436395613556868*^9, 3.436396817504443*^9, 3.4363969126714*^9, 3.4363971792293*^9, 3.436397300430133*^9, 3.436397559830633*^9, 3.436398752391986*^9, 3.436449865788514*^9, 3.436450221673046*^9, 3.436450329516295*^9, 3.436450489105962*^9, 3.4364508144356947`*^9, 3.440421240342807*^9, 3.440433992439755*^9, 3.4405102804636908`*^9, 3.4405203924137697`*^9, 3.440785677635889*^9, 3.441114949414207*^9, 3.4411222459797983`*^9, 3.441122718256427*^9, 3.441128084695787*^9, 3.441128230884494*^9, 3.441128396434573*^9, 3.4411285427938337`*^9, 3.441128814746563*^9, 3.441128924618191*^9, 3.4411523083245153`*^9, 3.4416775983315163`*^9, 3.441678141105877*^9, 3.4416781800929193`*^9, 3.441678524261628*^9, 3.441678962361809*^9, 3.441679036942152*^9, 3.4416793315686283`*^9, 3.441680523306233*^9, 3.4417139989068623`*^9, 3.441716613627233*^9, 3.441817417859332*^9, 3.4422557529143667`*^9, 3.4422559911809473`*^9, 3.442257479941967*^9, 3.44226158430186*^9, 3.442325363112294*^9, 3.443182869294147*^9, 3.44320996914332*^9, 3.443210047671669*^9, 3.443273334929076*^9}, ImageSize->{400., -0.0625}], Cell[BoxData["86.46615662196959`"], "Output", Evaluatable->False, CellChangeTimes->{3.4342145796800823`*^9, 3.434385202004236*^9, 3.436386197656507*^9, 3.436386651213832*^9, 3.436395613556868*^9, 3.436396817504443*^9, 3.4363969126714*^9, 3.4363971792293*^9, 3.436397300430133*^9, 3.436397559830633*^9, 3.436398752391986*^9, 3.436449865788514*^9, 3.436450221673046*^9, 3.436450329516295*^9, 3.436450489105962*^9, 3.4364508144356947`*^9, 3.440421240342807*^9, 3.440433992439755*^9, 3.4405102804636908`*^9, 3.4405203924137697`*^9, 3.440785677635889*^9, 3.441114949414207*^9, 3.4411222459797983`*^9, 3.441122718256427*^9, 3.441128084695787*^9, 3.441128230884494*^9, 3.441128396434573*^9, 3.4411285427938337`*^9, 3.441128814746563*^9, 3.441128924618191*^9, 3.4411523083245153`*^9, 3.4416775983315163`*^9, 3.441678141105877*^9, 3.4416781800929193`*^9, 3.441678524261628*^9, 3.441678962361809*^9, 3.441679036942152*^9, 3.4416793315686283`*^9, 3.441680523306233*^9, 3.4417139989068623`*^9, 3.441716613627233*^9, 3.441817417859332*^9, 3.4422557529143667`*^9, 3.4422559911809473`*^9, 3.442257479941967*^9, 3.44226158430186*^9, 3.442325363112294*^9, 3.443182869294147*^9, 3.44320996914332*^9, 3.443210047671669*^9, 3.4432733349634542`*^9}, ImageSize->{400., -0.0625}], Cell[BoxData["192.73738581492952`"], "Output", Evaluatable->False, CellChangeTimes->{3.4342145796800823`*^9, 3.434385202004236*^9, 3.436386197656507*^9, 3.436386651213832*^9, 3.436395613556868*^9, 3.436396817504443*^9, 3.4363969126714*^9, 3.4363971792293*^9, 3.436397300430133*^9, 3.436397559830633*^9, 3.436398752391986*^9, 3.436449865788514*^9, 3.436450221673046*^9, 3.436450329516295*^9, 3.436450489105962*^9, 3.4364508144356947`*^9, 3.440421240342807*^9, 3.440433992439755*^9, 3.4405102804636908`*^9, 3.4405203924137697`*^9, 3.440785677635889*^9, 3.441114949414207*^9, 3.4411222459797983`*^9, 3.441122718256427*^9, 3.441128084695787*^9, 3.441128230884494*^9, 3.441128396434573*^9, 3.4411285427938337`*^9, 3.441128814746563*^9, 3.441128924618191*^9, 3.4411523083245153`*^9, 3.4416775983315163`*^9, 3.441678141105877*^9, 3.4416781800929193`*^9, 3.441678524261628*^9, 3.441678962361809*^9, 3.441679036942152*^9, 3.4416793315686283`*^9, 3.441680523306233*^9, 3.4417139989068623`*^9, 3.441716613627233*^9, 3.441817417859332*^9, 3.4422557529143667`*^9, 3.4422559911809473`*^9, 3.442257479941967*^9, 3.44226158430186*^9, 3.442325363112294*^9, 3.443182869294147*^9, 3.44320996914332*^9, 3.443210047671669*^9, 3.443273334981311*^9}, ImageSize->{400., -0.0625}], Cell[BoxData["179.86491606804782`"], "Output", Evaluatable->False, CellChangeTimes->{3.4342145796800823`*^9, 3.434385202004236*^9, 3.436386197656507*^9, 3.436386651213832*^9, 3.436395613556868*^9, 3.436396817504443*^9, 3.4363969126714*^9, 3.4363971792293*^9, 3.436397300430133*^9, 3.436397559830633*^9, 3.436398752391986*^9, 3.436449865788514*^9, 3.436450221673046*^9, 3.436450329516295*^9, 3.436450489105962*^9, 3.4364508144356947`*^9, 3.440421240342807*^9, 3.440433992439755*^9, 3.4405102804636908`*^9, 3.4405203924137697`*^9, 3.440785677635889*^9, 3.441114949414207*^9, 3.4411222459797983`*^9, 3.441122718256427*^9, 3.441128084695787*^9, 3.441128230884494*^9, 3.441128396434573*^9, 3.4411285427938337`*^9, 3.441128814746563*^9, 3.441128924618191*^9, 3.4411523083245153`*^9, 3.4416775983315163`*^9, 3.441678141105877*^9, 3.4416781800929193`*^9, 3.441678524261628*^9, 3.441678962361809*^9, 3.441679036942152*^9, 3.4416793315686283`*^9, 3.441680523306233*^9, 3.4417139989068623`*^9, 3.441716613627233*^9, 3.441817417859332*^9, 3.4422557529143667`*^9, 3.4422559911809473`*^9, 3.442257479941967*^9, 3.44226158430186*^9, 3.442325363112294*^9, 3.443182869294147*^9, 3.44320996914332*^9, 3.443210047671669*^9, 3.443273334999408*^9}, ImageSize->{400., -0.0625}], Cell[BoxData[ GraphicsBox[ {Hue[0.67, 0.6, 0.6], PointBox[CompressedData[" 1:eJxd1ntcVGUex/Gj6yq728KkkteXjopGNNoEGAgKX0BBUWC443A7c+M6A8NF aMvLEfOSkOAtMy8d0U2zFNyyBLvMuqZrF5dUasXSKXVRS15jmq6KufTq/Nrn PPzj6+3Dz4fnOefDOM5cnmLrLwhCUT9B+OXPX788kT8Y9nXmHAuF8hdI1jmf etcRodgLNV6VD1/4MkqxBtu6Wz9cHjtT8VAkFe5Iu7E6VvFwdPu+bn1t92zF o2HUTbEGyfGKtYjWTv50wrPzFI+HuGN8piswUbEfRn71h+KQ00mKJ8GpQ2TC foNif+Tk5V/wFCUrDoBnzXuxd0amKNbh9oxnVx37mDwFk473m9dekqpYj9pL zoIJf0pT/DQipneeid1DDkTzN2d8c2LSFQfBMPrN7tXfkINhPK2tuVKboXgq zswY9MfqIZmKn8HMqOlJQw6QQ9CVmDprTXKW4lAMqHJ0r/6JPA1H3hqxctW2 +YrD4JNpbeuaY1Qcjts+/1m18x55OporLHmftWQrnoHnP3n07d6iHMUReLGs 2felibmKIyGl3ppefYkMFBgCdgXsyvvVEnCjOiZgiTlfWY/CmJ3dV57wFpX1 KGRILT9sLlAsRCMnuO1k2nu0Hg2fimkP192n9RjsyXhhsUZnUtZj4Dz8+8fF GYqFmbj8oHHIh6NpfSbsfmlhDW/Q/CyEf2uvHZ6g/DzSLBgHnW86NInOGwv/ ph26783K85VicXJ7ydDt/vR845DxeXitvlqxFIejW/f09B6k9dmY+FP/K2/1 0PpsXO2+cueLMfT850D30tBF12IVS3NQr0ntshXSejxChi0J3SPRejzen+tz /M/raX0umkxHaq9vp/W5cCa4Q7bsovV5ONQY31JMluYhYNzc9W/S9wsJqG77 Sn6H/j0pAQ+eHJ3VtYzWE1FT99nm6nJaT0SUJSXxfAatJ8FnVVdcTRitJ0Gz IHuLPJLWDahZM+7wP+8o54cBK41+B6yn6D76OpsYcfPuXsUuAzbpG6r86uj+ kpGY96/rgctpPhmVHkeFbKL5ZFQf3/ri+HSaT8axD/stTMyi+RT4n3n1o5M2 mk9B0M1R5hN/ofkUnPh8Tmb1WppPQfV2vc8J+nmEVBxqv3884SjNp+KRV5yR PV/TfCp+Ls9zXrhJ86nIvDnIWO9F50/D1cjefXV0H0iDc1Z7Z+UTdF9peGXF isfHTlXsSoP7pcaSnBk0n45b5tp+3tE0n457b4dH+sXQfDqqN4xYtwU0nw7v 76LTF9LzEDIw+qmmiHN6ms/Ax1WLl3ZNoPkMfPnAePnNITSfgWGzKwM3CDSf icwIyzLPNTp/Jr5ffD0k4jSdPxMP/7ti2aR2On8mdJM+vbRGpvvLQsq1kXNa V9J8Fi77BieGVNB8Fq56e0ZU5NN8FixBPl+8SM9TmI/60LgJlzJpfj6GfXs2 ZKOd5ufjhH/Pgse20vx8RGla4ypep3kj9tQv+t7/HM0bcUAXfnv+YDq/Ed4B p04NjafzG/GdsdHvKPUmZOPClZiLww7S/WVj5oGSwtuXaT4b9VnXhcrByu9r VzYMp7v7HZlGv79zELZDlx+RrRg5ONRgfzq3RrGUg+324qUHVtN8Dp47+8PF a5toPhfdpzbWdW6j+VzUN3rFGbfSfC6G6PfeWbye5nNhW33xqYJlNJ+H0qqq aUl2ms+D76NvdW9MpPk8xNeea/lbAM33uS0kNbwfzedDyr684tIpOn8+okfV jV0u0/nzsfBco2lUKd1fPm69eiGsM4juT4T3jy9nju5V7l8roqL45KzdH9Pz ELE9uDt47TrFooj+PYvKVjbT8xUREDMgRKhXLItwqnoX0cH27hYxhu1dMEHH 9q414QjbO0woZHsXTXif7V0ywYvtXTbB38n2bkIl27vbBA/bu2CGle1da8Y7 bO8w42QD07vYZ7Z3yYz2TqZ32Yz4TWzvZiSyvbvNmMb2LlhwjO1da8FZtndY cC2O6V20IIntXbKgh+1dtkC4y/ZuQTDbu9ui7l2w4gbbu9aKXrZ3WGFmexet 2MX2Llkxiu1dtnK9W9W9u63q3gWbunetTd07bOreRZu6d8kGM9u7bMPzqt5t mMz27u5bZ3sXCrCR7V1bgBwH0zsK0PxvpnexAL71TO9SAf6xkuldLsD+KWzv BXi0nundXYB32d6FQkSwvWsLYWF7R98627tYiHVs71IhAtne5UIsUvVeiAFb mN7dhbh3g+ldKMJStndtEXazvaMIg177IPs56lUsglH1+V6EKu979/Pp/ZCL sOaSf1QSvR+uIjzYuSDmazM9/yI8eWR80F76/5hQjEc+abg7YzXtX4ywsa9c /PsO2r8Ym02OPWfbaP9iOH+eGlz3Be1fjPc9tV73umn/YjQn7LzZQudzFWPw 5M11z/jQ+Yth+2B/b9hY6q8Ed9r/OnCJjt6/Evy4XhN55hl6/0qQ8+mriSMi 6P0rgfb+xIGhv/VfgjZV/yUYqU+ee+63/ksgLhzfaQmn/UvQnnBk8slA2r8U u4eH+k59nPYvRde+h34fDaf9S7H326sjdgyi/UthHXU4ddwtOn8pGtbqH2w9 T+cvxfmvd1U0Hqfzl+KJ0IPNW1vo/vu+P7Bq8Wub6P7taLs1q+UDie7fjp7U bY111DPsuD026Nrvcun+7eg/8uz0ofS8JTsO7nbsc9H7I9uxOb50w4pvaH87 3mB7d9vVvQsOde9ah7p3ONS9iw5175IDC9neZQd0bO+uvnW2d7cDL7O9C2XI ZXvXlql7RxkeY3sXy3CU7V0qU/cul2Ew27urDIfY3t1l6t6FctjY3rXl6t5R jvVs72I5nlZ9vpejju1dLsdD9vPdVY5etnd3OZaxvQtOHGR71zgxkO1d61S+ T/nScwZnA2eRs5OzxLmJs8y5lbOLcwdnN2cPZ6FCbQ1nLWc9Z3A2cBY5OzlL nJs4y5xbObs4d3B2c/ZwFirV1nDWctZzBmcDZ5Gzk7PEuYmzzLmVs4tzB2c3 Zw9noUptDWctZz1ncDZwFjk7OUucmzjLnFs5uzh3cHZz9nAWqtXWcNZy1nMG ZwNnkbOTs8S5ibPMuZWzi3MHZzdnD2dhgdoazlrOes7gbOAscnZyljg3cZY5 t3J2ce7g7Obs4SzUqK3hrOWs5wzOBs4iZydn6f/+H2lX8lo= "]]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["\"y (mm)\"", TraditionalForm], FormBox["\"Current(A)\"", TraditionalForm]}, AxesOrigin->{0, Automatic}, ImageSize->400, PlotLabel->FormBox["\"Total Current in Channels\"", TraditionalForm], PlotRange->{{0, 262}, {0, 180}}, PlotRangeClipping->True]], "Output", Evaluatable->False, CellChangeTimes->{3.4342145796800823`*^9, 3.434385202004236*^9, 3.436386197656507*^9, 3.436386651213832*^9, 3.436395613556868*^9, 3.436396817504443*^9, 3.4363969126714*^9, 3.4363971792293*^9, 3.436397300430133*^9, 3.436397559830633*^9, 3.436398752391986*^9, 3.436449865788514*^9, 3.436450221673046*^9, 3.436450329516295*^9, 3.436450489105962*^9, 3.4364508144356947`*^9, 3.440421240342807*^9, 3.440433992439755*^9, 3.4405102804636908`*^9, 3.4405203924137697`*^9, 3.440785677635889*^9, 3.441114949414207*^9, 3.4411222459797983`*^9, 3.441122718256427*^9, 3.441128084695787*^9, 3.441128230884494*^9, 3.441128396434573*^9, 3.4411285427938337`*^9, 3.441128814746563*^9, 3.441128924618191*^9, 3.4411523083245153`*^9, 3.4416775983315163`*^9, 3.441678141105877*^9, 3.4416781800929193`*^9, 3.441678524261628*^9, 3.441678962361809*^9, 3.441679036942152*^9, 3.4416793315686283`*^9, 3.441680523306233*^9, 3.4417139989068623`*^9, 3.441716613627233*^9, 3.441817417859332*^9, 3.4422557529143667`*^9, 3.4422559911809473`*^9, 3.442257479941967*^9, 3.44226158430186*^9, 3.442325363112294*^9, 3.443182869294147*^9, 3.44320996914332*^9, 3.443210047671669*^9, 3.4432733350216417`*^9}, ImageSize->{400., -0.0625}], Cell[BoxData[ GraphicsBox[{ {Hue[0.67, 0.6, 0.6], PointBox[CompressedData[" 1:eJxd0G1olWUcx/F/JjJJ5BQ2RUadhUyT0TnuueXaf9Ntzjk9rpruwXm5+bS2 5kmbFAu8cCSzV2dBoJF1F0YQludF9CBF14iysNp5oYFi7g4psiCOZCYTIWLX iPO93tx8rh+/+3dzF/bua9s1R0T23iXy33PmZGtfT7iDr86dqvUX+sO1w+2t +7PeedoebTGxgmnviI5Mniob7pujM16kw6c6knk1ed5LNJG3ZKD7jYXeBdp5 9tx7O7+6zzuqZ81Q/8ThfO+HdDQ1v/H82FLvZfrX/NF5xRcf8C7S05mpt06f KfReoYmK4djLsWXeK/Xr5u/d3d8VeRfrkWXjE/PGH/Z+RD84uaju6KFi77hu f/+jI0ePxbxXadXpBR+PDq3yLtEdb750/52iUu9SHbna+2DhzTLvMr2nsutc y+UK73Ktbrp++9OLVd4VeiN/cvrFP6u9K3Xssm4dXFrjXaWLizrK87fVej+q RbG+qz9eUu9qvXLmn89G7q33fkwH7KEvj21e471a09OR3bePr/Wu0W9vna9c cK3B+3G907/HfLi6ybtWq3v+MJWvrPNW/Xzxz6PTvzTP2Kp2L3zthVhpi8/r 9MhP+eWbD2zweZ1OVP92qf1Eq8/rdXrON7cGTm70eb1+Mnfq3QvDm3y+RqvW l/ze9be3XaPtVZ2T4c3ZfK2eWNH0a1XJbL5Wx66PL29YOfv+Bj3eduHtkRv+ e22DxndKz5l3Zv9PoxYs3zJ45fnsFzN5o7+fPU25trCsQw5LM3JY1iOHpQU5 LBuQw9KKHJaNyGHZhByWRK4VtrCDZTP6sIUdLG3owxZ2sDyBPmxhB8uT6MMW drA8hT5sYQdLO/qwhR0sW9CHLexg2Yo+bGEHSwf6sIUdLJ3owxZ2sHShD1vY wdKNPmxhB8s29GELO1h60Ict7GDZjj5sYQeLyXUUVtjAFg5gB4ew7MA+rLCB LRzADg5h6cU+rLCBLRzADg5h6cM+rLCBLRzADg5h2Yl9WGEDWziAHRzCsgv7 sMIGtnAAOziEZTf2YYUNbOEAdnAIyx7swwob2MIB7OAQlr3YhxU2sIUD2MEh LP3YhxU2sIUD2MEhLE9jH1bYwBYOYAeHsAxgH1bYwBYOYAeHsAxiH1bYwBYO YAeHsDyDfVhhA1s4gB0cwjKEfVhhA1s4gB0cwrIP+7DCBrZwADs4hCWZ6wgc heOwwgnYwEnYwik4gNOwgzNwCGdheTbXETgKx2GFE7CBk7CFU3AAp2EHZ+AQ zsKyP9cROArHYYUTsIGTsIVTcACnYQdn4BDOwnIg1xE4CsdhhROwgZOwhVNw AKdhB2fgEM7C8lyuI3AUjsMKJ2ADJ2ELp+AATsMOzsAhnIVlONcROArHYYUT sIGTsIVTcACnYQdn4BDOwnIw1xE4CsdhhROwgZOw/d//AkfxBbI= "]]}, {Hue[0.9060679774997897, 0.6, 0.6], PointBox[CompressedData[" 1:eJxdzXuQjXUcx/Ff2CzrcixLastxma1ls4eQa77srrWWdZBbicdlEYtTW5ph 1G/DoM102moXXTybpjEVjmZcMqZ+a0lDW4tYqskzNSwxdZguqpGm2edXs+/n n2dez/v5zqfrnGUTC5sopRbeptS/74YnPnz6gfohtz7uK/4HieaWDHu9xjpR itd98emUc9YBqUi9vDLle+sOUnmqw/6j9dZ3yJsd27236EfrVElLS8lK/M9B mZS6/frei9bdRBKupm/2rHtIZGh15bd11mmS1KnE+ehz6/skvnrbqsgn1j3l hZ+dd8bErDOk7c6yaeVbrXtLadHGZu9utA5JrO61czUrrPtIfmTtS7MXWPeV lEOrkz+cZP2AdDnbKjNJrPvJzOWLxu7OsO4vswsvZJ3vbD1AliX8NPNwc+sH RZc20c//1sf3QHnr60uRjIvWg0RPfjX78BnrwZI9YOD7gz6zHiLHNpc1WXjA eqiczCw50X6H9TBp9V3TQfVbrR+Sun5ndhWVWQ+X/ITWbZqvsRZptmFH5EKx by1Skl65K+7YPkLSthw4tDPP9hEy9/TBxI4Zto+UAdvM9ZwE20fK2dJQi+QT Ib9nycq2ud7gDb51lrT+4ciNlj1sz5brda1mLO6e6fdsmVx2Knh5yf1+z5FN s7YMq6zq6fcceeZ0VfuKvDS/j5KmGS/W7bl6l99HybTc37sUd+vq91y5dXFt yZ/lQb/nysuLyyvaNfOtRsuR/TU3lp68x++j5di+9PE3S+/2e55E10w40b1f qt/zpLZN0cHiY3f6fYwkd0qsOVLQ2e9jZHtSZtfcqk5+z5ek6nkF67p19Hu+ rLnWovP64g5+HysV+z4o/XJPst/HSmx1YfmqKwG/j5Oqv6qra3q38fs46XV8 d87SFS39XiAHexxVQ6tv93uB7Hg7PTMlpanfx8sf82a9ceXm38Mb+ngpOv/L /E333miwCstXz/U53qvuWoMlLFt+bbJ3+SuX/P/DMrXL7d/U9z/fYBMWWV95 +dnUU/79BH/HfwTWsIHVRNzDGjawmoR7WMMGVg/jHtawgdVk3MMaNrCagntY wwZWU3EPa9jAahruYQ0bWE3HPaxhA6tHcA9r2MDqUdzDGjawmoF7WMMGVo/h HtawgdVM3MMaNrCahXtYwwZWTmMHYYEdWMMubGAPVrOxDwvswBp2YQN7sJqD fVhgB9awCxvYg9Vc7MMCO7CGXdjAHqzmYR8W2IE17MIG9mBViH1YYAfWsAsb 2IPVfOzDAjuwhl3YwB6sFmAfFtiBNezCBvZgtRD7sMAOrGEXNrAHq8exDwvs wBp2YQN7sFqEfVhgB9awCxvYg9Vi7MMCO7CGXdjAHqyKsA8L7MAadmEDe7Ba gn1YYAfWsAsb2IPVUuzDAjuwhl3YwB6slmEfFtiBNezCBvZgFWnsAByEQ7DA YdiBI7CGo7ALx2AD18IeHIfVE40dgINwCBY4DDtwBNZwFHbhGGzgWtiD47B6 srEDcBAOwQKHYQeOwBqOwi4cgw1cC3twHFbFjR2Ag3AIFjgMO3AE1nAUduEY bOBa2IPjsHqqsQNwEA7BAodhB47AGo7CLhyDDVwLe3AcVk83dgAOwiFY4DDs wBFYw1HYhWOwgWthD47DanljB+AgHIIFDsMOHIH1//4HIWNTUw== "]]}, {Hue[0.1421359549995791, 0.6, 0.6], PointBox[CompressedData[" 1:eJxd1HtwVNUdB/AjSWxMeWyniKlkYPMglqebJgYRhW822ZCQhGzeD4VeQB4R CEuMUKjC0cAEH4yJ2EEB4+0IFoOE1DItHVCPVihUx0aFAQKktxXo8JLIgK1t x3Q6/M509rv/ZD75zne+s3fvOcnzlpcvGKSUWnybUv/7e+vTPz2vqnPYxIkj IP9AwdIhU65kjBHH40JX8npv/iSxD/sSv6xvnZMpHo7GQylfrk6fLE7EPcNP tse3PyBOwn68XB+38yGxHwOh3WmRLIhTsHfpkil1K3LEadhxomZL6gtBcToC p/54vr01V/xjjN8z7Eb+wjzxOHRWfL/oyLiQeAI+PB3M0iesJ+F016rQ+435 4gDey2hY++516wwcWDz39m0LZoh/go0JO7c4R60zcax+1K6B0QXiLAz8eY5T vsT6PtSPSW0eucc6G9U3Xv067u/Wk/Hri+tH7by7UHw/9p7//c+bC62n4PWB DfEnm60fwKiTWV5Sh/VUbCuPKVlz2PpBvB2+ueyH16wfwj17Pmn/NnGmeBo6 a6833Ruyno7kw9+072m2Bl74KGnw4l1iDRzOT2qp/qvNc+DNHTdknb9I8hyc e3jVF3GLxCqI3icPFuT91uZBvLK6MXx1WLHkuXhr44HXC1aKdS7O/6EuvPWK zfPw7Ss3286tKpE8Dy8feHb1Cv8syUP4x4nX/lN8U6xD2Lx1wbpdCWHJ8xE7 rrcg5oJY52Pqd7uX7ssuk3wGdItX1327WM9AUfKpI4dO2n4BRuducp942/YL 8Ld5badnPG3zQsQcu9jwcbXNC/HR8ye++sUEm8/EZxMTynMH2Xwm8lf+KPtS V6nkRXi3JTvxjRqxLkJc84t/if3Ofr9ifL0v5c5Fv7Tfrxj12xOnJefYvASt vnXehjP2+ZQg/o7RlWeaxGoW3ljopNXF2HwWfNOC+4dvss+3FDl9TWcHhtrn X4qWMb17j7fa3y+M7akdKQnfyO+NMOYXB9P21dj3IYyrv3vz8opOeb9MGH2Z ztzQZfs+l6GvcHAwXCJGGUpeyg1sXy7nRZfB2/L00Ge3yfkyZVgzfvbog5/a 81iOg+mPBYq+J0Y5rnUkNO7IlfOsyzH/xTOnnnpGzrspx4iuLX1HPwxKvwKf j32+cG+MGBVYVnCsqSVP7g9dgW3bH33n0Hq5X0wF3loz+J/ZG6dLvxKl/86o fjV2mvQrcfVXI2evW/ug9Ctx9PPxxy/dlPvLVGLS1vTNdyyZIv0qpLZ2Zk7o k/sOVbi29tL1g6XZ0q9Cc8fmhskmS/pVuLDoyNSUgL0vq3H50yvxg90M6Vfj WNfKCZt8AelXo2n1v4rc2InSr8bZhjt3hK6MlX4NNhzpuCu9N136NQi+75zN /CxV+jWoGnL3/t8c90u/BrE6Le+L0yOlX4sLk352LiFf7nvUYveTH2z6U+wP pF+LUM2ItPueipd+LXp3DUofUqWkX4dQ3Bmno/7G9Fv9OjSNfW32m89dvmVd h8obQy8mvfPVLZs66dlPfbRB1mRDVg9Tn6zJhqweoT5Zkw1ZzaY+WZMNWc2h PlmTDVn9lPpkTTZk5UTbTwbZIWuySzZkj6zm0j4ZZIesyS7ZkD2ymkf7ZJAd sia7ZEP2yGo+7ZNBdsia7JIN2SOrR2mfDLJD1mSXbMgeWS2gfTLIDlmTXbIh e2S1kPbJIDtkTXbJhuyR1SLaJ4PskDXZJRuyR1aLaZ8MskPWZJdsyB5ZNdA+ GWSHrMku2ZA9snqM9skgO2RNdsmG7JHVEtong+yQNdklG7JHVktpnwyyQ9Zk l2zIHlkto30yyA5Zk12yIXtk1Uj7ZJAdsia7ZEP2yGo57ZNBdsia7JIN2SOr SLR9ZD85QAY5THbIEbImt5FdcjfZkHvIHrmfrFZE20f2kwNkkMNkhxwha3Ib 2SV3kw25h+yR+8mqKdo+sp8cIIMcJjvkCFmT28guuZtsyD1kj9xPVo9H20f2 kwNkkMNkhxwha3Ib2SV3kw25h+yR+8mqOdo+sp8cIIMcJjvkCFmT28guuZts yD1kj9xPVk9E20f2kwNkkMNkhxwha3Ib2SV3kw25h+yR+8lqZbR9ZD85QAY5 THbIEbL+v/8LTE3JmA== "]]}, {Hue[0.37820393249936934`, 0.6, 0.6], PointBox[CompressedData[" 1:eJxd1X901XMcx/GPNcUpzBHiiNuEVeIqK0n2Jluztrq7293vH9+tXzR0I9ER 58M/HWpcjqUj5rt0mKhNxwkH+XAck3K2o0UifVc2lGrnCJV0HGefz3Hu8/vP zuN+zmvvc77f1+fzGVW/KDovRSl11xlK/fd34OnPUsmPJPMsOA0eDo+AL4ND cDo8Gr4azoDHwtfC18Fh+AZ4AjwRvhHOhCfBk+Gb4CnwzfBU+BZ4GnwrnAVL sjWsbsM6rG7HOqymYx1Wd2AdVtlYh1UO1nOkZ9zoUM2EXz8e+GGGzJv2at7E 1j8Heq1nyEHTVNm8eqjN5cr6BY2PnVl44YB1rjSvqVm6Pt/19E5JHbKxvW/+ KLt+p3Re/tqj2YtdL/PkjawrCz6beY1dz5PfTi/vHHVqjF2fKcNeGrxl7Qrb Qz1TXl+XdWPK766H+TLi9RNtc1tsD3W+nH2ormHVR66HBZKf/cvZhzttD3WB PDZ3+dH6Pa6Hs+RkaVnzez/aHupZ0vjDvvSNP7oezpaGe7duOPm97aGeLdOn 5q2o3u16GJGWPasPrt1leygReeP9qs+f3mV7qCPSOjSr5No9tocmIrp723lN va6HhaIbM3YsabE9lELZcPyii1M22R7qQun5+u5Ntz1ne2gKZdf2Yw9llLoe RuWVjkOx5jNs7yQqmR+3F60tsNZRubR0284pz1qbqBy5ZMSu9V+5nhZJ84LP wq8Osr2UInmhPvtA20RrXSR/fJWYfU6NtSmSJ1L++aX7CdfjYimPTBqfus7l i+Xoh1cuX/GByxfLt9HUy6Z3unyxvPLwpMZL97p8TA5fkDPpz59cPiafDllT 39Hn8jGpa6l/8qn9Lh+Truc7umfsdvkS+bntSN/5X7h8iSwcfKwnZbPLl8ia pdEPJ692+RL54dTkQ9uWuHyp9O4cMrejwOVLJfVb70DGKJcvlccnTJnx+RH3 /kpl1e4xL+Ruce+vTPbtLxp2yUPu/ZfJy/FWlR92779Mlm35buywT+z3MmWS 3nk4dfNQ9/3K5a8H5szJmGq/r5RLYtMXKwfnuu9fLsO6X+5Nz7D9MOUyaNW6 kcMXu/5USFZWydbBc2y/pEJeXJ5/eU+Z61+FzFo7seGWQttPUyGNJ3orv89z /a2UKwq6I6132H5LpVz0Zt6Gd6bZ/utKCcrGnb4p0+4PUymxbV5v01i3f6ok 58sHM2Ij7f6SKvkjK3X0uHPs/tNVcuzUtPX9v19v81UyJbboVFPHeJuvlken jl35adM4m6+W7EMVs0pr7f7X1ZK5cMfwlqvs+WCqxW/9e039QXd+1Mi5p/tC B9rSbb5GqrYmHhm0zN6Lukbqvjme8+5z9jwyNfLimJZ1HXnuXq2VnhPL9pVd Ze9dqZV/dsQfjobtvaxr5YORfaHik/beNrUSrdv5fPf0FJv35Lu+894af/D4 wPkY8iRxfsH2t2NHByye3FrekPu0OjBgz5Pj7zyzSRfvteepJ5nemO37234a sO/Z/2sfAwewqkt2CBbYgzXswwYOYFWP+bDAHqxhHzZwAKs5mA8L7MEa9mED B7Cai/mwwB6sYR82cACreZgPC+zBGvZhAwewmo/5sMAerGEfNnAAqwWYDwvs wRr2YQMHsLoL82GBPVjDPmzgAFZ3Yz4ssAdr2IcNHMBqIebDAnuwhn3YwAGs GjAfFtiDNezDBg5gdQ/mwwJ7sIZ92MABrO7FfFhgD9awDxs4gNV9mA8L7MEa 9mEDB7BahPmwwB6sYR82cACreLLT4BAchgWOwB4chzWcgH24HTZwFxzA/bBa nOw0OASHYYEjsAfHYQ0nYB9uhw3cBQdwP6zuT3YaHILDsMAR2IPjsIYTsA+3 wwbuggO4H1YPJDsNDsFhWOAI7MFxWMMJ2IfbYQN3wQHcD6slyU6DQ3AYFjgC e3Ac1nAC9uF22MBdcAD3w+rBZKfBITgMCxyBPTgOazgB+3A7bOAuOID7YbU0 2WlwCA7DAkdgD47D+n//C67RpGc= "]]}, {Hue[0.6142719099991583, 0.6, 0.6], PointBox[CompressedData[" 1:eJxd1n1QVXUaB/Cfb5kGdg11XcG4GDEaVlfJNFH5hmiBa1zeXwQ593JZMTWu WVZbtj97Mc1huqyzaUvpqUjSGrpKf9jk1C97U7O8rtFOJXqcdIuypDJy0mp3 h+fMzv2ef5jPPDw8l3vO9zm/tGBTccNApVTjAKX+97P/6s1R8RfieSnZQx5F HktOIXvJE8jp5AzyRPI15Mnk68g+8hTyVHIW+QbyNPKN5OnkGeSbyDPJ2eRZ 5NnkOeQcMuKtyepmqpNVLtXJai7VySqP6mQ1j+pkNZ/qZHUL1cnqVqqTVT7V yaqA6mS1gOpk9Seqk9VCqpPVbVQnq0Kqk5U/3iBrsiGrIrT//viJQ2O+6d8b KEJt5Ia3eyae7bcuQkpnINrQeb7fpgir971x8EBokPydYszZdqE5JzOh3yhG Yu6ppC1XJPVbF2PHiyuGrr9P9ogpRnr7xrLkSVdKfwkGRLaVpw+ZIP0lKBp1 5fNtl1wt/SXo6Bp//ytJsidMCYKtU2c9NTFT+kuR937biH/myl5AKfp+fHTA 7KjsBV2KnmdPRy6D7AFTitEv77w4NebugTIcPba9IdWS3KMMd9/8cd68s5J7 XYbWcOKhtDWSc1OGXX2dTTnD3FyXY0/z6qtmb5JcoxwrklpH/2uc5FiXY+WH B/rObpMcm3J8NqPds3Ckm9MKtPd9khI5IkYFBv6c9vdLWiSnugITZ3105I/+ XOmvwKEvvjxQfbmbw0p89U3xpHWHxajEkxuHFmxokRzqSqR1Tzm0vlxyZyqx vfSWD3tS3ZxV4ftPutLqzopRhZy+ysjF9yRnugqvZy4dUrJDcmWqMG50X8uv 090cVSN7w7x77j8jRjXWeXoeea9ZcqSrcXlv6P3u8ZIbU40jWaNGYqubo0XI 3rW2YohHcoNFGLsr9uaPq8R6EdLf+L6m5aDYLMKmtr3+rFFujmrw/NwvzPAi MWpQ+NyEE9evFesanO5ekfpSm9jUYGfqyWceeN3tr0X+8t/bn33X7a9FTO+u GPu221+L7ovHfSc73f5anG/44LXfNrv9i7Evv8qzqsntX4yVP8x8LHum278Y HbmDawrOu59/MQ5HW598cIe7J+qwZPygcf9Y6P7/dZieMuzYtFPy/eg65C85 l/zqcvf7q0PHnJb5vn+7e8pCYcnp35YVir0WXggnP7Bnu3s/LHTOr0j6vEfu n2XhRH5Crn+hWFso+Ntc39NNcr9tC87mtSM2tMrzYCzozNrUvR/J8+NYeDXj dt+Coe4eD+DLrcPvaJsrz5s3gLonjn265iH3eQwgoWPz8QP7cmV+AF2TNua/ MkisA2i89eM7H86T590O4J2nQ7vffUTyYALo/kvC+RvXy3vPCWDZhSnlTw12 34tBHG9Prv3rg/Ie9QaReDSz6+ufJJ8IIn1LxqZhy+S9bP3399ftzJp8XN7j OoiB+7/+YW+h5N0O4mTbpqXTjZwLTBBrG/dnT/DJvnCCmHH4zKUJtnvOqMfJ jtWTmz2yb7z12HLfLwvswdfK/Hp82zi6bd6ZSTK/Hg37t/4h4zM5B+l6lL9p dWcduUrm1yOYOG5PZ5ecq0w9Qjo97+jnyTK/Hueuu/fU8PljZH4IBWveaj44 eKTMD+GuqjHp09bIOQ8hXHhxYEZimZwDrRDWDT9mba0+J/s9hKGTn6nd/rjs fzuEinMjelJ2fyf7PiRz5HLIqiHeXjLIFlmTbbIhO2T1Z5pPBtkia7JNNmSH rJbQfDLIFlmTbbIhO2TVSPPJIFtkTbbJhuyQ1VKaTwbZImuyTTZkh6xup/lk kC2yJttkQ3bIahnNJ4NskTXZJhuyQ1bLaT4ZZIusyTbZkB2yWkHzySBbZE22 yYbskNUdNJ8MskXWZJtsyA5ZNdF8MsgWWZNtsiE7ZBWOt4fsJfvIIPvJFjlM 1uQI2SZHyYYcIzvkXrJaGW8P2Uv2kUH2ky1ymKzJEbJNjpINOUZ2yL1kdWe8 PWQv2UcG2U+2yGGyJkfINjlKNuQY2SH3ktWqeHvIXrKPDLKfbJHDZE2OkG1y lGzIMbJD7iWru+LtIXvJPjLIfrJFDpM1OUK2yVGyIcfIDrmXrO6Ot4fsJfvI IPvJFjlM1uQI2SZHyYYcIzvkXrJaHW8P2Uv2kUH2ky1ymKz/7/8AW4q9jA== "]]}, {Hue[0.8503398874989481, 0.6, 0.6], PointBox[CompressedData[" 1:eJxd1ntwTFccB/AjyVDFdE1Tj1a4Eirx6iJCvPLzijSEFSKPzePuO0prvaU1 naPTl0farVJK1Y1mSGljPUbHYzhMRhCSkHSiTOoGiaLYQVWV6nT23Onsd//J fOY3v/1m7p7d7+lpn5fuCmOMFbZi7L+/wVcgiYW+KJQvgE3gSHAXcDewAo4G 9wK/Do4F9wX3Bw8Em8GDwIPBQ8Dx4KHgBPAw8HBwIngEeCR4FHg0eAw4CUyh 5mA2FuZgNg7mYDYe5mA2AeZgNhHmYJYMczCbBHMwS4E5mL0JczBLhTmYTYY5 mE2BOZilwRzMpsIczKbBHMwsoSYwBwswmw77YA4WYJYO+2AOFmA2A/bBHCzA bCbsgzlYgFkG7IM5WIDZLNgHc7AAs0zYB3OwALMs2AdzsACzbNgHc7DIJi17 0PbDnW7Insmhquq0juqLD4KmHKqZ3tR+87RnQfMcmu3OXnXpUkTwfUQOHU1f VlLW2E6+r5W+qbkSv/dox6DJSq9deVL9x6lXguZWahe/aeCeZ13lvpU6344M H2jpLvdz6aD799Ioa0+5n0tf554/WfdljNzPpbmBjJt3q3vL/Vy69+eCXdVt jd7Jow07P75pHyd7h/KourjH6q5LZe/wPLoT3bb5/HbZOyKPMlYWPZ9daPRO PvU8vCPe9a7sHcqnCWzBhfyVsnd4PsVH7xj66XrZOyKfYhKfJ4zZavROAR3c 79/dZofsHSqgrFaX+qz7UfYOL6Cyy4lnDu2TvSMKaPIHx6uKDhm9o1L/mNqP Hp2QvaOodNda5nu/WvYOqZR8a+eIVb/K3lFV+rA49uyiEtk7XCX/406dw8pl 72gqNV+YXT52rewdoVJD1cOlsZmyd3SVSitvZ3zbyugZG4045p+xOU1asVG3 zNN1iV9Ik43ud+3yc+k5adVGWz0V5u/CZQ9xG22yT7y2e4i0ZqN753zTOuRL CxutCHv2W/0H0rqNMi0JAyK2GT1mp/tHYpZ/clhasVNdekS38TXSZKeKZQnF rzZKq3Z68HJywqPrRr6dBoVvtFe2GPl2YiX2lauuGvl2qlxXWT/popFvp5bd d1s6njLyHTSn9cOmsL1GvoM2Lkk/MuwrI99BN54Ou316kZHvoJa6Ns7KNCPf QeEN6rXYnka+g1YMTpx08q58XsJBay7GbUg5IK07qOnqjPZdlxrP30lbvGVs itl4/k5adOCXvu2Py8+LnBRTcydibztp1Um3FzocsSPl58udVFx+anXrFOPz d1L7+i3N0bHyfAgnha/ZFhU5X54f3UlJSbOOtnYY9xoXbVo+pXtTlnH+XDR1 85A5o6bL80kuKv6r2Xo5VZ5f1UU90uotZROM8+2isbtSd+4fLc+/5qKGrH7/ DB8qvx/CRf1Oq83r+8rvj+6ifWcWx2ZEGfc6N1UkRfTq10F+/xQ3HXw+ujTw 4A2Z76YO6fOerq8cIPPddD0ybvWJ9f1kvpsKT+dMzSyIk/luanCcjSzp3Ufm u+nRrr832m/Je6zupu3PW5Rru6NlvodSj/neCy+S92DFQ5sbHif/tFbek8lD CXEl2ypT5T1a9VDjk6IrWb3lPZt7yHrWuyzdLO/hmoduRLUoM5/Ie7rwUC9H 3br68WEy30P3rr70w4Bbj+XvbyFVdEmr2pNxL2ilkCbmz0n5jF2Tv8eFNOH7 z8v5zMag1UL5f8sXB2tgAdbBbHaoFTCBVTAHa2AB1sHsLcgHE1gFc7AGFmAd zOZAPpjAKpiDNbAA62A2F/LBBFbBHKyBBVgHs7chH0xgFczBGliAdTB7B/LB BFbBHKyBBVgHs3mQDyawCuZgDSzAOph5Q20CK2AzmMAWsAr2gjnYB9bAfrAA 14J1cADM5ofaBFbAZjCBLWAV7AVzsA+sgf1gAa4F6+AAmC0ItQmsgM1gAlvA KtgL5mAfWAP7wQJcC9bBATBbGGoTWAGbwQS2gFWwF8zBPrAG9oMFuBasgwNg tijUJrACNoMJbAGrYC+Yg31gDewHC3AtWAcHwGxxqE1gBWwGE9gCVsFeMAf7 wBrYDxbgWrAODoDZklCbwArYDCawBayCvWD+v/8F376yhQ== "]]}, {Hue[0.08640786499873876, 0.6, 0.6], PointBox[CompressedData[" 1:eJxd13lsFHUUB/AfVsqh0MUCctppOURAWTkK9KCPIggIsi3QgoDM3mfpAlJj UPMjUeQQ3WK8gNIRGrAYwhY0Sjj8RSLYArIlihoOR+UQUVrAVKK1qNm3Mfud fzafvLx5uzszv+9vMh3lxe67hBC+dkL89xk/mgtE8kHJ7Ai2gLuDe4H7gTVw FnggeDB4CHgoeDj4EbAV/Ch4JHgUeDR4DDgbPBY8DjwenAPOBeeB88ETwAVg SrYEi4lQB4tCqIPFJKiDxWNQB4vJUAeLKVAHi8ehDhZToQ4W06AOFtOhDhZP QB0sZkAdLGZCHSyehDpYzII6WNiSTWAJVmBRBP1gCVZgUQz9YAlWYDEb+sES rMBiDvSDJViBxVzoB0uwAosS6AdLsAKLUugHS7ACi3nQD5ZgBRbzoR8swQos noJ+sAQrsFgA/WAJVmCxEPrBEqzAYhH0gyVYgcXT0A+WYAUWi6EfLMEKLPRk a2AC6zoNaVv3/Yme1+L7BKmT59XRR64OaYrb0OlCnT3q3nc7bqXThCOHG+pd KfHzmDqN2/rXhoJh9/J57XRw4sX0d+5Lj1uzU9H7ZR3WPMf7BrKT3LF+bt+H Hohbt1N6pLpkYPusuKWdxnV/YHtN6qC4DTuVn+m/ck867wuUnU5tHpn37pBh PN9OTxyr6Xq6MLEPcNCJWy+3y4/yPkBzUMa2S5F7iHOfHPRa7a7WkTHOfd1B z5zb4c7QOeelg1at+eqxyU2c84aDplR0OZH5Aue6ctCwP/aVF3TiHDcdZG6o GJD/RiLHneRM39zjmz6c25qTAifrW5qqObfJSXXjdlpmduNc1p20teVMv0gj Wzop5Y/MN1MrOZcNJw3O+7Kxt62Q5zvp1E9X6p9K49w1nXTpWvFDq08lcthF W9Z3mL62knNXc9Hg84+eWFPCOUsu2j7n8ZNXMzhXdRe1nfk6c3ETW7qIWuZF Wo9yrhouOjDM3352LeeoclGfHi2Vf4/l3DRdlLt28rMrf03kqJtWW66+dHQD 56bmprRm17Hz/TknyU2No7p3o61s3U25datK21s4J6Wb0utin95azjbcNODw jYWVDWzlpjdrDtpGdefcNN1UNekn1bkokaMeKtqW9f2IVWzNQ43nyzI+qGGT hw5l/FD1/AG27qHby+7sfO9ztvTQ+lV7S3sdYRseam29YP1hH1t56Ir7+P62 txPzPfTxtPmW5eWJ+V4K3cx5JTcnMd9LtYV3L5x+m78/eSkW3fzWi7Vs3UuO /il9Ns1M/H4vje3X6dyYi/z/GF6a6v2974chtvr3fBMqp1gv8/9reql49qW2 4KzEPsVH1eG+z3+yg6+H5qPdU0rTz17l60c++uizG7ZrPdi6jwo2TrJuKefr LX10wDniy/qdfD8YPtqbuSD00mW+f5SPyv+snjF8KNv0Uc/rx+p9SxP7PD+V 7eu4su8Bvh81P50c0HtgaSqb/FT3XVH+/OJCnu+n7G93Z7+8le936adbvb44 rf/Cz4Php6qVaVrlGLby0/EPFwX33OHnyfTT/LrRVzI2JvbJAWr4cfj4eVm8 j9YCVDXnyhJXlJ9XCtCmZcdXLM3jfbkeoOpOqblHj/I+Xgbori9+uXlwVuL5 D1D5c992O/QNvxeoAPXMqdiVvZjXDzNAeSUvdjEuJ94zgtTa+PqeiiWJ9SdI 7W4/2HHt9Yd5fpBObzi7oCSF1y89SFW5lpm/9eP1TQbpjY6P1C7LT6x/QWq5 eH/vn71ZPD9IczsPahg9MYPnB2n/rxk5ZWd78/wQ3YjVdB4Y5fc2LUSzurY2 fB1N4/kh6hrMeTatKZXnh+jH/BGv/v5nG6//Idqefd59vP4Wr/8hShletWjH Os4HFeI5fJhgUZZsDUxgHSzBBliBTbBYAvPBBNbBEmyAFdgEi3KYDyawDpZg A6zAJliEk20Ba2ArmMA2sA4OgyU4AjbAUbACx8AmuBkslibbAtbAVjCBbWAd HAZLcARsgKNgBY6BTXAzWCxLtgWsga1gAtvAOjgMluAI2ABHwQocA5vgZrBY nmwLWANbwQS2gXVwGCzBEbABjoIVOAY2wc1g8UyyLWANbAUT2AbWwWGwBEfA BjgKVuAY2AQ3g8WKZFvAGtgKJrANrIPDYAmOgA1wFKzAMbAJbgaLimRbwBrY CiawDayDw2D5v/8BgLvD1A== "]]}, {Hue[0.3224758424985268, 0.6, 0.6], PointBox[CompressedData[" 1:eJxd13twTGcYBvCPGK1Lp0sjxTSchBRR6aprNOR1J3VZcYuscrqxl+xmL1JK MOmnZMat7LTMKKM91EgmgnVpKVM+2iISEZe6FgeTdGRcdtxGaZrq7Hems8/+ s/Obd959ds5+Z+c5CTZ/pr0xY8zViLH/3iOvcDqLflE0XwebwLHgtuB3wAo4 EdwZ/C64KzgZ/B44BWwG9wR/AO4F7g3uA+4L7gfuD04FDwB/CE4DDwQPAqeD KdoczAbDHMyGwBzMhsIczIbBHMyGwxzMRsAczEbCHMxGwRzMRsMczDJgDmYf wRzMxsAczMbCHMzGwRzMxsMczCzRJjAHCzCbAPtgDhZglgn7YA4WYDYR9sEc LMBsEuyDOViA2WTYB3OwALMpsA/mYAFmU2EfzMECzLJgH8zBAsymwT6YgwWY ZcM+mIMFmFlhH8zBAsymwz6YgwWYfQz7YA4WYDYD9sEcLMBsJuyDOViAmRpt BUxgFczBGliAdTD7BPLBBFbBHKyBBVgHMxvkgwmsgjlYAwuwDmY5kA8msArm YA0swDqYzYJ8MIFVMAdrYDGLvpnWc9uhuD8jvVKfRcerxrZSmz+WPdNO5RNu tdw4vj5ixU5Ox7QVV682iXwO2elQ5vzNJddbRKzaacOZm733HG4VMbfTEv1F 1dOTbSLW7JTaa0PK7vp2EQs7LbwbG5Ni6RCxbqd6572t8dYE+T0ddNF69vj5 rztFrDjozuPJdx9UJcl8B5me5G+vaiZ7puqgmnlFd21DZM/kDirydVzZbp7s mZqDSuKb1ZzdJnumcNCiFQUNuS7ZM3UHrT9U3Nu+wOiZTipk+edmLJc9U3HS pMTiPsvWyZ5JTmqR2tB30HeyZ6pOOr0vtOu1YtkzuZOGN7raZe0O2TM1JxVf Sz11cK/smcJJ2V8crSg4KHum7qS4TtVFz44ZPdNFDdaSYGGV7JmKi8bXlQ5Y cUP2THJRywNZp8QT2TNVF4Wex73deKfsmdxF9Vd7HPmtSPZMzUUJi88U5wyW PVO4aLp9Vuv8WmndRScnDg0sSzN6Zi5NdwTbJxRKK7nUuu5+u7ifpCmXjs5s MifpgbSaS/7Ho5dXxMseyl/NXySsyhwlreXSqn1DOt70Sotcuvx5+98XrJbW X31+5prX4kuNHusmzd3eskdIK24a+ejh8cRz0uSm6ivWdlNvSKtuurdkaUFa jZHvJnPMetuJWiPfTYvCBclPbxv5bno2osJaecXId9OO7KaXrBVGvoeuVR79 +cB+I99DhTHWlJffGvkeCi0uvZi62Mj30C/HPOrSGUa+hxpqO4f+6Gvke+hi i5fXU5ob+R5KscX+MPKyvH66hzbNzZ5ZrhnXP492louy+Bzj+ueR/mx1W3sH 4/rn0YXC2UXHtsjfT82jJztO39/9RP7ePI9qjpe9tWmpPB9aHsWs2hIfO1ue H5FH6elTDjfNkedLz6MNi8Z0uJVlnD8vjdvYy5M2QZ5PxUtf/lVjvZYhzy95 qePYC5aSYfJ8q16i7Rml+wYa599Ll7K6/9O/j7w/NC8ll6s165Ll/SO8tPfU 3K6T4+X9pXvp1/Qmnbu/Ydx/PvqxYeDW8OP3Zb6Pmmf6/153oofM99Ht2G4r j63rLvN9ZCvPHjd1ZjeZ76OzOZWxm5O6yHwfPdz+cr2tTj63Ch9taahV7uxK lPk+6nckuDCmwHju9VPw0vMR+7+Sz8WKn9p027zlRIZ8biY/HX5RcDMrST5X q37qVBmYn2mWz93cT4/ia5VJL+RzueanDNv5tReGNpb5fsq8/WZZj7rn8v/X T8Pajq3YPfmh/P8NUJnNM2o1uxOxKUDnvl+zk0+6Lv+PA/J7ypcZTGALWAUH wBwcBGvgEFiAq8E6OAxms6NtAitgM5jAFrAKDoA5OAjWwCGwAFeDdXAYzPKj bQIrYDOYwBawCg6AOTgI1sAhsABXg3VwGMw+jbYJrIDNYAJbwCo4AObgIFgD h8ACXA3WwWEwmxNtE1gBm8EEtoBVcADMwUGwBg6BBbgarIPDYDY32iawAjaD CWwBq+AAmIODYA0cAgtwNVgHh8Hss2ibwArYDCawBayCA2D+v/8FOsW5Ew== "]]}, {Hue[0.5585438199983166, 0.6, 0.6], PointBox[CompressedData[" 1:eJxd11tsVFUUxvFtUUEedCrlIhc5AiFURUYLVKjCAilYFBhArQjiASl07iNQ 0IC4IdxMJGlNvFADHBQhRCEFaiKB0I0IGiQ6NBqDCB6CGAtEhotAQFpjuidm /vtl8suab9bMmZdvPzAzOakiTylVeZtS/722nsxwlXskl+3gAFwAd4G7ww7c C+4D94X7wQ/CD8OPwEH4UfgxuAgeCA+CB8PF8OPwEHgoXAI/AT8JD4OHw5Jr DasRmMNqJOawegpzWI3CHFalmMNqNOawGoM5rJ7GHFZlmMNqLOawegZzWD2L OazGYQ6r8ZjDagLmsArlWmANG1hNRB7WsIHVJORhDRtYTUYe1rCB1XPIwxo2 sHoeeVjDBlYvIA9r2MCqHHlYwwZWLyIPa9jAagrysIYNrF5CHtawgdVU5GEN G1hNQx7WsIHVy8jDGjawmo48rGEDq1eQhzVsYOXm2oEFdmENe7CBfVjNwH5Y YBfWsAcb2IfVTOyHBXZhDXuwgX1YvYr9sMAurGEPNrAPq1nYDwvswhr2YAP7 sKrAflhgF9awBxvYh9Vs7IcFdmENe7CBfVjNwX5YYBfWsAcb2IdVJfbDAruV 0rxy4IGmfhda7wm6UlZV7S4N511vtVcp2+N/OcsX5LXmTKX8vK0mv2hF+1b7 ldLQoXHGfcfz7eeGZVFjm/M3jnVqtROWD5eXldU79p4gYbnV994ljUfsPcEN y+Wv0xu/r+3dah2WDsWdv82rsvcCLyzzPz+6YV95od0flrUtnzSFxd4D/LAM kB+u9+4/wO6PSGPRoBHD77a934nIuk6LWjavtL1fIjK47Z81pS2297sRufP4 6rPeQtvzdUSWrf5xVOkF2/O9iKjZrx86WGF7vYnIW4VvXmr4xfZ6PyITH1py 0x+X7fFROXf1SOH5fbbHO1GJ1w/ctb+/7e0Slel7Z71TUWt7uxuV+ysOXV62 zPZ0HZUruzMbVLHt5V5UttS3a/n7rLWJyrFY/rXD60fa/VE5c3HM1baTsz08 JptXLAhOaWd7txOTzpmbW99tsJaYNB4bUvvFG7Z3uzHpdjp88lqx7dk6Jmsv FVZtj9ve7MWka8erNbeKbU82MSl5u3ThovPWfkxWBpqWH1qT7clxuScz65sT PWwvduJytKggX9ZbS1xKdiwtvyNge7Ebl4Id6YbL86x1XPrsuzit5rC1F5f3 Nu0NFRXYnmzisv6p06b9RGs/LpM+7vXbgKXZHp2QxhPxnp9tsnYS0tDz1LrF e6wlITfmtmzZeNDaTciapTvLuxyw1glp/udk8NQuay8hZyu+2938QXZ/QvaU TQnMS2b3JyR1aeiqkqHZ/UnZNvL2aWOv2+/vJOWnuo/eX7LVWpIyp0ebrrXj sr8/KcO63/XroN/t89FJGT/nSrf6mLWXlJ3DakYH/7DP1yRl6uQzzdEJ1n5S Pk11W/zl5uw9JiV1o8s7HG+y/18gJfu/uhg619HaSdn32ROEBQ7BLpyCNVwN e3AdbOA07MMZWL2W6wDswEFY4BDswilYw9WwB9fBBk7DPpyB1dxcB2AHDsIC h2AXTsEaroY9uA42cBr24Qys5uU6ADtwEBY4BLtwCtZwNezBdbCB07APZ2A1 P9cB2IGDsMAh2IVTsIarYQ+ugw2chn04A6uqXAdgBw7CAodgF07BGq6GPbgO NnAa9uEMrBbkOgA7cBAWOAS7cArW//tfVEFTYg== "]]}, {Hue[0.7946117974981064, 0.6, 0.6], PointBox[CompressedData[" 1:eJxd11uIlGUcx/G/FXgoYgSThKxX7UTIMupqrZX7184Hc3bLzW3NnrbW1ppT 28Esqj+BsG03A9VFCfkE4UopTYeLUIiniAijaTS62Wh7upDYkBjQugjEiPeV er/PzfDhx2/+vJe/JcO1/pFzRGR0lsi/v+nr9Er+aZ5z4AK8AL4YvgRO4KXw 5fCV8NXwNfByuAsuwivglfAquBteDa+Br4Wvg3vgtfD18A3wjfA6uBfWvA2W 9chh2YAclpuQw3IzclhuQQ7LrchhuQ05LLcjh+UO5LDciRyWu5DDcjdyWDYi h+Ue5LBsQg5LKW+FDQ6w9KEPGxxg6UcfNjjAci/6sMEBlvvQhw0OsGxGHzY4 wDKAPmxwgOV+9GGDAyxb0IcNDrAMog8bHGB5AH3Y4ADLEPqwwQGWrejDBgdY HkQfNjjAsg192OAAy0PowwYHWFzeCaywgw32cIAjLA/jPqywgw32cIAjLMO4 DyvsYIM9HOAIyyO4DyvsYIM9HOAIy6O4DyvsYIM9HOAIywjuwwo72GAPBzjC sh33YYUdbLCHAxxheQz3YYUdbLCHAxxhGcV9WGEHG+zhAEdYduA+rLCDDfZw gCMsj+M+rLCDDfZwgCMsT+A+rLCDDfZwgCMsZdyHFXawlXXlj7MHZM90uht9 Wd8ZXLHv8MLfUoeytlsb57t5J1PHsh7r+/WCPZtOZzuzorXtgxNTU+el/5tU 9Kv+597d//P5qbWie7//pfvjz+endhUdj3+3/vzmotRW0d5Vb3d9dHpRal/R l2cWnNtVujR1qKiMnnhv8dCS1LGi00NHv/7h9WXZd1T1+MnNM3+0rsjuV/XC U2MftOZmu1KremLn7pnhDdmudFUdr1722qKd2a60qh5YPPf40X3ZrvRVfXFi 15kdo9muDFV96/Bk98jz2a6MVX1Bxo5te/XsrqzpwNLJ1eNvZrsyqem8njNr 1u3NdqXW9LtPmx/Onsx2pavp+llTV71xMNuVVtMDP/UcOfRJtit9Tfte+eLb XYeyXRlqunBZe/dfX2a7MtZUtu5vvNQ6uyvr6n5/f+3EdLYrC3Wd89mWI+FU tiuTusr/XxFWuAQ7uA4b3IA93IQD3IYj3IHlybwLcAIXYYVLsIPrsMEN2MNN OMBtOMIdWMbyLsAJXIQVLsEOrsMGN2APN+EAt+EId2B5Ku8CnMBFWOES7OA6 bHAD9nATDnAbjnAHlqfzLsAJXIQVLsEOrsMGN2APN+EAt+EId2B5Ju8CnMBF WOES7OA6bHAD9nATDnAbjnAHlmfzLsAJXIQVLsEOrsP2n/8BZwfZVA== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["\"y (mm)\"", TraditionalForm], FormBox["\"Current(A)\"", TraditionalForm]}, AxesOrigin->{0, Automatic}, ImageSize->500, PlotRange->{{0, 262}, {0, 100}}, PlotRangeClipping->True]], "Output", Evaluatable->False, CellChangeTimes->{3.4342145796800823`*^9, 3.434385202004236*^9, 3.436386197656507*^9, 3.436386651213832*^9, 3.436395613556868*^9, 3.436396817504443*^9, 3.4363969126714*^9, 3.4363971792293*^9, 3.436397300430133*^9, 3.436397559830633*^9, 3.436398752391986*^9, 3.436449865788514*^9, 3.436450221673046*^9, 3.436450329516295*^9, 3.436450489105962*^9, 3.4364508144356947`*^9, 3.440421240342807*^9, 3.440433992439755*^9, 3.4405102804636908`*^9, 3.4405203924137697`*^9, 3.440785677635889*^9, 3.441114949414207*^9, 3.4411222459797983`*^9, 3.441122718256427*^9, 3.441128084695787*^9, 3.441128230884494*^9, 3.441128396434573*^9, 3.4411285427938337`*^9, 3.441128814746563*^9, 3.441128924618191*^9, 3.4411523083245153`*^9, 3.4416775983315163`*^9, 3.441678141105877*^9, 3.4416781800929193`*^9, 3.441678524261628*^9, 3.441678962361809*^9, 3.441679036942152*^9, 3.4416793315686283`*^9, 3.441680523306233*^9, 3.4417139989068623`*^9, 3.441716613627233*^9, 3.441817417859332*^9, 3.4422557529143667`*^9, 3.4422559911809473`*^9, 3.442257479941967*^9, 3.44226158430186*^9, 3.442325363112294*^9, 3.443182869294147*^9, 3.44320996914332*^9, 3.443210047671669*^9, 3.4432733350514517`*^9}, ImageSize->{400., -0.0625}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Transport Segment 9", "Section", CellChangeTimes->{{3.427557417391244*^9, 3.4275574212738867`*^9}, { 3.4411221096197567`*^9, 3.441122111491469*^9}, {3.441122508437797*^9, 3.441122511640093*^9}, {3.4411277226665297`*^9, 3.441127722814207*^9}, { 3.441128631204597*^9, 3.44112863229961*^9}, {3.441677590429941*^9, 3.4416775930292463`*^9}, {3.44167783010979*^9, 3.441677830333523*^9}, { 3.441678247795299*^9, 3.441678248331245*^9}, {3.441678597890871*^9, 3.4416785986413794`*^9}, {3.441679164821513*^9, 3.4416791650945587`*^9}, { 3.4416794279930162`*^9, 3.44167942838459*^9}}], Cell["Segment 9 - Coils 8, 9, 10", "Text", CellChangeTimes->{{3.4275574238332644`*^9, 3.427557519898347*^9}, { 3.441122709553803*^9, 3.441122723090308*^9}, {3.4411277251617403`*^9, 3.441127734985326*^9}, {3.441128634874387*^9, 3.4411286420184526`*^9}, { 3.441677837518024*^9, 3.441677846179837*^9}, {3.441678251476316*^9, 3.441678257826837*^9}, {3.441678600624308*^9, 3.4416786071033688`*^9}, { 3.441679169764835*^9, 3.4416791775408087`*^9}, {3.441679430936088*^9, 3.441679438043357*^9}}], Cell[CellGroupData[{ Cell["Coil Definition", "Subsection", CellChangeTimes->{{3.424789285638125*^9, 3.42478928884125*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"Push", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "ampsPush_"}], "]"}], ":=", " ", RowBox[{"CustomPush", "[", RowBox[{ "x", ",", "y", ",", "z", ",", "distP", ",", "ampsPush", ",", "radP", ",", "PwireWidth", ",", "PwireLength"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coil1", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "amps1_"}], "]"}], ":=", RowBox[{"Coil", "[", RowBox[{"x", ",", RowBox[{"y", "-", "ydispl1"}], ",", "z", ",", "dist1", ",", "amps1", ",", "rad1", ",", "MOTwireWidth", ",", "MOTwireLength", ",", "numRad1", ",", "numAx1"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coil2", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "amps2_"}], "]"}], ":=", RowBox[{"Coil", "[", RowBox[{"x", ",", RowBox[{"y", "-", "ydispl2"}], ",", "z", ",", "dist2", ",", "amps2", ",", "rad2", ",", "HwireWidth", ",", "HwireLength", ",", "numRad2", ",", "numAx2"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coil3", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "amps3_"}], "]"}], ":=", RowBox[{"Coil", "[", RowBox[{"x", ",", RowBox[{"y", "-", "ydispl3"}], ",", "z", ",", "dist3", ",", "amps3", ",", "rad3", ",", "HwireWidth", ",", "HwireLength", ",", "numRad3", ",", "numAx3"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coil4", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "amps4_"}], "]"}], ":=", RowBox[{"Coil", "[", RowBox[{"x", ",", RowBox[{"y", "-", "ydispl4"}], ",", "z", ",", "dist4", ",", "amps4", ",", "rad4", ",", "HwireWidth", ",", "HwireLength", ",", "numRad4", ",", "numAx4"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coil5", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "amps5_"}], "]"}], ":=", RowBox[{"Coil", "[", RowBox[{"x", ",", RowBox[{"y", "-", "ydispl5"}], ",", "z", ",", "dist5", ",", "amps5", ",", "rad5", ",", "HwireWidth", ",", "HwireLength", ",", "numRad5", ",", "numAx5"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coil6", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "amps6_"}], "]"}], ":=", RowBox[{"Coil", "[", RowBox[{"x", ",", RowBox[{"y", "-", "ydispl6"}], ",", "z", ",", "dist6", ",", "amps6", ",", "rad6", ",", "HwireWidth", ",", "HwireLength", ",", "numRad6", ",", "numAx6"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coil7", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "amps7_"}], "]"}], ":=", RowBox[{"Coil", "[", RowBox[{"x", ",", RowBox[{"y", "-", "ydispl7"}], ",", "z", ",", "dist7", ",", "amps7", ",", "rad7", ",", "HwireWidth", ",", "HwireLength", ",", "numRad7", ",", "numAx7"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coil8", "[", RowBox[{"x_", ",", "y_", ",", "z_", ",", "amps8_"}], "]"}], ":=", RowBox[{"Coil", "[",