(* 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[     11931,        361]
NotebookOptionsPosition[     11552,        345]
NotebookOutlinePosition[     11899,        360]
CellTagsIndexPosition[     11856,        357]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"Needs", "[", "\"\<VectorAnalysis`\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", "\"\< #39 \>\"", "\n", 
 RowBox[{"Grad", "[", "  ", 
  RowBox[{
   RowBox[{"y", " ", 
    RowBox[{"Log", "[", 
     RowBox[{"x", "+", "y", "+", "z"}], "]"}]}], ",", 
   RowBox[{"Cartesian", "[", 
    RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "]"}], "\n", 
 RowBox[{"D", "[", " ", 
  RowBox[{
   RowBox[{"y", " ", 
    RowBox[{"Log", "[", 
     RowBox[{"x", "+", "y", "+", "z"}], "]"}]}], " ", ",", 
   RowBox[{"{", " ", 
    RowBox[{"{", 
     RowBox[{"x", ",", "y", ",", "z"}], "}"}], "}"}]}], " ", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  SubscriptBox["\[PartialD]", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{"x", ",", "y", ",", "z"}], "}"}], "}"}]], 
  RowBox[{"(", 
   RowBox[{"y", " ", 
    RowBox[{"Log", "[", 
     RowBox[{"x", "+", "y", "+", "z"}], "]"}]}], ")"}]}], "\n", 
 RowBox[{"%", "/.", "\[InvisibleSpace]", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"x", "\[Rule]", 
     RowBox[{"-", "3"}]}], ",", 
    RowBox[{"y", "\[Rule]", "4"}], ",", 
    RowBox[{"z", "\[Rule]", "0"}]}], "}"}]}]}], "Input",
 CellChangeTimes->{{3.47015680084375*^9, 3.4701568026875*^9}, {
  3.470175254140625*^9, 3.470175255921875*^9}, {3.470175296625*^9, 
  3.470175313578125*^9}}],

