(* 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[      8996,        244]
NotebookOptionsPosition[      8413,        219]
NotebookOutlinePosition[      8752,        234]
CellTagsIndexPosition[      8709,        231]
WindowFrame->Normal
ContainsDynamic->True *)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Zooming in on 1 D and 2 D Plots", "Subtitle",
 CellChangeTimes->{{3.4327680511137114`*^9, 3.4327680567881527`*^9}}],

Cell[BoxData[
 StyleBox[
  RowBox[{"1", "D", " ", "Plots"}], "Subsubtitle"]], "Input",
 CellChangeTimes->{{3.4327680698918066`*^9, 3.4327680717373915`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "x_", "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"x", "^", "3"}], " ", 
     RowBox[{"Cos", "[", 
      RowBox[{"4", 
       RowBox[{"x", "^", "2"}]}], "]"}]}], " ", "+", " ", 
    RowBox[{"Exp", "[", "x", "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"f", "[", "x", "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"center", "-", 
        RowBox[{"width", "/", "2"}]}], ",", 
       RowBox[{"center", "+", 
        RowBox[{"width", "/", "2"}]}]}], "}"}]}], "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"center", ",", 
     RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"width", ",", "1", ",", ".01"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.432768082085362*^9, 3.4327681722446303`*^9}, {
   3.43276821163957*^9, 3.43276821490108*^9}, {3.432768247392164*^9, 
   3.432768264419395*^9}, {3.432768305514421*^9, 3.432768328870348*^9}, 
   3.432768376066546*^9}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`center$$ = -8.05, $CellContext`width$$ = 
    0.012, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`center$$], -10, 10}, {
      Hold[$CellContext`width$$], 1, 0.01}}, Typeset`size$$ = {
    360., {101., 106.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`center$3643$$ = 
    0, $CellContext`width$3644$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`center$$ = -10, $CellContext`width$$ = 1}, 
      "ControllerVariables" :> {
        Hold[$CellContext`center$$, $CellContext`center$3643$$, 0], 
        Hold[$CellContext`width$$, $CellContext`width$3644$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Plot[
        $CellContext`f[$CellContext`x], {$CellContext`x, \
$CellContext`center$$ - $CellContext`width$$/
         2, $CellContext`center$$ + $CellContext`width$$/2}], 
      "Specifications" :> {{$CellContext`center$$, -10, 
         10}, {$CellContext`width$$, 1, 0.01}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{408., {159., 164.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.4327681742191133`*^9, 3.432768215863909*^9, {3.4327682481313753`*^9, 
   3.4327682650394726`*^9}, {3.432768306235078*^9, 3.4327683789989758`*^9}}]
}, Open  ]],

Cell[BoxData[
 StyleBox[
  RowBox[{"2", "D", " ", "Plots"}], "Subsubtitle"]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"g", "[", 
    RowBox[{"x_", ",", "y_"}], "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"x", "^", "3"}], " ", 
     RowBox[{"y", "^", "2"}]}], " ", "+", " ", 
    RowBox[{"4", " ", "x", " ", "y"}], " ", "-", " ", 
    RowBox[{"15", " ", 
     RowBox[{"Cos", "[", 
      RowBox[{"4", " ", 
       RowBox[{"x", "^", "2"}], " ", "y"}], "]"}], " ", 
     RowBox[{"Sin", "[", 
      RowBox[{"5", " ", "x", " ", "y"}], "]"}]}], " ", "+", " ", 
    RowBox[{"4", " ", 
     RowBox[{"Exp", "[", 
      RowBox[{"-", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"x", "^", "2"}], "+", 
         RowBox[{"y", "^", "2"}]}], ")"}]}], "]"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot3D", "[", 
    RowBox[{
     RowBox[{"g", "[", 
      RowBox[{"x", ",", "y"}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"xcenter", "-", 
        RowBox[{"width", "/", "2"}]}], ",", 
       RowBox[{"xcenter", "+", 
        RowBox[{"width", "/", "2"}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"y", ",", 
       RowBox[{"ycenter", "-", 
        RowBox[{"width", "/", "2"}]}], ",", 
       RowBox[{"ycenter", "+", 
        RowBox[{"width", "/", "2"}]}]}], "}"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"xcenter", ",", 
     RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"ycenter", ",", 
     RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"width", ",", "1", ",", ".001"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.432768414831643*^9, 3.4327686161400476`*^9}, {
  3.4327686581939964`*^9, 3.4327686613480916`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`width$$ = 
    0.003, $CellContext`xcenter$$ = -2.67, $CellContext`ycenter$$ = \
-0.6799999999999997, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`xcenter$$], -4, 4}, {
      Hold[$CellContext`ycenter$$], -4, 4}, {
      Hold[$CellContext`width$$], 1, 0.001}}, Typeset`size$$ = {
    360., {134., 139.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`xcenter$4682$$ = 
    0, $CellContext`ycenter$4683$$ = 0, $CellContext`width$4684$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`width$$ = 
        1, $CellContext`xcenter$$ = -4, $CellContext`ycenter$$ = -4}, 
      "ControllerVariables" :> {
        Hold[$CellContext`xcenter$$, $CellContext`xcenter$4682$$, 0], 
        Hold[$CellContext`ycenter$$, $CellContext`ycenter$4683$$, 0], 
        Hold[$CellContext`width$$, $CellContext`width$4684$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Plot3D[
        $CellContext`g[$CellContext`x, $CellContext`y], {$CellContext`x, \
$CellContext`xcenter$$ - $CellContext`width$$/
         2, $CellContext`xcenter$$ + $CellContext`width$$/
          2}, {$CellContext`y, $CellContext`ycenter$$ - $CellContext`width$$/
         2, $CellContext`ycenter$$ + $CellContext`width$$/2}], 
      "Specifications" :> {{$CellContext`xcenter$$, -4, 
         4}, {$CellContext`ycenter$$, -4, 4}, {$CellContext`width$$, 1, 
         0.001}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{408., {205., 210.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.4327684265349956`*^9, 3.4327684309683056`*^9}, {
   3.432768501304624*^9, 3.4327685317040453`*^9}, 3.432768616879258*^9, 
   3.432768663860626*^9}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{692, 549},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"6.0 for Microsoft Windows (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, 121, 1, 49, "Subtitle"],
Cell[714, 26, 156, 3, 34, "Input"],
Cell[CellGroupData[{
Cell[895, 33, 1090, 30, 72, "Input"],
Cell[1988, 65, 2059, 41, 340, "Output"]
}, Open  ]],
Cell[4062, 109, 86, 2, 34, "Input"],
Cell[CellGroupData[{
Cell[4173, 115, 1718, 51, 92, "Input"],
Cell[5894, 168, 2491, 47, 432, "Output"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)