Lab3_Ex2_d - (* 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[ 170307, 2754] NotebookOptionsPosition[ 169572, 2727] NotebookOutlinePosition[ 170128, 2747] CellTagsIndexPosition[ 170085, 2744] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{"Lab", " ", "3", " ", "Exercise", " ", "2", RowBox[{"(", "d", ")"}]}]], "Input", CellChangeTimes->{3.4329950859516068`*^9, 3.432995715616693*^9}], 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[CellGroupData[{ 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
RowBox[{"P4", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y", ",", RowBox[{ RowBox[{ RowBox[{"-", "3"}], "x"}], "+", "28"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "6", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.432994975267701*^9, 3.4329949899227858`*^9}, 3.432995024884439*^9, {3.432995355003598*^9, 3.432995357065332*^9}, 3.432995390906576*^9, {3.43299544020255*^9, 3.432995442151168*^9}}], Cell[BoxData[ Graphics3DBox[GraphicsComplex3DBox[CompressedData[" 1:eJyFnHuUFdWVhy8PDc4QAk03LxvoRyWiiLYiLbM03lLR4UZjHKIZtNWg8mgd S0EjYyKz6GiWApMhWFFoBEWxNXcUEl8pUW+CIURphQaviI/CiCUiKh3hooLa 9B29tX+n7N/pvcZ/XOvzWL3rq127ztl1blVfcd2kaT1TqdTEw1KpXl/9+5IJ i49IpYa41W/98Ilisbh29tJ79xWLte4N+1qPzfgJ31rx8qm+U+suuPfQj3xn qOF1fq95TqbGvf+cE24Ig4Qv7Ff/SuBVu2sOTl3sZIYZvmdB44iMX+VufrD5 aS9M+J2l8SPdXZM2bg+8Iw0//1vLrgqD4e6h4tf/JLxP6ut/Kt3y1WNrM36l 4evl742+eMbZvjPc8CY5nzPkeODjPzzur144yL3oybZfO5kRhn8S/fYi36lw Z17e81EvTPij4cGPA2+ge7vEC37N1ktvC4MBbsuzV31WLCa8fNO6ylSqvwvP 03/26NLA+9LyDM6ewdkzOHsGZ8/g7BmcPYOzZ3D2DM6ewdkzOHsGZ8/g7Bmc PT/8zwObvPAzyzM4ewZnz+DsGZw9g7NncPYMzp7B2TM4ewZnz+DsGZw9g7Nn cPb8j5U3TncyBcszOHsGZ8/g7BmcPYOzZ3D2DM6ewdkzOHsGZ8/g7BmcPYOz Z3D2PK2U5x9ZnsHZMzh7BmfP4OwZnD2Ds2dw9gzOnsHZMzh7BmfP4OwZnD2D d5/PkZLPkZLPkZLPkZLPkZLPkZLPkZLPkZLPkZLPkZLPkZLPkZLPkZLPkZLP keI5r3jOK57ziue84jmveM4rnvOK57ziOa94ziue84rnvOI5r3jOK57zlueU
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.

This note was uploaded on 03/07/2011 for the course MATH 2374 taught by Professor Mosher during the Spring '07 term at Minnesota.

Page1 / 47

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