(* 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[ 8927, 294] NotebookOptionsPosition[ 6597, 213] NotebookOutlinePosition[ 7620, 248] CellTagsIndexPosition[ 7543, 243] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[TextData[StyleBox["\[OpenCurlyDoubleQuote]Visualization\ \[CloseCurlyDoubleQuote] Sample Notebook", "Title"]], "Section", CellChangeTimes->{{3.523020851379966*^9, 3.523020861577718*^9}, { 3.5252135539567223`*^9, 3.525213554131114*^9}, {3.525213592853923*^9, 3.525213595955573*^9}, {3.5263090902292337`*^9, 3.526309091582081*^9}, { 3.526309124992982*^9, 3.52630914401475*^9}, {3.5263114013628063`*^9, 3.526311404919738*^9}, {3.5284834369911413`*^9, 3.5284834376448307`*^9}, { 3.5297442510968657`*^9, 3.5297442554779997`*^9}, {3.530301358825203*^9, 3.5303013592541*^9}, {3.531327655251251*^9, 3.53132765588513*^9}, { 3.553880241077517*^9, 3.55388024945081*^9}, {3.553880991337455*^9, 3.553880992670353*^9}}], Cell[CellGroupData[{ Cell[TextData[{ "Visualization in ", StyleBox["Mathematica", FontSlant->"Italic"], "." }], "Section", CellChangeTimes->{{3.5263126073521137`*^9, 3.526312649957903*^9}, { 3.52848356742717*^9, 3.528483574183846*^9}, {3.529744264545711*^9, 3.52974426712998*^9}, {3.529744324245282*^9, 3.5297443426595993`*^9}, { 3.5303013716744013`*^9, 3.5303013761000347`*^9}, {3.5313276699126587`*^9, 3.531327673380684*^9}}], Cell[BoxData[ RowBox[{"Remove", "[", "\"\\"", "]"}]], "Input"], Cell["\<\ Basic idea (but you should also ask a Computer Scientist) is how to visualize \ fields in some abstract space on \[OpenCurlyDoubleQuote]paper\ \[CloseCurlyDoubleQuote].\ \>", "Subsection", CellChangeTimes->{{3.526312668905446*^9, 3.5263126842318287`*^9}, { 3.528483631675756*^9, 3.528483642521186*^9}, {3.529744351142601*^9, 3.5297443937566013`*^9}, {3.530301388240265*^9, 3.5303014062141314`*^9}, { 3.531327680031266*^9, 3.531327711173402*^9}}], Cell["\<\ We\[CloseCurlyQuote]ll do some simple things here, but there is an entire \ field of computing that surrounds \[OpenCurlyDoubleQuote]visualization\ \[CloseCurlyDoubleQuote] so we are just scratching the surface here.\ \>", "Subsection", CellChangeTimes->{{3.529744434147977*^9, 3.5297444481986103`*^9}, { 3.5313277161568604`*^9, 3.531327745956443*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Scalar field: Contour plot", "Section", CellChangeTimes->{{3.529744480587397*^9, 3.529744485627013*^9}, { 3.5313277999320803`*^9, 3.5313278050003*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"fBowl", "=", RowBox[{ RowBox[{"x", "^", "2"}], "+", RowBox[{"y", "^", "2"}]}]}], ";"}]], "Input", CellChangeTimes->{{3.531327818169098*^9, 3.53132783473005*^9}}], Cell[BoxData[ RowBox[{"ContourPlot", "[", RowBox[{"fBowl", ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", RowBox[{"ContourShading", "\[Rule]", "None"}]}], "]"}]], "Input", CellChangeTimes->{{3.531327868695179*^9, 3.531327869484758*^9}, { 3.5313279033347588`*^9, 3.531327931977108*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Scalar field: Density plot", "Section", CellChangeTimes->{{3.531328001676015*^9, 3.531328031976512*^9}}], Cell[BoxData[ RowBox[{"DensityPlot", "[", RowBox[{"fBowl", ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.531327868695179*^9, 3.531327869484758*^9}, { 3.5313279033347588`*^9, 3.531327931977108*^9}, {3.5313280154745007`*^9, 3.531328023007083*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Vector field: Vector plot", "Section", CellChangeTimes->{{3.531328255930314*^9, 3.53132826364754*^9}}], Cell[BoxData[ RowBox[{"vField", "=", RowBox[{"D", "[", RowBox[{"fBowl", ",", RowBox[{"{", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.531328267772818*^9, 3.531328298467504*^9}}], Cell[BoxData[ RowBox[{"VectorPlot", "[", RowBox[{"vField", ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.531328317924142*^9, 3.531328356429513*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["\<\ Vector field: Plot vectors from a list\ \>", "Section", CellChangeTimes->{{3.5313283968617773`*^9, 3.531328410404262*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"data", "=", RowBox[{"Table", "[", RowBox[{"vField", ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "5"}], ",", "5", ",", "2.5"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "5"}], ",", "5", ",", "2.5"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"ListVectorPlot", "[", "data", "]"}]}], "Input", CellChangeTimes->{{3.531328415220282*^9, 3.531328420902525*^9}, { 3.531328465465703*^9, 3.531328549178773*^9}, 3.531328631266264*^9, { 3.5313287543081713`*^9, 3.531328762553953*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Vector field: Stream plot", "Section", CellChangeTimes->{{3.531328680456751*^9, 3.531328686841432*^9}}], Cell[BoxData[ RowBox[{"StreamPlot", "[", RowBox[{"vField", ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.531328688879095*^9, 3.53132870342423*^9}}] }, Open ]] }, Open ]] }, ScreenStyleEnvironment->"Working", WindowSize->{962, 769}, WindowMargins->{{36, Automatic}, {Automatic, 18}}, PrintingCopies->1, PrintingPageRange->{1, Automatic}, PrintingOptions->{"PaperOrientation"->"Landscape", "PaperSize"->{787.56, 603.}}, FrontEndVersion->"8.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (November 6, \ 2010)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "SlideShowHeader"->{ Cell[2683, 70, 64, 1, 63, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[3635, 104, 64, 1, 63, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[4320, 129, 64, 1, 63, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[5158, 161, 64, 1, 63, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[6037, 192, 64, 1, 63, "SlideShowNavigationBar", CellTags->"SlideShowHeader"]} } *) (*CellTagsIndex CellTagsIndex->{ {"SlideShowHeader", 7080, 229} } *) (*NotebookFileOutline Notebook[{ Cell[557, 20, 731, 10, 83, "Section"], Cell[CellGroupData[{ Cell[1313, 34, 422, 10, 37, "Section"], Cell[1738, 46, 74, 1, 27, "Input"], Cell[1815, 49, 463, 8, 35, "Subsection"], Cell[2281, 59, 365, 6, 42, "Subsection"] }, Open ]], Cell[CellGroupData[{ Cell[2683, 70, 64, 1, 63, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[2772, 75, 160, 2, 67, "Section"], Cell[2935, 79, 210, 6, 27, "Input"], Cell[3148, 87, 438, 11, 27, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[3635, 104, 64, 1, 63, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[3724, 109, 111, 1, 67, "Section"], Cell[3838, 112, 433, 11, 27, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[4320, 129, 64, 1, 63, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[4409, 134, 109, 1, 67, "Section"], Cell[4521, 137, 254, 7, 27, "Input"], Cell[4778, 146, 331, 9, 27, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[5158, 161, 64, 1, 63, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[5247, 166, 133, 3, 67, "Section"], Cell[5383, 171, 605, 15, 43, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[6037, 192, 64, 1, 63, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[6126, 197, 110, 1, 67, "Section"], Cell[6239, 200, 330, 9, 27, "Input"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)