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

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

(* CreatedBy='Mathematica 10.4' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     48994,       1088]
NotebookOptionsPosition[     46397,       1035]
NotebookOutlinePosition[     47063,       1059]
CellTagsIndexPosition[     46984,       1054]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["1D difference equations: The cobweb diagram", "Subtitle",
 CellChangeTimes->{{3.563354759047675*^9, 3.563354771067274*^9}, {
  3.563355034733774*^9, 3.5633550580963717`*^9}, {3.666289704258358*^9, 
  3.666289733707974*^9}, {3.666292547203433*^9, 
  3.6662925656347165`*^9}},ExpressionUUID->"3335a92a-0d82-4c0b-8445-\
74bdb6567781"],

Cell[CellGroupData[{

Cell[" ", "Math-Init",
 CellChangeTimes->{
  3.414433112943859*^9},ExpressionUUID->"992e8002-c593-4aaa-946b-\
f246a4608a7a"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "CobwebManipulate", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"CobwebManipulate", "[", 
   RowBox[{"map_", ",", 
    RowBox[{"{", 
     RowBox[{"par_", ",", "p1_", ",", "p2_"}], "}"}], ",", "nmax_", ",", 
    RowBox[{"{", 
     RowBox[{"x_", ",", "x00_", ",", 
      RowBox[{"{", 
       RowBox[{"x1_", ",", "x2_"}], "}"}]}], "}"}]}], "]"}], ":=", 
  "\[IndentingNewLine]", 
  RowBox[{"Module", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"data", ",", "n", ",", "x0", ",", "b", ",", "u"}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"GraphicsRow", "[", "\[IndentingNewLine]", 
       RowBox[{"{", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Graphics", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"NestList", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{
                  RowBox[{"#", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "+", "1"}], ",", 
                 RowBox[{
                  RowBox[{"map", "[", 
                   RowBox[{"#", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], "]"}], "/.", 
                  RowBox[{"par", "->", "b"}]}]}], "}"}], "&"}], ",", 
              RowBox[{"{", 
               RowBox[{"0", ",", "x0"}], "}"}], ",", "n"}], "]"}], "/.", 
            RowBox[{
             RowBox[{"u_", "?", "VectorQ"}], ":>", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"Hue", "[", 
                RowBox[{"u", "[", 
                 RowBox[{"[", "2", "]"}], "]"}], "]"}], ",", 
               RowBox[{"PointSize", "[", "0.03", "]"}], ",", 
               RowBox[{"Point", "[", "u", "]"}]}], "}"}]}]}], ",", 
           RowBox[{"AspectRatio", "->", "1"}], ",", 
           RowBox[{"PlotRange", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"0", ",", "nmax"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"x1", ",", "x2"}], "}"}]}], "}"}]}], ",", 
           RowBox[{"Axes", "->", "True"}], ",", 
           RowBox[{"AxesLabel", "->", 
            RowBox[{"{", 
             RowBox[{
             "\"\<n\>\"", ",", 
              "\"\<\\\"\\!\\(\\*SubscriptBox[\\(x\\), \\(n\\)]\\)\\\"\>\""}], 
             "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", 
         RowBox[{"Show", "[", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"Plot", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{"map", "[", "u", "]"}], "/.", 
                RowBox[{"par", "->", "b"}]}], ",", "u"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"u", ",", "x1", ",", "x2"}], "}"}], ",", 
             RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
             RowBox[{"PlotRange", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{"x1", ",", "x2"}], "}"}]}]}], "]"}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"Drop", "[", 
             RowBox[{
              RowBox[{"Thread", "[", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"data", "=", 
                  RowBox[{"NestList", "[", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"map", "[", 
                    RowBox[{"#", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], "]"}], "/.", 
                    RowBox[{"par", "->", "b"}]}], ",", 
                    RowBox[{
                    RowBox[{"#", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], "+", "1"}]}], "}"}], 
                    "&"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"x0", ",", "0"}], "}"}], ",", "n"}], "]"}]}], ",", 
                 RowBox[{"RotateLeft", "[", "data", "]"}]}], "}"}], "]"}], 
              ",", 
              RowBox[{"-", "1"}]}], "]"}], "/.", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"u_", "?", "VectorQ"}], ",", 
               RowBox[{"v_", "?", "VectorQ"}]}], "}"}], ":>", 
             RowBox[{"Graphics", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"Hue", "[", 
                 RowBox[{
                  RowBox[{"u", "[", 
                   RowBox[{"[", "2", "]"}], "]"}], "/", "n"}], "]"}], ",", 
                RowBox[{"Thickness", "[", "0.02", "]"}], ",", 
                RowBox[{"Line", "[", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{"u", ",", "u"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"u", ",", "v"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"v", ",", "v"}], "}"}]}], "}"}], "/.", 
                  RowBox[{
                   RowBox[{"d_", "?", "VectorQ"}], ":>", 
                   RowBox[{"First", "[", "d", "]"}]}]}], "]"}]}], "}"}], 
              "]"}]}]}], ",", "\[IndentingNewLine]", 
           RowBox[{"AxesLabel", "->", 
            RowBox[{"{", 
             RowBox[{
             "\"\<\\\"\\!\\(\\*SubscriptBox[\\(x\\), \\(n\\)]\\)\\\"\>\"", 
              ",", "\"\<\\\"\\!\\(\\*SubscriptBox[\\(x\\), \\(n + \
1\\)]\\)\\\"\>\""}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}], 
      ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"b", ",", "2.5", ",", 
          RowBox[{"ToString", "[", "par", "]"}]}], "}"}], ",", "p1", ",", 
        "p2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "x0", ",", "x00", ",", 
          "\"\<\\\"\\!\\(\\*SubscriptBox[\\(x\\), \\(0\\)]\\)\\\"\>\""}], 
         "}"}], ",", "x1", ",", "x2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"n", ",", "nmax", ",", "\"\<n\>\""}], "}"}], ",", "1", ",", 
        "nmax", ",", "1"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"SaveDefinitions", "\[Rule]", "True"}]}], "\[IndentingNewLine]",
      "]"}]}], "\[IndentingNewLine]", "]"}]}]}], "Input",
 CellChangeTimes->{{3.413788460651746*^9, 3.413788476794958*^9}, {
   3.413788538894253*^9, 3.4137885995314445`*^9}, {3.41378864026001*^9, 
   3.413788678745349*^9}, {3.4137887143064833`*^9, 3.4137887556459265`*^9}, {
   3.4137887893644114`*^9, 3.4137889340324335`*^9}, {3.4137891174061117`*^9, 
   3.41378913538196*^9}, {3.4137892315202*^9, 3.413789231880718*^9}, {
   3.4137892981259747`*^9, 3.413789339745821*^9}, {3.4140746940609455`*^9, 
   3.414074764702523*^9}, {3.414074809316675*^9, 3.4140748332210484`*^9}, {
   3.414074891574957*^9, 3.4140748936379232`*^9}, {3.4140750979817553`*^9, 
   3.414075098802936*^9}, {3.4140754563670883`*^9, 3.4140754702670755`*^9}, {
   3.41407553612177*^9, 3.4140755378943186`*^9}, {3.41407579014704*^9, 
   3.414075799460432*^9}, {3.4140767351458817`*^9, 3.4140767355664864`*^9}, {
   3.4140768417491693`*^9, 3.4140768422198467`*^9}, {3.4140770279569235`*^9, 
   3.414077037861165*^9}, 3.4140770927901487`*^9, {3.5633548963381176`*^9, 
   3.5633548970993185`*^9}, {3.563354968972378*^9, 3.563354970797581*^9}, {
   3.666291205315012*^9, 3.666291221954223*^9}, {3.66629138214723*^9, 
   3.666291394891507*^9}, {3.6662918508971643`*^9, 3.6662918709916763`*^9}, 
   3.6662919632761602`*^9, {3.666292022491971*^9, 3.666292051652568*^9}, {
   3.666292157930297*^9, 3.666292164669505*^9}, {3.6662922015788603`*^9, 
   3.6662922098852186`*^9}, {3.6662922739193354`*^9, 3.666292274693429*^9}, {
   3.6811368415464764`*^9, 3.68113684283253*^9}, {3.6811369105145764`*^9, 
   3.681136917953472*^9}, {3.681136972744772*^9, 3.6811370065313206`*^9}, {
   3.681137081253584*^9, 3.681137081538381*^9}, {3.73070082742854*^9, 
   3.730700838038555*^9}},ExpressionUUID->"77c9d361-011e-4061-9615-\
db9b1cee0626"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "CobwebManipulate0", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"CobwebManipulate0", "[", 
   RowBox[{"map_", ",", "nmax_", ",", 
    RowBox[{"{", 
     RowBox[{"x_", ",", "x00_", ",", 
      RowBox[{"{", 
       RowBox[{"x1_", ",", "x2_"}], "}"}]}], "}"}]}], "]"}], ":=", 
  "\[IndentingNewLine]", 
  RowBox[{"Module", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"data", ",", "n", ",", "x0", ",", "b", ",", "u"}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"GraphicsRow", "[", "\[IndentingNewLine]", 
       RowBox[{"{", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Graphics", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"NestList", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{
                  RowBox[{"#", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "+", "1"}], ",", 
                 RowBox[{
                  RowBox[{"map", "[", 
                   RowBox[{"#", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], "]"}], "/.", 
                  RowBox[{"par", "->", "b"}]}]}], "}"}], "&"}], ",", 
              RowBox[{"{", 
               RowBox[{"0", ",", "x0"}], "}"}], ",", "n"}], "]"}], "/.", 
            RowBox[{
             RowBox[{"u_", "?", "VectorQ"}], ":>", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"Hue", "[", 
                RowBox[{"u", "[", 
                 RowBox[{"[", "2", "]"}], "]"}], "]"}], ",", 
               RowBox[{"PointSize", "[", "0.03", "]"}], ",", 
               RowBox[{"Point", "[", "u", "]"}]}], "}"}]}]}], ",", 
           RowBox[{"AspectRatio", "->", "1"}], ",", 
           RowBox[{"PlotRange", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"0", ",", "nmax"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"x1", ",", "x2"}], "}"}]}], "}"}]}], ",", 
           RowBox[{"Axes", "->", "True"}], ",", 
           RowBox[{"AxesLabel", "->", 
            RowBox[{"{", 
             RowBox[{
             "\"\<n\>\"", ",", 
              "\"\<\\\"\\!\\(\\*SubscriptBox[\\(x\\), \\(n\\)]\\)\\\"\>\""}], 
             "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", 
         RowBox[{"Show", "[", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"Plot", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{"map", "[", "u", "]"}], "/.", 
                RowBox[{"par", "->", "b"}]}], ",", "u"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"u", ",", "x1", ",", "x2"}], "}"}], ",", 
             RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
             RowBox[{"PlotRange", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{"x1", ",", "x2"}], "}"}]}]}], "]"}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"Drop", "[", 
             RowBox[{
              RowBox[{"Thread", "[", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"data", "=", 
                  RowBox[{"NestList", "[", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"map", "[", 
                    RowBox[{"#", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], "]"}], "/.", 
                    RowBox[{"par", "->", "b"}]}], ",", 
                    RowBox[{
                    RowBox[{"#", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], "+", "1"}]}], "}"}], 
                    "&"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"x0", ",", "0"}], "}"}], ",", "n"}], "]"}]}], ",", 
                 RowBox[{"RotateLeft", "[", "data", "]"}]}], "}"}], "]"}], 
              ",", 
              RowBox[{"-", "1"}]}], "]"}], "/.", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"u_", "?", "VectorQ"}], ",", 
               RowBox[{"v_", "?", "VectorQ"}]}], "}"}], ":>", 
             RowBox[{"Graphics", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"Hue", "[", 
                 RowBox[{
                  RowBox[{"u", "[", 
                   RowBox[{"[", "2", "]"}], "]"}], "/", "n"}], "]"}], ",", 
                RowBox[{"Thickness", "[", "0.02", "]"}], ",", 
                RowBox[{"Line", "[", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{"u", ",", "u"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"u", ",", "v"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"v", ",", "v"}], "}"}]}], "}"}], "/.", 
                  RowBox[{
                   RowBox[{"d_", "?", "VectorQ"}], ":>", 
                   RowBox[{"First", "[", "d", "]"}]}]}], "]"}]}], "}"}], 
              "]"}]}]}], ",", "\[IndentingNewLine]", 
           RowBox[{"AxesLabel", "->", 
            RowBox[{"{", 
             RowBox[{
             "\"\<\\\"\\!\\(\\*SubscriptBox[\\(x\\), \\(n\\)]\\)\\\"\>\"", 
              ",", "\"\<\\\"\\!\\(\\*SubscriptBox[\\(x\\), \\(n + \
1\\)]\\)\\\"\>\""}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}], 
      ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "x0", ",", "x00", ",", 
          "\"\<\\\"\\!\\(\\*SubscriptBox[\\(x\\), \\(0\\)]\\)\\\"\>\""}], 
         "}"}], ",", "x1", ",", "x2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"n", ",", "nmax", ",", "\"\<n\>\""}], "}"}], ",", "1", ",", 
        "nmax", ",", "1"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"SaveDefinitions", "\[Rule]", "True"}]}], "\[IndentingNewLine]",
      "]"}]}], "\[IndentingNewLine]", "]"}]}]}], "Input",
 CellChangeTimes->{{3.413788460651746*^9, 3.413788476794958*^9}, {
   3.413788538894253*^9, 3.4137885995314445`*^9}, {3.41378864026001*^9, 
   3.413788678745349*^9}, {3.4137887143064833`*^9, 3.4137887556459265`*^9}, {
   3.4137887893644114`*^9, 3.4137889340324335`*^9}, {3.4137891174061117`*^9, 
   3.41378913538196*^9}, {3.4137892315202*^9, 3.413789231880718*^9}, {
   3.4137892981259747`*^9, 3.413789339745821*^9}, {3.4140746940609455`*^9, 
   3.414074764702523*^9}, {3.414074809316675*^9, 3.4140748332210484`*^9}, {
   3.414074891574957*^9, 3.4140748936379232`*^9}, {3.4140750979817553`*^9, 
   3.414075098802936*^9}, {3.4140754563670883`*^9, 3.4140754702670755`*^9}, {
   3.41407553612177*^9, 3.4140755378943186`*^9}, {3.41407579014704*^9, 
   3.414075799460432*^9}, {3.4140767351458817`*^9, 3.4140767355664864`*^9}, {
   3.4140768417491693`*^9, 3.4140768422198467`*^9}, {3.4140770279569235`*^9, 
   3.414077037861165*^9}, 3.4140770927901487`*^9, {3.5633548963381176`*^9, 
   3.5633548970993185`*^9}, {3.563354968972378*^9, 3.563354970797581*^9}, {
   3.666291205315012*^9, 3.666291221954223*^9}, {3.66629138214723*^9, 
   3.666291394891507*^9}, {3.6662918508971643`*^9, 3.6662918709916763`*^9}, 
   3.6662919632761602`*^9, {3.666292022491971*^9, 3.666292051652568*^9}, {
   3.666292157930297*^9, 3.666292164669505*^9}, {3.6662922015788603`*^9, 
   3.6662922098852186`*^9}, {3.6662922739193354`*^9, 3.666292274693429*^9}, {
   3.6811365533089886`*^9, 3.6811365599998145`*^9}, 3.6811367070195637`*^9, 
   3.6811367443206873`*^9, {3.6811368490909863`*^9, 3.6811368494382367`*^9}, {
   3.681136954861064*^9, 3.6811369790501003`*^9}, {3.681137058099004*^9, 
   3.6811370604336634`*^9}, {3.681137097324035*^9, 
   3.681137097585413*^9}},ExpressionUUID->"6a48c624-d6b7-480f-bfe6-\
c0cf2516838f"]
}, Closed]],

Cell[CellGroupData[{

Cell["The cobweb diagram", "MainSection",
 CellChangeTimes->{{3.5633547164826393`*^9, 3.5633547254595017`*^9}, {
  3.666289770632159*^9, 
  3.666289779647529*^9}},ExpressionUUID->"32804bf6-b7cd-4cc1-a530-\
e9a034d050a8"],

Cell["Let us consider the 1D autonomous difference equation", "Text",
 CellChangeTimes->{{3.4137854504933505`*^9, 3.4137855278245473`*^9}, 
   3.4138261976663246`*^9, {3.414071912351043*^9, 
   3.4140719128117056`*^9}},ExpressionUUID->"6314aa96-71c4-4bf7-b6d0-\
830b8c4a8b35"],

Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{
   SubscriptBox["x", 
    RowBox[{"n", "+", "1"}]], "=", 
   RowBox[{"f", "(", 
    SubscriptBox["x", "n"], ")"}]}], 
  TraditionalForm]],ExpressionUUID->"257ff78f-de24-4819-a395-b21e76e6ace5"]], \
"Text",
 CellChangeTimes->{{3.4137854504933505`*^9, 3.4137855324512*^9}},
 TextAlignment->Center,
 TextJustification->0.,ExpressionUUID->"99f17d5b-3e7d-425c-97a4-dd6b1113e198"],

