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

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

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[    190785,       4129]
NotebookOptionsPosition[     98560,       2276]
NotebookOutlinePosition[    184655,       4017]
CellTagsIndexPosition[    184575,       4012]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"c1c9e07c-8435-4106-b409-c59b3c88a283"],

Cell["Test mozg\[AAcute]sa, v\[AAcute]ltoz\[AAcute]si sebess\[EAcute]g", \
"MainTitle",
 CellChangeTimes->{{3.41553559996875*^9, 3.415535601796875*^9}, {
  3.417583007965717*^9, 3.4175830237383966`*^9}, {3.4908894002532005`*^9, 
  3.4908894114875755`*^9}, {3.49288976203125*^9, 3.492889784140625*^9}, {
  3.492921223296875*^9, 3.492921225734375*^9}, {3.6635732011081605`*^9, 
  3.663573211442752*^9}},ExpressionUUID->"eb1f1137-9899-4ebb-8c65-\
ec61bb34d146"],

Cell[CellGroupData[{

Cell["Eml\[EAcute]keztet\[ODoubleAcute]: egyenes vonal\[UAcute] egyenletes \
mozg\[AAcute]s", "MainSection",
 CellChangeTimes->{{3.4908896546282005`*^9, 3.4908896763938255`*^9}, {
  3.4908944736594505`*^9, 3.4908944804719505`*^9}, {3.492889796765625*^9, 
  3.492889811953125*^9}, {3.492890106671875*^9, 3.492890117953125*^9}, {
  3.663573291624338*^9, 
  3.6635732923943815`*^9}},ExpressionUUID->"52e51d6c-0ef5-4993-b25d-\
15ef0e61c761"],

Cell[TextData[{
 " ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"s", " ", 
     RowBox[{"(", "t", ")"}]}], " ", "=", 
    RowBox[{
     RowBox[{"s", "(", 
      SubscriptBox["t", "0"], ")"}], "+", " ", 
     RowBox[{"v", " ", 
      RowBox[{"(", 
       RowBox[{"t", "-", 
        SubscriptBox["t", "0"]}], ")"}]}]}]}], TraditionalForm]],
  ExpressionUUID->"09672a7c-42a4-4e9d-bb82-010ce1821a4a"],
 "  \[DoubleLongRightArrow]",
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    RowBox[{"v", "=", 
     RowBox[{
      FractionBox[
       RowBox[{"\[CapitalDelta]", " ", "s"}], 
       RowBox[{"\[CapitalDelta]", " ", "t"}]], "=", " ", 
      "\[CapitalAAcute]lland\[OAcute]"}]}]}], TraditionalForm]],
  ExpressionUUID->"2e2701f6-7e02-40ef-b556-a598480945ba"]
}], "Text",
 CellChangeTimes->{{3.4928901606875*^9, 3.492890291875*^9}, {
  3.6635732265346146`*^9, 
  3.6635732273386607`*^9}},ExpressionUUID->"3044ddef-87a1-40c3-a03a-\
973a70430bd7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Evaluate", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"a", "*", 
         RowBox[{"(", 
          RowBox[{"z", "-", 
           RowBox[{"p", "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}], " ", "+", 
        RowBox[{"p", "[", 
         RowBox[{"[", "2", "]"}], "]"}]}], "}"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"z", ",", 
       RowBox[{"-", "r"}], ",", "r"}], "}"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "r"}], ",", "r"}], "}"}]}], ",", 
     RowBox[{"PlotLabel", "\[Rule]", 
      RowBox[{"TraditionalForm", "[", 
       RowBox[{
        RowBox[{"a", "*", 
         RowBox[{"(", 
          RowBox[{"t", "-", 
           RowBox[{"p", "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}], " ", "+", 
        RowBox[{"p", "[", 
         RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Thickness", "[", "0.01", "]"}], "}"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Prolog", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Red", ",", 
        RowBox[{"Text", "[", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"\[Delta]", ",", "Bold"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"p", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "+", 
             RowBox[{"\[Delta]", "/", "2"}]}], ",", 
            RowBox[{
             RowBox[{"p", "[", 
              RowBox[{"[", "2", "]"}], "]"}], "-", "0.1"}]}], "}"}]}], "]"}], 
        ",", 
        RowBox[{"Text", "[", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{
            RowBox[{"a", " ", "\[Delta]"}], ",", "Bold"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"p", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "+", "\[Delta]", "+", "0.2"}], 
            ",", 
            RowBox[{
             RowBox[{"p", "[", 
              RowBox[{"[", "2", "]"}], "]"}], "+", 
             RowBox[{"a", " ", 
              RowBox[{"\[Delta]", "/", "2"}]}]}]}], "}"}]}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Opacity", "[", "0.5", "]"}], ",", 
        RowBox[{"Thickness", "[", "0.01", "]"}], ",", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"p", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", 
              RowBox[{"p", "[", 
               RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{"p", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "+", "\[Delta]"}], ",", 
              RowBox[{"p", "[", 
               RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{"p", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "+", "\[Delta]"}], ",", 
              RowBox[{
               RowBox[{"p", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "+", 
               RowBox[{"a", " ", "\[Delta]"}]}]}], "}"}]}], "}"}], "}"}], 
         "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"ImageSize", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"250", ",", "250"}], "}"}]}]}], "]"}], ",", 
   "\[IndentingNewLine]", "Delimiter", ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "1", ",", "\"\<a\>\""}], "}"}], ",", 
     RowBox[{"-", "3"}], ",", "3", ",", 
     RowBox[{"ImageSize", "\[Rule]", "Small"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\[Delta]", ",", "1"}], "}"}], ",", "0.1", ",", "r", ",", 
     RowBox[{"ImageSize", "\[Rule]", "Small"}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"r", ",", "2", ",", "\"\<Range\>\""}], "}"}], ",", "1", ",", 
     "10", ",", 
     RowBox[{"ImageSize", "\[Rule]", "Small"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"p", ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "r"}], ",", 
       RowBox[{"-", "r"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"r", ",", "r"}], "}"}], ",", "Locator"}], "}"}], ",", 
   RowBox[{"ControlPlacement", "\[Rule]", "Left"}]}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellChangeTimes->{{3.4233756598856335`*^9, 3.4233756637612066`*^9}, {
   3.4233757001635504`*^9, 3.423375907091098*^9}, {3.423375948380469*^9, 
   3.4233761979793744`*^9}, {3.423376242893958*^9, 3.423376277704013*^9}, {
   3.423376360873605*^9, 3.4233763669122877`*^9}, {3.4233764142203135`*^9, 
   3.423376478452675*^9}, {3.423376509697603*^9, 3.4233765106089134`*^9}, {
   3.423376545649299*^9, 3.4233766266357517`*^9}, {3.423376704647928*^9, 
   3.4233767475596323`*^9}, {3.42337686417732*^9, 3.4233768968442926`*^9}, {
   3.4233769304926767`*^9, 3.423376932926176*^9}, {3.4233770378670735`*^9, 
   3.423377065326558*^9}, {3.423377140885206*^9, 3.423377154825251*^9}, {
   3.4233772074208803`*^9, 3.423377210605459*^9}, {3.423377313002699*^9, 
   3.4233773296566467`*^9}, {3.423377425654685*^9, 3.4233774341268673`*^9}, {
   3.430065508504339*^9, 3.4300655757310066`*^9}, {3.4300656063550415`*^9, 
   3.4300657041656866`*^9}, {3.430065735580859*^9, 3.4300657962280655`*^9}, {
   3.430065878536419*^9, 3.4300659109930897`*^9}, {3.4300659788907213`*^9, 
   3.430065998198485*^9}, {3.4908917830969505`*^9, 3.4908918268000755`*^9}, {
   3.4908918683782005`*^9, 3.4908918877844505`*^9}, {3.4908920997844505`*^9, 
   3.4908921263782005`*^9}, {3.4908922186750755`*^9, 
   3.4908922210500755`*^9}, {3.4908922568625755`*^9, 
   3.4908924256125755`*^9}, {3.4908924868938255`*^9, 
   3.4908925091438255`*^9}, {3.4908943103313255`*^9, 
   3.4908944150500755`*^9}, {3.4909744173125*^9, 3.49097444646875*^9}, {
   3.490974484015625*^9, 3.490974551296875*^9}, {3.49097458259375*^9, 
   3.49097463475*^9}, 3.49128201803125*^9, {3.4912820804375*^9, 
   3.491282086859375*^9}, {3.491282241828125*^9, 3.49128230878125*^9}, {
   3.491282338953125*^9, 3.491282417609375*^9}, {3.491282454375*^9, 
   3.491282597078125*^9}, {3.491282638875*^9, 3.49128265809375*^9}, {
   3.491282692375*^9, 3.4912826995*^9}, 3.4928903089375*^9, {
   3.492890339953125*^9, 3.49289035146875*^9}, {3.6635732462537427`*^9, 
   3.6635732533421483`*^9}},ExpressionUUID->"5c4391c1-f66b-480d-9c10-\
268d0c10fddd"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a$$ = 
    0.8900000000000001, $CellContext`p$$ = {-0.8, 
    0.33999999999999986`}, $CellContext`r$$ = 2, $CellContext`\[Delta]$$ = 1, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`a$$], 1, "a"}, -3, 3}, {{
       Hold[$CellContext`\[Delta]$$], 1}, 0.1, 
      Dynamic[$CellContext`r$$]}, {{
       Hold[$CellContext`r$$], 2, "Range"}, 1, 10}, {{
       Hold[$CellContext`p$$], {0, 0}}, 
      Dynamic[{-$CellContext`r$$, -$CellContext`r$$}], 
      Dynamic[{$CellContext`r$$, $CellContext`r$$}]}}, Typeset`size$$ = {
    313., {151., 162.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`a$222652$$ = 
    0, $CellContext`\[Delta]$222653$$ = 0, $CellContext`r$222654$$ = 
    0, $CellContext`p$222655$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`a$$ = 
        1, $CellContext`p$$ = {0, 0}, $CellContext`r$$ = 
        2, $CellContext`\[Delta]$$ = 1}, "ControllerVariables" :> {
        Hold[$CellContext`a$$, $CellContext`a$222652$$, 0], 
        Hold[$CellContext`\[Delta]$$, $CellContext`\[Delta]$222653$$, 0], 
        Hold[$CellContext`r$$, $CellContext`r$222654$$, 0], 
        Hold[$CellContext`p$$, $CellContext`p$222655$$, 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[
        Evaluate[{$CellContext`a$$ ($CellContext`z - 
            Part[$CellContext`p$$, 1]) + 
          Part[$CellContext`p$$, 
            2]}], {$CellContext`z, -$CellContext`r$$, $CellContext`r$$}, 
        AspectRatio -> Automatic, 
        PlotRange -> {-$CellContext`r$$, $CellContext`r$$}, PlotLabel -> 
        TraditionalForm[$CellContext`a$$ ($CellContext`t - 
            Part[$CellContext`p$$, 1]) + Part[$CellContext`p$$, 2]], 
        PlotStyle -> {
          Thickness[0.01]}, Prolog -> {Red, 
          Text[
           Style[$CellContext`\[Delta]$$, Bold], {
           Part[$CellContext`p$$, 1] + $CellContext`\[Delta]$$/2, 
            Part[$CellContext`p$$, 2] - 0.1}], 
          Text[
           Style[$CellContext`a$$ $CellContext`\[Delta]$$, Bold], {
           Part[$CellContext`p$$, 1] + $CellContext`\[Delta]$$ + 0.2, 
            Part[$CellContext`p$$, 
              2] + $CellContext`a$$ ($CellContext`\[Delta]$$/2)}], 
          Opacity[0.5], 
          Thickness[0.01], 
          Line[{{{
              Part[$CellContext`p$$, 1], 
              Part[$CellContext`p$$, 2]}, {
             Part[$CellContext`p$$, 1] + $CellContext`\[Delta]$$, 
              Part[$CellContext`p$$, 2]}, {
             Part[$CellContext`p$$, 1] + $CellContext`\[Delta]$$, 
              Part[$CellContext`p$$, 
                2] + $CellContext`a$$ $CellContext`\[Delta]$$}}}]}, 
        ImageSize -> {250, 250}], 
      "Specifications" :> {
       Delimiter, {{$CellContext`a$$, 1, "a"}, -3, 3, ImageSize -> 
         Small}, {{$CellContext`\[Delta]$$, 1}, 0.1, 
         Dynamic[$CellContext`r$$], ImageSize -> 
         Small}, {{$CellContext`r$$, 2, "Range"}, 1, 10, ImageSize -> 
         Small}, {{$CellContext`p$$, {0, 0}}, 
         Dynamic[{-$CellContext`r$$, -$CellContext`r$$}], 
         Dynamic[{$CellContext`r$$, $CellContext`r$$}], ControlType -> 
         Locator}}, "Options" :> {ControlPlacement -> Left}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{584., {200., 211.}},
     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.4908922224094505`*^9, {3.4908922633469505`*^9, 3.4908923285813255`*^9}, {
   3.4908923827532005`*^9, 3.4908924265969505`*^9}, 3.4908925099563255`*^9, {
   3.4908943111282005`*^9, 3.4908943387844505`*^9}, 3.4908943746907005`*^9, {
   3.4908944056438255`*^9, 3.4908944157532005`*^9}, 3.490974439109375*^9, {
   3.49097452771875*^9, 3.490974553421875*^9}, 3.4909745838125*^9, {
   3.490974616859375*^9, 3.490974635453125*^9}, 3.491282254109375*^9, 
   3.491282310171875*^9, 3.491282374171875*^9, 3.491282418203125*^9, {
   3.491282457375*^9, 3.4912824775*^9}, {3.491282570453125*^9, 
   3.491282597828125*^9}, {3.491282640140625*^9, 3.49128265878125*^9}, 
   3.491282700078125*^9, 3.492890314078125*^9, 3.492890352171875*^9, 
   3.66357326089158*^9},ExpressionUUID->"86e82f2a-7049-4d17-93e9-\
8bed50d692bf"]
}, {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"]]
}], "PreviousNext",ExpressionUUID->"0ccd79f7-8b34-4c59-a15b-d2719194f2f4"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"fdeb32c9-b5ae-4490-abe2-5f1d7d330e38"],

Cell[CellGroupData[{

Cell["Probl\[EAcute]ma ", "MainSection",
 CellChangeTimes->{{3.492890380296875*^9, 
  3.4928904240625*^9}},ExpressionUUID->"f95f08d3-a73a-41d7-b5dd-cef83c96e424"],

Cell[CellGroupData[{

Cell["Mi van akkor, ha a mozg\[AAcute]s nem egyenletes, \
p\[EAcute]ld\[AAcute]ul", "Th-Env",
 CellChangeTimes->{{3.492890468078125*^9, 3.492890471515625*^9}, {
  3.492890702390625*^9, 
  3.492890703140625*^9}},ExpressionUUID->"76b7666d-46b1-4aa4-bf9a-\
5ecc0e247125"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     RowBox[{"x", "^", "3"}]}], "+", 
    RowBox[{"5", 
     RowBox[{"x", "^", "2"}]}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "5"}], "}"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"t", ",", "\"\<s(t)\>\""}], "}"}]}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Thick", ",", "Red"}], "}"}]}], ",", 
   RowBox[{"ImageSize", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"400", ",", "300"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.49289048915625*^9, 3.492890561953125*^9}, {
  3.492890640625*^9, 3.4928906775*^9}, {3.49292104134375*^9, 
  3.49292105009375*^9}, {3.493105575109375*^9, 3.49310557615625*^9}, {
  3.493106639359375*^9, 3.493106654984375*^9}, {3.493308134828125*^9, 
  3.49330815703125*^9}, {3.49330819321875*^9, 3.493308217703125*^9}, {
  3.5252413321073256`*^9, 
  3.525241352777362*^9}},ExpressionUUID->"53020596-0bf4-4989-97e0-\
370c3d3dc87d"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[1, 0, 0], Thickness[Large], LineBox[CompressedData["
1:eJwV13k4VF0YAPCxhLkzY0+hLBGSZC4pkvOmtEgUKUmLIUSpyBKSEAmRhFQf
kaQFWbMkW9mXUGQpW7aUnSzxnf6a5/fce895z/aed6RZF43OslMoFDM2CuXf
72MvFhfTykN7W0yd13eDTTvKmqT0j0kdR73XbiZYJg1qL38s9JWSOoe80ibc
eRJ5EG94dhrR6ogezP5IMM4RR4+LQiRXSF1F9FkZt8k4BaQ0anVn2eY64pSv
iSG1VFEn739Liy0+yNFUPyo+bTuSfUZVn1+4iSac2i2yv+ig8zucL8xKBqJ8
kdWiYg/2oYzmrqdTu4JRNDjMH5Q0RPP2+h3jNqGomtet/K6aMYpj6wic1b2L
vo+0bFbffgztrr27fqYlHN1p+D7vmXACDUbvLZ46F4FGbYJdktTPoGCrv+aT
C/fROYr/Wb0aFmpasI0Yk3yAOpPWpYQG2iKXcgmV0Tcx6GuNQY3YG3skdq+5
+teuRyhH3e4ck3oRsRSB46dNLArwKTpybr0TYl9wr5/yjENl7314ZMScUXOX
ydop3SfILUsXaPKuyO0VLXeiJR5pdR2lHAr0QHrh/VwTcQnoUNzQcNy3a2iN
W/GR8XNPkcMqjlBOOW9UtMt1bHQhEb3pJwX8cnwQd3uP/C/JZLTO5D1bqN0t
1Fr0znlkMBmtLeDbv2s6EL14Fl36880LdEJKee5nUBAycDQ4PbzrFYqxF53h
7byDIql5kQM2qUj6127qeu57KNNVz9FpdRpSXhRWUFi8hx4NbxWd9ExDbRFh
naKzEcihQdBmQvcNinv+akfpUiQSfFTBPt6Sjs6AreIKk4dogTc7+ZJWBqL7
+h09cvUR6ruRcGgsLgOdagvz8E94jLJtvP4bPZeJNLnqxj5yxiEzVTXN3wtZ
yI3M1qTciUdPqmIv/5TMRTmMvHdRSs/RVHSW4vfgXBTSnVHc/vc52mNT3ds4
l4vGuxNiAxqT0QjHrEleUx463iyrLuT/Em3bYaAZGFCAlJy+939fmYoaUhfZ
5Uffo8yYi/xF9hlIEFFPMZSLkKLWHotzoxlou1yEZoBVEfpQHbHt/ZVMdGcq
edL9UxG68PNPnINfFlK7+/ks62Ux2vXM9Wx9Tg66XqWkxzxdiva3rlvHdChA
z9/kyL28X4r0U+OO29PfocZoHY71NaXouL7QG71X75CsjWnBao0ydJ1XvX9m
rBBVcfgpU4Q+oAsiXNsXPxYhkR3tgvUfPyKOQzb71gSVopTUwPbzylVI6Vzi
yNaUSjQsOBysZ1GFcnqOLGzjr0LyLnraChFVqKhFVvmnYxWK06I96Z3Dv5tP
IpZmNQqvDLY2+1CNDrukVd3/VINcekPH95rXInXlK0pX+BtQLK3aV0C3AfXn
Ds9NxTUh7R0e5t6nGlAa30PBrx1NqMNh45ZR1waUHbY1T1C0Ga1uDOqvedGA
NoU3mPiHN6O70fr7b/F/QjHspeLnAz8j3/V1vMvtn9DvVa9r1gS0IBv06cGI
YxOK4UkXtCtuR5T4mbz2oCaUEGjHdpGrA0VzrumoetqEOqed95Ye6EAVldYS
yV+akOHPNK/jLR1I4chi/FnNZvS5sn+t5kQnGrSVf/WN7TM6t8FGyly8C9mF
XytsCPuCWpB6OOe1HuTwY0NvZspXVGMw0eWTPoC6Tn3lKa78ilLkr40f6RlA
xq23lGv7viLxCnZTI8FBtK164OoPsTa0WoHrV53jIOJ4k8gvEtCGxLtkntRu
GULRntLarqfbUTD9om9z6TAqFhJ9oMHfiQw1et/FL/9ChLSf/PdtXWhq7lH+
7asT6A5/teKTM71oYnv7Wo2KOcRqP/Keo6YfnRJ9rxZgywaXP/ixLsoPo0g2
2V+kGRe8uUQ3Xr3/F3pylVGVcIoGTzzsh1WOjSHNdJVE7wf84BO7eHhqZBzx
qx64GuwuBJSmLihwn0Ssj7vviV8QAbkr1m5HFKfR683pfwXeiULfdNRR2rsZ
tE/AMC9yaA3o/bC7Fn75D7LMTXtusEUKDPrCNkpIzCOt1oodJyakYbiU5V3x
egENNcyo+IfLgLLAl7W7Tv9FqTrCIm+N1wOBpi06JpfQqwYdx/pxOdj7y2x2
nQkFPusdYDdLVoDWEis2MyU2iDdWdRfSV4SsW2WnpKbZYCLub97qso1gvcK5
q66OHVSbmnfb7tsElo4eWfQYDlDvP8EW/VgZNttsrNO34ATB/ROHRT5vhnpB
JZqzxgrI4vYzn/dTgfwUn4dKHFyQyfQ2GlzBBC59E7EoLi5Qy36VNsXNhMND
8g/YCC7ItQr5tkxlwoBMbeQXfi4IGApOEuRlgtCDVeHeElxgpX6pe4MIE+x9
X91q1uCCa0uywRJyTBA3/eLseYkLyoxU3NbqMsGDTfFQTScXPDwj4nPsOhP6
d9Na5bq5oC/+BSf9BhMO3Ro5faOPC1Qm5HTf+zBBli/1ovpPLtgvJrQk7c+E
mjVqoXF/uMBD5/iu1mAmSGzTrrsixA1DN2LecscwocTBSH/tfm4I3dK55WIG
E5TSVZtd9bnBvFk9Zj6TCZHTwuaNhtzwIMI4xS8bx+vZYh9wlBuG2wX6InKZ
IHzbPGjckhsatu68mvieCdaJ1lUfvLghN8N2wL+aCUSH+z6HTG54olaet7eH
CequyYzQHG54yTkXGtbLBAvB1sbUPG6giJ5Wa+1jwtt9W06OF3HDtUrTIcsB
3F7W6OUrtdxgaz07d36ECcV3rB6693PDTufbZ3VnmOC20+C3/2oeYBcw7KVT
SXja4ZmRJM4D6I/ML2WChHrXl24VEjzAWkjPM6SRIJfCw0Gs54H9/GGxIQwS
msRKV4UweeDo3e3+8wIkKE9t3XlPjwfCP1Nco8VI+PFMOiLWkwfiwoIsexRJ
GPHrnuPw5gHFgiit8Y0kTLCenLb15QF/F4WIJSUSKJLSG5m3ecCIyfFOeDMJ
YlFSJSVRPKA8UTeorErCoQDJsR/pPLBaY7+O2HYSCmzW6isN8UDuo5WVlftJ
KNXtfBM2wgOTKxpDk/RIqJJ5vGp6lAciqy5+9D1AQsv3Nb3vZnggc9n9xtaD
uP9ja9wNOamwV59tXfAhEhT2iT93lKRCL9exZ0NHSYhQEOXMNaHCZInTLUcW
Cean5JJ6TalQGV6yStCSBNkIVT1ecyqcUX29Iw07c/lgmCULu7f1wKAVCc1f
fNbwXqSCZr+EzV4bEoRujqhZ3qLCtkz6nmJ7Etry5lpCgqhQIu8oqHeehPgx
Lo+3d6ggder6xU/YpLl0MeM+FTr4hNvaL5BgpHr04NsnVJhwyLf+fpGE8O73
Zxn5VLhkmkw8cSLBbFUtz7ZCKmSG9WUKXiFh3cG2l6xi/P21piEf7PS3U+M5
5VQwdzKcOOVMQmPoBi9WMxXy0o84rXAlIeaDunRIC/bVElt7bNbCrrKcNiq8
+D30ox57wvoUweimQs23QecINxIEtO9F5vyiQvP77T00dxJaneI0esao0NhJ
o1ljxyW/7qBPUaEi/uHbQmyVlRXrWPNU4Je4FmfvgddzZDGFzk1AWXFHdIYn
CavXEUZbCQLYl7U72a6R0HVs1bQFgwDosE4wwL5UytyeI0SAitPtjF7ssBjr
cgspAsLns1oXvEhwdfFx8pQhgLSy/qJ1nYRTRv9JRskRYCUybOGJrUR8ca1R
IkDMklN6Frvyqq7CVg3cP0fmlnZvEtJMLJoPaxFArFaO5r9BQjTzmvd5RABn
+Oubu7GthzJbn+gSUPDBhPIcm/24bCDdiADlcHe7kz4kDKnBFnkTAnQ0DcUD
sBv4zbt3mhKgfvbEkVTs2Ip7Gq6nCNA3yji5gO3/NPXHXQsC3j48sEnSlwQH
7+q7r6wIiHTJ9N2JrbWNY7jbjgDt0bDSG9gywpKRixcIMBA+/CoWmxjT1Fl1
GY/vq7tYAfZ49dHfzCsEyPpkMlqwW5McY/Rd8XwYPb05hv3e984eG3cC1ELG
bvD4kfDs9IuJG9cIqHNB7JLYzqt69HJ8CTCz8grZi20++Xfmkz+OZzQv6jj2
7nrRhJFAAha33pO1w974coshdwhu78Zr1avYggGHF6TDCPjGm1bmjz3HupCk
dY+AeNmdLeHYXdqBxsciCVjHxW3/GLtcLHH58gM8v7NJ159hp8wUvQx+RMBv
zSrhFOz7jR3HkmIJ8FsprJiJ7Znyh6MkngC7qo3v32Jb3RZO60gkYPfjnKZ8
7APWKuazz/F8fjpp8w6b1NHnEXyF339ZdvWfxSRsM5VSCaA4hBMF2Gzzvmf2
phMgcfKCaC724OdYOiuLANuChcR//dW/yX/r+Rb3X9+b+i+e7JAWq6h8AoTb
qtWTsB+fm+RPLySgSNJM8z9sP12+dzXFBCj1qeXdw7aX3nhuoAzPlx17dgC2
0d89K9krCGietd3kjq35lVW8ppoA0zpeKXts6SyvC1vr8P4mY0LMsHnuxoga
fcLx2rxx3oc9dj77w/lmPJ60+RY17JZ9jZcDWnA8Rmsy/61foezvtfFtBDwN
LaBSsRMpRFVBJwGFr260/lv/4I71Li1dBHD9EpD6tz/MIk7W0QcIyPyhtPrf
flqTQYjbDxPQeP+6tBf29085NpW/CKih+JqfwLbiE2Tzn8LzfeHTWX5sOeX3
B/tm8XmQ3qo6+G//65+P0VkgYGnGR6UQ2+H2R9VlNhp8Oceea4WtkuzkfXIF
DVh5h3ZtwZ4sl6rN56HBi7t5CxzYbis8rN34aHBEU2T6IT5fPt6bH4yvoUHK
Dsu/Wfh87o7t+GEoRYOYEI4RV2zuwkAyRYYGq1UUV2zDDl7orbZTpEFDI8pK
x+c70iV6qXcrbt+UnRKO84Ppfd0DOttp8I3rgLoutnjmRFScNg38m/zuzeB8
EjeuzzypSwMFZbZiY+zk82xWX4xooJ4e3j6L89X5oJQ0taM0eLS2TesRtvKL
E3/Dj9NwPr1WrI2dPpAVaXiGBkW7GKpeON8VsOwqKy7Q4O3O8hf9OF963Vgl
In+ZBnsqLcU8sXfGlbFuXqEBF3d5Mh/2x06JxZ0eNOChrZJj4nzbYNqknH+L
Bv8tGd06ifN1uKu3h2gwDbTZHg714nxuErmpwjWUBmM3hW1ssduaAizUImlg
5/Ep0x7fB30GWhGvE2hg2jV458RlEv7sTpyLLaSBwbftX7/j+8UzP9a3rJgG
ihc7uIywKWQMY6iMBtGqawNL8P3ELRkqTVbT4FAHcfs/OxJE5tz2l7Xg54dt
nHRsSVB9rf9gcAyv5+/kcA18/2XL7JVhTOHxHEn6FobvS82Yna+ZszRYYnO6
2m9Bgk6AerH7XxrIFlBigs/g/G8hNUQn6PDo4EfPspN4v6yc2saUoYMSz3XX
nmP4vgn6XWIiRwee0Dw/CWxn9iF99w10oDhNtJni+9lztPNM6WY6eLX0nKk4
QkJQZfktEy06LGVHVoQfJuH5tYetV03osDhRn9WM64HeHzpuJQF0UHR540Fo
4Xhi6+IVg+hgND2RN6eJ19/UrDb8Dh3E8u8O9mvg+6P68jrL+3RQi6Az8rfi
+U2Lq+FIoENc/d8LergeafRYktItpMPqFWwKK3B9UyKQV1k+hdvfKqk9sBKf
52rdqc1/6CB1WcXynjAJ3n6fJKIX6OBTWGWzQ4gE7dlBJ1t2BqgwihhB/CTk
daySoPIzwLY24z0d11vpSc6OehsZ0Og4YZy8zIT4HUzxWgsGXJKwWN6F67sS
A8J3wYoBLBvKkY8/mNBzund4gy0DzkwuFO3B9aCMz/08fwcGKLnf7NnZzYSn
H+eOgwcDoqsPa0i3MyHRsCQ6I4IB/xUd6PatY8JzC2ORmHIGKNKSXL7gerbC
UcmroooBWpSX4uLpTBj0XdE/U8sAd+s/NSfTmKDwLCfLuJkB25R+GXW+YkLy
sLgJo5sB5PqU7rJEJrxw6rvnPc8AEX4ie0sUE17fdBaw2cQLtt20yIduTBjR
OulzU4UXuDzoiy9ccP08tXsyQZUXqiplXN5ewd+zhD93aWA7KSbWXsLxoYxo
sz288OJKQl+XLR7P3JikwWleOMoe9+CFKRNiLpxX3nKXF+j88acq1JkQYGJ5
gGOaF/yJInvRXyoQb9hhfvYPL5i+XNruMqwCBftNHMoXeCHvfnJKw4AKTOzY
ezeInQ8EE5yuevWogLncxhYhfj7glZGNfteiAuTsBEt2I37eYBRRWawC36J9
3HUt+CDmcbnZyggV2NLxJDmglg+KKCtzWEwV4Fe2/ZPawAdSXgMUc2UVGLmu
vLe1iQ/EtGakjTeqwFOZ/D6FNj4oLDAY1FyvAsL2zZJV/Xww9TTKY2y1Csx7
chzgovCDytn6pv7lzfCVpl68T5Qfuh7/jHsZvRmiNzx8XXuAH+K+9mmMFSjD
9aKQ6AO5/DB4ptrJIV4JDoqbJFbJCkBc233Ltu2KsNOh/IRAoAD84f5YkJoi
D7FrWLI10wJwaW/A0FCoLMiWJkUanBAE/uXXiksHpSFsU4liY6EgdI1GJKaF
iIP1JOenSkUhCHvk3h0tKQSsNxNSgaFCUKSzaqmPfQWc9zFe1LsrBF2cnGNh
6ZzgbJzZQr+HfV+NTZLFCbemne+EReL334le7i7igBSNuYWox/h/sBVl5bIn
O8wVL3959lIIoH9nvur3ZRTWSA8pK8fPczxxATeNYhIu2PpXCoE3m1Qbs3kK
JVyp27WvGvtBM8eHjVMoWyRsvroO+0dPn1rbBOowE7Jt+oz7s381p6E2huR7
RXf19OL2KA6Pn+b+QCqZ7hJPf2B3Wq99atGHNG+2z50dwOagMzZQe5G+/OO0
oWHc3sMd8yVHu5CjvZTE+Dh+Xt95y671M/LUujGXPonNNzNZINWEbjJ6mq9M
Y0eNaYjaNqDo1ISgP3+wg+Ofdw58QPHenDZ589hvVevrLxWhl4fP6nguYmvJ
GSSPZqHMdR/Xai9hxwUXpE4mosJJubnl5X/xUmCP9Qft/wHce4KP
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox["\"s(t)\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  ImageSize->{400, 300},
  PlotRange->{{0, 5}, {0., 18.518516169085537`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.525241353588563*^9},ExpressionUUID->"113543f6-c3ff-4d14-b496-\
6671e3a79e5b"]
}, {2}]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Vagy, hirtelen meg\[AAcute]ll?", "Th-Env",
 CellChangeTimes->{{3.492890468078125*^9, 3.492890471515625*^9}, {
  3.492890702390625*^9, 3.492890703140625*^9}, {3.525241416659474*^9, 
  3.5252414271098924`*^9}},ExpressionUUID->"c2b6392f-8e57-42b1-af42-\
a462a1156fa8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Min", "[", 
    RowBox[{"x", ",", "1"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "2"}], "}"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"t", ",", "\"\<s(t)\>\""}], "}"}]}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Thick", ",", "Blue"}], "}"}]}], ",", 
   RowBox[{"ImageSize", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"400", ",", "300"}], "}"}]}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"GridLines", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", "1", "}"}], ",", 
      RowBox[{"{", "1", "}"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.49289048915625*^9, 3.492890561953125*^9}, {
   3.492890640625*^9, 3.4928906775*^9}, {3.49292104134375*^9, 
   3.49292105009375*^9}, {3.493105575109375*^9, 3.49310557615625*^9}, {
   3.493106639359375*^9, 3.493106654984375*^9}, {3.493308134828125*^9, 
   3.49330815703125*^9}, {3.49330819321875*^9, 3.493308217703125*^9}, 
   3.5252413321073256`*^9, {3.5252413986726427`*^9, 3.525241409779862*^9}, {
   3.588735673376093*^9, 3.5887357250384083`*^9}, {3.5887358929250665`*^9, 
   3.5887359461782885`*^9}},ExpressionUUID->"b9c922c5-442f-424f-96f1-\
b5d21c1de0ec"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {RGBColor[0, 0, 1], Thickness[Large], LineBox[CompressedData["
1:eJxTTMoPSmViYGCwBmIQ7ZX64uKBl6l2MJrFWargvqSLPYw2nj9jzmbJEDjt
ffb6prmSKXA6POX73kmSJXD6rn67c69kC5xeIOrf1iU5BU43cmxW75RcAqcj
Iheu//BxC5zm/t8Y4y63H06rBr57cbj7CJwuP2dpP+PLSTgtvkXwHiPjeTi9
7ZHzmfM2l+D0oay50pFvrsDpr2q2/Gtzr8Nppp+rBaRVb8Fps/8J24LX3YHT
Z1pMzh3Tug+n5Se8/rny3QM4/fr7/XtXDR7B6SWvdp/i63sMp/lkl79/8uQJ
nO7J3Jq2QOUZnP7msPpJRv1zOF1idGSL2OEXcPr+uiPdFxVfwenfWVdma1a9
htPajuz/0na/gdPuixTTN4q/g9MmM/jUjskgaIW+309uKSLoX5VXk1h0EPTa
wM64cAcELcz4MfRvBoK+H3/AxXMXgj4TupY5bj+C3uE961DREQQ9ybzEYc45
BO3Kr2Hz/hGCXr2v33gq93s4XS4br/QwBkEnBRiE3UlE0H7NjF3X0xC02svF
H88WIOgrW14c2NWCoA18iuKnrEHQMvXOk/s3Imj2TSLHu7Yh6Hvi2/UaDyDo
nse//+ZeQdAVYmcNM28i6GTPeakp9xC01XqHs1EvELTaI0HGsLcIWlD0sUng
JwT9x31Lhs93BP2iqnWO+x/cNAAEFeno
      "]], LineBox[CompressedData["
1:eJxTTMoPSmViYGBQBmIQnfBBmEme+YM9Axh8sL/W+Wf2HFYE31v5qakUB4Jv
FrYtU5QXwVfqbJ8rIITg/3ynycoug+BfCDmT81cVwa9TELR5ZYng67wJ5b7u
i+Av+KvU5bsEwRfm/8Bx5BeCz7J/9nrlOR/h/GyT3Tc5vT/B+as9kxbs+4bg
f30tJfBs2mc4f2uwO/MUly9wfr1H6/wtzxB8xbteNxa3foXzrcxbpkgafYPz
Y+TO/2S8jOB/PdX7qKDxO5w/gyWuJEjlB8L997YuYjqC4LPWNoZYFv6E8xlW
xq1/JPQLzi+atb5X6BCCv1e7g0Mw7zecL+hVpNPE9wfOv6N74XLlHgR/wzx7
lSdxf+H82PVmgrL/EPyG1oWNd1b9g/PXvpCdzefzHxGfLSIe7MsQ/Ony3F//
/0fwASZPtCU=
      "]]}, {}}, {{}, {}, {}}},
  Axes->True,
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox["\"s(t)\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  GridLines->{{1}, {1}},
  ImageSize->{400, 300},
  Method->{},
  PlotRange->{{0, 2}, {0., 1.}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.5252414106378636`*^9, {3.5887356862001452`*^9, 3.5887357262034144`*^9}, {
   3.5887359032421265`*^9, 
   3.588735946871291*^9}},ExpressionUUID->"c9bc6bda-0734-458b-839e-\
b3b9282b2dae"]
}, {2}]],

