(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[    173219,       3762]
NotebookOptionsPosition[     89294,       2023]
NotebookOutlinePosition[    170925,       3675]
CellTagsIndexPosition[    170845,       3670]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Elemi transzform\[AAcute]ci\[OAcute]k - Elementary transformations\
\>", "MainTitle",
 Evaluatable->False,
 CellHorizontalScrolling->False,
 CellChangeTimes->{{3.5876600002214966`*^9, 3.587660023028737*^9}, 
   3.587665429258634*^9, {3.5886694241282253`*^9, 3.5886694262030287`*^9}},
 TextAlignment->Center],

Cell[CellGroupData[{

Cell["Eltol\[AAcute]s - Translation", "MainSection",
 CellChangeTimes->{{3.587661239579475*^9, 3.5876612666767225`*^9}}],

Cell[CellGroupData[{

Cell[" f(x)+q: Translation parallel to  the y-axis", "Section",
 Evaluatable->False,
 CellChangeTimes->{{3.4058341226113005`*^9, 3.405834124524051*^9}, {
  3.5876612808103476`*^9, 3.587661290997165*^9}, {3.587661340761253*^9, 
  3.58766134481726*^9}, {3.5886687268798065`*^9, 3.58866879737733*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"DynamicModule", "[", 
    RowBox[{
     RowBox[{"{", "p", "}"}], ",", 
     RowBox[{
      RowBox[{"p", "=", 
       RowBox[{"{", 
        RowBox[{"0", ",", "q"}], "}"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{"Evaluate", "[", 
         RowBox[{"{", 
          RowBox[{"expr", ",", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"expr", "/.", 
              RowBox[{"{", 
               RowBox[{"x", "->", 
                RowBox[{"(", 
                 RowBox[{"x", "-", 
                  RowBox[{"p", "[", 
                   RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}], "}"}]}], ")"}], 
            "+", 
            RowBox[{"p", "[", 
             RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", 
          RowBox[{"-", "rx"}], ",", "rx"}], "}"}], ",", 
        RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "rx"}], ",", "rx"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "ry"}], ",", "ry"}], "}"}]}], "}"}]}], ",", 
        RowBox[{"PlotLabel", "\[Rule]", 
         RowBox[{"TraditionalForm", "[", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"expr", "/.", 
             RowBox[{"{", 
              RowBox[{"x", "->", 
               RowBox[{"(", 
                RowBox[{"x", "-", 
                 RowBox[{"p", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}], "}"}]}], ")"}], 
           "+", 
           RowBox[{"p", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"PlotStyle", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"Blue", ",", "Thick"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"Red", ",", "Thick"}], "}"}]}], "}"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Prolog", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Text", "[", 
            RowBox[{
             RowBox[{"Style", "[", 
              RowBox[{
               RowBox[{"N", "[", 
                RowBox[{"p", ",", "2"}], "]"}], ",", "Medium", ",", "Red", 
               ",", "Bold"}], "]"}], ",", 
             RowBox[{"p", "+", 
              RowBox[{"{", 
               RowBox[{"0", ",", 
                RowBox[{"ry", "/", "10"}]}], "}"}]}]}], "]"}], ",", 
           RowBox[{"Opacity", "[", "0.5", "]"}], ",", 
           RowBox[{"Arrow", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"0", ",", "0"}], "}"}], ",", "p"}], "}"}], "]"}], ",", 
           RowBox[{"Line", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"-", "rx"}], ",", 
                  RowBox[{"p", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"rx", ",", 
                  RowBox[{"p", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"p", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], ",", 
                  RowBox[{"-", "ry"}]}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"p", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], ",", "ry"}], "}"}]}], 
               "}"}]}], "}"}], "]"}]}], "}"}]}]}], "]"}]}]}], 
    "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"Style", "[", 
    RowBox[{"\"\<Plot f(x)+q \\n\>\"", ",", "Bold"}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"expr", ",", 
       RowBox[{"x", "^", "2"}], ",", "\"\<f(x):\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"x", "^", "2"}], ",", 
       RowBox[{"x", "^", "3"}], ",", 
       RowBox[{"E", "^", "x"}], ",", 
       RowBox[{"Log", "[", "x", "]"}], ",", 
       RowBox[{"Sin", "[", "x", "]"}], ",", 
       RowBox[{"Tan", "[", "x", "]"}]}], "}"}], ",", "SetterBar"}], "}"}], 
   ",", "Delimiter", ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"q", ",", "0"}], "}"}], ",", 
     RowBox[{"-", "ry"}], ",", "ry", ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   "Delimiter", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"rx", ",", "1", ",", "\"\<x-range\>\""}], "}"}], ",", "1", ",", 
     "10", ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"ry", ",", "1", ",", "\"\<y-range\>\""}], "}"}], ",", "1", ",", 
     "10", ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   RowBox[{"ControlPlacement", "\[Rule]", "Left"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4058329138632064`*^9, 3.405833120450264*^9}, {
   3.405833151795336*^9, 3.405833190891554*^9}, {3.405833312195981*^9, 
   3.4058333223906403`*^9}, {3.405833358322307*^9, 3.4058333595640926`*^9}, {
   3.4058341377731023`*^9, 3.4058342530388465`*^9}, {3.405834289541334*^9, 
   3.4058343801716547`*^9}, {3.4058344427316113`*^9, 3.405834663599203*^9}, {
   3.40583469811884*^9, 3.405834740489766*^9}, {3.405834795959528*^9, 
   3.4058347972013135`*^9}, {3.40583484032332*^9, 3.405834877596917*^9}, {
   3.405834930472949*^9, 3.405834938935117*^9}, {3.4300153917237635`*^9, 
   3.4300153924848576`*^9}, {3.4300154728804607`*^9, 
   3.4300155557696495`*^9}, {3.430015591100453*^9, 3.430015654401475*^9}, {
   3.4300156954104433`*^9, 3.4300157599632654`*^9}, {3.430015797977928*^9, 
   3.430015800771946*^9}, {3.4300158419511585`*^9, 3.430015844895392*^9}, {
   3.4300158874365635`*^9, 3.4300158938257504`*^9}, {3.430015927313904*^9, 
   3.4300159345643296`*^9}, {3.4300159775160913`*^9, 
   3.4300160504509664`*^9}, {3.430016146428976*^9, 3.4300161675994177`*^9}, {
   3.430016222758733*^9, 3.4300162247716274`*^9}, {3.430016255315547*^9, 
   3.430016291257229*^9}, {3.4300163818775344`*^9, 3.4300164099979696`*^9}, {
   3.430016524522648*^9, 3.4300165482367473`*^9}, {3.430016645396456*^9, 
   3.430016668579792*^9}, {3.4300167076860237`*^9, 3.4300167272141037`*^9}, {
   3.4300167982061853`*^9, 3.4300168499606047`*^9}, {3.4300169051299343`*^9, 
   3.4300169223647165`*^9}, {3.4300172301272573`*^9, 3.4300172826027136`*^9}, 
   3.4300173304214735`*^9, {3.4300174115982*^9, 3.43001743763564*^9}, {
   3.430018775909984*^9, 3.430018779284837*^9}, {3.430019399406528*^9, 
   3.430019407347947*^9}, {3.4300645534610543`*^9, 3.430064580810381*^9}, {
   3.430064615960925*^9, 3.430064619125475*^9}, {3.4300648507585473`*^9, 
   3.430064855355157*^9}, {3.4300648854884863`*^9, 3.4300650590280237`*^9}, {
   3.45578743425*^9, 3.455787435296875*^9}, {3.45578748309375*^9, 
   3.455787516375*^9}, {3.4557876186875*^9, 3.455787619953125*^9}, {
   3.456037730734375*^9, 3.456037736453125*^9}, {3.456037825375*^9, 
   3.456037830109375*^9}, {3.587660542675451*^9, 3.5876605628618865`*^9}, {
   3.5876605947639427`*^9, 3.587660602002355*^9}, {3.587660645900832*^9, 
   3.587660646337633*^9}, {3.5876607252737713`*^9, 3.587660758205429*^9}, {
   3.587660830827557*^9, 3.5876608749132347`*^9}, {3.5876610274815025`*^9, 
   3.587661084156402*^9}, {3.5876611209412665`*^9, 3.5876611271188774`*^9}, {
   3.5876614649218707`*^9, 3.587661531081587*^9}, {3.588309797729795*^9, 
   3.5883098172610292`*^9}, {3.588309868117118*^9, 3.5883099408600445`*^9}, {
   3.588309991045332*^9, 3.588309993915737*^9}, {3.588335542693925*^9, 
   3.5883357173651695`*^9}, {3.5883357834352617`*^9, 3.588335923135457*^9}, 
   3.5883359741355286`*^9, {3.588336027255603*^9, 3.5883360463456297`*^9}, {
   3.5883455487065105`*^9, 3.588345589796983*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`expr$$ = $CellContext`x^2, $CellContext`q$$ \
= 0, $CellContext`rx$$ = 1, $CellContext`ry$$ = 1, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[
       Style["Plot f(x)+q \n", Bold]], Manipulate`Dump`ThisIsNotAControl}, {{
       Hold[$CellContext`expr$$], $CellContext`x^2, 
       "f(x):"}, {$CellContext`x, $CellContext`x^2, $CellContext`x^3, 
       E^$CellContext`x, 
       Log[$CellContext`x], 
       Sin[$CellContext`x], 
       Tan[$CellContext`x]}}, {{
       Hold[$CellContext`q$$], 0}, 
      Dynamic[-$CellContext`ry$$], 
      Dynamic[$CellContext`ry$$]}, {{
       Hold[$CellContext`rx$$], 1, "x-range"}, 1, 10}, {{
       Hold[$CellContext`ry$$], 1, "y-range"}, 1, 10}}, Typeset`size$$ = {
    409., {208., 217.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`expr$66613$$ = 
    0, $CellContext`q$66614$$ = 0, $CellContext`rx$66615$$ = 
    0, $CellContext`ry$66616$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`expr$$ = $CellContext`x^2, \
$CellContext`q$$ = 0, $CellContext`rx$$ = 1, $CellContext`ry$$ = 1}, 
      "ControllerVariables" :> {
        Hold[$CellContext`expr$$, $CellContext`expr$66613$$, 0], 
        Hold[$CellContext`q$$, $CellContext`q$66614$$, 0], 
        Hold[$CellContext`rx$$, $CellContext`rx$66615$$, 0], 
        Hold[$CellContext`ry$$, $CellContext`ry$66616$$, 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" :> 
      DynamicModule[{$CellContext`p}, $CellContext`p = {0, $CellContext`q$$}; 
        Plot[
          
          Evaluate[{$CellContext`expr$$, 
            ReplaceAll[$CellContext`expr$$, {$CellContext`x -> $CellContext`x - 
                Part[$CellContext`p, 1]}] + 
            Part[$CellContext`p, 
              2]}], {$CellContext`x, -$CellContext`rx$$, $CellContext`rx$$}, 
          AspectRatio -> Automatic, 
          PlotRange -> {{-$CellContext`rx$$, $CellContext`rx$$}, \
{-$CellContext`ry$$, $CellContext`ry$$}}, PlotLabel -> 
          TraditionalForm[
           ReplaceAll[$CellContext`expr$$, {$CellContext`x -> $CellContext`x - 
                Part[$CellContext`p, 1]}] + Part[$CellContext`p, 2]], 
          PlotStyle -> {{Blue, Thick}, {Red, Thick}}, Prolog -> {
            Text[
             Style[
              N[$CellContext`p, 2], Medium, Red, Bold], $CellContext`p + {
              0, $CellContext`ry$$/10}], 
            Opacity[0.5], 
            Arrow[{{0, 0}, $CellContext`p}], 
            Line[{{{-$CellContext`rx$$, 
                Part[$CellContext`p, 2]}, {$CellContext`rx$$, 
                Part[$CellContext`p, 2]}}, {{
                Part[$CellContext`p, 1], -$CellContext`ry$$}, {
                Part[$CellContext`p, 1], $CellContext`ry$$}}}]}]], 
      "Specifications" :> {
        Style[
        "Plot f(x)+q \n", 
         Bold], {{$CellContext`expr$$, $CellContext`x^2, 
          "f(x):"}, {$CellContext`x, $CellContext`x^2, $CellContext`x^3, 
          E^$CellContext`x, 
          Log[$CellContext`x], 
          Sin[$CellContext`x], 
          Tan[$CellContext`x]}, ControlType -> SetterBar}, 
        Delimiter, {{$CellContext`q$$, 0}, 
         Dynamic[-$CellContext`ry$$], 
         Dynamic[$CellContext`ry$$], Appearance -> "Labeled"}, 
        Delimiter, {{$CellContext`rx$$, 1, "x-range"}, 1, 10, Appearance -> 
         "Labeled"}, {{$CellContext`ry$$, 1, "y-range"}, 1, 10, Appearance -> 
         "Labeled"}}, "Options" :> {ControlPlacement -> Left}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{901., {252., 263.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.455787517921875*^9, 3.455787742546875*^9, 3.455787874796875*^9, {
   3.4557879420625*^9, 3.45578795590625*^9}, 3.4557879896875*^9, 
   3.455788047875*^9, 3.455788248671875*^9, 3.455788363234375*^9, 
   3.45612867634375*^9, 3.545917640716524*^9, 3.5876613829593267`*^9, 
   3.5876614567006564`*^9, 3.587661534310793*^9, 3.588309820599435*^9, 
   3.588309872828326*^9, {3.588309916461602*^9, 3.58830992653922*^9}, 
   3.5883099954913397`*^9, 3.5883100273153954`*^9, {3.5883356091840177`*^9, 
   3.5883356833551216`*^9}, {3.588335793765276*^9, 3.5883358405153418`*^9}, {
   3.5883358816553993`*^9, 3.5883359245354595`*^9}, 3.58833597490553*^9, {
   3.5883360405956216`*^9, 3.5883360490756335`*^9}, {3.5883455665841417`*^9, 
   3.5883455927141876`*^9}}]
}, {2}]],

Cell[CellGroupData[{

Cell["Observations (Prove them!)", "Th-Env",
 CellChangeTimes->{{3.5886689242231507`*^9, 3.5886689567054076`*^9}}],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    RowBox[{"q", ">", "0"}]}], TraditionalForm]]],
 " \t\ttranslation \[OpenCurlyDoubleQuote]upwards\[CloseCurlyDoubleQuote]\n",
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    RowBox[{"q", "<", "0"}]}], TraditionalForm]]],
 "\t\ttranslation \[OpenCurlyDoubleQuote]downwards\[CloseCurlyDoubleQuote]"
}], "Text",
 CellChangeTimes->{{3.5886689592794123`*^9, 3.5886691262847033`*^9}, {
  3.5886692298672853`*^9, 3.5886692920977936`*^9}}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[" f(x-p):  Translation parallel to  the x-axis", "Section",
 Evaluatable->False,
 CellChangeTimes->{{3.4058341226113005`*^9, 3.405834124524051*^9}, {
  3.5876612808103476`*^9, 3.587661290997165*^9}, {3.587661340761253*^9, 
  3.58766134481726*^9}, {3.5876615892852893`*^9, 3.587661592608095*^9}, {
  3.588668806410745*^9, 3.5886688105291524`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"DynamicModule", "[", 
    RowBox[{
     RowBox[{"{", "p", "}"}], ",", 
     RowBox[{
      RowBox[{"p", "=", 
       RowBox[{"{", 
        RowBox[{"q", ",", "0"}], "}"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{"Evaluate", "[", 
         RowBox[{"{", 
          RowBox[{"expr", ",", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"expr", "/.", 
              RowBox[{"{", 
               RowBox[{"x", "->", 
                RowBox[{"(", 
                 RowBox[{"x", "-", 
                  RowBox[{"p", "[", 
                   RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}], "}"}]}], ")"}], 
            "+", 
            RowBox[{"p", "[", 
             RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", 
          RowBox[{"-", "rx"}], ",", "rx"}], "}"}], ",", 
        RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "rx"}], ",", "rx"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "ry"}], ",", "ry"}], "}"}]}], "}"}]}], ",", 
        RowBox[{"PlotLabel", "\[Rule]", 
         RowBox[{"TraditionalForm", "[", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"expr", "/.", 
             RowBox[{"{", 
              RowBox[{"x", "->", 
               RowBox[{"(", 
                RowBox[{"x", "-", 
                 RowBox[{"p", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}], "}"}]}], ")"}], 
           "+", 
           RowBox[{"p", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"PlotStyle", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"Blue", ",", "Thick"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"Red", ",", "Thick"}], "}"}]}], "}"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Prolog", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Text", "[", 
            RowBox[{
             RowBox[{"Style", "[", 
              RowBox[{
               RowBox[{"N", "[", 
                RowBox[{"p", ",", "2"}], "]"}], ",", "Medium", ",", "Red", 
               ",", "Bold"}], "]"}], ",", 
             RowBox[{"p", "+", 
              RowBox[{"{", 
               RowBox[{"0", ",", 
                RowBox[{"ry", "/", "10"}]}], "}"}]}]}], "]"}], ",", 
           RowBox[{"Opacity", "[", "0.5", "]"}], ",", 
           RowBox[{"Arrow", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"0", ",", "0"}], "}"}], ",", "p"}], "}"}], "]"}], ",", 
           RowBox[{"Line", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"-", "rx"}], ",", 
                  RowBox[{"p", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"rx", ",", 
                  RowBox[{"p", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"p", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], ",", 
                  RowBox[{"-", "ry"}]}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"p", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], ",", "ry"}], "}"}]}], 
               "}"}]}], "}"}], "]"}]}], "}"}]}]}], "]"}]}]}], 
    "\[IndentingNewLine]", "]"}], ",", 
   RowBox[{"Style", "[", 
    RowBox[{"\"\<Plot f(x-p) \\n\>\"", ",", "Bold"}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"expr", ",", 
       RowBox[{"x", "^", "2"}], ",", "\"\<f(x)\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"x", "^", "2"}], ",", 
       RowBox[{"x", "^", "3"}], ",", 
       RowBox[{"E", "^", "x"}], ",", 
       RowBox[{"Log", "[", "x", "]"}], ",", 
       RowBox[{"Sin", "[", "x", "]"}], ",", 
       RowBox[{"Tan", "[", "x", "]"}]}], "}"}], ",", "SetterBar"}], "}"}], 
   ",", "\[IndentingNewLine]", "Delimiter", ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"q", ",", "0", ",", "\"\<p\>\""}], "}"}], ",", 
     RowBox[{"-", "ry"}], ",", "ry", ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   "Delimiter", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"rx", ",", "1", ",", "\"\<x-range\>\""}], "}"}], ",", "1", ",", 
     "10", ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"ry", ",", "1", ",", "\"\<y-range\>\""}], "}"}], ",", "1", ",", 
     "10", ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   RowBox[{"ControlPlacement", "\[Rule]", "Left"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4058329138632064`*^9, 3.405833120450264*^9}, {
   3.405833151795336*^9, 3.405833190891554*^9}, {3.405833312195981*^9, 
   3.4058333223906403`*^9}, {3.405833358322307*^9, 3.4058333595640926`*^9}, {
   3.4058341377731023`*^9, 3.4058342530388465`*^9}, {3.405834289541334*^9, 
   3.4058343801716547`*^9}, {3.4058344427316113`*^9, 3.405834663599203*^9}, {
   3.40583469811884*^9, 3.405834740489766*^9}, {3.405834795959528*^9, 
   3.4058347972013135`*^9}, {3.40583484032332*^9, 3.405834877596917*^9}, {
   3.405834930472949*^9, 3.405834938935117*^9}, {3.4300153917237635`*^9, 
   3.4300153924848576`*^9}, {3.4300154728804607`*^9, 
   3.4300155557696495`*^9}, {3.430015591100453*^9, 3.430015654401475*^9}, {
   3.4300156954104433`*^9, 3.4300157599632654`*^9}, {3.430015797977928*^9, 
   3.430015800771946*^9}, {3.4300158419511585`*^9, 3.430015844895392*^9}, {
   3.4300158874365635`*^9, 3.4300158938257504`*^9}, {3.430015927313904*^9, 
   3.4300159345643296`*^9}, {3.4300159775160913`*^9, 
   3.4300160504509664`*^9}, {3.430016146428976*^9, 3.4300161675994177`*^9}, {
   3.430016222758733*^9, 3.4300162247716274`*^9}, {3.430016255315547*^9, 
   3.430016291257229*^9}, {3.4300163818775344`*^9, 3.4300164099979696`*^9}, {
   3.430016524522648*^9, 3.4300165482367473`*^9}, {3.430016645396456*^9, 
   3.430016668579792*^9}, {3.4300167076860237`*^9, 3.4300167272141037`*^9}, {
   3.4300167982061853`*^9, 3.4300168499606047`*^9}, {3.4300169051299343`*^9, 
   3.4300169223647165`*^9}, {3.4300172301272573`*^9, 3.4300172826027136`*^9}, 
   3.4300173304214735`*^9, {3.4300174115982*^9, 3.43001743763564*^9}, {
   3.430018775909984*^9, 3.430018779284837*^9}, {3.430019399406528*^9, 
   3.430019407347947*^9}, {3.4300645534610543`*^9, 3.430064580810381*^9}, {
   3.430064615960925*^9, 3.430064619125475*^9}, {3.4300648507585473`*^9, 
   3.430064855355157*^9}, {3.4300648854884863`*^9, 3.4300650590280237`*^9}, {
   3.45578743425*^9, 3.455787435296875*^9}, {3.45578748309375*^9, 
   3.455787516375*^9}, {3.4557876186875*^9, 3.455787619953125*^9}, {
   3.456037730734375*^9, 3.456037736453125*^9}, {3.456037825375*^9, 
   3.456037830109375*^9}, {3.587660542675451*^9, 3.5876605628618865`*^9}, {
   3.5876605947639427`*^9, 3.587660602002355*^9}, {3.587660645900832*^9, 
   3.587660646337633*^9}, {3.5876607252737713`*^9, 3.587660758205429*^9}, {
   3.587660830827557*^9, 3.5876608749132347`*^9}, {3.5876610274815025`*^9, 
   3.587661084156402*^9}, {3.5876611209412665`*^9, 3.5876611271188774`*^9}, {
   3.5876614649218707`*^9, 3.587661531081587*^9}, {3.5876616106417265`*^9, 
   3.587661621546146*^9}, 3.5883100638038588`*^9, {3.588336077445673*^9, 
   3.5883361911858325`*^9}, {3.5883362267758827`*^9, 3.58833625381592*^9}, {
   3.5883456407373104`*^9, 3.588345647741722*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`expr$$ = $CellContext`x^2, $CellContext`q$$ \
= 0, $CellContext`rx$$ = 1, $CellContext`ry$$ = 1, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[
       Style["Plot f(x-p) \n", Bold]], Manipulate`Dump`ThisIsNotAControl}, {{
       Hold[$CellContext`expr$$], $CellContext`x^2, 
       "f(x)"}, {$CellContext`x, $CellContext`x^2, $CellContext`x^3, 
       E^$CellContext`x, 
       Log[$CellContext`x], 
       Sin[$CellContext`x], 
       Tan[$CellContext`x]}}, {{
       Hold[$CellContext`q$$], 0, "p"}, 
      Dynamic[-$CellContext`ry$$], 
      Dynamic[$CellContext`ry$$]}, {{
       Hold[$CellContext`rx$$], 1, "x-range"}, 1, 10}, {{
       Hold[$CellContext`ry$$], 1, "y-range"}, 1, 10}}, Typeset`size$$ = {
    409., {208., 217.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`expr$66802$$ = 
    0, $CellContext`q$66803$$ = 0, $CellContext`rx$66804$$ = 
    0, $CellContext`ry$66805$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`expr$$ = $CellContext`x^2, \
$CellContext`q$$ = 0, $CellContext`rx$$ = 1, $CellContext`ry$$ = 1}, 
      "ControllerVariables" :> {
        Hold[$CellContext`expr$$, $CellContext`expr$66802$$, 0], 
        Hold[$CellContext`q$$, $CellContext`q$66803$$, 0], 
        Hold[$CellContext`rx$$, $CellContext`rx$66804$$, 0], 
        Hold[$CellContext`ry$$, $CellContext`ry$66805$$, 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" :> 
      DynamicModule[{$CellContext`p}, $CellContext`p = {$CellContext`q$$, 0}; 
        Plot[
          
          Evaluate[{$CellContext`expr$$, 
            ReplaceAll[$CellContext`expr$$, {$CellContext`x -> $CellContext`x - 
                Part[$CellContext`p, 1]}] + 
            Part[$CellContext`p, 
              2]}], {$CellContext`x, -$CellContext`rx$$, $CellContext`rx$$}, 
          AspectRatio -> Automatic, 
          PlotRange -> {{-$CellContext`rx$$, $CellContext`rx$$}, \
{-$CellContext`ry$$, $CellContext`ry$$}}, PlotLabel -> 
          TraditionalForm[
           ReplaceAll[$CellContext`expr$$, {$CellContext`x -> $CellContext`x - 
                Part[$CellContext`p, 1]}] + Part[$CellContext`p, 2]], 
          PlotStyle -> {{Blue, Thick}, {Red, Thick}}, Prolog -> {
            Text[
             Style[
              N[$CellContext`p, 2], Medium, Red, Bold], $CellContext`p + {
              0, $CellContext`ry$$/10}], 
            Opacity[0.5], 
            Arrow[{{0, 0}, $CellContext`p}], 
            Line[{{{-$CellContext`rx$$, 
                Part[$CellContext`p, 2]}, {$CellContext`rx$$, 
                Part[$CellContext`p, 2]}}, {{
                Part[$CellContext`p, 1], -$CellContext`ry$$}, {
                Part[$CellContext`p, 1], $CellContext`ry$$}}}]}]], 
      "Specifications" :> {
        Style[
        "Plot f(x-p) \n", 
         Bold], {{$CellContext`expr$$, $CellContext`x^2, 
          "f(x)"}, {$CellContext`x, $CellContext`x^2, $CellContext`x^3, 
          E^$CellContext`x, 
          Log[$CellContext`x], 
          Sin[$CellContext`x], 
          Tan[$CellContext`x]}, ControlType -> SetterBar}, 
        Delimiter, {{$CellContext`q$$, 0, "p"}, 
         Dynamic[-$CellContext`ry$$], 
         Dynamic[$CellContext`ry$$], Appearance -> "Labeled"}, 
        Delimiter, {{$CellContext`rx$$, 1, "x-range"}, 1, 10, Appearance -> 
         "Labeled"}, {{$CellContext`ry$$, 1, "y-range"}, 1, 10, Appearance -> 
         "Labeled"}}, "Options" :> {ControlPlacement -> Left}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{901., {252., 263.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.455787517921875*^9, 3.455787742546875*^9, 3.455787874796875*^9, {
   3.4557879420625*^9, 3.45578795590625*^9}, 3.4557879896875*^9, 
   3.455788047875*^9, 3.455788248671875*^9, 3.455788363234375*^9, 
   3.45612867634375*^9, 3.545917640716524*^9, 3.5876613829593267`*^9, 
   3.5876614567006564`*^9, 3.587661534310793*^9, 3.58766162379255*^9, {
   3.5883100670330644`*^9, 3.5883100881711016`*^9}, {3.5883361726758065`*^9, 
   3.5883361925858345`*^9}, {3.588336236545896*^9, 3.5883362548059216`*^9}, 
   3.5883456488025246`*^9}]
}, {2}]],

Cell[CellGroupData[{

Cell["Observations (Prove them!)", "Th-Env",
 CellChangeTimes->{{3.5886689242231507`*^9, 3.5886689567054076`*^9}}],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    RowBox[{"p", ">", "0"}]}], TraditionalForm]]],
 " \t\ttranslation \[OpenCurlyDoubleQuote]to right\[CloseCurlyDoubleQuote]\n",
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    RowBox[{"p", "<", "0"}]}], TraditionalForm]]],
 "\t\ttranslation \[OpenCurlyDoubleQuote]to left\[CloseCurlyDoubleQuote]"
}], "Text",
 CellChangeTimes->{{3.5886689592794123`*^9, 3.5886691262847033`*^9}, {
  3.5886692298672853`*^9, 3.588669340243478*^9}}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
General translation: f(x-p)+q:  Translation with the vector (p,q)\
\>", "Section",
 Evaluatable->False,
 CellChangeTimes->{{3.4058341226113005`*^9, 3.405834124524051*^9}, {
  3.5876612808103476`*^9, 3.587661290997165*^9}, {3.588668814273159*^9, 
  3.588668831479989*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"DynamicModule", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"Evaluate", "[", 
        RowBox[{"{", 
         RowBox[{"expr", ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"expr", "/.", 
             RowBox[{"{", 
              RowBox[{"x", "->", 
               RowBox[{"(", 
                RowBox[{"x", "-", 
                 RowBox[{"p", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}], "}"}]}], ")"}], 
           "+", 
           RowBox[{"p", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"-", "rx"}], ",", "rx"}], "}"}], ",", 
       RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "rx"}], ",", "rx"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "ry"}], ",", "ry"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"PlotLabel", "\[Rule]", 
        RowBox[{"TraditionalForm", "[", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"expr", "/.", 
            RowBox[{"{", 
             RowBox[{"x", "->", 
              RowBox[{"(", 
               RowBox[{"x", "-", 
                RowBox[{"p", "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}], "}"}]}], ")"}], 
          "+", 
          RowBox[{"p", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"Blue", ",", "Thick"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Red", ",", "Thick"}], "}"}]}], "}"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Prolog", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Text", "[", 
           RowBox[{
            RowBox[{"Style", "[", 
             RowBox[{
              RowBox[{"N", "[", 
               RowBox[{"p", ",", "2"}], "]"}], ",", "Medium", ",", "Red", ",",
               "Bold"}], "]"}], ",", 
            RowBox[{"p", "+", 
             RowBox[{"{", 
              RowBox[{"0", ",", 
               RowBox[{"ry", "/", "10"}]}], "}"}]}]}], "]"}], ",", 
          RowBox[{"Opacity", "[", "0.5", "]"}], ",", 
          RowBox[{"Arrow", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"0", ",", "0"}], "}"}], ",", "p"}], "}"}], "]"}], ",", 
          RowBox[{"Line", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", "rx"}], ",", 
                 RowBox[{"p", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"rx", ",", 
                 RowBox[{"p", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"p", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], ",", 
                 RowBox[{"-", "ry"}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"p", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], ",", "ry"}], "}"}]}], 
              "}"}]}], "}"}], "]"}]}], "}"}]}]}], "]"}]}], 
    "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"Style", "[", 
    RowBox[{
    "\"\< Plot f(x-p)+q: translation of the graph by the vector {p,q} \
\\n\>\"", ",", "Bold"}], "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"expr", ",", 
       RowBox[{"x", "^", "2"}], ",", "\"\<f(x)\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"x", "^", "2"}], ",", 
       RowBox[{"x", "^", "3"}], ",", 
       RowBox[{"E", "^", "x"}], ",", 
       RowBox[{"Log", "[", "x", "]"}], ",", 
       RowBox[{"Sin", "[", "x", "]"}], ",", 
       RowBox[{"Tan", "[", "x", "]"}]}], "}"}], ",", "SetterBar"}], "}"}], 
   ",", "Delimiter", ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"p", ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0"}], "}"}], ",", "\"\<shift vector\>\""}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "rx"}], ",", 
       RowBox[{"-", "ry"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"rx", ",", "ry"}], "}"}], ",", "Locator"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"rx", ",", "1", ",", "\"\<x-range\>\""}], "}"}], ",", "1", ",", 
     "10", ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"ry", ",", "1", ",", "\"\<y-range\>\""}], "}"}], ",", "1", ",", 
     "10", ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   RowBox[{"ControlPlacement", "\[Rule]", "Left"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4058329138632064`*^9, 3.405833120450264*^9}, {
   3.405833151795336*^9, 3.405833190891554*^9}, {3.405833312195981*^9, 
   3.4058333223906403`*^9}, {3.405833358322307*^9, 3.4058333595640926`*^9}, {
   3.4058341377731023`*^9, 3.4058342530388465`*^9}, {3.405834289541334*^9, 
   3.4058343801716547`*^9}, {3.4058344427316113`*^9, 3.405834663599203*^9}, {
   3.40583469811884*^9, 3.405834740489766*^9}, {3.405834795959528*^9, 
   3.4058347972013135`*^9}, {3.40583484032332*^9, 3.405834877596917*^9}, {
   3.405834930472949*^9, 3.405834938935117*^9}, {3.4300153917237635`*^9, 
   3.4300153924848576`*^9}, {3.4300154728804607`*^9, 
   3.4300155557696495`*^9}, {3.430015591100453*^9, 3.430015654401475*^9}, {
   3.4300156954104433`*^9, 3.4300157599632654`*^9}, {3.430015797977928*^9, 
   3.430015800771946*^9}, {3.4300158419511585`*^9, 3.430015844895392*^9}, {
   3.4300158874365635`*^9, 3.4300158938257504`*^9}, {3.430015927313904*^9, 
   3.4300159345643296`*^9}, {3.4300159775160913`*^9, 
   3.4300160504509664`*^9}, {3.430016146428976*^9, 3.4300161675994177`*^9}, {
   3.430016222758733*^9, 3.4300162247716274`*^9}, {3.430016255315547*^9, 
   3.430016291257229*^9}, {3.4300163818775344`*^9, 3.4300164099979696`*^9}, {
   3.430016524522648*^9, 3.4300165482367473`*^9}, {3.430016645396456*^9, 
   3.430016668579792*^9}, {3.4300167076860237`*^9, 3.4300167272141037`*^9}, {
   3.4300167982061853`*^9, 3.4300168499606047`*^9}, {3.4300169051299343`*^9, 
   3.4300169223647165`*^9}, {3.4300172301272573`*^9, 3.4300172826027136`*^9}, 
   3.4300173304214735`*^9, {3.4300174115982*^9, 3.43001743763564*^9}, {
   3.430018775909984*^9, 3.430018779284837*^9}, {3.430019399406528*^9, 
   3.430019407347947*^9}, {3.4300645534610543`*^9, 3.430064580810381*^9}, {
   3.430064615960925*^9, 3.430064619125475*^9}, {3.4300648507585473`*^9, 
   3.430064855355157*^9}, {3.4300648854884863`*^9, 3.4300650590280237`*^9}, {
   3.45578743425*^9, 3.455787435296875*^9}, {3.45578748309375*^9, 
   3.455787516375*^9}, {3.4557876186875*^9, 3.455787619953125*^9}, {
   3.456037730734375*^9, 3.456037736453125*^9}, {3.456037825375*^9, 
   3.456037830109375*^9}, {3.587660542675451*^9, 3.5876605628618865`*^9}, {
   3.5876605947639427`*^9, 3.587660602002355*^9}, {3.587660645900832*^9, 
   3.587660646337633*^9}, {3.5876607252737713`*^9, 3.587660758205429*^9}, {
   3.587660830827557*^9, 3.5876608749132347`*^9}, {3.5876610274815025`*^9, 
   3.587661084156402*^9}, {3.5876611209412665`*^9, 3.5876611271188774`*^9}, 
   3.58831010469153*^9, {3.588336305706993*^9, 3.588336452937199*^9}, {
   3.5883364866872463`*^9, 3.5883365026172686`*^9}, {3.5883456749949703`*^9, 
   3.588345678208576*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`expr$$ = $CellContext`x^2, $CellContext`p$$ \
= {0, 0}, $CellContext`rx$$ = 1, $CellContext`ry$$ = 1, Typeset`show$$ = True,
     Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[
       Style[
       " Plot f(x-p)+q: translation of the graph by the vector {p,q} \n", 
        Bold]], Manipulate`Dump`ThisIsNotAControl}, {{
       Hold[$CellContext`expr$$], $CellContext`x^2, 
       "f(x)"}, {$CellContext`x, $CellContext`x^2, $CellContext`x^3, 
       E^$CellContext`x, 
       Log[$CellContext`x], 
       Sin[$CellContext`x], 
       Tan[$CellContext`x]}}, {{
       Hold[$CellContext`p$$], {0, 0}, "shift vector"}, 
      Dynamic[{-$CellContext`rx$$, -$CellContext`ry$$}], 
      Dynamic[{$CellContext`rx$$, $CellContext`ry$$}]}, {{
       Hold[$CellContext`rx$$], 1, "x-range"}, 1, 10}, {{
       Hold[$CellContext`ry$$], 1, "y-range"}, 1, 10}}, Typeset`size$$ = {
    479., {243., 252.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`expr$66952$$ = 
    0, $CellContext`p$66953$$ = 0, $CellContext`rx$66954$$ = 
    0, $CellContext`ry$66955$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`expr$$ = $CellContext`x^2, \
$CellContext`p$$ = {0, 0}, $CellContext`rx$$ = 1, $CellContext`ry$$ = 1}, 
      "ControllerVariables" :> {
        Hold[$CellContext`expr$$, $CellContext`expr$66952$$, 0], 
        Hold[$CellContext`p$$, $CellContext`p$66953$$, 0], 
        Hold[$CellContext`rx$$, $CellContext`rx$66954$$, 0], 
        Hold[$CellContext`ry$$, $CellContext`ry$66955$$, 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" :> DynamicModule[{}, 
        Plot[
         Evaluate[{$CellContext`expr$$, 
           ReplaceAll[$CellContext`expr$$, {$CellContext`x -> $CellContext`x - 
               Part[$CellContext`p$$, 1]}] + 
           Part[$CellContext`p$$, 
             2]}], {$CellContext`x, -$CellContext`rx$$, $CellContext`rx$$}, 
         AspectRatio -> Automatic, 
         PlotRange -> {{-$CellContext`rx$$, $CellContext`rx$$}, \
{-$CellContext`ry$$, $CellContext`ry$$}}, PlotLabel -> 
         TraditionalForm[
          ReplaceAll[$CellContext`expr$$, {$CellContext`x -> $CellContext`x - 
               Part[$CellContext`p$$, 1]}] + Part[$CellContext`p$$, 2]], 
         PlotStyle -> {{Blue, Thick}, {Red, Thick}}, Prolog -> {
           Text[
            Style[
             N[$CellContext`p$$, 2], Medium, Red, Bold], $CellContext`p$$ + {
             0, $CellContext`ry$$/10}], 
           Opacity[0.5], 
           Arrow[{{0, 0}, $CellContext`p$$}], 
           Line[{{{-$CellContext`rx$$, 
               Part[$CellContext`p$$, 2]}, {$CellContext`rx$$, 
               Part[$CellContext`p$$, 2]}}, {{
               Part[$CellContext`p$$, 1], -$CellContext`ry$$}, {
               Part[$CellContext`p$$, 1], $CellContext`ry$$}}}]}]], 
      "Specifications" :> {
        Style[
        " Plot f(x-p)+q: translation of the graph by the vector {p,q} \n", 
         Bold], {{$CellContext`expr$$, $CellContext`x^2, 
          "f(x)"}, {$CellContext`x, $CellContext`x^2, $CellContext`x^3, 
          E^$CellContext`x, 
          Log[$CellContext`x], 
          Sin[$CellContext`x], 
          Tan[$CellContext`x]}, ControlType -> SetterBar}, 
        Delimiter, {{$CellContext`p$$, {0, 0}, "shift vector"}, 
         Dynamic[{-$CellContext`rx$$, -$CellContext`ry$$}], 
         Dynamic[{$CellContext`rx$$, $CellContext`ry$$}], ControlType -> 
         Locator}, {{$CellContext`rx$$, 1, "x-range"}, 1, 10, Appearance -> 
         "Labeled"}, {{$CellContext`ry$$, 1, "y-range"}, 1, 10, Appearance -> 
         "Labeled"}}, "Options" :> {ControlPlacement -> Left}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{1053., {291., 302.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.587661054906351*^9, 3.587661085326404*^9, 3.587661128944081*^9, {
   3.588310106563534*^9, 3.588310133879181*^9}, {3.5883364436871862`*^9, 
   3.588336455037202*^9}, {3.5883364923772545`*^9, 3.588336504047271*^9}, 
   3.588336595087398*^9, 3.5883456796125784`*^9}]
}, {2}]]
}, Closed]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],

