(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 8.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 28113, 816] NotebookOptionsPosition[ 24552, 708] NotebookOutlinePosition[ 26092, 758] CellTagsIndexPosition[ 25887, 749] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ StyleBox[ RowBox[{"Plain", " ", "Mathematica", " ", "Examples"}], "Title"]], "Input", CellMargins->{{18, 10}, {5, 10}}, CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.4874148246847*^9, 3.4874148259014997`*^9}, 3.4894483107539997`*^9, {3.489449396328*^9, 3.489449407652*^9}, 3.4898011704611998`*^9, {3.49216265010012*^9, 3.492162651511629*^9}}, TextAlignment->Center, FontColor->GrayLevel[0.5]], Cell[TextData[StyleBox["by Ian Markwood, illiMath REU Summer 2010", FontSize->24, FontColor->RGBColor[1, 0, 1]]], "Text", CellChangeTimes->{{3.4921626959978333`*^9, 3.492162742673991*^9}}], Cell[CellGroupData[{ Cell[TextData[StyleBox["CubeMathematica currently supports all 3D surface \ display functions. Evaluate the following to see how they work or \ investigate their examples (30aug10)", "Subtitle", FontFamily->"Arial", FontSize->18, FontWeight->"Bold"]], "Subsubtitle", CellMargins->{{18, 3}, {8, 2}}, CellChangeTimes->{{3.489449584802*^9, 3.4894496065699997`*^9}, { 3.489449648134*^9, 3.489449662731*^9}, {3.489449749337*^9, 3.4894497530360003`*^9}, {3.4894498067790003`*^9, 3.489449836605*^9}, { 3.489452888258*^9, 3.489452893453*^9}, 3.4898011704832*^9, { 3.4898012015802*^9, 3.4898012289442*^9}, {3.492162671351304*^9, 3.492162686049458*^9}}, FontFamily->"Arial", FontWeight->"Bold", FontColor->GrayLevel[0.5]], Cell[BoxData[{ RowBox[{"?", "Plot3D"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", " ", ButtonBox[ ButtonBox[ RowBox[{"click", " ", "here", " ", "for", " ", "example"}], BaseStyle->"Hyperlink", ButtonData->"Plot3D example"], BaseStyle->"Hyperlink", ButtonData->"Plot3D"], " ", "*)"}]}]}], "Input", CellChangeTimes->{{3.489449957986*^9, 3.4894499619049997`*^9}, 3.489450011778*^9, {3.489450099133*^9, 3.489450140252*^9}, { 3.489450276793*^9, 3.489450280533*^9}, 3.4894505929820004`*^9, 3.489451243991*^9, 3.489453867651*^9}], Cell[BoxData[{ RowBox[{"?", "ListContourPlot3D"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", " ", ButtonBox[ RowBox[{"click", " ", "here", " ", "for", " ", "example"}], BaseStyle->"Hyperlink", ButtonData->"ListContourPlot3D"], " ", "*)"}]}]}], "Input", CellChangeTimes->{{3.4894499257200003`*^9, 3.489449929951*^9}, 3.4894500117790003`*^9, 3.489450149698*^9, 3.489450286852*^9, 3.4894516949560003`*^9, 3.489453867651*^9}], Cell[BoxData[{ RowBox[{"?", "ParametricPlot3D"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", " ", ButtonBox[ RowBox[{"click", " ", "here", " ", "for", " ", "example"}], BaseStyle->"Hyperlink", ButtonData->"ParametricPlot3D"], " ", "*)"}]}]}], "Input", CellChangeTimes->{{3.489449975416*^9, 3.4894499805880003`*^9}, 3.4894500117790003`*^9, 3.48945015159*^9, 3.489450290007*^9, 3.489452567307*^9, 3.489453867651*^9}], Cell[BoxData[{ RowBox[{"?", "RegionPlot3D"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", " ", ButtonBox[ RowBox[{"click", " ", "here", " ", "for", " ", "example"}], BaseStyle->"Hyperlink", ButtonData->"RegionPlot3D"], " ", "*)"}]}]}], "Input", CellChangeTimes->{{3.4894500008059998`*^9, 3.4894500117790003`*^9}, 3.489450153841*^9, 3.489450292578*^9, 3.489452416115*^9, 3.489452867237*^9, 3.489453867651*^9}], Cell[BoxData[{ RowBox[{"?", "SphericalPlot3D"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", " ", ButtonBox[ RowBox[{"click", " ", "here", " ", "for", " ", "example"}], BaseStyle->"Hyperlink", ButtonData->"SphericalPlot3D"], " ", "*)"}]}]}], "Input", CellChangeTimes->{{3.489449983441*^9, 3.4894500117790003`*^9}, 3.48945015251*^9, 3.489450291321*^9, 3.489453260189*^9, 3.489453867651*^9}] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["These examples are \"detached\" from CubeMathematica \ to run in a \nplain 'matica front end.", "Subtitle", FontSize->18, FontColor->GrayLevel[0.5]]], "Subsubtitle", CellMargins->{{18, 3}, {8, 2}}, CellChangeTimes->{{3.48945062899*^9, 3.489450663058*^9}, 3.4894507851870003`*^9, 3.489453199724*^9, {3.4894545802349997`*^9, 3.489454624977*^9}, {3.4898011705072002`*^9, 3.4898011705702*^9}, { 3.4898012129302*^9, 3.4898012221112003`*^9}, {3.492162230470936*^9, 3.492162298427087*^9}, 3.492162663951414*^9}, FontWeight->"Bold"], Cell[CellGroupData[{ Cell[BoxData[ StyleBox[ RowBox[{"\[FilledSquare]", " ", StyleBox[ RowBox[{"ArcS", StyleBox["i", "Subsubtitle", FontSize->14], StyleBox[ StyleBox["n", "Subsubtitle", FontSize->14], "Subsubtitle", FontSize->14], StyleBox["e", "Subsubtitle", FontSize->14]}]], " ", StyleBox["function", "Subsubtitle", FontSize->14, FontColor->GrayLevel[0.5]], " ", StyleBox[ RowBox[{ StyleBox["d", "Subsubtitle", FontSize->14], "isplayed"}]], StyleBox[" ", "Subsubtitle", FontSize->14], StyleBox[ RowBox[{ StyleBox["w", "Subsubtitle", FontSize->14], "it", StyleBox[ StyleBox["h", "Subsubtitle", FontSize->14], "Subsubtitle", FontSize->14]}]], StyleBox[" ", "Subsubtitle", FontSize->14], "Plot3D"}], "Subsubtitle", FontSize->14, FontColor->GrayLevel[0.5]]], "Input", CellMargins->{{45, 10}, {5, 10}}, CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellChangeTimes->{ 3.489450315901*^9, {3.489450416898*^9, 3.4894504466210003`*^9}, 3.489450492541*^9, {3.4894510504309998`*^9, 3.489451055146*^9}, 3.489453717851*^9, 3.489453761775*^9, {3.4894540118970003`*^9, 3.489454037832*^9}, 3.489454509049*^9, 3.489454556516*^9, 3.4898029308032*^9}], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot3D", "[", RowBox[{ RowBox[{"a", "*", RowBox[{"Sin", "[", RowBox[{"x", "*", "y"}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"Mesh", "\[Rule]", "None"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Yellow", ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "20"}], "]"}], ",", RowBox[{"Opacity", "[", "0.8", "]"}]}], "]"}]}], ",", RowBox[{"ExclusionsStyle", "\[Rule]", RowBox[{"{", RowBox[{"None", ",", "Red"}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"a", ",", "1", ",", "5"}], "}"}]}], "]"}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellChangeTimes->{ 3.489450308925*^9, 3.489450492541*^9, 3.4894509204890003`*^9, 3.489453717851*^9, 3.489453761775*^9, {3.4894540118970003`*^9, 3.489454037832*^9}, 3.489454509049*^9, 3.489454556517*^9, { 3.489496472817*^9, 3.48949648056*^9}, {3.489497620111*^9, 3.489497663568*^9}, 3.4898029308032*^9, 3.4921623239213333`*^9}, CellTags->"Plot3D"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ StyleBox[ RowBox[{"\[FilledSquare]", " ", RowBox[{ StyleBox["\"\<\>", "Subsubtitle", FontSize->14], StyleBox[ RowBox[{ StyleBox["Ex", "Subsubtitle", FontSize->14], "pl", StyleBox["o", "Subsubtitle", FontSize->14], "de", StyleBox["d", "Subsubtitle", FontSize->14]}]], StyleBox[" ", "Subsubtitle", FontSize->14], StyleBox[ RowBox[{ StyleBox[ StyleBox[ StyleBox["s", "Subsubtitle", FontSize->14], "Subsubtitle", FontSize->14], "Subsubtitle", FontSize->14], "ph", StyleBox["e", "Subsubtitle", FontSize->14], "re"}]], StyleBox["\"\<\>", "Subsubtitle", FontSize->14]}], " ", "displayed", " ", "with", " ", StyleBox[ RowBox[{"List", StyleBox["C", "Subsubtitle", FontSize->14], "ontourPlot3D"}]]}], "Subsubtitle", FontSize->14]], "Input", CellMargins->{{45, 10}, {5, 10}}, CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellChangeTimes->{{3.4874148666331*^9, 3.4874148747607*^9}, { 3.489421353127625*^9, 3.4894214187995*^9}, 3.489448310755*^9, 3.489449396328*^9, 3.489449637691*^9, 3.489450936042*^9, { 3.489451029898*^9, 3.489451045829*^9}, 3.4894510946470003`*^9, { 3.489451404407*^9, 3.489451424635*^9}, {3.489451651841*^9, 3.489451662366*^9}, 3.489453717851*^9, 3.4894537573050003`*^9, { 3.489454011898*^9, 3.4894540330299997`*^9}, 3.489454509049*^9, 3.489454553545*^9, 3.4898029337412*^9}, FontColor->GrayLevel[0.5]], Cell[BoxData[ RowBox[{"ListContourPlot3D", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"x", "^", "2"}], "+", RowBox[{"y", "^", "2"}], "+", RowBox[{"z", "^", "2"}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "2", ",", "0.2"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "2"}], ",", "2", ",", "0.2"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", RowBox[{"-", "2"}], ",", "2", ",", "0.2"}], "}"}]}], "]"}], ",", RowBox[{"Contours", "\[Rule]", "6"}], ",", RowBox[{"Mesh", "\[Rule]", "None"}]}], "]"}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellChangeTimes->{{3.489451390954*^9, 3.4894514246359997`*^9}, 3.489451737818*^9, 3.489453717851*^9, 3.4894537573050003`*^9, { 3.489454011898*^9, 3.4894540330299997`*^9}, 3.489454509049*^9, 3.489454553546*^9, {3.4894958651280003`*^9, 3.489496031891*^9}, 3.489496615976*^9, 3.4898029337412*^9, {3.4921623511617537`*^9, 3.4921623646266413`*^9}}, CellTags->"ListContourPlot3D"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.492162384427662*^9, 3.492162384456769*^9}}, CellTags->"ListContourPlot3D"], Cell[CellGroupData[{ Cell[BoxData[ StyleBox[ RowBox[{"\[FilledSquare]", " ", StyleBox[ RowBox[{ StyleBox["C", "Subsubtitle", FontSize->14], "able"}]], " ", "Knot", " ", "displayed", " ", "with", " ", "ParametricPlot3D"}], "Subsubtitle", FontSize->14]], "Input", CellMargins->{{45, 10}, {5, 10}}, CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.4874148666331*^9, 3.4874148747607*^9}, { 3.489421353127625*^9, 3.4894214187995*^9}, 3.489448310755*^9, 3.489449396328*^9, 3.489449637691*^9, 3.489450936042*^9, { 3.489451029898*^9, 3.489451045829*^9}, 3.4894510946470003`*^9, { 3.489451404407*^9, 3.489451424635*^9}, {3.489451651841*^9, 3.489451662366*^9}, 3.4894522425620003`*^9, {3.4894522873269997`*^9, 3.489452302447*^9}, {3.489453717851*^9, 3.48945374625*^9}, { 3.489454011898*^9, 3.489454029264*^9}, {3.489454143759*^9, 3.4894541567390003`*^9}, 3.489454509049*^9, 3.489454549941*^9}, FontColor->GrayLevel[0.5]], Cell[BoxData[ RowBox[{ RowBox[{"turn", "=", "9"}], ";", " ", RowBox[{"ext", "=", "2"}], ";", " ", RowBox[{"knot", "=", "4"}], ";", " ", RowBox[{"dist", "=", "1"}], ";", " ", RowBox[{"dia", "=", "0.2"}], ";", " ", RowBox[{"par", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"ext", "+", RowBox[{"Cos", "[", RowBox[{"turn", " ", "x"}], "]"}]}], ")"}], " ", RowBox[{"Cos", "[", RowBox[{"knot", " ", "x"}], "]"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"ext", "+", RowBox[{"Cos", "[", RowBox[{"turn", " ", "x"}], "]"}]}], ")"}], " ", RowBox[{"Sin", "[", RowBox[{"knot", " ", "x"}], "]"}]}], ",", RowBox[{"dist", " ", RowBox[{"Sin", "[", RowBox[{"turn", " ", "x"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", RowBox[{"2", " ", "Pi"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Tube", "[", "dia", "]"}]}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"Axes", "\[Rule]", "False"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"ViewPoint", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "6"}], "}"}]}], ",", RowBox[{"ColorFunction", "\[Rule]", "\"\\""}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"400", ",", "300"}], "}"}]}]}], "]"}]}]}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.4874151142675*^9, 3.4874151290719*^9}, 3.489448310755*^9, 3.48944939633*^9, 3.489449637692*^9, {3.48945231345*^9, 3.489452319045*^9}, {3.489453717851*^9, 3.48945374625*^9}, { 3.489454011898*^9, 3.489454029264*^9}, 3.48945450905*^9, 3.489454549941*^9, {3.49216240004006*^9, 3.492162405738762*^9}}, CellTags->"ParametricPlot3D"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.4921624348185472`*^9, 3.492162434897019*^9}}, CellTags->"ParametricPlot3D"], Cell[CellGroupData[{ Cell[BoxData[{ StyleBox[ StyleBox[ RowBox[{"\[FilledSquare]", " ", StyleBox["Triaxial", "Subsubtitle", FontSize->14], StyleBox[" ", "Subsubtitle", FontSize->14], StyleBox[ RowBox[{ StyleBox[ StyleBox["T", "Subsubtitle", FontSize->14], "Subsubtitle", FontSize->14], "ritorus"}]], " ", "displayed", " ", "with", " ", StyleBox[ RowBox[{ StyleBox["Pa", "Subsubtitle", FontSize->14], "rametricPlot3D"}]]}], FontSize->14], "Subsubtitle"], "\[IndentingNewLine]", StyleBox[ StyleBox[ RowBox[{"[", RowBox[{"surface", " ", "by", " ", "Katie", " ", "Poon"}], "]"}], FontSize->10], "Subsubtitle"]}], "Input", CellMargins->{{45, 10}, {5, 10}}, CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellChangeTimes->{{3.4874148666331*^9, 3.4874148747607*^9}, { 3.489421353127625*^9, 3.4894214187995*^9}, 3.489448310755*^9, 3.489449396328*^9, 3.489449637691*^9, 3.489450936042*^9, { 3.489451029898*^9, 3.489451045829*^9}, 3.4894510946470003`*^9, { 3.489451404407*^9, 3.489451424635*^9}, {3.489451651841*^9, 3.489451662366*^9}, 3.489453717851*^9, 3.4894537573050003`*^9, { 3.489454011898*^9, 3.4894540330299997`*^9}, 3.489454509049*^9, 3.489454553545*^9, 3.4898029337412*^9, {3.4898032509262*^9, 3.4898032891352*^9}}, FontColor->GrayLevel[0.5]], Cell[BoxData[ RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Sin", "[", "u", "]"}], RowBox[{"(", RowBox[{"1", "+", RowBox[{"Cos", "[", "v", "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"Sin", "[", RowBox[{"u", "+", RowBox[{"2", RowBox[{"Pi", "/", "3"}]}]}], "]"}], RowBox[{"(", RowBox[{"1", "+", RowBox[{"Cos", "[", RowBox[{"v", "+", RowBox[{"2", RowBox[{"Pi", "/", "3"}]}]}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"Sin", "[", RowBox[{"u", "+", RowBox[{"4", RowBox[{"Pi", "/", "3"}]}]}], "]"}], RowBox[{"(", RowBox[{"1", "+", RowBox[{"Cos", "[", RowBox[{"v", "+", RowBox[{"4", RowBox[{"Pi", "/", "3"}]}]}], "]"}]}], ")"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"u", ",", RowBox[{"-", "Pi"}], ",", "Pi"}], "}"}], ",", RowBox[{"{", RowBox[{"v", ",", RowBox[{"-", "Pi"}], ",", "Pi"}], "}"}], ",", RowBox[{"Mesh", "\[Rule]", "False"}], ",", RowBox[{"ColorFunction", "\[Rule]", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y", ",", "z", ",", "u", ",", "v"}], "}"}], ",", RowBox[{"Hue", "[", "z", "]"}]}], "]"}]}]}], "]"}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellChangeTimes->{{3.4898031339642*^9, 3.4898031703311996`*^9}, 3.4898036356712*^9, {3.492162444703672*^9, 3.4921624827330933`*^9}}] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.492162500470687*^9, 3.4921625004940243`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{"\[FilledSquare]", " ", StyleBox[ RowBox[{ StyleBox["R", "Subsubtitle", FontSize->14], "egions"}]], StyleBox[" ", "Subsubtitle", FontSize->14], StyleBox[ RowBox[{ StyleBox["w", "Subsubtitle", FontSize->14], "here"}]], StyleBox[" ", "Subsubtitle", FontSize->14], StyleBox[ RowBox[{ StyleBox["x", "Subsubtitle", FontSize->14], "yz"}]]}], StyleBox[ StyleBox["<", "Subsubtitle", FontSize->14], "Subsubtitle", FontSize->14], RowBox[{ StyleBox["1", "Subsubtitle", FontSize->14], StyleBox[" ", "Subsubtitle", FontSize->14], StyleBox[ RowBox[{ StyleBox[ StyleBox["d", "Subsubtitle", FontSize->14], "Subsubtitle", FontSize->14], "isplayed"}]], StyleBox[" ", "Subsubtitle", FontSize->14], StyleBox[ RowBox[{ StyleBox[ StyleBox["w", "Subsubtitle", FontSize->14], "Subsubtitle", FontSize->14], "it", StyleBox[ StyleBox[ StyleBox["h", "Subsubtitle", FontSize->14], "Subsubtitle", FontSize->14], "Subsubtitle", FontSize->14]}]], StyleBox[" ", "Subsubtitle", FontSize->14], StyleBox[ RowBox[{ StyleBox[ StyleBox["R", "Subsubtitle", FontSize->14], "Subsubtitle", FontSize->14], "egio", StyleBox[ StyleBox[ StyleBox["n", "Subsubtitle", FontSize->14], "Subsubtitle", FontSize->14], "Subsubtitle", FontSize->14], "Plot3D"}]]}]}], "Subsubtitle", FontSize->14]], "Input", CellMargins->{{45, 10}, {5, 10}}, CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellChangeTimes->{{3.4874148666331*^9, 3.4874148747607*^9}, { 3.489421353127625*^9, 3.4894214187995*^9}, 3.489448310755*^9, 3.489449396328*^9, 3.489449637691*^9, 3.489450936042*^9, { 3.489451029898*^9, 3.489451045829*^9}, 3.4894510946470003`*^9, 3.489451803151*^9, {3.489452002691*^9, 3.48945201927*^9}, 3.4894525759700003`*^9, {3.489452761623*^9, 3.48945277485*^9}, 3.489452842726*^9, {3.489453717851*^9, 3.4894537440480003`*^9}, { 3.489454011898*^9, 3.489454026549*^9}, 3.48945450905*^9, 3.489454546859*^9}, FontColor->GrayLevel[0.5]], Cell[BoxData[ RowBox[{"RegionPlot3D", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", " ", "y", " ", "z"}], "<", "1"}], ")"}], "&&", RowBox[{"(", RowBox[{ RowBox[{"x", "+", "y", "+", "z"}], "<", "1"}], ")"}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Yellow", ",", RowBox[{"Opacity", "[", "0.5", "]"}]}], "]"}]}], ",", RowBox[{"Mesh", "\[Rule]", "None"}]}], "]"}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellChangeTimes->{{3.489452790132*^9, 3.489452800625*^9}, 3.489452842726*^9, {3.489453717851*^9, 3.4894537440480003`*^9}, { 3.489454011898*^9, 3.489454026549*^9}, 3.48945450905*^9, 3.489454546859*^9, {3.489496811576*^9, 3.489496904428*^9}, { 3.489496946255*^9, 3.4894969538*^9}, {3.492162513486842*^9, 3.492162515476709*^9}}, CellTags->"RegionPlot3D", CellID->134210563] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ StyleBox[ RowBox[{"\[FilledSquare]", " ", StyleBox[ RowBox[{ StyleBox["A", "Subsubtitle", FontSize->14], "wesome"}]], StyleBox[" ", "Subsubtitle", FontSize->14], StyleBox[ RowBox[{ StyleBox["S", "Subsubtitle", FontSize->14], "pher", StyleBox[ StyleBox["e", "Subsubtitle", FontSize->14], "Subsubtitle", FontSize->14]}]], StyleBox[" ", "Subsubtitle", FontSize->14], StyleBox[ RowBox[{ StyleBox["d", "Subsubtitle", FontSize->14], "isplayed"}]], StyleBox[" ", "Subsubtitle", FontSize->14], StyleBox[ RowBox[{ StyleBox["w", "Subsubtitle", FontSize->14], "it", StyleBox[ StyleBox["h", "Subsubtitle", FontSize->14], "Subsubtitle", FontSize->14]}]], StyleBox[" ", "Subsubtitle", FontSize->14], StyleBox[ RowBox[{ StyleBox["S", "Subsubtitle", FontSize->14], "phericalPlot3D"}]]}], "Subsubtitle", FontSize->14], "\[IndentingNewLine]", StyleBox[ RowBox[{"[", RowBox[{"Note", " ", "the", " ", "MaxRecursion", " ", "level", " ", StyleBox[ RowBox[{"fo", StyleBox[ StyleBox["r", "Subsubtitle", FontSize->10], "Subsubtitle", FontSize->10]}], "Subsubtitle", FontSize->10], " ", "adaptive", " ", "mesh", " ", "refinement", " ", "is", " ", "1", " ", "for", " ", "a", " ", "jagged", " ", RowBox[{"surface", ".", " ", "Increasing"}], " ", "it", " ", "to", " ", "2", " ", "or", " ", "3", " ", "takes", " ", "longer", " ", "to", " ", "render", StyleBox[" ", "Subsubtitle", FontSize->10], StyleBox[ RowBox[{"bu", StyleBox["t", "Subsubtitle", FontSize->10]}], "Subsubtitle", FontSize->10], StyleBox[" ", "Subsubtitle", FontSize->10], StyleBox[ RowBox[{ StyleBox["lo", "Subsubtitle", FontSize->10], "ok", StyleBox["s", "Subsubtitle", FontSize->10]}]], StyleBox[" ", "Subsubtitle", FontSize->10], RowBox[{ StyleBox[ RowBox[{ StyleBox["ni", "Subsubtitle", FontSize->10], "ce", StyleBox["r", "Subsubtitle", FontSize->10]}]], "."}]}], "]"}], "Subsubtitle", FontSize->10]}], "Input", CellMargins->{{45, 10}, {5, 10}}, CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.4874148666331*^9, 3.4874148747607*^9}, { 3.489421353127625*^9, 3.4894214187995*^9}, 3.489448310755*^9, 3.489449396328*^9, 3.489449637691*^9, 3.489450936042*^9, { 3.489451029898*^9, 3.489451045829*^9}, 3.4894510946470003`*^9, { 3.489451404407*^9, 3.489451424635*^9}, {3.489451651841*^9, 3.489451662366*^9}, 3.4894522425620003`*^9, {3.4894522873269997`*^9, 3.489452302447*^9}, {3.489453088679*^9, 3.489453143512*^9}, 3.4894532348719997`*^9, 3.4894532754960003`*^9, {3.489453717851*^9, 3.489453741977*^9}, {3.489454011898*^9, 3.4894540244370003`*^9}, 3.48945450905*^9, 3.4894545452209997`*^9}, FontColor->GrayLevel[0.5]], Cell[BoxData[ RowBox[{"RenderSZG", "[", RowBox[{"SphericalPlot3D", "[", RowBox[{ RowBox[{"Sin", "[", RowBox[{ RowBox[{"5", "x"}], " ", "+", " ", RowBox[{"7", " ", "y"}]}], "]"}], ",", "x", ",", "y", ",", RowBox[{"ColorFunction", "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"ColorData", "[", "\"\\"", "]"}], "[", "#6", "]"}], "&"}], ")"}]}], ",", RowBox[{"Mesh", "\[Rule]", "None"}], ",", RowBox[{"PlotPoints", "\[Rule]", "35"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"Axes", "\[Rule]", "False"}], ",", RowBox[{"MaxRecursion", "\[Rule]", "3"}]}], "]"}], "]"}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.489421253362*^9, 3.48942125433075*^9}, { 3.48942129595575*^9, 3.4894213167995*^9}, 3.489448310755*^9, 3.489449396329*^9, 3.489449637691*^9, 3.4894532348719997`*^9, { 3.489453717852*^9, 3.489453741977*^9}, {3.489454011898*^9, 3.4894540244370003`*^9}, 3.48945450905*^9, 3.4894545452209997`*^9, { 3.489497155384*^9, 3.489497176618*^9}, {3.4894974018380003`*^9, 3.489497415145*^9}, {3.4894974668719997`*^9, 3.4894974672390003`*^9}}, CellTags->"SphericalPlot3D"] }, Open ]] }, Open ]] }, WindowToolbars->"RulerBar", WindowSize->{689, 750}, WindowMargins->{{78, Automatic}, {Automatic, 74}}, ShowSelection->True, PrivateNotebookOptions -> {"NotebookAuthor" -> ""}, FrontEndVersion->"7.0 for Mac OS X x86 (32-bit) (November 11, 2008)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Plot3D"->{ Cell[6249, 178, 1311, 33, 58, "Input", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->"Plot3D"]}, "ListContourPlot3D"->{ Cell[9142, 261, 1114, 27, 43, "Input", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->"ListContourPlot3D"], Cell[10271, 291, 124, 2, 27, InheritFromParent, CellTags->"ListContourPlot3D"]}, "ParametricPlot3D"->{ Cell[11400, 319, 2009, 50, 88, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellTags->"ParametricPlot3D"], Cell[13424, 372, 125, 2, 27, InheritFromParent, CellTags->"ParametricPlot3D"]}, "RegionPlot3D"->{ Cell[18997, 547, 1197, 32, 43, "Input", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->"RegionPlot3D", CellID->134210563]}, "SphericalPlot3D"->{ Cell[23268, 677, 1256, 27, 58, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellTags->"SphericalPlot3D"]} } *) (*CellTagsIndex CellTagsIndex->{ {"Plot3D", 24941, 721}, {"ListContourPlot3D", 25086, 725}, {"ParametricPlot3D", 25326, 731}, {"RegionPlot3D", 25561, 737}, {"SphericalPlot3D", 25733, 742} } *) (*NotebookFileOutline Notebook[{ Cell[557, 20, 449, 9, 51, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[1009, 31, 191, 3, 38, "Text"], Cell[CellGroupData[{ Cell[1225, 38, 738, 15, 72, "Subsubtitle"], Cell[1966, 55, 575, 14, 43, "Input"], Cell[2544, 71, 456, 10, 43, "Input"], Cell[3003, 83, 448, 10, 43, "Input"], Cell[3454, 95, 441, 10, 43, "Input"], Cell[3898, 107, 418, 9, 43, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[4353, 121, 568, 10, 47, "Subsubtitle"], Cell[CellGroupData[{ Cell[4946, 135, 1300, 41, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10001.}], Cell[6249, 178, 1311, 33, 58, "Input", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->"Plot3D"] }, Open ]], Cell[CellGroupData[{ Cell[7597, 216, 1542, 43, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10002.}], Cell[9142, 261, 1114, 27, 43, "Input", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellTags->"ListContourPlot3D"] }, Open ]], Cell[10271, 291, 124, 2, 27, InheritFromParent, CellTags->"ListContourPlot3D"], Cell[CellGroupData[{ Cell[10420, 297, 977, 20, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[11400, 319, 2009, 50, 88, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellTags->"ParametricPlot3D"] }, Open ]], Cell[13424, 372, 125, 2, 27, InheritFromParent, CellTags->"ParametricPlot3D"], Cell[CellGroupData[{ Cell[13574, 378, 1367, 35, 48, "Input", CellGroupingRules->{GroupTogetherGrouping, 10002.}], Cell[14944, 415, 1606, 48, 73, "Input", CellGroupingRules->{GroupTogetherGrouping, 10002.}] }, Open ]], Cell[16565, 466, 94, 1, 27, InheritFromParent], Cell[CellGroupData[{ Cell[16684, 471, 2310, 74, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10001.}], Cell[18997, 547, 1197, 32, 43, "Input", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellTags->"RegionPlot3D", CellID->134210563] }, Open ]], Cell[CellGroupData[{ Cell[20231, 584, 3034, 91, 63, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[23268, 677, 1256, 27, 58, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellTags->"SphericalPlot3D"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)