Cell["\<\
Hogyan mozog a test? 
Hogyan defini\[AAcute]ljuk a sebess\[EAcute]get?\
\>", "Text-Framed",
 CellChangeTimes->{{3.492890585140625*^9, 3.49289059534375*^9}, {
  3.492890711671875*^9, 
  3.492890719453125*^9}},ExpressionUUID->"6f1089db-15ca-41c4-b000-\
7d65ba31266a"],

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"]]
}], "PreviousNext",ExpressionUUID->"615a6b11-23df-4bf6-90f7-4c9f6e872ee9"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"fec6ef4f-4f1a-463d-b80b-50eb18734de9"],

Cell[CellGroupData[{

Cell["A sebess\[EAcute]g fogalma", "MainSection",
 CellChangeTimes->{{3.4931056040625*^9, 3.49310560978125*^9}, {
  3.6635733162877483`*^9, 
  3.6635733204949894`*^9}},ExpressionUUID->"d236f756-7735-4620-903c-\
b0019cf04af4"],

Cell[CellGroupData[{

Cell["\[CapitalAAcute]tlagsebess\[EAcute]g: differenciah\[AAcute]nyados", \
"Section",
 CellChangeTimes->{{3.4928907275625*^9, 3.49289077946875*^9}, {
   3.663569979877917*^9, 3.663569994746767*^9}, 
   3.695576809363166*^9},ExpressionUUID->"2447e015-52a5-48db-b284-\
7f8555fded04"],

Cell[TextData[{
 " ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["v", 
     RowBox[{"[", 
      RowBox[{
       SubscriptBox["t", "0"], ",", 
       SubscriptBox["t", "1"]}], "]"}]], "=", 
    RowBox[{
     FractionBox[
      RowBox[{"\[CapitalDelta]", " ", "s"}], 
      RowBox[{"\[CapitalDelta]", " ", "t"}]], "=", 
     FractionBox[
      RowBox[{
       RowBox[{"s", "(", 
        SubscriptBox["t", "1"], ")"}], "-", 
       RowBox[{"s", "(", 
        SubscriptBox["t", "0"], ")"}]}], 
      RowBox[{
       SubscriptBox["t", "1"], "-", 
       SubscriptBox["t", "0"]}]]}]}], TraditionalForm]],ExpressionUUID->
  "964adc6f-0f85-404d-a442-1cfc1713c54f"]
}], "Text",
 CellChangeTimes->{{3.49289078359375*^9, 
  3.49289090546875*^9}},ExpressionUUID->"104a51e4-e93c-4ebd-b09c-\
4fd7b6a65633"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Pillanatnyi sebess\[EAcute]g a ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "0"], TraditionalForm]],ExpressionUUID->
  "0a76900d-ebda-4432-9bfe-ab49353384d2"],
 " pillanatban: Deriv\[AAcute]lt"
}], "Section",
 CellChangeTimes->{{3.4928907275625*^9, 3.49289077946875*^9}, {
  3.492890939484375*^9, 3.492890949484375*^9}, {3.663569968775282*^9, 
  3.6635700076755066`*^9}},ExpressionUUID->"72f0c467-6f00-4817-9063-\
7e9176de8b53"],

Cell[TextData[{
 "Ha ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"\[CapitalDelta]", " ", "t"}], "\[Rule]", "0"}], 
   TraditionalForm]],ExpressionUUID->"0e130a43-93d2-4053-8465-cb40d7fe012a"],
 ", akkor ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    FractionBox[
     RowBox[{"\[CapitalDelta]", " ", "s"}], 
     RowBox[{"\[CapitalDelta]", " ", "t"}]], "\[Rule]", 
    FractionBox[
     RowBox[{"d", " ", "s"}], 
     RowBox[{"d", " ", "t"}]]}], TraditionalForm]],ExpressionUUID->
  "f4e62d5b-cb2e-4495-a597-3641d883eacf"],
 "\n ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"v", "(", 
     SubscriptBox["t", "0"], ")"}], "=", 
    RowBox[{
     RowBox[{
      UnderscriptBox["lim", 
       RowBox[{
        RowBox[{"\[CapitalDelta]", " ", "t"}], "\[Rule]", "0"}]], 
      FractionBox[
       RowBox[{"\[CapitalDelta]", " ", "s"}], 
       RowBox[{"\[CapitalDelta]", " ", "t"}]]}], "=", 
     RowBox[{
      UnderscriptBox["lim", 
       RowBox[{
        SubscriptBox["t", "1"], "\[Rule]", 
        SubscriptBox["t", "0"]}]], 
      FractionBox[
       RowBox[{
        RowBox[{"s", "(", 
         SubscriptBox["t", "1"], ")"}], "-", 
        RowBox[{"s", "(", 
         SubscriptBox["t", "0"], ")"}]}], 
       RowBox[{
        SubscriptBox["t", "1"], "-", 
        SubscriptBox["t", "0"]}]]}]}]}], TraditionalForm]],ExpressionUUID->
  "336bc872-b51f-460c-bd5b-921fe2a2e977"],
 "\t (ha l\[EAcute]tezik!!!)"
}], "Text",
 CellChangeTimes->{{3.49289078359375*^9, 3.49289090546875*^9}, {
  3.492890958875*^9, 3.492891022671875*^9}, {3.5887352648008547`*^9, 
  3.5887353291900725`*^9}, {3.5887355114795356`*^9, 
  3.5887355303815875`*^9}},ExpressionUUID->"f35a792d-3bd7-43a0-9eab-\
d7f4e262001f"]
}, Open  ]],

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,ExpressionUUID->"625c4f81-7dd9-4dd1-91a8-86e80cb3dece"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"27431474-cdc4-4e0a-b8b8-3d2e25105804"],

Cell[CellGroupData[{

Cell[TextData[{
 "A",
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    RowBox[{
     SubscriptBox["t", "0"], " ", "=", " ", "1"}]}], TraditionalForm]],
  ExpressionUUID->"460ac692-0b05-4ffc-afd4-286f1a169e39"],
 " pillanatban nem l\[EAcute]tezik pillanatnyi sebess\[EAcute]g!!!"
}], "Section",
 CellChangeTimes->{{3.492890468078125*^9, 3.492890471515625*^9}, {
  3.492890702390625*^9, 3.492890703140625*^9}, {3.525241416659474*^9, 
  3.5252414271098924`*^9}, {3.588735637819005*^9, 3.588735644929038*^9}, {
  3.6635701358648386`*^9, 
  3.663570150238661*^9}},ExpressionUUID->"1afedfd6-c0fc-4138-89ca-\
ec8c718084d9"],

Cell[TextData[{
 "Hirtelen meg\[AAcute]ll\[AAcute]s!\n\tBalr\[OAcute]l: ",
 Cell[BoxData[
  FormBox[
   RowBox[{"v", "=", "1"}], TraditionalForm]],ExpressionUUID->
  "fa7e7eae-6b43-4d69-b835-c86ab20a84e6"],
 "\n\tJobbr\[OAcute]l ",
 Cell[BoxData[
  FormBox[
   RowBox[{"v", "=", "0"}], TraditionalForm]],ExpressionUUID->
  "83165a7a-99de-4787-9102-3bbe02a58ded"]
}], "Text",
 CellChangeTimes->{{3.588735743613508*^9, 3.5887358628939776`*^9}, 
   3.588739555812584*^9, {3.6635701572270603`*^9, 
   3.663570191034994*^9}},ExpressionUUID->"4987599a-a66e-4987-a69c-\
eda584c61dbb"],

Cell["V\[EAcute]gtelen gyors energiav\[AAcute]ltoz\[AAcute]s!!!", \
"Text-Framed",
 CellChangeTimes->{{3.588735743613508*^9, 3.5887358628939776`*^9}, 
   3.588739555812584*^9, {3.6635701572270603`*^9, 3.6635701879818196`*^9}},
 TextAlignment->Center,
 TextJustification->0.,
 FontWeight->"Bold",ExpressionUUID->"4f7bca56-ebcc-46c7-9c72-95278899ef13"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Min", "[", 
    RowBox[{"x", ",", "1"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "2"}], "}"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"t", ",", "\"\<s(t)\>\""}], "}"}]}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Thick", ",", "Blue"}], "}"}]}], ",", 
   RowBox[{"ImageSize", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"400", ",", "300"}], "}"}]}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"GridLines", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", "1", "}"}], ",", 
      RowBox[{"{", "1", "}"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.49289048915625*^9, 3.492890561953125*^9}, {
   3.492890640625*^9, 3.4928906775*^9}, {3.49292104134375*^9, 
   3.49292105009375*^9}, {3.493105575109375*^9, 3.49310557615625*^9}, {
   3.493106639359375*^9, 3.493106654984375*^9}, {3.493308134828125*^9, 
   3.49330815703125*^9}, {3.49330819321875*^9, 3.493308217703125*^9}, 
   3.5252413321073256`*^9, {3.5252413986726427`*^9, 3.525241409779862*^9}, {
   3.588735673376093*^9, 3.5887357250384083`*^9}, {3.5887358929250665`*^9, 
   3.5887359461782885`*^9}},ExpressionUUID->"87aee324-2da3-4588-badc-\
3dd7f1e7a29f"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {RGBColor[0, 0, 1], Thickness[Large], LineBox[CompressedData["
1:eJxTTMoPSmViYGCwBmIQ7ZX64uKBl6l2MJrFWargvqSLPYw2nj9jzmbJEDjt
ffb6prmSKXA6POX73kmSJXD6rn67c69kC5xeIOrf1iU5BU43cmxW75RcAqcj
Iheu//BxC5zm/t8Y4y63H06rBr57cbj7CJwuP2dpP+PLSTgtvkXwHiPjeTi9
7ZHzmfM2l+D0oay50pFvrsDpr2q2/Gtzr8Nppp+rBaRVb8Fps/8J24LX3YHT
Z1pMzh3Tug+n5Se8/rny3QM4/fr7/XtXDR7B6SWvdp/i63sMp/lkl79/8uQJ
nO7J3Jq2QOUZnP7msPpJRv1zOF1idGSL2OEXcPr+uiPdFxVfwenfWVdma1a9
htPajuz/0na/gdPuixTTN4q/g9MmM/jUjskgaIW+309uKSLoX5VXk1h0EPTa
wM64cAcELcz4MfRvBoK+H3/AxXMXgj4TupY5bj+C3uE961DREQQ9ybzEYc45
BO3Kr2Hz/hGCXr2v33gq93s4XS4br/QwBkEnBRiE3UlE0H7NjF3X0xC02svF
H88WIOgrW14c2NWCoA18iuKnrEHQMvXOk/s3Imj2TSLHu7Yh6Hvi2/UaDyDo
nse//+ZeQdAVYmcNM28i6GTPeakp9xC01XqHs1EvELTaI0HGsLcIWlD0sUng
JwT9x31Lhs93BP2iqnWO+x/cNAAEFeno
      "]], LineBox[CompressedData["
1:eJxTTMoPSmViYGBQBmIQnfBBmEme+YM9Axh8sL/W+Wf2HFYE31v5qakUB4Jv
FrYtU5QXwVfqbJ8rIITg/3ynycoug+BfCDmT81cVwa9TELR5ZYng67wJ5b7u
i+Av+KvU5bsEwRfm/8Bx5BeCz7J/9nrlOR/h/GyT3Tc5vT/B+as9kxbs+4bg
f30tJfBs2mc4f2uwO/MUly9wfr1H6/wtzxB8xbteNxa3foXzrcxbpkgafYPz
Y+TO/2S8jOB/PdX7qKDxO5w/gyWuJEjlB8L997YuYjqC4LPWNoZYFv6E8xlW
xq1/JPQLzi+atb5X6BCCv1e7g0Mw7zecL+hVpNPE9wfOv6N74XLlHgR/wzx7
lSdxf+H82PVmgrL/EPyG1oWNd1b9g/PXvpCdzefzHxGfLSIe7MsQ/Ony3F//
/0fwASZPtCU=
      "]]}, {}}, {{}, {}, {}}},
  Axes->True,
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox["\"s(t)\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  GridLines->{{1}, {1}},
  ImageSize->{345.51724317099337`, 258.6206811503482},
  Method->{},
  PlotRange->{{0, 2}, {0., 1.}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.5252414106378636`*^9, {3.5887356862001452`*^9, 3.5887357262034144`*^9}, {
   3.5887359032421265`*^9, 
   3.588735946871291*^9}},ExpressionUUID->"7cbe5522-b3e7-406e-9423-\
7f850a2aa791"]
}, {2}]]
}, Open  ]],

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,ExpressionUUID->"2176488a-4e91-4e95-bb47-68405c3a024f"]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"941b513f-7cad-4133-a461-ded7c1b8881b"],

