(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    141699,       3279]
NotebookOptionsPosition[     56800,       1516]
NotebookOutlinePosition[    138587,       3170]
CellTagsIndexPosition[    138507,       3165]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Exponenci\[AAcute]lis \[EAcute]s logaritmus \
f\[UDoubleDot]ggv\[EAcute]nyek", "MainTitle",
 Evaluatable->False,
 CellHorizontalScrolling->False,
 CellChangeTimes->{{3.49288268184375*^9, 3.49288268753125*^9}, {
  3.493143697125*^9, 3.49314371084375*^9}, {3.638288390657278*^9, 
  3.638288401947294*^9}},
 TextAlignment->Center],

Cell[CellGroupData[{

Cell["Geometriai cs\[ODoubleDot]kken\[EAcute]s", "MainSection",
 CellChangeTimes->{{3.49288755*^9, 3.49288757221875*^9}, {
  3.492887988859375*^9, 3.492887998390625*^9}, {3.493143716703125*^9, 
  3.49314373025*^9}, {3.6323739091491675`*^9, 3.6323739120472364`*^9}, {
  3.6323743468735104`*^9, 3.6323743506662292`*^9}, {3.6382884064973*^9, 
  3.6382884116373076`*^9}}],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["a", 
     RowBox[{"n", "+", "1"}]], "=", 
    RowBox[{"q", " ", 
     SubscriptBox["a", "n"]}]}], TraditionalForm]]],
 "  \[DoubleLongRightArrow] ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["a", 
     RowBox[{"n", " "}]], "=", 
    RowBox[{
     SubscriptBox["a", "0"], 
     SuperscriptBox["q", "n"]}]}], TraditionalForm]]],
 " (0<q<1)"
}], "Text",
 CellChangeTimes->{{3.49288804425*^9, 3.492888166203125*^9}, {
  3.4928881980625*^9, 3.4928881991875*^9}, {3.6323747048171005`*^9, 
  3.6323747183727417`*^9}},
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[TextData[{
 "Gy\[OAcute]gyszerelimin\[AAcute]ci\[OAcute]: minden egyes ",
 Cell[BoxData[
  FormBox[
   RowBox[{"n", " ", "\[Tau]"}], TraditionalForm]], "None"],
 " pilanatban ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    RowBox[{
     RowBox[{"n", "=", "1"}], ",", "2", ",", "3", ",", "..."}], ")"}], 
   TraditionalForm]], "None",
  FormatType->"TraditionalForm"],
 " felez\[ODoubleAcute]d\[EAcute]s"
}], "Section",
 CellChangeTimes->{{3.491020176671875*^9, 3.49102018025*^9}, {
  3.491020221140625*^9, 3.49102022421875*^9}, {3.492887621140625*^9, 
  3.492887627390625*^9}, {3.49288779878125*^9, 3.492887819375*^9}, {
  3.493143734875*^9, 3.493143758109375*^9}, {3.632311530283354*^9, 
  3.632311591791129*^9}, {3.6382884171273155`*^9, 3.6382884606093764`*^9}}],

Cell[TextData[{
 "\t",
 Cell[BoxData[
  FormBox[GridBox[{
     {
      RowBox[{"t", ":"}], "0", "\[Tau]", 
      RowBox[{"2", "\[Tau]"}], 
      RowBox[{"3", "\[Tau]"}], 
      RowBox[{"4", "\[Tau]"}], ".", ".", ".", 
      RowBox[{"n", " ", "\[Tau]"}]},
     {
      RowBox[{"N", ":"}], "1", 
      SuperscriptBox["2", 
       RowBox[{"-", "1"}]], 
      SuperscriptBox["2", 
       RowBox[{"-", "2"}]], 
      SuperscriptBox["2", 
       RowBox[{"-", "3"}]], 
      SuperscriptBox["2", 
       RowBox[{"-", "4"}]], ".", ".", ".", 
      SuperscriptBox["2", 
       RowBox[{"-", "n"}]]}
    }], TraditionalForm]]]
}], "Text",
 CellChangeTimes->{{3.49102019959375*^9, 3.49102020275*^9}, 
   3.49102027090625*^9, {3.49102030371875*^9, 3.491020321578125*^9}, {
   3.491020380859375*^9, 3.491020435140625*^9}, {3.49102046578125*^9, 
   3.4910205524375*^9}, {3.632374420644981*^9, 3.6323744289589157`*^9}, {
   3.632374468059699*^9, 3.6323744913412857`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2", "^", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            FractionBox["1", "\[Tau]"]}], "t"}], ")"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0", ",", 
         RowBox[{"n", " ", "\[Tau]"}]}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Thickness", "[", "0.01", "]"}], "}"}]}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Graphics", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"PointSize", "[", "0.05", "]"}], ",", "Red", ",", 
        RowBox[{"Point", "[", 
         RowBox[{"Map", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"#", " ", "\[Tau]"}], ",", 
              RowBox[{"2", "^", 
               RowBox[{"(", 
                RowBox[{"-", "#"}], " ", ")"}]}]}], "}"}], "&"}], ",", 
           RowBox[{"Range", "[", 
            RowBox[{"0", ",", "n"}], "]"}]}], "]"}], "]"}]}], "}"}], 
      "\[IndentingNewLine]", "]"}], ",", 
     RowBox[{"Axes", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "10"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "1.1"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"AxesOrigin", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}]}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"t", ",", "\"\<m\>\""}], "}"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"250", ",", "250"}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\[Tau]", ",", "1"}], "}"}], ",", "0.01", ",", "3", ",", 
     RowBox[{"Appearance", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<Labeled\>\"", ",", "\"\<Open\>\""}], "}"}]}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"n", ",", "6"}], "}"}], ",", "1", ",", "10", ",", "1", ",", 
     RowBox[{"Appearance", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<Labeled\>\"", ",", "\"\<Open\>\""}], "}"}]}]}], "}"}], 
   ",", 
   RowBox[{"ControlPlacement", "\[Rule]", "Left"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4910206875*^9, 3.491020991296875*^9}, {
   3.49102106159375*^9, 3.491021066125*^9}, {3.491021131546875*^9, 
   3.491021155484375*^9}, {3.491021193109375*^9, 3.4910212579375*^9}, {
   3.4910213493125*^9, 3.491021358484375*^9}, {3.4910213940625*^9, 
   3.49102149928125*^9}, {3.491021662734375*^9, 3.49102168428125*^9}, {
   3.491021774890625*^9, 3.491021794*^9}, {3.491021871875*^9, 
   3.49102187215625*^9}, 3.491021906921875*^9, {3.491021942796875*^9, 
   3.49102194528125*^9}, {3.491021975328125*^9, 3.4910220025625*^9}, {
   3.491022067359375*^9, 3.4910220678125*^9}, {3.491022168296875*^9, 
   3.491022168953125*^9}, {3.491022271359375*^9, 3.4910222794375*^9}, {
   3.49102253478125*^9, 3.4910225380625*^9}, 3.491022591375*^9, {
   3.492887775359375*^9, 3.492887789703125*^9}, {3.49288784028125*^9, 
   3.4928878749375*^9}, {3.4928879089375*^9, 3.492887913046875*^9}, {
   3.492888857421875*^9, 3.492888868953125*^9}, {3.493113363703125*^9, 
   3.4931134383125*^9}, {3.6323741491898985`*^9, 3.63237415688638*^9}, {
   3.6323742128351727`*^9, 3.632374330574917*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`n$$ = 1, $CellContext`\[Tau]$$ = 2.23, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`\[Tau]$$], 1}, 0.01, 3}, {{
       Hold[$CellContext`n$$], 6}, 1, 10, 1}}, Typeset`size$$ = {
    250., {123., 127.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`\[Tau]$24533$$ = 
    0, $CellContext`n$24534$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`n$$ = 6, $CellContext`\[Tau]$$ = 1}, 
      "ControllerVariables" :> {
        Hold[$CellContext`\[Tau]$$, $CellContext`\[Tau]$24533$$, 0], 
        Hold[$CellContext`n$$, $CellContext`n$24534$$, 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" :> Show[
        Plot[{
         2^((-(1/$CellContext`\[Tau]$$)) $CellContext`t)}, {$CellContext`t, 
          0, $CellContext`n$$ $CellContext`\[Tau]$$}, PlotStyle -> {
           Thickness[0.01]}, PlotRange -> {0, 1}], 
        Graphics[{
          PointSize[0.05], Red, 
          Point[
           Map[{# $CellContext`\[Tau]$$, 2^(-#)}& , 
            Range[0, $CellContext`n$$]]]}], Axes -> True, 
        PlotRange -> {{0, 10}, {0, 1.1}}, AxesOrigin -> {0, 0}, 
        AxesLabel -> {$CellContext`t, "m"}, ImageSize -> {250, 250}], 
      "Specifications" :> {{{$CellContext`\[Tau]$$, 1}, 0.01, 3, 
         Appearance -> {"Labeled", "Open"}}, {{$CellContext`n$$, 6}, 1, 10, 1,
          Appearance -> {"Labeled", "Open"}}}, 
      "Options" :> {ControlPlacement -> Left}, "DefaultOptions" :> {}],
     ImageSizeCache->{583., {156., 165.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.493113439515625*^9, {3.632374150798041*^9, 3.6323741577079754`*^9}, {
   3.6323742142962255`*^9, 3.6323742519690194`*^9}, {3.632374288447965*^9, 
   3.632374331404499*^9}}]
}, {2}]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

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

Cell[CellGroupData[{

Cell["Melyik f\[UDoubleDot]ggv\[EAcute]ny pontjai ezek? ", "MainSection",
 CellChangeTimes->{{3.632310761290419*^9, 3.632310813232342*^9}, {
  3.6382884782794013`*^9, 3.638288489321417*^9}}],

Cell[TextData[{
 "Ha ",
 Cell[BoxData[
  FormBox[
   RowBox[{"\[Tau]", "=", "1"}], TraditionalForm]]],
 ", akkor nyilv\[AAcute]nval\[OAcute]an ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["2", 
    RowBox[{"-", "t"}]], TraditionalForm]]],
 "\nMi a helyzet \[AAcute]ltal\[AAcute]nos \[Tau] eset\[EAcute]n?\nNyilv\
\[AAcute]n ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["2", 
    RowBox[{
     RowBox[{"-", "k"}], " ", "t"}]], TraditionalForm]]],
 " valamilyen k eset\[EAcute]n (elemi transzform\[AAcute]ci\[OAcute]val \
megkaphat\[OAcute])!"
}], "Text",
 CellChangeTimes->{{3.6323108204515057`*^9, 3.6323109990735235`*^9}, {
   3.632311620551585*^9, 3.6323117364019566`*^9}, {3.6323743676953125`*^9, 
   3.6323743853578825`*^9}, {3.6323747770815053`*^9, 3.632374797877283*^9}, {
   3.6382884926514215`*^9, 3.6382885540435076`*^9}, 3.6382906995745287`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

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

Cell[CellGroupData[{

Cell["Mi az \[ExponentialE] sz\[AAcute]m? Mi\[EAcute]rt szeretj\[UDoubleDot]k \
olyan nagyon?", "MainSection",
 Evaluatable->False,
 CellChangeTimes->{{3.430450607523029*^9, 3.4304506186990995`*^9}, {
  3.49288405896875*^9, 3.49288408825*^9}, {3.49288529753125*^9, 
  3.492885311625*^9}, {3.493143929890625*^9, 3.4931439424375*^9}, {
  3.632311414114755*^9, 3.632311423844675*^9}, {3.63828856309352*^9, 
  3.638288580933545*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"x", "+", "1"}], ",", 
       RowBox[{
        RowBox[{"-", "x"}], "+", "1"}], ",", 
       RowBox[{"Tooltip", "[", 
        SuperscriptBox["a", "x"], "]"}], ",", 
       RowBox[{"Tooltip", "[", 
        RowBox[{"1", "+", 
         RowBox[{"x", " ", 
          RowBox[{"Log", "[", "a", "]"}]}]}], "]"}], ",", 
       RowBox[{"Tooltip", "[", 
        SuperscriptBox["E", "x"], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "4"}], "}"}]}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", "Blue", ",", " ", 
        RowBox[{"{", 
         RowBox[{"Thick", ",", "Red"}], "}"}], ",", "Green", ",", 
        RowBox[{"{", 
         RowBox[{"Thick", ",", "Black"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotLabel", "\[Rule]", 
      SuperscriptBox["a", "x"]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "1"}], "}"}], ",", "0.1", ",", "5", ",", 
     RowBox[{"Appearance", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<Open\>\"", ",", "\"\<Labeled\>\""}], "}"}]}]}], "}"}], 
   ",", 
   RowBox[{"ControlPlacement", "\[Rule]", "Left"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.3974961242122416`*^9, 3.397496130050637*^9}, {
   3.3974965187495584`*^9, 3.3974965511761856`*^9}, {3.405833852132371*^9, 
   3.4058339346610413`*^9}, {3.405833968970376*^9, 3.405833977352429*^9}, {
   3.4058340441084194`*^9, 3.405834048835216*^9}, {3.430450307441533*^9, 
   3.4304503988830194`*^9}, {3.4304504373984013`*^9, 3.4304505253148193`*^9}, 
   3.430450558752901*^9, 3.492883889484375*^9, {3.4928839423125*^9, 
   3.492883977734375*^9}, {3.49288565375*^9, 3.492885679671875*^9}, {
   3.4928857399375*^9, 3.492885755765625*^9}, {3.49310025046875*^9, 
   3.493100281203125*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a$$ = 1.4100000000000017`, Typeset`show$$ = 
    True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`a$$], 1}, 0.1, 5}}, Typeset`size$$ = {
    360., {133., 138.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`a$11283$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`a$$ = 1}, 
      "ControllerVariables" :> {
        Hold[$CellContext`a$$, $CellContext`a$11283$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Plot[{$CellContext`x + 1, -$CellContext`x + 1, 
         Tooltip[$CellContext`a$$^$CellContext`x], 
         Tooltip[1 + $CellContext`x Log[$CellContext`a$$]], 
         Tooltip[E^$CellContext`x]}, {$CellContext`x, -3, 3}, 
        PlotRange -> {0, 4}, AspectRatio -> Automatic, 
        PlotStyle -> {Blue, Blue, {Thick, Red}, Green, {Thick, Black}}, 
        PlotLabel -> $CellContext`a$$^$CellContext`x], 
      "Specifications" :> {{{$CellContext`a$$, 1}, 0.1, 5, 
         Appearance -> {"Open", "Labeled"}}}, 
      "Options" :> {ControlPlacement -> Left}, "DefaultOptions" :> {}],
     ImageSizeCache->{692., {167., 176.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.49310028190625*^9}]
}, {2}]],

Cell[TextData[{
 "Ha az alap v\[AAcute]ltozik, az \[EAcute]rint\[ODoubleAcute] meredeks\
\[EAcute]ge is v\[AAcute]ltozik!\nVan olyan alap, amelyre az \[EAcute]rint\
\[ODoubleAcute] meredeks\[EAcute]ge 1. \nEkkor az \
\[EAcute]rint\[ODoubleAcute] egyenlete: ",
 Cell[BoxData[
  FormBox[
   RowBox[{"y", "=", 
    RowBox[{"x", "+", "1"}]}], TraditionalForm]]],
 ".\nEz az \[ExponentialE] sz\[AAcute]m:"
}], "Text",
 CellChangeTimes->{{3.49288538353125*^9, 3.4928853983125*^9}, {
   3.49288543640625*^9, 3.49288557815625*^9}, 3.49310035240625*^9, 
   3.638296148784627*^9},
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{"E", ",", "50"}], "]"}]], "Input",
 CellChangeTimes->{{3.49288556971875*^9, 3.4928855705625*^9}, {
  3.493100309328125*^9, 3.49310030975*^9}},
 FontSize->36],

Cell[BoxData["2.\
7182818284590452353602874713526624977572470936999595749667819473231`50."], \
"Output",
 CellChangeTimes->{{3.492885567109375*^9, 3.49288557171875*^9}, 
   3.49310031159375*^9},
 FontSize->36]
}, {2}]],

Cell[TextData[{
 ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]",
  BaseStyle->"SlidePreviousNextLink",
  Appearance->{Automatic, None},
  ButtonFunction:>FrontEndExecute[{
     FrontEndToken[
      FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}],
  ButtonNote->FEPrivate`FrontEndResource[
   "FEStrings", "SlideshowPrevSlideText"]],
 "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]",
 ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]",
  BaseStyle->"SlidePreviousNextLink",
  Appearance->{Automatic, None},
  ButtonFunction:>FrontEndExecute[{
     FrontEndToken[
      FrontEnd`ButtonNotebook[], "ScrollPageNext"]}],
  ButtonNote->FEPrivate`FrontEndResource[
   "FEStrings", "SlideshowNextSlideText"]]
}], "Section",
 TextAlignment->Right]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

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

Cell[CellGroupData[{

Cell["Technikai k\[EAcute]rd\[EAcute]sek", "MainSection",
 CellChangeTimes->{{3.6323112266824207`*^9, 3.6323112449754333`*^9}, {
  3.6382886579276533`*^9, 3.6382886618676586`*^9}, {3.63828914451634*^9, 
  3.6382891493263464`*^9}}],

Cell[CellGroupData[{

Cell[TextData[{
 "Defin\[IAcute]ci\[OAcute] tetsz\[ODoubleAcute]leges ",
 Cell[BoxData[
  FormBox[
   RowBox[{"x", "\[Element]", "R"}], TraditionalForm]], "None"],
 " eset\[EAcute]n"
}], "Section",
 CellChangeTimes->{{3.492882710125*^9, 3.492882712734375*^9}, {
   3.525451248085913*^9, 3.525451248962963*^9}, 3.6323112134319963`*^9, {
   3.632311248550968*^9, 3.6323112646724343`*^9}, {3.638288670627671*^9, 
   3.638288689939698*^9}}],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    RowBox[{"a", 
     StyleBox[">",
      FontSlant->"Plain"], 
     StyleBox["0",
      FontSlant->"Plain"]}]}], TraditionalForm]]],
 ";  ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["a", "x"], TraditionalForm]]],
 ", alap r\[ODoubleDot]gz\[IAcute]tett, kitev\[ODoubleAcute] v\[AAcute]ltozik\
\n"
}], "Text",
 CellChangeTimes->{{3.492882776234375*^9, 3.4928828699375*^9}, {
   3.49288293003125*^9, 3.492883021375*^9}, {3.49288308128125*^9, 
   3.4928830838125*^9}, {3.492883123421875*^9, 3.49288317809375*^9}, 
   3.525240314804609*^9},
 FontWeight->"Bold"],

