Lab6B_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
(* 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[ 453440, 7755] NotebookOptionsPosition[ 452268, 7714] NotebookOutlinePosition[ 452609, 7729] CellTagsIndexPosition[ 452566, 7726] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{"Exercise", " ", "4"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.4359582063494616`*^9, 3.4359582105364614`*^9}, { 3.449490168485989*^9, 3.4494901719809895`*^9}}], Cell[BoxData[ RowBox[{"(", "1", ")"}]], "Input", CellChangeTimes->{{3.4359582126824617`*^9, 3.4359582138164616`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"f", "[", RowBox[{"\[Theta]_", ",", "\[Phi]_"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"2", "+", RowBox[{"Cos", "[", "\[Phi]", "]"}]}], ")"}], RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "+", "5"}], ",", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"2", "+", RowBox[{"Cos", "[", "\[Phi]", "]"}]}], ")"}], RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "+", "5"}], ",", RowBox[{ RowBox[{"Sin", "[", "\[Phi]", "]"}], "+", "5"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.435939122182123*^9, 3.435939131125782*^9}, { 3.435939164119919*^9, 3.435939170820256*^9}, {3.435939690058504*^9, 3.435939690547173*^9}, {3.435939764353156*^9, 3.435939788320285*^9}, { 3.435940401039713*^9, 3.43594054476129*^9}, {3.435941051644045*^9, 3.435941087575555*^9}, 3.435941210934651*^9, {3.435941243525322*^9, 3.435941245714943*^9}, {3.4359412865159388`*^9, 3.4359413461603928`*^9}, {
Background image of page 1

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

View Full DocumentRight Arrow Icon
3.4359415792598467`*^9, 3.435941586727606*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"5", "+", RowBox[{ RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{"Cos", "[", "\[Phi]", "]"}]}], ")"}]}]}], ",", RowBox[{"5", "+", RowBox[{ RowBox[{"(", RowBox[{"2", "+", RowBox[{"Cos", "[", "\[Phi]", "]"}]}], ")"}], " ", RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}], ",", RowBox[{"5", "+", RowBox[{"Sin", "[", "\[Phi]", "]"}]}]}], "}"}]], "Output", CellChangeTimes->{3.435941602031692*^9, 3.4359583394534616`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ABDSD", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"\[Theta]", ",", "\[Phi]"}], "]"}], ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "0", ",", RowBox[{"2", "\[Pi]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Phi]", ",", "0", ",", RowBox[{"2", "\[Pi]"}]}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ 3.435940247279923*^9, {3.435940549682564*^9, 3.435940577415309*^9}, { 3.435940608726664*^9, 3.435940673333747*^9}, {3.435941114199626*^9, 3.435941120958537*^9}, 3.4359582221214614`*^9}], Cell[BoxData[ Graphics3DBox[GraphicsComplex3DBox[CompressedData[" 1:eJyNfXdcj9/7f6VCe08K2XsUSjhW9qaM7EjJJitZIWQTysiI7O1d9t57byJ7
Background image of page 2
Image of page 3
This is the end of the preview. Sign up to access the rest of the document.

Page1 / 132

Lab6B_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