Cell[CellGroupData[{

Cell["\<\
Ny\[UAcute]jt\[AAcute]s - \[ODoubleDot]sszenyom\[AAcute]s
Stretching - Compressing\
\>", "MainSection",
 CellChangeTimes->{{3.5876618248311033`*^9, 3.5876618677623787`*^9}}],

Cell[CellGroupData[{

Cell[" a f(x): Magnifying the y value", "Section",
 Evaluatable->False,
 CellChangeTimes->{{3.4058355184784594`*^9, 3.4058355220335712`*^9}, {
  3.5876618898520174`*^9, 3.5876618905540185`*^9}, {3.588668841074006*^9, 
  3.5886688712288585`*^9}},
 AnimationDisplayTime->0.815731,
 AnimationCycleOffset->1,
 AnimationCycleRepetitions->Infinity],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"DynamicModule", "[", 
    RowBox[{
     RowBox[{"{", "p", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"p", "=", 
       RowBox[{"{", 
        RowBox[{"q", ",", "0"}], "}"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{"Evaluate", "[", 
         RowBox[{"{", 
          RowBox[{"expr", ",", 
           RowBox[{"Tooltip", "[", 
            RowBox[{"a", " ", "expr"}], "]"}]}], "}"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", 
          RowBox[{"-", "rx"}], ",", "rx"}], "}"}], ",", 
        RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "rx"}], ",", "rx"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "ry"}], ",", "ry"}], "}"}]}], "}"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"PlotStyle", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"Blue", ",", "Thick"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"Red", ",", "Thick"}], "}"}]}], "}"}]}]}], "]"}]}]}], 
    "\[IndentingNewLine]", "]"}], ",", 
   RowBox[{"Style", "[", 
    RowBox[{"\"\<Plot a*f(x) \\n\>\"", ",", "Bold"}], "]"}], ",", 
   "\[IndentingNewLine]", "Delimiter", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"expr", ",", 
       RowBox[{"Sin", "[", "x", "]"}], ",", "\"\<f(x)\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"x", "^", "2"}], ",", 
       RowBox[{"x", "^", "3"}], ",", 
       RowBox[{"E", "^", "x"}], ",", 
       RowBox[{"Log", "[", "x", "]"}], ",", 
       RowBox[{"Sin", "[", "x", "]"}], ",", 
       RowBox[{"Tan", "[", "x", "]"}]}], "}"}], ",", "SetterBar"}], "}"}], 
   ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "0"}], "}"}], ",", 
     RowBox[{"-", "2"}], ",", "2", ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   "Delimiter", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"rx", ",", "7", ",", "\"\<x-range\>\""}], "}"}], ",", "1", ",", 
     "10", ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"ry", ",", "2", ",", "\"\<y-range\>\""}], "}"}], ",", "1", ",", 
     "10", ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   RowBox[{"ControlPlacement", "\[Rule]", "Left"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4058329138632064`*^9, 3.405833120450264*^9}, {
   3.405833151795336*^9, 3.405833190891554*^9}, {3.405833312195981*^9, 
   3.4058333223906403`*^9}, {3.405833358322307*^9, 3.4058333595640926`*^9}, {
   3.4058341377731023`*^9, 3.4058342530388465`*^9}, {3.405834289541334*^9, 
   3.4058343801716547`*^9}, {3.4058344427316113`*^9, 3.405834663599203*^9}, {
   3.40583469811884*^9, 3.405834740489766*^9}, {3.405834795959528*^9, 
   3.4058347972013135`*^9}, {3.40583484032332*^9, 3.405834877596917*^9}, {
   3.405834930472949*^9, 3.405834938935117*^9}, {3.4300153917237635`*^9, 
   3.4300153924848576`*^9}, {3.4300154728804607`*^9, 
   3.4300155557696495`*^9}, {3.430015591100453*^9, 3.430015654401475*^9}, {
   3.4300156954104433`*^9, 3.4300157599632654`*^9}, {3.430015797977928*^9, 
   3.430015800771946*^9}, {3.4300158419511585`*^9, 3.430015844895392*^9}, {
   3.4300158874365635`*^9, 3.4300158938257504`*^9}, {3.430015927313904*^9, 
   3.4300159345643296`*^9}, {3.4300159775160913`*^9, 
   3.4300160504509664`*^9}, {3.430016146428976*^9, 3.4300161675994177`*^9}, {
   3.430016222758733*^9, 3.4300162247716274`*^9}, {3.430016255315547*^9, 
   3.430016291257229*^9}, {3.4300163818775344`*^9, 3.4300164099979696`*^9}, {
   3.430016524522648*^9, 3.4300165482367473`*^9}, {3.430016645396456*^9, 
   3.430016668579792*^9}, {3.4300167076860237`*^9, 3.4300167272141037`*^9}, {
   3.4300167982061853`*^9, 3.4300168499606047`*^9}, {3.4300169051299343`*^9, 
   3.4300169223647165`*^9}, {3.4300172301272573`*^9, 3.4300172826027136`*^9}, 
   3.4300173304214735`*^9, {3.4300174115982*^9, 3.43001743763564*^9}, {
   3.430018775909984*^9, 3.430018779284837*^9}, {3.430019399406528*^9, 
   3.430019407347947*^9}, {3.4300645534610543`*^9, 3.430064580810381*^9}, {
   3.430064615960925*^9, 3.430064619125475*^9}, {3.4300648507585473`*^9, 
   3.430064855355157*^9}, {3.4300648854884863`*^9, 3.4300650590280237`*^9}, {
   3.45578743425*^9, 3.455787435296875*^9}, {3.45578748309375*^9, 
   3.455787516375*^9}, {3.4557876186875*^9, 3.455787619953125*^9}, {
   3.456037730734375*^9, 3.456037736453125*^9}, {3.456037825375*^9, 
   3.456037830109375*^9}, {3.587660542675451*^9, 3.5876605628618865`*^9}, {
   3.5876605947639427`*^9, 3.587660602002355*^9}, {3.587660645900832*^9, 
   3.587660646337633*^9}, {3.5876607252737713`*^9, 3.587660758205429*^9}, {
   3.587660830827557*^9, 3.5876608749132347`*^9}, {3.5876610274815025`*^9, 
   3.587661084156402*^9}, {3.5876611209412665`*^9, 3.5876611271188774`*^9}, {
   3.5876614649218707`*^9, 3.587661531081587*^9}, {3.5876616106417265`*^9, 
   3.587661621546146*^9}, {3.5876618790411983`*^9, 3.5876619442025127`*^9}, {
   3.5876620021722145`*^9, 3.5876620814359536`*^9}, {3.5883101575600224`*^9, 
   3.588310162942032*^9}, {3.5883444145325184`*^9, 3.5883444162173214`*^9}, {
   3.5883444662934093`*^9, 3.5883445402375393`*^9}, {3.588344607192857*^9, 
   3.588344625881689*^9}, {3.5883446669721613`*^9, 3.5883446689065647`*^9}, {
   3.588345695774207*^9, 3.5883457031374197`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a$$ = 0, $CellContext`expr$$ = 
    Sin[$CellContext`x], $CellContext`rx$$ = 7, $CellContext`ry$$ = 2, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{
      Hold[
       Style["Plot a*f(x) \n", Bold]], Manipulate`Dump`ThisIsNotAControl}, {{
       Hold[$CellContext`expr$$], 
       Sin[$CellContext`x], 
       "f(x)"}, {$CellContext`x, $CellContext`x^2, $CellContext`x^3, 
       E^$CellContext`x, 
       Log[$CellContext`x], 
       Sin[$CellContext`x], 
       Tan[$CellContext`x]}}, {{
       Hold[$CellContext`a$$], 0}, -2, 2}, {{
       Hold[$CellContext`rx$$], 7, "x-range"}, 1, 10}, {{
       Hold[$CellContext`ry$$], 2, "y-range"}, 1, 10}}, Typeset`size$$ = {
    409., {62., 72.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`expr$67095$$ = 
    0, $CellContext`a$67096$$ = 0, $CellContext`rx$67097$$ = 
    0, $CellContext`ry$67098$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`a$$ = 0, $CellContext`expr$$ = 
        Sin[$CellContext`x], $CellContext`rx$$ = 7, $CellContext`ry$$ = 2}, 
      "ControllerVariables" :> {
        Hold[$CellContext`expr$$, $CellContext`expr$67095$$, 0], 
        Hold[$CellContext`a$$, $CellContext`a$67096$$, 0], 
        Hold[$CellContext`rx$$, $CellContext`rx$67097$$, 0], 
        Hold[$CellContext`ry$$, $CellContext`ry$67098$$, 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" :> 
      DynamicModule[{$CellContext`p}, $CellContext`p = {$CellContext`q, 0}; 
        Plot[
          Evaluate[{$CellContext`expr$$, 
            
            Tooltip[$CellContext`a$$ $CellContext`expr$$]}], {$CellContext`x, \
-$CellContext`rx$$, $CellContext`rx$$}, AspectRatio -> Automatic, 
          PlotRange -> {{-$CellContext`rx$$, $CellContext`rx$$}, \
{-$CellContext`ry$$, $CellContext`ry$$}}, 
          PlotStyle -> {{Blue, Thick}, {Red, Thick}}]], "Specifications" :> {
        Style["Plot a*f(x) \n", Bold], Delimiter, {{$CellContext`expr$$, 
          Sin[$CellContext`x], 
          "f(x)"}, {$CellContext`x, $CellContext`x^2, $CellContext`x^3, 
          E^$CellContext`x, 
          Log[$CellContext`x], 
          Sin[$CellContext`x], 
          Tan[$CellContext`x]}, ControlType -> 
         SetterBar}, {{$CellContext`a$$, 0}, -2, 2, Appearance -> "Labeled"}, 
        Delimiter, {{$CellContext`rx$$, 7, "x-range"}, 1, 10, Appearance -> 
         "Labeled"}, {{$CellContext`ry$$, 2, "y-range"}, 1, 10, Appearance -> 
         "Labeled"}}, "Options" :> {ControlPlacement -> Left}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{901., {170., 181.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.587662004106618*^9, 3.5876620823407555`*^9}, {
   3.5883101641744337`*^9, 3.588310176326855*^9}, 3.588344542702343*^9, {
   3.588344593152832*^9, 3.5883446696553664`*^9}, 3.588345704900223*^9}]
}, {2}]],

Cell[CellGroupData[{

Cell["Observations (Prove them!)", "Th-Env",
 CellChangeTimes->{{3.5886689242231507`*^9, 3.5886689567054076`*^9}}],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    RowBox[{"a", ">", "1"}]}], TraditionalForm]]],
 " \t\tstretching\n",
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    RowBox[{"0", "<", "a", "<", "1"}]}], TraditionalForm]]],
 "\tcompression\n",
 Cell[BoxData[
  FormBox[
   RowBox[{"a", "=", 
    RowBox[{"-", "1", " "}]}], TraditionalForm]]],
 "\t\treflection (mirroring) to the x-axis"
}], "Text",
 CellChangeTimes->{{3.5886689592794123`*^9, 3.5886691262847033`*^9}}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[" f(c x): magnifying the x value", "Section",
 Evaluatable->False,
 CellChangeTimes->{{3.4058355184784594`*^9, 3.4058355220335712`*^9}, {
  3.5876618898520174`*^9, 3.5876618905540185`*^9}, {3.5876621153660135`*^9, 
  3.5876621187356195`*^9}, {3.5886688939736977`*^9, 3.588668911149328*^9}},
 AnimationDisplayTime->0.815731,
 AnimationCycleOffset->1,
 AnimationCycleRepetitions->Infinity],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"DynamicModule", "[", 
    RowBox[{
     RowBox[{"{", "p", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"p", "=", 
       RowBox[{"{", 
        RowBox[{"q", ",", "0"}], "}"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{"Evaluate", "[", 
         RowBox[{"{", 
          RowBox[{"expr", ",", 
           RowBox[{"Tooltip", "[", 
            RowBox[{"expr", "/.", " ", 
             RowBox[{"(", 
              RowBox[{"x", "\[Rule]", " ", 
               RowBox[{"c", " ", "x"}]}], ")"}]}], "]"}]}], "}"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", 
          RowBox[{"-", "rx"}], ",", "rx"}], "}"}], ",", 
        RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "rx"}], ",", "rx"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "ry"}], ",", "ry"}], "}"}]}], "}"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"PlotStyle", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"Blue", ",", "Thick"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"Red", ",", "Thick"}], "}"}]}], "}"}]}]}], "]"}]}]}], 
    "\[IndentingNewLine]", "]"}], ",", 
   RowBox[{"Style", "[", 
    RowBox[{"\"\<Plot f(c x) \\n\>\"", ",", "Bold"}], "]"}], ",", 
   "\[IndentingNewLine]", "Delimiter", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"expr", ",", 
       RowBox[{"Sin", "[", "x", "]"}], ",", "\"\<f(x)\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"x", "^", "2"}], ",", 
       RowBox[{"x", "^", "3"}], ",", 
       RowBox[{"E", "^", "x"}], ",", 
       RowBox[{"Log", "[", "x", "]"}], ",", 
       RowBox[{"Sin", "[", "x", "]"}], ",", 
       RowBox[{"Tan", "[", "x", "]"}]}], "}"}], ",", "SetterBar"}], "}"}], 
   ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"c", ",", "0"}], "}"}], ",", 
     RowBox[{"-", "2"}], ",", "2", ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   "Delimiter", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"rx", ",", "7", ",", "\"\<x-range\>\""}], "}"}], ",", "1", ",", 
     "10", ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"ry", ",", "2", ",", "\"\<y-range\>\""}], "}"}], ",", "1", ",", 
     "10", ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   RowBox[{"ControlPlacement", "\[Rule]", "Left"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4058329138632064`*^9, 3.405833120450264*^9}, {
   3.405833151795336*^9, 3.405833190891554*^9}, {3.405833312195981*^9, 
   3.4058333223906403`*^9}, {3.405833358322307*^9, 3.4058333595640926`*^9}, {
   3.4058341377731023`*^9, 3.4058342530388465`*^9}, {3.405834289541334*^9, 
   3.4058343801716547`*^9}, {3.4058344427316113`*^9, 3.405834663599203*^9}, {
   3.40583469811884*^9, 3.405834740489766*^9}, {3.405834795959528*^9, 
   3.4058347972013135`*^9}, {3.40583484032332*^9, 3.405834877596917*^9}, {
   3.405834930472949*^9, 3.405834938935117*^9}, {3.4300153917237635`*^9, 
   3.4300153924848576`*^9}, {3.4300154728804607`*^9, 
   3.4300155557696495`*^9}, {3.430015591100453*^9, 3.430015654401475*^9}, {
   3.4300156954104433`*^9, 3.4300157599632654`*^9}, {3.430015797977928*^9, 
   3.430015800771946*^9}, {3.4300158419511585`*^9, 3.430015844895392*^9}, {
   3.4300158874365635`*^9, 3.4300158938257504`*^9}, {3.430015927313904*^9, 
   3.4300159345643296`*^9}, {3.4300159775160913`*^9, 
   3.4300160504509664`*^9}, {3.430016146428976*^9, 3.4300161675994177`*^9}, {
   3.430016222758733*^9, 3.4300162247716274`*^9}, {3.430016255315547*^9, 
   3.430016291257229*^9}, {3.4300163818775344`*^9, 3.4300164099979696`*^9}, {
   3.430016524522648*^9, 3.4300165482367473`*^9}, {3.430016645396456*^9, 
   3.430016668579792*^9}, {3.4300167076860237`*^9, 3.4300167272141037`*^9}, {
   3.4300167982061853`*^9, 3.4300168499606047`*^9}, {3.4300169051299343`*^9, 
   3.4300169223647165`*^9}, {3.4300172301272573`*^9, 3.4300172826027136`*^9}, 
   3.4300173304214735`*^9, {3.4300174115982*^9, 3.43001743763564*^9}, {
   3.430018775909984*^9, 3.430018779284837*^9}, {3.430019399406528*^9, 
   3.430019407347947*^9}, {3.4300645534610543`*^9, 3.430064580810381*^9}, {
   3.430064615960925*^9, 3.430064619125475*^9}, {3.4300648507585473`*^9, 
   3.430064855355157*^9}, {3.4300648854884863`*^9, 3.4300650590280237`*^9}, {
   3.45578743425*^9, 3.455787435296875*^9}, {3.45578748309375*^9, 
   3.455787516375*^9}, {3.4557876186875*^9, 3.455787619953125*^9}, {
   3.456037730734375*^9, 3.456037736453125*^9}, {3.456037825375*^9, 
   3.456037830109375*^9}, {3.587660542675451*^9, 3.5876605628618865`*^9}, {
   3.5876605947639427`*^9, 3.587660602002355*^9}, {3.587660645900832*^9, 
   3.587660646337633*^9}, {3.5876607252737713`*^9, 3.587660758205429*^9}, {
   3.587660830827557*^9, 3.5876608749132347`*^9}, {3.5876610274815025`*^9, 
   3.587661084156402*^9}, {3.5876611209412665`*^9, 3.5876611271188774`*^9}, {
   3.5876614649218707`*^9, 3.587661531081587*^9}, {3.5876616106417265`*^9, 
   3.587661621546146*^9}, {3.5876618790411983`*^9, 3.5876619442025127`*^9}, {
   3.5876620021722145`*^9, 3.5876620814359536`*^9}, {3.5883101575600224`*^9, 
   3.588310162942032*^9}, {3.5883444145325184`*^9, 3.5883444162173214`*^9}, {
   3.5883444662934093`*^9, 3.5883445402375393`*^9}, {3.588344607192857*^9, 
   3.588344625881689*^9}, {3.5883446669721613`*^9, 3.5883446689065647`*^9}, {
   3.588344715784647*^9, 3.588344720683056*^9}, {3.588344754659916*^9, 
   3.588344758216722*^9}, {3.588345721015051*^9, 3.5883457286590643`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`c$$ = 0, $CellContext`expr$$ = 
    Sin[$CellContext`x], $CellContext`rx$$ = 7, $CellContext`ry$$ = 2, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{
      Hold[
       Style["Plot f(c x) \n", Bold]], Manipulate`Dump`ThisIsNotAControl}, {{
       Hold[$CellContext`expr$$], 
       Sin[$CellContext`x], 
       "f(x)"}, {$CellContext`x, $CellContext`x^2, $CellContext`x^3, 
       E^$CellContext`x, 
       Log[$CellContext`x], 
       Sin[$CellContext`x], 
       Tan[$CellContext`x]}}, {{
       Hold[$CellContext`c$$], 0}, -2, 2}, {{
       Hold[$CellContext`rx$$], 7, "x-range"}, 1, 10}, {{
       Hold[$CellContext`ry$$], 2, "y-range"}, 1, 10}}, Typeset`size$$ = {
    409., {62., 72.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`expr$67497$$ = 
    0, $CellContext`c$67498$$ = 0, $CellContext`rx$67499$$ = 
    0, $CellContext`ry$67500$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`c$$ = 0, $CellContext`expr$$ = 
        Sin[$CellContext`x], $CellContext`rx$$ = 7, $CellContext`ry$$ = 2}, 
      "ControllerVariables" :> {
        Hold[$CellContext`expr$$, $CellContext`expr$67497$$, 0], 
        Hold[$CellContext`c$$, $CellContext`c$67498$$, 0], 
        Hold[$CellContext`rx$$, $CellContext`rx$67499$$, 0], 
        Hold[$CellContext`ry$$, $CellContext`ry$67500$$, 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" :> 
      DynamicModule[{$CellContext`p}, $CellContext`p = {$CellContext`q, 0}; 
        Plot[
          Evaluate[{$CellContext`expr$$, 
            Tooltip[
             
             ReplaceAll[$CellContext`expr$$, $CellContext`x -> \
$CellContext`c$$ $CellContext`x]]}], {$CellContext`x, -$CellContext`rx$$, \
$CellContext`rx$$}, AspectRatio -> Automatic, 
          PlotRange -> {{-$CellContext`rx$$, $CellContext`rx$$}, \
{-$CellContext`ry$$, $CellContext`ry$$}}, 
          PlotStyle -> {{Blue, Thick}, {Red, Thick}}]], "Specifications" :> {
        Style["Plot f(c x) \n", Bold], Delimiter, {{$CellContext`expr$$, 
          Sin[$CellContext`x], 
          "f(x)"}, {$CellContext`x, $CellContext`x^2, $CellContext`x^3, 
          E^$CellContext`x, 
          Log[$CellContext`x], 
          Sin[$CellContext`x], 
          Tan[$CellContext`x]}, ControlType -> 
         SetterBar}, {{$CellContext`c$$, 0}, -2, 2, Appearance -> "Labeled"}, 
        Delimiter, {{$CellContext`rx$$, 7, "x-range"}, 1, 10, Appearance -> 
         "Labeled"}, {{$CellContext`ry$$, 2, "y-range"}, 1, 10, Appearance -> 
         "Labeled"}}, "Options" :> {ControlPlacement -> Left}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{901., {170., 181.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.5883447221182585`*^9, 3.588344767249138*^9, {3.5883457311082687`*^9, 
   3.588345745928295*^9}}]
}, {2}]],

