(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 7.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 67485, 1413] NotebookOptionsPosition[ 66380, 1374] NotebookOutlinePosition[ 66721, 1389] CellTagsIndexPosition[ 66678, 1386] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"f", "[", "z_", "]"}], ":=", " ", RowBox[{"z", "^", "2"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g", "[", "t_", "]"}], ":=", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", "*", "t"}]]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"w", "[", "t_", "]"}], ":=", " ", RowBox[{"f", "[", RowBox[{"g", "[", "t", "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", RowBox[{"w", "[", "t", "]"}], "]"}], ",", RowBox[{"Im", "[", RowBox[{"w", "[", "t", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.49182243845135*^9, 3.49182244327013*^9}, { 3.491822521856162*^9, 3.491822602479154*^9}}], Cell[BoxData[ FormBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJw1mHk4Ve/XhylCpBSJipKoVEIpJcsYRZGikSJNImOmFEWZUkiZhUKSmci0 zPMs8zw7zrBTQojf/l7v9fqH+zr7POfsZ6+1ns9tp7GF7u1VTExMmquZmP77 /X8/P+H///ILYbJZWiEgfO0evzNihrAgubpummT5sZyj6mIPwXTHWs7B/3ib 4om0cDt4cU3gUCXJFK/lNjmxp3DztuyJeJIDpKYH+jqewwu9e/tdSa4cuxYX Gv4SxtuzV+uSPHNT7J6ukTcQ4pLF20gOxGPaLGKv4aFgt8ngMgEGRwpLLv3x g4+bKhjhJNfsehia0BEA4lyrbuiS7GATozL3PRA4/CKzmEg2uqp7QTH8PcQW Jv2K/0dA7SY7Q/enwVB4RmWzBsmb59cslNwMhW3il3lslsjPK7kme3B3JDwu WEP5t0jAuZuvmJJWR4HvydD4ZyTrfxK8jDNRsLpnoMtmgYDd9EqPzvYYCOys Pzv8l4Ct9ZSZ/sqPIOa6JeE0yVKKSsuDOZ/Ae1Br8+p5Ai4uRK3vCI2D4o0u e/TmCMiZyPha4xMPuUORIlGzBMTW8Wz47vwZFENPN+74Q4DSsaYLLwy/QLHj pvX10wQItHvNtu1MBjc/i9vjPwk4OyNED9mYAhY5YrHzBAFjctIuicypoNTj NMTGIMBYPr7e4FcqpPUMX2imELBd39cmsDUdLk4cXkybJOCBUgu9QzMD4nZn +vpMEGC7tlWYvywDRPcqPdo7RkCruKaiZ2YmFNVv198wSEDpv52e0u++gedP fcOcfvJ+KjXbdNZlQ9HC7wtX+ghooDezmL7IhlV/AthfdhMQcehy1KtHOeCQ qBXl/YOAtGadgTd6uTCYydeuWEnApISMlD1vIUSeZRI8X05AetSM3en3hdAT 9ZL3SikBfgnXSjZtQfjmaCepgwTMx1yZrlxXBN6r6zh7vhEgeYVfk4enGA5t /9p76xMBU28cBGs2l4Lrny91RDQBptPVTx5cKoUimouzzQdyvzZ8amMLLoWZ k6eEjEMJmNvjIywlUAZrWX47974h7/dHuKrq1nIwCDqncsqRgAtV+7YZClUC zypJt3N25HrldaNxhpVwtP7U63M2BNipLQdSIithYQA4ZM0J+KO45v514SpQ PFH5OeYmAcpyJWtnhathTjle47ca2R8N+99OCddC/AVzbYe15PqvfNhMBBth lkvIA9cQ8O+38f73eo2gvSkkdWUVAXrr+KWK/Rqh9dvlXtNFBux5LtLiuroJ bkwpp9CoDBCZTr3+zrEJnKniaz/UMuBE7fef7LebYX6f0K7yFwxw2DV+lnqs FZKfz1zZ/4wBta+mbrPqt8KQ8p+oV84MiO5W37LVphWCNL/eOmbDgOCHIVJy Sa3gNlTWJX+TAfS98U9g5w9oEzdzXjjGgL9cqtkP2dvA88qhVzpjdHASk6/c 29oOajHX78wN0MFrv96VrUQ76P+h5gR104H9guQkG2cHwNBEbVkjHTxPFY40 K3fAqhT/mqbvdBALj4/fk94Bhu4Kcmmv6ECkGvD0vumEnVkdoeEH6PCVNVbo kHo36C/YjNiK0yEzL8nnkXE3XDtfWXdqJx2eR5scznrSDeVViy87eOkg/45z 567MbkgoL8evizQItq4tytnRA3825TqIV9GA+vHbVPl8DxgXPFy5e50GP975 pCt86gNzmWSZwYs04Luxfna5qA90Q18LnT9Lg7ldrwOy+/rgTseC8HYFGji4 /crh4e+HIJ477IbCNFjTtUy759UPiofr978YpIKR6b8X4WYDEF8tv97egAqM WdZS6/eDsC63Z4VDjwpHJ6Runv80CEcFJiffaVEhWDw+SyJ9ED6q//safIIK eQYHH7fWD8KA4YPjZwSokMgts45gGYJterVXb7ROAY9S3+EL1kNg0t0eYKQ8 Benr+7myTw9D54Z7dd/kpmAvq/1XEf1hWL+LU2yN1BR0rPU65G08DCc9zyu9 FZ6CiNbFbq3Hw3D3Xca5u0sUYGf2ehD1dRimE3Jc5jMpcNPxG89T7hHQWJDR r99JAeeLpZeYGkeA5XSJpekWCtmPTrIj3SNwKuIQjXk9BTqD3sUUj4/ARNY2 7h1Lk+CefXGL1fIIQKC7nED7JHzUK5cMPTAKftvk1zF7TULd571FG31GYfmi f3/W1AQcv/l4n4/yGHTderCzdmCCnJ/32+rOjYHCCb1t3T8mwKdVcYz92his +PepjRVOwKxwjZilzRhUHyvJSQ2YgPvNLzsWPo7BZg21RCG5CUiKtRNbXj0O V5bt3B48Gwdhm9WucThOvi/kccGjcZB3D/18sHYcel05fThMx6FUha0ltX0c 3PVklt7ojoPgv1NbP9LHge282FP9XeNQd3FJGrZOwFKOQW5d6RgoHTfq0n00 AXSzcSlbpjEYDG292yo6CUJX3TadnhmFEafhwluSk1Cd2v1py+QoPDxG/KbL TYIpN/9IfOMoXGW5QCfOTcLbljhRj8hRKNJsaklwmISYHW72midGoblxn+Dv mknYIs3vzGw1AjEV/Y7VphTYbZT9QNpkBLInfZ/52VLgz8mXloaXRkCopJz3 /FMKzChkVsSfHIFmGq210J8C+p6ZTExrR+C8trKlVg4FbjTe866OHoYq9fyV AyxTcExX7kBn/RBwe4xV/H0/BQeaaS2Xi4dAr6O19MKHKfB3K/RtyxyCoEC2 ofj4KaBYVp0tDRuCPuq4rULOFPzkXVC1vE9eP2HcKNo1BTsMCp5uJOt04e7L 3B9k3VKclkp8ZAfB7IY4e9Z7KhzfcsgucO8gbFidGKQdSYVZXqfgkG2D4PVF av1oLBXobyuOhKwahI6a4JSFTCoMvjyl3hs+AFEHtT36W6jgUc7yabimH6w2 toq4rKPBLigNG97ZB8ZRV9u2PKVB3fFDhp0sfUB9LWLv+oIGAle0QyomekH1 UFz64CsaeV42Bb1K6oWL88cJ7zAaLNq4eeGxXvDWcTn9MocGvt6bRyrP9sB0 NH1g8zQNIm4r0IKsu8DLVHg84DodSiqlXyZe7CLvM09y7S06RG6u982R7YJ/ DiFdjvfJOfaMgxUXOkHlnKW6sh0dUrVDzZ8+74R12qoG9m/oEJh6aanerwNu P6SwWhXRQWPbOPfE5zbY+0XgUtA2BlBz+FKUXrXBpnU7IXcnA6qE11gGWbRB GnXdpXYxBngd5X94WLYNTgUt8CwcYsDrtd83HCn9AbfuigcSqgwwNLGJ1u9t BWNl4Ub/BwzImp9M1+BsgVmtZ2GJGQzQyrvIzctohoasA0a/shkgMDh1raep GZpfVB2WzmfAnyGWSYP3zZDH+5s5oowBWy32PJHZ2QyPOYIFhNsYIHqn566Y bBPMzu63+DFDnkOqC9EZuXVwN6Tx9b+DBDg21Fv7uNbBtVW3VS9IE7D/p/BG g1N1cHrve+mYIwTcP97KoDfXgisbPUtCnoDqrornlZM1cObnZ1W6BpmjzsRK 3Oarhn8FGyh7jQjwoVz4MdBdBb1wuW2jCZkDlow360VVwVMhM2LmDnmudr8I kZSoAoVhhy+fzAiQc9VnilOshGbRv/vS7Qm4Yv3a/qNpOYwx2JvdXxHwsOxk Sr1kOcTsE9dlIs/5Dc3XtH7PlIFQXcGcrT8BDDeuqUMuZXBLTyb59HsC/rIE CNi/LYXOt1+/R5G5oXe+9enxvGIo+b27hyWNgMV1otw7XYshr4H17sYMAuqO TTeuViuGp14e6wWyCLi+97ZQYUMRZJ1LyeT5TkD3z50R3GUIbRWhKqlFBHxJ bnNirM+H3KKdAjENBHz2GpI69iYP3gZwy5o0kTl7XrTXiTsPlB8HSgq1ENBp sP41lSsXVu4mfHNsI2C16D/mpxw5UHJoO0djDwHaMSr0AM9s2JFAWdYmc9ji 47ut0WzZULueuaGKzGnBxcd4k1m/QeYB/9noIQI6ohmr3ZkzYVlE8u6vcTKX s6wyNnPNgD6a/HZpMhd2bFks0V5JhwpGXcJ9MjcuCeTzsP9Lg8YJWbUiKpn7 lt4p9T1OA+ZC+wsDNPL73XecT1pIhTfe7Edn6QSwqW1dcf+ZAga47MxJ5tQb vBm71jGSQbqgp5+DzLGaZ2oMfalJkNE7x8v0iwCuzQs77McT4W7C76XW32RO 173BM9cTD7u+hGQJkDn5S/fIbvWuOIhUZc5oJ/ml3nZj//ZY0E6Zeu5D5mon 9vtX+Zo/QiDHq5BeMncrZvaEajfEwOlC+oADmdMFBco4X9RGg3e96DwXmeNH KF7ry30+wH3vJxHbyNwfavnm4OaXEVCVe2VfMMlM+nuLbriGgbqmqycn6Qkf lis0YpxCoCWnNduO5HdhXVr9tkEgE3wsp4tkSY4fOrwW72DH+3deh0nvEPu6 r0v1/luQtW+V8CBZUOeCqeUtf+DY0hfZTHIxlzePZN5rEDH/MLyJ9Bxftp9W j1K8Ya0bx9zZ/zxrsWY58+NLOP2Uq9eF5C+b1hczgp6DdViYfwLJNbRbbupb nsAWya/8tSTzMett+sL0CEZijzwcJXnV2hIP7pb74OIu9e4PyWfnR8Lc1S5A 6t2wV8skK9R5+UhJn0EVFquLKyT3/2y/05V3B4XF02lzJJtUrz7r98gGpbNu 6k2SfGdWg3bQ9zG6JLq+biK52zMWbrU8Q0HhLcGpJIsurnPa1/8Cd52UtPYk +Q/17jYaxQurzzRtu0zyj6HC7fF/fPF4LFuwMMmXuPyOJzH5Y17xyEg/uR/+ XWrrekcCcE7JQSSM5DHjX1/WVAbi7Utdijoks1n/jd//5T2ap/DDMrnfY10Y fNY3GCt91bbHknzrVSLPfctQvFdn16NKMiN9V/zTC+H4tKfIsY98nvr6yfK1 XFE4IvhP/y/5/KtuOhKay1EYKCjy3pnkupUbXVVENNp4lWfNk/USKGn4+FvL R9xVufy+h6ynAeGJSrGyT3hl84/LyiQ/efzQNiArFp+3xS1Gk/V36cidzdeC 45GyuW1Uk6xPt0M6UdlenzG92lniPel1OykSGdyPE9D+bO6FLtLruPtywhMN EnF1aNTpMzMEnLems02f+4oPlGP4Hcj69/YT3H1IMQkXnKiVkWR/HDlhGxkq koIitfxN7WQ/PUgOqhzmSEVJy5t7Jknv89ntmmT7PBUVivJu/SK97+IvT9L0 0jCJ8tJ9muxPjzu1B97oZeBcfaNtKNnfP3fUibA2ZGCp8GqaNel9phnhyXan MjH0ioSGKjkPgl4bCWsdzcKs7PupzSMERK2KtivYko3/NhtpBJHzpPGLosw6 /2yk+P5myJLzZvOSTOoljhzktS5x/m8e3SmlufT+zUFj7Uva1E6ynrbVe8Z0 52L6o+dd9eQ8y1XYc7VcNw8fG2wsPdxMgHViLN9wTR7eueHzPrCRgHxXtkH2 vHzsYktaUqgjIMHkWxt7WCGe/nCkSYH0xMFcDuu+/cU41VpAnyLn7b3iC2qF 5sW4N5rHIZOcx0En13iFJhejTlrIt0fkvDbcXbxd7VAJXr0bozvwlYBIg7Do mzKl+Eo9gF/7IwE2Ak8g5lg5dn6l3Ip+TQBhpyEu7ViOu7uKnMd9yPmW5G6Z /70c943JXtzlRc4nrZIRPF6BoctjSu5u5PwVqLZ1la9Eai3fgRHy/HnY3vWs S6Ear7UvEnw3CDi2Rj+EzaUas9OPnuu4RkD2QCmLJFajOlecvd9l0vPmzwXe hxoUNfOWnDpPgIq2S5EP1CK786LmCVUCOAOl4x4p1KNXYesqPXGyvjW5TY+E NWHStIyM+QQDRrVWvTuZ24Tpnw+1nBxhQGfbbw+lriY0WUeNWzPAgGavl3Hy /M2o69nzx7WdAeXSn6nLAc0YU0lV31LOAIXU+6VfvVqQU+5EVksUAzKiSs/b 2/zAA+4x/U91yXxyz8SU4v8DpQ3fmF4+y4BMXpqufuoPVKaz6e7TYIA0rtju oP/A8NGOY9knGcC0JVXs0Z02lBZk9nm0hwEqHw39BC63Y866I5YvluiwsN5W XeBoJ/b6PNiyFEkHu+/nctp0O/GFwwGxsyF0yGiH1lcPO/HhgeqsoLd0OC3A R0zFduKmZP8bAp502BQcxnuHtwtPDjYxNVrSQVbkRa3uzy68qbccwqJEB37D /Lqejz3YxTxmGdNLA6LDrGmosAeTq0yVxdppkOPDXjjU1YMWp0KKPjbSoFBK FxrX96Ln2s9VPiU02FGSdPjm4148VTQgueEzDWK650ounu/Dx7c7o6lWNKjs cXO6Md+Pzq2c7+aYyPXSZScbeAdwG2Xx+Oa/ZL6lJuvISg2gZ86ahAPTVOgU jZqh3R/Ay9uDx04NUcG0vCFvvnsAd4CK4K5iKpzi1pgpNhhEdsdgVXcXKmTt 2r1164kh7KnNCJyfnYLzpicdazWGMOHkb73DDNLzWjyM7PWH0PazhOj9sSlo jAgqKbYawj/d4T8LSE802iNqsuPzECYuOnnxpk6Bj2kj7yreYZxIbiqyvzsF EsVTFIXJYeTQnG0Ua6aAfU+0ldPMMDo6qM7ur6JA/bTDtzSmEVyCep0DSIFN Yz5mmwRGUNw8/su2JApsCwg/+fH0CJZl2O775kmBlUA9nl8JI1ijdFusXYEC ezeqxsjdHUXxWPf0zrhJKKDXvJ6wHsUyh6cmeyMmobTNYdjv6SjamFB9bd9O wpOLDZlt70YxRaZbe8FlEoIJuXzxslEMm7auL708CUPNOhuowmM4+KAjUodj EtiXWDt6W8fw0Jvyi0Z3JiBg5mfIwMAYKrZduSN+bQKuXyh630sdw8KMrLMT 2hPA+fy2VPnqcTySEZdwkfRED26/AB2ZcWRq+0sZ45yAw8Hx6mf9x/FGH/fB sZRxqDw4MFmlMYFcs52iZr/HoIJpYJTr4gTumTnfaD0xBsEPXuacuTGBC49T 0mx6xsDrGNGd8WgC78iW7TMhPbFdzen7iZgJtG8wUGd6OwbhFrfPCi9MoNuw 35y41BjELO2P3xk7iZOim2ma90chz8/iiGnKJK7+s+5n9/VRYIvvevz1+yRS h7PLTXRGQXZ3lphQwyTuFmj5de/oKEzkdSZmzU7iQXO5JBnWUUhxey+TcYqC OzeNWbR9GIHe106v2ocoeHiVZ+fN5mHYwLh76DyVgpHT93R0yobhbec2+fIZ ChpR6cwnsoeBi0fxWQjbFLp0HxFeFTEMTYFPXH7tn8KhSwpRl+4NQ28bTc7E bgq9dXZ/FVkegqZL3ZayLFSsqE75rCM2BG4NJUZqXFSc38V/PFhgCCpO3dc7 x0vFy2Liq3q5hqD2c+vJc6JU9Iv1Urr8exCmw6OGWFWpOF79vG5X0SD8PP2G rvucigZiZ99wXBkEn+GJHZcXqPh1I1+c+oYBMHjNwvOJmYa1Y4dciT/9oMnm XU9hpyFLykkXv55+KCq+EWvMT0ORox6rC+P6IXu93UeOwzTkF8itqpTvh+fa rfYSZjQM4XC/H3a3D6643irM6KBhtpiDpVlODxAyz5RK+mmYUKASsxDaA7Uu HYrVYzR8s//Np2dPeuBrUf/Xot803CdySc5JuQeYqsPY9NbTcY0cw2lzXTfs FDE+tlGNjg4PdYRW9XfB5ZcONi1f6LjRX1i1d6kD3GzebqGn0pF7bunF2/4O kLoqvZopm44rsVr+qkUd8EQ0MYa7lI63Zlp2Bbp1wPE/Jf0N3eR678r5pjg6 oMVz+XcXOwOvXCna5sDXDrmXqxU33GBg2zkut4t7fkCUs3tv1y0GfirLmjPm /AEz6b8Cwu8x0PrDmkEzRit0lgVprrNmoE355G6bzFa4I7enIcydgU3FhMIZ xVY49T3uoNlnBh65fuXBnkstEGZiNFfxlYEmG5WlpuVaYN8/5RrBNAZazD/8 kbWtBTq53ngnfWdg3XWheunhZjBplrzqUsNA5/gKpSUz0hsTCaPWKQYudDSt bX3WBDLU3KuFDAb28hIl102a4OmJrHMxvxg44dZfMnyqCTzSUkX1FhhYVfIr c4SzCTIyLCzvcBAoX9dx3FaiEYSOp1XLihH4Lfl0/pPz9aAs/IDmeZXAo3tE 7ZODq8E8+bv7cwMCZ2Q99QUNq4HaTqg9ukng3KmvSa67qqGA67niqTsEPlh1 cVY+uQr+6oaxvLci8Lax0qVHpZXwacJakfaSwE/Oeq9+0sqBu/3SdgcvAtdI t05wpJfDM/HXAv98CHTr2eQpZF8O7Y0F5r/8CBwsUK2RYy6HbRq77bxDCRST NiuQ4yuDc2dH3lp8Jd+voxhjKl8Cy4rHxH2TCWQ3XDmvwFwCjReqmj+mEuhr +4qXu6IYJn9WmeZnEihzMYM1RrsYGiSmPoTmE/in9AdzhHERdKQkDroWEhg7 FZmmK14EmvkHjtwsIvCFzq5sjk6E2oYW/rVlBK61v/qxYKoQinj8c9bWErg9 UcC4bX0B/HORf/W9jsDJmLpjnCH5oOLy2tKogcANJyZbjovkw0FG1v3wZgI3 lq/keBzOA3NbPV7sIL+vvIdIz+XvoJxvfku2i8Dyl1pTQ0M5cPOeTVFcN3n9 z0nVEdMc+LKV7aN1H4GrSh4Jtjtnw2eucebsYQJ5P5Vvd4nKgu/6LS95Rgn8 rfBcW0k4C0TM9HtvjZGvW9/jW47IhMPf6+aICfL5cd4bvhuWAe3+/AV7KQSq sgxK8AlmwLh94vlrUwSmxyu8LghOB/V6u4lYGoESYo9FmN6nQUEy/2QhnUDh T8XvQ3nTgOP5j2+NDHI95qLPh96mQhvLq4LOnwQ+f+KuF7UjBWhODfc8ZwiU uqMbUMSbCKult7Xe+EOgI8946DeeL+AY4cchOUvgqw3vf8VyJ8Dzn4LdmXME JqWohlixx8O22jqbB/MEhkurmp9jjQMVxb5Ogb8EnvxqFLp7VSzErb3PYrhA IHcW+9qyxRgQ3u9f85tk5pLIZp/5aMhytbr2bJFAtcgHS+f+REFZ+ti3NUsE titNh2wd/QDzHrW9biQ/c47i9O+LAPOhVfXzJP9hLLYst4dBVJ65x+1/5PMI 3PbodlMIeB78yVlDssvJ7fbl1UHw3tzyqtgygVxmgobCpe+gsLLd2olkpyPS KTb5b8Ehfp1eBcnd292Jkix/qAtgZl67QuCuKSONrYZv4JxEtJ0aydcfZH36 rOMD0gf7shxIflylsXxQxQNUbT8XfiRZ+cetGylH3IAyPedXQbJd64dPejpP QSK7ZP8Qyc16KSWqR+wgg2AO+E1yWJfgteuHzaB9OLXoH8lfDmlOaC9dghe/ 63JID0V10aPCCoOKaByl5/SXZNmTnAy1hyaY5qbFSiWZ8ZTwPqFrjVcvZF35 QXKSBucDbXMnZAy+s88iedH5ptJB1WcYLTBr+JpkTfECw9TzL1B9zeD6G//d T8z51QdueKFe7Q1vcZKrLraJfjTzxaHPbg0T5H54JLj2shf44euFa70fSKbp VHXnlQZgxNHFDG2Sj8nvYDetCcT+X4/05sj9fqxyb2Bj83uM7x4uek/yvchn PVkdwdiSc3X2AMl2rNr2uv2hWGg9/yeffH6bWjMPTI6G4wmOLlQhuVosxNGO Gon6l4fSj5H18LYMDU86R2N82NneOLJepH8lttm7xGB/04smLpKvthzwTXr+ ESd0FwSKyPrzmGjL4PCKRbUtHlECJJvNzY0NOMXhGmo9sxlZrxmn63jSzOIx xUdMb5Gsb/emK09VdBJwZ7G3+jGSubn+6bIof8G/LWf5HpL9EJUidhplEvEw NU6l7BeBNy8RxSL8STgtFP5pdJrAfUPPO2vYkzHdK3noH9lPgbMvjpktJOMt +sJPQYJcb/n+ct3DVJyLP266QvbrxdjrHfXn03F8J3/6ONnPJx7a8rrXpOOg cHdHxSS5fqyukKxKBmLY5kKrcQKFApz2+x7ORCbXjiWrIfJ15ivAwv8NDT6J uG9rJ1DxZVPCcvd39L/HVef/g8D9Auc23L6Qi2dOR8+utJDzOdsisLw2FweO H/lT0UjgDV8mb9v8PEzqk49ZqSIwVURbziOiAH86f9+4LZfAvbkvNh5OKcLc nMl04RwCfzI2jktRi9AiV0h+2zcC6896TUuIF6OXqzknUzpZv/QAJ94Pxag9 +PaLdQKBGptm+rJel+CDV7suswQRaLryXeageRnKtvJeMg4kP2+aEjuVVIZf xKw4c/wJ/GC170s0owz7k+WCzrwicEvshOiKRTlWHZXQ5npGYOFDBpuddQW2 7f4+ueo+gf2fVyer2lXhjDRfUO9tAisl3p2N+VaF9gqb2JKNCVzw2Gj5d7YK H06fkzx2ncAmHcWFt/bVeEgjLYdyjsDdgu1nHBxqcJo5/FGJNHk+dckLEQ51 yOjmid8iSeBl9rOsfTl1aJfk/fmOBIG3rDuNSufrcPvoPeGpXWQ9Sakfc3So xxVDr/nXvOT3L1V84WHfgMJsv+TPzzAwqXPP8vrjTdhfdfkjJjFw6fupntsy LRhbvblJPIGBbwcndirptuAjNv/jnp8YmCwYW85v1YJS8qb1UmEMfNB/kjU7 uQXZTOmcezwZKF+V5p2/txUX5vyXom+SecNiYrBX6AduJzzf/eBkIKtM/2t5 1na8GvZn5NQaMt9cVre23dWO5tv1Q9KYGDgT7JYXp9SO8jphCpZ/6Kizdfzm wpN2fJKiEBbQT0cRmZydBrPtWLTHdsQshY7GI66tHOMd6PeYReO5Jh1jPDet qS3qwpQzmsa2ZJ77TbcoVOvtwsdXRtbeBDp2JV8uz53rQgPRW1yiMnScL42J e3uwG0tVbGcNBel45sUebqbwbtw2xhcaPUHDKYnPBwof9eC5mPFVJk9oyFdU 2xkr2ocyBo6h3nY03CoRV24IfagVPUX/YkFDpcI9yjxX+1A1276h04iGHpdi W4zf9OH6H9NRFDUalomoJWX/7UOWhMCxQS4a3pIX2b+rvh9b93xdI/WeihYG tKtmRwdRlI9JkO5LRY429RQbtUH8soqDM+YFFW9xS9bbXRjE6Tstr2dtqVi4 JHTJ0mIQDfa3XzlzgYo2xUcUDsUPYrS+wmQkNxXp/abSg3xDaDcjGMbpOoW0 pdLsCWIIT4Q7pk2QPuAkQ9E0+kd6ZkINPd98ijyfMo62rx3GMd6yId1rU3jQ R5M9ffcwEoLzf/fLTuExY+X9UteGcXhMkz18ioKmQpqOZ8qHEaVfDtido+DL zk1yze9G8D2o+oipUVDD5q7Ej+gRrE51c2s6QUH+gN6UlqQRpA3OGG3aS8FT ZldMSspHUFmSyqO3moJ9ClsOmf0ZQcfnSdtqvk2iuEvz3/ELo7jrpjCvt8Ak hiVrlt9ZN4bn4kPODzSMY+bcGYllq3EUFG66cr9sHI3PeTqFOo+jVbKhNeP7 OIrpplCkPMZxpTesj/JpHIUWfIR0w8fxV5pDb6zTOIbetou5VDGO9e4aTw/v HsfsFtXNjwQmMOLd54h8uzE8rreZaSpvAjcmae9PejCGCpV6jLHyCYyp4toc cnMMf80KZPU2TmB9xG2WW2dIn33lW5o7MoEBozx+uH0MjyhS449xTiLvROjz iNJRDFn9LFXuCnlf04qrljlH0cGlg0t5ehIJA2Z1o5URBKbXLTcWJ7FBdtAS f42g8cG4o/asFKR9GHQ16xpBc/mUtgAB0gt5vWhecSO4/th9gSdKFLRVDqr9 ASPouYvdY6sfBZ9absksfjiMjxmnXz/cM4WCW3tnPIyG8fd3E+M8qSm04DBx P31xGF99i3vJfGIKQ3+pRxTKDeODpL3fHM9Ooa2tHp8VyzAe0ztrIWA9hb98 NwouBJN10ligyJtL1onSmTeZhYOYHtNhOUF6IE/d2vaOtEFkShA8XK1FxR1r 2O/OfSLrll1t/NNFKqq/l7CR8BlErbmLG86YkN5oaOp+99IgbjncfEbTjbye mXeHSf8ABmhJdIkXUbHutDmcOdaPx9oDYk4eoaGb0qR/8vZ+VKn8tXBFnoa9 +ZtluFb3o+C+f1yWKmQfRck7ZtT34bodFZe8ztMwxrU0N924DxdZ71+3NKeh e5SKhqNPL/IV+FZxf6Khl9Zxd53Obgwm9ic+56Ijg6pgHJ7bjW/levuvbqLj 3F01tSFyDuxeTHCSIOeCic89OX2jbrxp6j6SJU5Hm6rBDDqlC+0GejUslOmo wipf0fW3E8Xoo33WdnR0jYy92cfbgcfTShzSOunId1mA6wo5tywTZUzeknOs u8Iop6GjHfP9U5+bj9KxyfeKzOfQdpyXztBd+5OOZdwhAbw72jHC2Z93nJyT zocW5rv2tuHmMr4fojIMbPFLrNSWa0W/nsPns14wkBq6rLd/Wyvmecpwangz MEv2vDfLSgsG7R9pan3NQG4n95X4shY8MCX9uD2Igf+M1drztFtwgnnpoCc5 5zN67nFsv92MT2Y/y4TXMlDQynVztnozFvvPSWIjA3FU5fDZfc3YmrN7T08r A3U7QvLNiSZ04DNhX+4hP99FJd/VsQkPvgx9SFAZePPCcOqkQCOerc5jd11L 5lKTNonY/ga8fu24vjQ3ee66q3y4+rEBudfc9O/jITCv9W1s6v4G9Co9Uy8k QOAdEasva6Eeu2ciVbXESQ8Tem3+3LgW27PeP9VV/u/cjKEMfKrE2hHDgTU2 5PViSptWm1bi7LV3hpWPCNR1+LNtp2QlqtVzL7o6EPhE7wDLue8VSDW47zXw hEAH4wVvs/pyjPp3j3rak8wtR30qKmdKkddj9FRrGIE74PZy5PdSFNJk1d8d SZ7zQuxjVk9LUfz4W0fLKDJHbnX4tZa9FCX5ZhenPxFo2zrswLm1BA8x7x2M TiIwJLLb97xiEWb1VRZkFpBe8dG2gsJShE/fNXYHIYHnOf4uLAUgchn/YrEt Jvlb9pETsYXIMUB5yl9OYMKqK8t3q/Nxze7Q5bWk98WrsUne0s3HV6H3Hb/V E3jobOP+yz15eGjVyeWrZE76aDQ+J0nPxa+sz0TfkDmqYgt3XMiG78hcVdf1 sZP0QD1DgTshOei2nimMn/S+qiMG+w6I5ODX+Ge33HsIZP1U5Zsok41zv6U4 TvcTGDyodMRMPwsXwqmRT0dIr/aestwwkIlwXSIgl/RAPlGRral3M7HY6rY3 QXrg4OGSXcMOGSgXn+epSubC9IygoU1haWjHRs0KJT3v3xrOa/YCaThgyeKS SXqeiOwx8/agVNRKUlhfQXpeLb9fyfq9KSj7+59bE5lLZ74Pc2btTsb11kt3 q8ncWhFS6q8rkoSVydwbc8lcGyhlZGi/NRF9Qhyyn5O597F83r4V/i9onnI1 /SqZi/ew9yu48ibggu5t632kB85w1J22WBdPPvcdSmlkrr5mqlzRxxGHEfvM tO+RuXsDdrw7tSYWF4/xi/CTHlggWiHHvhKD+dJdm66TuX3Nxva3RovReMUy XPoXyX6e1lrf5qIwOZifz5XM/bfFZ7TWTX7AzSJieaykF7wsDK6OHYzAtuhY 0f88kE8zMFC2Kwyl6x6d/88DRU5+kSlqDkEnWwel/zzwTf+H/So1QbjG13+m +j/eL89aVPIO1cTjTf/zwI156ipH895ioU30x/88kMfvlVlChj+Klph++M8D E+cT1x28/AZVnhEG/3kg76ohSebTPrgdhAb+80Dm8xc06+U8cPTzhIgjyWeq Pjx4u88Nl70V9n4imTux+liC7FNc08z/6z8PzL3k3rJrix22vzB98p8H5v41 spf6/QCftUrW/ueBfqOnD+4xu4TGq2/1/OeBWyTCDkttUwaOp8zJ/3kgM2P+ pUSZCZyvXavynwfKp45mxLhag2aAa+jUf96W6Tm474MT6IfcyWwlOeHoJoF2 w2ewpqLEL5Nk36JCjY0PX4D09ghJX5INiPjfGk+8gFay4mdAstU+KW7HV77w bGE2c/d/3qpyo6Kp3g+sxfzDxsj94OPoSbvZFgA2Vf2qESRf4ygqpfYGgumz X6laJAvGq9hZjb6HWzxDA7/J/X4bF64yTQ0G30vFzQEk77q4Os70dyjI6359 uZfkOx/S+PsWwqFZqGA5m3x+dKWRjRqrPkDN3w3HFUjmjzCpfO4ZDVN3mRel yHpgfbfyTOJVDPCsH3H9QNaL2mzfo8Y3H8GL5l/DQnJm5O9/bEGx4FYxn/CN rL8t3o+4wkPjQLphjeJqkoXONGnsi4wHS5HXoepkvZYEZsHh2ASQE6iLyCbr O5Uu3DGbngR6ja3Dh8l+yFNXW2SPTYa3u06ADtkvw41fgDcoBd5WX7EyIfvJ 8S3rZ++CVOiTC7hkT/ZbwHBco0F0OmT/3C6tTnqemX2tqYZgBsR0GCv/938b r/6F/INvM0DisMw+FrKfrWqZBBnumcAz+vTZJ7Lflw/64eF734Bv+2X9N4Ok d7VTty4MfgM2K7d9xwYI9PFz0s+9kg0dOx51dvWRnn+y++8+zRyQfT5RwkbO G8dK99U1B3Ih+R1rz7o2cp7bVD6amC6AoH0XbpdWEjhWkM96zrQQdlicWP5L zsPTJUKlScOF8DDird3eMgI1Z/ZcvdyKUL5dls2miMC0zR3PJbqL4M3cusxU 0gOnd+oZWOWWQHNq8If2eNKb398pvDtbApJs7bfCYgk8uv1N/xXpUhjaVMF9 5SOBr2aui0l9KYXdzRWCSM77/nfx176ElEGB64CA7DsCvYckIvPsK6DN7szB JlcCCak859s5FXBjTzPrFHmevBfbfYPjbwUUYIr/ohPZn24PqQpOlUDx9q1m Jc+jl7/s1W44V8EN9ZnGb/dIDywd23nHpQa4FnsIH9LzHpdbnfqMNUCt03m4 U5M8f+Skboys1MCa7U+Tk9XJ/U2K3KvqWgs17nH2qYrkeSBD1Uh2rYNNnGLq 50kvpNDv0flcG0DROyeNnfQ8HiHOBwPYABx91gWCG0jvTuRtjFppgCPbrUNF ucjvEyTNxunSCItCD+uEWUgP3/krtUChCXgath7M/M3Ao9Y3fA3lm2Gu8XKf XjMD2WtbfoofboXnXgdYXrxkoPeTntpJ3VYoSpf2+fKMgbPruws/WbWCiKrO hSpnBt5Wc6tfl9IKChfrEmnWDNybqJfxce8P6BJciuo0ZOAW/dTWju1tcFJP I1/hCLn+r5/KEqs64HGC6/azvXTMNffgV9zRAZFazy4+aaej5pFpLm2FDrie s2E+tomOs+zfT1xz6gDWV3Xeg2V0TC6saJX41QFKIjnsi1/J60PVNeIHO8FH 9XN+xWM63lTfcL8lpxtKws9sLSPzXYTPuPLuH91w3mqXmOM6Ogq7n5K0JrpB TjS/XJyNjuu03MUXdvfA21+lVVYLNAw8fodeHNADKgLhrN8HaWhtF/la4kEv 1FZ5hPJ9peHnrADzk/z9EHuh4TGPAg2NLNaurpTqh8DvpxiLsjS8N/eVdlqr H7hwWHRQkoZX+1ljTzzrh+6zjaPvdtKwe7Pxmoapfhj7W9PzjYWGi02eNgn5 A6DrrL2uqZr0OF4uFa+kQWBtF1421aaitf3KPeu8QeB2uG4ycYqK+jQV2UvV g9Cam5Z5XYGK5o7nczaNDYLwes9t0geoyJyb8+fStiFwPOGg7rmWity/NWTW eg9BOS8H62jpFL42NRtZMhqGmimlC/dJP9g21c150WIYesLumbGR/kCE3jSN cx4GjZn9uZFCU5im2JMnHzQML0Uu/cvhnMJHT+a0JeuGQfLb+rvhYxRsIxTk 9x4ZgSiL0pkdwRRs3s1mcnn1KCTco3yXnp/ELquo9KPrR6HOxIL3C2MS2Xe+ sdu4dRR6LXqqt45N4l/1tAu50qMwbMF9jtE8iVJUkS2tRqOw60PZvHbiJDbK zD0Sw1H4tgtL2AwmUTYhVkjZbgy28WqUX86fwPYNZs4FbePQWpRpxfxgHGef B/IdGhyHg1kqIpdvjuO9b7aZEVPjoDx8bSZBbxz5Bk4v3F8ZB/5C2zWgOI6H PFbdrdgzAX+dI3ZJ8o1jwcj2hldOE6B1Z1R7b+EY6kS4XVYUnATTBhf+91xj 2PDH8vJ60Ungtd7xWo95DJmnwvm7DkzCwb2J1htmR7H0x/7a60qTsHH23BuH gVE8cbilVvTeJIi65FzbmD6Km3aIX8/KnIScE/4PHuqP4tXOpJM1pynwROok oytsBPdsvO+ZcYECKt93cHO+GUH+HCv99wYUuJjoLXH0+Qhqc2pZa1hRYNSH 38z13gh+dYg3NgymwAGqyc2OwyNoZuk7d26MAsW/rZdC6oZxp5VFh5TTFIT+ HnHwmh/C1BKXslNuU2AYG4A7qEMo+HfrxMVXUyCLehYZfUP4uCG99HrkFKQs 9/DXlgyhXG97iGDJFHwbf0IvfTWE7xMi8rTYqeDk5ZvRLzyEyc7/FB6/oYLh dal9zcqDuPqowCaxICqoq7gb1R4ZxAz/WayJpIL0/UuLxXsGUXFldwRzMhUq 3XYYf+IeRJfo30d211HBNSw9zDlzABdvp5oqs9HggFHm1YChfnRRbbCtdqCB Q9524w+yfUhoWR/86kIDoSqn1uytfUg9tfTK8yUNLL1+VlQz9aHcx0/SBwNp 8DD3gFZ3TS8qva76sz+FBrPqtg7Jhr3oJLmZa26EBoIja6L3vOjB6/GlpzM0 6CAsX178ur4Lz5r/NnDWpsOebsrKl+Qu/HCqXuukPh3aA7sFi950oZDTSnrc LTpwr33G0Xa+C7V+GJrzP6UDc+xM7pe2Tnyi7MFskUYHRZ/b/7h6O/Alxf7a FA8DTL6YdVNG2rBYZue5RH4GrIQMOUuXtWGeQsvIre0MmGzJ3/joUxsW1kxP 5+1hwF+3nycmTdpQyeWwORswgC8l/bHH2A+cOd3vsdaUAbb1+6zSxlpR1+f8 tKoFA/oe7bCMKG9FLSHbMTtbBvg6G/90i23F1O2r7xU/ZYCngnOw4u1W1Aiw SP4ZwAA4LvnMcbQFl5Zt1CaCGOCWHet+nPRGyfLea23hDFhK+akz+7EFH2Ub MwfHMSCSZ/Su4a0W7HGs9jVLZMDCBteytSotuKNUPPBYKgN0MjrWpYu0YOHp PZuWMhlgpT2pdXFVC86IOHBkf2dAUUyq9/RQM/4PJN8QcQ== "]]}}, Axes->True, AxesOrigin->{0, 0}, PlotRange->{{-0.9999998673807659, 1.}, {-0.9999998472739559, 0.9999996804473387}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], TraditionalForm]], "Output", CellChangeTimes->{3.491822603916531*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"f", "[", "z_", "]"}], ":=", " ", RowBox[{"z", "^", "2"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g", "[", "t_", "]"}], ":=", " ", RowBox[{"1", "+", RowBox[{"\[ImaginaryI]", "*", "t"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"w", "[", "t_", "]"}], ":=", " ", RowBox[{"f", "[", RowBox[{"g", "[", "t", "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", RowBox[{"w", "[", "t", "]"}], "]"}], ",", RowBox[{"Im", "[", RowBox[{"w", "[", "t", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "1"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.49182243845135*^9, 3.49182244327013*^9}, { 3.491822521856162*^9, 3.491822602479154*^9}, {3.4918226337847433`*^9, 3.49182264583923*^9}}], Cell[BoxData[ FormBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJxF1gtUDdsfB/BO/r3QE6GUG4mkK0Tp4ptUHhWVJPREcbhIEko5SkmSVCol otPr6Ekpp/dDKSmV9EBSp6eciZLec+f6/zv/vdasmc+amb2/v733WjMKh8+Y 2vPz8fFFUce/5/+2AUxfRQgx3pAkgcPj0hXXF+riiDzfhv/bDLa6jI1TlOdc epxsoGSNgEt8TRO8+0dB5DEkxylrsS1zehfTcUWS1jXCe/40dJ2v7humPCw7 VGMeehZaXTTbQd77zrA55ikwQLm6ZWNx9n0XvPjFr9/P6+8SdMO8FHoox927 kiET4waa/n/CO3j9e4A7wzuxlbJ20uG9+WYMiNUKmDfzxruKjvB/C5we7xru BftOllFecDJB749D3mBEiUgX8sb3Aad11oJ03vg3YCt9i5ZIeUCZq+Fp5wdx KzGfaF6em+BbIGkbwMsTAF3/oMxrlCt71q3kHLuNbPG5ca68fIHYqDvfwp6X 7w4Cfk/4dL4Q2JhEqypT3vzMRsiMHYKju5cMy/Ly3gXNRcmCj5c3FLfcVtuW Tk3nvQdue7p9BuV5TrGjmYX3wDigLsicms4fAU3njQs8p6bzR4Lv9wJP538A rna5lRJlrtrXr/PLH0B8za73UlPT9TwEZ4txeN/kdD3R4EhY2d6dnK7nEbR+ b5DpepjI4Zy0z6U8S+uncrojE4sfJe6Nppxxsd6vpZyJIAOhKgfKAsO3DVVd YiF3zGAVd5xAwoDw27q6OJRlD7O6xqg8nWPv5fwT4XLqIbOEcphis8b2jkSI +QYvj6asfSQr3FGLhXauVcV+ynfazh0s6WFhnZfb5aJRAuof+j8d10uCQ1lz tMcIAde3rZxnUykwbNZcbUZ5iXie3qd9qZAy7dBXpvzaKDJOMDkVO8/LSNX9 IhDQqZKRpJoGG0/JBfKU2w73nCc/pEE+a0n7w58EvKzsRpmaT9HvV3t61w8C FaZ7+Qa+Z4CxTHx4LmXbBsFDj2QywTKsnvf5OzVf+9mZptsykatdK+9EWdFK 4WRmSCa6CnrNgwcIMI4RDa4az2EoY29TzCWw4fLNJwLuWTCHd21dH4GY2BJz WWE2Hv49dDyQstaKC+lVamxcVuoMN6L8lrVytscBNiZgUFzWS2Aq9U5RG4uy yMq/MnoIHGTbrIozyoHo2JqXbl0EJGrGaWuCc+G866RW3hcC7iPrkvXlC3D0 mvvZM5RnHhFJVdEvwOPr0noKlEPftKZJnC7ARO/HIq82AmmPb2S05BVAXT5H UvczAac4wirrz0Lk6ObNfPqR2m/GevYG1YVY7Ndkt62RgFjswLlzosVw/lai 3PuegNnBD0P2CsWYJ7MhIIBypHjZeYv1xVCvSVnV1EBghWvkhc1WxRhP+F7g 8I6Azh59N6HkYkTJ5OFsLQGX0UjPSMMSaA6fYP71mkCr0fY7JTdLkRyorVdV SaDeLbrd4VEp3uwQOWtJ+VXi6LqZWaWQkHKmu1UQeCaQ9N64vRT3hVM/PSsn 4JsnsahV8yXqvNn1YqUE1qq2xI10vkRy4fLhv3MJXJ99KldVuxxqmofmVj4h oPY6qDtsqAJF6Zub9CmXrRQLqBCuhKaO6oYSFgErvxvq44sqUR+/rpCdSMBv J+OqtV4l2N6fZsfGE+CUn5JdFloJa/9YX4cYAuGlO/Y81XgNolRwZlQEAb78 qedVrlXY2iGq3nSdWt+0Ez40Wg3ohmzVpwcISNk5RtdsqkNFtsag7DIC8r0V hEX/O4wZao3e+saFSSy9I+lUIwZ9rEI0WVxYX2jiyCxrgW82v+ezo1wEud/y 25vyEb3+Tja7ZbhYMcPucdnKzyhfbu4TXvwNRjU0TiK3DRW/8jevOfENCzWG XzWotSMnO2V0/YxvqFOuyxAL6IDjrzkqn0P7sckyr5nD4UC7aBvdWqUf7ITX xtGKXUizPOyVlfoVioyi6uNXuuE410M1Zf1XPD7b8kC6pAdy18tHNrL6IMpt OV+r0Ad/bUMOTaYPyqw+b2XXr5ij5BQ54N+LAwy5Hoecfpwc33Klrb8H579o mKTP5+JBYG94gXEPYi3Pz/5iSUAuZEf8yfRulMyy42s0GoDFz8GugMkusP4c nywZG4BArJ3eH3u6ENkax1x6/zsMHxyldfp1gt+srFrE4Ac2OGyijRdzoEM/ dTd/+Acilk7qC/Fz4D9LSaArdBCuFqJSGcodMDxnOhKsOwT+potT8gfaIX08 MCSjawi+b6M6T/h8QfbEvjcx3j/hFD/iVB3Rhlrz2zcWrh3Gi08q/R8cP2Nw cwuXVj+MNYIX7UsvfIJ/X3ij49VfWFawdc/zoA9YrUinmyqOYFXMhtFQVjNY k4Vh/KUjWBC2qnDWzUbcv++/c+PZUVS1qCy+4dmAsFd0ZrvUGAZ9ld9LatdD hM32lCoew0NVD487o29hZhA8KXF6HB6KTS/NI94gge6u4Ck2AcHUdvm95a9w zujDq0u5E5CS78lnqpRie/6uhRzrSRT4WOQbLCrAUPVWQbmpSXQPzUgMasvA /Ngkl4+sKbiW1WoMbImDrrByoJghCWOvJa7fumKx9GjPvtbdJDxa2e/aA2LB Xxgvm2JCou9McV1mKxOFF5TijfaTGJla9WPCPQabupfm+x8mIVp9Jl88Jxrr yuT7Z14iMWltsfC2dSiWXJu7QyiOxOIzX1JvJ1HfxbZ60cYEEj9zRl0YYyFo +yu4Pu4JidxZTaFrQ4PxYFDSRj+dRJaXgVxzVSBkjoi7eOeS2PJE1s/6tA8k dWYyZ9STGLebV2Ev7I2BqAp6fQOJqCBVutFjL1SP+q6OaSIha/OiKq+BAf90 oRydVhKfTdx19F1cIKwgUHe1l0TNPou6gwnn0H25NMykn8QtQ0dFtRZHlDV5 WSkQJAjFFHktVwdcC+TvLRwisb3EwJj+0RZH+otSAn+RuBhQNlv9sjl0dlx1 th0jsamkbsYad30oMLW11CZJ3n/b/5r2P/CEEnM= "]]}}, Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0., 1.}, {0., 2.}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], TraditionalForm]], "Output", CellChangeTimes->{3.491822603916531*^9, 3.491822646212276*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Clear", "[", "g", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"P1", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"P2", "=", "2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"P3", "=", RowBox[{"2", "+", "\[ImaginaryI]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"P4", "=", "\[ImaginaryI]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"f", "[", "z_", "]"}], ":=", " ", RowBox[{"z", "^", "2"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"g", "[", "t_", "]"}], ":=", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "t"}], ")"}], "P1"}], "+", RowBox[{ RowBox[{"(", RowBox[{"t", "-", "0"}], ")"}], "P2"}]}], "/;", RowBox[{"0", "\[LessEqual]", " ", "t", "<", "1"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"g", "[", "t_", "]"}], ":=", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"2", "-", "t"}], ")"}], "P2"}], "+", RowBox[{ RowBox[{"(", RowBox[{"t", "-", "1"}], ")"}], "P3"}]}], "/;", RowBox[{"1", "\[LessEqual]", " ", "t", "<", "2"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"g", "[", "t_", "]"}], ":=", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"3", "-", "t"}], ")"}], "P3"}], "+", RowBox[{ RowBox[{"(", RowBox[{"t", "-", "2"}], ")"}], "P4"}]}], "/;", RowBox[{"2", "\[LessEqual]", " ", "t", "<", "3"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"g", "[", "t_", "]"}], ":=", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"4", "-", "t"}], ")"}], "P4"}], "+", RowBox[{ RowBox[{"(", RowBox[{"t", "-", "3"}], ")"}], "P1"}]}], "/;", RowBox[{ "3", "\[LessEqual]", " ", "t", " ", "\[LessEqual]", " ", "4"}]}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"w", "[", "t_", "]"}], ":=", " ", RowBox[{"f", "[", RowBox[{"g", "[", "t", "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", RowBox[{"g", "[", "t", "]"}], "]"}], ",", RowBox[{"Im", "[", RowBox[{"g", "[", "t", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "4"}], "}"}], ",", RowBox[{"Axes", "\[Rule]", "False"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", RowBox[{"w", "[", "t", "]"}], "]"}], ",", RowBox[{"Im", "[", RowBox[{"w", "[", "t", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "4"}], "}"}], ",", RowBox[{"Axes", "\[Rule]", "False"}]}], "]"}]}], "Input", CellChangeTimes->{{3.49182243845135*^9, 3.49182244327013*^9}, { 3.491822521856162*^9, 3.491822602479154*^9}, {3.4918226337847433`*^9, 3.49182264583923*^9}, {3.49183520184457*^9, 3.491835305608671*^9}, { 3.491835340921668*^9, 3.4918356209631443`*^9}, {3.491835657154133*^9, 3.491835935961577*^9}}], Cell[BoxData[ FormBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJxd1QtMU1cYAODr2JRHyDaHUCohGsYjE0QjxGERmgE2Y0iQlwyGQYKCi5ay FGQDDAgDZleoLQVjsqUrjzkUKIwiDUxqJ0spIzAExjYoFoi2UB4d5SHSMlnc /3f3JDc3X87///eckz/3HEzNjL7wGkEQ5S+fnTd5pL5w7CtzTgv+v9kkl5Bc RXIdye0kPwL3RccQy4YRcMHGsaZTrlNg9WnGzZ85s+Aj/fxnNUYdeEjyaemu XUvgvedZosHAv8Guur6lBL0RfKb+0sy9K+vgc1fHZ6num2B+AfdGTPMW+E6/ Pj6sE93jHOF2XIHWS227qWPosMWyBY0JvXHuehTrtAmcTL/qyNWj2RVj09fW 0Dcm/FtYhBnckWtkxDqg32rN+nx/IFpx8PLEDxy0l9V58S/vbYOruetjPH/0 65QKuyQ6esq7i70UZxEfv49BKbKIb+ybv/Q7+jO/lAN+0+gnD9ZizXp05Ifc r5Tr6FeDTjz5xtUg9AsG39JGeXpmoGXmIOVkDlpl00EJKEW7hDc0FPHA8rwW 3R67WrBIF1AYONoEPnJMnm560QlWdrYymksfgnmRNxuyWb+Cl1mrFwWCx2Ct +HBIEX8c44ndtFrTJDh0pv2kT6kGTJ2QzotDoE/p0bGjdjHGp+A2gjY0kAN9 S59TZIpTffWYH9SUzGcvgMNlcxSFbBHc7fi2wOtj6HO6N/u4feXGS3t4cL4w /Xfey8Fe8mK3khV0VKKmi6tD5xqDYmum0EqvzZLGfrRLslT60320vPeQ02wl Ou2wONc2A31vu4J2loI2DuWZa5VmXA+HYaVimsAJYe9YLztsgau+TLuSVfkc vNHy9NH44zV0YnjjG+5G8NBv6fPpdQaw6MLlkyl/LeB+e/KTklRaMJ0aJdQM z4CX+bbp6eoJrHfgk72awWEwkdzrrKrtwf0rHm5JsqU4fya/x7eyAc00hPoo bqG1dw7pa7LQdOGJiO+T0a9G+3cGGc2E/y3KtyMi+xV04e37ZVNatLb6NrNV jY4QFMQVj1jkfx3i5im3yC/3sH0uRc+W2BhUd9GSgsEHzBp0aGZSYgfTYt6Q fbYrzaI+mxcrT7RYT25vpOoUuvy6b4jaFa0UWnnvHoT+JaK675rifNEJNlui 1SXof4LHHfiDSpsD100mMLPbn4EnnPatStfxHpAMt9l0M6bB8jYH4yIH742M KnfZUZc/cT32jf5T1qPglHLDgNObQ/j9Zn/h+9G9eH7r6k2fax1gUd7KB/7v ouXbeziBKimYsD66/yNHdCGlmJbR/CPmB3jmi9USUv0GUr16Ur16Ur1a9L/1 RKR61aR8Idp5J1+APrGTz0Nv7OSXkuKLSfGFpPgc0jyLNH+R5HjyvUD8AyEy SGU= "]]}}, AxesOrigin->{0, 0}, PlotRange->{{0., 2.}, {0., 1.}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], TraditionalForm]], "Output", CellChangeTimes->{{3.491835459889256*^9, 3.491835477708193*^9}, { 3.491835530734561*^9, 3.491835558301445*^9}, {3.49183559839511*^9, 3.491835621529221*^9}, {3.491835663431026*^9, 3.491835674170478*^9}, { 3.4918359023960867`*^9, 3.4918359362841673`*^9}}], Cell[BoxData[ FormBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJxd1nk4lVv7B/BtyjbtTaU0mZJQptQp471KTqVIIkM4TiUSKskQFSo5R2ZN IkOmyiyh6EHIeMyZSuZ5TOahd+3f9Xv3fo/nH9fn+t73/ay99trPQ+TcFV0L ZhKJZMJEItH+rr7+3u+nsAQtav/2/Cpvgn9bcZWNVtlllZ/R3Sw+ZCJ6+QPd px5mhhQf+ofu3u575dLnWune8lN+8CZPL90tsg+WfnCMMert3x19X/aT7u99 5GceJot0G8udtRHeyYT+69qAne8dTdjo9nFq+P75LQfd+ke2Or4oYVhdMlXJ tZlhj+252keWGPaZvBAteZiT7r6p+dkNjQy/CpQ3CVnkojs6dvGDHIWb7g8V fJr1wgyf0hadlPqd4XXSDdZigQw36rhyIwkeuu3km8ibz1LoTtVs0hS9ynBM QEi9/P3/cfTvORdTGOb67t24k5VKd4+pvZb1JoavcWzifivDcHRfuKmpEcOX cu6fYk9huC3c8NfdIoZJKQNT7K0MN4/skw0eZ5itoeDHr1/YHeGCk4/0wEah LXSFZr1ch96cmxB/ROPaIs1PB3R27vSGTF6S4wzNnjlTSc6B8NiP69U4zTkr aqXfHsPxAkvOfpon1P/uOhQG9QnrQ7/SHFxkvVIfCdIaaw1rsN1lLAN8vF6C yWPzw4W0vJzjnYBiHJiF/TJLp+UWiW2xwwmwx2A8PpKWM51kUnjxBlpKZIV8 aXnYpHi+TjLoD+cXOdHyrZpxcR6pEFMU/dQcO//SFsXR1jQo1m0MPUKrzxqp UNibATmPDCt2YyO2j2Y3fd+Cp+9uKV5a/2n/yfy+TBBUOpU1uYL7I83vsaMs ePi8xL4W231MfqP2s2zocXvp4EPL/2pQaTv+ASqWOD9Y0PKm2GqR2Fx4IP9J Vg2btMPpnNVKHjjl7IgZXMb36+AuummYD0g9I1sKO981ZZCd6xMUXIq8NrNE RZGiAgpvsj6BgEa7YT62e5m7m/aFIlDZfCJdGxtt1KU+yisGW7WJAP1F3J/+ c6/o1VLw5jqfuxY70sj0dvHWMnD2Fd/wzwLuJ5V8tiorg9qUCD3ARtpPjFNE K8DKzniZax7XDyq6qzRWwSLzwpb8OVy/7a29ruM/QBXbGWtP8ykZC6uN1UBw Sc3WzeJ6E74d5btrQO1a3TP3GSoyL2LjnLGrha5L7dwS2Drth1g8iFrgGnca qprG95u7s8TFWwc9L073rseW270wJpJWBykhSS3+U3h/QsbqtabqwXpyR5QU 9kTSrqpm9QaIad1V/+kHFXV8tio5H9IA0bodjpOTVFSz2JXtsq8RPjYP5ypO 4PWcbwqPdfoCl1V91W+P4PkK+ZbLi81w/Fx7xq9hKhLWWjb3PtECyevy/O7Q bKlkvC68BRa3bL93cwjf//nbE5JqrZBRGGhrOoD3k/mVvL57Gzyzmldq6saf ry5wMZG1HZQ3/CBCW6ioNDvtSLJXJ4wbvfNtbcbz9ktb6Kd3Qo/phjsC2Fcz EzyXvnXCo7hXlX5fcJ4ekae5rwvWKm9bZ1GP9/ONr0J/dxe4XD2glV2J9+fF JSHhgz0wxw2O83lUlHpXZDZwsQ+mDF2zlnOpiMwcvl5xZz/IW5zeSsI2dxfY 06HbD9c/ftH5lUNFvLeotjKv+4HXQcqiP5OKrByXu8oNB+DDMJuyWRK+/6WW f1jeDUI+t+/zvlAqCtAOjLtxdQQMDArZMp/h/X0rc1nn+QjsLPoS4/GUiiS2 VMruKhkBJ9ZwD/7HeD/61+R0bBmFSqGIzJ2BVDTn7lZx/PMoaBW4sM944fVk WE6ICI5DWoq3rtI1KtrKLbStv3cCPA9GG1ZfwZ+PsL2jtzgBvtOhwefs8Prs czsLeCdBt0gy4e5lKspuNooLU56EoKXc46kW+PzEhsjqBk7CUFOOWwZ+vnmr cR7KU/kBi4o8Xn8ifD6uTl8MDp6CC4E5f7eo4X79i4L+8VNQu5uPpKOK91ep qfHvD1OQKVuockAJ7w9rzmHP7il4abFrZVoBn48nbqLXFH7CpqDNUeI78feV x9KuXf8TroxetjThpqIRjrX6nOtm4GNS6/SmOgoaiJZR9wiaA40zvY6sNRRk TqJUSCfMwTFbadHRKgpqMB3Vbc2bg5q+G7PZZRSUL5B4TmFwDsrYB8KUCigo zE/SsxfmwZbpVH0vft7r3BQrODY6D3fr9421+VBQ7qnNsPboIvT90Pz6uxoF BZDWKL9cXoY6aX+jfmUKSvBnF2jnW4Fwg2BVL0U8X5BjWkB8Baqc2hSJvRQ0 ocKd4qe9Ao+HrFkEd+H5Lmu334xYgZpnXq1+GymI94cg16mDv+C7YNpT1XEe VDL53PbOIRKy+FSnV/2MBx3ufqsq7cWEbnPOG+aUc6PNXzOHo9VZkWHilo3y XVxIV6+R6/TPNShKoE9fcpwTpZOUa6ocOdC2agVthQoONFR4JfqcLDc6+Nyl Lhu/r4uSjwk/VORGG6STclQKOVBY6PYXmercqDLqWyrkcCAd+6ZnZENudKP6 /KE98RzonQgEJrtzo3Rlth9lnhzI053ivlDLjboNwu5+OsCBNqslmQY58KDF llAL/r0c6Kfkg7YPt3nQJ5EHry1kOVAl/59Gvd486E9mSVMmcQ7kPrpe/0A4 D2piD7LYsY4D9YW5nWgv5kGp2+eZhUfJKH3xuLIU3pdNEVuufo8gI82cIYHC HAoyUHyotuE5GQkL+bpnf6Igf9LineOPyWjunuxAMv6eJ/nrz6Y9JKMEHYes 550U5Gpi62TtQkasA8v6NzioKM5QUy1Il4xyN/AFS+BzG1IYrpKqRUYhbhkL guep6I7ReFLlUTKy7tI/x29LRRoU30ESkJFAcqg8swcVPQlOLzqzi4wcNMRq 2hKo6A+LWWMrcTI68aZkf106FYleULrgLEJGonyXIkrxcyB04H118EYyqvma ZJdZQ0XadnPyEWvx+g7pfHmD3/O/hPeyv+Iho9sJP1Sje6joNcnuZBqZjPQo j2KfjlHRSZ44zmwWMtrtsJ/HHz/nFd12HpteYEckcXGfm/i9ZK1ZuYOnnx1J 5N/dfg8/l1MuOP+2q54d6Rh3fvAdxM+lil2uJwl25PxTTe/JdypyuNU35fKG HUX6hY1ENlLRlGtC5Osn7KhUYuHe6woq2md66LHgVXa01TQzMy+LipSLq3z7 6tagCzLRzpxWuP6lqee2cDb0s8Z15WUpBQVLKLTpe7OhUplomcY8CupLWXZ/ dJ0NPX1YarYmg4LySq5lSGmyoQNH+QmrcApS5f+SkTjLityJ5DvS9hR0bJ+/ KFWPFfEmd5KytlDQLY9PWVprWZCEzxGWcjseFKK5tyAthoQMNdaRJ9ZzI+No D4ejjXMQcv+C7TV/DrTRUYXyV+AEzKX0FTXXr0Hx8+3xn3O6YM5Y8zXbDlak vL7iWFpEBdTUWg5bxjChtqTEQuuOctDj2sft+4wJ8YkJ8YaKlEPzYWbpdD8m pBL3TsI4thQ6ssLslpyZUABTqo55ejFMhNdOBmgxoUsST2fJxQTwWivP5cyQ UHxs3EKqTTToMFPZuI+RkKsN219rgvKJSAsbVfO2ZXAY//ibgGQBQY7vkdz6 eRkePZTZ/4koIK4OmGxoTl8GLX45ud7hQgJd1ho/+fcyVJvnMhtBMdF8VSYK FJdhoX1eklRfRvC6TbAKPVmC+yr3UNyZWsI5yKHym+4iuPK9Txh73ELoEG5n z5bPwdsjPQcuNrQQ+dwXHG69mwPf5Hn7RL5WQsL4uG9E9Bzk8fT1xPi0EqTp TUT3zTlwXFtMaNxqI1KlskRtds3B6X1hp44YfCN4H08Ouj2chXNXm36IXe8g Sm0uOr/QngGWkAijCr8OQu69VmC+0gx8PWnKb/S6g4hk3/e6S3wGrgTk+Eh1 dhBXo1m+iv+ahsS909djtToJ4eZISEmZhq8cLnsWRboId/W2Nfm808Ddn24p nt1NoM06jzrrpoB5bsytqq6bII2XftPNmwKDwwFeBqPdRPang+JF+P2x4Mfs tF60h5CzVciKc5sCGImtlP+7h5DI39ByWXwKfpb0ay7o9RK8F79tnXH5AT1L BsGFDX1ER5p1DKfIJDx3Vt5XOtxHRHp1j7hyTUKq7L2KVOZ+wvCsyb7R6Qlo PKnRKCXXT9SwapdUl0+AoKGXaeFf/USpgfxAiMMEtHmzHLyzf4AwXxw3UAsY h07rodNytwaJiSBOS8v2ETC5v7n3qP8gIdySpSX9Dr+flRylj0YNEuZCFnun fEfgrUNq90LRIJH/hmC6ozoCSxJyfXJcQ0RkkUPY47BhYA00Uf8eNESYz7TX FhsPwYTZJTMN/2GiwyhDRaypH8z+4W7c+2KYEI403z6U3A83m9uYuZKGCZ0+ Hs5Ur354mbt093L5MJFvb9Wk/Fs/NBQd27rMMkJE+myzP/2oDxIbeGPP2Y8Q 5nkP4j1P94LqD92N+1VGiRphk7Wd1V2Qtng2af7oKBF5Y7ehRkwXCA7GP3yh P0q4ly+Fv3Lugokr5J3+dqMEcgiXtBfpgjvSI+VcEbj+cztiud4JO6zUqu0X Rglzuz+v7NjQATZpN+aN2MYId6/z1usav0Nm+7jNdt4xQliOdabt1ndQ7k2U Nd2B87saPLbV7SAWfUzMRnuMMJcqVfa3/wZ323jKZ0PHCJJz1dP67FaIvnDd myVmjMgXsRML+7MVCmu3BEwm4voKSuoFzlaYNdjn6vAR54I6n6fPtgBa75PP 3zFGRBbXTW/81QTaeexlCgNjBLpy3aMjvgkMND9v3juB529az/NKpwnMeamh bb/wemz0xZSiv4DJiQL2km3jBFrXrGui0Qin+fWNZ8TGCVKec7vYWANoFu6a Ie8eJyIvbrIefdwAMqVRHI2KOH9v7HF7oB6+3E2NIOuNEx3m31IiffD/0+8N vb954ty0eFP5y2o4M/p5uvnBOOG+ffrBAKkaMk/E3Xz/cJzIHxSbWWP2D/gF ppbLPsa54706dYEq+KiweLc7HvcHqPvkPSwHnsruRGoizs9cn28bLIN1gcqj Iqm4f+tLy4Xfy0A16sDbuSycv2I+vJ+pFCitVmevlOC8sGAp9UYxrGkuh8oy PO+vSevquiLIYA5Tplbh+pMiLaOyRSDT7uNypB7nX90zpYYK8e/v9QeVLziP Tt1+7EghuNoc4BdowfOsOgItYwogPCmK4tGO82mwizHLB1W+W8mUTtzv/D37 vhMBQVGfLTy7cc4KjwrlP4LJ0debtw7gXHBFSyXuA9SYHRI4NIT9xlTKxfw9 zEcdk9YewfX789a825wDl5NjwwUmcH7KjZD1fwfpTgtzXyax29ue2xzLhFTb j5ddp3C9tbLzK5a3cD5gcpptGuezoXp9eelQ9j34ieMM9r0Fue3OadB7Nlan ahabz5jHfE8qZLGKi3DOYytfr1dsSQLVVn4O6QVsvT0PM7TegPNXB/Jvi9h2 k4elCxPAiktdaMcStnfqctxvcUCxdNdaoDnqyjvhNy/Banx3cOYy7TzIXAkV igKnmKMTZ1awE9pOSkiEg7JX/YV2mr8aFWzhewqZIVUTx39hU5r3UBeCoLv6 t5AImt0Tj7KV+EDJfurJFpoHEnaNPPEAs8ozIvM0o0dKJ+JtYfm7UJoTbb3/ f2mYht0W7mPYkqpaUl3LsMkMk/f9PIa3rB3+dPDV/3hA8nWVO8Nno+/ohdsw fDFw3vm6IcOLPMZyCnIMkzyqDEn49/df+o5E8FpVMix8fz/zl2yGr6m+CyoK ZDivfNJqRJ3hWYM/hy6+GqWbU1X0ILvLCN3n5XepTUsN0Z2bwV7l7N5Ld/4G K5dz/p10+41ljx282caYd0ozI6GrgW6hntJuz03VDJ+RiRnUKqa7fka1WTv+ A918kQnNqoKpdP9hbcfteimM7nbPp16dL+7QrSnhZtXz8jbdJZEB4m2Jt+ie 4DyxP6bclbG+Iu43Mfuc6Q4vy2wzK7u2av4fq+aZrpp3dtU8Q7qN/m/eqVXz YFW/MuN8FdP6DzDOVzmtX57u3+/R+oVW1QusqudbVf/r47/zyY//zr+vMkH3 6us/zvhEHA== "]]}}, AxesOrigin->{0, 0}, PlotRange->{{-0.9999967242387233, 3.9999999013330148`}, {0., 3.9987688895241718`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], TraditionalForm]], "Output", CellChangeTimes->{{3.491835459889256*^9, 3.491835477708193*^9}, { 3.491835530734561*^9, 3.491835558301445*^9}, {3.49183559839511*^9, 3.491835621529221*^9}, {3.491835663431026*^9, 3.491835674170478*^9}, { 3.4918359023960867`*^9, 3.4918359363180923`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Clear", "[", "g", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"P1", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"P2", "=", "3"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"P3", "=", RowBox[{"2", "+", "\[ImaginaryI]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"f", "[", "z_", "]"}], ":=", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", "*", RowBox[{"\[Pi]", "/", "4"}]}]], "*", "z"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"g", "[", "t_", "]"}], ":=", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "t"}], ")"}], "P1"}], "+", RowBox[{ RowBox[{"(", RowBox[{"t", "-", "0"}], ")"}], "P2"}]}], "/;", RowBox[{"0", "\[LessEqual]", " ", "t", "<", "1"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"g", "[", "t_", "]"}], ":=", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"2", "-", "t"}], ")"}], "P2"}], "+", RowBox[{ RowBox[{"(", RowBox[{"t", "-", "1"}], ")"}], "P3"}]}], "/;", RowBox[{"1", "\[LessEqual]", " ", "t", "<", "2"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"g", "[", "t_", "]"}], ":=", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"3", "-", "t"}], ")"}], "P3"}], "+", RowBox[{ RowBox[{"(", RowBox[{"t", "-", "2"}], ")"}], "P1"}]}], "/;", RowBox[{"2", "\[LessEqual]", " ", "t", "<", "3"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"w", "[", "t_", "]"}], ":=", " ", RowBox[{"f", "[", RowBox[{"g", "[", "t", "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", RowBox[{"g", "[", "t", "]"}], "]"}], ",", RowBox[{"Im", "[", RowBox[{"g", "[", "t", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"Axes", "\[Rule]", "False"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"q1", "=", RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", RowBox[{"w", "[", "t", "]"}], "]"}], ",", RowBox[{"Im", "[", RowBox[{"w", "[", "t", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"Axes", "\[Rule]", "False"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"q2", "=", RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"t", ",", RowBox[{"3", "t"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"Axes", "\[Rule]", "False"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"q1", ",", "q2"}], "]"}]}], "Input", CellChangeTimes->{{3.49182243845135*^9, 3.49182244327013*^9}, { 3.491822521856162*^9, 3.491822602479154*^9}, {3.4918226337847433`*^9, 3.49182264583923*^9}, {3.49183520184457*^9, 3.491835305608671*^9}, { 3.491835340921668*^9, 3.4918356209631443`*^9}, {3.491835657154133*^9, 3.491835935961577*^9}, {3.492254402858109*^9, 3.492254464157735*^9}, { 3.492254495529829*^9, 3.4922545229672823`*^9}}], Cell[BoxData[ FormBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJxd1n08VPkewPHfDAat6EWqVzdW9OBSrht5rL4/mopaT10rua2burUqj/Fi 92Y9haZVnmJ10RISdQtJkTDLJBUhbUR52JU8zRxC47G5p3H2nHvN6zWv9+tz zu/3nTPnj5mz9ojv/mNshFAW+f7s4tfzDvOasozj8P8dtKhjFvVPizpvUd9b 1HV0a1d+gwwS2uius/T+RT6il+7Lpn4y2zTe0528LrpPz0hId6BMRmeC3xjd xt6hySeiJui23lC7tO+8mO6516/Cjvx9hm7bmACrqhPzdGf/RMwrayNMX0+i S4UKj0W3iWKkVpiSDN0z88sjR4Nk6Vb09YptlsjR7ZWo6tAmx6G7qaRMtesL ppOnZNOGVzKtFXkln2PItEnK80fbDjP9zwpDVMBn+vHbV7WFdUzroR/O3Wtg epT7RFnQznTIcw+N7lGmk3qTLNTXytPNl58MjIhgelX9Bax1jmk/3jql6gtM ayk658ylMh2xpKQl+DbTO5f6G/h0Mp3eqDCj1Mv0xMWsRzf7mc5Vbj40OMb0 3PNvdXlipp3jJeMb5plek9B4Uk1CdvicXV7SdiiYSWsx+ny+TE83wMMFTI55 mjnPkq17yl2z8AjUNm3NDJwm+wNf9+zmk9CV2+xVOkk29577hpRAUHPgKJiK 5HH4SNG0uD4Crpa3+hwYIc//Y/emxPyzYLDu6q/BQ2S/6HTX40WD7bRlTtnn 67/PERzacx5Cc/x3WHSTbWXwuOdIAgyI3wRubyZbKSpxV28qPMwq6d15h+yW lZfkfXNguvDjXcsiecxnOdeojuWASbU5z4i8f+FbEsY0AnKh8G21gc4NeayV rOBoHHwNclY3nGFny2N8YFrJI+w6/Jjcp/5LIrn+bUfMg/ib4MpT37vDn5w/ aV9p0l4ME77Bd8wMyfMs1eLBqXI4pu4T1XaPg4sKNMvPJQmgsr8xwMmIgw2T 19YOPG0AI1TvbXhHDnt9qk4M8XkBPcSEZ7m5HJ4Ldy0z3vIKgr6IjdC4L4sd c6+Pq+3pAO7839L1t8viHvXD63NWdIGh6f3qnx/JYGsdHVb0YA+wr5xlCXfK 4I+xY9P7Rn8D5deR3HdP2bg+fUJ48mUfIKvh3LI9bPxpdr+XRm8/LBsTqozV sXCVpQ3fsm8A3IJ1QlrtWThN+7TKHcEQ/PjnGrnEBoQ7DooHKhpH4KavMOfG U4Sdrfb6ff3rCDSWrrIW1CPcoHtFLHozAsusfUPFAoT5YmuO9sgIpLqtEX9T iXBuSpwOb4kQcmODBvRuI+zXst7deY8QqoR6zwTxCCvYOreO8IXQY+Ryousi wpGG191i6oXA+leE/FQswnMrZ3q/bBYCl9O+U5+HsKg/c3R/txCeaUY/TAxH +GXU8NLyeSG0O3TfcvdHOIsfaRNtIYIPxZcSpvYjbGZWXKlxVwTGHoM1f3JC 2PCM20RChQiClsHkDgeEdatk9GVrRTDjM3Qweh/CK7gul4daRCCzyUpHlYvw hMPs6fuECJbniUr1tyJc9O0uXSd9Aly+5g7YGyGcf0PkLthCwGXZtNWn/0p+ vjA1xdSCgDVHd4WVbUY4LmCIrWlLwHqtDJtdGxD2Cot/O3ScAJM02073lQjr pb5Oisom4DvbzKWR6ghrdUQ+ERcQ8GBqAq6pIbxKYxM6VUzAjgNZucMq5P3K CfV24hMQzvn4SlmZ/P3s35greExATek+xS1KCE/ptnSYNhGwe7nY+zsFhAdu 69hodhHAq/0qK52DcM9YQ2jiOwKens5+USWLcLtxUKmskAAl7SnZ39gINwd/ ORI8QYB9i52pHAvhugf12sOzBHDZcXlX5ySUBHxV3edrMCmhJMA5xNK8Qiih JOCQeRLbpl9CSYDnx4FnL7sklAT4lUCKR5uEkvw+m4Ubz9RLKAnIWmtjd/uG hJKAPsVPqct9JZQE5B/UV5Mcl1CS8wpc4wbdJZQEINuSqCp7CSUBq3ie/p4G EkoCHDmtex8KP1GKgM/Onz/q9YlSBBmzTkdLyP+rBYVgttvfaCZmlnIY/PDW 72+dmaYchAuXBLUKl8SU72GNfKXZVMkk5Tuw0XPTcf7POOXv4JpXo+r6eIyy FxRyM4mEAIKyGxy3XVBOOzVM2QmuMSqm4/nvKdvg8l/e7F2f8jtlK2D1sGb7 i92UTWBoN3Q3Z0U7ZT1onWvudp5toqwGZLkxJLuLT1kE6GeTDxvT+ZRFoMXa 7XnrAJ+yCMLjnuT7Xa2mLAR8nXswI7qS8haEt1s8GLcrpyxg5krNAkTNWTCL nrNgJiBqzoJX6DkL/puZIzUB0B/7pMbT+xa8COiPfVLPM/ukhgPKp9ZJ/YFZ J/V7QNuodVL9mONSTzDHpR4GhP9XR/I551pd8/xqyiXwX9W+BTo= "]]}}, AxesOrigin->{0, 0}, PlotRange->{{0., 2.9995487541182353`}, {0., 0.9995887997648158}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], TraditionalForm]], "Output", CellChangeTimes->{{3.492254452890256*^9, 3.4922544647040443`*^9}, 3.4922545236274967`*^9}], Cell[BoxData[ FormBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJxdkglMFAcUhkdBxSNWUYS2C8ixFWiBSIxAC7yptVVURJBLI5VWAUUBkUMo UESxHIKUI2AARQ53OcqlolQD66JuORWwWtblEtjhVgRkcUG2u/A6m3SSyZcv 739/Jpmn9bOvvftSgiAuSl8Z///cM9XSDBcfhbvIRfdF90WPQI9AT0RPRM9G z0YvQy9D56Bz4ETxdX33whaa7Gdt32pz24GFbKp51q7u0gONyDj16s7qm/0Q iyw+yg/nFw5CETK1cM5LSXEMUpAGjGnuRP446CMtHJcxNPMm4BuksfJVhmPT FBghX5C1w3Ut0/A3kkpqe7qhcQaEyE4Pj0MnxsXQgbxQklQhHp+DSOTqYLI8 jSGBlUhOY3IYgymBGqS/pnB3rqEEziJf8WJfl1hJoB1ZpPJc+YmbBAqQu267 B07mS+AH5Hfnvlcv2ESQO5DqOT4KI58RJAMpakgfMtQkyGlkscZw5e0tBFmE 3MC7sp9jRpDKyN6N7REvDxPka2TkLa9exWyCPI+0Wm28cz6XIC2Rs8cmb4pY BClGBqqEnRwuJcgA5KnghPFnNQTphdRrtbOvryXILUhKf9OdWh5BCpFuguvn Kp8S5FGko1X5fEaXnMrpAW6pvXK2vDWrTaDkTNj9USd6WM69OdxL598Q5B6k kvjSQMgEQa5APrHfY+0/TZCPkZwxjpmeiCD5p7ubgmYIknRNFkVOyX335x0T g0Nyt+Uz39h2E2Q7+unWfYKRO/J5TL1/XXSc3BkhTkdSjOTuZne2x/KmBP7z BJ8x1pjNPO06sQ8OjvLnaD9jOv6u/PQs7Vk7VVaIVMW0m9gmLI1nzdDOqnof kGsjor2t8nH7r7Pvafcsp7SL4qdoF6z80Oe0fZL2KrcfL9s/ekf73r0Guhud x2lf1bPO5dTht7Sf12/2LF3+Bl6hHznT4UqmjdJudm/kYBtzhPaJIyMPhc1D 9H7x0hHDD4GD8u/T1Oh0bx6gXcvCLr5Nd4Det1XQqCoRU/Q8tGG4L6ZF7spG rSFBD+RelHTvk+MsuedJUm9YXKfgT45vcIn0/8deXbt85ioFHhNxivel9+Gz NebU7RQK1jNZv/Ok9+PQsKTV5woFNc5cxnPpfVkcC91uEEvB6biOgm7p/WnP TWUKL1KgVi3aNiq9zzHDQY8jIRSc0TayWSYgyItJT+esj1OgNZYRbtpIkLdc MvWYX1MQdSGgK7OYIC9bltZ7b6NgS+kOZ3s2QZ7Q5nrdNaKgmb+uRSmPIDeP Un/s0qFAdWsJNzBDmo8w2eq1hgJ2tzDfNlaaZ9Wbl3UJodnC+ZSCpzQ/Jdpj flEIqiLzGS9tgkxMdPC2aeoHh3/mdQJMJLCPOa8nCuqDcdPw6rMmH8GvStzw VrEX2BuDyz1XzEJg0UDfyeIeKI8QvNBY8gGOuQV1HKzoAus6F+G8ogiKPB5V +7UJYD7efv+LzimoMHgXn6zLB8WeO0PeggmIGXqsZ2f5EphlKV1zJePQ9syd nXnsOVTdUws9qTIGL/0HNgzdb4EaQ8E1V7UhsGdqZBRUNMJcZpq/1ZN+CO0y Goyy5YHgC53SvAc9EE3xZ4OVuFDH54VUxvPBsy7Hzu7aXdjnZP5x7n0LRAYy ecECNmxWy0rN6OfCle41favC2FDItjZQusaFeuspSRaDDU6mIk6gIxeUNR6Z c11ZEO9kP3KA9xBaeW4lK3vywdRgfdTaAxzQWujJAWPd4a6Bl/exPx37KyBr oS8dti30VWBfGvaVQ+5CXypM6sv6yrAvCfuKsC8a+3KgSl22/xtYL+zfwP0o 3M8GnqosFwksHdl+Bu6fw/0kOPSXLB8ACl/K8omY98N8HIwEyfKeYPzpYs/i /Cec/4JzZ5z7QUqYzHeBt/pibi1f3UysogDJT75yEN1gwL/zbB+9 "]]}}, AxesOrigin->{0, 0}, PlotRange->{{0., 2.120682185513686}, {0., 2.121320343559643}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], TraditionalForm]], "Output", CellChangeTimes->{{3.492254452890256*^9, 3.4922544647040443`*^9}, 3.492254523643152*^9}], Cell[BoxData[ FormBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJxd1HlM02cYB/C2FF455LLWcrTrixUFBhsOMYryPiXRTR26gIDIEVI8OORU K4KIwMqUS1BkCkyCcsVBVaKIIBUYl045wgQFRUQ8ijaIVluglbn4+2tv8uSb z5vnef5682JRjNduBo1G8/xS/+X/z6LDF2q32G4lPcNr2hpK9pCvDqYsphxN OYPyUcqFlHMpV1I+T7mespRyJ3HUHKG9jrhNbJqDaE55QyRo9iX9um8X6XSL akWpz8jfykn/iv4ecnZ1rM467isSypEq4g4NkAKBZML+BwUpZvYJWmGIHNAp GcmLnSZF+dWxqwNGiEvU0YLwX5Wk9ol0r0T0lHjY/rVw4oSKaN1OXhKeekY0 jwZTRAGzJMP/gsM/xc/Jpoz9Qlm4ljjyJqtkaS/IhcIprbENDYLbumdYIa9I Z75vk8lxOryvZwx+3i0nrvpp/BQjHbjoFVcLm96QWS0r7Z2YCTfc3UzYPgqi H7Mvq29eF3wMSjb6+U2RFvTxQGoqguOys+sSit+Re9wXO13kC4DDNyvOLZ0m givnXvvEGIDrg6WqX069J/23r8cfHjGEjJW7OEHnPpA7WwrLDfcshOL5GEFp sZKEzVfVR8uNgfDZTjnZH8l3Z/PGw+1MgSWXa9rzP5He6MvN3gpTSNDdcada oiKWTMbv7uVmUJaff6ztgJqscYway/czh7kOtWZZwgw5UtCYbG25CCY8Z8Wr ImZJZKObRXXvIphPtqvPjZ0jKbzSBZEFLHjKFYxx4zVkL9sqrNBnMXia3UT+ Ii2ZvXe3o02fDYqaJOWTPZ9JXWvgIdv7bLAueThqvHOeLD5oszwrfQn8lkwb XiugweZbtB93uHLAItVh+ekKGlQKWxsD1RyIly7dL+TR4U/J9W9FtRYwcbmu jFVGh0GU/f58nCVwR4x711sxoOanwvrHK6xgjaxvmn6aAb7cm5Npj60g+qCd apKlA8u+l8WHlFpDhO+2ObtcHSilq9TuPlxIMTQazzFjgruZ+cB2Sx6IE5xk 2aeYcPXaBu7ACA9WmfDOPTPQhT527W6vvG9gYWK5b0COLmQGzB1j2vOhxlht 7oD0gG64dmuIhA+OAVfbzxzVAxFT4v1ulA9dSXT/ZTQED6xbGdaAYUUn763B YQTnWUucu4swmG6JbrFNQvBzg5dpUAkGVW9zgUcygpmA3KnpPzB0Pgpcn/jl nWy/qCu1KsMQqijKlZ9AYLBSaR9Thak9CMTb+gXsaxhYoSZiyS0E2zKzOLvu Y9C8Ct5cJkOgdexSqXswPN8n5TW3ILjUzxjK6cNQJ/bsUrYj0LNIPHNjAFNz CJqqwswNhzFkXkVNHqMIVnRsMKp7iSHe1e9k8BiCwbDUNxtfY/BvqgxNHEeQ btR8d0SOqT4Eo94uJ3QVGDoepgfhKQQF4zZ6/h8w1AQNOK+fRiDMCH6hUGLq HsGUXVF72icMoret0jwVgs1xZuk1M5hKBGqWp0g4h8H5U4hf9xyCiobjwkEN Bk7SFYcJLQKvwHZ+5GcMX3+tBVTawL9LGRjO "]]}}, AxesOrigin->{0, 0}, PlotRange->{{0., 3.}, {0., 9.}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], TraditionalForm]], "Output", CellChangeTimes->{{3.492254452890256*^9, 3.4922544647040443`*^9}, 3.492254523693554*^9}], Cell[BoxData[ FormBox[ GraphicsBox[{{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJxdkglMFAcUhkdBxSNWUYS2C8ixFWiBSIxAC7yptVVURJBLI5VWAUUBkUMo UESxHIKUI2AARQ53OcqlolQD66JuORWwWtblEtjhVgRkcUG2u/A6m3SSyZcv 739/Jpmn9bOvvftSgiAuSl8Z///cM9XSDBcfhbvIRfdF90WPQI9AT0RPRM9G z0YvQy9D56Bz4ETxdX33whaa7Gdt32pz24GFbKp51q7u0gONyDj16s7qm/0Q iyw+yg/nFw5CETK1cM5LSXEMUpAGjGnuRP446CMtHJcxNPMm4BuksfJVhmPT FBghX5C1w3Ut0/A3kkpqe7qhcQaEyE4Pj0MnxsXQgbxQklQhHp+DSOTqYLI8 jSGBlUhOY3IYgymBGqS/pnB3rqEEziJf8WJfl1hJoB1ZpPJc+YmbBAqQu267 B07mS+AH5Hfnvlcv2ESQO5DqOT4KI58RJAMpakgfMtQkyGlkscZw5e0tBFmE 3MC7sp9jRpDKyN6N7REvDxPka2TkLa9exWyCPI+0Wm28cz6XIC2Rs8cmb4pY BClGBqqEnRwuJcgA5KnghPFnNQTphdRrtbOvryXILUhKf9OdWh5BCpFuguvn Kp8S5FGko1X5fEaXnMrpAW6pvXK2vDWrTaDkTNj9USd6WM69OdxL598Q5B6k kvjSQMgEQa5APrHfY+0/TZCPkZwxjpmeiCD5p7ubgmYIknRNFkVOyX335x0T g0Nyt+Uz39h2E2Q7+unWfYKRO/J5TL1/XXSc3BkhTkdSjOTuZne2x/KmBP7z BJ8x1pjNPO06sQ8OjvLnaD9jOv6u/PQs7Vk7VVaIVMW0m9gmLI1nzdDOqnof kGsjor2t8nH7r7Pvafcsp7SL4qdoF6z80Oe0fZL2KrcfL9s/ekf73r0Guhud x2lf1bPO5dTht7Sf12/2LF3+Bl6hHznT4UqmjdJudm/kYBtzhPaJIyMPhc1D 9H7x0hHDD4GD8u/T1Oh0bx6gXcvCLr5Nd4Det1XQqCoRU/Q8tGG4L6ZF7spG rSFBD+RelHTvk+MsuedJUm9YXKfgT45vcIn0/8deXbt85ioFHhNxivel9+Gz NebU7RQK1jNZv/Ok9+PQsKTV5woFNc5cxnPpfVkcC91uEEvB6biOgm7p/WnP TWUKL1KgVi3aNiq9zzHDQY8jIRSc0TayWSYgyItJT+esj1OgNZYRbtpIkLdc MvWYX1MQdSGgK7OYIC9bltZ7b6NgS+kOZ3s2QZ7Q5nrdNaKgmb+uRSmPIDeP Un/s0qFAdWsJNzBDmo8w2eq1hgJ2tzDfNlaaZ9Wbl3UJodnC+ZSCpzQ/Jdpj flEIqiLzGS9tgkxMdPC2aeoHh3/mdQJMJLCPOa8nCuqDcdPw6rMmH8GvStzw VrEX2BuDyz1XzEJg0UDfyeIeKI8QvNBY8gGOuQV1HKzoAus6F+G8ogiKPB5V +7UJYD7efv+LzimoMHgXn6zLB8WeO0PeggmIGXqsZ2f5EphlKV1zJePQ9syd nXnsOVTdUws9qTIGL/0HNgzdb4EaQ8E1V7UhsGdqZBRUNMJcZpq/1ZN+CO0y Goyy5YHgC53SvAc9EE3xZ4OVuFDH54VUxvPBsy7Hzu7aXdjnZP5x7n0LRAYy ecECNmxWy0rN6OfCle41favC2FDItjZQusaFeuspSRaDDU6mIk6gIxeUNR6Z c11ZEO9kP3KA9xBaeW4lK3vywdRgfdTaAxzQWujJAWPd4a6Bl/exPx37KyBr oS8dti30VWBfGvaVQ+5CXypM6sv6yrAvCfuKsC8a+3KgSl22/xtYL+zfwP0o 3M8GnqosFwksHdl+Bu6fw/0kOPSXLB8ACl/K8omY98N8HIwEyfKeYPzpYs/i /Cec/4JzZ5z7QUqYzHeBt/pibi1f3UysogDJT75yEN1gwL/zbB+9 "]]}}, {{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJxd1HlM02cYB/C2FF455LLWcrTrixUFBhsOMYryPiXRTR26gIDIEVI8OORU K4KIwMqUS1BkCkyCcsVBVaKIIBUYl045wgQFRUQ8ijaIVluglbn4+2tv8uSb z5vnef5682JRjNduBo1G8/xS/+X/z6LDF2q32G4lPcNr2hpK9pCvDqYsphxN OYPyUcqFlHMpV1I+T7mespRyJ3HUHKG9jrhNbJqDaE55QyRo9iX9um8X6XSL akWpz8jfykn/iv4ecnZ1rM467isSypEq4g4NkAKBZML+BwUpZvYJWmGIHNAp GcmLnSZF+dWxqwNGiEvU0YLwX5Wk9ol0r0T0lHjY/rVw4oSKaN1OXhKeekY0 jwZTRAGzJMP/gsM/xc/Jpoz9Qlm4ljjyJqtkaS/IhcIprbENDYLbumdYIa9I Z75vk8lxOryvZwx+3i0nrvpp/BQjHbjoFVcLm96QWS0r7Z2YCTfc3UzYPgqi H7Mvq29eF3wMSjb6+U2RFvTxQGoqguOys+sSit+Re9wXO13kC4DDNyvOLZ0m givnXvvEGIDrg6WqX069J/23r8cfHjGEjJW7OEHnPpA7WwrLDfcshOL5GEFp sZKEzVfVR8uNgfDZTjnZH8l3Z/PGw+1MgSWXa9rzP5He6MvN3gpTSNDdcada oiKWTMbv7uVmUJaff6ztgJqscYway/czh7kOtWZZwgw5UtCYbG25CCY8Z8Wr ImZJZKObRXXvIphPtqvPjZ0jKbzSBZEFLHjKFYxx4zVkL9sqrNBnMXia3UT+ Ii2ZvXe3o02fDYqaJOWTPZ9JXWvgIdv7bLAueThqvHOeLD5oszwrfQn8lkwb XiugweZbtB93uHLAItVh+ekKGlQKWxsD1RyIly7dL+TR4U/J9W9FtRYwcbmu jFVGh0GU/f58nCVwR4x711sxoOanwvrHK6xgjaxvmn6aAb7cm5Npj60g+qCd apKlA8u+l8WHlFpDhO+2ObtcHSilq9TuPlxIMTQazzFjgruZ+cB2Sx6IE5xk 2aeYcPXaBu7ACA9WmfDOPTPQhT527W6vvG9gYWK5b0COLmQGzB1j2vOhxlht 7oD0gG64dmuIhA+OAVfbzxzVAxFT4v1ulA9dSXT/ZTQED6xbGdaAYUUn763B YQTnWUucu4swmG6JbrFNQvBzg5dpUAkGVW9zgUcygpmA3KnpPzB0Pgpcn/jl nWy/qCu1KsMQqijKlZ9AYLBSaR9Thak9CMTb+gXsaxhYoSZiyS0E2zKzOLvu Y9C8Ct5cJkOgdexSqXswPN8n5TW3ILjUzxjK6cNQJ/bsUrYj0LNIPHNjAFNz CJqqwswNhzFkXkVNHqMIVnRsMKp7iSHe1e9k8BiCwbDUNxtfY/BvqgxNHEeQ btR8d0SOqT4Eo94uJ3QVGDoepgfhKQQF4zZ6/h8w1AQNOK+fRiDMCH6hUGLq HsGUXVF72icMoret0jwVgs1xZuk1M5hKBGqWp0g4h8H5U4hf9xyCiobjwkEN Bk7SFYcJLQKvwHZ+5GcMX3+tBVTawL9LGRjO "]]}}}, AxesOrigin->{0, 0}, PlotRange->{{0., 2.120682185513686}, {0., 2.121320343559643}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], TraditionalForm]], "Output", CellChangeTimes->{{3.492254452890256*^9, 3.4922544647040443`*^9}, 3.4922545237150784`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Clear", "[", "g", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"P1", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"P2", "=", "3"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"P3", "=", RowBox[{"2", "+", "\[ImaginaryI]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"f", "[", "z_", "]"}], ":=", RowBox[{ RowBox[{"2", SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", "*", RowBox[{"\[Pi]", "/", "4"}]}]], "*", "z"}], "+", "\[ImaginaryI]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"g", "[", "t_", "]"}], ":=", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "t"}], ")"}], "P1"}], "+", RowBox[{ RowBox[{"(", RowBox[{"t", "-", "0"}], ")"}], "P2"}]}], "/;", RowBox[{"0", "\[LessEqual]", " ", "t", "<", "1"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"g", "[", "t_", "]"}], ":=", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"2", "-", "t"}], ")"}], "P2"}], "+", RowBox[{ RowBox[{"(", RowBox[{"t", "-", "1"}], ")"}], "P3"}]}], "/;", RowBox[{"1", "\[LessEqual]", " ", "t", "<", "2"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"g", "[", "t_", "]"}], ":=", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"3", "-", "t"}], ")"}], "P3"}], "+", RowBox[{ RowBox[{"(", RowBox[{"t", "-", "2"}], ")"}], "P1"}]}], "/;", RowBox[{"2", "\[LessEqual]", " ", "t", "<", "3"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"w", "[", "t_", "]"}], ":=", " ", RowBox[{"f", "[", RowBox[{"g", "[", "t", "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", RowBox[{"g", "[", "t", "]"}], "]"}], ",", RowBox[{"Im", "[", RowBox[{"g", "[", "t", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"Axes", "\[Rule]", "False"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"q1", "=", RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", RowBox[{"w", "[", "t", "]"}], "]"}], ",", RowBox[{"Im", "[", RowBox[{"w", "[", "t", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"q2", "=", RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"t", ",", RowBox[{"3", "t"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"q1", ",", "q2"}], "]"}]}], "Input", CellChangeTimes->{{3.49182243845135*^9, 3.49182244327013*^9}, { 3.491822521856162*^9, 3.491822602479154*^9}, {3.4918226337847433`*^9, 3.49182264583923*^9}, {3.49183520184457*^9, 3.491835305608671*^9}, { 3.491835340921668*^9, 3.4918356209631443`*^9}, {3.491835657154133*^9, 3.491835935961577*^9}, {3.492254402858109*^9, 3.492254464157735*^9}, { 3.492254495529829*^9, 3.492254542819952*^9}, {3.492254575229974*^9, 3.4922545818120537`*^9}, 3.492426503678782*^9}], Cell[BoxData[ FormBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJxd1n08VPkewPHfDAat6EWqVzdW9OBSrht5rL4/mopaT10rua2burUqj/Fi 92Y9haZVnmJ10RISdQtJkTDLJBUhbUR52JU8zRxC47G5p3H2nHvN6zWv9+tz zu/3nTPnj5mz9ojv/mNshFAW+f7s4tfzDvOasozj8P8dtKhjFvVPizpvUd9b 1HV0a1d+gwwS2uius/T+RT6il+7Lpn4y2zTe0528LrpPz0hId6BMRmeC3xjd xt6hySeiJui23lC7tO+8mO6516/Cjvx9hm7bmACrqhPzdGf/RMwrayNMX0+i S4UKj0W3iWKkVpiSDN0z88sjR4Nk6Vb09YptlsjR7ZWo6tAmx6G7qaRMtesL ppOnZNOGVzKtFXkln2PItEnK80fbDjP9zwpDVMBn+vHbV7WFdUzroR/O3Wtg epT7RFnQznTIcw+N7lGmk3qTLNTXytPNl58MjIhgelX9Bax1jmk/3jql6gtM ayk658ylMh2xpKQl+DbTO5f6G/h0Mp3eqDCj1Mv0xMWsRzf7mc5Vbj40OMb0 3PNvdXlipp3jJeMb5plek9B4Uk1CdvicXV7SdiiYSWsx+ny+TE83wMMFTI55 mjnPkq17yl2z8AjUNm3NDJwm+wNf9+zmk9CV2+xVOkk29577hpRAUHPgKJiK 5HH4SNG0uD4Crpa3+hwYIc//Y/emxPyzYLDu6q/BQ2S/6HTX40WD7bRlTtnn 67/PERzacx5Cc/x3WHSTbWXwuOdIAgyI3wRubyZbKSpxV28qPMwq6d15h+yW lZfkfXNguvDjXcsiecxnOdeojuWASbU5z4i8f+FbEsY0AnKh8G21gc4NeayV rOBoHHwNclY3nGFny2N8YFrJI+w6/Jjcp/5LIrn+bUfMg/ib4MpT37vDn5w/ aV9p0l4ME77Bd8wMyfMs1eLBqXI4pu4T1XaPg4sKNMvPJQmgsr8xwMmIgw2T 19YOPG0AI1TvbXhHDnt9qk4M8XkBPcSEZ7m5HJ4Ldy0z3vIKgr6IjdC4L4sd c6+Pq+3pAO7839L1t8viHvXD63NWdIGh6f3qnx/JYGsdHVb0YA+wr5xlCXfK 4I+xY9P7Rn8D5deR3HdP2bg+fUJ48mUfIKvh3LI9bPxpdr+XRm8/LBsTqozV sXCVpQ3fsm8A3IJ1QlrtWThN+7TKHcEQ/PjnGrnEBoQ7DooHKhpH4KavMOfG U4Sdrfb6ff3rCDSWrrIW1CPcoHtFLHozAsusfUPFAoT5YmuO9sgIpLqtEX9T iXBuSpwOb4kQcmODBvRuI+zXst7deY8QqoR6zwTxCCvYOreO8IXQY+Ryousi wpGG191i6oXA+leE/FQswnMrZ3q/bBYCl9O+U5+HsKg/c3R/txCeaUY/TAxH +GXU8NLyeSG0O3TfcvdHOIsfaRNtIYIPxZcSpvYjbGZWXKlxVwTGHoM1f3JC 2PCM20RChQiClsHkDgeEdatk9GVrRTDjM3Qweh/CK7gul4daRCCzyUpHlYvw hMPs6fuECJbniUr1tyJc9O0uXSd9Aly+5g7YGyGcf0PkLthCwGXZtNWn/0p+ vjA1xdSCgDVHd4WVbUY4LmCIrWlLwHqtDJtdGxD2Cot/O3ScAJM02073lQjr pb5Oisom4DvbzKWR6ghrdUQ+ERcQ8GBqAq6pIbxKYxM6VUzAjgNZucMq5P3K CfV24hMQzvn4SlmZ/P3s35greExATek+xS1KCE/ptnSYNhGwe7nY+zsFhAdu 69hodhHAq/0qK52DcM9YQ2jiOwKens5+USWLcLtxUKmskAAl7SnZ39gINwd/ ORI8QYB9i52pHAvhugf12sOzBHDZcXlX5ySUBHxV3edrMCmhJMA5xNK8Qiih JOCQeRLbpl9CSYDnx4FnL7sklAT4lUCKR5uEkvw+m4Ubz9RLKAnIWmtjd/uG hJKAPsVPqct9JZQE5B/UV5Mcl1CS8wpc4wbdJZQEINuSqCp7CSUBq3ie/p4G EkoCHDmtex8KP1GKgM/Onz/q9YlSBBmzTkdLyP+rBYVgttvfaCZmlnIY/PDW 72+dmaYchAuXBLUKl8SU72GNfKXZVMkk5Tuw0XPTcf7POOXv4JpXo+r6eIyy FxRyM4mEAIKyGxy3XVBOOzVM2QmuMSqm4/nvKdvg8l/e7F2f8jtlK2D1sGb7 i92UTWBoN3Q3Z0U7ZT1onWvudp5toqwGZLkxJLuLT1kE6GeTDxvT+ZRFoMXa 7XnrAJ+yCMLjnuT7Xa2mLAR8nXswI7qS8haEt1s8GLcrpyxg5krNAkTNWTCL nrNgJiBqzoJX6DkL/puZIzUB0B/7pMbT+xa8COiPfVLPM/ukhgPKp9ZJ/YFZ J/V7QNuodVL9mONSTzDHpR4GhP9XR/I551pd8/xqyiXwX9W+BTo= "]]}}, AxesOrigin->{0, 0}, PlotRange->{{0., 2.9995487541182353`}, {0., 0.9995887997648158}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], TraditionalForm]], "Output", CellChangeTimes->{ 3.492254543966782*^9, {3.49225457588269*^9, 3.492254582423999*^9}, 3.4924265061691313`*^9}], Cell[BoxData[ FormBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJxVlgk0lHsbwKVJkxxe5m0597NETamvdOq20JXnabnH0nVFKrnV9dUdaog2 RdFCC7Jk+dTFTSKKyNbldj80xXwo25CIULIvzYwxM02Wb7xnjPO957znd37n /2zn/J9z3tfwiJcDS1VFReWu/J3i/z98KNhsaOAv84KE2xEW41rTfhlMp2Aw 7RHgtd1CJoJpT4T2a36ivsvT/hSK533trZ+c9hK4yBDWpU0KFF4DkuWfk+0m R+BYxr2VrMcdkL+3JibXUQppNbxtRpxeqHfrWxLpMgZvimua9Jz44NruNqi5 WgVD9Io+FD0UQWl423Cbgypm/Nrs3/xYCm+fDhYPOtIw5vEYm04bh0rHSxtp AWq4SlfMEaao4EqKdDTfO0fXIFkVf6Cojmt17urufUNDE4oa+BZf9pfXqmED RU3sjuRVM17TUWh1vCeYReAHV9cDx/jq6Pl93uoNPtoYkBmZI+Nr4IvGcid/ Hx2c74PZsbpaSDNf4rQrnIElr6P8dJla2M6ytgiPYuAZgy6rB2u08K+I08vq Yhn4nhv8MdNCCz06S/n7EhmYvqBep8xFCxtCjgcfyWagZR7LeyRFC5Obc5/7 8hi44/yPeo8WEridIol6SZ6zB74jUJciiZLKO31rDAgUUyQxQ7//Wd4KAtMp ksjghv9cYkqgDkUSP5FNlxudCfxIkcSruexPtEQCr1Ak0WL+2p0TDwjcSpHE b0dHHkpSCZRRJNF7gd/x/iwCz1Ik0d0njF9TTCCbIonGdfYOFS8JXEGRxO6V C/NfcgnsokiiS8u988+qCfyVIol7LbIn4toIBUnUuXPWJeYToSCJtV9MX4Z1 EwqSGGY1vvRmP6EgibuSONevDBNoQ5FEuux6j6+QwLkUSSxzsLE+IyawlCKJ JUMlpsYSAps92t+ck5KIh6IkV0UzbvWPVmFv34zbNTOH7doJbFK4R91PLQP5 M+dBFWfKb4bMuK7vvoPRJjPuYn+6Y+tDLaWHeQ6lDtlqKn1p8N97Bps1lH5y M1+Q7TFf6Qk7F8yVLFJX+nq7MNXQVLrSUwtHzz6wnat03rPSpkvf5ijdLbvb KD2UpvSWeV87922arfRCl8O3HF7NUvquXauWkftVlK7eQTi5O0/CtF9ZWeWW pTYB7xV+8GTrIYwdU7ppwcAeHvOb0oUHB150VX1V5meoDqz56i1VupuB/gdW lUTphub2obxlEmW+3Wz9wkyZWHl+sbK/M6h2xnVM6nzP/T3j6ZEFWr+lznjy ZMx983ti+KvEyydTfv/BdzXVpHfF4CoMoT2X74fnuiD3vGgxaDNTb3Pl++NY OavOM1wMxfs5uvXy/TI/enHTqmAxeIS0PmqX75/RmCi+K1AMi4skGwbl+zm0 ptf1oK8YThqZ2M5pITEwsnrM+jcxGA7F+W9+TWKuU7wxc4sYrgWcbYvPIPHW 1qyKExvEsCJr+36HNBKPGXHYf5qIoaqZqKUnk7hksPuJ5VIxLFqXyfGOk8df Xr+OrSGGtPauFLtgeXxqhdnTtlGoMt/vPttNHi+S2JgFjsIiiZmUbURiRITj Cds3Ikh3n9Te8jsDf2JOGEvOjYA0vviw2e86eKpQVvmFJgRHdfOmvEBt9E7v 6TyewYemkiF2xBUCj7qca92TMwzW5U5dEzQtTHd9VXSKNwAToQ4/v/2ggTmr BKFRy/qA1pHfd6JFHYP6So3tt3YD82l021gmHXk1rLT4o53Q+ktoUX6IGjae 6WH0Pe+A9tihahP5Hjow9eMe5bTAhO1rs8QjqnixzaT3ml0jeEZrv6s7pII3 u5u/+dDr4LNH53+cuWPgVp5kb/8HF5ZnJFyauCAF89Ce8ajTXIht2GQgYUtB ZrcmvcGSC+PjtSVfnKVw/l2hqpOwDN7snjPr4xYp3OuuyTtsWQYXxCcCX8kk MEibWOAheAVN2yAo6IIEbm5zfn/jRw5ENX2M1LkgBss592+Uf8cB2Sy/9fPZ YtCt6Fqvzn8B7H8urJ/tLIbs3aduhcW9gO2XbMhRMzE8KSF8jdtLgL80L/bd 11GwGvPYuuP7IrD1uhaf4DsKV72ZXJ+WAqCrrXi43FcE4e0anep+BdB/PEp9 u5sIKqxFkwm6BdBYNe51aK8IdPRfmXEO/QnJ/27YErNOBHVcl8x5HflgyQyo ndU/AoaLE2LiPufAjZ0fvrU6j8DagMCc1ddz4Ngjq39JreTf10F2dTEzBxw1 8rmMzSOQ+8KM3umaDYYNIZE2jBH4xMuS7ONlQtlR0xWFr4WK+dKAFhjtEG0u hARqnjTo7p4oyFolVMyTCjwbtl7lYiE8oOZJgUSdbb0qowLFPEmw48Gwv2em AO5Q/ZPARM25MzheoOh/Hwh2mdXDYAH8UD/V/w/oWZfAaGUJFP3vQADH+rG1 vgAK9ab6xQKL+UyTpSFQ9IuB3cFLzl6R8YG7aKpfJOjZSywKGvmK+reB/uxI Cq+Ur6gfBiOLq+cN5/IV9W8CpyOlYVkEHw78d6reNXiyk9iC/tP1rkLEo4uJ v7hP5/vDBY0e2vkDfBg4N5V/HlgnHdhRltPxp8Cyoagmc+P0uRusN125sWIp H6L9pnw/6E2FafNBs1nPVLaAAa5Jz+d2yf+3/gcktLsJ "]]}}, Axes->True, AxesOrigin->{0, 1.}, PlotRange->{{0., 4.241364371027372}, {1., 5.242640687119286}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], TraditionalForm]], "Output", CellChangeTimes->{ 3.492254543966782*^9, {3.49225457588269*^9, 3.492254582423999*^9}, 3.492426506219266*^9}], Cell[BoxData[ FormBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJxd1HlM02cYB/C2FF455LLWcrTrixUFBhsOMYryPiXRTR26gIDIEVI8OORU K4KIwMqUS1BkCkyCcsVBVaKIIBUYl045wgQFRUQ8ijaIVluglbn4+2tv8uSb z5vnef5682JRjNduBo1G8/xS/+X/z6LDF2q32G4lPcNr2hpK9pCvDqYsphxN OYPyUcqFlHMpV1I+T7mespRyJ3HUHKG9jrhNbJqDaE55QyRo9iX9um8X6XSL akWpz8jfykn/iv4ecnZ1rM467isSypEq4g4NkAKBZML+BwUpZvYJWmGIHNAp GcmLnSZF+dWxqwNGiEvU0YLwX5Wk9ol0r0T0lHjY/rVw4oSKaN1OXhKeekY0 jwZTRAGzJMP/gsM/xc/Jpoz9Qlm4ljjyJqtkaS/IhcIprbENDYLbumdYIa9I Z75vk8lxOryvZwx+3i0nrvpp/BQjHbjoFVcLm96QWS0r7Z2YCTfc3UzYPgqi H7Mvq29eF3wMSjb6+U2RFvTxQGoqguOys+sSit+Re9wXO13kC4DDNyvOLZ0m givnXvvEGIDrg6WqX069J/23r8cfHjGEjJW7OEHnPpA7WwrLDfcshOL5GEFp sZKEzVfVR8uNgfDZTjnZH8l3Z/PGw+1MgSWXa9rzP5He6MvN3gpTSNDdcada oiKWTMbv7uVmUJaff6ztgJqscYway/czh7kOtWZZwgw5UtCYbG25CCY8Z8Wr ImZJZKObRXXvIphPtqvPjZ0jKbzSBZEFLHjKFYxx4zVkL9sqrNBnMXia3UT+ Ii2ZvXe3o02fDYqaJOWTPZ9JXWvgIdv7bLAueThqvHOeLD5oszwrfQn8lkwb XiugweZbtB93uHLAItVh+ekKGlQKWxsD1RyIly7dL+TR4U/J9W9FtRYwcbmu jFVGh0GU/f58nCVwR4x711sxoOanwvrHK6xgjaxvmn6aAb7cm5Npj60g+qCd apKlA8u+l8WHlFpDhO+2ObtcHSilq9TuPlxIMTQazzFjgruZ+cB2Sx6IE5xk 2aeYcPXaBu7ACA9WmfDOPTPQhT527W6vvG9gYWK5b0COLmQGzB1j2vOhxlht 7oD0gG64dmuIhA+OAVfbzxzVAxFT4v1ulA9dSXT/ZTQED6xbGdaAYUUn763B YQTnWUucu4swmG6JbrFNQvBzg5dpUAkGVW9zgUcygpmA3KnpPzB0Pgpcn/jl nWy/qCu1KsMQqijKlZ9AYLBSaR9Thak9CMTb+gXsaxhYoSZiyS0E2zKzOLvu Y9C8Ct5cJkOgdexSqXswPN8n5TW3ILjUzxjK6cNQJ/bsUrYj0LNIPHNjAFNz CJqqwswNhzFkXkVNHqMIVnRsMKp7iSHe1e9k8BiCwbDUNxtfY/BvqgxNHEeQ btR8d0SOqT4Eo94uJ3QVGDoepgfhKQQF4zZ6/h8w1AQNOK+fRiDMCH6hUGLq HsGUXVF72icMoret0jwVgs1xZuk1M5hKBGqWp0g4h8H5U4hf9xyCiobjwkEN Bk7SFYcJLQKvwHZ+5GcMX3+tBVTawL9LGRjO "]]}}, Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0., 3.}, {0., 9.}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], TraditionalForm]], "Output", CellChangeTimes->{ 3.492254543966782*^9, {3.49225457588269*^9, 3.492254582423999*^9}, 3.492426506259987*^9}], Cell[BoxData[ FormBox[ GraphicsBox[{{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJxVlgk0lHsbwKVJkxxe5m0597NETamvdOq20JXnabnH0nVFKrnV9dUdaog2 RdFCC7Jk+dTFTSKKyNbldj80xXwo25CIULIvzYwxM02Wb7xnjPO957znd37n /2zn/J9z3tfwiJcDS1VFReWu/J3i/z98KNhsaOAv84KE2xEW41rTfhlMp2Aw 7RHgtd1CJoJpT4T2a36ivsvT/hSK533trZ+c9hK4yBDWpU0KFF4DkuWfk+0m R+BYxr2VrMcdkL+3JibXUQppNbxtRpxeqHfrWxLpMgZvimua9Jz44NruNqi5 WgVD9Io+FD0UQWl423Cbgypm/Nrs3/xYCm+fDhYPOtIw5vEYm04bh0rHSxtp AWq4SlfMEaao4EqKdDTfO0fXIFkVf6Cojmt17urufUNDE4oa+BZf9pfXqmED RU3sjuRVM17TUWh1vCeYReAHV9cDx/jq6Pl93uoNPtoYkBmZI+Nr4IvGcid/ Hx2c74PZsbpaSDNf4rQrnIElr6P8dJla2M6ytgiPYuAZgy6rB2u08K+I08vq Yhn4nhv8MdNCCz06S/n7EhmYvqBep8xFCxtCjgcfyWagZR7LeyRFC5Obc5/7 8hi44/yPeo8WEridIol6SZ6zB74jUJciiZLKO31rDAgUUyQxQ7//Wd4KAtMp ksjghv9cYkqgDkUSP5FNlxudCfxIkcSruexPtEQCr1Ak0WL+2p0TDwjcSpHE b0dHHkpSCZRRJNF7gd/x/iwCz1Ik0d0njF9TTCCbIonGdfYOFS8JXEGRxO6V C/NfcgnsokiiS8u988+qCfyVIol7LbIn4toIBUnUuXPWJeYToSCJtV9MX4Z1 EwqSGGY1vvRmP6EgibuSONevDBNoQ5FEuux6j6+QwLkUSSxzsLE+IyawlCKJ JUMlpsYSAps92t+ck5KIh6IkV0UzbvWPVmFv34zbNTOH7doJbFK4R91PLQP5 M+dBFWfKb4bMuK7vvoPRJjPuYn+6Y+tDLaWHeQ6lDtlqKn1p8N97Bps1lH5y M1+Q7TFf6Qk7F8yVLFJX+nq7MNXQVLrSUwtHzz6wnat03rPSpkvf5ijdLbvb KD2UpvSWeV87922arfRCl8O3HF7NUvquXauWkftVlK7eQTi5O0/CtF9ZWeWW pTYB7xV+8GTrIYwdU7ppwcAeHvOb0oUHB150VX1V5meoDqz56i1VupuB/gdW lUTphub2obxlEmW+3Wz9wkyZWHl+sbK/M6h2xnVM6nzP/T3j6ZEFWr+lznjy ZMx983ti+KvEyydTfv/BdzXVpHfF4CoMoT2X74fnuiD3vGgxaDNTb3Pl++NY OavOM1wMxfs5uvXy/TI/enHTqmAxeIS0PmqX75/RmCi+K1AMi4skGwbl+zm0 ptf1oK8YThqZ2M5pITEwsnrM+jcxGA7F+W9+TWKuU7wxc4sYrgWcbYvPIPHW 1qyKExvEsCJr+36HNBKPGXHYf5qIoaqZqKUnk7hksPuJ5VIxLFqXyfGOk8df Xr+OrSGGtPauFLtgeXxqhdnTtlGoMt/vPttNHi+S2JgFjsIiiZmUbURiRITj Cds3Ikh3n9Te8jsDf2JOGEvOjYA0vviw2e86eKpQVvmFJgRHdfOmvEBt9E7v 6TyewYemkiF2xBUCj7qca92TMwzW5U5dEzQtTHd9VXSKNwAToQ4/v/2ggTmr BKFRy/qA1pHfd6JFHYP6So3tt3YD82l021gmHXk1rLT4o53Q+ktoUX6IGjae 6WH0Pe+A9tihahP5Hjow9eMe5bTAhO1rs8QjqnixzaT3ml0jeEZrv6s7pII3 u5u/+dDr4LNH53+cuWPgVp5kb/8HF5ZnJFyauCAF89Ce8ajTXIht2GQgYUtB ZrcmvcGSC+PjtSVfnKVw/l2hqpOwDN7snjPr4xYp3OuuyTtsWQYXxCcCX8kk MEibWOAheAVN2yAo6IIEbm5zfn/jRw5ENX2M1LkgBss592+Uf8cB2Sy/9fPZ YtCt6Fqvzn8B7H8urJ/tLIbs3aduhcW9gO2XbMhRMzE8KSF8jdtLgL80L/bd 11GwGvPYuuP7IrD1uhaf4DsKV72ZXJ+WAqCrrXi43FcE4e0anep+BdB/PEp9 u5sIKqxFkwm6BdBYNe51aK8IdPRfmXEO/QnJ/27YErNOBHVcl8x5HflgyQyo ndU/AoaLE2LiPufAjZ0fvrU6j8DagMCc1ddz4Ngjq39JreTf10F2dTEzBxw1 8rmMzSOQ+8KM3umaDYYNIZE2jBH4xMuS7ONlQtlR0xWFr4WK+dKAFhjtEG0u hARqnjTo7p4oyFolVMyTCjwbtl7lYiE8oOZJgUSdbb0qowLFPEmw48Gwv2em AO5Q/ZPARM25MzheoOh/Hwh2mdXDYAH8UD/V/w/oWZfAaGUJFP3vQADH+rG1 vgAK9ab6xQKL+UyTpSFQ9IuB3cFLzl6R8YG7aKpfJOjZSywKGvmK+reB/uxI Cq+Ur6gfBiOLq+cN5/IV9W8CpyOlYVkEHw78d6reNXiyk9iC/tP1rkLEo4uJ v7hP5/vDBY0e2vkDfBg4N5V/HlgnHdhRltPxp8Cyoagmc+P0uRusN125sWIp H6L9pnw/6E2FafNBs1nPVLaAAa5Jz+d2yf+3/gcktLsJ "]]}}, {{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJxd1HlM02cYB/C2FF455LLWcrTrixUFBhsOMYryPiXRTR26gIDIEVI8OORU K4KIwMqUS1BkCkyCcsVBVaKIIBUYl045wgQFRUQ8ijaIVluglbn4+2tv8uSb z5vnef5682JRjNduBo1G8/xS/+X/z6LDF2q32G4lPcNr2hpK9pCvDqYsphxN OYPyUcqFlHMpV1I+T7mespRyJ3HUHKG9jrhNbJqDaE55QyRo9iX9um8X6XSL akWpz8jfykn/iv4ecnZ1rM467isSypEq4g4NkAKBZML+BwUpZvYJWmGIHNAp GcmLnSZF+dWxqwNGiEvU0YLwX5Wk9ol0r0T0lHjY/rVw4oSKaN1OXhKeekY0 jwZTRAGzJMP/gsM/xc/Jpoz9Qlm4ljjyJqtkaS/IhcIprbENDYLbumdYIa9I Z75vk8lxOryvZwx+3i0nrvpp/BQjHbjoFVcLm96QWS0r7Z2YCTfc3UzYPgqi H7Mvq29eF3wMSjb6+U2RFvTxQGoqguOys+sSit+Re9wXO13kC4DDNyvOLZ0m givnXvvEGIDrg6WqX069J/23r8cfHjGEjJW7OEHnPpA7WwrLDfcshOL5GEFp sZKEzVfVR8uNgfDZTjnZH8l3Z/PGw+1MgSWXa9rzP5He6MvN3gpTSNDdcada oiKWTMbv7uVmUJaff6ztgJqscYway/czh7kOtWZZwgw5UtCYbG25CCY8Z8Wr ImZJZKObRXXvIphPtqvPjZ0jKbzSBZEFLHjKFYxx4zVkL9sqrNBnMXia3UT+ Ii2ZvXe3o02fDYqaJOWTPZ9JXWvgIdv7bLAueThqvHOeLD5oszwrfQn8lkwb XiugweZbtB93uHLAItVh+ekKGlQKWxsD1RyIly7dL+TR4U/J9W9FtRYwcbmu jFVGh0GU/f58nCVwR4x711sxoOanwvrHK6xgjaxvmn6aAb7cm5Npj60g+qCd apKlA8u+l8WHlFpDhO+2ObtcHSilq9TuPlxIMTQazzFjgruZ+cB2Sx6IE5xk 2aeYcPXaBu7ACA9WmfDOPTPQhT527W6vvG9gYWK5b0COLmQGzB1j2vOhxlht 7oD0gG64dmuIhA+OAVfbzxzVAxFT4v1ulA9dSXT/ZTQED6xbGdaAYUUn763B YQTnWUucu4swmG6JbrFNQvBzg5dpUAkGVW9zgUcygpmA3KnpPzB0Pgpcn/jl nWy/qCu1KsMQqijKlZ9AYLBSaR9Thak9CMTb+gXsaxhYoSZiyS0E2zKzOLvu Y9C8Ct5cJkOgdexSqXswPN8n5TW3ILjUzxjK6cNQJ/bsUrYj0LNIPHNjAFNz CJqqwswNhzFkXkVNHqMIVnRsMKp7iSHe1e9k8BiCwbDUNxtfY/BvqgxNHEeQ btR8d0SOqT4Eo94uJ3QVGDoepgfhKQQF4zZ6/h8w1AQNOK+fRiDMCH6hUGLq HsGUXVF72icMoret0jwVgs1xZuk1M5hKBGqWp0g4h8H5U4hf9xyCiobjwkEN Bk7SFYcJLQKvwHZ+5GcMX3+tBVTawL9LGRjO "]]}}}, Axes->True, AxesOrigin->{0, 1.}, PlotRange->{{0., 4.241364371027372}, {1., 5.242640687119286}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], TraditionalForm]], "Output", CellChangeTimes->{ 3.492254543966782*^9, {3.49225457588269*^9, 3.492254582423999*^9}, 3.492426506283482*^9}] }, Open ]] }, WindowSize->{640, 750}, WindowMargins->{{232, Automatic}, {Automatic, 78}}, FrontEndVersion->"7.0 for Mac OS X x86 (32-bit) (November 10, 2008)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[567, 22, 850, 23, 97, "Input"], Cell[1420, 47, 17717, 297, 373, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[19174, 349, 885, 24, 92, "Input"], Cell[20062, 375, 3402, 62, 447, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[23501, 442, 3213, 98, 332, "Input"], Cell[26717, 542, 1963, 38, 195, "Output"], Cell[28683, 582, 6785, 117, 303, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[35505, 704, 3419, 100, 377, "Input"], Cell[38927, 806, 2854, 52, 135, "Output"], Cell[41784, 860, 2361, 44, 375, "Output"], Cell[44148, 906, 1949, 38, 447, "Output"], Cell[46100, 946, 4007, 72, 375, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[50144, 1023, 3456, 103, 357, "Input"], Cell[53603, 1128, 2876, 53, 135, "Output"], Cell[56482, 1183, 3123, 58, 381, "Output"], Cell[59608, 1243, 1986, 40, 447, "Output"], Cell[61597, 1285, 4767, 86, 381, "Output"] }, Open ]] } ] *) (* End of internal cache information *)