(* 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[      3395,        102]
NotebookOptionsPosition[      3004,         83]
NotebookOutlinePosition[      3343,         98]
CellTagsIndexPosition[      3300,         95]
WindowFrame->Normal
ContainsDynamic->True *)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Example of the Squeeze Theorem", "Title",
 CellChangeTimes->{{3.4306047882588863`*^9, 3.430604792428541*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Abs", "[", "x", "]"}], "^", "exponent"}], " ", 
      RowBox[{"Sin", "[", 
       RowBox[{"1", "/", "x"}], "]"}]}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", ".004"}], ",", ".004"}], "}"}]}], "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"exponent", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4306048398913236`*^9, 3.4306049583153844`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`exponent$$ = 1.986, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`exponent$$], 1, 2}}, Typeset`size$$ = {
    738., {226., 230.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`exponent$3341$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`exponent$$ = 1}, 
      "ControllerVariables" :> {
        Hold[$CellContext`exponent$$, $CellContext`exponent$3341$$, 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[Abs[$CellContext`x]^$CellContext`exponent$$ 
        Sin[1/$CellContext`x], {$CellContext`x, -0.004, 0.004}], 
      "Specifications" :> {{$CellContext`exponent$$, 1, 2}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{786., {270., 275.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.4306048506992254`*^9, 3.430604878256056*^9}, {
  3.430604908407446*^9, 3.430604958794846*^9}}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{924, 684},
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, 115, 1, 83, "Title"],
Cell[CellGroupData[{
Cell[730, 28, 538, 15, 31, "Input"],
Cell[1271, 45, 1705, 34, 562, "Output"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)