Lab6B_Ex2 - (* Content-type: application/mathematica *)...

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[ 615151, 10426] NotebookOptionsPosition[ 613341, 10364] NotebookOutlinePosition[ 613676, 10379] CellTagsIndexPosition[ 613633, 10376] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{"Exercise", " ", "2"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.435938886226017*^9, 3.435938891516672*^9}}], Cell[BoxData[ RowBox[{"(", "1", ")"}]], "Input", CellChangeTimes->{{3.435938900108837*^9, 3.435938902220696*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "y_"}], "]"}], "=", RowBox[{"{", RowBox[{"x", ",", "y", ",", RowBox[{"Sqrt", "[", RowBox[{"1", "-", RowBox[{ RowBox[{"(", RowBox[{"x", "^", "2"}], ")"}], "/", "9"}], "-", RowBox[{ RowBox[{"(", RowBox[{"y", "^", "2"}], ")"}], "/", "4"}]}], "]"}]}], "}"}]}], "\[IndentingNewLine]", RowBox[{"windshield", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "y"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.435937189041614*^9, 3.4359372716247883`*^9}, { 3.435937358022759*^9, 3.435937408389674*^9}, {3.4359382848783493`*^9, 3.435938447322813*^9}, {3.4359384939454393`*^9, 3.43593855456901*^9}, { 3.4359386353848343`*^9, 3.43593865459794*^9}, {3.435938700212324*^9, 3.43593880070609*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"x", ",", "y", ",", SqrtBox[ RowBox[{"1", "-", FractionBox[ SuperscriptBox["x", "2"], "9"], "-", FractionBox[ SuperscriptBox["y", "2"], "4"]}]]}], "}"}]], "Output", CellChangeTimes->{{3.435938529516666*^9, 3.435938555389358*^9}, { 3.435938761778438*^9, 3.4359388017708178`*^9}, 3.435939248897341*^9, 3.435940074265522*^9}], Cell[BoxData[ Graphics3DBox[GraphicsComplex3DBox[CompressedData[" 1:eJyFnXm8ztX2x8msUoYrGSOpdBMZKlf2Q+RIxsYryhzpFJKEkO6VyngajKmo iAy5nMipfYgIGY7ZMR7zPHMynd/9Pd/1Xs/vWfm+fv7p5WO3vmt/9lprr732 8JRt93qLjjdky5ZtRd5s2XL897+dhswem5zYyJXd0fg/WVlZ/r7V21cU2vOo e+K5emcTks75Tj3/998v+yV9nh5QoWGaaxv9+1HFc3Ucl/VjYrprFf17uuK1 X7m32OXpu1y26J8ltcB3V/18x+C+u123oL0DryXtuwbyFc8m8psG+ij+k+jT Qf4+7cbCAxPTL/i7eh+/fOf2rao/+KenT3w5YO4e1R987M67P5rRfZ/qD77o s4G9+x/br/qD1/uk2J5qHQ+o/uCp0h79wceIfPQHTxJ9Ogf6K15K9PcJBe5I Kp899cSkNzuVb3jG3y04/QXfvNq9W2NrhvYXvL7oSX/BK1dcOL7SxEPaX/CT 71TfVW77Ye0veNtD7eYsq3tE+wt+QtrTX/BKIp/+gj8m+tBf8I2i/6KgvxFw eHgyKidnakfpB3YIP+CfCZ/wAw4P8APe+41x9+5+47DyA/7YmYpn/7c/8AM+ /nCbb14bekz5AX+x/atvfXD4mPIDPk7aww94XZEPP+BviT7wo/qI/vADjv00 CfhRPFn4gbeAzwz103i7yvDjxD7j7SpD7STerjJ8PdE/3q4y/PF//1mxX/3j xq4y/MupxcusanHC2FWG75b0w7H3pp0wdpXhO0n7eLvK8MdEfrxdZSif8XaV oXYYb1cZfrT0F97Ar3QI+InnLc1HJC7F85bmF4u/x/OWpn4Uz1ua2k88b2nK...
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 / 177

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