Lab6A_Ex4 - (* Content-type: application/mathematica *) (...

Info iconThis preview shows pages 1–3. Sign up to view the full content.

View Full Document Right Arrow Icon

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: (* 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[ 372817, 6250] NotebookOptionsPosition[ 371631, 6209] NotebookOutlinePosition[ 371971, 6224] CellTagsIndexPosition[ 371928, 6221] WindowFrame->Normal ContainsDynamic->False*) C (* Beginning of Notebook Content *) Notebook[{ N Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{"Exercise", " ", "4"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"theta_", ",", "phi_"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Sin", "[", "phi", "]"}], RowBox[{"Cos", "[", "theta", "]"}]}], ",", RowBox[{ RowBox[{"Sin", "[", "phi", "]"}], RowBox[{"Sin", "[", "theta", "]"}]}], ",", "1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"theta", ",", "phi"}], "]"}], ",", RowBox[{"{", RowBox[{"theta", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", RowBox[{"{", RowBox[{"phi", ",", "0", ",", RowBox[{"Pi", "/", "4"}]}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.449483077671875*^9, 3.4494830833125*^9}}], Cell[BoxData[ Graphics3DBox[GraphicsComplex3DBox[CompressedData[" 1:eJyFfXk8Vs37v9K+KSU8raKyF9lCJiQSoZVoQykklRakVFpQKbSolBaKSCW7 7sm+ZE0IkT0t0koUfuc2c8+cfD+9fs8/5+X9XPc17+t9zpm55po5k5j1rpVb B/Px8R0aysfHz1w/5fnfXzHdSUv9oen8L+ZTF/H1//cFDOsUr+LMctDazz9k Q9qs9Vo8fO/sE9nLs621qneuD5I6Y0dwoYWn44oKDbVKTpYe77XaSfCRP99J lxYacnw7rMzY+K3MlweNsq05H+1/jmb7WWDqrQlnOXBsgjdlPGe1q1PYz5Oj sTb8p9v1mRo8XAnbb0L2HB5+G/t/j/wTfAbm44P4EPyLGuJfivgTfAeOtwnF S/DeDqTPRaQPwXl6zmvp4ur5jIefz467oRcbCT5qzs4WG2pJ4jphPiR3f004 OGNiUr3//RXAwz9ezk9WaLkF+pYGZDXtDiO4RZpUzr6z3mBSm1fa4J4HBBdb OXOi61lvaLDUwZ+Nr6rMt1VsuQUnKRQAtp+CBYVzDtSEw0KbgjX7WO1y8vp5 wr3npirHR2zS5OGF2P4Fsoc8fDX2L4j8E1wV89FHfAiujPlPRvwJXo/jHa7f Hy/BD2N9wpE+BOfp6XA6i6sn0T912YLap+EpYFfiqemg257orOBxctHo0kQg p6p1fefb+yTe79dXpfyufQwOrFrWWbk9juDrLOMPSB8PArkT7BelfE2mupmt T5U7HgRjX9iMZeNZOQJb/9Q+hjLeic5sP9l+0teYdqGXioWwI6vdNqN+nlCl aI7Jz+BdROccbO+J7Em82di/FPJP8Ma/+RB8Aeb/AvEn+Acc7xEUL8GlsT6G SB+C8/T8kS45g9GT6GwL15u8ds4E004rLBOVdyE63+yWG61vlg5maEodG33t CYnX1EjqsmtKEpBY3LN2ffpzgvccGvb4pNAdkJk92UP9XQbBL1VdmeMtdAcm 6UhbsPEhV4MC3FKSYITsmm8WLD+9bxeaMe3C42u0N41itZuR2s8TFu/+k+Mb doDo3IftPZE9iXco9n8f+Sd42N98CN6A+Wch/gTXxvFKo3gJfhXro4L0IThP z5becK6eROfnp82FLrjng6XjlrwtKXQjOrecl1dwDc8F/HvVEmziE0i87W1T VVTTUoFfwQHx7CVZBL/F8eYTXR8O5vzODXqe8YLgN5vql0xdHw5v8U+wZ+Na 7rk1jB8od/N5cBbLT0qLxjmmXTjyQKayNavdd779POFz9ZWS4x2OEJ2fYfth yJ7EC7B/GeSf4LF/8yG4B+YvifgTvBnHexnFS/C3WJ+ZSB+C8/T0E2ri6kl0 nv/phGVkfAmwHbNzdVekJ9F5zIbql32fioDOhlS7Usgh8QrBnzmNwllAxGKo 2JKnVDf7rSOTgU802OZuvOOHXgnBNaJOvND1iYZXe4OXs3Gbu35BTcJZkD8j wk2X5adj3s2lfG1FsPVC98kSVrtzPvfzhMVKi0aJ+x4nOndi+0ZkT58r7H8Q 8k/wtX/zIfgizN8O8Sf4SBzvLBQvwfmxPtuQPgTn6Vl2uZirJ9F5bffpl4bi ZaByV8v8Kc3Hic69bQsj7UaXgglK4QZwXRrtV2Hp0wzLPDDo/UTthJPFBJ9+...
View Full Document

This note was uploaded on 03/07/2011 for the course MATH 2374 taught by Professor Mosher during the Spring '07 term at Minnesota.

Page1 / 107

Lab6A_Ex4 - (* Content-type: application/mathematica *) (...

This preview shows document pages 1 - 3. Sign up to view the full document.

View Full Document Right Arrow Icon
Ask a homework question - tutors are online