(* 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[ 58294, 1133] NotebookOptionsPosition[ 39863, 811] NotebookOutlinePosition[ 57706, 1119] CellTagsIndexPosition[ 57663, 1116] WindowFrame->Normal ContainsDynamic->True *) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Volmer-Heyrovsky with mass transfer limitation", "Section", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.403415856707246*^9, 3.4034159010519753`*^9}, { 3.403842695580738*^9, 3.403842698565597*^9}, {3.406459875106577*^9, 3.406459906072886*^9}, 3.406689909722328*^9, {3.4066943349019527`*^9, 3.40669433984967*^9}, {3.4067217324958153`*^9, 3.406721754220429*^9}, { 3.4362704557061167`*^9, 3.436270493630555*^9}, 3.4374554551303377`*^9}, TextAlignment->Center], Cell["Reaction", "Subsection", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.406005724175057*^9, 3.40600574441677*^9}, 3.4374554551316643`*^9}], Cell[GraphicsData["CompressedBitmap", "\<\ eJy1WUtuFEkQLbrc9M/YnoEBDDKY+WBYzEh4EBwAYSzER3yEDLOy0Ej0As2I YeUjeBaw9g18A4sL+AQ+gcUBfIImX2a8IqqIykqqIaWqrsqKjHgRGRGZkX1/ 8+2rv19vvh2/3Fy+82bz31fjl/8tr/3zxnXlx7Is++iuW8sZnifuUW4fs8lk go9T/az7nzw7PDzMdnZ2/NtY+ra2tjK2jr/n2fb2tv+K62pg8buQcziuRdW3 v7/v304adI+l7+joKFtbW8vG47ETBYrcv5NuZIw9Xxa/urr6hXiwJeKTBt0T f+96uo2NjWxvb8/37O7uZicMehE5kGFAs7S05E0DMhix478dL1iyQRsH5YzB dQp2/AzgGIopQw9I/Wd05N6s4IZPswaCWYUAQzEKF8b82R5dXpldTMWcIX4k bAR1IV5gD4PV6QPgBI54m1HcAA5vZ2slNI/NK/ak76IdHBx0VLTQPS17enEd 4KcJoAoFr0gfVHVMlQ80A+xKH8ahYVYsT6VJBXjRL8grJgUX+n5ekQCUi7US msf21eRyLJG4ZoEfSh+sjwZSssYzFVpRfWQ/SITFmcazhoZnZ+yYTWs0qdiU MaEBQBgaFIvZtGlsP/gXBM94LfERLuLcLGZQZnS8/SF9yHX0zn6i/DzId+w6 4cm5VK3FanCKuRg+EAfnx2/H3/Mi1UxU+gYX9OHK5U463cfIDVOWJoOuCpOw 4RvM5kzSU26ZAoHup2OZVgx5OdzRSLug8gDbGVl79YLYS1SJbg7MmGW8Maxc iEyjUjdurdL89jyVXr0JAgYhCu06C0ZfCi/GP7wMNHBlpm09ZmTwr+Yd5Aud 8un+VxU/bi8GCdi64gqgAT7Ids/1S2KzGv2ylXXg4mLAQxNamQmgycoxXgOZ e4zjckVtHV1T9uQ2BRe0cR5MmwoHNR9xJNaGahRHJ555QrxYb45gboRTP9FW MR70JvTjexHylnW4A4ObgJgX4NM0CD6qM4oIjm2AvgBTMQZkcNPO/cXXGsPi sWTQXxN60un8xHqD+54m/pbOslufk6iDB0GE7CiYkfW+tStStX9a+7salpaS XLcwMcymM5JNqTCunyScmWO0rzOnOH+ftyU3qv957cdIJklrRnV2scZeMOgu S7iiDxDQoDA9k6sZvqltNBe+MOGhD0pBX7zNG+IXDfEVTbVfWJpeMuhYByO+ OAWExAXuc8UzKPq49mIcVOEygd95Q87NAJWfdIaywuxng25dshtCQ5fjAqUn USJ5tdAIiBYMdjcConPK1uT4WiRhTiCNe28xEAFzCw2b3A3ctgUEzQSujIBn ZRK9sHIvKiT/K00535AvO4ynmqrnB+pVAgqiDyOeaJnDYgGmU9FPuTsTuz0K o8yDkw8qoRLblfDpluGiVtQ8VX0M+ZUyCx3PF4w+stAHHcLiovKDb3BI0VCj 16/43WLN4bqD4dfbo2tx5rEcTMLAb3+CUFtQx6oukPAwQW8nCdw6DxgmQm1x YFExRvvav1VNj2khEorTVcVlhZjsh4lQG44aLpUVb12gtyi8mQPxxgNLXXgP EjHFCn9Rj0tGakH9HUo/VhptanU6OesjsGRIy9mMp/hBBQjbaX8vF8r9RHM0 1P4l48arvHOGH6SWc7GqVEeOHkvaK6qPa8EwAW9qxXyxbIJYUdY31JivNctX lZHVpKprdFiHiJlUdT05SoDeUNmKH/wiYWCVX9aWs175xPqQaykgci2FClDX qg9nIwBrC9OKcladlaqctVlZj/ANtWD2q+SASnkzjdTAeeClMI1yQpk8uIOv qa5K4MrliD5aZLOqSOsPLGtPmFounlLuTat0jL4FA/NqWR09DXq9oqjn/j6X WtyV8oub6hgqLVpQ/aamkM5sTf8L6Usr2HreAAwAIqf4Hw2ZMufXDNF/SYqo KcD6hsK3y9y0Z5BbTZGlT2ghwOsQuL2TeLKKrEdlEqvIEpL3ShujyHqoqeJF 1gMtM7nIuhdGTfk/dnbsE365I9U=\ \>"], "Graphics", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{3.437455455132172*^9}, ImageSize->{229, 67}, ImageMargins->{{214, 0}, {0, 0}}], Cell["Concentration impedances", "Subsection", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.406005724175057*^9, 3.40600574441677*^9}, { 3.43745541187183*^9, 3.437455418926516*^9}, 3.437455455132516*^9}], Cell[GraphicsData["CompressedBitmap", "\<\ eJzdm9+OHEcVxsfzd3fttWXH8SZOlhgljhACB5wgYiASEsS2IhECguA7ZKKI LAgSQiQiX/mCKz8B+AEghivf+RZu/AL4BeIn8BOY/qrPr+frmuqenjVwQcuz M11dXXXOd/7UqVPHP7j+yQfv/+b6JwfvXT935ePrH31w8N7vz13+8OOqaXJk NDry9Gg0+vTcSL8fVz/jz+Pq3+Mz+qOW/5/fH6avyejGjRuj+/fvp7vno033 atfdH+vuv9XXeHT79u0Xml+XrHt1m+6u1t3fTl+z0YMHD0bXrl1Ln/39/TTq Vrx28eLF9EufE9H28OHD1O/Ro0ej44V+tOm5+qn/1wv9ZtGmeWm7UpP2/ZgQ 0nTp1Tt37qQn4kZDHxwcpN96du/evfrl6lIbLNQaUg8/j4l1iTx99K6QmUb/ W7duNcCOo7/u/RIdi87xF+m56NZ7jHf58uVE19iEqme6e7FnnhIfDp366L1x QqOGnX5jgx0MJ0Gp5oZGfYu+Cu/XahAvp6/d9AZU6qM5hLx+C7XNkJ83UpRk dWn2iuJJxlB9t1RdhuoGYysxjmDVwhT6rnQQLJCN7l4qTLHdOcU8cSwEaNdY FW4zewU7HccrDAN1el4N0YJ53igIA2ui6kL/3ESH6LeGE51ISJNPC0RuBnFt +kA8tn5te2mPtxnGbcfGeNK4XC1KYKsfbcJK/Oc6PU8juaIESiUpul5y1e5j 0hC5JGCaTEGXZFkN3zek4zHdaJpF4hOrw/L0ruQzVAazjeact9QTfCvPMDWX CotYHy5J93IiuvuGy2LamIVGr2Ydp2EXLSemD4Rr1D73wnASscQaQIG568dQ 3c99uu6wA32LMccc7zhU7yGdsSVX4S+7rd6t8d1ZwVfd0TYQqqYOeK8E0bn7 FhM4hN0CMYuQJm6a/sLdbYFQYiiICzM9HBkKXI0Nfhp2U98MfmHrjSuN0AMK WQJrvazbRIF0Ut1pC8tNd6/WYD4XjyBe3/NoU1e16bvUthfsMw1Uu6J2CmIs ZuaGDWvPUNgJ2VgLDoOrdNz9QaDwPcdm2lhWaK07F7R2YRMj5DNmXD65r5bA 40QwliRITMmcHnd6sIUGbBfGI2b12Palwrs7nbTMEsDwCv0ISvxhh2+0kYPN 0P2pvQFK24Ymy+DpmFv6LMXCiaoPIe0z9p4uV1Ihx/hjQ462Z011sNTzhX6n gw3CUPWvOHXGASsYP5UpoPBOfn+cbpfOn1gT8iWcSbhDsQoU+nREsx70YX5v WFtpV8Wwsat6yuyvrVZbaTbfk+Baw9FALMRDLJqexYQQy+pSA7tUOC5Wad9M /ase+HQYLToLlCGxHA51K/mSNfFUKQT7vCbg6dpvZXO1fcqsNdfjx93BQilm Pam/76glPf2lfp2xyUM/xb2G2AkZsBtgyo7102fUK+5tN5LBrMEenyLw8FH+ mu8UmNJWJo+/PCwKhm4U/MXlgjf7QltBfBcDNNWkbDjwq7rY4iFQX0zwTL44 fWoKRTB01fphh/tO0W565KEKwkHufSRhe05SrETp7g+mGIz5VrSJHOZ93kla GmLmoaYtOdjOQcOAzMI4ZvjXA11WOy4p1rcNXeQIiQhI9ASJ521KqPEFkCkZ 1pH8VmHYC9HmgdlzBZLqttGve4b17l/NppJQpuHYQDcQWJOXOFoguoeYS4ZF 6HbwOG0I1EyVKDB5d0oQ0+Gpj5mOsbqdXU9M7OoNmVmDggjULGK3j6IOlwxF 4olXBlBExLCkqBaAh6q6r97rWyckFKGKCwj/TeSGzPTqAKJ0YUZfyXyvTMfX SQgt7XqhrsPVH7fpMJc66hkdhKaw/QkqIdBd0wVryz26523Nl0zslb7tR5Lp WE0ZaBqXleL1guBfLQB0NgPSuP2LGS6PXgv1dBYIYvcydRa92VCaFYfMUE4N YSFD4REFSTYUEaDuTprdAfYXjXooJfBFGzR8DPvnoAbCPQXsWyimnBkQfvWn gGdNfE1MXC9Xapk0snOWhA5zQj52I9pa5HfmUZ0iHNM8A0N3fUk+z6OS1/L9 WdWeFshdNZSM6Jk20qVk5NZ/gE5PwowLiH2tMEeLtJV03fZAqjZL12010R/t UClUSH6fV0NJfC2SOzNcTyL4eTzxHYxahA6nFtV0r3QTdzsEU0obPQlli/hL yoCYAAPS9zqyUhJlxzqxSA0l4juZXZg1kgTzNIQrUduJrE9DvGiKxYJyJiOz ML3v7z38xdvmiSndlSKzPWMHHcu8MYeEuns5eFM3temj4TQUkTJUxxSzsJ8s BJtE82YhIWzhnDR3Rq6vdjW5O03yXGigC7pYPIJkHP+mARr3WcgIsb5OZ8TC h2aEWCcMF9JJ7Eax25qAEnpd4Bm9ICO6Xzatb5/KzEr0ruQ1DhPXdUSdOBwy AEb5X+MRx9y6O7+GclBnO4strwv4jFug7ghE3TyZ8WybYPGBg6nzkkcbR8JF oiWMp7EUte8EBQ7tISJST07icDJKEZRGP29DtKFtw+0Z3laaJzhvx7Cjz0yK xBwkazkF6J+qHYyGE2qy5Q5mNiUrru6+ZHqG+zlh/o2DzGqo44XXY/N6x5hB 1dhneEx4otAvG8JVK23Gd5fKN2nCL91FEuFvhjHmcNXmhqvI1PzdGEb7r1gb mGXdpSRQ7Jkpukdm6n9VTOOnM/umtABA1sPX4PfrIX4YyuOnWLgSfw1lS5yl Mhx2X6t5kHZxxjTstGPF+2lNx9tmzZghll/N3Ve842nCocU7z5pSF/Imbl5r FsGg/80gaUh5z927d0s89uwM5k3omTSuQk7jVPccVednB/pdD9SOxuadU2y1 IlI2N1blUyry2TPXo6sUUJSw7FigA8vaALfXFur4/tNnKe1hwdFPepFBNa4T y7FG6Uigr1iHWJF2P+DvKNbZM9voiXFW1/HOSOFdh7CzCKdUxNGHGjluXyTt ILq0kRyGWom39fU37B+GRlol/DoClwy/jrqaPFiWMLp30FstE9THfabV1KzD sXuK+coUcQbgKtRXTuP7JIYohYAWGQyNsH7ikHaUx7Rr/I4Z0W3PtYxfw0SS 1UGJH4htpodbdVAQqwMi4r6aq1QOwwmrq9wvamafilHJJ/p+B+Yrjv3snS6+ h0eolFxsWvsCaOZjG1H1HQuuA40CIlY71nTe8YoUL4DZD3qcX0LVn9fI+Wke ssBOQSzFH9vNr8MWpMwLFNLmJ4JDUSmVpsCx6whH7OhPJDrT3XcdhTrl6vUC 6upegKkh0Y9HSZt43HPY4hRgcQvLc2y5UsZ4Q2tTXjD0QHnf+oEohcUesSLl SJJhVh3lGFsrtXiSDDHMfQrU2lEkCK/WUneGtqWIaUiNy569h1AWNj1I+PhY cKnG5QVDEaVx36VL4y762TmZCW1JwqwVtoP6JFh1KVClQQBYm8yIk9DVgpRJ qyDFfQrnMZPaD4jQabPMhTOiv1cZraliLoVp+bZmue621fqCCQkVK5XhpPOd tJM9ZW/g7eb9BA4lpoZ/Oz3xSp1uUW01nkvtaCW/q/612cby3FmR475IV1eR yCGqnkuRy2f9r4CwG4QfAaHghoI7VrcZ2VglqEBht9G7UlmQa2qealoFYXit cSnkXpYPJZi/qV9kxzq2CSeDID8XqR6VAlFM3GsBk29OTnVpX7QfM3hG7cKl 3UJ3CspcfIiwEJ87/zihoRbxp8CkY+hZ5zCrATwBTKg8r3oyzCsQ8yJXTFp3 u25U5RKrU+FJffOK1NqR92pNVQQ3ZPvWBesnjELWJxIJq2Vvk+bA1jn2gKDF XWeNVskydgxTXqPNI6zPfYbD1VztGNMsP4QtHqL8LmRUSpZRYOU5tnedtM7a q/oAtEAXq6LXtW4ZAkzzUYDbkTuj2tM3nT+rO5wp4A61XkvqexK04FKAUaoi +HLo0pNkw6ip4nRJ76Y0ykj/iagabRxq6Ysbnr0jr7fBfxqrQ/WmPsU9Yn3O ePj8FP/lBYH4GSbzlFIXrBWlbNsh/r/WWg43Sh/BlA/j50z9THWmwErb+DVB wgC+Nkjr9NWIeZupbl5c25We2nTtv7KOsUHJlcUAhqAmQACX1eRQO3UxDied M9Sx4PbwcyFI7Ut41IwcbZ2w62KtZjyUWOPsxLguBn0O819p3lxPfl9GAk/u sUApvi2dJP64nvpX9ggOXomp+3b422bePDfEjpuf8eo2AfhOm+nV8ov+rS3M +FKYHzBGIV3M9A97g5l+VD/6pwnq5s2b6XNUf0My/+3jt9GRfwM4rxvB\ \>"], "Graphics", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{3.437455455132855*^9}, ImageSize->{277, 120}, ImageMargins->{{204, 0}, {0, 0}}], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"th", "[", "p_", "]"}], ":=", FractionBox[ RowBox[{"Tanh", "[", SqrtBox["p"], "]"}], SqrtBox["p"]]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Zq", "[", RowBox[{"k_", ",", "a_", ",", "b_", ",", "p_"}], "]"}], ":=", RowBox[{"k", FractionBox[ RowBox[{"1", "+", RowBox[{"a", " ", RowBox[{"th", "[", "p", "]"}]}]}], RowBox[{"1", "+", " ", RowBox[{"b", " ", "p"}]}]]}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{ RowBox[{"a", "=", RowBox[{"10", "^", "loga"}]}], ";", RowBox[{"b", "=", RowBox[{"10", "^", "logb"}]}], ";", RowBox[{"Rd", "=", RowBox[{"10", "^", "logRd"}]}], ";", RowBox[{"wc1", "=", "2.54"}], ";", RowBox[{"wc2", "=", RowBox[{"1", "/", "b"}]}], ";", RowBox[{"Rp", "=", RowBox[{"Abs", "[", RowBox[{"Rd", "+", RowBox[{"k", RowBox[{"(", RowBox[{"1", "+", "a"}], ")"}]}]}], "]"}]}], ";", RowBox[{"wmin", "=", RowBox[{"Min", "[", RowBox[{"wc1", ",", "wc2"}], "]"}]}], ";", RowBox[{"wmax", "=", RowBox[{"Max", "[", RowBox[{"wc1", ",", "wc2"}], "]"}]}], ";", RowBox[{"dlogw", "=", "3"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Rd", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", RowBox[{"th", "[", RowBox[{"I", " ", RowBox[{"10", "^", "logu"}]}], "]"}], "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", RowBox[{"th", "[", RowBox[{"I", " ", RowBox[{"10", "^", "logu"}]}], "]"}], "]"}]}]}], "}"}], "/", "Rp"}]}], "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", RowBox[{"Zq", "[", RowBox[{"k", ",", "a", ",", "b", ",", RowBox[{"I", " ", RowBox[{"10", "^", "logu"}]}]}], "]"}], "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", RowBox[{"Zq", "[", RowBox[{"k", ",", "a", ",", "b", ",", RowBox[{"I", " ", RowBox[{"10", "^", "logu"}]}]}], "]"}], "]"}]}]}], "}"}], "/", "Rp"}]}], "}"}], ",", RowBox[{"{", RowBox[{"logu", ",", RowBox[{ RowBox[{"Log", "[", RowBox[{"10", ",", "wmin"}], "]"}], "-", "dlogw"}], ",", RowBox[{ RowBox[{"Log", "[", RowBox[{"10", ",", "wmax"}], "]"}], "+", "dlogw"}]}], "}"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\<- Im Z\>\""}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"AbsoluteThickness", "[", "1.5", "]"}]}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"AbsolutePointSize", "[", "6", "]"}], ",", RowBox[{"If", "[", RowBox[{"w1", ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", RowBox[{"Zq", "[", RowBox[{"k", ",", "a", ",", "b", ",", RowBox[{"I", " ", "wc1"}]}], "]"}], "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", RowBox[{"Zq", "[", RowBox[{"k", ",", "a", ",", "b", ",", RowBox[{"I", " ", "wc1"}]}], "]"}], "]"}]}]}], "}"}], "/", "Rp"}], "]"}], ",", RowBox[{"Point", "[", RowBox[{"Rd", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", RowBox[{"th", "[", RowBox[{"I", " ", "wc1"}], "]"}], "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", RowBox[{"th", "[", RowBox[{"I", " ", "wc1"}], "]"}], "]"}]}]}], "}"}], "/", "Rp"}]}], "]"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{"w2", ",", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", RowBox[{"Zq", "[", RowBox[{"k", ",", "a", ",", "b", ",", RowBox[{"I", " ", "wc2"}]}], "]"}], "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", RowBox[{"Zq", "[", RowBox[{"k", ",", "a", ",", "b", ",", RowBox[{"I", " ", "wc2"}]}], "]"}], "]"}]}]}], "}"}], "/", "Rp"}], "]"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", "Blue", ",", RowBox[{"Text", "[", RowBox[{ "\"\<\!\(\*SubscriptBox[\(Z\), SuperscriptBox[\(\"\\"\), \ \(+\)]]\)\>\"", ",", RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0.1", ",", "0.8"}], "}"}], "]"}]}], "]"}], ",", "Purple", ",", RowBox[{"Text", "[", RowBox[{ "\"\<\!\(\*SubscriptBox[\(Z\), \(\[Theta]\)]\)\>\"", ",", RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0.08", ",", "0.9"}], "}"}], "]"}]}], "]"}]}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "300"}], ",", RowBox[{"BaseStyle", "->", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "10"}]}], "}"}]}]}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", RowBox[{ RowBox[{"Zq", "[", RowBox[{"k", ",", "a", ",", "b", ",", RowBox[{"I", " ", RowBox[{"10", "^", "logu"}]}]}], "]"}], "+", RowBox[{"Rd", " ", RowBox[{"th", "[", RowBox[{"I", " ", RowBox[{"10", "^", "logu"}]}], "]"}]}]}], "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", RowBox[{ RowBox[{"Zq", "[", RowBox[{"k", ",", "a", ",", "b", ",", RowBox[{"I", " ", RowBox[{"10", "^", "logu"}]}]}], "]"}], "+", RowBox[{"Rd", " ", RowBox[{"th", "[", RowBox[{"I", " ", RowBox[{"10", "^", "logu"}]}], "]"}]}]}], "]"}]}]}], "}"}], "/", "Rp"}], ",", RowBox[{"{", RowBox[{"logu", ",", RowBox[{ RowBox[{"Log", "[", RowBox[{"10", ",", "wmin"}], "]"}], "-", "dlogw"}], ",", RowBox[{ RowBox[{"Log", "[", RowBox[{"10", ",", "wmax"}], "]"}], "+", "dlogw"}]}], "}"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"\), \(+\)]]\) + \!\(\*SubscriptBox[\(Z\), \ \(\[Theta]\)]\))\>\"", ",", "\"\<- Im (\!\(\*SubscriptBox[\(Z\), \ SuperscriptBox[\(\"\\"\), \(+\)]]\) + \!\(\*SubscriptBox[\(Z\), \ \(\[Theta]\)]\))\>\""}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"AbsoluteThickness", "[", "1.5", "]"}]}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"AbsolutePointSize", "[", "5", "]"}], ",", RowBox[{"If", "[", RowBox[{"w1", ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", RowBox[{ RowBox[{"Zq", "[", RowBox[{"k", ",", "a", ",", "b", ",", RowBox[{"I", " ", "wc1"}]}], "]"}], "+", RowBox[{"Rd", " ", RowBox[{"th", "[", RowBox[{"I", " ", "wc1"}], "]"}]}]}], "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", RowBox[{ RowBox[{"Zq", "[", RowBox[{"k", ",", "a", ",", "b", ",", RowBox[{"I", " ", "wc1"}]}], "]"}], "+", RowBox[{"Rd", " ", RowBox[{"th", "[", RowBox[{"I", " ", "wc1"}], "]"}]}]}], "]"}]}]}], "}"}], "/", "Rp"}], "]"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{"w2", ",", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Point", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", RowBox[{ RowBox[{"Zq", "[", RowBox[{"k", ",", "a", ",", "b", ",", RowBox[{"I", " ", "wc2"}]}], "]"}], "+", RowBox[{"Rd", " ", RowBox[{"th", "[", RowBox[{"I", " ", "wc2"}], "]"}]}]}], "]"}], ",", RowBox[{"-", RowBox[{"Im", "[", RowBox[{ RowBox[{"Zq", "[", RowBox[{"k", ",", "a", ",", "b", ",", RowBox[{"I", " ", "wc2"}]}], "]"}], "+", RowBox[{"Rd", " ", RowBox[{"th", "[", RowBox[{"I", " ", "wc2"}], "]"}]}]}], "]"}]}]}], "}"}], "/", "Rp"}], "]"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "]"}]}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "300"}], ",", RowBox[{"BaseStyle", "->", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "10"}]}], "}"}]}]}], "]"}], "}"}]}], "}"}], "]"}]}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Style", "[", RowBox[{ "\"\< \!\(\*SubsuperscriptBox[\(Z\), SuperscriptBox[\(A\), \(+\)], \ \(*\)]\)(u) = \!\(\*FractionBox[\(1\), \(\*SubscriptBox[\(R\), \(\(d\)\(\\\ \ \)\)] + k \((1 + \[Alpha])\)\)]\) \!\(\*FractionBox[\(\*SubscriptBox[\(R\), \ \(\(d\)\(\\\ \)\)]\\\ th[\*SqrtBox[\(iu\)]]\), SqrtBox[\(iu\)]]\)\>\"", ",", "Bold", ",", "Medium"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ "\"\< \!\(\*SubsuperscriptBox[\(Z\), \(\[Theta]\), \(*\)]\)(u) = \ \!\(\*FractionBox[\(1\), \(\*SubscriptBox[\(R\), \(\(d\)\(\\\ \)\)] + k \((1 \ + \[Alpha])\)\)]\) \!\(\*FractionBox[\(k \((1 + \\\ \[Alpha]\\\ th[\*SqrtBox[\ \(iu\)]]/\*SqrtBox[\(iu\)])\)\), \(1 + \\\ \[Beta]\\\ iu\)]\)\>\"", ",", "Bold", ",", "Medium"}], "]"}], ",", "Delimiter", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"loga", ",", "0", ",", "\"\\""}], "}"}], ",", RowBox[{"-", "3"}], ",", "3", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"logb", ",", "0", ",", "\"\\""}], "}"}], ",", RowBox[{"-", "3"}], ",", "3", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"k", ",", "1", ",", "\"\\""}], "}"}], ",", RowBox[{"-", "10"}], ",", "10", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "logRd", ",", "0", ",", "\"\\""}], "}"}], ",", RowBox[{"-", "3"}], ",", "3", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", "Delimiter", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "w1", ",", "False", ",", "\"\<\!\(\*SubscriptBox[\(\[Omega]\), \(c1\)]\)= 2.54\>\""}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "True"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "w2", ",", "False", ",", "\"\<\!\(\*SubscriptBox[\(\[Omega]\), \(c2\)]\) =1/\[Beta]\>\""}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "True"}], "}"}]}], "}"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", "Medium"}], "]"}], "}"}]}], ",", RowBox[{"SaveDefinitions", "\[Rule]", "True"}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", Editable->False, CellOpen->False, CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.435490281859927*^9, 3.435490439444666*^9}, 3.435490559026203*^9, {3.435490945706243*^9, 3.435490972367701*^9}, { 3.435491109115049*^9, 3.435491290890357*^9}, {3.435491322694392*^9, 3.4354914720340147`*^9}, {3.435491531863347*^9, 3.435491543582199*^9}, { 3.43549157941805*^9, 3.435491591343273*^9}, {3.435491863586954*^9, 3.435491870560107*^9}, {3.4354919567029343`*^9, 3.43549196280352*^9}, { 3.435492215276247*^9, 3.435492388185133*^9}, {3.435492418939609*^9, 3.435492429527989*^9}, {3.4354924632361937`*^9, 3.43549248368196*^9}, { 3.435492544057253*^9, 3.4354925621762733`*^9}, {3.435492677731456*^9, 3.435492693377426*^9}, {3.4360879369424877`*^9, 3.436087986446392*^9}, { 3.4360880276677847`*^9, 3.4360880723668747`*^9}, {3.436088107139151*^9, 3.4360881165121613`*^9}, {3.436088194327334*^9, 3.4360883104639187`*^9}, { 3.436088361885388*^9, 3.4360883816619377`*^9}, {3.436091485177216*^9, 3.4360915017162113`*^9}, {3.436091691552856*^9, 3.436091919246912*^9}, { 3.436091991604924*^9, 3.436092009946994*^9}, {3.43609208475665*^9, 3.4360921210013866`*^9}, {3.436092198431209*^9, 3.436092269346374*^9}, { 3.4360923234825163`*^9, 3.436092349825293*^9}, {3.436092450142757*^9, 3.436092456059947*^9}, {3.436092495120495*^9, 3.4360924991895037`*^9}, { 3.4360927966609592`*^9, 3.436092814722764*^9}, {3.4360930277798*^9, 3.436093035168301*^9}, {3.436093126894952*^9, 3.436093127329143*^9}, { 3.43609316143157*^9, 3.43609316549121*^9}, {3.4360932053863897`*^9, 3.436093207498968*^9}, {3.4360955785003366`*^9, 3.436095580452146*^9}, { 3.436095639951523*^9, 3.436095685731566*^9}, {3.436095844001115*^9, 3.436095855685714*^9}, {3.436096010926147*^9, 3.436096066066186*^9}, { 3.436096178956455*^9, 3.436096200643682*^9}, {3.436096277883106*^9, 3.436096381257739*^9}, {3.436096489751266*^9, 3.436096527848764*^9}, { 3.4360966271202717`*^9, 3.436096682691025*^9}, {3.436096777414029*^9, 3.436096805367663*^9}, {3.4360970754722633`*^9, 3.436097118052897*^9}, { 3.43609717122456*^9, 3.436097296862893*^9}, {3.436097373720435*^9, 3.436097379923806*^9}, {3.436097468047529*^9, 3.436097586677134*^9}, { 3.436264838666276*^9, 3.436264845316759*^9}, {3.436265871459262*^9, 3.436265878234975*^9}, {3.436265929978717*^9, 3.436265944147427*^9}, { 3.436266010388453*^9, 3.436266122505465*^9}, {3.4362661954616623`*^9, 3.4362662040822887`*^9}, {3.4362662781879807`*^9, 3.436266292538733*^9}, { 3.436266322731865*^9, 3.436266325603345*^9}, {3.436266414491975*^9, 3.4362664615385933`*^9}, {3.436266604106379*^9, 3.436266613490656*^9}, { 3.436266644114171*^9, 3.436266649921419*^9}, {3.436266728013455*^9, 3.43626677139615*^9}, {3.436266803252573*^9, 3.4362668668583927`*^9}, { 3.436266898796632*^9, 3.436266924584366*^9}, {3.436269755074749*^9, 3.4362697732639523`*^9}, {3.4362698268995867`*^9, 3.436270101809162*^9}, { 3.436270179250572*^9, 3.4362702506069117`*^9}, {3.436270316940411*^9, 3.436270326083529*^9}, {3.436270531878172*^9, 3.43627053442981*^9}, { 3.4365799801791763`*^9, 3.4365800509261007`*^9}, {3.436580190254838*^9, 3.436580195941324*^9}, {3.436580424664701*^9, 3.436580458565399*^9}, { 3.436580494549135*^9, 3.4365806754686832`*^9}, {3.4368492308396883`*^9, 3.436849233500669*^9}, {3.437219726479804*^9, 3.437219726996992*^9}, { 3.4372197574713697`*^9, 3.437219761886641*^9}, 3.437455455133122*^9, { 3.437456841094598*^9, 3.4374569009986067`*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`k$$ = 1, $CellContext`loga$$ = 0, $CellContext`logb$$ = 0, $CellContext`logRd$$ = 0, $CellContext`w1$$ = False, $CellContext`w2$$ = False, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[ Style[ " \!\(\*SubsuperscriptBox[\(Z\), SuperscriptBox[\(A\), \(+\)], \ \(*\)]\)(u) = \!\(\*FractionBox[\(1\), \(\*SubscriptBox[\(R\), \(\(d\)\(\\ \)\ \)] + k \((1 + \[Alpha])\)\)]\) \!\(\*FractionBox[\(\*SubscriptBox[\(R\), \ \(\(d\)\(\\ \)\)]\\ th[\*SqrtBox[\(iu\)]]\), SqrtBox[\(iu\)]]\)", Bold, Medium]], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Style[ " \!\(\*SubsuperscriptBox[\(Z\), \(\[Theta]\), \(*\)]\)(u) = \ \!\(\*FractionBox[\(1\), \(\*SubscriptBox[\(R\), \(\(d\)\(\\ \)\)] + k \((1 + \ \[Alpha])\)\)]\) \!\(\*FractionBox[\(k \((1 + \\ \[Alpha]\\ th[\*SqrtBox[\(iu\ \)]]/\*SqrtBox[\(iu\)])\)\), \(1 + \\ \[Beta]\\ iu\)]\)", Bold, Medium]], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`loga$$], 0, "log \[Alpha]"}, -3, 3}, {{ Hold[$CellContext`logb$$], 0, "log \[Beta]"}, -3, 3}, {{ Hold[$CellContext`k$$], 1, "k/\[CapitalOmega]"}, -10, 10}, {{ Hold[$CellContext`logRd$$], 0, "log \!\(\*SubscriptBox[\(R\), \(d\)]\)/\[CapitalOmega]"}, -3, 3}, {{ Hold[$CellContext`w1$$], False, "\!\(\*SubscriptBox[\(\[Omega]\), \(c1\)]\)= 2.54"}, {False, True}}, {{ Hold[$CellContext`w2$$], False, "\!\(\*SubscriptBox[\(\[Omega]\), \(c2\)]\) =1/\[Beta]"}, { False, True}}}, Typeset`size$$ = {300., {168.375, 173.625}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`loga$1618$$ = 0, $CellContext`logb$1619$$ = 0, $CellContext`k$1620$$ = 0, $CellContext`logRd$1621$$ = 0, $CellContext`w1$1622$$ = False, $CellContext`w2$1623$$ = False}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`k$$ = 1, $CellContext`loga$$ = 0, $CellContext`logb$$ = 0, $CellContext`logRd$$ = 0, $CellContext`w1$$ = False, $CellContext`w2$$ = False}, "ControllerVariables" :> { Hold[$CellContext`loga$$, $CellContext`loga$1618$$, 0], Hold[$CellContext`logb$$, $CellContext`logb$1619$$, 0], Hold[$CellContext`k$$, $CellContext`k$1620$$, 0], Hold[$CellContext`logRd$$, $CellContext`logRd$1621$$, 0], Hold[$CellContext`w1$$, $CellContext`w1$1622$$, False], Hold[$CellContext`w2$$, $CellContext`w2$1623$$, False]}, "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`a = 10^$CellContext`loga$$; $CellContext`b = 10^$CellContext`logb$$; $CellContext`Rd = 10^$CellContext`logRd$$; $CellContext`wc1 = 2.54; $CellContext`wc2 = 1/$CellContext`b; $CellContext`Rp = Abs[$CellContext`Rd + $CellContext`k$$ ( 1 + $CellContext`a)]; $CellContext`wmin = Min[$CellContext`wc1, $CellContext`wc2]; $CellContext`wmax = Max[$CellContext`wc1, $CellContext`wc2]; $CellContext`dlogw = 3; Grid[{{ ParametricPlot[{{$CellContext`Rd ({ Re[ $CellContext`th[I 10^$CellContext`logu]], -Im[ $CellContext`th[ I 10^$CellContext`logu]]}/$CellContext`Rp)}, { Re[ $CellContext`Zq[$CellContext`k$$, $CellContext`a, \ $CellContext`b, I 10^$CellContext`logu]], -Im[ $CellContext`Zq[$CellContext`k$$, $CellContext`a, \ $CellContext`b, I 10^$CellContext`logu]]}/$CellContext`Rp}, \ {$CellContext`logu, Log[10, $CellContext`wmin] - $CellContext`dlogw, Log[10, $CellContext`wmax] + $CellContext`dlogw}, Frame -> True, FrameLabel -> {"Re Z", "- Im Z"}, PlotStyle -> AbsoluteThickness[1.5], PlotRange -> All, Epilog -> { AbsolutePointSize[6], If[$CellContext`w1$$, {Red, Point[{ Re[ $CellContext`Zq[$CellContext`k$$, $CellContext`a, \ $CellContext`b, I $CellContext`wc1]], -Im[ $CellContext`Zq[$CellContext`k$$, $CellContext`a, \ $CellContext`b, I $CellContext`wc1]]}/$CellContext`Rp], Point[$CellContext`Rd ({ Re[ $CellContext`th[I $CellContext`wc1]], -Im[ $CellContext`th[ I $CellContext`wc1]]}/$CellContext`Rp)]}, {}], If[$CellContext`w2$$, {Black, Point[{ Re[ $CellContext`Zq[$CellContext`k$$, $CellContext`a, \ $CellContext`b, I $CellContext`wc2]], -Im[ $CellContext`Zq[$CellContext`k$$, $CellContext`a, \ $CellContext`b, I $CellContext`wc2]]}/$CellContext`Rp]}, {}], Blue, Text[ "\!\(\*SubscriptBox[\(Z\), SuperscriptBox[\(\"A\"\), \(+\)]]\)", Scaled[{0.1, 0.8}]], Purple, Text["\!\(\*SubscriptBox[\(Z\), \(\[Theta]\)]\)", Scaled[{0.08, 0.9}]]}, ImageSize -> 300, BaseStyle -> {FontFamily -> "Helvetica", FontSize -> 10}]}, { ParametricPlot[{ Re[$CellContext`Zq[$CellContext`k$$, $CellContext`a, \ $CellContext`b, I 10^$CellContext`logu] + $CellContext`Rd $CellContext`th[ I 10^$CellContext`logu]], - Im[$CellContext`Zq[$CellContext`k$$, $CellContext`a, \ $CellContext`b, I 10^$CellContext`logu] + $CellContext`Rd $CellContext`th[ I 10^$CellContext`logu]]}/$CellContext`Rp, \ {$CellContext`logu, Log[10, $CellContext`wmin] - $CellContext`dlogw, Log[10, $CellContext`wmax] + $CellContext`dlogw}, Frame -> True, FrameLabel -> { "Re (\!\(\*SubscriptBox[\(Z\), SuperscriptBox[\(\"A\"\), \(+\)]]\ \) + \!\(\*SubscriptBox[\(Z\), \(\[Theta]\)]\))", "- Im (\!\(\*SubscriptBox[\(Z\), SuperscriptBox[\(\"A\"\), \ \(+\)]]\) + \!\(\*SubscriptBox[\(Z\), \(\[Theta]\)]\))"}, PlotStyle -> AbsoluteThickness[1.5], PlotRange -> All, Epilog -> { AbsolutePointSize[5], If[$CellContext`w1$$, {Red, Point[{ Re[$CellContext`Zq[$CellContext`k$$, $CellContext`a, \ $CellContext`b, I $CellContext`wc1] + $CellContext`Rd $CellContext`th[ I $CellContext`wc1]], - Im[$CellContext`Zq[$CellContext`k$$, $CellContext`a, \ $CellContext`b, I $CellContext`wc1] + $CellContext`Rd $CellContext`th[ I $CellContext`wc1]]}/$CellContext`Rp]}, {}], If[$CellContext`w2$$, {Black, Point[{ Re[$CellContext`Zq[$CellContext`k$$, $CellContext`a, \ $CellContext`b, I $CellContext`wc2] + $CellContext`Rd $CellContext`th[ I $CellContext`wc2]], - Im[$CellContext`Zq[$CellContext`k$$, $CellContext`a, \ $CellContext`b, I $CellContext`wc2] + $CellContext`Rd $CellContext`th[ I $CellContext`wc2]]}/$CellContext`Rp]}, {}]}, ImageSize -> 300, BaseStyle -> { FontFamily -> "Helvetica", FontSize -> 10}]}}]), "Specifications" :> { Style[ " \!\(\*SubsuperscriptBox[\(Z\), SuperscriptBox[\(A\), \(+\)], \(*\ \)]\)(u) = \!\(\*FractionBox[\(1\), \(\*SubscriptBox[\(R\), \(\(d\)\(\\ \)\)] \ + k \((1 + \[Alpha])\)\)]\) \!\(\*FractionBox[\(\*SubscriptBox[\(R\), \(\(d\)\ \(\\ \)\)]\\ th[\*SqrtBox[\(iu\)]]\), SqrtBox[\(iu\)]]\)", Bold, Medium], Style[ " \!\(\*SubsuperscriptBox[\(Z\), \(\[Theta]\), \(*\)]\)(u) = \ \!\(\*FractionBox[\(1\), \(\*SubscriptBox[\(R\), \(\(d\)\(\\ \)\)] + k \((1 + \ \[Alpha])\)\)]\) \!\(\*FractionBox[\(k \((1 + \\ \[Alpha]\\ th[\*SqrtBox[\(iu\ \)]]/\*SqrtBox[\(iu\)])\)\), \(1 + \\ \[Beta]\\ iu\)]\)", Bold, Medium], Delimiter, {{$CellContext`loga$$, 0, "log \[Alpha]"}, -3, 3, Appearance -> "Labeled"}, {{$CellContext`logb$$, 0, "log \[Beta]"}, -3, 3, Appearance -> "Labeled"}, {{$CellContext`k$$, 1, "k/\[CapitalOmega]"}, -10, 10, Appearance -> "Labeled"}, {{$CellContext`logRd$$, 0, "log \!\(\*SubscriptBox[\(R\), \(d\)]\)/\[CapitalOmega]"}, -3, 3, Appearance -> "Labeled"}, Delimiter, {{$CellContext`w1$$, False, "\!\(\*SubscriptBox[\(\[Omega]\), \(c1\)]\)= 2.54"}, { False, True}}, {{$CellContext`w2$$, False, "\!\(\*SubscriptBox[\(\[Omega]\), \(c2\)]\) =1/\[Beta]"}, { False, True}}}, "Options" :> {FrameLabel -> { Style[ "ER@SE/LEPMI, J.-P. Diard, B. Le Gorrec, C. Montella, 2008. Hosted \ by Bio-Logic@www.bio-logic.info", Medium]}}, "DefaultOptions" :> {}], ImageSizeCache->{643., {205.375, 210.625}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>({$CellContext`a = 1, $CellContext`b = 1, $CellContext`Rd = 1, $CellContext`wc1 = 2.54, $CellContext`wc2 = 1, $CellContext`Rp = 3, $CellContext`wmin = 1, $CellContext`wmax = 2.54, $CellContext`dlogw = 3, $CellContext`th[ Pattern[$CellContext`p, Blank[]]] := Tanh[ Sqrt[$CellContext`p]]/Sqrt[$CellContext`p], $CellContext`Zq[ Pattern[$CellContext`k, Blank[]], Pattern[$CellContext`a, Blank[]], Pattern[$CellContext`b, Blank[]], Pattern[$CellContext`p, Blank[]]] := $CellContext`k (( 1 + $CellContext`a $CellContext`th[$CellContext`p])/( 1 + $CellContext`b $CellContext`p))}; Typeset`initDone$$ = True), SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.435492560370227*^9, 3.435492562579137*^9}, 3.43549264963758*^9, 3.4354926941220303`*^9, {3.436087958210164*^9, 3.4360879873128767`*^9}, 3.4360880330457897`*^9, 3.436088073808407*^9, 3.4360881179867783`*^9, {3.4360882110112877`*^9, 3.4360882359193363`*^9}, 3.436088311221027*^9, 3.436088383809915*^9, {3.436091490074739*^9, 3.436091502514566*^9}, {3.43609170234339*^9, 3.436091722673802*^9}, 3.436091785721098*^9, 3.43609191989686*^9, {3.436092014849078*^9, 3.4360920299753227`*^9}, 3.43609212293289*^9, 3.436092165387683*^9, 3.436092215383521*^9, 3.436092271283308*^9, 3.436092350620234*^9, 3.4360924566979628`*^9, 3.436092499891444*^9, 3.4360928152965317`*^9, 3.436093035759345*^9, 3.436093128928912*^9, 3.436093165975048*^9, 3.4360932139906683`*^9, 3.436093263495976*^9, 3.436095581950102*^9, 3.436095687261012*^9, 3.4360958570524673`*^9, 3.436096066766698*^9, { 3.4360961800616417`*^9, 3.436096202559203*^9}, {3.436096366072608*^9, 3.436096381912643*^9}, {3.436096506317299*^9, 3.436096528753236*^9}, { 3.436096629512097*^9, 3.436096683983766*^9}, {3.43609679659753*^9, 3.4360968058889112`*^9}, 3.436097120493878*^9, {3.436097179611342*^9, 3.436097225584421*^9}, 3.436097260989437*^9, 3.436097298178405*^9, 3.4360973804526787`*^9, {3.436097481643882*^9, 3.436097515374021*^9}, 3.436097550501742*^9, 3.4360975873093157`*^9, 3.4362647555236597`*^9, 3.43626484696799*^9, 3.436265878921769*^9, {3.436265932525771*^9, 3.436265945734014*^9}, 3.436266123569538*^9, 3.436266206613386*^9, 3.436266280723621*^9, 3.436266327101399*^9, 3.436266463055875*^9, 3.436266616168208*^9, 3.43626665109372*^9, 3.4362667726054583`*^9, 3.436266870434287*^9, {3.4362669020937223`*^9, 3.4362669253918533`*^9}, 3.436269774715967*^9, 3.4362698649366283`*^9, {3.436269938155652*^9, 3.43627001468976*^9}, 3.436270077614503*^9, {3.436270180168167*^9, 3.436270250934915*^9}, 3.436270326429596*^9, 3.436270535385603*^9, 3.4365791355624743`*^9, {3.4365799906282463`*^9, 3.4365800519642763`*^9}, 3.436580196740384*^9, 3.4365804596273813`*^9, {3.43658062737002*^9, 3.436580676457062*^9}, {3.436849204402256*^9, 3.4368492338983927`*^9}, { 3.437219681156125*^9, 3.437219727696093*^9}, 3.4372197632362823`*^9, 3.437352641180377*^9, {3.437455455134026*^9, 3.437455501769438*^9}, 3.437455553134276*^9, {3.4374568850238323`*^9, 3.437456902020893*^9}}] }, Open ]] }, WindowSize->{827, 778}, WindowMargins->{{28, Automatic}, {Automatic, 11}}, DockedCells->FEPrivate`If[ FEPrivate`SameQ[FEPrivate`$ProductIDName, "MathematicaPlayer"], FEPrivate`Join[{ Cell[ BoxData[ Cell[ GraphicsData[ "CompressedBitmap", "eJy9XGdcVUfevkuzu0mMXcOq9GYHUaqxgImiia6xxI3JakzUmDVl35Rd3Y3G\n\ tWGMigKKgtJFKdIEBCnSpPeuYP0l77vv5/fDPu/MOTPnzrn3XMCy+wHuvXPm\n\ zL/MzPP8/zNzzsqtX+7Ytnvrl598tPV3y/du/XzHJx998btle/aSIvPf6HRm\n\ FjqdzvF3Ovod5Cv79zq6urp0FqjJL8CVgLdREBmFjrY2S6l4GBrrG3DXLxB9\n\ U1xR7uSGFl8v9P4hCPc/24Dqzetx9/JlnblUdwi6OjtRc/0aCnbvQuH8hSgZ\n\ Z4/E2R6ovHJFB1qnSaqoG8tEZv1wAFcn2yF2205Ul5RYSMVj0EmaaXhnI3rt\n\ 5qDbdh5aV/ihY0sgHu58F/ffD0LzB2tRH3EOdanXUBUehvxdn6JooRfqZrqg\n\ 2NkZ4RNm4Nrqd9DR1KQh1gr11dVIcJmP+OFTcXG2J0pOnkZDTp6ZdPk1dLS0\n\ oH3tGvR6eKJ99gLULnRH88aluPfFOjz+YRMebCLqrHwTrUH+aFm3BJXec1Ax\n\ 1xWVs2chxtoBoVT8mnckyc2y5HHSx0SkEIPTx0xHzhgbJJPPDPuZuL37c5Sf\n\ OYvSTRvxyMMd9/180OTlhTabWWj0nod7P6zFo7+9i64vg9C+LQDNy+ehZceb\n\ uOM3D4X+bkhwc8EFa1tcdHDCzc//pDOWOxm1JcVIsnNF7LgZ5M8GuZNtkD7F\n\ FnG2dii2c8Ajl3l44OuDrmV+6Jm7EJ2uLujesxQPwjej99RGdHwVgPKtvijb\n\ 5Im8dQuQ/OZ8hNo54tjEKQhxckFVYiKVRAeAbqgk0xz1WVloyMuTfkk6lYs6\n\ TUJnezsy1vweV155A4lenrjztw9R+Y8dKD28A1VHd6Dx+Kdo+mk3Gk/vQePP\n\ n6H+2A7Uh+xCU+xXaLzyNZqiv0bthT+h+swuVIXsRsWpz1B29FNk7lqL07Pc\n\ cPPb71B05Kgl6/TO9jZUXr6MsrBQZG3ciIx31+FufLykWYWs2XjpYwbukN5I\n\ cHFC9YWv0XLtOOpiT6I54RQepIfhXnoo7qWdQ09aKLozLqAn8zy6rv6MrpgT\n\ 6CLXOnLC0ZYbjibyvS7pDOriT6E+6Wc0p55B7pcf44qdCzI/24NyokoF/YuM\n\ ROm5c7i+aTMSg1YjiYzjHNL7N4mKTQUFsucqRf2mo/BYMOICvdF49SDuRoai\n\ 6kokHqXFoic9Gv9Tm4P/vZuDXwpS8aggE48L0/E0NRq/3IjF45QYPEyLQV9q\n\ HNqT49ARHYXW6EuoDif6XoxEB9ElzM0JP063RrCDA445u+D8HDKo3ecgztEN\n\ d2Z6oHiBD7K3f4z2+gZ5jFmi7Xoaqp28UPWKE2qDNtPfuilsEJSUlMgDg/yy\n\ ZbM+PT0dO3fuxKFDh9DU1BQnG/dbdgfFEH6HBTO4vaUNiWtWI2bFItTH/0i6\n\ /zz6rkbh18IUXPD2QUpgINrSI/HfjbfQV5COB7eS8bQkGU+yY9GXRJyTeAkP\n\ oyPQfekCus6fx/1LEWg5F4rG6Gh03UjFEY+ZODxrOoJdZyDM1RHZZOaXvumP\n\ Wl9/5Hr6ko77ihrcwgzurKpBtftyVL0xVzKaGE/mmKx+VVUVQkJCpF92zAjq\n\ hKSkJHzzzTeIiIhQGWyPouPByP7wQ+LV7bi5+zMUHDqM6tQbqLmZjcJPtiOf\n\ zO3Ut33QEH8ID1Iv4nFmNJ7WZCFpkS/KdVNxY6oTcvfuQHvBVTypysYjYvjD\n\ vDj0plwmxl9CLzG+mxjfdvE8miLPE8Q8i7b4WPRmpyF5mRcKAhehaeUStPkv\n\ Q4tPACr8/ZHu64fbB3/UdTAL2vNvS5bSv5afQydpGOvAyqKJT6mh9FesbOlw\n\ 6YOgRHExqiMvoik8FDWXo1AWHYOiyMso3LUL9TNno+e1aeh+dTo6Rk1Du4Mj\n\ Hs52wWMbZ9x6yxfV8QfJ3LuIexlX0Hc3HXE+/qgYZoe60Y64pZuGRJc5uPXj\n\ t+gpT8XDoiT0pEaiKzECnVcvoi0uAjWXwlAWegZ3z51CdxLpgps3UP7OW2hd\n\ uxId5LN7QxDqli1BhvtC3NhMBnFtbSezqHbxasnw+s0f6/qznHYzHdfkU225\n\ M+orK1BEgOfmO2tw18EFZeOnI3aMNWImzUC+rT0yJ1ijdsQ03H/dBl0uzujw\n\ no97s2Yhd7U/yqL+RmZrODozL6O7PAXRZFAWjLRDyXgXlE5wQcloOySPJu35\n\ LUbJmYPouBmD1oTzaIy/QJDhPMounEXhz8G4cyqYTJJEtN1MQ+XH63Hvuy3o\n\ 3bGGUN1S5Ph6I3PzFjrIdSNZn7dExip9Tka6NBfN6S9iKr3GJ6kZI386K+o/\n\ +UKBAvpJf5NyOUAwYzc3/nmfcDMtsxDL6Hep2IIhNx18FFeYIlKjpEyqY6Zv\n\ WLsRM9Y59BqzhgYq/CYr0RSlEulpQeMRSh1uIp/4VCuqnQQGdGpExrJYyBJN\n\ B47pXUGuD2StOYu3KJoS+Wo3kt+0nNXX6W8w7dMRStlgtDbjLEnqir6mVihi\n\ xqgUp39UKVpdNJTWGYxIq/575tn0N+dzlelOIdlSGJi0LV5f8KjOzJQTh2hM\n\ dF5GJzklMT1FmSukxkhMcia9l5IcLad/+/fvR15enplw+cSJE9i7d690mdED\n\ n0+CFOmPVqdlBGDlGEtShAij99N2SGWmjqWoDhVJRRNbaf0RkkoCL0t1uQ6U\n\ pmgZE85MGa5ShlMZa1c0jScC4iVelX6SW9lQG2MkloQCkqfpb24SvY/+ptcE\n\ taRrvB5xmeJxLZ8Rc82Yp5iWzEfGnclHERXHVFOaph4TO5N5kVus5UQmnTl+\n\ uCh+YCcOINFSIVruYzouzPsZO1Q7qs1vZGoaybirjdhaRsL3uzt3o89+Fvps\n\ HVBs44R8e0LYc2aidZoTup3d0L7AE91LfJHzfgAKL+xDfUIYCXIvobUoAeE+\n\ vrj2ig0yJjojfaIT+XNG9gRnXBs9A6Ek5bgctBJFIUdRGUeC3UuhKDp9AkUn\n\ jqAq9hwab6WiKTcNjfu24NefPsDDr9ag+i1/pHh5k1g9bBSzVkAJ6Y+yipkQ\n\ gIrXKERyLymxGrtGyFyBYVpOrzMvPS8/cfCj+ERjBRYa/hv4SUAwFfrzOjRC\n\ Ya1SOy0UyGQwyZFHdBjVnvHTwHoOp9GfGBXoDZb9bkxppr2qLxus3gozyR3J\n\ 79fSm+hpzoolFVkwQiT1J2gAThq8xuZitMSpW4yWDMak6MPnJyUGPAop0d+c\n\ lMyEeykUyIxAAXm4BKcUTqgcjn0MUqQ26CepLzITxziOZQygWPY/VPpNVaTX\n\ 6B9HbPpJRPCpK2goARa5hWk1QoJDqgkHf6oRxUB6D+cvpgqb7q+rVONt0za4\n\ JVwNfj+3lrdL6wkwLqs5wkg0tUxsll7jhCF6ifOY2DTlKz6gDdmCdYwZs0no\n\ FxVf8X7mfEXrMJYw6meZgOT2uJrkmqKmoWnG4+O3qvExGK8ayx4hypbqcJ2J\n\ O6Q26CcPb7QGGu0pOiKovuQ7pzE5i34VzbeL0BJ8GD1LFqDD0RVtnvNQu9wT\n\ rcsX4t6cBehd6I+M9QHIC/8rymLOoTwuDLW5cQj28kLwb61xdoIdcVDIeDvS\n\ FvmOc+NscWzkFPwwxQYRmzYi/9wJZAUfQd7pI6hICkfd7RTUF6Si9fAf8Hjf\n\ WnRt8MXtxZ64/hbJKe9W6ThviZClDrblFEG8RkGFk7/Idxw/yOdg0HQg3jJn\n\ GCGygNR0lyqEpg28KH2Zi6mTThsPaZmlUo/jqIKDTLARG6iLpXxwkLpyEYq7\n\ zejtMmiKjQ5AX5ZK2WB15srR5IMrpxQPUeksZn9UOd4sDVcEcSakDUBjz645\n\ 7SCR+FVBlnALaU7fE+o+eflMRu/jaMDRkaIIL7MSqEikK4pEPHAm9bTEchE0\n\ OmcYrpSJqvAQkIKTGHOztsxNNm2lyVTKLVYS1DHHKMkccRZXghfpEyorIzsZ\n\ QvMWeSrBLzPG5hkepyfxMm9N8PRwkyZZKGTK8hnDftIzlpX0m5snSOuvawUn\n\ KdG96CV2j5ICiyKYK3SDMZan5Iq3CSPQj1fQlZZMUqCluBfoge7VnmjbGoC2\n\ zcvRt8IPmZsCkBX6FxRdOIHiiJ9x90YUDnoswBejJuH7sdb4dpy1Bb4ba60b\n\ je/HTcO3r07FnpHj8a29E85/+AHuXAtFRUo4akuuozbnGlqPbMWv/3gPbR8u\n\ R46fN64HBY1mdolrLeq5q8+SlETBfbl+aYQtY9J4VavM5Fx9Vi4hGMX7UQCN\n\ F+aSIQpHcN7knjCImY3JhKihRlBDeFMLNR9IU3lMqiCR8psW7D4ziQykq5Ze\n\ GiLkOINxMNFTL1ZNgv2Ie2YWGdDNlhL1Me41GqB80JI8TTvpelnEwRbamEpy\n\ GUUSXqZFHCLCs08tsRzfuFhxuYf85puRfF2LX35OviBKcSTkxCdcVtjJkBgM\n\ wJaCnaE0MS8zUnCYshZpkIZJ35l3Schvmik4/jIxWh3DPSkapqG8Vl8K7tFp\n\ +YdraGFwjW/g0PRoIEvpPdQCutkj19W9Jn2MRmfJHbRvXo0ev3l4sJPQw963\n\ cG/zYmSu8kM+ST+qI0+iJjUCDfmJOLxwEb7/7RQcnGBjhQPjZ5DbD0yYQb/h\n\ LyMnY/9rUxAVFIjCmJ/QWpmGBpJxdJzZjn+e3YJ7nyxH0VJvJK8gGUd19Ujm\n\ L3Hi8ZlLQnolumeIr7WNYGkIKvpaz0UOygIZm9hsc5jj00tZIBsiLn6pjKbQ\n\ IrSuX0mT9hIYSRLIUmlgsBtk6CETdGCUOkj52zNnFFb65SWTKhruvQ2KDJRu\n\ JGXCgqcyHQcrzqL/vhiM/uoFTc4cQmar1k8u42t9cs7B855/Fz0IS1dyDXZm\n\ gU9/cs2SLZzxxQwR/zhDUMagMTeJJ01rYCmBCA9TOXDzqIqCjrBwZqbRjOky\n\ SyPKIKIUsSLAPxNfDFEWv6ihfG2ONyGqw3daZGuGaiVIok8tmMOFfQum0TAj\n\ jXimwRegDEWbomMTJNJfjzPHafmNZyMWTFchQ9GT/RAjW3kipt+v042RPkah\n\ PS8XPR8EonfLInR84I/eA79Hzq41KA77K5riQtCaEYn2kiSEePng/KszED3J\n\ mVh3ZZIT4Y3L4+wRM8EeN+Z5IHvbJqT94yuSUpxFT1ky2ooz0Hl2G/73/Cb0\n\ bVuM5rWLkOnvixub3ue8oWz3kynJo3kyfXlAwGNt6RKP91Qh6b+HPcylrV6G\n\ 7UTGS6CMYUb5gbibTL/rVbMUF7DkBt+YK6vx3GxhLtICUUyTQQadNxjr9WIU\n\ wYOogdrV4gIzllzS7mJ1dZojxLhxfacoWRXpHPqbRywk65MbG9rvkHphBhii\n\ h2BlUd2S7eCK01hcL6BTWgCL/vCeVqXJhjFqWijb3/R6v+nAfwTvuXge6spu\n\ EcJ1Y5C3MgI79l1yqpUJNBdXY14UzcXe688Hg8JuQzfLTQvrVjz0l89Qj0Tb\n\ yQPoWOeD1t0B6Pz7OuR88S7KzpPAJeoMWpIi0HnrKs57+yJ1tC1uTnSxoLvk\n\ JG/IHueEm2McUOQwGyXvrcb1b/YgNy4MrWWp6CxKRM+da+i4lYLOM9vwz6Or\n\ 8fTL5bi/KxAVfp5I9fJGyYlgtNXVDWe2KGE/mTnKLBmqTDyeHYiTSx1TvWwo\n\ 5/OBkged5lqtvQCUC3SlglF2eEm/DmJ0ak1mF1quXy95sSRA2NPhqae4Oq7y\n\ 5aD3x/tX+MXwfugg29XCewtWj4b7z6f7MKOsjCaJYieS38r9Rgt+oj6ESp6b\n\ FHjwZ8YwgWf7DA04EvI9cRF0k9hBni62sECXmS0YHGgs8UjfeehKv/MFBlLP\n\ StBITRvDFGoQtJK+85Ukqrc2aA2eL/Sc8FzrSZZMYeo8qhbb0TWtwTDReCMn\n\ qc80mYuO1vGHUwxX6ETHGjLJcy4u9dff/Tlt8ItMQzUXmXjeR7IECzXJtCQl\n\ ot1vPmrXLULVzmXI/Gw1qqP+jtZLZ9ARcwFdOQmI9vZD8XBbVI51MUP5WGfd\n\ WJSPcUL5aAfUTnVF3YplKNj3Oa6dOILrR4+iMTMeHXnX0Z6VgJ7CNHTfJkD9\n\ zSo8/moper9+G73v+aNz+QIUeXgg2X0hUtf9Hm01NaQHZD/yPWMOBIxWzNhB\n\ T4GM+luTeqk7Ewbr3nxumdyREDdlhTb4coSCl0bsww3itnM2YkDWD5g++2aE\n\ ppLyZoR4RF852SqsuAv+V1RiuY5KzYGwvD/VX3BvYoh201asA8WN6S4Wy/Dz\n\ XMRQbgyvQg21YlPGoEWpnkAmXCtOJLwfhN0KBUYUnjIcmDz66JdvLFk6YbDi\n\ QwFQta/NMgSlF8Ukg2908iVqccFJBFFODXSJur/lcmO6GWqSbpgsLaYScZ6q\n\ qy/T3rwgTYnbuOyWZ0tOrBSj+R/LJURlmN8U0uEnjwz9xX1LTz5xGBL8zvyl\n\ pk0mzuS+Cesrbswgtr3VPW9llF7247rB74APM7kDLuxvqZMbW7RejUPzGg9U\n\ rfVA4TYfpG0PQP2VA7gXE477KdHou5WMBC9/VFnZom6MM2pfc0bNKEc0jnVC\n\ +yJvlP/pj8i5eAolaQmoTUnArdNn0Jgehwfl6biffx0PirPIZxZq3vVF45rZ\n\ qF+zCK1LPdH5thda3d1RMmse0twXIHnVapT89BPJeGrZRNMvT7GQn89SM4YC\n\ bBLL85wxALmF+1hElpd82Iqu77DnKIStD6mq/gizSbqzUJbjpHPMVGMZ7Lgx\n\ wmEAMS+ScxjhAQnDbV+92paqdIc9W2EcXXMmMs1OVoa6qr08XMw1Ffzm+vB+\n\ E5iXmygSFpcgrwUx9fUMMrD6/TKUiSNY8ilxZZGG8wyTZTJDNVobkyelyNPq\n\ BFWddatNsTRiP5njZcOMD9QN1y+nCeu6PJgRqE9qnh/MozJpffEww+DW0V7n\n\ iy3KfgZlH+EcqHSdswoP94WzptJ1DkrKXoeFIophm7gmpU4GtNMmftbLkMeE\n\ c78s6ZssSeePagpJoSoq56dleZKhRWz9nYxVs5t+b0BDLtGLMreVqj3uIVKH\n\ wYQcT5g+ZDxcpWM/PWJlQG9CPqUcyDWkN+ODvlNVB31NuXOggTEYV76cQ8Ym\n\ YxMzkfzs0fTdf6FixUJUvk+I7CMv3PjjcjTG/oju2Ag8TIrGo4I0xC7yR9kw\n\ W2lqVb7qgEa3+aj5aAOyju5DXkwk2gtvoqsgk2Rb13En6hKqoy/iaWkKHhVd\n\ wy+VWei7Tchvy2K0LHZEzVw71Ds5onnOTNTYz0KZ/UxUuM5CgcscZM5dgIx3\n\ 1qE05Bxd9lMGk1aUy7cZzKQg1kIFwArFWSjIwB6X4YDEIdsIB0UapFyrf6xm\n\ hIQu9EaKSsJmvP75PZaJ6NMAS+UZDQEZjaNrPZRWKdvChmUiL1uKDYiJH0cR\n\ Ht/LB5eM0zS2BCk4REzAmM68lvwcSJeQgUhPzdL7RqmQXdxCo2YZEI0R6Rmb\n\ bqXqGAHd9S4TtNanjZRvyJ28mHeU6iFPSy1dlRBHkktkNQpP3giizEUHKcBs\n\ goWFA2RCyqZpgt7xPP2iShmuFdCDYxyphAdBVQ9+GoxgC5UnhUNvg6O9Ecpy\n\ EH/Ckcfb4sN77KSTsuokPhfK6VJ5JkZPeaw5biVP5+jCkWnKs1QoqkufrilY\n\ ZyiZPdghydS9KsElP+hGxXHI5Uwn7onzOgYPLyqhl/EDsfpnLeU1UipzqMKk\n\ 4uOMRk6x4qht+OQnT2cMs0Qt9w8xIDjOlfSYmNbhbrlsqKnnMLnWsiFDFEO0\n\ RBvyp5bjXtJjn4YbazyZY8/LyCcNSAhZV4eyNxej1MMVhW8tQFaQJ5I3LENz\n\ zI/ouRiOBwnReJCXivOLfJE8bBqK7WajfN1KZO/7AukhJ1EaFYmq6MuoSYhF\n\ S1Yy2nJSUHM1FnejIvAgNwGPcuLwtPgG+vIz0LDBB/eXu6LehSSGdjaod7BF\n\ 82RbVEyyQamrGyrtZ6PKbhaq7d1QOs8DBe9tQNXFS2i5U6ocJNa/jEAZzLyM\n\ zmA+i9UrUcNVuY3yHLjwbAXLw4x2Ylh7bIfDUrXQx7hNJ0I+b1tBVxm29QG+\n\ 0r78XLv4dgAKbfR+ylAGZepzsMpSXtBmZUrx/SblgUQDoxnki+8q4UZLSlnp\n\ UVlwsJyGSRCrXg+UPS899s9xk76RQdZWvjxKlaqILxSgsqmRbOFOLFPWJfrR\n\ VyFGy37oQ25ntHJqRHkxDWmTZ4r9yOgvczM8WalECEScyJkDmSAchzRMqeVw\n\ QnayidceqNJYZViSOs9AXpM0ykZqlBlSD4UyrXr8oRARPV/pp55YprWUOEpg\n\ Qo7SypMsajFap4yHadSboFHPUoREGzR8/SXq7VyQP8cNqY6uuOLoiMQgXzRJ\n\ kBiGThLCNyXF44z7QiTOd0f2lzuQevxHlMVeQsO1GNy9chEl4aG4FXIGBaHn\n\ UBUfhcrYSOSFnEZT3AV0JFzAg5vX0JtzA+UrfdC1wh21bs4onjsXOb5+KPhw\n\ K/I/+QS1sXGoS0gwI//iafCWEIeGK1GoiyF9fSvPcL1BOUEvQZVhSESnxEhD\n\ cNNPZ+MyW7GyuN/KW+azQIl8DWLm4Qb6GQR9amkOpi5M0WhFayWErXxomsLf\n\ y/OyZgP3PCVo/oTsqP/wbBCeif43zQb5FPs0NPz9B9yd7YYMG2fETLFH9BRb\n\ RFhPR0ygN2ou/4Dms6dQeuY0Ss+F4HLQKqTu/wqlVyPQU3gNDxty8KgxG/cq\n\ MqQtxYbkaJRGnEXWiWCkBx9D5vGjKDx1gpD8WbQnx6Iz+waKlvqh3HsBchcv\n\ RvE/DqNGwBpOIHris1A9QE++Kymd/hjBwANf5DZbZQ4ZbYzJ3hEFslBDUfBZ\n\ B/uAW2S0/jiN8c5eFaBPgdlpieedA+qDD+rDt2NNzgvTj/fT8alE7ebiNpJ8\n\ AMmMajKUGcYb6RIWxl5VammNZZPTg5/N4kG4OF+NJojUvNYs7WdavMKnRckd\n\ 1Gz8AKWT7XBhvDWiRlsj6XVrXJxqjeOTpiLUyx0VFw8g79BhFJ84jrLTJ1AR\n\ eRbNuYnoupOMrspUdNO/0mvoKExAc2o0WjJi0JEZibroEOTTHfkfDiCN3F94\n\ 7jQZiTfRW1mOHB935HrMR9GhQ7rRTE1jeLZQ4qp+AgxhWqjHobK/IPMHS7kJ\n\ M3bpl4ipTO5gowNOGjOD0oUUEPGp298old59ReYkXf0xWXmcJjXoY259aDaA\n\ NBObs+biiRDTk8BcqMyWMZUzUuKwf62fwf7GMzGAuZJS0oxV68VT459tTI/i\n\ 3Utf25qahtwDB5FCAp9cW1dcc/NAQsAKxHstQca6DYheHoATTi649MpUZP/5\n\ MzQmE5i/W44nLXV42tmEJ/da8eRhF3552oOnT3rwS18rnt5rwqP2Rjxqq8fj\n\ DvLXXI0HtZXouVuBltIy3G9twf/961+4G3wcqU6OSPX2RsWlS076jjNejJKP\n\ g+kHKe+nN031tpt8QZ4jYqDyu2cZHzaCF/nbotw0emCqRj2rQd47QaOeqqeG\n\ oKO5GfE+/ri+4i0Uf/8d6pKT0VxdRd+lyuBuMhrKypCwJABXRk/EERsbJHz8\n\ ARpOHkbDmWA0Rp5B+/UIdKZfQXtqJNpToqQXZ7ZdD0PrpZNoDP0JjeeOounM\n\ ETSePk6+n0B18FFU0deLbf8Y52bYI9baBlc9F6Ei4qLuXxquqhdVJgDQ0YFK\n\ gsqdbS3ME5NRmZmNrAM/4vzqVdhnPQln585AwxIP1G5Ygo796/H44Ab8emkn\n\ fo3fi18jtuOXxI/x5ML76Nu2EJ1B89H6tita/BzQ4D8bjW/OQelcV2SSaD2e\n\ qBZubY/wqfTVti4oOXlSpSI/lsBUlB0+EVFrVuPg5InI8ZyJJq+FaN+6Ck8O\n\ bcWjr9bi0Q8b8OSv6/Fr8Cb8+vN6PNm/Cvd3+aNniTP6Ns1Hd+As1Pi5o2nh\n\ bNR7zcGdma7Id3BBPAmbTr9hh8iJ1kjfuEl+j2ujLHc8c0NLYxNO+vri9NiJ\n\ qJ/ngdZ3AtC7YzUe7X4XT/+yDj3bA/FgbxAefuiPp38OwMPvV6FrTyBal7ig\n\ eb4tOjwI+vl5osp1Nmrf9Ea5+zyUOrqg2G0mkmc4Iub16UhYtkIaHZL8BrX8\n\ 0sREhFlPQ661A5rm+aJv3Sr0blmBe+8Hou2PK1AX6IvG1f5oD3THw93L8ODL\n\ lehY44023zlodLVDtb0NKny8Ubr/b6iOikL+F18gY81a3CI+vOPiipRJ9gh+\n\ dSpu7tuvIf81lF2OQuIMG1QtWoCuZUtx390HTUErUbxlE25/81+4c/wYcrZs\n\ Rr6fNxoCFuH+uoXofs8X7QtmoWmWI8odnVEVdo6vfrXV1aI8LAx5dP7MIvA1\n\ wQah8xfRlxDL4utF8UMQt349MkhX9Xj7oG91AFo/24P65CTpJcb8rEhrZSVu\n\ /P495BCTmgM9cW+VLzrmzkKbvT1uvb0C9dnZyrkQOjlLyAhLXuiDmOmOyP7+\n\ Lyq54xgaNNzKkyZxrfN84soVaE9PQ2dTkyWLkqjI9I0bUTh7DprnupOU1A31\n\ r0yTUkOiGj8kVUOmftZH2xDn6UVazJcE1YmCLJCz53NkzpqHSp/laLqZO5TJ\n\ r8vIkN6uVjV/NmocnFE+wwnlISHD2F3UjOxPd+Hm13+WJi8trpUb5u/tll7d\n\ /PZbyF+8FLW3bg1nDig+egy5JDFutnFAddC70glBHsXVEn7pbGuTfklN1ohN\n\ mqP01ClkBAag/k4Zu8eCdFwuUhb5osHaEWXvvS/d1i3f9joPQAh1pW7YiKqU\n\ FOXFpbQs65NPUUJorGj7DvE2Lq2zpUWBex6pVF9PRtrcBfRdvDrxHg79tF+S\n\ V7yN1PXrVddt2fXMP27D9VVr9BbKzet0v/l/ed5zfg=="], ImageSize -> {516, 41}, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}]], "DockedCell", Background -> GrayLevel[0.866682], CellFrame -> {{0, 0}, {0, 4}}, CellFrameColor -> RGBColor[0.690074, 0.12871, 0.194598], CellMargins -> {{0, 0}, {-3, 0}}, CellFrameMargins -> 0], Cell[ BoxData[ GridBox[{{ Cell[ GraphicsData[ "CompressedBitmap", "eJzVV0tIVFEYvs4dx9FkFtZCAh+LyhLMDDNNXJio+UILKqOVqOHbUtEEH5BR\n\ ahmC2MuQHhNFJpJIUFRChK4qNwWuWrSsdfjI/s5/zn/unHvnTpoMRBfunfP4\n\ H9/3/+f850xJRVtNdWNFW21lRXx+S8XZmtrK1vi85hY2pIdomjbP3th4DdvA\n\ mvSZh56eHja5/k8W/9HB6/XC7Owsvto5/hVjbJZLbDWLo+hSezS+TBy/Yux/\n\ E9f5NxJWZmoAHxzHZ/l+AW+vvD5v7gs5B3ac2NLchg7OYXvt+2f4uTgl9bis\n\ FgGrC3f4lDSDbXzWvr71M625TBbx/fXjG6rIaRWwAkAnVoq24CjAhv+RIP1q\n\ DlKTiFHTwb9ibKk3Bo0LN+y7fCsT6CG5UAOfZIjyWzaTG5d/bibKEYLw5BRd\n\ a/wiueTq3CAHh68pS/07DdKYKUbKgYMsSxhmjIl0im1uws6L05QlnmuBCR34\n\ SZuzYjcmGLsDYjcx13mX4GsCf7iBX8UuVQkNk2Wj6IzlkVzRmBJsxsCIwUxN\n\ RJC2FaHAFWEQ2kicXAYhjAs3ycAzdaeMxXAyX6vMMsafqXgC7RHeRjMoz+NF\n\ Y5vKlp1cqB1ZDLHE6+Z4/ZajL0e6ylqpAhaImH2qKWJvBydFGBSjINikSG58\n\ dE96tPEjjDG5uHABYt5k6aMFt5EcybXM65BdlQzzi49EzbyJZSCgelSo9hTt\n\ 4Qp1p9W9bo2Cb2tR6ZSrNHiJQQhqEG33TpSMr6gdbJHZ1j1S5cUDNwIWaEZa\n\ nl6sv15+jLpCtZHL+GqGQ6lkan4kCUIhuEYHBB2Isx1w7kqteCy7NrtJdRPs\n\ 3aSr4aIdkWCAlgTQu1wfvLpTVmyzphBSzhm+fLk+ydodV4H8oCwdEbhee2NY\n\ miU2tfxLvwYuSjO2KVS6Uu4s8Im+x49+IAoWug5+ZfCYFp9SP6w5DMqBFeq/\n\ 6VgdUWs/lQy6+viOS/mYyoZLVB1WWWRBpEucTrcHyzVQnA2hKg15mTQOFlzx\n\ SsHhQXKSN3nx5BH27QKlZDtNu0m5TkpuFqAmVUnGvwYK16Yrn+j/5Y3vn/01\n\ iCfx8YIi6G9q4r3tmzNxLy8fBmtrTSY2+OcqjsQvtrfDo+wcGCsp1R6qU064\n\ 0tAAk4eywJuTC30dHV7z7EBjIzxOTYfpjCwYqK/3kL2e7m7D1YjQiOE/Lj41\n\ erIchhjiuwl74d3+DBg/eiySNK8yg7dPnYberi5tVGjGkuaD3HzwVp+BqT1J\n\ 8CElDV4UF8JwVWUEaV5jmpOHc2Gkqkq7rmqGwQSj9jEtHV4lJ8JcUip8Kj0C\n\ 02VlcKGzk50YgslQfT08O5AJT7Ky0TlZ2EbGL7e2wmBTs+TAvm641NcHLwtL\n\ YDFqBzzdvQvepxyEL8VFsFBUDDfr6sIUw2/2ZcDzuEQYO37ihjCshfwGPGMf\nPw=="], Evaluatable -> False, ImageSize -> {199, 30}, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}], ButtonBox[ Cell[ GraphicsData[ "CompressedBitmap", "eJylVb1uAjEMDuSAUqTr1J234A3aqQ9xQpVgqFpRZkZWNkZWRkZmRkZmVkZ2\n\ xtSfY0e+9MrSSLkY27E//4W3aj55/6jm03E1fJ1VX5Pp+Hv48jkjlm8550a0\n\ y6EDHYiUzygsFgsS1o42Hw9hs9mE6/UasHCu12tI+KTVYbUy7Ha7pIZ1uVys\n\ GtPL5ZJpmLzdbrgTvXgrol+0XBHO5zOr4irtyO7zTWHx3u/3CRTo1Wol4FMM\n\ WBBB5Xg8MlDQsE6rYLUnjkFVIdputwm7qCYvigLmCCi5AvSSZapnbUFPY89l\n\ hN4zhE44HA4J3el0EtMcjHusAUHG8gTX4ikZIwxqpmwM1gwcqh7xC8k//CtU\n\ YrcFIthaXS1Z7IJuKiMyqcBI3pIIvHUtcRU5rDYLe4zKZgvVkLS4qJObw3eA\n\ +qeIkQG9Z20obm0/U2lpP5/CB09jRxW18mhPyoO7F9xzY87zNrTIgF56ovEO\n\ PGri8BsoRSeyB7U2w7ZtbNsOg1JIYCioBixtczewwZ+BWW9IEcrVES8NerUu\n\ gGcZqMju/womz5vtPnWNHOqMUkf+v0AohmIDDT19T/I7pBc90Rd3ZBycrY5W\n\ AEOn49JUHW+qowMKm6STXgVvX4GUTfsqEB1no8uXbTZBk3EdJ9RLbsgY9FJj\n\ 6kaXyMMRvelzjWRpIInt01MRX+KGPxo5XOsHSMiAwg=="], Evaluatable -> False, ImageSize -> {55, 14}, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}], ButtonData -> { URL["http://store.wolfram.com/view/app/playerpro/"], None}, ButtonNote -> "http://store.wolfram.com/view/app/playerpro/"], Cell[ GraphicsData[ "CompressedBitmap", "eJzzTSzJSM1NLMlMTlRwL0osyMhMLlZwyy8CCjEzMjAwMAExnwIDiP0fyIQS\n\ jP9bWloY/8+ZPZuBgfF/V2cn4//VK1cOFnZ7ezvj/+XLlgFdyggAJaVbgQ==\n"], Evaluatable -> False, ImageSize -> {2, 14}, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}], ButtonBox[ Cell[ GraphicsData[ "CompressedBitmap", "eJyVVj1vIjEQ9bIBRKKjyClFOn5NUvEjUBQpKU6JctSUtHSUtJSU1JSU1LSU\n\ 9JTOPHued0x2SWJpWXvGOx/Pb8YMR+OX53+j8evTaPD4MXp/eX36P3h4+xBR\n\ WTjnhvL0Bw5zL1P9GfrJZCLK7NUKr9LP53OPgVWQlVi5O386nbC0G/x0Og3z\n\ xWKRybHGgN7KMYcdjPV67TrBzZXfbreeQ+aMBQOfYMWty+UybZV5S5XH4zGJ\n\ xTK9xeB7/nA4BBEfbFHLYT6bzVyRA8EcEhDuPllnvjZXmiJOVs78VqtVJocN\n\ yJgUwrgKvnrBFrISWXhgd7PZhO8Uc9dVUBQM2onhdlOocKHm6V5SgoFekFlk\n\ 4AJuMd/tdn6/33+PTJlYUMn6GQtgktFbBJAVdOKG8lJNGnIlULCVx3seLfd2\n\ lBLWjdFH8+2MuwSlc6YDcMpfAQHGm0GIVCsDaJplxMVdJ5D5EWuCbz03Zg4T\n\ yErC0My7aRuzIWUS/PJLgKtDaEShpZlCDVcEsYq6zlysVDJczqxAZV1ixt+s\n\ Zs5xYG2wPCmHZzACMuiwjqSNfqDT2pAcILu5BFAWQwVqvwmcVMsYOAzwwcTX\n\ UpgotgAhXFJAgCoQ+29L5zYLzCZCOZIHORko25/dI+B0GsqGn3wtm95FTBRH\n\ V9ak09Zf08vYD6V2gLoTNrDrEV3Lip8wxXRXASvylMcANlBmbqrY6kgTUAlG\n\ 2FYtNGcBpK7zHSQSmCMnTNCNPZaUZgMEpNpj1YJekikdFkidTNLUkm2nAmBj\n\ QfcutYNgv82ClxIquO4ilghrG1vF0z/Z5U40eDEiFl72X2PN7cWLzNX+M3HF\nJ/Rd8Mk="], Evaluatable -> False, ImageSize -> {77, 14}, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}], ButtonData -> { URL[ "http://www.wolfram.com/solutions/interactivedeployment/\ licensingterms.html"], None}, ButtonNote -> "http://www.wolfram.com/solutions/interactivedeployment/\ licensingterms.html"]}}, ColumnsEqual -> False, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}]], "DockedCell", Background -> GrayLevel[0.494118], CellFrame -> {{0, 0}, {4, 0}}, CellFrameColor -> RGBColor[0.690074, 0.12871, 0.194598], CellMargins -> 0, CellFrameMargins -> {{0, 0}, {0, -1}}, ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{ NotebookLocate[#2]}]& ), Appearance -> None, ButtonFrame -> None, Evaluator -> None, Method -> "Queued"}]}, FEPrivate`If[ FEPrivate`SameQ[ FrontEnd`CurrentValue[ FrontEnd`EvaluationNotebook[], ScreenStyleEnvironment], "SlideShow"], { Inherited}, {}]], Inherited], FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (May 21, 2008)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 507, 7, 67, "Section", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[1100, 32, 176, 3, 34, "Subsection", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[1279, 37, 2256, 39, 75, "Graphics", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[3538, 78, 235, 3, 34, "Subsection", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[3776, 83, 4542, 76, 128, "Graphics", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[8321, 161, 18548, 413, 19, "Input", CellOpen->False, CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[26872, 576, 12975, 232, 434, "Output", CellGroupingRules->{GroupTogetherGrouping, 10000.}] }, Open ]] } ] *) (* End of internal cache information *) (* NotebookSignature 3w0#Aq54E71ZKAgpkQszJ#rG *)