Cell[BoxData[{"\"\< #42 \>\"", "\[IndentingNewLine]", 
 RowBox[{
  SubscriptBox["\[PartialD]", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{"x", ",", "y"}], "}"}], "}"}]], 
  FractionBox["y", 
   SuperscriptBox["x", "2"]]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"{", 
   RowBox[{"a", ",", "b"}], "}"}], "=", 
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"x", ",", "y"}], "}"}], "}"}]], 
    FractionBox["y", 
     SuperscriptBox["x", "2"]]}], "/.", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      RowBox[{"-", "2"}]}], ",", 
     RowBox[{"y", "\[Rule]", "2"}]}], "}"}]}]}], "\n", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"Graphics", "[", 
    RowBox[{"{", 
     RowBox[{"Black", ",", 
      RowBox[{"PointSize", "[", "0.15", "]"}], ",", 
      RowBox[{"Point", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2"}], ",", "2"}], "}"}], "]"}]}], "}"}], "]"}], ",", 
   RowBox[{"ContourPlot", "[", 
    RowBox[{
     FractionBox["y", 
      SuperscriptBox["x", "2"]], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"y", ",", 
       RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     FractionBox[
      SuperscriptBox["x", "2"], "2"], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "3"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Black"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Graphics", "[", " ", 
    RowBox[{"{", 
     RowBox[{"Red", ",", 
      RowBox[{"Arrow", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2"}], ",", "2"}], "}"}], "+", "   ", 
          RowBox[{"{", 
           RowBox[{"a", ",", "b"}], "}"}]}]}], "  ", "}"}], "]"}]}], "}"}], 
    "]"}], ",", 
   RowBox[{"Graphics", "[", " ", 
    RowBox[{"{", 
     RowBox[{"Green", ",", 
      RowBox[{"Arrow", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2"}], ",", "2"}], "}"}], "+", 
          RowBox[{"{", 
           RowBox[{"1", ",", 
            RowBox[{"-", "2"}]}], "}"}]}]}], "}"}], "]"}]}], "}"}], "]"}], 
   ",", 
   RowBox[{"Epilog", "->", 
    RowBox[{"{", 
     RowBox[{"Black", ",", 
      RowBox[{"PointSize", "[", "0.015", "]"}], ",", 
      RowBox[{"Point", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2"}], ",", "2"}], "}"}], "]"}]}], "}"}]}]}], 
  "]"}], "\n", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ContourPlot", "[", 
    RowBox[{
     FractionBox["y", 
      SuperscriptBox["x", "2"]], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "2.5"}], ",", 
       RowBox[{"-", "1.5"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"y", ",", "0", ",", "3"}], "}"}], ",", 
     RowBox[{"Contours", "\[Rule]", "20"}]}], "]"}], ",", 
   RowBox[{"Graphics", "[", " ", 
    RowBox[{"{", 
     RowBox[{"Red", ",", 
      RowBox[{"Arrow", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2"}], ",", "2"}], "}"}], "+", "   ", 
          RowBox[{"0.2", 
           RowBox[{"{", 
            RowBox[{"a", ",", "b"}], "}"}]}]}]}], "  ", "}"}], "]"}]}], "}"}],
     "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     FractionBox[
      SuperscriptBox["x", "2"], "2"], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "2.5"}], ",", 
       RowBox[{"-", "1.5"}]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Black"}]}], "]"}], ",", 
   RowBox[{"Graphics", "[", " ", 
    RowBox[{"{", 
     RowBox[{"Green", ",", 
      RowBox[{"Arrow", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2"}], ",", "2"}], "}"}], "+", 
          RowBox[{"0.3", 
           RowBox[{"{", 
            RowBox[{"1", ",", 
             RowBox[{"-", "2"}]}], "}"}]}]}]}], "}"}], "]"}]}], "}"}], "]"}], 
   ",", "\[IndentingNewLine]", 
   RowBox[{"VectorPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{"2", " ", "y"}], 
         SuperscriptBox["x", "3"]]}], ",", 
       FractionBox["1", 
        SuperscriptBox["x", "2"]]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "2.5"}], ",", 
       RowBox[{"-", "1.5"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"y", ",", "0", ",", "3"}], "}"}], ",", 
     RowBox[{"VectorPoints", "\[Rule]", "15"}], ",", 
     RowBox[{"VectorStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Arrowheads", "[", "0.02", "]"}], ",", "Red"}], "}"}]}]}], 
    "]"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "400"}], ",", 
   RowBox[{"Epilog", "->", 
    RowBox[{"{", 
     RowBox[{"Black", ",", 
      RowBox[{"PointSize", "[", "0.02", "]"}], ",", 
      RowBox[{"Point", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2"}], ",", "2"}], "}"}], "]"}]}], "}"}]}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.470156710765625*^9, 3.4701567823125*^9}, {
   3.4701754215625*^9, 3.4701754258125*^9}, 3.470175457265625*^9, {
   3.47017559590625*^9, 3.470175597640625*^9}, {3.47017589375*^9, 
   3.470175970515625*^9}, {3.4701760268125*^9, 3.47017607128125*^9}, {
   3.4701761068125*^9, 3.470176117578125*^9}, 3.4701763428125*^9, {
   3.470176521796875*^9, 3.47017655478125*^9}, {3.470176595296875*^9, 
   3.4701766368125*^9}, {3.470176671890625*^9, 3.470176728921875*^9}, 
   3.47017679534375*^9, {3.470176829640625*^9, 3.47017683653125*^9}, {
   3.472139972921875*^9, 3.472140033171875*^9}, {3.47214007603125*^9, 
   3.472140083390625*^9}, 3.472140142265625*^9, {3.4723169904787483`*^9, 
   3.4723170228693733`*^9}, {3.4723170825724983`*^9, 
   3.4723171606193733`*^9}, {3.4723172298224983`*^9, 
   3.4723172502599983`*^9}, {3.4723173037131233`*^9, 
   3.4723173060412483`*^9}, {3.4723173379943733`*^9, 
   3.4723173652599983`*^9}, {3.4723174230256233`*^9, 
   3.4723174296193733`*^9}, {3.4723174668381233`*^9, 
   3.4723174773381233`*^9}, {3.4723176521818733`*^9, 
   3.4723176878537483`*^9}, {3.4723177553068733`*^9, 
   3.4723177793849983`*^9}, {3.4723178438068733`*^9, 
   3.4723178562756233`*^9}, {3.4723178993224983`*^9, 
   3.4723179570099983`*^9}, {3.4723180160568733`*^9, 
   3.4723180843224983`*^9}, {3.4723181467443733`*^9, 
   3.4723182318537483`*^9}, {3.4723183474943733`*^9, 
   3.4723183914474983`*^9}, {3.4723184673537483`*^9, 
   3.4723185111193733`*^9}, {3.4723185417287483`*^9, 
   3.4723185577756233`*^9}, {3.4723209841974983`*^9, 
   3.4723210355568733`*^9}, {3.4723210853693733`*^9, 
   3.4723211230568733`*^9}, {3.4723212044474983`*^9, 
   3.4723212076193733`*^9}, {3.4723212578381233`*^9, 3.4723214079318733`*^9}, 
   3.4723222523068733`*^9}],

Cell[BoxData[{
 RowBox[{"\"\< #76  c)\>\"", ";"}], "\[IndentingNewLine]", 
 RowBox[{"D", "[", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"f", "[", 
     RowBox[{"x", ",", "y", ",", "z"}], "]"}], "*", 
    RowBox[{"g", "[", 
     RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], " ", ",", 
   RowBox[{"{", " ", 
    RowBox[{"{", 
     RowBox[{"x", ",", "y", ",", "z"}], "}"}], "}"}]}], " ", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{" ", 
  RowBox[{
   RowBox[{
    RowBox[{"f", "[", 
     RowBox[{"x", ",", "y", ",", "z"}], "]"}], 
    RowBox[{"D", "[", " ", 
     RowBox[{
      RowBox[{"g", "[", 
       RowBox[{"x", ",", "y", ",", "z"}], "]"}], " ", ",", 
      RowBox[{"{", " ", 
       RowBox[{"{", 
        RowBox[{"x", ",", "y", ",", "z"}], "}"}], "}"}]}], " ", "]"}]}], "+", 
   RowBox[{
    RowBox[{"g", "[", 
     RowBox[{"x", ",", "y", ",", "z"}], "]"}], " ", 
    RowBox[{"D", "[", "  ", 
     RowBox[{
      RowBox[{"f", "[", 
       RowBox[{"x", ",", "y", ",", "z"}], "]"}], ",", 
      RowBox[{"{", " ", 
       RowBox[{"{", 
        RowBox[{"x", ",", "y", ",", "z"}], "}"}], "}"}]}], " ", 
     "]"}]}]}]}]}], "Input",
 CellChangeTimes->{{3.470156790578125*^9, 3.470156792125*^9}, {
  3.470180690265625*^9, 3.470180746546875*^9}, {3.47018084628125*^9, 
  3.470180858125*^9}}],

Cell[BoxData[{
 RowBox[{"\"\< #76  e)\>\"", ";"}], "\n", 
 RowBox[{"Grad", "[", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"f", "[", 
     RowBox[{"x", ",", "y", ",", "z"}], "]"}], "n"], ",", 
   RowBox[{"Cartesian", "[", 
    RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"n", "*", 
  SuperscriptBox[
   RowBox[{"f", "[", 
    RowBox[{"x", ",", "y", ",", "z"}], "]"}], 
   RowBox[{"n", "-", "1"}]], 
  RowBox[{"Grad", "[", 
   RowBox[{
    RowBox[{"f", "[", 
     RowBox[{"x", ",", "y", ",", "z"}], "]"}], ",", 
    RowBox[{"Cartesian", "[", 
     RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.47018076709375*^9, 3.4701808675625*^9}}]
},
WindowSize->{1050, 859},
WindowMargins->{{18, Automatic}, {-41, Automatic}},
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 1299, 38, 132, "Input"],
Cell[1847, 60, 7696, 221, 358, "Input"],
Cell[9546, 283, 1286, 38, 72, "Input"],
Cell[10835, 323, 713, 20, 75, "Input"]
}
]
*)

(* End of internal cache information *)