Cell[TextData[{
 "The iteration ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["x", "1"], "=", 
    RowBox[{"f", "(", 
     SubscriptBox["x", "0"], ")"}]}], TraditionalForm]],ExpressionUUID->
  "32876fea-d923-4c78-b2a1-f1e710d79a0d"],
 ", ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["x", "2"], "=", 
    RowBox[{"f", "(", 
     SubscriptBox["x", "1"], ")"}]}], TraditionalForm]],ExpressionUUID->
  "c0f3017f-12c9-472c-aaf0-ffdcffbc34ae"],
 ", ..., can be visualized easily by using the so called cobweb (spider-web) \
diagram.\nPlot the function ",
 Cell[BoxData[
  FormBox[
   RowBox[{"f", "(", "x", ")"}], TraditionalForm]],ExpressionUUID->
  "fcab8ee5-f94f-4d71-9330-9df6d80e2edc"],
 " and the line ",
 Cell[BoxData[
  FormBox[
   RowBox[{"y", "=", "x"}], TraditionalForm]],ExpressionUUID->
  "7f46621d-29f8-4246-befa-6aacc742bb94"],
 " in the Cartesian system. Note that their common points are the fixed \
points (equilibria) of the difference equation. "
}], "Text",
 CellChangeTimes->{{3.4137854504933505`*^9, 3.413785673724341*^9}, {
   3.413785712530141*^9, 3.4137858127542562`*^9}, {3.413786203446043*^9, 
   3.4137865609400945`*^9}, 3.413786601268083*^9, {3.414071927402686*^9, 
   3.4140719280736513`*^9}},ExpressionUUID->"9cea89e7-1b68-48cc-a1c7-\
d745885d3cc4"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwd2Hk4Vd/3B/CIPoqElA+NhArNCiXvQiOKEEpkKGlQpETJEEIoTR+ijI0U
lQZFJFRkLOO97jn3XqF7DleDJNFvf39/3ef1POd5zt5nrb3W2lfd/fC2PZJj
xoyZLDFmzP9+N+/paSj9Ym+yMLmp67bfURMpM7UjlKo+unQ2FZxvssGytKTU
x6rm0AxzN5X85AaLmpZH11XtoC6Ie6re4AsHz8Hii6qecD7dURVcHYaORWfN
4lX98TXrVIx5aSLSp2yNilWNQO7nQpu2uxkIk3k8N0b1MvZ1Pj47LvghHJ0y
8vq/ZiNff7Bb7tNryP4Nc94wMw+HDxVbuvS/h5ZNX8+bcwVIi5bYuKeiHgG1
Rkj6UYjNReZpCx9/gkqBIk9CogSHPh06NLKwFU8FZh/qjMugcyan0a2Mg7L9
16c5seVwa1l5xlORwoD26kn3D72F8oLW/tt/aEgO5ShM06qCfHFNff1xAVb8
3f3U9sEH6AYmbtAvFeJDhH5tpU4dSpcUeHxnOzHrAjN0t68exumRwb5qXWAG
KV7T4kZ09gnnBEzvRrboZZV8wkdUenD0StV6ID/jtriz8xOSEs+EP/jdgzjv
J3vTNZshUf5A52LBF/xck9O5L6QFK4OKz2ntEaEom0kJiGhBwqfCI2e9RAiX
0bONimnB5KhQUbe3CPL1ua+zLrXgSd/B1GwfEbRdH9zg3W7B1ubXQ3InRNge
/NDRrr4F9OjOa8mxIjwpfPYB6q0IfGJzNPOBCP5LywumvmlF+HPTCL9vIuzV
n52e+K4VUsVGvdk/RHBcceqcXG0rTGYW5TT9FGHVSn13ybZWtP10n790WARJ
0+xJfX2teDLGaG7LWAbnbSL2V6i14efxcQsalBncO2I+29+vDZm92m6Ryxmk
+qXLigPaoBsTczLcgEG8/5+f3sFtOBgWwAQbMThyoqDGNboNU6IHqg+vZmAQ
qnnS4kYb5PoCz2Mdg/LzUs0aVW2Imp49+7wdA+pB+bkG9Xakjz19oM+XQX2v
FLt0bjsUnFL77h9lUKq3zvKyXjus7O82HzjGIP1ehZyDQTuWmp5vEpxg4H6r
Mp5r2Y7bvbEJxSEMuq6/O98d0I7V59b2asUz6I37cGmkph2z+Dm7ym4x4FXL
/XD52I7tCmmnt9xhUDvByq60tR3OXaFSbXcZPIiuUT4jbEdDlAK+5JL9RNRe
kRlqx75k18M/HzH4cbL+v8maHJhLFxe9ecVgeP+nlPlBHOQO+k/QaWJgt2JX
4sIQDow3RRccaGaQK9EVtSyCg0ey7b9yWhi4JA36rk7gwF5oaD2vncHrCrWN
Npkc+HUIjRQoBmdnu/04UcWB9Ejfr9QeBpObey3fqXFx40ub1r3fDA5mHDet
mcXFVMeXKiXD5Hse/GvQqMmFvwEnq/EPg+NjFedwF3LRvbE5dmCUQdti/SGx
KRfZTwsv6YxlkXYu6KbKAS4Cipcn2siy0F37z+jel1wknpBcdUmNRf69nLmt
pVw47gr+ljCNhb6ytc2mSi6eNx+UjpnOwrg7KVu3gYsNZ++uPjGTxZZ4HYv+
LrI+KnnQVIOFX5tVUqBSBwwPbU+Mmc/ip+m31yKVDmSkqI05oMPiZO5VZueM
DmS72FZt1mUREUKZmMzrQFCmhq/0AhZXtXw/S5p0YLe6oYzXYhaFvpeXxnl3
QOWPiTNnBQsTjqHziE8HNP0twzMNWJSZd0T6+HegOrR27D5DFlUq2m3WIR3o
dlis2mfEglv8LGTKlQ7sHNkf32XMYswEzocbpR1YpFWUEm3KYkOmutdDFR5C
emq2JlqS/SbJa1dO50H428BQzYrF7IThznZ1Hratl3mUQfw7sMldSo8Hu2iO
U+4WFvdtYlwc1vDQ9dwyKN+axWSJr/Yj+3hY+8Fp9Kgded9gh7KSDw8eh+eO
fCZm2aqP2kd5uGCxM367PYvK1mwb62AeJuYNuC3bziIw39EqK5GHKxoDHI4D
C8q11HzTCx54L2dO7tnB4oP9/bEuJTwUi7fOM9vJ4rnFtTK/ch7uOHfXphJf
NPBfk1rLQzp/Y72FM4t1k+YZiwU8zEpqzkraxWKp9JThsT08OF82Mu8hnjks
8eLfXh5uvpc8vsKFxa8ujoHpIA87qbfxtcQ5r84vuyJLwe7Z9IReVxZJBae+
3VWg8PXkw8Ilu0n87nk/fDWFQnJg7nF/YperZot6ZlGYOLspe4BY0WdQZ5U+
hTOqXxu63FiMenR+2WpEIfjWs+hZ7ixETg13PE0oRBzsrN9OXL4uRzthI4Wn
WUemvCYOmOGqwXemcPOV7eEIDxbu1ou3c90oqAdvacgn3nJGIrZlL4WXK742
coi1v2R9rTlCwTJl4ZMFniyUph/Ten+Mgun691fsiEe2rHcqD6LgyMpODSL+
VNBT+iKCAjU/ZqCUuLS78MeTGAo2r9/YCYhz1M7Ne5hAgW97y1ZyD4vw0AUX
bidRcNvvsdiE2Ofx6JvM6xS29K2W30Hs1FU3eD2Tws5Dpef8iRdb+rlezqVQ
71y85ybx9BCzS+cfUjCqMSh7SfzPI+W3sU8plBjueFVP/K3z8+/IlxS80jR3
dBLzVJ4tDCuloCfx35WfxFWbo91PVVBQdHl45J+9LJ4EO10NqKIw5elRZipx
er5OlV8dBYPxPGkt4jjh8MihTxQCHPpLlhCfmFqzxLuNQkv6PdXVxB6bbuzx
5FGw/yw3eQPxllOHk12FFL5rquRuJV6Zt6ZmRw+FPNf3nduJtQWKEtt7KcRe
mVPsTKw4Rahv841CZKXWcjfiPxsK9lkOUrjxrc7Sk7gnKDJ1wx8KzaoaUnuJ
Rdt192WMoaFnPH3n/7y7f7LkrLE0Mp1e2ewhbo75k5IqTWOFn0yPO7HFnM/L
1WRoiCJ/z3AlLi2qqftvAo2iy5e/OxGv2P7Ue8pEGvdvNO+zJc4V3xh7aRKN
4qzSYAtijZiz1xWUaLBZ25aaEidpHDFIUKZhlBYXZUAsX+TYIKtC4+YVnyBd
4gj7tQdiVGksOftr4kziob750v9Mp9F+VGftJGKfaKW0iJk0sndKKf8l8ehU
HzaUVKcRZxIV1Utcb/fh4IgWjecDYZsridf3FYw7OY/GyPvhlHziorPX03/p
0NidPCM+mfj2C59P3xfRODPfaYvX//LDzsHHdykNM5HfTEvii72QEevT0Lil
n7CI+PRsRWOREQ3jSfmW30h+/igcavIyphFQ5J3SQLzfVnD4swmNBs/qmDxi
+6jHWbQZDeGtqHVexHqsvWyLFXm+n2tYSc7LczvLklhrGq8NLUquEpsVmx41
saUh+0ru9h7iHQmLODcdaSSFxFwbJecxZvH4HH8PEi+et+IMYuXkvy7z9tKg
5f0yaXK+0yV+KnH30ZhxquZyJvHzRkGQmQ+NSxNPX1cn7vIv2qwUSMNHrtJE
jtQHv45HoxUnaWRo7msvI/VlZN3dR4GnaTQG7moJIFZWuarGP0PiwVk7wCX1
yKzwsCgvgQY38GvpJVK/0kc0Yq2yafRqs/89JvVRb6+qicRtGjKTyjZaEz+r
nfSt4C6NOfrMDsaJRW3aH6fpeTS2LTfImk48srZ5PlNII33y0zcHSL3dERXz
PrqOxg9sNS+yJevtCwk2bqTxa9BxAoh9HY4v6f9EY5h9sqR0G4voeR7JDu3E
8d7ZxTYsnlYZe2t/JvmW80z15lbSDyb1y5T/phHpIDbTtmDRWBx7dtMIibdJ
r3nyZhLfg1rj6v6S7/W3mjuBWKlqx9h2KT5mT9Rr+LKROLJiRCzPh6fz8Q9X
17NQGL72bdocPr68XTbx/lqSb3eX+2Zo8XFhI06NJ77gWC/WnsfHx0zdcM81
LCY9le5dsoCP+Z23tk0FyXffI90bDPiYfG3uOG/SD+W613GPWvAhaLR5VkX6
64cr9I4hKz70e/dfViCOMz/ZdtqarIfvKWO/nIVsZn5zjD0f7+yHC9qWsZiw
a1pDmisf2/0ezW4k/VrmY39F9VE+mQM3mYaQfi9VkpI3J5WPK8/VHlSR+aHd
2HwjdYOPgKDIH3Vkvsh7wdLXMvi42fLq4kcyf+x4ulpJ6TbZn8f15qZ/WTy8
T/mPecTHhPLxpyqVSX9JnbOy4y0fjzLTVjvKkfwKzCm/+p2PlLaSlNVkPkoY
tN217ScfU6VHOROHGHgc+zMwcYgPqnqCP3eQIfu3mhs5StareyHHf4DBnn3i
mKPjBeAs2WyY2M9AyWHZVutZAmzddfJdUBeDA/ov28ZbCFC3oPHNpAYyj9Y3
5T63EmDWR4XIh3UMphzqD/GyFsCu9vh9m1oGJTe1tCvsBThU+XxZfDWZ31Qu
+IXuFsClWHnq1woGL4c8ZQePkXtJpd7Sgy8YyJbIr+5MF+CNWcfbRZkMcja5
p7/6Sd7fB2/2IAN9PXUTDAmgGyb2XX+AwSt5mlMyLMDjUfHUNG8yL3/cpfJ6
jBBvC4XLLfeS+XSXU8KbCUL8XnT17RVXBiZ+1qfezRQibvrclV025PlrJo6N
64Xw+vlr5ykyzw8wagpdV4UYynW+GPxLhMvXu9+mJguhc+BeoC25LyzbWhBi
mypE9/ecV3PJfcL3kZW4NEOIUc8qt2qxCL0nQmtTcoW4X+Ev97dLhM/SXXE2
ZUJIhoV8V2kSoWnWw/HFvUJcpA7KKOST+4vthrGXzTthaXzbStVNhJCNkWkF
XZ2oUOyYsKjoC9Q7NrdmRX5GUNlaOy+pL1hpEHFZdWkXnDyNThto9sB5Zt2Q
xMcunKX659Ws6sZAVbzgSFg3Hof6bAvV7kKSlIv/NvKcfPK/ea9lP2My70mm
ZHkP3BwrQlbRQkgHh9kZ+X5BraC9yClcgDF3XfIESiIMOEyjHTT58LuWF69U
JsKp6pLigZkUinWjZRR9GBwOOs4Y13OguNlPL1yexZ3KPmZeXCu4C+o/BhaR
uS7ILXFB3Sfk34Bmp0sv/D6nnfDUaMCuvBWKM0Z7kaGzhuvzrAqhkRlh3Ht9
mOM4N85Xowz3e2akyFuK4XNSvH921GPYKMobvv0txki+q0FclDtipSWncYnX
L5547rSxO8qHBkb6ie82ioOPfHPDCkHHG7VhMYIu2q21dXGD2uP7W32I+/gp
JsordkNgZ+U15Y8YGqFm2jLVO+GfFHfVY0RM7uvKG1dEb8P9uNDAE8TpcYVF
kj9s0BXq7xxPrBn+7nCtqw0cvZ01nhFPtddK9DCwxuqVeg8mjIrxR/tJ2Pga
C4zjVlc8JH6j63VnXYwpUF9yp5K4Xeu3S+XutThR/vgchzj2hdvFdYZrIMpN
sZH+K8Yxr13U6dpVqA0+0OFInF8VImMauxT/+LmWHiIO3yc21TVajDV7bbPC
iacEKPRp1Ovi0ZZV3rnEvpIHku6e0wBjusjyNfGpurlP3jZOg6bBnEXNxF98
Zs5enKAEF10VJYZ4ttBP+O8lSfw3S3bgL/HUONH//z/yf5/w17Y=
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJxNxX0s1GEcAPBzEWU7jsl+Z8eOUyuaJiNKp9iU13lbbNdp8hJGstvQZpzR
C661Zrp1yetW4lzc0ZpEXGySlwjlXnJd13FCW8eOuOoP3+f547MPI+V6bBqZ
RCJF/fP/sDTd1MBSwtm9zYNpeSrCh7X3yXrBYwkRAod/mOuqI+LhS6mbfQ+I
VFjhdTuYT3DhBofoW5VEOcyzkhy5S9TAiUmN4vVfLbC1iccOdRbD7jGruqEq
KVww7s8S/H4FO0qpSjOzfrhHHTw2cWYQHsyqc0pakcGGw4E2opwRmGxss3Vy
H4V9TVd64jrG4LFyn/HhYxOwy329sXV1EtZvqpSfTnyEW5Z7Ryn3pmEK/ema
RjMDV2d2pzcwZ+GNoDbNtZI5mOstkx4amodVHbKqKcYXeDtrRnj05gLscc5y
N71XDoc2MTI6HZVwAT3ZdZGtgj1XEqznIr/C9jbrVrIttHm/UOz2eBHO9un9
fCBcDbddTGl4s4E26Gm22tpvcHdc6L6aEA1ccqGiXqpFMxRh880V3+EAv/Ia
wlsLs50njGbTaMMoX53H+wELzDncWKYOtld2N5FlaItiXrz/jSWY1MoRq+2W
4fxHYr7dILrP444VNVcPU8PyPcsoK7D8+OR00Wv0iycspobzE74s9qXSd9Gl
FY08+fNVWKSjCykRa3AMlXJqZAtdaUF2kmPLjIaddWxftWKIto2mSUTRudjq
+MgMhz9orqC69uoOWlRdWlSIrS3lsvnYiZls15fYgQGeHQd30fvl7991YrMm
+58NYxfKJFUL2MvtwhgLE3q8OFuRiG2ZnzyQgx2UHtdcht0VdTqzHVt/3ivi
LTbTz81rFpvj4Winx37oYm0wYf8FVp6K0A==
     "]]}},
  Axes->True,
  AxesOrigin->{0, 0},
  ImageSize->{153.99999999999935`, Automatic},
  PlotRange->{{0, 1}, {0., 0.9999999795918367}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Text",
 CellChangeTimes->{3.399726921203125*^9},
 TextAlignment->Center,
 TextJustification->0.,ExpressionUUID->"80541028-7391-4a16-8a6e-a5906b14992d"],

Cell[TextData[{
 "Now, the process is the following. Take ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "0"], TraditionalForm]],ExpressionUUID->
  "f2092ac9-398b-4451-8e77-5afa2b6c931b"],
 " on the x-axis, and find ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["y", "1"], "=", 
    RowBox[{"f", "(", 
     SubscriptBox["x", "1"], ")"}]}], TraditionalForm]],ExpressionUUID->
  "2fa339fc-6a27-42f6-9acc-4398d4040fa3"],
 " (draw a vertical line to the graph. Take ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["x", "2"], "=", " ", 
    SubscriptBox["y", "1"]}], TraditionalForm]],ExpressionUUID->
  "133859c2-3740-49ff-8bfd-1c6da6df57e3"],
 " by drawing a horizontal line to ",
 Cell[BoxData[
  FormBox[
   RowBox[{"y", "=", "x"}], TraditionalForm]],ExpressionUUID->
  "99dd3189-ea51-44da-88d6-b087aa7dde7e"],
 ", and then, as its ",
 StyleBox["x",
  FontSlant->"Italic"],
 "-coordinate is  ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["x", "2"], "=", " ", 
    SubscriptBox["y", "1"]}], TraditionalForm]],ExpressionUUID->
  "690bb6e3-9753-4891-890b-483ee050cf87"],
 ", we can continue a process by drawing a vertical line to the graph of ",
 Cell[BoxData[
  FormBox[
   RowBox[{"f", "(", "x", ")"}], TraditionalForm]],ExpressionUUID->
  "f1f643f1-e3c2-4e99-9029-ab6ec5d3db98"],
 ". "
}], "Text",
 CellChangeTimes->{{3.4137854504933505`*^9, 3.413785673724341*^9}, {
   3.413785712530141*^9, 3.4137858127542562`*^9}, {3.413786203446043*^9, 
   3.4137865609400945`*^9}, 3.413786601268083*^9, 
   3.4144328579872494`*^9},ExpressionUUID->"3ce65e1f-34b4-4831-9330-\
9d2a44f0938c"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwd2Hk4Vd/3B/CIPoqElA+NhArNCiXvQiOKEEpkKGlQpETJEEIoTR+ijI0U
lQZFJFRkLOO97jn3XqF7DleDJNFvf39/3ef1POd5zt5nrb3W2lfd/fC2PZJj
xoyZLDFmzP9+N+/paSj9Ym+yMLmp67bfURMpM7UjlKo+unQ2FZxvssGytKTU
x6rm0AxzN5X85AaLmpZH11XtoC6Ie6re4AsHz8Hii6qecD7dURVcHYaORWfN
4lX98TXrVIx5aSLSp2yNilWNQO7nQpu2uxkIk3k8N0b1MvZ1Pj47LvghHJ0y
8vq/ZiNff7Bb7tNryP4Nc94wMw+HDxVbuvS/h5ZNX8+bcwVIi5bYuKeiHgG1
Rkj6UYjNReZpCx9/gkqBIk9CogSHPh06NLKwFU8FZh/qjMugcyan0a2Mg7L9
16c5seVwa1l5xlORwoD26kn3D72F8oLW/tt/aEgO5ShM06qCfHFNff1xAVb8
3f3U9sEH6AYmbtAvFeJDhH5tpU4dSpcUeHxnOzHrAjN0t68exumRwb5qXWAG
KV7T4kZ09gnnBEzvRrboZZV8wkdUenD0StV6ID/jtriz8xOSEs+EP/jdgzjv
J3vTNZshUf5A52LBF/xck9O5L6QFK4OKz2ntEaEom0kJiGhBwqfCI2e9RAiX
0bONimnB5KhQUbe3CPL1ua+zLrXgSd/B1GwfEbRdH9zg3W7B1ubXQ3InRNge
/NDRrr4F9OjOa8mxIjwpfPYB6q0IfGJzNPOBCP5LywumvmlF+HPTCL9vIuzV
n52e+K4VUsVGvdk/RHBcceqcXG0rTGYW5TT9FGHVSn13ybZWtP10n790WARJ
0+xJfX2teDLGaG7LWAbnbSL2V6i14efxcQsalBncO2I+29+vDZm92m6Ryxmk
+qXLigPaoBsTczLcgEG8/5+f3sFtOBgWwAQbMThyoqDGNboNU6IHqg+vZmAQ
qnnS4kYb5PoCz2Mdg/LzUs0aVW2Imp49+7wdA+pB+bkG9Xakjz19oM+XQX2v
FLt0bjsUnFL77h9lUKq3zvKyXjus7O82HzjGIP1ehZyDQTuWmp5vEpxg4H6r
Mp5r2Y7bvbEJxSEMuq6/O98d0I7V59b2asUz6I37cGmkph2z+Dm7ym4x4FXL
/XD52I7tCmmnt9xhUDvByq60tR3OXaFSbXcZPIiuUT4jbEdDlAK+5JL9RNRe
kRlqx75k18M/HzH4cbL+v8maHJhLFxe9ecVgeP+nlPlBHOQO+k/QaWJgt2JX
4sIQDow3RRccaGaQK9EVtSyCg0ey7b9yWhi4JA36rk7gwF5oaD2vncHrCrWN
Npkc+HUIjRQoBmdnu/04UcWB9Ejfr9QeBpObey3fqXFx40ub1r3fDA5mHDet
mcXFVMeXKiXD5Hse/GvQqMmFvwEnq/EPg+NjFedwF3LRvbE5dmCUQdti/SGx
KRfZTwsv6YxlkXYu6KbKAS4Cipcn2siy0F37z+jel1wknpBcdUmNRf69nLmt
pVw47gr+ljCNhb6ytc2mSi6eNx+UjpnOwrg7KVu3gYsNZ++uPjGTxZZ4HYv+
LrI+KnnQVIOFX5tVUqBSBwwPbU+Mmc/ip+m31yKVDmSkqI05oMPiZO5VZueM
DmS72FZt1mUREUKZmMzrQFCmhq/0AhZXtXw/S5p0YLe6oYzXYhaFvpeXxnl3
QOWPiTNnBQsTjqHziE8HNP0twzMNWJSZd0T6+HegOrR27D5DFlUq2m3WIR3o
dlis2mfEglv8LGTKlQ7sHNkf32XMYswEzocbpR1YpFWUEm3KYkOmutdDFR5C
emq2JlqS/SbJa1dO50H428BQzYrF7IThznZ1Hratl3mUQfw7sMldSo8Hu2iO
U+4WFvdtYlwc1vDQ9dwyKN+axWSJr/Yj+3hY+8Fp9Kgded9gh7KSDw8eh+eO
fCZm2aqP2kd5uGCxM367PYvK1mwb62AeJuYNuC3bziIw39EqK5GHKxoDHI4D
C8q11HzTCx54L2dO7tnB4oP9/bEuJTwUi7fOM9vJ4rnFtTK/ch7uOHfXphJf
NPBfk1rLQzp/Y72FM4t1k+YZiwU8zEpqzkraxWKp9JThsT08OF82Mu8hnjks
8eLfXh5uvpc8vsKFxa8ujoHpIA87qbfxtcQ5r84vuyJLwe7Z9IReVxZJBae+
3VWg8PXkw8Ilu0n87nk/fDWFQnJg7nF/YperZot6ZlGYOLspe4BY0WdQZ5U+
hTOqXxu63FiMenR+2WpEIfjWs+hZ7ixETg13PE0oRBzsrN9OXL4uRzthI4Wn
WUemvCYOmOGqwXemcPOV7eEIDxbu1ou3c90oqAdvacgn3nJGIrZlL4WXK742
coi1v2R9rTlCwTJl4ZMFniyUph/Ten+Mgun691fsiEe2rHcqD6LgyMpODSL+
VNBT+iKCAjU/ZqCUuLS78MeTGAo2r9/YCYhz1M7Ne5hAgW97y1ZyD4vw0AUX
bidRcNvvsdiE2Ofx6JvM6xS29K2W30Hs1FU3eD2Tws5Dpef8iRdb+rlezqVQ
71y85ybx9BCzS+cfUjCqMSh7SfzPI+W3sU8plBjueFVP/K3z8+/IlxS80jR3
dBLzVJ4tDCuloCfx35WfxFWbo91PVVBQdHl45J+9LJ4EO10NqKIw5elRZipx
er5OlV8dBYPxPGkt4jjh8MihTxQCHPpLlhCfmFqzxLuNQkv6PdXVxB6bbuzx
5FGw/yw3eQPxllOHk12FFL5rquRuJV6Zt6ZmRw+FPNf3nduJtQWKEtt7KcRe
mVPsTKw4Rahv841CZKXWcjfiPxsK9lkOUrjxrc7Sk7gnKDJ1wx8KzaoaUnuJ
Rdt192WMoaFnPH3n/7y7f7LkrLE0Mp1e2ewhbo75k5IqTWOFn0yPO7HFnM/L
1WRoiCJ/z3AlLi2qqftvAo2iy5e/OxGv2P7Ue8pEGvdvNO+zJc4V3xh7aRKN
4qzSYAtijZiz1xWUaLBZ25aaEidpHDFIUKZhlBYXZUAsX+TYIKtC4+YVnyBd
4gj7tQdiVGksOftr4kziob750v9Mp9F+VGftJGKfaKW0iJk0sndKKf8l8ehU
HzaUVKcRZxIV1Utcb/fh4IgWjecDYZsridf3FYw7OY/GyPvhlHziorPX03/p
0NidPCM+mfj2C59P3xfRODPfaYvX//LDzsHHdykNM5HfTEvii72QEevT0Lil
n7CI+PRsRWOREQ3jSfmW30h+/igcavIyphFQ5J3SQLzfVnD4swmNBs/qmDxi
+6jHWbQZDeGtqHVexHqsvWyLFXm+n2tYSc7LczvLklhrGq8NLUquEpsVmx41
saUh+0ru9h7iHQmLODcdaSSFxFwbJecxZvH4HH8PEi+et+IMYuXkvy7z9tKg
5f0yaXK+0yV+KnH30ZhxquZyJvHzRkGQmQ+NSxNPX1cn7vIv2qwUSMNHrtJE
jtQHv45HoxUnaWRo7msvI/VlZN3dR4GnaTQG7moJIFZWuarGP0PiwVk7wCX1
yKzwsCgvgQY38GvpJVK/0kc0Yq2yafRqs/89JvVRb6+qicRtGjKTyjZaEz+r
nfSt4C6NOfrMDsaJRW3aH6fpeTS2LTfImk48srZ5PlNII33y0zcHSL3dERXz
PrqOxg9sNS+yJevtCwk2bqTxa9BxAoh9HY4v6f9EY5h9sqR0G4voeR7JDu3E
8d7ZxTYsnlYZe2t/JvmW80z15lbSDyb1y5T/phHpIDbTtmDRWBx7dtMIibdJ
r3nyZhLfg1rj6v6S7/W3mjuBWKlqx9h2KT5mT9Rr+LKROLJiRCzPh6fz8Q9X
17NQGL72bdocPr68XTbx/lqSb3eX+2Zo8XFhI06NJ77gWC/WnsfHx0zdcM81
LCY9le5dsoCP+Z23tk0FyXffI90bDPiYfG3uOG/SD+W613GPWvAhaLR5VkX6
64cr9I4hKz70e/dfViCOMz/ZdtqarIfvKWO/nIVsZn5zjD0f7+yHC9qWsZiw
a1pDmisf2/0ezW4k/VrmY39F9VE+mQM3mYaQfi9VkpI3J5WPK8/VHlSR+aHd
2HwjdYOPgKDIH3Vkvsh7wdLXMvi42fLq4kcyf+x4ulpJ6TbZn8f15qZ/WTy8
T/mPecTHhPLxpyqVSX9JnbOy4y0fjzLTVjvKkfwKzCm/+p2PlLaSlNVkPkoY
tN217ScfU6VHOROHGHgc+zMwcYgPqnqCP3eQIfu3mhs5StareyHHf4DBnn3i
mKPjBeAs2WyY2M9AyWHZVutZAmzddfJdUBeDA/ov28ZbCFC3oPHNpAYyj9Y3
5T63EmDWR4XIh3UMphzqD/GyFsCu9vh9m1oGJTe1tCvsBThU+XxZfDWZ31Qu
+IXuFsClWHnq1woGL4c8ZQePkXtJpd7Sgy8YyJbIr+5MF+CNWcfbRZkMcja5
p7/6Sd7fB2/2IAN9PXUTDAmgGyb2XX+AwSt5mlMyLMDjUfHUNG8yL3/cpfJ6
jBBvC4XLLfeS+XSXU8KbCUL8XnT17RVXBiZ+1qfezRQibvrclV025PlrJo6N
64Xw+vlr5ykyzw8wagpdV4UYynW+GPxLhMvXu9+mJguhc+BeoC25LyzbWhBi
mypE9/ecV3PJfcL3kZW4NEOIUc8qt2qxCL0nQmtTcoW4X+Ev97dLhM/SXXE2
ZUJIhoV8V2kSoWnWw/HFvUJcpA7KKOST+4vthrGXzTthaXzbStVNhJCNkWkF
XZ2oUOyYsKjoC9Q7NrdmRX5GUNlaOy+pL1hpEHFZdWkXnDyNThto9sB5Zt2Q
xMcunKX659Ws6sZAVbzgSFg3Hof6bAvV7kKSlIv/NvKcfPK/ea9lP2My70mm
ZHkP3BwrQlbRQkgHh9kZ+X5BraC9yClcgDF3XfIESiIMOEyjHTT58LuWF69U
JsKp6pLigZkUinWjZRR9GBwOOs4Y13OguNlPL1yexZ3KPmZeXCu4C+o/BhaR
uS7ILXFB3Sfk34Bmp0sv/D6nnfDUaMCuvBWKM0Z7kaGzhuvzrAqhkRlh3Ht9
mOM4N85Xowz3e2akyFuK4XNSvH921GPYKMobvv0txki+q0FclDtipSWncYnX
L5547rSxO8qHBkb6ie82ioOPfHPDCkHHG7VhMYIu2q21dXGD2uP7W32I+/gp
JsordkNgZ+U15Y8YGqFm2jLVO+GfFHfVY0RM7uvKG1dEb8P9uNDAE8TpcYVF
kj9s0BXq7xxPrBn+7nCtqw0cvZ01nhFPtddK9DCwxuqVeg8mjIrxR/tJ2Pga
C4zjVlc8JH6j63VnXYwpUF9yp5K4Xeu3S+XutThR/vgchzj2hdvFdYZrIMpN
sZH+K8Yxr13U6dpVqA0+0OFInF8VImMauxT/+LmWHiIO3yc21TVajDV7bbPC
iacEKPRp1Ovi0ZZV3rnEvpIHku6e0wBjusjyNfGpurlP3jZOg6bBnEXNxF98
Zs5enKAEF10VJYZ4ttBP+O8lSfw3S3bgL/HUONH//z/yf5/w17Y=
      "]]}, 
    {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJxNxX0s1GEcAPBzEWU7jsl+Z8eOUyuaJiNKp9iU13lbbNdp8hJGstvQZpzR
C661Zrp1yetW4lzc0ZpEXGySlwjlXnJd13FCW8eOuOoP3+f547MPI+V6bBqZ
RCJF/fP/sDTd1MBSwtm9zYNpeSrCh7X3yXrBYwkRAod/mOuqI+LhS6mbfQ+I
VFjhdTuYT3DhBofoW5VEOcyzkhy5S9TAiUmN4vVfLbC1iccOdRbD7jGruqEq
KVww7s8S/H4FO0qpSjOzfrhHHTw2cWYQHsyqc0pakcGGw4E2opwRmGxss3Vy
H4V9TVd64jrG4LFyn/HhYxOwy329sXV1EtZvqpSfTnyEW5Z7Ryn3pmEK/ema
RjMDV2d2pzcwZ+GNoDbNtZI5mOstkx4amodVHbKqKcYXeDtrRnj05gLscc5y
N71XDoc2MTI6HZVwAT3ZdZGtgj1XEqznIr/C9jbrVrIttHm/UOz2eBHO9un9
fCBcDbddTGl4s4E26Gm22tpvcHdc6L6aEA1ccqGiXqpFMxRh880V3+EAv/Ia
wlsLs50njGbTaMMoX53H+wELzDncWKYOtld2N5FlaItiXrz/jSWY1MoRq+2W
4fxHYr7dILrP444VNVcPU8PyPcsoK7D8+OR00Wv0iycspobzE74s9qXSd9Gl
FY08+fNVWKSjCykRa3AMlXJqZAtdaUF2kmPLjIaddWxftWKIto2mSUTRudjq
+MgMhz9orqC69uoOWlRdWlSIrS3lsvnYiZls15fYgQGeHQd30fvl7991YrMm
+58NYxfKJFUL2MvtwhgLE3q8OFuRiG2ZnzyQgx2UHtdcht0VdTqzHVt/3ivi
LTbTz81rFpvj4Winx37oYm0wYf8FVp6K0A==
      "]]}}, 
   {Hue[0], 
    LineBox[{{0.2, 0.2}, {0.2, 0.5680000000000001}, {0.5680000000000001, 
     0.5680000000000001}}]}, 
   {Hue[
     NCache[
      Rational[1, 3], 0.3333333333333333]], 
    LineBox[{{0.5680000000000001, 0.5680000000000001}, {0.5680000000000001, 
     0.8710847999999999}, {0.8710847999999999, 0.8710847999999999}}]}, 
   {Hue[
     NCache[
      Rational[2, 3], 0.6666666666666666]], 
    LineBox[{{0.8710847999999999, 0.8710847999999999}, {0.8710847999999999, 
     0.3986510527918083}, {0.3986510527918083, 0.3986510527918083}}]}},
  Axes->True,
  AxesOrigin->{0, 0},
  ImageSize->{169.3333333333335, Automatic},
  PlotRange->{{0, 1}, {0., 0.9999999795918367}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Text",
 TextAlignment->Center,
 TextJustification->0.,ExpressionUUID->"6abbfdfc-3374-4e0a-acb0-c9c0c314e006"],

Cell["\<\
Iterating this process will show the behavior of the iteration, such as the \
stability of  fixed points, or the existence of periodic solutions.\
\>", "Text",
 CellChangeTimes->{{3.4137867455755873`*^9, 3.4137868222658625`*^9}, {
  3.414071964025347*^9, 
  3.414071964175563*^9}},ExpressionUUID->"9baa04d6-943d-4936-90d8-\
33096bd9cb8e"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellChangeTimes->{3.539604794614111*^9},
 CellTags->
  "SlideShowHeader",ExpressionUUID->"914b00a1-1035-4975-b979-5e492a03677b"],

Cell[CellGroupData[{

Cell["Example", "MainSection",
 CellChangeTimes->{{3.666289988946142*^9, 3.666289990455761*^9}, {
  3.6662903991249437`*^9, 3.6662904009110107`*^9}, {3.6662929554087925`*^9, 
  3.666292959994804*^9}},ExpressionUUID->"d08eb6d7-d4b3-4aeb-99e1-\
1f61994133de"],

