(* 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[ 210243, 4980] NotebookOptionsPosition[ 204466, 4790] NotebookOutlinePosition[ 204873, 4806] CellTagsIndexPosition[ 204830, 4803] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Vertical Transport Design", "Title", CellChangeTimes->{{3.424187743496128*^9, 3.4241877650742536`*^9}, { 3.4311012576860743`*^9, 3.431101260263503*^9}}], Cell[CellGroupData[{ Cell["Michael Yee, September 2008. ", "Author", CellChangeTimes->{{3.4241877896367536`*^9, 3.424187821433628*^9}, 3.4241885820117536`*^9, {3.4317888814235973`*^9, 3.431788882461926*^9}}], Cell["Department of Physics, University of Toronto", "Institution", CellChangeTimes->{{3.4241878232930036`*^9, 3.4241878368555036`*^9}, { 3.424188572714878*^9, 3.4241885757617536`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Initialization Files", "Section", CellChangeTimes->{{3.4241878389180036`*^9, 3.4241878541055036`*^9}}], Cell["\<\ Computes the initialization files for coils and power dissipation.\ \>", "Text", CellChangeTimes->{{3.4241878964805036`*^9, 3.4241878964805036`*^9}, { 3.4241885527617536`*^9, 3.4241885686367536`*^9}}], Cell[CellGroupData[{ Cell["Units", "Subsection", CellChangeTimes->{{3.431101323551199*^9, 3.431101324160129*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"m", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"mm", "=", RowBox[{ SuperscriptBox["10", RowBox[{"-", "3"}]], "m"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cm", "=", RowBox[{ SuperscriptBox["10", RowBox[{"-", "2"}]], "m"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"T", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"gauss", "=", RowBox[{ SuperscriptBox["10", RowBox[{"-", "4"}]], "T"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ampere", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"zero", "=", RowBox[{"0.1", "mm"}]}], ";"}]}], "Input", CellChangeTimes->{{3.431101327292941*^9, 3.4311013621531887`*^9}, { 3.4311038611435843`*^9, 3.431103865576902*^9}, {3.431188535805534*^9, 3.431188540432851*^9}, {3.4311961975256157`*^9, 3.431196199738347*^9}, { 3.43135216322957*^9, 3.431352163725123*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Magnetic Coils", "Subsection", CellChangeTimes->{{3.4241879055430036`*^9, 3.4241879190117536`*^9}, { 3.424189393902378*^9, 3.424189400121128*^9}}], Cell["\<\ Will create a coil object that contains multiple windings in an m x n \ geometry positioned in Cartesian space with a specific wire width and wire \ length. \ \>", "Text", CellChangeTimes->{{3.424188286371128*^9, 3.4241883428867536`*^9}}], Cell["\<\ The coil object is approximated by taking multiple single loops displaced by \ the width and length, and summing the resulting field. \ \>", "Text", CellChangeTimes->{{3.4241883431680036`*^9, 3.424188375652378*^9}}], Cell["", "Text"], Cell[CellGroupData[{ Cell["Magnetic Field of a single current loop", "Subsubsection", CellChangeTimes->{{3.424187934058628*^9, 3.424187939214878*^9}}], Cell["\<\ B field produced by a single current loop in cartesian coordinates.\ \>", "Text", CellChangeTimes->{{3.4241879415117536`*^9, 3.4241879998242536`*^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\tmagnetic field constant\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.424187947902378*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"Br", "[", RowBox[{"r_", ",", "z_", ",", "R_", ",", "A_", ",", "current_"}], "]"}], ":=", RowBox[{"2", "*", SuperscriptBox["10", RowBox[{"-", "7"}]], "*", FractionBox["current", "r"], "*", FractionBox[ RowBox[{"z", "-", "A"}], SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"R", "+", "r"}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"z", "-", "A"}], ")"}], "2"]}]]], "*", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"EllipticK", "[", FractionBox[ RowBox[{"4", "*", "R", "*", "r"}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"R", "+", "r"}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"z", "-", "A"}], ")"}], "2"]}]], "]"}]}], "+", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["R", "2"], "+", SuperscriptBox["r", "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"z", "-", "A"}], ")"}], "2"]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"R", "-", "r"}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"z", "-", "A"}], ")"}], "2"]}]], "*", RowBox[{"EllipticE", "[", FractionBox[ RowBox[{"4", "*", "R", "*", "r"}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"R", "+", "r"}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"z", "-", "A"}], ")"}], "2"]}]], "]"}]}]}], ")"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Bz", "[", RowBox[{"r_", ",", "z_", ",", "R_", ",", "A_", ",", "current_"}], "]"}], ":=", RowBox[{"2", "*", SuperscriptBox["10", RowBox[{"-", "7"}]], "*", "current", "*", FractionBox["1", SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"R", "+", "r"}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"z", "-", "A"}], ")"}], "2"]}]]], "*", RowBox[{"(", RowBox[{ RowBox[{"EllipticK", "[", FractionBox[ RowBox[{"4", "*", "R", "*", "r"}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"R", "+", "r"}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"z", "-", "A"}], ")"}], "2"]}]], "]"}], "+", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["R", "2"], "-", SuperscriptBox["r", "2"], "-", SuperscriptBox[ RowBox[{"(", RowBox[{"z", "-", "A"}], ")"}], "2"]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"R", "-", "r"}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"z", "-", "A"}], ")"}], "2"]}]], "*", RowBox[{"EllipticE", "[", FractionBox[ RowBox[{"4", "*", "R", "*", "r"}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"R", "+", "r"}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"z", "-", "A"}], ")"}], "2"]}]], "]"}]}]}], ")"}]}]}]}], "Input", CellChangeTimes->{{3.4108827841714225`*^9, 3.4108829314370475`*^9}, 3.4108831444370475`*^9, {3.4147686156928463`*^9, 3.4147686166928787`*^9}, 3.431354016431466*^9}], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{"VecB", "[", RowBox[{"r_", ",", "z_", ",", "R_", ",", "A_", ",", "current_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"Br", "[", RowBox[{"r", ",", "z", ",", "R", ",", "A", ",", "current"}], "]"}], ",", RowBox[{"Bz", "[", RowBox[{"r", ",", "z", ",", "R", ",", "A", ",", "current"}], "]"}]}], "}"}]}]}]], "Input", CellChangeTimes->{{3.4108832081714225`*^9, 3.4108832735307975`*^9}, { 3.43119378557023*^9, 3.4311938109069033`*^9}, {3.431354108620166*^9, 3.431354147934257*^9}, 3.4313559907387867`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[" Field from a coil with multiple windings", "Subsubsection", CellChangeTimes->{{3.4241881455117536`*^9, 3.4241881455117536`*^9}, { 3.424188176902378*^9, 3.4241882049492536`*^9}, {3.431102804288907*^9, 3.431102809286277*^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) numTurns\t\ttotal number of wire turns in coil 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.4241882071992536`*^9, 3.4241882071992536`*^9}, 3.4241882456367536`*^9}], Cell[BoxData[{ RowBox[{"Clear", "[", "SimCoil", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SimCoil", "[", RowBox[{ "r_", ",", "z_", ",", "rad_", ",", "A_", ",", "current_", ",", "wireWidth_", ",", "wireLength_", ",", " ", "numRad_", ",", "numAx_"}], "]"}], " ", ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", "j", ",", "Bcoil", ",", "temp"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"temp", "=", RowBox[{"{", RowBox[{"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[{"VecB", "[", RowBox[{"r", ",", "z", ",", RowBox[{"rad", "+", RowBox[{ RowBox[{"(", RowBox[{"i", "-", "0.5"}], ")"}], "*", "wireWidth"}]}], ",", RowBox[{"A", "+", RowBox[{ RowBox[{"(", RowBox[{"j", "-", "0.5"}], ")"}], "*", "wireLength"}]}], ",", "current"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"temp", " ", "=", " ", "Bcoil"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "Bcoil"}]}], "\[IndentingNewLine]", "]"}]}]}], "Input", CellChangeTimes->{{3.427737881477891*^9, 3.4277379431573763`*^9}, { 3.4277384242427683`*^9, 3.427738427614374*^9}, {3.431108510824915*^9, 3.431108511977476*^9}, {3.431193955464525*^9, 3.43119395833593*^9}, { 3.431354365430237*^9, 3.43135437837199*^9}, {3.431354416041624*^9, 3.431354418800766*^9}}] }, Open ]] }, Closed]], Cell["", "Subsection"] }, Closed]], Cell[CellGroupData[{ Cell["Magnetic Transport Scheme", "Section", CellChangeTimes->{{3.4241886494805036`*^9, 3.4241886551992536`*^9}}], Cell["", "Text", CellChangeTimes->{{3.424188697089878*^9, 3.424188697089878*^9}}], Cell[CellGroupData[{ Cell["Coil Geometries", "Subsection", CellChangeTimes->{{3.4241887229492536`*^9, 3.4241887369805036`*^9}, { 3.424188806683628*^9, 3.4241888108242536`*^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 first two coils to be \ the point of origin with the (z) direction corresponding to the vertical \ transport direction. \ \>", "Text", CellChangeTimes->{{3.4241888668555036`*^9, 3.424188943308628*^9}, { 3.431788948438395*^9, 3.431788969233716*^9}}], Cell[CellGroupData[{ Cell["Initial clearance", "Subsubsection", CellChangeTimes->{{3.424188958121128*^9, 3.424188982371128*^9}}], Cell[BoxData[{ RowBox[{"Clear", "[", RowBox[{ "rad1", ",", "rad2", ",", "rad3", ",", "rad4", ",", "rad5", ",", "rad6", ",", "rad7"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{ "dist1", ",", "dist2", ",", "dist3", ",", "dist4", ",", "dist5", ",", "dist6", ",", "dist7"}], "]"}], "\[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"}], "]"}], "\[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}}] }, Closed]], Cell[CellGroupData[{ Cell["Inner Radii ", "Subsubsection", CellChangeTimes->{{3.424189044433628*^9, 3.424189047402378*^9}}], Cell["Specifieds the inner radius of the coils.", "Text", CellChangeTimes->{{3.4317889766582212`*^9, 3.431788981297453*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"radVert", "=", RowBox[{"25", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"radQuad", "=", RowBox[{"28", "mm"}]}], ";"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.424189051402378*^9, 3.4241890590742536`*^9}, { 3.4244276190430036`*^9, 3.4244276370742536`*^9}, {3.4311022191436167`*^9, 3.4311022258849154`*^9}, {3.431102334973258*^9, 3.431102351565585*^9}, { 3.43178991683388*^9, 3.4317899171187162`*^9}, {3.431791705257347*^9, 3.4317917101289597`*^9}, {3.4317933586984386`*^9, 3.431793360967534*^9}}] }, Open ]], 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[{"VertwireWidth", " ", "=", " ", RowBox[{"1.13", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"VertwireLength", " ", "=", " ", RowBox[{"2.6", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"QuadwireWidth", "=", RowBox[{"1.13", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"QuadwireLength", "=", RowBox[{"2.6", "mm"}]}], ";"}]}], "Input", CellChangeTimes->{{3.4241890856680036`*^9, 3.4241890949805036`*^9}, { 3.4241895843555036`*^9, 3.424189586308628*^9}, {3.431102359069659*^9, 3.4311024006457767`*^9}, {3.431793365152074*^9, 3.431793406616807*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Winding geometry", "Subsubsection", CellChangeTimes->{{3.424189112371128*^9, 3.424189114246128*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"numRadVert", "=", "19"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"numAxVert", "=", "4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"numRadQuad", "=", "23"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"numAxQuad", "=", "8"}], ";"}]}], "Input", CellChangeTimes->{{3.424189116214878*^9, 3.4241891271055036`*^9}, { 3.4244276635117536`*^9, 3.424427693558628*^9}, {3.431102407810322*^9, 3.431102445526375*^9}, {3.431793417681439*^9, 3.431793419360798*^9}, { 3.431794484890811*^9, 3.43179448494048*^9}, {3.431794722810893*^9, 3.43179472289854*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Displacement of the coil from the Origin", "Subsubsection", CellChangeTimes->{{3.424189132527378*^9, 3.424189132527378*^9}, { 3.424189174371128*^9, 3.424189224683628*^9}, {3.4311033424021606`*^9, 3.431103350423913*^9}, {3.431195343045444*^9, 3.4311953445171556`*^9}}], Cell["Displacement of the single coils from the specified origin.", "Text", CellChangeTimes->{{3.43119604622869*^9, 3.431196057639114*^9}, { 3.4317889892335863`*^9, 3.431788992769376*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"displ1", "=", RowBox[{ RowBox[{"-", "22.5"}], "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"displ2", "=", RowBox[{"22.5", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"displ3", "=", RowBox[{"61.8", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"displ4", "=", RowBox[{"101.2", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"displ5", "=", RowBox[{"143.9", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"displ6", "=", RowBox[{"190.5", "mm"}]}], ";"}]}], "Input", CellChangeTimes->{{3.4241891968555036`*^9, 3.4241892040117536`*^9}, { 3.424189301558628*^9, 3.424189317339878*^9}, {3.424427700246128*^9, 3.4244277146680036`*^9}, {3.431103237864812*^9, 3.431103362671856*^9}, { 3.431195005813036*^9, 3.431195013485681*^9}, {3.43119521636675*^9, 3.431195220205921*^9}, {3.431788832897414*^9, 3.43178883483991*^9}, 3.431788865367302*^9, {3.431793452147664*^9, 3.431793479545105*^9}, { 3.431794506035413*^9, 3.431794509792324*^9}, {3.431794715917507*^9, 3.431794718378684*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Coil Definitions", "Subsection", CellChangeTimes->{{3.4241894173555036`*^9, 3.424189419214878*^9}, 3.424189861496128*^9}], Cell[CellGroupData[{ Cell["Individual coil definition", "Subsubsection", CellChangeTimes->{{3.424189855027378*^9, 3.4241898596992536`*^9}}], Cell["\<\ Here we define the coil objects from the initialization in terms of the \ Cartesian coordinates and the current in the coil amps#. All other \ specifications for the geometry were defined earlier. \ \>", "Text", CellChangeTimes->{{3.4241894571992536`*^9, 3.424189502683628*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"Coil1", "[", RowBox[{"r_", ",", "z_", ",", "curr1_"}], "]"}], ":=", RowBox[{"SimCoil", "[", RowBox[{ "r", ",", "z", ",", "radVert", ",", "displ1", ",", "curr1", ",", "VertwireWidth", ",", "VertwireLength", ",", "numRadVert", ",", "numAxVert"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coil2", "[", RowBox[{"r_", ",", "z_", ",", "curr2_"}], "]"}], ":=", RowBox[{"SimCoil", "[", RowBox[{ "r", ",", "z", ",", "radVert", ",", "displ2", ",", "curr2", ",", "VertwireWidth", ",", "VertwireLength", ",", "numRadVert", ",", "numAxVert"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coil3", "[", RowBox[{"r_", ",", "z_", ",", "curr3_"}], "]"}], ":=", RowBox[{"SimCoil", "[", RowBox[{ "r", ",", "z", ",", "radVert", ",", "displ3", ",", "curr3", ",", "VertwireWidth", ",", "VertwireLength", ",", "numRadVert", ",", "numAxVert"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coil4", "[", RowBox[{"r_", ",", "z_", ",", "curr4_"}], "]"}], ":=", RowBox[{"SimCoil", "[", RowBox[{ "r", ",", "z", ",", "radVert", ",", "displ4", ",", "curr4", ",", "VertwireWidth", ",", "VertwireLength", ",", "numRadVert", ",", "numAxVert"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coil5", "[", RowBox[{"r_", ",", "z_", ",", "curr5_"}], "]"}], ":=", RowBox[{"SimCoil", "[", RowBox[{ "r", ",", "z", ",", "radQuad", ",", "displ5", ",", "curr5", ",", "QuadwireWidth", ",", "QuadwireLength", ",", "numRadQuad", ",", "numAxQuad"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coil6", "[", RowBox[{"r_", ",", "z_", ",", "curr6_"}], "]"}], ":=", RowBox[{"SimCoil", "[", RowBox[{ "r", ",", "z", ",", "radQuad", ",", "displ6", ",", "curr6", ",", "QuadwireWidth", ",", "QuadwireLength", ",", "numRadQuad", ",", "numAxQuad"}], "]"}]}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.424189454089878*^9, 3.424189455308628*^9}, { 3.424189515183628*^9, 3.4241895288242536`*^9}, {3.4241895705742536`*^9, 3.424189578808628*^9}, {3.4244278026055036`*^9, 3.4244278938242536`*^9}, { 3.43110338704984*^9, 3.431103421200583*^9}, {3.431103735245089*^9, 3.4311038039421062`*^9}, {3.4311950781939583`*^9, 3.431195082497628*^9}, { 3.4311951770135937`*^9, 3.43119520983401*^9}, {3.431195355650585*^9, 3.431195361520563*^9}, {3.4313546180277643`*^9, 3.4313546519857073`*^9}, { 3.431354727962327*^9, 3.4313547494258337`*^9}, {3.43135480136232*^9, 3.431354942467128*^9}, {3.43135773713548*^9, 3.431357772810999*^9}, 3.431357953368672*^9, {3.431785662690014*^9, 3.4317857028164787`*^9}}], Cell[CellGroupData[{ Cell["Total current vectors", "Subsubsubsection", CellChangeTimes->{{3.424191004714878*^9, 3.4241910105742536`*^9}}], Cell["\<\ Define the current in each coil {I1: I6} here as an array. Each entry \ corresponds to a mm increment in the transport direction.\ \>", "Text", CellChangeTimes->{{3.4241900172930036`*^9, 3.4241900771680036`*^9}, { 3.431789001641302*^9, 3.431789003193757*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"TotLength", " ", "=", " ", "180"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"I1", " ", "=", " ", RowBox[{"UnitVector", "[", RowBox[{"TotLength", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"I2", " ", "=", " ", "I1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"I3", " ", "=", " ", "I1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"I3", "[", RowBox[{"[", "1", "]"}], "]"}], " ", "=", " ", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"I4", " ", "=", " ", "I1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"I4", "[", RowBox[{"[", "1", "]"}], "]"}], " ", "=", " ", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"I5", " ", "=", " ", "I1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"I5", "[", RowBox[{"[", "1", "]"}], "]"}], " ", "=", " ", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"I6", " ", "=", " ", "I1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"I6", "[", RowBox[{"[", "1", "]"}], "]"}], " ", "=", " ", "0"}], ";"}]}], "Input", CellChangeTimes->{ 3.424190005652378*^9, {3.424190133152378*^9, 3.4241901527617536`*^9}, { 3.424190247652378*^9, 3.424190256527378*^9}, 3.424191014964878*^9, { 3.424192930371128*^9, 3.4241929347305036`*^9}, {3.4241929915430036`*^9, 3.4241929926367536`*^9}, {3.424193068121128*^9, 3.4241930758555036`*^9}, { 3.4244279124492536`*^9, 3.424427934058628*^9}, {3.4317865563587227`*^9, 3.431786557115233*^9}, {3.431788857467833*^9, 3.431788858314044*^9}}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[" Vertical Simulation", "Subsection", CellChangeTimes->{{3.4241907445430036`*^9, 3.4241907849492536`*^9}, { 3.431101447571954*^9, 3.431101449888213*^9}, {3.43119368528365*^9, 3.431193689960072*^9}}], Cell["Simulates the vertical transport system.", "Text", CellChangeTimes->{{3.4241907889492536`*^9, 3.424190809558628*^9}, 3.4241919409805036`*^9, {3.431101455697151*^9, 3.431101458848297*^9}}], Cell[CellGroupData[{ Cell["Stage 1: Coils 12A:13 & 12B alone: 25mm > z > 1mm", "Subsubsection", CellChangeTimes->{{3.424191951496128*^9, 3.424191964527378*^9}, { 3.431193694136137*^9, 3.431193701279811*^9}, {3.4313576895142097`*^9, 3.431357705089055*^9}, {3.431786641772513*^9, 3.431786647234745*^9}, { 3.431786677458871*^9, 3.431786683546433*^9}, {3.4317868754118757`*^9, 3.431786876659473*^9}}], Cell[CellGroupData[{ Cell["Initialization", "Subsubsubsection", CellChangeTimes->{{3.424191092996128*^9, 3.424191098839878*^9}}], Cell[BoxData[{ RowBox[{"Clear", " ", "[", RowBox[{ "buf", ",", " ", "Aspect", ",", " ", "Curr1", ",", " ", "Curr2", ",", " ", "sol", ",", " ", "asp", ",", " ", "curr1", ",", " ", "curr2", ",", "curr3", ",", "curr4", ",", "curr5", ",", "curr6"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amps1", "=", "curr1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amps2", "=", "curr2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amps3", "=", RowBox[{"-", "curr1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amps4", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amps5", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"amps6", "=", "0"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Unit", "[", RowBox[{"r_", ",", "z_"}], "]"}], ":=", RowBox[{ RowBox[{"Coil1", "[", RowBox[{"r", ",", "z", ",", "amps1"}], "]"}], "+", RowBox[{"Coil2", "[", RowBox[{"r", ",", "z", ",", "amps2"}], "]"}], "+", RowBox[{"Coil3", "[", RowBox[{"r", ",", "z", ",", "amps3"}], "]"}], "+", RowBox[{"Coil4", "[", RowBox[{"r", ",", "z", ",", "amps4"}], "]"}], "+", RowBox[{"Coil5", "[", RowBox[{"r", ",", "z", ",", "amps5"}], "]"}], "+", RowBox[{"Coil6", "[", RowBox[{"r", ",", "z", ",", "amps6"}], "]"}]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rComp", "[", RowBox[{"r_", ",", "z_"}], "]"}], ":=", RowBox[{ RowBox[{"Unit", "[", RowBox[{"r", ",", "z"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"zComp", "[", RowBox[{"r_", ",", "z_"}], "]"}], ":=", RowBox[{ RowBox[{"Unit", "[", RowBox[{"r", ",", "z"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GrComp", "[", RowBox[{"r_", ",", "z_"}], "]"}], "=", RowBox[{ SubscriptBox["\[PartialD]", "r"], RowBox[{"rComp", "[", RowBox[{"r", ",", "z"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"GzComp", "[", RowBox[{"r_", ",", "z_"}], "]"}], "=", RowBox[{ SubscriptBox["\[PartialD]", "z"], RowBox[{"zComp", "[", RowBox[{"r", ",", "z"}], "]"}]}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"z0", "=", RowBox[{"1", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"zf", " ", "=", " ", RowBox[{"25", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", " ", "=", " ", "25"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"scale", " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"zf", "-", "z0"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"buf", " ", "=", " ", RowBox[{"UnitVector", "[", RowBox[{"n", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"gradient", "=", RowBox[{"100", RowBox[{"gauss", "/", "cm"}]}]}], ";"}]}], "Input", CellChangeTimes->{ 3.424191044214878*^9, {3.424191142558628*^9, 3.4241912622305036`*^9}, { 3.4241916446680036`*^9, 3.4241916491055036`*^9}, 3.4241925450117536`*^9, { 3.424192604027378*^9, 3.424192612433628*^9}, {3.4244294610742536`*^9, 3.4244294691992536`*^9}, {3.424429683402378*^9, 3.424429693402378*^9}, { 3.424429967496128*^9, 3.4244299707305036`*^9}, {3.4311038420519257`*^9, 3.431103856009079*^9}, {3.431103943443224*^9, 3.431103980289875*^9}, { 3.4311885595071573`*^9, 3.431188565997161*^9}, {3.431188974570271*^9, 3.431189010992488*^9}, {3.431189415850789*^9, 3.431189417185584*^9}, { 3.431196094344141*^9, 3.4311961101856623`*^9}, {3.4313533891613073`*^9, 3.431353394562222*^9}, {3.4313550441773567`*^9, 3.43135517562286*^9}, { 3.43135577213243*^9, 3.4313557803196907`*^9}, {3.431357308668244*^9, 3.431357311423059*^9}, {3.43135735491129*^9, 3.431357358576067*^9}, { 3.431357503786956*^9, 3.4313575068633213`*^9}, {3.431357834007758*^9, 3.431357845806657*^9}, {3.4313579875018463`*^9, 3.431357989042493*^9}, { 3.431785806202236*^9, 3.431785817388994*^9}, {3.431786563597267*^9, 3.4317866216920023`*^9}, {3.431786665965912*^9, 3.431786668412519*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Calculations", "Subsubsubsection", CellChangeTimes->{{3.424191616714878*^9, 3.424191617964878*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "0"}], ",", RowBox[{"i", "<", "n"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"zpos", " ", "=", " ", RowBox[{"z0", "+", RowBox[{"scale", "*", "i"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"sol", " ", "=", " ", RowBox[{"Solve", " ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"zComp", "[", RowBox[{"zero", ",", "zpos"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"GzComp", "[", RowBox[{"zero", ",", "zpos"}], "]"}], "\[Equal]", "gradient"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"curr1", ",", " ", "curr2"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"buf", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], " ", "=", " ", RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Curr1", " ", "=", " ", RowBox[{"curr1", "/.", "buf"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Curr2", " ", "=", " ", RowBox[{"curr2", "/.", "buf"}]}], ";"}], "\[IndentingNewLine]", 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[{"I3", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "=", RowBox[{"-", RowBox[{"Curr1", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}]}]}], ";"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", "I1", "\[IndentingNewLine]", "I2", "\ \[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"Curr1", ",", "Curr2"}], "}"}], ",", RowBox[{"DataRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"z0", "*", "1000"}], ",", RowBox[{ RowBox[{"(", RowBox[{"z0", "+", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}], "*", "scale"}]}], ")"}], "*", "1000"}]}], "}"}]}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"z0", "*", "1000"}], ",", "0"}], "}"}]}], ",", RowBox[{"PlotMarkers", "\[Rule]", RowBox[{"{", RowBox[{"Automatic", ",", "Small"}], "}"}]}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotLabel", "\[Rule]", "\"\\""}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amps1", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amps2", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amps3", "=", "0"}], ";"}]}], "Input", CellChangeTimes->{{3.4241916296992536`*^9, 3.4241916535430036`*^9}, { 3.4241916856680036`*^9, 3.424191700308628*^9}, {3.4241917784805036`*^9, 3.4241918127617536`*^9}, {3.424192057121128*^9, 3.4241920575430036`*^9}, { 3.424192283621128*^9, 3.424192307839878*^9}, {3.424429122996128*^9, 3.4244291238242536`*^9}, {3.424429476808628*^9, 3.424429478714878*^9}, { 3.424429546121128*^9, 3.4244295465117536`*^9}, {3.431188571551977*^9, 3.431188571787519*^9}, {3.4311886047776012`*^9, 3.431188717945578*^9}, { 3.4313533225805473`*^9, 3.4313533720584517`*^9}, {3.431356066633704*^9, 3.431356075139104*^9}, {3.431357067419949*^9, 3.431357067589745*^9}, { 3.431357375904657*^9, 3.431357378243895*^9}, {3.4317874575326653`*^9, 3.431787479254888*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "14.126669745897097`"}], ",", RowBox[{"-", "14.526870966035098`"}], ",", RowBox[{"-", "14.980059762802581`"}], ",", RowBox[{"-", "15.487374135719538`"}], ",", RowBox[{"-", "16.050198895963465`"}], ",", RowBox[{"-", "16.670085050015782`"}], ",", RowBox[{"-", "17.348646199600473`"}], ",", RowBox[{"-", "18.087422957390764`"}], ",", RowBox[{"-", "18.887704895863106`"}], ",", RowBox[{"-", "19.750298280385703`"}], ",", RowBox[{"-", "20.67522726355214`"}], ",", RowBox[{"-", "21.661357095614896`"}], ",", RowBox[{"-", "22.70593135582307`"}], ",", RowBox[{"-", "23.804022741197624`"}], ",", RowBox[{"-", "24.94791036135598`"}], ",", RowBox[{"-", "26.126417508896928`"}], ",", RowBox[{"-", "27.324273383729174`"}], ",", RowBox[{"-", "28.521598952135538`"}], ",", RowBox[{"-", "29.693655756877735`"}], ",", RowBox[{"-", "30.81102612112568`"}], ",", RowBox[{"-", "31.84039681379926`"}], ",", RowBox[{"-", "32.746075725357606`"}], ",", RowBox[{"-", "33.49226699558375`"}], ",", RowBox[{"-", "34.04596581399951`"}], ",", RowBox[{"-", "34.38013976064188`"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output", CellChangeTimes->{ 3.4241920638242536`*^9, 3.424192328121128*^9, 3.424192782746128*^9, 3.4241929761055036`*^9, 3.424193084027378*^9, 3.4241951748242536`*^9, 3.424428751339878*^9, {3.424428858496128*^9, 3.4244288930117536`*^9}, 3.424428981339878*^9, {3.424429077964878*^9, 3.424429125308628*^9}, 3.424429213214878*^9, {3.424429318464878*^9, 3.424429349777378*^9}, 3.4244294892617536`*^9, 3.4244297129180036`*^9, 3.4244297522930036`*^9, 3.424431093808628*^9, 3.43118896441654*^9, 3.431189121932496*^9, 3.431353408481063*^9, 3.431355293975531*^9, 3.431356090842675*^9, 3.4313570730186987`*^9, 3.431357323917672*^9, 3.431357368655137*^9, 3.431357518744155*^9, 3.431357905087788*^9, 3.431357970905746*^9, 3.431358002300742*^9, 3.43178543964787*^9, 3.431785674264278*^9, 3.431785975793189*^9, {3.4317866022203417`*^9, 3.4317866284347258`*^9}, 3.431786709601862*^9, 3.4317873616267967`*^9, 3.431787592404615*^9, 3.431793498265359*^9, 3.4317945175920057`*^9, 3.431794736984387*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "16.559081900655062`", ",", "15.55688111446496`", ",", "14.627413985786022`", ",", "13.761930027179393`", ",", "12.952577372298174`", ",", "12.192227065485154`", ",", "11.474319302855244`", ",", "10.792728571836532`", ",", "10.141645909244037`", ",", "9.515477886102529`", ",", "8.908763510188983`", ",", "8.316112061631706`", ",", "7.732166924093335`", ",", "7.15160260544304`", ",", "6.569164023394614`", ",", "5.9797581479129445`", ",", "5.378607284079679`", ",", "4.761469375706756`", ",", "4.124922365584718`", ",", "3.4666960037327543`", ",", "2.7860161012029425`", ",", "2.083906122732244`", ",", "1.3633753488695945`", ",", "0.629420102135177`", ",", RowBox[{"-", "0.11121741884120195`"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output", CellChangeTimes->{ 3.4241920638242536`*^9, 3.424192328121128*^9, 3.424192782746128*^9, 3.4241929761055036`*^9, 3.424193084027378*^9, 3.4241951748242536`*^9, 3.424428751339878*^9, {3.424428858496128*^9, 3.4244288930117536`*^9}, 3.424428981339878*^9, {3.424429077964878*^9, 3.424429125308628*^9}, 3.424429213214878*^9, {3.424429318464878*^9, 3.424429349777378*^9}, 3.4244294892617536`*^9, 3.4244297129180036`*^9, 3.4244297522930036`*^9, 3.424431093808628*^9, 3.43118896441654*^9, 3.431189121932496*^9, 3.431353408481063*^9, 3.431355293975531*^9, 3.431356090842675*^9, 3.4313570730186987`*^9, 3.431357323917672*^9, 3.431357368655137*^9, 3.431357518744155*^9, 3.431357905087788*^9, 3.431357970905746*^9, 3.431358002300742*^9, 3.43178543964787*^9, 3.431785674264278*^9, 3.431785975793189*^9, {3.4317866022203417`*^9, 3.4317866284347258`*^9}, 3.431786709601862*^9, 3.4317873616267967`*^9, 3.431787592404615*^9, 3.431793498265359*^9, 3.4317945175920057`*^9, 3.431794736988394*^9}], Cell[BoxData[ GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJzt0+tL01Ecx/GxKG0qCa6bqZu2ZM1L23Rupe73EUn6EUaoUKtIE6PRgklR 2gWMat0oClJoFmzKWG5LYlK6yqb4QCKTmaS1LcQuFqUtMXxgEF3ofB/1L+zA 4fA+T1980mvNFfuFAoGg7s/9+/47s1yzqCYcQnY/+0CVWxA7kJDDOhZ3Hrrr ns1TJ2LUtTX50kIuazEMR31jwXgl61XQ7rZ5L3uoU9Aut07CoGItRffnccO+ FWrWGcgqfGrHe2oZTKe3X0nqz2Odie8VTm/4bj5rOfyO113bXBrWCshOjn/p uV/AOhuSe2rzy2Et61zg+lu453SslXDuCk3tkW5irUKTuLV5UWUhazWG4/kz FyxFrPMw1njs0A1vMet89JsPGm0BPWsNlJEJvewVx7oACTXPjU3VYK3FzoZw q7CPWofKiErzbnEJ642YiJhNHUrqWc6wOvBTck0J8lAMnrJIUjeAPJYKZw4U leSAPEKZvHfN+SyQR/kbl873aT3Io7rqV4upVg7ymOKGfgTnMkEey/j5c5Mt 60Aeh9tiRixbZCAPTt/ZMxOzFuThSDMe4V+kgzxuyzvrg21SkEf94EXFk69p IA9RQ1t38a0UkIdVLvo2WpYM8tAnl/s2T68EeaisvXbv2eUgD0fpoN0flwTy ePRR5JxuSgR5iJx86tDjOJDHjr1lgQF+CcjDdlW+MO4RgDxOiI97akfmOfJ4 0FVq18g+cORxM8PT4W/s7SOP6D6i+4ju4/99/AbVhKmv "], { {Hue[0.67, 0.6, 0.6], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 51], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 52], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 53], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 54], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 55], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 56], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 57], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 58], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 59], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 60], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 61], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 62], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 63], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 64], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 65], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 66], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 67], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 68], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 69], 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]}, {Hue[0.9060679774997897, 0.6, 0.6], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 76], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 77], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 78], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 79], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 80], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 81], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 82], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 83], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 84], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 85], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 86], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 87], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 88], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 89], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 90], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 91], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 92], 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]}, {}}], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["\"z (mm)\"", TraditionalForm], FormBox["\"I (A)\"", TraditionalForm]}, AxesOrigin->{1, 0}, ImageSize->400, PlotLabel->FormBox["\"Current Scheme in Space\"", TraditionalForm], PlotRange->{{0., 25.}, {-34.38013976064188, 16.559081900655062`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{ 3.4241920638242536`*^9, 3.424192328121128*^9, 3.424192782746128*^9, 3.4241929761055036`*^9, 3.424193084027378*^9, 3.4241951748242536`*^9, 3.424428751339878*^9, {3.424428858496128*^9, 3.4244288930117536`*^9}, 3.424428981339878*^9, {3.424429077964878*^9, 3.424429125308628*^9}, 3.424429213214878*^9, {3.424429318464878*^9, 3.424429349777378*^9}, 3.4244294892617536`*^9, 3.4244297129180036`*^9, 3.4244297522930036`*^9, 3.424431093808628*^9, 3.43118896441654*^9, 3.431189121932496*^9, 3.431353408481063*^9, 3.431355293975531*^9, 3.431356090842675*^9, 3.4313570730186987`*^9, 3.431357323917672*^9, 3.431357368655137*^9, 3.431357518744155*^9, 3.431357905087788*^9, 3.431357970905746*^9, 3.431358002300742*^9, 3.43178543964787*^9, 3.431785674264278*^9, 3.431785975793189*^9, {3.4317866022203417`*^9, 3.4317866284347258`*^9}, 3.431786709601862*^9, 3.4317873616267967`*^9, 3.431787592404615*^9, 3.431793498265359*^9, 3.4317945175920057`*^9, 3.4317947370322647`*^9}, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztPW2s5NZVzu7b76akoaQtKjSCNC0QLNGmIAir7bRAgSh1xZdSMUUkEVbS pmWSpikuaSpZJZJRkTBU1WxQmUekeSqdVWACZP50KJlFyrBg8WTpMUl43Y6I JqtM6TzVbyOn6xWHc8/9sGfG9vXbNy1K6EjPO7avz/c995zrc2Zvu+OBu3/v o3c8cM9dd1z/vvvvaNx9z10fv/6Xfv9+vHTwKsO46k8Nw/if6401/A74NXtg H58dDOMH6J+DIC+zMzr+qrgR7+zAc8++ABd2Lhk3aZ75Ffp6CLbOdOHUydPq 7+Ezzxs/oXn253PwHRPXkvOBhIVn/PjE+UsKwNs1sG8poeuoeGh38+wSjkc3 L1bGYe6D/kOShq1lGta34so0/OQK+JS0AFyEjXv5uANy9L3nYEeM+7EMLSkp N62Y48Nq9CXY+koA66fPwhNPPQ84QmtR10tO4otwHjVy/sJFpZFVSeFnNDS8 RXCxs3kObsto5IOfDhiMIysQw89qSPhhyUryIjy8gOPB7ot7ZvkXq+LbHcNd C/g+eHpciaf3aXBcW6JaiJfx3rWe4v01DezXlavsqLi9ufHluTl26uTjsLkL v6GBfk1FbXDLWIMLmyPYWD8LG2dGcCGG38yAT6EroBqR/66GuDWBlKnkwvkX 4LnzO0wd0nXoJKsDf1DqfWcMD9+aEd2t/wBbuzrJ3qmBfkBSicQ/8Yl5Kk99 IoCkXLJ3cfCS1ySOIOaPGCnkBGbTGYOkZksJGTGs37lAxu1n1TT6GMfHqTkO YdPCszr4vgt+R1A7C6BRa0C77YHV6DBVrFVBu5GDdjcfLSSJFAwMHAtao13o 2QbYvam4ZkKjN8lD+1K+schpuLP5tHJp0o1sbKUeVhBCJCPR2z1o2A0c6TgO XnOcBjS8HkRK/Eeg3zDBHTwHrlGD/oyDCXwTDHdo5BF4sdzcjgn64wtjeGLj LKxvBLB14dJ9c3RBPIPJZIJn7HgCJlOOeBp0wakjbsOE7rPnoIY0DSP+yGzg Qq2Apl2lpnIjfYhTwa2RUZrAdh/BNnoMAXhmKoLQr6UiOMSwfauiCT40bwuj bgdGtOaMwUa+BlEMbYvZwoTGM7sosIXdDMYy61vACNMBGngNpYeBab0NJMBI GH2HG32Ub/QX9md9c/IVM3tG6I3sTJLX8mb7C1dkXp/hiPO82KSibfxxFRDl mq8IokyVJSCek0q48CKGwi/CTgxGVcVkwRLUZ6SYMSw58+nHMqvCY3Bm62KB mP+kmLpnxLXz3ceXKDl1sgvnhddv6kFsrm/kgNiAf92tDGKrAMSmHsS/lYiZ GeVHF8A+uPG8erYE7LlqAsdEBwZnnoZH15+GwdbOX+gA6gW+oQehE3gFEDqB Z0EQhH8UD+Yldjoxl9DTp2N+rlYg478uhvYVcU2Xd/2dHoQuNaoCQpPOlID4 2zJpazKTvy8G+zdaaecnIk8Wg3y8osifyoAgCPJBnaCf0uPWCboExGP7EPSg GOxfXaGg/7kY5HpFQf+7HoRO5CUgPi9lk7eboFFDCdg/p6N2g0Cnkc0MBkLw Z/JBTZ5ZloWHxWQr8JqM82vFIB4pEagu0ywB+0flAtUkmV/ngK9WYi/P+D5b UcoFOeeYY5Ph8NC3CLrJ92nB7mxXzQEVIRp9fGMeI0bb0LZt6I1j+j7ofhU6 1dK/PxAsXeFegSDEyEv/XpNN/4ClI67lwIjChGle+pdH3yeFoq9ss+Gbc+QV ZYH0mfbAspowi4PKWeCDyryuaKtiNq/EOJYZfAxN04D2+EJegpjmhw8o9OVZ wrfn8fRcF4YMZjIGB7nxw2nV/PDDGmPR5BoLhLC0sS7miIGiJ/TV0sZ7qliF PksRBGXTxygif185fbx7jzawkOBc5hTkecAPSSYyeUFW0mUqp+PRYti/LeWX nxwcyaApU2g1NPqU4XBFfenwWTkik2uRLucoUBDdPJFBSRhvK5efVJMuSaHj dcX83LZH+enyGB2+2grkt5Ds0M03FaM8tUJJ3qBDs2JJluB7p7iWF5bvR5Jv K0b5DjqWvzWsJMZ3FON4awlbVd8VVhJtCQ03VOBTlyAcLhHxuzKoCfMbJOE5 Ee6qXpDS8VQx09cJsnUvIFf0PpSO7y4mJw3wc4L+ii8o9/OylEa8p5g+GRbq 0jFNmL0ncb2fk/P9C6JhlRp7FY0u6taK5gOclmtzxMDEtEcxHBbHgiCbPjxa Mfhb1yNZThVW9i9yayi0Gi4Lwmb6/M4CupSDOXTIhaFJEejzkSy4tSxl7I9s 61gJNffOizuLiVOSYnKyVpJCY8MktE8V23UWxCvifnr7u4RVvfhN+IqexMne XvzOwTkGo55HY7zOkKexy4l8bm6YB4ul5p5pwZAUneS9odXCMqpk2jPwaxYM 6KRypp2DpThhzmAoS5gPKQyfXBZFSmPJm9ASItPdD1TrJAAb439OReUXnvng Yhj1W8hUXTFVMS3Ngkv3nsoTyOwzr84p+Yq4//9TKt91rlV+lUQwnfGtltfk PCPzJ1a/E0Xkyg0ej66pYpckidm/0rtHsxmIFdTgVajM2SRiJUgy+2tslydi j/5CzqMyB84MM36cE39IEDALWmDZPrQ9GxrtUR79Mhkbd2xgxSWu54LjdakQ 5hTdOwbRqEf7X3WvA2PicQYt2wKv3QKb7ZTGkpFjdK/n1YHVFnWGGCMl29Bg e8y2C67jQHcUibHHYTr0iRbDFHtrNlumlmDfohidoivmJcUH6HgI2s9sLYEX laLc7zE9jmlIl9avGa4yJvQmyYkSYbDlZCbkPOk2oN4eCaUehcBF4oJI3EOh 2T36HuFyYjR6J6Uc4iHUTF9qCzUnPTRSY9psd1nJLGw1wO3xeHJ70IOnvrQE VskM4hAalgdjpoZoG3r9UR7sty/IYNbHZcIDvoTjioYSd4ezPBm8S1yLQw9M h795k4YQeBZ7jAYOnBo4AwEwZIr02EaxIeuqIRqCZfJrB5UGY1pMcbVKGWLx hVOHNi8FKoKrwI67ULd5OJMHdoHxKGBRkQ9SQEO3VsT4zeJaMgtpuzlVepZx LjtpABhEkJaXGefX+JRfIybDroP4SDvKSGACbs1GwovBnhR2N+27UPcDSD9z IBcVjkTUDFcpvJlROLGdmvoInJqYf/UmeyCHaxSch2rpc3DxkroPkb0LddNn 1HHEJD0IzeFUSfnn6HgC4kgl0BRHWe3tQhz8GZarxZD6xoACn+2kGNfbFmSS jMiNcUcw4U6hzBGskehadfRk4QQxJ1Iw8WwC7boJnhDOdruuJqzwCalDRKIn 6IdNrk+uj7AJltOFSUQLg5oL464HzYBeeUCvgV4N9Z0D+xYxHBGD57SAvyPp Igc1YBa0AF74Q7koRKF2UXhnZqghXnzUW+EpwdJ01EebMcEP0iibfHanTT47 jDPTO5lCH/2byV5ZKY0zqQqbQx2G0scfJ700qc6R3xpMkzzwagUZ+OrtZd0f iJcYS9DF5FBrOq7VM7FW57H/0+JaHKebPO8V19gKLF+VyFU5Y5fKC8R8Raaz AznPnsw8G/GHVR6RhadKrZGrfrtH8+G16loMg3YbtmPpC4vDmrp6BgMN5Atj DeU/+25dmB0Y3yfHzYZQt3zyBwc0sH9Z8rz1JJw+eR/7w2fY8SCcvrOrIhY+ 045Ct8E100KFNiwbBsIw4lETzEafo7sWgpZN3q0fBmgTLDxAVrf7NIfd7r9A 22bXWhCGPUypMI1qDWE0YG7DwjgAE8JeA6zmqDr13UrUk3PGGIKyQPSegxEn f9SqI7pQUk8ODOc802PoM0dKOShfqBBm2Kzh/A5JISrBRKdm1fhqRSuX3dsX 9ben1Es753FednV6A/l5tfSAWHZF7EL3iPQ0D2b+2vSCOXbm/D9GGyZffIyr OP3sz7iXHeRm2TgcEe8ti5ZaTst1XIqtkaJlNmQLuEPvXAPXZBIGHsXVyG6G nsniI6LPQzxNnO4YNCF+TgsTo6nEKHf0smLM8/9Vrx1fMbz/q2uvRD7yaOa7 Nkeys4Hu03c+l4UNFIy59QxcVLPlKEXmtuuDa9dwTEOUq7OtJAqOladqu2hw JgamdTAxnmu2fLBZUFVvwTTBWMGxyCvZ9RrU6i60fIdq0OtNHs/NBnjuBd8z 0lcdH3s20tuzRsoClstwafcluBS/TGMuxS9hWHJZvbtBH+vVatCbZiOFCeYv PBv6nkW96vhI3deTV+bixJg83l8vrmEEQIkFLrqZYDOBQdOFziiSwWZVs7o5 59p7c669p+K4HxXXdBHb4bJx3NPTiGM5OHTNvjeVwb59kYb5icz/aCJXbqaN n4EvL6I5+QiMdyuwmhFJ5Wba/eDLiHa1+ArFmO3fTbFcsyfg+nG/rmHmSvBt LI37DHxtxfjkYsKF9bISXrz7MopT20KcvpV8CZ6+8z6FgB3/afNbavChiuTc sQd8ZyviKxPjXvCV8SdtsECMJf3CuxUxHKo47mPVUFUSHht3ezVUhGmSeXAV vEipXhaSTKX6ElxOoFHMapaSqqyWUfJQNVRVmS6Tagkq2aj3/Mbnljzrxuln Vi3fhytQsl6dkjKmSzo4ZbOcjmnpOXUkaZj+XAVKKmHQj9M2Pu4F1SNL4x4r QEWYZHucbl9ur1KFhEtSLcLse3L50WJWU0qqRWw6Vkv6HB9XqKoxXTmAy2f6 S1Uo2UeYmhlX0m5YimqJGX3YVoJqfRXyXRpXGNmVNESu7wmDnumSLkPVfraf sLh6VlDSnLgSSjLCKW7kW1EGkEWwwMtn94hqn0lCSXvhlVBSFnKeL0aV9mKt JprWBPdf55SoMnBNtWF591j1eLyM4v/OklStcPGghqyqgizT2QJZVWog88i6 e69k7S/r+OYi1dqSSi3Vq0gbvl1CVkEdJpFFdZj2HkVTEOUlywrVVXLmiUb2 hq0qIKej6A3j/1SuDC0lb0VRej55lSpN90OeRpf04VuWc6+/ZcFqnt+STWmr SiroWKEJblXx/GrxFUawNOiNxWhOfSfEWKEDbqVizOIjdHvDUi68G4uZ+Slx bVUpGB1Les5SfKtJtPaFr3oWRYNuLkaT7vivJumg47ur4FtNarEvfNXzBhpU 0m1WlS06vj8Dh8BIiKvKDJawLFC7N3zlQvnA/tHQsf6dh3OkIpyquciq8GkS Dfp8aP9o6Pjh1cJR3XfpM/TH34nSM3NwteKcg7u2CJcIlt18ZeL6SHXyaLyz //EbS+OJtbnx1+aQzsZmSV9RmwV99/f//XVSe5kySTVBMmWS9MwD889kyx+V FWTKH+mZj/NnTohRYcclniy3A7LgWJQvirz6OAw8i34uRN6fhR2wDF5mzcJ6 UZ+4DJ6RPKNqNj+MBbjXyvpCSD/b4Ngt1WHA6hJZLazIUWUBYT54XhHuBTO1 C5ApAlQcMJSG1QDXdaBe4w0aiUKnivzoc/8yCn8BRaa2T1zDpGTaB9sdMnFQ EacfRmm9LK/do7MiHItsiMqseRxIdNd1oUNK8zI1rQdl6VUJjkVNzFfdyJwn HrXIIJzeJDMurcRZVsNaakQOGlGSvofMVF/I36IllJbNipnFJ63GoFNh0/Q9 Z348J0SRTIbgez40ffzrhrTn0+VD/lOgH7io6BpVlRtP8Ft/KBUym7IGS5jF iWKc2o9EAfOJ7DXMzNjWTfY3a0RnU6oY3hhFBdnT6WypqSPiBdjzv3sj4MqC Vl7MzcddUwJXtmKwVL/mBwK+yFnX5pquMr1aeWXccTRTHPM9aIN7sxsgmQ5V N4XdaOCkMTE5RlVSZxfOV9HpZFmsntAEp9UTxYE43mdua7pwDgSzITuk8Jl2 iKOCNv8RW3RRQci7s4yaA8FsV1RXG9BoiYLCH6GGAHapVse57LDmrBq0hnxr YSZBGaJeEZF2BAlOZwhDaaReP5cU5dUsD4LRAFyL3bOgE4TQcS0a56Gljfu+ 7NEwah71baRCPQ5B2+EkorTCc0XcJXz4m0o54j9tjQJ0HKLMH7DrEXQavK/A arjQICU5sL07EhRzqnu8rwrdRU21lNSbQznpjL/k+lY/RsZ6faRLlzP4Laie FjSagXAKJhUqR0FTfYckpBLyoZzNC+d9h1MXTNGO0Rs4tQbO/Fg4O74BE3im qB8XjnY4hXgmHeGN1DdSc/uScr7FxYqi0QyZo2WV82OEOe57UPcGkIyaJMUw 4fQwtpphVEhLCyVYE8vRqEnbZ5wVguNDLLptah6accJ+wbqJku/y+XaMpp/P /SrIHxJbYE24gh8qZkV+b4h7uCQxEQ8j3vFHvUvTHl3rT3ah5/C+g942ugRm ypYLzwpDag7GzLlQMOAOpkYrq+iDwqao5FzspF0jbJC33HANik3NhQ3O+XO5 ZMXS8lmHaZSo1VJxyCvs1XUpuLDdmlsFeg6zahtG3wjIhhiFB8TYCH3fHJVE CQo9+C9JhRh7tSKjyfQq+swCRYbsxfMhos4ytBM1ea+GZJb5fTrIcpltmZtj TSj39cX8xPP4szAHXo1ikSiSkuV01ztjtYjGM3j6C6g0u6uWlOlU9TgYX+T6 5d3+otGL+YFak+1kchW/OUd4UsVc3YEkfO6c790aOFF8XGY9zwO/PWDLDQnC F9zm6JijvYEaO5u26IJqdFE1Q4y1MujE+sbJs/j1mM9ZP3ihEH12zhJ6PxTU p7q12LKEEYKHz/q+B+3BOJ2zy2pd4EZMjmuXWVAopTrZywkBK55COOyCW+dO OIhEw2IQyfiHLc8sXub/ZQHnyvOa6JUSOVU1qpT+bbgwW8cD7gDc7gB6nR6c ++r8ef8LzLcNyDm0GYEmgmVLOTHWQd82IUHwOSMFFPEN6bfCZNhSHWoW76vm FNYM0VeTQLvGW/3kouYNphio9dRyETZzSIhGPJrANXKC05b7Nhtll8C42xD+ kcu4ict0Mh3wloPO2JD6jGch+UnSQT5LYmP9zQV8xOgvTVoeRhFbSng/d3t7 h/PUYgvvNndLTNSsfbGRaWVksfi4TXSzeGCb6DYYz0Kn0v0OBJaxChDfAiwy D7f/A4MMXP5NRsEUl22EajIpzDAN9MAyTajX2WrxW9D8Yva8TmPYeNm00dvG YDHogI2xmY3mVTfTFsRJjwdBpmmB3xurRVbmXAxnT/SBRfK3R+IReHWL8Jl4 vz+O07DFEr+8yqRNg5dpmY364OK54zdxpTJpZrQHfYRpCgPd5r6AxZx1zKxE rDmWQe0x2O63wcZEhWW3BaypRbaIFdYO7TfqUGdRk4iUbL9PaSeLcyzMSpyG hYGbZIVlJpjZIkk1FLfb5RkuMw7btkkFLv8PRxYXWd7DSq2mymczW5b53BvF NYai71Ajtxh3WIRaGReJ677t9NVeZMj7AjG6MW4sf0RUnDjC87BQ2yRVNaE/ GECbftyA/Kjxg4qgWDWUHhDQWTO+Q5OlA/1ukwe03lB24VKQ6ZgiXgEFSazQ LczrjpVDEnR+So5KcDoM+9Dt9jAOH8NsOobxLLmebh+iPtxhrwvd3hBTuG0c MjVSWtCz4PBhrw+TOKUF9Tns9plBiW6BfDCCEOOq/wVO9LPN\ \>"]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[" Stage 2: Coils 12A:13 & 12B:14 : 67mm > z > 26mm", "Subsubsection", CellChangeTimes->{{3.424191951496128*^9, 3.424191964527378*^9}, { 3.431193694136137*^9, 3.431193701279811*^9}, {3.4313576895142097`*^9, 3.431357705089055*^9}, {3.431786641772513*^9, 3.431786647234745*^9}, { 3.431786677458871*^9, 3.431786683546433*^9}, {3.431786744765764*^9, 3.431786745186879*^9}, {3.431786854755561*^9, 3.431786869331737*^9}}], Cell[CellGroupData[{ Cell["Initialization", "Subsubsubsection", CellChangeTimes->{{3.424191092996128*^9, 3.424191098839878*^9}}], Cell[BoxData[{ RowBox[{"Clear", " ", "[", RowBox[{ "buf", ",", " ", "Aspect", ",", " ", "Curr1", ",", " ", "Curr2", ",", " ", "sol", ",", " ", "asp", ",", " ", "curr1", ",", " ", "curr2", ",", "curr3", ",", "curr4", ",", "curr5", ",", "curr6"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amps1", "=", "curr1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amps2", "=", "curr2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amps3", "=", RowBox[{"-", "curr1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amps4", "=", RowBox[{"-", "curr2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amps5", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"amps6", "=", "0"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Unit", "[", RowBox[{"r_", ",", "z_"}], "]"}], ":=", RowBox[{ RowBox[{"Coil1", "[", RowBox[{"r", ",", "z", ",", "amps1"}], "]"}], "+", RowBox[{"Coil2", "[", RowBox[{"r", ",", "z", ",", "amps2"}], "]"}], "+", RowBox[{"Coil3", "[", RowBox[{"r", ",", "z", ",", "amps3"}], "]"}], "+", RowBox[{"Coil4", "[", RowBox[{"r", ",", "z", ",", "amps4"}], "]"}], "+", RowBox[{"Coil5", "[", RowBox[{"r", ",", "z", ",", "amps5"}], "]"}], "+", RowBox[{"Coil6", "[", RowBox[{"r", ",", "z", ",", "amps6"}], "]"}]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rComp", "[", RowBox[{"r_", ",", "z_"}], "]"}], ":=", RowBox[{ RowBox[{"Unit", "[", RowBox[{"r", ",", "z"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"zComp", "[", RowBox[{"r_", ",", "z_"}], "]"}], ":=", RowBox[{ RowBox[{"Unit", "[", RowBox[{"r", ",", "z"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GrComp", "[", RowBox[{"r_", ",", "z_"}], "]"}], "=", RowBox[{ SubscriptBox["\[PartialD]", "r"], RowBox[{"rComp", "[", RowBox[{"r", ",", "z"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"GzComp", "[", RowBox[{"r_", ",", "z_"}], "]"}], "=", RowBox[{ SubscriptBox["\[PartialD]", "z"], RowBox[{"zComp", "[", RowBox[{"r", ",", "z"}], "]"}]}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"z0", "=", RowBox[{"26", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"zf", " ", "=", RowBox[{"67", " ", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", " ", "=", " ", "42"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"scale", " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"zf", "-", "z0"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"buf", " ", "=", " ", RowBox[{"UnitVector", "[", RowBox[{"n", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"gradient", "=", RowBox[{"100", RowBox[{"gauss", "/", "cm"}]}]}], ";"}]}], "Input", CellChangeTimes->{ 3.424191044214878*^9, {3.424191142558628*^9, 3.4241912622305036`*^9}, { 3.4241916446680036`*^9, 3.4241916491055036`*^9}, 3.4241925450117536`*^9, { 3.424192604027378*^9, 3.424192612433628*^9}, {3.4244294610742536`*^9, 3.4244294691992536`*^9}, {3.424429683402378*^9, 3.424429693402378*^9}, { 3.424429967496128*^9, 3.4244299707305036`*^9}, {3.4311038420519257`*^9, 3.431103856009079*^9}, {3.431103943443224*^9, 3.431103980289875*^9}, { 3.4311885595071573`*^9, 3.431188565997161*^9}, {3.431188974570271*^9, 3.431189010992488*^9}, {3.431189415850789*^9, 3.431189417185584*^9}, { 3.431196094344141*^9, 3.4311961101856623`*^9}, {3.4313533891613073`*^9, 3.431353394562222*^9}, {3.4313550441773567`*^9, 3.43135517562286*^9}, { 3.43135577213243*^9, 3.4313557803196907`*^9}, {3.431357308668244*^9, 3.431357311423059*^9}, {3.43135735491129*^9, 3.431357358576067*^9}, { 3.431357503786956*^9, 3.4313575068633213`*^9}, {3.431357834007758*^9, 3.431357845806657*^9}, {3.4313579875018463`*^9, 3.431357989042493*^9}, { 3.431785806202236*^9, 3.431785817388994*^9}, {3.431786563597267*^9, 3.4317866216920023`*^9}, {3.431786665965912*^9, 3.431786668412519*^9}, { 3.4317867626366167`*^9, 3.431786783580823*^9}, {3.431786843424699*^9, 3.431786848157482*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Calculations", "Subsubsubsection", CellChangeTimes->{{3.424191616714878*^9, 3.424191617964878*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "0"}], ",", RowBox[{"i", "<", "n"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"zpos", " ", "=", " ", RowBox[{"z0", "+", RowBox[{"scale", "*", "i"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"sol", " ", "=", " ", RowBox[{"Solve", " ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"zComp", "[", RowBox[{"zero", ",", "zpos"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"GzComp", "[", RowBox[{"zero", ",", "zpos"}], "]"}], "\[Equal]", "gradient"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"curr1", ",", " ", "curr2"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"buf", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], " ", "=", " ", RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Curr1", " ", "=", " ", RowBox[{"curr1", "/.", "buf"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Curr2", " ", "=", " ", RowBox[{"curr2", "/.", "buf"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", " ", "=", " ", "0"}], ",", " ", RowBox[{"i", "<", "n"}], ",", RowBox[{"i", "++"}], ",", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"I1", "[", RowBox[{"[", RowBox[{"i", "+", "26"}], "]"}], "]"}], " ", "=", " ", RowBox[{"Curr1", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"I2", "[", RowBox[{"[", RowBox[{"i", "+", "26"}], "]"}], "]"}], " ", "=", " ", RowBox[{"Curr2", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"I3", "[", RowBox[{"[", RowBox[{"i", "+", "26"}], "]"}], "]"}], "=", RowBox[{"-", RowBox[{"Curr1", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"I4", "[", RowBox[{"[", RowBox[{"i", "+", "26"}], "]"}], "]"}], "=", RowBox[{"-", RowBox[{"Curr2", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}]}]}], ";"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", "I1", "\[IndentingNewLine]", "I2", "\ \[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"Curr1", ",", "Curr2"}], "}"}], ",", RowBox[{"DataRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"z0", "*", "1000"}], ",", RowBox[{ RowBox[{"(", RowBox[{"z0", "+", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}], "*", "scale"}]}], ")"}], "*", "1000"}]}], "}"}]}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"z0", "*", "1000"}], ",", "0"}], "}"}]}], ",", RowBox[{"PlotMarkers", "\[Rule]", RowBox[{"{", RowBox[{"Automatic", ",", "Small"}], "}"}]}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotLabel", "\[Rule]", "\"\\""}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amps1", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amps2", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amps3", "=", "0"}], ";"}]}], "Input", CellChangeTimes->{{3.4241916296992536`*^9, 3.4241916535430036`*^9}, { 3.4241916856680036`*^9, 3.424191700308628*^9}, {3.4241917784805036`*^9, 3.4241918127617536`*^9}, {3.424192057121128*^9, 3.4241920575430036`*^9}, { 3.424192283621128*^9, 3.424192307839878*^9}, {3.424429122996128*^9, 3.4244291238242536`*^9}, {3.424429476808628*^9, 3.424429478714878*^9}, { 3.424429546121128*^9, 3.4244295465117536`*^9}, {3.431188571551977*^9, 3.431188571787519*^9}, {3.4311886047776012`*^9, 3.431188717945578*^9}, { 3.4313533225805473`*^9, 3.4313533720584517`*^9}, {3.431356066633704*^9, 3.431356075139104*^9}, {3.431357067419949*^9, 3.431357067589745*^9}, { 3.431357375904657*^9, 3.431357378243895*^9}, {3.431787504567233*^9, 3.431787570834773*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "14.126669745897097`"}], ",", RowBox[{"-", "14.526870966035098`"}], ",", RowBox[{"-", "14.980059762802581`"}], ",", RowBox[{"-", "15.487374135719538`"}], ",", RowBox[{"-", "16.050198895963465`"}], ",", RowBox[{"-", "16.670085050015782`"}], ",", RowBox[{"-", "17.348646199600473`"}], ",", RowBox[{"-", "18.087422957390764`"}], ",", RowBox[{"-", "18.887704895863106`"}], ",", RowBox[{"-", "19.750298280385703`"}], ",", RowBox[{"-", "20.67522726355214`"}], ",", RowBox[{"-", "21.661357095614896`"}], ",", RowBox[{"-", "22.70593135582307`"}], ",", RowBox[{"-", "23.804022741197624`"}], ",", RowBox[{"-", "24.94791036135598`"}], ",", RowBox[{"-", "26.126417508896928`"}], ",", RowBox[{"-", "27.324273383729174`"}], ",", RowBox[{"-", "28.521598952135538`"}], ",", RowBox[{"-", "29.693655756877735`"}], ",", RowBox[{"-", "30.81102612112568`"}], ",", RowBox[{"-", "31.84039681379926`"}], ",", RowBox[{"-", "32.746075725357606`"}], ",", RowBox[{"-", "33.49226699558375`"}], ",", RowBox[{"-", "34.04596581399951`"}], ",", RowBox[{"-", "34.38013976064188`"}], ",", RowBox[{"-", "34.402568668855125`"}], ",", RowBox[{"-", "34.17203939558165`"}], ",", RowBox[{"-", "33.68699347761699`"}], ",", RowBox[{"-", "32.966826180045594`"}], ",", RowBox[{"-", "32.04129239264665`"}], ",", RowBox[{"-", "30.947232444088282`"}], ",", RowBox[{"-", "29.724893334529938`"}], ",", RowBox[{"-", "28.414473425799432`"}], ",", RowBox[{"-", "27.053346718056694`"}], ",", RowBox[{"-", "25.674185933452645`"}], ",", RowBox[{"-", "24.303986362734232`"}], ",", RowBox[{"-", "22.963845063148074`"}], ",", RowBox[{"-", "21.669283144043014`"}], ",", RowBox[{"-", "20.430896236053083`"}], ",", RowBox[{"-", "19.255153645944333`"}], ",", RowBox[{"-", "18.145216478965736`"}], ",", RowBox[{"-", "17.10169331816131`"}], ",", RowBox[{"-", "16.12329102614551`"}], ",", RowBox[{"-", "15.20734579066714`"}], ",", RowBox[{"-", "14.3502368005673`"}], ",", RowBox[{"-", "13.547694317329764`"}], ",", RowBox[{"-", "12.795017924353605`"}], ",", RowBox[{"-", "12.087221510777045`"}], ",", RowBox[{"-", "11.41912065179212`"}], ",", RowBox[{"-", "10.785376557418717`"}], ",", RowBox[{"-", "10.180509366654308`"}], ",", RowBox[{"-", "9.598892680921427`"}], ",", RowBox[{"-", "9.03474108244281`"}], ",", RowBox[{"-", "8.482103029599322`"}], ",", RowBox[{"-", "7.934872839863163`"}], ",", RowBox[{"-", "7.386837085253293`"}], ",", RowBox[{"-", "6.831771896917854`"}], ",", RowBox[{"-", "6.263607199592192`"}], ",", RowBox[{"-", "5.6766700931871705`"}], ",", RowBox[{"-", "5.066010548593706`"}], ",", RowBox[{"-", "4.42779679122961`"}], ",", RowBox[{"-", "3.759745311922056`"}], ",", RowBox[{"-", "3.0615245471509143`"}], ",", RowBox[{"-", "2.3350491650495426`"}], ",", RowBox[{"-", "1.584574175745306`"}], ",", RowBox[{"-", "0.8165151050694199`"}], ",", RowBox[{"-", "0.038966297912319904`"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output", CellChangeTimes->{ 3.4241920638242536`*^9, 3.424192328121128*^9, 3.424192782746128*^9, 3.4241929761055036`*^9, 3.424193084027378*^9, 3.4241951748242536`*^9, 3.424428751339878*^9, {3.424428858496128*^9, 3.4244288930117536`*^9}, 3.424428981339878*^9, {3.424429077964878*^9, 3.424429125308628*^9}, 3.424429213214878*^9, {3.424429318464878*^9, 3.424429349777378*^9}, 3.4244294892617536`*^9, 3.4244297129180036`*^9, 3.4244297522930036`*^9, 3.424431093808628*^9, 3.43118896441654*^9, 3.431189121932496*^9, 3.431353408481063*^9, 3.431355293975531*^9, 3.431356090842675*^9, 3.4313570730186987`*^9, 3.431357323917672*^9, 3.431357368655137*^9, 3.431357518744155*^9, 3.431357905087788*^9, 3.431357970905746*^9, 3.431358002300742*^9, 3.43178543964787*^9, 3.431785674264278*^9, 3.431785975793189*^9, {3.4317866022203417`*^9, 3.4317866284347258`*^9}, 3.431786709601862*^9, 3.431786806989334*^9, 3.431786901993814*^9, 3.431787366866325*^9, 3.431787601703537*^9, 3.43179350381243*^9, 3.431794523641389*^9, 3.4317947435075893`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "16.559081900655062`", ",", "15.55688111446496`", ",", "14.627413985786022`", ",", "13.761930027179393`", ",", "12.952577372298174`", ",", "12.192227065485154`", ",", "11.474319302855244`", ",", "10.792728571836532`", ",", "10.141645909244037`", ",", "9.515477886102529`", ",", "8.908763510188983`", ",", "8.316112061631706`", ",", "7.732166924093335`", ",", "7.15160260544304`", ",", "6.569164023394614`", ",", "5.9797581479129445`", ",", "5.378607284079679`", ",", "4.761469375706756`", ",", "4.124922365584718`", ",", "3.4666960037327543`", ",", "2.7860161012029425`", ",", "2.083906122732244`", ",", "1.3633753488695945`", ",", "0.629420102135177`", ",", RowBox[{"-", "0.11121741884120195`"}], ",", RowBox[{"-", "0.9089064849616796`"}], ",", RowBox[{"-", "1.6877359765234101`"}], ",", RowBox[{"-", "2.4459924102582438`"}], ",", RowBox[{"-", "3.1755950785530027`"}], ",", RowBox[{"-", "3.8704887909543575`"}], ",", RowBox[{"-", "4.527086857036746`"}], ",", RowBox[{"-", "5.144380612696373`"}], ",", RowBox[{"-", "5.7237543799599155`"}], ",", RowBox[{"-", "6.268593951177946`"}], ",", RowBox[{"-", "6.783792979722117`"}], ",", RowBox[{"-", "7.275250045870842`"}], ",", RowBox[{"-", "7.7494218903044`"}], ",", RowBox[{"-", "8.212967741617758`"}], ",", RowBox[{"-", "8.67249408320024`"}], ",", RowBox[{"-", "9.1343919807827`"}], ",", RowBox[{"-", "9.60474998664177`"}], ",", RowBox[{"-", "10.089322624218209`"}], ",", RowBox[{"-", "10.593535143361576`"}], ",", RowBox[{"-", "11.122507621262804`"}], ",", RowBox[{"-", "11.681084200587772`"}], ",", RowBox[{"-", "12.273855520016223`"}], ",", RowBox[{"-", "12.90516384701566`"}], ",", RowBox[{"-", "13.579080989567252`"}], ",", RowBox[{"-", "14.29934883967464`"}], ",", RowBox[{"-", "15.069271615592166`"}], ",", RowBox[{"-", "15.891547891908486`"}], ",", RowBox[{"-", "16.76802990182023`"}], ",", RowBox[{"-", "17.69939820759019`"}], ",", RowBox[{"-", "18.684742874549375`"}], ",", RowBox[{"-", "19.721049375722558`"}], ",", RowBox[{"-", "20.802600548107247`"}], ",", RowBox[{"-", "21.920326927877145`"}], ",", RowBox[{"-", "23.06116775674698`"}], ",", RowBox[{"-", "24.207542633130238`"}], ",", RowBox[{"-", "25.337073706358023`"}], ",", RowBox[{"-", "26.422728931428967`"}], ",", RowBox[{"-", "27.43356027467977`"}], ",", RowBox[{"-", "28.33616589462777`"}], ",", RowBox[{"-", "29.096896903239962`"}], ",", RowBox[{"-", "29.684660871227987`"}], ",", RowBox[{"-", "30.07397975827445`"}], ",", RowBox[{"-", "30.24780350206151`"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output", CellChangeTimes->{ 3.4241920638242536`*^9, 3.424192328121128*^9, 3.424192782746128*^9, 3.4241929761055036`*^9, 3.424193084027378*^9, 3.4241951748242536`*^9, 3.424428751339878*^9, {3.424428858496128*^9, 3.4244288930117536`*^9}, 3.424428981339878*^9, {3.424429077964878*^9, 3.424429125308628*^9}, 3.424429213214878*^9, {3.424429318464878*^9, 3.424429349777378*^9}, 3.4244294892617536`*^9, 3.4244297129180036`*^9, 3.4244297522930036`*^9, 3.424431093808628*^9, 3.43118896441654*^9, 3.431189121932496*^9, 3.431353408481063*^9, 3.431355293975531*^9, 3.431356090842675*^9, 3.4313570730186987`*^9, 3.431357323917672*^9, 3.431357368655137*^9, 3.431357518744155*^9, 3.431357905087788*^9, 3.431357970905746*^9, 3.431358002300742*^9, 3.43178543964787*^9, 3.431785674264278*^9, 3.431785975793189*^9, {3.4317866022203417`*^9, 3.4317866284347258`*^9}, 3.431786709601862*^9, 3.431786806989334*^9, 3.431786901993814*^9, 3.431787366866325*^9, 3.431787601703537*^9, 3.43179350381243*^9, 3.431794523641389*^9, 3.4317947435121603`*^9}], Cell[BoxData[ GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJztlGtMU2ccxisMp1jQijNK1VoQphMFwcpsCzynPVBaKG1Z0nkhu4ibE5C5 4FadQ3Yx48OIF+S2ymRoTBpYQIKRoSjghYxGcFxW3SQwI3NszmEQSgxM9m79 n+zzvvckJydPfic5533f3/+R73g3/S0fkUjkYPc/T8+lhOZY+2uFMVybJ6vg 7BVn+i0WshpBtqm3R2+Dchw2SPsn2g4KOR53njVI9H5CTkCrxNKXPxZPGZge FlcWN8d58sdA9WDUn8FZauIcZu/aLXcEqIhziLE/n1f+zWbiGlS9PijuNb5M XIOu6u+Lrrg3EdeiY89QqLVWQVwLXc/mWFPuRuI81J39rRYuhjiPwzOqkYiw aOKJ+Kj5WvGc4A3EE5ETuU50TBZFPAkD7Srlmqz1xJNQVTqiTm+MIK5Df+LF zOwla4nroKm5VyYuX0M8GcHlSHVErCaejGnx7qkyVzhxPeQWw8/LisOI69HZ xTdnZ6wibkDwlZb5p6NDiRvgdOlLOyUhxFMwPZCucLlXEk9B0Od8mumyjHgq 7q/d4icrWk48FX88lfq2vCIlboR1/Py80YClxI3g6rhZv51fTDwNlfZHfIV2 EfE0DDnqMhZckBA3wTVetXUiKJC4CTXm0RLRoTnEzXhwuJFbX+fjyTDjaEVu Xta2p62e981Q9q7QD6/83ZPbzHh/YvuzzCdnPJn5KRN/EnDthUeUVRhT2PZO iqYoq8GX+ezfedyXvheHEGf+zlO75lKOx6+2G31X3fR/zE91wUZHi3QhZeDV /gef3jkhrA8YC+QGZb8I6+fQ/eNjg3+QsD8catwffm0PEfZPgwNPhsPuLhX2 VwNVYFPeOzMriGtxu9Eu9d8jnI8WedHTqyxb5MR53K0smX2Lp/NkfvpeNzqr FXTezM+OUw8bLq0jH5ifBYUnXfcjyRfmp7b2rKU5Ppx4Eo40HJI0ZbxIXAd3 RY5zU5Hgnw5bR9pOv3frPz/3/VRvzF8t+JsM/5lk8F8Kfuvxw3NNx22hgv96 yOTLJ/d/F0ncgFm1R05+dZ3mhfkpPXjz6rxGmifmZ9f2ZaaUepo35mdJoayh 7FuaR+anaahdaeuieWV+6gccX9gf0jwzP3U3a8455scSN2Ksp/QzuYL6gPkZ E/7mBwYr9QXz88DRcndsjpK4CS9VvNH9V67QLyaM7+ubDLQK/WNGX0GSunsJ 9RPzM7sjfTSxXugrM3q27bA+Xkh9xvxMiLon3psg9Ju3P7396e1Pb396+/Pf +D/682+nGRo3 "], { {Hue[0.67, 0.6, 0.6], 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], 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], 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]}, {Hue[0.9060679774997897, 0.6, 0.6], 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], 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]}, {}}], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["\"z (mm)\"", TraditionalForm], FormBox["\"I (A)\"", TraditionalForm]}, AxesOrigin->{26, 0}, ImageSize->400, PlotLabel->FormBox["\"Current Scheme in Space\"", TraditionalForm], PlotRange->{{26., 67.}, {-34.402568668855125`, 0.}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{ 3.4241920638242536`*^9, 3.424192328121128*^9, 3.424192782746128*^9, 3.4241929761055036`*^9, 3.424193084027378*^9, 3.4241951748242536`*^9, 3.424428751339878*^9, {3.424428858496128*^9, 3.4244288930117536`*^9}, 3.424428981339878*^9, {3.424429077964878*^9, 3.424429125308628*^9}, 3.424429213214878*^9, {3.424429318464878*^9, 3.424429349777378*^9}, 3.4244294892617536`*^9, 3.4244297129180036`*^9, 3.4244297522930036`*^9, 3.424431093808628*^9, 3.43118896441654*^9, 3.431189121932496*^9, 3.431353408481063*^9, 3.431355293975531*^9, 3.431356090842675*^9, 3.4313570730186987`*^9, 3.431357323917672*^9, 3.431357368655137*^9, 3.431357518744155*^9, 3.431357905087788*^9, 3.431357970905746*^9, 3.431358002300742*^9, 3.43178543964787*^9, 3.431785674264278*^9, 3.431785975793189*^9, {3.4317866022203417`*^9, 3.4317866284347258`*^9}, 3.431786709601862*^9, 3.431786806989334*^9, 3.431786901993814*^9, 3.431787366866325*^9, 3.431787601703537*^9, 3.43179350381243*^9, 3.431794523641389*^9, 3.431794743557994*^9}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Stage 3: Coils 12B:14 & 13:15 - 114mm > z > 68mm", "Subsubsection", CellChangeTimes->{{3.424191951496128*^9, 3.424191964527378*^9}, { 3.431193694136137*^9, 3.431193701279811*^9}, {3.4313576895142097`*^9, 3.431357729920093*^9}, {3.431787019535177*^9, 3.4317870380844812`*^9}}], Cell[CellGroupData[{ Cell["Initialization", "Subsubsubsection", CellChangeTimes->{{3.424191092996128*^9, 3.424191098839878*^9}}], Cell[BoxData[{ RowBox[{"Clear", " ", "[", RowBox[{ "buf", ",", " ", "Aspect", ",", " ", "Curr1", ",", " ", "Curr2", ",", " ", "sol", ",", " ", "asp", ",", " ", "curr1", ",", " ", "curr2", ",", "curr3", ",", "curr4", ",", "curr5"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amps1", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amps2", "=", "curr2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amps3", "=", "curr1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amps4", "=", RowBox[{"-", "curr2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amps5", "=", RowBox[{"-", "curr1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"amps6", "=", "0"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Unit", "[", RowBox[{"r_", ",", "z_"}], "]"}], ":=", RowBox[{ RowBox[{"Coil1", "[", RowBox[{"r", ",", "z", ",", "amps1"}], "]"}], "+", RowBox[{"Coil2", "[", RowBox[{"r", ",", "z", ",", "amps2"}], "]"}], "+", RowBox[{"Coil3", "[", RowBox[{"r", ",", "z", ",", "amps3"}], "]"}], "+", RowBox[{"Coil4", "[", RowBox[{"r", ",", "z", ",", "amps4"}], "]"}], "+", RowBox[{"Coil5", "[", RowBox[{"r", ",", "z", ",", "amps5"}], "]"}], "+", RowBox[{"Coil6", "[", RowBox[{"r", ",", "z", ",", "amps6"}], "]"}]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rComp", "[", RowBox[{"r_", ",", "z_"}], "]"}], ":=", RowBox[{ RowBox[{"Unit", "[", RowBox[{"r", ",", "z"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"zComp", "[", RowBox[{"r_", ",", "z_"}], "]"}], ":=", RowBox[{ RowBox[{"Unit", "[", RowBox[{"r", ",", "z"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GrComp", "[", RowBox[{"r_", ",", "z_"}], "]"}], "=", RowBox[{ SubscriptBox["\[PartialD]", "r"], RowBox[{"rComp", "[", RowBox[{"r", ",", "z"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"GzComp", "[", RowBox[{"r_", ",", "z_"}], "]"}], "=", RowBox[{ SubscriptBox["\[PartialD]", "z"], RowBox[{"zComp", "[", RowBox[{"r", ",", "z"}], "]"}]}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"z0", "=", RowBox[{"68", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"zf", " ", "=", " ", RowBox[{"114", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", " ", "=", " ", "47"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"scale", " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"zf", "-", "z0"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"buf", " ", "=", " ", RowBox[{"UnitVector", "[", RowBox[{"n", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"gradient", "=", RowBox[{"100", RowBox[{"gauss", "/", "cm"}]}]}], ";"}]}], "Input", CellChangeTimes->{ 3.424191044214878*^9, {3.424191142558628*^9, 3.4241912622305036`*^9}, { 3.4241916446680036`*^9, 3.4241916491055036`*^9}, 3.4241925450117536`*^9, { 3.424192604027378*^9, 3.424192612433628*^9}, {3.4244294610742536`*^9, 3.4244294691992536`*^9}, {3.424429683402378*^9, 3.424429693402378*^9}, { 3.424429967496128*^9, 3.4244299707305036`*^9}, {3.4311038420519257`*^9, 3.431103856009079*^9}, {3.431103943443224*^9, 3.431103980289875*^9}, { 3.4311885595071573`*^9, 3.431188565997161*^9}, {3.431188974570271*^9, 3.431189010992488*^9}, {3.431189415850789*^9, 3.431189417185584*^9}, { 3.431196094344141*^9, 3.4311961101856623`*^9}, {3.4313533891613073`*^9, 3.431353394562222*^9}, {3.4313550441773567`*^9, 3.43135517562286*^9}, { 3.43135577213243*^9, 3.4313557803196907`*^9}, {3.431357308668244*^9, 3.431357311423059*^9}, {3.43135735491129*^9, 3.431357358576067*^9}, { 3.431357503786956*^9, 3.4313575068633213`*^9}, {3.43135780598543*^9, 3.431357815457398*^9}, {3.431357853993857*^9, 3.4313578750014877`*^9}, { 3.43135800654438*^9, 3.431358007435854*^9}, {3.431358050357585*^9, 3.431358054586729*^9}, {3.43178583790276*^9, 3.43178585001821*^9}, { 3.4317869317903347`*^9, 3.431786942926531*^9}, {3.431786973328238*^9, 3.4317869918704433`*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Calculations", "Subsubsubsection", CellChangeTimes->{{3.424191616714878*^9, 3.424191617964878*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "0"}], ",", RowBox[{"i", "<", "n"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"zpos", " ", "=", " ", RowBox[{"z0", "+", RowBox[{"scale", "*", "i"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"sol", " ", "=", " ", RowBox[{"Solve", " ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"zComp", "[", RowBox[{"zero", ",", "zpos"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"GzComp", "[", RowBox[{"zero", ",", "zpos"}], "]"}], "\[Equal]", "gradient"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"curr1", ",", " ", "curr2"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"buf", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], " ", "=", " ", RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Curr1", " ", "=", " ", RowBox[{"curr1", "/.", "buf"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Curr2", " ", "=", " ", RowBox[{"curr2", "/.", "buf"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", " ", "=", " ", "0"}], ",", " ", RowBox[{"i", "<", "n"}], ",", RowBox[{"i", "++"}], ",", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"I2", "[", RowBox[{"[", RowBox[{"i", "+", "68"}], "]"}], "]"}], " ", "=", " ", RowBox[{"Curr2", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"I3", "[", RowBox[{"[", RowBox[{"i", "+", "68"}], "]"}], "]"}], " ", "=", " ", RowBox[{"Curr1", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"I4", "[", RowBox[{"[", RowBox[{"i", "+", "68"}], "]"}], "]"}], "=", RowBox[{"-", RowBox[{"Curr2", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"I5", "[", RowBox[{"[", RowBox[{"i", "+", "68"}], "]"}], "]"}], "=", RowBox[{"-", RowBox[{"Curr1", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}]}]}], ";"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", "I1", "\[IndentingNewLine]", "I2", "\ \[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"Curr1", ",", "Curr2"}], "}"}], ",", RowBox[{"DataRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"z0", "*", "1000"}], ",", RowBox[{ RowBox[{"(", RowBox[{"z0", "+", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}], "*", "scale"}]}], ")"}], "*", "1000"}]}], "}"}]}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"z0", "*", "1000"}], ",", "0"}], "}"}]}], ",", RowBox[{"PlotMarkers", "\[Rule]", RowBox[{"{", RowBox[{"Automatic", ",", "Small"}], "}"}]}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotLabel", "\[Rule]", "\"\\""}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amps1", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amps2", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amps3", "=", "0"}], ";"}]}], "Input", CellChangeTimes->{{3.4241916296992536`*^9, 3.4241916535430036`*^9}, { 3.4241916856680036`*^9, 3.424191700308628*^9}, {3.4241917784805036`*^9, 3.4241918127617536`*^9}, {3.424192057121128*^9, 3.4241920575430036`*^9}, { 3.424192283621128*^9, 3.424192307839878*^9}, {3.424429122996128*^9, 3.4244291238242536`*^9}, {3.424429476808628*^9, 3.424429478714878*^9}, { 3.424429546121128*^9, 3.4244295465117536`*^9}, {3.431188571551977*^9, 3.431188571787519*^9}, {3.4311886047776012`*^9, 3.431188717945578*^9}, { 3.4313533225805473`*^9, 3.4313533720584517`*^9}, {3.431356066633704*^9, 3.431356075139104*^9}, {3.431357067419949*^9, 3.431357067589745*^9}, { 3.431357375904657*^9, 3.431357378243895*^9}, {3.431787769629545*^9, 3.431787812613089*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "14.126669745897097`"}], ",", RowBox[{"-", "14.526870966035098`"}], ",", RowBox[{"-", "14.980059762802581`"}], ",", RowBox[{"-", "15.487374135719538`"}], ",", RowBox[{"-", "16.050198895963465`"}], ",", RowBox[{"-", "16.670085050015782`"}], ",", RowBox[{"-", "17.348646199600473`"}], ",", RowBox[{"-", "18.087422957390764`"}], ",", RowBox[{"-", "18.887704895863106`"}], ",", RowBox[{"-", "19.750298280385703`"}], ",", RowBox[{"-", "20.67522726355214`"}], ",", RowBox[{"-", "21.661357095614896`"}], ",", RowBox[{"-", "22.70593135582307`"}], ",", RowBox[{"-", "23.804022741197624`"}], ",", RowBox[{"-", "24.94791036135598`"}], ",", RowBox[{"-", "26.126417508896928`"}], ",", RowBox[{"-", "27.324273383729174`"}], ",", RowBox[{"-", "28.521598952135538`"}], ",", RowBox[{"-", "29.693655756877735`"}], ",", RowBox[{"-", "30.81102612112568`"}], ",", RowBox[{"-", "31.84039681379926`"}], ",", RowBox[{"-", "32.746075725357606`"}], ",", RowBox[{"-", "33.49226699558375`"}], ",", RowBox[{"-", "34.04596581399951`"}], ",", RowBox[{"-", "34.38013976064188`"}], ",", RowBox[{"-", "34.402568668855125`"}], ",", RowBox[{"-", "34.17203939558165`"}], ",", RowBox[{"-", "33.68699347761699`"}], ",", RowBox[{"-", "32.966826180045594`"}], ",", RowBox[{"-", "32.04129239264665`"}], ",", RowBox[{"-", "30.947232444088282`"}], ",", RowBox[{"-", "29.724893334529938`"}], ",", RowBox[{"-", "28.414473425799432`"}], ",", RowBox[{"-", "27.053346718056694`"}], ",", RowBox[{"-", "25.674185933452645`"}], ",", RowBox[{"-", "24.303986362734232`"}], ",", RowBox[{"-", "22.963845063148074`"}], ",", RowBox[{"-", "21.669283144043014`"}], ",", RowBox[{"-", "20.430896236053083`"}], ",", RowBox[{"-", "19.255153645944333`"}], ",", RowBox[{"-", "18.145216478965736`"}], ",", RowBox[{"-", "17.10169331816131`"}], ",", RowBox[{"-", "16.12329102614551`"}], ",", RowBox[{"-", "15.20734579066714`"}], ",", RowBox[{"-", "14.3502368005673`"}], ",", RowBox[{"-", "13.547694317329764`"}], ",", RowBox[{"-", "12.795017924353605`"}], ",", RowBox[{"-", "12.087221510777045`"}], ",", RowBox[{"-", "11.41912065179212`"}], ",", RowBox[{"-", "10.785376557418717`"}], ",", RowBox[{"-", "10.180509366654308`"}], ",", RowBox[{"-", "9.598892680921427`"}], ",", RowBox[{"-", "9.03474108244281`"}], ",", RowBox[{"-", "8.482103029599322`"}], ",", RowBox[{"-", "7.934872839863163`"}], ",", RowBox[{"-", "7.386837085253293`"}], ",", RowBox[{"-", "6.831771896917854`"}], ",", RowBox[{"-", "6.263607199592192`"}], ",", RowBox[{"-", "5.6766700931871705`"}], ",", RowBox[{"-", "5.066010548593706`"}], ",", RowBox[{"-", "4.42779679122961`"}], ",", RowBox[{"-", "3.759745311922056`"}], ",", RowBox[{"-", "3.0615245471509143`"}], ",", RowBox[{"-", "2.3350491650495426`"}], ",", RowBox[{"-", "1.584574175745306`"}], ",", RowBox[{"-", "0.8165151050694199`"}], ",", RowBox[{"-", "0.038966297912319904`"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output", CellChangeTimes->{ 3.4241920638242536`*^9, 3.424192328121128*^9, 3.424192782746128*^9, 3.4241929761055036`*^9, 3.424193084027378*^9, 3.4241951748242536`*^9, 3.424428751339878*^9, {3.424428858496128*^9, 3.4244288930117536`*^9}, 3.424428981339878*^9, {3.424429077964878*^9, 3.424429125308628*^9}, 3.424429213214878*^9, {3.424429318464878*^9, 3.424429349777378*^9}, 3.4244294892617536`*^9, 3.4244297129180036`*^9, 3.4244297522930036`*^9, 3.424431093808628*^9, 3.43118896441654*^9, 3.431189121932496*^9, 3.431353408481063*^9, 3.431355293975531*^9, 3.431356090842675*^9, 3.4313570730186987`*^9, 3.431357323917672*^9, 3.431357368655137*^9, 3.431357518744155*^9, 3.431357825578374*^9, {3.4313578917984753`*^9, 3.4313579161494093`*^9}, 3.431357985064221*^9, 3.431358025390078*^9, 3.431358063309969*^9, 3.431785445971051*^9, 3.431785680182549*^9, 3.431785982486294*^9, 3.431786956393236*^9, 3.431787009891343*^9, 3.431787372466728*^9, 3.43178783014765*^9, 3.431793510122735*^9, 3.431794531085926*^9, 3.4317947521042423`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "16.559081900655062`", ",", "15.55688111446496`", ",", "14.627413985786022`", ",", "13.761930027179393`", ",", "12.952577372298174`", ",", "12.192227065485154`", ",", "11.474319302855244`", ",", "10.792728571836532`", ",", "10.141645909244037`", ",", "9.515477886102529`", ",", "8.908763510188983`", ",", "8.316112061631706`", ",", "7.732166924093335`", ",", "7.15160260544304`", ",", "6.569164023394614`", ",", "5.9797581479129445`", ",", "5.378607284079679`", ",", "4.761469375706756`", ",", "4.124922365584718`", ",", "3.4666960037327543`", ",", "2.7860161012029425`", ",", "2.083906122732244`", ",", "1.3633753488695945`", ",", "0.629420102135177`", ",", RowBox[{"-", "0.11121741884120195`"}], ",", RowBox[{"-", "0.9089064849616796`"}], ",", RowBox[{"-", "1.6877359765234101`"}], ",", RowBox[{"-", "2.4459924102582438`"}], ",", RowBox[{"-", "3.1755950785530027`"}], ",", RowBox[{"-", "3.8704887909543575`"}], ",", RowBox[{"-", "4.527086857036746`"}], ",", RowBox[{"-", "5.144380612696373`"}], ",", RowBox[{"-", "5.7237543799599155`"}], ",", RowBox[{"-", "6.268593951177946`"}], ",", RowBox[{"-", "6.783792979722117`"}], ",", RowBox[{"-", "7.275250045870842`"}], ",", RowBox[{"-", "7.7494218903044`"}], ",", RowBox[{"-", "8.212967741617758`"}], ",", RowBox[{"-", "8.67249408320024`"}], ",", RowBox[{"-", "9.1343919807827`"}], ",", RowBox[{"-", "9.60474998664177`"}], ",", RowBox[{"-", "10.089322624218209`"}], ",", RowBox[{"-", "10.593535143361576`"}], ",", RowBox[{"-", "11.122507621262804`"}], ",", RowBox[{"-", "11.681084200587772`"}], ",", RowBox[{"-", "12.273855520016223`"}], ",", RowBox[{"-", "12.90516384701566`"}], ",", RowBox[{"-", "13.579080989567252`"}], ",", RowBox[{"-", "14.29934883967464`"}], ",", RowBox[{"-", "15.069271615592166`"}], ",", RowBox[{"-", "15.891547891908486`"}], ",", RowBox[{"-", "16.76802990182023`"}], ",", RowBox[{"-", "17.69939820759019`"}], ",", RowBox[{"-", "18.684742874549375`"}], ",", RowBox[{"-", "19.721049375722558`"}], ",", RowBox[{"-", "20.802600548107247`"}], ",", RowBox[{"-", "21.920326927877145`"}], ",", RowBox[{"-", "23.06116775674698`"}], ",", RowBox[{"-", "24.207542633130238`"}], ",", RowBox[{"-", "25.337073706358023`"}], ",", RowBox[{"-", "26.422728931428967`"}], ",", RowBox[{"-", "27.43356027467977`"}], ",", RowBox[{"-", "28.33616589462777`"}], ",", RowBox[{"-", "29.096896903239962`"}], ",", RowBox[{"-", "29.684660871227987`"}], ",", RowBox[{"-", "30.07397975827445`"}], ",", RowBox[{"-", "30.24780350206151`"}], ",", RowBox[{"-", "29.97987250063888`"}], ",", RowBox[{"-", "29.459772782555294`"}], ",", RowBox[{"-", "28.719033387850477`"}], ",", RowBox[{"-", "27.787887814411494`"}], ",", RowBox[{"-", "26.702660708137486`"}], ",", RowBox[{"-", "25.502032225384056`"}], ",", RowBox[{"-", "24.223702736605357`"}], ",", RowBox[{"-", "22.901863581900297`"}], ",", RowBox[{"-", "21.565620228909072`"}], ",", RowBox[{"-", "20.23830212445527`"}], ",", RowBox[{"-", "18.937468360299157`"}], ",", RowBox[{"-", "17.675377620805946`"}], ",", RowBox[{"-", "16.459709396336468`"}], ",", RowBox[{"-", "15.294371513815378`"}], ",", RowBox[{"-", "14.18028367368606`"}], ",", RowBox[{"-", "13.116074597869636`"}], ",", RowBox[{"-", "12.098666419331`"}], ",", RowBox[{"-", "11.123744000307184`"}], ",", RowBox[{"-", "10.186121251965076`"}], ",", RowBox[{"-", "9.280024138471925`"}], ",", RowBox[{"-", "8.399313447575011`"}], ",", RowBox[{"-", "7.537671469322062`"}], ",", RowBox[{"-", "6.688776549957764`"}], ",", RowBox[{"-", "5.846488449150969`"}], ",", RowBox[{"-", "5.005065205382337`"}], ",", RowBox[{"-", "4.159427853205417`"}], ",", RowBox[{"-", "3.305481391214688`"}], ",", RowBox[{"-", "2.4404872962485666`"}], ",", RowBox[{"-", "1.5634636679441591`"}], ",", RowBox[{"-", "0.675564664316824`"}], ",", "0.21963454675311017`", ",", "1.1160391299085763`", ",", "2.005213018572337`", ",", "2.876894451446627`", ",", "3.7198451929674143`", ",", "4.522945611494521`", ",", "5.276369110078005`", ",", "5.972628851185504`", ",", "6.607308744231575`", ",", "7.179366133749438`", ",", "7.690997592115564`", ",", "8.147153451526961`", ",", "8.55484204846561`", ",", "8.922372574395776`", ",", "9.258656536440622`", ",", "9.57264172246722`", ",", "9.872907207137617`", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output", CellChangeTimes->{ 3.4241920638242536`*^9, 3.424192328121128*^9, 3.424192782746128*^9, 3.4241929761055036`*^9, 3.424193084027378*^9, 3.4241951748242536`*^9, 3.424428751339878*^9, {3.424428858496128*^9, 3.4244288930117536`*^9}, 3.424428981339878*^9, {3.424429077964878*^9, 3.424429125308628*^9}, 3.424429213214878*^9, {3.424429318464878*^9, 3.424429349777378*^9}, 3.4244294892617536`*^9, 3.4244297129180036`*^9, 3.4244297522930036`*^9, 3.424431093808628*^9, 3.43118896441654*^9, 3.431189121932496*^9, 3.431353408481063*^9, 3.431355293975531*^9, 3.431356090842675*^9, 3.4313570730186987`*^9, 3.431357323917672*^9, 3.431357368655137*^9, 3.431357518744155*^9, 3.431357825578374*^9, {3.4313578917984753`*^9, 3.4313579161494093`*^9}, 3.431357985064221*^9, 3.431358025390078*^9, 3.431358063309969*^9, 3.431785445971051*^9, 3.431785680182549*^9, 3.431785982486294*^9, 3.431786956393236*^9, 3.431787009891343*^9, 3.431787372466728*^9, 3.43178783014765*^9, 3.431793510122735*^9, 3.431794531085926*^9, 3.431794752109086*^9}], Cell[BoxData[ GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJzt1I1P1HUcB/AfHpDDQUA8hXBwQpAFyoNAPBjvK1TaLdz97vkBYSqgK6Rc 2CCE40FFI0FQ5loj9TCZQGKsQWV4iDhBiAfRMEEl06aBCrVQQOynv8/vn2jc dru9t3vd7z7fvb8fycYsNm0RwzBnuPfzT/4lh3dVcfev++6ffREhR9qtANET p1k+m+T4vLXzWWqCteVFtsjxVYabRXfejs8Mi48qQ5Jn8h35DBZBg2yW345X +Gxisd/8Q4pDoht5Frbr9d8cmPYgr4C3XwuTtncpeQVc5yeDykRi8grMZfZZ MiJ9ySvgl5heGJAuIa9EpM9htvLgMvJK1O2t2S/u9COvxNN3zSP2s/7klWiu idVtjg4gr0LgVsdTI0WB5FXwuFTkPHrtdfIqRFyM2LQVb5BXIebEhI1j65vk 1TjZ3mPokwaTVyM87nLg1OgK8mo4zDc/fLQmhLwa4+buwmn/UPIa5KSKfiy1 CyOvgUvqy9+z/1A2afCBse2c281w8hqInBalV11YRV6LtSUzkwXHI8hr8dOU y3lzdiR5LZYc6811Dokir0V5jWNTZS9lRoesoSar4HVvkdfhC/Zu0tVqyiYd sOdSh1crZYsO9vHGRy11lBk9Yq0/FY1uEbwev2zxefbOLP2+SY+R1IqfhzYL z9cjL66+QdJA/48x4PRYW3r9sPD/DbjoVNceOkXzmQxI3qmxepWhbDFA/bXt JzOL6TwYI3aUdTRschbOz4gHmct1Z33pfE1G/Pu+VWNyFJ0/1/e0/MPjwzOr 6fty5JxMrG/Opsz1vbMsu9K5NY6eJ0d2/xLr5q5Y8izyjuVUjjXHkGexuMJ1 5S5TNHkWf7ZJDiVEC+fFwr3Fu/TWXWFeBa6J2/N6KoR5FZB5Rm2wWi3Mq4Dt rqCJpw9pHq7vQ33RZXcahL4ocWXiavGpbJqH67vjh5MjLdVC35SYn07wTzIG kVciOD9csi2W+sv1/X5uXUZJGPWb63tpd22KIT6AvAp15X8kylKE+6JC44l7 bEo53S+u7x6p433be+g+cn13GC/SVQUI91WN+XUD5qR2T/JqSFdE3ujd6E5e g/7rwf0rbVzIa3BbL3aQmml/cH2/l7k25sjHtF+4vr+3x3uVeLeIvBZNN2pz p0RPaF9pYbthe1d0zR3aV1pUBzd5z3n1xPNeiytRlmHZ9Uk+c32/gCKfRjsG vNeh2uFx3JjoJT5zfT8+uD7s7XP2fOb6fmTwL/sCd2c+c33fabYpZJa6ktej 4G/ZwOPb7uT1OBo2rvk905O8Hg9+y2mvb/Eib4CPVdbNgx1i8gaUfvnZdxqZ L3kD5iK6pC5eEvIGfFt8OUo6TPl53weWH91Wsoy8EZ21Z2Shr/mRN+JA2O7T E22UF/b7wn5f2O8L+31hv/P5f7Tf/wOZMIjX "], { {Hue[0.67, 0.6, 0.6], 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], 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], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 141]}, {Hue[0.9060679774997897, 0.6, 0.6], 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], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 176], 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]}, {}}], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["\"z (mm)\"", TraditionalForm], FormBox["\"I (A)\"", TraditionalForm]}, AxesOrigin->{68, 0}, ImageSize->400, PlotLabel->FormBox["\"Current Scheme in Space\"", TraditionalForm], PlotRange->{{68., 114.}, {-29.97987250063888, 9.872907207137617}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{ 3.4241920638242536`*^9, 3.424192328121128*^9, 3.424192782746128*^9, 3.4241929761055036`*^9, 3.424193084027378*^9, 3.4241951748242536`*^9, 3.424428751339878*^9, {3.424428858496128*^9, 3.4244288930117536`*^9}, 3.424428981339878*^9, {3.424429077964878*^9, 3.424429125308628*^9}, 3.424429213214878*^9, {3.424429318464878*^9, 3.424429349777378*^9}, 3.4244294892617536`*^9, 3.4244297129180036`*^9, 3.4244297522930036`*^9, 3.424431093808628*^9, 3.43118896441654*^9, 3.431189121932496*^9, 3.431353408481063*^9, 3.431355293975531*^9, 3.431356090842675*^9, 3.4313570730186987`*^9, 3.431357323917672*^9, 3.431357368655137*^9, 3.431357518744155*^9, 3.431357825578374*^9, {3.4313578917984753`*^9, 3.4313579161494093`*^9}, 3.431357985064221*^9, 3.431358025390078*^9, 3.431358063309969*^9, 3.431785445971051*^9, 3.431785680182549*^9, 3.431785982486294*^9, 3.431786956393236*^9, 3.431787009891343*^9, 3.431787372466728*^9, 3.43178783014765*^9, 3.431793510122735*^9, 3.431794531085926*^9, 3.4317947521619453`*^9}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Stage 5: Coils 13:15 & 14:16 - 150mm > z > 115mm", "Subsubsection", CellChangeTimes->{{3.424191951496128*^9, 3.424191964527378*^9}, { 3.431193694136137*^9, 3.431193701279811*^9}, {3.4313576895142097`*^9, 3.431357729920093*^9}, {3.431785776168478*^9, 3.431785788522513*^9}, { 3.4317870531247673`*^9, 3.4317870564284573`*^9}, {3.431787171006024*^9, 3.4317871748612022`*^9}}], Cell[CellGroupData[{ Cell["Initialization", "Subsubsubsection", CellChangeTimes->{{3.424191092996128*^9, 3.424191098839878*^9}}], Cell[BoxData[{ RowBox[{"Clear", " ", "[", RowBox[{ "buf", ",", " ", "Aspect", ",", " ", "Curr1", ",", " ", "Curr2", ",", " ", "sol", ",", " ", "asp", ",", " ", "curr1", ",", " ", "curr2", ",", "curr3", ",", "curr4", ",", "curr5"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amps1", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amps2", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amps3", "=", "curr1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amps4", "=", RowBox[{"-", "curr2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amps5", "=", RowBox[{"-", "curr1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"amps6", "=", "curr2"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Unit", "[", RowBox[{"r_", ",", "z_"}], "]"}], ":=", RowBox[{ RowBox[{"Coil1", "[", RowBox[{"r", ",", "z", ",", "amps1"}], "]"}], "+", RowBox[{"Coil2", "[", RowBox[{"r", ",", "z", ",", "amps2"}], "]"}], "+", RowBox[{"Coil3", "[", RowBox[{"r", ",", "z", ",", "amps3"}], "]"}], "+", RowBox[{"Coil4", "[", RowBox[{"r", ",", "z", ",", "amps4"}], "]"}], "+", RowBox[{"Coil5", "[", RowBox[{"r", ",", "z", ",", "amps5"}], "]"}], "+", RowBox[{"Coil6", "[", RowBox[{"r", ",", "z", ",", "amps6"}], "]"}]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rComp", "[", RowBox[{"r_", ",", "z_"}], "]"}], ":=", RowBox[{ RowBox[{"Unit", "[", RowBox[{"r", ",", "z"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"zComp", "[", RowBox[{"r_", ",", "z_"}], "]"}], ":=", RowBox[{ RowBox[{"Unit", "[", RowBox[{"r", ",", "z"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GrComp", "[", RowBox[{"r_", ",", "z_"}], "]"}], "=", RowBox[{ SubscriptBox["\[PartialD]", "r"], RowBox[{"rComp", "[", RowBox[{"r", ",", "z"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"GzComp", "[", RowBox[{"r_", ",", "z_"}], "]"}], "=", RowBox[{ SubscriptBox["\[PartialD]", "z"], RowBox[{"zComp", "[", RowBox[{"r", ",", "z"}], "]"}]}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"z0", "=", RowBox[{"115", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"zf", " ", "=", " ", RowBox[{"150", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", " ", "=", " ", "36"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"scale", " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"zf", "-", "z0"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"buf", " ", "=", " ", RowBox[{"UnitVector", "[", RowBox[{"n", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"gradient", "=", RowBox[{"100", RowBox[{"gauss", "/", "cm"}]}]}], ";"}]}], "Input", CellChangeTimes->{ 3.424191044214878*^9, {3.424191142558628*^9, 3.4241912622305036`*^9}, { 3.4241916446680036`*^9, 3.4241916491055036`*^9}, 3.4241925450117536`*^9, { 3.424192604027378*^9, 3.424192612433628*^9}, {3.4244294610742536`*^9, 3.4244294691992536`*^9}, {3.424429683402378*^9, 3.424429693402378*^9}, { 3.424429967496128*^9, 3.4244299707305036`*^9}, {3.4311038420519257`*^9, 3.431103856009079*^9}, {3.431103943443224*^9, 3.431103980289875*^9}, { 3.4311885595071573`*^9, 3.431188565997161*^9}, {3.431188974570271*^9, 3.431189010992488*^9}, {3.431189415850789*^9, 3.431189417185584*^9}, { 3.431196094344141*^9, 3.4311961101856623`*^9}, {3.4313533891613073`*^9, 3.431353394562222*^9}, {3.4313550441773567`*^9, 3.43135517562286*^9}, { 3.43135577213243*^9, 3.4313557803196907`*^9}, {3.431357308668244*^9, 3.431357311423059*^9}, {3.43135735491129*^9, 3.431357358576067*^9}, { 3.431357503786956*^9, 3.4313575068633213`*^9}, {3.43135780598543*^9, 3.431357815457398*^9}, {3.431357853993857*^9, 3.4313578750014877`*^9}, { 3.43135800654438*^9, 3.431358007435854*^9}, {3.431358050357585*^9, 3.431358054586729*^9}, {3.431785855861334*^9, 3.4317858834374237`*^9}, { 3.431785924922679*^9, 3.431785944009056*^9}, {3.4317862533881483`*^9, 3.431786253740575*^9}, {3.43178704308488*^9, 3.431787044258984*^9}, { 3.4317870875547867`*^9, 3.431787087869424*^9}, {3.431787160111672*^9, 3.4317871649272223`*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Calculations", "Subsubsubsection", CellChangeTimes->{{3.424191616714878*^9, 3.424191617964878*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "0"}], ",", RowBox[{"i", "<", "n"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"zpos", " ", "=", " ", RowBox[{"z0", "+", RowBox[{"scale", "*", "i"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"sol", " ", "=", " ", RowBox[{"Solve", " ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"zComp", "[", RowBox[{"zero", ",", "zpos"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"GzComp", "[", RowBox[{"zero", ",", "zpos"}], "]"}], "\[Equal]", "gradient"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"curr1", ",", " ", "curr2"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"buf", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], " ", "=", " ", RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Curr1", " ", "=", " ", RowBox[{"curr1", "/.", "buf"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Curr2", " ", "=", " ", RowBox[{"curr2", "/.", "buf"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", " ", "=", " ", "0"}], ",", " ", RowBox[{"i", "<", "n"}], ",", RowBox[{"i", "++"}], ",", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"I3", "[", RowBox[{"[", RowBox[{"i", "+", "115"}], "]"}], "]"}], " ", "=", " ", RowBox[{"Curr1", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"I4", "[", RowBox[{"[", RowBox[{"i", "+", "115"}], "]"}], "]"}], " ", "=", RowBox[{"-", RowBox[{"Curr2", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"I5", "[", RowBox[{"[", RowBox[{"i", "+", "115"}], "]"}], "]"}], "=", RowBox[{"-", RowBox[{"Curr1", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"I6", "[", RowBox[{"[", RowBox[{"i", "+", "115"}], "]"}], "]"}], "=", RowBox[{"Curr2", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", "I1", "\[IndentingNewLine]", "I2", "\ \[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"Curr1", ",", "Curr2"}], "}"}], ",", RowBox[{"DataRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"z0", "*", "1000"}], ",", RowBox[{ RowBox[{"(", RowBox[{"z0", "+", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}], "*", "scale"}]}], ")"}], "*", "1000"}]}], "}"}]}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"z0", "*", "1000"}], ",", "0"}], "}"}]}], ",", RowBox[{"PlotMarkers", "\[Rule]", RowBox[{"{", RowBox[{"Automatic", ",", "Small"}], "}"}]}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotLabel", "\[Rule]", "\"\\""}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amps1", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amps2", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amps3", "=", "0"}], ";"}]}], "Input", CellChangeTimes->{{3.4241916296992536`*^9, 3.4241916535430036`*^9}, { 3.4241916856680036`*^9, 3.424191700308628*^9}, {3.4241917784805036`*^9, 3.4241918127617536`*^9}, {3.424192057121128*^9, 3.4241920575430036`*^9}, { 3.424192283621128*^9, 3.424192307839878*^9}, {3.424429122996128*^9, 3.4244291238242536`*^9}, {3.424429476808628*^9, 3.424429478714878*^9}, { 3.424429546121128*^9, 3.4244295465117536`*^9}, {3.431188571551977*^9, 3.431188571787519*^9}, {3.4311886047776012`*^9, 3.431188717945578*^9}, { 3.4313533225805473`*^9, 3.4313533720584517`*^9}, {3.431356066633704*^9, 3.431356075139104*^9}, {3.431357067419949*^9, 3.431357067589745*^9}, { 3.431357375904657*^9, 3.431357378243895*^9}, {3.431787882305621*^9, 3.431787977515272*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "14.126669745897097`"}], ",", RowBox[{"-", "14.526870966035098`"}], ",", RowBox[{"-", "14.980059762802581`"}], ",", RowBox[{"-", "15.487374135719538`"}], ",", RowBox[{"-", "16.050198895963465`"}], ",", RowBox[{"-", "16.670085050015782`"}], ",", RowBox[{"-", "17.348646199600473`"}], ",", RowBox[{"-", "18.087422957390764`"}], ",", RowBox[{"-", "18.887704895863106`"}], ",", RowBox[{"-", "19.750298280385703`"}], ",", RowBox[{"-", "20.67522726355214`"}], ",", RowBox[{"-", "21.661357095614896`"}], ",", RowBox[{"-", "22.70593135582307`"}], ",", RowBox[{"-", "23.804022741197624`"}], ",", RowBox[{"-", "24.94791036135598`"}], ",", RowBox[{"-", "26.126417508896928`"}], ",", RowBox[{"-", "27.324273383729174`"}], ",", RowBox[{"-", "28.521598952135538`"}], ",", RowBox[{"-", "29.693655756877735`"}], ",", RowBox[{"-", "30.81102612112568`"}], ",", RowBox[{"-", "31.84039681379926`"}], ",", RowBox[{"-", "32.746075725357606`"}], ",", RowBox[{"-", "33.49226699558375`"}], ",", RowBox[{"-", "34.04596581399951`"}], ",", RowBox[{"-", "34.38013976064188`"}], ",", RowBox[{"-", "34.402568668855125`"}], ",", RowBox[{"-", "34.17203939558165`"}], ",", RowBox[{"-", "33.68699347761699`"}], ",", RowBox[{"-", "32.966826180045594`"}], ",", RowBox[{"-", "32.04129239264665`"}], ",", RowBox[{"-", "30.947232444088282`"}], ",", RowBox[{"-", "29.724893334529938`"}], ",", RowBox[{"-", "28.414473425799432`"}], ",", RowBox[{"-", "27.053346718056694`"}], ",", RowBox[{"-", "25.674185933452645`"}], ",", RowBox[{"-", "24.303986362734232`"}], ",", RowBox[{"-", "22.963845063148074`"}], ",", RowBox[{"-", "21.669283144043014`"}], ",", RowBox[{"-", "20.430896236053083`"}], ",", RowBox[{"-", "19.255153645944333`"}], ",", RowBox[{"-", "18.145216478965736`"}], ",", RowBox[{"-", "17.10169331816131`"}], ",", RowBox[{"-", "16.12329102614551`"}], ",", RowBox[{"-", "15.20734579066714`"}], ",", RowBox[{"-", "14.3502368005673`"}], ",", RowBox[{"-", "13.547694317329764`"}], ",", RowBox[{"-", "12.795017924353605`"}], ",", RowBox[{"-", "12.087221510777045`"}], ",", RowBox[{"-", "11.41912065179212`"}], ",", RowBox[{"-", "10.785376557418717`"}], ",", RowBox[{"-", "10.180509366654308`"}], ",", RowBox[{"-", "9.598892680921427`"}], ",", RowBox[{"-", "9.03474108244281`"}], ",", RowBox[{"-", "8.482103029599322`"}], ",", RowBox[{"-", "7.934872839863163`"}], ",", RowBox[{"-", "7.386837085253293`"}], ",", RowBox[{"-", "6.831771896917854`"}], ",", RowBox[{"-", "6.263607199592192`"}], ",", RowBox[{"-", "5.6766700931871705`"}], ",", RowBox[{"-", "5.066010548593706`"}], ",", RowBox[{"-", "4.42779679122961`"}], ",", RowBox[{"-", "3.759745311922056`"}], ",", RowBox[{"-", "3.0615245471509143`"}], ",", RowBox[{"-", "2.3350491650495426`"}], ",", RowBox[{"-", "1.584574175745306`"}], ",", RowBox[{"-", "0.8165151050694199`"}], ",", RowBox[{"-", "0.038966297912319904`"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output", CellChangeTimes->{{3.431785960462571*^9, 3.4317859892735147`*^9}, 3.431786264295793*^9, 3.431787098379904*^9, 3.431787182446871*^9, 3.431787376788948*^9, 3.431787988428245*^9, 3.431793515446435*^9, 3.431794537673757*^9, 3.43179476006109*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "16.559081900655062`", ",", "15.55688111446496`", ",", "14.627413985786022`", ",", "13.761930027179393`", ",", "12.952577372298174`", ",", "12.192227065485154`", ",", "11.474319302855244`", ",", "10.792728571836532`", ",", "10.141645909244037`", ",", "9.515477886102529`", ",", "8.908763510188983`", ",", "8.316112061631706`", ",", "7.732166924093335`", ",", "7.15160260544304`", ",", "6.569164023394614`", ",", "5.9797581479129445`", ",", "5.378607284079679`", ",", "4.761469375706756`", ",", "4.124922365584718`", ",", "3.4666960037327543`", ",", "2.7860161012029425`", ",", "2.083906122732244`", ",", "1.3633753488695945`", ",", "0.629420102135177`", ",", RowBox[{"-", "0.11121741884120195`"}], ",", RowBox[{"-", "0.9089064849616796`"}], ",", RowBox[{"-", "1.6877359765234101`"}], ",", RowBox[{"-", "2.4459924102582438`"}], ",", RowBox[{"-", "3.1755950785530027`"}], ",", RowBox[{"-", "3.8704887909543575`"}], ",", RowBox[{"-", "4.527086857036746`"}], ",", RowBox[{"-", "5.144380612696373`"}], ",", RowBox[{"-", "5.7237543799599155`"}], ",", RowBox[{"-", "6.268593951177946`"}], ",", RowBox[{"-", "6.783792979722117`"}], ",", RowBox[{"-", "7.275250045870842`"}], ",", RowBox[{"-", "7.7494218903044`"}], ",", RowBox[{"-", "8.212967741617758`"}], ",", RowBox[{"-", "8.67249408320024`"}], ",", RowBox[{"-", "9.1343919807827`"}], ",", RowBox[{"-", "9.60474998664177`"}], ",", RowBox[{"-", "10.089322624218209`"}], ",", RowBox[{"-", "10.593535143361576`"}], ",", RowBox[{"-", "11.122507621262804`"}], ",", RowBox[{"-", "11.681084200587772`"}], ",", RowBox[{"-", "12.273855520016223`"}], ",", RowBox[{"-", "12.90516384701566`"}], ",", RowBox[{"-", "13.579080989567252`"}], ",", RowBox[{"-", "14.29934883967464`"}], ",", RowBox[{"-", "15.069271615592166`"}], ",", RowBox[{"-", "15.891547891908486`"}], ",", RowBox[{"-", "16.76802990182023`"}], ",", RowBox[{"-", "17.69939820759019`"}], ",", RowBox[{"-", "18.684742874549375`"}], ",", RowBox[{"-", "19.721049375722558`"}], ",", RowBox[{"-", "20.802600548107247`"}], ",", RowBox[{"-", "21.920326927877145`"}], ",", RowBox[{"-", "23.06116775674698`"}], ",", RowBox[{"-", "24.207542633130238`"}], ",", RowBox[{"-", "25.337073706358023`"}], ",", RowBox[{"-", "26.422728931428967`"}], ",", RowBox[{"-", "27.43356027467977`"}], ",", RowBox[{"-", "28.33616589462777`"}], ",", RowBox[{"-", "29.096896903239962`"}], ",", RowBox[{"-", "29.684660871227987`"}], ",", RowBox[{"-", "30.07397975827445`"}], ",", RowBox[{"-", "30.24780350206151`"}], ",", RowBox[{"-", "29.97987250063888`"}], ",", RowBox[{"-", "29.459772782555294`"}], ",", RowBox[{"-", "28.719033387850477`"}], ",", RowBox[{"-", "27.787887814411494`"}], ",", RowBox[{"-", "26.702660708137486`"}], ",", RowBox[{"-", "25.502032225384056`"}], ",", RowBox[{"-", "24.223702736605357`"}], ",", RowBox[{"-", "22.901863581900297`"}], ",", RowBox[{"-", "21.565620228909072`"}], ",", RowBox[{"-", "20.23830212445527`"}], ",", RowBox[{"-", "18.937468360299157`"}], ",", RowBox[{"-", "17.675377620805946`"}], ",", RowBox[{"-", "16.459709396336468`"}], ",", RowBox[{"-", "15.294371513815378`"}], ",", RowBox[{"-", "14.18028367368606`"}], ",", RowBox[{"-", "13.116074597869636`"}], ",", RowBox[{"-", "12.098666419331`"}], ",", RowBox[{"-", "11.123744000307184`"}], ",", RowBox[{"-", "10.186121251965076`"}], ",", RowBox[{"-", "9.280024138471925`"}], ",", RowBox[{"-", "8.399313447575011`"}], ",", RowBox[{"-", "7.537671469322062`"}], ",", RowBox[{"-", "6.688776549957764`"}], ",", RowBox[{"-", "5.846488449150969`"}], ",", RowBox[{"-", "5.005065205382337`"}], ",", RowBox[{"-", "4.159427853205417`"}], ",", RowBox[{"-", "3.305481391214688`"}], ",", RowBox[{"-", "2.4404872962485666`"}], ",", RowBox[{"-", "1.5634636679441591`"}], ",", RowBox[{"-", "0.675564664316824`"}], ",", "0.21963454675311017`", ",", "1.1160391299085763`", ",", "2.005213018572337`", ",", "2.876894451446627`", ",", "3.7198451929674143`", ",", "4.522945611494521`", ",", "5.276369110078005`", ",", "5.972628851185504`", ",", "6.607308744231575`", ",", "7.179366133749438`", ",", "7.690997592115564`", ",", "8.147153451526961`", ",", "8.55484204846561`", ",", "8.922372574395776`", ",", "9.258656536440622`", ",", "9.57264172246722`", ",", "9.872907207137617`", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output", CellChangeTimes->{{3.431785960462571*^9, 3.4317859892735147`*^9}, 3.431786264295793*^9, 3.431787098379904*^9, 3.431787182446871*^9, 3.431787376788948*^9, 3.431787988428245*^9, 3.431793515446435*^9, 3.431794537673757*^9, 3.431794760065868*^9}], Cell[BoxData[ GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJztlPtPjXEcx48oTpNzyq0axzm6UEgolxP1Ls2m2EmMonOe7/dRI8dcNifN DoUhZgqZuZ/mviGLct+J5NZyn6PJhuZyXGJ1hgx5+H7+B7/0bN89ez3fvT7v 7dl7H4O8OD3HS6VSlSjn7/vfU52FY2hZ6/4ZWS0+mGGtjChMMkYIhhlPfy3d tKtkkOBCM8rP6Ts3tYcJrjbD2z2KmzeEkm/B994nD9wOCyHfgpVHa607Gwzk W6DzM+b6lOnJt6ApOajM7tGRL2GBfaHNeaMf+RIKNkzZoasMJl/CocDGjLZL geRLmB3yK6Xe1Yd8htLDzmVG796C9Qxdm+tWeyf2pHkMxSk9w4OK/AUzBvd3 k0dTrqH5DEHdtFcGZHYX7GAw+ejLE9RqymNwXPTNvnbRW/ALBu3zRN3GXC/K 5yj2Cjg4JfS3U+Rz3M0cvF2b/U0wON5Ky/NnFH8RzDi07Zl+htQmwYUcda33 56sn1wp2cNiLuiScWv0gQeRzuHKnm3jjG8EvON7frvHttqxFsEoG3sbGfJTb BOtlGC7tdjzppYLIl3Hlsyrjx+zOgpmMWD7cdXWFj+BCGVUTPzVft6oFO2RE NZ7zeMK7C66WkXMw44z+aA/iLLx7U5M2bX+oYKU/k1K7OitGh1GeGb/z7k3w e0Ss9GepJudEUl44+WZ8KbHfcw0cRL4FGd/qI1XPiJX+NMfktx53DCbfgjWf ntQX2SLIt+D8wz0FujmR5EuwqaJ9r6YPIV9C1aO5d/aZh5IvwZhyIuWCfRj5 EhZmm2wfTkeRz9C34UGd68dwwUp/xrmHOJacjKZ5DAEh049snj+C/h9D7KK0 ttKokTSfIcazLaF/O7HSn2mXPx6Y1zCK8hgsFa156ZdjBCv9SSqznk0+Ekv5 HOVrpKTgHaMpnyP+6c3igPVjKJ9jpuFl6HXbWMrnuFUT/TqQjaN8jtYz/YNn wUj5HLk17uQ4/zjK51BbmyvD6omV/jgDq2qzFo2nfBnr8jVT+WdipT/+ryZ3 MqVOoHzlvuFrQfwqYqU/ybXa+L3riJX+PO61NW0eI1b6s+l4XMVUDbHSn5It Z1scpTS/Y/907J+O/dOxf/7D/vkDJKShtA== "], { {Hue[0.67, 0.6, 0.6], 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], 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]}, {Hue[0.9060679774997897, 0.6, 0.6], 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], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 116], 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]}, {}}], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["\"z (mm)\"", TraditionalForm], FormBox["\"I (A)\"", TraditionalForm]}, AxesOrigin->{115, 0}, ImageSize->400, PlotLabel->FormBox["\"Current Scheme in Space\"", TraditionalForm], PlotRange->{{115., 150.}, {-13.493969081231924`, 29.52191532048643}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{{3.431785960462571*^9, 3.4317859892735147`*^9}, 3.431786264295793*^9, 3.431787098379904*^9, 3.431787182446871*^9, 3.431787376788948*^9, 3.431787988428245*^9, 3.431793515446435*^9, 3.431794537673757*^9, 3.4317947601248293`*^9}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Stage 6: Coils 14 & 13:15 - 180mm > y > 151mm", "Subsubsection", CellChangeTimes->{{3.424191951496128*^9, 3.424191964527378*^9}, { 3.431193694136137*^9, 3.431193701279811*^9}, {3.4313576895142097`*^9, 3.431357729920093*^9}, {3.4317872606127863`*^9, 3.431787290132852*^9}}], Cell[CellGroupData[{ Cell["Initialization", "Subsubsubsection", CellChangeTimes->{{3.424191092996128*^9, 3.424191098839878*^9}}], Cell[BoxData[{ RowBox[{"Clear", " ", "[", RowBox[{ "buf", ",", " ", "Aspect", ",", " ", "Curr1", ",", " ", "Curr2", ",", " ", "sol", ",", " ", "asp", ",", " ", "curr1", ",", " ", "curr2", ",", "curr3", ",", "curr4", ",", "curr5"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amps1", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amps2", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amps3", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amps4", "=", RowBox[{"-", "curr2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amps5", "=", RowBox[{"-", "curr1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"amps6", "=", "curr2"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Unit", "[", RowBox[{"r_", ",", "z_"}], "]"}], ":=", RowBox[{ RowBox[{"Coil1", "[", RowBox[{"r", ",", "z", ",", "amps1"}], "]"}], "+", RowBox[{"Coil2", "[", RowBox[{"r", ",", "z", ",", "amps2"}], "]"}], "+", RowBox[{"Coil3", "[", RowBox[{"r", ",", "z", ",", "amps3"}], "]"}], "+", RowBox[{"Coil4", "[", RowBox[{"r", ",", "z", ",", "amps4"}], "]"}], "+", RowBox[{"Coil5", "[", RowBox[{"r", ",", "z", ",", "amps5"}], "]"}], "+", RowBox[{"Coil6", "[", RowBox[{"r", ",", "z", ",", "amps6"}], "]"}]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rComp", "[", RowBox[{"r_", ",", "z_"}], "]"}], ":=", RowBox[{ RowBox[{"Unit", "[", RowBox[{"r", ",", "z"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"zComp", "[", RowBox[{"r_", ",", "z_"}], "]"}], ":=", RowBox[{ RowBox[{"Unit", "[", RowBox[{"r", ",", "z"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GrComp", "[", RowBox[{"r_", ",", "z_"}], "]"}], "=", RowBox[{ SubscriptBox["\[PartialD]", "r"], RowBox[{"rComp", "[", RowBox[{"r", ",", "z"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"GzComp", "[", RowBox[{"r_", ",", "z_"}], "]"}], "=", RowBox[{ SubscriptBox["\[PartialD]", "z"], RowBox[{"zComp", "[", RowBox[{"r", ",", "z"}], "]"}]}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"z0", "=", RowBox[{"151", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"zf", " ", "=", " ", RowBox[{"180", "mm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", " ", "=", " ", "30"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"scale", " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"zf", "-", "z0"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"buf", " ", "=", " ", RowBox[{"UnitVector", "[", RowBox[{"n", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"gradient", "=", RowBox[{"100", RowBox[{"gauss", "/", "cm"}]}]}], ";"}]}], "Input", CellChangeTimes->{ 3.424191044214878*^9, {3.424191142558628*^9, 3.4241912622305036`*^9}, { 3.4241916446680036`*^9, 3.4241916491055036`*^9}, 3.4241925450117536`*^9, { 3.424192604027378*^9, 3.424192612433628*^9}, {3.4244294610742536`*^9, 3.4244294691992536`*^9}, {3.424429683402378*^9, 3.424429693402378*^9}, { 3.424429967496128*^9, 3.4244299707305036`*^9}, {3.4311038420519257`*^9, 3.431103856009079*^9}, {3.431103943443224*^9, 3.431103980289875*^9}, { 3.4311885595071573`*^9, 3.431188565997161*^9}, {3.431188974570271*^9, 3.431189010992488*^9}, {3.431189415850789*^9, 3.431189417185584*^9}, { 3.431196094344141*^9, 3.4311961101856623`*^9}, {3.4313533891613073`*^9, 3.431353394562222*^9}, {3.4313550441773567`*^9, 3.43135517562286*^9}, { 3.43135577213243*^9, 3.4313557803196907`*^9}, {3.431357308668244*^9, 3.431357311423059*^9}, {3.43135735491129*^9, 3.431357358576067*^9}, { 3.431357503786956*^9, 3.4313575068633213`*^9}, {3.43135780598543*^9, 3.431357815457398*^9}, {3.431357853993857*^9, 3.4313578750014877`*^9}, { 3.43135800654438*^9, 3.431358007435854*^9}, {3.431358050357585*^9, 3.431358054586729*^9}, {3.43178583790276*^9, 3.43178585001821*^9}, { 3.431787245540105*^9, 3.431787254700366*^9}, {3.431787293761154*^9, 3.4317872975430517`*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Calculations", "Subsubsubsection", CellChangeTimes->{{3.424191616714878*^9, 3.424191617964878*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "0"}], ",", RowBox[{"i", "<", "n"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"zpos", " ", "=", " ", RowBox[{"z0", "+", RowBox[{"scale", "*", "i"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"sol", " ", "=", " ", RowBox[{"Solve", " ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"zComp", "[", RowBox[{"zero", ",", "zpos"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"GzComp", "[", RowBox[{"zero", ",", "zpos"}], "]"}], "\[Equal]", "gradient"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"curr1", ",", " ", "curr2"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"buf", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], " ", "=", " ", RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Curr1", " ", "=", " ", RowBox[{"curr1", "/.", "buf"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Curr2", " ", "=", " ", RowBox[{"curr2", "/.", "buf"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", " ", "=", " ", "0"}], ",", " ", RowBox[{"i", "<", "n"}], ",", RowBox[{"i", "++"}], ",", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"I4", "[", RowBox[{"[", RowBox[{"i", "+", "151"}], "]"}], "]"}], " ", "=", " ", RowBox[{"-", RowBox[{"Curr2", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"I5", "[", RowBox[{"[", RowBox[{"i", "+", "151"}], "]"}], "]"}], " ", "=", " ", RowBox[{"-", RowBox[{"Curr1", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"I6", "[", RowBox[{"[", RowBox[{"i", "+", "151"}], "]"}], "]"}], "=", RowBox[{"Curr2", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", "I1", "\[IndentingNewLine]", "I2", "\ \[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"Curr1", ",", "Curr2"}], "}"}], ",", RowBox[{"DataRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"z0", "*", "1000"}], ",", RowBox[{ RowBox[{"(", RowBox[{"z0", "+", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}], "*", "scale"}]}], ")"}], "*", "1000"}]}], "}"}]}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"z0", "*", "1000"}], ",", "0"}], "}"}]}], ",", RowBox[{"PlotMarkers", "\[Rule]", RowBox[{"{", RowBox[{"Automatic", ",", "Small"}], "}"}]}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotLabel", "\[Rule]", "\"\\""}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amps1", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amps2", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amps3", "=", "0"}], ";"}]}], "Input", CellChangeTimes->{{3.4241916296992536`*^9, 3.4241916535430036`*^9}, { 3.4241916856680036`*^9, 3.424191700308628*^9}, {3.4241917784805036`*^9, 3.4241918127617536`*^9}, {3.424192057121128*^9, 3.4241920575430036`*^9}, { 3.424192283621128*^9, 3.424192307839878*^9}, {3.424429122996128*^9, 3.4244291238242536`*^9}, {3.424429476808628*^9, 3.424429478714878*^9}, { 3.424429546121128*^9, 3.4244295465117536`*^9}, {3.431188571551977*^9, 3.431188571787519*^9}, {3.4311886047776012`*^9, 3.431188717945578*^9}, { 3.4313533225805473`*^9, 3.4313533720584517`*^9}, {3.431356066633704*^9, 3.431356075139104*^9}, {3.431357067419949*^9, 3.431357067589745*^9}, { 3.431357375904657*^9, 3.431357378243895*^9}, {3.4317880186930637`*^9, 3.431788062517864*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "14.126669745897097`"}], ",", RowBox[{"-", "14.526870966035098`"}], ",", RowBox[{"-", "14.980059762802581`"}], ",", RowBox[{"-", "15.487374135719538`"}], ",", RowBox[{"-", "16.050198895963465`"}], ",", RowBox[{"-", "16.670085050015782`"}], ",", RowBox[{"-", "17.348646199600473`"}], ",", RowBox[{"-", "18.087422957390764`"}], ",", RowBox[{"-", "18.887704895863106`"}], ",", RowBox[{"-", "19.750298280385703`"}], ",", RowBox[{"-", "20.67522726355214`"}], ",", RowBox[{"-", "21.661357095614896`"}], ",", RowBox[{"-", "22.70593135582307`"}], ",", RowBox[{"-", "23.804022741197624`"}], ",", RowBox[{"-", "24.94791036135598`"}], ",", RowBox[{"-", "26.126417508896928`"}], ",", RowBox[{"-", "27.324273383729174`"}], ",", RowBox[{"-", "28.521598952135538`"}], ",", RowBox[{"-", "29.693655756877735`"}], ",", RowBox[{"-", "30.81102612112568`"}], ",", RowBox[{"-", "31.84039681379926`"}], ",", RowBox[{"-", "32.746075725357606`"}], ",", RowBox[{"-", "33.49226699558375`"}], ",", RowBox[{"-", "34.04596581399951`"}], ",", RowBox[{"-", "34.38013976064188`"}], ",", RowBox[{"-", "34.402568668855125`"}], ",", RowBox[{"-", "34.17203939558165`"}], ",", RowBox[{"-", "33.68699347761699`"}], ",", RowBox[{"-", "32.966826180045594`"}], ",", RowBox[{"-", "32.04129239264665`"}], ",", RowBox[{"-", "30.947232444088282`"}], ",", RowBox[{"-", "29.724893334529938`"}], ",", RowBox[{"-", "28.414473425799432`"}], ",", RowBox[{"-", "27.053346718056694`"}], ",", RowBox[{"-", "25.674185933452645`"}], ",", RowBox[{"-", "24.303986362734232`"}], ",", RowBox[{"-", "22.963845063148074`"}], ",", RowBox[{"-", "21.669283144043014`"}], ",", RowBox[{"-", "20.430896236053083`"}], ",", RowBox[{"-", "19.255153645944333`"}], ",", RowBox[{"-", "18.145216478965736`"}], ",", RowBox[{"-", "17.10169331816131`"}], ",", RowBox[{"-", "16.12329102614551`"}], ",", RowBox[{"-", "15.20734579066714`"}], ",", RowBox[{"-", "14.3502368005673`"}], ",", RowBox[{"-", "13.547694317329764`"}], ",", RowBox[{"-", "12.795017924353605`"}], ",", RowBox[{"-", "12.087221510777045`"}], ",", RowBox[{"-", "11.41912065179212`"}], ",", RowBox[{"-", "10.785376557418717`"}], ",", RowBox[{"-", "10.180509366654308`"}], ",", RowBox[{"-", "9.598892680921427`"}], ",", RowBox[{"-", "9.03474108244281`"}], ",", RowBox[{"-", "8.482103029599322`"}], ",", RowBox[{"-", "7.934872839863163`"}], ",", RowBox[{"-", "7.386837085253293`"}], ",", RowBox[{"-", "6.831771896917854`"}], ",", RowBox[{"-", "6.263607199592192`"}], ",", RowBox[{"-", "5.6766700931871705`"}], ",", RowBox[{"-", "5.066010548593706`"}], ",", RowBox[{"-", "4.42779679122961`"}], ",", RowBox[{"-", "3.759745311922056`"}], ",", RowBox[{"-", "3.0615245471509143`"}], ",", RowBox[{"-", "2.3350491650495426`"}], ",", RowBox[{"-", "1.584574175745306`"}], ",", RowBox[{"-", "0.8165151050694199`"}], ",", RowBox[{"-", "0.038966297912319904`"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output", CellChangeTimes->{ 3.4241920638242536`*^9, 3.424192328121128*^9, 3.424192782746128*^9, 3.4241929761055036`*^9, 3.424193084027378*^9, 3.4241951748242536`*^9, 3.424428751339878*^9, {3.424428858496128*^9, 3.4244288930117536`*^9}, 3.424428981339878*^9, {3.424429077964878*^9, 3.424429125308628*^9}, 3.424429213214878*^9, {3.424429318464878*^9, 3.424429349777378*^9}, 3.4244294892617536`*^9, 3.4244297129180036`*^9, 3.4244297522930036`*^9, 3.424431093808628*^9, 3.43118896441654*^9, 3.431189121932496*^9, 3.431353408481063*^9, 3.431355293975531*^9, 3.431356090842675*^9, 3.4313570730186987`*^9, 3.431357323917672*^9, 3.431357368655137*^9, 3.431357518744155*^9, 3.431357825578374*^9, {3.4313578917984753`*^9, 3.4313579161494093`*^9}, 3.431357985064221*^9, 3.431358025390078*^9, 3.431358063309969*^9, 3.431785445971051*^9, 3.431785680182549*^9, 3.431785982486294*^9, 3.431787307862493*^9, 3.431787379968358*^9, 3.4317880725440483`*^9, 3.431793519249631*^9, 3.431794542656844*^9, 3.431794766375677*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "16.559081900655062`", ",", "15.55688111446496`", ",", "14.627413985786022`", ",", "13.761930027179393`", ",", "12.952577372298174`", ",", "12.192227065485154`", ",", "11.474319302855244`", ",", "10.792728571836532`", ",", "10.141645909244037`", ",", "9.515477886102529`", ",", "8.908763510188983`", ",", "8.316112061631706`", ",", "7.732166924093335`", ",", "7.15160260544304`", ",", "6.569164023394614`", ",", "5.9797581479129445`", ",", "5.378607284079679`", ",", "4.761469375706756`", ",", "4.124922365584718`", ",", "3.4666960037327543`", ",", "2.7860161012029425`", ",", "2.083906122732244`", ",", "1.3633753488695945`", ",", "0.629420102135177`", ",", RowBox[{"-", "0.11121741884120195`"}], ",", RowBox[{"-", "0.9089064849616796`"}], ",", RowBox[{"-", "1.6877359765234101`"}], ",", RowBox[{"-", "2.4459924102582438`"}], ",", RowBox[{"-", "3.1755950785530027`"}], ",", RowBox[{"-", "3.8704887909543575`"}], ",", RowBox[{"-", "4.527086857036746`"}], ",", RowBox[{"-", "5.144380612696373`"}], ",", RowBox[{"-", "5.7237543799599155`"}], ",", RowBox[{"-", "6.268593951177946`"}], ",", RowBox[{"-", "6.783792979722117`"}], ",", RowBox[{"-", "7.275250045870842`"}], ",", RowBox[{"-", "7.7494218903044`"}], ",", RowBox[{"-", "8.212967741617758`"}], ",", RowBox[{"-", "8.67249408320024`"}], ",", RowBox[{"-", "9.1343919807827`"}], ",", RowBox[{"-", "9.60474998664177`"}], ",", RowBox[{"-", "10.089322624218209`"}], ",", RowBox[{"-", "10.593535143361576`"}], ",", RowBox[{"-", "11.122507621262804`"}], ",", RowBox[{"-", "11.681084200587772`"}], ",", RowBox[{"-", "12.273855520016223`"}], ",", RowBox[{"-", "12.90516384701566`"}], ",", RowBox[{"-", "13.579080989567252`"}], ",", RowBox[{"-", "14.29934883967464`"}], ",", RowBox[{"-", "15.069271615592166`"}], ",", RowBox[{"-", "15.891547891908486`"}], ",", RowBox[{"-", "16.76802990182023`"}], ",", RowBox[{"-", "17.69939820759019`"}], ",", RowBox[{"-", "18.684742874549375`"}], ",", RowBox[{"-", "19.721049375722558`"}], ",", RowBox[{"-", "20.802600548107247`"}], ",", RowBox[{"-", "21.920326927877145`"}], ",", RowBox[{"-", "23.06116775674698`"}], ",", RowBox[{"-", "24.207542633130238`"}], ",", RowBox[{"-", "25.337073706358023`"}], ",", RowBox[{"-", "26.422728931428967`"}], ",", RowBox[{"-", "27.43356027467977`"}], ",", RowBox[{"-", "28.33616589462777`"}], ",", RowBox[{"-", "29.096896903239962`"}], ",", RowBox[{"-", "29.684660871227987`"}], ",", RowBox[{"-", "30.07397975827445`"}], ",", RowBox[{"-", "30.24780350206151`"}], ",", RowBox[{"-", "29.97987250063888`"}], ",", RowBox[{"-", "29.459772782555294`"}], ",", RowBox[{"-", "28.719033387850477`"}], ",", RowBox[{"-", "27.787887814411494`"}], ",", RowBox[{"-", "26.702660708137486`"}], ",", RowBox[{"-", "25.502032225384056`"}], ",", RowBox[{"-", "24.223702736605357`"}], ",", RowBox[{"-", "22.901863581900297`"}], ",", RowBox[{"-", "21.565620228909072`"}], ",", RowBox[{"-", "20.23830212445527`"}], ",", RowBox[{"-", "18.937468360299157`"}], ",", RowBox[{"-", "17.675377620805946`"}], ",", RowBox[{"-", "16.459709396336468`"}], ",", RowBox[{"-", "15.294371513815378`"}], ",", RowBox[{"-", "14.18028367368606`"}], ",", RowBox[{"-", "13.116074597869636`"}], ",", RowBox[{"-", "12.098666419331`"}], ",", RowBox[{"-", "11.123744000307184`"}], ",", RowBox[{"-", "10.186121251965076`"}], ",", RowBox[{"-", "9.280024138471925`"}], ",", RowBox[{"-", "8.399313447575011`"}], ",", RowBox[{"-", "7.537671469322062`"}], ",", RowBox[{"-", "6.688776549957764`"}], ",", RowBox[{"-", "5.846488449150969`"}], ",", RowBox[{"-", "5.005065205382337`"}], ",", RowBox[{"-", "4.159427853205417`"}], ",", RowBox[{"-", "3.305481391214688`"}], ",", RowBox[{"-", "2.4404872962485666`"}], ",", RowBox[{"-", "1.5634636679441591`"}], ",", RowBox[{"-", "0.675564664316824`"}], ",", "0.21963454675311017`", ",", "1.1160391299085763`", ",", "2.005213018572337`", ",", "2.876894451446627`", ",", "3.7198451929674143`", ",", "4.522945611494521`", ",", "5.276369110078005`", ",", "5.972628851185504`", ",", "6.607308744231575`", ",", "7.179366133749438`", ",", "7.690997592115564`", ",", "8.147153451526961`", ",", "8.55484204846561`", ",", "8.922372574395776`", ",", "9.258656536440622`", ",", "9.57264172246722`", ",", "9.872907207137617`", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output", CellChangeTimes->{ 3.4241920638242536`*^9, 3.424192328121128*^9, 3.424192782746128*^9, 3.4241929761055036`*^9, 3.424193084027378*^9, 3.4241951748242536`*^9, 3.424428751339878*^9, {3.424428858496128*^9, 3.4244288930117536`*^9}, 3.424428981339878*^9, {3.424429077964878*^9, 3.424429125308628*^9}, 3.424429213214878*^9, {3.424429318464878*^9, 3.424429349777378*^9}, 3.4244294892617536`*^9, 3.4244297129180036`*^9, 3.4244297522930036`*^9, 3.424431093808628*^9, 3.43118896441654*^9, 3.431189121932496*^9, 3.431353408481063*^9, 3.431355293975531*^9, 3.431356090842675*^9, 3.4313570730186987`*^9, 3.431357323917672*^9, 3.431357368655137*^9, 3.431357518744155*^9, 3.431357825578374*^9, {3.4313578917984753`*^9, 3.4313579161494093`*^9}, 3.431357985064221*^9, 3.431358025390078*^9, 3.431358063309969*^9, 3.431785445971051*^9, 3.431785680182549*^9, 3.431785982486294*^9, 3.431787307862493*^9, 3.431787379968358*^9, 3.4317880725440483`*^9, 3.431793519249631*^9, 3.431794542656844*^9, 3.431794766380406*^9}], Cell[BoxData[ GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJzt091LU3Ecx/Gj4k3pfJg6m5bHlVZOJU2Xbqt9ky7UILAoBE3Xzvltw0y3 RUMwwhSzBwok10BQpyY06UYpaNIT4WxRpqnrwiSOLhNJydAKvehxv77+DYEH Dof3uflcvPgm6qqPkkCGYWp+v3++fx9BBwk7G7yTtjDw/+Cg2NxwOcQT7m+W g56f4ytddyL8DRzEfuu0yKsi/a3lwOUwOwWp2N91HLiHh3uv9dF2cHBypvBh UXaUv59y0GxbsV5y0hY4yLCVmxojouk+D/lK+2SLiTbLw2hLCfvmBW3g4eVh lY1lY+g+D7LKGm+alXYdD6/sg0cMr2k7eOh+QOoD5RK6z0P57HFPwA3aAg+1 j4xtqlXaDIHguM7nuqpYuk9gMcw7IfpMGwjEeH09g+e30H0C6eLIqR+xUrpP 4NnokkThpu0goJCUbZ6vj6P7BEwjrZW3j8XTfQL3FOPCptytdF8P4gO5a1NZ 2+i+HjyeqIqAggS6rwffwhn3kIql+3pQ++KyDdO06/TAnhvQOG8lwj/fJ6cX jfkOFfpaG9/VVviU6OteDWUNIUr0zW+2i9+zuejbf9acak3OQV9Nerv9pmwf +hYyJhcrVaCvvP2jpyIiG32DGo3Xw0Oy0Heg6yLDhO5FX92JoYULMZnoSxRa lzIlA30z+5LjSwv2oG9rU1lRznw6+sYT1WxfcRr6cqVreUXTcvT93sH2T9Sn oG/b/RKLU70bffdrvUtBol3oqxUZmpa/JqPv2MGRPMtyEvp+ujquNgcnoe9b dapkJmUH+n5RLkgf67ajb/kpYtl8V4a+muhDH4RgGfr2aq4YjNWJ6CtXJU0K c+u+Y3MuSUfVuq9W09ktCmLRd+N+N+53437/v/v9BYFhCKg= "], { {Hue[0.67, 0.6, 0.6], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 61], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 62], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 63], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 64], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 65], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 66], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 67], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 68], InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Small], 69], 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]}, {Hue[0.9060679774997897, 0.6, 0.6], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 91], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 92], 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], InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Small], 116], 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]}, {}}], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["\"z (mm)\"", TraditionalForm], FormBox["\"I (A)\"", TraditionalForm]}, AxesOrigin->{151, 0}, ImageSize->400, PlotLabel->FormBox["\"Current Scheme in Space\"", TraditionalForm], PlotRange->{{151., 180.}, {0, 27.626104886974414`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{ 3.4241920638242536`*^9, 3.424192328121128*^9, 3.424192782746128*^9, 3.4241929761055036`*^9, 3.424193084027378*^9, 3.4241951748242536`*^9, 3.424428751339878*^9, {3.424428858496128*^9, 3.4244288930117536`*^9}, 3.424428981339878*^9, {3.424429077964878*^9, 3.424429125308628*^9}, 3.424429213214878*^9, {3.424429318464878*^9, 3.424429349777378*^9}, 3.4244294892617536`*^9, 3.4244297129180036`*^9, 3.4244297522930036`*^9, 3.424431093808628*^9, 3.43118896441654*^9, 3.431189121932496*^9, 3.431353408481063*^9, 3.431355293975531*^9, 3.431356090842675*^9, 3.4313570730186987`*^9, 3.431357323917672*^9, 3.431357368655137*^9, 3.431357518744155*^9, 3.431357825578374*^9, {3.4313578917984753`*^9, 3.4313579161494093`*^9}, 3.431357985064221*^9, 3.431358025390078*^9, 3.431358063309969*^9, 3.431785445971051*^9, 3.431785680182549*^9, 3.431785982486294*^9, 3.431787307862493*^9, 3.431787379968358*^9, 3.4317880725440483`*^9, 3.431793519249631*^9, 3.431794542656844*^9, 3.431794766427703*^9}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["The Total Current Scheme:", "Subsubsection", CellChangeTimes->{{3.431788404747254*^9, 3.43178840942797*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListLinePlot", "[", RowBox[{ RowBox[{"{", RowBox[{"I1", ",", "I2", ",", "I3", ",", "I4", ",", "I5", ",", "I6"}], "}"}], ",", RowBox[{"PlotMarkers", " ", "\[Rule]", " ", "None"}], ",", " ", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotLabel", "\[Rule]", "\"\\""}], ",", RowBox[{"ImageSize", "\[Rule]", "700"}]}], "]"}]], "Input", CellChangeTimes->{{3.4317876299257708`*^9, 3.4317876663552628`*^9}, 3.4317877119736032`*^9, {3.431788133585311*^9, 3.431788322405566*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJxd0n1MlVUcB/ATjmJ1KRmMGViAosNA4kVEXoTv5UW8vF7AiLfkKmoKJn84 s83Ks2a5GluMUIy5cbVmiI5GMotmcKytBYtVhFcTh9e0pk6hqbgxmb2M37Pq +2zP7j7P937v7z7nnIiNTWWbfZRSfX/f/3zOXX9ktj3uGr+IGCMPsK5b+X3t v1zsh0/6uzcNT1uej9HjBSHvzsSKg1C164tzv9jixAuQXNPZ+94JywtxNOpD L6rixeE4fcNTtSE4QbwI0WnfuXHVciQatbM50CSKl+Ju2bHe8ZMrxFEY+PjC Z8XHk8TPIXKP5+bnfSvFMQj7NKFpbCRZHAu0XEH3nVXiOByrvvhbbXiqOB57 gzra5pWniRMwYnO8tf/tdHEizr326vYPeleLV8A0NWzt/CFDnIS4yYmMyPOZ 4pXwd32/dW8dxMmo3D3e4TNoeRXKJ+OTfvW1i1MwMdnU2BVnORVZLWfX70+0 nIbhUVu9b7DldATufrBl6rz1e6sRHzo2bfZYzsCFh70BDl/LmRgMKP35jTvW /wVmr9kOt/bL+2jgyETcZEiD9b52PPrytoguf1kPbUdix2M720+mSJ6FzroJ 22iRrKfOwsiRH5sH7lvrn41vX7m8uOKE7I/ORt5PKcklO6z9y0H60NhgqV32 V+dg359p12OWWPufi9f7v2n1C5HzonOx/fnlqiXMOk9rcOlsWuqyBjl/eg06 D1xPLztlnd88jOV+Wd+4IFryPGR1Xzloa18m+VqEtKOwKyZK8rWYtW17cNCz VHIHIkrzvQtbl0juwNBITn9jbaTk+QgZOPPU0YTFkudj2OM4MBSwSPICzF4q S/LcD5e8AIHv5BSXfBUmeSGuRlf6hjU/I3khbs2EzjtTHip5ESru9T0x5f+0 5EWw99gfudEXLHkxDnfczjmUHSR5MS539dTOPx0geQk89zqrpgOflLwE3c6p NvWmn+RO/L7vlD22x2fOcOL9Qzt2NlTPDM5934nU0Wcd18Jvztk4sWu65mH9 3Y/mrEqh/nuBrMmGrMqoT9ZkQ1bl1CdrsiGrddQna7IhqxeoT9ZkQ1YV1Cdr siGrF6lP1mRDVpXUJ2uyIasq6pM12ZBVNfXJmmzIqob6ZE02ZFVLfbImG7J6 ifpkTTZktZ76ZE02ZFVHfbImG7Jy/d/hZJBdZE12kw3ZS1YbaD4ZZBdZk91k Q/aS1UaaTwbZRdZkN9mQvWRVT/PJILvImuwmG7KXrDbRfDLILrImu8mG7CWr zTSfDLKLrMlusiF7yWoLzSeD7CLrf/0Xa+qq7g== "]]}, {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData[" 1:eJxd1QlQVHUcB/CnKOqiSIih3CAQosgNcu535VxW7mO5gpU0nfHCAxE8eIoo M5l4QYhmi6KRRIhUUBI9UJlEFBA1EUfXFM2AVExQ86hmfzuN/zezs/N53/nN 7x3/9/tbZqyMWTSa47hv//39968+HouTpne8Ni9yAp2AfevGAnNTR/J4TBg9 sNhX4kDWww1baa3x9llkA4Tf/Gpuw4OZ5GlIj3tbvDTDjmyCPvGFlz1DtmQL TJY+26YqtiFbYXX5uM6CUGuyNcT+1fUD42aQbVFhtmSNtMuSbIdDdtWZPeUW ZHtkthba/zRoRp4NUXb5934HTchzcMBO9OhysBHZCf5G4Q1B/YZkZzgfaFTW 5k8lu6AioFXZpDOF7Iof74uO9+fpkd0gOi41vXBah+wOeVpwR4tUm+yBLz61 e3GtiiN7Itcgpyqj85lY7bn47lSA0t36HtkLpVZVlU3rG39W2xvmE7dMOjN1 kOyDIffszBHub7IvAktGr1+4R0tQ2w9WbZsWHl48geyPB9nnuluGdcli+Oa5 VTYa65MB+ZX7W6/vM1CbB4Z0JbfM+96nXIJLPY/DRFOmUy7BieFcZZmVMeXz kPP0nk3vdFPK58FHt37NkrdmlAfg17oyY9FyC8oDsMbllXV0oiXlgeg9tF+7 I9CK8kBonQ1vK3efQXkQWg/31552sKY8CHk7Dl6762hDeTACqo5F/+BvS3kw dtVufq8+9QPKQzBcuqzNY6cd5SFI+l04sqpjJuWhWHujJnyT3SzKQyF6G4rA A7Mpl+LqmPo92TPmUC6FuaXpyPpfHCkPw6iqXQc/P+tEeRiMN7S36NQ5Uy7D xRSTSFmNC+Uy7N9hXlvS4Er5fETebvbOvuhG+XxIb1Z+UtbvTnk4QtpPnKyc 7El5OIa6ivMt3edSHgFX2wXrwhK8KI9ATtFnw57LvCmPhH2p4tLrFT6UR+Kv td0jugm+lEehOy/Y99I0P7URhaWtMY+Cash8FLqSMxIe6/urLURB7HRnYqaY zEVj0ebSgesvNfXRyDkRWlWXpamPxrmdWXv1G6ifEI2sTp0xdefpergYbDyS s/dOHV0vYjB+91THAl5zPzF40GRZHOhF9yvEwLDetFB134PqY9Fj1ryxfTc9 L8RCZuSZNspP8zxjoV0we/D1I3r+QiyudHjt7Pta837icHXwWn5NFr0/xEFv 2ZOb9SWa9x2HNyOB1hGptB6EODhsdrVc4WNP9fH4I7dy8TYXWl+IR2FbRXqK 2Jbq41FZdC9Ulk7rV4hH9ZcPY9KLaL1zCZimGOhY3U7fBxKgO7A1aZ8tfT98 At6EdB2NaDai+gRI5njcuphhSPVydPY6dDqOpe8XctxNNtOVHNWjejkeLg/2 Vq4SUb0c0h2mbmbbNfMiESdvVeQOab1QzxMkQjtt9Xmvw31q84kocThp+sqk XT2fhERc9RSuy3qf0LxKQiu2mleLaL4hCSW6z33vaI1Tm0/CscuRLv4tk9QW kqC83D8pz1BfbS4Zm46O3cIZ07xFMvKeyrqe36V5zCej3GVA/ttymtdCMv68 kdNcVa+Z5ykwH7Xy9v4zNO+RgsKyDafkMtoP+BS8cj8vMTCh/UJIwTf53Z6S 65r9IxXrumaWr9hmRfWpOFfRKHO2of2GT8Uel+21g01kIZXqNMeH7xqMecYC Yy6NqWfMMxYYc+lMPWOescCYU7xrC8ZgrGDMM1YyFhirGHMLmP6MwVjBmGes ZCwwVjHmMpj+jMFYwZhnrGQsMFYx5j5i+jMGYwVjnrGSscBYxZhbyPRnDMYK xjxjJWOBsYoxt4jpzxiMFYx5xkrGAmMVY+5jpj9jMFYw5v/3P8aMUWs= "]]}, {Hue[0.1421359549995791, 0.6, 0.6], LineBox[CompressedData[" 1:eJxd1AlQFFceBvCWEYJk0EGQAlQYBBEiEg4HFIh8A3iAyDEgMMMAPcMhh4bd ikc2wdgad1GXDQTxCGXJKIkSJBKCimiEwasEQ0wIAY2ouGRNsBQMogZB2N3q f2dre6qoqd98fP2633v9nPUFqiwThmFO/efvv9/850lIuQV7+yd4gn5AQg1j ftFyEdkcx5tqMtufCZah8/PVDrtHvcg2UG86++MtqTfZDgEplfV7Tgieg6Pu n/RB7UOW48xAt1pn60ueh4VB1wzoF+yKfC622NroR3bDU9Wx+tu1i8nuaP70 5lfRnyvIb8D1/e6Hjaf8yZ5wqvMt6OoIIHsBpfdRM7yE7I1jmp/+pZUHkn2w zaaiXBIfRPZFhzRiR9Ffg8l++PHdzev31r9FXgxjQV5O5Y1lZAW8B+8uc+0J IfvDkv0mZ1s6yAFI3nK7wqRF8BLED/oo/mmqJC/F3cGC/GpvwYEILW1NK/IT HIT2TmmGqa3gYFhvGcse6hGu9xZ8Znc9M74veBluTtRbRZgKDkGLVdwPW4eF +wXGf5YeKmui5+GAI3e9Bx3yhOdVwmxdrnO1Jc0Hp4RfxWvvHKhdSnkoKtPv SjvX0Hxyoeg48l1x83Nh/sNwdcM9l8QTtD5cGFZ+vzQg5m1h/cIR3NbVEqek 9eXCsXMy6FfP+cL6L0dh06UycwfaL9xyrH9zEVPqJOynFehtDQr0yKP9x61A 5b5fg1UNwv5dia7l5zLy7RZSvhKhNff3Sw94UL4KDgcQVe3pTvkqjEtzx/Z3 u1EeAee4yL45ZfMpj0BbR3hTvtaV8kg4NH8946ivC+WRaO+O2NdmNY/y1Rjv VSm6n8spXw3rv4VHx1xwojwK/QuTTZ2K51IehUejsyVfx8+mfA0SR069PmRp T/kaKE8qpwycsqU8GocqHocfDLOhPBr3qk9qZWesKI9B90il+pn1dMpjUBM7 VM58YE55LB7sbFB6nTThjViUHHz7nTzNaAj//7EI7HSM+Fn+kLcxFpuepUxk PK3izcRh7t4P23v2PGzh+3HI6nOTjFqN8ebi8PezVybZ8KlGvh+HQ+tsjerL FrwZFf5U5p368gMZb6jg2akqcNlszZtT4aOqpvTpq2ypr4JZjObYxy/sqB+P uS6NTNbu2dSPx6yJ3zyLJY7Uj8f4hhvGdf5y6sfDZVX2drdsZ+onwN/poKqs fB71E1C9+/BHjldcqJ+AV2FVvZZjrtRPQMPhIHXmUjfqr8WCXFld744F1F8L u+s7Zt655U79tVBcU2Tk4g3qr0Xg8cemsrMLqZ+ImtZvUm4oF1E/EX7BPywY vuNF/URMn2gYerLcm/qJeFTVvv2Fqw/1k/AXVnJul4Uv9ZNgw844rRohc0nI 1zZftL3nR/0kSKxMsvdeXUz9ZKzY+fK3bZ8pqJ+M88M2l6s2+VM/Ga8f7Xhv pncA9ZNRclj2ZVkHmVGjoOvLKYtWLqG+Gv9QPYju3k/m1EDR9UtzzpKNaliG aJ80VpMZDYKmbpHcyRH6Gnyb4zQZOkbX5zToZUsvdGUK42tQGHyi1rmW7o9J Qf395uwTN4X7T8E1q+pWn2F6Pi4FqVuTptgzZGMKEivNNr40p/lgtNhcfKk2 Y6Ywf1oMbvBQt8hpfjktnq+Z8kVqgDD/WlRj+MOBcVpPJhX5pz240EAP6qfi 5qs/7/mklPYDl4q6Rrmkf3I+9VNhOuCnSy2i/cSk4fdZX1S2zaf9hjRsPX4l /8At2p9cGhwtA3PNjgj7Nw394fZHCkdofzPpyCtcv6nl6hzqp2NbUdQ+x9MO 1E/Hp3a9yaPn6X0xpkPj8iqyo4feJ4ZF+WctGwNNZ/GWs3ht8Pp2UyW9f2BR EmntZr/LijfLYuD3mJEZdTPo+izszWUXnNRS3gYWMWbyupBp02g8FoZzFpkX z5ny7mMhu6N03J1rQuPrUGIysyrKdYI/L+Q6fKt23yvLfEHniQ6/pG95N6Hk CW9WB9mk2tJ5dT+dLzpcf/pdzrSIK7wNOhTumhpycvv3dF7p0JMbH6PrfcC7 T4eHbZcszDcO0/mlB35RLH6kp/NOrofz+QpDtw0Dfnw9LgwxyS81Et6sHgrd mz2t75nx5vQ4E/Z48HL+NN4GPbx6G0dG3KS8jXpkVSU3yI/T+dun57//+GT8 v+UiQ2RWZE5kg8hGkftEZjJF44sMkVmROZENIhtF7hOZyRKNLzJEZkXmRDaI bBS5T2QmWzS+yBCZFZn7n/8Nat3Hjw== "]]}, {Hue[0.37820393249936934`, 0.6, 0.6], LineBox[CompressedData[" 1:eJxdlHlQVGcWxZ8hmgSlVaKBsDYIRNlFFln7gC0CHYQGZV96BSYqCgYUF3hi ECfjqCiiwYiNmgS3QcAEmbG0EXGUARFwAUkZUNEwgCJkIDpGJ1N93x95r6qr 61enzrvfu/fcz0qxNkr9DsMw53///f9f94yKmD8++CO+z+NZPJ7DY2Mem/FY yGNrHtvw2I7H83lsz2NHHjvz2JXHC3nsxuNFPHbnsQePPXnsxePFPPbmsQ8s Z2wzaJo7QnPxxZjHhnWTzH+J/SAue2ejqkSPfP6wbtmqqkj/gDgATzc0d12Z EBCL4FfgXnXR1JAYiL39pLB7P82NBcYEgQ8sBz4iPRA3e0bD9D/8mPRAnJrY pCm3NiU9CHnjj217PzYnPQi+gvr1GW8tSF+Ce3XlpvpraM7sEqx3e20jjbMi XYzer0untYutSRdD72p4S6XHPNKX4lrFUM0/nCgH7FIUFB+++8jFlvRgLDn9 jbQhgHLBBmN3Tf7s+qRPSF+GiUOrWzx3UU7YZYj/WXssq30B6SH4/H51+Nb5 DqSHQP9tCMRfcbkJxZ1360s2zKPcsKGwtDKf3HjdhfQwTDm9+/CRq5QjNgym m1uvTK/jciRBW6JZhKSacsRKUFpsWVN2gcvRp4j4qdFnQxvliP0UoT9W/aV8 iMtROJa1njpXNZNyw4ZjrOPAdisPLjfLschOnhsWQ7lhlyNvz8EJr9U+pEfA /pDs5m+ZvqRH4JfPuyYFMX6kR6KrINjvprG/jhGJVdeini+tJmYj0ZGgiBk1 DNCxNhIi1/4Z60TEjBTq/EPD3a84vxR5p0JO1+Vwfimad+XsM7xA9bRS5Nya /m7dDToPE4Utx/L29dfReRGF9/fOdSliue+JwtNLVgfE3vS92igY1Zvv7HvC 7VU0eiwat7TupX4hGhITr5Qp/lw/ozGtyHHkt+fUf200brd77xo4w81nBe6M 3N1enUPzwwrMWv3ix/oybt4r8GZSbLM8ifKgXQGn/EVWmb7cPbMS/95Ulf6F G+ULK7Gz5URqoojL40pU7XkcIkml/GpX4ux3g1Gpe6zJHwNj2XB7divtB2Ig GC6M329H+8PG4M2yjuPLG03IH4NAZ88HbQoj8sfiVq/TLZeptL+IxaMEC0Hg cbqX2VgMrgn20WTpkz8WocXm7hY7uPsiDucenNg0pvdSd58gDtNSsm94Vwzo mI1DmdM589dmrZd1/jjc8dJ2S3pf6JiJxzUUWp7VZ7Q6fzzKBL/69eu9p2M2 Ht90RrgFXDHQsTYems4hgwIjQx0zCdh6fOo2xnQu+RNQMC7p+PWREfkTUOk2 HPtwjQn5E/Dsfl7j6Xoz8ifCcsran0qbLMifiJ3lm2tjJULyJ+K1x43AOWZW 5E/E37Z3eQV2EzNJyO1YUJn5hTX5k9B84qJkoe088iehxG1HzcglYm0Sfn7S FCmtsCF/MoIl712u9bQlfzLe5Lb7G3QRs8nImqk+E5RrR/5kjO7d0n7P+hPy pyBuss2e6SVGCp65bxw/qZlP/hQUjtxt25mzgPwpuNB5uMAi0Z78qchhXPUb oxzIn4ofupQtR5IdyZ8Kn7AzYQ1bnMifitWqiJyhc87kl8Gop+Nf91656Fgo g/egg2bdWVd6nwyG86K/3ZWxUMcyGTwyI1+WOrvR+2Vw/2WfyPwtsUYG6cXh o+k9i6ieDCm147lRF9113CdDUOWq8+JvPai+HNWFqUEmBzypvhwB3f/cY7jD i+rLEWPVb3M1ZzHVl+N6k+uAscyb6ssxXmduEgsfqi/Hn5oGxb6zfam+HB+s eva9bRtxnxyXjX9oTsr0o/oKFG2cGS5/TixUYPbD0CkREn+q/7veM1EQkE8s U0DcPCvg6yJiVoHbc0oi02XEGgW+POlbGz6TWKvA3t3nxzSl9P4+BS6vGskI 0dB5GCVyi3o3f/aIzi9UovmlgTB9BjGUCCk5+OEDIX2vTIna9VmOuXbUD1YJ kXPFwf3W1C+NEmHMugahCfVTq4RDxZPrn82mfvcpoVeU8ddZM2gejAp/P7aN YQxoXkIVFDHXhvM/onlCBbWnrMHHnpu/Cm41dmZJoZQPVoXy4hTp4kHKk0YF M7XvQE0clzcVlEmvgqT9lM8+FSaPCmtvF3L5VePI94nZJ/0o30I1/GV3RvUE lH+oIROkF4//x47qq9EZ2B6UPc7tlxpDX3b5ZU0l1qhx18/R6KE97adWjRc+ wyaXFLS/fWqkytXZ08/QvjNpEM0VP+6bSixMwynRn9Mz1tL9gDQ4+Nre73tK 94ksDZ1PG4yOZnL3SxpkosrjAj2h9n/xMNnl "]]}, {Hue[0.6142719099991583, 0.6, 0.6], LineBox[CompressedData[" 1:eJxd1nlMFGcYBvABhAIKLKcgCosoaD2qVbAclQdPxIOyXLvAwt6AeGCjaC3W AdqKR8UDtDWtLiIVr6JRC2KRVcGiiEcVUQMpllSD8UBKVFChbeadP/w2IeSX N+88MPnmmfXRLJfpzTmOO/Xfz/+/hU9XGPf+B+/TmrGEsQtjd8bDGUsZj2Q8 irEf4zGMP2Q8nvFExpMYT2b8MeMpjKcyDmAcyHga408YBzEOZhzCOJTxp4yn Mw5jjPfNM+bCmTljbgYzZ8zNZOaMuVnMnDE3m5kz5uYwc8bcXGbOmItg5oy5 ecycMRfJzBlz85k5Y24BM2fMLWTmjLlFzJwxF8XMGXOfvW8w5hmbGHPRGLEz /0rLpsdCbyAa+nY/i17HN4L5aGyuqh9QzRok7Jmi8WOam0lRZ0vXkSFrxyRl 31fUI5Bh/B+y5b7ZzoJ5GbaWnkm1j3CjfRmsohJ/3v5K7JUYjPCt5PQbPWk/ Bq79L8ZvsfCi/Ri8XXrdlBZIPWOKgW+EIdfP4EP7sQj0/l62o2gk7ceifOPe rV71vrQfi3czS1vt3lAPmWJxcm+IQhck9lAc/DMkFa15/rQfB/fGPKe2e9RL fBwCGgK0GaBeMsUh+OBTS0nVONqPx+HzV5Ouh0+g/XhMCb3l391GPcXHw77/ 5POu2dRTpng8Kb2S+2qU2FMJ+EJlUV1gSz2FBLioHE7Lesh8AjKTz11w+5N6 y5QAC0dzw85LYm/JMefrvhfry6i3IMfZbpe60lXUW7wcg/c3rXWaRL1lkqNw r+T4jiaxxxRYfvu42YS51GNQ4DvZw0V3dpF5BbCh8eLwKrJJAbuw5K7KcrH3 EhEyaLVFW7q4n4hr6d4DM97Q9flEtKq21dzWifmJyAk9ctTnqNirSTjx4Jzh yF3x709Cg2P5+cnd9P/xSVCuSzDzEHvalIT4fVYr+6zFHk9G9paLR7VO4v1L xrOlYxW1Urq/fDJeLjQ7ppwm3v9klKM7v/Ot+J5RIvP0WH5G8FjaV+LuuxWb fthG54FXoqJSatExMJr2lbDsnKJWbhDfayl47Xps3+XRdN6QgnUH6zN336Pz yafAyy44w6pEPL8p6JjlUZLTQ+ebS8XinCWrai/RexWpWL9hQbHX6WG0n4oD 7q3y3rP0vJhSkej7LrKphZ4nToWistqVwZaugqUqfPCsMdcynJ4/qFAY6ezn UeAoWKVC5+uoHocKB7q+Ch7WkhpvxRDBRhWirKQVYTY2lKeCsdpWd6HaUnC7 CpK2cK+NGeaUr0ahuVPpglH9Ql9I1bimGLNTontFfaLGo9TVa2IL6XuJSg3J gMLOZ34H9Ysajf/cSLeZVy/YqEZOwaCwX3Jv1gr5arRkxESpWx8Kblfj8eWL ttYruwVzGuBRwNQnml7BUg18zu4x3nHhTEK+BjXPOXlfooVglQYB6o9azq+1 Esxr8OvMp8/qMm0EGzWY2FrZ0+M3RLBJA32p/KT0oL3gdg28/fOb7xc7COa0 kK/ILxjSIBEs1aJs4FbP/nJHytfC/WXJ5+OWOVG+FmeMKw61D3OmfC3qm5oO bz5BNmqh/Cvyt+gAF8rXYntxT/a3h8jtWkwuTs36xtGV8nWICN59vyiLLNXh RlGS9OZlMnRonB9SLJW6Ub4OI5esaZ6QTeZ1uLq7blHaNbJRh9IqfZ75uKGU r0Pq33ENZlvJ7Tp8WZP+U0gvmdPD0rPkd80yd8rX46lD823752To4dbcUVaX 40H5ekx0dmrtdx9G+XpcuNE1NLCebNQjcGjK4M48T8rXI+v6niUHYoZTvh6n Am+12waNoHwDnKcH9bVO9aJ8AxoaXBabzfOmfAM6niytvxQipXwDQjs8A9Ie kHkDpKuqww7t8jH9C7p9Mio= "]]}, {Hue[0.8503398874989481, 0.6, 0.6], LineBox[CompressedData[" 1:eJxd1n1MVWUcB/CnmOtN3syCMWwHFCogIkNS3u7P2814ieBiIcV9OS/33EvS UGjcueX0iY0s14uWza0SjrW50WjlDV00F6cR5WqMBaaRW7taakw06lZO/6hs /M4ffM92d/fZd797zn3Oc/Y9OfqWZvNGIcTw9c//3wvHvEssPmgxbwangZeD M8HZYAWcC14FzgffAy4AF4GLwSXgB8CrwQ+CS8FrwGXgh8BrwevA5eAKcCW4 ClwNdoFpsSVYrIccLNyQg8XDkIOFB3KweARysNgAOVg8CjlY1EAOFrWQg0Ud 5GBRDzlYPAY5WDRADhaPQw4WjZCDRdNiE1iCbbDwwjxYgm2waIZ5sATbYLER 5sESbIPFEzAPlmAbLJ6EebAE22DRAvNgCbbBYhPMgyXYBotWmAdLsA0WT8E8 WIJtsHga5sESbINFG8yDJdgGCx/MgyXY9tGv58eavP1OL/lpQ/1No7GyvAWT n/6JTlYlT7Oln7pSzSF3lHvL9tP8nu2Tp3Lv5vkAtV6ZKBCn2RSgy6XbEoMW 95oMUO+lkxMv9dzL8wH6dOqdnXe1OT0XpB5RcusXzYU8H6Sj08Y3B/zcezJI 5XVDdSPb7+P5ID0bauy5+LHTgyplzHz37alr9y9YUWndbKG19UPuRVJp2cqN h15p515UVVrT2XR1XzH3olSp9M83XCv+ZVsqeY/NDURmuCdtlQKxRLT5GPdk XCX3wY5hzyGnJzX6qDfoznqLe1LRqPqHr19f9iL3JGnUknNm1Zc93JOqRsfH Ss5lqtyTUqPEJyuyNhH3pKXRM2Oznop07klbo1s6Lh/Jm2DHNRrNPDru63R6 U6e+bakN2m9sRaf0s7U3NNZzj9L1fObvndU72KpOnvG06nf72FKnE8v3NkVU tqXT7sGKWEMq29Zpz2vDf1j7+PfjOo12XGqvsZweNyjad/r5zT/z9SsGjV9N ViJL2WRQzd79t/+k8P9VDYo911UUzef1kAa5ivv3v5nL62UZVCe2jihZvJ62 QYX9549vTuf1jhuU1Nf+atpS570lRJ+994IQyXy/lBDpLV/N7biT7yeFyCxT R8oLnPsfotWH87N9tbw/ZIje3hXwrp3l/WSFKNusOHe41dlvITJ819zeM7w/ 4yG6MqDETvQ6+9ekA0faugcreX8rJlWp388npfD+J5PUlMiuxF/8/KgmTa2f dHcnnOfLpIu7pyu7lrAtk05WFmWcLeDn0zbp9/K5rM/1lXx+k4Ka2X3bUC6f P0yuOzy/xJewlTB94Ho50r4lh88fpsKKvB/jF/g9VQ3T1IWRjIFOtgyT6jr4 fkqSQv8BICN5iA== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["\"z (mm)\"", TraditionalForm], FormBox["\"I (A)\"", TraditionalForm]}, AxesOrigin->{0, 0}, ImageSize->700, PlotLabel->FormBox["\"Current Scheme in Space\"", TraditionalForm], PlotRange->{{0., 180.}, {-34.402568668855125`, 34.402568668855125`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{ 3.4317876714844007`*^9, 3.431787714328341*^9, 3.43178784229186*^9, 3.431787998391016*^9, {3.431788136629367*^9, 3.431788253843845*^9}, 3.431788283970875*^9, 3.431793519473585*^9, 3.431794542895322*^9, 3.4317947665848618`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"TotalCurrent", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Abs", "[", RowBox[{"I1", "[", RowBox[{"[", "z", "]"}], "]"}], "]"}], "+", RowBox[{"Abs", "[", RowBox[{"I2", "[", RowBox[{"[", "z", "]"}], "]"}], "]"}], "+", RowBox[{"Abs", "[", RowBox[{"I3", "[", RowBox[{"[", "z", "]"}], "]"}], "]"}], "+", RowBox[{"Abs", "[", RowBox[{"I4", "[", RowBox[{"[", "z", "]"}], "]"}], "]"}], "+", RowBox[{"Abs", "[", RowBox[{"I5", "[", RowBox[{"[", "z", "]"}], "]"}], "]"}], "+", RowBox[{"Abs", "[", RowBox[{"I6", "[", RowBox[{"[", "z", "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "1", ",", "180"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"ListLinePlot", "[", RowBox[{"TotalCurrent", ",", " ", RowBox[{"PlotLabel", " ", "\[Rule]", "\"\\""}], ",", " ", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"ImageSize", " ", "\[Rule]", "700"}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "40"}], "}"}]}]}], "]"}]}], "Input", CellChangeTimes->{{3.43178842496909*^9, 3.431788670536175*^9}, { 3.431788701694762*^9, 3.431788728198763*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJw1lQdU1FcWxjlqVGoIKmKLiGhcbLBI6PgNvUvvZSqCighICKDs6IKCmgSl hiaWgKKLiorBOkEQw2JQEVREgwVzBER2LRQh2eTsvXPOnDm/ef/7vne/e9/9 LxLH+cgmKSkpnfvz+9fv/z9Daz/sL9w0sd4R9AfO7YrsXebJPB0B4V7ua9yY NVHx+dcpbhHMM7Fp4Nnz5l3MOvA0XFi4pJF5PkpG3CKHZzkR62LMcmbawzRm PWQtbpkpfs+sj7E2y4saO52Jl6I0RK6xapEL8TL0Dk7+tOkOswH+m/tFTtwB V+IVUHoydamVyI14FXw7GsozLN2JDTE48by0aYEHsREqq87cTJnsSfx32HaI Av54yWyMkx2mT3N+Wke8BpqZC9VrHLyITaBS/cqkp4z5S6Qezdd98oLZFNWh 2Uvstb2JzfBjUkKFwSpmc1TOmVtyw5TZAgl5wxueVDFbInVfzufqg8xWSK5I q/nkMx9ia7QPz+u20GK2QUDAoM35d/z8WjTrnEqvu8wMKHtIIuzjiOXA6v09 CWc+43UBrvyiFWJynM4vF+DN8lz1gxacjy22lwZ2OueRH3JbhMquHi+qY7/s UNt80ujRU/JXbocdfRd+Tp7LftujevZCu3oJ1UNuj11PxbcmrnG9HNCTVb/x pSGx3AEr3qb277jA9XVETt2QQ7wfsdwRBUeMq6ZM53UnRMXNmO19l/pD7gRP lzvz157lfnFGs9lI64FqXnfGpKkPy15f4HUXfKxWMm/p4nUXbB02DErQ4v1d oaESe2QwnPVdIY+K/2boEq+7wbWlKabOgM/vhjnHT2f0VXF+7nDumz2ebsj5 u6OxK25ftoL70wNhykWJ+r7snwd2Wr+8HvqM/fNE177S3YbryW+5J06bX1e/ /JD9X4emgryUbUZcn3VQjoxXaZNx/3phy9C2KXmbieGFd6eyCwbs+XkvSLxP fD38nPZTeMEioudqjAvv743fiweqV7cRwxv/0EmzbF/K8d7otNtcWw5ihTei yzSsbPRY3wc6zU1/q2jneB/k2vepaERwPj5o+UJzpfO/KV+FDx64nvtPoz7n 74uK3wYvL0kkv+CL298nxry4wn77YopV3i0jVWKFL16+HWgdieT6+GHLhN6/ Rq5RfeGH7rFmk/6VXG8//L5gq1LNCZo/ij+f/9bUOsaC55E/pieE7T3dRfMK /rjdMsO8dB+x3B+Dy9UDutYRK/yxtWrjyQuLeb4F4GlO96xF0zg+AAuCXfvK RmheygOg4XWsyP4DsSIA21YHjVZP8DwNROx9jZp7qhwfiFsfCkb0FrB+IJYZ TGtxXcn6gRj4KXNFoCnrB8Ho7tE510w4PggnMoUH8vU4PghRk5QT3aM5Pghq h0tjnfo5/2BkzT/0w05n8hPBEPplfuWTzP4HI3/HrD3SLVQfRTDOG98/W7iK 6xeCubE/Li47RYwQ1MgSjAXvuN9DkBG719dDifsvBGZnlcvUujg+FKOHistz sjk+FGq/9hY/ns3xoQjVsdJb/C3rh2KlaOjTee/5/oXBKClootiPGGHwUkz7 I/As3+cw2KxvzLynTawIw80ZoRvKbrF/4QiWFx1MNWP/wrHxoq60/QzXLxw5 zxvua1ly/cIxZhVUNLfDgeIjcGyXda9UTowImAyWn9K1JpZHwGt7VomTKrEi AnkWM6Nr+uwpPhL+CxPFmo+IEYlLqpl7tLuJ5ZFwXP7Nx5DXxIpIqH2MUo/R YH0hhjp0/nnRhlhXiEsvypVqt/N5hKh7f//NgRZioRC+sV3DX+lzfkKYvV9j KthDXCHEvCu3878b43yFqFVOul6dSP70CPGi2/hB0lv2T4QHh3PUIpOpn3RF 6AofK/IdJ4YIfoXRm+rT6T4KRVDklryOH+P7KcIj/zcrXm2g+lSIsLejd0IQ yPddhMCpMYrpGVT/HhHC/cWOZfncP2KMdvpo5mRSf+mKkWQe3vHKg+ehGNuH P7SUvSIWinE+KM0q1YDfh2L8EGE6/MaRuEKMLJ+YZdquxAox0u98l9GwhrhH DKNyB+3K71lfgkNv+9U2jdP5dCW4mHIsPU3A80wC1dv9O45spnyEEvxcdVBw N5v7U4KR34bVmorIjwoJCsJGh1oqeF5J8NiwqbCkkv2X4HjyVktBDc8PKSbv uVeidYnrL8X4zTua9W3cT1I8OTit1WbQjvSlqLva0blIh1guxY3O3Voxnrak L8XhmD7b+v0C0pficd/uruhnIH0pTqy/0rofxEoyRIzb6dsGrSV9GcyOqlQ2 u9iQvgyVk3tO6/tbk74MZTfaR8+kWJG+DPOvtTVcrbMkfRmONEwOKVUlVsjQ Oqj1ZVWyBenLoLa62MBzzJz0o9Aovaunk0usG4XueI2GYwJiRKHUqNuq8RNi YRS2PHSq9fnVjPSjMJSSbif5xQz/A2YbKBU= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["\"z(mm)\"", TraditionalForm], FormBox["\"I (A)\"", TraditionalForm]}, AxesOrigin->{0, 40}, ImageSize->700, PlotLabel->FormBox["\"Total Current To System\"", TraditionalForm], PlotRange->{{0., 180.}, {24.80620214307595, 72.28484251719719}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{{3.431788530850823*^9, 3.43178855084632*^9}, 3.4317885973663197`*^9, {3.431788642224255*^9, 3.431788670898653*^9}, { 3.431788719456889*^9, 3.431788728519759*^9}, 3.431793519532463*^9, 3.431794542936204*^9, 3.431794766620607*^9}] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{891, 713}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (March 13, 2008)", StyleDefinitions->FrontEnd`FileName[{"Article"}, "JournalArticle.nb", CharacterEncoding -> "UTF-8"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 161, 2, 72, "Title"], Cell[CellGroupData[{ Cell[776, 29, 192, 2, 40, "Author"], Cell[971, 33, 188, 2, 12, "Institution"] }, Open ]], Cell[CellGroupData[{ Cell[1196, 40, 109, 1, 51, "Section"], Cell[1308, 43, 213, 4, 20, "Text"], Cell[CellGroupData[{ Cell[1546, 51, 93, 1, 32, "Subsection"], Cell[1642, 54, 978, 28, 129, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[2657, 87, 155, 2, 32, "Subsection"], Cell[2815, 91, 250, 5, 20, "Text"], Cell[3068, 98, 226, 4, 20, "Text"], Cell[3297, 104, 16, 0, 20, "Text"], Cell[CellGroupData[{ Cell[3338, 108, 130, 1, 23, "Subsubsection"], Cell[3471, 111, 161, 3, 20, "Text"], Cell[3635, 116, 509, 14, 91, "Text"], Cell[4147, 132, 3499, 114, 112, "Input"], Cell[7649, 248, 633, 16, 43, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[8319, 269, 236, 3, 23, "Subsubsection"], Cell[8558, 274, 692, 14, 155, "Text"], Cell[9253, 290, 2162, 51, 178, "Input"] }, Open ]] }, Closed]], Cell[11442, 345, 22, 0, 32, "Subsection"] }, Closed]], Cell[CellGroupData[{ Cell[11501, 350, 114, 1, 31, "Section"], Cell[11618, 353, 82, 1, 20, "Text"], Cell[CellGroupData[{ Cell[11725, 358, 158, 2, 32, "Subsection"], Cell[11886, 362, 279, 5, 35, "Text"], Cell[12168, 369, 316, 6, 20, "Text"], Cell[CellGroupData[{ Cell[12509, 379, 108, 1, 23, "Subsubsection"], Cell[12620, 382, 2708, 58, 493, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[15365, 445, 103, 1, 23, "Subsubsection"], Cell[15471, 448, 125, 1, 20, "Text"], Cell[15599, 451, 583, 11, 58, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[16219, 467, 106, 1, 23, "Subsubsection"], Cell[16328, 470, 122, 1, 20, "Text"], Cell[16453, 473, 151, 3, 20, "Text"], Cell[16607, 478, 163, 3, 20, "Text"], Cell[16773, 483, 651, 15, 73, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[17461, 503, 107, 1, 23, "Subsubsection"], Cell[17571, 506, 619, 13, 73, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[18227, 524, 279, 3, 23, "Subsubsection"], Cell[18509, 529, 191, 2, 20, "Text"], Cell[18703, 533, 1134, 27, 103, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[19886, 566, 132, 2, 32, "Subsection"], Cell[CellGroupData[{ Cell[20043, 572, 119, 1, 23, "Subsubsection"], Cell[20165, 575, 291, 5, 35, "Text"], Cell[20459, 582, 2702, 58, 208, "Input"], Cell[CellGroupData[{ Cell[23186, 644, 117, 1, 23, "Subsubsubsection"], Cell[23306, 647, 273, 5, 20, "Text"], Cell[23582, 654, 1649, 42, 178, "Input"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[25292, 703, 209, 3, 32, "Subsection"], Cell[25504, 708, 198, 2, 20, "Text"], Cell[CellGroupData[{ Cell[25727, 714, 386, 5, 23, "Subsubsection"], Cell[CellGroupData[{ Cell[26138, 723, 108, 1, 23, "Subsubsubsection"], Cell[26249, 726, 4412, 113, 343, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[30698, 844, 106, 1, 21, "Subsubsubsection"], Cell[CellGroupData[{ Cell[30829, 849, 4277, 112, 313, "Input"], Cell[35109, 963, 3883, 63, 118, "Output"], Cell[38995, 1028, 3470, 51, 118, "Output"], Cell[42468, 1081, 15646, 323, 269, 6883, 180, "CachedBoxData", "BoxData", \ "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[58175, 1411, 430, 5, 23, "Subsubsection"], Cell[CellGroupData[{ Cell[58630, 1420, 108, 1, 23, "Subsubsubsection"], Cell[58741, 1423, 4538, 116, 343, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[63316, 1544, 106, 1, 21, "Subsubsubsection"], Cell[CellGroupData[{ Cell[63447, 1549, 4538, 121, 328, "Input"], Cell[67988, 1672, 5438, 100, 163, "Output"], Cell[73429, 1774, 5020, 88, 163, "Output"], Cell[78452, 1864, 12267, 307, 265, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[90780, 2178, 287, 3, 23, "Subsubsection"], Cell[CellGroupData[{ Cell[91092, 2185, 108, 1, 23, "Subsubsubsection"], Cell[91203, 2188, 4518, 115, 343, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[95758, 2308, 106, 1, 21, "Subsubsubsection"], Cell[CellGroupData[{ Cell[95889, 2313, 4538, 121, 328, "Input"], Cell[100430, 2436, 5439, 100, 163, "Output"], Cell[105872, 2538, 6409, 119, 208, "Output"], Cell[112284, 2659, 13550, 339, 262, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[125895, 3005, 389, 5, 23, "Subsubsection"], Cell[CellGroupData[{ Cell[126309, 3014, 108, 1, 23, "Subsubsubsection"], Cell[126420, 3017, 4670, 117, 343, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[131127, 3139, 106, 1, 21, "Subsubsubsection"], Cell[CellGroupData[{ Cell[131258, 3144, 4542, 122, 328, "Input"], Cell[135803, 3268, 4619, 88, 163, "Output"], Cell[140425, 3358, 5592, 107, 208, "Output"], Cell[146020, 3467, 9968, 256, 261, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[156049, 3730, 284, 3, 23, "Subsubsection"], Cell[CellGroupData[{ Cell[156358, 3737, 108, 1, 23, "Subsubsubsection"], Cell[156469, 3740, 4513, 115, 343, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[161019, 3860, 106, 1, 21, "Subsubsubsection"], Cell[CellGroupData[{ Cell[161150, 3865, 4312, 115, 313, "Input"], Cell[165465, 3982, 5418, 100, 163, "Output"], Cell[170886, 4084, 6390, 119, 208, "Output"], Cell[177279, 4205, 9171, 228, 275, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[186511, 4440, 115, 1, 23, "Subsubsection"], Cell[CellGroupData[{ Cell[186651, 4445, 642, 13, 43, "Input"], Cell[187296, 4460, 12341, 216, 450, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[199674, 4681, 1434, 39, 73, "Input"], Cell[201111, 4722, 3291, 61, 455, "Output"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)