Lab2B,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
(* 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[ 361725, 6045] NotebookOptionsPosition[ 360680, 6007] NotebookOutlinePosition[ 361013, 6022] CellTagsIndexPosition[ 360970, 6019] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"g", "[", RowBox[{"x_", ",", "y_"}], "]"}], " ", "=", " ", RowBox[{ SuperscriptBox["x", "2"], "-", SuperscriptBox["y", "2"]}]}], "\[IndentingNewLine]", RowBox[{"surf", " ", "=", " ", RowBox[{"Plot3D", "[", RowBox[{ RowBox[{"g", "[", RowBox[{"x", ",", "y"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"x", ",", "0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", "0", ",", "3"}], "}"}], ",", " ", RowBox[{"Mesh", "\[Rule]", "False"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\<x\>\"", ",", "\"\<y\>\"", ",", "\"\<z\>\""}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Opacity", "[", "0.9", "]"}]}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.443460759294229*^9, 3.443460900998117*^9}, { 3.443460931636842*^9, 3.443460936299343*^9}, {3.443460983170119*^9, 3.443461002363348*^9}, {3.443461033334301*^9, 3.443461144420086*^9}, 3.443464652190077*^9, {3.443464699603097*^9, 3.443464731077083*^9}, { 3.443464959125721*^9, 3.443464984767209*^9}}], Cell[BoxData[ RowBox[{ SuperscriptBox["x", "2"], "-", SuperscriptBox["y", "2"]}]], "Output", CellChangeTimes->{{3.443464719620593*^9, 3.443464732726042*^9}, { 3.443464963116123*^9, 3.443464986228419*^9}}],
Background image of page 1

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

View Full DocumentRight Arrow Icon
Cell[BoxData[ Graphics3DBox[GraphicsComplex3DBox[CompressedData[" 1:eJxF2HtcTPkfx/FJ6TK6SffSlA42bFhZm0tniN2Z3w/bFr/Cqt0dl7CzMdaK 1WJCtrK2yaq1iemxK2wuYaeLNBNpdyvk1qYRFUPlsoWSCec3Zx6P96f+mUev x3l8z3eec77nFvBFQuTSAQKBwNpCILA0fapjfi/aOSY5rMtq65BL59PDZKce Xqsr9j23Mjjs5+HS8yx67rLJgnuGPWxB2y2OkV6j/okiV91iOMMypa4TiuR6 6isqoiP3K/9kL18ceZqRtlKvVkQ8azbcYFODL9bK9Q+orzzSoc6KamY/zPri gUb+iPoqcdPlHOVD1jRd018n9WVvOdPfv2zcmcvpjPQZ9eNrjuxrNrxgz8Xv 95KqXlA/9HLlpE6FkfUZ+uUhub6H+m7JsFVZUQLxhquTJ6iYV9RtRb9MmVth Kf5nu51OI++jLuZEu3KUNuKJkxtm6zVvqE9qPxmnzBokznh66JZpYtTbb885 zXFOYjjvn9W0tFhew/q0Tv/sgDJfC2f0u2KpbpFonxbO6Ped+1oDpXnkjL5h 9kcbu9UV5Iwe+YHEelf3VXJGX+x5KVqvaSJn9HGBtxoUwgfkjD6qpc+uPuUp OaM7y/IP1AT1O6PbtsdP1WtekTP6ZuUMvdcjjoUzeomHd3m4rN8ZvetlrpOK 6XdGb2sZ27o+tN8Zfd/N2ond6n5ni6aqzbzTrNnXbpqOQ3JGb+yrXtdiqCRn dKHIWrhQVKqFM7pAcLAtImF1OZzRH+RcdmRM48IZ/bvgxzH8cQ5ndPHx+AXd 6hZyRp/yZVpqjKiDnNGz3/n3bnp3Fzmj/3j85KYc5UtyRreVpPrwXnBGTzJO i2WkA8gZ/Y/G8ycUQmtyRi+ojFLGiITkjB5b3HnzZoojOe9L+3iZVHWfXaHN e92paCRn9BCPA7Uq5hY5owsDpuxJDL1JzujXS54cmim7pIUzesRoaZA4RKOF M/rtedW+r+qKyRk99IKHWqK6Qc7o2QeOb02paiVn9B+2WRRJVI/JGZ2VzOid UP+cnNE1LT5ZCqGRnNHn/Wnt26kQkDN6en6aPCzEipzRkzN8xYzUlpzRJ24v yVQX2pPz6cNn7YtM32/Qtn3O+5UPyRm980R2r8mFnNH1Z5bdbjbcJ2f0GpVV mek4JGf0rZn3gxeIGskZ/fEybalbWa0WzugCwZbjEQlbyuGMruypvnPRWEfO
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 / 103

Lab2B,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