(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 8.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 48242, 969] NotebookOptionsPosition[ 47709, 946] NotebookOutlinePosition[ 48075, 962] CellTagsIndexPosition[ 48032, 959] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Fixed point for Dynamic Alternative Routing", "Section", CellChangeTimes->{{3.436607418459375*^9, 3.43660743700625*^9}, { 3.468834885739258*^9, 3.468834888926758*^9}, {3.5008896719189453`*^9, 3.5008896798251953`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Erlang", "[", RowBox[{"\[Rho]_", ",", "c_"}], "]"}], " ", ":=", " ", RowBox[{ RowBox[{"PDF", "[", RowBox[{ RowBox[{"PoissonDistribution", "[", "\[Rho]", "]"}], ",", "c"}], "]"}], " ", "/", " ", RowBox[{"CDF", "[", RowBox[{ RowBox[{"PoissonDistribution", "[", "\[Rho]", "]"}], ",", "c"}], "]"}]}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"drift", "[", RowBox[{"\[Rho]_", ",", "c_"}], "]"}], "[", "B_", "]"}], " ", ":=", " ", RowBox[{ RowBox[{"Erlang", "[", RowBox[{ RowBox[{"\[Rho]", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", "B", RowBox[{"(", RowBox[{"1", "-", "B"}], ")"}]}]}], ")"}]}], ",", "c"}], "]"}], "-", "B"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5008896901376953`*^9, 3.5008896983876953`*^9}, { 3.5008897296845703`*^9, 3.5008897595595703`*^9}, {3.5284800669792633`*^9, 3.528480068339266*^9}, {3.5284818899188*^9, 3.528481893838805*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"plotdrift", "[", RowBox[{"c_", ",", "\[Rho]_"}], "]"}], ":=", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"drift", "[", RowBox[{"\[Rho]", ",", "c"}], "]"}], "[", "B", "]"}], ",", RowBox[{"{", RowBox[{"B", ",", "0", ",", ".3"}], "}"}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"plotvec", "[", RowBox[{"c_", ",", "\[Rho]_"}], "]"}], ":=", RowBox[{"VectorPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"drift", "[", RowBox[{"\[Rho]", ",", "c"}], "]"}], "[", "B", "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"time", ",", "0", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"B", ",", "0", ",", ".25"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", ".25"}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"VectorScale", "\[Rule]", RowBox[{"{", RowBox[{".0025", ",", "20"}], "}"}]}], ",", RowBox[{"VectorPoints", "\[Rule]", RowBox[{"{", RowBox[{"20", ",", "10"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"AspectRatio", "\[Rule]", RowBox[{"1", "/", "GoldenRatio"}]}], ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"Frame", "\[Rule]", "False"}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.528482881966299*^9, 3.5284829140867558`*^9}, { 3.5284829975313025`*^9, 3.528483015455734*^9}, {3.5303568964521484`*^9, 3.5303569029208984`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"gnull", "=", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", RowBox[{"1", "/", "GoldenRatio"}]}], ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"Frame", "\[Rule]", "False"}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", ".25"}], "}"}]}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5303566226171875`*^9, 3.5303566240546875`*^9}, { 3.5303567946953125`*^9, 3.5303568592646484`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Panel", "@", RowBox[{"DynamicModule", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"c", "=", "5000"}], ",", RowBox[{"\[Rho]", "=", "4750"}], ",", RowBox[{"show", "=", "False"}], ",", RowBox[{"g1", "=", RowBox[{"plotdrift", "[", RowBox[{"5000", ",", "4750"}], "]"}]}], ",", RowBox[{"g2", "=", RowBox[{"plotvec", "[", RowBox[{"5000", ",", "4750"}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Column", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"Slider", "[", RowBox[{ RowBox[{"Dynamic", "[", RowBox[{"c", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"c", "=", "#"}], ";", RowBox[{"g1", "=", RowBox[{"plotdrift", "[", RowBox[{"c", ",", "\[Rho]"}], "]"}]}]}], ")"}], "&"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"c", "=", "#"}], ";", RowBox[{"g1", "=", RowBox[{"plotdrift", "[", RowBox[{"c", ",", "\[Rho]"}], "]"}]}], ";", RowBox[{"g2", "=", RowBox[{"plotvec", "[", RowBox[{"c", ",", "\[Rho]"}], "]"}]}]}], ")"}], "&"}]}], "}"}], ",", RowBox[{"SynchronousUpdating", "\[Rule]", "False"}]}], "]"}], ",", RowBox[{"{", RowBox[{"1", ",", "10000"}], "}"}], ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Row", "[", RowBox[{"{", RowBox[{"\"\<\[Rho]\>\"", ",", RowBox[{"Slider", "[", RowBox[{ RowBox[{"Dynamic", "[", RowBox[{"\[Rho]", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Rho]", "=", "#"}], ";", RowBox[{"g1", "=", RowBox[{"plotdrift", "[", RowBox[{"c", ",", "\[Rho]"}], "]"}]}]}], ")"}], "&"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Rho]", "=", "#"}], ";", RowBox[{"g1", "=", RowBox[{"plotdrift", "[", RowBox[{"c", ",", "\[Rho]"}], "]"}]}], ";", RowBox[{"g2", "=", RowBox[{"plotvec", "[", RowBox[{"c", ",", "\[Rho]"}], "]"}]}]}], ")"}], "&"}]}], "}"}], ",", RowBox[{"SynchronousUpdating", "\[Rule]", "False"}]}], "]"}], ",", RowBox[{"{", RowBox[{"1", ",", "10000"}], "}"}], ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"SetterBar", "[", RowBox[{ RowBox[{"Dynamic", "[", "show", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"True", "\[Rule]", "\"\\""}], ",", RowBox[{"False", "\[Rule]", "\"\\""}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"GraphicsRow", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Dynamic", "[", "g1", "]"}], ",", RowBox[{"Dynamic", "[", RowBox[{"If", "[", RowBox[{"show", ",", "g2", ",", "gnull"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", RowBox[{"Frame", "\[Rule]", "All"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.528482523134469*^9, 3.528482798708953*^9}, { 3.528482849908243*^9, 3.5284828577082567`*^9}, {3.5284829221363697`*^9, 3.528482966050447*^9}, {3.52848303578257*^9, 3.528483049744594*^9}, { 3.5284830954370747`*^9, 3.5284831304123354`*^9}, {3.528483186478834*^9, 3.5284832149020844`*^9}, 3.5303566143203125`*^9, {3.5303566471796875`*^9, 3.5303567227109375`*^9}, {3.5303568617490234`*^9, 3.5303568626240234`*^9}}], Cell[BoxData[ PanelBox[ DynamicModuleBox[{$CellContext`c$$ = 5000, $CellContext`\[Rho]$$ = 4750, $CellContext`show$$ = False, $CellContext`g1$$ = Graphics[{{{}, {}, { Hue[0.67, 0.6, 0.6], Line[CompressedData[" 1:eJwVl3k81F8Xx6dUijZLGcpatsgSSYUjKVuEKCrZC8nSgjaNbWa+thnrjH2n okII4Y41CmFSlIRUKuRHSio99/lrXu/Xufeczz3L/d6RdvG1dl9OIpHCl5FI //+de7dZtcJsn16Ro4Il1WVMLyNMUmqtJBmu3TH0K6rahHxlH9FfSShAjNb4 Wu0hOWT3Y7luvYQ2mB6O4BXw2YO6hhVESiWM4eX1fR5zFUaIl7s//I6EHagm pH2N5p5A281b9xVKeECLSM/e4/3nkAYfX3K+RBCM2kyvE8sPRGz6aJ4OLQgE rJ3ZP3iD0J9VNWUvvgVBQM3J0bvng1ALj0fXisarcDJC/FzyrqvI5m/rCnfX 63Amf9bsZMM1dHkm5JLs7WCgPQ7dxOi8iU59vaHAZYeCvE5kosXbEBR710NV sisUetziy6n8oYjjaaN1flkYWB1CmUl7Q9H2CSVDHq8w+LWl+LlmUiiaHH/t qLE/HHwKnw+7mIahG8ParIS3ESAhcIboKg5H6b3fV9rIEJAbVzpufoiGwnN2 DSocIyBrW+5nHS8a8vb3K/kbRoDRkYcas7E0pCswaV30gYCvX+OV772ioWHL 91mLtyNhl8PYepuzdCTZ07s3RzUa5IS/2X8IJNDq7A3rApyiYdnoGfk5NoFm fM1HTOOi4TjTU6+hhkCcDR3U77PRYE9hmUQuEsjpKIdrVBUDX1rrLCaDIlFu 9/0L0zoM2BC/yvOSRxSKzJzUb77AgDyjhlCJiCh0yWeHMDuTAZYvRmdv5UQh Gd5jb6VITCg32u3vNhiFZgu7w546M8E740v13UPRKP5ja4+4bBwkOxaLT26I QdRut3103Thw6F51cUA+Bl2r4smftY2DIRfJjgCIQS7UA4FPqHFwr6qtq/1C DNKQqxf3n4iDp5uk5uvbYtAL9wqvluJ42JVB2fPCMxb9GEjVrmiOBw/ygNql G7FI5EjIqvw38XCm8Glra2wsOrnLIjeMPwEWXv5tjiiPRe+WPg0anE8AMnlZ of+PWES62F20KywBsho+Ld1bxUAyHyquyKQlAGW4d3fmZgZyexYisPxZAlSV iUen7magL6wtJo07EkGrQunWSj8GWsu/XKTMIBEEFQ1Ov7/JQDuDJ8azTyZC tGfB9JUoBvJzq6RQIhPBU1unvaaAgebVjlbDl0R4pz3E5bxkoM35u6mqy5OA HEHrNR5jIG2RrTaSYklgEndvjDrFQNf+TnxbMkmCcFHmmoRlTER6GirfcCcJ 1jwIuHB9ExPJ6HrO32tMAtbr+qdiYkx0sPRoc8ZgEpwS1N+aLMFE1OStjjfX JMOTyEUpaXkmKlrDs/OCdDKMh+aQ1ZWYqP3G58XTe5OBJmkXI67KRPyuVck6 nsmw6vbH4GgtJlJ+me6mHJIM7IWfhzbsYyILk7BdW1PwfudQCV9dJmKqWnb/ bk+GFTufZLUdZKLyXK30ryPJUGf+k9VwmIm4m8S93iwkw1+lMP1EEyba/Ofz yscKLKjvUDQetGAibd8e7l19Fvht8PptbMVE9mNVOal2LFjQNuZlHWOia7YZ vpF+LCC5K7GabZkovT1M9xqdBaMFiy+7TzBRw34vfq9sFpz1EJ2rtmeid/ct B+2rWaDm5UoOPYXzkyR+Ze8EC5T3bNcsP8NEhqtXHFQkseGkdDhV1ImJ3K9/ 2ShKZsOJmYEUJ2ecr+me4dVqbLidK5JBc2Gi286PShaM2NCSmIhiXZmo40XG tQlHNvxUJKkHuDHRF6Nw44FANlB6naX13Jlo7WOvze0MNrg+Fm78iHmnitX4 oyI27DRq0fc7y0RSu+oEHzSygWmp5DuGWVhL/kDhGzZM7JAMUDvHRLz74n0z 5tnwUn048STmRd2/GYkbUiA4bxm/M+apAx6dUYopoO94hWyIeeQQdzH0YAo0 sS7/5cHMNdFTvOaQAoJSYYvZ2H+b+Z0T/oEp4N3habkFc42VMNUjLgW+66np X8L6SmxvVTgWp8DYJjL/HXyebPsvY8dbU0Cylz1bh8+b4GArYPEuBSQ8Tmo/ wPmgOnPg0K8U6PdUk6DgfF1zV/LREUoF89JNH1VxPi94Jqdr7EyFlhH5vgac b6cLy57tMEoFP/e87TsdmOiYv/cvaedUYGsMS17H9Tl85ZW86PVUkJE4uOoO rp/yzXvhvA9SodKBkVmA6y0ZQn641J4K9zWT+i/jfhCMCBudH0uFxZOLy2Rx v/yKttcb35wGh0csDikeYaJJZov3G7U0ECrwGr2J+20kUTWtzzQN0uv33KzA /diWvnKBE5wGJY7P6tv1mSi+pKws42Ma9G4bzkvUYKKI0q0jiaR0iFz3PJik xkRBFbT10WLpkDX7wctSmYnO1Dmcv2aRDnwvJ25kbGcipc41sieq0uFsUVPx nBATSfRcPmbRkw47rphq0jZgvS/ehRz6kg4T26VfkviZaOFN5bCGRAbsgP/c i/A8t3x1Zm+kZsABKw2buDcM9OhbZxtvdgbEvTf4IN/LQHfn9swv1WSAaFd/ emwbAzF/r7OemsqA6QwL3+5SBnLgr+V/apsJTUb/1suGMdCPHYK3wmSzoKM8 MoUlyUCGewqFkG4WDPOavDITYqD4g/tuL9pmwbGTcqND+L5TOe3S60/NgpMa CU+Tp2LRuZjybU6fsoDCrZ2+VBOLJgMV3TJtsuF+0dFgabNYdOZ1x+rrm3Og MLx/Js0uBkWMCHHZMjnQOTu4GGccg0o+OmRUqeSAwYoiI1/tGLQ4+5/67OEc oNj81zsiEoNY/GKnPANzQMY6Oq+oPxr16HjdOzGQA1IXZ9SXm0ejA1l81pqp ubAkplBQrxyFeqaSO22LcmHFIrKLI0chJ51tRoEVueBUKVZktSIKUQb369R2 50Lsq2W7U95EIo7QBTl9njxYmxPZb0ZEIn3680Uz7zxoa+1fvDZKIH3/xDxX vXzQvhbA00ClI/2DEvPxYwVgmT5TO1QagSaObJPO3HIHFJ64XP7SdQvNOpsI aomXgN2Tt0d4N15BmnHLhGsdH4DTu23fNQdc0ZT7hQvuu8uA1F6iN3mPHwlX WW8yfFgOJLpW+F1hZ7ATCmllW1WA5elPy5ul/cH8BwxovKgEy4kdtnAoCM58 NJozDHwEpCfulGT+W2BItFuXCNYAx9Q1wdAhFD529awpJtfACGnaZ+FsKBCC g5w7EjXAPP2+psAvFLrTPqsU7agBtpxI9mRYKJy4z8efa1ADlKerHivdDQUv 7pFm1kXsjy7C8p0PBaZ4r0ZYH95/nXFGgBYGb8oGhU/G14L295E1r5PDoVyM J/81uxacDjo7pmeFAz1MWeNUVi2QCdK2E7fDQcv2ltXpklrw6Pf8WVkTDvEL 22PPtNWC8Safz+ShcDAGP17XxVqQasuOvywZARWdqxbPuzwGy55gQXp2BETt ViMmPR6DvtCJBPvbEeCSaU++4PsYqnOKU7aVRsAGvxItnxuPYWBkZG8OigAv IetLfsmPgbzM7K3BcARIn8yYvPwU7z+rbS8lRoXYTxrvbu6qA6mqb0Em0VS4 Ef+JxtCug57lT948iqeCp26aWo5eHehH/3wumUIFw4TloS2mdTDTUuYzVECF Rb3e7fyudcDMH2OtRlQ4l+zjxU6oA8slutzOGSroH7ozX/4d+/fdWVxsTgOV mdOZLYt1MPLP5ZL5MRpsSdto9JJUD5ae9qMTdjT4MRPI/rW2HhTqBMrWutGg JP3wfn3ZeiCJFKuvvkYD0e/vKV229aBt2mz8PJ8Gs7kSayeq6kF/97qTufM0 EL44F329vh782j75jC7SQOtA+7oNLfXAfFgjJ0qiw7V3/hu0erE/p4nQi3x0 WL61VTD8az2o9Z5Y0SVBB8Gk86JSUg3AWR71UfowHXbRquXsiAag3LbhsWLQ weZ4TNFXRgOUrkEihQl0CJB1UbiV3AB+Ikuf51h0qG3m31GY1wBO3fDsajYd DEiOO7/XN8BMD4utUkYH66srNZmzDTDyqFlMt5cOF89bH2g/hWCm5EfOHD8B juJ7t+i6ILCrb91mvYGAI88l58s8sD3Cj3NHkAB5janbaVcQTMT5mRuKEjC0 SNvoy0CgNu3YKSeH372R9e82NSNoXzGzMVePAE2d/JrIDgQjJx5kxR8gQGY6 MuHfc+xPVfD4DUMC/ljZGX0eQqAfW62z35SActG5+3U/sD+7favP2RIQayOM 1DdxQK2cYxroRUD4PV5lbzIHNs6Xli96E3B91W924RYOWP63YBHoS4BH9ejF LTJ4fXS3/OnLBBzc+kBupSq2n0F+L24SsPDeJHbAmANSGSqCFAYB33R0fwse 4YDfvKMkK46Aj0lqHuZHOcDZnX2hKIEArpGIQZMtBygSt3sesgi4Xzw+X+yC 47t1tV3PIsD10i2HWzc4kH28QbbjHgFnp/acCL2F14fF7bB7gPWcm7GMCMVs TT81WkqA9ylnwyg61sfZZzj2kIDLBw8qsRKxvrgpg8waAgLqf29PZXHA6dG5 2qVaAoL2VEhkpGL7I3VX+zoCbijJCuZl4/hHf5n+bcD5EOL9db8E6/9Di/jX TAA1Bs2WPeBA6dJHtnorAXTeoMmKcg6QCvPHHNoIiP498a62mgMjnzq3FLQT kPj+aVtbC/an06M13UlAskMYp+MJB3o2KmyY7SKA/Wp/bedTnA+BOZmZbgLS n5Xc6+vBeg49/Pe6h4D8h7GJw0NY7+i5rPMvCCjcaRQ7+g7no77R/UA/AbeL /tHGxzigf+K+t8BLAkrS/K5/mcDnl1oL2a9wPjcpXpn6ivUOlfA7DhBQyhj1 mZnG9s1JW8iDBFSEWbv8+I71B17kvfqagKq/fKd//eTAzKOycak3BFQHNtv+ WcR6r1bzNmOuO69psnxZIzDFIqV/DBHQ8GHSYOWKRlD7ViBKe0sAx7FAZzVv Izi5LtkLDhPQcmyz2vp1jWC5XqtK5B0BbV3digIbGyHb+Aw3DnO7EW2bsFAj 6JtY7V81QkDn/oXNYqKN4Ee1mX6LubuydKP41kagsPL2HRgloEfVk09KshGk 9rq+yMT8Ytvrv7KyON6NlFnjMQJeZsT/VFDA+ipPBSVhHhAx+09JqRF6qKss hjC/juP5qqKC7fuPXxZ/j+eLv25cXR3HK2j7aod5OOLysKYmZhGpyljMI/+U B/bswXq153oaMI9d/dC7bx/29+gtfMb8YS7jma4uZnLq8vXjBCwnnSsL0cf+ fe5cUcUssVaN1XoQ7+cRB1PM+8i/bqwxaoSZqTeOZzAf397kYm6K9ZekDJzH fFEtyjjOHMffb3H3IuZYHRuVfkvMK5L7/893jcWFRW1wvqVsT3ljfmLz8dfp Ezh/xz10HDGPOz14l32yETZ+pVw1w0y6ENQ67oDjf4oWUse89eqBYgXnRiil HuLfiFk7gi/O260ROJyrzhP4PDZx3IDSczie3yqRWsx+Gemnv3thO6NGOQJz 9B13A20ffN5ZvTwTzHcqVRRu+OP1t+Ou82Jua/y5jnMZ1yv9dFUDzvdYF2eO J+j/9aXa+GJeGiQGja7j+hk8Oy6KWeyjNYoKxnoDeBvqcD21ZrcUPA/B+pL+ Rdpjtl4ajxSKwPGaIhq+4X6I2hx4PC0K2/k8T6/GfFtGX+ddLLaHnWyPxP3U orJGZls8zi+PcOYqzH8Op03dZWP/Y6sjv+D+JB9z406nNQJp2asca8yajjtr dmVhfxUpchW4ny8EovDaArzeS/uaK+73yDC619JtfL6pGtMyPB+FDCtLgxK8 39s6agHPz3DR+y1PyzF/3uF0Cc/X0QHeh4MIn69DyFcMz6f3eA9bvBnrE5Z9 pYHnlz6TEuzchvOj2Fh5mIvnZbWy6edOvH+xa9CulwD1vZajC4M4/t4orgq+ HywOiT7ReYv7qdlslTC+P7ysxkooI9h/0MfK2acE5HpeDlr9CevPFGek4/tG KJW9gfwdr/cAyMX31fziiO6e9U3AFNAwDqjG9VfwLT0o0AT6V/xD1j0iwND2 r4ylcBNI1Z4lZ1Xi++qB6GpPsSYYUZZxKSsnYJebdV+qXBOQmM8D4ktwP3Q1 n13Sw/ZReU0jfD+zF60G+QyaYGacnByeQQCSHzETOdQEFBcBp7o0AtaH/lFT M2vC88VQ2cIm4J7W7t/OJ5rAclD/SRKTgC9ZhYxW3ybY2O4acItCgGCX5vK+ i9hfjX++azABexebLg9fwevlig0NbuD82byz/3kd+38gMDwdiL+Xa8jbFelN kM0Opa7E3ye3i0R1dDbe//LyfsXTuD6G3qPHenH8jMMZFrsIOO8aRrJ6gc9z hXKOqYq/VyGpkhavsL8LLtOdyjh/qN3B+C3OF+k/TS15Aoz3yr7W+dyE50O0 smMLAQ93DvfJLmsG0lvjlfM8WM9my5afas2Qvdj+26mHDpt2n3v/XaMZOKfG KL876ZB7LHj5rFYzSA3e6md20KGeWaI/qdMMfjuOfytuosMs35r6EeNmcBp8 M59XQYfT/xorO5yaoUfk/vM0/N5Qn9AoSmM2w4zSkfr79nQYYJ8qH0zA8VNV jxyxpQPFJKxehIXtZjb97y3p0HO3j5uQ0Qz6bh0DJGM6+FzwJ0XfxXpWKdXM 7qbD3dn79jdamqHUUS20aiMdZP4qrnVYwPt3nTjY3EgDQUEpfwmnFiDt8UsV FaRB6/u1a2RdMa94PZ61lgZBlb+ylc62gCX9FFmalwbDdtwebe8W6JEr0BH+ Q4U7WVS1Y0EtQBH9Hln/Ab8Pd059ozHxevu5uq3VVPA1rvX5j9MCUh6V3gL2 VOgMtvFukW4Finmh21xUBKSMWc3wy7YCU8WgoSg8As4ePnr5mEIrjJyKMjp+ MwJI601vjKlgfl/8NccnAnZnQDRJpxXUzPbHzllGQObjHSU6x7G/i7UDFOEI 8FsgTVZEtoIUMeVgzArH78d75wvmWkGfRy+/LCoM2hoMYsoa24Dpcu3SR50Q sLKQGhkJeQJODTU/5BNugpebzB4z63b8f28Xl5MdCKfqvdGAcAdQvInfTbf8 4ZHvnGcctwNI/Vurw6bcIed2Jjki9ymQNtbnxjibguv2+IU012dAqeMkSlOt 0EO5u0NTmp3A6Zp/z0PzQkPn+WZdFjpB6qXz0LBAAPLlK1Lkqe4CipHg+0Gl W4ip6uE+TOuGkT82WWufhKNIln/fkMlzoKj7KMW8IRBf83Np/vU9kE3NP92Q zkArPoWf173SA8zv/Q8kGuORl/KweUh/D0jlKbxtSE9CIpUm5WO6veAhe5Mc wGUjNUf7B7ZZvaBfZ7EveToNLe2m6Q4v9YJTfmbthGAWErJ8Yh5+tg8m9Py/ njXLQUlRxT/2P+kDsqLnXOfvXEQ5E8b92o7t7PiXF3nykJf6qdK0p33gV+Jf KMqfh/Re8Xn97uoDS585fi+xPDQh4/W29kUflP7hm9y0Nw/tq1Vo2TvWB6uD zn9LCchDwxMFcXv+9kH7r8/XrWfzUPvjmz6flvpArXb++abFPFQea2vGInFh I7/l+tfL8hFNc+XKnzxc8DsQa+IukI/UKG5BVXxcWOCaVVPV8lGoyDbH3WQu 9FjznZ33yUfeXxb3fxDlwoDqgO2TgHx0vL6PnLQF7ye3qKQG5yMl19C+7xJc IPHnpxnE5qMX90cPVchyYTVx3jHzXj5qCKmRcZPnQtB33uTAynx0xybun5Ai Xi+nWmlVn4+CF/VrLiljf2vqSlZ35SOPLnLyNhVsV/4X/uFFPrLOnrnIVcXx 24IPNQ/lI51L7UfD1LHebpnpnPF8JH84W1lDA9tz3gaHTOaj/wGmzfaD "]]}}}, { AspectRatio -> GoldenRatio^(-1), Axes -> True, AxesOrigin -> {0, 0}, PlotRange -> {{0, 0.3}, {-0.04086689637808022, 0.012642762320640183`}}, PlotRangeClipping -> True, PlotRangePadding -> { Scaled[0.02], Scaled[0.02]}}], $CellContext`g2$$ = Graphics[{{{}}, {{ Hue[0.67, 0.6, 0.6], { Arrowheads[{{0.024869646576475547`, 1.}}], Arrow[{{0., -6.9673693806891925`*^-6}, {0., 6.9673693806891925`*^-6}}], Arrow[{{0., 0.04028168341761687}, {0., 0.015273872137938679`}}], Arrow[{{0., 0.05941502352611377}, {0., 0.05169608758499734}}], Arrow[{{0., 0.07906329425967625}, {0., 0.08760337240699041}}], Arrow[{{0., 0.10226730248085895`}, {0., 0.11995491974136326`}}], Arrow[{{0., 0.1288741864930721}, {0., 0.14890359128470565`}}], Arrow[{{0., 0.1584886404455488}, {0., 0.17484469288778456`}}], Arrow[{{0., 0.1907402359522244}, {0., 0.19814865293666456`}}], Arrow[{{0., 0.22531545940570238`}, {0., 0.21912898503874212`}}], Arrow[{{0., 0.2619553056186096}, {0., 0.23804469438139053`}}], Arrow[{{0.5263157894736842, -6.9673693806891925`*^-6}, { 0.5263157894736842, 6.9673693806891925`*^-6}}], Arrow[{{0.5263157894736842, 0.04028168341761687}, {0.5263157894736842, 0.015273872137938679`}}], Arrow[{{0.5263157894736842, 0.05941502352611377}, {0.5263157894736842, 0.05169608758499734}}], Arrow[{{0.5263157894736842, 0.07906329425967625}, {0.5263157894736842, 0.08760337240699041}}], Arrow[{{0.5263157894736842, 0.10226730248085895`}, { 0.5263157894736842, 0.11995491974136326`}}], Arrow[{{0.5263157894736842, 0.1288741864930721}, {0.5263157894736842, 0.14890359128470565`}}], Arrow[{{0.5263157894736842, 0.1584886404455488}, {0.5263157894736842, 0.17484469288778456`}}], Arrow[{{0.5263157894736842, 0.1907402359522244}, {0.5263157894736842, 0.19814865293666456`}}], Arrow[{{0.5263157894736842, 0.22531545940570238`}, { 0.5263157894736842, 0.21912898503874212`}}], Arrow[{{0.5263157894736842, 0.2619553056186096}, {0.5263157894736842, 0.23804469438139053`}}], Arrow[{{1.0526315789473684`, -6.9673693806891925`*^-6}, { 1.0526315789473684`, 6.9673693806891925`*^-6}}], Arrow[{{1.0526315789473684`, 0.04028168341761687}, { 1.0526315789473684`, 0.015273872137938679`}}], Arrow[{{1.0526315789473684`, 0.05941502352611377}, { 1.0526315789473684`, 0.05169608758499734}}], Arrow[{{1.0526315789473684`, 0.07906329425967625}, { 1.0526315789473684`, 0.08760337240699041}}], Arrow[{{1.0526315789473684`, 0.10226730248085895`}, { 1.0526315789473684`, 0.11995491974136326`}}], Arrow[{{1.0526315789473684`, 0.1288741864930721}, { 1.0526315789473684`, 0.14890359128470565`}}], Arrow[{{1.0526315789473684`, 0.1584886404455488}, { 1.0526315789473684`, 0.17484469288778456`}}], Arrow[{{1.0526315789473684`, 0.1907402359522244}, { 1.0526315789473684`, 0.19814865293666456`}}], Arrow[{{1.0526315789473684`, 0.22531545940570238`}, { 1.0526315789473684`, 0.21912898503874212`}}], Arrow[{{1.0526315789473684`, 0.2619553056186096}, { 1.0526315789473684`, 0.23804469438139053`}}], Arrow[{{1.5789473684210527`, -6.9673693806891925`*^-6}, { 1.5789473684210527`, 6.9673693806891925`*^-6}}], Arrow[{{1.5789473684210527`, 0.04028168341761687}, { 1.5789473684210527`, 0.015273872137938679`}}], Arrow[{{1.5789473684210527`, 0.05941502352611377}, { 1.5789473684210527`, 0.05169608758499734}}], Arrow[{{1.5789473684210527`, 0.07906329425967625}, { 1.5789473684210527`, 0.08760337240699041}}], Arrow[{{1.5789473684210527`, 0.10226730248085895`}, { 1.5789473684210527`, 0.11995491974136326`}}], Arrow[{{1.5789473684210527`, 0.1288741864930721}, { 1.5789473684210527`, 0.14890359128470565`}}], Arrow[{{1.5789473684210527`, 0.1584886404455488}, { 1.5789473684210527`, 0.17484469288778456`}}], Arrow[{{1.5789473684210527`, 0.1907402359522244}, { 1.5789473684210527`, 0.19814865293666456`}}], Arrow[{{1.5789473684210527`, 0.22531545940570238`}, { 1.5789473684210527`, 0.21912898503874212`}}], Arrow[{{1.5789473684210527`, 0.2619553056186096}, { 1.5789473684210527`, 0.23804469438139053`}}], Arrow[{{2.1052631578947367`, -6.9673693806891925`*^-6}, { 2.1052631578947367`, 6.9673693806891925`*^-6}}], Arrow[{{2.1052631578947367`, 0.04028168341761687}, { 2.1052631578947367`, 0.015273872137938679`}}], Arrow[{{2.1052631578947367`, 0.05941502352611377}, { 2.1052631578947367`, 0.05169608758499734}}], Arrow[{{2.1052631578947367`, 0.07906329425967625}, { 2.1052631578947367`, 0.08760337240699041}}], Arrow[{{2.1052631578947367`, 0.10226730248085895`}, { 2.1052631578947367`, 0.11995491974136326`}}], Arrow[{{2.1052631578947367`, 0.1288741864930721}, { 2.1052631578947367`, 0.14890359128470565`}}], Arrow[{{2.1052631578947367`, 0.1584886404455488}, { 2.1052631578947367`, 0.17484469288778456`}}], Arrow[{{2.1052631578947367`, 0.1907402359522244}, { 2.1052631578947367`, 0.19814865293666456`}}], Arrow[{{2.1052631578947367`, 0.22531545940570238`}, { 2.1052631578947367`, 0.21912898503874212`}}], Arrow[{{2.1052631578947367`, 0.2619553056186096}, { 2.1052631578947367`, 0.23804469438139053`}}], Arrow[{{2.631578947368421, -6.9673693806891925`*^-6}, { 2.631578947368421, 6.9673693806891925`*^-6}}], Arrow[{{2.631578947368421, 0.04028168341761687}, {2.631578947368421, 0.015273872137938679`}}], Arrow[{{2.631578947368421, 0.05941502352611377}, {2.631578947368421, 0.05169608758499734}}], Arrow[{{2.631578947368421, 0.07906329425967625}, {2.631578947368421, 0.08760337240699041}}], Arrow[{{2.631578947368421, 0.10226730248085895`}, {2.631578947368421, 0.11995491974136326`}}], Arrow[{{2.631578947368421, 0.1288741864930721}, {2.631578947368421, 0.14890359128470565`}}], Arrow[{{2.631578947368421, 0.1584886404455488}, {2.631578947368421, 0.17484469288778456`}}], Arrow[{{2.631578947368421, 0.1907402359522244}, {2.631578947368421, 0.19814865293666456`}}], Arrow[{{2.631578947368421, 0.22531545940570238`}, {2.631578947368421, 0.21912898503874212`}}], Arrow[{{2.631578947368421, 0.2619553056186096}, {2.631578947368421, 0.23804469438139053`}}], Arrow[{{3.157894736842105, -6.9673693806891925`*^-6}, { 3.157894736842105, 6.9673693806891925`*^-6}}], Arrow[{{3.157894736842105, 0.04028168341761687}, {3.157894736842105, 0.015273872137938679`}}], Arrow[{{3.157894736842105, 0.05941502352611377}, {3.157894736842105, 0.05169608758499734}}], Arrow[{{3.157894736842105, 0.07906329425967625}, {3.157894736842105, 0.08760337240699041}}], Arrow[{{3.157894736842105, 0.10226730248085895`}, {3.157894736842105, 0.11995491974136326`}}], Arrow[{{3.157894736842105, 0.1288741864930721}, {3.157894736842105, 0.14890359128470565`}}], Arrow[{{3.157894736842105, 0.1584886404455488}, {3.157894736842105, 0.17484469288778456`}}], Arrow[{{3.157894736842105, 0.1907402359522244}, {3.157894736842105, 0.19814865293666456`}}], Arrow[{{3.157894736842105, 0.22531545940570238`}, {3.157894736842105, 0.21912898503874212`}}], Arrow[{{3.157894736842105, 0.2619553056186096}, {3.157894736842105, 0.23804469438139053`}}], Arrow[{{3.684210526315789, -6.9673693806891925`*^-6}, { 3.684210526315789, 6.9673693806891925`*^-6}}], Arrow[{{3.684210526315789, 0.04028168341761687}, {3.684210526315789, 0.015273872137938679`}}], Arrow[{{3.684210526315789, 0.05941502352611377}, {3.684210526315789, 0.05169608758499734}}], Arrow[{{3.684210526315789, 0.07906329425967625}, {3.684210526315789, 0.08760337240699041}}], Arrow[{{3.684210526315789, 0.10226730248085895`}, {3.684210526315789, 0.11995491974136326`}}], Arrow[{{3.684210526315789, 0.1288741864930721}, {3.684210526315789, 0.14890359128470565`}}], Arrow[{{3.684210526315789, 0.1584886404455488}, {3.684210526315789, 0.17484469288778456`}}], Arrow[{{3.684210526315789, 0.1907402359522244}, {3.684210526315789, 0.19814865293666456`}}], Arrow[{{3.684210526315789, 0.22531545940570238`}, {3.684210526315789, 0.21912898503874212`}}], Arrow[{{3.684210526315789, 0.2619553056186096}, {3.684210526315789, 0.23804469438139053`}}], Arrow[{{4.2105263157894735`, -6.9673693806891925`*^-6}, { 4.2105263157894735`, 6.9673693806891925`*^-6}}], Arrow[{{4.2105263157894735`, 0.04028168341761687}, { 4.2105263157894735`, 0.015273872137938679`}}], Arrow[{{4.2105263157894735`, 0.05941502352611377}, { 4.2105263157894735`, 0.05169608758499734}}], Arrow[{{4.2105263157894735`, 0.07906329425967625}, { 4.2105263157894735`, 0.08760337240699041}}], Arrow[{{4.2105263157894735`, 0.10226730248085895`}, { 4.2105263157894735`, 0.11995491974136326`}}], Arrow[{{4.2105263157894735`, 0.1288741864930721}, { 4.2105263157894735`, 0.14890359128470565`}}], Arrow[{{4.2105263157894735`, 0.1584886404455488}, { 4.2105263157894735`, 0.17484469288778456`}}], Arrow[{{4.2105263157894735`, 0.1907402359522244}, { 4.2105263157894735`, 0.19814865293666456`}}], Arrow[{{4.2105263157894735`, 0.22531545940570238`}, { 4.2105263157894735`, 0.21912898503874212`}}], Arrow[{{4.2105263157894735`, 0.2619553056186096}, { 4.2105263157894735`, 0.23804469438139053`}}], Arrow[{{4.7368421052631575`, -6.9673693806891925`*^-6}, { 4.7368421052631575`, 6.9673693806891925`*^-6}}], Arrow[{{4.7368421052631575`, 0.04028168341761687}, { 4.7368421052631575`, 0.015273872137938679`}}], Arrow[{{4.7368421052631575`, 0.05941502352611377}, { 4.7368421052631575`, 0.05169608758499734}}], Arrow[{{4.7368421052631575`, 0.07906329425967625}, { 4.7368421052631575`, 0.08760337240699041}}], Arrow[{{4.7368421052631575`, 0.10226730248085895`}, { 4.7368421052631575`, 0.11995491974136326`}}], Arrow[{{4.7368421052631575`, 0.1288741864930721}, { 4.7368421052631575`, 0.14890359128470565`}}], Arrow[{{4.7368421052631575`, 0.1584886404455488}, { 4.7368421052631575`, 0.17484469288778456`}}], Arrow[{{4.7368421052631575`, 0.1907402359522244}, { 4.7368421052631575`, 0.19814865293666456`}}], Arrow[{{4.7368421052631575`, 0.22531545940570238`}, { 4.7368421052631575`, 0.21912898503874212`}}], Arrow[{{4.7368421052631575`, 0.2619553056186096}, { 4.7368421052631575`, 0.23804469438139053`}}], Arrow[{{5.263157894736842, -6.9673693806891925`*^-6}, { 5.263157894736842, 6.9673693806891925`*^-6}}], Arrow[{{5.263157894736842, 0.04028168341761687}, {5.263157894736842, 0.015273872137938679`}}], Arrow[{{5.263157894736842, 0.05941502352611377}, {5.263157894736842, 0.05169608758499734}}], Arrow[{{5.263157894736842, 0.07906329425967625}, {5.263157894736842, 0.08760337240699041}}], Arrow[{{5.263157894736842, 0.10226730248085895`}, {5.263157894736842, 0.11995491974136326`}}], Arrow[{{5.263157894736842, 0.1288741864930721}, {5.263157894736842, 0.14890359128470565`}}], Arrow[{{5.263157894736842, 0.1584886404455488}, {5.263157894736842, 0.17484469288778456`}}], Arrow[{{5.263157894736842, 0.1907402359522244}, {5.263157894736842, 0.19814865293666456`}}], Arrow[{{5.263157894736842, 0.22531545940570238`}, {5.263157894736842, 0.21912898503874212`}}], Arrow[{{5.263157894736842, 0.2619553056186096}, {5.263157894736842, 0.23804469438139053`}}], Arrow[{{5.789473684210526, -6.9673693806891925`*^-6}, { 5.789473684210526, 6.9673693806891925`*^-6}}], Arrow[{{5.789473684210526, 0.04028168341761687}, {5.789473684210526, 0.015273872137938679`}}], Arrow[{{5.789473684210526, 0.05941502352611377}, {5.789473684210526, 0.05169608758499734}}], Arrow[{{5.789473684210526, 0.07906329425967625}, {5.789473684210526, 0.08760337240699041}}], Arrow[{{5.789473684210526, 0.10226730248085895`}, {5.789473684210526, 0.11995491974136326`}}], Arrow[{{5.789473684210526, 0.1288741864930721}, {5.789473684210526, 0.14890359128470565`}}], Arrow[{{5.789473684210526, 0.1584886404455488}, {5.789473684210526, 0.17484469288778456`}}], Arrow[{{5.789473684210526, 0.1907402359522244}, {5.789473684210526, 0.19814865293666456`}}], Arrow[{{5.789473684210526, 0.22531545940570238`}, {5.789473684210526, 0.21912898503874212`}}], Arrow[{{5.789473684210526, 0.2619553056186096}, {5.789473684210526, 0.23804469438139053`}}], Arrow[{{6.31578947368421, -6.9673693806891925`*^-6}, { 6.31578947368421, 6.9673693806891925`*^-6}}], Arrow[{{6.31578947368421, 0.04028168341761687}, {6.31578947368421, 0.015273872137938679`}}], Arrow[{{6.31578947368421, 0.05941502352611377}, {6.31578947368421, 0.05169608758499734}}], Arrow[{{6.31578947368421, 0.07906329425967625}, {6.31578947368421, 0.08760337240699041}}], Arrow[{{6.31578947368421, 0.10226730248085895`}, {6.31578947368421, 0.11995491974136326`}}], Arrow[{{6.31578947368421, 0.1288741864930721}, {6.31578947368421, 0.14890359128470565`}}], Arrow[{{6.31578947368421, 0.1584886404455488}, {6.31578947368421, 0.17484469288778456`}}], Arrow[{{6.31578947368421, 0.1907402359522244}, {6.31578947368421, 0.19814865293666456`}}], Arrow[{{6.31578947368421, 0.22531545940570238`}, {6.31578947368421, 0.21912898503874212`}}], Arrow[{{6.31578947368421, 0.2619553056186096}, {6.31578947368421, 0.23804469438139053`}}], Arrow[{{6.842105263157894, -6.9673693806891925`*^-6}, { 6.842105263157894, 6.9673693806891925`*^-6}}], Arrow[{{6.842105263157894, 0.04028168341761687}, {6.842105263157894, 0.015273872137938679`}}], Arrow[{{6.842105263157894, 0.05941502352611377}, {6.842105263157894, 0.05169608758499734}}], Arrow[{{6.842105263157894, 0.07906329425967625}, {6.842105263157894, 0.08760337240699041}}], Arrow[{{6.842105263157894, 0.10226730248085895`}, {6.842105263157894, 0.11995491974136326`}}], Arrow[{{6.842105263157894, 0.1288741864930721}, {6.842105263157894, 0.14890359128470565`}}], Arrow[{{6.842105263157894, 0.1584886404455488}, {6.842105263157894, 0.17484469288778456`}}], Arrow[{{6.842105263157894, 0.1907402359522244}, {6.842105263157894, 0.19814865293666456`}}], Arrow[{{6.842105263157894, 0.22531545940570238`}, {6.842105263157894, 0.21912898503874212`}}], Arrow[{{6.842105263157894, 0.2619553056186096}, {6.842105263157894, 0.23804469438139053`}}], Arrow[{{7.368421052631578, -6.9673693806891925`*^-6}, { 7.368421052631578, 6.9673693806891925`*^-6}}], Arrow[{{7.368421052631578, 0.04028168341761687}, {7.368421052631578, 0.015273872137938679`}}], Arrow[{{7.368421052631578, 0.05941502352611377}, {7.368421052631578, 0.05169608758499734}}], Arrow[{{7.368421052631578, 0.07906329425967625}, {7.368421052631578, 0.08760337240699041}}], Arrow[{{7.368421052631578, 0.10226730248085895`}, {7.368421052631578, 0.11995491974136326`}}], Arrow[{{7.368421052631578, 0.1288741864930721}, {7.368421052631578, 0.14890359128470565`}}], Arrow[{{7.368421052631578, 0.1584886404455488}, {7.368421052631578, 0.17484469288778456`}}], Arrow[{{7.368421052631578, 0.1907402359522244}, {7.368421052631578, 0.19814865293666456`}}], Arrow[{{7.368421052631578, 0.22531545940570238`}, {7.368421052631578, 0.21912898503874212`}}], Arrow[{{7.368421052631578, 0.2619553056186096}, {7.368421052631578, 0.23804469438139053`}}], Arrow[{{7.894736842105262, -6.9673693806891925`*^-6}, { 7.894736842105262, 6.9673693806891925`*^-6}}], Arrow[{{7.894736842105262, 0.04028168341761687}, {7.894736842105262, 0.015273872137938679`}}], Arrow[{{7.894736842105262, 0.05941502352611377}, {7.894736842105262, 0.05169608758499734}}], Arrow[{{7.894736842105262, 0.07906329425967625}, {7.894736842105262, 0.08760337240699041}}], Arrow[{{7.894736842105262, 0.10226730248085895`}, {7.894736842105262, 0.11995491974136326`}}], Arrow[{{7.894736842105262, 0.1288741864930721}, {7.894736842105262, 0.14890359128470565`}}], Arrow[{{7.894736842105262, 0.1584886404455488}, {7.894736842105262, 0.17484469288778456`}}], Arrow[{{7.894736842105262, 0.1907402359522244}, {7.894736842105262, 0.19814865293666456`}}], Arrow[{{7.894736842105262, 0.22531545940570238`}, {7.894736842105262, 0.21912898503874212`}}], Arrow[{{7.894736842105262, 0.2619553056186096}, {7.894736842105262, 0.23804469438139053`}}], Arrow[{{8.421052631578947, -6.9673693806891925`*^-6}, { 8.421052631578947, 6.9673693806891925`*^-6}}], Arrow[{{8.421052631578947, 0.04028168341761687}, {8.421052631578947, 0.015273872137938679`}}], Arrow[{{8.421052631578947, 0.05941502352611377}, {8.421052631578947, 0.05169608758499734}}], Arrow[{{8.421052631578947, 0.07906329425967625}, {8.421052631578947, 0.08760337240699041}}], Arrow[{{8.421052631578947, 0.10226730248085895`}, {8.421052631578947, 0.11995491974136326`}}], Arrow[{{8.421052631578947, 0.1288741864930721}, {8.421052631578947, 0.14890359128470565`}}], Arrow[{{8.421052631578947, 0.1584886404455488}, {8.421052631578947, 0.17484469288778456`}}], Arrow[{{8.421052631578947, 0.1907402359522244}, {8.421052631578947, 0.19814865293666456`}}], Arrow[{{8.421052631578947, 0.22531545940570238`}, {8.421052631578947, 0.21912898503874212`}}], Arrow[{{8.421052631578947, 0.2619553056186096}, {8.421052631578947, 0.23804469438139053`}}], Arrow[{{8.947368421052632, -6.9673693806891925`*^-6}, { 8.947368421052632, 6.9673693806891925`*^-6}}], Arrow[{{8.947368421052632, 0.04028168341761687}, {8.947368421052632, 0.015273872137938679`}}], Arrow[{{8.947368421052632, 0.05941502352611377}, {8.947368421052632, 0.05169608758499734}}], Arrow[{{8.947368421052632, 0.07906329425967625}, {8.947368421052632, 0.08760337240699041}}], Arrow[{{8.947368421052632, 0.10226730248085895`}, {8.947368421052632, 0.11995491974136326`}}], Arrow[{{8.947368421052632, 0.1288741864930721}, {8.947368421052632, 0.14890359128470565`}}], Arrow[{{8.947368421052632, 0.1584886404455488}, {8.947368421052632, 0.17484469288778456`}}], Arrow[{{8.947368421052632, 0.1907402359522244}, {8.947368421052632, 0.19814865293666456`}}], Arrow[{{8.947368421052632, 0.22531545940570238`}, {8.947368421052632, 0.21912898503874212`}}], Arrow[{{8.947368421052632, 0.2619553056186096}, {8.947368421052632, 0.23804469438139053`}}], Arrow[{{9.473684210526317, -6.9673693806891925`*^-6}, { 9.473684210526317, 6.9673693806891925`*^-6}}], Arrow[{{9.473684210526317, 0.04028168341761687}, {9.473684210526317, 0.015273872137938679`}}], Arrow[{{9.473684210526317, 0.05941502352611377}, {9.473684210526317, 0.05169608758499734}}], Arrow[{{9.473684210526317, 0.07906329425967625}, {9.473684210526317, 0.08760337240699041}}], Arrow[{{9.473684210526317, 0.10226730248085895`}, {9.473684210526317, 0.11995491974136326`}}], Arrow[{{9.473684210526317, 0.1288741864930721}, {9.473684210526317, 0.14890359128470565`}}], Arrow[{{9.473684210526317, 0.1584886404455488}, {9.473684210526317, 0.17484469288778456`}}], Arrow[{{9.473684210526317, 0.1907402359522244}, {9.473684210526317, 0.19814865293666456`}}], Arrow[{{9.473684210526317, 0.22531545940570238`}, {9.473684210526317, 0.21912898503874212`}}], Arrow[{{9.473684210526317, 0.2619553056186096}, {9.473684210526317, 0.23804469438139053`}}], Arrow[{{10.000000000000002`, -6.9673693806891925`*^-6}, { 10.000000000000002`, 6.9673693806891925`*^-6}}], Arrow[{{10.000000000000002`, 0.04028168341761687}, { 10.000000000000002`, 0.015273872137938679`}}], Arrow[{{10.000000000000002`, 0.05941502352611377}, { 10.000000000000002`, 0.05169608758499734}}], Arrow[{{10.000000000000002`, 0.07906329425967625}, { 10.000000000000002`, 0.08760337240699041}}], Arrow[{{10.000000000000002`, 0.10226730248085895`}, { 10.000000000000002`, 0.11995491974136326`}}], Arrow[{{10.000000000000002`, 0.1288741864930721}, { 10.000000000000002`, 0.14890359128470565`}}], Arrow[{{10.000000000000002`, 0.1584886404455488}, { 10.000000000000002`, 0.17484469288778456`}}], Arrow[{{10.000000000000002`, 0.1907402359522244}, { 10.000000000000002`, 0.19814865293666456`}}], Arrow[{{10.000000000000002`, 0.22531545940570238`}, { 10.000000000000002`, 0.21912898503874212`}}], Arrow[{{10.000000000000002`, 0.2619553056186096}, { 10.000000000000002`, 0.23804469438139053`}}]}}}}, { AspectRatio -> GoldenRatio^(-1), Axes -> True, AxesOrigin -> {0, 0}, Method -> {"TransparentPolygonMesh" -> True}, PlotRange -> {{0, 10}, {0, 0.25}}, PlotRangeClipping -> True, PlotRangePadding -> {Automatic, Automatic}}]}, TagBox[GridBox[{ { TemplateBox[{"\"C\"",InterpretationBox[ StyleBox[ GridBox[{{ SliderBox[ Dynamic[$CellContext`c$$, {($CellContext`c$$ = #; \ $CellContext`g1$$ = $CellContext`plotdrift[$CellContext`c$$, $CellContext`\ \[Rho]$$])& , ($CellContext`c$$ = #; $CellContext`g1$$ = \ $CellContext`plotdrift[$CellContext`c$$, $CellContext`\[Rho]$$]; \ $CellContext`g2$$ = $CellContext`plotvec[$CellContext`c$$, \ $CellContext`\[Rho]$$])& }, SynchronousUpdating -> False], {1, 10000}, Appearance -> Automatic, DefaultBaseStyle -> "LabeledSlider"], InputFieldBox[ Dynamic[$CellContext`c$$, {($CellContext`c$$ = #; \ $CellContext`g1$$ = $CellContext`plotdrift[$CellContext`c$$, $CellContext`\ \[Rho]$$])& , ($CellContext`c$$ = #; $CellContext`g1$$ = \ $CellContext`plotdrift[$CellContext`c$$, $CellContext`\[Rho]$$]; \ $CellContext`g2$$ = $CellContext`plotvec[$CellContext`c$$, \ $CellContext`\[Rho]$$])& }, SynchronousUpdating -> False], Appearance -> "Frameless", ContinuousAction -> True, DefaultBaseStyle -> "LabeledSlider", FieldSize -> {{5, 10}, {1, 2}}, ImageMargins -> 0]}}, AutoDelete -> False, BaselinePosition -> {{1, 1}, Axis}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Deployed -> True, StripOnInput -> False, FontFamily :> CurrentValue["ControlsFontFamily"]], LabeledSlider[ Dynamic[$CellContext`c$$, {($CellContext`c$$ = #; \ $CellContext`g1$$ = $CellContext`plotdrift[$CellContext`c$$, $CellContext`\ \[Rho]$$])& , ($CellContext`c$$ = #; $CellContext`g1$$ = \ $CellContext`plotdrift[$CellContext`c$$, $CellContext`\[Rho]$$]; \ $CellContext`g2$$ = $CellContext`plotvec[$CellContext`c$$, \ $CellContext`\[Rho]$$])& }, SynchronousUpdating -> False], {1, 10000}]]}, "Row", DisplayFunction->(RowBox[{#, "\[InvisibleSpace]", #2}]& ), InterpretationFunction->(RowBox[{"Row", "[", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], "]"}]& )]}, { TemplateBox[{"\"\[Rho]\"",InterpretationBox[ StyleBox[ GridBox[{{ SliderBox[ Dynamic[$CellContext`\[Rho]$$, {($CellContext`\[Rho]$$ = #; \ $CellContext`g1$$ = $CellContext`plotdrift[$CellContext`c$$, $CellContext`\ \[Rho]$$])& , ($CellContext`\[Rho]$$ = #; $CellContext`g1$$ = \ $CellContext`plotdrift[$CellContext`c$$, $CellContext`\[Rho]$$]; \ $CellContext`g2$$ = $CellContext`plotvec[$CellContext`c$$, \ $CellContext`\[Rho]$$])& }, SynchronousUpdating -> False], {1, 10000}, Appearance -> Automatic, DefaultBaseStyle -> "LabeledSlider"], InputFieldBox[ Dynamic[$CellContext`\[Rho]$$, {($CellContext`\[Rho]$$ = #; \ $CellContext`g1$$ = $CellContext`plotdrift[$CellContext`c$$, $CellContext`\ \[Rho]$$])& , ($CellContext`\[Rho]$$ = #; $CellContext`g1$$ = \ $CellContext`plotdrift[$CellContext`c$$, $CellContext`\[Rho]$$]; \ $CellContext`g2$$ = $CellContext`plotvec[$CellContext`c$$, \ $CellContext`\[Rho]$$])& }, SynchronousUpdating -> False], Appearance -> "Frameless", ContinuousAction -> True, DefaultBaseStyle -> "LabeledSlider", FieldSize -> {{5, 10}, {1, 2}}, ImageMargins -> 0]}}, AutoDelete -> False, BaselinePosition -> {{1, 1}, Axis}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Deployed -> True, StripOnInput -> False, FontFamily :> CurrentValue["ControlsFontFamily"]], LabeledSlider[ Dynamic[$CellContext`\[Rho]$$, {($CellContext`\[Rho]$$ = #; \ $CellContext`g1$$ = $CellContext`plotdrift[$CellContext`c$$, $CellContext`\ \[Rho]$$])& , ($CellContext`\[Rho]$$ = #; $CellContext`g1$$ = \ $CellContext`plotdrift[$CellContext`c$$, $CellContext`\[Rho]$$]; \ $CellContext`g2$$ = $CellContext`plotvec[$CellContext`c$$, \ $CellContext`\[Rho]$$])& }, SynchronousUpdating -> False], {1, 10000}]]}, "Row", DisplayFunction->(RowBox[{#, "\[InvisibleSpace]", #2}]& ), InterpretationFunction->(RowBox[{"Row", "[", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], "]"}]& )]}, { InterpretationBox[ StyleBox[GridBox[{ { SetterBox[Dynamic[$CellContext`show$$], { True}, "\<\"show drift\"\>"], SetterBox[Dynamic[$CellContext`show$$], { False}, "\<\"hide drift\"\>"]} }, BaselinePosition->{1, 1}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Deployed->True], SetterBar[ Dynamic[$CellContext`show$$], { True -> "show drift", False -> "hide drift"}]]}, { GraphicsBox[{{}, {InsetBox[ DynamicBox[ToBoxes[$CellContext`g1$$, TraditionalForm], ImageSizeCache->{265., {0., 265.}}], {192., -189.}, { Center, Center}, {360., 360.}], InsetBox[ DynamicBox[ToBoxes[ If[$CellContext`show$$, $CellContext`g2$$, $CellContext`gnull], TraditionalForm], ImageSizeCache->{265., {0., 265.}}], {576., -189.}, { Center, Center}, {360., 360.}]}, StyleBox[{{}, {LineBox[{{0, 0}, {0, -378.}}], LineBox[{{384., 0}, {384., -378.}}], LineBox[{{768., 0}, {768., -378.}}], LineBox[{{0, 0}, {384., 0}}], LineBox[{{384., 0}, {768., 0}}], LineBox[{{0, -378.}, {384., -378.}}], LineBox[{{384., -378.}, {768., -378.}}]}}, Antialiasing->False]}, ContentSelectable->True, ImageSize->Large, PlotRangePadding->{6, 5}]} }, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], DynamicModuleValues:>{}]]], "Output", CellChangeTimes->{3.5303567274453125`*^9, 3.5303568644208984`*^9, 3.5303569063271484`*^9}] }, Open ]] }, Open ]] }, WindowSize->{932, 672}, WindowMargins->{{42, Automatic}, {Automatic, 47}}, ShowSelection->True, FrontEndVersion->"8.0 for Microsoft Windows (32-bit) (February 23, 2011)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[579, 22, 229, 3, 71, "Section"], Cell[811, 27, 1061, 31, 52, "Input"], Cell[1875, 60, 1910, 54, 112, "Input"], Cell[3788, 116, 788, 22, 52, "Input"], Cell[CellGroupData[{ Cell[4601, 142, 4629, 113, 212, "Input"], Cell[9233, 257, 38448, 685, 409, "Output"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)