Cell[TextData[{
 StyleBox["Racion\[AAcute]lis kitev\[ODoubleAcute]:",
  FontWeight->"Bold"],
 " ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["a", "n"], ",", " ", 
    SuperscriptBox["a", "0"], ",", " ", 
    SuperscriptBox["a", 
     RowBox[{"-", "n"}]], ",", " ", 
    SuperscriptBox["a", 
     RowBox[{"1", "/", "n"}]], ",", " ", 
    SuperscriptBox["a", 
     RowBox[{"m", "/", "n"}]]}], TraditionalForm]]],
 " algebrai m\[OAcute]don kisz\[AAcute]molhat\[OAcute]."
}], "Text",
 CellMargins->{{59.6, 0.}, {3., 3.}},
 CellChangeTimes->{{3.492882776234375*^9, 3.4928828699375*^9}, {
  3.49288293003125*^9, 3.492883021375*^9}, {3.49288308128125*^9, 
  3.4928830838125*^9}, {3.492883123421875*^9, 3.492883182546875*^9}, {
  3.49311347084375*^9, 3.4931134765*^9}}],

Cell[TextData[{
 StyleBox["\nIrracion\[AAcute]lis kitev\[ODoubleAcute]:",
  FontWeight->"Bold"],
 "  \tP\[EAcute]lda: \t",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["a", 
    SqrtBox["2"]], TraditionalForm]]],
 "\n\nTudjuk:\n ",
 Cell[BoxData[
  FormBox[
   SqrtBox["2"], TraditionalForm]]],
 "=1.4142135623730950488016887242096980785696718753769480731766797...\n "
}], "Text",
 CellMargins->{{59.6, 0.}, {3., 3.}},
 CellChangeTimes->{{3.492882776234375*^9, 3.4928828699375*^9}, {
  3.49288293003125*^9, 3.492883021375*^9}, {3.49288308128125*^9, 
  3.4928830838125*^9}, {3.492883123421875*^9, 3.492883205640625*^9}, {
  3.492883255953125*^9, 3.492883444109375*^9}, {3.492883528171875*^9, 
  3.492883590125*^9}, {3.4930997955625*^9, 3.49309983075*^9}, {
  3.493113457765625*^9, 3.493113483078125*^9}}],

Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{GridBox[{
     {"x", "1", "1.4", "1.41", "1.414", "1.4142", "1.41421", "1.414213", "...",
       "\[Rule]", 
      SqrtBox["2"]},
     {
      SuperscriptBox["a", "x"], 
      SuperscriptBox["a", "1"], 
      SuperscriptBox["a", "1.4"], 
      SuperscriptBox["a", "1.41"], 
      SuperscriptBox["a", "1.414"], 
      SuperscriptBox["a", "1.4142"], 
      SuperscriptBox["a", "1.41421"], 
      SuperscriptBox["a", "1.414213"], "...", "\[Rule]", 
      SuperscriptBox["a", 
       SqrtBox["2"]]}
    }], "   ", 
   RowBox[{"(", 
    RowBox[{
    "tizedesjegyek", " ", "sz\[AAcute]ma", " ", "tart", " ", "a", " ", 
     "V\[CapitalEAcute]GTELENHEZ"}], ")"}]}], TraditionalForm]], "B-Text",
 CellChangeTimes->{{3.492882776234375*^9, 3.4928828699375*^9}, {
  3.49288293003125*^9, 3.492883021375*^9}, {3.49288308128125*^9, 
  3.4928830838125*^9}, {3.492883123421875*^9, 3.492883205640625*^9}, {
  3.492883255953125*^9, 3.492883444109375*^9}, {3.492883528171875*^9, 
  3.49288356325*^9}, {3.49288359421875*^9, 3.4928837675625*^9}, {
  3.49288384334375*^9, 3.492883863078125*^9}, {3.493015460953125*^9, 
  3.493015468953125*^9}}]], "Text",
 CellMargins->{{62.800000000000004`, 0.}, {3., 3.}},
 CellChangeTimes->{{3.492882776234375*^9, 3.4928828699375*^9}, {
  3.49288293003125*^9, 3.492883021375*^9}, {3.49288308128125*^9, 
  3.4928830838125*^9}, {3.492883123421875*^9, 3.492883205640625*^9}, {
  3.492883255953125*^9, 3.492883444109375*^9}, {3.492883528171875*^9, 
  3.492883590125*^9}, {3.4930997955625*^9, 3.4930998330625*^9}},
 FontWeight->"Bold"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Grafikonok",
 ": ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["a", "x"], ",", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      FractionBox["1", "a"], ")"}], "x"]}], TraditionalForm]]]
}], "Section",
 Evaluatable->False,
 CellChangeTimes->{{3.4304501564444094`*^9, 3.4304501577963533`*^9}, {
   3.492883870359375*^9, 3.49288387278125*^9}, {3.492885096140625*^9, 
   3.4928851239375*^9}, {3.49314386909375*^9, 3.493143870375*^9}, 
   3.6382891354843273`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"GraphicsRow", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Plot", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           SuperscriptBox["a", "x"], ",", 
           SuperscriptBox["a", 
            RowBox[{"-", "x"}]]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", 
           RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
         RowBox[{"PlotRange", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"0", ",", "5"}], "}"}]}], ",", 
         RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"Blue", ",", "Thick"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"Red", ",", "Thick"}], "}"}]}], "}"}]}], ",", 
         RowBox[{"PlotLabel", "\[Rule]", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"Style", "[", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox["1", "a"], ")"}], "X"], ",", "Red", ",", "Bold"}],
              "]"}], "}"}], 
           RowBox[{"Style", "[", 
            RowBox[{
             SuperscriptBox["a", "X"], ",", "Blue", ",", "Bold"}], 
            "]"}]}]}]}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Plot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             SuperscriptBox["aa", "x"], ",", 
             SuperscriptBox["aa", 
              RowBox[{"-", "x"}]]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"aa", ",", "1", ",", "a", ",", "0.1"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", 
           RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
         RowBox[{"PlotRange", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"0", ",", "5"}], "}"}]}], ",", 
         RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"Blue", ",", "Thick"}], "}"}]}]}], "]"}]}], "}"}], ",", 
     RowBox[{"ImageSize", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"600", ",", "250"}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "1"}], "}"}], ",", "1", ",", "3", ",", "0.2", ",", 
     RowBox[{"Appearance", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<Open\>\"", ",", "\"\<Labeled\>\""}], "}"}]}]}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.3974961242122416`*^9, 3.397496130050637*^9}, {
   3.3974965187495584`*^9, 3.3974965511761856`*^9}, {3.405833852132371*^9, 
   3.4058339346610413`*^9}, {3.405833968970376*^9, 3.405833977352429*^9}, {
   3.4058340441084194`*^9, 3.405834048835216*^9}, {3.430450307441533*^9, 
   3.4304503988830194`*^9}, {3.4304504373984013`*^9, 3.4304505253148193`*^9}, 
   3.430450558752901*^9, {3.4304506722661247`*^9, 3.430450782084035*^9}, {
   3.492884005609375*^9, 3.4928840419375*^9}, {3.4928846198125*^9, 
   3.49288464740625*^9}, {3.49288472721875*^9, 3.492884762515625*^9}, {
   3.4928848255625*^9, 3.492884825890625*^9}, {3.492884945234375*^9, 
   3.4928849611875*^9}, {3.492884993796875*^9, 3.4928850455*^9}, {
   3.492885152734375*^9, 3.4928852550625*^9}, {3.4930999223125*^9, 
   3.493099949140625*^9}, {3.49309999609375*^9, 3.49310012078125*^9}, {
   3.49311407828125*^9, 3.493114101546875*^9}, {3.493114153375*^9, 
   3.49311415378125*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a$$ = 1., Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`a$$], 1}, 1, 3, 0.2}}, Typeset`size$$ = {
    750., {153., 160.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`a$4096$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`a$$ = 1}, 
      "ControllerVariables" :> {
        Hold[$CellContext`a$$, $CellContext`a$4096$$, 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" :> GraphicsRow[{
         Plot[{$CellContext`a$$^$CellContext`x, \
$CellContext`a$$^(-$CellContext`x)}, {$CellContext`x, -3, 3}, 
          PlotRange -> {0, 5}, AspectRatio -> Automatic, 
          PlotStyle -> {{Blue, Thick}, {Red, Thick}}, PlotLabel -> {
             Style[(1/$CellContext`a$$)^$CellContext`X, Red, Bold]} 
           Style[$CellContext`a$$^$CellContext`X, Blue, Bold]], 
         Plot[
          
          Table[{$CellContext`aa^$CellContext`x, \
$CellContext`aa^(-$CellContext`x)}, {$CellContext`aa, 1, $CellContext`a$$, 
            0.1}], {$CellContext`x, -3, 3}, PlotRange -> {0, 5}, AspectRatio -> 
          Automatic, PlotStyle -> {Blue, Thick}]}, ImageSize -> {600, 250}], 
      "Specifications" :> {{{$CellContext`a$$, 1}, 1, 3, 0.2, 
         Appearance -> {"Open", "Labeled"}}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{817., {243., 254.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.4304507589908285`*^9, 3.430450783806512*^9}, {
   3.492884032828125*^9, 3.492884043078125*^9}, 3.492884623203125*^9, 
   3.49288467853125*^9, 3.49288476334375*^9, 3.49288482665625*^9, 
   3.492884962734375*^9, 3.49288499675*^9, {3.49288503971875*^9, 
   3.492885046078125*^9}, 3.4928851703125*^9, {3.492885210671875*^9, 
   3.4928852555625*^9}, {3.493015487109375*^9, 3.493015499625*^9}, {
   3.49309995359375*^9, 3.493099960578125*^9}, {3.493100036671875*^9, 
   3.493100058578125*^9}, {3.493100097984375*^9, 3.493100123078125*^9}, {
   3.49311402453125*^9, 3.493114120015625*^9}, 3.493114155875*^9}]
}, {2}]]
}, Closed]],

Cell[CellGroupData[{

Cell["Vegy\[UDoubleDot]k \[EAcute]szre:", "Section",
 CellChangeTimes->{{3.492884103890625*^9, 3.4928841080625*^9}, 
   3.493114299421875*^9}],

Cell[TextData[{
 " ",
 Cell[BoxData[
  FormBox[GridBox[{
     {
      RowBox[{
       RowBox[{"a", ">", "1"}], ":", 
       RowBox[{"monoton", " ", "n\[ODoubleDot]veked\[EAcute]s"}]}], 
      RowBox[{
       RowBox[{"0", "<", " ", "a", "<", "1"}], ":", 
       RowBox[{"monoton", " ", "cs\[ODoubleDot]kken\[EAcute]s"}]}], 
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "x"], "\[EAcute]s", 
        SuperscriptBox["a", 
         RowBox[{"-", "x"}]]}], "=", 
       RowBox[{
        FractionBox["1", 
         SuperscriptBox["a", "x"]], "=", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox["1", "a"], ")"}], "x"]}]}]},
     {
      StyleBox[
       RowBox[{
        RowBox[{
         RowBox[{
          SuperscriptBox["a", "x"], "\[Rule]", "\[Infinity]"}], ",", "  ", 
         RowBox[{
          RowBox[{"x", "\[Rule]", "\[Infinity]"}], ";"}]}], 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          SuperscriptBox["a", "x"], "\[Rule]", "0"}], ",", "  ", 
         RowBox[{"x", "\[Rule]", 
          RowBox[{"-", "\[Infinity]"}]}]}]}], "B-Text"], 
      StyleBox[
       RowBox[{
        RowBox[{
         RowBox[{
          SuperscriptBox["a", "x"], "\[Rule]", "\[Infinity]"}], ",", "  ", 
         RowBox[{
          RowBox[{"x", "\[Rule]", 
           RowBox[{"-", "\[Infinity]"}]}], ";"}]}], "\t", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          SuperscriptBox["a", "x"], "\[Rule]", "0"}], ",", "  ", 
         RowBox[{"x", "\[Rule]", "\[Infinity]"}]}]}], "B-Text"], 
      RowBox[{
       RowBox[{
        RowBox[{
        "t\[UDoubleDot]k\[ODoubleDot]rk\[EAcute]pek", " ", "az", " ", "y"}], 
        "-", "tengelyre"}], "\[IndentingNewLine]", 
       RowBox[{"Egym\[AAcute]s", " ", "reciprokai"}]}]}
    },
    GridBoxDividers->{
     "Columns" -> {{True}}, "ColumnsIndexed" -> {}, 
      "Rows" -> {True, {False}, True}, "RowsIndexed" -> {}}], 
   TraditionalForm]]]
}], "Text",
 CellMargins->{{55.6, 0.}, {3., 3.}},
 CellChangeTimes->{{3.493113714703125*^9, 3.493113761765625*^9}, {
  3.493113800328125*^9, 3.4931138068125*^9}, {3.493113905359375*^9, 
  3.493113911203125*^9}, {3.4931142125*^9, 3.49311428953125*^9}}]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Egy udvarias k\[EAcute]rd\[EAcute]s", "MainSection",
 CellChangeTimes->{{3.632312269464142*^9, 3.632312286736416*^9}, 
   3.6323124152538247`*^9, {3.6323124858880367`*^9, 3.632312487436137*^9}, 
   3.632374630718419*^9, 3.6323746627121744`*^9, {3.6382891769003887`*^9, 
   3.638289181960396*^9}}],

Cell[TextData[{
 "Tegy\[UDoubleDot]k fel, hogy a gy\[OAcute]gyszer \
mennyis\[EAcute]g\[EAcute]nek v\[AAcute]ltoz\[AAcute]s\[AAcute]t a  ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["2", 
    RowBox[{"-", "t"}]], TraditionalForm]]],
 " f\[UDoubleDot]ggv\[EAcute]ny \[IAcute]rja le.\nMennyi a mennyis\[EAcute]g \
a T pillanatban? "
}], "Text",
 CellChangeTimes->{{3.632312290851342*^9, 3.632312412636936*^9}, {
  3.632312443131631*^9, 3.6323124823275037`*^9}, {3.638289204412427*^9, 
  3.6382892642655115`*^9}, {3.6382893261475983`*^9, 3.638289326327598*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Egy udvariatlan k\[EAcute]rd\[EAcute]s \[EAcute]s az inverz f\
\[UDoubleDot]ggv\[EAcute]ny bevezet\[EAcute]se", "MainSection",
 CellChangeTimes->{{3.6323114472303085`*^9, 3.632311492994831*^9}, {
   3.6323121883524113`*^9, 3.6323121996254516`*^9}, {3.6323124896577454`*^9, 
   3.632312493603524*^9}, {3.6323127936479335`*^9, 3.6323128051861467`*^9}, 
   3.632374665283003*^9, {3.638289280605534*^9, 3.6382893048475685`*^9}}],

Cell[TextData[{
 "Tegy\[UDoubleDot]k fel, hogy a gy\[OAcute]gyszer \
mennyis\[EAcute]g\[EAcute]nek v\[AAcute]ltoz\[AAcute]s\[AAcute]t a  ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["2", 
    RowBox[{"-", "t"}]], TraditionalForm]]],
 " f\[UDoubleDot]ggv\[EAcute]ny \[IAcute]rja le.\nMikor \[EAcute]ri el a \
mennyis\[EAcute]g az adott ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["m", "0"], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " \[EAcute]rt\[EAcute]ket? \n\nAzaz oldjuk meg: ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["2", 
     RowBox[{"-", "t"}]], "=", 
    SubscriptBox["m", "0"]}], TraditionalForm]]],
 "!!!"
}], "Text",
 CellChangeTimes->{{3.632312290851342*^9, 3.632312412636936*^9}, {
  3.632312443131631*^9, 3.6323124823275037`*^9}, {3.632312650255973*^9, 
  3.632312661818169*^9}, {3.6382893129075794`*^9, 3.638289454389778*^9}}],

Cell[CellGroupData[{

Cell["Eredm\[EAcute]ny: egyenletek \[EAcute]s inverz f\[UDoubleDot]ggv\
\[EAcute]ny", "Section",
 CellChangeTimes->{{3.632312686654833*^9, 3.6323127254334145`*^9}, {
  3.6382894639997916`*^9, 3.6382894730498047`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVj30803kcwOehtpH9oofdPCTiSCI9qLh8vnKVw7o8lEhyLtW5uJKoXj1Y
t8kpkZeTw9iQq1uMY7nXWfWrRpcjyWQ72Vgj89TIPJT8Tn+8X+8/3n+9baJ/
CorRJ5FIzHk+2y9moA3XnPay9SzuJQgCDH3MTygZIbBZzdtLnSFgQ3FeYQ3j
MGjyLjOXjhPg39L5J5eRCA3cnKcuagJCD0/dz2awgRMj7jr9DwHdrld8Mhg5
MHqW7xFwgwDesm9T0xllkNxcnU63I4BFqXH4hVEL5XWp8ct3z8H+ML5QOyYB
KZkXkn9jFowJVsSuFa3g3fdIfZP6EewDRweeXJUC3yW8pII7A8nPt0LehBzG
vU3DOY7TQK81VejpKQEOKMMTlJNwT+XT3PqVCtgl2X2Z13XwOJZrETasBv3j
iv7KfROg+3IbVhH3Fqizoby7Pu9Bf0aw2MJ+EBbwS3d2rR4HdyLqXnDlMDQm
ySMD3cagmb3xeaPTO1hm6Xbmhp8WrLOGZu6MaiFvTCOvrx+FoSmlomPdOKQ8
57J2mI9A2WB9E+36e7iyymFSHD8ENKvf36nVEyB9cCquT6WBaz+IjvDsJuFo
E3tpN2cAJpFAfezSFGTt7/Q1WfkWEtdLapc/mYZcXd1kiroPlJWSq202H0DB
Jz9L56vhY6y0YPW5j9B/M5ufnfQG1niT547Uz4LTp9lxbbwKdpXYHK2mz4H4
V1uhLKoXkq0O2fZGENDTu8mrLKEHnIf3GncySUjYFTBCOClhCaalSD6Q0M+S
XlFsTDcYPiwQrirUQyavnOOPd3TBjxvr5VR/fZSb3pbe4/kfCL6J5j2Y1EcV
58+9vIfLQDdkvrg/1wAlbI3d/11CJ4iCdxnkfG2ILvrvHayzeAWXfDnFtf2G
6EJjGKSOSMGm209WylmA2NHYzLi0HTw2s3MY6xeiliBPxy9ELyFiReuMXvtC
FOEjJ2+vawNdU4bqBIuMUpId0rbXvIA8w8jEIDsKElhqF2oKWmGJQlSiL6Gg
QX/J7bXjLbDgAitk60kquib3Sbu7rRlIdyKFKjMjJKQTgnpxEyTkCzPMHhsh
WzXoqtY/g/tr0iim8cZoDyXDbaDhKZj6JThfpi1C3jy7DC92I7xe+6L9rHgR
KlLRG255NEBVEdipI02QkWOk5zRdAgeF7qZWcyaIKXtzytzoCaRw+KzXf9CQ
S6jQnal7BBUDVgW0AAxpAgZ6N+o9gjQuJ0qxG0P/xm0aXPwJh8NBI/aVgRhy
2JM/MTKNg6VYXMUMxRCNWkUTaHFIzzzQeC0aQy9Ouga69eBwzP23MaOz8z24
TRb3EAdb9lJfcjmGFsXsQ7cu4jC35bxJ520MWXcRZvxzOMhH3rwsF2BoZaJB
DzcJh6zQmoM7qzG02df+WH48DoRT0CmOGENevs5OxZE4vG7LLDJox9Caci/U
6YXDX6lT37d3YGhDKb1Q5YFDjueh1aUyDHmHXx4ddcfB/5ZL7XYFhuoUlklG
rjj8fablGUsz/9csozKtcchduykzcBhDOx5WL4mywOGkqjDE5h2GeHXbzBLp
ODgGHFfiExiKSkwZLsJwMNSTlmVNYWiLB/5UZIxDj8gzNuoDhjooDbktZBzE
saWu6z7N/3CCw/oNcLhpbawjCAxdiF6HkUg4/A8hfFYh
      "]]}}, 
   {Dashing[{Small, Small}], StrokeForm[RGBColor[1, 0, 0]], EdgeForm[{
    RGBColor[0., 0., 0.], Opacity[1.]}], EdgeForm[None], 
    ArrowBox[{{1.8, -0.006362146049869732}, {1.8, 0.5890743618100915}}]}, 
   {Dashing[{Small, Small}], StrokeForm[RGBColor[1, 0, 0]], EdgeForm[{
    RGBColor[1., 0., 0.], Opacity[1.], AbsoluteThickness[1]}], EdgeForm[None],
     ArrowBox[{{1.8083333333333336`, 0.5761300899000927}, {
     0.03333333333333353, 0.5890743618100918}}]}, 
   {Dashing[{Small, Small}], StrokeForm[RGBColor[0, 0, 1]], EdgeForm[{
    RGBColor[1., 0., 0.], Opacity[1.], AbsoluteThickness[1], 
    Dashing[{Small, Small}]}], EdgeForm[None], 
    ArrowBox[{{0.03774838011127746, 0.9906493833317649}, {1.0225463161274457`,
      0.9781108663545188}}]}, 
   {Dashing[{Small, Small}], StrokeForm[RGBColor[0, 0, 1]], EdgeForm[{
    RGBColor[1., 0., 0.], Opacity[1.], AbsoluteThickness[1], 
    Dashing[{Small, Small}]}], EdgeForm[None], 
    ArrowBox[{{1.0306184303570862`, 0.9781108663545199}, {1.0306184303570862`,
      0.00010654212939731345`}}]}, 
   {Dashing[{Small, Small}], StrokeForm[RGBColor[1, 0, 0]], EdgeForm[{
    RGBColor[1., 0., 0.], Opacity[1.], AbsoluteThickness[1], 
    Dashing[{Small, Small}]}], EdgeForm[None], 
    ArrowBox[{{2.2010749936549914`, 1.4796515454443264`}, {
     2.8872047031744525`, 1.4796515454443264`}}]}, InsetBox[
    StyleBox[
     TagBox[
      RowBox[{"Read", "  ", 
       RowBox[{"f", "(", "x", ")"}]}],
      "RawBoxes"],
     FontSize->12,
     FontSlant->"Italic",
     Background->GrayLevel[1.]], {3.056719101996908, 1.4169589605581008`}, {
    Left, Baseline},
    Alignment->{Left, Top}], 
   {Dashing[{Small, Small}], StrokeForm[RGBColor[0, 0, 1]], EdgeForm[{
    RGBColor[1., 0., 0.], Opacity[1.], AbsoluteThickness[1], 
    Dashing[{Small, Small}]}], EdgeForm[None], 
    ArrowBox[{{2.19300287942535, 1.1481785643099094`}, {2.8791325889448114`, 
     1.1481785643099094`}}]}, InsetBox[
    StyleBox[
     TagBox[
      RowBox[{"Read", "  ", 
       RowBox[{
        OverscriptBox["f", "_"], "(", "x", ")"}]}],
      "RawBoxes"],
     FontSize->12,
     FontSlant->"Italic",
     Background->GrayLevel[1.]], {3.044610930652447, 1.1160345531042166`}, {
    Left, Baseline},
    Alignment->{Left, Top}]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  ImagePadding->{{17.5, 1.}, {15.5, 6.}},
  ImageSize->{Automatic, 181.0084971874737},
  Method->{},
  PlotRange->{{-0.08333333333333334, 4.083333333333333}, {0., 2.}},
  PlotRangeClipping->True,
  PlotRangePadding->Automatic]], "Text",
 CellChangeTimes->{{3.5866099363712573`*^9, 3.5866099432196693`*^9}, {
   3.5866100373034334`*^9, 3.586610065321082*^9}, {3.586610149654829*^9, 
   3.586610150840431*^9}, {3.586610225938962*^9, 3.5866102718352423`*^9}, {
   3.58661032234813*^9, 3.5866103375113564`*^9}, {3.5866103861210413`*^9, 
   3.5866104654315796`*^9}, {3.5866105042132473`*^9, 3.586610662180123*^9}, 
   3.586622560979916*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Logaritmus f\[UDoubleDot]ggv\[EAcute]ny: az exponenci\[AAcute]lis f\
\[UDoubleDot]ggv\[EAcute]ny inverze", "MainSection",
 CellChangeTimes->{{3.4304502150086207`*^9, 3.430450234897219*^9}, {
   3.492885825390625*^9, 3.49288584271875*^9}, {3.493144135046875*^9, 
   3.493144163859375*^9}, 3.6382894905898285`*^9}],

Cell[CellGroupData[{

Cell["Defin\[IAcute]ci\[OAcute]", "Section",
 CellChangeTimes->{{3.49288599071875*^9, 3.49288599559375*^9}, {
   3.4931441661875*^9, 3.493144168390625*^9}, 3.638289508980855*^9}],

Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{" ", 
   RowBox[{
    RowBox[{"a", ">", "0"}], ",", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"x", ">", "0"}], ":", "   ", "y"}], "=", 
     RowBox[{
      RowBox[{
       SubscriptBox["log", "a"], 
       RowBox[{"x", ":", "       ", "x"}]}], " ", "=", " ", 
      RowBox[{
       SuperscriptBox["a", "y"], "=", 
       SuperscriptBox["a", 
        RowBox[{
         SubscriptBox["log", "a"], "x"}]]}]}]}]}]}], 
  TraditionalForm]]]], "Text",
 CellChangeTimes->{{3.49288588690625*^9, 3.492885986328125*^9}, {
  3.49288604353125*^9, 3.492886094640625*^9}},
 FontWeight->"Bold",
 FontSlant->"Plain"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tulajdons\[AAcute]gok", "Section",
 CellChangeTimes->{{3.492886011421875*^9, 3.492886016765625*^9}, {
   3.493144171171875*^9, 3.49314417625*^9}, 3.6382895145508623`*^9}],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"x", ">", "0"}], ":", " ", "x"}], " ", "=", 
    SuperscriptBox["a", 
     RowBox[{
      SubscriptBox["log", "a"], "x"}]]}], TraditionalForm]]],
 "; \t",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"x", "\[Element]", 
     RowBox[{"R", ":", " ", "x"}]}], "=", 
    RowBox[{
     SubscriptBox["log", "a"], " ", 
     SuperscriptBox["a", "x"], " "}]}], TraditionalForm]]],
 "\n\n",
 Cell[BoxData[
  FormBox[
   RowBox[{"x", ",", 
    RowBox[{
     RowBox[{"y", ">", "0"}], ":"}]}], TraditionalForm]]],
 "  \n\t",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     SubscriptBox["log", "a"], "x", " ", "y"}], "=", 
    RowBox[{
     RowBox[{
      SubscriptBox["log", "a"], "x"}], "+", 
     RowBox[{
      SubscriptBox["log", "a"], "y"}]}]}], TraditionalForm]]],
 "\n\t\n \t",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     SubscriptBox["log", "a"], 
     SuperscriptBox["x", "k"]}], "  ", "=", 
    RowBox[{"k", " ", 
     SubscriptBox["log", "a"], "x"}]}], TraditionalForm]]],
 "\n \t\n \t",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     SubscriptBox["log", "a"], "b"}], "=", 
    FractionBox[
     RowBox[{
      SubscriptBox["log", "c"], "b"}], 
     RowBox[{
      SubscriptBox["log", "c"], "a"}]]}], TraditionalForm]]]
}], "Text",
 CellChangeTimes->{{3.49288588690625*^9, 3.492885986328125*^9}, {
  3.492886103421875*^9, 3.492886350390625*^9}},
 FontWeight->"Bold",
 FontSlant->"Plain"]
}, Closed]],

Cell[CellGroupData[{

Cell["Grafikonok", "Section",
 CellChangeTimes->{
  3.49288641284375*^9, {3.493144182453125*^9, 3.493144184046875*^9}, 
   3.638289521300872*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"Tooltip", "[", 
        SuperscriptBox["a", "x"], "]"}], ",", 
       RowBox[{"Tooltip", "[", 
        RowBox[{"Log", "[", 
         RowBox[{"a", ",", "x"}], "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "4"}], ",", "4"}], "}"}]}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", "Blue", ",", "Red"}], "}"}]}], ",", 
     RowBox[{"PlotLabel", "\[Rule]", "a"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "2"}], "}"}], ",", "0.1", ",", "5", ",", 
     RowBox[{"Appearance", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<Open\>\"", ",", "\"\<Labeled\>\""}], "}"}]}]}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.3974961242122416`*^9, 3.397496130050637*^9}, {
   3.3974965187495584`*^9, 3.3974965511761856`*^9}, {3.405833852132371*^9, 
   3.4058339346610413`*^9}, {3.405833968970376*^9, 3.405833977352429*^9}, {
   3.4058340441084194`*^9, 3.405834048835216*^9}, {3.430450307441533*^9, 
   3.4304503988830194`*^9}, {3.4304504373984013`*^9, 3.4304505253148193`*^9}, 
   3.430450558752901*^9, {3.430450813599352*^9, 3.430450946640656*^9}, {
   3.4304509816910563`*^9, 3.4304510240319395`*^9}, {3.493100420421875*^9, 
   3.493100442765625*^9}, {3.49310047646875*^9, 3.49310049578125*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a$$ = 2, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`a$$], 2}, 0.1, 5}}, Typeset`size$$ = {
    450., {228., 236.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`a$12449$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`a$$ = 2}, 
      "ControllerVariables" :> {
        Hold[$CellContext`a$$, $CellContext`a$12449$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Plot[{$CellContext`x, 
         Tooltip[$CellContext`a$$^$CellContext`x], 
         Tooltip[
          Log[$CellContext`a$$, $CellContext`x]]}, {$CellContext`x, -4, 4}, 
        PlotRange -> {-4, 4}, AspectRatio -> Automatic, 
        PlotStyle -> {Black, Blue, Red}, PlotLabel -> $CellContext`a$$], 
      "Specifications" :> {{{$CellContext`a$$, 2}, 0.1, 5, 
         Appearance -> {"Open", "Labeled"}}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{509., {300., 307.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.430450847818557*^9, {3.430450880715861*^9, 3.4304508942052574`*^9}, 
   3.430450947592024*^9, 3.430450993137515*^9, 3.430451025564142*^9, {
   3.493100444421875*^9, 3.49310051884375*^9}}]
}, {2}]]
}, Closed]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

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