Cell[CellGroupData[{

Cell["Observations (Prove them!)", "Th-Env",
 CellChangeTimes->{{3.5886689242231507`*^9, 3.5886689567054076`*^9}}],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    RowBox[{"c", ">", "1"}]}], TraditionalForm]]],
 " \t\tcompression\n",
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    RowBox[{"0", "<", "c", "<", "1"}]}], TraditionalForm]]],
 "\tstretching\n",
 Cell[BoxData[
  FormBox[
   RowBox[{"c", "=", 
    RowBox[{"-", "1", " "}]}], TraditionalForm]]],
 "\t\treflection (mirroring) to the y-axis"
}], "Text",
 CellChangeTimes->{{3.5886689592794123`*^9, 3.5886691262847033`*^9}, {
  3.588669176708992*^9, 3.588669199024031*^9}}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[" a f(c x)", "Section",
 Evaluatable->False,
 CellChangeTimes->{{3.4058355184784594`*^9, 3.4058355220335712`*^9}, {
  3.5876618898520174`*^9, 3.5876618905540185`*^9}, {3.5876621153660135`*^9, 
  3.5876621187356195`*^9}, {3.5876646123007994`*^9, 3.587664613533201*^9}},
 AnimationDisplayTime->0.815731,
 AnimationCycleOffset->1,
 AnimationCycleRepetitions->Infinity],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"DynamicModule", "[", 
    RowBox[{
     RowBox[{"{", "p", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"p", "=", 
       RowBox[{"{", 
        RowBox[{"q", ",", "0"}], "}"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{"Evaluate", "[", 
         RowBox[{"{", 
          RowBox[{"expr", ",", 
           RowBox[{"Tooltip", "[", 
            RowBox[{
             RowBox[{"a", " ", "expr"}], "/.", " ", 
             RowBox[{"(", 
              RowBox[{"x", "\[Rule]", " ", 
               RowBox[{"c", " ", "x"}]}], ")"}]}], "]"}]}], "}"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", 
          RowBox[{"-", "rx"}], ",", "rx"}], "}"}], ",", 
        RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "rx"}], ",", "rx"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "ry"}], ",", "ry"}], "}"}]}], "}"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"PlotStyle", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"Blue", ",", "Thick"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"Red", ",", "Thick"}], "}"}]}], "}"}]}]}], "]"}]}]}], 
    "\[IndentingNewLine]", "]"}], ",", 
   RowBox[{"Style", "[", 
    RowBox[{"\"\<Plot f(c x) \\n\>\"", ",", "Bold"}], "]"}], ",", 
   "\[IndentingNewLine]", "Delimiter", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"expr", ",", 
       RowBox[{"Sin", "[", "x", "]"}], ",", "\"\<f(x)\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"x", "^", "2"}], ",", 
       RowBox[{"x", "^", "3"}], ",", 
       RowBox[{"E", "^", "x"}], ",", 
       RowBox[{"Log", "[", "x", "]"}], ",", 
       RowBox[{"Sin", "[", "x", "]"}], ",", 
       RowBox[{"Tan", "[", "x", "]"}]}], "}"}], ",", "SetterBar"}], "}"}], 
   ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "1"}], "}"}], ",", 
     RowBox[{"-", "5"}], ",", "5", ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"c", ",", "1"}], "}"}], ",", 
     RowBox[{"-", "5"}], ",", "5", ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   "Delimiter", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"rx", ",", "7", ",", "\"\<x-range\>\""}], "}"}], ",", "1", ",", 
     "10", ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"ry", ",", "2", ",", "\"\<y-range\>\""}], "}"}], ",", "1", ",", 
     "10", ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   RowBox[{"ControlPlacement", "\[Rule]", "Left"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4058329138632064`*^9, 3.405833120450264*^9}, {
   3.405833151795336*^9, 3.405833190891554*^9}, {3.405833312195981*^9, 
   3.4058333223906403`*^9}, {3.405833358322307*^9, 3.4058333595640926`*^9}, {
   3.4058341377731023`*^9, 3.4058342530388465`*^9}, {3.405834289541334*^9, 
   3.4058343801716547`*^9}, {3.4058344427316113`*^9, 3.405834663599203*^9}, {
   3.40583469811884*^9, 3.405834740489766*^9}, {3.405834795959528*^9, 
   3.4058347972013135`*^9}, {3.40583484032332*^9, 3.405834877596917*^9}, {
   3.405834930472949*^9, 3.405834938935117*^9}, {3.4300153917237635`*^9, 
   3.4300153924848576`*^9}, {3.4300154728804607`*^9, 
   3.4300155557696495`*^9}, {3.430015591100453*^9, 3.430015654401475*^9}, {
   3.4300156954104433`*^9, 3.4300157599632654`*^9}, {3.430015797977928*^9, 
   3.430015800771946*^9}, {3.4300158419511585`*^9, 3.430015844895392*^9}, {
   3.4300158874365635`*^9, 3.4300158938257504`*^9}, {3.430015927313904*^9, 
   3.4300159345643296`*^9}, {3.4300159775160913`*^9, 
   3.4300160504509664`*^9}, {3.430016146428976*^9, 3.4300161675994177`*^9}, {
   3.430016222758733*^9, 3.4300162247716274`*^9}, {3.430016255315547*^9, 
   3.430016291257229*^9}, {3.4300163818775344`*^9, 3.4300164099979696`*^9}, {
   3.430016524522648*^9, 3.4300165482367473`*^9}, {3.430016645396456*^9, 
   3.430016668579792*^9}, {3.4300167076860237`*^9, 3.4300167272141037`*^9}, {
   3.4300167982061853`*^9, 3.4300168499606047`*^9}, {3.4300169051299343`*^9, 
   3.4300169223647165`*^9}, {3.4300172301272573`*^9, 3.4300172826027136`*^9}, 
   3.4300173304214735`*^9, {3.4300174115982*^9, 3.43001743763564*^9}, {
   3.430018775909984*^9, 3.430018779284837*^9}, {3.430019399406528*^9, 
   3.430019407347947*^9}, {3.4300645534610543`*^9, 3.430064580810381*^9}, {
   3.430064615960925*^9, 3.430064619125475*^9}, {3.4300648507585473`*^9, 
   3.430064855355157*^9}, {3.4300648854884863`*^9, 3.4300650590280237`*^9}, {
   3.45578743425*^9, 3.455787435296875*^9}, {3.45578748309375*^9, 
   3.455787516375*^9}, {3.4557876186875*^9, 3.455787619953125*^9}, {
   3.456037730734375*^9, 3.456037736453125*^9}, {3.456037825375*^9, 
   3.456037830109375*^9}, {3.587660542675451*^9, 3.5876605628618865`*^9}, {
   3.5876605947639427`*^9, 3.587660602002355*^9}, {3.587660645900832*^9, 
   3.587660646337633*^9}, {3.5876607252737713`*^9, 3.587660758205429*^9}, {
   3.587660830827557*^9, 3.5876608749132347`*^9}, {3.5876610274815025`*^9, 
   3.587661084156402*^9}, {3.5876611209412665`*^9, 3.5876611271188774`*^9}, {
   3.5876614649218707`*^9, 3.587661531081587*^9}, {3.5876616106417265`*^9, 
   3.587661621546146*^9}, {3.5876618790411983`*^9, 3.5876619442025127`*^9}, {
   3.5876620021722145`*^9, 3.5876620814359536`*^9}, {3.5883101575600224`*^9, 
   3.588310162942032*^9}, {3.5883444145325184`*^9, 3.5883444162173214`*^9}, {
   3.5883444662934093`*^9, 3.5883445402375393`*^9}, {3.588344607192857*^9, 
   3.588344625881689*^9}, {3.5883446669721613`*^9, 3.5883446689065647`*^9}, {
   3.588344715784647*^9, 3.588344720683056*^9}, {3.588344754659916*^9, 
   3.588344758216722*^9}, 3.5883448161708236`*^9, {3.5883448634389067`*^9, 
   3.5883448638289075`*^9}, {3.5883457622459235`*^9, 3.5883457704203377`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a$$ = 1, $CellContext`c$$ = 
    1, $CellContext`expr$$ = Sin[$CellContext`x], $CellContext`rx$$ = 
    7, $CellContext`ry$$ = 2, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[
       Style["Plot f(c x) \n", Bold]], Manipulate`Dump`ThisIsNotAControl}, {{
       Hold[$CellContext`expr$$], 
       Sin[$CellContext`x], 
       "f(x)"}, {$CellContext`x, $CellContext`x^2, $CellContext`x^3, 
       E^$CellContext`x, 
       Log[$CellContext`x], 
       Sin[$CellContext`x], 
       Tan[$CellContext`x]}}, {{
       Hold[$CellContext`a$$], 1}, -5, 5}, {{
       Hold[$CellContext`c$$], 1}, -5, 5}, {{
       Hold[$CellContext`rx$$], 7, "x-range"}, 1, 10}, {{
       Hold[$CellContext`ry$$], 2, "y-range"}, 1, 10}}, Typeset`size$$ = {
    540., {81., 91.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`expr$67642$$ = 
    0, $CellContext`a$67643$$ = 0, $CellContext`c$67644$$ = 
    0, $CellContext`rx$67645$$ = 0, $CellContext`ry$67646$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`a$$ = 1, $CellContext`c$$ = 
        1, $CellContext`expr$$ = Sin[$CellContext`x], $CellContext`rx$$ = 
        7, $CellContext`ry$$ = 2}, "ControllerVariables" :> {
        Hold[$CellContext`expr$$, $CellContext`expr$67642$$, 0], 
        Hold[$CellContext`a$$, $CellContext`a$67643$$, 0], 
        Hold[$CellContext`c$$, $CellContext`c$67644$$, 0], 
        Hold[$CellContext`rx$$, $CellContext`rx$67645$$, 0], 
        Hold[$CellContext`ry$$, $CellContext`ry$67646$$, 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" :> 
      DynamicModule[{$CellContext`p}, $CellContext`p = {$CellContext`q, 0}; 
        Plot[
          Evaluate[{$CellContext`expr$$, 
            Tooltip[
             
             ReplaceAll[$CellContext`a$$ $CellContext`expr$$, $CellContext`x -> \
$CellContext`c$$ $CellContext`x]]}], {$CellContext`x, -$CellContext`rx$$, \
$CellContext`rx$$}, AspectRatio -> Automatic, 
          PlotRange -> {{-$CellContext`rx$$, $CellContext`rx$$}, \
{-$CellContext`ry$$, $CellContext`ry$$}}, 
          PlotStyle -> {{Blue, Thick}, {Red, Thick}}]], "Specifications" :> {
        Style["Plot f(c x) \n", Bold], Delimiter, {{$CellContext`expr$$, 
          Sin[$CellContext`x], 
          "f(x)"}, {$CellContext`x, $CellContext`x^2, $CellContext`x^3, 
          E^$CellContext`x, 
          Log[$CellContext`x], 
          Sin[$CellContext`x], 
          Tan[$CellContext`x]}, ControlType -> 
         SetterBar}, {{$CellContext`a$$, 1}, -5, 5, Appearance -> 
         "Labeled"}, {{$CellContext`c$$, 1}, -5, 5, Appearance -> "Labeled"}, 
        Delimiter, {{$CellContext`rx$$, 7, "x-range"}, 1, 10, Appearance -> 
         "Labeled"}, {{$CellContext`ry$$, 2, "y-range"}, 1, 10, Appearance -> 
         "Labeled"}}, "Options" :> {ControlPlacement -> Left}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{1032., {192., 203.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.5883448406004667`*^9, 3.588344865716511*^9}, 
   3.588344896682565*^9, 3.588345772245541*^9}]
}, {2}]]
}, Closed]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],

