Lab3_Ex2_C - 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[ 170848, 2762] NotebookOptionsPosition[ 170144, 2735] NotebookOutlinePosition[ 170669, 2755] CellTagsIndexPosition[ 170626, 2752] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{"Lab", " ", "3", " ", "Exercise", " ", "2", RowBox[{"(", "c", ")"}]}]], "Input", CellChangeTimes->{3.4329950859516068`*^9, 3.432995117982708*^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[{"P3", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y", ",", RowBox[{ RowBox[{ RowBox[{"-", "5"}], "x"}], "+", "20"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.432994975267701*^9, 3.4329949899227858`*^9}, 3.432995024884439*^9, {3.4329951336816063`*^9, 3.432995158654251*^9}}], Cell[BoxData[ Graphics3DBox[GraphicsComplex3DBox[CompressedData[" 1:eJyFnHuUFdWVhy8NTTcqD3k/BHmUxnGUl0LUFa3KEkmXxjHDaDRBAY2COpbD DNo4BoXoJFEENWU0GqMoIt7R6BhNCoUrOCai+IDmKvgoHlJR5Cly5aXS3KFv nd85t36n9xr+ca3PWtW7vtp31zn7nKpBV/zbuKtqcrlcQ20u1/bwf1+646Ru h//jDVp//ovlcnlZ34vqt5TLQ7zPk/t+EjptNJ/o1HXxw8FezzO/nef4NZov +Kr2tNAZ5J3zuys2R0Fbzd//ZYdXo+BY74bdK07yw3aaT6ic5xjvifNGTIuj Ws23vNZuUhz18YpPPvhyELfX/IbLa54P4p5em1zLv3rND5Vb/nXzhv90ytjQ 6aD5HY82XxA6R3sT/7xyjuMfofkJN+9z/fAo7+5Oo9+LgiM1P23R7o0tf++V qx/p0/L/wX+0Z8fMluvfUYmro+avXtHkXh/vc/v1v25hEHfS/JOX55avjze7 DdPf21Eud9b8cNCbn97/1FnwPPmG5x+Kgm8tz+DsGZw9g7NncPYMzp7B2TM4 ewZnz+DsGZw9g7NncPYMzp7B2fPTR3abFcT7LM/g7BmcPYOzZ3D2DM6ewdkz OHsGZ8/g7BmcPYOzZ3D2DM6ewdnzF/NvnOz4JcszOHsGZ8/g7BmcPYOzZ3D2 DM6ewdkzOHsGZ8/g7BmcPYOzZ3D2fFUlz7dbnsHZMzh7BmfP4OwZnD2Ds2dw 9gzOnsHZMzh7BmfP4OwZnD2Dt57PiZDPiZDPiZDPiZDPiZDPiZDPiZDPiZDP iZDPiZDPiZDPiZDPiZDPiZDPieC5KHguCp6Lguei4LkoeC4KnouC56LguSh4 Lgqei4LnouC5KHguCp6Lluec+seewdkzOHsGZ8/g7BmcPYOzZ3D2DM6ewdkz...
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_C - 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