(* 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[ 13555, 417] NotebookOptionsPosition[ 12522, 379] NotebookOutlinePosition[ 12856, 394] CellTagsIndexPosition[ 12813, 391] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Example 1", "Title", CellChangeTimes->{{3.454668774931506*^9, 3.4546687771674*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"f1", "=", RowBox[{"Plot3D", "[", RowBox[{ RowBox[{"x", "*", RowBox[{"Cos", "[", RowBox[{"x", "*", "y"}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], ",", RowBox[{"ViewPoint", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}]}]}], "]"}]}], ";", RowBox[{"Show", "[", "f1", "]"}]}]], "Input", CellChangeTimes->{{3.411302655928485*^9, 3.411302700299361*^9}, { 3.411303088920348*^9, 3.4113030893102016`*^9}, {3.411303122773354*^9, 3.411303165606852*^9}, {3.411304891727116*^9, 3.411304946292255*^9}, { 3.411306930414281*^9, 3.411306965891601*^9}, {3.411307095967731*^9, 3.4113071037083397`*^9}, {3.411307177103366*^9, 3.41130721227699*^9}}], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"f1", ",", RowBox[{"ContourPlot3D", "[", RowBox[{ RowBox[{"y", "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}], ",", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{"t", ",", "0", ",", "t"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", "Thick"}], "}"}]}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.411306193616124*^9, 3.41130625186287*^9}, { 3.4113073704183073`*^9, 3.411307370977894*^9}, {3.411307490609025*^9, 3.411307525097756*^9}, 3.411307583307455*^9, {3.4546693243770113`*^9, 3.4546693635875683`*^9}}], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"f1", ",", RowBox[{"ContourPlot3D", "[", RowBox[{ RowBox[{"x", "\[Equal]", "1"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}], ",", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "t", ",", RowBox[{"Cos", "[", "t", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", "Thick"}], "}"}]}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.411304959856492*^9, 3.411304964082996*^9}, 3.4113051071114902`*^9, {3.4113051439267807`*^9, 3.411305180215454*^9}, { 3.411305236752236*^9, 3.411305316334939*^9}, {3.411305370649393*^9, 3.411305397503599*^9}, {3.411305464168949*^9, 3.4113055550114117`*^9}, { 3.411305614059729*^9, 3.4113056336820297`*^9}, {3.411305729980988*^9, 3.4113057379067507`*^9}, 3.4113057746695547`*^9, {3.411305808338119*^9, 3.411305816029663*^9}, {3.411305848277318*^9, 3.411305881268409*^9}, { 3.411305935500802*^9, 3.411305972343523*^9}, {3.411306014462017*^9, 3.411306037109267*^9}, {3.4546693836170883`*^9, 3.454669433238515*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"t1", "=", RowBox[{"Plot3D", "[", RowBox[{"x", ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], ",", RowBox[{"ViewPoint", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}]}], ";", RowBox[{"Show", "[", RowBox[{"f1", ",", "t1"}], "]"}]}]], "Input", CellChangeTimes->{ 3.411309198223164*^9, {3.4113109505437193`*^9, 3.4113109626458683`*^9}, { 3.4113110044400578`*^9, 3.411311063790934*^9}, {3.4113110952970247`*^9, 3.4113110996635103`*^9}, {3.4113115687880173`*^9, 3.4113115838753967`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Example 2", "Title", CellChangeTimes->{{3.454669844030114*^9, 3.454669845722484*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"f2", "=", RowBox[{"ContourPlot3D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", "^", "2"}], "+", RowBox[{"y", "^", "2"}], "+", RowBox[{"z", "^", "2"}]}], "\[Equal]", RowBox[{"3", "x", "*", "y", "*", "z"}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], ",", RowBox[{"ViewPoint", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}]}]}], "]"}]}], ";", RowBox[{"Show", "[", "f2", "]"}]}]], "Input", CellChangeTimes->{{3.454669827627468*^9, 3.45466990917211*^9}, { 3.454670883715826*^9, 3.454670890713379*^9}}], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"f2", ",", RowBox[{"ContourPlot3D", "[", RowBox[{ RowBox[{"y", "\[Equal]", "1"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.454680355830532*^9, 3.454680385890748*^9}, { 3.454680442765884*^9, 3.454680442833325*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"t2", "=", RowBox[{"Plot3D", "[", RowBox[{ RowBox[{ RowBox[{"-", "x"}], "-", "y", "+", "3"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], ",", RowBox[{"ViewPoint", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}]}], ";", RowBox[{"Show", "[", RowBox[{"f2", ",", "t2"}], "]"}]}]], "Input", CellChangeTimes->{{3.454670912761553*^9, 3.454670931807959*^9}, { 3.45467098765143*^9, 3.454670988699504*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Example 3", "Title", CellChangeTimes->{{3.454671216792377*^9, 3.45467121845984*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"f3", "=", RowBox[{"Plot3D", "[", RowBox[{ RowBox[{ RowBox[{"x", "^", "2"}], "-", RowBox[{"y", "^", "2"}], "+", RowBox[{"2", "x", "*", "y"}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], ",", RowBox[{"ViewPoint", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}]}]}], "]"}]}], ";", RowBox[{"Show", "[", "f3", "]"}]}]], "Input", CellChangeTimes->{{3.454671077283656*^9, 3.454671118315885*^9}}], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"f3", ",", RowBox[{"ContourPlot3D", "[", RowBox[{ RowBox[{"y", "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.4546713587568407`*^9, 3.4546713588530483`*^9}}], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"f3", ",", RowBox[{"ContourPlot3D", "[", RowBox[{ RowBox[{"x", "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.454671166218539*^9, 3.454671193068034*^9}}], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Show", "[", RowBox[{"f3", ",", RowBox[{"ContourPlot3D", "[", RowBox[{ RowBox[{"x", "\[Equal]", "B"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"B", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.454671714653063*^9, 3.45467180669473*^9}, { 3.454671891317315*^9, 3.454671980925295*^9}, {3.454682276285885*^9, 3.454682276411368*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Example 4", "Title", CellChangeTimes->{{3.454672550780498*^9, 3.454672553469041*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"f4", "=", RowBox[{"Plot3D", "[", RowBox[{ RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"Exp", "[", RowBox[{"Sin", "[", RowBox[{"x", "^", "3"}], "]"}], "]"}], "]"}], "*", "y", "*", RowBox[{"x", "^", "2"}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], ",", RowBox[{"ViewPoint", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}]}]}], "]"}]}], ";", RowBox[{"Show", "[", "f4", "]"}]}]], "Input", CellChangeTimes->{{3.454672473353846*^9, 3.454672523910747*^9}, { 3.454672564102929*^9, 3.454672606999063*^9}}], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"f4", ",", RowBox[{"ContourPlot3D", "[", RowBox[{ RowBox[{"y", "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.454672625706668*^9, 3.454672672666935*^9}}], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"f4", ",", RowBox[{"ContourPlot3D", "[", RowBox[{ RowBox[{"x", "\[Equal]", "1"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.4546727040384197`*^9, 3.454672706464278*^9}}] }, Open ]] }, WindowSize->{640, 750}, WindowMargins->{{5, Automatic}, {Automatic, 5}}, FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (June 19, 2007)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 90, 1, 76, "Title"], Cell[683, 26, 1021, 25, 58, "Input"], Cell[1707, 53, 1040, 28, 43, "Input"], Cell[2750, 83, 1494, 34, 43, "Input"], Cell[4247, 119, 906, 23, 58, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[5190, 147, 92, 1, 76, "Title"], Cell[5285, 150, 989, 28, 58, "Input"], Cell[6277, 180, 573, 16, 27, "Input"], Cell[6853, 198, 827, 23, 58, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[7717, 226, 91, 1, 76, "Title"], Cell[7811, 229, 764, 22, 58, "Input"], Cell[8578, 253, 528, 15, 27, "Input"], Cell[9109, 270, 524, 15, 27, "Input"], Cell[9636, 287, 788, 22, 58, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[10461, 314, 92, 1, 76, "Title"], Cell[10556, 317, 890, 25, 58, "Input"], Cell[11449, 344, 526, 15, 27, "Input"], Cell[11978, 361, 528, 15, 27, "Input"] }, Open ]] } ] *) (* End of internal cache information *)