Cell[CellGroupData[{

Cell["v(t)=s\[CloseCurlyQuote](t) rajzol\[AAcute]sa az s(t) \
grafikonj\[AAcute]b\[OAcute]l", "MainSection",
 Evaluatable->False,
 CellHorizontalScrolling->False,
 CellChangeTimes->{{3.5888771821160293`*^9, 3.5888772386761293`*^9}, {
  3.663570463018551*^9, 3.6635705098552294`*^9}, {3.6955760073753743`*^9, 
  3.69557601124545*^9}},
 TextAlignment->Center,ExpressionUUID->"23856e47-e8f4-4b82-becd-7a5d48af4d4c"],

Cell["\<\
Vegy\[UDoubleDot]nk mintapontokat \[Rule] Rajzoljuk meg az \[EAcute]rint\
\[ODoubleAcute]ket \[Rule] \[CapitalAAcute]br\[AAcute]zoljuk a meredeks\
\[EAcute]geket.\
\>", "Text",
 CellChangeTimes->{{3.5888811702482753`*^9, 3.5888812186943607`*^9}, {
  3.5896295082239976`*^9, 3.589629615064147*^9}, {3.6635705291173315`*^9, 
  3.6635705299983816`*^9}},ExpressionUUID->"cfc2e5b2-1322-4e23-b7eb-\
325c67f4f6a6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"DynamicModule", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "pt", ",", "lin", ",", "lin1", ",", "lin2", ",", "i", ",", "der", ",", 
       "tan"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"der", "=", 
       RowBox[{
        SubscriptBox["\[PartialD]", "x"], "expr"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"pt", "=", 
       RowBox[{"N", "[", 
        RowBox[{"Range", "[", 
         RowBox[{"x1", ",", "x2", ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"x2", "-", "x1"}], ")"}], "/", "n"}]}], "]"}], "]"}]}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tan", "[", 
        RowBox[{"u_", ",", "x0_"}], "]"}], "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"expr", "/.", "\[InvisibleSpace]", 
          RowBox[{"(", 
           RowBox[{"x", "\[Rule]", "x0"}], ")"}]}], ")"}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"der", "/.", "\[InvisibleSpace]", 
           RowBox[{"x", "\[Rule]", "x0"}]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"u", "-", "x0"}], ")"}]}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"lin", "=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"Plot", "[", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"expr", "/.", "\[InvisibleSpace]", 
              RowBox[{"(", 
               RowBox[{"x", "->", 
                RowBox[{"pt", "[", 
                 RowBox[{"[", "i", "]"}], "]"}]}], ")"}]}], ")"}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"der", "/.", "\[InvisibleSpace]", 
               RowBox[{"x", "->", 
                RowBox[{"pt", "[", 
                 RowBox[{"[", "i", "]"}], "]"}]}]}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{"u", "-", 
               RowBox[{"pt", "[", 
                RowBox[{"[", "i", "]"}], "]"}]}], ")"}]}]}], ",", 
           RowBox[{"{", 
            RowBox[{"u", ",", 
             RowBox[{
              RowBox[{"pt", "[", 
               RowBox[{"[", "i", "]"}], "]"}], "-", 
              RowBox[{"0.5", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"x2", "-", "x1"}], ")"}], "/", "n"}]}]}], ",", 
             RowBox[{
              RowBox[{"pt", "[", 
               RowBox[{"[", "i", "]"}], "]"}], "+", 
              RowBox[{"0.5", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"x2", "-", "x1"}], ")"}], "/", "n"}]}]}]}], "}"}], 
           ",", 
           RowBox[{"PlotStyle", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{"Blue", ",", 
               RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}], "}"}]}], ",", 
           RowBox[{"PlotRange", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"x1", ",", "x2"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"y1", ",", "y2"}], "}"}]}], "}"}]}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{"Length", "[", "pt", "]"}], ",", "1"}], "}"}]}], "]"}]}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{"lin1", "=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"Line", "[", "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{"pt", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "-", 
               RowBox[{"0.5", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"x2", "-", "x1"}], ")"}], "/", "n"}]}]}], ",", 
              RowBox[{"tan", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"pt", "[", 
                  RowBox[{"[", "i", "]"}], "]"}], "-", 
                 RowBox[{"0.5", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"x2", "-", "x1"}], ")"}], "/", "n"}]}]}], ",", 
                RowBox[{"pt", "[", 
                 RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{"pt", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "-", 
               RowBox[{"0.5", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"x2", "-", "x1"}], ")"}], "/", "n"}]}]}], ",", 
              RowBox[{"tan", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"pt", "[", 
                  RowBox[{"[", "i", "]"}], "]"}], "+", 
                 RowBox[{"0.5", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"x2", "-", "x1"}], ")"}], "/", "n"}]}]}], ",", 
                RowBox[{"pt", "[", 
                 RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{"pt", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "+", 
               RowBox[{"0.5", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"x2", "-", "x1"}], ")"}], "/", "n"}]}]}], ",", 
              RowBox[{"tan", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"pt", "[", 
                  RowBox[{"[", "i", "]"}], "]"}], "+", 
                 RowBox[{"0.5", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"x2", "-", "x1"}], ")"}], "/", "n"}]}]}], ",", 
                RowBox[{"pt", "[", 
                 RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}]}], "}"}], 
          "]"}], "\[IndentingNewLine]", ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{"Length", "[", "pt", "]"}], ",", "1"}], "}"}]}], "]"}]}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{"lin2", "=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"Line", "[", "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"pt", "[", 
               RowBox[{"[", "i", "]"}], "]"}], ",", "y1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"pt", "[", 
               RowBox[{"[", "i", "]"}], "]"}], ",", "y2"}], "}"}]}], "}"}], 
          "]"}], "\[IndentingNewLine]", ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{"Length", "[", "pt", "]"}], ",", "1"}], "}"}]}], "]"}]}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{"GraphicsColumn", "[", 
       RowBox[{"{", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Show", "[", 
          RowBox[{
           RowBox[{"Plot", "[", 
            RowBox[{
             RowBox[{"Evaluate", "[", "expr", "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"x", ",", "x1", ",", "x2"}], "}"}], ",", 
             RowBox[{"PlotStyle", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{"{", 
                RowBox[{"Red", ",", 
                 RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}], "}"}]}], 
             ",", 
             RowBox[{"PlotRange", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"x1", ",", "x2"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"y1", ",", "y2"}], "}"}]}], "}"}]}]}], "]"}], ",", 
           "lin", ",", "\[IndentingNewLine]", 
           RowBox[{"Graphics", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"PointSize", "[", "0.03", "]"}], ",", 
              RowBox[{"Point", "[", 
               RowBox[{"pt", "/.", 
                RowBox[{"(", 
                 RowBox[{"s_Real", "\[Rule]", 
                  RowBox[{"{", 
                   RowBox[{"s", ",", 
                    RowBox[{"expr", "/.", 
                    RowBox[{"(", 
                    RowBox[{"x", "\[Rule]", "s"}], ")"}]}]}], "}"}]}], 
                 ")"}]}], "]"}]}], "}"}], "]"}], ",", 
           RowBox[{"Graphics", "[", 
            RowBox[{"{", 
             RowBox[{"Green", ",", "lin1"}], "}"}], "]"}], ",", 
           RowBox[{"Graphics", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Opacity", "[", "0.3", "]"}], ",", "lin2"}], "}"}], 
            "]"}], ",", "\[IndentingNewLine]", 
           RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
           RowBox[{"ImageSize", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"180", "*", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"x2", "-", "x1"}], ")"}], "/", 
                RowBox[{"(", 
                 RowBox[{"y2", "-", "y1"}], ")"}]}]}], ",", "180"}], "}"}]}], 
           ",", 
           RowBox[{"PlotRange", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"x1", ",", "x2"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"y1", ",", "y2"}], "}"}]}], "}"}]}], ",", 
           RowBox[{"PlotLabel", "\[Rule]", 
            RowBox[{"Style", "[", 
             RowBox[{
              RowBox[{"TraditionalForm", "[", 
               RowBox[{"HoldForm", "[", 
                RowBox[{"f", "[", "x", "]"}], "]"}], "]"}], ",", "Bold"}], 
             "]"}]}]}], "]"}], ",", "\[IndentingNewLine]", 
         RowBox[{"Show", "[", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"Plot", "[", 
            RowBox[{
             RowBox[{"Evaluate", "[", 
              RowBox[{
               SubscriptBox["\[PartialD]", "x"], "expr"}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"x", ",", "x1", ",", "x2"}], "}"}], ",", 
             RowBox[{"PlotStyle", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{"{", 
                RowBox[{"Blue", ",", 
                 RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}], "}"}]}], 
             ",", 
             RowBox[{"PlotRange", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"x1", ",", "x2"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"y1", ",", "y2"}], "}"}]}], "}"}]}], ",", 
             RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
             RowBox[{"ImageSize", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"180", "*", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"x2", "-", "x1"}], ")"}], "/", 
                  RowBox[{"(", 
                   RowBox[{"y2", "-", "y1"}], ")"}]}]}], ",", "180"}], 
               "}"}]}], ",", 
             RowBox[{"PlotLabel", "\[Rule]", 
              RowBox[{"Style", "[", 
               RowBox[{
                RowBox[{"TraditionalForm", "[", 
                 RowBox[{"HoldForm", "[", 
                  RowBox[{
                   RowBox[{"f", "'"}], "[", "x", "]"}], "]"}], "]"}], ",", 
                "Bold"}], "]"}]}]}], "]"}], ",", "\[IndentingNewLine]", 
           RowBox[{"Graphics", "[", 
            RowBox[{"{", 
             RowBox[{"Green", ",", 
              RowBox[{"PointSize", "[", "0.03", "]"}], ",", 
              RowBox[{"Point", "[", 
               RowBox[{"pt", "/.", 
                RowBox[{"(", 
                 RowBox[{"s_Real", "\[Rule]", 
                  RowBox[{"{", 
                   RowBox[{"s", ",", 
                    RowBox[{"der", "/.", 
                    RowBox[{"(", 
                    RowBox[{"x", "\[Rule]", "s"}], ")"}]}]}], "}"}]}], 
                 ")"}]}], "]"}]}], "}"}], "]"}], ",", 
           RowBox[{"Graphics", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Opacity", "[", "0.3", "]"}], ",", "lin2"}], "}"}], 
            "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", 
        "}"}], "]"}]}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]",
    ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"expr", ",", " ", 
       RowBox[{"Sin", "[", "x", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"x", "^", "2"}], ",", 
       RowBox[{"x", "^", "3"}], ",", 
       RowBox[{"E", "^", 
        RowBox[{"(", 
         RowBox[{"-", 
          RowBox[{"x", "^", "2"}]}], ")"}]}], ",", " ", 
       RowBox[{"Sin", "[", "x", "]"}], ",", 
       RowBox[{"Cos", "[", "x", "]"}]}], "}"}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Control", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"n", ",", "3"}], "}"}], ",", "2", ",", "15", ",", "1", ",", 
      RowBox[{"Appearance", "->", "\"\<Labeled\>\""}], ",", 
      RowBox[{"ImageSize", "\[Rule]", "Small"}]}], "}"}], "]"}], ",", 
   "\[IndentingNewLine]", "Delimiter", ",", "\[IndentingNewLine]", 
   RowBox[{"Control", "[", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"x1", ",", 
        RowBox[{"-", "2"}]}], "}"}], ",", 
      RowBox[{"-", "10"}], ",", "10", ",", 
      RowBox[{"Appearance", "->", "\"\<Labeled\>\""}], ",", 
      RowBox[{"ImageSize", "\[Rule]", "Small"}]}], "}"}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Control", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"x2", ",", "2"}], "}"}], ",", "x1", ",", " ", 
      RowBox[{"x1", "+", "20"}], ",", 
      RowBox[{"Appearance", "->", "\"\<Labeled\>\""}], ",", 
      RowBox[{"ImageSize", "\[Rule]", "Small"}]}], "}"}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Control", "[", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"y1", ",", 
        RowBox[{"-", "1.5"}]}], "}"}], ",", 
      RowBox[{"-", "5"}], ",", "5", ",", 
      RowBox[{"Appearance", "->", "\"\<Labeled\>\""}], ",", 
      RowBox[{"ImageSize", "\[Rule]", "Small"}]}], "}"}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Control", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"y2", ",", "1.5"}], "}"}], ",", 
      RowBox[{"y1", "+", "1"}], ",", " ", 
      RowBox[{"y1", "+", "10"}], ",", 
      RowBox[{"Appearance", "->", "\"\<Labeled\>\""}], ",", 
      RowBox[{"ImageSize", "\[Rule]", "Small"}]}], "}"}], "]"}], ",", 
   RowBox[{"ControlPlacement", "\[Rule]", "Left"}]}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellChangeTimes->{{3.415767079671875*^9, 3.415767097984375*^9}, {
   3.417584070824032*^9, 3.417584080167467*^9}, {3.4175841106312723`*^9, 
   3.4175845669574366`*^9}, {3.4175888610263186`*^9, 3.417588870299653*^9}, {
   3.429415764765625*^9, 3.429415765421875*^9}, {3.429523028890625*^9, 
   3.4295231608125*^9}, {3.42952320553125*^9, 3.429523303828125*^9}, {
   3.429523357875*^9, 3.429523418703125*^9}, {3.4295234611875*^9, 
   3.429523499640625*^9}, {3.429523619734375*^9, 3.4295236339375*^9}, {
   3.429523940734375*^9, 3.4295239458125*^9}, {3.42952412384375*^9, 
   3.42952413025*^9}, {3.42952430346875*^9, 3.42952433825*^9}, {
   3.429524369015625*^9, 3.429524372609375*^9}, {3.4295244364375*^9, 
   3.42952444996875*^9}, {3.4295246084375*^9, 3.429524612171875*^9}, {
   3.4295246805625*^9, 3.429524690765625*^9}, {3.42952475046875*^9, 
   3.42952484934375*^9}, {3.4295249008125*^9, 3.429525087640625*^9}, {
   3.490029845203125*^9, 3.490029846265625*^9}, {3.493106426984375*^9, 
   3.49310647025*^9}, {3.493115503296875*^9, 3.49311550546875*^9}, {
   3.493115548375*^9, 3.493115554734375*^9}, {3.493115585453125*^9, 
   3.493115646046875*^9}, {3.493116028203125*^9, 3.4931160343125*^9}, {
   3.493146532953125*^9, 3.49314653603125*^9}, {3.5887390428925943`*^9, 
   3.588739215576317*^9}, {3.5887392746205196`*^9, 3.5887393207887993`*^9}, 
   3.588740797109586*^9, {3.588874493565478*^9, 3.5888745023658934`*^9}, {
   3.5888745433395658`*^9, 3.5888745636548014`*^9}, {3.5888746476871533`*^9, 
   3.58887465725097*^9}, {3.5888747426957216`*^9, 3.588874785103596*^9}, {
   3.58887490636301*^9, 3.5888750132109985`*^9}, {3.5888750432782516`*^9, 
   3.588875044838255*^9}, {3.5888751142421775`*^9, 3.5888751214045897`*^9}, {
   3.5888751583056555`*^9, 3.588875190836713*^9}, {3.588875250454418*^9, 
   3.5888754081996965`*^9}, {3.5888754521061745`*^9, 3.588875452636575*^9}, {
   3.5888755123312807`*^9, 3.588875520008494*^9}, {3.58887559171422*^9, 
   3.588875639116104*^9}, {3.588875698594409*^9, 3.5888759247754087`*^9}, {
   3.5888759652186804`*^9, 3.5888759820853105`*^9}, {3.5888760968989124`*^9, 
   3.5888760997537174`*^9}, {3.5888761386359863`*^9, 
   3.5888762084717093`*^9}, {3.5888763150066977`*^9, 
   3.5888763157866993`*^9}, {3.588876348551757*^9, 3.588876394017237*^9}, {
   3.5888765012688265`*^9, 3.588876580141966*^9}, {3.588876613593425*^9, 
   3.5888766203034368`*^9}, {3.58887665054029*^9, 3.5888766586221046`*^9}, {
   3.588876731487233*^9, 3.58887674137965*^9}, {3.5888773237600794`*^9, 
   3.5888776328546257`*^9}, {3.5888776728610964`*^9, 3.588877803675728*^9}, {
   3.5888778640276337`*^9, 3.5888779147689238`*^9}, {3.588878053369969*^9, 
   3.5888780627455854`*^9}, {3.58887815573975*^9, 3.5888782134230514`*^9}, 
   3.5888782473739114`*^9, {3.5888784257298265`*^9, 3.5888784272284293`*^9}, {
   3.5888784996615562`*^9, 3.5888785524620495`*^9}, {3.5888785976399293`*^9, 
   3.5888786597628393`*^9}, {3.588878716214739*^9, 3.58887873933698*^9}, {
   3.5888787946636777`*^9, 3.5888788092965035`*^9}, {3.5888788615187955`*^9, 
   3.588878863359599*^9}, {3.5888788982482605`*^9, 3.588878900260664*^9}, {
   3.5888789441359415`*^9, 3.5888789747023954`*^9}, {3.588879004863249*^9, 
   3.588879111118437*^9}, {3.588879143666094*^9, 3.588879172514545*^9}, {
   3.588879208914409*^9, 3.5888792136412177`*^9}, {3.5888792464706755`*^9, 
   3.5888792635869055`*^9}, {3.5888793224402094`*^9, 3.588879324171813*^9}, {
   3.588879477939084*^9, 3.5888795594496284`*^9}, {3.5888795962248936`*^9, 
   3.5888797057570868`*^9}, {3.5888797796810174`*^9, 3.588879838362721*^9}, {
   3.5888799014622326`*^9, 3.5888801124178057`*^9}, {3.588880207376573*^9, 
   3.5888803289091883`*^9}, {3.588880375688071*^9, 3.5888804449339933`*^9}, {
   3.5888804954412823`*^9, 3.5888805060825014`*^9}, {3.5888805537349854`*^9, 
   3.588880562441801*^9}, {3.5888806097938843`*^9, 3.5888806100434847`*^9}, {
   3.5888806455083475`*^9, 3.5888806671495857`*^9}, {3.5888807372067094`*^9, 
   3.588880805924231*^9}, {3.588880841623094*^9, 3.5888809792483377`*^9}, {
   3.5893890914266405`*^9, 3.589389163420745*^9}, {3.5893892900169263`*^9, 
   3.589389339031997*^9}, {3.5893893800360556`*^9, 3.5893895545103064`*^9}, {
   3.5893895845963497`*^9, 3.5893895848463497`*^9}, {3.589389625481408*^9, 
   3.5893896543384495`*^9}, {3.589389699417515*^9, 3.5893897257895536`*^9}, {
   3.589389771602619*^9, 3.589389784904639*^9}, {3.5897811211744537`*^9, 
   3.5897811245752597`*^9}},ExpressionUUID->"de95d39a-0cca-43bc-b5a8-\
1302e44b6336"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`expr$$ = 
    Sin[$CellContext`x], $CellContext`n$$ = 
    9, $CellContext`x1$$ = -2, $CellContext`x2$$ = 
    2, $CellContext`y1$$ = -1.5, $CellContext`y2$$ = 1.5, Typeset`show$$ = 
    True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`expr$$], 
       Sin[$CellContext`x]}, {$CellContext`x, $CellContext`x^2, \
$CellContext`x^3, E^(-$CellContext`x^2), 
       Sin[$CellContext`x], 
       Cos[$CellContext`x]}}, {{
       Hold[$CellContext`n$$], 3}, 2, 15, 1}, {{
       Hold[$CellContext`x1$$], -2}, -10, 10}, {{
       Hold[$CellContext`x2$$], 2}, 
      Dynamic[$CellContext`x1$$], 
      Dynamic[$CellContext`x1$$ + 20]}, {{
       Hold[$CellContext`y1$$], -1.5}, -5, 5}, {{
       Hold[$CellContext`y2$$], 1.5}, 
      Dynamic[$CellContext`y1$$ + 1], 
      Dynamic[$CellContext`y1$$ + 10]}}, Typeset`size$$ = {
    330., {242., 253.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`expr$16482$$ = 
    0, $CellContext`n$16483$$ = 0, $CellContext`x1$16484$$ = 
    0, $CellContext`x2$16485$$ = 0, $CellContext`y1$16486$$ = 
    0, $CellContext`y2$16487$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`expr$$ = 
        Sin[$CellContext`x], $CellContext`n$$ = 
        3, $CellContext`x1$$ = -2, $CellContext`x2$$ = 
        2, $CellContext`y1$$ = -1.5, $CellContext`y2$$ = 1.5}, 
      "ControllerVariables" :> {
        Hold[$CellContext`expr$$, $CellContext`expr$16482$$, 0], 
        Hold[$CellContext`n$$, $CellContext`n$16483$$, 0], 
        Hold[$CellContext`x1$$, $CellContext`x1$16484$$, 0], 
        Hold[$CellContext`x2$$, $CellContext`x2$16485$$, 0], 
        Hold[$CellContext`y1$$, $CellContext`y1$16486$$, 0], 
        Hold[$CellContext`y2$$, $CellContext`y2$16487$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      DynamicModule[{$CellContext`pt, $CellContext`lin, $CellContext`lin1, \
$CellContext`lin2, $CellContext`i, $CellContext`der, $CellContext`tan}, \
$CellContext`der = D[$CellContext`expr$$, $CellContext`x]; $CellContext`pt = N[
           
           Range[$CellContext`x1$$, $CellContext`x2$$, ($CellContext`x2$$ - \
$CellContext`x1$$)/$CellContext`n$$]]; $CellContext`tan[
           Pattern[$CellContext`u$, 
            Blank[]], 
           Pattern[$CellContext`x0$, 
            Blank[]]] = 
         ReplaceAll[$CellContext`expr$$, $CellContext`x -> $CellContext`x0$] + 
          ReplaceAll[$CellContext`der, $CellContext`x -> $CellContext`x0$] \
($CellContext`u$ - $CellContext`x0$); $CellContext`lin = Table[
           Plot[
           ReplaceAll[$CellContext`expr$$, $CellContext`x -> 
              Part[$CellContext`pt, $CellContext`i]] + 
            ReplaceAll[$CellContext`der, $CellContext`x -> 
               Part[$CellContext`pt, $CellContext`i]] ($CellContext`u - 
              Part[$CellContext`pt, $CellContext`i]), {$CellContext`u, 
             Part[$CellContext`pt, $CellContext`i] - 
             0.5 (($CellContext`x2$$ - $CellContext`x1$$)/$CellContext`n$$), 
             Part[$CellContext`pt, $CellContext`i] + 
             0.5 (($CellContext`x2$$ - $CellContext`x1$$)/$CellContext`n$$)}, 
            PlotStyle -> {{Blue, 
               Thickness[0.01]}}, 
            PlotRange -> {{$CellContext`x1$$, $CellContext`x2$$}, \
{$CellContext`y1$$, $CellContext`y2$$}}], {$CellContext`i, 1, 
            Length[$CellContext`pt], 1}]; $CellContext`lin1 = Table[
           
           Line[{{Part[$CellContext`pt, $CellContext`i] - 
              0.5 (($CellContext`x2$$ - $CellContext`x1$$)/$CellContext`n$$), 
              $CellContext`tan[
              Part[$CellContext`pt, $CellContext`i] - 
               0.5 (($CellContext`x2$$ - $CellContext`x1$$)/$CellContext`n$$), 
               Part[$CellContext`pt, $CellContext`i]]}, {
             Part[$CellContext`pt, $CellContext`i] - 
              0.5 (($CellContext`x2$$ - $CellContext`x1$$)/$CellContext`n$$), 
              $CellContext`tan[
              Part[$CellContext`pt, $CellContext`i] + 
               0.5 (($CellContext`x2$$ - $CellContext`x1$$)/$CellContext`n$$), 
               Part[$CellContext`pt, $CellContext`i]]}, {
             Part[$CellContext`pt, $CellContext`i] + 
              0.5 (($CellContext`x2$$ - $CellContext`x1$$)/$CellContext`n$$), 
              $CellContext`tan[
              Part[$CellContext`pt, $CellContext`i] + 
               0.5 (($CellContext`x2$$ - $CellContext`x1$$)/$CellContext`n$$), 
               Part[$CellContext`pt, $CellContext`i]]}}], {$CellContext`i, 1, 
            Length[$CellContext`pt], 1}]; $CellContext`lin2 = Table[
           Line[{{
              Part[$CellContext`pt, $CellContext`i], $CellContext`y1$$}, {
              
              Part[$CellContext`pt, $CellContext`i], $CellContext`y2$$}}], \
{$CellContext`i, 1, 
            Length[$CellContext`pt], 1}]; GraphicsColumn[{
           Show[
            Plot[
             
             Evaluate[$CellContext`expr$$], {$CellContext`x, \
$CellContext`x1$$, $CellContext`x2$$}, PlotStyle -> {{Red, 
                Thickness[0.01]}}, 
             PlotRange -> {{$CellContext`x1$$, $CellContext`x2$$}, \
{$CellContext`y1$$, $CellContext`y2$$}}], $CellContext`lin, 
            Graphics[{
              PointSize[0.03], 
              Point[
               ReplaceAll[$CellContext`pt, Pattern[$CellContext`s$, 
                  Blank[Real]] -> {$CellContext`s$, 
                  
                  ReplaceAll[$CellContext`expr$$, $CellContext`x -> \
$CellContext`s$]}]]}], 
            Graphics[{Green, $CellContext`lin1}], 
            Graphics[{
              Opacity[0.3], $CellContext`lin2}], AspectRatio -> Automatic, 
            ImageSize -> {
             180 (($CellContext`x2$$ - $CellContext`x1$$)/($CellContext`y2$$ - \
$CellContext`y1$$)), 180}, 
            PlotRange -> {{$CellContext`x1$$, $CellContext`x2$$}, \
{$CellContext`y1$$, $CellContext`y2$$}}, PlotLabel -> Style[
              TraditionalForm[
               HoldForm[
                $CellContext`f[$CellContext`x]]], Bold]], 
           Show[
            Plot[
             Evaluate[
              
              D[$CellContext`expr$$, $CellContext`x]], {$CellContext`x, \
$CellContext`x1$$, $CellContext`x2$$}, PlotStyle -> {{Blue, 
                Thickness[0.01]}}, 
             PlotRange -> {{$CellContext`x1$$, $CellContext`x2$$}, \
{$CellContext`y1$$, $CellContext`y2$$}}, AspectRatio -> Automatic, 
             ImageSize -> {
              180 (($CellContext`x2$$ - $CellContext`x1$$)/($CellContext`y2$$ - \
$CellContext`y1$$)), 180}, PlotLabel -> Style[
               TraditionalForm[
                HoldForm[
                 Derivative[1][$CellContext`f][$CellContext`x]]], Bold]], 
            Graphics[{Green, 
              PointSize[0.03], 
              Point[
               ReplaceAll[$CellContext`pt, Pattern[$CellContext`s, 
                  Blank[Real]] -> {$CellContext`s, 
                  
                  ReplaceAll[$CellContext`der, $CellContext`x -> \
$CellContext`s]}]]}], 
            Graphics[{
              Opacity[0.3], $CellContext`lin2}]]}]], 
      "Specifications" :> {{{$CellContext`expr$$, 
          
          Sin[$CellContext`x]}, {$CellContext`x, $CellContext`x^2, \
$CellContext`x^3, E^(-$CellContext`x^2), 
          Sin[$CellContext`x], 
          Cos[$CellContext`x]}}, {{$CellContext`n$$, 3}, 2, 15, 1, Appearance -> 
         "Labeled", ImageSize -> Small}, 
        Delimiter, {{$CellContext`x1$$, -2}, -10, 10, Appearance -> "Labeled",
          ImageSize -> Small}, {{$CellContext`x2$$, 2}, 
         Dynamic[$CellContext`x1$$], 
         Dynamic[$CellContext`x1$$ + 20], Appearance -> "Labeled", ImageSize -> 
         Small}, {{$CellContext`y1$$, -1.5}, -5, 5, Appearance -> "Labeled", 
         ImageSize -> Small}, {{$CellContext`y2$$, 1.5}, 
         Dynamic[$CellContext`y1$$ + 1], 
         Dynamic[$CellContext`y1$$ + 10], Appearance -> "Labeled", ImageSize -> 
         Small}}, "Options" :> {ControlPlacement -> Left}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{641., {287., 298.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.5893894816012015`*^9, 3.5893895859263515`*^9}, {
   3.58938962672141*^9, 3.589389655398451*^9}, 3.589389727689556*^9, 
   3.5893897860746403`*^9, 3.589781126728063*^9, 
   3.5897812168334675`*^9},ExpressionUUID->"0f27a6b1-6ab2-4a8b-bac8-\
503509124dd7"]
}, {2}]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Egy kis gondolkod\[AAcute]ssal:", "MainSection",
 CellChangeTimes->{{3.5888810545616703`*^9, 3.5888810992491493`*^9}, {
  3.5896296357741756`*^9, 3.5896296463441906`*^9}, {3.663570535178678*^9, 
  3.663570535640704*^9}},ExpressionUUID->"81db9cf7-eec4-4314-baa6-\
2da1ec3736f0"],

Cell["\<\
Ugyanaz mint fenn, de haszn\[AAcute]ljuk a sz\[EAcute]ls\[ODoubleAcute]\
\[EAcute]rt\[EAcute]k- \[EAcute]s inflexi\[OAcute]s helyeket.\
\>", "Text-Framed",
 CellChangeTimes->{{3.588881107378764*^9, 3.5888811502244396`*^9}, {
  3.5896296600142097`*^9, 3.589629687864249*^9}, {3.66357059885332*^9, 
  3.66357059938535*^9}},ExpressionUUID->"a084612e-abeb-4ef5-ba92-\
9cf45c815c8a"],

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,ExpressionUUID->"81b82837-70a7-4fd0-ae97-348546257e83"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->
  "SlideShowHeader",ExpressionUUID->"542bb07f-5d35-4dbe-a325-9c2a4fd6aacf"],

Cell[CellGroupData[{

Cell["\<\
Ford\[IAcute]tott probl\[EAcute]ma:
Ismert a v(t), hat\[AAcute]rozzuk meg az s(t) f\[UDoubleDot]ggv\[EAcute]nyt\
\>", "MainSection",
 CellChangeTimes->{{3.5888810545616703`*^9, 3.5888810992491493`*^9}, {
  3.5896296357741756`*^9, 3.5896296463441906`*^9}, {3.663570535178678*^9, 
  3.663570535640704*^9}, {3.6635706248948097`*^9, 
  3.6635706743526382`*^9}},ExpressionUUID->"3a0c7dc0-9322-47b1-a2af-\
827c329f1c90"],

Cell[CellGroupData[{

Cell["Egy dolgozatp\[EAcute]lda (Gy\[OAcute]gyszer\[EAcute]szek, 2015)", \
"Section",
 CellChangeTimes->{{3.4057079211030035`*^9, 3.405707921593709*^9}, {
   3.532104196455114*^9, 3.5321041968607144`*^9}, {3.532172829262309*^9, 
   3.5321728297553368`*^9}, {3.532190763474691*^9, 3.5321907681702995`*^9}, 
   3.532191815978813*^9, {3.5930909632884235`*^9, 3.593090979468446*^9}, {
   3.6251619565236416`*^9, 3.6251619605124793`*^9}, {3.625556663633461*^9, 
   3.6255566664934645`*^9}, {3.625736431938179*^9, 3.6257364342981825`*^9}, {
   3.6569258859628696`*^9, 3.656925888072873*^9}, {3.6635709302092724`*^9, 
   3.663570945422143*^9}},ExpressionUUID->"df11ae08-cdd2-47ec-b077-\
b05151b4f2c0"],

