Lab3_Ex2_b - Content-type application/mathematica Wolfram...

Info iconThis preview shows pages 1–3. Sign up to view the full content.

View Full Document Right Arrow Icon

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

View Full DocumentRight Arrow Icon
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: (* 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[ 170583, 2761] NotebookOptionsPosition[ 169879, 2734] NotebookOutlinePosition[ 170404, 2754] CellTagsIndexPosition[ 170361, 2751] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{"Lab", " ", "3", " ", "Exercise", " ", "2", RowBox[{"(", "b", ")"}]}]], "Input", CellChangeTimes->{3.4329950859516068`*^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[ RowBox[{"P2", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y", ",", RowBox[{"7", "-", RowBox[{"7", RowBox[{"x", "/", "4"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.432994975267701*^9, 3.4329949899227858`*^9}, 3.432995024884439*^9}], Cell[BoxData[ Graphics3DBox[GraphicsComplex3DBox[CompressedData[" 1:eJx1nXmUFFWWh6OoKqqAkgLZwZXJUVsdRNxQ0QhRsZJFQbttEW1QcDfBARdQ 2iq77R61UTGxFUdFNjHdemx1EpHUohVpHRUxZTVRNGQHWZIdgRgy4/5edv5e 3vqHc74TJ/K+L27eeO/Gy+D4G0ddeVMTx3G8SscpP/zvtGten/3IqZMuPP67 Ae8EQdDY2Gr090HQxbu924XP/Xs07YJv7nHBT0HQyXtj/YogEvUN7/yb6vVB 0MGLvN/2jNmxTYbX3ffN5iBo5y385MR3ItGs4fc+N2V7ELTxHuv2yRexzG7D Z869bXcQtPb6PHvj2mTsF8Nn5HmtV+bk/zzwQ0Hur4U39N2FEyLRJoZfe8kz zRyn2vvg1hc7ReMVhicfObWN41R4XY6+c1Ys09TwVl9+dFTuvOO+Pu+MeKSZ 4cu7vt3fcfa6y/7UbF4y1sLwia9/P9Rxtrlnnbe8fyZ5RIHf2n6t4/zgPrVl 1opcvOCO0zB1z4KpF8LzzXe/9dzh8VmewdkzOHsGZ8/g7BmcPYOzZ3D2DM6e wdkzOHsGZ8/g7Nlw8gzOnl9r0abh8Lgtz+DsGZw9g7NncPYMzp7B2TM4ewZn z+DsGZw9g7NncPZsOHkGZ89bpt9z82Eflmdw9gzOnsHZMzh7BmfP4OwZnD2D s2dw9gzOnsHZMzh7Npw8g7Pnm/J5vsnyDM6ewdkzOHsGZ8/g7BmcPYOzZ3D2 DM6ewdkzOHsGZ8+Gk2fw0vnsK/nsK/nsK/nsK/nsK/nsK/nsK/nsK/nsK/ns K/nsK/nsK/nsK/nsK/nsK57Tiue04jmteE4rntOK57TiOa14Tiue04rntOI5 rXhOK57Tiue04jlteXbkjz2Ds2dw9gzOnsHZMzh7BmfP4OwZnD2Ds2dw9gzO nsHZs+Hk2TF/JfPZVfLZVfLZVfLZVfLZVfLZVfLZVfLZVfLZVfLZVfLZVfLZ...
View Full 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_b - Content-type application/mathematica Wolfram...

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