(* 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[ 36398, 1113] NotebookOptionsPosition[ 33375, 1009] NotebookOutlinePosition[ 33788, 1027] CellTagsIndexPosition[ 33745, 1024] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[StyleBox["Math 310 Midterm Exam Answers", FontWeight->"Bold"]], "Subtitle"], Cell[TextData[{ StyleBox["1 ", FontFamily->"Helvetica", FontSize->16, FontWeight->"Bold"], "(5 points) Find the ", StyleBox["x-", "Input"], " and ", StyleBox["y-", "Input"], " coordinates of the point of intersection of the graphs of ", StyleBox["y=cos ", "Input"], StyleBox["x", "Input", FontSlant->"Italic"], " and ", StyleBox["y=ln x", "Input"], StyleBox[".", FontSlant->"Italic"], StyleBox[" Decimal approximations suffice. Here's a graph of these \ functions.", FontVariations->{"CompatibilityType"->0}] }], "Text", CellDingbat->"\[FilledSquare]", CellChangeTimes->{{3.465389704069929*^9, 3.465389716077424*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Log", "[", "x", "]"}], ",", RowBox[{"Cos", "[", "x", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "4"}], "}"}]}], "]"}]], "Input", FontSlant->"Italic"], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVzXk01PsbB3DGGGMdpLpEroy6rjEplVJ6vmkRoRgVxaQkbYj0I13CoVuW bvfmyFJSJGJIWRL6fLOGmGIkezRZJ/tMJsv8vv3xnPd5nfd5n8fR95Sep5SU FIm4uF8JSRqFPrqlxbhy7pxHaeJnSNKd2Px+nHC2qfCBZgQkn/z7BZt9EVfe azXFXzSBlPTfmRPNa3ClQdKaCy9xSF3r8Ic65zauZMrdOVb4FR56jWRk6OzF Fb9savEfoUOa01vV5NpQXPGf/u/GH6XhUYJLHGPLJlxhTltLlasBGZrRNw4u T8PlB9NdmrabQ8brI9X3mq7h8k9TGQaeJ+HJcX3Sl6gjuPz54KdmzcOQeb/s up9QCacKL1iwk8MgW1cQFM8Lwqk6GcsNdoVCNv6quCeWhcuNqatup8/Bs5OR wrV7mLhc6StKo/0Q5KTr+JW85ONyx/yNnz58CHlr7c933nXAKVmwzcLHFPLq tLL1DzBwSii5cd23Tsj3Ghy6KEPFKU4ZNSznPnjuhAqWSk/gFLJDx/ob96Ag wZl5x3A5LnsxRtw0PguFmrfWvaSG4+TjywySh45C4aUXN/+1+hMnb80NssuW g8K6rhHfqBacvKJ9Pz3dDIr+x8xhyNBxGV5z3sfL0VDcwmNmLNbiMkeaCsuT pqA0VndzwowSTvIdWbkhZBOUft2fcGVDEU5yapzsfuMIr839frAusXGSufxf mZI5eD1cXUr7no+TZGM8X7emQ/ne8ztuDjvi0mk+7MeNXHizVLQ7uCcRl+Ir q63y+wTocG+Gi/YuXKqJY3FbZxgQhyprdmwUlyqJOXTnjghwY47HVcFqXCpm fiTtBOFuKYMt53xxKbNYT+UQEVRufZKVf1odSUyGd23UXgfVU5P5j1yc0YLI CnvX1wQ1Wo8VnLom0EL7wYBtp3ShZjfLk8q+gRZe3aW3GatDTXyxlq/HS7Rw rT6Q0dkCtWbXoix8VNACuXOv45VoqAuhHOuIqEHzv/fal09UQQNVm6KWuxGJ r1V9kR8cgAaTJvcaZj0Sn+IFuhaNQYNLaFlQgTsS2yjmVdwlQ8Oz/kt9xXFI /JuALnuDBo12mV0cfBjNvTqb3YNm4f3dDQXWbanox+J0pKKTCXBXW7mGSxSR KK2QtydKAtx9DPbRc4lIFLuzwof7D3B91NwZPDoSBQ7kT/kWAbeiy6M9eycS HQx8tsM7Dj4wS4oSskuRUNL8k/qOcPOBcgHrOxKeXjI8NHoXWpQvN97LOkx8 7v8kGTkNLXpnbCPc7qNZpgUnyIQJLZudm7zVB9Csdu4AmZUOLW4WXMsQXzQj ri6PCHSBFo5cy3fHW2imsK14niuAVtuUTsuFCjTDPOY16lUFvJiq4XEHAzRt PPMhvq4JeI+8zK2ua6FpnTWizzpzwCtRiEnjqKJpJY/iHyungDfgwGRRf6Kp MU1/v7ZaaNvae7kE/4Cmsh3Gk5IqoO3b3FK4STCa+qND235EDdoxpoYGrRlN mnqah+C20DGbCNuaA5Gg3+b7kvdu6KTWfytiqiDBO1+KJJIFndrzsSZxGUiQ n+nefOgUdO5ld6yz/YgEofbuRoZU6EwwuKzRaIQE2mFsDT8EXWYvMifq+tCY KysvzrwEuoObVJ68tUIjw0uftf9ThT5p6V61wpVoaIN9rlvsWRjYwX2/e6AY 9S/Ok2ba9gBf4LLqwflK1LXB8OnUPg0Y8ubQLNYKUeusnXVnVyGMGqxSzRGT UH1PZbBWzAoQ5LGK3SVbUDn1CM+06zFM/FnbvCnyPUqRjnxKYiXD5Hi2eOyO LuRKKAu9XDeYNmnr7fsxBvhFkc7cdl2Yua3SUDaaAfV5Ydg7Dh9m+fyJpzoq 8FEjJm7W3xdE9LQzRedigdeIg2jXX/Dj+ll+DiaCz4n35ncIrsJc1YrC6o0B 0DVjXZNQkQM/9T7GVOf1QZ9nom0uWRfmgw1TeOfnod9ujlFsOQ4LZWeW5HYZ wUBZY8BYZTssrSzw0ntsBfwtjcUq/K8gce1fc0InEL7dCq1B7gmYlF274mEB AwbfXdO99cAdk/pZTZ2kLYPh5Qo7Po12YdL39fNTEBlGIOs/N61ujHRAvqNs 0wUYDQx8Hi09jpFEb9JOWefAWGpA3RdaIiaTMKiqNSYEQdZR/175Wxh5T7yM FasIviNsldbwJYw8WPgwav91GC+zb+If0sNko9I/2/TowUTObxbbvN9glI2a 8ZFm5jDJavgab/kVo7RKi7mrXWGylsHU39+DyYVfGohrEMLUzuxw58ORGJXu GMAmJ8JULm1jWNMRjFpNelzUuwymNWLdDeUSMXm/bU7hIbIwHTHT51a2iCmo D+Szs6Vgesjd4e3+YUyhUj0uP9kfZhxC5k4378MUfdSoN40qYKZElT8qqsWU VCIY/jZqMLss6aKukTWmVH619YNxN8xeSdttWtWGKbP5dEh9DrNc9dfB6gWY 8pKO2pZ8NxDSh7pW3fiGqTzrDn8UFQbCMAWSxYIAo9mqpOgMc0DYav2vx5tL GO1n3VYVNQcQGWWe9o+kEu5eRZKNJvy8/UFqLuHJRaG4mnCZzdvBNRhtXquq Z2AL4Q8mwvknhH0Ocl5qERYvKllSMNrCci87pwEQMezuTu0hYbRFj4TYxADC s+UPju8lHHQ1LJZDWMIc13MnHOcaEDYIImP5R1uXnydcssb1nDPh1VElf3tj tCWFPIa5BeH99qfjjQkX1DR2Uwin9AY6HyNcm4U+AOHMQ8elbxPuinlZHUT4 eaVZx06MJpF1SMkdJVzzpEdjO2HnngshzYQnLraVJhH2xk/4yxEW90a0Pycc kc46g4GIST5kSI8mnHtuu/0LwpqmJ21+9W9t11uOEdbPmKGrEP60Xt+MTpi5 IpTBIjymvtKITXjrTZLHr71EqKh7j7Cl+Hr96/8D4qd1Mw== "]]}, {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV1nk4VF8fAHD73DsjUikUokglqVBpOacUipIllDVKKZSotFh/RKJFqEQp UvYlFOHInpCsyVaym5mDQiTe884/83yeO3fOud/tXKPzdnKneHh4+Hh4eI3/ /7370lDxl8FTBwGe//+nB5hIdl+Q0hIgnjs3fuM0OCn5JvrRsy3E0+l9sdPA RfGK7+oVvcRjn9r6VgN3yZis1lo94n5Uv1ARXJWdfykdspr46+2P27jAS/HE Q/uDs8SVGysqZIFv5ImyJv9h4qzkahcW8JcMK5w6aUYcNd+ikQtuRpe+ldIq I/ZZz77UAm7J/s7YtUqV2E5VtL4B3I5TSLTliybeI6y1sxjcUTR94ddDEa8o vjV3GtwzKa1t+J4P8NyE/kASBPcjLQ+ePHKBuDrTdrUrCJcM1Qrc2EnsxJf1 oh9EWCgUSzwLJ96KI/71gMjoop1JoiQeczzZCU2vwGNZrF7DzQX4X1DladFr IOpEYJa1tROxrri8TjJ4ErdSBdfJEwvskI/jgqeKhkqLUu8APOu2cEGnMXh2 eig+Xno/sQJisMZArMmHhVEVXgD/bda2430CnkceC1XWUCNe12VleAjESwbf NBCPBXg6Q83i2B4Qn29a9rD2OvGBV0aOb8BLi1V83wNMAf7TPf7r8nWQEP3e 23VCmJh/iVVQI0iUZXuEN3kAPLnKlxYvAonF73I7Q4wBnojLD7CNBEkn/CcU 96kQr6xllB8ByXHSrm/fkHz+FvM0aswAaYqHz357YAjwWK2w98ZHIK1SKnGV njKxmugrnUaQfrp/wImfxHv0IXu/5zWQYYIy5/JsAMamm+XX+YHMSHOVe2vF AWanjMsaj4JsyVtr3lC+APeXGu1bbAOyL2QF3ddZB3Bff3aroyHIrmwfOh/Q QCx0suYGE+RcVklW5if181MzdZ9uCshtaFKJ/1cBcPfln1bh90BeiKx65C/y vK27/m31fQTyfupGXtqUA3CLopbQaBDI13SdMr5gDXAz8yvr3m2QP1iWJ8pJ B7ihanTbzhBQsP/szqBBI4DrJDoaFBxB0VyO1rXORwCXMSqErIsAOtoVf2zF HoBLckS9vg8ClEoJbj1O6vWDdZJzqD0o3pBqf5UtA3BRQrN+ZCIo7uBR0HA8 D3Aei/+/1x9AybaXr9NPLgI4Vb6/dnQUlI2Npj8/Zg5wWJjQmIg+KJd6wTRp xwDfG1R+kOALyrWMT1HWNwG+u0POk1EIysNzpc7bvwH4duvVLyOqoGLr9YBd LiIA+w8NmSb/AZWeQsfb/MoBvnxpxMVoOaimVgiJpWwG2Gz9x+q5DlCtWmtb rvIR4KMrNgeK/ADVx7zee2TaAmxMX4gQiQHVST8udOeGAnz4m7PnBxPw6VBC e2rxIMDaphfcpc6CmgebMg80PwVYLfdTmJ4q+CyjY+k7zwJYVMpp751I8Flb 2drMkcRLOOvAltcl4LOLmK1yE8kXU0fuX1wP+FzYbt+auBtgwdNVC6T1Qb3K 25zIxDzA/evPLo7/Aurr9ArYxhzAHVCpi+cFoGGB26eHr48CbsHe7PlXh0CD nIO+n1U04OZdC9xdeB80qJvXOi/qAdzcdCunzX6gwWrX572e5wE3c+HS1w72 oCGV0cAxugW4L1PLDF0fg0b9J9/2zhYC7p3jB3MoJ9B0u3SQa6gAuFbXBO3M OkDT89OaOt5SgHtc5Gj6aznQ9JZ5OzZ1IeCaPtvwRYofNPUYqhhTM4BrkHtF /sNd0Lyty+1tcT3g7nl/ddngQ9Dc92fOV/Ua4CrIhutv9QStUGXJEtE6wBky Fn7tEAvafj8C2+uuAM5pb/fZtArwjfrYl6MiAjj2fur6ztHg24q/Iaqh8YBj 40eF9Y2Db/ut29bofwEcM4+h6PWS4FukgtuST+sBR0crtu1sLWjfmpWAK7sB R/HQ7sJuGdBxrVbk5QcdwO5Rkz5+JwJ08/J2iWUvA2zDMz5FOkOgZ+fnGq2e XDA8tkkqdfwc6GUfWx5ztgQMOdhmVCYIgQHnVNFdihNgoKZiOdpeA4YVli9M nuYDff0BM/bJUYCdZpxrO68Bfs4utDCsigJ4XUWdmn8N+DErgs/ctQej3MTp kXuyoNvO+btE3CgYV23u6p4aAd8GXlYr+fOCX3dEqt8Px4PmjuxTzmdkwO/e XvxKWgTUfyh5s5dbBSZXxzrkOIaAykrtbVKx1WDK+0xvMpwE+dI+gRZYDPwp XZpdttkdPHwXXetd/QfMyH25XZbWjdIn3K99r9gI/l5b+6Tp7F9UkqHr9t+a djD73mGOsWc9qgk9Fh7DDgVzyzJPy73QQY0BfRIquu1g3vKHvI30FfRV7/Hz /zachTyHWllH2cqoo9G4KOyEGOSZKaNGRRej7+UWh9aV+UHe6FXpT5AA6ulU z+1fagj59Oi292rnUB8PlcXfJQX5Joti7Q4ko/7xyjiP7xmQP7J/odTIBBp8 2nLJ9lATFNgXzq9jnIOGtZytR0L5oUB/9rMAXW80Ensjc+moORQMiPt6sFMO sT+l3z+RFg4Fg46m7ygJRuz6EzeUFz2GgrcZN5VfjSN280L5BYuroOC9c2oi F0sQu8s++tcRFSj4ZPPdBuokYo/+hEEbmVAw44POsS2vEUd838cqlh8UbO/K PR2sgjgWoQY/WGug0GbJcP+tmojTJVEctaoCCqnFaEjatSDOjzc2m0YeQqGt K1vT7rghTp8ec/eoIhTaqST1tS8Fcdiu/ofiy6GQtsbzDeEyiDMTNWdbOQ+F jhuntozxIe5Sm4JzH/mgkF9o5dqkT4irlzrfd+8KFAoQO1PUcgZxDw/5NQyd hEKBEUwTPgHENZJnOK1qhEIh0Ye8ju1GXPPgJZbVP6FQZFJjIyMDcU9pqJ0w vgyFkiq/3zgZjrieczpaRRpQqJF3+rOMJeKm6kU5+vBDoeb3ORclRRA346Sw tsg7KPT1kqv44g+I+8aDC3aT/XcODlrQioib94hXMmE9FBr83NL/CyNuebK5 f2sVFJqLeTP30Q9xOxV99r7ygox1211U3F8jTDsde7RQCjKUf639cv44wsKL FBKv1UDGxpQ+97MLEBbJNttiMQYZ6ist820uIryYM3RlaDtkQIae9sEdCMuo lxhcyoCMo81K1rJ1CG+W4Bu/EgMZvhd6QqsnEDZbXfrzQCBk/Dd7ppnVgfCx TRGBeysh42YgXqFfgrDFDs2Zbwch4/bTv0l19xC22c/jxVwFGRG1Syob1iF8 evOFve6PISNprQ5vmzXCl91z9xQbQUZKdu0BqX0IexxOaTqvCxnp0PiexXqE rym4L3yuDxnZZrYyHX8Q9vzoVql/BTKKAq7u+B6GsP/IFmGeXZDR8CP50kAF wmERQb+mRCCj2XlToVIKwuE73b2W20FG6593Ao4PEI74vqFrPQ9kdIqWhY3Y IvxYhr586RBkDOzqTOfOIPzMzeZyzmnI+BslOjS5EeFkf/tdrTKQWm3kbi3w COEPu9G6sS2QUvyivsx+DuESj7Y3K2wgtdZgor70JMKl6Z0m7HFIqRy6ouWn inDFkmdOFVxIbdO9pjRfhXB1HitT1QBS+ru9f81MIdzofO618EpIHS6Eqcct EW66zNx3sRRShjt5HfJIPJuv39MMMIOU6Xa/No87CLd6GtZt+wUpW7WAoklF hNstXnf9pwsp93W3b42ZItzz3/0JiWJIXU7U1zpSgPDP41GD6uKQuqokPJsh j3Cvyq0SGStIeSncOe/CRbivVuKryk5IBa28b8IOQHiwd8aGASEV/MxIRG8Y 4aE4VfPNNyAVKrOoMvkIwsPWek8yEiEVtjxc8+wKhEc+bcpTMIdU9NKHsgPZ CHO98+1NH0DqaYRZm44UwlhBosTuA6SeL5EIS/AhrrToeXIOUgliUYKn9BEe 47u3puAWpDKEo4d7ehH+ZZwu3TAAqazbVvF7DxJ/39Sp6QOpHKaM1fMMhH87 PhqYZ0Aqn/Gs3vYGwhNui5MuBUCqjO9FTtdihKds8737+SBV8dbTU5jEa6pL kHWkBFIfncz37WAi/McsgXNYClJ1LQsaHvEhPA1GPQvuQ+pL8ODjCi/itEdi D99BqgmU2v4m9TAjGVnRdhtSbYke2HCcuPfxKZ63kOqwNs71cUH4774YjcRh SHUvVvFMI/H6Gzv1dw+JV++NXmHWD4RnD2dtsZGD1MCmokZNkt/ZWLEH/GT/ Q/2Po858JeZUFtZPQQofMVAqr0f4n9c2wxJy/7jgWvybxOdf8XiStSCkfucL vJUn9TPHw5+62AtSUy7dXoakX+Z2nDNKXgSpmVX5+70RsdvacHN1SM1+jRBO 0yR+tftcXjyk5kPPN3bkErcmNrQ5QJpv78EnrM0IzwucK1P+BGmBKQW77WnE G/w1w10hzUjhWXuG9Ou80a9NlnshzbT9NhqZQOz+Ln4Hub5APOdtOamn+bCm uyZ+kBatvuf1K4Y4VRur74P0Iu9z2vISxGWixS3NkBZX015wJJy4dSNvTCyk lw2tbPJeSNwfn37MFtJSMX+fpIYQj1+o2i8DaWmjFrsOinjmgR5jM6RXMjLX Mf2J54U1Msl+5Atuj23n+b/bg4v3Q1rB1eHd6evE/3h1VvhAWklxj3fEJPGk p5NkIKTXta/QLiPzbp5tMHN5N6Q33J1aME7qf77L45dlG6RV931pljtLXPPH 3O4rpDdPp0Qb9BO/rVt/SwTS6mmB9l52xE9nzu94BOlt9nbrUrqI/TwVDfsg vUNi51j7MWI7UxORTEjvql2WRzcR7w6YXSkAaeg77rON9M/8MmH5Z2qQ1tKo 1XGoIfkYGaxZSO7fP/JaJEKXuHD5v1MMSOvG+jWXlhEHv3w/2QhpvaNW0eOQ 2OTmgpB6SB9Bi9cbbCX10XnQb2oQ0sZunHHPLOJoleyL5PlNlaryUlSIzRzD d0JIW4R56ZLzBM+W/PSKPwhpa51joltfELvJR+0ltp3d0uIgQyz77qZKJ6Qd Tg2dLF1K6tl5cOLuUki7bjfx9RQk/dFlZS7nDWk3NM0eI/0+7ZHbtU8D0pe1 n5k7kPk3LfrdzPEWpK8bD280IPv/oxan38GEdICLd6c8yd+k2bCn8GJIB04o 6D5UI/37texLTgWkg69XZ7NI/0+Ynr/UR35/95Z48ASp79+66j9kBSH9OC55 W5UAwuOCQSXNTpCOXnckfidZf8xpQEyHB9JPMyZFM8n6o1+WrhQPhXRcEeyP Iuvju/2Fu4ognfq1Jdz5P4TZA8YFaZGQLhHhHV1M+r//n9Mi7WlIl4W/sggk 8evf1GVrsQDSlcv1K2ZJvvvs5UOdSDxrlB7G9JF5/LNgZeuBF5Bu0dqg984P 4e86U16zvJAe9jB/Zc2L8NfKlfWD1pBmz80taiDzqrXqvWNgKqRxQJyXDjlv WirXHuFuh/TvMO5R1WIy7/O93SRaID2X6s/PT+Zj/fVlAw29kLmoJ906kdR3 5UmxN/+kIFP8mUsrm5xvFZJ7nt7YAJkSliqGqqRfyqrzdoZYQKZ0c6rWu2Xk PJL3UfVohkylqmSlSpL/gpeuFvfdIXN3WsJ4H5k/GdOC+kULIXPPOQentaR/ 0y+Wos52yNynpNDnNIhw6mBN6FlDyDzwPL71txvCSR8LR3NbINMk/EUhfzDC 8Tar5zgykHn22tNAuTyEI7+qdORug0znrdY8p8j8jFiaGOQmDJnnf0tfTST5 e2DoGv9yAWReco52UiXz7e77EX5xfcj0sY0yBGS9oJNBe6QwZEZqRy63JvV2 VSDG/a4tZJYsCk2PIv1q5ls3c6MAMstKAqNm3yJ81KQisz4NMisv+t60nkXY eLX6jkFxyKxpuGS1KhDhw++ulH8OgczWMCtmSjTC+3MfZ3/bD5mcRcqnisoR 3kIHu5pegiwJsU/Lf5L5xGLN18/shSypD+WM/VYIUy4ma9a4Q5a0a9H4K9If grVr/r0IgCz5L1kfnZQR5vExsCi9CVkb7kddntiDuBMFL/c9NIYsLTHHBsZZ xO0OzTKWkIAsFzEqaH0heb97EGwXqwBZF8JqlzVpkPe//NlTAVsgy23J/Vc3 yPtiUve5zfO7IMtDQqqi9gXivpSFh8zOQJaf7AbB80GI+/havXNiEmRFbjD0 e2OEuL7Pq8odrCGr6ECUp+YA4hpkKoekf4HCIn7KFw+KIU7PgP6d8iIoLKbJ Ev0QizjdfAUHDCgovHhsKHW7KuK0S+Wt/fMHCkueSBhUOow4jdBy/U8XKLx6 j5y1UDDilNoZj1T1Q2FNnqUHSgUQJ47X9coSPih8yotHbsck4tikZ1n+dIXC BVcb6zd0IHbdIN9zmXy4wLp3NXiagUZiVJVjbgnCBXPSYhrpVmhY+6hYX1E8 FEnq8H0e4IMG4y+3TP38AUX1RZ5ID6ai/kmBYAPTKig6U7lNRMwQ9c5c0I14 OUzcsZxPMJh406ZXuqPEo/8mpstQ7/S41FpuCRT9K1Xa2aNB7DbkdyCc2MUg 9Y0U6v1zxdf7LPn/WfHTh0x6UO+kV2RKkxcU/WcfGfLIHfWOhxz9zggl9rjq E5JKfGiDuLYYcailu08/sQj/+0IV4rfylo7mqHfsbrqlBQeKzjHTlDV3od7R sHl28APizPJPHUKol/v45kEFK+KK16geEB83efBWl7j99psyD+Ll8oej30LR eUHDJynDqJcTXSBxpo3YvPOcZx3qZT8bnFU/TOxcbHORQWybVR92kdgvztgB EsvdWHrkLnGK447DWah3JE54YtKN+IP+xr0jxPZNd388Im7ZuGrrauLVT56o uRKPLFq23hr1DvfZLRtNIZ6fYMk+JE5QElo29z/Hg9u/ "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 4}, {-3.7094581404700016`, 1.3862943407117272`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.450443607855422*^9}, FontSlant->"Italic"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FindRoot", "[", RowBox[{ RowBox[{ RowBox[{"Log", "[", "x", "]"}], "\[Equal]", RowBox[{"Cos", "[", "x", "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "1.3"}], "}"}]}], "]"}]], "Input", FontSlant->"Italic"], Cell[BoxData[ RowBox[{"{", RowBox[{"x", "\[Rule]", "1.3029640012160126`"}], "}"}]], "Output", CellChangeTimes->{3.450443638777985*^9}, FontSlant->"Italic"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"y", "=", RowBox[{ RowBox[{"Log", "[", "x", "]"}], "/.", "%"}]}]], "Input", FontSlant->"Italic"], Cell[BoxData["0.264641670144798`"], "Output", CellChangeTimes->{3.450443642065982*^9}, FontSlant->"Italic"] }, Open ]], Cell[TextData[{ "The point of intersection is at ", StyleBox["(1.30296, 0.264642)", "Input"] }], "Text", FontSlant->"Italic"], Cell[TextData[{ StyleBox["2 ", FontFamily->"Helvetica", FontSize->16, FontWeight->"Bold"], "(5 points)", StyleBox[" ", FontFamily->"Helvetica", FontSize->16, FontWeight->"Bold"], "Find all the critical numbers of the function ", Cell[BoxData[ FormBox[ StyleBox[ RowBox[{ RowBox[{"f", "(", "x", ")"}], "=", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["x", "3"], "-", RowBox[{"7", SuperscriptBox["x", "2"]}], "+", RowBox[{"8", "x"}], "+", "5"}], ")"}], SuperscriptBox["e", RowBox[{"-", "x"}]]}]}], "Input"], TraditionalForm]], "Text"], ". Reminder: A critical number is a solution of the equation ", Cell[BoxData[ FormBox[ StyleBox[ RowBox[{ RowBox[{ RowBox[{"f", "'"}], RowBox[{"(", "x", ")"}]}], "=", "0"}], "Input"], TraditionalForm]], "Text"], ". Exact answers please. Okay to leave answer as a list of replacement \ rules." }], "Text", CellDingbat->"\[FilledSquare]", CellChangeTimes->{{3.465660450431609*^9, 3.465660450862609*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"f", "=", RowBox[{ RowBox[{"Exp", "[", RowBox[{"-", "x"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"x", "^", "3"}], "-", RowBox[{"7", RowBox[{"x", "^", "2"}]}], "+", RowBox[{"8", "x"}], "+", "5"}], ")"}]}]}], "\[IndentingNewLine]", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{"f", ",", "x"}], "]"}], "\[Equal]", "0"}], ",", "x"}], "]"}]}], "Input", FontSlant->"Italic"], Cell[BoxData[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"-", "x"}]], " ", RowBox[{"(", RowBox[{"5", "+", RowBox[{"8", " ", "x"}], "-", RowBox[{"7", " ", SuperscriptBox["x", "2"]}], "+", SuperscriptBox["x", "3"]}], ")"}]}]], "Output", CellChangeTimes->{3.450443678094137*^9}, FontSlant->"Italic"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x", "\[Rule]", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"x", "\[Rule]", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"7", "-", RowBox[{"3", " ", SqrtBox["5"]}]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", "\[Rule]", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"7", "+", RowBox[{"3", " ", SqrtBox["5"]}]}], ")"}]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.45044367839007*^9}, FontSlant->"Italic"] }, Open ]], Cell[TextData[{ StyleBox["3 ", FontFamily->"Helvetica", FontSize->16, FontWeight->"Bold"], "(5 points each) Calculate the following. Give exact answers when possible, \ otherwise a decimal approximation is okay." }], "Text", CellDingbat->"\[FilledSquare]"], Cell[TextData[{ "a) ", Cell[BoxData[ FormBox[ RowBox[{ StyleBox[ SubsuperscriptBox["\[Integral]", "1", "2"], FontSize->16], RowBox[{ SuperscriptBox["\[ExponentialE]", "x"], StyleBox[" ", FontSize->16], RowBox[{ StyleBox["(", FontSize->16], RowBox[{ StyleBox["sin", FontSize->16], StyleBox[" ", FontSize->16], SuperscriptBox[ StyleBox["x", FontSize->16], "2"]}], StyleBox[")", FontSize->16]}], StyleBox[ RowBox[{"(", RowBox[{"ln", " ", "x"}], " ", ")"}], FontSize->16], StyleBox[" ", FontSize->16], StyleBox["dx", FontSize->16]}]}], TraditionalForm]]] }], "Text", CellChangeTimes->{{3.4656589141749353`*^9, 3.465658950349762*^9}, { 3.4656589966036453`*^9, 3.465659002736816*^9}, {3.465659058483943*^9, 3.4656590779145927`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{"Exp", "[", "x", "]"}], RowBox[{"Sin", "[", RowBox[{"x", "^", "2"}], "]"}], " ", RowBox[{"Log", "[", "x", "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.4656589595284767`*^9, 3.4656590433128567`*^9}}, FontSlant->"Italic"], Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "1", "2"], RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", "x"], " ", RowBox[{"Log", "[", "x", "]"}], " ", RowBox[{"Sin", "[", SuperscriptBox["x", "2"], "]"}]}], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Output", CellChangeTimes->{{3.465658980752727*^9, 3.465659047504509*^9}, 3.465659092453492*^9}, FontSlant->"Italic"] }, Open ]], Cell[TextData[{ "This output means that ", StyleBox["Mathematica", FontSlant->"Italic"], " cannot do this integral exactly, and so we now calculate the same integral \ numerically:" }], "Text", CellChangeTimes->{{3.465659130723721*^9, 3.465659180841694*^9}}, FontSlant->"Italic"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"Exp", "[", "x", "]"}], RowBox[{"Sin", "[", RowBox[{"x", "^", "2"}], "]"}], " ", RowBox[{"Log", "[", "x", "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.4656589595284767`*^9, 3.4656590433128567`*^9}, { 3.465659101906475*^9, 3.46565910468407*^9}}, FontSlant->"Italic"], Cell[BoxData["0.2464315113177173`"], "Output", CellChangeTimes->{3.465659111489565*^9}, FontSlant->"Italic"] }, Open ]], Cell[TextData[{ "b) ", Cell[BoxData[ FormBox[ StyleBox[ RowBox[{ RowBox[{ FractionBox["1", RowBox[{"0", "!"}]], "+", FractionBox["1", RowBox[{"2", "!"}]], "+", FractionBox["1", RowBox[{"4", "!"}]], "+", FractionBox["1", RowBox[{"6", "!"}]], "+"}], "..."}], FontSize->16], TraditionalForm]]] }], "Text", CellChangeTimes->{{3.4653894879084253`*^9, 3.465389497941985*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Sum", "[", RowBox[{ RowBox[{"1", "/", RowBox[{"n", "!"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "Infinity", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{ 3.465389503322487*^9, {3.465389572151803*^9, 3.465389641103125*^9}}, FontSlant->"Italic"], Cell[BoxData[ RowBox[{ SqrtBox[ FractionBox["\[Pi]", "2"]], " ", RowBox[{"BesselI", "[", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], ",", "1"}], "]"}]}]], "Output", CellChangeTimes->{ 3.450443711705562*^9, 3.4653895213340807`*^9, {3.465389584777264*^9, 3.465389643024866*^9}}, FontSlant->"Italic"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "[", "%", "]"}]], "Input", CellChangeTimes->{{3.46538953891846*^9, 3.465389542514369*^9}}, FontSlant->"Italic"], Cell[BoxData["1.5430806348152437`"], "Output", CellChangeTimes->{3.465389543738744*^9, 3.465389650797432*^9}, FontSlant->"Italic"] }, Open ]], Cell[TextData[{ "c)", StyleBox[" ", FontSize->16], Cell[BoxData[ FormBox[ RowBox[{ StyleBox[ UnderscriptBox["lim", RowBox[{"x", "\[Rule]", "4"}]], "DisplayFormula"], RowBox[{"(", FractionBox[ RowBox[{ RowBox[{"sin", " ", "x"}], "-", RowBox[{"sin", " ", "4"}]}], RowBox[{"x", "-", "4"}]], ")"}]}], TraditionalForm]], FontSize->16] }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Limit", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Sin", "[", "x", "]"}], "-", RowBox[{"Sin", "[", "4", "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{"x", "-", "4"}], ")"}]}], ",", RowBox[{"x", "\[Rule]", "4"}]}], "]"}]], "Input", FontSlant->"Italic"], Cell[BoxData[ RowBox[{"Cos", "[", "4", "]"}]], "Output", CellChangeTimes->{3.4504437244936934`*^9}, FontSlant->"Italic"] }, Open ]], Cell[TextData[{ StyleBox["4 ", FontFamily->"Helvetica", FontSize->16, FontWeight->"Bold"], "(5 points)", StyleBox[" ", FontFamily->"Helvetica", FontSize->16, FontWeight->"Bold"], "What is the fourth decimal digit of the square root of your student number \ (campus identity number)?" }], "Text", CellDingbat->"\[FilledSquare]", CellChangeTimes->{{3.4504666969079733`*^9, 3.450466698585692*^9}, { 3.450466731618738*^9, 3.4504667698880796`*^9}, 3.450553281009172*^9, { 3.46538903532343*^9, 3.465389075001226*^9}, {3.465389169614126*^9, 3.46538919800247*^9}, 3.465660600727693*^9, {3.465660760964221*^9, 3.465660768289652*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "[", RowBox[{ RowBox[{"Sqrt", "[", "123456789", "]"}], ",", "10"}], "]"}]], "Input", CellChangeTimes->{{3.465389085763891*^9, 3.4653891014556723`*^9}, { 3.465389134302294*^9, 3.465389150565716*^9}, {3.465389207869199*^9, 3.4653892100839577`*^9}}], Cell[BoxData["11111.1110605555554405417`10."], "Output", CellChangeTimes->{{3.46538909558248*^9, 3.465389102340007*^9}, { 3.465389137531453*^9, 3.465389151856187*^9}, 3.465389211803233*^9}] }, Open ]], Cell[TextData[{ "The fourth decimal digit is ", StyleBox["0", "Input"], " in this example." }], "Text", CellChangeTimes->{{3.465389389700391*^9, 3.465389418081067*^9}}], Cell[TextData[{ StyleBox["5 ", FontFamily->"Helvetica", FontSize->16, FontWeight->"Bold"], "(5 points)", StyleBox[" ", FontFamily->"Helvetica", FontSize->16, FontWeight->"Bold"], "Let", StyleBox[" f= Tan[x]^2", "Input"], ". Let ", StyleBox["g", "Input"], " be the (indefinite) integral of the derivative of ", StyleBox["f", "Input"], StyleBox[". ", FontSlant->"Italic"], StyleBox["Using ", FontVariations->{"CompatibilityType"->0}], StyleBox["Mathematica", FontSlant->"Italic", FontVariations->{"CompatibilityType"->0}], StyleBox[", show that", FontVariations->{"CompatibilityType"->0}], StyleBox[" f", "Input", FontVariations->{"CompatibilityType"->0}], StyleBox[" and ", FontVariations->{"CompatibilityType"->0}], StyleBox["g", "Input", FontVariations->{"CompatibilityType"->0}], StyleBox[" differ by a constant. What is the constant?", FontVariations->{"CompatibilityType"->0}] }], "Text", CellDingbat->"\[FilledSquare]", CellChangeTimes->{{3.4504666969079733`*^9, 3.450466698585692*^9}, { 3.450466731618738*^9, 3.4504667698880796`*^9}, 3.450553281009172*^9, 3.465660602607943*^9, {3.4656606802019577`*^9, 3.465660691448534*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"f", "=", RowBox[{ RowBox[{"Tan", "[", "x", "]"}], "^", "2"}]}], "\[IndentingNewLine]", RowBox[{"g", "=", RowBox[{"Integrate", "[", RowBox[{ RowBox[{"D", "[", RowBox[{"f", ",", "x"}], "]"}], ",", "x"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{"g", "-", "f"}], "]"}]}], "Input"], Cell[BoxData[ SuperscriptBox[ RowBox[{"Tan", "[", "x", "]"}], "2"]], "Output"], Cell[BoxData[ SuperscriptBox[ RowBox[{"Sec", "[", "x", "]"}], "2"]], "Output"], Cell[BoxData["1"], "Output"] }, Open ]], Cell[TextData[{ StyleBox["6 ", FontFamily->"Helvetica", FontSize->16, FontWeight->"Bold"], "(5 points)", StyleBox[" ", FontFamily->"Helvetica", FontSize->16, FontWeight->"Bold"], "Define a ", StyleBox["Mathematica", FontSlant->"Italic"], " function ", StyleBox["addone[L_]", "Input"], " that adds one to each entry of the list ", StyleBox["L", "Input"], ". Demonstrate that your function works by generating some list (I don't \ care how) and then applying your function." }], "Text", CellDingbat->"\[FilledSquare]", CellChangeTimes->{{3.4504666969079733`*^9, 3.450466698585692*^9}, { 3.450466731618738*^9, 3.4504667698880796`*^9}, 3.450553281009172*^9, { 3.465389813503686*^9, 3.465389830080524*^9}, {3.46538997997008*^9, 3.4653900157315474`*^9}, {3.465390112472588*^9, 3.4653901797959213`*^9}, { 3.465390212464429*^9, 3.465390220271449*^9}, 3.4656606049837847`*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"addone", "[", "L_", "]"}], ":=", RowBox[{"L", "+", "1"}]}], "\[IndentingNewLine]", RowBox[{"addone", "[", RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], "]"}], "\[IndentingNewLine]", RowBox[{"L", "=", RowBox[{"RandomInteger", "[", RowBox[{"10", ",", RowBox[{"{", "10", "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"addone", "[", "L", "]"}]}], "Input", CellChangeTimes->{{3.4653900267640467`*^9, 3.465390040693009*^9}, { 3.465390096575864*^9, 3.465390102017065*^9}, {3.465390186942391*^9, 3.46539019691639*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"1", "+", "a"}], ",", RowBox[{"1", "+", "b"}], ",", RowBox[{"1", "+", "c"}]}], "}"}]], "Output", CellChangeTimes->{3.465390103519122*^9, 3.4653901983758793`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "7", ",", "7", ",", "1", ",", "5", ",", "7", ",", "5", ",", "6", ",", "3", ",", "6", ",", "0"}], "}"}]], "Output", CellChangeTimes->{3.465390103519122*^9, 3.465390198469078*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "8", ",", "8", ",", "2", ",", "6", ",", "8", ",", "6", ",", "7", ",", "4", ",", "7", ",", "1"}], "}"}]], "Output", CellChangeTimes->{3.465390103519122*^9, 3.465390198495572*^9}] }, Open ]], Cell[TextData[{ StyleBox["7 ", FontFamily->"Helvetica", FontSize->16, FontWeight->"Bold"], "(5 points)", StyleBox[" ", FontFamily->"Helvetica", FontSize->16, FontWeight->"Bold"], " Generate the expression" }], "Text", CellDingbat->"\[FilledSquare]", CellChangeTimes->{{3.4504666969079733`*^9, 3.450466698585692*^9}, { 3.450466731618738*^9, 3.4504667698880796`*^9}, 3.450553281009172*^9, { 3.465389813503686*^9, 3.465389830080524*^9}, {3.46538997997008*^9, 3.4653900157315474`*^9}, {3.465390112472588*^9, 3.4653901797959213`*^9}, { 3.465390212464429*^9, 3.465390220271449*^9}, {3.465659362912532*^9, 3.465659374543157*^9}, {3.4656599926558228`*^9, 3.465659993678237*^9}, 3.465660610238928*^9}], Cell["Here are 4 ways:", "Text", CellChangeTimes->{{3.465659947802312*^9, 3.465659953325327*^9}}, FontSlant->"Italic"], Cell[BoxData[ RowBox[{"Clear", "[", "x", "]"}]], "Input", CellChangeTimes->{{3.4656599786955147`*^9, 3.465659981006483*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"i", "+", "1"}], ")"}], RowBox[{"x", "^", "i"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "10"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.465659382400159*^9, 3.465659402923244*^9}, { 3.4656595849061737`*^9, 3.465659605697235*^9}, {3.465659679259511*^9, 3.465659692458528*^9}, {3.465659759880471*^9, 3.465659773662115*^9}}, FontSlant->"Italic"], Cell[BoxData[ RowBox[{"1", "+", RowBox[{"2", " ", "x"}], "+", RowBox[{"3", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"4", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"5", " ", SuperscriptBox["x", "4"]}], "+", RowBox[{"6", " ", SuperscriptBox["x", "5"]}], "+", RowBox[{"7", " ", SuperscriptBox["x", "6"]}], "+", RowBox[{"8", " ", SuperscriptBox["x", "7"]}], "+", RowBox[{"9", " ", SuperscriptBox["x", "8"]}], "+", RowBox[{"10", " ", SuperscriptBox["x", "9"]}], "+", RowBox[{"11", " ", SuperscriptBox["x", "10"]}]}]], "Output", CellChangeTimes->{ 3.465659403320285*^9, {3.465659586205307*^9, 3.46565960900183*^9}, { 3.465659684158079*^9, 3.465659693207226*^9}, {3.465659760398184*^9, 3.465659786261703*^9}}, FontSlant->"Italic"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Total", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"i", "+", "1"}], ")"}], RowBox[{"x", "^", "i"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "10"}], "}"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.4656598628989573`*^9, 3.4656598724852*^9}}, FontSlant->"Italic"], Cell[BoxData[ RowBox[{"1", "+", RowBox[{"2", " ", "x"}], "+", RowBox[{"3", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"4", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"5", " ", SuperscriptBox["x", "4"]}], "+", RowBox[{"6", " ", SuperscriptBox["x", "5"]}], "+", RowBox[{"7", " ", SuperscriptBox["x", "6"]}], "+", RowBox[{"8", " ", SuperscriptBox["x", "7"]}], "+", RowBox[{"9", " ", SuperscriptBox["x", "8"]}], "+", RowBox[{"10", " ", SuperscriptBox["x", "9"]}], "+", RowBox[{"11", " ", SuperscriptBox["x", "10"]}]}]], "Output", CellChangeTimes->{{3.465659865299696*^9, 3.4656598731135893`*^9}}, FontSlant->"Italic"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Total", "[", RowBox[{ RowBox[{"Range", "[", RowBox[{"1", ",", "11"}], "]"}], " ", RowBox[{"x", "^", RowBox[{"Range", "[", RowBox[{"0", ",", "10"}], "]"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.4656596222977877`*^9, 3.465659654729899*^9}, { 3.4656597079246693`*^9, 3.465659715522603*^9}, {3.465659792269874*^9, 3.465659846772442*^9}}, FontSlant->"Italic"], Cell[BoxData[ RowBox[{"1", "+", RowBox[{"2", " ", "x"}], "+", RowBox[{"3", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"4", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"5", " ", SuperscriptBox["x", "4"]}], "+", RowBox[{"6", " ", SuperscriptBox["x", "5"]}], "+", RowBox[{"7", " ", SuperscriptBox["x", "6"]}], "+", RowBox[{"8", " ", SuperscriptBox["x", "7"]}], "+", RowBox[{"9", " ", SuperscriptBox["x", "8"]}], "+", RowBox[{"10", " ", SuperscriptBox["x", "9"]}], "+", RowBox[{"11", " ", SuperscriptBox["x", "10"]}]}]], "Output", CellChangeTimes->{{3.46565964736385*^9, 3.465659655246758*^9}, { 3.465659710206263*^9, 3.46565971616439*^9}, 3.465659796358871*^9, 3.4656598423172398`*^9}, FontSlant->"Italic"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Range", "[", RowBox[{"1", ",", "11"}], "]"}], " ", ".", RowBox[{"x", "^", RowBox[{"Range", "[", RowBox[{"0", ",", "10"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.4656599384557257`*^9, 3.4656599421820717`*^9}}, FontSlant->"Italic"], Cell[BoxData[ RowBox[{"1", "+", RowBox[{"2", " ", "x"}], "+", RowBox[{"3", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"4", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"5", " ", SuperscriptBox["x", "4"]}], "+", RowBox[{"6", " ", SuperscriptBox["x", "5"]}], "+", RowBox[{"7", " ", SuperscriptBox["x", "6"]}], "+", RowBox[{"8", " ", SuperscriptBox["x", "7"]}], "+", RowBox[{"9", " ", SuperscriptBox["x", "8"]}], "+", RowBox[{"10", " ", SuperscriptBox["x", "9"]}], "+", RowBox[{"11", " ", SuperscriptBox["x", "10"]}]}]], "Output", CellChangeTimes->{3.465659942786642*^9}, FontSlant->"Italic"] }, Open ]], Cell[TextData[{ StyleBox["8 ", FontFamily->"Helvetica", FontSize->16, FontWeight->"Bold"], "(5 points)", StyleBox[" ", FontFamily->"Helvetica", FontSize->16, FontWeight->"Bold"], " Define a function ", StyleBox["diffquot[f_,a_,b_]", "Input"], " that calculates the difference quotient ", Cell[BoxData[ FormBox[ FractionBox[ RowBox[{ RowBox[{"f", "(", "a", ")"}], "-", RowBox[{"f", "(", "b", ")"}]}], RowBox[{"a", "-", "b"}]], TraditionalForm]], "Input"], " for a function ", StyleBox["f", "Input"], " and numbers ", StyleBox["a", "Input"], " and ", StyleBox["b", "Input"], "." }], "Text", CellDingbat->"\[FilledSquare]", CellChangeTimes->{{3.4504666969079733`*^9, 3.450466698585692*^9}, { 3.450466731618738*^9, 3.4504667698880796`*^9}, 3.450553281009172*^9, { 3.465389813503686*^9, 3.465389830080524*^9}, {3.46538997997008*^9, 3.4653900157315474`*^9}, {3.465390112472588*^9, 3.4653901797959213`*^9}, { 3.465390212464429*^9, 3.465390220271449*^9}, {3.465659362912532*^9, 3.465659374543157*^9}, {3.4656599926558228`*^9, 3.465659993678237*^9}, { 3.465660057650845*^9, 3.46566008551952*^9}, 3.465660146014447*^9, 3.465660612952455*^9}], Cell[BoxData[ RowBox[{ RowBox[{"diffquot", "[", RowBox[{"f_", ",", "a_", ",", "b_"}], "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"f", "[", "a", "]"}], "-", RowBox[{"f", "[", "b", "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}]}]], "Input", CellChangeTimes->{{3.4656601125253363`*^9, 3.465660136529685*^9}}, FontSlant->"Italic"] }, Open ]] }, WindowSize->{815, 847}, WindowMargins->{{Automatic, 158}, {10, Automatic}}, PrintingCopies->1, PrintingPageRange->{1, Automatic}, ShowSelection->True, FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (April 20, 2007)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 95, 1, 46, "Subtitle"], Cell[688, 26, 645, 22, 45, "Text"], Cell[CellGroupData[{ Cell[1358, 52, 276, 9, 27, "Input"], Cell[1637, 63, 10421, 178, 233, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12095, 246, 252, 8, 27, "Input"], Cell[12350, 256, 161, 4, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12548, 265, 126, 4, 27, "Input"], Cell[12677, 271, 109, 2, 27, "Output"] }, Open ]], Cell[12801, 276, 128, 4, 26, "Text"], Cell[12932, 282, 1077, 38, 48, "Text"], Cell[CellGroupData[{ Cell[14034, 324, 483, 17, 43, "Input"], Cell[14520, 343, 341, 11, 33, "Output"], Cell[14864, 356, 619, 22, 44, "Output"] }, Open ]], Cell[15498, 381, 267, 8, 30, "Text"], Cell[15768, 391, 922, 36, 40, "Text"], Cell[CellGroupData[{ Cell[16715, 431, 387, 11, 27, "Input"], Cell[17105, 444, 418, 12, 46, "Output"] }, Open ]], Cell[17538, 459, 286, 8, 26, "Text"], Cell[CellGroupData[{ Cell[17849, 471, 436, 12, 27, "Input"], Cell[18288, 485, 110, 2, 27, "Output"] }, Open ]], Cell[18413, 490, 449, 17, 39, "Text"], Cell[CellGroupData[{ Cell[18887, 511, 315, 10, 27, "Input"], Cell[19205, 523, 331, 11, 54, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[19573, 539, 141, 3, 27, "Input"], Cell[19717, 544, 132, 2, 27, "Output"] }, Open ]], Cell[19864, 549, 408, 17, 44, "Text"], Cell[CellGroupData[{ Cell[20297, 570, 327, 11, 27, "Input"], Cell[20627, 583, 123, 3, 27, "Output"] }, Open ]], Cell[20765, 589, 658, 18, 30, "Text"], Cell[CellGroupData[{ Cell[21448, 611, 286, 6, 27, "Input"], Cell[21737, 619, 193, 2, 27, "Output"] }, Open ]], Cell[21945, 624, 172, 5, 26, "Text"], Cell[22120, 631, 1191, 37, 45, "Text"], Cell[CellGroupData[{ Cell[23336, 672, 360, 11, 58, "Input"], Cell[23699, 685, 81, 2, 30, "Output"], Cell[23783, 689, 81, 2, 30, "Output"], Cell[23867, 693, 28, 0, 27, "Output"] }, Open ]], Cell[23910, 696, 908, 25, 45, "Text"], Cell[CellGroupData[{ Cell[24843, 725, 592, 14, 73, "Input"], Cell[25438, 741, 221, 6, 27, "Output"], Cell[25662, 749, 224, 5, 27, "Output"], Cell[25889, 756, 224, 5, 27, "Output"] }, Open ]], Cell[26128, 764, 733, 19, 30, "Text"], Cell[26864, 785, 120, 2, 26, "Text"], Cell[26987, 789, 126, 2, 27, "Input"], Cell[CellGroupData[{ Cell[27138, 795, 468, 12, 27, "Input"], Cell[27609, 809, 810, 25, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[28456, 839, 363, 11, 27, "Input"], Cell[28822, 852, 688, 22, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[29547, 879, 415, 11, 27, "Input"], Cell[29965, 892, 784, 24, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[30786, 921, 285, 8, 27, "Input"], Cell[31074, 931, 662, 22, 30, "Output"] }, Open ]], Cell[31751, 956, 1210, 36, 39, "Text"], Cell[32964, 994, 395, 12, 27, "Input"] }, Open ]] } ] *) (* End of internal cache information *)