Cell[BoxData[{
 FormBox[
  RowBox[{
   SubscriptBox["x", 
    RowBox[{"n", "+", "1"}]], "=", 
   RowBox[{
    SubscriptBox["x", 
     RowBox[{"n", "-", "1"}]], " ", "+", " ", 
    SubscriptBox["x", "n"]}]}], TraditionalForm], "\[IndentingNewLine]", 
 FormBox[
  RowBox[{
   RowBox[{
    SubscriptBox["x", "0"], "=", "1"}], ",", " ", 
   RowBox[{
    SubscriptBox["x", "1"], "=", "1"}]}], TraditionalForm]}], "Text",
 CellChangeTimes->{{3.6658594630819273`*^9, 3.6658594688634787`*^9}, {
  3.6658595174277124`*^9, 3.665859523584262*^9}, {3.6658595653824368`*^9, 
  3.6658595817738476`*^9}, {3.6658596471354437`*^9, 3.6658596679012313`*^9}, {
  3.6658597843440847`*^9, 
  3.6658598059545345`*^9}},ExpressionUUID->"be69dce6-407d-4392-a894-\
66c2045b7360"],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    FractionBox[
     SubscriptBox["x", 
      RowBox[{"n", "+", "1"}]], 
     RowBox[{" ", 
      SubscriptBox["x", "n"]}]], "=", 
    RowBox[{
     FractionBox[
      SubscriptBox["x", 
       RowBox[{"n", "-", "1"}]], 
      RowBox[{" ", 
       SubscriptBox["x", "n"]}]], " ", "+", " ", "1"}]}], TraditionalForm]],
  CellChangeTimes->{{3.6658594630819273`*^9, 3.6658594688634787`*^9}, {
   3.6658595174277124`*^9, 3.665859523584262*^9}, {3.6658595653824368`*^9, 
   3.6658595817738476`*^9}, {3.6658596471354437`*^9, 
   3.6658596679012313`*^9}, {3.6658597843440847`*^9, 3.6658598059545345`*^9}},
  ExpressionUUID->"a813ffb5-c4c2-4880-a164-b3107f1f19d3"],
 "  \[DoubleLongRightArrow]  ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["y", 
     RowBox[{"n", "+", "1"}]], "=", 
    RowBox[{
     FractionBox["1", 
      RowBox[{" ", 
       SubscriptBox["y", "n"]}]], " ", "+", " ", "1"}]}], TraditionalForm]],
  CellChangeTimes->{{3.6658594630819273`*^9, 3.6658594688634787`*^9}, {
   3.6658595174277124`*^9, 3.665859523584262*^9}, {3.6658595653824368`*^9, 
   3.6658595817738476`*^9}, {3.6658596471354437`*^9, 
   3.6658596679012313`*^9}, {3.6658597843440847`*^9, 3.6658598059545345`*^9}},
  ExpressionUUID->"5bfe2bd8-9aa8-4c5f-8121-ea698405e492"],
 "   ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SubscriptBox["y", "i"], "=", 
      FractionBox[
       SubscriptBox["x", "i"], 
       RowBox[{" ", 
        SubscriptBox["x", 
         RowBox[{"i", "-", "1"}]]}]]}], ",", "  ", 
     RowBox[{"i", "=", "1"}], ",", "2", ",", " ", "..."}], ")"}], 
   TraditionalForm]],
  CellChangeTimes->{{3.6658594630819273`*^9, 3.6658594688634787`*^9}, {
   3.6658595174277124`*^9, 3.665859523584262*^9}, {3.6658595653824368`*^9, 
   3.6658595817738476`*^9}, {3.6658596471354437`*^9, 
   3.6658596679012313`*^9}, {3.6658597843440847`*^9, 3.6658598059545345`*^9}},
  ExpressionUUID->"927b7df6-e763-4153-88c5-2fef899607ee"]
}], "Text",
 CellChangeTimes->{{3.4133996123427153`*^9, 3.4133996238192177`*^9}, {
  3.6658629676206074`*^9, 3.6658630532966175`*^9}, {3.6658932112770414`*^9, 
  3.665893234495369*^9}, {3.6658999290258226`*^9, 3.66589996723145*^9}, {
  3.665900060663054*^9, 
  3.665900192152996*^9}},ExpressionUUID->"ae020dcb-f7dc-42aa-af5e-\
a4e3fcdaa6a5"],

