(* 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[ 23047, 581] NotebookOptionsPosition[ 21805, 536] NotebookOutlinePosition[ 22148, 551] CellTagsIndexPosition[ 22105, 548] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[{"\"\< #1 \>\"", "\[IndentingNewLine]", RowBox[{"Limit", "[", " ", RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"t", "^", "2"}], "+", "1"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"3", RowBox[{"t", "^", "2"}]}], "+", "2"}], ")"}]}], ",", " ", RowBox[{"1", "/", "t"}]}], " ", "}"}], ",", " ", RowBox[{"t", "\[Rule]", "\[Infinity]"}]}], " ", "]"}]}], "Input"], Cell[BoxData["\<\" #1 \"\>"], "Output", CellChangeTimes->{3.412032757625*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox["1", "3"], ",", "0"}], "}"}]], "Output", CellChangeTimes->{3.4120327576875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"<<", "\"\\""}], ";"}], "\n", "\"\< #16 \>\"", "\n", RowBox[{ RowBox[{ RowBox[{"r", "[", "t_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", "t", "]"}], ",", RowBox[{"Sin", "[", "t", "]"}], ",", "t"}], "}"}]}], ";"}], "\n", RowBox[{"r", "[", FractionBox["\[Pi]", "4"], "]"}], "\n", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\n", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", FractionBox["\[Pi]", "4"], "]"}], "\n", RowBox[{ RowBox[{"Curve", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"r", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"2", " ", "\[Pi]"}]}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"Der", "=", RowBox[{"ListVectorFieldPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"r", "[", FractionBox["\[Pi]", "4"], "]"}], ",", RowBox[{ SuperscriptBox["r", "\[Prime]", MultilineFunction->None], "[", FractionBox["\[Pi]", "4"], "]"}]}], "}"}], "}"}], ",", RowBox[{"VectorHeads", "\[Rule]", "True"}], ",", RowBox[{"ColorFunction", "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"0", ",", "1", ",", "0"}], "]"}], "&"}], ")"}]}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"Vec", "=", RowBox[{"ListVectorFieldPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"r", "[", FractionBox["\[Pi]", "4"], "]"}]}], "}"}], "}"}], ",", RowBox[{"VectorHeads", "\[Rule]", "True"}], ",", RowBox[{"ColorFunction", "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "0", ",", "0"}], "]"}], "&"}], ")"}]}]}], "]"}]}], ";"}], "\n", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"0", ",", "0", ",", "1"}], "]"}], ",", RowBox[{"PointSize", "[", "0.05`", "]"}], ",", RowBox[{"Point", "[", RowBox[{"r", "[", FractionBox["\[Pi]", "4"], "]"}], "]"}]}], "}"}], "]"}], ",", "Curve", ",", "Der", ",", "Vec", ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"ViewPoint", "\[Rule]", RowBox[{"{", RowBox[{"1.3`", ",", RowBox[{"-", "2.4`"}], ",", "2.`"}], "}"}]}]}], "]"}]}], "Input", CellChangeTimes->{{3.41203276746875*^9, 3.4120328011875*^9}}], Cell[BoxData["\<\" #16 \"\>"], "Output", CellChangeTimes->{3.41203280303125*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox["1", SqrtBox["2"]], ",", FractionBox["1", SqrtBox["2"]], ",", FractionBox["\[Pi]", "4"]}], "}"}]], "Output", CellChangeTimes->{3.41203280303125*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", "t", "]"}]}], ",", RowBox[{"Cos", "[", "t", "]"}], ",", "1"}], "}"}]], "Output", CellChangeTimes->{3.41203280303125*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", SqrtBox["2"]]}], ",", FractionBox["1", SqrtBox["2"]], ",", "1"}], "}"}]], "Output", CellChangeTimes->{3.41203280303125*^9}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0, 0, 1], PointSize[0.05], Point3DBox[ NCache[{2^Rational[-1, 2], 2^Rational[-1, 2], Rational[1, 4] Pi}, { 0.7071067811865475, 0.7071067811865475, 0.7853981633974483}]]}, {{}, {}, {Hue[0.67, 0.6, 0.6], Line3DBox[CompressedData[" 1:eJwl2Xk4VN//AHBFzCDLoEaFVEoSimhR75NQsqRNJUmkkN0nIilkqSR7UvZI lLWMhGOnEspWypItWeYmspX8ju9v/nk/z+u5z70z576XO+dKmzscsVzMwcFh uIiDg5PE/PmFDwWTJbz1vdu893Di/49cqrwr/xK//7JtfFX4WZD5UbJLkkQW y872J3GnyBeazWEOMJuteP4zibEmmye+Et8TraxEz3SDnEloESax4Jt+bhnx G0/LPJLCrkO/qNV0PonKP1pS44jf+rqGL+a1LwSJ1y7NJNFm9v0HF+JrHL35 Op8HQKqsSTxHZgDs/bDjHTdxCe+EuqNh96Bd+2Z5ColnpWofVP6jIMihpXFv eSjMyvHLeZK4KfBPnAfxLxzjVsdfh0PA1lbnFBLXhz/Ub5ijwGdYN9/u+X1I 3GvDNU2iPb/SnpV/KVDVWnrseGg8tJwN2xAbFg+V1jqVMX8oaMgafyRZlQA5 ygrbe0lsmarzZhDn4Ra9GlyWCG5q4V/dyhOhX/FB8tAMBe7hWznPFSYDF5yR SXydDJp9Z/x3T5Hr+i268zbjCUgajOWPP38C+ffuUnY/KdiGZ4vd72bBEVvx 9uiwLHj8embekaLgx0mj9zWa2cC/HXDU/mww/FZ10JZNwTFjyer68mz4+cpJ +FtVNmyrvRaiO0JBygN9k8aSHMgvbn15uTwHFJ839T77TgFGiaVx+Xmwryrh X9zrPDCuDxye/UrBmaiAaP0UFpxpVgkZe86CPf7lo9VlFGwXe6op4YUh9JdJ XlQYBuOrMzZPMAUaGyfW/V1cCnfFYtRLl5bCQSOnJq9iChLaZET6tUvhY46f 1LYjpbA9NM6K8YoC+rHgvrT6Ujg9ZNIv+aUUDLW+vqzLouCv7OCuyY4ysD/N 5/RrpAw6nzW6BD+koE97aVXUnwqI2G0V+ECoEqQkvlfq2pLjsw+2XNxaC12L 1rC+n6gFiQ7lS92/2OBXVKzFq9UIu6oO8mq4NMKKgDjBgZxRYLlVqBR9bgNH D4NzeY6fQLJnj7EB1wisz5BsODDSCXYFlsGL13ZDz1tBw22vfkDfwOdTVbRe aB7UoT8x74MczoP3POW/gzRP+qKDwgNwW3GSI//UIJj+yV9avrgPZl1qtmVM D4LTptrI0pQRUM7dt2b2bjc8WzZYf998GGYtLmV22P8El/ABd8F17eB/HE96 bRsF82Ijw5ALv0D1h4+V8bqPYO1j3TWTxQaLsebS0sAJeLSoz6V2yUfozF1l 4fGCDWYeIScKQiZgOGQ/z9bvH8BV7b3OeAEbTDj12FnRE/DL2q5v6ukHCH5U sKu+jA1GYhUr49MmYOB+s94hxQ/QtX9tuGwTGw7syHG9VjsBMoLRXso7GoE+ 90HafoINCt535XfSfkNwZideGlEHqhmPMrdtoWBaSDs6L+A3GEypjglVVMJp RQfdm+GkzpRYDqn+kwCiPhEX/CphTCdpEz2Kgrdb2wYuB0+CcNjkUdb+Sjgw wuHnH00BbdvUGa2oSZC+Lmt+sK4CRkV6E2xiKbi5Q02vL2USur1undjeUg6/ bwjafUql4KoGS3ZN1SRgRlIgGiiF6oNhX3QKKLA5xvoWyzkFWzJsoz/yFoKK FGfEjRYK9l9hHY28MQWely7xeAW/gk1WO6NE2sj5Pdreng+cApNCy7NrGa+A FS6xOP4TBeWeU3tVQqZAmNmKTMQLINvDUSz+C+lb3mpKTfFTEBiUx3N7Qz6U brRdrfmN9IPbLH5hPAW0KPEYSiMXXqjWekkPU7DuEasqaG4KsjsTr++vzgHf zwHjO0n9mce1qZssmYaSvC7Zhzo5sOznYJ3eKKmPhKm8TUunQc/7yG5Vw2zI 1Qh6dorU96oUtaS3q6ZBX/SQybXCZ/D5biqTOU6BSCbLi6Y+DV4Rs5aWo4/h cEvkfxtIX1lcylK76TENVq7hr+07kyGI65thM/H0pYzUOR/im/S9nBuSoCOt TeXKLAVHTtuKut2Zhmvr1K7a5CSAIltYJIX0reTJ1WPWj6ZhueGN/TpD0TCX dnhdOOmLmptvpx8qmYb0rjMXROqiwEDaa8c08RGPPuab6mkoFRZe3fY8Av6+ kj9+jPTXiNo9ARoN0/BK+1KlvlMIqLpmxI8R77cYt9jWPQ1GB+NLOFODYN79 UP1W0r+Dc/Q/Zg5Ow1Eh2rCFdSA8N5XgvERcdf4Jkh2bhqagiA/S3dchZfes Vylx/xgTiZWLZyB81Gxb6QU3mFIfq+ogrjCYfyeCdwZsl+0Rzm63g30behi/ iLduE55dKjIDsif9szIbTkH6wRrLOeJevpesAlbOgH7WqsWi8ghPuMeWLMy9 DR+qWjnWzcCeLVdUu+fO40j+8xIzxBslV2t5yM/A20KXSuNpZ5zRucrnB/Er th554yozELLixMpSp6v4r2HdSCPx1YXN0na7ZyBxY3pX8G9vPHnA/UwW8Voe xZABrRm43Tz6ZPtWf5yltLn5JnHH47f+nTWYgSFxJdWv9rdx1+S44WHizORe 289GM/C0vWFsyX+hONlx0qSBrKf1nmiduosz8C8oTmJy5AEuP7m47Cy5L7yX F3Hm3pqB+sY9rtJ8j3DcR3ubUTLHcstPO20KmwEBzl8/NTfG4XtaaSuciRsL 5Xc9jpkBdQGpyYKtiVh3RiDEjORDRoZN0f2MGbD+ZvzsqX0K/q+Y0fRhmgK9 nqbL197PwO/iEp8T/c/x5kT7/iW/yH08lDp4QHgWjB40x/JOZOKMKXNhrjFy H2M5TpSLz8IRHk4/40XZ+Fzu1f0zJM87h4yrdq2ZhQrMeXRKMAdTKgeaakld KPoLJikoz8J3yYhDk/J5uF53pfPfQbL+RVdOix6fhS+nVWIGLVn4UITRyvwO CoTldOu7omdhZ7CaaU8vCw/bOSsiMscGeOKFaxNmIeWfl17ruQIcF+55tbyd gsL+X8ey02ZBYXeD/LMzr3Bu6MeiLNIfzifGfLlRMAt8+Eo8//HX+PQ5RUr+ AwUFzKFB6U+zMOizw8ZPA+MRJzX73HIKTHlucZ5f/gfuiQmw8Z0KXDBrKTYa T8Gzvurtg5F/gNFjn/nf4Xe4OpB/1959FByI10j+GfYX0HD6GvuId7hg5WWZ CKAgoLaxw+fhX7j+oOjZ2bZ3OEFLidm5i4LqMVOm2OO/ELDkzku5M3VYyrt3 xQkVCrQ0r97d8fIv3Iz2vGFq9R533MzJ61hH5vCPPDeftr+w2aF2u/y1Bpxx a0phDxcF6soyeqKr5qC6pO/QaMMH7B3Vm3usiA1KNTy/1VLm4MfO+IGsnhZc vqTHcy2DDcupOu3rrH/wpn6oGUd04NOi3TIuZiMQU1O4iNOaA5070fvLZX0P bgwIPPXeeAjUJfbOrz6/CF1RD7Kje/bjU2rjfRKs77CpW6jv2n+LUXNfkavF 3kHMP8nT4NjVB8/TGFYvnTnRz5p15Z9bhnDHEcuNvvbfwLPzTNMmfy7EOfOF Hdc/gj0b90coe30BJ/XtunERS1BU53Jq7gwbtw/oJdYqNMNsvKb5cAg3evbw afMZCzbmbbMdOiLQDHumdodtieRGTidSlr60YuOAxln3ttEm8DZQK3d7wI32 KFe66LiwMWP4SmjDsyagzW1cw5XEjZ5vDhqgB7Jx4CWOVE+5JhAzFuxZlceN hr59kBjMYmMzF+/bH8l8VhJtP2fQwo2SqkIZQjNs/PoH9+tMsUawDHQ4lyPO g46U1hnUOlJYkt9d1rm5BhodY8zcknjQVfmncsUuFN55wM0wL7IG5EKE/vyX yoMu18xvTXelcJvr8hi2UQ34ZvlHOqfzoJYJ5WpbTwpfziloPPq5GlTZzm/t cnmQiXpjT3gAhb+2b/Ju76iC2Eu6KufLedDs+/nT1o/I8dtrEgb6K8Dmwl+e wz08COsx2fKlFC5oGjjd0IeBy8Q0S24NDdG3jYutL6fw9czu98suYDC92qwj u56GJAOrjJZXUvjVjkIHo+8lwIo52CcjR0OhVyyke2oo7P5TtazkRzHYfFYV l95KQwfG3d4zGyi8b9eQgBr7NXwwEvRdrkFD4/dEpXi/UjhVNXPq228WxB0u NeIypyH1h2s5ZikKf2jlv/CPIxt27F/zryORhgbmniT8/Enh3932BSK0LFBJ fhtYk0JDPMXxsV1jFKZJDm5fK5AJCvPOIjlPaSjdj/tZ6jiF3wqd65df8QzW sCpkb+bQ0HaePtHPkxSWu+HjOrYlDfg2WB6VK6Oh/oMbw8OmKOzXyhHcpPYE uH2XdopU0VDDJ11bzWkK115fxMzenQocXS+t5mppyNfvhkLoDIVt/2t2PqXz GCaiuL0aG2lI3Po/dv0fCiukCTa4mCVAB3damms3Dcm4W4DuXwqr6L3jM6uL g0/mhspmfTSkUykwhIknuves/ND2CD6WTBfrDNKQhpa8XtgcOc/rTYvj2dFQ 7arTtOonDeXK2XL+JK7oWV/zdyYKSj+OneGeoKFr6Zyi2v8oXBNcLHB8SSQU KsQMUlM01DY9iL4Q5wKn+cmVoZA1MDRXPk9DpitEzqyYp3C1uPkWX4NgSNcI D3zGSUeqnvofyVzBfGkX1glb3obHcbtEonjoSODL7QRv4rNSjjXRV/0hbrY3 9jofHQnX4pqnxBX+ztNXhvlAtFGQrLUgHVFpPfvfEh/k2MracvgahOWq5B0R oaOvrOHVvcS5FnmdWO91GYIEOnarL6ejcM6WIxPEC2Lan2wyugT+Nn61Mivp 6JRDTAeZx3jb+40KNLMT4F29+aigFB3N5O4oI/MYe+4c37g1B7DnmtaO6TV0 VGecOzezcN2fPFmHHllgVy8vq571dJRbsyR8hDhNn6myM9EJO7avH38nR0fL FNW824gPKB0+deA/d2yj2nDtpQIdDcfo1hYS/3yEoZKWfAOfD3OjxW+lo+c/ dKyiiH8TqkKyd29iU7ZUeKAqHd1olM1TJT5xYyaDaRaEj6Y6pp3eQ0eSeqtN /5D115ctiqxYF4INFosra2nQ0WsnRfMC4setJGZcxcPwAdOyYgVtOrJNbr28 kngx9U63cXEUVl/GaFpkQEcrL3u+9yN5srNKm4ZaYrGMf97ckzN0FKV1ct9S 4jqjnnrv3sTj1T2nA0PP0RFj3TzjLsnD4dt7r27oSsAr9nCJXLWkI64bcqWX ZylcuiOmPq4pCQtMHpM1sKOjpGNVx4dJ/tdeo907XpSKpywnj0x40lFz8JWw i6S+djSaSmYFZeI3WjvS0CM6qpDhKz9L6jGl/7NT48MsfKXGS+F6Ah3lSx6Y MCD1+1tqwOG/49lYVqfyRfFjOursnjzHGCW/N3xsxOt8DvbXO1S28zkdHf4t f2nzIIVDhHynTvjkYc2jlu0qJXQ0ku7k94L0B8Vq0YnpIhYuNQvl39hNRwc1 nn6jYwpXbB6nuS4rxayrPxyF1/EiLaUNeMyKwo0iq9VT3GpxSs6DHT0ZvCj0 zdakAUsKBy8+Jd36shbb/Dkt9ymLF323F2hqMifr0MIzzTFRi5W0JFfW5/Gi G5t3Sd83obDjbLO6puMbXPQp6e+r17zojNrMzbJDFOYs7HG/bvUWN81n4NB3 vOhkcfqqVBXSV19E/ff6RB1eZFCitXeYF/mnhN58Mc3GGrqZzxyYjfjMUM/h BDk+pOGnJLrKho2Pbchdp93fhMXWytuYPuVDy0zM8+81jGCut/FPVdq/4I+L aD7iRfyoms+Q/9brIRzhrvSyIuobfklzSW18sxQJbGow3ms2iDeFJJ80ed2H 5cWEbMyrBJBKuruSkFU/Vror3Lv+zXdMBU+KKrcKoplgBqfvwR5Mf2Pk07R3 CK8NCFB0sBFCx++46rwZ6cBbtPauMtIZwT3GX9o1vguh6PKYNqzcivvW6uVo crLxgf6mmZf2wijtfXJ9ic57fDTJ/GzGegpfcba0WjYqjGjKrd/5eN7jvW+U uMPkKByoy764kxJGP2rbsw0r6/DFkcWlDgoUvr/O7aLpmDDSL6mPK9tTh28P 77cSUqVwfmvghdTf5PwHGYv3Kb/DvS6/bQc0KTy+89l51X/CqFLqX3rzijc4 yFrPpM+Mwvac42ZGggxU/XKfZGFfJRbihyXSYRS2iLhxKmoLA918EmWxJrES /7gvJj4YQWFnO/qpQmUGyrjpXHrzTCU+PndVOvU+hX20w052bmOga8O7BLa3 VuDwvFZ+nlgKJ0wnn1i/k4GEpHOZp2vK8dog6+0mTyjcaVJzPF+DgYavot7k tFKs4JKPjhZS+KSMwJHWowyEZopaQxoK8M6V43ccPlPYIP/hwWWuDLRx8ETR TsMCrMH/0HC6ncJW4+bzYlcYqP7s83udjSys/vvLaneS775Kci/EPBhoyYZS L9GP+dhZL73HvIv0xfQCCTEvBtKWM5tRb36BZVJcvrX2UXhNfMtPEX8GepXe vOtRWzYWwSI+iE3hyQDB+8JRDHS169bg+IlsPLrrQZsOqUuhqlZd4WgGWtk3 xHEvOwsz3j9W1iV1vGlxHIdwDAN9k6F6qnKe48fih/5t+0VhM095G6E4BrrH tTH9a95THHf+QlvGbzJXHXV2C6Yy0J/AevGB/ER8sfizDZP0m7hTvr38+Qy0 L8K3TImVgMf3/hVIIl4QdTCav4CB0u7ou7Pt47Hoy3v5a0nfamoS1ucvZCDX cf1TYw4P8ba+W4KCZL7RDBLy+UoY6LzYw640p3A851vS70f6orNG8S3eagYq GDtuSncOxWEp+knk/w4Oun5zD28tAyXwP+d81xeMnwX5nBMm/fhJke44/S0D Zeba28oM+GPDf7HfPYl/VW03odczUM5ujbtvBnzwjizrzFTiky6JwvRGBmrI uDv8of4atnMm3YS4cI5VNe0jAz0fYejSGy/j5Z8O7OshLs9WvEprZqASKTNH 16RLWNlBX3hhjmlvmlKktTJQ7yitNlXnBA6pyvy2MMfMrEr6eD4x0Kx9pcZB i71Qf9HmxcIcu5ri94CnnYFk3vg6uBmdB7Nv128tzLGoHj0Dnq8MVOS7MpZP zhmCin6aDRPPlhLl5OlkoPeN+2daZT3Azqd0ZwvxtyZfWNzdDBS5MXLgvYg3 jBZOLGMR73+QZMvdQ/LcoJm6ybgFQbHprebEV4huaV0ywECfa3lD2oTvwt3D ewvliascnr69ZJCBzi2Zcg0NDIHROxcS2GSdDwVjWDLEQPKSh341BETAhphH /xkTv0kzeMrFZqC3W7Ms+fwfQfDi73s+kvvL/mvjyTnJQGtVNvz0uRoHl8w5 Yk2Jnzqpu3FmioEavzVGuG9PgLaqIv1ekieVeZta2TMM5BG7oq9jcxJwfIx6 0kLm1QObEcX2OQYyf7pFy5GZCh41N5ApeS7T/GTXm71EBD0QuuYQMPIc+HKL 5ebJvHqY53jQVEwE6SnZHbGryYcsPwFTb1JHB2xcma9URNBdkLU30mTBaN9d O2YnhfOqjKoyVUWQ+Pq9EzvKWBB8ZaL1CalHSWk158fbRVByRWoNVVgAu3+1 F2SRuh5vm3p3T10EDfjs1xTJLATWj80VFk0k/7Xcr1/QFEGfCsfOSYWXwArT yQNnqshzwWrPAZFjIkhA5Lhb8aYKiFpxb8uDZPLc1+b9wt5FBL0W3ZLxx74C ZlE+i5ZInkeqlLqCLxM/ImmuklsBS0HzkEMcybcXXfQsNxHksgGWRm6vBL8R /5fSD0j/DNl9lrpKvk/LZS1hrSrYYdrksjKYwnU6M3THmyII31qS3mdSA7KH FawtyP+J6deOZ50iRdBIxTynS8A7EOVcdEAXkX6VcJb3P5YIurdH1Zje8wE+ vr8dlveKjWetdpu5/xFBD4tfLvc4+RkGv8eIbzcfxRJzoaedPERRzXxoQI5X N5icHVVuuDSMB/bfeUvjEkNph6w+nP7dC20WldLmnD9wxfo6kLwjhiSyk3pY 3QPgqsV78P3ZAWxDS+WSpi9DMhVnLjxN/QE8xZttiqR7MSth3e6K0GWISz35 h2HzMPg7F1ZV3O/C9bvUq44IL0erLDwiu++MgiLrWGFN+Cc8bfPwqFnwchQS vstA4Qcb5jo/1awObsS1hvHHly5jopCcz9c0RtmwVOPfxB2HRmxT2V/Cw2Si noHVEofG2GBxcbnEuGEjXrpdXnbxCiYaOJqfeniGDTtfiXq+FGnER6RezU5K MFGGMOvtHxoF337P3122tQF/Gf0Y3y3DROUDE9696ykIWpW1j1P7PWbf5h7K 28ZEBzy32M+aUMCz4bHOI6s3WKzKzsv4OLnu14J3K8woWKk95xss9wYXbH/x /dgJJops++ipbEEB996MKI+RWmz8bNbw0Ckm+sLxqlXfmgJ52XJv5FiL48ID 1mqeYSKn5SHH1l+mgPfPMaafWw2WNU+s3WzJRC98Hn+yvEPBV3zr/r+bVVh9 vpmx6DIT0SwVL67IpeChq0maxKMybL5D/cmTCCbqhKRZpxcUcGmv2i9zsgx3 weHguigmOl/AdirNp8DsNN/QBtEybKJ94fJYNBPd9XCka7ymIDEg9rZkUCk2 Ohqyb1csE03kb37bVkHB6u6WvNSpEnzQrq+rPoWJvj34yqffRMGOp7cTPr0o xFsTg5iT+UzkaikRzmihwHDattBYvhBnPUmcX/GKicLet03Ut1Lw4OvSQy3J r7B8Zv4AvGaid8eKteTbye9yc/V7EVaA17/ufnELM5F46oygezcF28IrnaQc 8/GKFpXDErVMZHtDr894mIJ5NivlzcZcvJjecUvzMxOdSVvacXeEgrlQ6ab+ hBx8XfCXo/UXJqrdeOspa5QCh+mP1N/lOfivGM/J4A4maoo8XURRFCwqs45Y xZ2NJ9dsWf/pGxOZo4LSsXEKko+4Z+tWZuAhdb/yS0NMtIryNfgyQYFAkunD Xbnp+OK+mKchI0xUCE+ev/5Nzp95u31twlPcp5MV8pLNRHmBvzvNpigwFy8N 6bz6BHcafTad/8VE6xp1eHbPUnDF67DHEuVk/NFx85+wP0zULn9KvIN4EbU0 pXR1Ej7kptHDmmOikwbcf1z+ULDO4niMq0Airrt24s3XebIO4vfk/f9SgLjv QVpTLK6+7X1/PZc44tPap6n+j4KB/mSbIhSJCx+3KBfyi6OBsmUNYcTfHPqR +nNlOFbLGFrRJSCOnq12k+0mfqU9yFJqKgS/yJlfxCUsjh7uDdQ+O0/BDzWH sg7jWzizZGOjvpg4QtdE+UIX9lUj9XOkhf3wpqo9LOfl4qjxbl/sK+LnzgaE n625gdPeHY27Ly6O5hTXKVDE66z8djy66IiTPl2z/SYhjq43PM5bcGvDCqt/ Mo5Y3n+2aYy4+m4+tYX3jFugd3NZrQPOV3bbtVhSHO33vaU2RlzY9Fy3Trk9 fhfsyLuWeH6BrtQ4caGX5ptPv7TFE5oWaeeJrysfuDVJ3JfN5XDtoRXWzjnQ 95144t7K0QVP1YvO2su0wo2mVbrTxLuDAw5NEc+1jWIvibyIjfk18mhS4uh2 GOafXtinvvj7YnDwBexwcZfPRuLfd/+2W9gvHmpV1In3Po+jJRRWXyLeLuX2 7g9xqlb6felFMzx0S8SETbz8Ss7ShfeqXVVtP+lvzuL/1EIq/hFfHv9Bf8Gt LY5rhZWb4n99/JsEV4uj8aMVNQt+r/LwYNJLEyyCuGcVidNNbZMW9rUP793K rHx4EqtPTt93It4j3dK04B/CJ87qRZ7A1cmX572J8+at5fxHvEpDLrU52Agb Hv51IYy42m7n0wvuE6+i0O99DFs+G96WR/zVz+ZfCx7rmqbAbWWIg807myaI 50naiizsm4v9a2xbVWGAmUKndy2RJusg/mPLghc91zXcnK+Hk4rbksSIj7lF WC24RVHhLoNHBzCL+cFJlXhle/mNBe8Qncg0vaeNNar1P2sTf8PbFrXgTKnc 1Q4+mrjO5S06QdziY3bRgtd80eIIsUK4u75C8Arx39audQt+SbDsK2KpYxtP 5BZI/EW9dPuCFziKsM7FbscTG4s7o4kncOT1LzjVXHPPx1cFe7Xt0H5KPH9+ I7Xgd7atvZhsrYRpfvnPXxGfeuc/ueCizBaPwHhZHLZVWewtcXPLN38WvC65 SubtpdV4VXeWZ/v/jh/7t+B2izXjlzsK4dS78n1D/zv//79nX7fl7sL79ZIt u57q/iH+f6hIacw= "]]}}, {RGBColor[0, 1, 0], Line3DBox[{{0.7071067811865475, 0.7071067811865475, 0.7853981633974483}, { 0., 1.414213562373095, 1.7853981633974483`}}], Line3DBox[{{0.28427849909445235`, 1.4156493489929283`, 1.5853981633974483`}, {0., 1.414213562373095, 1.7853981633974483`}, {-0.0014357866198334013`, 1.1299350632786427`, 1.5853981633974483`}}], Line3DBox[{{0.040406101782088366`, 1.3738074605910064`, 1.4425410205403055`}, {0., 1.414213562373095, 1.7853981633974483`}, { 0.24243661069253053`, 1.1717769516805645`, 1.7282553062545911`}}], Line3DBox[{{0.28427849909445235`, 1.4156493489929283`, 1.5853981633974483`}, {0.040406101782088366`, 1.3738074605910064`, 1.4425410205403055`}, {-0.0014357866198334013`, 1.1299350632786427`, 1.5853981633974483`}, {0.24243661069253053`, 1.1717769516805645`, 1.7282553062545911`}, {0.28427849909445235`, 1.4156493489929283`, 1.5853981633974483`}}]}, {RGBColor[1, 0, 0], Line3DBox[{{0., 0., 0.}, {0.7071067811865475, 0.7071067811865475, 0.7853981633974483}}], Line3DBox[{{0.6941318036236572, 0.4372390462748188, 0.6283185307179586}, { 0.7071067811865475, 0.7071067811865475, 0.7853981633974483}, { 0.4372390462748188, 0.6941318036236572, 0.6283185307179586}}], Line3DBox[{{0.6450226202734946, 0.6450226202734946, 0.48546138786081583`}, {0.7071067811865475, 0.7071067811865475, 0.7853981633974483}, {0.4863482296249815, 0.4863482296249815, 0.7711756735751014}}], Line3DBox[{{0.6941318036236572, 0.4372390462748188, 0.6283185307179586}, { 0.6450226202734946, 0.6450226202734946, 0.48546138786081583`}, { 0.4372390462748188, 0.6941318036236572, 0.6283185307179586}, { 0.4863482296249815, 0.4863482296249815, 0.7711756735751014}, { 0.6941318036236572, 0.4372390462748188, 0.6283185307179586}}]}}, Axes->True, AxesLabel->{ FormBox["\"X\"", TraditionalForm], FormBox["\"Y\"", TraditionalForm], FormBox["\"Z\"", TraditionalForm]}, ViewPoint->{1.3, -2.4, 2.}]], "Output", CellChangeTimes->{3.412032803109375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"\"\< #33 \>\"", "\[IndentingNewLine]", RowBox[{"Integrate", "[", " ", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"t", "*", RowBox[{"Sin", "[", "t", "]"}]}], ",", "1"}], "}"}], " ", ",", " ", "t"}], " ", "]"}]}]}]], "Input"], Cell[BoxData["\<\" #33 \"\>"], "Output", CellChangeTimes->{3.412032812328125*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "t"}], " ", RowBox[{"Cos", "[", "t", "]"}]}], "+", RowBox[{"Sin", "[", "t", "]"}]}], ",", "t"}], "}"}]], "Output", CellChangeTimes->{3.412032812359375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"\"\< #39 \>\"", "\[IndentingNewLine]", RowBox[{"Integrate", "[", " ", RowBox[{ RowBox[{"Norm", "[", " ", RowBox[{"{", RowBox[{"t", ",", RowBox[{"t", "^", "2"}]}], "}"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"t", ",", "0", ",", "2"}], "}"}]}], " ", "]"}]}]}]], "Input", CellChangeTimes->{{3.4120328163125*^9, 3.412032816734375*^9}}], Cell[BoxData["\<\" #39 \"\>"], "Output", CellChangeTimes->{3.412032818875*^9}], Cell[BoxData[ RowBox[{ FractionBox["1", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"5", " ", SqrtBox["5"]}]}], ")"}]}]], "Output", CellChangeTimes->{3.412032819359375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"\"\< #42 \>\"", "\[IndentingNewLine]", RowBox[{"Integrate", "[", " ", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Exp", "[", RowBox[{"2", "t"}], "]"}], ",", RowBox[{"Exp", "[", RowBox[{"-", "t"}], "]"}], ",", "t"}], "}"}], " ", ",", " ", RowBox[{"{", RowBox[{"t", ",", "0", ",", "1"}], "}"}]}], " ", "]"}]}]}]], "Input"], Cell[BoxData["\<\" #42 \"\>"], "Output", CellChangeTimes->{3.412032822453125*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", "2"]}], ")"}]}], ",", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", "\[ExponentialE]"}], "\[ExponentialE]"], ",", FractionBox["1", "2"]}], "}"}]], "Output", CellChangeTimes->{3.412032822609375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"\"\< #45 \>\"", "\[IndentingNewLine]", RowBox[{"DSolve", "[", " ", RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", "''"}], "[", "t", "]"}], "==", "1"}], ",", RowBox[{ RowBox[{ RowBox[{"y", "''"}], "[", "t", "]"}], "==", " ", RowBox[{"Exp", "[", "t", "]"}]}], ",", " ", RowBox[{ RowBox[{"x", "[", "0", "]"}], "\[Equal]", "2"}], ",", " ", RowBox[{ RowBox[{"y", "[", "0", "]"}], "==", " ", "0"}], ",", " ", RowBox[{ RowBox[{ RowBox[{"x", "'"}], "[", "0", "]"}], "\[Equal]", "0"}], ",", " ", RowBox[{ RowBox[{ RowBox[{"y", "'"}], "[", "0", "]"}], "==", " ", "1"}]}], " ", "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"x", "[", "t", "]"}], ",", RowBox[{"y", "[", "t", "]"}]}], "}"}], ",", " ", "t"}], " ", "]"}]}]}]], "Input"], Cell[BoxData["\<\" #45 \"\>"], "Output", CellChangeTimes->{3.4120328256875*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x", "[", "t", "]"}], "\[Rule]", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"4", "+", SuperscriptBox["t", "2"]}], ")"}]}]}], ",", RowBox[{ RowBox[{"y", "[", "t", "]"}], "\[Rule]", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", "t"]}]}]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.412032825875*^9}] }, Open ]] }, WindowSize->{1264, 887}, WindowMargins->{{Automatic, 0}, {-29, Automatic}}, FrontEndVersion->"6.0 for Microsoft Windows (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, 487, 14, 52, "Input"], Cell[1080, 39, 78, 1, 30, "Output"], Cell[1161, 42, 135, 4, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1333, 51, 2877, 87, 271, "Input"], Cell[4213, 140, 81, 1, 30, "Output"], Cell[4297, 143, 222, 8, 49, "Output"], Cell[4522, 153, 206, 6, 30, "Output"], Cell[4731, 161, 217, 8, 49, "Output"], Cell[4951, 171, 12759, 216, 447, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[17747, 392, 320, 9, 72, "Input"], Cell[18070, 403, 82, 1, 30, "Output"], Cell[18155, 406, 250, 8, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[18442, 419, 443, 11, 72, "Input"], Cell[18888, 432, 79, 1, 30, "Output"], Cell[18970, 435, 220, 8, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[19227, 448, 448, 12, 72, "Input"], Cell[19678, 462, 82, 1, 30, "Output"], Cell[19763, 465, 405, 13, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[20205, 483, 1012, 29, 72, "Input"], Cell[21220, 514, 80, 1, 30, "Output"], Cell[21303, 517, 486, 16, 45, "Output"] }, Open ]] } ] *) (* End of internal cache information *)