Lab2A,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[ 571112, 9384] NotebookOptionsPosition[ 570382, 9356] NotebookOutlinePosition[ 570724, 9371] CellTagsIndexPosition[ 570681, 9368] WindowFrame->Normal ContainsDynamic->False*) C (* Beginning of Notebook Content *) Notebook[{ N Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{"g", ",", "x", ",", "y"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g", "[", RowBox[{"x_", ",", "y_"}], "]"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "^", "4"}], " ", "*", RowBox[{"y", "^", "2"}]}], ")"}], "/", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "^", "4"}], "+", RowBox[{"y", "^", "2"}]}], ")"}], "^", "2"}]}]}], "\n", RowBox[{" ", RowBox[{"Plot3D", "[", RowBox[{ RowBox[{"g", "[", RowBox[{"x", ",", "y"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\<X\>\"", ",", "\"\<Y\>\"", ",", "\"\<Z\>\""}], "}"}]}], ",", RowBox[{"PlotPoints", "\[Rule]", "50"}]}], "]"}]}]}], "Input"], Cell[BoxData[ FractionBox[
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[{ SuperscriptBox["x", "4"], " ", SuperscriptBox["y", "2"]}], SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["x", "4"], "+", SuperscriptBox["y", "2"]}], ")"}], "2"]]], "Output", CellChangeTimes->{3.4449371397267895`*^9}], Cell[BoxData[ Graphics3DBox[GraphicsComplex3DBox[CompressedData[" 1:eJxcnWV4VUfXQHF3Lw7F3SVIcJcghQAFikNwDW4pbsESirtLDCmEJEASIiTB pRRvgOAUp0C+F85e+3x3+uc+WUyPzOy97jlzR4r0HdlxQLIkSZI4F06SJPn/ Pis453qSmPgymM9/E7//F+ecsfn8u1t8XygvGRMxpMfZOOdn7T5fbdzvufJZ SUb0+SdXnHN0l2Ex8TmeKc+8so3TkIQY5729bp+ZF/5E+eU5ZTsXbXjOecFA l+OlJyYob+KZ9899paKcB4847RNd+rHyuvdfuH32O+vcfEK1XcNvPlTeqH78 nEKfQ51LTN+5IfOSeOXbU1dK9Tz/aeeUc/Os8q3/j/Kkw9ZNOuAe5PzPkoUL O726r7y466ZNTk+POZ9Z/WXmuy33lD956ex6IsLfeeuGEe7ene4qv50/m1ey EQedk7U+dXNMutvKO7i+rVZ83U7nkO47Io4Mv6l85+zNSV6W3uw83W3B4c/n ryuf6Z+5W2JRL+e6k4dvrV/tqvIDrs1D5l5e7Px5QYdls70vKR/yT96F3fbP cj72R/Wp4Z/PKw++VSv6de5xzk87Vr2YI/Cc8ozxu9/V8e/vPHDMf/vWzz6r vGn3Je7Bazs631t+Zk6xlqft6z/7OMfZpnWcj/XNHexa6LjyPR8/HCjqlt/5 18bt48+7HlIe2WNdA2f35/U9Z99Zczd+lfJmleala9xiXv01s35wZ/i7sha/ 2+jHcZR/6GYdZ7J1XuXrPljnPW1dp/I14dZ1NrfuS/mDbtZ9nbPqQbn/P1Y9 7LbqTflYqbcnVj0rryL1XM5qF+U9pV1GWO2ovKW0o4/V7so9pN3/bfUjTpSX kDhZa8WV8r0SVyesOFQeJXH4txW3ylNI3H6d8yPOld8aasV5QSsvlK+QvHC2 8kh5Jcmj36y8U15O8m6WlafKa0iebrXyWnm05PUZywPKU4oH/rG8oXyqeCOl 5RnlxcUz8rdyvKTxLX56uuZSs6jXtq/4bLm3QuPvHF/Bu9RavShhku0reMHF Z2oNnRWrvoKPTd4n7FqqGPWVHj9+6Fj3rNHqK3jZq0caxflGqK/0urY4V7mY JFx9BR+yaXLAiQJn1Ffw4EPXXP4uE6K+gqdYPuzRpZXH1Vd63lNVW2esfFh9 Bf8n5Pxipx4+6it4lmyDh1zuvVt9Be/ebGneihO3qK/gzy8dc3n7wVt9BU+f 5P6sYo2Wqa/gdXY0/Vaqgof6Cn7rTOC5BhfHq6/gxz/UTGw1baD6Cv5r9+7z fGp2Vl/BcwyZtCrL9nrqK/iR/rvO17lfUH0Fv13Jf/+I5K/UV/AL78oubN9u
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 / 160

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