Lab2C,Ex1,3 - (* 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[ 10517, 372] NotebookOptionsPosition[ 9548, 336] NotebookOutlinePosition[ 9889, 351] CellTagsIndexPosition[ 9846, 348] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{"Problem", " ", "1"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.444067043619164*^9, 3.444067043794014*^9}, 3.444067079870432*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{"6000", "/", RowBox[{"(", RowBox[{"1", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "^", "2"}], "+", RowBox[{"y", "^", "2"}], "+", RowBox[{"z", "^", "2"}]}], ")"}], "/", "5"}]}], ")"}]}]}]], "Input"], Cell[BoxData[ FractionBox["6000", RowBox[{"1", "+", RowBox[{ FractionBox["1", "5"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"], "+", SuperscriptBox["z", "2"]}], ")"}]}]}]]], "Output", CellChangeTimes->{3.44406661867075*^9}] }, Open ]], Cell[CellGroupData[{
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[ RowBox[{"u", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", RowBox[{"-", "3"}], ",", "5"}], "}"}], "/", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"-", "4"}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{"-", "3"}], ")"}], "^", "2"}], "+", RowBox[{"5", "^", "2"}]}], "]"}]}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", SqrtBox["2"]}], "5"]}], ",", RowBox[{"-", FractionBox["3", RowBox[{"5", " ", SqrtBox["2"]}]]}], ",", FractionBox["1", SqrtBox["2"]]}], "}"}]], "Output", CellChangeTimes->{3.444066624541937*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Needs", "[", "\"\<VectorAnalysis`\>\"", "]"}], "\[IndentingNewLine]", RowBox[{"SetCoordinates", "[", RowBox[{"Cartesian", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"gradf", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{"Grad", "[",
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 / 7

Lab2C,Ex1,3 - (* 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