Cell[BoxData[
 FormBox[
  RowBox[{" ", 
   RowBox[{
    RowBox[{"F", 
     RowBox[{"(", "x", ")"}]}], "=", 
    RowBox[{"1", "+", 
     FractionBox["1", "x"]}]}]}], TraditionalForm]], "Text",
 CellChangeTimes->{{3.6659002301244593`*^9, 3.6659002740654984`*^9}, 
   3.665900313296301*^9},ExpressionUUID->"1b3cb945-1c52-4f41-a7e2-\
84211f9532f9"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"F", " ", "[", "x_", "]"}], "=", 
   RowBox[{"1", "+", 
    FractionBox["1", "x"]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"CobwebManipulate0", "[", 
  RowBox[{"F", ",", "20", ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "0.74"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "2"}], ",", "4"}], "}"}]}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.414074375042219*^9, 3.4140743772554016`*^9}, {
   3.4140744539156337`*^9, 3.4140744999418163`*^9}, {3.4140748512469683`*^9, 
   3.414074862913744*^9}, {3.4140749640691986`*^9, 3.414074986731786*^9}, {
   3.4140750235447197`*^9, 3.4140750242056704`*^9}, {3.4140770629772797`*^9, 
   3.4140770743336096`*^9}, {3.666290852934388*^9, 3.6662908728824253`*^9}, {
   3.6662909642851143`*^9, 3.6662909941595936`*^9}, {3.6662910431929483`*^9, 
   3.666291043686621*^9}, {3.6662911075446897`*^9, 3.666291115465702*^9}, 
   3.666291894935745*^9, {3.6662922460686755`*^9, 3.6662922486286635`*^9}, {
   3.6662924378166637`*^9, 3.6662924387709565`*^9}, {3.681136653764391*^9, 
   3.6811366576684985`*^9}},ExpressionUUID->"2f47b9d7-4452-4076-b57f-\
1b01aa8eea9f"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`n$98864$$ = 
    20, $CellContext`x0$98864$$ = -0.5800000000000001, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`x0$98864$$], -0.74, 
       "\"\!\(\*SubscriptBox[\(x\), \(0\)]\)\""}, -2, 4}, {{
       Hold[$CellContext`n$98864$$], 20, "n"}, 1, 20, 1}}, Typeset`size$$ = {
    594., {149., 161.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = False, $CellContext`x0$98864$98866$$ = 
    0, $CellContext`n$98864$98867$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`n$98864$$ = 
        20, $CellContext`x0$98864$$ = -0.74}, "ControllerVariables" :> {
        Hold[$CellContext`x0$98864$$, $CellContext`x0$98864$98866$$, 0], 
        Hold[$CellContext`n$98864$$, $CellContext`n$98864$98867$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> GraphicsRow[{
         Graphics[
          ReplaceAll[
           NestList[{Part[#, 1] + 1, 
             ReplaceAll[
              $CellContext`F[
               Part[#, 2]], $CellContext`par -> $CellContext`b$98864]}& , {
            0, $CellContext`x0$98864$$}, $CellContext`n$98864$$], PatternTest[
             Pattern[$CellContext`u, 
              Blank[]], VectorQ] :> {
             Hue[
              Part[$CellContext`u, 2]], 
             PointSize[0.03], 
             Point[$CellContext`u]}], AspectRatio -> 1, 
          PlotRange -> {{0, 20}, {-2, 4}}, Axes -> True, 
          AxesLabel -> {"n", "\"\!\(\*SubscriptBox[\(x\), \(n\)]\)\""}], 
         Show[
          Plot[{
            ReplaceAll[
             $CellContext`F[$CellContext`u$98864], $CellContext`par -> \
$CellContext`b$98864], $CellContext`u$98864}, {$CellContext`u$98864, -2, 4}, 
           AspectRatio -> Automatic, PlotRange -> {-2, 4}], 
          ReplaceAll[
           Drop[
            Thread[{$CellContext`data$98864 = NestList[{
                 ReplaceAll[
                  $CellContext`F[
                   Part[#, 1]], $CellContext`par -> $CellContext`b$98864], 
                 Part[#, 2] + 1}& , {$CellContext`x0$98864$$, 
                 0}, $CellContext`n$98864$$], 
              RotateLeft[$CellContext`data$98864]}], -1], {
             PatternTest[
              Pattern[$CellContext`u$, 
               Blank[]], VectorQ], 
             PatternTest[
              Pattern[$CellContext`v$, 
               Blank[]], VectorQ]} :> Graphics[{
              Hue[Part[$CellContext`u$, 2]/$CellContext`n$98864$$], 
              Thickness[0.02], 
              Line[
               
               ReplaceAll[{{$CellContext`u$, $CellContext`u$}, \
{$CellContext`u$, $CellContext`v$}, {$CellContext`v$, $CellContext`v$}}, 
                PatternTest[
                  Pattern[$CellContext`d, 
                   Blank[]], VectorQ] :> First[$CellContext`d]]]}]], 
          AxesLabel -> {
           "\"\!\(\*SubscriptBox[\(x\), \(n\)]\)\"", 
            "\"\!\(\*SubscriptBox[\(x\), \(n + 1\)]\)\""}]}], 
      "Specifications" :> {{{$CellContext`x0$98864$$, -0.74, 
          "\"\!\(\*SubscriptBox[\(x\), \(0\)]\)\""}, -2, 
         4}, {{$CellContext`n$98864$$, 20, "n"}, 1, 20, 1}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{676., {243., 256.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({$CellContext`F[
         Pattern[$CellContext`x, 
          Blank[]]] = 1 + $CellContext`x^(-1), 
       Attributes[$CellContext`b$98864] = {Temporary}, 
       Attributes[$CellContext`x0$98864$$] = {Temporary}, 
       Attributes[$CellContext`n$98864$$] = {Temporary}, 
       Attributes[$CellContext`u$98864] = {Temporary}, 
       Attributes[$CellContext`data$98864] = {Temporary}, 
       Attributes[$CellContext`u$] = {Temporary}, 
       Attributes[$CellContext`v$] = {Temporary}}; 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.6662908735329485`*^9, {3.6662909689717245`*^9, 3.6662909952219605`*^9}, {
   3.6662910290250688`*^9, 3.6662910449665546`*^9}, {3.666291109603278*^9, 
   3.666291115872281*^9}, 3.6662918963560495`*^9, 3.666291970079832*^9, 
   3.666292059080945*^9, 3.6662922164407463`*^9, 3.6662922811211567`*^9, 
   3.666292494113761*^9, 3.681136660771646*^9, 3.681136717032175*^9, 
   3.681136761063219*^9, 3.681136859663057*^9, 3.68113692506155*^9, {
   3.6811369617359295`*^9, 3.6811370128154287`*^9}, 3.6811370684950542`*^9, 
   3.681137108177032*^9},ExpressionUUID->"761be9f7-1fdd-467c-a1db-\
bb3b4d34e502"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
ScreenStyleEnvironment->"SlideShow",
WindowToolbars->"RulerBar",
WindowSize->{1858, 1038},
WindowMargins->{{-8, Automatic}, {Automatic, -8}},
Magnification:>1.65 Inherited,
FrontEndVersion->"11.2 for Microsoft Windows (64-bit) (September 10, 2017)",
StyleDefinitions->"Modelstyle-EN-2017-ariel.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "SlideShowHeader"->{
  Cell[35996, 786, 164, 3, 1, "SlideShowNavigationBar",ExpressionUUID->"914b00a1-1035-4975-b979-5e492a03677b",
   CellTags->"SlideShowHeader"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"SlideShowHeader", 46816, 1048}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 337, 5, 115, "Subtitle",ExpressionUUID->"3335a92a-0d82-4c0b-8445-74bdb6567781"],
Cell[CellGroupData[{
Cell[942, 31, 124, 3, 61, "Math-Init",ExpressionUUID->"992e8002-c593-4aaa-946b-f246a4608a7a"],
Cell[1069, 36, 8186, 183, 1139, "Input",ExpressionUUID->"77c9d361-011e-4061-9615-db9b1cee0626"],
Cell[9258, 221, 7968, 176, 1094, "Input",ExpressionUUID->"6a48c624-d6b7-480f-bfe6-c0cf2516838f"]
}, Closed]],
Cell[CellGroupData[{
Cell[17263, 402, 220, 4, 83, "MainSection",ExpressionUUID->"32804bf6-b7cd-4cc1-a530-e9a034d050a8"],
Cell[17486, 408, 276, 4, 62, "Text",ExpressionUUID->"6314aa96-71c4-4bf7-b6d0-830b8c4a8b35"],
Cell[17765, 414, 423, 11, 62, "Text",ExpressionUUID->"99f17d5b-3e7d-425c-97a4-dd6b1113e198"],
Cell[18191, 427, 1300, 35, 155, "Text",ExpressionUUID->"9cea89e7-1b68-48cc-a1c7-d745885d3cc4"],
Cell[19494, 464, 6986, 122, 272, "Text",ExpressionUUID->"80541028-7391-4a16-8a6e-a5906b14992d"],
Cell[26483, 588, 1613, 47, 156, "Text",ExpressionUUID->"3ce65e1f-34b4-4831-9330-9d2a44f0938c"],
Cell[28099, 637, 7497, 134, 297, "Text",ExpressionUUID->"6abbfdfc-3374-4e0a-acb0-c9c0c314e006"],
Cell[35599, 773, 348, 7, 109, "Text",ExpressionUUID->"9baa04d6-943d-4936-90d8-33096bd9cb8e"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[35996, 786, 164, 3, 1, "SlideShowNavigationBar",ExpressionUUID->"914b00a1-1035-4975-b979-5e492a03677b",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[36185, 793, 257, 4, 83, "MainSection",ExpressionUUID->"d08eb6d7-d4b3-4aeb-99e1-1f61994133de"],
Cell[36445, 799, 752, 20, 111, "Text",ExpressionUUID->"be69dce6-407d-4392-a894-66c2045b7360"],
Cell[37200, 821, 2350, 60, 101, "Text",ExpressionUUID->"ae020dcb-f7dc-42aa-af5e-a4e3fcdaa6a5"],
Cell[39553, 883, 344, 10, 108, "Text",ExpressionUUID->"1b3cb945-1c52-4f41-a7e2-84211f9532f9"],
Cell[CellGroupData[{
Cell[39922, 897, 1186, 24, 164, "Input",ExpressionUUID->"2f47b9d7-4452-4076-b57f-1b01aa8eea9f"],
Cell[41111, 923, 5246, 107, 539, "Output",ExpressionUUID->"761be9f7-1fdd-467c-a1db-bb3b4d34e502"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