Cell[CellGroupData[{

Cell["\<\
\[CapitalAAcute]ltal\[AAcute]nos tanszform\[AAcute]ci\[OAcute] - General \
transformation 
a*f(c(x-p))+q\
\>", "MainSection",
 Evaluatable->False,
 CellChangeTimes->{
  3.4058352699611087`*^9, {3.587664667337696*^9, 3.5876646705981016`*^9}, {
   3.5883453753902063`*^9, 3.5883453870746264`*^9}, {3.5886693618339157`*^9, 
   3.588669391913169*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"DynamicModule", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"Evaluate", "[", 
        RowBox[{"{", 
         RowBox[{"expr", ",", 
          RowBox[{"Tooltip", "[", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"a", " ", "expr"}], "/.", 
              RowBox[{"{", 
               RowBox[{"x", "\[Rule]", 
                RowBox[{"c", 
                 RowBox[{"(", 
                  RowBox[{"x", "-", 
                   RowBox[{"p", "[", 
                    RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}]}], "}"}]}], 
             ")"}], "+", 
            RowBox[{"p", "[", 
             RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"-", "rx"}], ",", "rx"}], "}"}], ",", 
       RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "rx"}], ",", "rx"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "ry"}], ",", "ry"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"PlotLabel", "\[Rule]", 
        RowBox[{"TraditionalForm", "[", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"expr", "/.", 
            RowBox[{"{", 
             RowBox[{"x", "->", 
              RowBox[{"(", 
               RowBox[{"x", "-", 
                RowBox[{"p", "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}], "}"}]}], ")"}], 
          "+", 
          RowBox[{"p", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"Blue", ",", "Thick"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Red", ",", "Thick"}], "}"}]}], "}"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Prolog", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Text", "[", 
           RowBox[{
            RowBox[{"Style", "[", 
             RowBox[{
              RowBox[{"N", "[", 
               RowBox[{"p", ",", "2"}], "]"}], ",", "Medium", ",", "Red", ",",
               "Bold"}], "]"}], ",", 
            RowBox[{"p", "+", 
             RowBox[{"{", 
              RowBox[{"0", ",", 
               RowBox[{"ry", "/", "10"}]}], "}"}]}]}], "]"}], ",", 
          RowBox[{"Opacity", "[", "0.5", "]"}], ",", 
          RowBox[{"Arrow", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"0", ",", "0"}], "}"}], ",", "p"}], "}"}], "]"}], ",", 
          RowBox[{"Line", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", "rx"}], ",", 
                 RowBox[{"p", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"rx", ",", 
                 RowBox[{"p", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"p", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], ",", 
                 RowBox[{"-", "ry"}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"p", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], ",", "ry"}], "}"}]}], 
              "}"}]}], "}"}], "]"}]}], "}"}]}]}], "]"}]}], 
    "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"Style", "[", 
    RowBox[{
    "\"\< Plot f(x-p)+q: translation of the graph by the vector {p,q} \
\\n\>\"", ",", "Bold"}], "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"expr", ",", 
       RowBox[{"Sin", "[", "x", "]"}], ",", "\"\<f(x)\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"x", "^", "2"}], ",", 
       RowBox[{"x", "^", "3"}], ",", 
       RowBox[{"E", "^", "x"}], ",", 
       RowBox[{"Log", "[", "x", "]"}], ",", 
       RowBox[{"Sin", "[", "x", "]"}], ",", 
       RowBox[{"Tan", "[", "x", "]"}]}], "}"}], ",", "SetterBar"}], "}"}], 
   ",", "Delimiter", ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"p", ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0"}], "}"}], ",", "\"\<shift vector\>\""}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "rx"}], ",", 
       RowBox[{"-", "ry"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"rx", ",", "ry"}], "}"}], ",", "Locator"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "1"}], "}"}], ",", 
     RowBox[{"-", "5"}], ",", "5", ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"c", ",", "1"}], "}"}], ",", 
     RowBox[{"-", "5"}], ",", "5", ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   "Delimiter", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"rx", ",", "6", ",", "\"\<x-range\>\""}], "}"}], ",", "1", ",", 
     "10", ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"ry", ",", "2", ",", "\"\<y-range\>\""}], "}"}], ",", "1", ",", 
     "10", ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   RowBox[{"ControlPlacement", "\[Rule]", "Left"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4058329138632064`*^9, 3.405833120450264*^9}, {
   3.405833151795336*^9, 3.405833190891554*^9}, {3.405833312195981*^9, 
   3.4058333223906403`*^9}, {3.405833358322307*^9, 3.4058333595640926`*^9}, {
   3.4058341377731023`*^9, 3.4058342530388465`*^9}, {3.405834289541334*^9, 
   3.4058343801716547`*^9}, {3.4058344427316113`*^9, 3.405834663599203*^9}, {
   3.40583469811884*^9, 3.405834740489766*^9}, {3.405834795959528*^9, 
   3.4058347972013135`*^9}, {3.40583484032332*^9, 3.405834877596917*^9}, {
   3.405834930472949*^9, 3.405834938935117*^9}, {3.4300153917237635`*^9, 
   3.4300153924848576`*^9}, {3.4300154728804607`*^9, 
   3.4300155557696495`*^9}, {3.430015591100453*^9, 3.430015654401475*^9}, {
   3.4300156954104433`*^9, 3.4300157599632654`*^9}, {3.430015797977928*^9, 
   3.430015800771946*^9}, {3.4300158419511585`*^9, 3.430015844895392*^9}, {
   3.4300158874365635`*^9, 3.4300158938257504`*^9}, {3.430015927313904*^9, 
   3.4300159345643296`*^9}, {3.4300159775160913`*^9, 
   3.4300160504509664`*^9}, {3.430016146428976*^9, 3.4300161675994177`*^9}, {
   3.430016222758733*^9, 3.4300162247716274`*^9}, {3.430016255315547*^9, 
   3.430016291257229*^9}, {3.4300163818775344`*^9, 3.4300164099979696`*^9}, {
   3.430016524522648*^9, 3.4300165482367473`*^9}, {3.430016645396456*^9, 
   3.430016668579792*^9}, {3.4300167076860237`*^9, 3.4300167272141037`*^9}, {
   3.4300167982061853`*^9, 3.4300168499606047`*^9}, {3.4300169051299343`*^9, 
   3.4300169223647165`*^9}, {3.4300172301272573`*^9, 3.4300172826027136`*^9}, 
   3.4300173304214735`*^9, {3.4300174115982*^9, 3.43001743763564*^9}, {
   3.430018775909984*^9, 3.430018779284837*^9}, {3.430019399406528*^9, 
   3.430019407347947*^9}, {3.4300645534610543`*^9, 3.430064580810381*^9}, {
   3.430064615960925*^9, 3.430064619125475*^9}, {3.4300648507585473`*^9, 
   3.430064855355157*^9}, {3.4300648854884863`*^9, 3.4300650590280237`*^9}, {
   3.45578743425*^9, 3.455787435296875*^9}, {3.45578748309375*^9, 
   3.455787516375*^9}, {3.4557876186875*^9, 3.455787619953125*^9}, {
   3.456037730734375*^9, 3.456037736453125*^9}, {3.456037825375*^9, 
   3.456037830109375*^9}, {3.587660542675451*^9, 3.5876605628618865`*^9}, {
   3.5876605947639427`*^9, 3.587660602002355*^9}, {3.587660645900832*^9, 
   3.587660646337633*^9}, {3.5876607252737713`*^9, 3.587660758205429*^9}, {
   3.587660830827557*^9, 3.5876608749132347`*^9}, {3.5876610274815025`*^9, 
   3.587661084156402*^9}, {3.5876611209412665`*^9, 3.5876611271188774`*^9}, 
   3.58831010469153*^9, {3.588336305706993*^9, 3.588336452937199*^9}, {
   3.5883364866872463`*^9, 3.5883365026172686`*^9}, {3.5883449929503345`*^9, 
   3.588345072432474*^9}, {3.588345143183798*^9, 3.5883451720750484`*^9}, {
   3.5883457962851834`*^9, 3.5883458082972045`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a$$ = 1, $CellContext`c$$ = 
    1, $CellContext`expr$$ = Sin[$CellContext`x], $CellContext`p$$ = {0, 
    0}, $CellContext`rx$$ = 6, $CellContext`ry$$ = 2, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[
       Style[
       " Plot f(x-p)+q: translation of the graph by the vector {p,q} \n", 
        Bold]], Manipulate`Dump`ThisIsNotAControl}, {{
       Hold[$CellContext`expr$$], 
       Sin[$CellContext`x], 
       "f(x)"}, {$CellContext`x, $CellContext`x^2, $CellContext`x^3, 
       E^$CellContext`x, 
       Log[$CellContext`x], 
       Sin[$CellContext`x], 
       Tan[$CellContext`x]}}, {{
       Hold[$CellContext`p$$], {0, 0}, "shift vector"}, 
      Dynamic[{-$CellContext`rx$$, -$CellContext`ry$$}], 
      Dynamic[{$CellContext`rx$$, $CellContext`ry$$}]}, {{
       Hold[$CellContext`a$$], 1}, -5, 5}, {{
       Hold[$CellContext`c$$], 1}, -5, 5}, {{
       Hold[$CellContext`rx$$], 6, "x-range"}, 1, 10}, {{
       Hold[$CellContext`ry$$], 2, "y-range"}, 1, 10}}, Typeset`size$$ = {
    450., {86., 93.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`expr$6739$$ = 
    0, $CellContext`p$6740$$ = 0, $CellContext`a$6741$$ = 
    0, $CellContext`c$6742$$ = 0, $CellContext`rx$6743$$ = 
    0, $CellContext`ry$6744$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`a$$ = 1, $CellContext`c$$ = 
        1, $CellContext`expr$$ = 
        Sin[$CellContext`x], $CellContext`p$$ = {0, 0}, $CellContext`rx$$ = 
        6, $CellContext`ry$$ = 2}, "ControllerVariables" :> {
        Hold[$CellContext`expr$$, $CellContext`expr$6739$$, 0], 
        Hold[$CellContext`p$$, $CellContext`p$6740$$, 0], 
        Hold[$CellContext`a$$, $CellContext`a$6741$$, 0], 
        Hold[$CellContext`c$$, $CellContext`c$6742$$, 0], 
        Hold[$CellContext`rx$$, $CellContext`rx$6743$$, 0], 
        Hold[$CellContext`ry$$, $CellContext`ry$6744$$, 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" :> DynamicModule[{}, 
        Plot[
         Evaluate[{$CellContext`expr$$, 
           Tooltip[
           ReplaceAll[$CellContext`a$$ $CellContext`expr$$, {$CellContext`x -> \
$CellContext`c$$ ($CellContext`x - Part[$CellContext`p$$, 1])}] + 
            Part[$CellContext`p$$, 
              2]]}], {$CellContext`x, -$CellContext`rx$$, $CellContext`rx$$}, 
         AspectRatio -> Automatic, 
         PlotRange -> {{-$CellContext`rx$$, $CellContext`rx$$}, \
{-$CellContext`ry$$, $CellContext`ry$$}}, PlotLabel -> 
         TraditionalForm[
          ReplaceAll[$CellContext`expr$$, {$CellContext`x -> $CellContext`x - 
               Part[$CellContext`p$$, 1]}] + Part[$CellContext`p$$, 2]], 
         PlotStyle -> {{Blue, Thick}, {Red, Thick}}, Prolog -> {
           Text[
            Style[
             N[$CellContext`p$$, 2], Medium, Red, Bold], $CellContext`p$$ + {
             0, $CellContext`ry$$/10}], 
           Opacity[0.5], 
           Arrow[{{0, 0}, $CellContext`p$$}], 
           Line[{{{-$CellContext`rx$$, 
               Part[$CellContext`p$$, 2]}, {$CellContext`rx$$, 
               Part[$CellContext`p$$, 2]}}, {{
               Part[$CellContext`p$$, 1], -$CellContext`ry$$}, {
               Part[$CellContext`p$$, 1], $CellContext`ry$$}}}]}]], 
      "Specifications" :> {
        Style[
        " Plot f(x-p)+q: translation of the graph by the vector {p,q} \n", 
         Bold], {{$CellContext`expr$$, 
          Sin[$CellContext`x], 
          "f(x)"}, {$CellContext`x, $CellContext`x^2, $CellContext`x^3, 
          E^$CellContext`x, 
          Log[$CellContext`x], 
          Sin[$CellContext`x], 
          Tan[$CellContext`x]}, ControlType -> SetterBar}, 
        Delimiter, {{$CellContext`p$$, {0, 0}, "shift vector"}, 
         Dynamic[{-$CellContext`rx$$, -$CellContext`ry$$}], 
         Dynamic[{$CellContext`rx$$, $CellContext`ry$$}], ControlType -> 
         Locator}, {{$CellContext`a$$, 1}, -5, 5, Appearance -> 
         "Labeled"}, {{$CellContext`c$$, 1}, -5, 5, Appearance -> "Labeled"}, 
        Delimiter, {{$CellContext`rx$$, 6, "x-range"}, 1, 10, Appearance -> 
         "Labeled"}, {{$CellContext`ry$$, 2, "y-range"}, 1, 10, Appearance -> 
         "Labeled"}}, "Options" :> {ControlPlacement -> Left}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{1033., {192., 203.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.58954821951799*^9, 3.589548229378207*^9}}]
}, {2}]]
}, Open  ]]
}, Open  ]]
},
ScreenStyleEnvironment->"SlideShow",
WindowToolbars->"EditBar",
WindowSize->{1274, 654},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrivateNotebookOptions->{"ColorPalette"->{RGBColor, -1}},
ShowCellLabel->True,
ShowCellTags->False,
RenderingOptions->{"ObjectDithering"->True,
"RasterDithering"->False},
Magnification:>1.25 Inherited,
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)",
StyleDefinitions->Notebook[{
   Cell[
    CellGroupData[{
      Cell[
       TextData[{"Style Definitions for the ", 
         StyleBox["Mathematica", FontSlant -> "Italic"], 
         " developments at University of Szeged ", "2011"}], "Subtitle", 
       CellMargins -> {{0, Inherited}, {Inherited, 0}}, 
       CellFrameMargins -> {{20, 4}, {8, 20}}, FontSize -> 24, FontWeight -> 
       "Bold", FontColor -> GrayLevel[0], Background -> 
       RGBColor[247/256, 141/256, 30/256]], 
      Cell[
       CellGroupData[{
         Cell["Style Environment Names", "Section"], 
         Cell[
          StyleData[All, "Working"], PageWidth -> WindowWidth, 
          CellLabelMargins -> {{12, Inherited}, {Inherited, Inherited}}, 
          ShowAutoStyles -> False, ScriptMinSize -> 9, MenuSortingValue -> 
          1100], 
         Cell[
          StyleData[All, "Presentation"], PageWidth -> WindowWidth, 
          ShowCellBracket -> Automatic, ShowGroupOpener -> True, 
          CellLabelMargins -> {{24, Inherited}, {Inherited, Inherited}}, 
          ShowAutoStyles -> False, 
          AutoStyleOptions -> {"HighlightMisspelledWords" -> False}, 
          ScriptMinSize -> 15, MenuSortingValue -> 1200], 
         Cell[
          StyleData[
          All, "SlideShow", StyleDefinitions -> 
           StyleData[All, "Presentation"]], PageWidth -> WindowWidth, 
          DockedCells -> 
          FEPrivate`FrontEndResource["FEExpressions", "SlideshowToolbar"], 
          ScrollingOptions -> {
           "PagewiseDisplay" -> True, "VerticalScrollRange" -> Fit}, 
          MenuSortingValue -> 1300], 
         Cell[
          StyleData[All, "Condensed"], PageWidth -> WindowWidth, 
          CellLabelMargins -> {{8, Inherited}, {Inherited, Inherited}}, 
          ShowAutoStyles -> False, ScriptMinSize -> 8, MenuSortingValue -> 
          1400], 
         Cell[
          StyleData[All, "Printout"], PageWidth -> PaperWidth, 
          CellLabelMargins -> {{2, Inherited}, {Inherited, Inherited}}, 
          ShowAutoStyles -> False, ShowSyntaxStyles -> False, 
          AutoStyleOptions -> {"HighlightMisspelledWords" -> False}, 
          ScriptMinSize -> 5, MenuSortingValue -> 1500, 
          PrivateFontOptions -> {"FontType" -> "Outline"}, Magnification -> 
          0.8]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell["Notebook Options Settings", "Section"], 
         Cell[
         "The options defined for the style below will be used at the \
Notebook level.", "Text"], 
         Cell[
          StyleData["Notebook"], PageHeaders -> {{
             Cell[
              TextData[{
                Cell[
                 TextData[{
                   CounterBox["Page"]}], "PageNumber"], " ", 
                Cell[
                " ", "Header", CellFrame -> {{0.5, 0}, {0, 0}}, 
                 CellFrameMargins -> 4], 
                Cell[
                 TextData[{
                   ValueBox["FileName"]}], "Header"]}], 
              CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None, 
             None}, {None, None, 
             Cell[
              TextData[{
                Cell[
                 TextData[{
                   ValueBox["FileName"]}], "Header"], 
                Cell[
                " ", "Header", CellFrame -> {{0, 0.5}, {0, 0}}, 
                 CellFrameMargins -> 4], " ", 
                Cell[
                 TextData[{
                   CounterBox["Page"]}], "PageNumber"]}], 
              CellMargins -> {{Inherited, 0}, {Inherited, Inherited}}]}}, 
          PageHeaderLines -> {False, False}, 
          PageFooterLines -> {False, False}, 
          PrintingOptions -> {
           "FacingPages" -> True, "FirstPageFace" -> Right, "FirstPageFooter" -> 
            True, "FirstPageHeader" -> False}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell["Styles for Titles, Chapters and Sections Cells", "Section"], 
         Cell[
          CellGroupData[{
            Cell["Titles", "Subsection"], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["Main-header"], ShowCellBracket -> Automatic, 
                CellMargins -> {{0, 10}, {0, 25}}, CellHorizontalScrolling -> 
                True, TextAlignment -> Center, MenuSortingValue -> 990], 
               Cell[
                StyleData["Main-header", "Printout"], 
                CellMargins -> {{0, 10}, {0, 25}}], 
               Cell[
                StyleData[
                "Main-header", "SlideShow", 
                 CellMargins -> {{0, 10}, {0, 25}}]]}, Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["MainTitle"], CellFrame -> {{1, 2}, {2, 1}}, 
                CellDingbat -> None, ShowCellBracket -> Automatic, 
                CellMargins -> {{0, 10}, {20, 20}}, 
                CellElementSpacings -> {"GroupIconTopMargin" -> 0}, 
                CellGroupingRules -> {"TitleGrouping", 0}, PageBreakBelow -> 
                False, CellFrameColor -> RGBColor[0, 0, 0.2], 
                DefaultNewInlineCellStyle -> "None", 
                InputAutoReplacements -> {"TeX" -> FormBox[
                    StyleBox[
                    RowBox[{"T", 
                    AdjustmentBox[
                    "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 
                    0.5], "X"}], SingleLetterItalics -> False], 
                    TraditionalForm], "LaTeX" -> FormBox[
                    StyleBox[
                    RowBox[{"L", 
                    StyleBox[
                    AdjustmentBox[
                    "A", BoxMargins -> {{-0.5, -0.3}, {0, 0}}, 
                    BoxBaselineShift -> -0.4], FontSize -> Smaller], "T", 
                    AdjustmentBox[
                    "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 
                    0.5], "X"}], SingleLetterItalics -> False], 
                    TraditionalForm], "mma" -> "Mathematica", "Mma" -> 
                  "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> 
                  FormBox[
                    RowBox[{"grid", 
                    AdjustmentBox[
                    StyleBox["Mathematica", FontSlant -> "Italic"], 
                    BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], 
                  "webMathematica" -> FormBox[
                    RowBox[{"web", 
                    AdjustmentBox[
                    StyleBox["Mathematica", FontSlant -> "Italic"], 
                    BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], 
                  ParentList}, TextAlignment -> Center, TextJustification -> 
                0, LineSpacing -> {1., 5.}, LanguageCategory -> 
                "NaturalLanguage", CounterIncrements -> "Main-Title", 
                CounterAssignments -> {{"Part", 0}, {"Chapter", 0}, {
                  "MainSection", 0}, {"Section", 0}, {
                  "NumberedEquation", 0}, {"NumberedFigure", 0}, {
                  "Subtitle", 0}, {"Subsubtitle", 0}, {"Problem", 0}, {
                  "SolvedProblem", 0}, {"Experiment", 0}, {"Theorem", 0}, {
                  "Remark", 0}, {"Corollary", 0}, {"Definition", 0}, {
                  "Th-Env", 0}, {"ItemNumbered", 0}}, MenuSortingValue -> 
                1000, FontFamily -> "Helvetica", FontSize -> 30, FontWeight -> 
                "Bold", FontSlant -> "Italic", FontTracking -> "Plain", 
                FontColor -> RGBColor[1, 1, 1], Background -> 
                RGBColor[0.35, 0.4, 0.8]], 
               Cell[
                StyleData["Main-Title", "Presentation"], 
                CellMargins -> {{0, Inherited}, {20, 45}}, 
                LineSpacing -> {1, 5}, FontSize -> 42], 
               Cell[
                StyleData["Main-Title", "Condensed"], 
                CellMargins -> {{0, 10}, {4, 8}}, FontSize -> 20], 
               Cell[
                StyleData["Main-Title", "Printout"], 
                CellMargins -> {{0, 10}, {10, 20}}], 
               Cell[
                StyleData["Main-Title", "SlideShow"], FontSize -> 42]}, 
              Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["Title"], ShowCellBracket -> Automatic, 
                CellMargins -> {{0, 10}, {15, 20}}, 
                CellElementSpacings -> {"GroupIconTopMargin" -> 0}, 
                CellGroupingRules -> {"TitleGrouping", 0}, PageBreakBelow -> 
                False, CellFrameColor -> RGBColor[0, 0, 0.2], 
                DefaultNewInlineCellStyle -> "None", 
                InputAutoReplacements -> {"TeX" -> FormBox[
                    StyleBox[
                    RowBox[{"T", 
                    AdjustmentBox[
                    "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 
                    0.5], "X"}], SingleLetterItalics -> False], 
                    TraditionalForm], "LaTeX" -> FormBox[
                    StyleBox[
                    RowBox[{"L", 
                    StyleBox[
                    AdjustmentBox[
                    "A", BoxMargins -> {{-0.5, -0.3}, {0, 0}}, 
                    BoxBaselineShift -> -0.4], FontSize -> Smaller], "T", 
                    AdjustmentBox[
                    "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 
                    0.5], "X"}], SingleLetterItalics -> False], 
                    TraditionalForm], "mma" -> "Mathematica", "Mma" -> 
                  "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> 
                  FormBox[
                    RowBox[{"grid", 
                    AdjustmentBox[
                    StyleBox["Mathematica", FontSlant -> "Italic"], 
                    BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], 
                  "webMathematica" -> FormBox[
                    RowBox[{"web", 
                    AdjustmentBox[
                    StyleBox["Mathematica", FontSlant -> "Italic"], 
                    BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], 
                  ParentList}, TextAlignment -> Center, TextJustification -> 
                0, LineSpacing -> {1., 5.}, LanguageCategory -> 
                "NaturalLanguage", CounterIncrements -> "Title", 
                CounterAssignments -> {{"Part", 0}, {"Chapter", 0}, {
                  "MainSection", 0}, {"Section", 0}, {
                  "NumberedEquation", 0}, {"NumberedFigure", 0}, {
                  "Subtitle", 0}, {"Subsubtitle", 0}, {"Problem", 0}, {
                  "SolvedProblem", 0}, {"Experiment", 0}, {"Theorem", 0}, {
                  "Remark", 0}, {"Corollary", 0}, {"Definition", 0}, {
                  "Th-Env", 0}, {"ItemNumbered", 0}}, MenuSortingValue -> 
                1100, MenuCommandKey -> "1", FontFamily -> "Helvetica", 
                FontSize -> 28, FontWeight -> "Bold", FontSlant -> "Plain", 
                FontTracking -> "Plain", FontColor -> 
                RGBColor[0.3, 0.2, 0.5]], 
               Cell[
                StyleData["Title", "Presentation"], 
                CellMargins -> {{0, Inherited}, {20, 45}}, 
                LineSpacing -> {1, 5}, FontSize -> 40], 
               Cell[
                StyleData["Title", "Condensed"], 
                CellMargins -> {{0, 10}, {4, 8}}, FontSize -> 20], 
               Cell[
                StyleData["Title", "Printout"], 
                CellMargins -> {{0, 5}, {10, 15}}], 
               Cell[
                StyleData["Title", "SlideShow"], FontSize -> 40]}, Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["Subtitle"], ShowCellBracket -> Automatic, 
                CellMargins -> {{0, 10}, {10, 5}}, 
                CellGroupingRules -> {"TitleGrouping", 10}, PageBreakBelow -> 
                False, CellFrameColor -> RGBColor[0, 0, 0.2], 
                DefaultNewInlineCellStyle -> "None", 
                InputAutoReplacements -> {"TeX" -> FormBox[
                    StyleBox[
                    RowBox[{"T", 
                    AdjustmentBox[
                    "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 
                    0.5], "X"}], SingleLetterItalics -> False], 
                    TraditionalForm], "LaTeX" -> FormBox[
                    StyleBox[
                    RowBox[{"L", 
                    StyleBox[
                    AdjustmentBox[
                    "A", BoxMargins -> {{-0.5, -0.3}, {0, 0}}, 
                    BoxBaselineShift -> -0.4], FontSize -> Smaller], "T", 
                    AdjustmentBox[
                    "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 
                    0.5], "X"}], SingleLetterItalics -> False], 
                    TraditionalForm], "mma" -> "Mathematica", "Mma" -> 
                  "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> 
                  FormBox[
                    RowBox[{"grid", 
                    AdjustmentBox[
                    StyleBox["Mathematica", FontSlant -> "Italic"], 
                    BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], 
                  "webMathematica" -> FormBox[
                    RowBox[{"web", 
                    AdjustmentBox[
                    StyleBox["Mathematica", FontSlant -> "Italic"], 
                    BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], 
                  ParentList}, TextAlignment -> Center, TextJustification -> 
                0, LineSpacing -> {1, 1}, LanguageCategory -> 
                "NaturalLanguage", CounterIncrements -> "Subtitle", 
                CounterAssignments -> {{"Part", 0}, {"Chapter", 0}, {
                  "Problem", 0}, {"Section", 0}, {"Equation", 0}, {
                  "Figure", 0}}, MenuSortingValue -> 1120, MenuCommandKey -> 
                "2", FontFamily -> "Helvetica", FontSize -> 26, FontWeight -> 
                "Bold", FontSlant -> "Italic", FontColor -> 
                RGBColor[0.3, 0.3, 0.6]], 
               Cell[
                StyleData["Subtitle", "Presentation"], 
                CellMargins -> {{0, Inherited}, {30, 3}}, 
                LineSpacing -> {1, 16}, FontSize -> 36], 
               Cell[
                StyleData["Subtitle", "Condensed"], 
                CellMargins -> {{0, 10}, {4, 4}}, FontSize -> 22], 
               Cell[
                StyleData["Subtitle", "Printout"], 
                CellMargins -> {{0, 5}, {10, 5}}], 
               Cell[
                StyleData["Subtitle", "SlideShow"], FontSize -> 36]}, 
              Closed]]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell["Chapters", "Subsection"], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["Chapter"], CellFrame -> False, CellDingbat -> Cell[
                  TextData[{
                    CounterBox["Chapter"], "."}], CellSize -> {45, Inherited},
                   TextAlignment -> Left], ShowCellBracket -> Automatic, 
                ShowGroupOpener -> False, CellMargins -> {{0, 10}, {10, 35}}, 
                CellElementSpacings -> {"ClosedGroupTopMargin" -> 20}, 
                CellGroupingRules -> {"SectionGrouping", 16}, 
                CounterIncrements -> "Chapter", 
                CounterAssignments -> {{"SubChapter", 0}, {
                  "MainSection", 0}, {"Section", 0}, {
                  "NumberedEquation", 0}, {"NumberedFigure", 0}, {
                  "NumberedTable", 0}, {"Problem", 0}, {"SolvedProblem", 0}, {
                  "Experiment", 0}, {"Theorem", 0}, {"Remark", 0}, {
                  "Corollary", 0}, {"Definition", 0}, {"Th-Env", 0}, {
                  "ItemNumbered", 0}}, MenuSortingValue -> 1160, FontFamily -> 
                "Helvetica", FontSize -> 24, FontWeight -> "Bold", FontSlant -> 
                "Plain", FontTracking -> "Plain", FontColor -> 
                RGBColor[0.3, 0.2, 0.5]], 
               Cell[
                StyleData["Chapter", "Printout"], PageBreakBelow -> False], 
               Cell[
                StyleData["Chapter", "SlideShow"], FontSize -> 36]}, Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["Chapter-Nonumber"], CellFrame -> False, 
                ShowCellBracket -> Automatic, ShowGroupOpener -> False, 
                CellMargins -> {{5, 10}, {5, 15}}, 
                CellElementSpacings -> {"ClosedGroupTopMargin" -> 20}, 
                CellGroupingRules -> {"SectionGrouping", 16}, 
                CounterIncrements -> "Chapter", 
                CounterAssignments -> {{"SubChapter", 0}, {
                  "MainSection", 0}, {"Section", 0}, {
                  "NumberedEquation", 0}, {"NumberedFigure", 0}, {
                  "NumberedTable", 0}, {"Problem", 0}, {"SolvedProblem", 0}, {
                  "Experiment", 0}, {"Theorem", 0}, {"Remark", 0}, {
                  "Corollary", 0}, {"Definition", 0}, {"Th-Env", 0}, {
                  "ItemNumbered", 0}}, MenuSortingValue -> 1160, FontFamily -> 
                "Helvetica", FontSize -> 24, FontWeight -> "Bold", FontSlant -> 
                "Plain", FontTracking -> "Plain", FontColor -> 
                RGBColor[0.3, 0.2, 0.5]], 
               Cell[
                StyleData["Chapter-Nonumber", "Printout"], PageBreakBelow -> 
                False], 
               Cell[
                StyleData["Chapter-Nonumber", "SlideShow"], FontSize -> 36]}, 
              Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["Appendix"], CellFrame -> False, CellDingbat -> Cell[
                  TextData[{
                    CounterBox["Chapter"], "."}], CellSize -> {45, Inherited},
                   TextAlignment -> Left], ShowCellBracket -> Automatic, 
                ShowGroupOpener -> False, CellMargins -> {{0, 10}, {5, 15}}, 
                CellElementSpacings -> {"ClosedGroupTopMargin" -> 20}, 
                CellGroupingRules -> {"SectionGrouping", 16}, 
                CounterIncrements -> "Chapter", 
                CounterAssignments -> {{"SubChapter", 0}, {
                  "MainSection", 0}, {"Section", 0}, {
                  "NumberedEquation", 0}, {"NumberedFigure", 0}, {
                  "NumberedTable", 0}, {"Problem", 0}, {"SolvedProblem", 0}, {
                  "Experiment", 0}, {"Theorem", 0}, {"Remark", 0}, {
                  "Corollary", 0}, {"Definition", 0}, {"Th-Env", 0}, {
                  "ItemNumbered", 0}}, MenuSortingValue -> 1180, FontFamily -> 
                "Helvetica", FontSize -> 24, FontWeight -> "Bold", FontSlant -> 
                "Plain", FontTracking -> "Plain", FontColor -> 
                RGBColor[0.3, 0.2, 0.5], 
                CounterBoxOptions -> {CounterFunction :> (Part[
                    CharacterRange["A", "Z"], #]& )}], 
               Cell[
                StyleData["Appendix", "Printout"], PageBreakBelow -> False], 
               Cell[
                StyleData["Appendix", "SlideShow"], FontSize -> 36]}, 
              Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["SubChapter"], CellFrame -> False, CellDingbat -> 
                Cell[
                  TextData[{
                    CounterBox["Chapter"], ".", 
                    CounterBox["SubChapter"], "."}], 
                  CellSize -> {45, Inherited}, TextAlignment -> Left], 
                ShowCellBracket -> Automatic, ShowGroupOpener -> False, 
                CellMargins -> {{0, 10}, {5, 10}}, 
                CellElementSpacings -> {"ClosedGroupTopMargin" -> 15}, 
                CellGroupingRules -> {"SectionGrouping", 17}, 
                CounterIncrements -> "SubChapter", MenuSortingValue -> 1200, 
                FontFamily -> "Helvetica", FontSize -> 22, FontWeight -> 
                "Bold", FontSlant -> "Plain", FontTracking -> "Plain", 
                FontColor -> RGBColor[0.3, 0.3, 0.6]], 
               Cell[
                StyleData["SubChapter", "Printout"], PageBreakBelow -> False], 
               Cell[
                StyleData["SubChapter", "SlideShow"], FontSize -> 32]}, 
              Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["SubChapter-Nonumber"], CellFrame -> False, 
                ShowCellBracket -> Automatic, ShowGroupOpener -> False, 
                CellMargins -> {{30, 10}, {5, 10}}, 
                CellElementSpacings -> {"ClosedGroupTopMargin" -> 15}, 
                CellGroupingRules -> {"SectionGrouping", 17}, 
                CounterIncrements -> "SubChapter", MenuSortingValue -> 1201, 
                FontFamily -> "Helvetica", FontSize -> 22, FontWeight -> 
                "Bold", FontSlant -> "Plain", FontTracking -> "Plain", 
                FontColor -> RGBColor[0.3, 0.3, 0.6]], 
               Cell[
                StyleData["SubChapter-Nonumber", "Printout"], PageBreakBelow -> 
                False], 
               Cell[
                StyleData["SubChapter-Nonumber", "SlideShow"], FontSize -> 
                32]}, Closed]]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell["Sections", "Subsection"], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["MainSection"], CellFrame -> {{0, 0}, {0.5, 1.5}}, 
                ShowCellBracket -> Automatic, ShowGroupOpener -> True, 
                CellMargins -> {{25, 100}, {5, 10}}, 
                CellElementSpacings -> {
                 "ClosedCellHeight" -> 17, "ClosedGroupTopMargin" -> 20, 
                  "GroupIconTopMargin" -> 0}, 
                CellGroupingRules -> {"SectionGrouping", 35}, PageBreakBelow -> 
                False, CellFrameMargins -> {{4, 4}, {1, 1}}, CellFrameColor -> 
                RGBColor[0.7, 0.7, 0.8], TextJustification -> 0, 
                MenuSortingValue -> 1260, FontFamily -> "Helvetica", FontSize -> 
                18, FontWeight -> "Bold", FontSlant -> "Plain", FontColor -> 
                RGBColor[0.3, 0.2, 0.5], Background -> 
                RGBColor[0.93, 0.93, 1]], 
               Cell[
                StyleData["MainSection", "Printout"], PageBreakBelow -> 
                False], 
               Cell[
                StyleData["MainSection", "SlideShow"], 
                CellMargins -> {{20, 20}, {10, 5}}, FontSize -> 30]}, Open]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["Section"], CellFrame -> False, CellDingbat -> 
                "\[GraySquare] ", ShowCellBracket -> Automatic, 
                ShowGroupOpener -> True, 
                CellMargins -> {{40, Inherited}, {5, 15}}, 
                CellGroupingRules -> {"SectionGrouping", 40}, PageBreakBelow -> 
                False, CellFrameMargins -> 4, DefaultNewInlineCellStyle -> 
                "None", InputAutoReplacements -> {"TeX" -> FormBox[
                    StyleBox[
                    RowBox[{"T", 
                    AdjustmentBox[
                    "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 
                    0.5], "X"}], SingleLetterItalics -> False], 
                    TraditionalForm], "LaTeX" -> FormBox[
                    StyleBox[
                    RowBox[{"L", 
                    StyleBox[
                    AdjustmentBox[
                    "A", BoxMargins -> {{-0.5, -0.3}, {0, 0}}, 
                    BoxBaselineShift -> -0.4], FontSize -> Smaller], "T", 
                    AdjustmentBox[
                    "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 
                    0.5], "X"}], SingleLetterItalics -> False], 
                    TraditionalForm], "mma" -> "Mathematica", "Mma" -> 
                  "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> 
                  FormBox[
                    RowBox[{"grid", 
                    AdjustmentBox[
                    StyleBox["Mathematica", FontSlant -> "Italic"], 
                    BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], 
                  "webMathematica" -> FormBox[
                    RowBox[{"web", 
                    AdjustmentBox[
                    StyleBox["Mathematica", FontSlant -> "Italic"], 
                    BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], 
                  ParentList}, LineSpacing -> {1, 2}, LanguageCategory -> 
                "NaturalLanguage", CounterIncrements -> "Section", 
                CounterAssignments -> {{"Subsection", 0}, {
                  "Subsubsection", 0}}, MenuSortingValue -> 1300, 
                MenuCommandKey -> "4", FontFamily -> "Helvetica", FontSize -> 
                16, FontWeight -> "Bold", FontColor -> 
                RGBColor[0, 0, 0.500008]], 
               Cell[
                StyleData["Section", "Presentation"], 
                CellMargins -> {{40, Inherited}, {12, 20}}, 
                LineSpacing -> {1, 10}, FontSize -> 26], 
               Cell[
                StyleData["Section", "Condensed"], 
                CellMargins -> {{40, Inherited}, {6, 10}}, FontSize -> 12], 
               Cell[
                StyleData["Section", "Printout"], 
                CellMargins -> {{40, 0}, {6, 10}}], 
               Cell[
                StyleData["Section", "SlideShow"], 
                CellMargins -> {{40, 0}, {10, 15}}, PageBreakBelow -> False, 
                FontSize -> 26]}, Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["Subsection"], CellFrame -> False, CellDingbat -> 
                " \[EmptySquare] ", ShowCellBracket -> Automatic, 
                ShowGroupOpener -> True, 
                CellMargins -> {{40, Inherited}, {3, 10}}, 
                CellGroupingRules -> {"SectionGrouping", 45}, PageBreakBelow -> 
                False, DefaultNewInlineCellStyle -> "None", 
                InputAutoReplacements -> {"TeX" -> FormBox[
                    StyleBox[
                    RowBox[{"T", 
                    AdjustmentBox[
                    "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 
                    0.5], "X"}], SingleLetterItalics -> False], 
                    TraditionalForm], "LaTeX" -> FormBox[
                    StyleBox[
                    RowBox[{"L", 
                    StyleBox[
                    AdjustmentBox[
                    "A", BoxMargins -> {{-0.5, -0.3}, {0, 0}}, 
                    BoxBaselineShift -> -0.4], FontSize -> Smaller], "T", 
                    AdjustmentBox[
                    "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 
                    0.5], "X"}], SingleLetterItalics -> False], 
                    TraditionalForm], "mma" -> "Mathematica", "Mma" -> 
                  "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> 
                  FormBox[
                    RowBox[{"grid", 
                    AdjustmentBox[
                    StyleBox["Mathematica", FontSlant -> "Italic"], 
                    BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], 
                  "webMathematica" -> FormBox[
                    RowBox[{"web", 
                    AdjustmentBox[
                    StyleBox["Mathematica", FontSlant -> "Italic"], 
                    BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], 
                  ParentList}, LanguageCategory -> "NaturalLanguage", 
                CounterIncrements -> "Subsection", 
                CounterAssignments -> {{"Subsubsection", 0}}, 
                MenuSortingValue -> 1300, MenuCommandKey -> "5", FontFamily -> 
                "Helvetica", FontSize -> 14, FontWeight -> "Bold", FontSlant -> 
                "Italic", FontColor -> RGBColor[0.3, 0.3, 0.6]], 
               Cell[
                StyleData["Subsection", "Presentation"], 
                CellMargins -> {{40, Inherited}, {12, 18}}, 
                LineSpacing -> {1, 10}, FontSize -> 22], 
               Cell[
                StyleData["Subsection", "Condensed"], 
                CellMargins -> {{40, Inherited}, {6, 12}}, FontSize -> 12], 
               Cell[
                StyleData["Subsection", "Printout"], 
                CellMargins -> {{40, 0}, {7, 22}}], 
               Cell[
                StyleData["Subsection", "SlideShow"], 
                CellMargins -> {{40, 20}, {10, 10}}, PageBreakBelow -> False, 
                FontSize -> 22]}, Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["Subsubsection"], CellDingbat -> 
                " \[EmptySmallSquare] ", ShowCellBracket -> Automatic, 
                CellMargins -> {{40, Inherited}, {3, 8}}, 
                CellGroupingRules -> {"SectionGrouping", 50}, PageBreakBelow -> 
                False, InputAutoReplacements -> {"TeX" -> FormBox[
                    StyleBox[
                    RowBox[{"T", 
                    AdjustmentBox[
                    "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 
                    0.5], "X"}], SingleLetterItalics -> False], 
                    TraditionalForm], "LaTeX" -> FormBox[
                    StyleBox[
                    RowBox[{"L", 
                    StyleBox[
                    AdjustmentBox[
                    "A", BoxMargins -> {{-0.5, -0.3}, {0, 0}}, 
                    BoxBaselineShift -> -0.4], FontSize -> Smaller], "T", 
                    AdjustmentBox[
                    "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 
                    0.5], "X"}], SingleLetterItalics -> False], 
                    TraditionalForm], "mma" -> "Mathematica", "Mma" -> 
                  "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> 
                  FormBox[
                    RowBox[{"grid", 
                    AdjustmentBox[
                    StyleBox["Mathematica", FontSlant -> "Italic"], 
                    BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], 
                  "webMathematica" -> FormBox[
                    RowBox[{"web", 
                    AdjustmentBox[
                    StyleBox["Mathematica", FontSlant -> "Italic"], 
                    BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], 
                  ParentList}, LanguageCategory -> "NaturalLanguage", 
                CounterIncrements -> "Subsubsection", MenuSortingValue -> 
                1350, MenuCommandKey -> "6", FontFamily -> "Helvetica", 
                FontSize -> 13, FontSlant -> "Italic", FontColor -> 
                RGBColor[0.3, 0.3, 0.7]], 
               Cell[
                StyleData["Subsubsection", "Presentation"], 
                CellMargins -> {{40, Inherited}, {4, 10}}, 
                LineSpacing -> {1, 6}, FontSize -> 20], 
               Cell[
                StyleData["Subsubsection", "Condensed"], 
                CellMargins -> {{40, Inherited}, {3, 6}}, FontSize -> 10], 
               Cell[
                StyleData["Subsubsection", "Printout"], 
                CellMargins -> {{40, 0}, {3, 6}}], 
               Cell[
                StyleData["Subsubsection", "SlideShow"], 
                CellMargins -> {{40, 20}, {4, 8}}, PageBreakBelow -> False, 
                FontSize -> 20]}, Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["Math-Init"], CellFrame -> False, CellDingbat -> 
                "\[FilledSquare]", ShowCellBracket -> Automatic, 
                ShowGroupOpener -> True, CellMargins -> {{40, 10}, {2, 10}}, 
                CellGroupingRules -> {"SectionGrouping", 40}, PageBreakBelow -> 
                False, CellFrameLabels -> {{
                   Cell[
                    TextData[{" Mathematica program loading"}]], None}, {
                  None, None}}, MenuSortingValue -> 1360, FontFamily -> 
                "Helvetica", FontSize -> 13, FontWeight -> "Bold", FontSlant -> 
                "Italic", FontTracking -> "Plain", FontColor -> 
                RGBColor[0.8, 0, 0]], 
               Cell[
                StyleData["Math-Init", "Printout"], PageBreakBelow -> False], 
               Cell[
                StyleData["Math-Init", "SlideShow"], FontSize -> 22]}, 
              Closed]]}, Closed]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell["Styles for Theorem-like environments", "Section"], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Theorem"], CellDingbat -> Cell[
               TextData[{
                 StyleBox["T", FontSize -> 14, FontWeight -> "Bold"], 
                 StyleBox["HEOREM ", FontSize -> 12, FontWeight -> "Bold"], 
                 CounterBox["Chapter"], ".", 
                 CounterBox["Theorem"]}], CellSize -> {80, Inherited}, 
               TextAlignment -> Left], ShowCellBracket -> Automatic, 
             CellMargins -> {{110, 30}, {0, 7}}, 
             CellGroupingRules -> {"SectionGrouping", 60}, 
             CellHorizontalScrolling -> True, PageBreakBelow -> False, 
             CounterIncrements -> "Theorem", MenuSortingValue -> 1400, 
             FontFamily -> "Helvetica", FontSize -> 14, FontWeight -> "Bold", 
             FontColor -> RGBColor[0, 0, 0.7]], 
            Cell[
             StyleData["Theorem", "Printout"], PageBreakBelow -> False], 
            Cell[
             StyleData["Theorem", "SlideShow"], FontFamily -> "Helvetica", 
             FontSize -> 22]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Remark"], CellDingbat -> Cell[
               TextData[{
                 StyleBox["R", FontSize -> 14, FontWeight -> "Bold"], 
                 StyleBox["EMARK ", FontSize -> 12, FontWeight -> "Bold"], 
                 CounterBox["Chapter"], ".", 
                 CounterBox["Remark"]}], CellSize -> {80, Inherited}, 
               TextAlignment -> Left], ShowCellBracket -> Automatic, 
             CellMargins -> {{150, 30}, {0, 7}}, 
             CellGroupingRules -> {"SectionGrouping", 60}, 
             CellHorizontalScrolling -> True, PageBreakBelow -> False, 
             CounterIncrements -> "Remark", MenuSortingValue -> 1420, 
             FontFamily -> "Helvetica", FontSize -> 14, FontWeight -> "Bold", 
             FontColor -> RGBColor[0, 0, 0.7]], 
            Cell[
             StyleData["Remark", "Printout"], PageBreakBelow -> False], 
            Cell[
             StyleData["Remark", "SlideShow"], FontFamily -> "Helvetica", 
             FontSize -> 22]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Corollary"], CellDingbat -> Cell[
               TextData[{
                 StyleBox["C", FontSize -> 14, FontWeight -> "Bold"], 
                 StyleBox["OROLLARY ", FontSize -> 12, FontWeight -> "Bold"], 
                 CounterBox["Chapter"], ".", 
                 CounterBox["Corollary"]}], CellSize -> {110, Inherited}, 
               TextAlignment -> Left], ShowCellBracket -> Automatic, 
             CellMargins -> {{160, 30}, {0, 7}}, 
             CellGroupingRules -> {"SectionGrouping", 60}, 
             CellHorizontalScrolling -> True, PageBreakBelow -> False, 
             CounterIncrements -> "Corollary", MenuSortingValue -> 1440, 
             FontFamily -> "Helvetica", FontSize -> 14, FontWeight -> "Bold", 
             FontColor -> RGBColor[0, 0, 0.7]], 
            Cell[
             StyleData["Corollary", "Printout"], PageBreakBelow -> False], 
            Cell[
             StyleData["Corollary", "SlideShow"], FontFamily -> "Arial", 
             FontSize -> 22]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Definition"], CellDingbat -> Cell[
               TextData[{
                 StyleBox["D", FontSize -> 14, FontWeight -> "Bold"], 
                 StyleBox["EFINITION ", FontSize -> 12, FontWeight -> "Bold"], 
                 CounterBox["Chapter"], ".", 
                 CounterBox["Definition"]}], CellSize -> {90, Inherited}, 
               TextAlignment -> Left], ShowCellBracket -> Automatic, 
             CellMargins -> {{120, 30}, {0, 7}}, 
             CellGroupingRules -> {"SectionGrouping", 60}, 
             CellHorizontalScrolling -> True, PageBreakBelow -> False, 
             CounterIncrements -> "Definition", MenuSortingValue -> 1460, 
             FontFamily -> "Helvetica", FontSize -> 14, FontWeight -> "Bold", 
             FontColor -> RGBColor[0, 0, 0.7]], 
            Cell[
             StyleData["Definition", "Printout"], PageBreakBelow -> False], 
            Cell[
             StyleData["Definition", "SlideShow"], FontFamily -> "Helvetica", 
             FontSize -> 22]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Th-Env"], CellDingbat -> "\[FilledDiamond]", 
             ShowCellBracket -> Automatic, ShowGroupOpener -> False, 
             CellMargins -> {{50, 30}, {2, 7}}, 
             CellGroupingRules -> {"SectionGrouping", 60}, 
             CellHorizontalScrolling -> True, PageBreakBelow -> False, 
             MenuSortingValue -> 1480, FontFamily -> "Helvetica", FontSize -> 
             12, FontColor -> RGBColor[0, 0, 0.7]], 
            Cell[
             StyleData["Th-Env", "Printout"], PageBreakBelow -> False], 
            Cell[
             StyleData["Th-Env", "SlideShow"], FontFamily -> "Helvetica", 
             FontSize -> 22]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Th-Env-Dummy"], CellDingbat -> "\[FilledDiamond]", 
             ShowCellBracket -> Automatic, ShowGroupOpener -> False, 
             CellMargins -> {{2, 2}, {2, 7}}, 
             CellGroupingRules -> {"SectionGrouping", 60}, 
             CellHorizontalScrolling -> True, PageBreakBelow -> False, 
             MenuSortingValue -> 1480, FontFamily -> "Helvetica", FontSize -> 
             1], 
            Cell[
             StyleData["Th-Env-Dummy", "Printout"], PageBreakBelow -> False], 
            Cell[
             StyleData["Th-Env-Dummy", "SlideShow"], FontFamily -> 
             "Helvetica"]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["SolvedProblem"], CellFrame -> False, CellDingbat -> 
             Cell[
               TextData[{
                 StyleBox["E", FontSize -> 14, FontWeight -> "Bold"], 
                 StyleBox["XAMPLE ", FontSize -> 12, FontWeight -> "Bold"], 
                 CounterBox["SolvedProblem"]}], CellSize -> {80, Inherited}, 
               TextAlignment -> Left], ShowCellBracket -> Automatic, 
             ShowGroupOpener -> True, CellMargins -> {{110, 30}, {3, 10}}, 
             CellGroupingRules -> {"SectionGrouping", 60}, PageBreakBelow -> 
             False, CounterIncrements -> "SolvedProblem", 
             CounterAssignments -> {{"ProblemInput", 0}, {"SubProblem", 0}}, 
             MenuSortingValue -> 1500, FontFamily -> "Helvetica", FontSize -> 
             14, FontWeight -> "Bold", FontSlant -> "Plain", FontTracking -> 
             "Plain", FontVariations -> {"Underline" -> False}, FontColor -> 
             RGBColor[0.5, 0, 0]], 
            Cell[
             StyleData["SolvedProblem", "Printout"]], 
            Cell[
             StyleData["SolvedProblem", "SlideShow"], FontSize -> 22]}, 
           Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Problem"], CellFrame -> False, CellDingbat -> Cell[
               TextData[{
                 StyleBox["P", FontSize -> 14, FontWeight -> "Bold"], 
                 StyleBox["ROBLEM ", FontSize -> 12, FontWeight -> "Bold"], 
                 CounterBox["Problem"]}], CellSize -> {80, Inherited}, 
               TextAlignment -> Left], ShowCellBracket -> Automatic, 
             ShowGroupOpener -> True, CellMargins -> {{120, 30}, {0, 10}}, 
             CellGroupingRules -> {"SectionGrouping", 60}, PageBreakBelow -> 
             False, CounterIncrements -> "Problem", 
             CounterAssignments -> {{"ProblemInput", 0}, {"SubProblem", 0}}, 
             MenuSortingValue -> 1520, FontFamily -> "Helvetica", FontSize -> 
             14, FontWeight -> "Bold", FontSlant -> "Plain", FontTracking -> 
             "Plain", FontColor -> RGBColor[0.5, 0, 0]], 
            Cell[
             StyleData["Problem", "Printout"]], 
            Cell[
             StyleData["Problem", "SlideShow"], FontSize -> 22]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Experiment"], CellFrame -> False, CellDingbat -> Cell[
               TextData[{
                 StyleBox["E", FontSize -> 14, FontWeight -> "Bold"], 
                 StyleBox["XPERIMENT ", FontSize -> 12, FontWeight -> "Bold"], 
                 CounterBox["Experiment"]}], CellSize -> {100, Inherited}, 
               TextAlignment -> Left], ShowCellBracket -> Automatic, 
             ShowGroupOpener -> True, CellMargins -> {{130, 30}, {0, 10}}, 
             CellGroupingRules -> {"SectionGrouping", 60}, PageBreakBelow -> 
             False, CounterIncrements -> "Experiment", MenuSortingValue -> 
             1520, FontFamily -> "Helvetica", FontSize -> 14, FontWeight -> 
             "Bold", FontSlant -> "Plain", FontTracking -> "Plain", FontColor -> 
             RGBColor[0.5, 0, 0]], 
            Cell[
             StyleData["Experiment", "Printout"]], 
            Cell[
             StyleData["Problem", "SlideShow"], FontSize -> 22]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Solution"], CellDingbat -> None, ShowCellBracket -> 
             Automatic, ShowGroupOpener -> True, 
             CellMargins -> {{50, 30}, {0, 8}}, 
             CellGroupingRules -> {"SectionGrouping", 65}, 
             CellHorizontalScrolling -> True, PageBreakBelow -> False, 
             CellFrameLabels -> {{
                Cell[
                 TextData[{"S", 
                   StyleBox[
                   "OLUTION ", FontSize -> 11, FontWeight -> "Bold"]}]], 
                None}, {None, None}}, MenuSortingValue -> 1540, FontFamily -> 
             "Helvetica", FontSize -> 14, FontWeight -> "Bold", FontSlant -> 
             "Plain", FontColor -> RGBColor[0, 0, 0.7]], 
            Cell[
             StyleData["Solution", "Printout"]], 
            Cell[
             StyleData["Solution", "SlideShow"], FontSize -> 22]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Proof"], CellDingbat -> None, ShowCellBracket -> 
             Automatic, ShowGroupOpener -> True, 
             CellMargins -> {{50, 30}, {0, 8}}, 
             CellGroupingRules -> {"SectionGrouping", 65}, 
             CellHorizontalScrolling -> True, PageBreakBelow -> False, 
             CellFrameLabels -> {{
                Cell[
                 TextData[{"P", 
                   StyleBox["ROOF ", FontSize -> 11, FontWeight -> "Bold"]}]],
                 None}, {None, None}}, MenuSortingValue -> 1560, FontFamily -> 
             "Helvetica", FontSize -> 14, FontWeight -> "Bold", FontSlant -> 
             "Plain", FontColor -> RGBColor[0., 0, 0.7]], 
            Cell[
             StyleData["Proof", "Printout"], PageBreakBelow -> False], 
            Cell[
             StyleData["Proof", "SlideShow"], FontSize -> 22]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Sol-End"], ShowCellBracket -> Automatic, 
             CellMargins -> {{60, 5}, {5, 1}}, CellGroupingRules -> 
             "NormalGrouping", CellHorizontalScrolling -> True, 
             PageBreakBelow -> False, CellFrameLabels -> {{None, 
                Cell[
                 TextData[{
                   StyleForm["\[FilledSquare]"]}]]}, {None, None}}, 
             MenuSortingValue -> 1580, FontFamily -> "Helvetica", FontSize -> 
             14, FontColor -> RGBColor[0, 0, 0.7]], 
            Cell[
             StyleData["Sol-End", "Printout"], PageBreakAbove -> False], 
            Cell[
             StyleData["Sol-End", "SlideShow"], FontSize -> 2]}, Closed]]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell["Styles for Body Text", "Section"], 
         Cell[
          CellGroupData[{
            Cell["Standard", "Subsection"], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["Text"], ShowCellBracket -> Automatic, 
                CellMargins -> {{50, 10}, {7, 7}}, 
                InputAutoReplacements -> {"TeX" -> FormBox[
                    StyleBox[
                    RowBox[{"T", 
                    AdjustmentBox[
                    "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 
                    0.5], "X"}], SingleLetterItalics -> False], 
                    TraditionalForm], "LaTeX" -> FormBox[
                    StyleBox[
                    RowBox[{"L", 
                    StyleBox[
                    AdjustmentBox[
                    "A", BoxMargins -> {{-0.5, -0.3}, {0, 0}}, 
                    BoxBaselineShift -> -0.4], FontSize -> Smaller], "T", 
                    AdjustmentBox[
                    "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 
                    0.5], "X"}], SingleLetterItalics -> False], 
                    TraditionalForm], "mma" -> "Mathematica", "Mma" -> 
                  "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> 
                  FormBox[
                    RowBox[{"grid", 
                    AdjustmentBox[
                    StyleBox["Mathematica", FontSlant -> "Italic"], 
                    BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], 
                  "webMathematica" -> FormBox[
                    RowBox[{"web", 
                    AdjustmentBox[
                    StyleBox["Mathematica", FontSlant -> "Italic"], 
                    BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], 
                  ParentList}, TextJustification -> 1, LineSpacing -> {1, 3}, 
                CounterIncrements -> "Text", MenuSortingValue -> 1700, 
                MenuCommandKey -> "7", FontSize -> 12], 
               Cell[
                StyleData["Text", "Presentation"], 
                CellMargins -> {{50, 10}, {10, 10}}, LineSpacing -> {1, 5}, 
                FontSize -> 24], 
               Cell[
                StyleData["Text", "Condensed"], 
                CellMargins -> {{8, 10}, {6, 6}}, LineSpacing -> {1, 1}, 
                FontSize -> 11], 
               Cell[
                StyleData["Text", "Printout"], 
                CellMargins -> {{50, 10}, {6, 6}}, TextJustification -> 1, 
                Hyphenation -> True], 
               Cell[
                StyleData["Text", "SlideShow"], FontSize -> 24]}, Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["Text-Indented"], ShowCellBracket -> Automatic, 
                CellMargins -> {{50, 10}, {7, 7}}, 
                InputAutoReplacements -> {"TeX" -> FormBox[
                    StyleBox[
                    RowBox[{"T", 
                    AdjustmentBox[
                    "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 
                    0.5], "X"}], SingleLetterItalics -> False], 
                    TraditionalForm], "LaTeX" -> FormBox[
                    StyleBox[
                    RowBox[{"L", 
                    StyleBox[
                    AdjustmentBox[
                    "A", BoxMargins -> {{-0.5, -0.3}, {0, 0}}, 
                    BoxBaselineShift -> -0.4], FontSize -> Smaller], "T", 
                    AdjustmentBox[
                    "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 
                    0.5], "X"}], SingleLetterItalics -> False], 
                    TraditionalForm], "mma" -> "Mathematica", "Mma" -> 
                  "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> 
                  FormBox[
                    RowBox[{"grid", 
                    AdjustmentBox[
                    StyleBox["Mathematica", FontSlant -> "Italic"], 
                    BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], 
                  "webMathematica" -> FormBox[
                    RowBox[{"web", 
                    AdjustmentBox[
                    StyleBox["Mathematica", FontSlant -> "Italic"], 
                    BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], 
                  ParentList}, TextJustification -> 1, LineSpacing -> {1, 3}, 
                ParagraphIndent -> 25, CounterIncrements -> "Text", 
                MenuSortingValue -> 1720, FontSize -> 12], 
               Cell[
                StyleData["Text-Indented", "Presentation"], 
                CellMargins -> {{50, 10}, {10, 10}}, LineSpacing -> {1, 5}, 
                FontSize -> 24], 
               Cell[
                StyleData["Text-Indented", "Condensed"], 
                CellMargins -> {{8, 10}, {6, 6}}, LineSpacing -> {1, 1}, 
                FontSize -> 11], 
               Cell[
                StyleData["Text-Indented", "Printout"], 
                CellMargins -> {{50, 10}, {6, 6}}, TextJustification -> 1, 
                Hyphenation -> True], 
               Cell[
                StyleData["Text-Indented", "SlideShow"], FontSize -> 24]}, 
              Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["Text-Theorem"], ShowCellBracket -> Automatic, 
                CellMargins -> {{50, 10}, {7, 7}}, 
                InputAutoReplacements -> {"TeX" -> FormBox[
                    StyleBox[
                    RowBox[{"T", 
                    AdjustmentBox[
                    "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 
                    0.5], "X"}], SingleLetterItalics -> False], 
                    TraditionalForm], "LaTeX" -> FormBox[
                    StyleBox[
                    RowBox[{"L", 
                    StyleBox[
                    AdjustmentBox[
                    "A", BoxMargins -> {{-0.5, -0.3}, {0, 0}}, 
                    BoxBaselineShift -> -0.4], FontSize -> Smaller], "T", 
                    AdjustmentBox[
                    "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 
                    0.5], "X"}], SingleLetterItalics -> False], 
                    TraditionalForm], "mma" -> "Mathematica", "Mma" -> 
                  "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> 
                  FormBox[
                    RowBox[{"grid", 
                    AdjustmentBox[
                    StyleBox["Mathematica", FontSlant -> "Italic"], 
                    BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], 
                  "webMathematica" -> FormBox[
                    RowBox[{"web", 
                    AdjustmentBox[
                    StyleBox["Mathematica", FontSlant -> "Italic"], 
                    BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], 
                  ParentList}, TextJustification -> 1, LineSpacing -> {1, 3}, 
                CounterIncrements -> "Text-Theorem", MenuSortingValue -> 1740,
                 FontSize -> 12, FontSlant -> "Italic"], 
               Cell[
                StyleData["Text-Theorem", "Presentation"], 
                CellMargins -> {{50, 10}, {10, 10}}, LineSpacing -> {1, 5}, 
                FontSize -> 24], 
               Cell[
                StyleData["Text-Theorem", "Condensed"], 
                CellMargins -> {{8, 10}, {6, 6}}, LineSpacing -> {1, 1}, 
                FontSize -> 11], 
               Cell[
                StyleData["Text-Theorem", "Printout"], 
                CellMargins -> {{50, 10}, {6, 6}}, TextJustification -> 1, 
                Hyphenation -> True], 
               Cell[
                StyleData["Text-Theorem", "SlideShow"], FontSize -> 24]}, 
              Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["Text-Framed"], CellFrame -> 1, ShowCellBracket -> 
                Automatic, CellMargins -> {{50, 10}, {7, 7}}, CellFrameColor -> 
                RGBColor[0.7, 0.7, 0.8], 
                InputAutoReplacements -> {"TeX" -> FormBox[
                    StyleBox[
                    RowBox[{"T", 
                    AdjustmentBox[
                    "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 
                    0.5], "X"}], SingleLetterItalics -> False], 
                    TraditionalForm], "LaTeX" -> FormBox[
                    StyleBox[
                    RowBox[{"L", 
                    StyleBox[
                    AdjustmentBox[
                    "A", BoxMargins -> {{-0.5, -0.3}, {0, 0}}, 
                    BoxBaselineShift -> -0.4], FontSize -> Smaller], "T", 
                    AdjustmentBox[
                    "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 
                    0.5], "X"}], SingleLetterItalics -> False], 
                    TraditionalForm], "mma" -> "Mathematica", "Mma" -> 
                  "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> 
                  FormBox[
                    RowBox[{"grid", 
                    AdjustmentBox[
                    StyleBox["Mathematica", FontSlant -> "Italic"], 
                    BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], 
                  "webMathematica" -> FormBox[
                    RowBox[{"web", 
                    AdjustmentBox[
                    StyleBox["Mathematica", FontSlant -> "Italic"], 
                    BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], 
                  ParentList}, TextJustification -> 1, LineSpacing -> {1, 3}, 
                CounterIncrements -> "Text", MenuSortingValue -> 1760, 
                FontSize -> 12], 
               Cell[
                StyleData["Text-Framed", "Presentation"], 
                CellMargins -> {{50, 10}, {10, 10}}, LineSpacing -> {1, 5}, 
                FontSize -> 24], 
               Cell[
                StyleData["Text-Framed", "Condensed"], 
                CellMargins -> {{8, 10}, {6, 6}}, LineSpacing -> {1, 1}, 
                FontSize -> 11], 
               Cell[
                StyleData["Text-Framed", "Printout"], 
                CellMargins -> {{50, 10}, {6, 6}}, TextJustification -> 1, 
                Hyphenation -> True], 
               Cell[
                StyleData["Text-Framed", "SlideShow"], FontSize -> 24]}, 
              Closed]], 
            Cell[
             CellGroupData[{
               Cell[
                StyleData["SmallText"], ShowCellBracket -> Automatic, 
                CellMargins -> {{60, 10}, {3, 3}}, DefaultNewInlineCellStyle -> 
                "None", LineSpacing -> {1, 3}, LanguageCategory -> 
                "NaturalLanguage", CounterIncrements -> "SmallText", 
                MenuSortingValue -> 1780, StyleMenuListing -> True, 
                FontFamily -> "Helvetica", FontSize -> 10], 
               Cell[
                StyleData["SmallText", "Presentation"], 
                CellMargins -> {{60, 10}, {6, 6}}, LineSpacing -> {1, 5}, 
                FontSize -> 18], 
               Cell[
                StyleData["SmallText", "Condensed"], 
                CellMargins -> {{8, 10}, {2, 2}}, LineSpacing -> {1, 2}, 
                FontSize -> 10], 
               Cell[
                StyleData["SmallText", "Printout"], 
                CellMargins -> {{2, 2}, {3, 3}}, TextJustification -> 0.5, 
                Hyphenation -> True], 
               Cell[
                StyleData["SmallText", "SlideShow"], FontSize -> 18]}, 
              Closed]]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell["Display", "Subsection"], 
            Cell[
             CellGroupData[{
               Cell["Lists", "Subsubsection"], 
               Cell[
                CellGroupData[{
                  Cell["Bulleted", "Subsubsubsection"], 
                  Cell[
                   CellGroupData[{
                    Cell[
                    StyleData["Item-Dashed"], CellDingbat -> "\[Dash]", 
                    ShowCellBracket -> Automatic, 
                    CellMargins -> {{60, 10}, {1, 1}}, 
                    CellHorizontalScrolling -> True, TextJustification -> 1, 
                    LineSpacing -> {1, 1}, CounterIncrements -> "Item-Dashed",
                     MenuSortingValue -> 1990, FontSize -> 12], 
                    Cell[
                    StyleData["Item-Dashed", "Printout"]], 
                    Cell[
                    StyleData["Item-Dashed", "SlideShow"], FontSize -> 24]}, 
                    Closed]], 
                  Cell[
                   CellGroupData[{
                    Cell[
                    StyleData["Item"], CellDingbat -> 
                    Cell["\[FilledSmallCircle]"], ShowCellBracket -> 
                    Automatic, CellMargins -> {{60, 10}, {4, 4}}, 
                    ReturnCreatesNewCell -> True, 
                    CellGroupingRules -> {
                    "GroupTogetherNestedGrouping", 15000}, 
                    CellFrameLabelMargins -> 4, CounterIncrements -> "Item", 
                    CounterAssignments -> {{"Subitem", 0}, {"Subsubitem", 0}},
                     MenuSortingValue -> 2000, FontSize -> 12], 
                    Cell[
                    StyleData["Item", "Presentation"], 
                    CellMargins -> {{100, 10}, {7, 7}}, CellFrameLabelMargins -> 
                    6, FontSize -> 24], 
                    Cell[
                    StyleData["Item", "Condensed"], 
                    CellMargins -> {{58, Inherited}, {2, 2}}, FontSize -> 10], 
                    Cell[
                    StyleData["Item", "Printout"], 
                    CellMargins -> {{50, 0}, {2, 2}}], 
                    Cell[
                    StyleData["Item", "SlideShow"], FontSize -> 24]}, 
                    Closed]], 
                  Cell[
                   CellGroupData[{
                    Cell[
                    StyleData["ItemParagraph"], ShowCellBracket -> Automatic, 
                    CellMargins -> {{75, 10}, {4, 1}}, ReturnCreatesNewCell -> 
                    True, CellGroupingRules -> {
                    "GroupTogetherNestedGrouping", 15000}, 
                    DefaultNewCellStyle -> "Item", MenuSortingValue -> 2020, 
                    FontSize -> 12], 
                    Cell[
                    StyleData["ItemParagraph", "Presentation"], 
                    CellMargins -> {{100, 10}, {7, 2}}, FontSize -> 24], 
                    Cell[
                    StyleData["ItemParagraph", "Condensed"], 
                    CellMargins -> {{58, Inherited}, {2, 1}}, FontSize -> 10], 
                    Cell[
                    StyleData["ItemParagraph", "Printout"], 
                    CellMargins -> {{50, 0}, {1, 0}}, FontSize -> 12], 
                    Cell[
                    StyleData["ItemParagraph", "SlideShow"], FontSize -> 24]},
                     Closed]], 
                  Cell[
                   CellGroupData[{
                    Cell[
                    StyleData["Subitem"], CellDingbat -> 
                    Cell["\[FilledSmallCircle]", FontWeight -> "Bold"], 
                    ShowCellBracket -> Automatic, 
                    CellMargins -> {{90, 12}, {4, 4}}, ReturnCreatesNewCell -> 
                    True, CellGroupingRules -> {
                    "GroupTogetherNestedGrouping", 15100}, 
                    CellFrameLabelMargins -> 4, DefaultNewCellStyle -> "Item",
                     CounterIncrements -> "Subitem", 
                    CounterAssignments -> {{"Subsubitem", 0}}, 
                    MenuSortingValue -> 2040, FontSize -> 12], 
                    Cell[
                    StyleData["Subitem", "Presentation"], 
                    CellMargins -> {{125, 12}, {7, 7}}, CellFrameLabelMargins -> 
                    6, FontSize -> 24], 
                    Cell[
                    StyleData["Subitem", "Condensed"], 
                    CellMargins -> {{80, 2}, {2, 2}}, FontSize -> 10], 
                    Cell[
                    StyleData["Subitem", "Printout"], 
                    CellMargins -> {{70, 2}, {1, 1}}], 
                    Cell[
                    StyleData["SubItem", "SlideShow"], FontSize -> 24]}, 
                    Closed]], 
                  Cell[
                   CellGroupData[{
                    Cell[
                    StyleData["SubitemParagraph"], ShowCellBracket -> 
                    Automatic, CellMargins -> {{90, 12}, {4, 1}}, 
                    ReturnCreatesNewCell -> True, 
                    CellGroupingRules -> {
                    "GroupTogetherNestedGrouping", 15100}, 
                    CellFrameLabelMargins -> 4, DefaultNewCellStyle -> 
                    "Subitem", MenuSortingValue -> 2060, FontSize -> 12], 
                    Cell[
                    StyleData["SubitemParagraph", "Presentation"], 
                    CellMargins -> {{125, 12}, {7, 2}}, FontSize -> 24], 
                    Cell[
                    StyleData["SubitemParagraph", "Condensed"], 
                    CellMargins -> {{80, 2}, {2, 1}}, FontSize -> 10], 
                    Cell[
                    StyleData["SubitemParagraph", "Printout"], 
                    CellMargins -> {{70, 2}, {1, 0}}], 
                    Cell[
                    StyleData["SubitemParagraph", "SlideShow"], FontSize -> 
                    24]}, Closed]]}, Closed]], 
               Cell[
                CellGroupData[{
                  Cell["Numbered", "Subsubsubsection"], 
                  Cell[
                   CellGroupData[{
                    Cell[
                    StyleData["ItemNumbered"], CellDingbat -> Cell[
                    TextData[{
                    CounterBox["ItemNumbered"], "."}], FontWeight -> "Bold"], 
                    ShowCellBracket -> Automatic, 
                    CellMargins -> {{60, 10}, {4, 4}}, ReturnCreatesNewCell -> 
                    True, CellGroupingRules -> {
                    "GroupTogetherNestedGrouping", 15000}, 
                    CellFrameLabelMargins -> 4, CounterIncrements -> 
                    "ItemNumbered", 
                    CounterAssignments -> {{"SubitemNumbered", 0}, {
                    "SubsubitemNumbered", 0}}, MenuSortingValue -> 2200, 
                    FontSize -> 12], 
                    Cell[
                    StyleData["ItemNumbered", "Presentation"], 
                    CellMargins -> {{100, 10}, {7, 7}}, CellFrameLabelMargins -> 
                    6, FontSize -> 24], 
                    Cell[
                    StyleData["ItemNumbered", "Condensed"], 
                    CellMargins -> {{58, Inherited}, {2, 2}}, FontSize -> 10], 
                    Cell[
                    StyleData["ItemNumbered", "Printout"], 
                    CellMargins -> {{50, 0}, {2, 2}}, FontSize -> 12], 
                    Cell[
                    StyleData["ItemNumbered", "SlideShow"], FontSize -> 24]}, 
                    Closed]], 
                  Cell[
                   CellGroupData[{
                    Cell[
                    StyleData["SubitemNumbered"], CellDingbat -> Cell[
                    TextData[{
                    CounterBox["ItemNumbered"], ".", 
                    CounterBox["SubitemNumbered"], "."}], FontWeight -> 
                    "Bold"], ShowCellBracket -> Automatic, 
                    CellMargins -> {{90, 12}, {4, 4}}, ReturnCreatesNewCell -> 
                    True, CellGroupingRules -> {
                    "GroupTogetherNestedGrouping", 15100}, 
                    CellFrameLabelMargins -> 4, DefaultNewCellStyle -> "Item",
                     CounterIncrements -> "SubitemNumbered", 
                    CounterAssignments -> {{"SubsubitemNumbered", 0}}, 
                    MenuSortingValue -> 2220, FontSize -> 12], 
                    Cell[
                    StyleData["SubitemNumbered", "Presentation"], 
                    CellMargins -> {{125, 12}, {7, 7}}, CellFrameLabelMargins -> 
                    6, FontSize -> 24], 
                    Cell[
                    StyleData["SubitemNumbered", "Condensed"], 
                    CellMargins -> {{80, 2}, {2, 2}}, FontSize -> 10], 
                    Cell[
                    StyleData["SubitemNumbered", "Printout"], 
                    CellMargins -> {{70, 2}, {1, 1}}, FontSize -> 12], 
                    Cell[
                    StyleData["SubitemNumbered", "SlideShow"], FontSize -> 
                    24]}, Closed]], 
                  Cell["Null", "Input"]}, Closed]]}, Closed]]}, Closed]]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell["Styles for Input and Output", "Section"], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Input"], CellFrame -> {{2, 2}, {0, 2}}, 
             CellMargins -> {{50, 10}, {0, 3}}, Evaluatable -> True, 
             CellGroupingRules -> "InputGrouping", CellHorizontalScrolling -> 
             True, PageBreakWithin -> True, GroupPageBreakWithin -> False, 
             CellLabelMargins -> {{25, Inherited}, {Inherited, Inherited}}, 
             CellFrameColor -> RGBColor[1, 0.93, 0.8], DefaultFormatType -> 
             DefaultInputFormatType, AutoItalicWords -> {}, FormatType -> 
             StandardForm, ShowStringCharacters -> True, NumberMarks -> True, 
             CounterIncrements -> "Input", MenuSortingValue -> 2300, FontSize -> 
             12, FontWeight -> "Bold", Background -> 
             RGBColor[0.98, 0.98, 0.9]], 
            Cell[
             StyleData["Input", "Printout"]], 
            Cell[
             StyleData["Input", "SlideShow"], FontSize -> 22]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Output"], CellFrame -> {{2, 2}, {2, 0}}, 
             CellMargins -> {{50, 10}, {4, 0}}, CellEditDuplicate -> True, 
             CellGroupingRules -> "OutputGrouping", CellHorizontalScrolling -> 
             True, PageBreakWithin -> False, GroupPageBreakWithin -> False, 
             GeneratedCell -> True, CellAutoOverwrite -> True, 
             CellLabelPositioning -> Left, 
             CellLabelMargins -> {{25, Inherited}, {Inherited, Inherited}}, 
             CellFrameColor -> RGBColor[1, 0.93, 0.8], DefaultFormatType -> 
             DefaultOutputFormatType, AutoItalicWords -> {}, FormatType -> 
             StandardForm, CounterIncrements -> "Output", MenuSortingValue -> 
             2320, FontSize -> 11], 
            Cell[
             StyleData["Output", "Printout"]], 
            Cell[
             StyleData["Output", "SlideShow"], FontSize -> 20]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Message"], CellDingbat -> "\[LongDash]", 
             CellMargins -> {{60, Inherited}, {Inherited, Inherited}}, 
             CellGroupingRules -> "OutputGrouping", PageBreakWithin -> False, 
             GroupPageBreakWithin -> False, GeneratedCell -> True, 
             CellAutoOverwrite -> True, ShowCellLabel -> False, 
             CellLabelMargins -> {{25, Inherited}, {Inherited, Inherited}}, 
             DefaultFormatType -> DefaultOutputFormatType, 
             AutoItalicWords -> {}, FormatType -> InputForm, 
             CounterIncrements -> "Message", StyleMenuListing -> None, 
             FontSize -> 10, FontSlant -> "Italic", FontColor -> 
             RGBColor[1, 0, 0]], 
            Cell[
             StyleData["Message", "Printout"], 
             CellMargins -> {{60, 5}, {3, 3}}, FontSize -> 10], 
            Cell[
             StyleData["Message", "SlideShow"], FontSize -> 16]}, Closed]]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell["Styles for Formulas and Figures", "Section"], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["NumberedEquation"], ShowCellBracket -> Automatic, 
             CellMargins -> {{40, 30}, {5, 5}}, CellFrameLabels -> {{None, 
                Cell[
                 TextData[{"(", 
                   CounterBox["Chapter"], ".", 
                   CounterBox["NumberedEquation"], ")"}]]}, {None, None}}, 
             DefaultFormatType -> DefaultInlineCellFormatType, TextAlignment -> 
             Center, TextJustification -> 0, CounterIncrements -> 
             "NumberedEquation", MenuSortingValue -> 2400, FontWeight -> 
             "Bold"], 
            Cell[
             CellGroupData[{
               Cell[
                BoxData[FontSize -> 12], "Input"], 
               Cell[
                StyleData["NumberedEquation", "Printout"]], 
               Cell[
                StyleData["NumberedEquation", "SlideShow"], FontSize -> 24]}, 
              Open]]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["NumberedFigure"], ShowCellBracket -> Automatic, 
             CellMargins -> {{40, 30}, {5, 6}}, CellHorizontalScrolling -> 
             True, CellFrameLabels -> {{None, None}, {
                Cell[
                 TextData[{"Figure ", 
                   CounterBox["Chapter"], ".", 
                   CounterBox["NumberedFigure"]}], FontWeight -> "Bold"], 
                None}}, TextAlignment -> Center, TextJustification -> 0, 
             CounterIncrements -> "NumberedFigure", MenuSortingValue -> 2420, 
             FontSize -> 12], 
            Cell[
             StyleData["NumberedFigure", "Printout"]], 
            Cell[
             StyleData["NumberedFigure", "SlideShow"], FontSize -> 24]}, 
           Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["NumberedTable"], ShowCellBracket -> Automatic, 
             CellMargins -> {{40, 30}, {5, 6}}, CellHorizontalScrolling -> 
             True, CellFrameLabels -> {{None, None}, {
                Cell[
                 TextData[{"Table ", 
                   CounterBox["Chapter"], ".", 
                   CounterBox["NumberedTable"]}], FontWeight -> "Bold"], 
                None}}, TextAlignment -> Center, TextJustification -> 0, 
             CounterIncrements -> "NumberedTable", MenuSortingValue -> 2420, 
             FontFamily -> "Times", FontSize -> 12], 
            Cell[
             StyleData["NumberedTable", "Printout"]], 
            Cell[
             StyleData["NumberedTable", "SlideShow"], FontSize -> 24], 
            Cell["Null", "Input"]}, Closed]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell["Styles for Formulas and Programming", "Section"], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["InlineFormula"], CellMargins -> {{10, 4}, {0, 8}}, 
             StripStyleOnPaste -> True, 
             HyphenationOptions -> {
              "HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> 
             "Formula", ScriptLevel -> 1, SingleLetterItalics -> True, 
             MenuSortingValue -> 2500], 
            Cell[
             StyleData["InlineFormula", "Presentation"], 
             CellMargins -> {{10, 4}, {0, 12}}, LineSpacing -> {1, 5}, 
             FontSize -> 24], 
            Cell[
             StyleData["InlineFormula", "Condensed"], 
             CellMargins -> {{8, 10}, {6, 6}}, LineSpacing -> {1, 1}, 
             FontSize -> 11], 
            Cell[
             StyleData["InlineFormula", "Printout"], 
             CellMargins -> {{2, 0}, {6, 6}}], 
            Cell[
             StyleData["InlineFormula", "SlideShow"], FontSize -> 24]}, 
           Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["DisplayFormula"], 
             CellMargins -> {{60, Inherited}, {Inherited, Inherited}}, 
             StripStyleOnPaste -> True, DefaultFormatType -> 
             DefaultInputFormatType, 
             HyphenationOptions -> {
              "HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> 
             "Formula", ScriptLevel -> 0, SingleLetterItalics -> True, 
             MenuSortingValue -> 2520, 
             UnderoverscriptBoxOptions -> {LimitsPositioning -> True}], 
            Cell[
             StyleData["DisplayFormula", "Presentation"], 
             CellMargins -> {{60, Inherited}, {Inherited 1.5, Inherited 1.5}},
              LineSpacing -> {1, 5}, FontSize -> 24], 
            Cell[
             StyleData["DisplayFormula", "Condensed"], LineSpacing -> {1, 1}, 
             FontSize -> 11], 
            Cell[
             StyleData["DisplayFormula", "Printout"]], 
            Cell[
             StyleData["DisplayFormula", "SlideShow"], FontSize -> 24]}, 
           Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["DisplayFormulaNumbered"], 
             CellMargins -> {{60, Inherited}, {Inherited, Inherited}}, 
             StripStyleOnPaste -> True, CellFrameLabels -> {{None, 
                Cell[
                 TextData[{"(", 
                   CounterBox["DisplayFormulaNumbered"], ")"}]]}, {
               None, None}}, DefaultFormatType -> DefaultInputFormatType, 
             HyphenationOptions -> {
              "HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> 
             "Formula", ScriptLevel -> 0, SingleLetterItalics -> True, 
             CounterIncrements -> "DisplayFormulaNumbered", MenuSortingValue -> 
             2540, UnderoverscriptBoxOptions -> {LimitsPositioning -> True}], 
            Cell[
             StyleData["DisplayFormulaNumbered", "Presentation"], 
             CellMargins -> {{60, Inherited}, {Inherited 1.5, Inherited 1.5}},
              LineSpacing -> {1, 5}, FontSize -> 24], 
            Cell[
             StyleData["DisplayFormulaNumbered", "Condensed"], 
             LineSpacing -> {1, 1}, FontSize -> 11], 
            Cell[
             StyleData["DisplayFormulaNumbered", "Printout"]], 
            Cell[
             StyleData["DisplayFormulaNumbered", "SlideShow"], FontSize -> 
             24]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Program"], CellFrame -> {{0, 0}, {0.5, 0.5}}, 
             CellMargins -> {{60, 4}, {0, 8}}, StripStyleOnPaste -> True, 
             Hyphenation -> False, LanguageCategory -> "Formula", ScriptLevel -> 
             1, MenuSortingValue -> 2560, FontFamily -> "Courier"], 
            Cell[
             StyleData["Program", "Presentation"], 
             CellFrame -> {{0, 0}, {1, 1}}, CellMargins -> {{60, 4}, {0, 12}},
              LineSpacing -> {1, 5}, FontSize -> 22], 
            Cell[
             StyleData["Program", "Condensed"], 
             CellMargins -> {{8, 10}, {6, 6}}, LineSpacing -> {1, 1}, 
             FontSize -> 11], 
            Cell[
             StyleData["Program", "Printout"], 
             CellMargins -> {{2, 0}, {6, 6}}], 
            Cell[
             StyleData["Program", "SlideShow"], FontSize -> 22]}, Closed]]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell["Special book styles", "Section"], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Author"], ShowCellBracket -> Automatic, 
             CellMargins -> {{0, 10}, {5, 5}}, 
             CellGroupingRules -> {"TitleGrouping", 20}, PageBreakBelow -> 
             False, TextAlignment -> Center, MenuSortingValue -> 2600, 
             FontFamily -> "Helvetica", FontSize -> 18, FontWeight -> "Bold", 
             FontSlant -> "Italic", FontColor -> RGBColor[0.3, 0.3, 0.7]], 
            Cell[
             StyleData["Author", "Printout"], 
             CellMargins -> {{0, 10}, {0, 2}}], 
            Cell[
             StyleData["Author", "SlideShow"], FontSize -> 28]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Address"], ShowCellBracket -> Automatic, 
             CellMargins -> {{0, 10}, {2, 2}}, 
             CellGroupingRules -> {"TitleGrouping", 30}, PageBreakBelow -> 
             False, TextAlignment -> Center, LineSpacing -> {1, 1}, 
             MenuSortingValue -> 2620, FontFamily -> "Helvetica", FontSize -> 
             14, FontSlant -> "Italic", FontColor -> RGBColor[0.3, 0.3, 0.7]], 
            Cell[
             StyleData["Address", "Printout"], 
             CellMargins -> {{0, 10}, {2, 2}}], 
            Cell[
             StyleData["Address", "SlideShow"], FontSize -> 22]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Abstract"], 
             CellMargins -> {{75, 75}, {Inherited, 15}}, TextJustification -> 
             1, LineSpacing -> {1.3, 0}, MenuSortingValue -> 2640], 
            Cell[
             StyleData["Abstract", "Printout"], 
             CellMargins -> {{75, 75}, {Inherited, 10}}, FontSize -> 10], 
            Cell[
             StyleData["Abstract", "SlideShow"], FontSize -> 22]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Reference"], CellDingbat -> Cell[
               TextData[{"[", 
                 Cell[
                  TextData[{
                    CounterBox["Reference"]}], TextAlignment -> Right], 
                 "] "}], TextAlignment -> Right], ShowCellBracket -> 
             Automatic, CellMargins -> {{100, 20}, {2, 2}}, 
             CellHorizontalScrolling -> True, TextJustification -> 0.5, 
             LineSpacing -> {1.2, 1}, CounterIncrements -> "Reference", 
             MenuSortingValue -> 2660, FontSize -> 12], 
            Cell[
             StyleData["Reference", "Printout"]], 
            Cell[
             StyleData["Reference", "SlideShow"], FontSize -> 22]}, Closed]]},
         Open]], 
      Cell[
       CellGroupData[{
         Cell["Styles for Printed Runningheads and Footers", "Section"], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Header"], CellMargins -> {{0, 0}, {0, 0}}, 
             LineSpacing -> {1, 8}, MenuSortingValue -> None, FontFamily -> 
             "Verdana", FontSize -> 7, FontSlant -> "Italic"], 
            Cell[
             StyleData["Header", "Printout"], Magnification -> 1.]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["HeaderSection"], StyleMenuListing -> None], 
            Cell[
             StyleData["HeaderSection", "Printout"], Magnification -> 1.]}, 
           Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["HeaderSubsection"], StyleMenuListing -> None], 
            Cell[
             StyleData["HeaderSubsection", "Printout"], Magnification -> 1.]},
            Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["HeaderTitle"], StyleMenuListing -> None], 
            Cell[
             StyleData["HeaderTitle", "Printout"], Magnification -> 1.]}, 
           Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["Footer"], CellMargins -> {{0, 0}, {0, 0}}, 
             MenuSortingValue -> None, FontFamily -> "Verdana", FontSize -> 
             6], 
            Cell[
             StyleData["Footer", "Printout"], Magnification -> 1.]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["FooterSection"], StyleMenuListing -> None], 
            Cell[
             StyleData["FooterSection", "Printout"], Magnification -> 1.]}, 
           Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["FooterSubsection"], StyleMenuListing -> None], 
            Cell[
             StyleData["FooterSubsection", "Printout"], Magnification -> 1.]},
            Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["FooterTitle"], StyleMenuListing -> None], 
            Cell[
             StyleData["FooterTitle", "Printout"], Magnification -> 1.]}, 
           Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["PageNumber"], LineSpacing -> {1, 8}, MenuSortingValue -> 
             None, FontFamily -> "Verdana", FontSize -> 7, FontWeight -> 
             "Bold"], 
            Cell[
             StyleData["PageNumber", "Printout"], Magnification -> 1.]}, 
           Closed]]}, Closed]]}, Open]]}, Visible -> False, FrontEndVersion -> 
  "9.0 for Microsoft Windows (64-bit) (January 25, 2013)", StyleDefinitions -> 
  "PrivateStylesheetFormatting.nb"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "SlideShowHeader"->{
  Cell[42866, 985, 64, 1, 1, "SlideShowNavigationBar",
   CellTags->"SlideShowHeader"],
  Cell[74908, 1692, 64, 1, 1, "SlideShowNavigationBar",
   CellTags->"SlideShowHeader"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"SlideShowHeader", 170644, 3662}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 317, 7, 116, "MainTitle",
 Evaluatable->False],
Cell[CellGroupData[{
Cell[921, 33, 120, 1, 68, "MainSection"],
Cell[CellGroupData[{
Cell[1066, 38, 298, 4, 69, "Section",
 Evaluatable->False],
Cell[CellGroupData[{
Cell[1389, 46, 8303, 186, 108, "Input"],
Cell[9695, 234, 5126, 102, 108, "Output"]
}, {2}]],
Cell[CellGroupData[{
Cell[14855, 341, 114, 1, 108, "Th-Env"],
Cell[14972, 344, 492, 13, 108, "Text"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[15513, 363, 351, 5, 54, "Section",
 Evaluatable->False],
Cell[CellGroupData[{
Cell[15889, 372, 8169, 184, 108, "Input"],
Cell[24061, 558, 4909, 99, 108, "Output"]
}, {2}]],
Cell[CellGroupData[{
Cell[29004, 662, 114, 1, 108, "Th-Env"],
Cell[29121, 665, 489, 13, 108, "Text"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[29659, 684, 281, 6, 54, "Section",
 Evaluatable->False],
Cell[CellGroupData[{
Cell[29965, 694, 8018, 186, 108, "Input"],
Cell[37986, 882, 4810, 95, 108, "Output"]
}, {2}]]
}, Closed]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[42866, 985, 64, 1, 1, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[42955, 990, 183, 4, 115, "MainSection"],
Cell[CellGroupData[{
Cell[43163, 998, 342, 7, 69, "Section",
 Evaluatable->False],
Cell[CellGroupData[{
Cell[43530, 1009, 5765, 116, 108, "Input"],
Cell[49298, 1127, 3608, 71, 108, "Output"]
}, {2}]],
Cell[CellGroupData[{
Cell[52940, 1203, 114, 1, 108, "Th-Env"],
Cell[53057, 1206, 480, 17, 108, "Text"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[53586, 1229, 392, 7, 54, "Section",
 Evaluatable->False],
Cell[CellGroupData[{
Cell[54003, 1240, 5983, 120, 108, "Input"],
Cell[59989, 1362, 3576, 73, 108, "Output"]
}, {2}]],
Cell[CellGroupData[{
Cell[63599, 1440, 114, 1, 108, "Th-Env"],
Cell[63716, 1443, 529, 18, 108, "Text"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[64294, 1467, 370, 7, 54, "Section",
 Evaluatable->False],
Cell[CellGroupData[{
Cell[64689, 1478, 6305, 128, 108, "Input"],
Cell[70997, 1608, 3841, 76, 108, "Output"]
}, {2}]]
}, Closed]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[74908, 1692, 64, 1, 1, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[74997, 1697, 357, 9, 115, "MainSection",
 Evaluatable->False],
Cell[CellGroupData[{
Cell[75379, 1710, 8696, 203, 902, "Input"],
Cell[84078, 1915, 5179, 103, 438, "Output"]
}, {2}]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
