(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 9.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 36503, 815] NotebookOptionsPosition[ 35146, 785] NotebookOutlinePosition[ 35506, 801] CellTagsIndexPosition[ 35463, 798] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"<<", "peeters`"}], " ", ";"}], "\[IndentingNewLine]", RowBox[{"peeters`setGitDir", "[", "\"\<../project/figures/ece1228-electromagnetic-theory\>\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fs", "=", RowBox[{ RowBox[{"Style", "[", RowBox[{"#", ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}], "&"}]}], ";"}]}], "Input", CellChangeTimes->{ 3.759366846998323*^9, {3.75936695565442*^9, 3.759366956337241*^9}},ExpressionUUID->"903319c3-70bd-4083-9bfb-\ ddd0ed6466ea"], Cell[BoxData["\<\"/Users/pjoot/project/figures/ece1228-electromagnetic-theory\ \"\>"], "Output", CellChangeTimes->{3.759366861278801*^9, 3.7593669576795893`*^9},ExpressionUUID->"d3aa6398-97d5-433c-bab8-\ cef88cd4d26e"] }, Open ]], Cell["\<\ Plots that demonstrate the angle for total internal reflection (from Snell\ \[CloseCurlyQuote]s law).\ \>", "Text", CellChangeTimes->{{3.6906636936853447`*^9, 3.690663709570732*^9}, { 3.690664184402508*^9, 3.690664196670725*^9}},ExpressionUUID->"672d3eb6-0b2b-45ea-9d6c-\ bc575bd6e5f5"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ClearAll", "[", "thetaT", "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"thetaT", "[", RowBox[{"i_", ",", " ", "ni_", ",", " ", "nt_"}], "]"}], " ", "=", " ", RowBox[{"ArcSin", "[", " ", RowBox[{ RowBox[{"Sin", "[", "i", "]"}], " ", RowBox[{"ni", "/", "nt"}]}], " ", "]"}]}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"p", "[", " ", RowBox[{"n1_", ",", " ", "n2_"}], "]"}], " ", ":=", " ", RowBox[{"Plot", "[", " ", RowBox[{ RowBox[{"thetaT", "[", RowBox[{"i", ",", " ", "n1", ",", " ", "n2"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "0", ",", " ", RowBox[{"Pi", "/", "2"}]}], "}"}], ",", " ", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\<\!\(\*SubscriptBox[\(\[Theta]\), \(i\)]\)\>\"", ",", " ", RowBox[{"Row", "[", RowBox[{"{", RowBox[{ "\"\<\!\(\*SubscriptBox[\(\[Theta]\), \(t\)]\), \ \!\(\*SubscriptBox[\(n\), \(1\)]\)/\!\(\*SubscriptBox[\(n\), \(2\)]\) = \>\"", ",", " ", RowBox[{"n1", "/", "n2"}]}], "}"}], "]"}]}], "}"}]}], ",", " ", RowBox[{"Ticks", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", " ", RowBox[{"Pi", "/", "8"}], ",", " ", RowBox[{"Pi", "/", "4"}], ",", " ", RowBox[{"Pi", "/", "2"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", RowBox[{"Pi", "/", "8"}], ",", " ", RowBox[{"Pi", "/", "4"}], ",", " ", RowBox[{"Pi", "/", "2"}]}], "}"}]}], "}"}]}]}], " ", "\[IndentingNewLine]", "]"}]}], " ", ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "[", RowBox[{"n1", ",", " ", "n2"}], "]"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "n1", ",", " ", "1", ",", " ", "\"\<\!\(\*SubscriptBox[\(n\), \(1\)]\)\>\""}], "}"}], ",", " ", "1", ",", " ", "10"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "n2", ",", " ", "1", ",", " ", "\"\<\!\(\*SubscriptBox[\(n\), \(2\)]\)\>\""}], "}"}], ",", " ", "1", ",", " ", "10"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.690662627874236*^9, 3.690662740599042*^9}, { 3.6906627739337177`*^9, 3.6906628528283696`*^9}, {3.690662918314803*^9, 3.6906629806826086`*^9}, {3.6906631718300953`*^9, 3.690663173586707*^9}, { 3.690663209549081*^9, 3.690663258154868*^9}, {3.6906633311517477`*^9, 3.6906634848091297`*^9}, {3.690663752779648*^9, 3.6906637775042763`*^9}, { 3.690665474743606*^9, 3.6906656541096396`*^9}},ExpressionUUID->"cca48886-76ed-4d2f-9efe-\ 98aed26e1add"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`n1$$ = 1, $CellContext`n2$$ = 1, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`n1$$], 1, "\!\(\*SubscriptBox[\(n\), \(1\)]\)"}, 1, 10}, {{ Hold[$CellContext`n2$$], 1, "\!\(\*SubscriptBox[\(n\), \(2\)]\)"}, 1, 10}}, Typeset`size$$ = {360., {115., 119.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`n1$25430$$ = 0, $CellContext`n2$25431$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`n1$$ = 1, $CellContext`n2$$ = 1}, "ControllerVariables" :> { Hold[$CellContext`n1$$, $CellContext`n1$25430$$, 0], Hold[$CellContext`n2$$, $CellContext`n2$25431$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> $CellContext`p[$CellContext`n1$$, $CellContext`n2$$], "Specifications" :> {{{$CellContext`n1$$, 1, "\!\(\*SubscriptBox[\(n\), \(1\)]\)"}, 1, 10}, {{$CellContext`n2$$, 1, "\!\(\*SubscriptBox[\(n\), \(2\)]\)"}, 1, 10}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{405., {174., 180.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.690662879690352*^9, 3.690662981729551*^9, 3.6906632604038935`*^9, 3.6906634116312256`*^9, {3.6906634759751654`*^9, 3.6906634858510675`*^9}, { 3.6906637536944723`*^9, 3.6906637787344685`*^9}, {3.6906656312923193`*^9, 3.6906656468570995`*^9}, 3.759366864290921*^9},ExpressionUUID->"85831c49-0511-498d-8b3a-\ 9ef342682b12"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.759366817499537*^9, 3.759366823516445*^9}},ExpressionUUID->"7fa34c28-2f73-43cc-97b0-\ f2f401e770f3"], Cell[BoxData[" "], "Input", CellChangeTimes->{ 3.759366816222005*^9},ExpressionUUID->"ea73385c-8ec0-4317-8892-\ bcf4f6a950bf"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.6906643704581995`*^9, 3.6906644324432335`*^9}, 3.759366916770009*^9},ExpressionUUID->"ab109773-a987-4f30-af45-\ a029a519dbf6"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"p1", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"p", "[", " ", RowBox[{"1", ",", " ", "2"}], "]"}], " ", "\[IndentingNewLine]", "p2"}], " ", "=", " ", RowBox[{"p", "[", RowBox[{"2", ",", " ", "1"}], "]"}]}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p3", " ", "=", " ", RowBox[{"Plot", "[", " ", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"thetaT", "[", RowBox[{"i", ",", " ", "1", ",", "2"}], "]"}], ",", RowBox[{"thetaT", "[", RowBox[{"i", ",", " ", "2", ",", "1"}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "0", ",", " ", RowBox[{"Pi", "/", "2"}]}], "}"}], ",", " ", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{ "\"\<\!\(\*SubscriptBox[\(\[Theta]\), \(i\)]\)\>\"", "//", "fs"}], ",", " ", RowBox[{ "\"\<\!\(\*SubscriptBox[\(\[Theta]\), \(t\)]\)\>\"", "//", "fs"}]}], "}"}]}], ",", " ", RowBox[{"Ticks", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", " ", RowBox[{"Pi", "/", "8"}], ",", " ", RowBox[{"Pi", "/", "4"}], ",", " ", RowBox[{"Pi", "/", "2"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", RowBox[{"Pi", "/", "8"}], ",", " ", RowBox[{"Pi", "/", "4"}], ",", " ", RowBox[{"Pi", "/", "2"}]}], "}"}]}], "}"}]}], " ", ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", " ", "Thick"}], ",", "\[IndentingNewLine]", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Placed", "[", " ", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ "\"\<\!\(\*SubscriptBox[\(n\), \(i\)]\)/\!\(\*SubscriptBox[\(n\), \ \(t\)]\) = 1/2\>\"", "//", "fs"}], ",", " ", RowBox[{ "\"\<\!\(\*SubscriptBox[\(n\), \(i\)]\)/\!\(\*SubscriptBox[\(n\), \ \(t\)]\) = 2\>\"", "//", "fs"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"Left", ",", " ", "Top"}], "}"}]}], "]"}]}], ",", " ", RowBox[{"PlotRange", " ", "\[Rule]", " ", "Full"}]}], " ", "\[IndentingNewLine]", "]"}]}], " ", "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.6906656728906207`*^9, 3.690665696495907*^9}, { 3.690666057146212*^9, 3.6906660737791815`*^9}, {3.690667057851389*^9, 3.69066706671238*^9}, {3.759366927624115*^9, 3.7593669856638927`*^9}},ExpressionUUID->"9cd7b754-409e-4597-b782-\ 8710a564f433"], Cell[BoxData[ TagBox[ GraphicsBox[{{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], Thickness[Large], Opacity[1.], LineBox[CompressedData[" 1:eJwd1Xk41dkfB/BCskRqLIPKckuyjBqZ0VjeU7gyWlAyQopINNTNaHFVShhG ccW0iCSiRYw9plC3IWqyZrn4qlAaW3LvuVR+Z35/nOc8r8/5PJ9zznM+z3N0 fEJc/CTmzJlzlY7/ZsmHcs9fm+2xlvj/7Gy94t0Di2XJQPTi3UbLkk0wXWCy t5O3FWFvS/Q6ecCAcgAp5XkDylESpTTexY6qzeaFoM57ejiTxtu8eSuv8k7C Njq0PoHGXQ6od13knYeYfW6PB40nffAsSuVl4H7+hefXks7Dgv+T3IbDBSjX OMNROXQNB49v2VN0sBxhgncnkvbn4pdyv3MSrGoUebJPN2gUoPWtg+xNn8dY 5WmRrexSjDgT4ZxS9zo42PPjOFblOGRYl1Kd3YiphoD+giNVmPYNyu8JfoEY xzdqipuq4fPXDqdE/2ZI3TD3v2FWC9+J1urq2FZUWT7am2/7GL+vLgvJiW5H mkbUnjtGTyBRXfZ91PEOmNvvTByUrsMiA8fnfRe70NVk+9hV6ik2ZmzIGucJ cK1/5s+jXQ1QG2tknyzrxSXcCh9peobLf9+fK7mfQa5+9u2win9guXT9rPbe fujnJEx3Vb2AIaP0JiL0FVL29+auvtOEu7mLA0o4r4EY6SVtMc3g9nq1GEa/ AWP4qSbiUAsOWZo7pl8YgKeO23fWLq2YzrD1eZ84iFMGnsNntdrw4uDl3Ueu D+H2+cREOXEb1tnrfunJfAsLDzsTvYftqLdbl/tj2js0bIwvP8p9iezCS+te 3R5Gy8If+Vq2HVBhGQXuynuPgeGSY02kA81zZU6rV/2LjLkL59mUdqJE5nDO i/oRHDzVdypyfxeMVJQCffij2KyXlBQs142xc0Jl0/YxmJ7b8VlQ2A1WTIxJ SOA4pEYnLOzsBXi1s7trw9A4SLq/r1KLABsHWsQlwRN4W+/3j7xvD45y/AJU RyaQXOstPdbfgy2lV35SDfuAlW3iem3fXox+CuRKCj9Aa7RwsLilF5kvI4uD D08iJY8z5PpDH6YDrHYfm5mEfMXAo6fX+rD0c5LHoeMfIScvMH8v6sOgffxT Gakp2DhIGnH0GDzSa8Sy+CmsmuULHR0ZBMrkSOnICmFl9MTGhr5bg0Rsgo28 EGzpO7WV1Eaf96v6KwixZPzAuGkgg7EJY/3bi4Tw/zXkZ1YQg9DuEkczDSGi /KV2fjnAICKfz3MwFCLcp08r+yCDxO0D2pzNQmzaFXy55AiDsmvLrR4lCRER vza0P4rB8lnb8JpkIS4l6Ly1PkvzvfwqHqYIwbw7pZxGHaCRY1Z1SYjYoPhU 12gGGhdWflOSKUSCdiT4MQy4MQZaNwuFmDl5WvePOAYbglfPjW8SYnrNa/V5 iQzyG53wW4sQQ0xjqju1puGhiJg2IaILmhvuUn8cKhSf6RTCLEx/l2sSg+w9 ph+4/ULYhpSwMnkMZFy/ex08IQQ3TXe1YQqD5xaWfJdFIgSWLreSvcwgrvzX GfZXIoQ5pFhto7Y3u7fGQkWEwyVZJI26+hvddJa6CA2cpHSTKwyKdGSOfNQW YVlQaJ5zGoOL81v1U1fTfIUTFbHpDHxbgn7v3Err95oV115noO2UXfvMWQS7 2h1SUlkMBI29pGabCPbqrYp21DueOPvdchNhyzGByxPqjRXfW4d7i/Btz2gq /waDbzIkx5eEiDB544hCWQ4DEnhl2+5zIvzACr7pd4vB+eNZ808mipCcpSif Ra0Xd7vyKk+EsUDOEobaNa+S1Z0qQoVL+Eb32wz+HOqedM0QQbbajW9/h8GB vUsuOBaIcF412EklnwHjdbX1u2YRLP+2TOcUMjjyS3asa6sIz9jepdnUihF3 LUPbRTj9uzS3g9oq7a8bhV0iVLoJFlr9yeByV0+o0WsR2HKh7hJFDLa7LVPR /SiChWY7J6KYQZ1ThquCKkGH14IiszLav48HHsz/miCvQr/Gg1rB3EhfQoNg npx9TCS1i1bFtHApwdR4lEUjdfdIcwazgiDaeNBmVzmD0Tjp4SIzAvm1G1tC K2j/fdm0Lf97gqVXvuxOpTblJFflriM4k5KdU0Z91F37/FUrgg3mNe5iagn9 H9bG2BFwPb7yPnafgQr/lxM7XQkmOY4DQZUMys2Lh7a7EQQYpk7EUu+8M+20 1Z1gn21tSTZ1enIMy9aL3ket0q+XWt8ns87Yj0BspbZ3UxUDy9nWxXN/JRg9 Xd2p8ReDXo4mdyaMYOTvKl9T6sjBPQNTR+l+gQnZjtRPno2WDXMJTF/mOoVT b02T8WqNIvD4utj2JbXPOsubNy8QWE5EZkU+YLB/5NmUIJXA2UZy+g/qg5ne tosvEbQpxArvUp+UPdPPvUrQU3qxv4M6rbNe0yWHgPXo4UmDhwyyEjwCY3IJ JAzZ0tbUt9aPlFfdIuBV1H/rTF2Rp7Rj5T2Cdh9+RBh1+zG3xE9lBMu3hHdX UfcYv+tdc5+gxuJl0jPqN/3HjfdVEZh0Goz2UE86pD9tqiZQyyu9+JlaSWNA 6mY9gUjSqcS8moHa87BtggaCBQ9/vsKmXnZa5vqi5wSrzm1fuZ3aeNgQ3GaC Ag/WmmDqn+5zjjl30/01lBakUzsHS9VF9xA8eJSlk0f9s26qalUfgaBar6eI el9cRZHeG4JIVbFdHXWwtaOE5yCBbK79ZBN12AeBU9Jber7ZM+xu6qidc0Zn /qX5KY97/6WOV+RZrhkj2LSqjjVFzatlxftPEJwwLFf8TJ1pYK/fNEWQ7+DZ Ll9D/83ejjBpQpDQtrBoMXUBL5BvMU2Qci/fTJ36wXSCT84XgtRtd41WUPPz tQq754jxJndBpgF1o0/hrJKkGF98dlSaULeq2mxhzxNDxykufC1199PWtPD5 Ysysz+03p351wv99gawY1xUKRiyph78l6wblqeMzM36knhj8LVZTUYzxP7gi G2pyWfOlk5IYk4vWT7GpZ7fcXRG9WIwIwehFB2ppSYRWKovR3HP2lSO1QtmL 2nFVWm92XvNmauUgn0V66mIomITs20qtqfXR20OTrnvWXHei1m05m5+4VAwv 7qczztQGMWqf+Vpi3DqrLe9CvcYiz3FGRwzfw8bm//l/L+4Yfw== "]]}, Annotation[#, "Charting`Private`Tag$26483#1"]& ], TagBox[ {RGBColor[0.880722, 0.611041, 0.142051], Thickness[Large], Opacity[1.], LineBox[CompressedData[" 1:eJxFyH0s1HEcwPHLWWFrwzzMDCHasKm1VubqU1aIJV3riYp+UpxyzllFmh5E o8RVVh4SzWFGTFypdEu3sGNCnsnzQzglD7/feerhvj73x3uv7W1J8bmBGiwW 69Df/sn+qNMwuOPcnjVtxquczR8BrKkscTzfITqMDhsE0RUiP7TTNfZTroiP fvMTbckUxaDcSyadT0UP0ZSZ02WpoizUWeah4yIsQcOivM6Vhb1BL78JTNKw lqItYwe186jPaILjPKviVA0kEgX2NU+kuXJUGRBS3BPaiFIfjnsnX2iCgDV/ tUil91rQ+1slfHFcK6ohleyMjWpH9ew8G74/7UTds1xe/hR1o8bTctcYSS+a 9qVyHTu4D+WY7VvddL4fte/THboRMYAW5esHlYcPotG9Z5rt44ZQAWeX5/PH w6gyaz81kTyCNoal+V/NGUWd3KxWerLH0NoDTvl7M8bR3NJnTgOFP0BMNLR2 4J0tmECb1mndNnk/CV+J5VpCcWPtFOpgqMujZAp0OmneYHvrNCiI1vHxjnze T3TAp6vTZVSt+3AzUx76C70WHhhkNKXWqyLdw+jKDKpY4kWz59Vmt916HSr8 DTlEZdBu/8hFtWbLKb6CqFl0xC2xTktzDq22lYN5olqelljTUnsegomSF5t3 V6eobXDmyLh6C1BPpHnpR/2TFkBJrPHOOrbRiAY5kXLi5OU9psGfGDxVP9ed SkMIMSzbb7/+s7+fGKN9pz86k4abxIyOWlOumIZUYmvkieQlCQ3tRI/K8Mgj XTRwiUdCNWvietSetEo1ev+dhkDixYS3ZbZDNEQQY31YisVJGuKJVcoHlHiF hgairNiitIvFwCuinCpd1WUzME7sqmvJuL6BAQWRTjNt89ZloJ246lVkE6fP gP1hlevZEPHOgAFXokEIpWdrwkA1T6WpxayfrykDC+YqrZrvFiebMVDYpNIu 3nhZZsGA8K7Kbc4FnouWDHgIuP/9A7ODeCs= "]]}, Annotation[#, "Charting`Private`Tag$26483#2"]& ]}, {}, {}}, InsetBox[ TemplateBox[{ StyleBox["\"\\!\\(\\*SubscriptBox[\\(n\\), \ \\(i\\)]\\)/\\!\\(\\*SubscriptBox[\\(n\\), \\(t\\)]\\) = 1/2\"", FontSize -> 14, StripOnInput -> False],StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(n\\), \ \\(i\\)]\\)/\\!\\(\\*SubscriptBox[\\(n\\), \\(t\\)]\\) = 2\"", FontSize -> 14, StripOnInput -> False]}, "LineLegend", DisplayFunction->(FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Thickness[Large]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Thickness[Large]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Thickness[Large]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Thickness[Large]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), Editable->True, InterpretationFunction:>(RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[0.880722, 0.611041, 0.142051]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.880722, 0.611041, 0.142051]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], Scaled[{0.01, 0.99}], ImageScaled[{0, 1}], BaseStyle->{FontSize -> Larger}, FormatType->StandardForm]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{ FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Theta]\\), \\(i\\)]\\)\"", FontSize -> 14, StripOnInput -> False], TraditionalForm], FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Theta]\\), \\(t\\)]\\)\"", FontSize -> 14, StripOnInput -> False], TraditionalForm]}, AxesOrigin->{0, 1.6028533946886694`*^-8}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange-> NCache[{{0, Rational[1, 2] Pi}, {1.6028533946886694`*^-8, 1.5707962934748871`}}, {{0, 1.5707963267948966`}, { 1.6028533946886694`*^-8, 1.5707962934748871`}}], PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{{{0, FormBox["0", TraditionalForm]}, { NCache[Rational[1, 8] Pi, 0.39269908169872414`], FormBox[ FractionBox["\[Pi]", "8"], TraditionalForm]}, { NCache[Rational[1, 4] Pi, 0.7853981633974483], FormBox[ FractionBox["\[Pi]", "4"], TraditionalForm]}, { NCache[Rational[1, 2] Pi, 1.5707963267948966`], FormBox[ FractionBox["\[Pi]", "2"], TraditionalForm]}}, {{0, FormBox["0", TraditionalForm]}, { NCache[Rational[1, 8] Pi, 0.39269908169872414`], FormBox[ FractionBox["\[Pi]", "8"], TraditionalForm]}, { NCache[Rational[1, 4] Pi, 0.7853981633974483], FormBox[ FractionBox["\[Pi]", "4"], TraditionalForm]}, { NCache[Rational[1, 2] Pi, 1.5707963267948966`], FormBox[ FractionBox["\[Pi]", "2"], TraditionalForm]}}}], InterpretTemplate[Legended[ Graphics[{{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Thickness[Large]], Line[CompressedData[" 1:eJwd1Xk41dkfB/BCskRqLIPKckuyjBqZ0VjeU7gyWlAyQopINNTNaHFVShhG ccW0iCSiRYw9plC3IWqyZrn4qlAaW3LvuVR+Z35/nOc8r8/5PJ9zznM+z3N0 fEJc/CTmzJlzlY7/ZsmHcs9fm+2xlvj/7Gy94t0Di2XJQPTi3UbLkk0wXWCy t5O3FWFvS/Q6ecCAcgAp5XkDylESpTTexY6qzeaFoM57ejiTxtu8eSuv8k7C Njq0PoHGXQ6od13knYeYfW6PB40nffAsSuVl4H7+hefXks7Dgv+T3IbDBSjX OMNROXQNB49v2VN0sBxhgncnkvbn4pdyv3MSrGoUebJPN2gUoPWtg+xNn8dY 5WmRrexSjDgT4ZxS9zo42PPjOFblOGRYl1Kd3YiphoD+giNVmPYNyu8JfoEY xzdqipuq4fPXDqdE/2ZI3TD3v2FWC9+J1urq2FZUWT7am2/7GL+vLgvJiW5H mkbUnjtGTyBRXfZ91PEOmNvvTByUrsMiA8fnfRe70NVk+9hV6ik2ZmzIGucJ cK1/5s+jXQ1QG2tknyzrxSXcCh9peobLf9+fK7mfQa5+9u2win9guXT9rPbe fujnJEx3Vb2AIaP0JiL0FVL29+auvtOEu7mLA0o4r4EY6SVtMc3g9nq1GEa/ AWP4qSbiUAsOWZo7pl8YgKeO23fWLq2YzrD1eZ84iFMGnsNntdrw4uDl3Ueu D+H2+cREOXEb1tnrfunJfAsLDzsTvYftqLdbl/tj2js0bIwvP8p9iezCS+te 3R5Gy8If+Vq2HVBhGQXuynuPgeGSY02kA81zZU6rV/2LjLkL59mUdqJE5nDO i/oRHDzVdypyfxeMVJQCffij2KyXlBQs142xc0Jl0/YxmJ7b8VlQ2A1WTIxJ SOA4pEYnLOzsBXi1s7trw9A4SLq/r1KLABsHWsQlwRN4W+/3j7xvD45y/AJU RyaQXOstPdbfgy2lV35SDfuAlW3iem3fXox+CuRKCj9Aa7RwsLilF5kvI4uD D08iJY8z5PpDH6YDrHYfm5mEfMXAo6fX+rD0c5LHoeMfIScvMH8v6sOgffxT Gakp2DhIGnH0GDzSa8Sy+CmsmuULHR0ZBMrkSOnICmFl9MTGhr5bg0Rsgo28 EGzpO7WV1Eaf96v6KwixZPzAuGkgg7EJY/3bi4Tw/zXkZ1YQg9DuEkczDSGi /KV2fjnAICKfz3MwFCLcp08r+yCDxO0D2pzNQmzaFXy55AiDsmvLrR4lCRER vza0P4rB8lnb8JpkIS4l6Ly1PkvzvfwqHqYIwbw7pZxGHaCRY1Z1SYjYoPhU 12gGGhdWflOSKUSCdiT4MQy4MQZaNwuFmDl5WvePOAYbglfPjW8SYnrNa/V5 iQzyG53wW4sQQ0xjqju1puGhiJg2IaILmhvuUn8cKhSf6RTCLEx/l2sSg+w9 ph+4/ULYhpSwMnkMZFy/ex08IQQ3TXe1YQqD5xaWfJdFIgSWLreSvcwgrvzX GfZXIoQ5pFhto7Y3u7fGQkWEwyVZJI26+hvddJa6CA2cpHSTKwyKdGSOfNQW YVlQaJ5zGoOL81v1U1fTfIUTFbHpDHxbgn7v3Err95oV115noO2UXfvMWQS7 2h1SUlkMBI29pGabCPbqrYp21DueOPvdchNhyzGByxPqjRXfW4d7i/Btz2gq /waDbzIkx5eEiDB544hCWQ4DEnhl2+5zIvzACr7pd4vB+eNZ808mipCcpSif Ra0Xd7vyKk+EsUDOEobaNa+S1Z0qQoVL+Eb32wz+HOqedM0QQbbajW9/h8GB vUsuOBaIcF412EklnwHjdbX1u2YRLP+2TOcUMjjyS3asa6sIz9jepdnUihF3 LUPbRTj9uzS3g9oq7a8bhV0iVLoJFlr9yeByV0+o0WsR2HKh7hJFDLa7LVPR /SiChWY7J6KYQZ1ThquCKkGH14IiszLav48HHsz/miCvQr/Gg1rB3EhfQoNg npx9TCS1i1bFtHApwdR4lEUjdfdIcwazgiDaeNBmVzmD0Tjp4SIzAvm1G1tC K2j/fdm0Lf97gqVXvuxOpTblJFflriM4k5KdU0Z91F37/FUrgg3mNe5iagn9 H9bG2BFwPb7yPnafgQr/lxM7XQkmOY4DQZUMys2Lh7a7EQQYpk7EUu+8M+20 1Z1gn21tSTZ1enIMy9aL3ket0q+XWt8ns87Yj0BspbZ3UxUDy9nWxXN/JRg9 Xd2p8ReDXo4mdyaMYOTvKl9T6sjBPQNTR+l+gQnZjtRPno2WDXMJTF/mOoVT b02T8WqNIvD4utj2JbXPOsubNy8QWE5EZkU+YLB/5NmUIJXA2UZy+g/qg5ne tosvEbQpxArvUp+UPdPPvUrQU3qxv4M6rbNe0yWHgPXo4UmDhwyyEjwCY3IJ JAzZ0tbUt9aPlFfdIuBV1H/rTF2Rp7Rj5T2Cdh9+RBh1+zG3xE9lBMu3hHdX UfcYv+tdc5+gxuJl0jPqN/3HjfdVEZh0Goz2UE86pD9tqiZQyyu9+JlaSWNA 6mY9gUjSqcS8moHa87BtggaCBQ9/vsKmXnZa5vqi5wSrzm1fuZ3aeNgQ3GaC Ag/WmmDqn+5zjjl30/01lBakUzsHS9VF9xA8eJSlk0f9s26qalUfgaBar6eI el9cRZHeG4JIVbFdHXWwtaOE5yCBbK79ZBN12AeBU9Jber7ZM+xu6qidc0Zn /qX5KY97/6WOV+RZrhkj2LSqjjVFzatlxftPEJwwLFf8TJ1pYK/fNEWQ7+DZ Ll9D/83ejjBpQpDQtrBoMXUBL5BvMU2Qci/fTJ36wXSCT84XgtRtd41WUPPz tQq754jxJndBpgF1o0/hrJKkGF98dlSaULeq2mxhzxNDxykufC1199PWtPD5 Ysysz+03p351wv99gawY1xUKRiyph78l6wblqeMzM36knhj8LVZTUYzxP7gi G2pyWfOlk5IYk4vWT7GpZ7fcXRG9WIwIwehFB2ppSYRWKovR3HP2lSO1QtmL 2nFVWm92XvNmauUgn0V66mIomITs20qtqfXR20OTrnvWXHei1m05m5+4VAwv 7qczztQGMWqf+Vpi3DqrLe9CvcYiz3FGRwzfw8bm//l/L+4Yfw== "]]}, "Charting`Private`Tag$26483#1"], Annotation[{ Directive[ Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Thickness[Large]], Line[CompressedData[" 1:eJxFyH0s1HEcwPHLWWFrwzzMDCHasKm1VubqU1aIJV3riYp+UpxyzllFmh5E o8RVVh4SzWFGTFypdEu3sGNCnsnzQzglD7/feerhvj73x3uv7W1J8bmBGiwW 69Df/sn+qNMwuOPcnjVtxquczR8BrKkscTzfITqMDhsE0RUiP7TTNfZTroiP fvMTbckUxaDcSyadT0UP0ZSZ02WpoizUWeah4yIsQcOivM6Vhb1BL78JTNKw lqItYwe186jPaILjPKviVA0kEgX2NU+kuXJUGRBS3BPaiFIfjnsnX2iCgDV/ tUil91rQ+1slfHFcK6ohleyMjWpH9ew8G74/7UTds1xe/hR1o8bTctcYSS+a 9qVyHTu4D+WY7VvddL4fte/THboRMYAW5esHlYcPotG9Z5rt44ZQAWeX5/PH w6gyaz81kTyCNoal+V/NGUWd3KxWerLH0NoDTvl7M8bR3NJnTgOFP0BMNLR2 4J0tmECb1mndNnk/CV+J5VpCcWPtFOpgqMujZAp0OmneYHvrNCiI1vHxjnze T3TAp6vTZVSt+3AzUx76C70WHhhkNKXWqyLdw+jKDKpY4kWz59Vmt916HSr8 DTlEZdBu/8hFtWbLKb6CqFl0xC2xTktzDq22lYN5olqelljTUnsegomSF5t3 V6eobXDmyLh6C1BPpHnpR/2TFkBJrPHOOrbRiAY5kXLi5OU9psGfGDxVP9ed SkMIMSzbb7/+s7+fGKN9pz86k4abxIyOWlOumIZUYmvkieQlCQ3tRI/K8Mgj XTRwiUdCNWvietSetEo1ev+dhkDixYS3ZbZDNEQQY31YisVJGuKJVcoHlHiF hgairNiitIvFwCuinCpd1WUzME7sqmvJuL6BAQWRTjNt89ZloJ246lVkE6fP gP1hlevZEPHOgAFXokEIpWdrwkA1T6WpxayfrykDC+YqrZrvFiebMVDYpNIu 3nhZZsGA8K7Kbc4FnouWDHgIuP/9A7ODeCs= "]]}, "Charting`Private`Tag$26483#2"]}}, {}, {}}, { DisplayFunction -> Identity, Ticks -> {{ 0, Rational[1, 8] Pi, Rational[1, 4] Pi, Rational[1, 2] Pi}, { 0, Rational[1, 8] Pi, Rational[1, 4] Pi, Rational[1, 2] Pi}}, AxesOrigin -> {0, 1.6028533946886694`*^-8}, FrameTicks -> {{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), Axes -> {True, True}, AxesLabel -> { Style["\!\(\*SubscriptBox[\(\[Theta]\), \(i\)]\)", FontSize -> 14], Style["\!\(\*SubscriptBox[\(\[Theta]\), \(t\)]\)", FontSize -> 14]}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{0, Rational[1, 2] Pi}, {1.6028533946886694`*^-8, 1.5707962934748871`}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}}, Ticks -> {{ 0, Rational[1, 8] Pi, Rational[1, 4] Pi, Rational[1, 2] Pi}, { 0, Rational[1, 8] Pi, Rational[1, 4] Pi, Rational[1, 2] Pi}}}], Placed[ Unevaluated[ LineLegend[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Thickness[Large]], Directive[ Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Thickness[Large]]}, { Style[ "\!\(\*SubscriptBox[\(n\), \(i\)]\)/\!\(\*SubscriptBox[\(n\), \ \(t\)]\) = 1/2", FontSize -> 14], Style[ "\!\(\*SubscriptBox[\(n\), \(i\)]\)/\!\(\*SubscriptBox[\(n\), \ \(t\)]\) = 2", FontSize -> 14]}, LegendMarkers -> None, LabelStyle -> {}, LegendLayout -> "Column"]], {Left, Top}, Identity]]& ], AutoDelete->True, Editable->True, SelectWithContents->False, Selectable->True]], "Output", CellChangeTimes->{ 3.690666074835134*^9, 3.6906670691575837`*^9, {3.7593669330718412`*^9, 3.759366939717194*^9}, {3.759366979410934*^9, 3.759366991960806*^9}},ExpressionUUID->"a94bf6b5-034c-4224-b486-\ 414c3e89efee"] }, Open ]], Cell[BoxData[{ RowBox[{"peeters`exportForLatex", "[", RowBox[{"\"\\"", ",", " ", "p1"}], "]"}], "\[IndentingNewLine]", RowBox[{"peeters`exportForLatex", "[", RowBox[{ "\"\\"", ",", " ", "p2"}], "]"}], "\[IndentingNewLine]", RowBox[{"peeters`exportForLatex", "[", RowBox[{"\"\\"", ",", " ", "p3"}], "]"}]}], "Input", CellChangeTimes->{{3.7593669883965273`*^9, 3.759366988748166*^9}},ExpressionUUID->"c945ac43-6dd6-477b-8eae-\ 05b27f5ec405"] }, WindowSize->{1061, 696}, WindowMargins->{{93, Automatic}, {14, Automatic}}, FrontEndVersion->"11.2 for Mac OS X x86 (32-bit, 64-bit Kernel) (September \ 10, 2017)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[579, 22, 553, 16, 73, "Input",ExpressionUUID->"903319c3-70bd-4083-9bfb-ddd0ed6466ea"], Cell[1135, 40, 222, 4, 34, "Output",ExpressionUUID->"d3aa6398-97d5-433c-bab8-cef88cd4d26e"] }, Open ]], Cell[1372, 47, 302, 7, 35, "Text",ExpressionUUID->"672d3eb6-0b2b-45ea-9d6c-bc575bd6e5f5"], Cell[CellGroupData[{ Cell[1699, 58, 2965, 75, 220, "Input",ExpressionUUID->"cca48886-76ed-4d2f-9efe-98aed26e1add"], Cell[4667, 135, 2338, 46, 373, "Output",ExpressionUUID->"85831c49-0511-498d-8b3a-9ef342682b12"] }, Open ]], Cell[7020, 184, 152, 3, 30, "Input",ExpressionUUID->"7fa34c28-2f73-43cc-97b0-f2f401e770f3"], Cell[7175, 189, 129, 3, 30, "Input",ExpressionUUID->"ea73385c-8ec0-4317-8892-bcf4f6a950bf"], Cell[7307, 194, 179, 3, 30, "Input",ExpressionUUID->"ab109773-a987-4f30-af45-a029a519dbf6"], Cell[CellGroupData[{ Cell[7511, 201, 2684, 68, 178, "Input",ExpressionUUID->"9cd7b754-409e-4597-b782-8710a564f433"], Cell[10198, 271, 24365, 497, 263, "Output",ExpressionUUID->"a94bf6b5-034c-4224-b486-414c3e89efee"] }, Open ]], Cell[34578, 771, 564, 12, 73, "Input",ExpressionUUID->"c945ac43-6dd6-477b-8eae-05b27f5ec405"] } ] *)