(* 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[ 42996, 972] NotebookOptionsPosition[ 42386, 947] NotebookOutlinePosition[ 42758, 963] CellTagsIndexPosition[ 42715, 960] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[TextData[StyleBox["Graphing Rational\nFunctions", FontSize->48]], "Text", CellChangeTimes->{{3.394531363572055*^9, 3.394531369437131*^9}}, TextAlignment->Center, Background->RGBColor[1, 0, 1]], Cell["by R. Dover, IMSA", "Text", TextAlignment->Right, FontColor->RGBColor[1, 0, 1]], Cell[TextData[{ "\tEdit your window values (", StyleBox["xmin", FontSlant->"Italic"], ", ", StyleBox["xmax", FontSlant->"Italic"], ", ", StyleBox["ymin", FontSlant->"Italic"], ", and ", StyleBox["ymax", FontSlant->"Italic"], ") as desired. (Be sure to leave the semi-colons between these values.) \ Then define your choices for both the numerator and denominator (separately). \ Examples are given in magenta below. Lastly, click on either ", StyleBox["\[EnterKey] ", FontSize->16], "at the far right of the number pad on most keyboards OR press ", StyleBox["\[ShiftKey]-\[ReturnKey]", FontSize->16], " (Mac) or ", StyleBox["\[ShiftKey]-\[EnterKey]", FontSize->16], " (Windows)." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[{ StyleBox[ RowBox[{ RowBox[{"xmin", "=", StyleBox[ RowBox[{"-", "5"}], FontColor->RGBColor[1, 0, 1]]}], ";", " ", RowBox[{"xmax", "=", StyleBox["5", FontColor->RGBColor[1, 0, 1]]}], ";", " ", RowBox[{"ymin", "=", StyleBox[ RowBox[{"-", "15"}], FontColor->RGBColor[1, 0, 1]]}], ";", " ", RowBox[{"ymax", "=", StyleBox["15", FontColor->RGBColor[1, 0, 1]]}], ";"}], FontSize->16], "\[IndentingNewLine]", StyleBox[ RowBox[{ RowBox[{"numf", "[", "x_", "]"}], ":=", StyleBox[ RowBox[{ RowBox[{"(", RowBox[{"x", "-", "3"}], ")"}], RowBox[{"(", RowBox[{"x", "-", "1"}], ")"}], RowBox[{"(", RowBox[{"x", "+", "2"}], ")"}]}], FontColor->RGBColor[1, 0, 1]]}], FontSize->16], "\[IndentingNewLine]", StyleBox[ RowBox[{ RowBox[{"denf", "[", "x_", "]"}], ":=", StyleBox[ RowBox[{ RowBox[{"(", RowBox[{"x", "+", "1"}], ")"}], RowBox[{"(", RowBox[{"x", "-", "1"}], ")"}], RowBox[{"(", RowBox[{"x", "-", "2"}], ")"}]}], FontColor->RGBColor[1, 0, 1]]}], FontSize->16], "\[IndentingNewLine]", StyleBox["RatsGrapher", FontSize->18, FontColor->RGBColor[1, 0, 1]]}], "Input", FontSize->14], Cell[BoxData[ RowBox[{ GraphicsBox[{{{}, {}, {Hue[0.67, 0.6, 0.6], Thickness[0.01], LineBox[CompressedData[" 1:eJwdlnc0Fv4Xx63nsRUyS1aSkSRSGZ+GiGgpbSMzSqIQUvn6NikjMhpCMkv9 SkrcG5LKypY9H9F6hgcPHj+/3z3nnnvuua9z/3mf9zlv1RNn9rnz8fDwtC/0 /+ZFmh1jfl4aw6KsWopOj5ORUNmJzllptAW5q3anxsmuxb2Tb6al8bLb3luD 3uNEZaPf3BmmNA6/3xYr7jVOym/GCfWNSCOeGgw/fGKcCOm1LcdaaXz99dvF Bodxcvec887LqdL4TLu5y5iMkzzegEweY2lcdj7L85v4OKG4WxkoHJfC738M jELvjRHp9o+n0mMl0f1L6FCT/BjZV5HiqvVlMTYnbr7gePMHCf1jdipmcBG+ 8iW2Ha2jpDgoxfv5bgk0mV5qdUxqlKi5nX3SvkMCD/DYrPggMUqi9+zo490q gZ7Hdp5VFx0lJ7TYB/YbSmB/UuGePv5RItq5d8u0vASOFOd3b5qgEUdzYflt A+Io1zA85tdGI/yU4I+t58RxU5w1szaZRnbFHVDhJouhm31VXrYMjYQYLLK2 ihfDTwaKeZ6SNJLVWH02JkoMWWeGQ9TFaYQrZVqhdkkMix48Co8VoJGCeDUP K7cFflNbsSVzhIgl/MmL0RPDU+lsjlTDCPly74axeoUoFqWLfFO4NkKsHpTu 2vFTBKNqtB8LjQ2Tv9FdswIjIvg+V/Kq8fAwSQmfyf3QK4L0uLVfTvQNk59O GwVNmkQw1qLH+VnrMIlTew2r34mgRZX0MYWKYdLzNF9f+roIxrwqUzBJHSaB L1OletRF0E3PTzx2xzDJ+nShNeCoMBqstB6KThwiyQaB23L2C6NPoLudYcwQ iXrgX9hjJ4zcmjXLWm4MEf8An5vWm4Vx0a9l9ZSLQ8RM+bi5ssYCPyBapeY6 RJoDN2d9+S2EHBOzQgu9IcK3UjBQNUII2SoHy5gwSCZi+AcdQoXw/b2Zu+3F g2R0Zn531DkhDD3R0lX0YpDUfZvSmvQQQpr66odOGYMk+eJYd81OIUwzd2M7 Xx0k+i2124NlhLA6baXF0p2DxDHyrkx9tiAejbl1fHX9AKkjbMHgdEEsvUab L/o0QMjMQY7KfUGkzHGGNuIAUfFf2ut/RxA9VKgHdF4MkAGn9GzZQEHMnynr KIkbIB4mhSaO2wRxa/n2Z7f2DxBfxleXX91U9Do3pvyksZ/0FKzen9hGxZF8 SfftX/rJ7pN3LMk3KuqK3yrt/tBP9Pv26cRWUpGdpRbOLuwnjNoOlmEeFY1b UyU/3e4ngTm0a2HBVEyeGOv7vqOfhDvzPxOVpmJv97eZ0KI+UlhvdbtZjIp5 Ruu8NhT0kQHzKN8HVCqu6RWsHc/oI5ZKMmvWcCi414rsMo7tIxLfVxbu66dg b65rrZNPH3lob/My+TkFXzO3e4wr9RGwjC3StKVgekLRWcXJHsJ43ZL4dzsF c+nO6UoDPWSFhmLQW0LBs7El1qK1PeQ6f4bxznUUpGksu/QkvYfswVfFvooU dPZ7KNxo20P6Nra/ez0qgOI5cjO/73cTntXKsO1fAdTuPVC5XaeLhMlucfw3 XACNd8lZ2Up2kcn5E3NVQQJYFqBsYjjZSX43ZpnYeAug/5HDuU/LO0lnsF7x nt0CyBMmzJI91EmKKs1eHFcQwAu6X1eNhn0np48dywgq4EedFg2hivx2Mro9 fOvbLH60MficfOt2O3Fbk9bPecS/4L9LO/T82skRviHl8Dh+9Awr/cWzrp3s yPa5HxnEj/J54dVNRW1kBSskIXYLP8q2nFGnF7WS77eSr+W18CH5ubT8b2Iz afqoku9cz4eq7nWxdeebSc380waZz3yo27+qJ2J/MykLKFK4/J4PbVc9KT8t 2UzSjzbl7c/gw6TUmFMWN5qIt454w5wfHxrxewQW+jWSmS+X5feI8WGrloqd 4bIGwhIQMqNQ+TB0TGvD1bF68tv8jsu7eV5UokdsMLlfT/pePshdweTFkw87 jb24daQy5Z3pdAcv9hpz0t+U1pIob5Zz+lNe5J9bXuOn+ZUsE/HKYW3lxcMs 99DptI/EsawmSs2UF2/PtLtEmn4kj/3X+u0x4kWm+5jf2bZKsrKTsz5fkxcL Tx4+c0q0kqzJj650FePFM/tka0t9ysnWXf/pbWzhwSSZB6Oz8mXkZBxX5oUX Dw5cynv/Q/Q5ybd0ne5x4cEOx0c+v5cXkN+cT11iR3mwuvWNZYZeHvF3jc3w suNBufU+p2e3PSVhhivWqhgs3LU8auduPiTLC+KTlk/OA1myUjZkswf4GGlT OpfNg8949U7VtpfgT3n7NHDRPJg/37FWnvoKQlqsbKT45qHWu/6DhfFruHne /Y41jQs9Lm2TDmlvIPd1mkLxCy4MFfNKi99+Dz+M5PQSLLkQ8oCbWeJbAX8p WQ36G7nAKyfl6a5QCVMthgE1OlxYZ38p3OljJQgF7ivml+TCBsnGJnvVKlhV FL3Vv3MOuId+Hsn9UQ2e6wUO7vabg+Om+5fkQx34UuOnx07MwZ4M2pUtV+oh sFX1/tUDc+D/N/0fI7UGuBpI+ks3zYFIkVFbFa0BsopCfHQpcxB04cbturBG GF5PvyScMgtXsLGxoqEFXI17sisqZiAhK6jH1qgbPLKNHSzfzIDDinNqZvnd 4K0Qy/85dwYo1VaWhit6wG9mm2Nd7AycPp97x0KuF8IgR7rDaQbSa1yFNP/t g7tW58N/z3Cg81VWz6P4AbhXXKdz9g8Hum6afNNsH4AUrVUdzAEOkMzMpL1K g5Am2rlu+jMH4n81XYjPGYSC+s0/+JM4EPtJM2nxlyGoOii2X8GQA18jP2fK rKbB52p33vuaHHBJXBvzPYwGNRvh2fKlHBi3XvX1ZC0NGpf6C6/g40BPWIUU 028UenvbyvQapuGo/b3TguU/YMozQ8vi1DTcNLKxUL3zE2baZ1urnKZhnj24 TPLXT+BaO0Ra209DvGX8CT7bXyCgK9y7a9M0ROsnJU+L/QbJv753DwtNQ2W9 iM/L1D+gHbxp3jdzCtTqXhroBdMBu3dpDyZOAc/plFTqazo4bHM9cPDGFOR4 l/BlMugQIRGVR3ynQOf4zgJTPwZ0ZHYfXLxhCkqs9Ob2nWfC9W+XC198nYTD 2VWyHbkTsNw4oVOjbBL+SbUcY09MwKv7OdSUwklw8uwfUd3Khj7PxmMRCZNg 0/+b/rqbDcZcdWF7p0ko6ZeMuKg2BSPan1xYDDZ4VRkyj41yICymM8prmA3/ yKPcXqsZkGL/edPVxob3k+HB5U9nwPyDvMTH92xY7lD1c/PpWUg46P0u4Sob dFa/+FksygXt0vBh4QtseD4oe+5xEBdQLX5xuA8buE4Rqw4Oc+HnrxIPjz1s 6HRh3TxUNQ8WkeLSxopsSFQMCBBs4MHvP1TN88TY8NRhRrhbnBf9dq8/qTw/ Afe4Zjq1tryYqugEgkMTkBbiE7W0jhcZhYU+7QULu+X1VQ69fPi4277ywpYF 3pBFi7CgoMGQAafZcAKqx9IHUuMoWDkmqa+/agLs9+boGw9QcGSyPnVEYmJB h2dL1K5SUVvKNsC+iwVpoQYjygOCWCKvk/OsngUym7fkPTITQltlkV7hChbM 6zRJCqcKoa9utQ3msIB69KNw20JOeWlpobY6iAVqfZHqmyZFcJud+qHr3izI lRf263YVxWZ7vtuDx1kgdVKTn9MoimxnnE62YAFDahOHXSyGJqGm36hSLHBz 1u3PyJLAmitLBU9QWFDipT//TGsROl7nmJZOMeG2HXMlb+EivJxQnB3Qy4QD xssiL7ouxsrnhpf78pmw2CEycMlCbj1QJF1kksaErsqzOzP6JXHkPWM8MZ4J 5RH6x30NpVDoS+FBuxAmaFxzrlTsl8LkhjvR2aeZEO014KpvIo3abb4V/C5M uGv9S2j8njTaDemueWfFhAvcdvh8eAn2jIm6y5gwoXqWp2ANLEE/+liKnx4T ZDLvpZVpymAcN5uqKcOEJAVRfSafLLbKa/TEDzDg7ZygdvSIHHoqCyz508KA 7YdflvF7y+OUxqC1zWcG5Ad8FtBkyKPiuseveQoZ8LFKLSlUUhHzNl4eP5rB AMWlZzaa5Sii6WYn1TeJDMi8kqhRa7kUHe2Uok9fZMB8pueLt3eX4R/72fLq BR/tztBW7diuhJePdE6puy38K0pi23GVMN0z2e27DQNS9Q5vUbqmjOt8g1OM zBkQ0Hw1fquuClaeO9gQs5YB302fdD9PVkHaFRlTK3kGcL3lnohFqqLIxed/ 4kUY8PRrQsg/YmqoF2yd0TdLhwKNklCH+2oY6HtRJKSfDlUhJSfvNqtjykm5 sqomOmhQ3DX9wldgmduLs9JVdDh/qtfljoEGUo8Ot+fn0iHtiVxFVOlK1Ha4 FDV9nw5X2OZKbxM1cddehc2Wd+ig0x7e3xC+Cv1t/8OMu0KHjeFT632CtDDB yu5pbwAdbp+jWxyN0MbirbQjuh50OLUnIr/ksQ52mV2RuHCIDuOjO2G2TRc/ CSzhpdnSgef/pYf/BVGpHS8= "]], LineBox[CompressedData[" 1:eJw1mHk4FV/8x2WZe+2yK0t2ES0olZxP9lKoJJQ1fEuSbpS9LFkiJVuWZEtI KURSRtlCizXZ77Xve9yu7Xd/v+f5zT/neT3nM2fmOfM67zkzkg43zjoxMjAw XN7GwPC/LaX0KlWyaxpn+L9DBcB9sN+peRqPE/KjyZYoQ7R6xkbA+2l8NaF9 0KtrD+yuEj/67u40vsOA+0eUkRLcvt9n2eg4jRstLD3alqAINSdTvYZOTON1 V3gOfZ3cDXYdIqUC/NP4cXPR7M5CBXiT/Kdd5d8ULtx/ba5CXAHWbROXDPqn 8BXRwAiWeHl4Osm/3yd3Crep8+nIjJeD0cI2k9iHU7izwXNhZgk5UPN84lZA msItB/f8GHwtC7+2uAv6Nafw4IHM69ndMiBa+7NxVXIKT+LstqPckQGXBw8n eAhTeGfKDUljERnABNjldVom8f2MnSeL/pMGs+4GvUulk3guk4GhGr80ZD4P d/RMmcS/fvt5mFYtBVqKWOZLp0n80TfV/vg9UuCJtolx0CbwhzFI47mYJHxl rjoqOzCBv8xJZigb2AU8jQFWWjUTeHVewpexrF1QYLae6B49gcc0euxSOrAL aCIVpRG3JvCj93z6dlAlwHDAuyPTYgLX5E/INnkkAcNXV3k7pCbw6Wh1niv1 4nBgb+n+WcIEPk4NXmO4Ig73lj1MCTPj+L3649oe7OKw8+7iw8Nl47jWb77g a1ZicDZuhphmNI6XdW2rChcQhXTLAvmyfeO4Yb3HckvDTpgVv6bfLDCOl4du aEjd2wkP8saDGcljeN82EilscQd8qRzadPYYw0MqY59emRYBrpBMsXuWY/jB q0xco29E4NIJe80krTH89t/axxSSCFDb+r2biGN48HI8j9iWMOyb6Fre+2wU zwoyHDSRFwaPeeXdQiGjuM31LxdqVoXgw2qg9abLKP6odkFFvUEIjmOKdd81 RnHFw8lvZ9yE4Ky0T+LV9hHclhwutVIjCAmKP5tMK0bwww+d3MNSBaFnvxSD RuYIToyWfD3gIQiO0HgFcx/BZ94Tf/+UFwRP6x1HsthH8IqjYnuFEwTgo6Ob 24PFYfzV8SevTG4JwOa1r5k3u4ZxCBSukjsjAKE+LuzwchgvWvu3N4tLAJ4m fuzt1abX39W0uvqYHz62WN0V9BnCjZe+Zu0v4IPNP2+KN+yGcJf0Y1/ex/CB NplxfNhgCCcE9am8uMMHTbP5psUCQ/h9VWWtT7p80Mu+Jmn6bhD34zjNHjnE C1t6KTUR4xS888PM8MB+XtA9PUd1/0XBjeaOtwuJ8UK4mY6yRSkFf5tYciWF yAs8l6fi5UIoOO71xukueTtI3Tv6X7UEBddkjjvwJHY76H7sYd0wJ+MvPBbT P7Nshzf5Lw7XHyXjv8/ekHu5xAPCKTeuxuwi46puBi9aKDzwexV7YtQ+gC+7 snoMV/KArK85zzNaP17OP+w+4MsDXwP/coBBH67R+rdYjYEHEhwiXNt5+nBa eXH2iSFuuKoj9v1Kdy9uIuNXG1HHDTwsepEx13vx6++UJqWiucE2PI51KLYH 5xs39I2U5Ib1aFUslNyFnxX+SZu4wAXNN+qdduR34cX/TGJ5gAuyTC/WvrnV hc/sduW+p8AFJ3mDQzqxLvxuVTizOo0TkuJbGXcr/8EPdTaGd6ZzwsHUm1tN 3r/xQznjEUI0DmDzZ7G10/mNX2Yiep0a5YA+66TKZY7feL+xr/rHVg4Ikfji L5begUc6ujZqFnBAWybPultdO36XZLVRb88B7nmF1O18bfivynJr09/ssI/L LVib3IqTJE4r/qpjhwXSHq5br1vx6Bfr7p5l7EDSzJNuN2jF+SYKbx5MYgfP X5nGCX4teJUgU7+fDTssTSqdUP/+Cx+86c9SNscGHiW5NgnOv/Dck4sWtwfZ YMVf1mOV4Rd+KVZO1ryDDag8Es/L1X/iLWVVOZ4VbLB+kPfvseff8fZYNgnF CDbAgqnp+qQGfFHUVkNUkQ3CTnmWvuRowF9KRHKXi7MBUXCxifjyG66pOMB0 k48N2PKmVhp76nEjtckd+zdYgftX/ykTvTqc+Sqr9GQLKwjvrKVeEK7GP/7r VGC+xwrmztIZrX7lePhUN9/eGSI8uHkr/Mn7D7jHfznX+oaJ8Nmv+sbZ2TJc /mzU27ReIsjEXtZqtS3FX9fHm1l+J8IintXTol2MdysUXMsvIIK4quGezO35 OJYoOvzUnQj3T4zTJINz8SLuoRWHq0SYtg1vyFjOwWMKhoOPORDhY9Q354zO LHxkhjFI2owIr7/HaB8/moLfPxJvU6hBhPmnSY4LSQ64QZNFVD4zEfwY42r1 NU6gB1tfFl03CaCSfLme/+ANZCe22XOMSoBzqn8+hR4PQRySBvVs0wS46Xxt oiYuASUosxKN2wnAwPB+63LlS+SQ1Pfo8ksC1H/veqB67gPKz4sIl7tAgCte 3fUXlcqRZBoPWfYsAYgyPcwhTB+RLd+z8QOnCXDStzegvbgCkbflFXrqEOD7 7gGSJz+OmkwOpKbso5+vQ3rdM/kVnbR7omzOSQCNpMWmOfNqpDi2/7wcK328 OdIkU3U1AqevfYwsBMhLviW/J6UGBdrN15PXMZhc8MjwM6pDmJIEu8oMBq7p d+LFChoQeV+Dz9YvDDRXVov3CzciM9vwhIffMeA45dWqF9KI+OrHWOUbMHi9 6sXtdqkJWQm++Oz7FYNZY5+ISo4fKEfItTn/PQaV2bSXrV4/kHjkoPiTIgyi aT51o8M/ELfJgnlIIQZ7c3yZuD//RPeZx0wj8jD4EFBZWXiwGZ00k+DjT8Mg PW/zR7lrMxK/2nDuTAoG4e1afdWZzYjpBkks6SkGFor4WidXC3JRPiRhGIvB vw5cg2GsBTHYXSuUisDgiPKXItPENvTiXqXal9sYqLf/TqhsaEMDgbLydR4Y 7POd9tmz3oaufFaobCNhINcgpEO0b0enOwVx4g0M+Jzc2nDFDvTv1O4LXf9h wMURUqZs3YH4vkt9kHLGgK04KSXlUQfC8ndFejhiwLCt9vKd5Q7kZKTmvt8e g+nUncsqlb9R/51PqdwXMRjT2f8ndf43Ws3YWkyxxGBwUv8Tm3QnetHo8Xif BQZdGqSQ0bBOFJBe+5B0HoO69m/8aWf+IL8UMV5LUwy++PZT2UP+oMAyTUl5 Eww+SS33epf+QcbsMmYbpzEocpd4cX5nFzpv+0HgqxEGzzluq3OOdKH7r0Uz CgwwSC6OFPEV6kY95d3OFfoYJFhlbIyf6EanmfnVWvUwiMr9XlvzphtVV5D/ COliEGYymHeA0o1Kqgry9XUwCFpZfZjO14MEmZy8/LUx8NKVNvfz6kFRFgc3 GI9jcGtK48hkfg+q/WtXeAYwcHtiLG7R14O8K5LP5SIMnMjeo6ravYhdOPTq dS0M7MIeNWZ49CJqgkRnzzEMLqm8eMP9shddmE5UOUvns37Nt6fY+xBNViTO XBOD09KjVpZafaheuT9t+CgGho1rWvXufWjqEC3Kh846N7dLq2f1oZManNbC dNYSlidkdfSh/v9aOCuPYHAY15ziIfYjjiM7067RWc357K+AI/2I4VwXhySd 93FeKZ527UctAfyW/YcxUCrxT7R63o+88+YCs+gsdzHW91tLP3rV+TLUnc5S jHm2B5kHUPSuOGc9OovlVepkHxxAGrmyklJ0FjZtl+e9OoCEU8beY3TmW51g v5cygJQU78osadB9Stuam/kxgHjDX7mO0Tkkk21SmYGMxkb1oofozHhboNdR hIwE7hyP+N9+K7v81g9qZMQmXVO6TOeik6iBw5SMKEZ9ouz08dnU23G7a2RU zDdcoUhnB4mrpSWhZBR/91zcOTp/ZN0sIGaS0SG/xpz7dOZdfpJ16TMZTQ2x L1fR2aVfPvntHzLaGbrpx0Kfj6/fPj1mXiYj1n2vtc/ReUfxmTALbgqaLdXX z6cz6dmof4EiBYUxiUew0ee7MczXg0Gfghgk8jk86CxF4rlmZk9B8sdDW0fp 7HPphX2uHwUdIN/sdaA/z1b9IxbriRRU8sV0zzidg3c66mX/pKBsW+UcLrof vSz/jlInKOgUJbe9kM5q8w8PnGIZRJ0X+c5a0X0arimTWD46iGxEdXWb6L5p Fp4SNLwwiIo3XlfG0H2MS6JwpJIG0biecaw93VddN3aaTt4g+rZvu4UY3e9U i/T5xJpBJP6RwYSV7v+ytvrY1MAgSvxY9XqTztlCtu2xgkPI33PiHYshBsxf it4MBQ8hP6a3BvdP0X19ZfDi0PMhlLAyO/uJvv5K4ntTIj8Ooc3Lp3dtGmPg 6IJFqC4MoUI+N/VnZzCo5bO6HGwzjJpPMVUaX8BAfHPWstN7GGnLLZ1oo6// 2+PBpkrxw+jJXv4oeyu6b59fH2trGkYap+eMUqwxCHXeJix9eAQFWKuTQuh5 02+awHXHbATFaeDOF+h5dPCoEkvTjRF0z+qzgdoVDEa5zy+Scuj1lhdn2F0x 0C/P/f6VbxTdYrifrUrPPwKHaaDD7Cjy1NtArqH0PJW3qjrIOoa6bjKd/h2O Qb624xabzBhSepZPOhmJgbG3l3+x5RgqzDPbe+YxPT9G072Za8dQ/7JHVFcy /X6/LNzMSRlHg/ZajgPv6PnQu/bWp3Qc6WsPr8+V0P1YZZk3bhlHv8Zy7dk/ 0PNBZYfbKjaBeg6drHaoxKA0RdvFkDSBrln+uBTfhIHe7ViHScNJdFxIylhw nH69mGcZlZcnEaW6RbF7CoPxgpfkJwGT6NzN6Yq8OXp+DVXYHC2ZRM1mccdc VzFoNx22ipKYQoWnt6feIxDAUUn9nMrKFKIdy4hc2U2AUn30hHH7NGrkyPrn r0J/XzqcaPmtNI0YZ4x1eFUJUPDU2uSu/TSSyDT4bK9JgGWWUKPm79NIqtg0 J82EAMHk3zqkrBn0/Lq/crYXAfrLja57fZpBY75BTTn+BDgSW5UQ0DGDsKMH e94HEWBeL3/iAWEWUUx/Zf+LIoDNK/9HWddm0ROLYd0dmfT62zI97apzqCjQ vaPtJwESTJKYe07NIZsZZblc+n5iQYFLheI0h5TETe0edBMgt2f13kziHFLR EqZ5jRJA8HiTHLY+hy6U7ijftkWAfyyHy3c6zKNGVUGj7gNEyCEt/Uhzm0dz DZ3GyYeJYDbwelDSdx4tSZ3gdAEivP0gxaEQN4/sLo5pHjYmgvM1Dlu1unmk F6PEl+xChPbmAebTigtIQ34gKiSHXp8SahqwuIC0fXb3c+9hhSa+0DFuhkV0 yIIU06bOCqOR9wMyOBeR8q0ztYWIFUT9QgpqFBaRQUNWSdE5Vgi/FERkt11E 7zzyBCb9WMFOLKAqsWkR2Y6IlFi3s4JvvP+F3V2L6I2CjmvjACskcPrPfhxd RDPyTWA2xQrfN3xF+7ctIbUTuk+qGNlAo9/bS0ZjCYWkLbixqLIBz3PPfe+y l5DVMFBikthAScizXrtoCamIrBiu5bCB/iMPm3Z8Cc3/J9IcVsIGfndvRa12 L6HLXNU09mY2GLe9OX5s+zJKIVs6/SCyQ9Wu6+mN/stI1Ey0IT2QHW5kOvIM m/9F5nJPq93iOCDaOyk1+vJfVGmceWvzBQe8Mf2pcNj9L/JSKGb5XMYBs5uH jkdH/EWCQWFODT0c4HqRnaTx6S/idLg0sF+OE1z4i9qiJFcQzCf7DtVwwoOp UdtDKitIQndr5H0XJ+R/3TlNObKCSqJoUtWznDDhfp/5kNkKUtBpfxYjwgVX flioU0JXkFwCt70wiQucQ7cS1KdXUNpUqH3BXm4ItVaTJlNX0Ijbw7B0Q27I Ubta+IBlFYHsKIFszw0jg631A+KraKp/nVM/nhscUQ414swq0s7MCm7d4gYH 6imr/tJVFJzROB5H4oGgX4Gj4dWr6Hpm0tlPgTyQmVNKUm1eRcNDoCIQwwMU s12R4ROriG+Hd6vNWx6we7dUcUCUiiwz6tRdF3jAxiVZLCyQisS+uSVeCNgO a12sPxceUlGu8MiPwsfb4ekJ74BLyVT0uGF1t2HWdmhRsBjYX0xFVd5fnLUa 6N+jYwIZvcNUtGXOfsNZmBfI5vfPGCxQUbd+teDIHl7wr1veVrRBRWODG2tv jvNC6Ys2hzDBfwh31WtSdOWF3Y4xMgcM/yGRd68kFmp4oa6NoSPV7B+KSb3I Se3hBQcd9/sE+39I3R3jtFjihVQpk9Feb3p/RLmikjQfcFE4csNe/UO2QcPP LcL4YNk6XKmPi4as/UrYyJf54fGP1R6DnTTE9ulGZXggPygf+y+qSJ6Giihe VkXP+cFZVH8mDGjoTvJb4/g+fujqZio8QKIhbvW9qWu2AnD75C3bZwE09HMn szlHkADwfhzkJkbSkLl+6o6KbAE4lfTFvS+Lhmr5fgwyTQtA5YW7B8I7aChY S8+gOkgQLtbPDi5SaMjws6iGbr4gUA/axFrP0tCtR4d7IloFYb/gseUDhDUk 86Jb1UdWCLLbae/7NNbQwaCLks86hAB0XZwN9dbQpUBp9XkmYegr7hIsPrOG 4q1b7TVVhUEw9sOdcJc1lOxumDIQJwwRZ24fVk1dQ8YJzXu1nUTgyXdF14K8 NeQ/H+DJliECqQYDabJla0htY/+Qcb8IvD1myCzcuoZCgpOS7lvvgD+7d/xa J6wjlzKGOmf3nTCY/XPbbYF1lLTkbfOtfCdMSwSrzUmto+32OroqLKLAIDid RDm2jvyfHc63zhQFBcZKx7pb64jTSvHbAlUMDviTElHgOjrda1IhcF4cNKly jR+i11GrZ3M7d4k4mM4+2vsqbx2lzPW1c/tKgNVVXQeZsnU0YcYwYTskAY7D 1LhnNeto/bXa9Yfyu+BOtz3t0cA6YrS7vl71dBfcOy+ozDqzjm4v5jMZtO+C B82NtkG0dQSdrmmD2yUhrU611kNgAyWmneT7GSsJdUUsjy2NNhC1DCeJlkpB s/LHr60WG8j2XW/gJIs0dOe6/TVy3kC60gPPViykYTat00orcAO9uSXNnsIq A1SRqIdl0RuojxhU8vI/GWCMh6p9qRto6qLyjt4GGRCMzJOVLttAguIK4oMp srALs7FIrdlAvspufBYccqAYyBsp0LqBwusiJSBIDrTu+M4TZjbQwYvTc1z3 5MFwca90IG0DOVKyo0eICnD2+vB5GmETfTZzmOFJUgCny6crpqU20YxD+TCl ZTe49W+bddq3iTxlrxUu+SqCl2XproFjm8hSM11OY58SBLW7nLMw2kQLVSXz 6XNKEGUiEdpisYkyzG/4aFXsgYTGtg8nnTeRhqQbphenDJFPxSseum6i//8/ /D8ExGng "]], LineBox[CompressedData[" 1:eJwdVnk01P3/nc0MY2wzRVG2bFkK9bTK+6WIRFIoIo81FVmT0qIniSKhVAgp S8haQuXzyb6EkWxlspuRkiUNEd9+v3vOPffcc8+55/55FZy9D7mRCAQC+y// T6sv91x3yyAA4f+xAXde2FI4k00Aw9pWtx8rtPCTPI0avUICWDBTg+RmNHCf Dvme668IcMV2wlhrRB0Pqlz5veUtAfgaFXFyY+vxK/l04qpqAghXlgzt+qOG hyUtr3Bq/OuD+89R5dXw2xE/1bLZBIC1H+gqB1XxJJcvB/U4BDCKbPrCaVfG nx5sd70+RIBvpkbOIcrKeM6u+qCWMQKcTW6quh6ihJdLFaX++4sAn0xrL/ZY rMPfUTJfPFskgD7fq3KkUhGvn0qsnyYRoS7Z3vK9niLe1XR9MlSMCLTLzyZh jwJ+V/+RkbUkEV6uKe/3qpHHDxW+SFBeS4SAevqPVHN5vCV+yLBWnQj9JSK5 o72yeKTQwsN4HSIYHFi0y2PI4qYXmT/ctxEhY+aZyh2jtXitk8FD2l4iFB5N S7dly+ChH49OdJkRoWL6NX2nggy+29hnT9ZhIpTlVkWonpfGKzRTvps4EeGE b19giN5qvIS/aHDz4t/c6Rr/FE0KDzi14r7dNSIE/fSfSwyTxHU5Gt/UbxJB RDf2rSFdEs+rtItvuk+E1ujXm1bJrsQ9//EbT0wmQkgO63HP8xW4elYEeKYT IaZDPR8ZrMAzokq/MoqJMBeeYGfqx8JdCWzEKSOCaXKDeLIYC1f05959jhOh 8oWJ9s98Jp58VBIdaCFCtfg/jnLzEnj8uoC46DEi1N4sf6qQLY5bxd/iOU4S oddwsEHNXhxnCj3Zpc0nQkRL3H4LcXH89kQbl00hQfv+qQaTP6J4WNlGPaY8 CWTvWoWlDTJwQ03jmEEVEihGZzvaujJwUsrx0SItEkyUGqzQGBPGL4dG3Tm8 kwStBrX6zxfoeKDF+PBdGxJ8CbcMOGoghG+uJO1wcyBBuojMSVqPID69WTr6 H1cSPH29pCLiL4ifkd63vdOXBFoib162PKfh7iMZUVJRJKhToQ1u0qPi1sHO WxKqSKBvbjC1Kp+Mxz9aQeU3kCCC3HnR8yQZ78RqOw6zSXArja6zpETGbSga Z0U4JOB8u8UtTyHhR6NmikN+kcCxivMDTyPiD/LTr3EWSaD34cK0ujsR7247 cngHmQyyefo599WJuK3km+kZMTKsddYW+LeEgNulhOqcWE+GJZITJlK0jCW8 20Ks3kiGq/NzkpjxMvZ5iMeW30KG8zV7WqT7ljB7NXOfT7vJoCJ1xiKbuYQ5 FK7MN7cng+7yYV+1yEXs36oMzc3RZNhyKMHZ+908ljpydPHOPTJ4fV18gHnN YwM04fffE8mg58uDnTLzmLOZ9+nMLDL0R1T6JJ2fw1w6tmZLV5KhKCZoo+se PubOrVclzpJhPmrvMT/qLJYhFMx3WCCDZkeBxXjlT4yroVVXTqTA11W7r+qH /MQ8fGLcA0QpMChICXP5M4OdnLdN56pSYGX/m3494gzmKTyu2GJHAYVrlk/X aE5h4+fLKcJOFNC9QsATZyexU7yIUeMTFJA8uNW3FJvETtSoZb/zp8DtyChd 3HoSc77irvMykgITqTJGNyR+YLYzAyipggLfXzEsdSS+Yd1OhQo91RTo9f6Q nf1yHLNhh5AlmyjQXE7+IHVsHLN6LlcX3UUBHUGrdxVZX7GDJxwOXJv8uy9L qfbzgTFs7+du+1OKAuAzRl7jUzWK1ezL0s9UE4A3NJ579NlRzLD0nPzwBgHQ KYyW9lYbxQzuSQ477BQAjwtvJ1zvjGB6FlanLa0EIL5X33fAYxjTrWo9vy1M APLkPXL+bB/E5HJq46lfBUCu+b/uV4m9mFVKaVnjpAD8qnHJP7G2F7sZl917 m/+371uVLUr9jP0Mvq0oJUAFwxTueZtnn7BGM5s8VXkq/GxxGiur78YCJ0Zq TGyo0KCqWLBjeweWO9jFYzhQwWLB3qa46SM20Nkg3OZChbEgY6s1jh8xM+y5 pa0vFdIl13gWh7djinfOck5GUuFFEdEyfbQNa9YRmL1ZSQWxc/eZPvHNGEmF L2XRQIUn2hxuW+d7bJv02A4WmwoHSAm+2Kr3WBqpOSSRQ4WRnWc2aTxuxILa 7zJy56ggN84/VF9VhymdVVJq3kCDIezjmRNmlVhw6Z7DYok02Ipb2lx/XIDp 2rMnHR/TgBATu2svKx/7umx/uyCTBt8vZIaYcHMxO+PABssXNHhkciM2OCEL 29GZhe4206BLu7EqUTMVm5sR0VxNEIRu6dRLzwLFUODGbso6N0EoUnpv6Syc hza0u6b5nxYEv+KugrMf8tFo4BSq9hWE3zqfGcebCpB1BT3Y7bIgtIz25F66 VYQ2m++ayrwvCBLOR2yDFl6imVNpHM1GQbhwkP9kOukN8snwLNmyUQiUo+cW rl2sRl9aZe6JbhGCK17W7AuD1ch8vtF/VE8IJDfT/2szrkHqZut14k2F4HON oMxT8Vo0PDWSM+smBFejDCIpiXXoyC7Hxy+ShOBZrEp7d1wj0v9oGalLp0NY VXSSohgb5f4hnKZL0EHhUGiI1XY2klEt2DcoRQfJd3lW+1zYaO68KC1WmQ40 NWrNpRI2KpJrujoFdNhk+R+Ss2tDyqcNzxWco4Obf+fu3PgPiEHa6rxhhA6J /jH2E9yPqOwc+fDoOB2UY9x3l9A7kPv31j3J03R4eD1x/0GtDoR3eyiLEoTh R9wtuUXfDuSfn8D7Li0MVyGOrDffgT7ZL515flAYjshRu58sd6KsVzXBmm+E QUuWu05lohtZa8V6DlcKg2ds2tlG4R5EenLcIalBGEz9GvVN1/cg+9t8fUaX MKQMmGzhuPQgMbf1pG9TwhCZURN7pKsHBTKjwnNUGXDSRmnpw6tPyMjL6p56 HAOOHAzFff/tRQGxrwneDxlw2uhhNgT1oqevFD2LUxhwPv9i72x0LyKRpnbr 5TLAPuXOCxbWi/D4qEnzGgYIn1ztrbCGg3bgtft9+Qzot23rS2/joA2s7aTS YyJwvdk2z1SjDzlsS/VadBIBx3T/9euhD0U60HrAQwT8At33T1v1ofHMjvyG ABEIFu1YMrzch7L0/Bw+R4nA6hv/BPxo7UPr3HNKlzARMH3sqlu2tR+tKlvr baQkCkSxhen51n605JIpI6EhCnmnoHy2px8Ni+rU9+qIQk4U+c/oUD8qcDVU CECi0Duuvymb34+MxU+3p9mJwiWHDLGXsgMo8ETpVkKMKGilycaOnRpAHSsP E17/EYWafT99tBcHUKxfeIx2lxhQWEMtvylD6Pf73NJwjhg8GN6YuZMxhJxV 2/r6h8TA5ouISCBrCG3qXb0hZlIMirvCHncpDKGvadYjcxRxiF7d13hAfwhF MrhXbWXFwcrr5gArcAi19Am9lrYUhyqBwLeaA0PoUJiF1qMScRgOLbRjZg6j DNvJfWVl4pB00nKWnTuM5jVj3DveiMOThJpfN4uGUWr7hxSRKnFY2JK9e+rt MPoub8O83CoO6yd2R974OIzCX9vzj/PEIW90eVcfYQRVTJ58Jy8tAQzzU6ft bUaQ+rFQ66eXJKCu63rMtdkRZOtbwqRclYDkiP96M36PoPAbvFaXUAnwW6ij 1C6PoJFiM9N1tyRgkZG+zBcaRamMlSjtgQRUVwTLasiOopUV6WqpxRKg6vN9 rM1oFBEU6hYSxyRgMrXzNYodRZ2jQmlx1ky4qd2edl6ei2qtIpLKjjLhXpvF RU8lLiqpFLzfd4wJvce979mrcVF8Mi1Sw5kJNed0YjZrc5G1jUBg1RkmvPAw mKtCXPSxhmA6c4MJUWF/apyPc9GHp/ypQ+VMUGm0ri98yEUtziMGTDnW3z+s oyMlxEMDlMy5e4osuHJBm8Vm8NDPDI/81Sos+KWVoB8mzkOrx8fXKGixgLLj 3sWvUjzk6j/N37iTBctRpf2xKjz0+9ryc/MjLNgrxUlw28NDKumrpSOiWTDy pK9QKZiHtht/ZjPiWLAyL6jh1mUeMhtLunEnngWqc07Bk1d5yFdLfvb+Ixak n/N9VRTOQ29eqrAzcliQlcpnS8fz0KHaTWHVdSzwapi8FlzAQ24es3omTSzo 9Im3fFvMQ0H0VzNNLSyYiD3LWSzhoUcHdji1d7DgVv+FbWff8hCvE/QGh1iw osVk6/7Gv3uDSDNuXBY0qgfoBjfzkIhM9bOxryww82hczGLzkK6jsdTUFAse +yPaUicPGRGFWgJmWZD5I3i/8iceOvqkMXRujgWuBbInTDk8dMoocufFRRYI WGvbe/Xz0CWu+fTyMgseUF9p3h7iof8B67cd9A== "]], LineBox[{{1.9981310360264648`, 15.}, {1.9981646892035216`, -15.}}], LineBox[{{-0.9976307449860361, -15.}, {-0.9975998418163801, 15.}}]}}, {{}, {}, {Hue[0], Thickness[0.01], Dashing[{0.03}], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAwAWIQXfvc99P//8IHGMDgg/2UkgTvhtkI/mrG4iUM5gg+ a6q7kWSsEJwvfONozqKJgnB+0OFZyZqnBOD86ve2ORMe88P5O8pnZa3354Pz /SaFKvybyQPnu8/d6+fxhgvOX3a88lpxNCecH9cyRfT8CnY4vy6BeR23MBuc z6Arv9+5lQXOv9U9s331VSY4X4YrY+UXJ0Y4P9tUi/W2zP/9MH6y+b0Vhw// hvO1Kqz+5y35AecvvBt8pNLxK5z/vFHUxl3iE5y/a6qG64uwt3C+wcubX/Tn PoPzXXbd5vwb9gDOL1i5/oeg8GU4PyxNeeGlmp1w/vEzN7uMg3fYw/hWugc3 BUy/DOczlYneSZF8AOez8wQ0Jr17Buc3P7jmXLT4LZy/YXZbQN2nj3B+/qIU gSdhX+H8uKxZsu2NP+D8zsAyS+M5v+F8FpGpz+p//YPzr59u/dDCz+gA44dW J5nNOswE5+dwv1Y6F8UC58uvPjaN7RUrnF+9wzmYfzY7nF+wLGebmT4nnM/D ZJ6k95QLznfNDZmqNZkHzpfYKZvvqsIH508q6phocJ0fzg9q89edu00AzteK bgldUisI5197xrlocqgQnH8u6amjkLwwnK+2VFKqsx/Bh+YXOB8ADRIAzQ== "]]}}, { {GrayLevel[1], Thickness[0.012], LineBox[{{-1., -15}, {-1., 15}}]}, {GrayLevel[1], Thickness[0.012], LineBox[{{2., -15}, {2., 15}}]}}, { {Hue[0], Thickness[0.01], Dashing[{0.03}], LineBox[{{-1., -15}, {-1., 15}}]}, {Hue[0], Thickness[0.01], Dashing[{0.03}], LineBox[{{2., -15}, {2., 15}}]}}, { {GrayLevel[1], DiskBox[{1., 3.}, NCache[{Rational[2, 15], Rational[2, 5] GoldenRatio}, { 0.13333333333333333`, 0.647213595499958}]]}, {RGBColor[1, 0, 0], Thickness[0.006], CircleBox[{1., 3.}, NCache[{Rational[2, 15], Rational[2, 5] GoldenRatio}, { 0.13333333333333333`, 0.647213595499958}]]}}, {InsetBox[ StyleBox[ InterpretationBox["\<\"\\!\\(\\*\\nStyleBox[\\\"x\\\",\\nFontSlant->\\\ \"Italic\\\"]\\)=\\!\\(TraditionalForm\\`\\\"-1.\\\"\\)\"\>", StringForm["\!\(\*\nStyleBox[\"x\",\nFontSlant->\"Italic\"]\)=``", NumberForm[-1., 3]], Editable->False], StripOnInput->False, FontSize->22, FontColor->RGBColor[0, 0, 1]], NCache[{-0.30000000000000004`, Rational[27, 2]}, {-0.30000000000000004`, 13.5}]], InsetBox[ StyleBox[ InterpretationBox["\<\"\\!\\(\\*\\nStyleBox[\\\"x\\\",\\nFontSlant->\\\ \"Italic\\\"]\\)=\\!\\(TraditionalForm\\`\\\"2.\\\"\\)\"\>", StringForm["\!\(\*\nStyleBox[\"x\",\nFontSlant->\"Italic\"]\)=``", NumberForm[2., 3]], Editable->False], StripOnInput->False, FontSize->22, FontColor->RGBColor[0, 0, 1]], NCache[{2.7, Rational[27, 2]}, {2.7, 13.5}]]}, InsetBox[ StyleBox["\<\"asymp\"\>", StripOnInput->False, FontSize->22, FontColor->RGBColor[0, 0, 1]], {5, -10.65}, {1, 0}], InsetBox[ StyleBox[ InterpretationBox["\<\"\\!\\(\\*\\nStyleBox[\\\"y\\\",\\nFontSlant->\\\"\ Italic\\\"]\\)=\\!\\(TraditionalForm\\`\\*TagBox[\\(TraditionalForm\\`1\\), \ TraditionalForm, Rule[Editable, True]]\\)\"\>", StringForm["\!\(\*\nStyleBox[\"y\",\nFontSlant->\"Italic\"]\)=``", TraditionalForm[1]], Editable->False], StripOnInput->False, FontSize->22, FontColor->RGBColor[0, 0, 1]], {5, -13.2}, {1, 0}], InsetBox[ StyleBox[ InterpretationBox["\<\"{\\!\\(TraditionalForm\\`\\\"1.\\\"\\),\\!\\(\ TraditionalForm\\`\\\"3.\\\"\\)}\"\>", StringForm["{``,``}", NumberForm[1., 3], NumberForm[3., 3]], Editable->False], StripOnInput->False, FontSize->22, FontColor->RGBColor[0, 0, 1]], {1., 0.5}]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, DisplayFunction:>Identity, ImageSize->600, PlotRange->{{-5, 5}, {-15, 15}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Automatic}], " ", GraphicsBox[InsetBox[ StyleBox[ InterpretationBox["\<\"\[Florin](\\!\\(\\*\\nStyleBox[\\\"x\\\",\\\ nFontSlant->\\\"Italic\\\"]\\))=\\!\\(\\*FractionBox[\\(\\!\\(TraditionalForm\ \\`\\*TagBox[\\(TraditionalForm\\`\\(\\(\\((\\(\\(-3\\)\\) + x)\\)\\)\\\\ \\(\ \\((\\(\\(-1\\)\\) + x)\\)\\)\\\\ \\(\\((2 + x)\\)\\)\\)\\), TraditionalForm, \ Rule[Editable, True]]\\)\\), \ \\(\\!\\(TraditionalForm\\`\\*TagBox[\\(TraditionalForm\\`\\(\\(\\((\\(\\(-2\\\ )\\) + x)\\)\\)\\\\ \\(\\((\\(\\(-1\\)\\) + x)\\)\\)\\\\ \\(\\((1 + \ x)\\)\\)\\)\\), TraditionalForm, Rule[Editable, True]]\\)\\)]\\)\"\>", StringForm[ "\[Florin](\!\(\*\nStyleBox[\"x\",\n\ FontSlant->\"Italic\"]\))=\!\(\*FractionBox[\(``\), \(``\)]\)", TraditionalForm[ HoldForm[(-3 + $CellContext`x) (-1 + $CellContext`x) ( 2 + $CellContext`x)]], TraditionalForm[ HoldForm[(-2 + $CellContext`x) (-1 + $CellContext`x) ( 1 + $CellContext`x)]]], Editable->False], StripOnInput->False, FontSize->28, FontColor->RGBColor[0, 0, 1]], {0, 0}], AspectRatio->NCache[ Rational[1, 5], 0.2], ImageSize->600]}]], "Output", CellChangeTimes->{3.527305846215*^9}] }, Open ]], Cell[CellGroupData[{ Cell["initialization", "Section"], Cell[BoxData[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{"f", ",", "RatsGrapher"}], "]"}], ";"}], "\n", RowBox[{"RatsGrapher", ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "funclabel", ",", "asymp", ",", "nsols", ",", "nvalsint", ",", "nvals", ",", "realnvalsint", ",", "dsols", ",", "dvalsint", ",", "realdvalsint", ",", "dvals", ",", "holes", ",", "limvals", ",", "holestuff", ",", "holepl", ",", "vavals", ",", "va", ",", "vaback", ",", "plf", ",", "pla"}], "}"}], ",", RowBox[{ RowBox[{"funclabel", "=", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{"StringForm", "[", RowBox[{"\"\<\[Florin](\!\(\* StyleBox[\"x\", FontSlant->\"Italic\"]\))=\!\(\*FractionBox[\(``\), \(``\)]\)\>\"", ",", " ", RowBox[{"TraditionalForm", "[", RowBox[{"HoldForm", "[", RowBox[{"Evaluate", "[", RowBox[{"numf", "[", "x", "]"}], "]"}], "]"}], "]"}], ",", " ", RowBox[{"TraditionalForm", "[", RowBox[{"HoldForm", "[", RowBox[{"Evaluate", "[", RowBox[{"denf", "[", "x", "]"}], "]"}], "]"}], "]"}]}], "]"}], ",", " ", RowBox[{"FontSize", "\[Rule]", "28"}], ",", " ", RowBox[{"FontColor", "\[Rule]", "Blue"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "]"}], ",", RowBox[{"AspectRatio", "\[Rule]", FractionBox["1", "5"]}], ",", RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"asymp", "[", "x_", "]"}], ":=", RowBox[{"Evaluate", "[", RowBox[{"PolynomialQuotient", "[", RowBox[{ RowBox[{"numf", "[", "x", "]"}], ",", RowBox[{"denf", "[", "x", "]"}], ",", "x"}], "]"}], "]"}]}], ";", RowBox[{"nsols", "=", RowBox[{"NSolve", "[", RowBox[{ RowBox[{ RowBox[{"numf", "[", "x", "]"}], "\[Equal]", "0"}], ",", "x"}], "]"}]}], ";", RowBox[{"nvalsint", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", "nsols", "]"}], "\[GreaterEqual]", "1"}], ",", RowBox[{"x", "/.", "\[InvisibleSpace]", "nsols"}], ",", RowBox[{"{", "}"}]}], "]"}]}], ";", RowBox[{"realnvalsint", "=", RowBox[{"Re", "[", "nvalsint", "]"}]}], ";", RowBox[{"nvals", "=", RowBox[{"nvalsint", "\[Intersection]", "realnvalsint"}]}], ";", RowBox[{"dsols", "=", RowBox[{"NSolve", "[", RowBox[{ RowBox[{ RowBox[{"denf", "[", "x", "]"}], "\[Equal]", "0"}], ",", "x"}], "]"}]}], ";", RowBox[{"dvalsint", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", "dsols", "]"}], "\[GreaterEqual]", "1"}], ",", RowBox[{"x", "/.", "\[InvisibleSpace]", "dsols"}], ",", RowBox[{"{", "}"}]}], "]"}]}], ";", RowBox[{"realdvalsint", "=", RowBox[{"Re", "[", "dvalsint", "]"}]}], ";", RowBox[{"dvals", "=", RowBox[{"dvalsint", "\[Intersection]", "realdvalsint"}]}], ";", RowBox[{"possholes", "=", RowBox[{"nvals", "\[Intersection]", "dvals"}]}], ";", RowBox[{"newva", "=", RowBox[{"{", "}"}]}], ";", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Count", "[", RowBox[{"realnvalsint", ",", RowBox[{ "possholes", "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}]}], "]"}], "<", RowBox[{"Count", "[", RowBox[{"realdvalsint", ",", RowBox[{ "possholes", "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}]}], "]"}]}], ",", RowBox[{"AppendTo", "[", RowBox[{"newva", ",", RowBox[{ "possholes", "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}]}], "]"}], ",", "newva"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", RowBox[{"Length", "[", "possholes", "]"}]}], "}"}]}], "]"}], ";", RowBox[{"holes", "=", RowBox[{"Complement", "[", RowBox[{"possholes", ",", "newva"}], "]"}]}], ";", RowBox[{"limvals", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Limit", "[", RowBox[{ FractionBox[ RowBox[{"numf", "[", "x", "]"}], RowBox[{"denf", "[", "x", "]"}]], ",", RowBox[{"x", "\[Rule]", RowBox[{ "holes", "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", RowBox[{"Length", "[", "holes", "]"}]}], "}"}]}], "]"}]}], ";", RowBox[{"holestuff", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", "holes", "]"}], ">", "0"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"White", ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ "holes", "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}], ",", RowBox[{ "limvals", "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"xmax", "-", "xmin"}], "75"], ",", RowBox[{ FractionBox["1", "75"], " ", "GoldenRatio", " ", RowBox[{"(", RowBox[{"ymax", "-", "ymin"}], ")"}]}]}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Thickness", "[", "0.006`", "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ "holes", "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}], ",", RowBox[{ "limvals", "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"xmax", "-", "xmin"}], "75"], ",", RowBox[{ FractionBox["1", "75"], " ", "GoldenRatio", " ", RowBox[{"(", RowBox[{"ymax", "-", "ymin"}], ")"}]}]}], "}"}]}], "]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", RowBox[{"Length", "[", "holes", "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", "}"}]}], "]"}]}], ";", RowBox[{"holepl", "=", RowBox[{"Graphics", "[", RowBox[{"Flatten", "[", RowBox[{"holestuff", ",", "1"}], "]"}], "]"}]}], ";", RowBox[{"vavals", "=", RowBox[{"Complement", "[", RowBox[{"dvals", ",", "holes"}], "]"}]}], ";", RowBox[{"va", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Hue", "[", "0", "]"}], ",", RowBox[{"Dashing", "[", RowBox[{"{", "0.03`", "}"}], "]"}], ",", RowBox[{"Thickness", "[", "0.01`", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ "vavals", "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}], ",", "ymin"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ "vavals", "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}], ",", "ymax"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", RowBox[{"Length", "[", "vavals", "]"}]}], "}"}]}], "]"}]}], ";", RowBox[{"va", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", "vavals", "]"}], "\[Equal]", "1"}], ",", RowBox[{"Flatten", "[", "va", "]"}], ",", "va"}], "]"}]}], ";", RowBox[{"vaback", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"White", ",", RowBox[{"Thickness", "[", "0.012`", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ "vavals", "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}], ",", "ymin"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ "vavals", "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}], ",", "ymax"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", RowBox[{"Length", "[", "vavals", "]"}]}], "}"}]}], "]"}]}], ";", RowBox[{"vaback", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", "vavals", "]"}], "\[Equal]", "1"}], ",", RowBox[{"Flatten", "[", "vaback", "]"}], ",", "vaback"}], "]"}]}], ";", RowBox[{"plf", "=", RowBox[{"Plot", "[", RowBox[{ FractionBox[ RowBox[{"numf", "[", "x", "]"}], RowBox[{"denf", "[", "x", "]"}]], ",", RowBox[{"{", RowBox[{"x", ",", "xmin", ",", "xmax"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"ymin", ",", "ymax"}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Thickness", "[", "0.01`", "]"}]}], ",", RowBox[{"DisplayFunction", "\[Rule]", "Identity"}]}], "]"}]}], ";", RowBox[{"pla", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"asymp", "[", "x", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "xmin", ",", "xmax"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"ymin", ",", "ymax"}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Hue", "[", "0", "]"}], ",", RowBox[{"Thickness", "[", "0.01`", "]"}], ",", RowBox[{"Dashing", "[", RowBox[{"{", "0.03`", "}"}], "]"}]}], "}"}]}], ",", RowBox[{"DisplayFunction", "\[Rule]", "Identity"}]}], "]"}]}], ";", RowBox[{"vertasymp", "=", RowBox[{"Graphics", "[", "va", "]"}]}], ";", RowBox[{"vertback", "=", RowBox[{"Graphics", "[", "vaback", "]"}]}], ";", RowBox[{"verttext", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", "vavals", "]"}], "\[GreaterEqual]", "1"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{"StringForm", "[", "\[IndentingNewLine]", RowBox[{"\"\<\!\(\* StyleBox[\"x\", FontSlant->\"Italic\"]\)=``\>\"", ",", " ", RowBox[{"NumberForm", "[", RowBox[{ RowBox[{"vavals", "[", RowBox[{"[", "k", "]"}], "]"}], ",", " ", "3"}], "]"}]}], "]"}], ",", " ", RowBox[{"FontSize", "\[Rule]", "22"}], ",", " ", RowBox[{"FontColor", "\[Rule]", "Blue"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ "vavals", "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}], "+", "0.7`"}], ",", RowBox[{"ymax", "-", FractionBox[ RowBox[{"ymax", "-", "ymin"}], "20"]}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", RowBox[{"Length", "[", "vavals", "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"asymptext", "=", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{"StringForm", "[", RowBox[{"\"\<\!\(\* StyleBox[\"y\", FontSlant->\"Italic\"]\)=``\>\"", ",", RowBox[{"TraditionalForm", "[", RowBox[{"asymp", "[", "x", "]"}], "]"}]}], "]"}], ",", RowBox[{"FontSize", "\[Rule]", "22"}], ",", RowBox[{"FontColor", "\[Rule]", "Blue"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"xmax", ",", RowBox[{"ymin", "+", RowBox[{ FractionBox["1", "20"], " ", "1.2`", " ", RowBox[{"(", RowBox[{"ymax", "-", "ymin"}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"asymplabel", "=", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", RowBox[{"FontSize", "\[Rule]", "22"}], ",", " ", RowBox[{"FontColor", "\[Rule]", "Blue"}]}], "]"}], ",", RowBox[{"{", RowBox[{"xmax", ",", RowBox[{"ymin", "+", RowBox[{ FractionBox["1", "20"], " ", "2.9`", " ", RowBox[{"(", RowBox[{"ymax", "-", "ymin"}], ")"}]}]}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "0"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"holetext", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", "holes", "]"}], "\[GreaterEqual]", "1"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{"StringForm", "[", RowBox[{"\"\<{``,``}\>\"", ",", " ", RowBox[{"NumberForm", "[", RowBox[{ RowBox[{"holes", "[", RowBox[{"[", "k", "]"}], "]"}], ",", " ", "3"}], "]"}], ",", RowBox[{"NumberForm", "[", RowBox[{ RowBox[{"limvals", "[", RowBox[{"[", "k", "]"}], "]"}], ",", "3"}], "]"}]}], "]"}], ",", " ", RowBox[{"FontSize", "\[Rule]", "22"}], ",", RowBox[{"FontColor", "\[Rule]", "Blue"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"holes", "[", RowBox[{"[", "k", "]"}], "]"}], ",", RowBox[{ RowBox[{"limvals", "[", RowBox[{"[", "k", "]"}], "]"}], "-", "2.5"}]}], "}"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"k", ",", " ", "1", ",", " ", RowBox[{"Length", "[", "holes", "]"}]}], "}"}]}], "]"}], ",", " ", RowBox[{"{", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"Show", "[", "funclabel", "]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{ "plf", ",", "pla", ",", "vertback", ",", "vertasymp", ",", "holepl", ",", RowBox[{"Graphics", "[", "verttext", "]"}], ",", RowBox[{"Graphics", "[", "asymplabel", "]"}], ",", RowBox[{"Graphics", "[", "asymptext", "]"}], ",", RowBox[{"Graphics", "[", "holetext", "]"}]}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}]}]}]}], "]"}]}]}], "Input", InitializationCell->True, CellChangeTimes->{{3.3944954527913227`*^9, 3.394495458990612*^9}, { 3.394496088256441*^9, 3.394496311806332*^9}, {3.394496363887847*^9, 3.394496497461035*^9}, {3.39449654889185*^9, 3.394496566754607*^9}, { 3.3944966925824823`*^9, 3.3944967056340303`*^9}, {3.39449679699634*^9, 3.394496802696395*^9}, {3.394496865011146*^9, 3.39449704992767*^9}, { 3.3944971057956142`*^9, 3.3944971065115433`*^9}, {3.394528552980527*^9, 3.394528676844391*^9}, {3.394528802735531*^9, 3.394528853070883*^9}, { 3.3945289742129917`*^9, 3.3945290027964067`*^9}, {3.394529105377082*^9, 3.394529155683066*^9}, {3.394529198567399*^9, 3.394529302596395*^9}, { 3.3945293868678417`*^9, 3.394529387753972*^9}, {3.3945294198827744`*^9, 3.3945294400000067`*^9}, {3.394529476917981*^9, 3.3945295191819763`*^9}, 3.39452955635758*^9, {3.394529617388135*^9, 3.3945298094399977`*^9}, 3.394530026832052*^9, {3.394530079546487*^9, 3.394530081973941*^9}, { 3.39453015597329*^9, 3.394530158356721*^9}, {3.3945309976334553`*^9, 3.394531034267144*^9}, {3.394531170954384*^9, 3.394531174515354*^9}, { 3.3945315038268957`*^9, 3.394531545393581*^9}, 3.3945316691986723`*^9, { 3.39453181151523*^9, 3.3945318726144037`*^9}, {3.394532004465395*^9, 3.394532032932399*^9}, {3.3945320658664703`*^9, 3.3945320722361507`*^9}, { 3.39453210632697*^9, 3.394532120429163*^9}}] }, Closed]] }, AutoGeneratedPackage->None, WindowSize->{1264, 679}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (February 23, 2011)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[545, 20, 201, 4, 143, "Text"], Cell[749, 26, 87, 2, 29, "Text"], Cell[839, 30, 723, 25, 51, "Text"], Cell[CellGroupData[{ Cell[1587, 59, 1275, 47, 97, "Input"], Cell[2865, 108, 21670, 390, 551, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[24572, 503, 33, 0, 71, "Section"], Cell[24608, 505, 17762, 439, 776, "Input", InitializationCell->True] }, Closed]] } ] *) (* End of internal cache information *)