Lab2B,Ex4 - (* Content-type: application/mathematica *) (*...

Info iconThis preview shows pages 1–4. 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[ 221515, 3728] NotebookOptionsPosition[ 220793, 3701] NotebookOutlinePosition[ 221136, 3716] CellTagsIndexPosition[ 221093, 3713] WindowFrame->Normal ContainsDynamic->False*) C (* Beginning of Notebook Content *) Notebook[{ N Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Needs", "[", "\"\<VectorAnalysis`\>\"", "]"}], "\[IndentingNewLine]", RowBox[{"SetCoordinates", "[", RowBox[{"Cartesian", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "y_"}], "]"}], " ", "=", " ", FormBox[ RowBox[{ RowBox[{"Exp", "(", RowBox[{ RowBox[{"-", RowBox[{"x", "^", "2"}]}], "-", RowBox[{"y", "^", "2"}]}], ")"}], "*", "x"}], TraditionalForm]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{"z", "-", RowBox[{"f", "[", RowBox[{"x", ",", "y"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"gradg", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{"Grad", "[", RowBox[{"g", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"gradg", "[", RowBox[{"0", ",", "0", ",", "0"}], "]"}]}], "Input"], Cell[BoxData[ RowBox[{"Cartesian", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}]], "Output",
Background image of page 1

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

View Full DocumentRight Arrow Icon
CellChangeTimes->{3.44493568227279*^9}], Cell[BoxData[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", SuperscriptBox["x", "2"]}], "-", SuperscriptBox["y", "2"]}]], " ", "x"}]], "Output", CellChangeTimes->{3.4449356822777896`*^9}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", SuperscriptBox["x", "2"]}], "-", SuperscriptBox["y", "2"]}]]}], " ", "x"}], "+", "z"}]], "Output", CellChangeTimes->{3.4449356822807894`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", SuperscriptBox["x", "2"]}], "-", SuperscriptBox["y", "2"]}]]}], "+", RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", SuperscriptBox["x", "2"]}], "-", SuperscriptBox["y", "2"]}]], " ", SuperscriptBox["x", "2"]}]}], ",", RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", SuperscriptBox["x", "2"]}], "-", SuperscriptBox["y", "2"]}]], " ", "x", " ", "y"}], ",", "1"}], "}"}]], "Output", CellChangeTimes->{3.4449356822837896`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "1"}], "}"}]], "Output", CellChangeTimes->{3.44493568228679*^9}] }, Open ]], } Cell[CellGroupData[{ C Cell[BoxData[{ RowBox[{"Grad", "[", "x", "]"}], "\[IndentingNewLine]",
Background image of page 2
RowBox[{ RowBox[{"g", "[", RowBox[{"x_", ",", "y_"}], "]"}], "=", FormBox[ RowBox[{ RowBox[{"Exp", "(", RowBox[{ RowBox[{"-",
Background image of page 3

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

View Full DocumentRight Arrow Icon
Image of page 4
This is the end of the preview. Sign up to access the rest of the 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 / 64

Lab2B,Ex4 - (* Content-type: application/mathematica *) (*...

This preview shows document pages 1 - 4. Sign up to view the full document.

View Full Document Right Arrow Icon
Ask a homework question - tutors are online