Cell[CellGroupData[{

Cell["A felez\[EAcute]si id\[ODoubleAcute] \[EAcute]s k\[EAcute]plete", \
"MainSection",
 CellChangeTimes->{{3.63231174454675*^9, 3.632311759848649*^9}, {
  3.632311815529266*^9, 3.6323118234378624`*^9}, {3.632374521855961*^9, 
  3.632374522330306*^9}, {3.638289549102911*^9, 3.638289555032919*^9}}],

Cell[TextData[{
 " ",
 Cell[BoxData[
  FormBox[
   RowBox[{"0", "<", "a", "<", "1"}], TraditionalForm]]],
 ": \nT: felez\[EAcute]si id\[ODoubleAcute]: ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["a", 
     RowBox[{"t", "+", "T"}]], "=", 
    RowBox[{
     FractionBox["1", "2"], 
     SuperscriptBox["a", "t"]}]}], TraditionalForm]]],
 "\t\tInnen: \t",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["a", "T"], "=", 
    FractionBox["1", "2"]}], TraditionalForm]]],
 "\[DoubleLongRightArrow] ",
 Cell[BoxData[
  FormBox[
   RowBox[{"T", "=", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "1"}], "/", 
      SubscriptBox["log", "2"]}], "a"}]}], TraditionalForm]]]
}], "Text",
 CellMargins->{{60., 150.39999999999998`}, {4., 4.}},
 CellChangeTimes->{{3.492886653671875*^9, 3.492886830796875*^9}, {
   3.492886878953125*^9, 3.49288687975*^9}, {3.492886923140625*^9, 
   3.49288692525*^9}, {3.492887061171875*^9, 3.492887063046875*^9}, {
   3.493114362140625*^9, 3.493114388328125*^9}, {3.556209133927165*^9, 
   3.556209330844475*^9}, 3.6382907367965813`*^9, 3.6382960336527586`*^9},
 FontWeight->"Bold",
 FontSlant->"Plain"],

Cell[TextData[{
 "Vagy az ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", "k"}], " ", "t"}]], TraditionalForm]]],
 " alak eset\[EAcute]n (",
 Cell[BoxData[
  FormBox[
   RowBox[{"k", " ", "=", " ", 
    RowBox[{"-", " ", 
     RowBox[{"ln", "(", "a"}]}]}], TraditionalForm]]],
 ")):  ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{"-", "k"}], " ", "T"}]], "=", " ", 
    FractionBox["1", "2"]}], TraditionalForm]]],
 " \[DoubleLongRightArrow] ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"k", " ", "T"}], " ", "=", " ", 
    RowBox[{"ln", "(", "2", ")"}]}], TraditionalForm]]]
}], "Text",
 CellMargins->{{60., 150.39999999999998`}, {4., 4.}},
 CellChangeTimes->{{3.492886653671875*^9, 3.492886830796875*^9}, {
   3.492886878953125*^9, 3.49288687975*^9}, {3.492886923140625*^9, 
   3.49288692525*^9}, {3.492887061171875*^9, 3.492887063046875*^9}, {
   3.493114362140625*^9, 3.493114388328125*^9}, {3.556209133927165*^9, 
   3.556209330844475*^9}, {3.6382907367965813`*^9, 3.6382907408265867`*^9}, 
   3.638296028959401*^9, 3.663481898469048*^9},
 FontWeight->"Bold",
 FontSlant->"Plain"],

Cell[TextData[{
 "Vagy az ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["2", 
    RowBox[{
     RowBox[{"-", "k"}], " ", "t"}]], TraditionalForm]]],
 " alak eset\[EAcute]n (",
 Cell[BoxData[
  FormBox[
   RowBox[{"k", " ", "=", " ", 
    RowBox[{"-", " "}]}], TraditionalForm]]],
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["log", "2"], "a"}], TraditionalForm]]],
 "):  ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["2", 
     RowBox[{
      RowBox[{"-", "k"}], " ", "T"}]], "=", " ", 
    FractionBox["1", "2"]}], TraditionalForm]]],
 " \[DoubleLongRightArrow] ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"k", " ", "T"}], " ", "=", " ", "1"}], TraditionalForm]]],
 " \[DoubleLongRightArrow] ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["2", 
    RowBox[{"-", " ", 
     FractionBox["t", "T"]}]], TraditionalForm]]],
 "\n"
}], "Text",
 CellMargins->{{60., 150.39999999999998`}, {4., 4.}},
 CellChangeTimes->{{3.492886653671875*^9, 3.492886830796875*^9}, {
   3.492886878953125*^9, 3.49288687975*^9}, {3.492886923140625*^9, 
   3.49288692525*^9}, {3.492887061171875*^9, 3.492887063046875*^9}, {
   3.493114362140625*^9, 3.493114388328125*^9}, {3.556209133927165*^9, 
   3.556209330844475*^9}, {3.6382907367965813`*^9, 3.6382907408265867`*^9}, 
   3.638296028959401*^9, {3.66348190137341*^9, 3.663482024954979*^9}},
 FontWeight->"Bold",
 FontSlant->"Plain"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"Tooltip", "[", 
       SuperscriptBox["a", "x"], "]"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "3"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1"}], "}"}]}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", "Thick"}], "}"}]}], ",", 
     RowBox[{"PlotLabel", "\[Rule]", "a"}], ",", 
     RowBox[{"Prolog", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Red", ",", "Thick", ",", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "1"}], "}"}]}], "}"}], "]"}], ",", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "1"}], "/", 
              RowBox[{"Log", "[", 
               RowBox[{"2", ",", "a"}], "]"}]}], ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "1"}], "/", 
              RowBox[{"Log", "[", 
               RowBox[{"2", ",", "a"}], "]"}]}], ",", "0.5"}], "}"}]}], "}"}],
          "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "2"}], "/", 
              RowBox[{"Log", "[", 
               RowBox[{"2", ",", "a"}], "]"}]}], ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "2"}], "/", 
              RowBox[{"Log", "[", 
               RowBox[{"2", ",", "a"}], "]"}]}], ",", "0.25"}], "}"}]}], 
          "}"}], "]"}], ",", "Black", ",", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0.5"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "1"}], "/", 
              RowBox[{"Log", "[", 
               RowBox[{"2", ",", "a"}], "]"}]}], ",", "0.5"}], "}"}]}], "}"}],
          "]"}], ",", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "1"}], "/", 
              RowBox[{"Log", "[", 
               RowBox[{"2", ",", "a"}], "]"}]}], ",", "0.25"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "2"}], "/", 
              RowBox[{"Log", "[", 
               RowBox[{"2", ",", "a"}], "]"}]}], ",", "0.25"}], "}"}]}], 
          "}"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"500", ",", "250"}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "0.5"}], "}"}], ",", "0.1", ",", "1"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.3974961242122416`*^9, 3.397496130050637*^9}, {
   3.3974965187495584`*^9, 3.3974965511761856`*^9}, {3.405833852132371*^9, 
   3.4058339346610413`*^9}, {3.405833968970376*^9, 3.405833977352429*^9}, {
   3.4058340441084194`*^9, 3.405834048835216*^9}, {3.430450307441533*^9, 
   3.4304503988830194`*^9}, {3.4304504373984013`*^9, 3.4304505253148193`*^9}, 
   3.430450558752901*^9, {3.49275845165625*^9, 3.492758589640625*^9}, {
   3.492758625421875*^9, 3.492758703375*^9}, {3.49275876725*^9, 
   3.492758814015625*^9}, {3.492758883296875*^9, 3.49275894178125*^9}, {
   3.492758980390625*^9, 3.4927590713125*^9}, {3.493114412921875*^9, 
   3.493114427328125*^9}, {3.493114463328125*^9, 3.49311446375*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a$$ = 0.231, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`a$$], 0.5}, 0.1, 1}}, Typeset`size$$ = {
    500., {123., 127.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`a$4308$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`a$$ = 0.5}, 
      "ControllerVariables" :> {
        Hold[$CellContext`a$$, $CellContext`a$4308$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Plot[{
         Tooltip[$CellContext`a$$^$CellContext`x]}, {$CellContext`x, 0, 3}, 
        PlotRange -> {0, 1}, AspectRatio -> Automatic, 
        PlotStyle -> {Blue, Thick}, PlotLabel -> $CellContext`a$$, 
        Prolog -> {Red, Thick, 
          Line[{{0, 0}, {0, 1}}], 
          
          Line[{{(-1)/Log[2, $CellContext`a$$], 0}, {(-1)/Log[
             2, $CellContext`a$$], 0.5}}], 
          
          Line[{{(-2)/Log[2, $CellContext`a$$], 0}, {(-2)/Log[
             2, $CellContext`a$$], 0.25}}], Black, 
          Line[{{0, 0.5}, {(-1)/Log[2, $CellContext`a$$], 0.5}}], 
          
          Line[{{(-1)/Log[2, $CellContext`a$$], 0.25}, {(-2)/Log[
             2, $CellContext`a$$], 0.25}}]}, ImageSize -> {500, 250}], 
      "Specifications" :> {{{$CellContext`a$$, 0.5}, 0.1, 1}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{555., {174., 183.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.4058338738936625`*^9, 3.405833935061618*^9}, 
   3.405833979034848*^9, 3.4058340494460945`*^9, {3.430450338366*^9, 
   3.430450348069954*^9}, 3.4304504083366127`*^9, 3.430450442325486*^9, {
   3.43045048282372*^9, 3.430450526366331*^9}, 3.430450559333736*^9, 
   3.4927585144375*^9, {3.492758580109375*^9, 3.49275859096875*^9}, {
   3.492758643234375*^9, 3.492758680234375*^9}, {3.492758771015625*^9, 
   3.492758842875*^9}, 3.492758888515625*^9, 3.492758945171875*^9, {
   3.492759010546875*^9, 3.4927590274375*^9}, {3.492759064625*^9, 
   3.492759071890625*^9}, 3.493114429265625*^9, 3.49311446478125*^9}]
}, {2}]]
}, Open  ]]
}, Open  ]]
},
ScreenStyleEnvironment->"SlideShow",
WindowSize->{1286, 725},
WindowMargins->{{-8, Automatic}, {Automatic, -8}},
ShowCellLabel->True,
ShowCellTags->False,
FrontEndVersion->"10.3 for Microsoft Windows (64-bit) (December 10, 2015)",
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 -> 
  "10.3 for Microsoft Windows (64-bit) (December 10, 2015)", StyleDefinitions -> 
  "PrivateStylesheetFormatting.nb"],
PrivateNotebookOptions -> {"ColorPalette" -> {RGBColor, -1}},
RenderingOptions -> {"ObjectDithering" -> True},
RenderingOptions -> {"RasterDithering" -> False}
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "SlideShowHeader"->{
  Cell[10000, 270, 64, 1, 1, "SlideShowNavigationBar",
   CellTags->"SlideShowHeader"],
  Cell[11190, 308, 64, 1, 1, "SlideShowNavigationBar",
   CellTags->"SlideShowHeader"],
  Cell[17717, 477, 64, 1, 1, "SlideShowNavigationBar",
   CellTags->"SlideShowHeader"],
  Cell[45827, 1214, 64, 1, 1, "SlideShowNavigationBar",
   CellTags->"SlideShowHeader"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"SlideShowHeader", 138130, 3153}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 333, 7, 93, "MainTitle",
 Evaluatable->False],
Cell[CellGroupData[{
Cell[925, 33, 367, 5, 54, "MainSection"],
Cell[1295, 40, 616, 22, 46, "Text"],
Cell[CellGroupData[{
Cell[1936, 66, 771, 19, 55, "Section"],
Cell[2710, 87, 954, 28, 79, "Text"],
Cell[CellGroupData[{
Cell[3689, 119, 3626, 89, 457, "Input"],
Cell[7318, 210, 2612, 52, 356, "Output"]
}, {2}]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[10000, 270, 64, 1, 1, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[10089, 275, 190, 2, 54, "MainSection"],
Cell[10282, 279, 859, 23, 111, "Text"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[11190, 308, 64, 1, 1, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[11279, 313, 429, 7, 54, "MainSection",
 Evaluatable->False],
Cell[CellGroupData[{
Cell[11733, 324, 2107, 51, 796, "Input"],
Cell[13843, 377, 1973, 39, 378, "Output"]
}, {2}]],
Cell[15828, 419, 591, 14, 139, "Text"],
Cell[CellGroupData[{
Cell[16444, 437, 201, 5, 796, "Input"],
Cell[16648, 444, 209, 5, 122, "Output"]
}, {2}]],
Cell[16869, 452, 799, 19, 55, "Section"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[17717, 477, 64, 1, 1, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[17806, 482, 230, 3, 54, "MainSection"],
Cell[CellGroupData[{
Cell[18061, 489, 436, 10, 55, "Section"],
Cell[18500, 501, 620, 20, 158, "Text"],
Cell[19123, 523, 776, 21, 65, "Text"],
Cell[19902, 546, 802, 20, 401, "Text"],
Cell[20707, 568, 1592, 35, 247, "Text"]
}, Closed]],
Cell[CellGroupData[{
Cell[22336, 608, 491, 15, 61, "Section",
 Evaluatable->False],
Cell[CellGroupData[{
Cell[22852, 627, 3571, 87, 796, "Input"],
Cell[26426, 716, 2803, 52, 843, "Output"]
}, {2}]]
}, Closed]],
Cell[CellGroupData[{
Cell[29275, 774, 142, 2, 44, "Section"],
Cell[29420, 778, 2213, 64, 240, "Text"]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[31682, 848, 302, 4, 54, "MainSection"],
Cell[31987, 854, 560, 12, 156, "Text"]
}, Closed]],
Cell[CellGroupData[{
Cell[32584, 871, 430, 5, 54, "MainSection"],
Cell[33017, 878, 875, 24, 281, "Text"],
Cell[CellGroupData[{
Cell[33917, 906, 217, 3, 107, "Section"],
Cell[34137, 911, 4812, 95, 391, "Text"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[38998, 1012, 318, 4, 54, "MainSection"],
Cell[CellGroupData[{
Cell[39341, 1020, 178, 2, 107, "Section"],
Cell[39522, 1024, 651, 21, 93, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[40210, 1050, 176, 2, 107, "Section"],
Cell[40389, 1054, 1500, 59, 962, "Text"]
}, Closed]],
Cell[CellGroupData[{
Cell[41926, 1118, 145, 3, 83, "Section"],
Cell[CellGroupData[{
Cell[42096, 1125, 1671, 39, 796, "Input"],
Cell[43770, 1166, 1987, 40, 2978, "Output"]
}, {2}]]
}, Closed]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[45827, 1214, 64, 1, 1, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[45916, 1219, 299, 4, 54, "MainSection"],
Cell[46218, 1225, 1149, 36, 75, "Text"],
Cell[47370, 1263, 1205, 36, 44, "Text"],
Cell[48578, 1301, 1392, 45, 80, "Text"],
Cell[CellGroupData[{
Cell[49995, 1350, 3963, 105, 796, "Input"],
Cell[53961, 1457, 2802, 54, 392, "Output"]
}, {2}]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
