(* 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[      4828,        149]
NotebookOptionsPosition[      4405,        129]
NotebookOutlinePosition[      4739,        144]
CellTagsIndexPosition[      4696,        141]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["directional derivative", "Title",
 CellChangeTimes->{{3.454668774931506*^9, 3.4546687771674*^9}, {
  3.454933886789228*^9, 3.4549338912761106`*^9}}],

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"Plot3D", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"x", "^", "2"}], "-", 
        RowBox[{"y", "^", "2"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"y", ",", 
         RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", 
       RowBox[{"AxesLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], ",", 
       RowBox[{"ViewPoint", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"1", ",", "1", ",", "1"}], "}"}]}]}], "]"}], ",", 
     RowBox[{"ContourPlot3D", "[", 
      RowBox[{
       RowBox[{"y", "==", 
        RowBox[{
         RowBox[{"Tan", "[", "T", "]"}], "*", "x"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"y", ",", 
         RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"z", ",", 
         RowBox[{"-", "16"}], ",", "16"}], "}"}]}], "]"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"T", ",", "0", ",", 
     RowBox[{"2", "Pi"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.411302655928485*^9, 3.411302700299361*^9}, {
  3.411303088920348*^9, 3.4113030893102016`*^9}, {3.411303122773354*^9, 
  3.411303165606852*^9}, {3.411304891727116*^9, 3.411304946292255*^9}, {
  3.411306930414281*^9, 3.411306965891601*^9}, {3.411307095967731*^9, 
  3.4113071037083397`*^9}, {3.411307177103366*^9, 3.41130721227699*^9}, {
  3.454758156631497*^9, 3.4547581599485073`*^9}, {3.4548435821667128`*^9, 
  3.454843596430687*^9}, {3.454843700314411*^9, 3.454843867697534*^9}, {
  3.454844024484147*^9, 3.4548441849184723`*^9}, {3.4548442333045473`*^9, 
  3.454844240607534*^9}, {3.454844514531618*^9, 3.4548445175199327`*^9}, {
  3.454844573555769*^9, 3.45484461540549*^9}, {3.454844683893723*^9, 
  3.454844795440461*^9}, {3.454848095526873*^9, 3.4548481105154943`*^9}, {
  3.454933338918476*^9, 3.454933519413376*^9}},
 FontSize->24]
}, Open  ]],

Cell[CellGroupData[{

Cell["Example 1", "Title",
 CellChangeTimes->{{3.454934302059951*^9, 3.454934305657378*^9}}],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"Plot3D", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Cos", "[", "x", "]"}], "*", 
      RowBox[{"Cos", "[", "y", "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", 
       RowBox[{"2", "Pi"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"y", ",", "0", ",", 
       RowBox[{"2", "Pi"}]}], "}"}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], ",", 
     RowBox[{"ViewPoint", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"1", ",", "1", ",", "1"}], "}"}]}]}], "]"}], ",", 
   RowBox[{"ContourPlot3D", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"y", "-", "Pi"}], "\[Equal]", 
      RowBox[{"3", "*", 
       RowBox[{"(", 
        RowBox[{"x", "-", 
         RowBox[{"Pi", "/", "2"}]}], ")"}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", 
       RowBox[{"2", "Pi"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"y", ",", "0", ",", 
       RowBox[{"2", "Pi"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"z", ",", 
       RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.454933933160522*^9, 3.4549339523775873`*^9}, 
   3.454933998506184*^9, {3.454934057476939*^9, 3.454934096430723*^9}, {
   3.454934149751658*^9, 3.454934178597786*^9}},
 FontSize->24]
}, Open  ]]
},
WindowSize->{640, 750},
WindowMargins->{{5, Automatic}, {Automatic, 5}},
FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (June 19, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 154, 2, 76, "Title"],
Cell[747, 27, 2136, 51, 220, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2920, 83, 92, 1, 76, "Title"],
Cell[3015, 86, 1374, 40, 220, "Input"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)