Cell[TextData[{
 "Egy egyenes vonal\[UAcute] p\[AAcute]ly\[AAcute]n mozg\[OAcute] test ",
 StyleBox["pillanatnyi",
  FontWeight->"Bold"],
 " ",
 StyleBox["sebess\[EAcute]g",
  FontWeight->"Bold"],
 "\[EAcute]t l\[AAcute]thatjuk:"
}], "Text",
 CellChangeTimes->{{3.4058478999082594`*^9, 3.4058479172732286`*^9}, {
   3.5007930065*^9, 3.5007930065*^9}, {3.5321728249590626`*^9, 
   3.5321728249590626`*^9}, {3.593577743636221*^9, 3.593577743636221*^9}, {
   3.593577781136369*^9, 3.593577781136369*^9}, 3.625161016390991*^9, {
   3.6252431123593397`*^9, 3.625243132135433*^9}, {3.7270099390874896`*^9, 
   3.727009941855648*^9}},ExpressionUUID->"7ef5d3d9-b4c1-4acb-9d34-\
596b9273d3b9"],

Cell[CellGroupData[{

Cell["A sebess\[EAcute]gm\[EAcute]r\[ODoubleAcute] \[EAcute]s grafikon", \
"Subsection",
 CellChangeTimes->{{3.663573142909832*^9, 3.6635731520113525`*^9}, {
  3.727009952821275*^9, 
  3.7270099581975822`*^9}},ExpressionUUID->"b2f7bc02-454a-491b-91c8-\
f37eb512fdfd"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"DynamicModule", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"u", ",", "v", ",", "t"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"v", "=", 
       RowBox[{"Interpolation", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"3", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"4", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"5", ",", 
             RowBox[{"-", "2"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"6", ",", "0"}], "}"}]}], "}"}], ",", 
         RowBox[{"InterpolationOrder", "\[Rule]", "1"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Row", "[", 
       RowBox[{"{", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"AngularGauge", "[", 
          RowBox[{
           RowBox[{"v", "[", "T", "]"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
           RowBox[{"GaugeLabels", "\[Rule]", "\"\<m/s\>\""}]}], "]"}], ",", 
         "\"\<    \>\"", ",", "\[IndentingNewLine]", 
         RowBox[{"Plot", "[", 
          RowBox[{
           RowBox[{"v", "[", "t", "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"t", ",", "0", ",", "T"}], "}"}], ",", 
           RowBox[{"PlotRange", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"0", ",", "6"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "}"}]}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"ImageSize", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"300", ",", "200"}], "}"}]}], ",", 
           RowBox[{"AxesLabel", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"t", ",", "s"}], "}"}]}]}], "]"}]}], "}"}], "]"}]}]}], 
    "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"T", ",", "0.01"}], "}"}], ",", "0.01", ",", "6", ",", 
     RowBox[{"Appearance", "\[Rule]", 
      RowBox[{"{", "\"\<Open\>\"", "}"}]}]}], "}"}], ",", 
   RowBox[{"ControlPlacement", "\[Rule]", "Top"}], ",", "\[IndentingNewLine]", 
   RowBox[{"SaveDefinitions", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4038570350081234`*^9, 3.4038571752497807`*^9}, {
   3.403857215687928*^9, 3.4038572473033886`*^9}, {3.403864968409683*^9, 
   3.4038649790349617`*^9}, {3.403865133176606*^9, 3.4038651699795265`*^9}, {
   3.4038652143533325`*^9, 3.4038652386482673`*^9}, {3.4038652824712815`*^9, 
   3.4038654442238703`*^9}, {3.4044568150945425`*^9, 
   3.4044568207426643`*^9}, {3.404456894919325*^9, 3.4044569261742673`*^9}, {
   3.404457383822333*^9, 3.404457503264082*^9}, {3.404460721932299*^9, 
   3.404460741860955*^9}, {3.404461017827776*^9, 3.404461055531992*^9}, {
   3.4044611048428974`*^9, 3.404461123209307*^9}, {3.404497246093424*^9, 
   3.404497358224661*^9}, {3.404497441344181*^9, 3.4044974428363266`*^9}, {
   3.435081780265625*^9, 3.435081901890625*^9}, {3.4350819948125*^9, 
   3.4350820256875*^9}, {3.435083589421875*^9, 3.43508358959375*^9}, {
   3.435083637296875*^9, 3.43508363934375*^9}, {3.435083792875*^9, 
   3.435083798625*^9}, {3.435083837015625*^9, 3.4350838791875*^9}, {
   3.435083918890625*^9, 3.43508398775*^9}, {3.435084062625*^9, 
   3.4350840681875*^9}, {3.43508413484375*^9, 3.435084196015625*^9}, {
   3.435084242171875*^9, 3.435084287078125*^9}, {3.4350844163125*^9, 
   3.43508449375*^9}, {3.466742885515625*^9, 3.46674293759375*^9}, {
   3.4929663452924585`*^9, 3.4929664074803567`*^9}, {3.4929664447930956`*^9, 
   3.492966446621232*^9}, {3.492966585325245*^9, 3.492966659669471*^9}, {
   3.492966728419911*^9, 3.4929667668107815`*^9}, {3.4929668211705046`*^9, 
   3.492966858342617*^9}, {3.492966909124192*^9, 3.4929669122648373`*^9}, {
   3.4929669517963405`*^9, 3.4929670124686036`*^9}, {3.4929670527969866`*^9, 
   3.4929670822815504`*^9}, {3.4929676476757936`*^9, 3.492967666160287*^9}, {
   3.49296772520754*^9, 3.4929677296606936`*^9}, 3.5899092669629784`*^9, {
   3.589909310710456*^9, 3.5899093239256787`*^9}, {3.589909380451578*^9, 
   3.5899094235292544`*^9}, {3.5899094630823245`*^9, 3.589909543496866*^9}, {
   3.5899095839547377`*^9, 3.5899097023321466`*^9}, 3.589909753400037*^9, {
   3.5899097958401117`*^9, 3.5899098169957495`*^9}, {3.5899098580162215`*^9, 
   3.5899098629312305`*^9}, {3.6635711951994295`*^9, 
   3.6635713131501756`*^9}, {3.663571355034571*^9, 3.6635714256286087`*^9}, {
   3.663571517645872*^9, 3.6635715313126535`*^9}, {3.663571588506925*^9, 
   3.663571679496129*^9}, {3.6635717244707017`*^9, 3.6635717951467443`*^9}, {
   3.6635718798255873`*^9, 3.663572103849401*^9}, {3.663572135915235*^9, 
   3.6635721889752703`*^9}, {3.663572266477703*^9, 3.6635724374054794`*^9}, {
   3.6635724684282537`*^9, 3.663572477943798*^9}, {3.66357254581768*^9, 
   3.6635725828838005`*^9}, {3.727009565713134*^9, 3.727009576518752*^9}, {
   3.727009608757596*^9, 3.7270097145006437`*^9}, {3.7270097638304653`*^9, 
   3.7270097641414833`*^9}, {3.727009809948103*^9, 
   3.7270098755668564`*^9}},ExpressionUUID->"a04fc1cf-a0ff-4524-bca9-\
94511d9a288c"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`T$$ = 1.0545460090637206`, Typeset`show$$ = 
    True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`T$$], 0.01}, 0.01, 6}}, Typeset`size$$ = {
    656., {120., 130.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = False, $CellContext`T$13324$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`T$$ = 0.01}, 
      "ControllerVariables" :> {
        Hold[$CellContext`T$$, $CellContext`T$13324$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      DynamicModule[{$CellContext`u, $CellContext`v, $CellContext`t}, \
$CellContext`v = 
         Interpolation[{{0, 1}, {1, 2}, {3, 0}, {4, 0}, {5, -2}, {6, 0}}, 
           InterpolationOrder -> 1]; Row[{
           AngularGauge[
            $CellContext`v[$CellContext`T$$], {-3, 3}, GaugeLabels -> "m/s"], 
           "    ", 
           Plot[
            $CellContext`v[$CellContext`t], {$CellContext`t, 
             0, $CellContext`T$$}, PlotRange -> {{0, 6}, {-2, 2}}, 
            ImageSize -> {300, 200}, 
            AxesLabel -> {$CellContext`t, $CellContext`s}]}]], 
      "Specifications" :> {{{$CellContext`T$$, 0.01}, 0.01, 6, 
         Appearance -> {"Open"}}}, "Options" :> {ControlPlacement -> Top}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{723., {199., 210.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({$CellContext`v = 
       InterpolatingFunction[{{0, 6}}, {
         5, 3, 0, {6}, {2}, 0, 0, 0, 0, Automatic, {}, {}, False}, {{0, 1, 3, 
         4, 5, 6}}, {{1}, {2}, {0}, {0}, {-2}, {0}}, {Automatic}], 
       TagSet[GaugeLabels, 
        MessageName[GaugeLabels, "usage"], 
        "GaugeLabels is an option for gauge functions that specifies labels \
to be placed on the gauge."]}; Typeset`initDone$$ = True),
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.7270097650565357`*^9, {3.727009813071282*^9, 
   3.7270098767019215`*^9}},ExpressionUUID->"74174017-8585-41bd-8a5a-\
16f94798f5d7"]
}, {2}]]
}, Open  ]],

Cell[CellGroupData[{

Cell["K\[EAcute]rd\[EAcute]sek :", "Subsection",
 CellChangeTimes->{{3.6635726004428043`*^9, 
  3.663572613229536*^9}},ExpressionUUID->"730c9554-1a8d-4fd9-b575-\
6cf6c5bca19d"],

Cell[TextData[{
 "a) Milyen ir\[AAcute]nyban (el\[ODoubleAcute]re vagy h\[AAcute]tra) indul \
el a test? Mi\[EAcute]rt?\nb) Mennyit v\[AAcute]ltozik a test helyzete a ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["t", "1"], "=", "0"}], TraditionalForm]],ExpressionUUID->
  "9b4f8bf3-af11-4365-85a4-3886e455bbab"],
 " \[EAcute]s ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["t", "2"], "=", "6"}], TraditionalForm]],ExpressionUUID->
  "691b5d2e-1de6-4b08-ac49-1d29b8914d0f"],
 " pillanatok k\[ODoubleDot]z\[ODoubleDot]tt?\nc) Hol van a test \
legt\[AAcute]volabb a kezdeti pontt\[OAcute]l?\nd) Mennyi a test \
\[AAcute]ltal megtett teljes \[UAcute]t?\ne) Mennyi az \[AAcute]tlagsebess\
\[EAcute]g ezen a ",
 Cell[BoxData[
  FormBox[
   RowBox[{"[", 
    RowBox[{"1", ",", "3"}], "]"}], TraditionalForm]],ExpressionUUID->
  "126d7e8c-4ba5-48ae-8c7b-7c3302e32886"],
 " szakaszon?"
}], "Text",
 CellChangeTimes->{
  3.5231754118634095`*^9, 3.5231756816346836`*^9, {3.562608330926871*^9, 
   3.562608330926871*^9}, 3.5626084691242332`*^9, {3.562608739366289*^9, 
   3.562608739366289*^9}, {3.5626094445551944`*^9, 3.5626094533086247`*^9}, 
   3.562609557234542*^9, {3.5935775834286957`*^9, 3.5935775878387012`*^9}, 
   3.593577619208746*^9, 3.593601984224942*^9, {3.6251599348807297`*^9, 
   3.6251599679912796`*^9}, {3.625160257387125*^9, 3.625160332832776*^9}, {
   3.6251614584023495`*^9, 3.625161529906234*^9}, {3.62516156526536*^9, 
   3.625161632296031*^9}, {3.6251619130287333`*^9, 3.6251619274599705`*^9}, 
   3.625243383750369*^9, {3.656913423687729*^9, 3.656913423687729*^9}, {
   3.6569134569551554`*^9, 3.656913468018253*^9}, {3.656913555925823*^9, 
   3.656913641461684*^9}, {3.6569137848440437`*^9, 3.6569137868597813`*^9}, 
   3.6569142368053455`*^9, 3.6569260635241184`*^9, {3.6571668447745233`*^9, 
   3.6571668714620495`*^9}},ExpressionUUID->"8ecb639e-1e88-43f8-b515-\
3f105cc1b2a6"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Dinamikus vizsg\[AAcute]lat (sebess\[EAcute]g \[EAcute]s elmozdul\
\[AAcute]s):", "Section",
 CellChangeTimes->{{3.4057079211030035`*^9, 3.405707921593709*^9}, {
   3.532104196455114*^9, 3.5321041968607144`*^9}, {3.532172829262309*^9, 
   3.5321728297553368`*^9}, {3.532190763474691*^9, 3.5321907681702995`*^9}, 
   3.532191815978813*^9, {3.5930909632884235`*^9, 3.593090979468446*^9}, {
   3.6251619565236416`*^9, 3.6251619605124793`*^9}, {3.625556663633461*^9, 
   3.6255566664934645`*^9}, {3.625736431938179*^9, 3.6257364342981825`*^9}, {
   3.6569258859628696`*^9, 3.656925888072873*^9}, {3.6635709302092724`*^9, 
   3.663570980838168*^9}, {3.663571845729637*^9, 
   3.6635718528130426`*^9}},ExpressionUUID->"260327c7-0061-4d24-95b0-\
bb71b95f5ab8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"DynamicModule", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"u", ",", "v", ",", "t", ",", "s"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"v", "=", 
       RowBox[{"Interpolation", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"3", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"4", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"5", ",", 
             RowBox[{"-", "2"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"6", ",", "0"}], "}"}]}], "}"}], ",", 
         RowBox[{"InterpolationOrder", "\[Rule]", "1"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"s", "[", "t_", "]"}], "=", 
       RowBox[{
        SubsuperscriptBox["\[Integral]", "0", "t"], 
        RowBox[{
         RowBox[{"v", "[", "u", "]"}], 
         RowBox[{"\[DifferentialD]", "u"}]}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"Row", "[", 
       RowBox[{"{", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"AngularGauge", "[", 
          RowBox[{
           RowBox[{"v", "[", "T", "]"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
           RowBox[{"ScaleDivisions", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"10", ",", "2"}], "}"}]}], ",", 
           RowBox[{"TargetUnits", "\[Rule]", 
            RowBox[{"Style", "[", 
             RowBox[{"\"\<m/s\>\"", ",", "16", ",", "Bold"}], "]"}]}], ",", 
           RowBox[{"GaugeLabels", "\[Rule]", "Full"}]}], "]"}], ",", 
         "\"\<    \>\"", ",", "\[IndentingNewLine]", 
         RowBox[{"Show", "[", 
          RowBox[{
           RowBox[{"Plot", "[", 
            RowBox[{
             RowBox[{"Evaluate", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"v", "[", "t", "]"}], ",", 
                RowBox[{"s", "[", "t", "]"}]}], "}"}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"t", ",", "0", ",", "T"}], "}"}], ",", 
             RowBox[{"PlotStyle", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"Thick", ",", "Blue"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"Thick", ",", "Blue"}], "}"}]}], "}"}]}], ",", 
             RowBox[{"PlotPoints", "\[Rule]", "50"}], ",", 
             RowBox[{"Filling", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{"{", 
                RowBox[{"1", "->", "Axis"}], "}"}], "}"}]}], ",", 
             RowBox[{"PlotRange", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"0", ",", "6"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"-", "2"}], ",", "4"}], "}"}]}], "}"}]}], ",", 
             RowBox[{"AxesLabel", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{"\"\<t\>\"", ",", "\"\<v(t)\\ns(t)\>\""}], "}"}]}]}], 
            "]"}], ",", "\[IndentingNewLine]", 
           RowBox[{"Plot", "[", 
            RowBox[{
             RowBox[{"v", "[", "t", "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"t", ",", "0", ",", "6"}], "}"}], ",", 
             RowBox[{"PlotStyle", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"Thick", ",", "Red"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"Thick", ",", "Blue"}], "}"}]}], "}"}]}], ",", 
             RowBox[{"PlotPoints", "\[Rule]", "50"}], ",", 
             RowBox[{"PlotRange", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"0", ",", "6"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"-", "2"}], ",", "4"}], "}"}]}], "}"}]}]}], "]"}], 
           ",", 
           RowBox[{"Graphics", "[", 
            RowBox[{"{", 
             RowBox[{"Blue", ",", 
              RowBox[{"Opacity", "[", "0.5", "]"}], ",", 
              RowBox[{"Line", "[", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"T", ",", 
                   RowBox[{"-", "2"}]}], "}"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"T", ",", "4"}], "}"}]}], "}"}], "]"}]}], "}"}], 
            "]"}], ",", 
           RowBox[{"ImageSize", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"300", ",", "200"}], "}"}]}]}], "]"}], ",", 
         "\"\<    \>\"", ",", "\[IndentingNewLine]", 
         RowBox[{"AngularGauge", "[", 
          RowBox[{
           RowBox[{"s", "[", "T", "]"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", 
           RowBox[{"TargetUnits", "\[Rule]", 
            RowBox[{"Style", "[", 
             RowBox[{"\"\<m\>\"", ",", "16", ",", "Bold"}], "]"}]}], ",", 
           RowBox[{"GaugeLabels", "\[Rule]", "Full"}], ",", 
           RowBox[{"ScaleDivisions", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"10", ",", "2"}], "}"}]}]}], "]"}]}], "}"}], "]"}]}]}], 
    "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"T", ",", "0.00001"}], "}"}], ",", "0.00001", ",", "6", ",", 
     RowBox[{"Appearance", "\[Rule]", 
      RowBox[{"{", "\"\<Open\>\"", "}"}]}]}], "}"}], ",", 
   RowBox[{"ControlPlacement", "\[Rule]", "Top"}], ",", "\[IndentingNewLine]", 
   RowBox[{"SaveDefinitions", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4038570350081234`*^9, 3.4038571752497807`*^9}, {
   3.403857215687928*^9, 3.4038572473033886`*^9}, {3.403864968409683*^9, 
   3.4038649790349617`*^9}, {3.403865133176606*^9, 3.4038651699795265`*^9}, {
   3.4038652143533325`*^9, 3.4038652386482673`*^9}, {3.4038652824712815`*^9, 
   3.4038654442238703`*^9}, {3.4044568150945425`*^9, 
   3.4044568207426643`*^9}, {3.404456894919325*^9, 3.4044569261742673`*^9}, {
   3.404457383822333*^9, 3.404457503264082*^9}, {3.404460721932299*^9, 
   3.404460741860955*^9}, {3.404461017827776*^9, 3.404461055531992*^9}, {
   3.4044611048428974`*^9, 3.404461123209307*^9}, {3.404497246093424*^9, 
   3.404497358224661*^9}, {3.404497441344181*^9, 3.4044974428363266`*^9}, {
   3.435081780265625*^9, 3.435081901890625*^9}, {3.4350819948125*^9, 
   3.4350820256875*^9}, {3.435083589421875*^9, 3.43508358959375*^9}, {
   3.435083637296875*^9, 3.43508363934375*^9}, {3.435083792875*^9, 
   3.435083798625*^9}, {3.435083837015625*^9, 3.4350838791875*^9}, {
   3.435083918890625*^9, 3.43508398775*^9}, {3.435084062625*^9, 
   3.4350840681875*^9}, {3.43508413484375*^9, 3.435084196015625*^9}, {
   3.435084242171875*^9, 3.435084287078125*^9}, {3.4350844163125*^9, 
   3.43508449375*^9}, {3.466742885515625*^9, 3.46674293759375*^9}, {
   3.4929663452924585`*^9, 3.4929664074803567`*^9}, {3.4929664447930956`*^9, 
   3.492966446621232*^9}, {3.492966585325245*^9, 3.492966659669471*^9}, {
   3.492966728419911*^9, 3.4929667668107815`*^9}, {3.4929668211705046`*^9, 
   3.492966858342617*^9}, {3.492966909124192*^9, 3.4929669122648373`*^9}, {
   3.4929669517963405`*^9, 3.4929670124686036`*^9}, {3.4929670527969866`*^9, 
   3.4929670822815504`*^9}, {3.4929676476757936`*^9, 3.492967666160287*^9}, {
   3.49296772520754*^9, 3.4929677296606936`*^9}, 3.5899092669629784`*^9, {
   3.589909310710456*^9, 3.5899093239256787`*^9}, {3.589909380451578*^9, 
   3.5899094235292544`*^9}, {3.5899094630823245`*^9, 3.589909543496866*^9}, {
   3.5899095839547377`*^9, 3.5899097023321466`*^9}, 3.589909753400037*^9, {
   3.5899097958401117`*^9, 3.5899098169957495`*^9}, {3.5899098580162215`*^9, 
   3.5899098629312305`*^9}, {3.6635711951994295`*^9, 
   3.6635713131501756`*^9}, {3.663571355034571*^9, 3.6635714256286087`*^9}, {
   3.663571517645872*^9, 3.6635715313126535`*^9}, {3.663571588506925*^9, 
   3.663571679496129*^9}, {3.6635717244707017`*^9, 3.6635717951467443`*^9}, {
   3.6635718798255873`*^9, 3.663572103849401*^9}, {3.663572135915235*^9, 
   3.6635721889752703`*^9}, {3.663572266477703*^9, 3.6635724374054794`*^9}, {
   3.6635724684282537`*^9, 3.663572477943798*^9}, {3.66357254581768*^9, 
   3.6635725828838005`*^9}, {3.727009565713134*^9, 3.727009576518752*^9}, {
   3.727009608757596*^9, 3.7270097145006437`*^9}, {3.7270097638304653`*^9, 
   3.7270097641414833`*^9}, {3.727009809948103*^9, 3.7270098755668564`*^9}, 
   3.7270100635266075`*^9, {3.727010266459214*^9, 3.7270102887374887`*^9}, {
   3.7270103316429424`*^9, 3.7270104462935*^9}, {3.727010542154983*^9, 
   3.7270105809021993`*^9}, {3.7270107177300253`*^9, 
   3.7270107195541296`*^9}, {3.727011203138789*^9, 
   3.7270112869335823`*^9}},ExpressionUUID->"719c5f58-8768-4010-aff3-\
e2fd88ff1f14"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`T$$ = 0.00001, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`T$$], 0.00001}, 0.00001, 6}}, Typeset`size$$ = {
    937., {120., 130.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = False, $CellContext`T$138665$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`T$$ = 0.00001}, 
      "ControllerVariables" :> {
        Hold[$CellContext`T$$, $CellContext`T$138665$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      DynamicModule[{$CellContext`u, $CellContext`v, $CellContext`t, \
$CellContext`s}, $CellContext`v = 
         Interpolation[{{0, 1}, {1, 2}, {3, 0}, {4, 0}, {5, -2}, {6, 0}}, 
           InterpolationOrder -> 1]; $CellContext`s[
           Pattern[$CellContext`t, 
            Blank[]]] = Integrate[
           $CellContext`v[$CellContext`u], {$CellContext`u, 
            0, $CellContext`t}]; Row[{
           AngularGauge[
            $CellContext`v[$CellContext`T$$], {-3, 3}, 
            ScaleDivisions -> {10, 2}, TargetUnits -> Style["m/s", 16, Bold], 
            GaugeLabels -> Full], "    ", 
           Show[
            Plot[
             Evaluate[{
               $CellContext`v[$CellContext`t], 
               $CellContext`s[$CellContext`t]}], {$CellContext`t, 
              0, $CellContext`T$$}, 
             PlotStyle -> {{Thick, Blue}, {Thick, Blue}}, PlotPoints -> 50, 
             Filling -> {{1 -> Axis}}, PlotRange -> {{0, 6}, {-2, 4}}, 
             AxesLabel -> {"t", "v(t)\ns(t)"}], 
            Plot[
             $CellContext`v[$CellContext`t], {$CellContext`t, 0, 6}, 
             PlotStyle -> {{Thick, Red}, {Thick, Blue}}, PlotPoints -> 50, 
             PlotRange -> {{0, 6}, {-2, 4}}], 
            Graphics[{Blue, 
              Opacity[0.5], 
              Line[{{$CellContext`T$$, -2}, {$CellContext`T$$, 4}}]}], 
            ImageSize -> {300, 200}], "    ", 
           AngularGauge[
            $CellContext`s[$CellContext`T$$], {-4, 4}, TargetUnits -> 
            Style["m", 16, Bold], GaugeLabels -> Full, 
            ScaleDivisions -> {10, 2}]}]], 
      "Specifications" :> {{{$CellContext`T$$, 0.00001}, 0.00001, 6, 
         Appearance -> {"Open"}}}, "Options" :> {ControlPlacement -> Top}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{1004., {199., 210.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({$CellContext`v = 
       InterpolatingFunction[{{0, 6}}, {
         5, 3, 0, {6}, {2}, 0, 0, 0, 0, Automatic, {}, {}, False}, {{0, 1, 3, 
         4, 5, 6}}, {{1}, {2}, {0}, {0}, {-2}, {0}}, {Automatic}], 
       TagSet[ScaleDivisions, 
        MessageName[ScaleDivisions, "usage"], 
        "ScaleDivisions is an option for gauge functions that specifies how \
many tick marks should be drawn on the scale."], 
       TagSet[GaugeLabels, 
        MessageName[GaugeLabels, "usage"], 
        "GaugeLabels is an option for gauge functions that specifies labels \
to be placed on the gauge."]}; Typeset`initDone$$ = True),
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.7270100651356993`*^9, {3.727010275107709*^9, 3.727010289394526*^9}, 
   3.727010392701435*^9, 3.7270104559190507`*^9, {3.727010556044778*^9, 
   3.7270105821822724`*^9}, 3.727010721511242*^9, {3.72701121364939*^9, 
   3.727011290313775*^9}},ExpressionUUID->"1733ba8d-ede8-4fec-a0a0-\
25e53f896231"]
}, {2}]]
}, Open  ]],

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,ExpressionUUID->"a1ef950e-c7e8-4ad5-9676-fc0ec94b9adc"]
}, Open  ]]
}, Open  ]]
},
ScreenStyleEnvironment->"SlideShow",
WindowToolbars->"EditBar",
WindowSize->{1858, 1038},
WindowMargins->{{-8, Automatic}, {Automatic, -8}},
Magnification:>1.25 Inherited,
FrontEndVersion->"11.2 for Microsoft Windows (64-bit) (September 10, 2017)",
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 -> 24, 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 -> 34], 
               Cell[
                StyleData["Subtitle", "Condensed"], 
                CellMargins -> {{0, 10}, {4, 4}}, FontSize -> 18], 
               Cell[
                StyleData["Subtitle", "Printout"], 
                CellMargins -> {{0, 5}, {10, 5}}], 
               Cell[
                StyleData["Subtitle", "SlideShow"], FontSize -> 34]}, 
              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}, {
                  "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 -> 30]}, 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}, {
                  "Subtitle", 0}, {"Subsubtitle", 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 -> 30]}, 
              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}}, 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 -> 30]}, 
              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 -> 20, 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 -> 26]}, 
              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 -> 20, 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 -> 
                26]}, 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 -> 40], 
               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 programbet\[ODoubleDot]lt\[EAcute]s."}]], 
                   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[{
                 CounterBox["Theorem"], ". ", 
                 StyleBox["T", FontSize -> 14, FontWeight -> "Bold"], 
                 StyleBox[
                 "\[CapitalEAcute]TEL ", FontSize -> 12, FontWeight -> 
                  "Bold"]}], CellSize -> {70, 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[{
                 CounterBox["Remark"], ". ", 
                 StyleBox["M", FontSize -> 14, FontWeight -> "Bold"], 
                 StyleBox[
                 "EGJEGYZ\[CapitalEAcute]S ", FontSize -> 12, FontWeight -> 
                  "Bold"]}], CellSize -> {110, 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[{
                 CounterBox["Corollary"], ". ", 
                 StyleBox["K", FontSize -> 14, FontWeight -> "Bold"], 
                 StyleBox[
                 "\[CapitalODoubleDot]VETKEZM\[CapitalEAcute]NY", FontSize -> 
                  12, FontWeight -> "Bold"]}], CellSize -> {120, 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[{
                 CounterBox["Definition"], ". ", 
                 StyleBox["D", FontSize -> 14, FontWeight -> "Bold"], 
                 StyleBox[
                 "EFIN\[CapitalIAcute]CI\[CapitalOAcute]", FontSize -> 12, 
                  FontWeight -> "Bold"]}], CellSize -> {80, 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 -> 
             14, 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[{
                 CounterBox["SolvedProblem"], ". ", 
                 StyleBox["P", FontSize -> 14, FontWeight -> "Bold"], 
                 StyleBox[
                 "\[CapitalEAcute]LDA ", FontSize -> 12, FontWeight -> 
                  "Bold"]}], CellSize -> {70, 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[{
                 CounterBox["Problem"], ". ", 
                 StyleBox["F", FontSize -> 14, FontWeight -> "Bold"], 
                 StyleBox["ELADAT ", FontSize -> 12, FontWeight -> "Bold"]}], 
               CellSize -> {90, 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[{
                 CounterBox["Experiment"], ". ", 
                 StyleBox["K", FontSize -> 14, FontWeight -> "Bold"], 
                 StyleBox[
                 "\[CapitalIAcute]S\[CapitalEAcute]RLET ", FontSize -> 12, 
                  FontWeight -> "Bold"]}], CellSize -> {95, 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[{"M", 
                   StyleBox[
                   "EGOLD\[CapitalAAcute]S", 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[{"B", 
                   StyleBox[
                   "IZONY\[CapitalIAcute]T\[CapitalAAcute]S", 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 -> 22]}, 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 -> 110], 
               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["NumberedEquation"], ")"}]]}, {None, None}}, 
             DefaultFormatType -> DefaultInlineCellFormatType, TextAlignment -> 
             Center, TextJustification -> 0, CounterIncrements -> 
             "NumberedEquation", MenuSortingValue -> 2400, FontSize -> 12, 
             FontWeight -> "Bold"], 
            Cell[
             StyleData["NumberedEquation", "Printout"]], 
            Cell[
             StyleData["NumberedEquation", "SlideShow"], FontSize -> 24]}, 
           Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["NumberedFigure"], ShowCellBracket -> Automatic, 
             CellMargins -> {{40, 30}, {5, 6}}, CellHorizontalScrolling -> 
             True, CellFrameLabels -> {{None, None}, {
                Cell[
                 TextData[{
                   CounterBox["NumberedFigure"], ".", " \[AAcute]bra "}], 
                 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["1ColumnBox"], CellFrame -> True, 
             CellMargins -> {{5, 5}, {0, 8}}, CellHorizontalScrolling -> True,
              LineIndent -> 0, Background -> RGBColor[1, 0.900008, 0.700008], 
             FrameBoxOptions -> {
              FrameMargins -> {{31.200000000000003`, 31.200000000000003`}, {
                15.600000000000001`, 15.600000000000001`}}}, 
             GridBoxOptions -> {GridBoxSpacings -> {"Columns" -> {
                   Offset[0.27999999999999997`], {
                    Offset[0.7]}, 
                   Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {
                   Offset[0.2], {
                    Offset[0.4]}, 
                   Offset[0.2]}, "RowsIndexed" -> {}}}], 
            Cell[
             StyleData["1ColumnBox", "Printout"]]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["2ColumnBox"], CellFrame -> True, ShowCellBracket -> 
             True, CellMargins -> {{5, 5}, {2, 8}}, CellHorizontalScrolling -> 
             True, LineIndent -> 0, Background -> 
             RGBColor[1, 0.900008, 0.700008], 
             FrameBoxOptions -> {
              FrameMargins -> {{31.200000000000003`, 31.200000000000003`}, {
                15.600000000000001`, 15.600000000000001`}}}, 
             GridBoxOptions -> {
              GridBoxAlignment -> {
                "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, 
               GridBoxDividers -> {
                "Columns" -> {True, {False}, True}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {True, {False}, True}, "RowsIndexed" -> {}}, 
               GridBoxItemSize -> {"Columns" -> {
                   Scaled[0.3], {
                    Scaled[0.45]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
                 "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> {
                   Offset[0.27999999999999997`], {
                    Offset[0.35]}, 
                   Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {
                   Offset[0.2], {
                    Offset[0.4]}, 
                   Offset[0.2]}, "RowsIndexed" -> {}}}], 
            Cell[
             StyleData["2ColumnBox", "Printout"]]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["3ColumnBox"], CellFrame -> True, ShowCellBracket -> 
             True, CellMargins -> {{5, 5}, {2, 8}}, CellHorizontalScrolling -> 
             True, LineIndent -> 0, Background -> 
             RGBColor[1, 0.900008, 0.700008], 
             FrameBoxOptions -> {
              FrameMargins -> {{31.200000000000003`, 31.200000000000003`}, {
                15.600000000000001`, 15.600000000000001`}}}, 
             GridBoxOptions -> {
              GridBoxAlignment -> {
                "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, 
               GridBoxDividers -> {
                "Columns" -> {True, {False}, True}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {True, {False}, True}, "RowsIndexed" -> {}}, 
               GridBoxItemSize -> {"Columns" -> {{
                    Scaled[0.25]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
                 "RowsIndexed" -> {}}}], 
            Cell[
             StyleData["3ColumnBox", "Printout"]]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["2ColumnTable"], CellMargins -> {{5, 5}, {0, 8}}, 
             CellHorizontalScrolling -> True, 
             GridBoxOptions -> {
              GridBoxAlignment -> {
                "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, 
               GridBoxItemSize -> {"Columns" -> {
                   Scaled[0.3], {
                    Scaled[0.5]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
                 "RowsIndexed" -> {}}}], 
            Cell[
             StyleData["2ColumnTable", "Printout"], 
             CellMargins -> {{5, 5}, {0, 8}}, FontSize -> 10]}, Closed]], 
         Cell[
          CellGroupData[{
            Cell[
             StyleData["3ColumnTable"], CellMargins -> {{5, 5}, {0, 8}}, 
             CellHorizontalScrolling -> True, 
             GridBoxOptions -> {
              GridBoxAlignment -> {
                "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
                 "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, 
               GridBoxItemSize -> {"Columns" -> {{
                    Scaled[0.3]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
                 "RowsIndexed" -> {}}}], 
            Cell[
             StyleData["3ColumnTable", "Printout"], 
             CellMargins -> {{5, 5}, {0, 8}}, FontSize -> 10]}, Open]]}, 
        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}, 
             CounterAssignments -> {{"Section", 0}, {"Equation", 0}, {
               "Figure", 0}}, 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 -> 
  "11.2 for Microsoft Windows (64-bit) (September 10, 2017)", 
  StyleDefinitions -> "PrivateStylesheetFormatting.nb"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "SlideShowHeader"->{
  Cell[579, 22, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"c1c9e07c-8435-4106-b409-c59b3c88a283",
   CellTags->"SlideShowHeader"],
  Cell[15390, 371, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"fdeb32c9-b5ae-4490-abe2-5f1d7d330e38",
   CellTags->"SlideShowHeader"],
  Cell[29391, 679, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"fec6ef4f-4f1a-463d-b80b-50eb18734de9",
   CellTags->"SlideShowHeader"],
  Cell[33992, 826, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"27431474-cdc4-4e0a-b8b8-3d2e25105804",
   CellTags->"SlideShowHeader"],
  Cell[39823, 978, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"941b513f-7cad-4133-a461-ded7c1b8881b",
   CellTags->"SlideShowHeader"],
  Cell[70786, 1676, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"542bb07f-5d35-4dbe-a325-9c2a4fd6aacf",
   CellTags->"SlideShowHeader"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"SlideShowHeader", 183689, 3996}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"c1c9e07c-8435-4106-b409-c59b3c88a283",
 CellTags->"SlideShowHeader"],
Cell[704, 26, 458, 7, 117, "MainTitle",ExpressionUUID->"eb1f1137-9899-4ebb-8c65-ec61bb34d146"],
Cell[CellGroupData[{
Cell[1187, 37, 437, 7, 69, "MainSection",ExpressionUUID->"52e51d6c-0ef5-4993-b25d-15ef0e61c761"],
Cell[1627, 46, 948, 30, 71, "Text",ExpressionUUID->"3044ddef-87a1-40c3-a03a-973a70430bd7"],
Cell[CellGroupData[{
Cell[2600, 80, 6872, 165, 3320, "Input",ExpressionUUID->"5c4391c1-f66b-480d-9c10-268d0c10fddd"],
Cell[9475, 247, 5018, 97, 455, "Output",ExpressionUUID->"86e82f2a-7049-4d17-93e9-8bed50d692bf"]
}, {2}]],
Cell[14505, 347, 836, 18, 54, "PreviousNext",ExpressionUUID->"0ccd79f7-8b34-4c59-a15b-d2719194f2f4"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[15390, 371, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"fdeb32c9-b5ae-4490-abe2-5f1d7d330e38",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[15537, 377, 162, 2, 69, "MainSection",ExpressionUUID->"f95f08d3-a73a-41d7-b5dd-cef83c96e424"],
Cell[CellGroupData[{
Cell[15724, 383, 268, 5, 44, "Th-Env",ExpressionUUID->"76b7666d-46b1-4aa4-bf9a-5ecc0e247125"],
Cell[CellGroupData[{
Cell[16017, 392, 1024, 26, 477, "Input",ExpressionUUID->"53020596-0bf4-4989-97e0-370c3d3dc87d"],
Cell[17044, 420, 7651, 134, 417, "Output",ExpressionUUID->"113543f6-c3ff-4d14-b496-6671e3a79e5b"]
}, {2}]]
}, Open  ]],
Cell[CellGroupData[{
Cell[24741, 560, 271, 4, 44, "Th-Env",ExpressionUUID->"c2b6392f-8e57-42b1-af42-a462a1156fa8"],
Cell[CellGroupData[{
Cell[25037, 568, 1308, 30, 477, "Input",ExpressionUUID->"b9c922c5-442f-424f-96f1-b5d21c1de0ec"],
Cell[26348, 600, 1856, 42, 417, "Output",ExpressionUUID->"c9bc6bda-0734-458b-839e-b3b9282b2dae"]
}, {2}]],
Cell[28216, 645, 275, 7, 123, "Text-Framed",ExpressionUUID->"6f1089db-15ca-41c4-b000-7d65ba31266a"],
Cell[28494, 654, 836, 18, 54, "PreviousNext",ExpressionUUID->"615a6b11-23df-4bf6-90f7-4c9f6e872ee9"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[29391, 679, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"fec6ef4f-4f1a-463d-b80b-50eb18734de9",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[29538, 685, 225, 4, 69, "MainSection",ExpressionUUID->"d236f756-7735-4620-903c-b0019cf04af4"],
Cell[CellGroupData[{
Cell[29788, 693, 282, 5, 70, "Section",ExpressionUUID->"2447e015-52a5-48db-b284-7f8555fded04"],
Cell[30073, 700, 804, 27, 78, "Text",ExpressionUUID->"104a51e4-e93c-4ebd-b09c-4fd7b6a65633"]
}, Open  ]],
Cell[CellGroupData[{
Cell[30914, 732, 451, 11, 70, "Section",ExpressionUUID->"72f0c467-6f00-4817-9063-7e9176de8b53"],
Cell[31368, 745, 1706, 53, 130, "Text",ExpressionUUID->"f35a792d-3bd7-43a0-9eab-d7f4e262001f"]
}, Open  ]],
Cell[33089, 801, 854, 19, 70, "Section",ExpressionUUID->"625c4f81-7dd9-4dd1-91a8-86e80cb3dece"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[33992, 826, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"27431474-cdc4-4e0a-b8b8-3d2e25105804",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[34139, 832, 614, 15, 70, "Section",ExpressionUUID->"1afedfd6-c0fc-4138-89ca-ec8c718084d9"],
Cell[34756, 849, 577, 15, 141, "Text",ExpressionUUID->"4987599a-a66e-4987-a69c-eda584c61dbb"],
Cell[35336, 866, 350, 6, 83, "Text-Framed",ExpressionUUID->"4f7bca56-ebcc-46c7-9c72-95278899ef13"],
Cell[CellGroupData[{
Cell[35711, 876, 1308, 30, 477, "Input",ExpressionUUID->"87aee324-2da3-4588-badc-3dd7f1e7a29f"],
Cell[37022, 908, 1886, 42, 365, "Output",ExpressionUUID->"7cbe5522-b3e7-406e-9423-7f850a2aa791"]
}, {2}]]
}, Open  ]],
Cell[38932, 954, 854, 19, 70, "Section",ExpressionUUID->"2176488a-4e91-4e95-bb47-68405c3a024f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[39823, 978, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"941b513f-7cad-4133-a461-ded7c1b8881b",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[39970, 984, 412, 7, 69, "MainSection",ExpressionUUID->"23856e47-e8f4-4b82-becd-7a5d48af4d4c",
 Evaluatable->False],
Cell[40385, 993, 417, 8, 60, "Text",ExpressionUUID->"cfc2e5b2-1322-4e23-b7eb-325c67f4f6a6"],
Cell[CellGroupData[{
Cell[40827, 1005, 19168, 439, 7996, "Input",ExpressionUUID->"de95d39a-0cca-43bc-b5a8-1302e44b6336"],
Cell[59998, 1446, 9162, 184, 629, "Output",ExpressionUUID->"0f27a6b1-6ab2-4a8b-bac8-503509124dd7"]
}, {2}]]
}, Open  ]],
Cell[CellGroupData[{
Cell[69206, 1636, 283, 4, 69, "MainSection",ExpressionUUID->"81db9cf7-eec4-4314-baa6-2da1ec3736f0"],
Cell[69492, 1642, 388, 7, 82, "Text-Framed",ExpressionUUID->"a084612e-abeb-4ef5-ba92-9cf45c815c8a"],
Cell[69883, 1651, 854, 19, 70, "Section",ExpressionUUID->"81b82837-70a7-4fd0-ae97-348546257e83"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[70786, 1676, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"542bb07f-5d35-4dbe-a325-9c2a4fd6aacf",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[70933, 1682, 424, 8, 116, "MainSection",ExpressionUUID->"3a0c7dc0-9322-47b1-a2af-827c329f1c90"],
Cell[CellGroupData[{
Cell[71382, 1694, 694, 10, 70, "Section",ExpressionUUID->"df11ae08-cdd2-47ec-b077-b05151b4f2c0"],
Cell[72079, 1706, 684, 15, 61, "Text",ExpressionUUID->"7ef5d3d9-b4c1-4acb-9d34-596b9273d3b9"],
Cell[CellGroupData[{
Cell[72788, 1725, 267, 5, 58, "Subsection",ExpressionUUID->"b2f7bc02-454a-491b-91c8-f37eb512fdfd"],
Cell[CellGroupData[{
Cell[73080, 1734, 5515, 108, 590, "Input",ExpressionUUID->"a04fc1cf-a0ff-4524-bca9-94511d9a288c"],
Cell[78598, 1844, 2759, 56, 453, "Output",ExpressionUUID->"74174017-8585-41bd-8a5a-16f94798f5d7"]
}, {2}]]
}, Open  ]],
Cell[CellGroupData[{
Cell[81403, 1906, 176, 3, 58, "Subsection",ExpressionUUID->"730c9554-1a8d-4fd9-b575-6cf6c5bca19d"],
Cell[81582, 1911, 1920, 39, 221, "Text",ExpressionUUID->"8ecb639e-1e88-43f8-b515-3f105cc1b2a6"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[83551, 1956, 759, 11, 70, "Section",ExpressionUUID->"260327c7-0061-4d24-95b0-bb71b95f5ab8"],
Cell[CellGroupData[{
Cell[84335, 1971, 9158, 193, 875, "Input",ExpressionUUID->"719c5f58-8768-4010-aff3-e2fd88ff1f14"],
Cell[93496, 2166, 4158, 83, 453, "Output",ExpressionUUID->"1733ba8d-ede8-4fec-a0a0-25e53f896231"]
}, {2}]]
}, Open  ]],
Cell[97678, 2253, 854, 19, 70, "Section",ExpressionUUID->"a1ef950e-c7e8-4ad5-9676-fc0ec94b9adc"]
}, Open  ]]
}, Open  ]]
}
]
*)

