Lab3_Ex2_a - (* 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[ 269610, 4312] NotebookOptionsPosition[ 268818, 4282] NotebookOutlinePosition[ 269342, 4302] CellTagsIndexPosition[ 269299, 4299] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{"Lab", " ", "3", " ", "Exercise", " ", "2", RowBox[{"(", "a", ")"}]}]], "Input", CellChangeTimes->{{3.432994903577236*^9, 3.432994919411508*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"tank", " ", "=", " ", RowBox[{"ContourPlot3D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "/", "4"}], ")"}], "*", RowBox[{ RowBox[{"(", RowBox[{"x", "-", "4"}], ")"}], "^", "2"}]}], " ", "+", " ", RowBox[{"y", "^", "2"}]}], " ", "==", " ", "4"}], ",", " ", RowBox[{"{", RowBox[{"x", ",", "0", ",", "8"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"z", ",", "0", ",", "10"}], "}"}], ",", RowBox[{"BoxRatios", "->", RowBox[{"{", RowBox[{"2", ",", "1", ",", "2.5"}], "}"}]}], ",", " ", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], ",", " ", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"ContourStyle", "->", RowBox[{"Opacity", "[", "0.8", "]"}]}]}], "]"}]}]], "Input"], Cell[BoxData[
Background image of page 1

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

View Full DocumentRight Arrow Icon
Graphics3DBox[GraphicsComplex3DBox[CompressedData[" 1:eJx1nXmwlsWdtl/cGFFENAIeD+COYmLAjFGj8jwyGlfUccNvnHGLlhi1MmUc M6GCuyMqExlLiY5mUFDxAy033MbSI4gTywUBlREToyhB8imgAiHAWT4zNVe/ p65TN/9QddVdd//61/1099Pdz3t2O/8np1y4WeObf/0ajc2/+e+Yde/P6eoa WO/Z60c/uOi5TW2z5reMOqnXt+pnnjpjxoWNlnraxO33GPenPxdu/dxLH3nn 364d0EMP73PaAX1WzxpYH3jymMEztm9vu+eIuef85NrdevCHtr915uQ5u/fw R2+O3j4tp//Viq6uPXro4a/tNPCGaye11A/dfNvTbX2bcZov6TPq4nd77dyj XnD7J/7lw293Drhulx4+cJdLnl2vvzr6vDv+z2ZDevDbLt/wrROP2LVHuejN 0f/2+2f97u6unepTVk47+e3/21H05klPu5jTLubk/7J//vBP3+vasf75AY+O emVjZ/Exx8ccn79ZPu4Hy37RWg94ZeGY9/usLe1oTrsceP7dj+/z3uD6pvYd l3/Z+8uiN0e/5+XvTnqj0VqfP+O7d0zfY13Rm6N3ubSj/eHW0x+sh1tPe1kP d5z4mKN3P0z9E737cyo39efEybP7D3pz9O4n6M2Tnna0P9xxwu1D3uwD73r+ nP7zO/vXs3+z67QTX+gqcZoTpznl7rb+lbEL2vvVgx+4d9CETU0fc3zM8bF/ ipP2dX3h9sfHPOl53l0u3HrGAesTZxxz/HDrGZdcbpq/Un3x93MKv33EKZeP 7DWkPnny3ae1dq0q+TFHf+/AR78z+cOh9Ws/fO/K9za8XdrRnHhuWLPFpCkd Q+vG4ysH/ebCMRV6c/T2IR7r4Zceceb0s94bUn95ySPtO/RZUeI0J2+uF9x6 /Fdc/+AOEyYMrRf8fsR3jtzi48hTnvG3nufFnOfFeUBvjt4+5Nn1Spz82ye1 I/GYp/hT/yE/9kFvnvIJtz/Pr33g1vP8Wg93ufiYo3d/QG+O3v0TvTl6tyN6 87T+JG/m+Hg+RW+O3j60o/VwrysST3FSL/vDvU7A3xx/c+plnvJP/3d7JZ6e R54v69N6jDjNU79K71Ov7z/lDzPXzxjl+sKtP+bjTQf/cdOnlfVwz1Mb91y9 1x29tusxf90x4uaHt722f4940Jujd3+gXPNrx837urNzTY844fZP/Pcf9zl2 60ZnDx+4yyVvru+vH3n47ZsbW/TIwxsr3ti4Xa+te9QXvTl6r/fQmyc9eTYn z163oDdH735Iu5iTZ4+H6M3R+3lHb47e5dIu9odbT/taD7ee/FsPd5z4mKN3
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 / 74

Lab3_Ex2_a - (* 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