(* 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[    400756,       9140]
NotebookOptionsPosition[    383306,       8820]
NotebookOutlinePosition[    385530,       8865]
CellTagsIndexPosition[    385450,       8860]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Bounded growth: The logistic mapping", "Title",
 CellChangeTimes->{{3.563354759047675*^9, 3.563354771067274*^9}, {
  3.563355034733774*^9, 3.5633550580963717`*^9}, {3.666289704258358*^9, 
  3.666289733707974*^9}, {3.6662930105578685`*^9, 3.6662930114375105`*^9}, {
  3.6662935937055817`*^9, 3.666293598448952*^9}, {3.6663532690799026`*^9, 
  3.666353282799922*^9}, {3.666354511743643*^9, 3.666354518473652*^9}, {
  3.6671990819021235`*^9, 
  3.667199084152252*^9}},ExpressionUUID->"eea58413-d6b7-4c4d-9294-\
1f85a4236412"],

Cell[CellGroupData[{

Cell[" ", "Math-Init",
 CellChangeTimes->{
  3.414433112943859*^9},ExpressionUUID->"ab5b6f40-cb6e-4951-913e-\
baf4652f09f5"],

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", ",", "\"\<a\>\""}], "}"}], ",", "p1", ",", 
        "p2", ",", 
        RowBox[{"Appearance", "\[Rule]", 
         RowBox[{"{", "\"\<Labeled\>\"", "}"}]}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "x0", ",", "x00", ",", 
          "\"\<\\\"\\!\\(\\*SubscriptBox[\\(x\\), \\(0\\)]\\)\\\"\>\""}], 
         "}"}], ",", "x1", ",", "x2", ",", 
        RowBox[{"Appearance", "\[Rule]", 
         RowBox[{"{", "\"\<Labeled\>\"", "}"}]}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"n", ",", "nmax", ",", "\"\<n\>\""}], "}"}], ",", "1", ",", 
        "nmax", ",", "1", ",", 
        RowBox[{"Appearance", "\[Rule]", 
         RowBox[{"{", "\"\<Labeled\>\"", "}"}]}]}], "}"}], ",", 
      "\[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.681137501258991*^9, 
   3.681137538983139*^9}, {3.6811375698104496`*^9, 3.681137575745847*^9}, {
   3.681137606249671*^9, 
   3.681137614504073*^9}},ExpressionUUID->"7a1feb04-a410-4086-9399-\
70c424738fdf"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "CobwebManipulate2", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"CobwebManipulate2", "[", 
   RowBox[{"map_", ",", 
    RowBox[{"{", 
     RowBox[{"par_", ",", "p1_", ",", "p2_"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"par2_", ",", "q1_", ",", "q2_"}], "}"}], ",", "nmax_", ",", 
    RowBox[{"{", 
     RowBox[{"x_", ",", "x00_", ",", 
      RowBox[{"{", 
       RowBox[{"x1_", ",", "x2_"}], "}"}]}], "}"}]}], "]"}], ":=", 
  "\[IndentingNewLine]", 
  RowBox[{"DynamicModule", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"data", ",", "n", ",", "x0", ",", "b", ",", "bb", ",", "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[{
                   RowBox[{"map", "[", 
                    RowBox[{"#", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], "]"}], "/.", 
                   RowBox[{"par", "->", "b"}]}], "/.", 
                  RowBox[{"par2", "\[Rule]", "bb"}]}]}], "}"}], "&"}], ",", 
              RowBox[{"{", 
               RowBox[{"0", ",", "x0"}], "}"}], ",", "n"}], "]"}], "/.", 
            RowBox[{
             RowBox[{"u_", "?", "VectorQ"}], ":>", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"Hue", "[", 
                RowBox[{
                 RowBox[{"u", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], "/", "nmax"}], "]"}], ",", 
               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[{
                 RowBox[{"map", "[", "u", "]"}], "/.", 
                 RowBox[{"par", "->", "b"}]}], "/.", 
                RowBox[{"par2", "\[Rule]", "bb"}]}], ",", "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[{
                    RowBox[{"map", "[", 
                    RowBox[{"#", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], "]"}], "/.", 
                    RowBox[{"par", "->", "b"}]}], "/.", 
                    RowBox[{"par2", "\[Rule]", "bb"}]}], ",", 
                    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", "]"}], "]"}], "/", "nmax"}], "]"}], ",", 
                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", ",", "p1", ",", 
          RowBox[{"ToString", "[", "par", "]"}]}], "}"}], ",", "p1", ",", 
        "p2", ",", 
        RowBox[{"Appearance", "\[Rule]", 
         RowBox[{"{", "\"\<Labeled\>\"", "}"}]}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"bb", ",", "q1", ",", 
          RowBox[{"ToString", "[", "par2", "]"}]}], "}"}], ",", "q1", ",", 
        "q2", ",", 
        RowBox[{"Appearance", "\[Rule]", 
         RowBox[{"{", "\"\<Labeled\>\"", "}"}]}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "x0", ",", "x00", ",", 
          "\"\<\!\(\*SubscriptBox[\(x\), \(0\)]\)\>\""}], "}"}], ",", "x1", 
        ",", "x2", ",", 
        RowBox[{"Appearance", "\[Rule]", 
         RowBox[{"{", "\"\<Labeled\>\"", "}"}]}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"n", ",", "nmax", ",", "\"\<n\>\""}], "}"}], ",", "1", ",", 
        "nmax", ",", "1", ",", 
        RowBox[{"Appearance", "\[Rule]", 
         RowBox[{"{", "\"\<Labeled\>\"", "}"}]}]}], "}"}], ",", 
      "\[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.666295028238576*^9, 3.666295032920993*^9}, {3.6662951730310717`*^9, 
   3.666295173344164*^9}, {3.666296097989069*^9, 3.6662962323980565`*^9}, {
   3.6662963314032345`*^9, 3.666296352997471*^9}, {3.66629662552712*^9, 
   3.6662966259229717`*^9}, {3.666296657641696*^9, 3.6662966587229624`*^9}, {
   3.666343929544913*^9, 3.66634393018495*^9}, {3.6663439666660357`*^9, 
   3.6663439774896555`*^9}, {3.666344101309737*^9, 3.666344108910172*^9}, {
   3.6663441414730344`*^9, 3.666344150390545*^9}, {3.6663442780898485`*^9, 
   3.6663442927386866`*^9}, {3.6663523548483906`*^9, 
   3.6663523653484054`*^9}, {3.6663524075984645`*^9, 3.66635241858848*^9}, {
   3.6663525773487024`*^9, 
   3.666352581618708*^9}},ExpressionUUID->"ba4c7762-8b21-40d3-ae72-\
ab990dabb688"]
}, Closed]],

Cell[CellGroupData[{

Cell["Conditions", "Section",
 CellChangeTimes->{{3.6662934942115755`*^9, 
  3.66629351213031*^9}},ExpressionUUID->"67479b9c-0e92-44fd-aee2-\
d9fcf5e4afc4"],

Cell[CellGroupData[{

Cell["Uniform distribution in space", "Item",
 CellChangeTimes->{{3.665830199489728*^9, 3.6658302360697794`*^9}, {
  3.6658303055498767`*^9, 
  3.6658305891602736`*^9}},ExpressionUUID->"589fdfda-c7f2-4897-875e-\
36d23aaa08aa"],

Cell["cells behave indentically", "Item",
 CellChangeTimes->{{3.665830199489728*^9, 3.6658302360697794`*^9}, {
   3.6658303055498767`*^9, 3.665830648530357*^9}, {3.665831357512349*^9, 
   3.6658313717323694`*^9}, 
   3.665994185019375*^9},ExpressionUUID->"3a70ac28-dcdc-4f4e-b62d-\
5ae6c5ebc569"],

Cell["events happen at discrete instants", "Item",
 CellChangeTimes->{{3.665830199489728*^9, 3.6658302360697794`*^9}, {
  3.6658303055498767`*^9, 3.66583062236032*^9}, {3.6658307395804844`*^9, 
  3.665830760140513*^9}},ExpressionUUID->"84177770-89fb-43b0-8fcd-\
663a3673e6c4"],

Cell[TextData[StyleBox["Space is restricted",
 FontColor->RGBColor[1, 0, 0]]], "Item",
 CellChangeTimes->{{3.665830199489728*^9, 3.6658302360697794`*^9}, {
  3.6658303055498767`*^9, 3.665830639330344*^9}, {3.6663503835436306`*^9, 
  3.6663503890536385`*^9}},ExpressionUUID->"4d7714be-9244-4518-8e8b-\
a8e95fd351af"],

Cell[TextData[StyleBox["either higher death or lower birth at large \
population",
 FontColor->RGBColor[1, 0, 0]]], "Item",
 CellChangeTimes->{{3.665830199489728*^9, 3.6658302360697794`*^9}, {
  3.6658303055498767`*^9, 3.66583062236032*^9}, {3.66635089027434*^9, 
  3.666350926314391*^9}},ExpressionUUID->"f7c852c7-9e6a-430e-ba5e-\
d0d6cfcde192"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["The system", "Section",
 CellChangeTimes->{{3.6662934942115755`*^9, 3.666293542336147*^9}, {
  3.6663546827638817`*^9, 
  3.6663546838238835`*^9}},ExpressionUUID->"ef7beea1-7b5e-46cb-8907-\
fd7560a70c14"],

Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{" ", 
   RowBox[{
    SubscriptBox["x", 
     RowBox[{"n", "+", "1"}]], "=", " ", 
    RowBox[{"a", " ", 
     RowBox[{
      SubscriptBox["x", "n"], "(", 
      RowBox[{"1", "-", 
       SubscriptBox["x", "n"]}], ")"}], " "}]}]}], TraditionalForm]],
 FontWeight->
  "Bold",ExpressionUUID->"4706f96e-5b66-408f-bdd9-a10485fac8bd"]], "Text",
 CellChangeTimes->{{3.666349321800144*^9, 3.6663493297001553`*^9}, {
  3.6663494675503483`*^9, 3.666349475320359*^9}, {3.6663496338205814`*^9, 
  3.666349692230663*^9}, {3.666349739350729*^9, 3.6663497760107803`*^9}, {
  3.6663547331539526`*^9, 3.6663547366939573`*^9}},
 TextAlignment->Center,
 TextJustification->0.,ExpressionUUID->"1eed0013-5732-4c05-a337-271068afabf4"],

Cell[BoxData[
 RowBox[{
  RowBox[{"F", "[", "x_", "]"}], ":=", 
  RowBox[{"a", " ", "x", 
   RowBox[{"(", 
    RowBox[{"1", "-", "x"}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.6663550294043674`*^9, 
  3.66635503834438*^9}},ExpressionUUID->"a8fcacff-2a8e-4876-bd78-\
3ae365d02a17"],

Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{"0", "\[LessEqual]", "a", "\[LessEqual]", "4"}], ":", " ", "F", 
    ":", " ", 
    RowBox[{"[", 
     RowBox[{"0", ",", "1"}], "]"}]}], "\[Rule]", 
   RowBox[{"[", 
    RowBox[{"0", ",", "1"}], "]"}], " "}], 
  TraditionalForm]],ExpressionUUID->"7b9e89b3-4148-4590-91d6-6098fafd4f22"]], \
"Text",
 CellChangeTimes->{{3.666437616221857*^9, 3.666437661168428*^9}},
 TextAlignment->Center,
 TextJustification->0.,
 FontWeight->"Bold",ExpressionUUID->"a0e73019-50c1-41bd-91db-7c4bdd6c077c"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellChangeTimes->{3.539604794614111*^9},
 CellTags->
  "SlideShowHeader",ExpressionUUID->"078bf9db-d061-4eff-a5e2-c47c74087969"],

Cell[CellGroupData[{

Cell["Fixed points", "Section",
 CellChangeTimes->{{3.6663550073043365`*^9, 
  3.666355017614351*^9}},ExpressionUUID->"a13a4102-9e60-446e-92e7-\
a76351ac8ac2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"x", "\[Equal]", 
    RowBox[{"F", "[", "x", "]"}]}], ",", "x"}], "]"}]], "Input",
 CellChangeTimes->{{3.6663550201443543`*^9, 
  3.6663550467943916`*^9}},ExpressionUUID->"f955d6a9-0285-49a9-968c-\
78b95fca733f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     FractionBox[
      RowBox[{
       RowBox[{"-", "1"}], "+", "a"}], "a"]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.666355047854393*^9, 
  3.6663550522543993`*^9}},ExpressionUUID->"f8ebce39-df62-45ac-b3cb-\
2dbcced7b315"]
}, Open  ]],

Cell[TextData[{
 "Positive fixed point of",
 Cell[BoxData[
  FormBox[
   RowBox[{"  ", 
    RowBox[{"F", "(", "x", ")"}], "  "}], TraditionalForm]], "None",
  ExpressionUUID->"15f75f37-6d15-40ef-a598-c2c115911bb9"],
 "appears : ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["a", "1"], "=", "1"}], TraditionalForm]], "None",
  ExpressionUUID->"953c8175-3fc2-4239-8ec1-74c78fdd08dc"]
}], "Th-Env",
 CellChangeTimes->{{3.666464430667138*^9, 3.666464503455325*^9}},
 FontColor->RGBColor[
  1, 0, 0],ExpressionUUID->"09f5e7fd-c01a-41e7-ac7b-2bf220a8a302"],

Cell[TextData[{
 " Notes: ",
 Cell[BoxData[
  FormBox[
   RowBox[{"a", ">", "1"}], TraditionalForm]],ExpressionUUID->
  "5ab5ff95-9a64-490e-bf59-1d5a083c251f"]
}], "Th-Env",
 CellChangeTimes->{{3.666354707143916*^9, 3.6663547163839293`*^9}, {
  3.6663560615878124`*^9, 
  3.6663560715778265`*^9}},ExpressionUUID->"862d649e-c5cd-4b3b-9a18-\
fd465f6c944f"],

Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{" ", 
   RowBox[{
    RowBox[{
     SubscriptBox["x", 
      RowBox[{"n", "+", "1"}]], "-", " ", 
     SubscriptBox["x", "n"]}], "=", " ", 
    RowBox[{"a", " ", 
     RowBox[{
      SubscriptBox["x", "n"], "(", 
      RowBox[{"1", "-", 
       FractionBox["1", "a"], "-", 
       SubscriptBox["x", "n"]}], ")"}], " "}]}]}], TraditionalForm]],
 FontWeight->
  "Bold",ExpressionUUID->"cf075029-8189-41e3-8964-b149c2744b62"]], "Text",
 CellChangeTimes->{{3.666349321800144*^9, 3.6663493297001553`*^9}, {
  3.6663494675503483`*^9, 3.666349475320359*^9}, {3.6663496338205814`*^9, 
  3.666349692230663*^9}, {3.666349739350729*^9, 3.6663497760107803`*^9}, {
  3.6663547331539526`*^9, 3.6663547366939573`*^9}, {3.6663554854170055`*^9, 
  3.6663555040470324`*^9}, {3.6663558930475764`*^9, 3.6663558930475764`*^9}},
 TextJustification->0.,ExpressionUUID->"b4ef1046-7dd7-44b7-a807-ac33e016ebcf"],

Cell[TextData[{
 " ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["x", "n"], "\[TildeTilde]", " ", 
    RowBox[{
     RowBox[{"0", " ", "\[DoubleLongRightArrow]", "    ", 
      SubscriptBox["x", 
       RowBox[{"n", "+", "1"}]]}], "-", " ", 
     SubscriptBox["x", "n"]}], "\[TildeTilde]", " ", 
    RowBox[{"a", " ", 
     RowBox[{
      SubscriptBox["x", "n"], "(", 
      RowBox[{"1", "-", 
       FractionBox["1", "a"]}], ")"}], "  "}]}], TraditionalForm]],
  FontWeight->"Bold",ExpressionUUID->"309f5418-061d-4aff-aab1-9b46f0b1b3e2"]
}], "Text",
 CellChangeTimes->{{3.66635473873396*^9, 3.6663547764340134`*^9}, {
  3.666354861434132*^9, 3.6663548743541503`*^9}, {3.666354926234223*^9, 
  3.666354948984255*^9}, {3.6663551868045874`*^9, 3.6663551868045874`*^9}, {
  3.666355981847701*^9, 3.666355981847701*^9}, {3.666356021847757*^9, 
  3.6663560244477606`*^9}},ExpressionUUID->"0413c394-d894-498d-aa08-\
55419d7867a8"],

Cell[TextData[{
 " ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     SubscriptBox["x", "n"], "\[TildeTilde]", 
     RowBox[{"1", "-", 
      RowBox[{
       FractionBox["1", "a"], " ", "\[DoubleLongRightArrow]", "   ", 
       SubscriptBox["x", 
        RowBox[{"n", "+", "1"}]]}], "-", " ", 
      SubscriptBox["x", "n"]}]}], "=", " ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a", " ", "-", "1"}], ")"}], 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       FractionBox["1", "a"], "-", 
       SubscriptBox["x", "n"]}], ")"}], " "}]}], TraditionalForm]],
  FontWeight->"Bold",ExpressionUUID->"84bcc414-ddf6-4f62-a298-b5c9bf397bd6"]
}], "Text",
 CellChangeTimes->{{3.66635473873396*^9, 3.6663547764340134`*^9}, {
  3.666354861434132*^9, 3.6663548743541503`*^9}, {3.666354926234223*^9, 
  3.666354948984255*^9}, {3.666355095054459*^9, 3.666355095054459*^9}, {
  3.666355165394558*^9, 3.6663551860545864`*^9}, {3.666356037017778*^9, 
  3.666356037017778*^9}, {3.6663561031278706`*^9, 
  3.666356111667883*^9}},ExpressionUUID->"31879629-165e-4b8d-8527-\
80512bd2bba5"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellChangeTimes->{3.539604794614111*^9},
 CellTags->
  "SlideShowHeader",ExpressionUUID->"f3142f53-fd39-459c-bf4d-e4e75e5e8bf4"],

Cell[CellGroupData[{

Cell["First visualization", "MainSection",
 CellChangeTimes->{{3.6664356079499907`*^9, 
  3.666435620581713*^9}},ExpressionUUID->"e02fe8bb-0e54-4c8c-9e07-\
c77bdb2213c6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CobwebManipulate", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"a", " ", "#", 
     RowBox[{"(", 
      RowBox[{"1", "-", "#"}], ")"}]}], "&"}], ",", 
   RowBox[{"{", 
    RowBox[{"a", ",", "0.5", ",", "4"}], "}"}], ",", "50", ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0.5", ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6662949810732765`*^9, 3.6662951357085876`*^9}, {
  3.6663518574656944`*^9, 3.6663518740557175`*^9}, {3.666351920725783*^9, 
  3.6663519212257833`*^9}, {3.6663549012441883`*^9, 3.666354901394188*^9}, {
  3.6811374370077133`*^9, 
  3.6811374374898434`*^9}},ExpressionUUID->"eea8586a-8f20-4825-99e9-\
98e9aae986ac"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`b$126753$$ = 3.65, $CellContext`n$126753$$ =
     50, $CellContext`x0$126753$$ = 0.5, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`b$126753$$], 2.5, "a"}, 0.5, 4}, {{
       Hold[$CellContext`x0$126753$$], 0.5, 
       "\"\!\(\*SubscriptBox[\(x\), \(0\)]\)\""}, 0, 1}, {{
       Hold[$CellContext`n$126753$$], 50, "n"}, 1, 50, 1}}, Typeset`size$$ = {
    540., {136., 146.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = False, $CellContext`b$126753$126755$$ = 
    0, $CellContext`x0$126753$126756$$ = 0, $CellContext`n$126753$126757$$ = 
    0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`b$126753$$ = 2.5, $CellContext`n$126753$$ = 
        50, $CellContext`x0$126753$$ = 0.5}, "ControllerVariables" :> {
        Hold[$CellContext`b$126753$$, $CellContext`b$126753$126755$$, 0], 
        Hold[$CellContext`x0$126753$$, $CellContext`x0$126753$126756$$, 0], 
        Hold[$CellContext`n$126753$$, $CellContext`n$126753$126757$$, 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`a #) (1 - #)& )[
               Part[#, 2]], $CellContext`a -> $CellContext`b$126753$$]}& , {
            0, $CellContext`x0$126753$$}, $CellContext`n$126753$$], 
           PatternTest[
             Pattern[$CellContext`u, 
              Blank[]], VectorQ] :> {
             Hue[
              Part[$CellContext`u, 2]], 
             PointSize[0.03], 
             Point[$CellContext`u]}], AspectRatio -> 1, 
          PlotRange -> {{0, 50}, {0, 1}}, Axes -> True, 
          AxesLabel -> {"n", "\"\!\(\*SubscriptBox[\(x\), \(n\)]\)\""}], 
         Show[
          Plot[{
            ReplaceAll[
             (($CellContext`a #) (
              1 - #)& )[$CellContext`u$126753], $CellContext`a -> \
$CellContext`b$126753$$], $CellContext`u$126753}, {$CellContext`u$126753, 0, 
            1}, AspectRatio -> Automatic, PlotRange -> {0, 1}], 
          ReplaceAll[
           Drop[
            Thread[{$CellContext`data$126753 = NestList[{
                 ReplaceAll[
                  (($CellContext`a #) (1 - #)& )[
                   Part[#, 1]], $CellContext`a -> $CellContext`b$126753$$], 
                 Part[#, 2] + 1}& , {$CellContext`x0$126753$$, 
                 0}, $CellContext`n$126753$$], 
              RotateLeft[$CellContext`data$126753]}], -1], {
             PatternTest[
              Pattern[$CellContext`u$, 
               Blank[]], VectorQ], 
             PatternTest[
              Pattern[$CellContext`v$, 
               Blank[]], VectorQ]} :> Graphics[{
              Hue[Part[$CellContext`u$, 2]/$CellContext`n$126753$$], 
              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`b$126753$$, 2.5, "a"}, 0.5, 4, 
         Appearance -> {"Labeled"}}, {{$CellContext`x0$126753$$, 0.5, 
          "\"\!\(\*SubscriptBox[\(x\), \(0\)]\)\""}, 0, 1, 
         Appearance -> {"Labeled"}}, {{$CellContext`n$126753$$, 50, "n"}, 1, 
         50, 1, Appearance -> {"Labeled"}}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{616., {242., 253.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({
      Attributes[$CellContext`b$126753$$] = {Temporary}, 
       Attributes[$CellContext`x0$126753$$] = {Temporary}, 
       Attributes[$CellContext`n$126753$$] = {Temporary}, 
       Attributes[$CellContext`u$126753] = {Temporary}, 
       Attributes[$CellContext`data$126753] = {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.6662950988891807`*^9, 3.6662951361510997`*^9, 3.666295183803522*^9, 
   3.6663437106713943`*^9, 3.6663438025546494`*^9, 3.6663438853743863`*^9, 
   3.666343998639865*^9, 3.6663440767093306`*^9, 3.6663441146915026`*^9, 
   3.6663518763957205`*^9, 3.6663519221957846`*^9, 3.666354902184189*^9, 
   3.666460621900315*^9, 3.6811374065650177`*^9, 3.681137438692846*^9, 
   3.681137523289422*^9, {3.681137554274156*^9, 3.681137584284484*^9}, 
   3.6811376246273584`*^9},ExpressionUUID->"de6489d9-6f47-4c5e-8bba-\
18ddd819db79"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellChangeTimes->{3.539604794614111*^9},
 CellTags->
  "SlideShowHeader",ExpressionUUID->"a64bc670-21da-485e-ad53-eae2faae9623"],

Cell[CellGroupData[{

Cell["Depencence of the fixed points on the parameter a.", "MainSection",
 CellChangeTimes->{{3.6664375378973775`*^9, 
  3.6664375608636913`*^9}},ExpressionUUID->"50e6e94d-6c86-45b9-ae5e-\
aadd7fc9d863"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"F", "[", "x_", "]"}], ":=", 
  RowBox[{"a", " ", "x", 
   RowBox[{"(", 
    RowBox[{"1", "-", "x"}], ")"}]}]}], "\n", 
 RowBox[{"fixed", "=", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{"x", "\[Equal]", 
     RowBox[{"F", "[", "x", "]"}]}], ",", "x"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.6663550294043674`*^9, 3.66635503834438*^9}, {
  3.666436527099563*^9, 
  3.6664365327208843`*^9}},ExpressionUUID->"4941a186-ea28-4a3f-82eb-\
b8e537657922"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     FractionBox[
      RowBox[{
       RowBox[{"-", "1"}], "+", "a"}], "a"]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.6664365351410227`*^9, 
  3.666437746025282*^9},ExpressionUUID->"f8b4815b-738f-4921-8499-\
ccb879ba8702"]
}, Open  ]],

Cell[TextData[{
 "Positive fixed point of",
 Cell[BoxData[
  FormBox[
   RowBox[{"  ", 
    RowBox[{"F", "(", "x", ")"}], "  "}], TraditionalForm]], "None",
  ExpressionUUID->"51ccded5-9a71-4738-b8f8-cc98b4e9cc60"],
 "appears : ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["a", "1"], "=", "1"}], TraditionalForm]], "None",
  ExpressionUUID->"8b833ed0-8fca-4c4e-9305-46175d5d728a"]
}], "Th-Env",
 CellChangeTimes->{{3.666464430667138*^9, 3.666464503455325*^9}},
 FontColor->RGBColor[
  1, 0, 0],ExpressionUUID->"2c94cb80-9710-4017-934a-3f8008e197a0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ContourPlot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"F", "[", "x", "]"}], "-", "x"}], ",", 
   RowBox[{"{", 
    RowBox[{"a", ",", "0", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "0.005"}], ",", "1"}], "}"}], ",", 
   RowBox[{"Contours", "\[Rule]", 
    RowBox[{"{", "0", "}"}]}], ",", 
   RowBox[{"ContourStyle", "\[Rule]", 
    RowBox[{"{", "Red", "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"a", ",", "x"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.666437709194175*^9, 3.6664377223589277`*^9}, {
  3.6664377832794123`*^9, 
  3.666438012729536*^9}},ExpressionUUID->"ee4ee5c9-592c-4e8d-a564-\
afaad77dda67"],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJxlmwdUVFfXhi+9yQBBxV4QPyuKioL8yexriQYNxhb1M2oIGsXYsHzEKCqJ
sUuCGglYIiIqNlRULOgMYgMhilgokghDE+lDVUD+YeA9s86FlbWynuxbzrvP
Pnufs++kt9eq6d/rC4LwjYEgNP8bfxvbR07M3rBOud/BXfNPCvGsYvw6eoXm
nyKJXc1Ya35dwzhD+x/qGX9s0v4x3qe9X18E92nG/YaMr2mfZ8x4ovaFZozT
tc+3YLxMO0BLxi3qrCUsCJU/Rs39t9Nlgl6eVYyhl7erGUMvGHrB0AuGXjD0
gqEXDL1g6AVDLxh6eRaEP9+WLbp2+y7Ty7OKMfTydjVj6AVDLxh6wdALhl4w
9IKhFwy9YOgFQy/PguB8cPuR+uLHTC/PKsbQy9vVjKEXDL1g6AVDLxh6wdAL
hl4w9IKhFwy9PAtCYajsXagshenlWcUYenm7mjH0gqEXDL1g6AVDLxh6wdAL
hl4w9IKhl2dBcK1NN7p/6hXTy7OKMfTydjVj6AVDLxh6wdALhl4w9IKhFwy9
YOgFQy/PgrDD42TvAvlrppdnFWPo5e1qxtALhl4w9IKhFwy9YOgFQy8YesHQ
C4ZengXh1Qmfz8xT3zC9PKsYQy9vVzOGXjD0gqEXDL1g6AVDLxh6wdALhl4w
9PIsCJ80Hj0f5KJienlWMYZe3q5mDL1g6AVDLxh6wdALhl4w9IKhFwy9YOjl
WRBGR2x1i9iay/TyrGIMvbxdzRh6wdALhl4w9IKhFwy9YOgFQy8YesHQy7Mg
eM5YGn/zaT7Ty7OKMfTydjVj6AVDLxh6wdALhl4w9IKhFwy9YOgFQy/Pmnz1
ccqsxK6FunzFsYoxy1ecXc2Y5atWZvmqlVm+amWWr1qZ5atWZvmqlVm+amWW
r1qZ5atWZvmKY0GIPOOcm7mkiOnlWcUYenm7mjH0gqEXDL1g6AVDLxh6wdAL
hl4w9IKhl2dBeDmzy5rSKyVML88qxtDL29WMoRcMvWDoBUMvGHrB0AuGXjD0
gqEXDL0846+c6eVZxRh6ebuaMfSCoRcMvWDoBUMvGHrB0AuGXjD0gqGX53Ka
7bhqr2fYMdK+fn8V4xY9cYzhGXCLPpnI260Zt+gzEbcWTbvRY9tTxtZfVmlO
LC8oUPt8c2YHw26vHU87ZgfDjvfDDoZ9uVa/URv2DFMeeKlOY+MB4/1gvA8M
fdL3S58XWbf7Yt3uf9jzwHgeGM/D/Xie1A6GfXO/c3kBNtlsfn4YaDm6Nr2U
zQ8Y10uZj9c4yXleJvLndxO2H4ceMPRI9+/S+YAd/uf32yaM8Xwwns/v32Vt
7sd+EveDcT+/H5a1YX4/GcfWBfTAfy32KHLV1vvdrevfSpRyuObpMf4vGSdp
/1LZ88B43sjm893yMnY9GPMpfX6V9ryfwRjxA+b7NVFt9OD5sEv7J230Sc4n
0vFKn4/xIf/w613G/MP2F9z6kzH/YH7AsOP5YH59lrfpVyEftYz3NfH5K5/x
F9ob3jNuiddGiV2P5beWfG4g8tcbtcl/YMQnGPEpzb/5Gu+kzXzIGOsJ40E+
wHiQD/C+pE2+epfP5LH3geHPqv7zfo+rLmD+48/LYfShefs+wYdWat9nJYIx
/2DUR75eqCT+LpLUj/LW995i9ZH3Zz3x/mtijPoIRn0Eoz6CUR/BqI9gxJ+0
fkEf/I/xgtF/AqM/A0a8I56kjHjFfEoZ+QnMz28TY8SflE+lBK49Nj+HxaOU
EQ/wFxj+AiM+pYz4gf/AbP1zXM76oS3xVMLyJ/zF95srmV07vOhqSb5NZMzi
t5WRv8GsXnD3x7D4bpkPXXwjn/HxHcWu1w7XoYLcxz3ReOQM2+9J40PaX5PO
v7T/JJ1/aX9COr/S87t0fqXnV+n84fwGPWOb5Vy+xsbP98MrmV4w1gvmB3bc
D8Z8Y37xPunz32xovkDBnufXPFzn59QS7rWEetHijw+EetCiv4FQD1ri+SNd
vT3sl12bs1r9ry9q/R6O9WMgZi6xsz78WNU6H0Zis7dPlOe0zqOxqG+rcXDH
vNbrLcSg5vX+aT5N0F5vKQ5UqAYpvAqYXsQX9PHxqG5jl9Yjfv/1il3fsn6y
JPGcz65veX8us7foKZTwe3Y9/Ak7/AlG/PHfZxqYHf7ln68n8uMRRP55eowR
v7xefWbH/PD3G7HrMV/8+jeW3G8i8t+jTJi9Jf5NJfebs+tb3mfG7Fe14zOX
3N9Osj+2YHbEBz//YZL9yH4yzNAs/xSxNd+dY4x6y/vTSoQd9Ze/v0iSHysl
8aQmvn5XMUZ+kuZb3t/VJK330nzMv+8hux75Wfq9Dve3xJdMkm/jiM/HMZLn
RzN/IX9Lzy/886T+S5boUUnqUbHEXsOYfS/g4q1Jsp70JfoMRX796OKVfS9o
Zfa9gHu+JdNzXXu/Tg/WN3/eqmGM+fw6sWuf4LfJbL1i/8j6S62M9d1SD/5l
64PfL5pL+n+xbD5aHicT+fjUjRf1lJ+PcrbfRb4EI54Vmur40PQ+Y8t3zQU2
numbJy7XnND+ZuPvolFbtiiT6UU9RX5CfUB+AiN/oJ6C+X6zCasPyCdg5A/U
C3Z+key/4T+sD9QT+AuMfMD7s5LtP6GfXy+JbdafdD1J1w+ff0pY/cb88PW9
nIJDmv8uMDvGg/qGeo75BMOO/RLyK/yF+Jcy4g/5Fv5BPub9V8n2M3g/uEVf
RWt8XGG89KeFhraN1wn1l8+/LyT7xcI29ZSvN7XsetQDPp++Z/tD3I/9DvID
4g/1DfsT+At6kW/58d5n84v8yp/vy1l+gH/A8B/WE8aL/MD6062M/QHWG9YL
P18mIv89QyZ2eTGm+4sx73T9mNb+OvZTfD+shjH8hf0fxsd/v/zA9oNY//An
WPo9DHbsR7A/xH4F6xfMf596x+Y7TWvX5euWfKDLh8gXiG+sd21+2/mWrSfk
/5Z8Xyo5j5e0Yb5/UEy3NNmzy5ogxtL6zp/Xa9j1YOl+FfkX+RL7aTD8hf0b
4hXxxP9+Rs3WH+YP+R6M8zTmm49HPdbvAWP+kd8Rj6iviEf4H+sH51XEI+Zj
anO4RhYy/dLfsyAeoBf5H/MFf2J+wMhXeB/rT3Lfw+JYfgTz/pOJfP9EJvK/
V4qSnE+jJOeNGDYenCfwPOwnwRg/8ifyGeIV/uLPh1Yi/75ENh7s/6Afz4O/
MR/8eKxEvB/nJd4/KZLxJ5L0et5/ryT1IYWEuZ6KXdb1CuwHhUFXA70XdmT7
66x1DemHJ7uyfmLynTce+j3HUq+fow717lvR5vdh/iUGtQMsHXXne9OLfp/H
ObD9lnix6X9j5L1Z/vG3Lvf6JaQHiy9xYanVEPturB74p673U6/owuJZHKD/
94YhnVl9FNcnGax068T8K76LGVj4k53ue8+ohtXHbtfLrV9fVf3rXtOmP9Ex
65T1sd7PybO9j7c8tanN7yX+1z5s7fLGNyTT3m/c5vt52tB9+ukJuu/jvkah
1ekLCsi/56YYelBNn8c8zpTVJpPVTZd5t0ZYiCEH5dZrD+ZTUcnhxknh5TRn
7u8f9kw9qOu/e34W8vujRAXiW/jiq4YxHRrk/xfy1N3pZiXd0xPqR5rFk0Pl
Cidni2pauuqire3+J3TOYP66hdcbKTHl0YdVmvr0+sTmFb/11BO7h0X+tbVd
Ns3oOr/0pSZfbD+QWehuk01TpuVOue1mKk6L7vTrmZV5ZF7499O/MszE5flV
/3e/Uz7FxVucG+4vE2c3dbzzyaECclrRpJhpZSUKB5/ZhdwtoPxTFfv8lv5B
gv/iFc9/zJaLS8/8OXPxWRJ8An27ZmYrRh+IrxyeaiX69zl5KMw4VV45bNHy
9UHN/fIw8707JikEyV9UdUp0v3Ft+4n9/A7dKHJPoh+7/brGybqOTLdttvX1
eUnJT4tV0Unv6cPxrNh09zR6aeN1eFZmfZv+4WzLOM/YXf/QX/4XuzjeNRAD
hm79VmGWQ8G1956vH2wkblkTOPTK2xwWX03lXp2jn+aRV2W88+t7pizfIZ5k
zktt9zYV0FxtvFix/Mrqt8XUrnOTRpDHw0fOO/yUJOhbRtocz1H0Lj9mc3Lh
dRLspz5p2qqSFzkeHjzUUOMPz+unbzb6KGYaPTpeOF7D2UPXVX+XKg8fbJpY
eaCckk2CT930Dae1HRdPayosp/mL3EwXp52lUx1qp0S90O0noy51a3D0rWX9
tiXa8dexfhvqi1XA+Z2ZbqlsfVYsoMOXQjNoavDp+gTXD2y/gfV55tNzTnqN
2dRTu951/faA6KAluft1v6fB/kD87xqa9UTXn8spCNMv3ZNDl7Xz27ZfN7tf
g8lvw3PpiXb+dL+/QH0YfPfpk/lmBeR1t+k/7ZdVUKpK2RR48Co5uJqutT1W
QRMfO8/+6eh1+k47H2VsP4j83Wuxa/3GfsNY/8374KqE0bLL5BW3ZrzRdjUV
zHrcb87Yu7R2uePR23415Og1xzVxRQpV+f3s0TS6jnwTquINY16S0s0yrvJC
Pe08t1dvzscM8o8/FFJc1EQLVo+f5VL0hh7cHO7d4K0v1ryb2z7ITkXRCy50
PGFkJD7YJrQLeJZDB/NmTGs4aywGPX9xfPbVXIqYE3Bp6y4LsdpAMT/hikav
lXDFcYKlePN6xJ1asYD2eh/z3pfbTqz85OaCZfYFpOg4eF2H6xVkFly+5ISL
D/UyOENbzMpppf2u+Sad1ig/D3Pqs/+X8jb9NeFa929mP+6uFGLfu1l9nkFi
7OSht3d/pjSccMdUcTObYu2inStvjFN6Ou1/Xf00k0JVZUbfzPqU1UfRat3P
z+67KP0XjhSvflRRVnjf82bHx9It9xB9s6/zyWlCevVXD79U6pHzjxGaPBHr
4uHkN+dLFm/JsX7/Ftd9RmvK6k6FPaqjOX8pIx1qJtCLSxNPm9nWU/KehNdb
lo0l9eV1znpr3pN1X0V2xfdOSqzfXlPj+4V86kK/fHlA1uN2PQmBna9EN/VX
Pgsz3nZ8fiOF/paTtkifqMyq8Gj86SbK+jU9qUelG3U7Xt2z2Ogjid/Ejq85
30fJ9k9JCr1a9QhaHF6netBPEAXF2Xtpf/VUWm9oevCyThADl5jXZlW70Ayf
i9aXu+uLok29ceHZkRT5vz4527/UE4VB/XZvju2sZPHecUz3BcJwenCN0j5b
rS/Gek38uXffDkovu5M9N401EANvHM7/IWMEdUroPV6+xFD0dPD4+tJ3w2m+
fWVkyUEDUUiO6X9tpY0S60FY+tPkoGgnOjVZPSn4lqHoT+m2RbHtlDOPJEyr
3WMk+teMFZsGDKMtR8RRZy9pzkcOYvyrPk7ktOWCWv5GYx+9LjY2zIR9v84y
9SoLDh5KUUYrdqsMTEQhaJRroLuBsiTymceclyZiL6vBXwXsHELem8ce1P9g
KsYGdRxwx9iRbq88Hr21v6kofDznY9OpSYH+R+jHWxZ73IZQ2jllub2HmSic
XOTx5Z91iq3718ef6WEu+nuevrMqehB5fW7qO2WchdirzvnbS78NpJXPV/0R
u9pcFCYvmB6nUitYP36YwTy7QY70dfiAt/OCLESh0ybLDpFFivq5du0qlrQT
xeQL2Qd2DqCe33y0r7vVThTaC93Ul1QK9BeF2IDEPZciFJsjjiyrHx1IQqj3
n69tshVRoWFl+pvPk6DwHppQly0fdVc2Wfabph5l5i65MyJVjv25/6bD8pmD
R1NSLzGm7A81TTU3X+3ZOErZp7ws4IltJXlaixtuvREpd8jmtT+7VVFW8qS8
HsNH08L/PnbzjNHc33nX0+LqIUqcLwSHSzYro22pzrTk39KsKgq98l7ZYNpP
OaF2Yd9pntUUm5Z5x36UM9uvCT7hRkNjXiksfEo917+6r+Hd9VsUOfKJCwzW
9CqLp1gf1dzo/l2V6GcI1o9P1o9vkF+Vr/cIjdLw4ZATb++myr07zties7rZ
/p+BI12uKUYlLTiXOjuahB8q9XOvqRTf0dmkGR6a+hLb7rO8PosUywOnTTph
/oyEOrvBa2f2UDY6hEWsMn5CoRZ9j9Ut6Ezxf3s1RvYqJocbH+cPNhZphOsv
S4NcS8g74preiPXTlV8NlE28sq2GkouvbwxWO9G2my6duhvXUOyaq7HyPvZK
X6unbiFvLEUhcPaM3zcoFHn+sv5lPTXjmxuee6uzJU21SbI4+qZ5P5CSvGfU
JHmRV/WhAW7Vuv7dPVnpz7erqdNM+ZJ3qmTq4FCR9vy67vsvTV50bGRsI815
l5C+4I9/qHpLWfsdSR8pZKvDoHqlrn8XUfmwsUGeT25T3Cz7jo8l4YvSyXe6
5Mh3tCuuvV+vGY+NuPbrfYgHzXjOv5h02uqRHOcHQeiRUWy5TTHvit3y0O8q
2XnNb9vVjR+i1GRzxam/z744+n0OjfftVkmLZ12z73T+PtWnbGz/xryKrK67
PU/KTGDnNTvXI7ammvqZvjN+/LPdgnj3hyEV5tt1/bfARxl3DKfnkUf/l0My
vjcRx60alP1Alkemb7stXe6jYfffgitt88hY//6IrovMxH/uOdKeQl1/LeTd
dtcjlwtoZ49R3VwHyMS9mdc2P/9F108Tjp2959v4UN5Sv9WS/x8iRrOePEq2
LgtUoD8mpLmUTbJ/JF805ezn01J0/TD7A0OjxryvoC1PBtq5745h/ZTjy1ap
hRwlPZ6Z8mvGMF3/K3RC38HTL5mLvksdupt66/pbpZZ0qOpMPm1657l5/OJ2
4q4zPz2sqc+nrFurpg/bqPs+N1w/+/sJmvOGgzp5SVTXy+Scdzrh/bkKGubf
ZfKz/jfY+UaY4T068IG+8vyhqM2GQZp9fV3AmMurulLVRfVo1dGXFGocWzq+
U28l+ln+dY/Tr7gNYf0sz/dlJV/YDqQ9lYcmdx5US+KeYWs9j3VX7oz0H512
VmOfV33ddJIjO78JK7rN6HXKjibLh06sHFtLI6xDv49QP6fT2cndjxcaifJx
3wYcn5rL+lVC3cWZLj1SFDs7/hl0ZKpmvcfXDE0+lqtAv0pQ7vr12eAGeUbR
uH5Z86qo6XLjtFlzEilgxI5+vhcaaOKFM91C3TMp+HZqn7TCOrI/+3pWQvYr
MmufmrnjxgdyL9jnVxyRTildHzqHf2Ighq80zu9+QEVRb7PGbvr3HcVfGnSr
e/44pWPaV1/opxRSctGu9MISZ1rt4msRHqDREzwtcn6wJd2Yt/bNFA8Nv/Xb
Hd7jvuLF4xF7zWM04wuNM1F1WK84U3yyNtTUTEzb5Gz38EEeOfaamlFYayVG
vHkpy2ksoOqBVt/eHKnr5yQuTJySvKmUen2xwVeUTacNRq/6zrmvJ8q+3e1h
+Gc23Wj/V8zqdYbippwa2dGNOfT/2YbB1w==
   "], {{
     {RGBColor[0.148, 0.33, 0.54], EdgeForm[None], 
      GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxNmXl0V9URx9+7r4pWbUWwtYI1SQUENUCs1oW11aA9yiZCgcim9rAYIOd0
kUXc2lNZ41KrLCpgDwoqVJRSFgMoERQFwR1E0YJard2tXaz2+3G+v5P8MZl5
9907d+7cme/M+6V8zKSBE1OWZb30pxCvzbOsWnRQ8kzRfNHdom/r/X3it4rm
iu4RLRLVZzF+r+h60STRZMal4wpRjWie37NmtmihaIFojnXwPMtj8z2PPUrr
5jXbp9421Hu/G8zrPa9LCpnxGaKJtulyjY+WLYu95xzvUaXxkXnoZGy66DpR
C40PEh3uday/TeMXePxbks8SH5zCN+eLhojGaW5P8R+IeogGii4TPW4fomex
7RlsnZ+JPhdttU3X2XZ8Nc02rUGfdN8mfovv5C7f0RTRVJ9/hv3RaL1b7dup
1jXEtmHnYNuDXXfoeUweZ31Y8zaKNogeET3h56Gat0V8tf06QjSSmBFd4ecJ
ouGiGtE15rxbY5u2Wu8O0bPW+5yf14q2iZ4W/dacNetEz4i2i35nzrz11sG7
R7OwbbPtfd56x8nmjqInJf9avKfOd7v4bzx3k2ilqMHr1jkelqTw2Sz7uDpF
rBBfC303xMsDvgfug3jnjkqxN6/Zfc71/CnWV7rDW/w83f6q9fxa+5g7weYl
njOnWVzMtn2rfA7OsMBjvJtv3Tz3cHy+I7mTY7KjiRh9Kos8OSVF/lamkEdJ
bi/ejjyQXEHsi7rJpgHip4qWZvGeed3zWNfOerraZzd4X/Z7THLvPJ6RB4hO
k9w/C7s6OV8YO902cH8dbSdjZ4iG2jfYgH94rvR8bKi0zSOti3HuvUOKeOF9
Z8/h3rraTu75TMcBus/1GbGvF7Y7Hph/YxY4QA6BIV0cJ8iFMQCf97R8kXQ2
GCOQ672G+eRlT+cmeNIN+/K4t/Ob3d159g+2dfDZX9S87l7b3WuRz7AP8fEe
Uaax3banl+dcLRqWIq/Rw3iDx4Z6nJowNkVduFL8KtHFjOUht9L4D9GVQh92
9befD+Yhf+HDFHGz1Pk61LmJL6sdK8gX2rfgL5j7QR5+rfY4tl3t+MH/fVJg
6anWz/41KWxuSR6lsLvCe47zvswZ6XO18rzjshgb5XH4aMuT8pCPF5/kPdD/
YR52Uhd4x5pDkh/KAu/We6/homOtv8YyZxmfmuwa73N19DPyVbYfG8ttJ2c5
OQudZVnsN9I60THMay9TYf+K+PV6XmFb1hkreF7u5+VZ0/sVzWyHUxNKmD7B
d8fdrvZe42z/ZucY7zZ6XamGwMHa4dYxPguc3i96Q9SXPCQ2HUtgBPaDbbtE
O7OmGoC9l2ZRW2o8Z5X3bvA+PI+1n7m7Szx3uPca4fXYRc9Br1HC3+m2fZHf
oXdxFrmGPxb6HRg9w2tW2KcL7Sd0TLMt6KZ/AYsmeR2YxHMJ98Bh7pyaR72k
BpK74NqorKkuUif7WdcI08SsqQ7Xev9V3hO72+YRl4c8v691sNfLope812nG
CnC+HCyT/JhtuDdF3X1V9EoW+QOmgCf35YFnVXlgZBdRV1FdHjnD3ifm0ed8
Ztv7+ezcd2ev4U67Ow62WPcLotlaey1YKFok6gNe5xEPr9mmftbVy3641Ods
U0S9mmcsIVfBE2LqLdGbji34fttCXpVl0V/sFb2eRT9BnO7Lol/Z53eck5wk
H7sZq8HVWmMJ78CKic7/zT4T+z9j3ZwBbD7Q7MwHbF8X21LuGHjFdwYejDEm
ENeX+MwTHHf0L9RB4o34IW8ezCLP2W97s/2f8Vnx4za/2+uxHV5DP7HAOu72
M7rpN2c088tz9uPz9usbHiv1ZOBCqUeDNzgmiMWXfL6nbUerPN4xzrcEe022
X3bZT6X72+X9N3iPo12LwCjqATm8xLZzhlLvBl9mn+G7a3y25Z5HnoMFpbyH
k+vgwiN+h6/Hez25vtLvyL9VfmYP8neN91zr5wd9N2vtz5G+L3oo7o/+hLpJ
HQVXF2dxFvSeVETPVZ8iJhrtu5326yb7aHMW+cR9rreP+jhfj/Pcnb4T+hR6
F/KZXCSmiC1ysq+fiWNy5FjHzjrr3eZzcJ47c/cEeZwFOyf7zMua+eAB+2BZ
Csy/0zW8v+t4tXO9pX2Mr+mjT0pxxweNOWBJCQP62dZRru/gXme/4xyttYZ8
A7/AFNbS1x2wv3ab8Bk4d6X7nQrH2Sb7dI/fP5U11VHOTl6Sr/i20nviSzCg
1vUajAWX2Bes5QwlLIGT9+AUcoWfe/kMZX4uYVVn70O80YsSI/SwVe6X+NY7
yz3StDxyibu4z/HVmMIH+AL8py+uNO43ihbmTT1gte+iq3GYM35OzyZ5gfgB
8Z/mcTb6FnpEfPeJ5NXiH4t/Kloj+T8p5g6xH/juPty+rnJNAd/2UH+8H/0p
/Ss96t/EV4n/JUXPSO9IL0/PTi9Y+t6Dn1ZEbBFjnYv4lmZuxyJqA/YuosZR
p/L4LaSF3j0l/nXx/eKfijZ4DWtv1fwzJH8s+fQi7oe75Czn6vmQxsuK2I99
f5nim4752ERd/p7rI319J9u3K0W/P0v8sxRzfpUCD080JhLDbRzH7S2/rcfD
NG9mHn7Ht7PtX+rnHN/vkyl61e8U0TsTG3zvdCriO/Zn5GsRen6SIl4Yv4H8
dUxtE98guh9cEX9edJjkH4s/IBqv+UdIx+3gdh6x1+h4W208mOY47KZ5N0l+
QuNbU9h5j+tnlWOgjc+Z2wft8ugnMo8d8JzcPinzPHxWbv/gswvt87bWwZwX
s+jrwQvugjpT4/Ny5xt9722sCz9PTpED2Pg6OSf5tRT6yqzzTfwj+Q3xj0QP
S/6QvCzC/9zD70XL0Cn+vmi55HdT+BF/FkXgO/5aLH5mEX3VcrBPdCSYKL5X
1ELyteSC5nyNuBF/S/wIMJNcI78kX6Dx6ZKPkvxX9inivri3qdb5nvgrKfLu
ZfGznXP0en+Q/GWwJEVe4JuvZpGf9zp3mdfgHN5gH56cR06A2Uu5piLG50vP
XY5z4n2KbX4nxR7s9ccU3zB8y5xgH+zIo78kV8EpsOn7RYzPxp/iL3hf+E7L
5Pdur7vWftsP7hSR/0cV0WeCO5zpOmqN5vxTfIboGMn/TbH3Nuv5pmsxNRmM
4luaPvD4IuTW3EkR/uce/mT/cw9/t372+Zf1f7GP5m/Ht0XYn1KcgbpAH0t/
/t0ifP0q95Mij8inY/BVivrbW8+tJfcqwk/IYHp7xyHxiL6PrPMUPf+IPBKv
EL0neUWKWvSB52AH44Xv9n37FvxmToXmPJjinohZavVJxosq4yT6zhEvS6Hn
vCLez/Q5jnQtgLewPMgydn/ieCKWSr810O+xD+P3e4y9GWct3wDY+KUUWDnW
OlhTmnuM/QY/2jYTx/RFYNHFPidnPLUIv821zsLYXfgZ/dwD/RA6eeZs6HjW
ujk3fcFkYx59At8MLS3XpXhf4/HhnlvnOe8aNz4wJk32+NvGlkMpMAgsOpAC
p8CrfeJJe2/iPEVgPZi/RXxPihx4UXyH7X9OfGkKTN+eou5Sf/8BT1Fj+kjP
bsdXT8k/T4H/FxWBfWDgn1P0AfQD/+bMReRjK/FbUvQQbSXfbXw5sYgz4wt6
nzqfH59Qt6hft7ovYqw8i/wHB8q19qEU+dNScrXoBD0PKqL/oA/5n/jKFHHW
Q+N3pIitSskDisC+gfyOUkS8Xl7E9zD90aPEiHED/Kiznfj/5hQ17mSNt3OO
dSjiN1T6P/KA37GGOd7o2/gNfkkWPkO+LWuq39Ru/Mi79cSX7447PNY5S+6C
o8jUsnOKyJezxR92bO5KTbh50HuO8b7YQ9/Oby9Huv+hD1piX69NUftv1PvH
fT7+3/PF91ke/0sYbSwmBro6JrD/phR9Fn1Jb3rYIvb6RYr7b7RN/BbK756l
bxFyhryb6dwZaywEf8ChHu5/6YO/YcwEO0f7nJwRf9TZJ+X2PzYQI9wd8/4P
Ky4tMw==
         "]], PolygonBox[CompressedData["
1:eJwtlVeMzlEQxb//vauzehdtowRrdRarr030XiPCgwcPRElIPOid6C1qlI3e
e1uyapTogijBZnXRCcLvZO7DyZxz73z3P3fuzHyVho7sMcLFYrGRIA54H4vl
wGZEaHhnUBWHIaytx64CJ9n7A+qyVwlcgY8CW9l7BDbAc+H/EJ4F0tF50C/h
98F6dD1wB54J5sLHgcnw7yA/vvvRP+C/QQH0IX0TXorvxaMvoUvDP7K2E56P
tQ/wseA0uhG2O/tfsXsiO/MLfC2Yhx4P9sC74pOE7Y8+gO3h7beKsQ38l7NY
FMNPeC3WvqGHghno1aAee+/R1dnLDYbDM3Vn+Bv2t8Hz4vMano+1i5HlrAN8
NGvn4TdBEfRB9GR8U7ED0M+wm9jLzdpTeE3WWkYWQyI8p7e30jdzwHuDJvh5
9DzsGHALvgbcgp8Fs+WL3QWK4X87spwpd7P1Pb6VhU5mrzC4AX8FEuBTnOVO
b6a3uwQWwxfxm6PwbvjUD3c4jD0FpkT2zRRvb6y3fgZmwVuwlif4nMYW9ZaL
f8oZvJw33+agrLc76W7ZoDK6I6jo7M7x8CPYwZHFoFgUs2JXzUbwMuAxvCDx
TcJnvrO3ewuqsNcPNGMtCX0d2wed7Cznm7HbnX3bYRuwV9LbW+fkvBLwvqAp
e61ZS1fthN5JCrW2L9RaIraLYveW6x9gCWuN0Lmc5WQ3WA7aspeqnMCXhrOH
gTr4LlQO4YNADb0Vui58tWoKPtOZ7zLVnGrRWa+OBYXw7w+as5YCzoCrznzj
1efgsbNeVg0+cfbGeus07EB+W81b7hJYq+otZ8qdZsg1DRZv39IdVqBvO6tF
xahYj4OJkdXQRvg0Z3dZAC446zH12hJwGf7cWS9opryA1/aWu42KMfRMasjJ
IWdn6KwJYGqIOS3UyDFnZ+psxTAdXsGbbwooD892NrvUw6/g75z1smbOe/gn
Z7NHM+YzvCG/iVOc8tEsdHaWZqhmaUFvs0s1q9qdE3xVc6o9zUTNxnXgHjwj
5FNvpLfagj0YsxpTre3VnIvZTDvnLAfKRXKo3TXOeicB28nbG+ut1fPF0Y29
vZ1qrom3mlZtq+d3hN8khBmnWdcKXSzMLM2utugSzmb+A/WJt9qTT2t4Ox96
A53qraZUWwVAM/RfZ7O9FLY9upc3rhnf09t/jP5r1LMrQ88khjvr7pphmmVx
Ifc6U2drhp3A3nWWS81AzULNFM0WzeD88P8Gu9L/
         "]]}]}, 
     {RGBColor[1., 0.95, 0.75], EdgeForm[None], 
      GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxNmXmwl2UVx9/3eYEQRLgoO2LKdlkHB7iXxQq5IMtl38GRaQS5NjJUbFlT
DrJc1MnGYlEqpyRIgyRIA6Ust3GipBUhtTSkUAzZZZXq++F879z7x/M75332
55zvWZ7nd+OdX5y0IGVZdrN+CtG5eZYtU1krvpdoicrd4s+oNBNfJdpc9JLo
vVlQvr8ietk89Rfcn7GnVZqKnyd63nyV2+kH31p8G5WL4pd6PHN2Vd31ri/x
und7Xb6/INpOZaD49qINRY+JVmbxPYjxotN1uCrxm3XOFfr+vPjlot8QnW3+
qOhUlcEqi7KoXyjaQmMfEP+ixi7xGdjjKtXdo3JI/P15yG6T+AlFzLtL/YeI
zlFZo/ppRfA/Un21yndU11N16yx3ZD64iLl+pfaeecjlbBaygZ8lvpNoK/P/
UWksfrp1dLX4maIfmZ9h+Tc2f8wyGi16SqWRx9K/geuPuH6a6AmVq5CLaAfr
gv0sVjmXhTymqG6FSgvP/6k85H/SY5nnuNelvq3O1kZlRh5YQJ7zrNNPjCv2
do3a7vI61xg/H2dxdub7kmhLlcPih4l29Hcny6qJylGfa5ToUNFurv9Q3/VF
Rxqzl423auN4NfKTLl5TWyPRD/RdT/wIy7y+5zzieuZ5SXS9MbFapdpy+Woe
Z52UhY6HGA9jNO808d9PQcFdX9WPVf3t4n+o+lss08HWIWvPsG7R2UzvhfqR
3gt7GuF6zsk+B2XBD7Ru6YPeD2mNJ/X9XoqxH3ieRXnItKVlNtS4Yh9HPV8D
y3e07WySbW2P6AJ/Y0/goxN2n0IeUzz3ZOvsbZWdKhNVeunsZ0R7iA4QnZDX
2vdE23gDn32Uz8OeB4AhzT87BR4uq89DXv93eWCFPb2l8oznRZ6nLYcePmMT
62Gq9/ztPGx5uf3B1+0TZhXBP6v1bhd/n/jnUviV+9x/gddlP6ts73tSyGWB
6yv0vU/8yyrjisDKDtX1F79E/NPij+eBhzuzoLPMT86CB1fgbn4evgg5vI+9
okvxK43DxuIbpfDvr6ZYa7vo/SpD1fcV0WYp9LRUbcfywCWYLDVWv6e2h43p
SbaV6jq2sz4Lf5YXgaGOois05suqey3Ffr/mseOL4H+eQk4Ljbc/mq+pW+T6
/er3uOi+FP7glP1GI/NX/JX4g9ZR7zxiWHdkrZJr3Oui40XfswzxmVW2qW2q
e5N242KesbHGfvzT2m+psVYOZmwP2EI3Y5E2ZIcMwfmoFDrgG5+Ob39d9ILo
eZXN6t/dcwy037vLZ8F/zs3C9z6WwmZu1h7GiK9UeScP/l3raKvo38BRHv6V
9grb49+NuSmec47KDtsDttCmiD6tRTsXYQMPa45DecgK/SG3cSnk+zP778dF
HzB+wNGztmdsdWyqxela4w/sNTfOkNOlPGSBHM6bJ4ZWuY16zszZN6SI0Zdt
n/S96P7sPUtxxmP2STW+qsb/9VMZloVMBmjOhupfXoT8kBVnwN6wu5dE+xWB
vy0pcM3+wHbPLPwy8zdyjLi2CH/T0Ocaru9W6Ex0dAr9dDJu8M23ZSGDEpXr
ssBJM/OdVfp7v69qrv/atrvou8xtnyli7Asq27xmWRHybWS8DiyCf1Clq9cu
cxwYWcd3jjBuwf5247+j7bdEdK/oEZWbbIf4bPwL9kQbNkW8JV9pYnvD7sjT
SsyTMxC3O7kPdb3r1BPXyWfIL0pcj42fsz209tiaPuQiF13fwf0ZRxs5IXvp
4bXIM7Fz9kM+csL2BX/S9tXUNl/lWNDb53gsj3jeJw9cQNHRn3X274r/U4q8
py+y4SzoB3nYzk56/628F/IW2sqwOcv+hPHAd7nq22aRKx03jvkmFhIHWaNf
Hut8Kw//Ocvn7uqz9/bZkQkx6lQe/rC7dHlS/CMp/ORJ2zXxvdTrPSV6ANvN
w1am2H6xEeIBOCaHPZtHDjPc8qMfcfu061dmwa/w+ab6jNTRj1h41vwa2yTr
EBeGev81eewM2zDnOOGzUF/qPsi1m/ePnrsbez2sw5nme1omxz0W2ZI3Tbc9
lHoe+qPnldb1Qa+LrI4YO+gNv0hsxsfRl/sA8Xe1x8JfbezNsN0Otw8qt52h
W2L/E+xHZUwe+EG/XbJaTOHTy42ZO1L4IHKt3ap7zrZJDoC/wFc8kofur9xh
0hXXmA0p4l611Di/pojcqLKIHJxcnpjX1WuCU3xRC+9jg/o+ahsYqglvTbEW
ORn7IR5ypgE+Vzu1t3dOxL6JkaWet7TOOl191m2WSblx1M53tUW+m77h+do5
l/qf6POcO4VtsH5320t3rzdaA29Qe2PRDin4ZJkxNs8iVrZ1DCN+EbvIN7vZ
JpkPH7zPsr2piBzlmynkB0+uMtw6xseSb+AXWWuw94aMmtmf/sS5yF7rjhj8
jNclhj+dh84/Nl4rjdVRxhLYO1gHkyON48x7Ig7+OkWs/WwR9lxmv1RpvTcV
3Sy637gjX0HXxCnyA+7A2NpG1b8BTvJa/SGXqhTxgFiAn+ZOiK9bZfz38Rj8
FfjZlUcuQv67NUVsJcY2LwKf4JQ7ILkk9jvXc7IPbKOv97fLc9TcOQ7bFia6
rr1tllyFc4x13oKdQsebJ4ciNhNnn0qhsxuL6DPWY6d4/GTLfLzzn0HGGHoF
B2BgahGYesG4Wqz6eqLXFXEOfOIKnwfKHeGqImy2YRE29bL9ALa4ymOwM9qo
71JEDtS1CDxW2AZpr/D4Cvennv1hG8gEHz7GeSFtzHvIuGxvGfLGwVvHzCL8
RLX3Ue3+7KGe2l4ULYqIj/DEyPlqvyeFfxpo+0NG5bZxsNPS+24lOlmlnDy5
qLVb9jqxCLkhP9rBzC7b5U7reLMxC7bwUegR3JKDLTWWW9qv0D7BtsX8O2xv
+KmttjNsY6PxCs6Ig9hMf2Ous+2C/J1clvea24rY12XjqNJ5Htgf6VwOWVca
Y9Ax7kN+zXzwAyybbvYdXSyvT1Kc91IKv9LZbawFz5zkZbvtQ8gfR/mucS6F
Pznr+8co76epv7kPdigiv7+hiFweP0gc5r5L/CB27LGv5b2K/Jc8mJz8FuOm
VxY5J/kmbxuPptgPDvtUinzyZIqcc5D917sp9PfPFGsssi2AtaW2/3H2gcQC
8LfEbSvtE5bUsSW+P0rR/2iKPKPMuENP5OzcEYZZZsiSGEKM4WzrvTZvPutq
8J5FPkCeQZ5AX9YmVzmdAkNnUtStdX07xzr2Ndt2cL3lBN/LeGAPyLl+EW9G
DXhfUvsWfGkK3G0xJg97LuYhV8euRnqP67w2NvmEcduniDvRWvsC7iC0vWP9
EuN4nztmHWJDTxrn+83X5CDsA19/wPvhu9r+CZsgJmyqYzOVeW1+yhzE9jLb
F/HiXyns6t8p+m6y/d5hv3FFPinq/5HibeFe6+VYivzguOhbKWz1bdE3fb4K
/KdKC31PKmI+/BFvIGAbeZNbHklh8x+muBsOtn55MyGevW95z7f+iG/Uo4e/
OA9Z5L7zUq1+5nktxs02v9Z4XWU8gktyhJ0pbIx3Yu4H5JPETd5ieFfhHYg8
aLt9FPcSYj45G2/H5N+9/UbIHYD8/1Z9X6u2zxURr4hbxK+fpri38J6E/0Z/
+PwV1iV6ZDzxjZhIzGUs+TpvEeQU5IS8afEWhp3OKCIPfCjFWwxvMgdS+MVl
9o2LPVfN++082yxvQOQsK1OsMdxyOe/zYePMTVwhf8DnbDLWibucaaH3OMzj
/5BiDPviPsa97K8p3uPY929TxKf1Pjt3Jt6wwMNk2yJzbbJseafnnYv3Lt5o
l6V4q2xbxF2TOyd3z1dsT8vxjSlyxwspfNIcn593CmIS8Qg9bPC5NtpX7E5x
l8BXEQe4K40wJn6f4uyr8eUp9s2bWTu/WbQvQoerfS7OuMrzc+/h3sFd5hcp
7gKznP+TW+FjV3osWNhrGSLLH6TAFu/QM/3fx29U9+MU7zL8l/K8ZcvbJ2/2
5G3cPX+ZIkbyP8b/ARD33t0=
         "]], PolygonBox[CompressedData["
1:eJwtlWnQj1UYxp9zjmRPlmzxpqmIyNheS2TfvvW+Zcz40vChD2Y0ZZCtBhlL
Y3llHxTzln2LiEbDOy+JjCllS8hWlohSlsjv6vp/uOb87nOe//M/z32u+z4N
B71ZMDRmWTYKlUF/EWwKWdYO/QFfQCvhNugX+Ce0HG6FjsGX0Rq4LboI30fb
4A7oLtw8ZdlguAv6kHgfehd+HS2H76AtcHt0C76O1sP56Ar8Gr8/BO9HVeAz
zH0Ct0Yn4erM7YX1DdXgsmg38RDNwYdZWASD2ffwM8Al4oOoKvwyqp575jvG
D1CE8xj7sVYxmRugvvCO6L0/ydiHuIOegedoj4xPJX9rBbg93AoF+CJzKxlb
Et+Hr6Ln4EfRA7gUlYcra6M8d5K4DjwB7sZUXcbexK+i/FyOe8E9UC3iEuKR
jCNQDZ5/nLETa5sYR7E2HS2Fv0az4HFoa/Sc1kajzfAeNAMeiD6CP47m62gm
/B76JngPhbz/KOMS4praJ3F3tCx4Tz2Vi+SzUY67wjuj91YVvUQ8NTpXyqFy
mY/KwdN4RwljW+IRwXPt4FmMN+RN9Dzx+8RvZZ5rQjya+GiwZ89H71l7P4vq
sz6D+Bp8GtUjnkN8F76DXiSeTfx3sGeL4Rc0p7ogbgYXMXcTHos+V27RkWBP
nobfQT8G18gJuHbyWSpnyt1YdDzY49dynpK35OFK8Fz4HvwG+hReFe1VeUhe
kufkPe1pUnQOlAvtqSjnEXllAPEGxsmoOPM3tmBtDPGx4Jq9BI9DJ4Jr/k/V
pmo8uCZv585IZ1UNfYWaJudCOVKutkV7qQgtgxej/sE5Vq5Vo6rVYnQqumeo
d8gjx+U91DH4N41598/RzyqHyuVVtC54z9r7IrQT3o7+i/a8vP8DekLeSa6l
eWgFa/Oin/0CPdDZRPcCefZIdI9Rr9F//B7dw9TLVqPfonueet8KdA5umFzL
6hHqFXnE54I9OJG4ILkW1Etf0Vkle001PEX/TbyLeAEaTtwouRcoB8+qdzE3
PLiGVctno/9bHpPXfo3emzwur9flN4VwD71TtUU8DH5bZ0zcOfnsVEPro3ui
eqP2UAa+wdzGYE/Km6oB1YI8KC8+ltx7VcTqTZ9F9wr1CPWK/bneNx59GV2z
ql31OPW6/88guCc/kuwReUV3wHY9i+bDC9Gh6JwoN5o7CG+JrjX1LPWuWsln
rZ6p3qnD3BHc09XbV0d/u+6Mp5PvIN1FW9G/qq1olsfldd05uns2o39U+9Gs
mlBt6A7UXagc3VSvy9WWemopXCP5rKcQ10zuMeo18kSDZM/Je9rjfHhh9Fnp
jELyN+vbdeZr4W+jc6maPQA/BP6yA+Q=
         "]]}]}}, {{}, 
     TagBox[
      TooltipBox[
       {RGBColor[1, 0, 0], Opacity[0.5], CapForm["Butt"], 
        LineBox[CompressedData["
1:eJwNzvdTyHEcx/FvZf6A6xfKyjiFRBzK/CWpO/Ps4zd/AD8he0Tk7LjjSinr
zpYo8yJ79auRWYk0ZGXe9fjhcc/36/P95dt74eIZi0KCIChlXWgQdA0Lgv06
VA9oiPYlnJP2cD2hfXSbztaOTKITHYgkgrW+z9RZTOS//Yd//GUNv/jND5r5
yWq+8Z0vfKWJVTTQyGfqqWMln6jlAx+pYQVVVPOOSt6znDe8pYLXvCKNF7zk
Gc9J8t/JTGCZ3Vm70Jb2tOO499bahlBaEcYS7094yjx7q5ZzihH2ab3JUsbZ
13Ws3tDxekZHaiIJ3LKHaTQx9GO7t/6arZM1R3fQzd2dLe71lLGBFG9n9SC3
OcdUb+c1lwtMswv1DnlMsQ/pTnq4exJFun2XjQy0d+kA3a0Xme8u0ntcYrpd
rPlcZoFdovcp4Aqp3jbpAzIYZMcRyx77CHPch3WwZmkvHUWme7Q+1KuMcV/T
xzxiM/He9uoQ3afHmOs+qi2mLWhQ
         "]], 
        LineBox[{666, 767, 662, 766, 663, 768, 804, 784, 681, 819, 680, 801, 
         651, 842, 779, 841, 780, 778, 787, 786, 626, 832, 833, 831, 721, 720,
          723, 722, 627, 725, 726, 724, 727, 834, 850, 849, 628, 788, 789, 
         704, 857, 703}]},
       "0"],
      Annotation[#, 0, "Tooltip"]& ], {}, {}}}],
  AspectRatio->1,
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox["a", TraditionalForm], 
    FormBox["x", TraditionalForm]},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->{243.09644007978602`, Automatic},
  Method->{"DefaultBoundaryStyle" -> Automatic},
  PlotRange->{{0, 4}, {-0.005, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.02]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.6664377114573045`*^9, 3.6664377532746964`*^9}, {
  3.66643779284896*^9, 
  3.666438013059555*^9}},ExpressionUUID->"e403a0f6-22ee-4ae1-8a27-\
2e593bc4d3d4"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellChangeTimes->{3.539604794614111*^9},
 CellTags->
  "SlideShowHeader",ExpressionUUID->"d9809558-7f51-4ab7-9e58-ae791e15c0b8"],

Cell[CellGroupData[{

Cell["Stability and properties", "Section",
 CellChangeTimes->{{3.6664375657909727`*^9, 3.666437578623707*^9}, {
  3.66646078910186*^9, 
  3.6664607929741526`*^9}},ExpressionUUID->"5e0b106c-8eb6-4301-81ba-\
c75426d3de7e"],

Cell[CellGroupData[{

Cell["x \[Rule] 0", "Subsection",
 CellChangeTimes->{{3.666436636065796*^9, 
  3.6664366661005135`*^9}},ExpressionUUID->"ad8434aa-dffa-4c1a-8422-\
5bf6a4ce8580"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"F", "'"}], "[", "x", "]"}], "/.", 
  RowBox[{"fixed", "[", 
   RowBox[{"[", "1", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{
  3.666436541625394*^9, {3.6664365827407455`*^9, 3.666436607772177*^9}, {
   3.6664366736079426`*^9, 
   3.666436681681405*^9}},ExpressionUUID->"f0489735-dbb1-4fdc-94ff-\
66574e248099"],

Cell[BoxData["a"], "Output",
 CellChangeTimes->{{3.666436585033877*^9, 3.6664366081091967`*^9}, 
   3.6664366827084637`*^9},ExpressionUUID->"a85e4b09-7a87-4b21-8a7b-\
15b7790db432"]
}, Open  ]],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"a", " ", "<", " ", "1"}], ":", " "}], TraditionalForm]],
  ExpressionUUID->"ac20feb6-28df-42a3-ad74-4ad16f2e2ceb"],
 " attactivity\n",
 Cell[BoxData[
  FormBox[
   RowBox[{"a", "=", 
    RowBox[{"1", ":"}]}], TraditionalForm]],ExpressionUUID->
  "70580dba-09ec-405d-a1a6-5e546987b8a9"],
 " attractivity (more study needed)\n",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"a", " ", ">", "1"}], ":", " "}], TraditionalForm]],
  ExpressionUUID->"b0cf14fd-e66e-4ac9-9ebf-213d866c7897"],
 " instability"
}], "Text-Framed",
 CellChangeTimes->{{3.6664366941701193`*^9, 3.666436738488654*^9}, {
  3.6664368113338203`*^9, 
  3.666436874327423*^9}},ExpressionUUID->"30d95502-ddbb-4434-b806-\
17a3501f0b88"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "x \[Rule] 1-",
 Cell[BoxData[
  FractionBox["1", "a"]],
  CellChangeTimes->{3.6664365351410227`*^9},ExpressionUUID->
  "6ee3ac9e-493c-4a93-96c7-47205f35acb1"]
}], "Subsection",
 CellChangeTimes->{{3.666436636065796*^9, 3.6664366661005135`*^9}, {
  3.666436966514696*^9, 
  3.66643697758733*^9}},ExpressionUUID->"4da54dfe-4a6c-4db5-b4ce-\
3056687d2b36"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"F", "'"}], "[", "x", "]"}], "/.", 
   RowBox[{"fixed", "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.666436541625394*^9, {3.6664365827407455`*^9, 3.666436607772177*^9}, {
   3.6664366736079426`*^9, 3.666436681681405*^9}, {3.666436995121332*^9, 
   3.6664370091131325`*^9}},ExpressionUUID->"0de29fcf-3d0f-4d23-881c-\
b23f461046bd"],

Cell[BoxData[
 RowBox[{"2", "-", "a"}]], "Output",
 CellChangeTimes->{{3.666436585033877*^9, 3.6664366081091967`*^9}, 
   3.6664366827084637`*^9, {3.6664369961473913`*^9, 
   3.666437009670164*^9}},ExpressionUUID->"c574fa0b-1bd7-4951-b0ca-\
d12d3c830cf7"]
}, Open  ]],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"a", " ", "\[LessEqual]", "2"}], ":", " "}], TraditionalForm]],
  ExpressionUUID->"4698ed59-350e-4c0a-8deb-77e3477e7bbc"],
 " monotone solutions\n",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"a", " ", ">", "2"}], ":", " "}], TraditionalForm]],
  ExpressionUUID->"ae8b883d-1d21-4fd7-8c0c-b85f5119d3af"],
 " oscillation around the fixed point\n\n",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"a", " ", "<", " ", "3"}], ":", " "}], TraditionalForm]],
  ExpressionUUID->"184f0677-55f3-4e0e-9821-b9fe8938fae1"],
 " attactivity\n",
 Cell[BoxData[
  FormBox[
   RowBox[{"a", "=", 
    RowBox[{"3", ":"}]}], TraditionalForm]],ExpressionUUID->
  "6c84f584-71c9-41b4-bd81-a9036f7e7473"],
 " Turning point (Bifurcation)\n",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"a", " ", ">", "3"}], ":", " "}], TraditionalForm]],
  ExpressionUUID->"e863526a-6a6d-4826-bd24-7df9888f045b"],
 " instability\n"
}], "Text-Framed",
 CellChangeTimes->{{3.6664366941701193`*^9, 3.666436738488654*^9}, {
  3.6664368113338203`*^9, 3.666436874327423*^9}, {3.666437062970213*^9, 
  3.666437071681711*^9}, {3.6664371642540064`*^9, 3.6664372131548033`*^9}, {
  3.666437266493854*^9, 3.666437282480768*^9}, {3.6664607764193273`*^9, 
  3.6664607847374067`*^9}, {3.6671977740093164`*^9, 
  3.6671977756314087`*^9}},ExpressionUUID->"76a9127d-8e47-4f40-8bb8-\
96e142dbb9ab"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Conjecture based on the experiment", "Subsection",
 CellChangeTimes->{{3.6664373151626377`*^9, 
  3.666437342272188*^9}},ExpressionUUID->"d70b952a-5c2a-47f6-a046-\
32695ffb3773"],

Cell[TextData[{
 " As the fixed point 1-",
 Cell[BoxData[
  FractionBox["1", "a"]],
  CellChangeTimes->{3.6664365351410227`*^9},ExpressionUUID->
  "b329b7fa-d9d0-4b76-ac06-07f72f205afe"],
 "becomes unstable, periodic soutions appear and  ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"F", "(", 
     RowBox[{"F", "(", "x", ")"}], ")"}], "=", "x"}], TraditionalForm]],
  ExpressionUUID->"243de7ea-6704-43a6-aa1f-033845a95de6"],
 "."
}], "Text-Theorem",
 CellChangeTimes->{{3.666437344797333*^9, 3.6664374459281173`*^9}, {
  3.66646081815689*^9, 
  3.666460841225809*^9}},ExpressionUUID->"d843946f-8a9f-4005-904c-\
23fb69112ebd"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellChangeTimes->{3.539604794614111*^9},
 CellTags->
  "SlideShowHeader",ExpressionUUID->"8686adae-52fd-470f-947a-570294c2fb9c"],

Cell[CellGroupData[{

Cell[TextData[{
 "Study ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"F", " ", 
     RowBox[{"(", 
      RowBox[{"F", " ", 
       RowBox[{"(", "x", ")"}]}], ")"}]}], "=", 
    RowBox[{
     SuperscriptBox["F", 
      RowBox[{"(", "2", ")"}]], "(", "x", ")"}]}], TraditionalForm]], "None",
  ExpressionUUID->"ed589d71-0fe5-4eb7-b791-39f965eb19ef"]
}], "MainSection",
 CellChangeTimes->{{3.6664364855111847`*^9, 3.666436499352976*^9}, {
  3.6664383058433013`*^9, 
  3.666438320542142*^9}},ExpressionUUID->"41081f2c-4611-4eb8-88e6-\
279db2fa0710"],

Cell[CellGroupData[{

Cell["The iterations", "Section",
 CellChangeTimes->{{3.6664447791145515`*^9, 
  3.6664447988516803`*^9}},ExpressionUUID->"c9612be1-97da-4451-81ef-\
2d37ec18c6a1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"DynamicModule", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"F", ",", "G", ",", "x", ",", "data"}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"G", "[", 
         RowBox[{"{", 
          RowBox[{"x_", ",", "a_"}], "}"}], "]"}], "=", 
        RowBox[{"a", " ", "x", 
         RowBox[{"(", 
          RowBox[{"1", "-", "x"}], ")"}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"F", "[", 
         RowBox[{"{", 
          RowBox[{"x_", ",", "a_"}], "}"}], "]"}], "=", 
        RowBox[{"G", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"G", "[", 
            RowBox[{"{", 
             RowBox[{"x", ",", "a"}], "}"}], "]"}], ",", "a"}], "}"}], 
         "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"GraphicsRow", "[", "\[IndentingNewLine]", 
        RowBox[{"{", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"Graphics", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"NestList", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"#", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], "+", "1"}], ",", 
                  RowBox[{"F", "[", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"#", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], ",", "a"}], "}"}], 
                   "]"}]}], "}"}], "&"}], ",", 
               RowBox[{"{", 
                RowBox[{"0", ",", "x0"}], "}"}], ",", "n"}], "]"}], "/.", 
             RowBox[{
              RowBox[{"u_", "?", "VectorQ"}], ":>", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"Hue", "[", 
                 RowBox[{
                  RowBox[{"u", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "/", "nmax"}], "]"}], ",", 
                RowBox[{"Point", "[", "u", "]"}]}], "}"}]}]}], ",", 
            RowBox[{"AspectRatio", "->", "1"}], ",", 
            RowBox[{"PlotRange", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"0", ",", "nmax"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", 
            RowBox[{"Axes", "->", "True"}], ",", 
            RowBox[{"AxesLabel", "->", 
             RowBox[{"{", 
              RowBox[{
              "\"\<n\>\"", ",", 
               "\"\<\!\(\*SubscriptBox[\(x\), \(n\)]\)\>\""}], "}"}]}]}], 
           "]"}], ",", "\[IndentingNewLine]", 
          RowBox[{"Show", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"Plot", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"F", "[", 
                 RowBox[{"{", 
                  RowBox[{"u", ",", "a"}], "}"}], "]"}], ",", "u"}], "}"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"u", ",", "0", ",", "1"}], "}"}], ",", 
              RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
              RowBox[{"PlotRange", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"0", ",", "1"}], "}"}]}], ",", 
              RowBox[{"PlotStyle", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"Blue", ",", "Orange"}], "}"}]}]}], "]"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"Plot", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"G", "[", 
                RowBox[{"{", 
                 RowBox[{"u", ",", "a"}], "}"}], "]"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"u", ",", "0", ",", "1"}], "}"}], ",", 
              RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
              RowBox[{"PlotRange", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"0", ",", "1"}], "}"}]}], ",", 
              RowBox[{"PlotStyle", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"{", 
                 RowBox[{"Purple", ",", 
                  RowBox[{"Opacity", "[", "0.3", "]"}]}], "}"}], "}"}]}]}], 
             "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"Drop", "[", 
              RowBox[{
               RowBox[{"Thread", "[", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"data", "=", 
                   RowBox[{"NestList", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"F", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"#", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], ",", "a"}], "}"}], "]"}], 
                    ",", 
                    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", "]"}], "]"}], "/", "nmax"}], "]"}], ",", 
                 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]", "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "3", ",", "\"\<a\>\""}], "}"}], ",", "0", ",", "4", 
      ",", 
      RowBox[{"Appearance", "\[Rule]", 
       RowBox[{"{", "\"\<Labeled\>\"", "}"}]}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "x0", ",", "0.5", ",", "\"\<\!\(\*SubscriptBox[\(x\), \(0\)]\)\>\""}], 
       "}"}], ",", "0", ",", "1", ",", 
      RowBox[{"Appearance", "\[Rule]", 
       RowBox[{"{", "\"\<Labeled\>\"", "}"}]}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "nmax", ",", "50", ",", 
        "\"\<\!\(\*SubscriptBox[\(n\), \(max\)]\)\>\""}], "}"}], ",", "1", 
      ",", "100", ",", "1", ",", 
      RowBox[{"Appearance", "\[Rule]", 
       RowBox[{"{", "\"\<Labeled\>\"", "}"}]}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"n", ",", "nmax", ",", "\"\<n\>\""}], "}"}], ",", "1", ",", 
      "nmax", ",", "1", ",", 
      RowBox[{"Appearance", "\[Rule]", 
       RowBox[{"{", "\"\<Labeled\>\"", "}"}]}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"SaveDefinitions", "\[Rule]", "True"}]}], "\[IndentingNewLine]", 
   "]"}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.66643858083403*^9, 3.6664386948175497`*^9}, {
   3.6664449484012337`*^9, 3.6664451812035494`*^9}, {3.666445220665807*^9, 
   3.666445223716981*^9}, {3.6664453044966016`*^9, 3.666445304800619*^9}, {
   3.666445335010347*^9, 3.6664454188201404`*^9}, {3.666445463590701*^9, 
   3.666445465389804*^9}, 3.6664455127925153`*^9, {3.666445609277034*^9, 
   3.6664456217807493`*^9}, {3.6664456661972895`*^9, 3.666445669721491*^9}, {
   3.666445705662547*^9, 3.666445741358588*^9}, {3.66644591936977*^9, 
   3.6664459271702166`*^9}, 
   3.6671983769858046`*^9},ExpressionUUID->"3306f86e-78ea-46bd-98dc-\
687ee54e11c9"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a$$ = 
    3, $CellContext`n$$ = $CellContext`nmax$$, $CellContext`nmax$$ = 
    50, $CellContext`x0$$ = 0.5, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`a$$], 3, "a"}, 0, 4}, {{
       Hold[$CellContext`x0$$], 0.5, "\!\(\*SubscriptBox[\(x\), \(0\)]\)"}, 0,
       1}, {{
       Hold[$CellContext`nmax$$], 50, "\!\(\*SubscriptBox[\(n\), \(max\)]\)"},
       1, 100, 1}, {{
       Hold[$CellContext`n$$], $CellContext`nmax$$, "n"}, 1, 
      Dynamic[$CellContext`nmax$$], 1}}, Typeset`size$$ = {
    540., {137., 145.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = False, $CellContext`a$185571$$ = 
    0, $CellContext`x0$185572$$ = 0, $CellContext`nmax$185573$$ = 
    0, $CellContext`n$185574$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`a$$ = 
        3, $CellContext`n$$ = $CellContext`nmax$$, $CellContext`nmax$$ = 
        50, $CellContext`x0$$ = 0.5}, "ControllerVariables" :> {
        Hold[$CellContext`a$$, $CellContext`a$185571$$, 0], 
        Hold[$CellContext`x0$$, $CellContext`x0$185572$$, 0], 
        Hold[$CellContext`nmax$$, $CellContext`nmax$185573$$, 0], 
        Hold[$CellContext`n$$, $CellContext`n$185574$$, 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`F, $CellContext`G, $CellContext`x, \
$CellContext`data}, $CellContext`G[{
            Pattern[$CellContext`x, 
             Blank[]], 
            Pattern[$CellContext`a, 
             Blank[]]}] = ($CellContext`a $CellContext`x) (
           1 - $CellContext`x); $CellContext`F[{
            Pattern[$CellContext`x, 
             Blank[]], 
            Pattern[$CellContext`a, 
             Blank[]]}] = $CellContext`G[{
            $CellContext`G[{$CellContext`x, $CellContext`a}], \
$CellContext`a}]; GraphicsRow[{
           Graphics[
            ReplaceAll[
             NestList[{Part[#, 1] + 1, 
               $CellContext`F[{
                 Part[#, 2], $CellContext`a$$}]}& , {
              0, $CellContext`x0$$}, $CellContext`n$$], PatternTest[
               Pattern[$CellContext`u$, 
                Blank[]], VectorQ] :> {
               Hue[Part[$CellContext`u$, 1]/$CellContext`nmax$$], 
               Point[$CellContext`u$]}], AspectRatio -> 1, 
            PlotRange -> {{0, $CellContext`nmax$$}, {0, 1}}, Axes -> True, 
            AxesLabel -> {"n", "\!\(\*SubscriptBox[\(x\), \(n\)]\)"}], 
           Show[
            Plot[{
              $CellContext`F[{$CellContext`u, $CellContext`a$$}], \
$CellContext`u}, {$CellContext`u, 0, 1}, AspectRatio -> Automatic, 
             PlotRange -> {0, 1}, PlotStyle -> {Blue, Orange}], 
            Plot[{
              $CellContext`G[{$CellContext`u, $CellContext`a$$}]}, \
{$CellContext`u, 0, 1}, AspectRatio -> Automatic, PlotRange -> {0, 1}, 
             PlotStyle -> {{Purple, 
                Opacity[0.3]}}], 
            ReplaceAll[
             Drop[
              Thread[{$CellContext`data = NestList[{
                   $CellContext`F[{
                    Part[#, 1], $CellContext`a$$}], Part[#, 2] + 
                   1}& , {$CellContext`x0$$, 0}, $CellContext`n$$], 
                RotateLeft[$CellContext`data]}], -1], {
               PatternTest[
                Pattern[$CellContext`u$, 
                 Blank[]], VectorQ], 
               PatternTest[
                Pattern[$CellContext`v$, 
                 Blank[]], VectorQ]} :> Graphics[{
                Hue[Part[$CellContext`u$, 2]/$CellContext`nmax$$], 
                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`a$$, 3, "a"}, 0, 4, 
         Appearance -> {"Labeled"}}, {{$CellContext`x0$$, 0.5, 
          "\!\(\*SubscriptBox[\(x\), \(0\)]\)"}, 0, 1, 
         Appearance -> {"Labeled"}}, {{$CellContext`nmax$$, 50, 
          "\!\(\*SubscriptBox[\(n\), \(max\)]\)"}, 1, 100, 1, 
         Appearance -> {"Labeled"}}, {{$CellContext`n$$, $CellContext`nmax$$, 
          "n"}, 1, 
         Dynamic[$CellContext`nmax$$], 1, Appearance -> {"Labeled"}}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{616., {259., 270.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({$CellContext`F[
         Pattern[$CellContext`x$, 
          Blank[]]] := (FE`a$$1321 $CellContext`x$) (1 - $CellContext`x$), 
       Attributes[$CellContext`x$] = {Temporary}, FE`a$$1321 = 
       3.19, $CellContext`G[
         Pattern[$CellContext`x$, 
          Blank[]]] = (((-9) (-1 + $CellContext`x$)) $CellContext`x$) (
         1 + (3 (-1 + $CellContext`x$)) $CellContext`x$)}; 
     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.6664459524356613`*^9, 
  3.6671983777358475`*^9},ExpressionUUID->"36d2fb56-22e1-4dd8-9cee-\
48d2b3794048"]
}, {2}]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellChangeTimes->{3.539604794614111*^9},
 CellTags->
  "SlideShowHeader",ExpressionUUID->"ca7c37b9-ce5c-41dd-ab63-4464461803f7"],

Cell[TextData[{
 "Positive fixed point of",
 Cell[BoxData[
  FormBox[
   RowBox[{"  ", 
    RowBox[{
     SuperscriptBox["F", 
      RowBox[{"(", "2", ")"}]], "(", "x", ")"}], "  "}], TraditionalForm]], 
  "None",ExpressionUUID->"5fa005ef-0e86-495f-8e9a-ef47f69e875c"],
 "appears : ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["a", "2"], "=", "3"}], TraditionalForm]], "None",
  ExpressionUUID->"f3a14251-6cdd-4931-b78c-5820af69c77a"]
}], "Section",
 CellChangeTimes->{{3.666464430667138*^9, 3.666464503455325*^9}, {
  3.666464614695379*^9, 3.666464627102809*^9}},
 FontColor->RGBColor[
  1, 0, 0],ExpressionUUID->"ca6acd2b-822e-4a6d-ae70-c884307dbdf6"],

Cell[CellGroupData[{

Cell[TextData[{
 "The fixed points of ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"F", "(", "x", ")"}], "  ", "and", "  ", "F", " ", 
     RowBox[{"(", 
      RowBox[{"F", " ", 
       RowBox[{"(", "x", ")"}]}], ")"}]}], "=", 
    RowBox[{
     SuperscriptBox["F", 
      RowBox[{"(", "2", ")"}]], "(", "x", ")"}]}], TraditionalForm]], "None",
  ExpressionUUID->"5c0d9414-868a-4d60-9132-cc470ba7039b"]
}], "Section",
 CellChangeTimes->{{3.666438035313828*^9, 3.6664380797353687`*^9}, {
  3.6664381969750743`*^9, 3.6664382032914357`*^9}, {3.6664448131464977`*^9, 
  3.6664448153326225`*^9}},ExpressionUUID->"74ff9998-209c-4080-a8f2-\
9b55345d0f83"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"DynamicModule", "[", 
    RowBox[{
     RowBox[{"{", "lst", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"lst", "=", 
       RowBox[{"Reverse", "[", 
        RowBox[{"Take", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{"f", "[", 
                RowBox[{"x", ",", "a"}], "]"}], "\[Equal]", "x"}], ",", 
              "Blue"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{"f", "[", 
                RowBox[{
                 RowBox[{"f", "[", 
                  RowBox[{"x", ",", "a"}], "]"}], ",", "a"}], "]"}], 
               "\[Equal]", "x"}], ",", "Red"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{"f", "[", 
                RowBox[{
                 RowBox[{"f", "[", 
                  RowBox[{
                   RowBox[{"f", "[", 
                    RowBox[{
                    RowBox[{"f", "[", 
                    RowBox[{"x", ",", "a"}], "]"}], ",", "a"}], "]"}], ",", 
                   "a"}], "]"}], ",", "a"}], "]"}], "\[Equal]", "x"}], ",", 
              "Green"}], "}"}]}], "}"}], ",", "n"}], "]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Show", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"ContourPlot", "[", 
          RowBox[{
           RowBox[{"Evaluate", "[", 
            RowBox[{"lst", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"a", ",", "0", ",", "4"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", 
             RowBox[{"-", "0.0005"}], ",", "1"}], "}"}], ",", 
           RowBox[{"Contours", "\[Rule]", 
            RowBox[{"{", "0", "}"}]}], ",", "\[IndentingNewLine]", 
           RowBox[{"ContourStyle", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Thickness", "[", "0.005", "]"}], ",", 
              RowBox[{"lst", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "}"}]}], ",", 
           RowBox[{"ContourShading", "\[Rule]", "False"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{"Length", "[", "lst", "]"}]}], "}"}]}], "]"}], 
       "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"n", ",", "1", ",", "\"\<Iteration\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "2"}], "}"}], ",", "SetterBar"}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"SaveDefinitions", "\[Rule]", "True"}], ",", 
   RowBox[{"Initialization", "\[RuleDelayed]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"f", "[", 
       RowBox[{"x_", ",", "a_"}], "]"}], "=", 
      RowBox[{"a", " ", "x", 
       RowBox[{"(", 
        RowBox[{"1", "-", "x"}], ")"}]}]}], "}"}]}]}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGCQAGIQvdxP0Ec38LVjrbiRL4h+VCAdAqJDmA9GgOjOWv/T
INrBZ+8FEL2Hy/c6iK6v2P8KRNs9n/MORFfPbf0MopdenvkXRO939GbUA9Lp
da+5QPSb//yCIPpFTb8SiH6wnlsZRMtt7zUH0av8JC1AtAhbkC2InnX0pD2I
9tNudQHRWbw+3iDapnxNIIi+0zI5CESvs9WJANFT1GQjQfSGkv5YEH3sanY8
iBZ/cM1fH0hv2vsZTM+rywsB0R/en4sB0UEl7Ykg2nj+2TIQbTBj33IQbZEW
sxFE9+5JPASiV7zTOwymmRxOg+gTE8rBdKOB53kQ3dF15TbYPPWQJyB6uZjb
BxC94IiumQEoHCRTwbRI1gUXEL0u9BqYBgBLia4n
  "],ExpressionUUID->"ca6ac017-90a4-4987-b022-e8f5baff3eba"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`n$$ = 2, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`n$$], 1, "Iteration"}, {1, 2}}}, Typeset`size$$ = {
    540., {264., 273.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = False, $CellContext`n$2874$$ = False}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`n$$ = 1}, 
      "ControllerVariables" :> {
        Hold[$CellContext`n$$, $CellContext`n$2874$$, False]}, 
      "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`lst}, $CellContext`lst = Reverse[
           
           Take[{{$CellContext`f[$CellContext`x, $CellContext`a] == \
$CellContext`x, Blue}, {$CellContext`f[
                $CellContext`f[$CellContext`x, $CellContext`a], \
$CellContext`a] == $CellContext`x, Red}, {$CellContext`f[
                $CellContext`f[
                 $CellContext`f[
                  $CellContext`f[$CellContext`x, $CellContext`a], \
$CellContext`a], $CellContext`a], $CellContext`a] == $CellContext`x, 
              Green}}, $CellContext`n$$]]; Show[
          Table[
           ContourPlot[
            Evaluate[
             Part[$CellContext`lst, $CellContext`i, 1]], {$CellContext`a, 0, 
             4}, {$CellContext`x, -0.0005, 1}, Contours -> {0}, ContourStyle -> {
              Thickness[0.005], 
              Part[$CellContext`lst, $CellContext`i, 2]}, ContourShading -> 
            False], {$CellContext`i, 1, 
            Length[$CellContext`lst]}]]], 
      "Specifications" :> {{{$CellContext`n$$, 1, "Iteration"}, {1, 2}, 
         ControlType -> SetterBar}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{616., {338., 349.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({{$CellContext`f[
           Pattern[$CellContext`x, 
            Blank[]], 
           Pattern[$CellContext`r, 
            Blank[]]] = ($CellContext`r (
            1 - $CellContext`x)) $CellContext`x, $CellContext`f[
           Pattern[$CellContext`x, 
            Blank[]]] = ($CellContext`a (
            1 - $CellContext`x)) $CellContext`x}; {$CellContext`f[
           Pattern[$CellContext`x, 
            Blank[]], 
           Pattern[$CellContext`a, 
            Blank[]]] = ($CellContext`a $CellContext`x) (
           1 - $CellContext`x)}}; 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.666444840182044*^9},ExpressionUUID->"9678523a-33b5-41d5-bbb8-\
b17deb506ef0"]
}, {2}]],

Cell[BoxData[
 RowBox[{
  RowBox[{"F", "[", "x_", "]"}], ":=", 
  RowBox[{"a", " ", "x", 
   RowBox[{"(", 
    RowBox[{"1", "-", "x"}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.6663550294043674`*^9, 3.66635503834438*^9}, {
  3.666436527099563*^9, 3.6664365327208843`*^9}, {3.6664460498662343`*^9, 
  3.6664460511513076`*^9}},ExpressionUUID->"3c83716c-a366-4107-ad6c-\
c4b80cde5b9f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"G", "[", "x_", "]"}], "=", 
  RowBox[{"Collect", "[", 
   RowBox[{
    RowBox[{"F", "[", 
     RowBox[{"F", "[", "x", "]"}], "]"}], ",", "x"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.6664460119970684`*^9, 3.666446043073846*^9}, {
  3.6664460750076723`*^9, 3.6664460792909174`*^9}, {3.6664489600046844`*^9, 
  3.666448964283929*^9}},ExpressionUUID->"8e8f16b7-fd7c-466a-8782-\
71fcaa160e03"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["a", "2"], " ", "x"}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "-", "a"}], ")"}], " ", 
   SuperscriptBox["a", "2"], " ", 
   SuperscriptBox["x", "2"]}], "+", 
  RowBox[{"2", " ", 
   SuperscriptBox["a", "3"], " ", 
   SuperscriptBox["x", "3"]}], "-", 
  RowBox[{
   SuperscriptBox["a", "3"], " ", 
   SuperscriptBox["x", "4"]}]}]], "Output",
 CellChangeTimes->{{3.6664460169833536`*^9, 3.666446079745943*^9}, 
   3.6664489646409497`*^9, 
   3.667198454801255*^9},ExpressionUUID->"ddc460c6-be0c-40e6-bd46-\
729d93fc4ba5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fixed2", "=", 
  RowBox[{
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{"x", "\[Equal]", 
      RowBox[{"G", "[", "x", "]"}]}], ",", "x"}], "]"}], "//", 
   "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.6664460573676634`*^9, 3.666446061524901*^9}, {
  3.6664461667489195`*^9, 
  3.6664461686250267`*^9}},ExpressionUUID->"48ec6046-3c8c-4611-8ca9-\
11aa14e9fcc9"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     FractionBox[
      RowBox[{
       RowBox[{"-", "1"}], "+", "a"}], "a"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     FractionBox[
      RowBox[{"1", "+", "a", "-", 
       SqrtBox[
        RowBox[{
         RowBox[{"-", "3"}], "-", 
         RowBox[{"2", " ", "a"}], "+", 
         SuperscriptBox["a", "2"]}]]}], 
      RowBox[{"2", " ", "a"}]]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     FractionBox[
      RowBox[{"1", "+", "a", "+", 
       SqrtBox[
        RowBox[{
         RowBox[{"-", "3"}], "-", 
         RowBox[{"2", " ", "a"}], "+", 
         SuperscriptBox["a", "2"]}]]}], 
      RowBox[{"2", " ", "a"}]]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.6664460628809786`*^9, 3.66644609524883*^9}, 
   3.6664461695570803`*^9, 
   3.6671984597375374`*^9},ExpressionUUID->"5e5b3876-186c-4469-9a7b-\
5cc0f7b6ea04"]
}, Open  ]],

Cell[CellGroupData[{

Cell["The new (not inherited from F[x]) fixed points", "Subsection",
 CellChangeTimes->{{3.6664461160810213`*^9, 
  3.6664461470607934`*^9}},ExpressionUUID->"c51effa6-a56c-444b-89cc-\
ce653e4e71df"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{"x", "\[Rule]", 
      FractionBox[
       RowBox[{"1", "+", "a", "-", 
        SqrtBox[
         RowBox[{
          RowBox[{"-", "3"}], "-", 
          RowBox[{"2", "a"}], "+", 
          SuperscriptBox["a", "2"]}]]}], 
       RowBox[{"2", "a"}]]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", "\[Rule]", 
      FractionBox[
       RowBox[{"1", "+", "a", "+", 
        SqrtBox[
         RowBox[{
          RowBox[{"-", "3"}], "-", 
          RowBox[{"2", "a"}], "+", 
          SuperscriptBox["a", "2"]}]]}], 
       RowBox[{"2", "a"}]]}], "}"}]}], "}"}], TraditionalForm]], "Text",
 CellChangeTimes->{{3.6664461824088154`*^9, 
  3.666446199091769*^9}},ExpressionUUID->"5a3875ea-334c-420b-b9ab-\
685886b9a0e9"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Attractivity - instability of fixed points", "Section",
 CellChangeTimes->{{3.6664462107494364`*^9, 3.666446225413275*^9}, {
  3.666446345951169*^9, 3.6664463490623474`*^9}, {3.666461054439165*^9, 
  3.666461059193699*^9}},ExpressionUUID->"766354ed-ea65-4961-a08b-\
afd7c0f568c2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"G", "'"}], "[", "x", "]"}], " ", "/.", " ", 
   RowBox[{"fixed2", "[", 
    RowBox[{"[", "3", "]"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.666446232272667*^9, 3.666446305629863*^9}, 
   3.66644656572774*^9, {3.6664466625432773`*^9, 
   3.6664466625462775`*^9}},ExpressionUUID->"18bfb6d5-d02c-41b0-9769-\
692ccea72427"],

Cell[BoxData[
 RowBox[{"4", "+", 
  RowBox[{"2", " ", "a"}], "-", 
  SuperscriptBox["a", "2"]}]], "Output",
 CellChangeTimes->{
  3.666446664197372*^9},ExpressionUUID->"9f07ec11-ba4a-4a81-b0e1-\
fb364cb209b7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"G", "'"}], "[", "x", "]"}], "/.", 
   RowBox[{"fixed2", "[", 
    RowBox[{"[", "4", "]"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.6664462736090317`*^9},ExpressionUUID->"b376dd66-17c5-4459-bf97-\
51df8c70b7c5"],

Cell[BoxData[
 RowBox[{"4", "+", 
  RowBox[{"2", " ", "a"}], "-", 
  SuperscriptBox["a", "2"]}]], "Output",
 CellChangeTimes->{
  3.6664466442752323`*^9},ExpressionUUID->"750f6602-e9e5-4bcc-989a-\
206b915db5d2"]
}, Open  ]],

Cell[BoxData[
 FormBox[
  StyleBox[
   RowBox[{"Check", ":", 
    FormBox[
     RowBox[{"|", 
      RowBox[{"4", "+", 
       RowBox[{"2", "a"}], "-", 
       SuperscriptBox["a", "2"]}], "|", 
      RowBox[{"<", "1"}]}],
     TraditionalForm]}],
   FontWeight->"Bold"], TraditionalForm]], "Text",
 CellChangeTimes->{{3.666446547284685*^9, 
  3.666446637550848*^9}},ExpressionUUID->"f1fa4261-b633-4aa2-95bd-\
120f88d684aa"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Reduce", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Abs", "[", 
      RowBox[{"4", "+", 
       RowBox[{"2", " ", "a"}], "-", 
       SuperscriptBox["a", "2"]}], "]"}], "<", "1"}], "&&", 
    RowBox[{"a", ">", "0"}]}], ",", "a", ",", "Reals"}], "]"}]], "Input",
 CellChangeTimes->{{3.6664463400328307`*^9, 3.6664463681634398`*^9}, {
  3.6664465254574366`*^9, 3.6664465376071315`*^9}, {3.6664467477261496`*^9, 
  3.6664467500342817`*^9}},ExpressionUUID->"787cdc9e-1132-4e25-a91c-\
f5b09be9c6ec"],

Cell[BoxData[
 RowBox[{"3", "<", "a", "<", 
  RowBox[{"1", "+", 
   SqrtBox["6"]}]}]], "Output",
 CellChangeTimes->{
  3.666446368724472*^9, {3.6664465305067253`*^9, 3.6664465381621633`*^9}, 
   3.6664467508723297`*^9},ExpressionUUID->"a7fe42c3-933a-4465-b48f-\
864357bea799"]
}, Open  ]],

Cell[TextData[{
 StyleBox["What happens at",
  FontWeight->"Bold"],
 Cell[BoxData[
  FormBox[
   RowBox[{"   ", 
    RowBox[{"a", "="}]}], TraditionalForm]],
  FontWeight->"Bold",ExpressionUUID->"217f0e2d-db7f-49cb-9b0a-37b660c481c1"],
 Cell[BoxData[
  FormBox[
   RowBox[{"1", "+", 
    SqrtBox["6"]}], TraditionalForm]],
  CellChangeTimes->{
   3.666446368724472*^9, {3.6664465305067253`*^9, 3.6664465381621633`*^9}, 
    3.6664467508723297`*^9},
  FontWeight->"Bold",ExpressionUUID->"604a42b7-4265-423e-a415-32d05cd23fa4"],
 StyleBox["\[TildeTilde]3.44949  ???\n\n",
  FontWeight->"Bold"],
 StyleBox["Period doubling!!! \[TildeTilde] fixed points of ",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["F", 
     RowBox[{"(", "4", ")"}]], "(", "x", ")"}], TraditionalForm]],
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0],ExpressionUUID->
  "50d7bf02-9413-47ec-8720-a2bdcf10847c"]
}], "Text-Framed",
 CellChangeTimes->{{3.666446702546565*^9, 3.666446797691007*^9}, {
  3.6664468340100846`*^9, 3.666446904174098*^9}, {3.666627161359806*^9, 
  3.666627164619811*^9}},ExpressionUUID->"390e571d-2f59-4a82-b690-\
66df37d62c38"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellChangeTimes->{3.539604794614111*^9},
 CellTags->
  "SlideShowHeader",ExpressionUUID->"9769cd7c-2773-46a7-9a36-6a8eefbc6d8a"],

Cell[CellGroupData[{

Cell[TextData[{
 "Study ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"F", " ", 
     RowBox[{"(", 
      RowBox[{"F", " ", 
       RowBox[{"(", 
        RowBox[{"F", "(", 
         RowBox[{"F", "(", "x", ")"}], ")"}], ")"}]}], ")"}]}], "=", 
    RowBox[{
     SuperscriptBox["F", 
      RowBox[{"(", "4", ")"}]], "(", "x", ")"}]}], TraditionalForm]], "None",
  ExpressionUUID->"c1375838-642c-41da-b030-5ed1c793abe9"]
}], "MainSection",
 CellChangeTimes->{{3.6664364855111847`*^9, 3.666436499352976*^9}, {
  3.6664383058433013`*^9, 3.666438320542142*^9}, {3.6664469573471394`*^9, 
  3.666446969753849*^9}},ExpressionUUID->"06a44d89-7dd9-4801-a4e1-\
a095b049ddf6"],

Cell[CellGroupData[{

Cell["The iterations", "Section",
 CellChangeTimes->{{3.6664447791145515`*^9, 
  3.6664447988516803`*^9}},ExpressionUUID->"e05ee1a0-5d5e-4ddb-bd13-\
8806b0398594"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"DynamicModule", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"H", ",", "F", ",", "G", ",", "x", ",", "data"}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"H", "[", 
         RowBox[{"{", 
          RowBox[{"x_", ",", "a_"}], "}"}], "]"}], "=", 
        RowBox[{"a", " ", "x", 
         RowBox[{"(", 
          RowBox[{"1", "-", "x"}], ")"}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"G", "[", 
         RowBox[{"{", 
          RowBox[{"x_", ",", "a_"}], "}"}], "]"}], "=", 
        RowBox[{"H", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"H", "[", 
            RowBox[{"{", 
             RowBox[{"x", ",", "a"}], "}"}], "]"}], ",", "a"}], "}"}], 
         "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"F", "[", 
         RowBox[{"{", 
          RowBox[{"x_", ",", "a_"}], "}"}], "]"}], "=", 
        RowBox[{"G", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"G", "[", 
            RowBox[{"{", 
             RowBox[{"x", ",", "a"}], "}"}], "]"}], ",", "a"}], "}"}], 
         "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"GraphicsRow", "[", "\[IndentingNewLine]", 
        RowBox[{"{", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"Graphics", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"NestList", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"#", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], "+", "1"}], ",", 
                  RowBox[{"F", "[", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"#", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], ",", "a"}], "}"}], 
                   "]"}]}], "}"}], "&"}], ",", 
               RowBox[{"{", 
                RowBox[{"0", ",", "x0"}], "}"}], ",", "n"}], "]"}], "/.", 
             RowBox[{
              RowBox[{"u_", "?", "VectorQ"}], ":>", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"Hue", "[", 
                 RowBox[{
                  RowBox[{"u", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "/", "nmax"}], "]"}], ",", 
                RowBox[{"Point", "[", "u", "]"}]}], "}"}]}]}], ",", 
            RowBox[{"AspectRatio", "->", "1"}], ",", 
            RowBox[{"PlotRange", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"0", ",", "nmax"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", 
            RowBox[{"Axes", "->", "True"}], ",", 
            RowBox[{"AxesLabel", "->", 
             RowBox[{"{", 
              RowBox[{
              "\"\<n\>\"", ",", 
               "\"\<\!\(\*SubscriptBox[\(x\), \(n\)]\)\>\""}], "}"}]}]}], 
           "]"}], ",", "\[IndentingNewLine]", 
          RowBox[{"Show", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"Plot", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"F", "[", 
                 RowBox[{"{", 
                  RowBox[{"u", ",", "a"}], "}"}], "]"}], ",", "u"}], "}"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"u", ",", "0", ",", "1"}], "}"}], ",", 
              RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
              RowBox[{"PlotRange", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"0", ",", "1"}], "}"}]}], ",", 
              RowBox[{"PlotStyle", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"Blue", ",", "Orange"}], "}"}]}]}], "]"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"Plot", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"H", "[", 
                 RowBox[{"{", 
                  RowBox[{"u", ",", "a"}], "}"}], "]"}], ",", 
                RowBox[{"G", "[", 
                 RowBox[{"{", 
                  RowBox[{"u", ",", "a"}], "}"}], "]"}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"u", ",", "0", ",", "1"}], "}"}], ",", 
              RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
              RowBox[{"PlotRange", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"0", ",", "1"}], "}"}]}], ",", 
              RowBox[{"PlotStyle", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"{", 
                 RowBox[{"Purple", ",", 
                  RowBox[{"Opacity", "[", "0.3", "]"}]}], "}"}], "}"}]}]}], 
             "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"Drop", "[", 
              RowBox[{
               RowBox[{"Thread", "[", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"data", "=", 
                   RowBox[{"NestList", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"F", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"#", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], ",", "a"}], "}"}], "]"}], 
                    ",", 
                    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", "]"}], "]"}], "/", "nmax"}], "]"}], ",", 
                 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]", "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "3.5", ",", "\"\<a\>\""}], "}"}], ",", "0", ",", "4",
       ",", 
      RowBox[{"Appearance", "\[Rule]", 
       RowBox[{"{", "\"\<Labeled\>\"", "}"}]}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "x0", ",", "0.5", ",", "\"\<\!\(\*SubscriptBox[\(x\), \(0\)]\)\>\""}], 
       "}"}], ",", "0", ",", "1", ",", 
      RowBox[{"Appearance", "\[Rule]", 
       RowBox[{"{", "\"\<Labeled\>\"", "}"}]}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "nmax", ",", "50", ",", 
        "\"\<\!\(\*SubscriptBox[\(n\), \(max\)]\)\>\""}], "}"}], ",", "1", 
      ",", "100", ",", "1", ",", 
      RowBox[{"Appearance", "\[Rule]", 
       RowBox[{"{", "\"\<Labeled\>\"", "}"}]}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"n", ",", "nmax", ",", "\"\<n\>\""}], "}"}], ",", "1", ",", 
      "nmax", ",", "1", ",", 
      RowBox[{"Appearance", "\[Rule]", 
       RowBox[{"{", "\"\<Labeled\>\"", "}"}]}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"SaveDefinitions", "\[Rule]", "True"}]}], "\[IndentingNewLine]", 
   "]"}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.66643858083403*^9, 3.6664386948175497`*^9}, {
   3.6664449484012337`*^9, 3.6664451812035494`*^9}, {3.666445220665807*^9, 
   3.666445223716981*^9}, {3.6664453044966016`*^9, 3.666445304800619*^9}, {
   3.666445335010347*^9, 3.6664454188201404`*^9}, {3.666445463590701*^9, 
   3.666445465389804*^9}, 3.6664455127925153`*^9, {3.666445609277034*^9, 
   3.6664456217807493`*^9}, {3.6664456661972895`*^9, 3.666445669721491*^9}, {
   3.666445705662547*^9, 3.666445741358588*^9}, {3.66644591936977*^9, 
   3.6664459271702166`*^9}, {3.666446986872828*^9, 3.6664470350595837`*^9}, {
   3.66644707642595*^9, 3.6664470774960113`*^9}, {3.6671981985766*^9, 
   3.667198224151063*^9}, {3.6671983339253416`*^9, 
   3.667198360144841*^9}},ExpressionUUID->"cdaede1f-e62a-40df-9e80-\
d03d4ea12417"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a$$ = 
    3.5, $CellContext`n$$ = $CellContext`nmax$$, $CellContext`nmax$$ = 
    50, $CellContext`x0$$ = 0.5, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`a$$], 3.5, "a"}, 0, 4}, {{
       Hold[$CellContext`x0$$], 0.5, "\!\(\*SubscriptBox[\(x\), \(0\)]\)"}, 0,
       1}, {{
       Hold[$CellContext`nmax$$], 50, "\!\(\*SubscriptBox[\(n\), \(max\)]\)"},
       1, 100, 1}, {{
       Hold[$CellContext`n$$], $CellContext`nmax$$, "n"}, 1, 
      Dynamic[$CellContext`nmax$$], 1}}, Typeset`size$$ = {
    540., {137., 145.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = False, $CellContext`a$185330$$ = 
    0, $CellContext`x0$185331$$ = 0, $CellContext`nmax$185332$$ = 
    0, $CellContext`n$185333$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`a$$ = 
        3.5, $CellContext`n$$ = $CellContext`nmax$$, $CellContext`nmax$$ = 
        50, $CellContext`x0$$ = 0.5}, "ControllerVariables" :> {
        Hold[$CellContext`a$$, $CellContext`a$185330$$, 0], 
        Hold[$CellContext`x0$$, $CellContext`x0$185331$$, 0], 
        Hold[$CellContext`nmax$$, $CellContext`nmax$185332$$, 0], 
        Hold[$CellContext`n$$, $CellContext`n$185333$$, 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`H, $CellContext`F, $CellContext`G, \
$CellContext`x, $CellContext`data}, $CellContext`H[{
            Pattern[$CellContext`x, 
             Blank[]], 
            Pattern[$CellContext`a, 
             Blank[]]}] = ($CellContext`a $CellContext`x) (
           1 - $CellContext`x); $CellContext`G[{
            Pattern[$CellContext`x, 
             Blank[]], 
            Pattern[$CellContext`a, 
             Blank[]]}] = $CellContext`H[{
            $CellContext`H[{$CellContext`x, $CellContext`a}], \
$CellContext`a}]; $CellContext`F[{
            Pattern[$CellContext`x, 
             Blank[]], 
            Pattern[$CellContext`a, 
             Blank[]]}] = $CellContext`G[{
            $CellContext`G[{$CellContext`x, $CellContext`a}], \
$CellContext`a}]; GraphicsRow[{
           Graphics[
            ReplaceAll[
             NestList[{Part[#, 1] + 1, 
               $CellContext`F[{
                 Part[#, 2], $CellContext`a$$}]}& , {
              0, $CellContext`x0$$}, $CellContext`n$$], PatternTest[
               Pattern[$CellContext`u$, 
                Blank[]], VectorQ] :> {
               Hue[Part[$CellContext`u$, 1]/$CellContext`nmax$$], 
               Point[$CellContext`u$]}], AspectRatio -> 1, 
            PlotRange -> {{0, $CellContext`nmax$$}, {0, 1}}, Axes -> True, 
            AxesLabel -> {"n", "\!\(\*SubscriptBox[\(x\), \(n\)]\)"}], 
           Show[
            Plot[{
              $CellContext`F[{$CellContext`u, $CellContext`a$$}], \
$CellContext`u}, {$CellContext`u, 0, 1}, AspectRatio -> Automatic, 
             PlotRange -> {0, 1}, PlotStyle -> {Blue, Orange}], 
            Plot[{
              $CellContext`H[{$CellContext`u, $CellContext`a$$}], 
              $CellContext`G[{$CellContext`u, $CellContext`a$$}]}, \
{$CellContext`u, 0, 1}, AspectRatio -> Automatic, PlotRange -> {0, 1}, 
             PlotStyle -> {{Purple, 
                Opacity[0.3]}}], 
            ReplaceAll[
             Drop[
              Thread[{$CellContext`data = NestList[{
                   $CellContext`F[{
                    Part[#, 1], $CellContext`a$$}], Part[#, 2] + 
                   1}& , {$CellContext`x0$$, 0}, $CellContext`n$$], 
                RotateLeft[$CellContext`data]}], -1], {
               PatternTest[
                Pattern[$CellContext`u$, 
                 Blank[]], VectorQ], 
               PatternTest[
                Pattern[$CellContext`v$, 
                 Blank[]], VectorQ]} :> Graphics[{
                Hue[Part[$CellContext`u$, 2]/$CellContext`nmax$$], 
                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`a$$, 3.5, "a"}, 0, 4, 
         Appearance -> {"Labeled"}}, {{$CellContext`x0$$, 0.5, 
          "\!\(\*SubscriptBox[\(x\), \(0\)]\)"}, 0, 1, 
         Appearance -> {"Labeled"}}, {{$CellContext`nmax$$, 50, 
          "\!\(\*SubscriptBox[\(n\), \(max\)]\)"}, 1, 100, 1, 
         Appearance -> {"Labeled"}}, {{$CellContext`n$$, $CellContext`nmax$$, 
          "n"}, 1, 
         Dynamic[$CellContext`nmax$$], 1, Appearance -> {"Labeled"}}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{616., {259., 270.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({$CellContext`F[
         Pattern[$CellContext`x$, 
          Blank[]]] := (FE`a$$1321 $CellContext`x$) (1 - $CellContext`x$), 
       Attributes[$CellContext`x$] = {Temporary}, FE`a$$1321 = 
       3.19, $CellContext`G[
         Pattern[$CellContext`x$, 
          Blank[]]] = (((-9) (-1 + $CellContext`x$)) $CellContext`x$) (
         1 + (3 (-1 + $CellContext`x$)) $CellContext`x$)}; 
     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.6664459524356613`*^9, 3.666447035922633*^9, 3.666447078926093*^9, 
   3.6671981479237027`*^9, 3.667198211140319*^9, {3.667198336207472*^9, 
   3.667198361098896*^9}},ExpressionUUID->"1720b1b9-c98a-4723-bb57-\
5c67f0024ea7"]
}, {2}]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellChangeTimes->{3.539604794614111*^9},
 CellTags->
  "SlideShowHeader",ExpressionUUID->"cbc3c5df-4906-42f9-8237-9ebae936d942"],

Cell[TextData[{
 "Positive fixed point of",
 Cell[BoxData[
  FormBox[
   RowBox[{"  ", 
    RowBox[{
     SuperscriptBox["F", 
      RowBox[{"(", "4", ")"}]], "(", "x", ")"}], "  "}], TraditionalForm]], 
  "None",ExpressionUUID->"ba5c10af-4a16-4645-845b-a6994c6ec296"],
 "appears : ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["a", "4"], "=", 
    RowBox[{"1", "+", 
     SqrtBox["6"]}]}], TraditionalForm]], "None",ExpressionUUID->
  "68063c47-222c-4039-b262-e1edcb297b4d"]
}], "Section",
 CellChangeTimes->{{3.666464430667138*^9, 3.666464503455325*^9}, {
  3.666464614695379*^9, 3.666464669059358*^9}, {3.6664647105420732`*^9, 
  3.666464710542573*^9}},
 FontColor->RGBColor[
  1, 0, 0],ExpressionUUID->"91d6d3c7-f730-4f4c-b970-9560a8259dff"],

Cell[CellGroupData[{

Cell[TextData[{
 "The fixed points of ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"F", "(", "x", ")"}], " ", ",", 
    RowBox[{
     RowBox[{"F", " ", 
      RowBox[{"(", 
       RowBox[{"F", " ", 
        RowBox[{"(", "x", ")"}]}], ")"}]}], "=", 
     RowBox[{
      SuperscriptBox["F", 
       RowBox[{"(", "2", ")"}]], "(", "x", ")"}]}]}], TraditionalForm]], 
  "None",ExpressionUUID->"6d1b37bd-d4e7-4622-b097-133e11b31917"],
 " and ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"F", " ", 
     RowBox[{"(", 
      RowBox[{"F", " ", 
       RowBox[{"(", 
        RowBox[{"F", "(", 
         RowBox[{"F", "(", "x", ")"}], ")"}], ")"}]}], ")"}]}], "=", 
    RowBox[{
     SuperscriptBox["F", 
      RowBox[{"(", "4", ")"}]], "(", "x", ")"}]}], TraditionalForm]],
  ExpressionUUID->"dee7be18-7c37-4411-9b05-3cdf7146bcef"]
}], "Section",
 CellChangeTimes->{{3.666438035313828*^9, 3.6664380797353687`*^9}, {
  3.6664381969750743`*^9, 3.6664382032914357`*^9}, {3.6664448131464977`*^9, 
  3.6664448153326225`*^9}, {3.666447158353636*^9, 
  3.6664471791868277`*^9}},ExpressionUUID->"0080663e-3626-4be5-ac00-\
0fe4873c967a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"DynamicModule", "[", 
    RowBox[{
     RowBox[{"{", "lst", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"lst", "=", 
       RowBox[{"Reverse", "[", 
        RowBox[{"Take", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{"f", "[", 
                RowBox[{"x", ",", "a"}], "]"}], "-", "x"}], ",", "Blue"}], 
             "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{"f", "[", 
                RowBox[{
                 RowBox[{"f", "[", 
                  RowBox[{"x", ",", "a"}], "]"}], ",", "a"}], "]"}], "-", 
               "x"}], ",", "Red"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{"f", "[", 
                RowBox[{
                 RowBox[{"f", "[", 
                  RowBox[{
                   RowBox[{"f", "[", 
                    RowBox[{
                    RowBox[{"f", "[", 
                    RowBox[{"x", ",", "a"}], "]"}], ",", "a"}], "]"}], ",", 
                   "a"}], "]"}], ",", "a"}], "]"}], "-", "x"}], ",", 
              "Green"}], "}"}]}], "}"}], ",", "n"}], "]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Show", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"ContourPlot", "[", 
          RowBox[{
           RowBox[{"Evaluate", "[", 
            RowBox[{"lst", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"a", ",", "0", ",", "4"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", 
             RowBox[{"-", "0.0005"}], ",", "1"}], "}"}], ",", 
           RowBox[{"Mesh", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{"1", ",", "3", ",", 
               RowBox[{"1", "+", 
                SqrtBox["6"]}]}], "}"}], "}"}]}], ",", 
           RowBox[{"MeshFunctions", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"#1", "&"}], "}"}]}], ",", 
           RowBox[{"Contours", "\[Rule]", 
            RowBox[{"{", "0", "}"}]}], ",", "\[IndentingNewLine]", 
           RowBox[{"ContourStyle", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"Thickness", "[", "0.005", "]"}], ",", 
               RowBox[{"lst", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "}"}], "}"}]}], ",", 
           RowBox[{"ContourShading", "\[Rule]", "None"}], ",", 
           RowBox[{"MeshStyle", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{"AbsoluteThickness", "[", "0.000001", "]"}], "}"}], 
             "}"}]}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{"Length", "[", "lst", "]"}]}], "}"}]}], "]"}], 
       "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"n", ",", "1", ",", "\"\<Iteration\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"1", "\[Rule]", "\"\<1st\>\""}], ",", 
       RowBox[{"2", "\[Rule]", "\"\<2nd\>\""}], ",", 
       RowBox[{"3", "\[Rule]", "\"\<4th\>\""}]}], "}"}], ",", "SetterBar"}], 
    "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"SaveDefinitions", "\[Rule]", "True"}], ",", 
   RowBox[{"Initialization", "\[RuleDelayed]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"f", "[", 
       RowBox[{"x_", ",", "a_"}], "]"}], "=", 
      RowBox[{"a", " ", "x", 
       RowBox[{"(", 
        RowBox[{"1", "-", "x"}], ")"}]}]}], "}"}]}]}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellChangeTimes->CompressedData["
1:eJwd0FtImgEAxXFzIJTFFjXF2oIK6sHpvixKpDJLBs1LKAYNjHJdcbQkurgt
u0BiCVFQrNa6EYUxRsv2sB60qG2ysDnpStSDySDJLMGniKjvfA+H39t5+Ke+
blbX0Wk0WgY5aFPGy3mqoMTEFiig35CsgZoHGxVwwFTmhkVypxc6YhSHsNu4
fg4LzyYv4YcpcwQu7H66hesSWRSftKErGAMv7h7Gw0DnUBr0fWOmw5Qfg3nw
i5IjhIkMdQGc+L0lhkquWQr1cXIZzO/4qoInfSNquFTwrAKOZjx9BZdbhyqh
a/9NFWT7Dsqek644I5TTXW81MHzl0UJ1q0UHs2f+tkNifM0GhfVaOxx06Dbh
4iX/JyW9yA3/DHdQ9hKl/2C/de+Y+svU/Ic21oswnP3FyyXQgVNHmaj3SuFS
+QFlu0ShzyIdc1QboHib0wZXWaNGeLf5sgc21jKsUFrrHIdEaGQK0l2f5yHj
Y5DyZoJrh8OzOd9h4JFlCx4lzblh5N31DuQ/Ye/C6tAtU0AqKnbFwpaB8GNY
UyJIgn5rZjncEDm00HNI+ITofRI6hXJ+dK6MtElmEcFGc8J7mHXBo7wHHWUU
vQ==
  "],ExpressionUUID->"1e8ad4d9-0dde-4582-86a8-f259d93eb8ca"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`n$$ = 3, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`n$$], 1, "Iteration"}, {
      1 -> "1st", 2 -> "2nd", 3 -> "4th"}}}, Typeset`size$$ = {
    540., {264., 273.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = False, $CellContext`n$28720$$ = False}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`n$$ = 1}, 
      "ControllerVariables" :> {
        Hold[$CellContext`n$$, $CellContext`n$28720$$, False]}, 
      "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`lst}, $CellContext`lst = Reverse[
           
           Take[{{$CellContext`f[$CellContext`x, $CellContext`a] - \
$CellContext`x, Blue}, {$CellContext`f[
                $CellContext`f[$CellContext`x, $CellContext`a], \
$CellContext`a] - $CellContext`x, Red}, {$CellContext`f[
                $CellContext`f[
                 $CellContext`f[
                  $CellContext`f[$CellContext`x, $CellContext`a], \
$CellContext`a], $CellContext`a], $CellContext`a] - $CellContext`x, 
              Green}}, $CellContext`n$$]]; Show[
          Table[
           ContourPlot[
            Evaluate[
             Part[$CellContext`lst, $CellContext`i, 1]], {$CellContext`a, 0, 
             4}, {$CellContext`x, -0.0005, 1}, Mesh -> {{1, 3, 1 + Sqrt[6]}}, 
            MeshFunctions -> {#& }, Contours -> {0}, ContourStyle -> {{
               Thickness[0.005], 
               Part[$CellContext`lst, $CellContext`i, 2]}}, ContourShading -> 
            None, MeshStyle -> {{
               AbsoluteThickness[1.*^-6]}}], {$CellContext`i, 1, 
            Length[$CellContext`lst]}]]], 
      "Specifications" :> {{{$CellContext`n$$, 1, "Iteration"}, {
         1 -> "1st", 2 -> "2nd", 3 -> "4th"}, ControlType -> SetterBar}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{616., {338., 349.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({{$CellContext`lst = {{-$CellContext`x + \
(((($CellContext`a^4 (1 - $CellContext`x)) $CellContext`x) (
                1 - ($CellContext`a (1 - $CellContext`x)) $CellContext`x)) (
               1 - (($CellContext`a^2 (1 - $CellContext`x)) $CellContext`x) (
                1 - ($CellContext`a (1 - $CellContext`x)) $CellContext`x))) (
              1 - ((($CellContext`a^3 (1 - $CellContext`x)) $CellContext`x) (
                1 - ($CellContext`a (1 - $CellContext`x)) $CellContext`x)) (
               1 - (($CellContext`a^2 (1 - $CellContext`x)) $CellContext`x) (
                1 - ($CellContext`a (1 - $CellContext`x)) $CellContext`x))), 
            RGBColor[
            0, 1, 0]}, {-$CellContext`x + (($CellContext`a^2 (
                1 - $CellContext`x)) $CellContext`x) (
              1 - ($CellContext`a (1 - $CellContext`x)) $CellContext`x), 
            RGBColor[
            1, 0, 0]}, {-$CellContext`x + ($CellContext`a (
               1 - $CellContext`x)) $CellContext`x, 
            RGBColor[0, 0, 1]}}, $CellContext`f[
           Pattern[$CellContext`x, 
            Blank[]], 
           Pattern[$CellContext`a, 
            Blank[]]] = ($CellContext`a (
            1 - $CellContext`x)) $CellContext`x, $CellContext`f[
           Pattern[$CellContext`x, 
            Blank[]]] = ($CellContext`a (
            1 - $CellContext`x)) $CellContext`x, $CellContext`n$$ = 
         3}; {$CellContext`f[
           Pattern[$CellContext`x, 
            Blank[]], 
           Pattern[$CellContext`a, 
            Blank[]]] = ($CellContext`a $CellContext`x) (
           1 - $CellContext`x)}}; 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.6664474175884633`*^9, 3.666447441374824*^9}, 
   3.6664475589755507`*^9, 3.6664475973737464`*^9, 3.6664476559790983`*^9, {
   3.666447754645742*^9, 3.6664477705266504`*^9}, {3.6664479516770115`*^9, 
   3.666447965569806*^9}, 3.6664480256292415`*^9, 3.666448492357937*^9, {
   3.6664485716454716`*^9, 3.6664486217663383`*^9}, 3.6664490242293577`*^9, {
   3.6664490685578938`*^9, 3.6664490790674944`*^9}, {3.6664491113193393`*^9, 
   3.666449126486207*^9}, {3.6664624714442625`*^9, 3.666462480865297*^9}, {
   3.6665000209531684`*^9, 3.6665000566222086`*^9}, 
   3.6665005622991314`*^9},ExpressionUUID->"d2495662-e14d-4ba2-a06b-\
814bb95f1f02"]
}, {2}]],

Cell[BoxData[
 RowBox[{
  RowBox[{"F", "[", "x_", "]"}], ":=", 
  RowBox[{"a", " ", "x", 
   RowBox[{"(", 
    RowBox[{"1", "-", "x"}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.6663550294043674`*^9, 3.66635503834438*^9}, {
  3.666436527099563*^9, 3.6664365327208843`*^9}, {3.6664460498662343`*^9, 
  3.6664460511513076`*^9}},ExpressionUUID->"29243365-51e3-4c6a-808f-\
835efd253d13"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"G", "[", "x_", "]"}], "=", 
  RowBox[{"Factor", "[", 
   RowBox[{"F", "[", 
    RowBox[{"F", "[", "x", "]"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.6664460119970684`*^9, 3.666446043073846*^9}, {
  3.6664460750076723`*^9, 3.6664460792909174`*^9}, {3.666449511636236*^9, 
  3.666449512614292*^9}},ExpressionUUID->"12b224bf-bb21-420d-9f6e-\
55225958c7a0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   SuperscriptBox["a", "2"]}], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", "x", " ", 
  RowBox[{"(", 
   RowBox[{"1", "-", 
    RowBox[{"a", " ", "x"}], "+", 
    RowBox[{"a", " ", 
     SuperscriptBox["x", "2"]}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.6664460169833536`*^9, 3.666446079745943*^9}, 
   3.6664486744833536`*^9, 3.666449513540345*^9, 3.6664612801520348`*^9, 
   3.667198472279255*^9},ExpressionUUID->"9f7d830e-9078-4b3b-bd7c-\
0ecc0617d60a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"H", "[", "x_", "]"}], "=", 
  RowBox[{"Factor", "[", 
   RowBox[{"G", "[", 
    RowBox[{"G", "[", "x", "]"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.6664460119970684`*^9, 3.666446043073846*^9}, {
  3.6664460750076723`*^9, 3.6664460792909174`*^9}, {3.666449511636236*^9, 
  3.666449512614292*^9}, {3.666461361025087*^9, 
  3.666461367427273*^9}},ExpressionUUID->"aef73229-32c9-40bc-8de1-\
8aa15eccc635"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   SuperscriptBox["a", "4"]}], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", "x", " ", 
  RowBox[{"(", 
   RowBox[{"1", "-", 
    RowBox[{"a", " ", "x"}], "+", 
    RowBox[{"a", " ", 
     SuperscriptBox["x", "2"]}]}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{"1", "-", 
    RowBox[{
     SuperscriptBox["a", "2"], " ", "x"}], "+", 
    RowBox[{
     SuperscriptBox["a", "2"], " ", 
     SuperscriptBox["x", "2"]}], "+", 
    RowBox[{
     SuperscriptBox["a", "3"], " ", 
     SuperscriptBox["x", "2"]}], "-", 
    RowBox[{"2", " ", 
     SuperscriptBox["a", "3"], " ", 
     SuperscriptBox["x", "3"]}], "+", 
    RowBox[{
     SuperscriptBox["a", "3"], " ", 
     SuperscriptBox["x", "4"]}]}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{"1", "-", 
    RowBox[{
     SuperscriptBox["a", "3"], " ", "x"}], "+", 
    RowBox[{
     SuperscriptBox["a", "3"], " ", 
     SuperscriptBox["x", "2"]}], "+", 
    RowBox[{
     SuperscriptBox["a", "4"], " ", 
     SuperscriptBox["x", "2"]}], "+", 
    RowBox[{
     SuperscriptBox["a", "5"], " ", 
     SuperscriptBox["x", "2"]}], "-", 
    RowBox[{"2", " ", 
     SuperscriptBox["a", "4"], " ", 
     SuperscriptBox["x", "3"]}], "-", 
    RowBox[{"2", " ", 
     SuperscriptBox["a", "5"], " ", 
     SuperscriptBox["x", "3"]}], "-", 
    RowBox[{"2", " ", 
     SuperscriptBox["a", "6"], " ", 
     SuperscriptBox["x", "3"]}], "+", 
    RowBox[{
     SuperscriptBox["a", "4"], " ", 
     SuperscriptBox["x", "4"]}], "+", 
    RowBox[{
     SuperscriptBox["a", "5"], " ", 
     SuperscriptBox["x", "4"]}], "+", 
    RowBox[{"6", " ", 
     SuperscriptBox["a", "6"], " ", 
     SuperscriptBox["x", "4"]}], "+", 
    RowBox[{
     SuperscriptBox["a", "7"], " ", 
     SuperscriptBox["x", "4"]}], "-", 
    RowBox[{"6", " ", 
     SuperscriptBox["a", "6"], " ", 
     SuperscriptBox["x", "5"]}], "-", 
    RowBox[{"4", " ", 
     SuperscriptBox["a", "7"], " ", 
     SuperscriptBox["x", "5"]}], "+", 
    RowBox[{"2", " ", 
     SuperscriptBox["a", "6"], " ", 
     SuperscriptBox["x", "6"]}], "+", 
    RowBox[{"6", " ", 
     SuperscriptBox["a", "7"], " ", 
     SuperscriptBox["x", "6"]}], "-", 
    RowBox[{"4", " ", 
     SuperscriptBox["a", "7"], " ", 
     SuperscriptBox["x", "7"]}], "+", 
    RowBox[{
     SuperscriptBox["a", "7"], " ", 
     SuperscriptBox["x", "8"]}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.6664613744480286`*^9, 
  3.6671984734173203`*^9},ExpressionUUID->"e78b31e5-eaa9-4f39-8283-\
2b8f6bb71da4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Factor", "[", 
  RowBox[{
   RowBox[{"H", "[", "x", "]"}], "-", "x"}], "]"}]], "Input",
 CellChangeTimes->{{3.666449634471262*^9, 3.6664496451088705`*^9}, {
  3.666461370629045*^9, 
  3.6664613712762117`*^9}},ExpressionUUID->"07a67429-1081-4b80-b976-\
c9b7e66d881a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "x"}], " ", 
  RowBox[{"(", 
   RowBox[{"1", "-", "a", "+", 
    RowBox[{"a", " ", "x"}]}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{"1", "+", "a", "-", 
    RowBox[{"a", " ", "x"}], "-", 
    RowBox[{
     SuperscriptBox["a", "2"], " ", "x"}], "+", 
    RowBox[{
     SuperscriptBox["a", "2"], " ", 
     SuperscriptBox["x", "2"]}]}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{"1", "+", 
    SuperscriptBox["a", "2"], "-", 
    RowBox[{
     SuperscriptBox["a", "2"], " ", "x"}], "-", 
    RowBox[{
     SuperscriptBox["a", "3"], " ", "x"}], "-", 
    RowBox[{
     SuperscriptBox["a", "4"], " ", "x"}], "-", 
    RowBox[{
     SuperscriptBox["a", "5"], " ", "x"}], "+", 
    RowBox[{"2", " ", 
     SuperscriptBox["a", "3"], " ", 
     SuperscriptBox["x", "2"]}], "+", 
    RowBox[{
     SuperscriptBox["a", "4"], " ", 
     SuperscriptBox["x", "2"]}], "+", 
    RowBox[{"4", " ", 
     SuperscriptBox["a", "5"], " ", 
     SuperscriptBox["x", "2"]}], "+", 
    RowBox[{
     SuperscriptBox["a", "6"], " ", 
     SuperscriptBox["x", "2"]}], "+", 
    RowBox[{"2", " ", 
     SuperscriptBox["a", "7"], " ", 
     SuperscriptBox["x", "2"]}], "-", 
    RowBox[{
     SuperscriptBox["a", "3"], " ", 
     SuperscriptBox["x", "3"]}], "-", 
    RowBox[{"5", " ", 
     SuperscriptBox["a", "5"], " ", 
     SuperscriptBox["x", "3"]}], "-", 
    RowBox[{"4", " ", 
     SuperscriptBox["a", "6"], " ", 
     SuperscriptBox["x", "3"]}], "-", 
    RowBox[{"5", " ", 
     SuperscriptBox["a", "7"], " ", 
     SuperscriptBox["x", "3"]}], "-", 
    RowBox[{"4", " ", 
     SuperscriptBox["a", "8"], " ", 
     SuperscriptBox["x", "3"]}], "-", 
    RowBox[{
     SuperscriptBox["a", "9"], " ", 
     SuperscriptBox["x", "3"]}], "+", 
    RowBox[{"2", " ", 
     SuperscriptBox["a", "5"], " ", 
     SuperscriptBox["x", "4"]}], "+", 
    RowBox[{"6", " ", 
     SuperscriptBox["a", "6"], " ", 
     SuperscriptBox["x", "4"]}], "+", 
    RowBox[{"4", " ", 
     SuperscriptBox["a", "7"], " ", 
     SuperscriptBox["x", "4"]}], "+", 
    RowBox[{"14", " ", 
     SuperscriptBox["a", "8"], " ", 
     SuperscriptBox["x", "4"]}], "+", 
    RowBox[{"5", " ", 
     SuperscriptBox["a", "9"], " ", 
     SuperscriptBox["x", "4"]}], "+", 
    RowBox[{"3", " ", 
     SuperscriptBox["a", "10"], " ", 
     SuperscriptBox["x", "4"]}], "-", 
    RowBox[{"4", " ", 
     SuperscriptBox["a", "6"], " ", 
     SuperscriptBox["x", "5"]}], "-", 
    RowBox[{
     SuperscriptBox["a", "7"], " ", 
     SuperscriptBox["x", "5"]}], "-", 
    RowBox[{"18", " ", 
     SuperscriptBox["a", "8"], " ", 
     SuperscriptBox["x", "5"]}], "-", 
    RowBox[{"12", " ", 
     SuperscriptBox["a", "9"], " ", 
     SuperscriptBox["x", "5"]}], "-", 
    RowBox[{"12", " ", 
     SuperscriptBox["a", "10"], " ", 
     SuperscriptBox["x", "5"]}], "-", 
    RowBox[{"3", " ", 
     SuperscriptBox["a", "11"], " ", 
     SuperscriptBox["x", "5"]}], "+", 
    RowBox[{
     SuperscriptBox["a", "6"], " ", 
     SuperscriptBox["x", "6"]}], "+", 
    RowBox[{"10", " ", 
     SuperscriptBox["a", "8"], " ", 
     SuperscriptBox["x", "6"]}], "+", 
    RowBox[{"17", " ", 
     SuperscriptBox["a", "9"], " ", 
     SuperscriptBox["x", "6"]}], "+", 
    RowBox[{"18", " ", 
     SuperscriptBox["a", "10"], " ", 
     SuperscriptBox["x", "6"]}], "+", 
    RowBox[{"15", " ", 
     SuperscriptBox["a", "11"], " ", 
     SuperscriptBox["x", "6"]}], "+", 
    RowBox[{
     SuperscriptBox["a", "12"], " ", 
     SuperscriptBox["x", "6"]}], "-", 
    RowBox[{"2", " ", 
     SuperscriptBox["a", "8"], " ", 
     SuperscriptBox["x", "7"]}], "-", 
    RowBox[{"14", " ", 
     SuperscriptBox["a", "9"], " ", 
     SuperscriptBox["x", "7"]}], "-", 
    RowBox[{"12", " ", 
     SuperscriptBox["a", "10"], " ", 
     SuperscriptBox["x", "7"]}], "-", 
    RowBox[{"30", " ", 
     SuperscriptBox["a", "11"], " ", 
     SuperscriptBox["x", "7"]}], "-", 
    RowBox[{"6", " ", 
     SuperscriptBox["a", "12"], " ", 
     SuperscriptBox["x", "7"]}], "+", 
    RowBox[{"6", " ", 
     SuperscriptBox["a", "9"], " ", 
     SuperscriptBox["x", "8"]}], "+", 
    RowBox[{"3", " ", 
     SuperscriptBox["a", "10"], " ", 
     SuperscriptBox["x", "8"]}], "+", 
    RowBox[{"30", " ", 
     SuperscriptBox["a", "11"], " ", 
     SuperscriptBox["x", "8"]}], "+", 
    RowBox[{"15", " ", 
     SuperscriptBox["a", "12"], " ", 
     SuperscriptBox["x", "8"]}], "-", 
    RowBox[{
     SuperscriptBox["a", "9"], " ", 
     SuperscriptBox["x", "9"]}], "-", 
    RowBox[{"15", " ", 
     SuperscriptBox["a", "11"], " ", 
     SuperscriptBox["x", "9"]}], "-", 
    RowBox[{"20", " ", 
     SuperscriptBox["a", "12"], " ", 
     SuperscriptBox["x", "9"]}], "+", 
    RowBox[{"3", " ", 
     SuperscriptBox["a", "11"], " ", 
     SuperscriptBox["x", "10"]}], "+", 
    RowBox[{"15", " ", 
     SuperscriptBox["a", "12"], " ", 
     SuperscriptBox["x", "10"]}], "-", 
    RowBox[{"6", " ", 
     SuperscriptBox["a", "12"], " ", 
     SuperscriptBox["x", "11"]}], "+", 
    RowBox[{
     SuperscriptBox["a", "12"], " ", 
     SuperscriptBox["x", "12"]}]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.6664496456078987`*^9, 3.6664612842395625`*^9, {3.666461371744845*^9, 
   3.6664613822049956`*^9}, 
   3.6671984753684316`*^9},ExpressionUUID->"640c1271-5f13-476f-b441-\
967e53aca81d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fixed4", "=", 
  RowBox[{
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{"x", "\[Equal]", 
      RowBox[{"H", "[", "x", "]"}]}], ",", "x"}], "]"}], "//", 
   "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.6664460573676634`*^9, 3.666446061524901*^9}, {
   3.6664461667489195`*^9, 3.6664461686250267`*^9}, {3.666448722706112*^9, 
   3.6664487278064036`*^9}, 3.6664488185005913`*^9, 3.6664488720796556`*^9, 
   3.666461387231162*^9},ExpressionUUID->"dc00dcac-41eb-4169-ae30-\
ec6ea02b8d35"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     FractionBox[
      RowBox[{
       RowBox[{"-", "1"}], "+", "a"}], "a"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     FractionBox[
      RowBox[{"1", "+", "a", "-", 
       SqrtBox[
        RowBox[{
         RowBox[{"-", "3"}], "-", 
         RowBox[{"2", " ", "a"}], "+", 
         SuperscriptBox["a", "2"]}]]}], 
      RowBox[{"2", " ", "a"}]]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     FractionBox[
      RowBox[{"1", "+", "a", "+", 
       SqrtBox[
        RowBox[{
         RowBox[{"-", "3"}], "-", 
         RowBox[{"2", " ", "a"}], "+", 
         SuperscriptBox["a", "2"]}]]}], 
      RowBox[{"2", " ", "a"}]]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"Root", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"1", "+", 
         SuperscriptBox["a", "2"], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "2"]}], "-", 
            SuperscriptBox["a", "3"], "-", 
            SuperscriptBox["a", "4"], "-", 
            SuperscriptBox["a", "5"]}], ")"}], " ", "#1"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             SuperscriptBox["a", "3"]}], "+", 
            SuperscriptBox["a", "4"], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["a", "5"]}], "+", 
            SuperscriptBox["a", "6"], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["a", "7"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "2"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "3"]}], "-", 
            RowBox[{"5", " ", 
             SuperscriptBox["a", "5"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["a", "6"]}], "-", 
            RowBox[{"5", " ", 
             SuperscriptBox["a", "7"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["a", "8"]}], "-", 
            SuperscriptBox["a", "9"]}], ")"}], " ", 
          SuperscriptBox["#1", "3"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             SuperscriptBox["a", "5"]}], "+", 
            RowBox[{"6", " ", 
             SuperscriptBox["a", "6"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["a", "7"]}], "+", 
            RowBox[{"14", " ", 
             SuperscriptBox["a", "8"]}], "+", 
            RowBox[{"5", " ", 
             SuperscriptBox["a", "9"]}], "+", 
            RowBox[{"3", " ", 
             SuperscriptBox["a", "10"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "4"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "4"}], " ", 
             SuperscriptBox["a", "6"]}], "-", 
            SuperscriptBox["a", "7"], "-", 
            RowBox[{"18", " ", 
             SuperscriptBox["a", "8"]}], "-", 
            RowBox[{"12", " ", 
             SuperscriptBox["a", "9"]}], "-", 
            RowBox[{"12", " ", 
             SuperscriptBox["a", "10"]}], "-", 
            RowBox[{"3", " ", 
             SuperscriptBox["a", "11"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "5"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["a", "6"], "+", 
            RowBox[{"10", " ", 
             SuperscriptBox["a", "8"]}], "+", 
            RowBox[{"17", " ", 
             SuperscriptBox["a", "9"]}], "+", 
            RowBox[{"18", " ", 
             SuperscriptBox["a", "10"]}], "+", 
            RowBox[{"15", " ", 
             SuperscriptBox["a", "11"]}], "+", 
            SuperscriptBox["a", "12"]}], ")"}], " ", 
          SuperscriptBox["#1", "6"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "2"}], " ", 
             SuperscriptBox["a", "8"]}], "-", 
            RowBox[{"14", " ", 
             SuperscriptBox["a", "9"]}], "-", 
            RowBox[{"12", " ", 
             SuperscriptBox["a", "10"]}], "-", 
            RowBox[{"30", " ", 
             SuperscriptBox["a", "11"]}], "-", 
            RowBox[{"6", " ", 
             SuperscriptBox["a", "12"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "7"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"6", " ", 
             SuperscriptBox["a", "9"]}], "+", 
            RowBox[{"3", " ", 
             SuperscriptBox["a", "10"]}], "+", 
            RowBox[{"30", " ", 
             SuperscriptBox["a", "11"]}], "+", 
            RowBox[{"15", " ", 
             SuperscriptBox["a", "12"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "8"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "9"]}], "-", 
            RowBox[{"15", " ", 
             SuperscriptBox["a", "11"]}], "-", 
            RowBox[{"20", " ", 
             SuperscriptBox["a", "12"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "9"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"3", " ", 
             SuperscriptBox["a", "11"]}], "+", 
            RowBox[{"15", " ", 
             SuperscriptBox["a", "12"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "10"]}], "-", 
         RowBox[{"6", " ", 
          SuperscriptBox["a", "12"], " ", 
          SuperscriptBox["#1", "11"]}], "+", 
         RowBox[{
          SuperscriptBox["a", "12"], " ", 
          SuperscriptBox["#1", "12"]}]}], "&"}], ",", "1"}], "]"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"Root", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"1", "+", 
         SuperscriptBox["a", "2"], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "2"]}], "-", 
            SuperscriptBox["a", "3"], "-", 
            SuperscriptBox["a", "4"], "-", 
            SuperscriptBox["a", "5"]}], ")"}], " ", "#1"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             SuperscriptBox["a", "3"]}], "+", 
            SuperscriptBox["a", "4"], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["a", "5"]}], "+", 
            SuperscriptBox["a", "6"], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["a", "7"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "2"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "3"]}], "-", 
            RowBox[{"5", " ", 
             SuperscriptBox["a", "5"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["a", "6"]}], "-", 
            RowBox[{"5", " ", 
             SuperscriptBox["a", "7"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["a", "8"]}], "-", 
            SuperscriptBox["a", "9"]}], ")"}], " ", 
          SuperscriptBox["#1", "3"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             SuperscriptBox["a", "5"]}], "+", 
            RowBox[{"6", " ", 
             SuperscriptBox["a", "6"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["a", "7"]}], "+", 
            RowBox[{"14", " ", 
             SuperscriptBox["a", "8"]}], "+", 
            RowBox[{"5", " ", 
             SuperscriptBox["a", "9"]}], "+", 
            RowBox[{"3", " ", 
             SuperscriptBox["a", "10"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "4"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "4"}], " ", 
             SuperscriptBox["a", "6"]}], "-", 
            SuperscriptBox["a", "7"], "-", 
            RowBox[{"18", " ", 
             SuperscriptBox["a", "8"]}], "-", 
            RowBox[{"12", " ", 
             SuperscriptBox["a", "9"]}], "-", 
            RowBox[{"12", " ", 
             SuperscriptBox["a", "10"]}], "-", 
            RowBox[{"3", " ", 
             SuperscriptBox["a", "11"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "5"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["a", "6"], "+", 
            RowBox[{"10", " ", 
             SuperscriptBox["a", "8"]}], "+", 
            RowBox[{"17", " ", 
             SuperscriptBox["a", "9"]}], "+", 
            RowBox[{"18", " ", 
             SuperscriptBox["a", "10"]}], "+", 
            RowBox[{"15", " ", 
             SuperscriptBox["a", "11"]}], "+", 
            SuperscriptBox["a", "12"]}], ")"}], " ", 
          SuperscriptBox["#1", "6"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "2"}], " ", 
             SuperscriptBox["a", "8"]}], "-", 
            RowBox[{"14", " ", 
             SuperscriptBox["a", "9"]}], "-", 
            RowBox[{"12", " ", 
             SuperscriptBox["a", "10"]}], "-", 
            RowBox[{"30", " ", 
             SuperscriptBox["a", "11"]}], "-", 
            RowBox[{"6", " ", 
             SuperscriptBox["a", "12"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "7"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"6", " ", 
             SuperscriptBox["a", "9"]}], "+", 
            RowBox[{"3", " ", 
             SuperscriptBox["a", "10"]}], "+", 
            RowBox[{"30", " ", 
             SuperscriptBox["a", "11"]}], "+", 
            RowBox[{"15", " ", 
             SuperscriptBox["a", "12"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "8"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "9"]}], "-", 
            RowBox[{"15", " ", 
             SuperscriptBox["a", "11"]}], "-", 
            RowBox[{"20", " ", 
             SuperscriptBox["a", "12"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "9"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"3", " ", 
             SuperscriptBox["a", "11"]}], "+", 
            RowBox[{"15", " ", 
             SuperscriptBox["a", "12"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "10"]}], "-", 
         RowBox[{"6", " ", 
          SuperscriptBox["a", "12"], " ", 
          SuperscriptBox["#1", "11"]}], "+", 
         RowBox[{
          SuperscriptBox["a", "12"], " ", 
          SuperscriptBox["#1", "12"]}]}], "&"}], ",", "2"}], "]"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"Root", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"1", "+", 
         SuperscriptBox["a", "2"], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "2"]}], "-", 
            SuperscriptBox["a", "3"], "-", 
            SuperscriptBox["a", "4"], "-", 
            SuperscriptBox["a", "5"]}], ")"}], " ", "#1"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             SuperscriptBox["a", "3"]}], "+", 
            SuperscriptBox["a", "4"], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["a", "5"]}], "+", 
            SuperscriptBox["a", "6"], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["a", "7"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "2"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "3"]}], "-", 
            RowBox[{"5", " ", 
             SuperscriptBox["a", "5"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["a", "6"]}], "-", 
            RowBox[{"5", " ", 
             SuperscriptBox["a", "7"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["a", "8"]}], "-", 
            SuperscriptBox["a", "9"]}], ")"}], " ", 
          SuperscriptBox["#1", "3"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             SuperscriptBox["a", "5"]}], "+", 
            RowBox[{"6", " ", 
             SuperscriptBox["a", "6"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["a", "7"]}], "+", 
            RowBox[{"14", " ", 
             SuperscriptBox["a", "8"]}], "+", 
            RowBox[{"5", " ", 
             SuperscriptBox["a", "9"]}], "+", 
            RowBox[{"3", " ", 
             SuperscriptBox["a", "10"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "4"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "4"}], " ", 
             SuperscriptBox["a", "6"]}], "-", 
            SuperscriptBox["a", "7"], "-", 
            RowBox[{"18", " ", 
             SuperscriptBox["a", "8"]}], "-", 
            RowBox[{"12", " ", 
             SuperscriptBox["a", "9"]}], "-", 
            RowBox[{"12", " ", 
             SuperscriptBox["a", "10"]}], "-", 
            RowBox[{"3", " ", 
             SuperscriptBox["a", "11"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "5"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["a", "6"], "+", 
            RowBox[{"10", " ", 
             SuperscriptBox["a", "8"]}], "+", 
            RowBox[{"17", " ", 
             SuperscriptBox["a", "9"]}], "+", 
            RowBox[{"18", " ", 
             SuperscriptBox["a", "10"]}], "+", 
            RowBox[{"15", " ", 
             SuperscriptBox["a", "11"]}], "+", 
            SuperscriptBox["a", "12"]}], ")"}], " ", 
          SuperscriptBox["#1", "6"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "2"}], " ", 
             SuperscriptBox["a", "8"]}], "-", 
            RowBox[{"14", " ", 
             SuperscriptBox["a", "9"]}], "-", 
            RowBox[{"12", " ", 
             SuperscriptBox["a", "10"]}], "-", 
            RowBox[{"30", " ", 
             SuperscriptBox["a", "11"]}], "-", 
            RowBox[{"6", " ", 
             SuperscriptBox["a", "12"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "7"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"6", " ", 
             SuperscriptBox["a", "9"]}], "+", 
            RowBox[{"3", " ", 
             SuperscriptBox["a", "10"]}], "+", 
            RowBox[{"30", " ", 
             SuperscriptBox["a", "11"]}], "+", 
            RowBox[{"15", " ", 
             SuperscriptBox["a", "12"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "8"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "9"]}], "-", 
            RowBox[{"15", " ", 
             SuperscriptBox["a", "11"]}], "-", 
            RowBox[{"20", " ", 
             SuperscriptBox["a", "12"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "9"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"3", " ", 
             SuperscriptBox["a", "11"]}], "+", 
            RowBox[{"15", " ", 
             SuperscriptBox["a", "12"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "10"]}], "-", 
         RowBox[{"6", " ", 
          SuperscriptBox["a", "12"], " ", 
          SuperscriptBox["#1", "11"]}], "+", 
         RowBox[{
          SuperscriptBox["a", "12"], " ", 
          SuperscriptBox["#1", "12"]}]}], "&"}], ",", "3"}], "]"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"Root", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"1", "+", 
         SuperscriptBox["a", "2"], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "2"]}], "-", 
            SuperscriptBox["a", "3"], "-", 
            SuperscriptBox["a", "4"], "-", 
            SuperscriptBox["a", "5"]}], ")"}], " ", "#1"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             SuperscriptBox["a", "3"]}], "+", 
            SuperscriptBox["a", "4"], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["a", "5"]}], "+", 
            SuperscriptBox["a", "6"], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["a", "7"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "2"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "3"]}], "-", 
            RowBox[{"5", " ", 
             SuperscriptBox["a", "5"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["a", "6"]}], "-", 
            RowBox[{"5", " ", 
             SuperscriptBox["a", "7"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["a", "8"]}], "-", 
            SuperscriptBox["a", "9"]}], ")"}], " ", 
          SuperscriptBox["#1", "3"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             SuperscriptBox["a", "5"]}], "+", 
            RowBox[{"6", " ", 
             SuperscriptBox["a", "6"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["a", "7"]}], "+", 
            RowBox[{"14", " ", 
             SuperscriptBox["a", "8"]}], "+", 
            RowBox[{"5", " ", 
             SuperscriptBox["a", "9"]}], "+", 
            RowBox[{"3", " ", 
             SuperscriptBox["a", "10"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "4"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "4"}], " ", 
             SuperscriptBox["a", "6"]}], "-", 
            SuperscriptBox["a", "7"], "-", 
            RowBox[{"18", " ", 
             SuperscriptBox["a", "8"]}], "-", 
            RowBox[{"12", " ", 
             SuperscriptBox["a", "9"]}], "-", 
            RowBox[{"12", " ", 
             SuperscriptBox["a", "10"]}], "-", 
            RowBox[{"3", " ", 
             SuperscriptBox["a", "11"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "5"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["a", "6"], "+", 
            RowBox[{"10", " ", 
             SuperscriptBox["a", "8"]}], "+", 
            RowBox[{"17", " ", 
             SuperscriptBox["a", "9"]}], "+", 
            RowBox[{"18", " ", 
             SuperscriptBox["a", "10"]}], "+", 
            RowBox[{"15", " ", 
             SuperscriptBox["a", "11"]}], "+", 
            SuperscriptBox["a", "12"]}], ")"}], " ", 
          SuperscriptBox["#1", "6"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "2"}], " ", 
             SuperscriptBox["a", "8"]}], "-", 
            RowBox[{"14", " ", 
             SuperscriptBox["a", "9"]}], "-", 
            RowBox[{"12", " ", 
             SuperscriptBox["a", "10"]}], "-", 
            RowBox[{"30", " ", 
             SuperscriptBox["a", "11"]}], "-", 
            RowBox[{"6", " ", 
             SuperscriptBox["a", "12"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "7"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"6", " ", 
             SuperscriptBox["a", "9"]}], "+", 
            RowBox[{"3", " ", 
             SuperscriptBox["a", "10"]}], "+", 
            RowBox[{"30", " ", 
             SuperscriptBox["a", "11"]}], "+", 
            RowBox[{"15", " ", 
             SuperscriptBox["a", "12"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "8"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "9"]}], "-", 
            RowBox[{"15", " ", 
             SuperscriptBox["a", "11"]}], "-", 
            RowBox[{"20", " ", 
             SuperscriptBox["a", "12"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "9"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"3", " ", 
             SuperscriptBox["a", "11"]}], "+", 
            RowBox[{"15", " ", 
             SuperscriptBox["a", "12"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "10"]}], "-", 
         RowBox[{"6", " ", 
          SuperscriptBox["a", "12"], " ", 
          SuperscriptBox["#1", "11"]}], "+", 
         RowBox[{
          SuperscriptBox["a", "12"], " ", 
          SuperscriptBox["#1", "12"]}]}], "&"}], ",", "4"}], "]"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"Root", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"1", "+", 
         SuperscriptBox["a", "2"], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "2"]}], "-", 
            SuperscriptBox["a", "3"], "-", 
            SuperscriptBox["a", "4"], "-", 
            SuperscriptBox["a", "5"]}], ")"}], " ", "#1"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             SuperscriptBox["a", "3"]}], "+", 
            SuperscriptBox["a", "4"], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["a", "5"]}], "+", 
            SuperscriptBox["a", "6"], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["a", "7"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "2"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "3"]}], "-", 
            RowBox[{"5", " ", 
             SuperscriptBox["a", "5"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["a", "6"]}], "-", 
            RowBox[{"5", " ", 
             SuperscriptBox["a", "7"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["a", "8"]}], "-", 
            SuperscriptBox["a", "9"]}], ")"}], " ", 
          SuperscriptBox["#1", "3"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             SuperscriptBox["a", "5"]}], "+", 
            RowBox[{"6", " ", 
             SuperscriptBox["a", "6"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["a", "7"]}], "+", 
            RowBox[{"14", " ", 
             SuperscriptBox["a", "8"]}], "+", 
            RowBox[{"5", " ", 
             SuperscriptBox["a", "9"]}], "+", 
            RowBox[{"3", " ", 
             SuperscriptBox["a", "10"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "4"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "4"}], " ", 
             SuperscriptBox["a", "6"]}], "-", 
            SuperscriptBox["a", "7"], "-", 
            RowBox[{"18", " ", 
             SuperscriptBox["a", "8"]}], "-", 
            RowBox[{"12", " ", 
             SuperscriptBox["a", "9"]}], "-", 
            RowBox[{"12", " ", 
             SuperscriptBox["a", "10"]}], "-", 
            RowBox[{"3", " ", 
             SuperscriptBox["a", "11"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "5"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["a", "6"], "+", 
            RowBox[{"10", " ", 
             SuperscriptBox["a", "8"]}], "+", 
            RowBox[{"17", " ", 
             SuperscriptBox["a", "9"]}], "+", 
            RowBox[{"18", " ", 
             SuperscriptBox["a", "10"]}], "+", 
            RowBox[{"15", " ", 
             SuperscriptBox["a", "11"]}], "+", 
            SuperscriptBox["a", "12"]}], ")"}], " ", 
          SuperscriptBox["#1", "6"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "2"}], " ", 
             SuperscriptBox["a", "8"]}], "-", 
            RowBox[{"14", " ", 
             SuperscriptBox["a", "9"]}], "-", 
            RowBox[{"12", " ", 
             SuperscriptBox["a", "10"]}], "-", 
            RowBox[{"30", " ", 
             SuperscriptBox["a", "11"]}], "-", 
            RowBox[{"6", " ", 
             SuperscriptBox["a", "12"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "7"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"6", " ", 
             SuperscriptBox["a", "9"]}], "+", 
            RowBox[{"3", " ", 
             SuperscriptBox["a", "10"]}], "+", 
            RowBox[{"30", " ", 
             SuperscriptBox["a", "11"]}], "+", 
            RowBox[{"15", " ", 
             SuperscriptBox["a", "12"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "8"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "9"]}], "-", 
            RowBox[{"15", " ", 
             SuperscriptBox["a", "11"]}], "-", 
            RowBox[{"20", " ", 
             SuperscriptBox["a", "12"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "9"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"3", " ", 
             SuperscriptBox["a", "11"]}], "+", 
            RowBox[{"15", " ", 
             SuperscriptBox["a", "12"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "10"]}], "-", 
         RowBox[{"6", " ", 
          SuperscriptBox["a", "12"], " ", 
          SuperscriptBox["#1", "11"]}], "+", 
         RowBox[{
          SuperscriptBox["a", "12"], " ", 
          SuperscriptBox["#1", "12"]}]}], "&"}], ",", "5"}], "]"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"Root", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"1", "+", 
         SuperscriptBox["a", "2"], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "2"]}], "-", 
            SuperscriptBox["a", "3"], "-", 
            SuperscriptBox["a", "4"], "-", 
            SuperscriptBox["a", "5"]}], ")"}], " ", "#1"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             SuperscriptBox["a", "3"]}], "+", 
            SuperscriptBox["a", "4"], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["a", "5"]}], "+", 
            SuperscriptBox["a", "6"], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["a", "7"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "2"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "3"]}], "-", 
            RowBox[{"5", " ", 
             SuperscriptBox["a", "5"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["a", "6"]}], "-", 
            RowBox[{"5", " ", 
             SuperscriptBox["a", "7"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["a", "8"]}], "-", 
            SuperscriptBox["a", "9"]}], ")"}], " ", 
          SuperscriptBox["#1", "3"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             SuperscriptBox["a", "5"]}], "+", 
            RowBox[{"6", " ", 
             SuperscriptBox["a", "6"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["a", "7"]}], "+", 
            RowBox[{"14", " ", 
             SuperscriptBox["a", "8"]}], "+", 
            RowBox[{"5", " ", 
             SuperscriptBox["a", "9"]}], "+", 
            RowBox[{"3", " ", 
             SuperscriptBox["a", "10"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "4"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "4"}], " ", 
             SuperscriptBox["a", "6"]}], "-", 
            SuperscriptBox["a", "7"], "-", 
            RowBox[{"18", " ", 
             SuperscriptBox["a", "8"]}], "-", 
            RowBox[{"12", " ", 
             SuperscriptBox["a", "9"]}], "-", 
            RowBox[{"12", " ", 
             SuperscriptBox["a", "10"]}], "-", 
            RowBox[{"3", " ", 
             SuperscriptBox["a", "11"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "5"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["a", "6"], "+", 
            RowBox[{"10", " ", 
             SuperscriptBox["a", "8"]}], "+", 
            RowBox[{"17", " ", 
             SuperscriptBox["a", "9"]}], "+", 
            RowBox[{"18", " ", 
             SuperscriptBox["a", "10"]}], "+", 
            RowBox[{"15", " ", 
             SuperscriptBox["a", "11"]}], "+", 
            SuperscriptBox["a", "12"]}], ")"}], " ", 
          SuperscriptBox["#1", "6"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "2"}], " ", 
             SuperscriptBox["a", "8"]}], "-", 
            RowBox[{"14", " ", 
             SuperscriptBox["a", "9"]}], "-", 
            RowBox[{"12", " ", 
             SuperscriptBox["a", "10"]}], "-", 
            RowBox[{"30", " ", 
             SuperscriptBox["a", "11"]}], "-", 
            RowBox[{"6", " ", 
             SuperscriptBox["a", "12"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "7"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"6", " ", 
             SuperscriptBox["a", "9"]}], "+", 
            RowBox[{"3", " ", 
             SuperscriptBox["a", "10"]}], "+", 
            RowBox[{"30", " ", 
             SuperscriptBox["a", "11"]}], "+", 
            RowBox[{"15", " ", 
             SuperscriptBox["a", "12"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "8"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "9"]}], "-", 
            RowBox[{"15", " ", 
             SuperscriptBox["a", "11"]}], "-", 
            RowBox[{"20", " ", 
             SuperscriptBox["a", "12"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "9"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"3", " ", 
             SuperscriptBox["a", "11"]}], "+", 
            RowBox[{"15", " ", 
             SuperscriptBox["a", "12"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "10"]}], "-", 
         RowBox[{"6", " ", 
          SuperscriptBox["a", "12"], " ", 
          SuperscriptBox["#1", "11"]}], "+", 
         RowBox[{
          SuperscriptBox["a", "12"], " ", 
          SuperscriptBox["#1", "12"]}]}], "&"}], ",", "6"}], "]"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"Root", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"1", "+", 
         SuperscriptBox["a", "2"], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "2"]}], "-", 
            SuperscriptBox["a", "3"], "-", 
            SuperscriptBox["a", "4"], "-", 
            SuperscriptBox["a", "5"]}], ")"}], " ", "#1"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             SuperscriptBox["a", "3"]}], "+", 
            SuperscriptBox["a", "4"], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["a", "5"]}], "+", 
            SuperscriptBox["a", "6"], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["a", "7"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "2"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "3"]}], "-", 
            RowBox[{"5", " ", 
             SuperscriptBox["a", "5"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["a", "6"]}], "-", 
            RowBox[{"5", " ", 
             SuperscriptBox["a", "7"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["a", "8"]}], "-", 
            SuperscriptBox["a", "9"]}], ")"}], " ", 
          SuperscriptBox["#1", "3"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             SuperscriptBox["a", "5"]}], "+", 
            RowBox[{"6", " ", 
             SuperscriptBox["a", "6"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["a", "7"]}], "+", 
            RowBox[{"14", " ", 
             SuperscriptBox["a", "8"]}], "+", 
            RowBox[{"5", " ", 
             SuperscriptBox["a", "9"]}], "+", 
            RowBox[{"3", " ", 
             SuperscriptBox["a", "10"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "4"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "4"}], " ", 
             SuperscriptBox["a", "6"]}], "-", 
            SuperscriptBox["a", "7"], "-", 
            RowBox[{"18", " ", 
             SuperscriptBox["a", "8"]}], "-", 
            RowBox[{"12", " ", 
             SuperscriptBox["a", "9"]}], "-", 
            RowBox[{"12", " ", 
             SuperscriptBox["a", "10"]}], "-", 
            RowBox[{"3", " ", 
             SuperscriptBox["a", "11"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "5"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["a", "6"], "+", 
            RowBox[{"10", " ", 
             SuperscriptBox["a", "8"]}], "+", 
            RowBox[{"17", " ", 
             SuperscriptBox["a", "9"]}], "+", 
            RowBox[{"18", " ", 
             SuperscriptBox["a", "10"]}], "+", 
            RowBox[{"15", " ", 
             SuperscriptBox["a", "11"]}], "+", 
            SuperscriptBox["a", "12"]}], ")"}], " ", 
          SuperscriptBox["#1", "6"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "2"}], " ", 
             SuperscriptBox["a", "8"]}], "-", 
            RowBox[{"14", " ", 
             SuperscriptBox["a", "9"]}], "-", 
            RowBox[{"12", " ", 
             SuperscriptBox["a", "10"]}], "-", 
            RowBox[{"30", " ", 
             SuperscriptBox["a", "11"]}], "-", 
            RowBox[{"6", " ", 
             SuperscriptBox["a", "12"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "7"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"6", " ", 
             SuperscriptBox["a", "9"]}], "+", 
            RowBox[{"3", " ", 
             SuperscriptBox["a", "10"]}], "+", 
            RowBox[{"30", " ", 
             SuperscriptBox["a", "11"]}], "+", 
            RowBox[{"15", " ", 
             SuperscriptBox["a", "12"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "8"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "9"]}], "-", 
            RowBox[{"15", " ", 
             SuperscriptBox["a", "11"]}], "-", 
            RowBox[{"20", " ", 
             SuperscriptBox["a", "12"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "9"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"3", " ", 
             SuperscriptBox["a", "11"]}], "+", 
            RowBox[{"15", " ", 
             SuperscriptBox["a", "12"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "10"]}], "-", 
         RowBox[{"6", " ", 
          SuperscriptBox["a", "12"], " ", 
          SuperscriptBox["#1", "11"]}], "+", 
         RowBox[{
          SuperscriptBox["a", "12"], " ", 
          SuperscriptBox["#1", "12"]}]}], "&"}], ",", "7"}], "]"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"Root", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"1", "+", 
         SuperscriptBox["a", "2"], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "2"]}], "-", 
            SuperscriptBox["a", "3"], "-", 
            SuperscriptBox["a", "4"], "-", 
            SuperscriptBox["a", "5"]}], ")"}], " ", "#1"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             SuperscriptBox["a", "3"]}], "+", 
            SuperscriptBox["a", "4"], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["a", "5"]}], "+", 
            SuperscriptBox["a", "6"], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["a", "7"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "2"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "3"]}], "-", 
            RowBox[{"5", " ", 
             SuperscriptBox["a", "5"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["a", "6"]}], "-", 
            RowBox[{"5", " ", 
             SuperscriptBox["a", "7"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["a", "8"]}], "-", 
            SuperscriptBox["a", "9"]}], ")"}], " ", 
          SuperscriptBox["#1", "3"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             SuperscriptBox["a", "5"]}], "+", 
            RowBox[{"6", " ", 
             SuperscriptBox["a", "6"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["a", "7"]}], "+", 
            RowBox[{"14", " ", 
             SuperscriptBox["a", "8"]}], "+", 
            RowBox[{"5", " ", 
             SuperscriptBox["a", "9"]}], "+", 
            RowBox[{"3", " ", 
             SuperscriptBox["a", "10"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "4"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "4"}], " ", 
             SuperscriptBox["a", "6"]}], "-", 
            SuperscriptBox["a", "7"], "-", 
            RowBox[{"18", " ", 
             SuperscriptBox["a", "8"]}], "-", 
            RowBox[{"12", " ", 
             SuperscriptBox["a", "9"]}], "-", 
            RowBox[{"12", " ", 
             SuperscriptBox["a", "10"]}], "-", 
            RowBox[{"3", " ", 
             SuperscriptBox["a", "11"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "5"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["a", "6"], "+", 
            RowBox[{"10", " ", 
             SuperscriptBox["a", "8"]}], "+", 
            RowBox[{"17", " ", 
             SuperscriptBox["a", "9"]}], "+", 
            RowBox[{"18", " ", 
             SuperscriptBox["a", "10"]}], "+", 
            RowBox[{"15", " ", 
             SuperscriptBox["a", "11"]}], "+", 
            SuperscriptBox["a", "12"]}], ")"}], " ", 
          SuperscriptBox["#1", "6"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "2"}], " ", 
             SuperscriptBox["a", "8"]}], "-", 
            RowBox[{"14", " ", 
             SuperscriptBox["a", "9"]}], "-", 
            RowBox[{"12", " ", 
             SuperscriptBox["a", "10"]}], "-", 
            RowBox[{"30", " ", 
             SuperscriptBox["a", "11"]}], "-", 
            RowBox[{"6", " ", 
             SuperscriptBox["a", "12"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "7"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"6", " ", 
             SuperscriptBox["a", "9"]}], "+", 
            RowBox[{"3", " ", 
             SuperscriptBox["a", "10"]}], "+", 
            RowBox[{"30", " ", 
             SuperscriptBox["a", "11"]}], "+", 
            RowBox[{"15", " ", 
             SuperscriptBox["a", "12"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "8"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "9"]}], "-", 
            RowBox[{"15", " ", 
             SuperscriptBox["a", "11"]}], "-", 
            RowBox[{"20", " ", 
             SuperscriptBox["a", "12"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "9"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"3", " ", 
             SuperscriptBox["a", "11"]}], "+", 
            RowBox[{"15", " ", 
             SuperscriptBox["a", "12"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "10"]}], "-", 
         RowBox[{"6", " ", 
          SuperscriptBox["a", "12"], " ", 
          SuperscriptBox["#1", "11"]}], "+", 
         RowBox[{
          SuperscriptBox["a", "12"], " ", 
          SuperscriptBox["#1", "12"]}]}], "&"}], ",", "8"}], "]"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"Root", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"1", "+", 
         SuperscriptBox["a", "2"], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "2"]}], "-", 
            SuperscriptBox["a", "3"], "-", 
            SuperscriptBox["a", "4"], "-", 
            SuperscriptBox["a", "5"]}], ")"}], " ", "#1"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             SuperscriptBox["a", "3"]}], "+", 
            SuperscriptBox["a", "4"], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["a", "5"]}], "+", 
            SuperscriptBox["a", "6"], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["a", "7"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "2"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "3"]}], "-", 
            RowBox[{"5", " ", 
             SuperscriptBox["a", "5"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["a", "6"]}], "-", 
            RowBox[{"5", " ", 
             SuperscriptBox["a", "7"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["a", "8"]}], "-", 
            SuperscriptBox["a", "9"]}], ")"}], " ", 
          SuperscriptBox["#1", "3"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             SuperscriptBox["a", "5"]}], "+", 
            RowBox[{"6", " ", 
             SuperscriptBox["a", "6"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["a", "7"]}], "+", 
            RowBox[{"14", " ", 
             SuperscriptBox["a", "8"]}], "+", 
            RowBox[{"5", " ", 
             SuperscriptBox["a", "9"]}], "+", 
            RowBox[{"3", " ", 
             SuperscriptBox["a", "10"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "4"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "4"}], " ", 
             SuperscriptBox["a", "6"]}], "-", 
            SuperscriptBox["a", "7"], "-", 
            RowBox[{"18", " ", 
             SuperscriptBox["a", "8"]}], "-", 
            RowBox[{"12", " ", 
             SuperscriptBox["a", "9"]}], "-", 
            RowBox[{"12", " ", 
             SuperscriptBox["a", "10"]}], "-", 
            RowBox[{"3", " ", 
             SuperscriptBox["a", "11"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "5"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["a", "6"], "+", 
            RowBox[{"10", " ", 
             SuperscriptBox["a", "8"]}], "+", 
            RowBox[{"17", " ", 
             SuperscriptBox["a", "9"]}], "+", 
            RowBox[{"18", " ", 
             SuperscriptBox["a", "10"]}], "+", 
            RowBox[{"15", " ", 
             SuperscriptBox["a", "11"]}], "+", 
            SuperscriptBox["a", "12"]}], ")"}], " ", 
          SuperscriptBox["#1", "6"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "2"}], " ", 
             SuperscriptBox["a", "8"]}], "-", 
            RowBox[{"14", " ", 
             SuperscriptBox["a", "9"]}], "-", 
            RowBox[{"12", " ", 
             SuperscriptBox["a", "10"]}], "-", 
            RowBox[{"30", " ", 
             SuperscriptBox["a", "11"]}], "-", 
            RowBox[{"6", " ", 
             SuperscriptBox["a", "12"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "7"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"6", " ", 
             SuperscriptBox["a", "9"]}], "+", 
            RowBox[{"3", " ", 
             SuperscriptBox["a", "10"]}], "+", 
            RowBox[{"30", " ", 
             SuperscriptBox["a", "11"]}], "+", 
            RowBox[{"15", " ", 
             SuperscriptBox["a", "12"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "8"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "9"]}], "-", 
            RowBox[{"15", " ", 
             SuperscriptBox["a", "11"]}], "-", 
            RowBox[{"20", " ", 
             SuperscriptBox["a", "12"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "9"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"3", " ", 
             SuperscriptBox["a", "11"]}], "+", 
            RowBox[{"15", " ", 
             SuperscriptBox["a", "12"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "10"]}], "-", 
         RowBox[{"6", " ", 
          SuperscriptBox["a", "12"], " ", 
          SuperscriptBox["#1", "11"]}], "+", 
         RowBox[{
          SuperscriptBox["a", "12"], " ", 
          SuperscriptBox["#1", "12"]}]}], "&"}], ",", "9"}], "]"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"Root", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"1", "+", 
         SuperscriptBox["a", "2"], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "2"]}], "-", 
            SuperscriptBox["a", "3"], "-", 
            SuperscriptBox["a", "4"], "-", 
            SuperscriptBox["a", "5"]}], ")"}], " ", "#1"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             SuperscriptBox["a", "3"]}], "+", 
            SuperscriptBox["a", "4"], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["a", "5"]}], "+", 
            SuperscriptBox["a", "6"], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["a", "7"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "2"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "3"]}], "-", 
            RowBox[{"5", " ", 
             SuperscriptBox["a", "5"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["a", "6"]}], "-", 
            RowBox[{"5", " ", 
             SuperscriptBox["a", "7"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["a", "8"]}], "-", 
            SuperscriptBox["a", "9"]}], ")"}], " ", 
          SuperscriptBox["#1", "3"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             SuperscriptBox["a", "5"]}], "+", 
            RowBox[{"6", " ", 
             SuperscriptBox["a", "6"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["a", "7"]}], "+", 
            RowBox[{"14", " ", 
             SuperscriptBox["a", "8"]}], "+", 
            RowBox[{"5", " ", 
             SuperscriptBox["a", "9"]}], "+", 
            RowBox[{"3", " ", 
             SuperscriptBox["a", "10"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "4"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "4"}], " ", 
             SuperscriptBox["a", "6"]}], "-", 
            SuperscriptBox["a", "7"], "-", 
            RowBox[{"18", " ", 
             SuperscriptBox["a", "8"]}], "-", 
            RowBox[{"12", " ", 
             SuperscriptBox["a", "9"]}], "-", 
            RowBox[{"12", " ", 
             SuperscriptBox["a", "10"]}], "-", 
            RowBox[{"3", " ", 
             SuperscriptBox["a", "11"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "5"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["a", "6"], "+", 
            RowBox[{"10", " ", 
             SuperscriptBox["a", "8"]}], "+", 
            RowBox[{"17", " ", 
             SuperscriptBox["a", "9"]}], "+", 
            RowBox[{"18", " ", 
             SuperscriptBox["a", "10"]}], "+", 
            RowBox[{"15", " ", 
             SuperscriptBox["a", "11"]}], "+", 
            SuperscriptBox["a", "12"]}], ")"}], " ", 
          SuperscriptBox["#1", "6"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "2"}], " ", 
             SuperscriptBox["a", "8"]}], "-", 
            RowBox[{"14", " ", 
             SuperscriptBox["a", "9"]}], "-", 
            RowBox[{"12", " ", 
             SuperscriptBox["a", "10"]}], "-", 
            RowBox[{"30", " ", 
             SuperscriptBox["a", "11"]}], "-", 
            RowBox[{"6", " ", 
             SuperscriptBox["a", "12"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "7"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"6", " ", 
             SuperscriptBox["a", "9"]}], "+", 
            RowBox[{"3", " ", 
             SuperscriptBox["a", "10"]}], "+", 
            RowBox[{"30", " ", 
             SuperscriptBox["a", "11"]}], "+", 
            RowBox[{"15", " ", 
             SuperscriptBox["a", "12"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "8"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "9"]}], "-", 
            RowBox[{"15", " ", 
             SuperscriptBox["a", "11"]}], "-", 
            RowBox[{"20", " ", 
             SuperscriptBox["a", "12"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "9"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"3", " ", 
             SuperscriptBox["a", "11"]}], "+", 
            RowBox[{"15", " ", 
             SuperscriptBox["a", "12"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "10"]}], "-", 
         RowBox[{"6", " ", 
          SuperscriptBox["a", "12"], " ", 
          SuperscriptBox["#1", "11"]}], "+", 
         RowBox[{
          SuperscriptBox["a", "12"], " ", 
          SuperscriptBox["#1", "12"]}]}], "&"}], ",", "10"}], "]"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"Root", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"1", "+", 
         SuperscriptBox["a", "2"], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "2"]}], "-", 
            SuperscriptBox["a", "3"], "-", 
            SuperscriptBox["a", "4"], "-", 
            SuperscriptBox["a", "5"]}], ")"}], " ", "#1"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             SuperscriptBox["a", "3"]}], "+", 
            SuperscriptBox["a", "4"], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["a", "5"]}], "+", 
            SuperscriptBox["a", "6"], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["a", "7"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "2"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "3"]}], "-", 
            RowBox[{"5", " ", 
             SuperscriptBox["a", "5"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["a", "6"]}], "-", 
            RowBox[{"5", " ", 
             SuperscriptBox["a", "7"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["a", "8"]}], "-", 
            SuperscriptBox["a", "9"]}], ")"}], " ", 
          SuperscriptBox["#1", "3"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             SuperscriptBox["a", "5"]}], "+", 
            RowBox[{"6", " ", 
             SuperscriptBox["a", "6"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["a", "7"]}], "+", 
            RowBox[{"14", " ", 
             SuperscriptBox["a", "8"]}], "+", 
            RowBox[{"5", " ", 
             SuperscriptBox["a", "9"]}], "+", 
            RowBox[{"3", " ", 
             SuperscriptBox["a", "10"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "4"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "4"}], " ", 
             SuperscriptBox["a", "6"]}], "-", 
            SuperscriptBox["a", "7"], "-", 
            RowBox[{"18", " ", 
             SuperscriptBox["a", "8"]}], "-", 
            RowBox[{"12", " ", 
             SuperscriptBox["a", "9"]}], "-", 
            RowBox[{"12", " ", 
             SuperscriptBox["a", "10"]}], "-", 
            RowBox[{"3", " ", 
             SuperscriptBox["a", "11"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "5"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["a", "6"], "+", 
            RowBox[{"10", " ", 
             SuperscriptBox["a", "8"]}], "+", 
            RowBox[{"17", " ", 
             SuperscriptBox["a", "9"]}], "+", 
            RowBox[{"18", " ", 
             SuperscriptBox["a", "10"]}], "+", 
            RowBox[{"15", " ", 
             SuperscriptBox["a", "11"]}], "+", 
            SuperscriptBox["a", "12"]}], ")"}], " ", 
          SuperscriptBox["#1", "6"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "2"}], " ", 
             SuperscriptBox["a", "8"]}], "-", 
            RowBox[{"14", " ", 
             SuperscriptBox["a", "9"]}], "-", 
            RowBox[{"12", " ", 
             SuperscriptBox["a", "10"]}], "-", 
            RowBox[{"30", " ", 
             SuperscriptBox["a", "11"]}], "-", 
            RowBox[{"6", " ", 
             SuperscriptBox["a", "12"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "7"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"6", " ", 
             SuperscriptBox["a", "9"]}], "+", 
            RowBox[{"3", " ", 
             SuperscriptBox["a", "10"]}], "+", 
            RowBox[{"30", " ", 
             SuperscriptBox["a", "11"]}], "+", 
            RowBox[{"15", " ", 
             SuperscriptBox["a", "12"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "8"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "9"]}], "-", 
            RowBox[{"15", " ", 
             SuperscriptBox["a", "11"]}], "-", 
            RowBox[{"20", " ", 
             SuperscriptBox["a", "12"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "9"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"3", " ", 
             SuperscriptBox["a", "11"]}], "+", 
            RowBox[{"15", " ", 
             SuperscriptBox["a", "12"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "10"]}], "-", 
         RowBox[{"6", " ", 
          SuperscriptBox["a", "12"], " ", 
          SuperscriptBox["#1", "11"]}], "+", 
         RowBox[{
          SuperscriptBox["a", "12"], " ", 
          SuperscriptBox["#1", "12"]}]}], "&"}], ",", "11"}], "]"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"Root", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"1", "+", 
         SuperscriptBox["a", "2"], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "2"]}], "-", 
            SuperscriptBox["a", "3"], "-", 
            SuperscriptBox["a", "4"], "-", 
            SuperscriptBox["a", "5"]}], ")"}], " ", "#1"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             SuperscriptBox["a", "3"]}], "+", 
            SuperscriptBox["a", "4"], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["a", "5"]}], "+", 
            SuperscriptBox["a", "6"], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["a", "7"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "2"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "3"]}], "-", 
            RowBox[{"5", " ", 
             SuperscriptBox["a", "5"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["a", "6"]}], "-", 
            RowBox[{"5", " ", 
             SuperscriptBox["a", "7"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["a", "8"]}], "-", 
            SuperscriptBox["a", "9"]}], ")"}], " ", 
          SuperscriptBox["#1", "3"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             SuperscriptBox["a", "5"]}], "+", 
            RowBox[{"6", " ", 
             SuperscriptBox["a", "6"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["a", "7"]}], "+", 
            RowBox[{"14", " ", 
             SuperscriptBox["a", "8"]}], "+", 
            RowBox[{"5", " ", 
             SuperscriptBox["a", "9"]}], "+", 
            RowBox[{"3", " ", 
             SuperscriptBox["a", "10"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "4"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "4"}], " ", 
             SuperscriptBox["a", "6"]}], "-", 
            SuperscriptBox["a", "7"], "-", 
            RowBox[{"18", " ", 
             SuperscriptBox["a", "8"]}], "-", 
            RowBox[{"12", " ", 
             SuperscriptBox["a", "9"]}], "-", 
            RowBox[{"12", " ", 
             SuperscriptBox["a", "10"]}], "-", 
            RowBox[{"3", " ", 
             SuperscriptBox["a", "11"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "5"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["a", "6"], "+", 
            RowBox[{"10", " ", 
             SuperscriptBox["a", "8"]}], "+", 
            RowBox[{"17", " ", 
             SuperscriptBox["a", "9"]}], "+", 
            RowBox[{"18", " ", 
             SuperscriptBox["a", "10"]}], "+", 
            RowBox[{"15", " ", 
             SuperscriptBox["a", "11"]}], "+", 
            SuperscriptBox["a", "12"]}], ")"}], " ", 
          SuperscriptBox["#1", "6"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "2"}], " ", 
             SuperscriptBox["a", "8"]}], "-", 
            RowBox[{"14", " ", 
             SuperscriptBox["a", "9"]}], "-", 
            RowBox[{"12", " ", 
             SuperscriptBox["a", "10"]}], "-", 
            RowBox[{"30", " ", 
             SuperscriptBox["a", "11"]}], "-", 
            RowBox[{"6", " ", 
             SuperscriptBox["a", "12"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "7"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"6", " ", 
             SuperscriptBox["a", "9"]}], "+", 
            RowBox[{"3", " ", 
             SuperscriptBox["a", "10"]}], "+", 
            RowBox[{"30", " ", 
             SuperscriptBox["a", "11"]}], "+", 
            RowBox[{"15", " ", 
             SuperscriptBox["a", "12"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "8"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "9"]}], "-", 
            RowBox[{"15", " ", 
             SuperscriptBox["a", "11"]}], "-", 
            RowBox[{"20", " ", 
             SuperscriptBox["a", "12"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "9"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"3", " ", 
             SuperscriptBox["a", "11"]}], "+", 
            RowBox[{"15", " ", 
             SuperscriptBox["a", "12"]}]}], ")"}], " ", 
          SuperscriptBox["#1", "10"]}], "-", 
         RowBox[{"6", " ", 
          SuperscriptBox["a", "12"], " ", 
          SuperscriptBox["#1", "11"]}], "+", 
         RowBox[{
          SuperscriptBox["a", "12"], " ", 
          SuperscriptBox["#1", "12"]}]}], "&"}], ",", "12"}], "]"}]}], 
    "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.6664460628809786`*^9, 3.66644609524883*^9}, 
   3.6664461695570803`*^9, 3.66644873036655*^9, {3.6664488150463934`*^9, 
   3.666448819926673*^9}, 3.666448872981707*^9, 3.666449842742174*^9, 
   3.6664612952021465`*^9, 3.6664613934117513`*^9, 3.6664619368860164`*^9, 
   3.6671984778505735`*^9},ExpressionUUID->"efb22b9b-0d8b-47c0-968b-\
9da399015d43"]
}, Closed]],

Cell[CellGroupData[{

Cell["The new (not inherited) fixed points", "Subsection",
 CellChangeTimes->{{3.6664461160810213`*^9, 3.6664461470607934`*^9}, {
  3.666461747487747*^9, 
  3.6664617489050446`*^9}},ExpressionUUID->"9f7c623d-80df-40bf-9acb-\
4e5d30b65fea"],

Cell["Attractivity - instability", "Th-Env",
 CellChangeTimes->{{3.6664462107494364`*^9, 3.666446225413275*^9}, {
  3.666446345951169*^9, 
  3.6664463490623474`*^9}},ExpressionUUID->"7c5051fb-c118-4da5-b7bc-\
abaed7493f55"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Abs", "[", 
      RowBox[{"Simplify", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"H", "'"}], "[", "x", "]"}], " ", "/.", " ", 
        RowBox[{"fixed4", "[", 
         RowBox[{"[", "5", "]"}], "]"}]}], "]"}], "]"}], ",", "1"}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"a", ",", 
     RowBox[{"1", "+", 
      RowBox[{"Sqrt", "[", "6", "]"}]}], ",", "4"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1.5"}], "}"}]}], ",", 
   RowBox[{"AxesOrigin", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"1", "+", 
       RowBox[{"Sqrt", "[", "6", "]"}]}], ",", "0"}], "}"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.666446232272667*^9, 3.666446305629863*^9}, 
   3.66644656572774*^9, {3.6664466625432773`*^9, 3.6664466625462775`*^9}, {
   3.6664498668765545`*^9, 3.6664499631670623`*^9}, {3.666461258611287*^9, 
   3.6664612688015003`*^9}, {3.6664621235565853`*^9, 3.666462181033214*^9}, {
   3.6664622131182475`*^9, 
   3.666462241126567*^9}},ExpressionUUID->"c84c34ca-1565-4faa-b10b-\
a33407c2a517"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
     1.], LineBox[CompressedData["
1:eJwdzgssHHYcB/BT12b8/512WKePeXQVSrR0tKq337/N1s0cw+ga5VhrxzxO
RIfUY6qo57VXEjeHVs2yw1WJzW2rkSM4Vm253jzaep1njrth6ln7337JL798
8k1++VpejvH9ZgeDwWDR1d0YmzxTvhARB4OBnO1tDShTxkqmqMczEnaqVBr4
qP+kBfyAiPpTdVWHXAM4VXVUS+2hyvPLKtRAdT+L+IoQGXisx9VYa2AqVRvx
bjkiH1bLTod7LgDnuX9reSUikvqJ5iWhGrzSLSLrHiAivz/UFHF0FvKmyeeS
DkQmjY2y0++OAT/pqrXJS0Q4uQH7u6YVEOEytx2psxphXKeA8/8ED7ZRs5XG
Vux4BbzheuTHvULkUYu4qZWpAJ6v1WLfCCIWjRcykyz7wdP2abNgHJELC3ze
yYBngP+28zeaof2cBa4Fgh6YEVQ4hFF39V9Gh8x7oJ29760Waum/gSZVtd2Q
LNvxB28WkVDGvc6yTjmoJYMWvXM0x3Y/O251wl8ZN9X589R3S4fGue2Q5zRx
w3AJkez5GlFv+O9QZPb9k2+pGUGVZeG836CcceCAnLpLOX9EGyeFh72+DTeX
EbktedbSmforKCNko8wVRGxslMvCwgYY9eHYh1K/N+S5US6sh9lT6wlt1OEf
SJPulD2EzV1ORumvESEi/94bXhKwqqxgba/SfwLxtYy4KrDPZeVw1hDxlp8Y
C0uuBOfYQUWzzu4h1taZFfAZ7I1KXqf9RtryuPYi8LGWNA1Tj6YaHWeyiiFg
t7u+2wYi9wpOXP/KsxCih9NK1qhJIn+LNZQF8bKDUxc3EUm7FFbNXkyBNLHU
UUrNcKoxng6Kgpzbfin7tqhD5jKXL7rCnQRtV7zOffVvn7kUC6WcfBOlzsdP
cQwEaVD1iU2I8xvq3NA/Db7LBqlxyOslnV0KBkPNi0C2vnHuy21EWpfH6j9+
Rwg9Y8X8BmqGxvRwzM5SeFX35EgsAxOLq4lan5UK0GeD34IeJiFVvF/Oj4jB
K+P9+hkmJnuY166YvWiEyeUXES8NMfGL7lzL+VoG1TbRAS4IkzN9diL+gAx4
gVvut6gPHrvPE33RBqtth2zPYkzCFaLax6x2MCzkTP+4G5NGbqOwaH8HODiO
Xonag4m2olRc+1wO8dETgRum1Pq57UzxU9g1NetlZolJucfekm7HAcgYv/7I
0RUTbtCDfmWwCjb1/GsGvTGx7450m/xJDae93YrnuJg03Ro+Fnx2EZTiWjyQ
iont4Wi7uuIVMDd1bk3MwoTx/6zCfxZlxdw=
      "]], 
     LineBox[{{3.9601065813106002`, 1.5}, {3.9601163685747665`, 
      0.7074799356305432}, {3.9602835544382113`, 0.03932163071415229}, {
      3.9604507403016562`, 0.4428774204158181}, {3.960617926165101, 
      0.7574606814996254}, {3.960785112028546, 1.0247749237058132`}, {
      3.960952297891991, 1.2615403241092618`}, {3.9611194837554358`, 
      1.4764700759753095`}, {3.9611400018548744`, 1.5}}]}, 
    {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
     1.], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQna/RLdo3g9uBAQw+2MddDT0wbzGC79ekkL1+HYLf
/dzBa+0xBL+vukRN5C6SvNHjZq7PCP7TL3ey7nLxwPlsz176SSoi+C2PGvcY
WiL4fxhDV98MQPCtAqynv0pD8K+tXMNzow7BtzQyrNebiuBPvfuhSGQ1gu83
xfrDtUMI/rnKmVlMNxH8NVlNeVwfEfzmumWfF3LwwvmKB++WLpJD8GX4FzTW
myH497pLu476IPh/ha/JvEhB8MX2FxrMqkHwv85QcNw6CcE3qou6vWYVgm82
aXkR70EE3/ikfvffawh+L7ez7ql3CP66mswz/1n44Hzdn1JfBWUR/KUz2Odv
NkHwn6Sxu+3zQvAbHCaVLU1C8B97GCz5WoHg25dwBl/tQ/B/rsrtnrgMwa8U
eHpg2x4EP7zxef2OKwj+H4W/1sqvEfxZj30rZRn54fypGzUdvkgg+OHrJFhM
9BH88m2TAgPcEfwJD90V/sQh+AXWAm8EShH8tQuSHZl6EfyNJqcmxyxG8Ne9
zk5324ngc66bcYTnIoKvNf+GnM1zBP+L92q+eZ8R/P0/av/9/4/gAwC7leyz

      "]]}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{3.449489742783178, 0.},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None},
  PlotRange->{{3.449489742783178, 3.9999999887650968`}, {0, 1.5}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.666462157374928*^9, 3.666462183370925*^9}, {
   3.666462215891034*^9, 3.6664622428980155`*^9}, 
   3.6671984849599805`*^9},ExpressionUUID->"1694242d-35d3-4a2b-b932-\
6aca4f3b63e0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FindRoot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Abs", "[", 
     RowBox[{"Simplify", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"H", "'"}], "[", "x", "]"}], " ", "/.", " ", 
       RowBox[{"fixed4", "[", 
        RowBox[{"[", "5", "]"}], "]"}]}], "]"}], "]"}], "\[Equal]", "1"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"a", ",", "3.6"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.666462275361756*^9, 3.6664622952302933`*^9}, {
  3.6664623449367967`*^9, 
  3.666462394339924*^9}},ExpressionUUID->"b198833e-b2cb-4c05-aa07-\
8ff7ff0ecc75"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"a", "\[Rule]", "3.5440903595542332`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.666462396358349*^9},ExpressionUUID->"9589a0f3-3aec-4292-95e3-\
f758994349e4"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellChangeTimes->{3.539604794614111*^9},
 CellTags->
  "SlideShowHeader",ExpressionUUID->"26fb64f6-ea2f-479c-9140-f40d938e25c1"],

Cell[CellGroupData[{

Cell[TextData[{
 "The  period doubling continues: ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["F", 
    RowBox[{"(", 
     SuperscriptBox["2", "n"], ")"}]], TraditionalForm]], "None",
  ExpressionUUID->"ebb1b288-6c8b-4314-8c6d-cbb2f0ba9189"],
 "(x) "
}], "MainSection",
 CellChangeTimes->{{3.666462423820001*^9, 3.6664624415273104`*^9}, {
  3.6664634937238364`*^9, 
  3.6664635461536846`*^9}},ExpressionUUID->"b9a3ca56-2f01-4f63-8bed-\
d4b83fc2ab98"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "lst", "]"}], "\n", 
 RowBox[{
  RowBox[{"lst", "=", 
   RowBox[{"{", "\n", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", " ", "2", ",", " ", "3"}], "}"}], ",", "\n", 
     RowBox[{"{", 
      RowBox[{"2", ",", " ", "4", ",", " ", 
       RowBox[{"1", "+", 
        SqrtBox["6"]}]}], "}"}], ",", "\n", 
     RowBox[{"{", 
      RowBox[{"3", ",", " ", "8", ",", " ", "3.544090"}], "}"}], ",", "\n", 
     RowBox[{"{", 
      RowBox[{"4", ",", " ", "16", ",", "3.564407"}], "}"}], ",", "\n", 
     RowBox[{"{", 
      RowBox[{"5", ",", "32", ",", " ", "3.568750"}], "}"}], ",", "\n", 
     RowBox[{"{", 
      RowBox[{"6", ",", " ", "64", ",", " ", "3.56969"}], "}"}], ",", "\n", 
     RowBox[{"{", 
      RowBox[{"7", ",", " ", "128", ",", " ", "3.56989"}], "}"}], ",", "\n", 
     RowBox[{"{", 
      RowBox[{"8", " ", ",", "256", " ", ",", "3.569934"}], "}"}], ",", "\n", 
     RowBox[{"{", 
      RowBox[{"9", ",", " ", "512", ",", " ", "3.569943"}], "}"}], ",", "\n", 
     RowBox[{"{", 
      RowBox[{"10", ",", " ", "1024", ",", " ", "3.5699451"}], "}"}], ",", 
     "\n", 
     RowBox[{"{", 
      RowBox[{"11", " ", ",", "2048", ",", " ", "3.569945557"}], "}"}], ",", 
     "\n", 
     RowBox[{"{", 
      RowBox[{"\[Infinity]", ",", " ", 
       RowBox[{"accumulation", " ", "point"}], ",", " ", "3.569945672"}], 
      "}"}]}], "}"}]}], ";"}], "\n", 
 RowBox[{"TableForm", "[", 
  RowBox[{"lst", ",", 
   RowBox[{"TableHeadings", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"None", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<n\>\"", ",", "Bold"}], "]"}], ",", 
        RowBox[{"Style", "[", 
         RowBox[{
         "\"\<cycle \!\(\*SuperscriptBox[\(2\), \(n\)]\)\>\"", ",", "Bold"}], 
         "]"}], ",", " ", 
        RowBox[{"Style", "[", 
         RowBox[{
         "\"\<\!\(\*SubscriptBox[\(a\), SuperscriptBox[\(2\), \(n\)]]\)\>\"", 
          ",", "Bold"}], "]"}]}], "}"}]}], "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.6664635663518004`*^9, 3.666463570536089*^9}, {
  3.6664636752710276`*^9, 3.6664636849729066`*^9}, {3.6664637319078875`*^9, 
  3.666464141668754*^9}, {3.6664641913436317`*^9, 3.6664642663380747`*^9}, {
  3.666464911022847*^9, 
  3.6664649115702515`*^9}},ExpressionUUID->"3f39f49d-4e29-44fc-9162-\
c52964e8cfe9"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      TagBox[
       StyleBox["\<\"n\"\>",
        StripOnInput->False,
        FontWeight->Bold],
       HoldForm], 
      TagBox[
       StyleBox["\<\"cycle \\!\\(\\*SuperscriptBox[\\(2\\), \\(n\\)]\\)\"\>",
        StripOnInput->False,
        FontWeight->Bold],
       HoldForm], 
      TagBox[
       StyleBox["\<\"\\!\\(\\*SubscriptBox[\\(a\\), SuperscriptBox[\\(2\\), \
\\(n\\)]]\\)\"\>",
        StripOnInput->False,
        FontWeight->Bold],
       HoldForm]},
     {"1", "2", "3"},
     {"2", "4", 
      RowBox[{"1", "+", 
       SqrtBox["6"]}]},
     {"3", "8", "3.54409`"},
     {"4", "16", "3.564407`"},
     {"5", "32", "3.56875`"},
     {"6", "64", "3.56969`"},
     {"7", "128", "3.56989`"},
     {"8", "256", "3.569934`"},
     {"9", "512", "3.569943`"},
     {"10", "1024", "3.5699451`"},
     {"11", "2048", "3.569945557`"},
     {"\[Infinity]", 
      RowBox[{"accumulation", " ", "point"}], "3.569945672`"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxDividers->{
     "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
      "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[2.0999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   {None, OutputFormsDump`HeadedColumns}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$, TableHeadings -> {None, {
       Style["n", Bold], 
       Style["cycle \!\(\*SuperscriptBox[\(2\), \(n\)]\)", Bold], 
       Style[
       "\!\(\*SubscriptBox[\(a\), SuperscriptBox[\(2\), \(n\)]]\)", 
        Bold]}}]]]], "Output",
 CellChangeTimes->{{3.666464260519413*^9, 3.6664642678389573`*^9}, 
   3.66646491318818*^9},ExpressionUUID->"cea2566a-4e71-4a9f-8a77-\
c69cb68db779"]
}, {2}]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellChangeTimes->{3.539604794614111*^9},
 CellTags->
  "SlideShowHeader",ExpressionUUID->"a6c9b179-400d-4241-a61d-e4118010bb26"],

Cell[CellGroupData[{

Cell[" Dependence on the parameter: The bifurcation diagram", "MainSection",
 CellChangeTimes->{{3.6664651443257823`*^9, 
  3.6664651860477324`*^9}},ExpressionUUID->"0c32ff84-660f-466b-bdd3-\
500e5776ff5f"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"img", "=", 
   RowBox[{"ContourPlot", "[", 
    RowBox[{
     RowBox[{"Evaluate", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"f", "[", 
          RowBox[{
           RowBox[{"f", "[", 
            RowBox[{
             RowBox[{"f", "[", 
              RowBox[{
               RowBox[{"f", "[", 
                RowBox[{"x", ",", "a"}], "]"}], ",", "a"}], "]"}], ",", "a"}],
             "]"}], ",", "a"}], "]"}], "-", "x"}], ",", 
        RowBox[{
         RowBox[{"f", "[", 
          RowBox[{
           RowBox[{"f", "[", 
            RowBox[{"x", ",", "a"}], "]"}], ",", "a"}], "]"}], "-", "x"}], 
        ",", 
        RowBox[{
         RowBox[{"f", "[", 
          RowBox[{"x", ",", "a"}], "]"}], "-", "x"}]}], "}"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"a", ",", "0", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "0.0005"}], ",", "1"}], "}"}], ",", 
     RowBox[{"MeshFunctions", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"#1", "&"}], "}"}]}], ",", 
     RowBox[{"Contours", "\[Rule]", 
      RowBox[{"{", "0", "}"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"ContourStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Thickness", "[", "0.005", "]"}], ",", "Green"}], "}"}], 
        ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Thickness", "[", "0.005", "]"}], ",", "Red"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Thickness", "[", "0.005", "]"}], ",", "Blue"}], "}"}]}], 
       "}"}]}], ",", 
     RowBox[{"ContourShading", "\[Rule]", "False"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"DynamicModule", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"F", ",", "tb", ",", "a"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"F", "[", "x_", "]"}], ":=", 
       RowBox[{"a", " ", "x", 
        RowBox[{"(", 
         RowBox[{"1", "-", "x"}], ")"}]}]}], ";", "\n", 
      RowBox[{"tb", "=", 
       RowBox[{"Table", "[", "\n", 
        RowBox[{
         RowBox[{
          RowBox[{"NestList", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{"#", "[", 
                 RowBox[{"[", "1", "]"}], "]"}], "+", "1"}], ",", 
               RowBox[{"F", "[", 
                RowBox[{"#", "[", 
                 RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "}"}], "&"}], ",", 
            RowBox[{"{", 
             RowBox[{"n0", ",", 
              RowBox[{"Nest", "[", 
               RowBox[{"F", ",", "x0", ",", "n0"}], "]"}]}], "}"}], ",", 
            "n"}], "]"}], " ", "/.", 
          RowBox[{
           RowBox[{"c_", "?", "VectorQ"}], "->", 
           RowBox[{"{", 
            RowBox[{"a", ",", "c"}], "}"}]}]}], ",", " ", 
         RowBox[{"{", 
          RowBox[{"a", ",", "a0", ",", "4", ",", "da"}], "}"}]}], "]"}]}], 
      ";", " ", "\[IndentingNewLine]", 
      RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Row", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Column", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Row", "[", 
               RowBox[{"{", 
                RowBox[{"\"\<a=\>\"", ",", 
                 RowBox[{"tb", "[", 
                  RowBox[{"[", 
                   RowBox[{"k", ",", "1", ",", "1"}], "]"}], "]"}]}], "}"}], 
               "]"}], ",", "\[IndentingNewLine]", 
              RowBox[{"ListPlot", "[", 
               RowBox[{
                RowBox[{"tb", "[", 
                 RowBox[{"[", 
                  RowBox[{"k", ",", "All", ",", "2"}], "]"}], "]"}], ",", 
                RowBox[{"ImageSize", "\[Rule]", 
                 RowBox[{"{", 
                  RowBox[{"250", ",", "200"}], "}"}]}], ",", 
                RowBox[{"PlotRange", "\[Rule]", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{"0", ",", 
                    RowBox[{"n0", "+", "n"}]}], "}"}], ",", 
                   RowBox[{"{", 
                    RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", 
                RowBox[{"AxesLabel", "\[Rule]", 
                 RowBox[{"{", 
                  RowBox[{
                  "\"\<n\>\"", ",", 
                   "\"\<\!\(\*SubscriptBox[\(x\), \(n\)]\)\>\""}], "}"}]}]}], 
               "]"}]}], "}"}], "]"}], ",", "\"\<    \>\"", ",", 
           "\[IndentingNewLine]", 
           RowBox[{"Show", "[", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"ListPlot", "[", 
              RowBox[{
               RowBox[{"Flatten", "[", 
                RowBox[{
                 RowBox[{"tb", "/.", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{"u_Real", ",", "v_List"}], "}"}], ":>", 
                   RowBox[{"{", 
                    RowBox[{"u", ",", 
                    RowBox[{"v", "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}]}], ",", "1"}], 
                "]"}], ",", 
               RowBox[{"PlotRange", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"0", ",", "1"}], "}"}]}], ",", 
               RowBox[{"AxesOrigin", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"2.", ",", "0"}], "}"}]}], ",", 
               RowBox[{"PlotStyle", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"Red", ",", 
                  RowBox[{"AbsolutePointSize", "[", "0.01", "]"}]}], "}"}]}], 
               ",", "\[IndentingNewLine]", 
               RowBox[{"Prolog", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"Opacity", "[", "1", "]"}], ",", 
                  RowBox[{"Thickness", "[", "0.00001", "]"}], ",", 
                  RowBox[{"Line", "[", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"tb", "[", 
                    RowBox[{"[", 
                    RowBox[{"k", ",", "1", ",", "1"}], "]"}], "]"}], ",", 
                    "0"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"tb", "[", 
                    RowBox[{"[", 
                    RowBox[{"k", ",", "1", ",", "1"}], "]"}], "]"}], ",", 
                    "1"}], "}"}]}], "}"}], "]"}]}], "}"}]}], ",", 
               RowBox[{"AxesLabel", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{
                 "\"\<a\>\"", ",", 
                  "\"\<\!\(\*SubscriptBox[\(x\), \(n\)]\)\>\""}], "}"}]}]}], 
              "]"}], ",", "\[IndentingNewLine]", 
             RowBox[{"Graphics", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"Opacity", "[", "0.4", "]"}], ",", 
                 RowBox[{"img", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", 
               RowBox[{"PlotRange", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"a0", ",", "4"}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}]}], "]"}], 
             "\[IndentingNewLine]", ",", 
             RowBox[{"ImageSize", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{"300", ",", "200"}], "}"}]}], ",", 
             RowBox[{"Axes", "\[Rule]", "True"}], ",", 
             RowBox[{"AspectRatio", "\[Rule]", 
              RowBox[{"1", "/", "2"}]}], ",", 
             RowBox[{"PlotRange", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"a0", ",", "4"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", 
             RowBox[{"AxesOrigin", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{"a0", ",", "0"}], "}"}]}]}], "\[IndentingNewLine]", 
            "]"}]}], "}"}], "]"}], "\[IndentingNewLine]", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"k", ",", "1", ",", "\"\<a\>\""}], "}"}], ",", "1", ",", 
          RowBox[{"Length", "[", "tb", "]"}], ",", "1"}], "}"}]}], "]"}]}]}], 
    "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "x0", ",", "0.5", ",", "\"\<\!\(\*SubscriptBox[\(x\), \(0\)]\)\>\""}], 
      "}"}], ",", "0", ",", "1", ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "a0", ",", "0", ",", "\"\<\!\(\*SubscriptBox[\(a\), \(0\)]\)\>\""}], 
      "}"}], ",", "0", ",", "3", ",", "0.1", ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"da", ",", "0.1", ",", "\"\<\[CapitalDelta]a\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.1", ",", "0.01", ",", "0.005", ",", "0.001"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "n0", ",", "0", ",", "\"\<\!\(\*SubscriptBox[\(n\), \(0\)]\)\>\""}], 
      "}"}], ",", "0", ",", "50", ",", "5", ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"n", ",", "10", ",", "\"\<n\>\""}], "}"}], ",", "1", ",", "100",
      ",", "5", ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Initialization", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"img", "=", 
      GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJxsXHk8VN/7H/swY8a+JHuRpVJRIfOcskaLRNEioaJVlKSFFCFCi6iUpV0q
QkXWVNay78swxq7s+/K7Fdfn9fr+/NPr/Tp37r3nOc/yPue572RtT5kdYiUQ
CAWcBMKff//98SEx1y1CDgGbYFSh/bPqBBXlXn+4ryNZBT5fYzR6fqaid6oZ
2cdqlsHJuuQTdclUtCTY40loqxKYp9VsFoqnovpbV4rqhpSBI2CLuKkLFfVJ
jXRIiiyDv5efoKKOKS/XwCVKoFQ26zl5hIqqjykkq65Xhpja4WfSytjz2mTT
2S0VwejWks23llDRWIvuqo+Oy4AS+9u+RYqKLm4Qjov3VIK7errev+kU5Mum
7D7ySAH+3r6OgvYd6dwS/RMg6538WG4FBQn1XubU/bEMRIrex2fco6DEK7LE
gq6lIL/5zwMoyMbihMrhKBosvUl3LTCloIedTtPW7hsg+M/jN1PQr4vltlMb
rED/e7621kYKske79deE0iAw9qLThnRexBnn1kw00YJjfyeI4VWqD+JstEH3
9fDw6re8aN+2Mx3jPhvAtjNgNkGFF5F9DaTsjdaDwd/58SIzubqVScc14TU7
/aSCJC9aX+LR/zNKCxL/zoeMHPK0lUKurAeFvYlMSiUZJX5w+lp7cgnUJK5K
drtHRmOC1tevuMuC3N/5kBHr6lcbnz9eBzsvVaPBADISYrq+6G+SB+ONL9hN
tpFRtUBlmXuHzNz8yOh1sx3FV0IO6t6f2V+lS0bXHhr695vLw56QdzclOcjI
7cb15OV7ZGBm9s8fCdnbd55KGNaAukpVndQJEhJbx6GcWSQHWh33zPpSSUjG
cRdh5pE0HP9rDxIS8ecMKVXVgE+b7jQ/iiehKfW32/SM5SC9L2XbF2cSKh5V
6HsRLAU1fxeQhFY/8Px05Zg69DpXK7cdJqEOnlV3GN814JhHkWdKMw8Smr3r
qPhi1Zx9eFBmgvNFpZnVIBUdppJXzoNcQ+kFNw6rz9mDB/W1NpVc2rEaNOnO
oBLIg57IsFvcPSADEgoFZvzbeNC7lM6EovBFc/bgQbleXZWisavA/XZlMa8e
DzL1Yxbfq5UGx+qTO5jsPChS8XttYaz4nD240Qv+2iu+WxbDtyeKK/smuJGb
7hpJhykpEP151+NTKjfq0C1anvZFbM4e3KiQ9CuVy0kNEnTv7S2N50bV3ovt
zy6RAgYargt05kaWbH5bzzaLQu1fe3CjxU2TbClJK6HuvvHuRAduRJh5OHnf
TBIuPN1yyFaJG4Xp/ZQvYhcFw7/+xI02RAQ59txdASUae+VDpbnR+tNZcUk+
i6F8xaFF6+hEtCyYWRKxXGTOfkTkUF7xeJ3ncvhqXZV5rpKIXlzqex2TKQFH
DPknSPeISO2OYWTWXuE5exLRkl07C1afUQWRM9lqVoFExHdsvZ8eQQJ+CKmy
NW8lIrEV478Eg4Tm7ElE9PfLy91Pq8BrDeEzWnpEZFQdqXBefxGYzISpJ7MT
kWeHucLp74Jz9uRCYytJHAnnlMGYJ/2GxCQXMpW6kigfLA5xa3UDb6RyoXef
DV4kswvO2RO7niUp3sNHCQI2RLlNxXMhuk/jU0W6GPBtliQfdOZCKLolK9tA
YM6eXKj1elFrUMQy8F0Zrt3gwIU+DlS9ctQQg4nnMu/WKnEhy1n9iDOB/HP5
hwutvz4jePuzInz0d61Ik+ZCfdsVY38GiQLQtrqR6Zwo0yJhzetqPkj6a09O
VK0qVKvDUIDWfQTDR5WcyHRvThb6LQLiLC/tWkI5Ue7NH2C8jG/OnpxovZVv
shG/AlzVGAq+HMiJilM/aD7dKQJlXnD641ZOpEYcOWAzRpmzJyeyVKOWnjJY
CkR1zkRrPU5ED1oV0PZZGA55y0beZOdEfU76qzxf8M7ZkwPl8mZ/d/ZaAibk
5ne0SQ5kuXnywG9lYVgXYP/bPpUDoZ2tWz7ZkOfsyYH0pEKchb7KA8wu9ZVK
4EAdK2z9YyOEAI7LWWs7Y9eLvJcplSHN2ZMDHZd5k76IIg8fvx3XmnHgQA4H
0vmJwkIQVuPWza+EXS/qLnCrg3vOnhzo897Xl7ftl4NhZ93cBmkOtL4ha9Vg
sCCc7vcN7WhiR++S7GyzPhDn8jk70mtZpHchQRa2rV+xOq2SHfla5Bzcxy8I
GzNcrTNC2RFflC5Z6SbXXD5nR0tqDmuf4pUFIPmvbAlgR1NLf19V6l8C39ie
LaphZ0dqfoyPWUvE5uzDhsSidB0Zz6UhiHTs6asJNqQ+JbvJukp+zh5siBis
NWp6WQrMBQIuaCawoY5Yqn0xjR9cj/YHSjizoXde3LpZKmxz9mBDYz5bQnut
JSGsXWm9mCMbcnjUPcos5wO/ipCagWVsyFNQrEBcnnXOHhjulKZ12HJDSjVf
2Yg0dv98u4HVp/igf5JTJ7+JFRXLaeg7yLDM2YMVOY2bBo9eJsIkzWVLRSUr
MpX04orn5YNo9vMfokKx8b0aia7yBPjrLrdYUfCTuge/tRZB9pEzT94HYvcr
5r//wYYK1x/yGp3fyopsEt+MLbacoYX8/QErkrHgKjyxURzCVyjWheixIrWr
Lj8OvqHAuo62XlN2VuQ5shX6XKZo/+zHgmwUPjAzTcXAb3tA36lJDKfKXLJh
p0D0NrkXy1JZkOcsNA+HT9D+2ZMFybCEd79xEIUopcsn0uNZUId0rpD+Dhk4
dGjbDJ8SCyqODG6EuHl/YUE9vmzrVvQowqY1EZye0tj9is8TXhhLQ/irHzYf
QwnIJkQ72/sHx9x8CYhwRXyXJ0kBBqyPbUGBBKw+jtloSEpB7PjUcRt2AvKM
sA3dsIh1bv1ngViYpCMeLQAnGYRTM8OzYMOR5SQtIQkMwcdCAq0zgKzjwEto
mvYvvmfA6bRwrY8hP+iJPDx9vmQGLI1uahoZLJ6LzxkoDtrppvSUD3xfn4lT
RjMQ7Lgp4MoGbth0TbxldcY0eJ5saz7yljFnj2lYn6woNcvNB3FKlimMuGlw
+pxatXmECJlhZtcZqtOAPuflt9+m0/7ZYxro9kuPd9tP0UaqL558KDENfFlO
DiqpREizE1975/4UeL5v22U9UUv7Fw9TYCriFmZdygvXWiVyzP2w8bff1Jpu
EOF52udOPeIUEE6eNcgvKZ9bz0lQS+84p/KdDJd/SiWSRyfB6b6NpJEjEVZa
FD0cPjsJBJ+3WQY7imj//H0S+Jhvl9/NJ4HupcKmSrtJ8DRWKrjGIgE5vU+P
7d8xAYRruuzpHllz/jUBfa7TbTdmuCHG6JSALkzAR0dbpwJxibl4GweZC6KE
JWrc4F9p8qo9bhzohJsbtd2IkCrl/vOD6jgQpt8wN6l8Tf9nj3HwLPvV6+NM
BCEppfaHEuMQaeTTL/gas1/1NxaH+2PgyWIZ/xBK0v/5xxjILKqV1ugdpn21
a9izw28M1ILjxoXGiVj8fO4XJY4BoadpclSlOv2fe4wCn1xxQMoKLhhKYWlm
Hx2Fd9UJhQV23KBx4b3v97Oj4Cn49cC+003p/+wxCpGOtfuNXnPCmy6NzR/s
R8HmY+06/QFuWGLJfOHKGAHChojc/FBG+r94HgHPDYaDXps4YWBvSs2eEmxc
mjnFrobxIevE9vD0YZDxSvfPPzaV/vfy5GFw6tD4eLuAAxLMN+948HoY3DwP
r1PxkpmLl2Hg+/HkoFERB5xffOT7SYlhCJbbKpXnRIG+7M1GyveH4J3dXVGU
OThnjyHwPHFVWpfICbc0Uz4J+Q0BnZhTK2bIB3zugh2lXENgc2n9u4jto+n/
9gdDQGhZVSWQOEQTNNvzKnFkEAir6DFDSfzwUuuYiNvZQeCr3jzpkjqZ/o/v
D4Lpnron9UFccFfl0V4T+0FwqjeQrfkoCIusVpeLMgbA5q29R1EWIeOfPQaA
znLAdKk+N3DrDz8rLRmAZebpg9oJIpD+VmbLG9MBeMFzSDj7B3vG3+luHoBM
141SQzpk8E0sMtKBATB9zGF/2lUCrkUYC61J7wen9TqvRvlJGf/2K/2gdjUh
jaeDDyqLNp5weN0PhSo7gj3E5SBs6sOxIJV+MN/SoDW8SjDjr3mWYL93tz38
XkkUTsawd5SI9cPDLyZGtd6qwLPLZsYhrA+WWMXbyF+Tyfhnzz6YUr78VEFG
EeRz99Xe9OgDisbTX/yi+mAXrN29k9AHGz3XZX45Axm2NwVD7i3rg4njE1MX
7dzAhLFU9aJsH0SczW/dpX8FrCyzXioq9sEl/pZLPco+sP9CgfPpDX1gOSSc
8polAJiHZO1vGfRBL6vtTsfcECilyWz/bYWNr3ok4L7tLiwPSmppse6Diu+u
pVYf7kE8Opa96mQfkAus1RV/3YffeVzN/G590FIRL1kS8hByD6l8+3ClDyRW
NizhvPIY5ufjLVk7Zh4RBaGaha9n7vSB1dQ7L92hKOi6OOrrdbcP7ubF+Q9w
RwM/T2vA1tA+oMeadYkrR0O08d3R8Rd98HCyB3vDJ0D5JblJLwl7Pvr6ufza
U3j44khq4+c+eLJc9ULJw2dw0nv30yOFfTC8p4ed5eQLSDgVX8As64PbD7pZ
feVeztW/PjDUff4hd/ol7PInj3gy+yAx5NWxdytjYZkOr5fcUB9MB+bo2Lx/
DVOpJYzS8T74/KWTIX0+DvYynTiH2Pvh8QeOtotf34CM6KU1spR++DK8bF9Q
9luYX++1hOVVxizxcGxspj9WvR/WdD3WM+qKh2ahnD2a6/uh8/VOhQ/KCXD7
27moKFo/NHHubWK5nQBF06lUols/nD6xfOOdU0lQP/wk77t/P4zxlYqEpiWD
pHidYU5KP3A+5FOwGf0IPTXKZ66n9cPTa3aCn2Q/wdDpeyyazH4gnjXlOmua
CiwsLB9LWAbAzmp8qPXEZ1gt8Dwm1mAARGt+jO5kZMC8/x93X/kmfzoDOn5Y
vTwfPAC/Lq5g2/86CyrjV0l7PR+A248UzohrZ8OS3U7lxNoBmN0kyMe1/wsc
akyBXAxP6DOMFh/8AnnthF27SYNwv/hQj++1HLgvPLFCUXEQvKbDLVL4v8J8
PEu4uDAYt79Bh+3B56/ODUI061P7saJvwJPKOCHzdRAOP9i++7JDLjhVo63s
zEF4pd5af0Q0DxoeHf8Sv2YI+EcS9wbH5MMq4ee3FS2HIOGwvEWVTQHYKwVu
9zo6hK3b5PJT7wpgPj8FfbY0vXG4EFBe9HO66DBI3j5BPtTxA74WuqWxmg1D
Vn6UfvLgT/htciV9X9EwVOu+f00hlsCvvV87741g1wdfubrbugS+P3ldZmw/
Ag6ifA+MdUtBZrt9jd2NETBarP3B+nYpzOdj3ZDLStJqZUC4u+vmZrNReBbB
x/FTuBy0bLq/aYeOgtPm7YIpAeVAGfqhHyU7Bk+MYrQLgyrgpWuT706vMWh6
VslZuaYSfCay0pYzxuDchZs3lCor4cghJcnoiTFg9csRliZUwXz98mVPaFTR
rwKS79JbbxrGIcZOnPvQ4WpY1f9R5LXNBFyOK2ILl66B9JfRJwTyJ+BJZZmd
2ZcamK+/ywlvrQ+9qgVullJB7sxJuOK7LCVWpA7ablZ0PGafAp8m8kWiYx2Y
xsqt7MyYgi+Xg3ctsqmHef7xrdB/caVfA6Sd1HHizp+GNcbGlwwfN8Cl4UyL
4PppuMm/ZehcQgN0XJaXf9U4A7kV4rUDZY0gNGZ/szVoFnjrHaLSbjTB3uOf
ZFZPzcJd3RvH2yebINKsxnp6ehaoZiHbu6abcL71798mIIumGtzQIqCn+Qcu
+KynQ6Xj85NttwloNNpKOOEmHed/CW91J/j5m+G72cblsitY0N5MIQsJ8WZ4
lGDer6nFgn5oHXKOlWsG2e+xAhFFLCjJviRr06NmmOez3j6SVBFCCyTWRTB2
OLOixLVt99SkWkCQ9dXhqjhWVFp2bYWdYQtMno+5uHwxG7r5Unx6JKwF5/NM
7xUHlMta4IvSG5vhfDZ0K3vkbDGFAY+vbNmjYcOOKo8/6Vp0nAEvyCR2jsvs
yEsDxRz0ZOD7EYsl7wvP3mRAAMtxj8Z2dtTRwtBMzWLAl6mzzIK1HMhUSK1K
q4cBFyijOeO7sP2ZZmKu6wwD348RLBLjNde2Am+2h3rFAAcquZWwusS8FZJu
KATdW8GJ3vY+1Nnk2orvD6dU8l33X20FjVtkDdJOTiTxLCSjywf7/W+ZFPoh
TlTLkfOsNLgV338+2BJ06NGLVnh6+M7Llcmc6GX9YTfh5FZ8P3vOuMWws7AV
iJnFgh8msPv1FNwl1LaC18tl7xaJcaFp8W3fz7e14vtl1/BgO7O+VjAfsL6a
Ys6F7j3nnljBw8T33xE2hqe7BZhw4NwqcosHF5KsTyKw8DPho9XkeMJDLrTv
z4LIM/H9vbcjf4ibOhM2v/s6vneWC9U2kyNLsfH584IhaY/DJYeY4Blwf/Aw
GxFtSO5sv6vABFh7vf4QgYjf78JR1s7dGP70JTi4Uo4JHVZ5PM7sRHQwBq12
aWwFW7dw5yXY7+fnx3OuE1ZiWH+vb29xZSsYl34zZuchot0hXzWr77eC1qde
eE8k4vaMeZxrOcxFRC6P1myu922FE6SUDQUSRBS2b8Ud/UWtIPWgr/jrYiK+
vlxJlyITZIkoRZ2lOqOeAWM6pfWCa4hos6/qDo3HDNDMbdzcqkPE/Wv+POWG
8G2ZMUMGyH0o6nhgSkTU0u8Gh5QZIDLO5GMzI6K7PljFlWPAO07lJKldRJTX
7LGyX5gBvpzPD5w/iM23TXtUZKAFwMZiZ8URIjKPvEPOqGmBVyvM3fxdiKjO
tNVpKqUFku72Hdx/nogiHfP5PF+2gLx/DSPsChFhyU8yJLgFPw8aCdCa4HJo
gSW7vgcN3SeiwfyfSVTTFvh1pkqcHkHE48v2UbQh9zMiCpzVuxa5pgX2CNT5
rftGRCq3ju+d6mjGz6M8lYKm5D43g5IAvdarkYj+VEOupGbI2D6mbzGMrUef
zcYc72ZYJDN0dgcrN6LKnjhYc6wZP//aKls/MKzaDOtmqh0Fl3Gj/NRfHMsV
sPuNPjk2q8SN5wvHrXLc61ZxI444cSEOkWYYuuPi77eJG2lzhd13G6WDwv1g
dzZzbhRovv/qpRo6kMWmtNL2c6O1pc5VV/Lo+PkcU3eHb8lbOtT16rSfusKN
tpy0uLM9mA4nvook7wvlRr0Rne8LT9Gh71GecPczbrTH9SqX0G463Aq3+PUw
nhuRfLc+lTWk4+eDVQqijTZAh0LTkYGcEm40wLSJo4vRgc3VK/0pkxvN59f5
80dvwva4LQlNEOS3x6+WyoP25Ku+0/NrAtoBL8uxxTxI6E8BcmzCzzf5za/u
Zx1phJ/OUuctTHmQ3cO9FreZjVBm775FcTcPuvWHTlU14uenl9uNfK4aNkKS
9N5ajts8CGo2nNxq0AgpjTPGaRjma9xbWqbXCJcK71gujeBB+5wfRIutbATV
vIro7Uk8SEIFOgLHGkBsj504tZIHzdeT3s7XljureZC65e3jm1434Oe58Y8L
GCMxDZC8zLBqkSQJkfU3iCyWaYCNJnZGcjIkpBjZ0a8l2jB3fk5C2mGUqOM8
DfC7z3qvNyKhv/S2sh6c00MlpvRIqKR5m9LDH/Vz8yehhEVmLd2Z9aBqUPN5
5jAJ+buprs8MrIfSwdL7D46SUPXmg92+1+vx8+g27i3F7ufrwW1b5cawYBL6
axa9ehDwXX/2N4Yb0UBI48b6OXuR0L3T9xzd1Ovh8qNXG1XCSWgNZ61J4dp6
SC6/E/vq9sLvq0c37J/EsDJ/jNKoYT3cOHtP7BB2fXKs5mUfj3pICjxETQhd
eD/yfQU58QckZLrkapfJV+z6Y7vMw8JIqPaK5pKbDGw+Zy66pD1csBfv72rd
TVEkVGVzqn+nSQPc7rcybYkmIdllEQ89/RugzOJOqXQMCV+P1QcuuX56RUKF
D5qm0/Mb8PP7oxXaKcdojfDh8e0c2gcSukhUJ/Fi621z+n2gFobn17+VzhJy
AMMXEr5q1es3wrKkmGunvpJQULrid7aURijumdAoyiXh/rW0HiwyikloN/sG
mRmeJug8tUzFuJKEchWiuJ4pN83VHxJSvc/ekW/QBMZucsfP0Um4P//e3zj5
rIOEJs/WB+uGNUHhth2LeMdJKE4gt2a2twkUP/GoN02S8HgxH914buU0CU3L
0B7kEOh4P0P4QYNzOicdfB5wH83hIaPuO9iGRo4OZp8LuOIFyGiyi0PzpDod
fqbd7FWXIOPx+i/fkFGTsV8lsqLDj/GGdBVlMipwfXhK6jAd7B31DdU0yMhW
8Wyq5UU6lC76GmRKI+P5Yb7/wmuSWP0zkg5R1E3l9vvIyF33dr7WNzo4x12/
8f0IGc8///yRjDqUz4p9aKHDZ9Fnnz3PkVGadofl5iE6cG8MH7G5REZvDJvd
hWboeD9ITS+lY7MUll+3vmY03SYj634tDyHZZvgp/tkk4Q4Zz4cS3mdNa8PJ
KDRBJ1RHuRnKvgUTqt+RUdkKiYcGW5uhsUSM+3oOGc+3X0i0Y6U/yOiLj5yx
q1sz3q96LmhCHb3eDO+cs97V9JJRX1vnRFg0ln/XcHU+miDj+dxtuVZGBS8v
YlYc/vKtoBnvh00KMjps25rBksEVbbaWF4X0XgSNmWZYsoqf386UF11Jqc4P
kGiB6r/24EWM+60rSrVb4H39wyTec7x4vel67b6PJ5QXta4QdVmP1af5/hzT
Tte/y68Fprm/vo3/zIvXs7o90jrXGnmRTPVDJf6Eljn/4EV81Uz+qRKMH5Zf
3X6Ui4LXS8s85YrryyhI5cyukQMTLXi/UPZs4yAZq7cBwuLGobspeD32nRG3
3OVKQa2bmHsZNAbef9w+sDLm104GXPTOtUuLo+D1/p25ZtXdbxQUeELv7DDG
J+f7m8a7OYO2BjFgVqfnRCgPFYnufF1jlMSAol0Tsk/EqWjxKcKR9ZkMvH/6
ntCxPek7A5h9plxxulSkk7CFatnEAJ6lR50WH6Uis/pH7XUTDLw/G++/Q/jS
NAMGuBQa9U5SUb7nj/cdGO5aS6yexfA8f9FoWyGzPpyKZrsdmiUXt0L2j8yP
S2Oo6E+64pVvxfvD1Z6aVA01jC8yyx69yqGi1i7J7DLNVshhqwxxraGicOnP
H54YtsKHv/OjohF34fNMo1Z4b+Sb+KCPinYfC5rk2d0K8/3p8kz2FRk2C7gv
TZJMIXTAUAFHhugsFa24WqXZMtsOU1bs2b6TVNRWLFc3PtOOv096a7rd7V/t
MF4xW2R3nYpcrLQeb2a24/O/fl5UeFd9O+wf8NG+sIGK5N3Hej8UtQPtYPJe
ihAVlVYkjez41g4reJfrU5op6GnXop6CpHZ8fbSrgnp1EttBvqYqSa6Gggbt
hh57vm+HH36aJ/ZFU5AVKeFO8tN2fP2r7+QUbI5qB+5YXuWgMxRk4u0lTwlr
h6TTfi5OjhQklxLcceFuO+5fqSIpg/sD28FEqlC0bSUFbfTLTmjybodsDY6H
vykUxK57zSvoQjvuv80Rxv2r3Nph8/MXlDXVvMieXXA64ng76Mx4ZmulY/Hx
MzFZ51A7Hh+aI+H87bbtkNdgXlz6nBdRHvG73N7fDp1scqNexrzo5sV6lxcG
7Xi86pcLX3LSaoe4TKko/gYyEmEn/iqQbYdWT+WxG1VkxKakWBwo3Y7nI3U+
dzTO0w5pr5QHko9i+VVG2LaGpR3Ph6Z1ruz0wTY4U3+nMIyFjOQedkvX1bXh
+brBZ7fvJQx3Fghw9M2QkFhs5gYzDB/NXaIziuX7lnVs0ptq2/D61b17yrv+
SxuUHep4TblJQlSXD0ptn9rw+t4Z3LPbPLYN2tfPiJRbYfcT5PYcf9IGuY+k
utcsJaE3GU/bkkLacL7B/LCnzxfDGvHm5HUYTm50czuF4Ycu5nQpeRKK2jG5
UgjD83zmyckHidvd2uB0kxFfSCIP0t83SP9+sg3nV9QqvZ9i1m2YP70/oG7B
g2yODaI2wzb4KXLPH23hQeayX1ry9NoW+JvxIrnmTW1wIWiHwVPgQUOLvqcd
orXhfLDEeN94qWIb7MnK4zJs5EYnOhUenJVpw/mlNdsL1TekNjCtJK9dfIsb
SXt37/g4wwSDvCnKEjdudI6SmLt5iInz2+i3De0Dv5iw8/2uA9vMuNE7i487
tzCYwOq/enq5HjciPpK5JdbExPn3LxliT3kJEyy2u1xTo3KjCDPN1l/5TGja
qOhGbCKixkcMW/8kJs73jy7d+MrrPRNMtTJS/aKJ6K3zsg+GT5n4/qLf55Cj
xF1sv+jo3pO5g4ia1TU6xs8w8f1QjqvphU9nmaDvZ7ojnG3h/navZXbRWYjI
Ythj5OgHJvjMWEVqcRPx+d5zlHwpg+3futj3cdRytkG6QarfWz4iem3rekd9
XRuEX3F5UslPxNcDju7fpYthuzfThSpWbcDKM9gQIEnE15u9b2nGu2XY+E5v
5YD4NjCM81C5rUrE/fGlr8INTi0icjt1Q9RUqB0syX6OBpuI6PqtStHtyu2w
+o0lORjbr83HZ1mPgGg1tj/rOL7lvNC9drg2eu37kUAi+rJHuVF0oh26I7mZ
L4KIeH6bt9edTpP4p2wdYL9n0+vV2UT084U39fDBDlAs3LlDop6IHCJWf7II
6QBq5243tTEiwirQ+rS0Dnz9CEs3lJ6a6YDxizX8/Gu4Ua7PrUE14U5QD3qk
mafDjbocN92Ll++E5NV3Ayqdsf3SNp3lGUc6cf8qbb94HSV1wvaoyCntD9xI
7Ri59jWGlwv0n3uA4eNrzc7yJnfCirAfftED2P4G1q6v7++Ey82nCBWY/8Yt
3mOvPdsJ69g/ve3CcIbH3g+mGJ73b+lLdXuPYJj5PFojkpUHvUnh6qtj6YLM
9PBbOUt5kKa7evdjuS7oyB1/qKDIg35QMYIq34XHz4+dtTJym7rgoLy0WQQW
X7LuebJ9el3w8UzEIbMdPOjXn/N0oy48Pi9RTEQNPbpAnuW5syG2v0kmLQq4
59MFZ7+Upu2L5UErOzGDhHTN5U8eFN7I9kT4QRf4WAv4XvnGg1r250v5POuC
2adLdlGxfGDuJVf0M6kLzw8HRzv3CSV3gZ9XoXcYhk3rezVXYFj53om80n4e
lLuTZ+P+nC4Ic5speCxEQk4/T6/6WtsFCkdNmarY/ighJPK6SksXnp/cV4q9
c+nsgpr7WReGDEgoOHt42b7ZLmhWeNZqYkRCWxvMB9QJ3dAcIMQM2UFCVrtb
g/K5uvF8uPXCanRvUTdse+1Y6vyUhBycUox9BbrBsR8rO88Wnj+fX9eu2/09
qLgLVtGk33wpwvi7qPNprxddsOPTQXJLPQm3z3z+LhhOLo+8gM13Zy19VJyM
ytmUr9vbdsG672+8BTaRcfvP14Nso6lr3vpd8NlPI2dqGxlt3TJwMBhbv6is
PscRV4wfrzkhLri8C68vbCul839g673mo8cD4iuMjzu5MKdFuqD6/Yuzy4vJ
aJpDU+QSTxfOV4/viyVbc3aBKcdDMzKdjKKPut+rZeuCrz6v71Zi/HXeH+fr
nYOla4p2XyfEnmgQXb2eF52QvSsQ3t0JDDOpOGTGi6YylydkMTpxfto5U8Dj
3dgJrmtjNN7e5EXey5lcPFWdsOreGLEF46dGZwr6eSo78fp7Y+gEYfhnJ0Tf
3m+kVciLlJp1yKcKOuGC1XuD+794EVxMcDj7vROv71WPp+u1cjphX5jEl2YS
BbHqf0vry+oE4ZxPxgq6FHSmXu8K+XMnzh9UfjggttROMFH4ZGi1lYISf95O
3JTSCSVSgTwHzlPw+JznJ/sPMVaFv8fi95GKfHgpBTmUGGaui+vE+c66/bYm
ZzF88I2k7QcGBR1cfCklG8Pz/POU9QfP8hedQPEx2ua/j4p+lB1NanzSifOt
2q68d9efdsIHl4xyl0tUVEMxcdv2rBPna28a724/HIPZ37vXQr2bimzbSmQh
qhPnfzJSydu2RS9gY+ZbvsZFlaCoEl2/cQDjlzukWrYuq4R7WVpl/VUYv3xz
Oa5ItxJ+Kwn+2p1NRTA7+ShvTyX+PDEDV9Mch0q4EhyoZnaXitb+IfABlfDC
vL3a7DYVpdI1NlODKsFGUNzE6CYV6ftXWMzcqcTnI9Nl9rzhQyWMpX/zMbej
osKVHzVtsyohjeoRr2VGRfP9gH/9GypSjzlp+IheCSs2eIatVqcifpk9yieH
K3H7+U95JAZzV8FizYv35fip6OPBUPfd0lVQHG6UM85BRRttvvlvUamCit6R
TYvbKejn19KdS3dU4etjEruLlLi/CsbvGgYcLqGgMcNHjt4OVdAmS6ewPqcg
rzajgKmQKny9extnWqLfV0HQtzNPc7D9i7sQtqOcqIJPhjlW09soSMqwxOIO
ZzXuT1PxPXup1Go4plA4pqJKQVEW25g16tVQa8rr4y1HQetfqikPQzXur6vH
7BSrjlXD0FuP4j3DGH+8LMrbd64a24/Wcyu3YvFDT1uqE1gNPUOs3Px5vMhC
NokjLr4ajw9LyUz7gMJqUJFV0A2O4EXln7g0pnqqwTWtJUTvPC+a75cYLf3Y
+c2ZFzXUqh5PUarB47H88vY+y9U1IDyec0h+Cy9yWRN0Pde2Bsi7rwa4G/Gi
twe+pDofqcHjfbmI3YbH92vgvqYHUpHkRR9qTncviamBy1M+TsH8vIjg3tA8
FF8D4TXrd0cOkJHQkhYBG3oN6O4YyznBIGPrwyyWm6zB841GJX2VL7EWYpwv
KOTlklFT0OEaVunauflh+Wj526FeVAs8i2MbLBLJyMugN8NUrxauhX2SCn9M
RkgkbvGQdS2e79IW62+VOl8Lot/T5LnOkZFhzHCUbGQtfl7wy/MCV0ViLdx7
HdaxfDcZ/aEXryux57c5H+HdTkYR98ILPFpq8Xxbrto+ON5XCzmpK9Weq5CR
/jh7YK10HQyfucH3SpGMLuZca+NRqMPPP95prd96Z0UdvJk+Z92P8fX5flNO
1blnPBhemQm8Usfq8Pxv7U7Len6iDhxWrWhO6yUhLZZGz7jAOmjsrNWe7CGh
4ivpLSJBdfj5D9nziLrgmzp4XnVf41cNCelqHuZc9xYbN1zLfb2ShL5/FTq2
NqEOr0czm0Zkhn7XwWRf9inxxwvjhdmT4hz3SegVsvP+HF0HzuGybUew8fn3
DbA7dmD8CQlJuLkXgH4d0BztrPKiSChoj49KJaEOPLomjZtfkHD7reAnFTW9
IiEzFwuThPRa8BqVvfYsnoQoP0w7UrfVwjflJurN9yR8/ebfb0o4d3e9ai3M
HnIfv5NDQt7b6i8eK6qB+rhT6j3fSbg/eX2vKbUuJCGd6YS7HT418Pvtnk3E
Cqy+V8Ycnthbg9vnWrBb0wvMnxN+mgjFNZJw//+dxUWy7CShM+sEt+oOVIPl
Zacv5hMkFCZ7UOBuWDWMB29opUyT8HjzS1aQV8b2U5q22YPBftX4etnZ5+tc
v1IN/ismpr5SyCh1ImktVa8atv3WKeAVJSO7Lo6vrErVsNWLaPBZlozni3n/
MDJJ4rfrx/JL1d6XMmpkdL7yOKUstwqeR0sS49eSkeaKZ5bv46tw/5Mv3HNb
0hUbJzzhLTEhI2H1m9SmE1XguklZV2srGc9fjBYtcQ9zMuqOeuFShOW7OE4e
/1WOZHSd3e+tiUgV+Nkjw3YPMp5vfxqNJRv4ktFttQMyctmVePyMvvR2XR1b
CZLS2l/WppDx+tDbxplGyyejEMuEncdkK/H45TsaR3kyUwFnqo47yWL8gLvi
XX5DeQVIKhoXMKfI6EzLyZ+n4ytg+q/9yGhFL3eif2wFLGIrJupg+UI1+sve
bP8KPL/sDLLP9HWogKxLO4WvruVFcl6XZac2VcDHn8nqxVg+GhA+0C8sXQGX
z6yratnHi94cFrvvOF2O57NA1TiaO6McOJHZrPE1XuQX+VOu41M5bOvuna16
xIvm+9UnJMaUY1/zou6fiwZ2uZXj+ZTRPNP59mg5yGl/kxyu4EUaR4JuhK8v
h3Xv3u9dgeVrgdVX37NMleH5ew8Pm2zVBIbP3jCWIVDQ2qf3Sx9hOMaulGUz
4c/38qBhjeGxxZ4rb6tQULViV8OajLIF/rFKM4D1QRkMG8yKJGH1pUp+sYSi
dxmsWeumZHIC4x/vVu5mdSjD69ESsfioKp0yCBzbocvynoIWx3aISIuW4fWt
XNbipHpbKWxi++6+t4OCuhjS559VlILE64tPf1CpSHUva7P461K8njbu+vBy
771SuKk/mjp2hIpcB3eZ5W4rxev3Po6auDCjUgho23Xm+Ckq2lPVsSHZoBQi
aKnrrJypaP77AZwvdFQMnWIrBY4j7T1BpVTkspFaZt1RgvMRf+aasZC0Bdxi
8TM+NysT7vlPlRe3U1EQB9fHgyJZ4CXAetmwjIq+iAX4yPhmgdzjNXWWaVR0
sTPgmIxsNnRVEWrZU6ho/nuOZ900oZOfqGjH1SsHDuln4+9DRLNcDUez4Zxs
mkD8WyrCsp/Z2aJsOGZGj76L4bXab02SN32BeocfKX1vqCh0nYFayYEvEPlC
VMLzHXb92cHUjee/4PdTEifu6yz4Au8TTYJeYM8TY99FWT7wBUIEroTWfKWi
x6niD32NcsAcPdOtL6ai+e9H5s/zlsk+MrF/kwN37kxH6HVQ0aQA8YEXIwdM
sistdMeoaPGfD55Evi7YZ2rrFW+VBey7nnpGndwAJm+YPzsnqHh/I1www4R/
nIrkZfj1J5c3wOUX598IYfdXDo1b9cCrAeQ+SzFWN1Dx/oa/s5asOsb/GEYr
Y1YNNoBi/7Nw83KMT5p3/6rhbgQX2ZuDenlUvJ8RG6Np7/adirY/lCcIHG6E
5rXPrOzSMb72htAtmdsIs8oqUPGZivczdqfvUh9JpaKAreoBh5sbQS3/VWzc
ByoqC3Z5vF+mCbfnzasWn8pXNkHL5cI22/eYv21Qiwi3bQKL9NId5xOoeH+j
b4VheiyG874nznafboKGd7FnAFsvQ2sdg7iuJlhcYLAy8jUV728MgCrzUxx2
P1/2oyJcdBBawfPTArt+jd/B3/dpdEhM3eJgiY3P9y82EOsuM7Dxpmb98EXb
6aCjcsm8MZGKeO/3a5rdpAMh8o7idwzP9ytezj52WJdERas9V/4cDKHj8xHZ
JsKt8IAOm4TsL6hj9unO6LwmX0oHgQiRbYkZVLx/YRdsEOyA8e2mU04yZCYd
EiZsxOUw+873K7CkXvo4n4qKwsa8WynNELFyoOUo5k/z/Yl5f3rQVbelUL8Z
NnF1DCRjeHv5xSXjBs1Qmy24iKOeiqRWeNFrDJvBYvNPARMGFe9X5InHCgb0
YP6qoFaw3aMZ968fEscIK14v4G+WgwFigz1wQ0Yx+Tm23xhRVXl88HcPJJEd
9k1h8cdSH6O2rKlnYf53gw/ubeyBAlrBy35sPVOHuBv7Gnpg5HyA++ArKlon
8TKFs64Hbo7PJgSfp6KHHVnWKj97FvY/q4akLQp7YG/1r8fx5lTUc8fEZCar
B+53+706v5GKKuqWPJNI78HzV9YF1ojaj9j72OxersZNRRExnxxocT2gPXN5
zeluLJ9mESwao3rw/HjgQWl0eUQP6BtGye7D+L9oWN6r7gc98OANo9DmEwWN
qEcVVIf0zPETCrJuHJ3lxjBqHyl1uU9Bj5ZG8cf59eD5+IbpY4lu7x54Oa5P
brlMQVayN9adutwDR5fc2nrYjoLyroy8v32uBy50mvrv2UJBlRslyzee6MHz
v80Wt4dyx3ugbfcdeYflFFQgqFR91L4H9hvdHjOhUBC/97OXY7t68Hqj+4xe
Gm3eAwfMfy16PcqLFncElM6a9kBv6rhAXQsvStoWXv/KqAevZ294ih3ur++B
rOcXaeM+vOh6YZXOoZU9eL3kl20oNJXsAfWpC/6DqrzojENI78XZbgguv9qj
psiLTsbtGWqY6sbr8+OzOen7Jrvh8LbA5F8SvKjInAnVI93ANSio5o/xfZ4W
bo/9Hd04PzAkex/72NAN0vZHnEMzyejEhqsJSiXdwDmy2IgzlIzuJN17SE7p
xvkHyhN5nvqxG3hdWwjLg8lo+tG+I8cwzCH/gj01gIzWePnNbEvuxvn81s5r
i3Sfd0PpQ0eO5/vISLJTipwf3Y3zJ/HKfSUPQ7uBJeuC029VMrrCG1Fk5dcN
eXHdGb8IZLQlZqqXerIb53c/9x+VHj7RDa/yBnRUMP45/zyWimbRlgYSajUP
0ztd3Q2shV9y68dIKGnWudByrBtCk0y7bmG/n7dfUfqv42UY9jTc7fNyduH+
lCKVS5kY5jnfWPSTjYzWEXev38rWA4XKhjEc2H5iy7unWpGyPfj731ri/NFO
owcmn4csjtxBRpScvRtWoB6QM30qW25Fxtfb4YLszbJLZKRq68Ivv78Ht+cN
uwPHD2P+ZDRkW4mw/dMD9pzM+lM9oLg41Vqiioz7e8Pax7PhfLzo/rR3TNnT
Hny99VxvUorje2CZY6hd+gZedMlD3rcquwd4Bnzzh4/zIo9B3hD92gV/8hJ2
vHEHw53Pz0fznMT4XD+jIwHDqootthEYno9/NWOv5GdPeNEswembTu+Cvzbk
t92cxvLL0sKs8GE65q89PIuEJxb8n++KZ8AO7l5IVVA8yqNFQW4s8S/Vl/QC
YfmMoIsBBW0z1vFsU+jF4+t954WCWMVeeHaWdlp2OwV1nKrbslq5F/jEz+t7
eFBQO/VMH2FdLx7PLbZxxbfX90LgLUrveiz+f0i/Wntycy9cMVo9MPqBgrxd
JIw7MDyfT6wenrUIMOmFrMDO6y79FMT3g3PEancv3P75IzZ2ERXltw4lu9v1
4vmqL7GzdRuGf3TkbkxUpqLMDOkqONILh9INl0XpUNGn9o9htid68XyoIL7z
HadrL9jHm/geu0BFUYrvOcUv9MKodckV0yisfu66btDn1Yvn3xgLs7RK314Y
M/va1F6N5dPaDcHjIb1Q78ShT8Lqw7m415R9t3phk9Ipd3asPuiWLj4SjOH5
fH895sQzzfBeMH9kUPVm8jdMvewv3WqLMv7Vm1/geQCslLlFMkxal3V7F2NY
21bCpXVpxq9qi0TL/F6IpC46lNotNvc+2H2XTAe2JQ6lm3TXnQ982Que4hwU
tbtiGWFxwjLXn/QAgXNAYR2dd+77Vgz7XsiTuT2W3vriwLv+qxhm/+0kacSX
EbE67YmtRzd4dvt5dKSyz9mnGwiv0+pW1f5OF93xmVpojWGh2TV3rbgytmVO
lVzY0wWEcyTQZc7Q/p0vYfia0I2cD8z0c8sP3qrXxDBtdectb5aMDxtOCSRo
dAKhatXQreHROX0Jhov13Wa9GtM7BKf9yoQxrPWT+HERT8aJEupKRk8bEEQP
Bh/ZNa9HwjD9cOqG903pSswHgyKFGLZjU4dwQoZ1jpiBTUwrECqvTrjSR2j/
5othvp0mwTGZ6apbJrnuemH41ohkhfdwevRkzI4ZqxYgqF1Zdfzwr7n3xzDh
TVFZdFZ68Np3Fms0MbxYjS0pqzt9s9TOm2/5MJ5yUT+quJpB+7eeGM4MtNYs
jU+3lNejHAiqw563ij17qof2z34Y9jy5m1rzLv25ukav/1YMW3JtbQ9pmdNj
VGLPc92iJR6YPnYuZW1dCoZNv7uJjX1L7/88M8F2tBSbr3u5NmvG3PthmOA0
FeZ9Nv2pmMoZ92UY9jw2tnx7cvrl1jf+O98WAAHFK/1uiJ17PoYJwWui1hql
M4o7vQxVMZz58PuDy1Fzz/+GjWem6+1Zm64kY6MwEI5hz22T24W80zMW24m8
9M/Gxr9PeVy6NPf8PxiViQTJptNO5ux8xvUHT6wMTTqT7kgWq0jtS8Vw/usb
Xkfnnv8HE1zeiw+lVfy6s+FDVwqGzc9dtLJJLxPt261YmIBhBwnrzB1z9/+D
CWOJAT/S3PyCnOS/xWM4rOwZ28Z0/0eCxsu2x2BYplZaUGnu+ui/caWi/ziN
7sixS1Y3CsOet6nGXOl9LrY7NGxs/ow7PP2Yq0P4f//4UIdOxOjTK1FAyTld
vx3j92nK5o9bHkVBW05XriEWv/N6g3k+aMO3YbGXWDTcl28LUMX4I89OGq8q
xIA/i/BYaREVndCbLlBa/hRW0eKXDf6mohZWS0XGg6cL+w2ZC6oN3QsYbT9Q
1WUyRjtC1XbNnaQiz8For8uev2mqpVBEwPg9Ifbng8bntbT5/OPp9Xax0q42
2vrnw79iML6Oqsz2nz/7m7b8/ltC/Wls3OWt38Y1tbT5/JbpuD/2ypo2Wgon
7xEPR2zcUcNb9NhvGmvPxzUflmHYZtKpKq2GNp8/M5+1547xtdFk/S407pHB
sHDxY+uDv2nkdZaHbzVRkOerGyvDDWto8/mZIDuzSuz9KC1QV9tibRU2rvst
zNzyN80+wy/sRCg2XvV4i0dxNW0+/6P09wabAkdpGaYqAru3YuP3aDEjZ7to
8/XE9Ffv8Np2IliuvFiUq0dBxSJNJ3n6CCBaG95GTuVFaLy2oOJkJ22+nkXS
Hiir3CHCkPyGbx4JvCj4rvbvxA4CON2aTc5exosyN+g9jrXroM3X23ekq/az
G4nQJ/X8w1oZXkTw5OtSZxAggUi66obxJcLYcJSCeTttvr5nXr4hltXHBTUT
ylG9gRh/Sj7S+6aJAF6StsYr2MnIU4r3JcYuafP8oy/HYbtHJBfkyy71ejJJ
QjJLfsWYNBKAkR9Jbj1NQignPSpcgUmb73/15R1qNt7BBXHydKu9jiTE9/Tc
qfXY/TMSd+eFN/GgTOlE2XSuVtp8/04tTSZtLRsX7K0LVhSo4kHBKj+kX7QQ
INyVx3P7Vh5EkPRKbGhpoc33H4NPPdW2TOaEEO6dXbl6PIgeyldYhtnn7uPl
ahyp3AjFnq06/qGZNt9P9fQO17BXHKYJGiyN8kjgRmrr/Csn+wlgZLykJmUZ
N8pMp4T8uEanzfdvIzWSiZEynFAp1Wq8VoYbySzjX+o4Q4CA9TruTqFERMjq
Fou500ib7xfTxw/wsVRzgECT3vO17ESUqbHMpTniF23++2qnXdP3XywVBefu
vjMWk1yo75zlEj4zAZhgClU/auJESLGPLCvaSZv/XtxzjVZwDZEDyA9O6WZV
ciI+gdMB8kECoPDzbRznH71xn0m9tMa8/hHDKW/vbRkTht/G3EaqCRyo2NL1
pytTAPZ87OQ7GcqOPD+eolpn1dDmv6dXY++TfyjMDvtYvpuEBrKj6uzsuM69
ghBuMdtcfpoNEYaj8hZ3fKfNf79PMLgmoMMqDKek3hNmHTBs/HTRhilB2LlG
aEhrKysi5G7cGZH6Kn1eL2ATTVQT288GPhybhg7psSK38ibrrHIhcH90gSNy
GQvynLQ3v/WkPH1enxCmJhF66IgQ3IDPrvnSLIi+nl/TZVIY16P2XV1WtlqI
DQTMDp1uCCSgzIqD/Ut62GEsT1CLl52ACDLpq7ReVqTP6yMi/W64WlPZQIEu
liE3OguZj1+G3HzOAebpOk5ejBnwHF6jnmpflz6vR7URVevnFRug3Uq5edWv
dAYyV9t9HPXmhMjMT18706cBaU9Xn2XQ0+f1Hnys/Hnuq9hgax2x49cfvakk
eexQMBeEOTZsNr0/BZlHXV4ZXmpNn9eP2gDfmVM2bOBxotLXzG8Kij/dYdtR
RoTl+0Oyks5OAp0/9pptREf6vB7FtIe+1CGWDfa8kqx+bz8JMtz1lq42PGC9
8W21+I4J8Ny8Z7TxRG/6vB7Uc/qGf5cEO7wtqWIXQBNgUyC4bGIHeUEP+j6f
QNQfpI0NJA6jN+NA6E5Kzbw/QdO89HxjpOo4ZBrlD2gLNuN6UMQeqK0cOkh7
pV+3ZVBiHDxbpu6Mpk7SNk9drd15fwwIVJ2xT4ktuB4UdbJcyb/aQus7f3zm
id8YRD4wYw3nnKbtZuugcBHHIPND4XN331ZcD5rp09bQeWKItrH1M9NidBRs
8ggSJVdnaAxt99xPf/SgroxFr8PbcD2ozTg9jzE1RINC61KOQ6NAf9FzvFGa
AD/vPe88xhiBTG6pNPHRDlwPSjdp36MRO0wLuNoRQCwdgVzn6P0ndwpCFJNk
EZg+DJ4/TF7UBc/ielDCZyu1HQGjtJjudRs2xg3Di+LEjzufiOB6UPrXRUzD
hjFarGl7caLEMEQm+q93f8MBz0Qztf/oQU1vS3baflnQg9rkdOmEBE3Qhg+5
8Vj5DQEKEZViZSPCklsHV1VwDQG96uCpdWkjC3rQXw2qeue6aBuUj50bHRkE
J76cmxr8JHAdGQu6eHYQ0PERRvfDCVwPKqOpMAstszSjwLaOAPtBCKZoJE/R
qLC4pMBcijEAkUzbfcCYnbPHANhovfydvYwVmgmGFoKlAzCWHmxT+kwAjvVc
jUk2HYAOLd2r77+w4XpQp++1p8bvcYBXf+J5BZ0ByPXml6xwWQGjvn3dT5T7
gWwTOt7RK4PrO2VsJ9w4VITgNOe3OFm+fhA5ZuC65JoRxFymZy0j9EFfRXN0
Bh/KyOF5vumUWR8s3/3rVdhGPygQefX4i+GC/jJbRMW/YmcfvFHZ/vwE5z0g
PrBK8rnQB6qWLjkX9zzE9ZSb+0mBlBtRwJdZ7n39P/pJS8bHXNNPffAk2Mf2
uP1T2GJY7ujwvQ9+mzB4WA1ewEnNczdl/6N3NPN5nG0z2ge3Itnbj4a/xvWL
u/onPBTK3kE4o1a6RKMfqK+ERhOY8TB4Pk5p13/0i7k3f+Wn0foh6HDUbefb
CTBdZeVud74fLJ0rWpceTYJ49Wtv3QIX9IvZ/okWmgn9wLsj86f70EcQZPcH
euuCXjEzrjQXOAYgrFSmT9nmM65PdMopSVI7lQESStukze4MwEclJBH7JAuU
sw4fb3i2oE8UWhf2Ma9sAN6VsMF10y8wRV/iFqs0CEEXzaXiyV/BQeZqzXnn
Bb3hx4lfUiHfB+GK2VaLh3a5YMsROqKxeghGlhfZhEXmg2fGotWN/9EXiu3c
KOVzbAjEY/m2HXmzoC9kP77+Y8LeQjBhSxzxER8G6XcrWMWYP4BJk//Vv31B
Xzht4i79rmgYUiQoG1O5SsB6ewGkDg2Dpdq1h+77SmD8y8e3CrYL+kLHwRMv
22+MgLW2WWXtrQV9obQ/b8FXpTIoJOqEXzIbBUqF5+B94XKwLzpZ3ha8oC/8
yp4tGSQ7BjQVtsONQRWwZ8j8zk6PMZDIm31boVYJtOyioRj6gr6whDxKOjkx
BknsUct3/kdf+FI9h99gUxW0BqqeEWoYh5DzhVqzh6vhmHHOiXirBX3hJtSc
ZpI3Aa9+si0Xz1nQF75u+KB34HktrBuh6FlnTEJkSu7jXaJ1YJ+fxLeesKAv
ZAzEV3tlTMGbiEUpnv/RFzK1OXQO+DXAQXBQbM2bhui1zPzjjxtAmnjFkVm3
oC9UXPzU/FnjDKQPCb0cKWsE02ThczeCZmG/XsJl+xtN4Owf+nTZf/SF1xbF
b/ujL3zwIPXAf/WFJIlvkX/0hVq7LL0+aRGQ9mz758T1dEi4tjqo4zYBXSn3
HXr7H33h4gq5Ph3+Zth7Keqh1goWxCHr0sIi3gwTzhuFFmsv6Au1FLm+DBSx
ID7ly5y9EQv6wqB2wjV+lhbI87yjz+XCirw4PkpdkGyBbz6WbpUJC/pC4Qsd
d4wk2ZCMRlhm3b0FfWEVxznTN+UtICc1KaVVyIacIsRu3uBlwOWPvPe22C/o
Cy8rvU0tvMyOZLNJpeEeC/rCzqQos5abDBB2rtqi18WOdh2hW8jmMPD/b4Vo
Exn+vZUBko8Cupeu5UB2yyzb6D0McHUZfDRp+b96wzST1IO+a1vBJcakW3aQ
A+3qFXK+Zt4Kq7613dBYyYm+Coduo/9Hb9iqe2L7sautwKza+MtgJyd6tvfD
zBufVhDLbEt3Ofy/esNn8hFPYl+0QtitN79SkjlRneh5Wf+kBb2hW9PdQ0OF
rTDO7Fi9c3JBb0iMO1ThJMaFBvV57sn/R28oTux6YtXXCsdLIg+aW3ChJ+7T
3bn/0RuKLlJXHRJggu5r4X2mnlzo7EBC9C0+JtwXMO82ivhfvaFPGl3sj97w
rGF42EGM/66VvkIo+o/e8JRVXVjpISbomL7g8GEjIoew/ulEBSYEJbuedfyP
3vDifm2aFYb95VW1K+SYYNvUs90H49eB1lPnrze2AjKVjab9R29YZvDk9noM
7+16EPa9ErMX9bisKg8RHda+Jkx40AoB52xcBv6jN7RGjZrCGN5ygNv+s28r
5L+/yB66mIi8PzHP8km0gqZT45pNkgt6Q8a7sO5iWSK6E8LhF1XPgNCrsuMF
a4joRBrZu/cxA9QcA59L0P5Xb5jL/Wj0rBED9r54fDDTlIjW0PVy/JQZIO5R
vFPxP3rDjvQAK4FdRNSyKCFgWpgBr3QY1FcHiSjE732c4UALtI1yHhJ3WNAb
Zsg4tz13wa6P/NYintoCAd82PDU4T0RB+keKQ1+2AHXpNqWM/0dv+IiDvOad
QwuUSCK+RQ+w358U1tYwbYFoYsSu7v/oDa0Ch+9deUpE67VN9Zept4DIwa09
Rd+IaDZOquRWZzNkuRDPc9Ut6AsfSNKzOoeJCOkZF1v6LOgJk/QHI2xXNMMP
wkYtFWy/dVzYrkZPoRnuXLy1r/E/esIABZ7V8WrcaNhz55S/SDM8b3Bhb97P
jQo3eTx9mkeHzSU/a25cXtAHIi29kHOh3ChY7Pqt9lML+r+YJE1E16XDUx3p
tj/6P/IK38g/+j//3qUqcS0L+r9ID+Ost1QetGhKTPi374K+j43Z3mc13ghm
izqyJUx5UMzHZbXSzEYwyfm/Os48nKr1b+PbbGMTCVGSKUMp+RWp9vfJUEnY
RCGZkkZSORqolOHohIpKUYZIxgyhsFvbeExFg1DINm1zmUOGdznvYbmu9/f+
eV+WzcWznrXu7+e+H5sQPgui35cmTa/rC+FDu6cs7Ffu/g4PgqzYyU/5kCfX
gYOmG7+D8ElLXZdaoq+34HfXXN67YefzZnBzM1m9bQ0/EiItsz+xohnUNtaY
v3Ek+moLfjphMF2i7UoTfNEuzhp4xY+WR+xRChhrBGfnrdfZe/iR+HGaPTmM
yAeFondZTS6N8B8e+cs72QTQ9W/hDJ/TjbD2GadfJDuRL1rgBX/I/310fOgb
JEt1yh6mCSARz4EwqU4iH9W8fvIS+eo3WDPrEmD3ishT3aReXrV3RADxDVqU
p7V+BTcVHsUEDyI/5qp60p03koKy6GY5/QNE/iwlUlng/OcGGL8lW7lKSRDx
n0jcP7mjAarDTNKdTASRoZ7N6qM8DQCT7+fUrYj83MJ8xitO5myWfT1YfvRq
vcQlhGzlN8XtU6kHzRaRpBxTIh+4MC8K+l5bzZFbB2ffsgxeFwqhUzY+GwKs
6hbnVT9NUt1BmtC31Z4WcpO6wad1l7HinBB6dAhL+DzXBU9VzSXz/ksfxn/i
pX/DQBfEGB5jrrslhJSdf5n5tRN9mEtvr6dsbOwCraH9FOUdQsjx/rbsY++7
gBb3eMhnhRA6309Sbyoh+i+63qeN32V3wTXHPTyKzwSR0JtwtoHnXcB9UZPW
eEEQOYzHb7YOI/osKu6+TwyCumC73tmV6zYKoqrmexWR/l2QaKmkJlZP9FUW
83+imFyFYxc4qdGSEvdSUPsp3Zkbe4k+iqJLQ4+3VheUHTxmtuuzALLxKXyq
I0X0TzrNJVwj+bugwOBB9NhpAWQ51vJXOInon1RrHxJ2HmHBwACH+1N8/fmo
jZS1LOmfXCpqE3DHdZiZvwgHrsVrm9YDrl90yPYwlvRPMmvXZsje4UdjN5TZ
P70h+iblBh43XyWzgJEaqa+mwI9ulp9B6fdYoPFht6aGPD/qNuM0vrCkP3LV
mbJX4jILLnZsLP4zmw8d97kk+NGFBec+chhqmhN9EW7LD86O+/lQ8aH/sCcs
6Yvcqr3D1qbDAr37zGMdwIeUA091xi3pi3TWPJJJXscCVsTfr+VayOhwSG/1
ozVEX8RKK4crlJ8FpTYH1r5f0hepkXPdbHSJjJ6mzkbJLOmL+Agcmuv80Qmi
Q9Nqp8zIaHXHgOKJ9k4IGXwvtVuPjIabXd1IS/oi15N+qr/92AmU40PH7YTI
6EJ53hSjshNGKLaWyv+lLzKxXfHQfF+ka+eBBM5YXpTn3pD3Lo7oi3DvnesX
edAJ0/6pcpz484mjgV1p5x9EX+QvlZgnr3BdFnJcLG9JX8TBpmjVDzZeNEPp
xC697gS13KpfQWK86CxNzNlCnQVKwc1eliJEH+TIdZeWFlzvzm38q9yaBQL9
Y2eLVvKizJYfF4wvsmB4+sB9DWmiH9JNiTiSJseLOnl7pcuzWDATRZ+TkOdF
07dcvOVzWCCn39y0eQPRFwnUS3ojqc2LBq3j9jiJdkGUBkU9TYcX6bP36LCU
u0BVeHaAaUn0RfbJn7+icpIXve560lv4oAskqbobzILwn1cov4t9qgt4rzvm
Vi3pi5DPbPbOvcuLPigmZd7C94uFv98fHSIJ7RzdUGpS3Ya94kXrXqtUrtvb
DW2VpexBxbxI9HRqIL999+L/w/FW/bmYu92QFjF3rLKR6Jd8Ghs3pE/yotwC
rs3q9G44h7/4dJPJKNFHO8HnG9E3qb++/KndXDcs4+611NIgo4NDV16QV/RA
XnHSRaclfZOF9cVV0lPrad8DM6W69N/nyYhz67uJx8d7IBYG3Mc9yEiVts+/
5cxCfp2Mcl2LLzwK7AGKyYdVwffJ6BC3xnb1Oz2gGCOuYIs/f/frVl/1uEf0
V2ye57vsyO6B1JvBj+A1vp53J+xMxLWdKZft/SX9lZUTVuUV5WT0kd9faras
B/bNNduJNpLRPVHdmplvPf++z5JRlPTDDwcbeyBO/svtT0v6LcbbTJPn+y0c
jcX5S/stv28MRDvi+ilmyZbAxoc0Eyci2klEf4V1bveOo7t6IcqrxKkFv99L
KWncL/V6QXUsVD+aRvRXaEcjWgvx5/nj4suU1f69IFBUeSI/ieirLOwvN+oq
Qrdk9cLocuUoyWE+RB1d5biipBdyVA+qlwsRfY9tvYymiwb86HjOl8+8c72L
+1n2qvX9dOE+eGkpousWy49Wn3Aps9fsg3QHb56fs/xoOOKG0FqXPmj8doj5
HN8vZQcytT1diHzA/cfXDkXi+pLB+v+sxPdbpkPKcW1XIs/Q87ti1cOQPthz
5fb7IXsBJKdi+fpaZB+Mbr+qlRNE5CMW9vfBK+4pFm/6oFLumHRqsQCKKaDF
iFQT+QzhJ2wTXF/74JObUG6AFAUdv2C15fw4kfeIn6y0853qgytBq3SY6yjI
4DEtQG26D7StOrkNNhJ5kQX+P0fmcpgT7wf99hr7V3cp6MC3sqZEBYLvK3Bs
bVHY0g/2gSsKVnUReZUHRaHfkicpyOq688c5Y4L3x64ze7HFFP+8YJ5ZSYog
0kHCAWUWRH5mnFKRfuFUP2x6Zzvs4SyI1J/nJd10J/I5HmwejCmffkiYKOaP
X5LvKZ3ctfnlZ0H0MFTa+PFjIh/kzpJ8phiBf/+yi07NPYKI/mmv2b7ofrBW
/qy5W08ISTyXe2ucT+SVfhzYFNxR1g9ZVOP+khQi3zQinZyZmyWE1lveyVdq
JvJRtAvNRVG4TlJo1w7OE0J5G7nZ8r73g7B6n9LxH0LoiK/Np5j+/sX3l7Mt
Os7ug/3AClFR+PJfeDypoX6H4StxBv+a6FNl8zz+GvVGSK8iQ+wPwUe+lQPA
1LSR4jaUJHj8myyrOs4J7LkVb+7XRFyrSPpd/CXJkDlI03sV1w/Rt9Y/OWW6
jODxTZsKLzTMYh8PjDci334oUDTQqioUYbClhbTfud6H/55j3pvv8hA8XjaN
HcsYw6IulEVI2eFa+3XNhJkAg/P3wP4k617wztnWkWbNDos8/hI996XUIGaX
f9paVRv/OmNrb9Z5bsbPPQ8yW+d5/J7YcuveGYLHO3FpZ9C7MVpcVuJpMVzH
7/1zrFqYkQdMYZMBFpBKw/86t4KX4PESEFom9xMbDq0PSprn8cHy24RryYzb
s86f383z+E1OGT+2scMij3dzuXxpXS3W4pb5Uwb38SSDpj99b3Iw8lbWWZ60
bgMSFsn49GCa4PE0cX914UbMJCrkUPY8j19vYKoqN4vRi/iCxISZQOLTk+t8
P07weJLa0ceNH7G4F3Mpk3cbgRRXXFe5YiHPgGuZsw4z7PWY/rojPdImuFYS
LZzQZ2Ms8nh0t0U6mI75jUltCM7HNT3MIm1NP2Z81tXy8TyPFzi20yqYRfB4
b6Vwq2vpWPC3/EJ+ZVz3+5L6xjowkhUzVTe9Ckh6K+pnCpkEj/c2Vsz2vIt5
BV5QX7sB1xJGNJmTzUt4fBxMdfth6PThBMNwXE98EI7JKsMqk65qjs/z+IL9
nklbS5bw+CSgdFzBQkJDjwzM8/iCqTPOp4qwkhPL72sM5QMpeqVKQhm2hMdP
W0rbHMZ2iauUrOnLAxLTwouckIe95KYiz3keX1BlVqKbvYTHS8R8ProHw2Z3
kJ3nefwgfZt5ZTomEZBh6/8Pjz9jsjPmxVIeL8k5pImlRJ2wtZ7n8chN6Gro
E4xW+G7mqMM8j9cRwn7cpP5/PN5bS+6b7Jd6aqZw7d9N8zw8zSw+zLqOWjry
xH0Ev59JpFLz0FgDbOF+J3mkbTCz/pu6PbNG+k0mrsn7U5b711FpPXu+VJ+b
v95Fy8PjKLawn5A2BiSznfmbmpOv4xF6Etc1BzliMuuoxoXRW5KUcC0z80X8
tBu2wMNJfBSxtdf+ph4WU3rvKoPrbweaDJh11PpTcQ/8WgTxzw+l3tO/iC3s
b94n3eq3yTZQGSeuyO2b5+FSl/skhOqprqkmY/bzPJw0Vqa7/xq2sH96W6m+
fbO1garxPk9wxzwPR56pratDsIX91ztc6w5m2EAdT75/eERPEBU4yr+PXN9D
jd41kDScR0Gk8oNT+7nDsYX935sj9N6XGz1UjKemLDGTggrkyU7MiB5qieJb
3UQl/Hr7z9yBG2KwhecPSa2t6EpmD1V8eUGK7Tz/dqPFh6lmYQvPN+aO0sjo
0Snq+MjA1kn8+ccU1byDjfymaigHbqg6x49Ior7tJs1vsYXns3eQ1rcsi17q
s+pD8U4n+ZFMNDPtifgMdYTLPUBznk9TTWyU7EqwhfeL6LobHvXDv6nBaaMV
NXp8SEbKYp2zwyxVtUI4J1aJjEiHlI90+1Zii33h/sqUAMc+KqJO3NOWISPv
gAR59q9zVN2dgylCnLyI9Hr9R2bRB2xhfmZ/+mIP5/YZavPB7z1x8zw5fozT
uoQEyfdK7T1buBGp1qnJraIWW5gHos4DOl+L+qkVVT45gvXciFau94CHwQY7
jhgXsvK4EIlltz/N4yu2ML9kenpRfw7PUvtCqZ8vZnKhZX+2ncvuZIf80aA3
pvM82d9HImL8O7YwPy14hhQz4n5Q88L3UphBnGjQrpUhps8Jys/4lejnOFAB
fyddrLgNW5jX2uscOfMyjQRqu3au2nOSA7l5CU7s/skFIGzYoWDEjrwbaKu3
YKxFnsyEuwWVaYPUiFdaD1L02NEHn8kr7HM8ICDMlRqsxIZIx3MlJlL6Fnny
oM7vU/z+7PBK2fezkAwb2tTLj7ye8sFLA7414xwkNCgS2GQ0ObjIi71No5RP
NAxTU3jePmwZn4PoiCiZVIogfD2brv4am4H0d6SwwxJji/xXpkNCPzeWC559
HTZ/kDoD3r0z1VKOwnAoh4/N64/f4O3Uyp1SMLXIc1HYT/XZ0nHqGbJE/zYn
XJ/O1hqrEYVgi9cXtq6fhIn4BAeqNxtjkb8qzwamiQqA6jMeDUxyEhpyrZRF
dSVhgZ+i7HEx1dJp6lq5Wfff47/A/oBB/fl7fPj7n56Ndvs4bNKtj/ZkTizy
ULd+cJEVJUFDy4qd+p/Gwb420PO7kBDsmMhRD8HGIPpPM6FbVrMED8165VFi
NkQ10zBnXEsdg4JK+anYKhHQVImYaXk8Ct1mx1XjVTgYC/zH24XPSVKVG+4l
emY8DhiFS9zL6Y8mxMFeIbRC8o8RSIdopc8BZMYCv3R7xlLt9hOAZ3VGa92O
joBX019317yWAdm5La4qtGHQ+jlcahQvQpxPK84ZUyKwAvY+hcwBjWGoNRwO
Yi7bB2GqyidESYPwsFVzz6VtiKGoyvI4upfgifXdjVM7EwZB1smwISX4MXBx
5+fcX8ILdxR42ztlDUJ8wIk91akvoEooPTltCR+M2EU/rjAxCAWXC0f1Qgk+
+CD4CtmrOh1WLtt/uGUJD1ylFqtSTx2CufRzaxpCM6H4ZMDT7VeG4G74uZ4S
52y4Lt+hYnaH4IFfqtTdSflDkFzFsjg7/gZKbw1nBL0dAj3zLMqntblwcePM
Fu0egg9Ka5KCQ3iGgXO0I+n7QTo08+9Ke/9fzjNV3fWN4jnNAE/tcJ93D4dh
zB+lZ0cVQplziNGeBIIXnny3ct2Hz8NQdjVl9X1aMbj3FT2vUB2Bya37tdx5
SyFMY7nN0JLzSeOfTCYIVY6AQkHB00jbcggjZ29/pz4KJ8SnakqiKuFndpS5
lzXBCw/QKblvz4xCmF9m+a9kghceOXl1VbnZO2gu/9m8ctUY0HXIt4daqmF9
e1VM+JLzSKXW7e89WT0Gslvdbdl4PoJ1gVEgc2QMqNt530cd/ggWnl7FAUcJ
XhhEv78yMWgcdunErV95j+CFNumd99NlP0NVRoPBX+a/wEGWPhe0vBZKn1g/
V79H8EJTA9tye9kJWBZ0N1rgzhdoVLlG1rg6AY5n/2jJUqsD8i0JEbslvPCE
Xfq4zu8JqPwSv+7aXN0iL6QZ+8ae31kPHIbj2b7fJ2EsvaUi+FgDYFsPot8H
CV4Y79cjmFA5BS5dx9LoRQQvXDm0fpNJ1DdgbhqrMC/4DeWu5lN2Yo2gHH54
9NT070Ve2Mt9xI27YBrkfcOEZ+wIXiisl1Cf7d8Mua187CKVM5DB69RLjWoG
tzhaGv83ghc6JLKbJn+fhVAe0ZShz99hLQwYffprDs5xleQl+bdAYW3GcNdv
ghfWSVvTp2fmINBMYXgpL6z8EeGVN9cCrZuKvSS0SKhUf4PD8q1MGBrWaZw/
j5RNIz0hYwkvdHC6GdAu1Aom+7Yfnj+PVJ8lum7+PNL/vZ8IXug8buga8p4N
5Q8EHTdach6pYfl0mvt0K6h3fPRde54dvdrQPm0v3QZ//7O+CV54r3QDK12K
A0U33oi98JjghSX5/c+cq9tA0OFXk3QlBzpWKLvihVD7v+uX4IXn5WJf777K
ibo/cvDK3CB4YeguBfFbgfj1M6XTy9s5UdV9kBykt0NRONuswxYutOrgr/64
AYIHVlNW0vQ3d8DhIOYJx2EuJHWMg6Jn0fHv+iX4nvL0KfGHr7hRZ1ahXdob
guf1UqzKdCo7INSvprFvPw86ZxpvZsfeCa9psZcFLvMgL9LWC/XiBF9rIw/c
rjbthMpHCoobdHnR/oYbsebnO/9dv8S8TvHAtXcdy8iIbedBJ+0KYp7oY65t
s/FDJ2j63dXXNiWjLe3hYlptneByuuRoUxsZqT/5ndAiRcxHj0Y/n+IFFkQK
ix+1fcOH5I3uCE+dYoHTxokzsnL86FfHG/m4O8T8tm7E4fzXRBbQvCKf+d3j
R6c8Lhe55rBA9Z/1Tcx/XfuzHom4CqAv9TeMrs6yFucTbZXyRufJXSBKDS7o
/CKAHNOuO3at7gK/IsG6ASMKKpwckd+pS8y792b8iOyx7QKXxNKY4k2C6HG4
iwC7XxfMHFF8qHBBEOnyHXCIe0jM3/n96Z7HMrpA4+zlFTViQqjCHGu7W9wF
Jf/cD8T8H5K/6m+aE0K6Iy1pFXNdi/775cWvq0dxXfzP9YT/drGycrn8YQC8
d4lfGr66mfDXV4sDjCl8jJo3TkHeKbhWf1B8QkKJMZylo1Z+ow+8U36+zApc
Tfjl9c6Gve95GQHL/J5N2uO661pthNRqxvb4mrWGmj3g/XU6+maZCCz634k9
qc/d5rCcdW+cKn7ifrY3ddnXljWE331ynpVL5WLs0LkunFjNms+vR25irmJI
miYcWWmD+9PSsjiLF6Kw6F8TjF0bsS5MbetjHcPtuK7gyizaJsp4yEVPPhKC
+0/nZN0NmkKEPyVNHhNj68P6umgbqmi4tqX1VicKEv70rl1+IH8ttk3dROss
HdecekWHZKcxjiFTusNp3H/WTe7gqvlF+FOmpXH64DvssNqKL6Pz/pSmfYZX
cBK76RTJ8SsD959Oh+JOzYwR/jQ6VdgevcIaxYY6uDbimt5hUXtjnPCn3kpD
+lkvMS4uv02aEbjmjtgR9KIDm9W9g9Xexv3nj1H39l9thD/17ngYE/gCc+CR
+d7Mi2vm9x/Bce1Ywe3j7JwjuB8dV9DWtW0j/Kl3vmLPwB2Mbrsqmn8A96dn
sk43ZLdhtIwibvtq3I8KJEo8/dC6xJ9WjF285Iu13TEqPlKO+1PR103SX1sx
5k557MoB3J9G3xoLM2pd4k9bGveN+mLOHrTqo3twf2p9M/6MQCumtDGk2isW
96cPe6MFapn/x5/+D2K/HyI=
        "], {{}, {}, 
         TagBox[
          TooltipBox[
           {RGBColor[0, 1, 0], Thickness[0.005], LineBox[CompressedData["
1:eJwl1dN2GAoUBNCktu3Utm0ztdvUTG3btm3btm1b1/bdWX3Yc75g5gSFhAZ3
DwwICPgswm44whOBiEQiMlGISjSiE4OYxCI2cYhLPOKTgIQkIjFJSEoykpOC
lKQiNWkIIi3pSE8GMpKJzGQhK9nITg5ykovc5CEv+chPAQpSiMIUoSjFKE4J
SlKK0pShLOUoTwUqUonKVKEq1ahODWpSi9rUIZi61KM+DWhIIxrThKY0ozkt
aEkrWhNCG9rSjvZ0oCOd6EwXutKN7oTSg570ojd96Es/+jOAgQxiMEMYyjCG
M4KRjGI0YxjLOMYzgYlMYjJTmMo0pjODmcxiNnOYyzzms4CFLGIxS1jKMpaz
gpWsYjVrWMs61rOBjWxiM1vYyja2s4Od7GI3e9jLPvZzgIMc4jBHOMoxjnOC
k5ziNGc4yznOc4GLXOIyV7jKNa5zg5vc4jZ3uMs97vOAhzziMU94yjOe84KX
vOI1b3jLO97zgY984jNf+IZv+Y7v+YEf+Ymf+YVf+Y3f+YM/+Yu/+Yd/+Y+w
8gcSjvBEICKRiEwUohKN6MQgJrGITRziEo/4JCAhiUhMEpKSjOSkICWpSE0a
gkhLOtKTgYxkIjNZyEo2spODnOQiN3nISz7yU4CCFKIwRShKMYpTgpKUojRl
KEs5ylOBilSiMlWoSjWqU4Oa1KI2dQimLvWoTwMa0ojGNKEpzWhOC1rSitaE
0Ia2tKM9HehIJzrTha50I2y8Q+lBT3rRmz70pR/9GcBABjGYIQxlGMMZwUhG
MZoxjGUc45nARCYxmSlMZRrTmcFMZjGbOcxlHvNZwEIWsZglLGUZy1nBSlax
mjWsZR3r2cBGNrGZLWxlG9vZwU52sZs97GUf+znAQQ5xmCMc5RjHOcFJTnGa
M5zlHOe5wEUucZkrXOUa17nBTW5xmzvc5R73ecBDHvGYJzzlGc95wUte8Zo3
vOUd7/nARz4Ffv3V/wOjSO9e
             "]], LineBox[CompressedData["
1:eJwVzGc3lgEAgOEHKaKlpJIiRYVQIiUkpAi9ZTSUVaLskoY0yOpP+H+ShopK
rj5c59yf7pT2/lBfWBAE8yyITyzymSW+8JVvfGeZH/zkFyus8ps//GWNf/+n
4UEQRjgRbCCSjWwiimg2E0MsW9jKNrazgzh2sot4dpPAHvayj0T2k8QBDpJM
CodI5TBHSCOdoxzjOBlkksUJsskhl5OcIo/T5FPAGQo5yzmKOE8xJZRygTIu
Uk4FlVyiistcoZoarlJLHfVcI8R1btBAI000c5Nb3OYOLdzlHq200U4Hndzn
AV08pJseHvGYXvroZ4BBhhjmCU8Z4RmjPOcFL3nFGK8Z5w1vecd7JpjkA1NM
M8Msc3xkHT56PT8=
             "]], LineBox[CompressedData["
1:eJwNw+c2EGAAANDPqBBJ4b9X6hE8gN7DOdkSlZbI3nuWWSpKFJVQZmWvSrj3
nJuWfvNGRkQIIdNbkSFkmW2OueaZb4GF3rbIOxZb4l3ved9SH/jQRz72iWU+
tdwKn1lpldXWWGud9TbYaJPNtthqm+122GmX3fbYa5/9DvjcFw465LAjjjrm
S1857mvf+NYJJ33ne6f84LQzfvSTs8752S9+dd5vLrjokt/94bIrrrrmuhv+
9Je/3XTLbXfcdc99Dzz0yGP/+Nd/nvjfU88MUSFEGGmU0V7wopeMMdY4Lxtv
gldM9KpJXvO6yaaY6jkVJ11Y
             "]], 
            LineBox[{791, 792, 793, 794, 795, 796, 797, 798, 799, 800, 801, 
             802, 803, 804, 805, 806, 807, 808, 809}], 
            LineBox[{810, 811, 812, 813, 814, 815, 816, 817, 818, 819, 820, 
             821, 822, 823, 824, 825, 826, 827, 828, 829, 830, 831, 832, 833, 
             834, 835, 836, 837, 838, 839, 840, 841, 842, 843, 844, 845, 846, 
             847, 848}], LineBox[CompressedData["
1:eJwNw4c2AlAAANDn+BKfJDskGZEUoazsTdkjm8wIn+jec25TIhvJNIQQ4jY3
hhCxxVbbbLfDTruM2m2PvcbsM26/CQccdMhhk444asox046bMeuEk+acctoZ
8xacdc55F1y06JLLrrjqmutuuOmW2+646577Hliy7KFHHnviqWeee+GlV1a8
9sZb77z3wUeffLbqi6+++e6Hn9b88tu6P/765z8RbTNk
             "]], 
            LineBox[{945, 946, 947, 948, 949, 950, 951, 952, 953, 954, 955, 
             956, 957, 958, 959, 960, 961, 962, 963, 964, 965, 966, 967, 968, 
             969, 970, 971, 972, 973, 974, 975, 976, 977, 978, 979, 980, 981, 
             982, 983, 984, 985, 986, 987, 988, 989, 990, 991, 992, 993, 994, 
             995, 996, 997, 998, 999, 1000}], 
            LineBox[{1001, 1002, 1003, 1004, 1005, 1006, 1007, 1008}]},
           RowBox[{
             RowBox[{
               RowBox[{"-", "x"}], "+", 
               RowBox[{
                 SuperscriptBox["a", "4"], " ", 
                 RowBox[{"(", 
                   RowBox[{"1", "-", "x"}], ")"}], " ", "x", " ", 
                 RowBox[{"(", 
                   RowBox[{"1", "-", 
                    RowBox[{"a", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", "x"}], ")"}], " ", "x"}]}], ")"}], " ", 
                 RowBox[{"(", 
                   RowBox[{"1", "-", 
                    RowBox[{
                    SuperscriptBox["a", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", "x"}], ")"}], " ", "x", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"a", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", "x"}], ")"}], " ", "x"}]}], ")"}]}]}], 
                   ")"}], " ", 
                 RowBox[{"(", 
                   RowBox[{"1", "-", 
                    RowBox[{
                    SuperscriptBox["a", "3"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", "x"}], ")"}], " ", "x", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"a", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", "x"}], ")"}], " ", "x"}]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{
                    SuperscriptBox["a", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", "x"}], ")"}], " ", "x", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"a", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", "x"}], ")"}], " ", "x"}]}], ")"}]}]}], 
                    ")"}]}]}], ")"}]}]}], "\[Equal]", "0.`"}]],
          
          Annotation[#, -$CellContext`x + (((($CellContext`a^4 (
                  1 - $CellContext`x)) $CellContext`x) (
                1 - ($CellContext`a (1 - $CellContext`x)) $CellContext`x)) (
               1 - (($CellContext`a^2 (1 - $CellContext`x)) $CellContext`x) (
                1 - ($CellContext`a (1 - $CellContext`x)) $CellContext`x))) (
              1 - ((($CellContext`a^3 (1 - $CellContext`x)) $CellContext`x) (
                1 - ($CellContext`a (1 - $CellContext`x)) $CellContext`x)) (
               1 - (($CellContext`a^2 (1 - $CellContext`x)) $CellContext`x) (
                1 - ($CellContext`a (1 - $CellContext`x)) $CellContext`x))) == 
           0., "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {RGBColor[1, 0, 0], Thickness[0.005], LineBox[CompressedData["
1:eJwN01VjkAUAQNFvbCNGjNxISSkpaQlJSUkJpUGlG0lFUBqkUUDplE5ppUFC
uru7u/E8nPsPbvpmHWq2DwmCIIc8DA2CRzzmCU95xnNe8JJXvOYNb3nHe4Kw
IAghBqGEEU5MYhGbOEQQl3jEJwGRJCQRiUlCUpIRRTTJSUFKUpGaNHxAWtKR
ngxkJBMfkpksZCUb2fmIHOQkF7nJw8fkJR/5KUBBClGYTyhCUYpRnE8pQUlK
UZoylOUzylGeClSkEpX5nCpUpRrVqUFNvqAWtalDXb7kK+pRnwY0pBGNaUJT
mvE13/AtzWlBS1rRmja0pR3t6UBHOtGZLnxHV7rRnR70pBff8wO9+ZE+9OUn
fqYf/RnAQAYxmCEMZRi/MJwRjGQUoxnDWMbxK78xnglM5Hf+YBKTmcJUpjGd
GcxkFrOZw1z+ZB7zWcBCFrGYJSxlGctZwUr+YhWrWcNa1rGeDfzNP2xkE5vZ
wla2sZ0d7ORfdrGbPezlP/axnwMc5BCHOcJRjnGcE5zkFKc5w1nOcZ4LXOQS
l7nCVa5xnRvc5Ba3ucNd7nGfBzzkEY95wlOe8ZwXvOQVr3nDW97xniDc/8Qg
lDDCiUksYhOHCOISj/gkIJKEJCIxSUhKMqKIJjkpSEkqUvM/6OyWPQ==
             "]], LineBox[CompressedData["
1:eJwNw2c7lQEAANDXBz8jI1sIIUpSkRHJNVJS3BQN92aUnVHITiIZkaj8S+c8
z0kMR0ORmCAIVr0QGwRxxptgohdNMtkUU00z3QwzvWSW2eZ42VzzzPeKBRZa
5FWLLfGa1y31hmXetNxb3vaOFVZ61yqrrbHWe9ZZ730bfGCjIZtstsVWH9rm
Ix/b7hM7fOozO+0y7HO7feFLe+z1la9941v7jBj1nf0OOOiQ7/3gsCOOOua4
E0760SmnnXHWT352znkX/OKiSy674qprrvvVDb+56Xe33PaHO/501z33PfCX
hx7522P/eOKpf/3nf888B1YKO4k=
             "]], 
            LineBox[{1450, 1451, 1452, 1453, 1454, 1455, 1456, 1457, 1458, 
             1459, 1460, 1461, 1462, 1463, 1464, 1465, 1466, 1467, 1468, 1469,
              1470, 1471, 1472, 1473, 1474, 1475, 1476, 1477, 1478, 1479, 
             1480, 1481, 1482, 1483, 1484, 1485, 1486, 1487, 1488, 1489, 1490,
              1491, 1492, 1493, 1494, 1495, 1496, 1497, 1498, 1499, 1500, 
             1501, 1502, 1503, 1504, 1505}]},
           RowBox[{
             RowBox[{
               RowBox[{"-", "x"}], "+", 
               RowBox[{
                 SuperscriptBox["a", "2"], " ", 
                 RowBox[{"(", 
                   RowBox[{"1", "-", "x"}], ")"}], " ", "x", " ", 
                 RowBox[{"(", 
                   RowBox[{"1", "-", 
                    RowBox[{"a", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", "x"}], ")"}], " ", "x"}]}], ")"}]}]}], 
             "\[Equal]", "0.`"}]],
          
          Annotation[#, -$CellContext`x + (($CellContext`a^2 (
                1 - $CellContext`x)) $CellContext`x) (
              1 - ($CellContext`a (1 - $CellContext`x)) $CellContext`x) == 0.,
            "Tooltip"]& ], 
         TagBox[
          TooltipBox[
           {RGBColor[0, 0, 1], Thickness[0.005], LineBox[CompressedData["
1:eJwNw4dWSAEAANAXDbtCkoxCsmWTkV00KHuFbNLOzMqKjLK3/EnfYqRUkj0y
7j3nJhYU5xWFBEHQ6KuwIHjtG9/a5DubbfG9rbbZ7gc7/Ginn/zsF7/6ze/+
8Ke//G2Xf/zrP4PwIAixm90NNcxwI+xhT3vZ2z72tZ+RRhltfwc40BgHGetg
4xxivEMd5nBHmGCiIx3laJMcY7JjHed4JzjRSU52iilOdZrTneFMZznbOc41
1XnOd4ELTXORi13iUpe53BWmm+FKV5lpltnmuNo15prnWte53g1udJOb3eJW
t7ndfHe4010WuNs97nWf+z3gQQ952EKPWGSxJZZaZrkVVnrUYx73hCc9ZZWn
PeNZz3neai940Ute9oo1XvWatV73hje9ZZ313vaOd73nfR/40Ec+9olPfeZz
X9jgS/8DMQRV9g==
             "]], 
            LineBox[{1698, 1699, 1700, 1701, 1702, 1703, 1704, 1705, 1706, 
             1707, 1708, 1709, 1710, 1711, 1712, 1713, 1714, 1715, 1716, 1717,
              1718, 1719, 1720, 1721, 1722, 1723, 1724, 1725, 1726, 1727, 
             1728, 1729, 1730, 1731, 1732, 1733, 1734, 1735, 1736, 1737, 1738,
              1739}]},
           RowBox[{
             RowBox[{
               RowBox[{"-", "x"}], "+", 
               RowBox[{"a", " ", 
                 RowBox[{"(", 
                   RowBox[{"1", "-", "x"}], ")"}], " ", "x"}]}], "\[Equal]", 
             "0.`"}]],
          
          Annotation[#, -$CellContext`x + ($CellContext`a (
               1 - $CellContext`x)) $CellContext`x == 0., "Tooltip"]& ]}]]}], 
     "}"}]}], ",", 
   RowBox[{"SaveDefinitions", "\[Rule]", "True"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.6664657243223295`*^9, 3.6664658137448497`*^9}, {
   3.666465863784631*^9, 3.66646608669958*^9}, {3.6664661610635495`*^9, 
   3.666466177138051*^9}, {3.666466223554914*^9, 3.6664663183356237`*^9}, {
   3.6664663590415993`*^9, 3.6664663852736654`*^9}, {3.6664664324658813`*^9, 
   3.6664664358505135`*^9}, {3.6664664660787163`*^9, 
   3.6664665008262224`*^9}, {3.6664665439977036`*^9, 
   3.6664665557327023`*^9}, {3.6664665903658295`*^9, 3.666466595254057*^9}, {
   3.6664666894620357`*^9, 3.666466745119114*^9}, {3.666466800602995*^9, 
   3.666466863106635*^9}, {3.6664669058324413`*^9, 3.666466922814021*^9}, 
   3.666466964658987*^9, {3.6664670037684774`*^9, 3.666467107660276*^9}, {
   3.6664672050913396`*^9, 3.6664672496542883`*^9}, {3.6664672851506715`*^9, 
   3.666467311758011*^9}, {3.666467344555298*^9, 3.6664673668178797`*^9}, {
   3.6664674027847166`*^9, 3.6664674054718037`*^9}, {3.666467534823179*^9, 
   3.6664675500808754`*^9}, {3.6664675958365774`*^9, 3.666467608278714*^9}, {
   3.6664676648668985`*^9, 3.6664677451521797`*^9}, {3.6664677802175136`*^9, 
   3.666467784924305*^9}, {3.66646785462313*^9, 3.666467858393344*^9}, {
   3.6664679279515257`*^9, 3.6664679985870457`*^9}, {3.6664680536029687`*^9, 
   3.666468115215581*^9}, {3.6664681510212097`*^9, 3.666468163914325*^9}, {
   3.6664682749648037`*^9, 3.666468290908018*^9}, {3.66646845747933*^9, 
   3.66646847213596*^9}, {3.6664685351260695`*^9, 3.666468552452834*^9}, {
   3.666468601654704*^9, 3.666468605272131*^9}, {3.6664686471924334`*^9, 
   3.666468675603198*^9}, {3.666468715813053*^9, 3.6664687163965282`*^9}, {
   3.6664688508027287`*^9, 3.666468889327397*^9}, {3.6664689279440627`*^9, 
   3.666468983843019*^9}, {3.666469033592743*^9, 3.666469036143487*^9}, {
   3.666469085042589*^9, 3.666469130788499*^9}, {3.6664691798492336`*^9, 
   3.666469182833677*^9}, 3.666469250344907*^9, {3.666469435175291*^9, 
   3.666469451866564*^9}, {3.6664695114702644`*^9, 3.6664695125039835`*^9}, {
   3.6664695496148005`*^9, 3.666469652758067*^9}, {3.6664698175190067`*^9, 
   3.666469819636607*^9}, {3.6664698651004295`*^9, 3.6664698682465105`*^9}, {
   3.6664699061784554`*^9, 3.666469908915882*^9}, {3.6664700173104973`*^9, 
   3.666470076646172*^9}, {3.666470111275893*^9, 3.6664701839071803`*^9}, {
   3.666470240574032*^9, 3.6664702682487774`*^9}, {3.6664998906537156`*^9, 
   3.6664999755715723`*^9}, 3.666500582464285*^9, {3.6665006365033755`*^9, 
   3.6665006540013766`*^9}, {3.6665008705567627`*^9, 
   3.6665009132612057`*^9}, {3.6665009439939632`*^9, 
   3.6665011235422325`*^9}, {3.6665011672797346`*^9, 3.666501267896489*^9}, {
   3.6665013297520275`*^9, 3.6665013649630413`*^9}, {3.666501428863696*^9, 
   3.6665014292327175`*^9}, {3.6665014664048433`*^9, 3.666501503306954*^9}, {
   3.666501572061887*^9, 3.6665016626240664`*^9}, {3.666501821109131*^9, 
   3.6665018238462877`*^9}, {3.6665018628445187`*^9, 
   3.6665018665307293`*^9}, {3.6665031606746144`*^9, 
   3.6665031666911707`*^9}, {3.6665054698522654`*^9, 3.66650552051537*^9}, {
   3.6665056381166005`*^9, 3.666505640235629*^9}, {3.667198593795205*^9, 
   3.667198614270376*^9}, {3.667198761822816*^9, 3.6671987644359655`*^9}, {
   3.6671988401252947`*^9, 
   3.6671988403403068`*^9}},ExpressionUUID->"86a6abb2-26cb-4e03-8afe-\
93498596d71b"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a0$$ = 0, $CellContext`da$$ = 
    0.1, $CellContext`n$$ = 10, $CellContext`n0$$ = 0, $CellContext`x0$$ = 
    0.5, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`x0$$], 0.5, "\!\(\*SubscriptBox[\(x\), \(0\)]\)"}, 0,
       1}, {{
       Hold[$CellContext`a0$$], 0, "\!\(\*SubscriptBox[\(a\), \(0\)]\)"}, 0, 
      3, 0.1}, {{
       Hold[$CellContext`da$$], 0.1, "\[CapitalDelta]a"}, {0.1, 0.01, 0.005, 
      0.001}}, {{
       Hold[$CellContext`n0$$], 0, "\!\(\*SubscriptBox[\(n\), \(0\)]\)"}, 0, 
      50, 5}, {{
       Hold[$CellContext`n$$], 10, "n"}, 1, 100, 5}}, Typeset`size$$ = {
    971., {231., 242.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = False, $CellContext`x0$224784$$ = 
    0, $CellContext`a0$224785$$ = 0, $CellContext`da$224786$$ = 
    0, $CellContext`n0$224787$$ = 0, $CellContext`n$224788$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`a0$$ = 0, $CellContext`da$$ = 
        0.1, $CellContext`n$$ = 10, $CellContext`n0$$ = 0, $CellContext`x0$$ = 
        0.5}, "ControllerVariables" :> {
        Hold[$CellContext`x0$$, $CellContext`x0$224784$$, 0], 
        Hold[$CellContext`a0$$, $CellContext`a0$224785$$, 0], 
        Hold[$CellContext`da$$, $CellContext`da$224786$$, 0], 
        Hold[$CellContext`n0$$, $CellContext`n0$224787$$, 0], 
        Hold[$CellContext`n$$, $CellContext`n$224788$$, 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`F, $CellContext`tb, $CellContext`a}, \
$CellContext`F[
           Pattern[$CellContext`x, 
            Blank[]]] := ($CellContext`a $CellContext`x) (
           1 - $CellContext`x); $CellContext`tb = Table[
           ReplaceAll[
            NestList[{Part[#, 1] + 1, 
              $CellContext`F[
               Part[#, 2]]}& , {$CellContext`n0$$, 
              
              Nest[$CellContext`F, $CellContext`x0$$, $CellContext`n0$$]}, \
$CellContext`n$$], PatternTest[
              Pattern[$CellContext`c, 
               Blank[]], 
              VectorQ] -> {$CellContext`a, $CellContext`c}], {$CellContext`a, \
$CellContext`a0$$, 4, $CellContext`da$$}]; Manipulate[
          Row[{
            Column[{
              Row[{"a=", 
                Part[$CellContext`tb, $CellContext`k, 1, 1]}], 
              ListPlot[
               Part[$CellContext`tb, $CellContext`k, All, 2], 
               ImageSize -> {250, 200}, 
               PlotRange -> {{0, $CellContext`n0$$ + $CellContext`n$$}, {0, 
                 1}}, AxesLabel -> {
                "n", "\!\(\*SubscriptBox[\(x\), \(n\)]\)"}]}], "    ", 
            Show[
             ListPlot[
              Flatten[
               ReplaceAll[$CellContext`tb, {
                  Pattern[$CellContext`u, 
                   Blank[Real]], 
                  Pattern[$CellContext`v, 
                   Blank[List]]} :> {$CellContext`u, 
                  Part[$CellContext`v, 2]}], 1], PlotRange -> {0, 1}, 
              AxesOrigin -> {2., 0}, PlotStyle -> {Red, 
                AbsolutePointSize[0.01]}, Prolog -> {
                Opacity[1], 
                Thickness[0.00001], 
                Line[{{
                   Part[$CellContext`tb, $CellContext`k, 1, 1], 0}, {
                   Part[$CellContext`tb, $CellContext`k, 1, 1], 1}}]}, 
              AxesLabel -> {"a", "\!\(\*SubscriptBox[\(x\), \(n\)]\)"}], 
             Graphics[{
               Opacity[0.4], 
               Part[$CellContext`img, 1]}, 
              PlotRange -> {{$CellContext`a0$$, 4}, {0, 1}}], 
             ImageSize -> {300, 200}, Axes -> True, AspectRatio -> 1/2, 
             PlotRange -> {{$CellContext`a0$$, 4}, {0, 1}}, 
             AxesOrigin -> {$CellContext`a0$$, 0}]}], {{$CellContext`k, 1, 
            "a"}, 1, 
           Length[$CellContext`tb], 1}]], 
      "Specifications" :> {{{$CellContext`x0$$, 0.5, 
          "\!\(\*SubscriptBox[\(x\), \(0\)]\)"}, 0, 1, Appearance -> 
         "Labeled"}, {{$CellContext`a0$$, 0, 
          "\!\(\*SubscriptBox[\(a\), \(0\)]\)"}, 0, 3, 0.1, Appearance -> 
         "Labeled"}, {{$CellContext`da$$, 0.1, "\[CapitalDelta]a"}, {0.1, 
         0.01, 0.005, 
         0.001}}, {{$CellContext`n0$$, 0, 
          "\!\(\*SubscriptBox[\(n\), \(0\)]\)"}, 0, 50, 5, Appearance -> 
         "Labeled"}, {{$CellContext`n$$, 10, "n"}, 1, 100, 5, Appearance -> 
         "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{1047., {374., 385.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({{$CellContext`F[
           Pattern[$CellContext`x, 
            Blank[]]] := ($CellContext`a $CellContext`x) (
           1 - $CellContext`x), $CellContext`img = Graphics[
           GraphicsComplex[CompressedData["
1:eJxsXHk8VN/7H/swY8a+JHuRpVJRIfOcskaLRNEioaJVlKSFFCFCi6iUpV0q
QkXWVNay78swxq7s+/K7Fdfn9fr+/NPr/Tp37r3nOc/yPue572RtT5kdYiUQ
CAWcBMKff//98SEx1y1CDgGbYFSh/bPqBBXlXn+4ryNZBT5fYzR6fqaid6oZ
2cdqlsHJuuQTdclUtCTY40loqxKYp9VsFoqnovpbV4rqhpSBI2CLuKkLFfVJ
jXRIiiyDv5efoKKOKS/XwCVKoFQ26zl5hIqqjykkq65Xhpja4WfSytjz2mTT
2S0VwejWks23llDRWIvuqo+Oy4AS+9u+RYqKLm4Qjov3VIK7errev+kU5Mum
7D7ySAH+3r6OgvYd6dwS/RMg6538WG4FBQn1XubU/bEMRIrex2fco6DEK7LE
gq6lIL/5zwMoyMbihMrhKBosvUl3LTCloIedTtPW7hsg+M/jN1PQr4vltlMb
rED/e7621kYKske79deE0iAw9qLThnRexBnn1kw00YJjfyeI4VWqD+JstEH3
9fDw6re8aN+2Mx3jPhvAtjNgNkGFF5F9DaTsjdaDwd/58SIzubqVScc14TU7
/aSCJC9aX+LR/zNKCxL/zoeMHPK0lUKurAeFvYlMSiUZJX5w+lp7cgnUJK5K
drtHRmOC1tevuMuC3N/5kBHr6lcbnz9eBzsvVaPBADISYrq+6G+SB+ONL9hN
tpFRtUBlmXuHzNz8yOh1sx3FV0IO6t6f2V+lS0bXHhr695vLw56QdzclOcjI
7cb15OV7ZGBm9s8fCdnbd55KGNaAukpVndQJEhJbx6GcWSQHWh33zPpSSUjG
cRdh5pE0HP9rDxIS8ecMKVXVgE+b7jQ/iiehKfW32/SM5SC9L2XbF2cSKh5V
6HsRLAU1fxeQhFY/8Px05Zg69DpXK7cdJqEOnlV3GN814JhHkWdKMw8Smr3r
qPhi1Zx9eFBmgvNFpZnVIBUdppJXzoNcQ+kFNw6rz9mDB/W1NpVc2rEaNOnO
oBLIg57IsFvcPSADEgoFZvzbeNC7lM6EovBFc/bgQbleXZWisavA/XZlMa8e
DzL1Yxbfq5UGx+qTO5jsPChS8XttYaz4nD240Qv+2iu+WxbDtyeKK/smuJGb
7hpJhykpEP151+NTKjfq0C1anvZFbM4e3KiQ9CuVy0kNEnTv7S2N50bV3ovt
zy6RAgYargt05kaWbH5bzzaLQu1fe3CjxU2TbClJK6HuvvHuRAduRJh5OHnf
TBIuPN1yyFaJG4Xp/ZQvYhcFw7/+xI02RAQ59txdASUae+VDpbnR+tNZcUk+
i6F8xaFF6+hEtCyYWRKxXGTOfkTkUF7xeJ3ncvhqXZV5rpKIXlzqex2TKQFH
DPknSPeISO2OYWTWXuE5exLRkl07C1afUQWRM9lqVoFExHdsvZ8eQQJ+CKmy
NW8lIrEV478Eg4Tm7ElE9PfLy91Pq8BrDeEzWnpEZFQdqXBefxGYzISpJ7MT
kWeHucLp74Jz9uRCYytJHAnnlMGYJ/2GxCQXMpW6kigfLA5xa3UDb6RyoXef
DV4kswvO2RO7niUp3sNHCQI2RLlNxXMhuk/jU0W6GPBtliQfdOZCKLolK9tA
YM6eXKj1elFrUMQy8F0Zrt3gwIU+DlS9ctQQg4nnMu/WKnEhy1n9iDOB/HP5
hwutvz4jePuzInz0d61Ik+ZCfdsVY38GiQLQtrqR6Zwo0yJhzetqPkj6a09O
VK0qVKvDUIDWfQTDR5WcyHRvThb6LQLiLC/tWkI5Ue7NH2C8jG/OnpxovZVv
shG/AlzVGAq+HMiJilM/aD7dKQJlXnD641ZOpEYcOWAzRpmzJyeyVKOWnjJY
CkR1zkRrPU5ED1oV0PZZGA55y0beZOdEfU76qzxf8M7ZkwPl8mZ/d/ZaAibk
5ne0SQ5kuXnywG9lYVgXYP/bPpUDoZ2tWz7ZkOfsyYH0pEKchb7KA8wu9ZVK
4EAdK2z9YyOEAI7LWWs7Y9eLvJcplSHN2ZMDHZd5k76IIg8fvx3XmnHgQA4H
0vmJwkIQVuPWza+EXS/qLnCrg3vOnhzo897Xl7ftl4NhZ93cBmkOtL4ha9Vg
sCCc7vcN7WhiR++S7GyzPhDn8jk70mtZpHchQRa2rV+xOq2SHfla5Bzcxy8I
GzNcrTNC2RFflC5Z6SbXXD5nR0tqDmuf4pUFIPmvbAlgR1NLf19V6l8C39ie
LaphZ0dqfoyPWUvE5uzDhsSidB0Zz6UhiHTs6asJNqQ+JbvJukp+zh5siBis
NWp6WQrMBQIuaCawoY5Yqn0xjR9cj/YHSjizoXde3LpZKmxz9mBDYz5bQnut
JSGsXWm9mCMbcnjUPcos5wO/ipCagWVsyFNQrEBcnnXOHhjulKZ12HJDSjVf
2Yg0dv98u4HVp/igf5JTJ7+JFRXLaeg7yLDM2YMVOY2bBo9eJsIkzWVLRSUr
MpX04orn5YNo9vMfokKx8b0aia7yBPjrLrdYUfCTuge/tRZB9pEzT94HYvcr
5r//wYYK1x/yGp3fyopsEt+MLbacoYX8/QErkrHgKjyxURzCVyjWheixIrWr
Lj8OvqHAuo62XlN2VuQ5shX6XKZo/+zHgmwUPjAzTcXAb3tA36lJDKfKXLJh
p0D0NrkXy1JZkOcsNA+HT9D+2ZMFybCEd79xEIUopcsn0uNZUId0rpD+Dhk4
dGjbDJ8SCyqODG6EuHl/YUE9vmzrVvQowqY1EZye0tj9is8TXhhLQ/irHzYf
QwnIJkQ72/sHx9x8CYhwRXyXJ0kBBqyPbUGBBKw+jtloSEpB7PjUcRt2AvKM
sA3dsIh1bv1ngViYpCMeLQAnGYRTM8OzYMOR5SQtIQkMwcdCAq0zgKzjwEto
mvYvvmfA6bRwrY8hP+iJPDx9vmQGLI1uahoZLJ6LzxkoDtrppvSUD3xfn4lT
RjMQ7Lgp4MoGbth0TbxldcY0eJ5saz7yljFnj2lYn6woNcvNB3FKlimMuGlw
+pxatXmECJlhZtcZqtOAPuflt9+m0/7ZYxro9kuPd9tP0UaqL558KDENfFlO
DiqpREizE1975/4UeL5v22U9UUv7Fw9TYCriFmZdygvXWiVyzP2w8bff1Jpu
EOF52udOPeIUEE6eNcgvKZ9bz0lQS+84p/KdDJd/SiWSRyfB6b6NpJEjEVZa
FD0cPjsJBJ+3WQY7imj//H0S+Jhvl9/NJ4HupcKmSrtJ8DRWKrjGIgE5vU+P
7d8xAYRruuzpHllz/jUBfa7TbTdmuCHG6JSALkzAR0dbpwJxibl4GweZC6KE
JWrc4F9p8qo9bhzohJsbtd2IkCrl/vOD6jgQpt8wN6l8Tf9nj3HwLPvV6+NM
BCEppfaHEuMQaeTTL/gas1/1NxaH+2PgyWIZ/xBK0v/5xxjILKqV1ugdpn21
a9izw28M1ILjxoXGiVj8fO4XJY4BoadpclSlOv2fe4wCn1xxQMoKLhhKYWlm
Hx2Fd9UJhQV23KBx4b3v97Oj4Cn49cC+003p/+wxCpGOtfuNXnPCmy6NzR/s
R8HmY+06/QFuWGLJfOHKGAHChojc/FBG+r94HgHPDYaDXps4YWBvSs2eEmxc
mjnFrobxIevE9vD0YZDxSvfPPzaV/vfy5GFw6tD4eLuAAxLMN+948HoY3DwP
r1PxkpmLl2Hg+/HkoFERB5xffOT7SYlhCJbbKpXnRIG+7M1GyveH4J3dXVGU
OThnjyHwPHFVWpfICbc0Uz4J+Q0BnZhTK2bIB3zugh2lXENgc2n9u4jto+n/
9gdDQGhZVSWQOEQTNNvzKnFkEAir6DFDSfzwUuuYiNvZQeCr3jzpkjqZ/o/v
D4Lpnron9UFccFfl0V4T+0FwqjeQrfkoCIusVpeLMgbA5q29R1EWIeOfPQaA
znLAdKk+N3DrDz8rLRmAZebpg9oJIpD+VmbLG9MBeMFzSDj7B3vG3+luHoBM
141SQzpk8E0sMtKBATB9zGF/2lUCrkUYC61J7wen9TqvRvlJGf/2K/2gdjUh
jaeDDyqLNp5weN0PhSo7gj3E5SBs6sOxIJV+MN/SoDW8SjDjr3mWYL93tz38
XkkUTsawd5SI9cPDLyZGtd6qwLPLZsYhrA+WWMXbyF+Tyfhnzz6YUr78VEFG
EeRz99Xe9OgDisbTX/yi+mAXrN29k9AHGz3XZX45Axm2NwVD7i3rg4njE1MX
7dzAhLFU9aJsH0SczW/dpX8FrCyzXioq9sEl/pZLPco+sP9CgfPpDX1gOSSc
8polAJiHZO1vGfRBL6vtTsfcECilyWz/bYWNr3ok4L7tLiwPSmppse6Diu+u
pVYf7kE8Opa96mQfkAus1RV/3YffeVzN/G590FIRL1kS8hByD6l8+3ClDyRW
NizhvPIY5ufjLVk7Zh4RBaGaha9n7vSB1dQ7L92hKOi6OOrrdbcP7ubF+Q9w
RwM/T2vA1tA+oMeadYkrR0O08d3R8Rd98HCyB3vDJ0D5JblJLwl7Pvr6ufza
U3j44khq4+c+eLJc9ULJw2dw0nv30yOFfTC8p4ed5eQLSDgVX8As64PbD7pZ
feVeztW/PjDUff4hd/ol7PInj3gy+yAx5NWxdytjYZkOr5fcUB9MB+bo2Lx/
DVOpJYzS8T74/KWTIX0+DvYynTiH2Pvh8QeOtotf34CM6KU1spR++DK8bF9Q
9luYX++1hOVVxizxcGxspj9WvR/WdD3WM+qKh2ahnD2a6/uh8/VOhQ/KCXD7
27moKFo/NHHubWK5nQBF06lUols/nD6xfOOdU0lQP/wk77t/P4zxlYqEpiWD
pHidYU5KP3A+5FOwGf0IPTXKZ66n9cPTa3aCn2Q/wdDpeyyazH4gnjXlOmua
CiwsLB9LWAbAzmp8qPXEZ1gt8Dwm1mAARGt+jO5kZMC8/x93X/kmfzoDOn5Y
vTwfPAC/Lq5g2/86CyrjV0l7PR+A248UzohrZ8OS3U7lxNoBmN0kyMe1/wsc
akyBXAxP6DOMFh/8AnnthF27SYNwv/hQj++1HLgvPLFCUXEQvKbDLVL4v8J8
PEu4uDAYt79Bh+3B56/ODUI061P7saJvwJPKOCHzdRAOP9i++7JDLjhVo63s
zEF4pd5af0Q0DxoeHf8Sv2YI+EcS9wbH5MMq4ee3FS2HIOGwvEWVTQHYKwVu
9zo6hK3b5PJT7wpgPj8FfbY0vXG4EFBe9HO66DBI3j5BPtTxA74WuqWxmg1D
Vn6UfvLgT/htciV9X9EwVOu+f00hlsCvvV87741g1wdfubrbugS+P3ldZmw/
Ag6ifA+MdUtBZrt9jd2NETBarP3B+nYpzOdj3ZDLStJqZUC4u+vmZrNReBbB
x/FTuBy0bLq/aYeOgtPm7YIpAeVAGfqhHyU7Bk+MYrQLgyrgpWuT706vMWh6
VslZuaYSfCay0pYzxuDchZs3lCor4cghJcnoiTFg9csRliZUwXz98mVPaFTR
rwKS79JbbxrGIcZOnPvQ4WpY1f9R5LXNBFyOK2ILl66B9JfRJwTyJ+BJZZmd
2ZcamK+/ywlvrQ+9qgVullJB7sxJuOK7LCVWpA7ablZ0PGafAp8m8kWiYx2Y
xsqt7MyYgi+Xg3ctsqmHef7xrdB/caVfA6Sd1HHizp+GNcbGlwwfN8Cl4UyL
4PppuMm/ZehcQgN0XJaXf9U4A7kV4rUDZY0gNGZ/szVoFnjrHaLSbjTB3uOf
ZFZPzcJd3RvH2yebINKsxnp6ehaoZiHbu6abcL71798mIIumGtzQIqCn+Qcu
+KynQ6Xj85NttwloNNpKOOEmHed/CW91J/j5m+G72cblsitY0N5MIQsJ8WZ4
lGDer6nFgn5oHXKOlWsG2e+xAhFFLCjJviRr06NmmOez3j6SVBFCCyTWRTB2
OLOixLVt99SkWkCQ9dXhqjhWVFp2bYWdYQtMno+5uHwxG7r5Unx6JKwF5/NM
7xUHlMta4IvSG5vhfDZ0K3vkbDGFAY+vbNmjYcOOKo8/6Vp0nAEvyCR2jsvs
yEsDxRz0ZOD7EYsl7wvP3mRAAMtxj8Z2dtTRwtBMzWLAl6mzzIK1HMhUSK1K
q4cBFyijOeO7sP2ZZmKu6wwD348RLBLjNde2Am+2h3rFAAcquZWwusS8FZJu
KATdW8GJ3vY+1Nnk2orvD6dU8l33X20FjVtkDdJOTiTxLCSjywf7/W+ZFPoh
TlTLkfOsNLgV338+2BJ06NGLVnh6+M7Llcmc6GX9YTfh5FZ8P3vOuMWws7AV
iJnFgh8msPv1FNwl1LaC18tl7xaJcaFp8W3fz7e14vtl1/BgO7O+VjAfsL6a
Ys6F7j3nnljBw8T33xE2hqe7BZhw4NwqcosHF5KsTyKw8DPho9XkeMJDLrTv
z4LIM/H9vbcjf4ibOhM2v/s6vneWC9U2kyNLsfH584IhaY/DJYeY4Blwf/Aw
GxFtSO5sv6vABFh7vf4QgYjf78JR1s7dGP70JTi4Uo4JHVZ5PM7sRHQwBq12
aWwFW7dw5yXY7+fnx3OuE1ZiWH+vb29xZSsYl34zZuchot0hXzWr77eC1qde
eE8k4vaMeZxrOcxFRC6P1myu922FE6SUDQUSRBS2b8Ud/UWtIPWgr/jrYiK+
vlxJlyITZIkoRZ2lOqOeAWM6pfWCa4hos6/qDo3HDNDMbdzcqkPE/Wv+POWG
8G2ZMUMGyH0o6nhgSkTU0u8Gh5QZIDLO5GMzI6K7PljFlWPAO07lJKldRJTX
7LGyX5gBvpzPD5w/iM23TXtUZKAFwMZiZ8URIjKPvEPOqGmBVyvM3fxdiKjO
tNVpKqUFku72Hdx/nogiHfP5PF+2gLx/DSPsChFhyU8yJLgFPw8aCdCa4HJo
gSW7vgcN3SeiwfyfSVTTFvh1pkqcHkHE48v2UbQh9zMiCpzVuxa5pgX2CNT5
rftGRCq3ju+d6mjGz6M8lYKm5D43g5IAvdarkYj+VEOupGbI2D6mbzGMrUef
zcYc72ZYJDN0dgcrN6LKnjhYc6wZP//aKls/MKzaDOtmqh0Fl3Gj/NRfHMsV
sPuNPjk2q8SN5wvHrXLc61ZxI444cSEOkWYYuuPi77eJG2lzhd13G6WDwv1g
dzZzbhRovv/qpRo6kMWmtNL2c6O1pc5VV/Lo+PkcU3eHb8lbOtT16rSfusKN
tpy0uLM9mA4nvook7wvlRr0Rne8LT9Gh71GecPczbrTH9SqX0G463Aq3+PUw
nhuRfLc+lTWk4+eDVQqijTZAh0LTkYGcEm40wLSJo4vRgc3VK/0pkxvN59f5
80dvwva4LQlNEOS3x6+WyoP25Ku+0/NrAtoBL8uxxTxI6E8BcmzCzzf5za/u
Zx1phJ/OUuctTHmQ3cO9FreZjVBm775FcTcPuvWHTlU14uenl9uNfK4aNkKS
9N5ajts8CGo2nNxq0AgpjTPGaRjma9xbWqbXCJcK71gujeBB+5wfRIutbATV
vIro7Uk8SEIFOgLHGkBsj504tZIHzdeT3s7XljureZC65e3jm1434Oe58Y8L
GCMxDZC8zLBqkSQJkfU3iCyWaYCNJnZGcjIkpBjZ0a8l2jB3fk5C2mGUqOM8
DfC7z3qvNyKhv/S2sh6c00MlpvRIqKR5m9LDH/Vz8yehhEVmLd2Z9aBqUPN5
5jAJ+buprs8MrIfSwdL7D46SUPXmg92+1+vx8+g27i3F7ufrwW1b5cawYBL6
axa9ehDwXX/2N4Yb0UBI48b6OXuR0L3T9xzd1Ovh8qNXG1XCSWgNZ61J4dp6
SC6/E/vq9sLvq0c37J/EsDJ/jNKoYT3cOHtP7BB2fXKs5mUfj3pICjxETQhd
eD/yfQU58QckZLrkapfJV+z6Y7vMw8JIqPaK5pKbDGw+Zy66pD1csBfv72rd
TVEkVGVzqn+nSQPc7rcybYkmIdllEQ89/RugzOJOqXQMCV+P1QcuuX56RUKF
D5qm0/Mb8PP7oxXaKcdojfDh8e0c2gcSukhUJ/Fi621z+n2gFobn17+VzhJy
AMMXEr5q1es3wrKkmGunvpJQULrid7aURijumdAoyiXh/rW0HiwyikloN/sG
mRmeJug8tUzFuJKEchWiuJ4pN83VHxJSvc/ekW/QBMZucsfP0Um4P//e3zj5
rIOEJs/WB+uGNUHhth2LeMdJKE4gt2a2twkUP/GoN02S8HgxH914buU0CU3L
0B7kEOh4P0P4QYNzOicdfB5wH83hIaPuO9iGRo4OZp8LuOIFyGiyi0PzpDod
fqbd7FWXIOPx+i/fkFGTsV8lsqLDj/GGdBVlMipwfXhK6jAd7B31DdU0yMhW
8Wyq5UU6lC76GmRKI+P5Yb7/wmuSWP0zkg5R1E3l9vvIyF33dr7WNzo4x12/
8f0IGc8///yRjDqUz4p9aKHDZ9Fnnz3PkVGadofl5iE6cG8MH7G5REZvDJvd
hWboeD9ITS+lY7MUll+3vmY03SYj634tDyHZZvgp/tkk4Q4Zz4cS3mdNa8PJ
KDRBJ1RHuRnKvgUTqt+RUdkKiYcGW5uhsUSM+3oOGc+3X0i0Y6U/yOiLj5yx
q1sz3q96LmhCHb3eDO+cs97V9JJRX1vnRFg0ln/XcHU+miDj+dxtuVZGBS8v
YlYc/vKtoBnvh00KMjps25rBksEVbbaWF4X0XgSNmWZYsoqf386UF11Jqc4P
kGiB6r/24EWM+60rSrVb4H39wyTec7x4vel67b6PJ5QXta4QdVmP1af5/hzT
Tte/y68Fprm/vo3/zIvXs7o90jrXGnmRTPVDJf6Eljn/4EV81Uz+qRKMH5Zf
3X6Ui4LXS8s85YrryyhI5cyukQMTLXi/UPZs4yAZq7cBwuLGobspeD32nRG3
3OVKQa2bmHsZNAbef9w+sDLm104GXPTOtUuLo+D1/p25ZtXdbxQUeELv7DDG
J+f7m8a7OYO2BjFgVqfnRCgPFYnufF1jlMSAol0Tsk/EqWjxKcKR9ZkMvH/6
ntCxPek7A5h9plxxulSkk7CFatnEAJ6lR50WH6Uis/pH7XUTDLw/G++/Q/jS
NAMGuBQa9U5SUb7nj/cdGO5aS6yexfA8f9FoWyGzPpyKZrsdmiUXt0L2j8yP
S2Oo6E+64pVvxfvD1Z6aVA01jC8yyx69yqGi1i7J7DLNVshhqwxxraGicOnP
H54YtsKHv/OjohF34fNMo1Z4b+Sb+KCPinYfC5rk2d0K8/3p8kz2FRk2C7gv
TZJMIXTAUAFHhugsFa24WqXZMtsOU1bs2b6TVNRWLFc3PtOOv096a7rd7V/t
MF4xW2R3nYpcrLQeb2a24/O/fl5UeFd9O+wf8NG+sIGK5N3Hej8UtQPtYPJe
ihAVlVYkjez41g4reJfrU5op6GnXop6CpHZ8fbSrgnp1EttBvqYqSa6Gggbt
hh57vm+HH36aJ/ZFU5AVKeFO8tN2fP2r7+QUbI5qB+5YXuWgMxRk4u0lTwlr
h6TTfi5OjhQklxLcceFuO+5fqSIpg/sD28FEqlC0bSUFbfTLTmjybodsDY6H
vykUxK57zSvoQjvuv80Rxv2r3Nph8/MXlDXVvMieXXA64ng76Mx4ZmulY/Hx
MzFZ51A7Hh+aI+H87bbtkNdgXlz6nBdRHvG73N7fDp1scqNexrzo5sV6lxcG
7Xi86pcLX3LSaoe4TKko/gYyEmEn/iqQbYdWT+WxG1VkxKakWBwo3Y7nI3U+
dzTO0w5pr5QHko9i+VVG2LaGpR3Ph6Z1ruz0wTY4U3+nMIyFjOQedkvX1bXh
+brBZ7fvJQx3Fghw9M2QkFhs5gYzDB/NXaIziuX7lnVs0ptq2/D61b17yrv+
SxuUHep4TblJQlSXD0ptn9rw+t4Z3LPbPLYN2tfPiJRbYfcT5PYcf9IGuY+k
utcsJaE3GU/bkkLacL7B/LCnzxfDGvHm5HUYTm50czuF4Ycu5nQpeRKK2jG5
UgjD83zmyckHidvd2uB0kxFfSCIP0t83SP9+sg3nV9QqvZ9i1m2YP70/oG7B
g2yODaI2wzb4KXLPH23hQeayX1ry9NoW+JvxIrnmTW1wIWiHwVPgQUOLvqcd
orXhfLDEeN94qWIb7MnK4zJs5EYnOhUenJVpw/mlNdsL1TekNjCtJK9dfIsb
SXt37/g4wwSDvCnKEjdudI6SmLt5iInz2+i3De0Dv5iw8/2uA9vMuNE7i487
tzCYwOq/enq5HjciPpK5JdbExPn3LxliT3kJEyy2u1xTo3KjCDPN1l/5TGja
qOhGbCKixkcMW/8kJs73jy7d+MrrPRNMtTJS/aKJ6K3zsg+GT5n4/qLf55Cj
xF1sv+jo3pO5g4ia1TU6xs8w8f1QjqvphU9nmaDvZ7ojnG3h/navZXbRWYjI
Ythj5OgHJvjMWEVqcRPx+d5zlHwpg+3futj3cdRytkG6QarfWz4iem3rekd9
XRuEX3F5UslPxNcDju7fpYthuzfThSpWbcDKM9gQIEnE15u9b2nGu2XY+E5v
5YD4NjCM81C5rUrE/fGlr8INTi0icjt1Q9RUqB0syX6OBpuI6PqtStHtyu2w
+o0lORjbr83HZ1mPgGg1tj/rOL7lvNC9drg2eu37kUAi+rJHuVF0oh26I7mZ
L4KIeH6bt9edTpP4p2wdYL9n0+vV2UT084U39fDBDlAs3LlDop6IHCJWf7II
6QBq5243tTEiwirQ+rS0Dnz9CEs3lJ6a6YDxizX8/Gu4Ua7PrUE14U5QD3qk
mafDjbocN92Ll++E5NV3Ayqdsf3SNp3lGUc6cf8qbb94HSV1wvaoyCntD9xI
7Ri59jWGlwv0n3uA4eNrzc7yJnfCirAfftED2P4G1q6v7++Ey82nCBWY/8Yt
3mOvPdsJ69g/ve3CcIbH3g+mGJ73b+lLdXuPYJj5PFojkpUHvUnh6qtj6YLM
9PBbOUt5kKa7evdjuS7oyB1/qKDIg35QMYIq34XHz4+dtTJym7rgoLy0WQQW
X7LuebJ9el3w8UzEIbMdPOjXn/N0oy48Pi9RTEQNPbpAnuW5syG2v0kmLQq4
59MFZ7+Upu2L5UErOzGDhHTN5U8eFN7I9kT4QRf4WAv4XvnGg1r250v5POuC
2adLdlGxfGDuJVf0M6kLzw8HRzv3CSV3gZ9XoXcYhk3rezVXYFj53om80n4e
lLuTZ+P+nC4Ic5speCxEQk4/T6/6WtsFCkdNmarY/ighJPK6SksXnp/cV4q9
c+nsgpr7WReGDEgoOHt42b7ZLmhWeNZqYkRCWxvMB9QJ3dAcIMQM2UFCVrtb
g/K5uvF8uPXCanRvUTdse+1Y6vyUhBycUox9BbrBsR8rO88Wnj+fX9eu2/09
qLgLVtGk33wpwvi7qPNprxddsOPTQXJLPQm3z3z+LhhOLo+8gM13Zy19VJyM
ytmUr9vbdsG672+8BTaRcfvP14Nso6lr3vpd8NlPI2dqGxlt3TJwMBhbv6is
PscRV4wfrzkhLri8C68vbCul839g673mo8cD4iuMjzu5MKdFuqD6/Yuzy4vJ
aJpDU+QSTxfOV4/viyVbc3aBKcdDMzKdjKKPut+rZeuCrz6v71Zi/HXeH+fr
nYOla4p2XyfEnmgQXb2eF52QvSsQ3t0JDDOpOGTGi6YylydkMTpxfto5U8Dj
3dgJrmtjNN7e5EXey5lcPFWdsOreGLEF46dGZwr6eSo78fp7Y+gEYfhnJ0Tf
3m+kVciLlJp1yKcKOuGC1XuD+794EVxMcDj7vROv71WPp+u1cjphX5jEl2YS
BbHqf0vry+oE4ZxPxgq6FHSmXu8K+XMnzh9UfjggttROMFH4ZGi1lYISf95O
3JTSCSVSgTwHzlPw+JznJ/sPMVaFv8fi95GKfHgpBTmUGGaui+vE+c66/bYm
ZzF88I2k7QcGBR1cfCklG8Pz/POU9QfP8hedQPEx2ua/j4p+lB1NanzSifOt
2q68d9efdsIHl4xyl0tUVEMxcdv2rBPna28a724/HIPZ37vXQr2bimzbSmQh
qhPnfzJSydu2RS9gY+ZbvsZFlaCoEl2/cQDjlzukWrYuq4R7WVpl/VUYv3xz
Oa5ItxJ+Kwn+2p1NRTA7+ShvTyX+PDEDV9Mch0q4EhyoZnaXitb+IfABlfDC
vL3a7DYVpdI1NlODKsFGUNzE6CYV6ftXWMzcqcTnI9Nl9rzhQyWMpX/zMbej
osKVHzVtsyohjeoRr2VGRfP9gH/9GypSjzlp+IheCSs2eIatVqcifpk9yieH
K3H7+U95JAZzV8FizYv35fip6OPBUPfd0lVQHG6UM85BRRttvvlvUamCit6R
TYvbKejn19KdS3dU4etjEruLlLi/CsbvGgYcLqGgMcNHjt4OVdAmS6ewPqcg
rzajgKmQKny9extnWqLfV0HQtzNPc7D9i7sQtqOcqIJPhjlW09soSMqwxOIO
ZzXuT1PxPXup1Go4plA4pqJKQVEW25g16tVQa8rr4y1HQetfqikPQzXur6vH
7BSrjlXD0FuP4j3DGH+8LMrbd64a24/Wcyu3YvFDT1uqE1gNPUOs3Px5vMhC
NokjLr4ajw9LyUz7gMJqUJFV0A2O4EXln7g0pnqqwTWtJUTvPC+a75cYLf3Y
+c2ZFzXUqh5PUarB47H88vY+y9U1IDyec0h+Cy9yWRN0Pde2Bsi7rwa4G/Gi
twe+pDofqcHjfbmI3YbH92vgvqYHUpHkRR9qTncviamBy1M+TsH8vIjg3tA8
FF8D4TXrd0cOkJHQkhYBG3oN6O4YyznBIGPrwyyWm6zB841GJX2VL7EWYpwv
KOTlklFT0OEaVunauflh+Wj526FeVAs8i2MbLBLJyMugN8NUrxauhX2SCn9M
RkgkbvGQdS2e79IW62+VOl8Lot/T5LnOkZFhzHCUbGQtfl7wy/MCV0ViLdx7
HdaxfDcZ/aEXryux57c5H+HdTkYR98ILPFpq8Xxbrto+ON5XCzmpK9Weq5CR
/jh7YK10HQyfucH3SpGMLuZca+NRqMPPP95prd96Z0UdvJk+Z92P8fX5flNO
1blnPBhemQm8Usfq8Pxv7U7Len6iDhxWrWhO6yUhLZZGz7jAOmjsrNWe7CGh
4ivpLSJBdfj5D9nziLrgmzp4XnVf41cNCelqHuZc9xYbN1zLfb2ShL5/FTq2
NqEOr0czm0Zkhn7XwWRf9inxxwvjhdmT4hz3SegVsvP+HF0HzuGybUew8fn3
DbA7dmD8CQlJuLkXgH4d0BztrPKiSChoj49KJaEOPLomjZtfkHD7reAnFTW9
IiEzFwuThPRa8BqVvfYsnoQoP0w7UrfVwjflJurN9yR8/ebfb0o4d3e9ai3M
HnIfv5NDQt7b6i8eK6qB+rhT6j3fSbg/eX2vKbUuJCGd6YS7HT418Pvtnk3E
Cqy+V8Ycnthbg9vnWrBb0wvMnxN+mgjFNZJw//+dxUWy7CShM+sEt+oOVIPl
Zacv5hMkFCZ7UOBuWDWMB29opUyT8HjzS1aQV8b2U5q22YPBftX4etnZ5+tc
v1IN/ismpr5SyCh1ImktVa8atv3WKeAVJSO7Lo6vrErVsNWLaPBZlozni3n/
MDJJ4rfrx/JL1d6XMmpkdL7yOKUstwqeR0sS49eSkeaKZ5bv46tw/5Mv3HNb
0hUbJzzhLTEhI2H1m9SmE1XguklZV2srGc9fjBYtcQ9zMuqOeuFShOW7OE4e
/1WOZHSd3e+tiUgV+Nkjw3YPMp5vfxqNJRv4ktFttQMyctmVePyMvvR2XR1b
CZLS2l/WppDx+tDbxplGyyejEMuEncdkK/H45TsaR3kyUwFnqo47yWL8gLvi
XX5DeQVIKhoXMKfI6EzLyZ+n4ytg+q/9yGhFL3eif2wFLGIrJupg+UI1+sve
bP8KPL/sDLLP9HWogKxLO4WvruVFcl6XZac2VcDHn8nqxVg+GhA+0C8sXQGX
z6yratnHi94cFrvvOF2O57NA1TiaO6McOJHZrPE1XuQX+VOu41M5bOvuna16
xIvm+9UnJMaUY1/zou6fiwZ2uZXj+ZTRPNP59mg5yGl/kxyu4EUaR4JuhK8v
h3Xv3u9dgeVrgdVX37NMleH5ew8Pm2zVBIbP3jCWIVDQ2qf3Sx9hOMaulGUz
4c/38qBhjeGxxZ4rb6tQULViV8OajLIF/rFKM4D1QRkMG8yKJGH1pUp+sYSi
dxmsWeumZHIC4x/vVu5mdSjD69ESsfioKp0yCBzbocvynoIWx3aISIuW4fWt
XNbipHpbKWxi++6+t4OCuhjS559VlILE64tPf1CpSHUva7P461K8njbu+vBy
771SuKk/mjp2hIpcB3eZ5W4rxev3Po6auDCjUgho23Xm+Ckq2lPVsSHZoBQi
aKnrrJypaP77AZwvdFQMnWIrBY4j7T1BpVTkspFaZt1RgvMRf+aasZC0Bdxi
8TM+NysT7vlPlRe3U1EQB9fHgyJZ4CXAetmwjIq+iAX4yPhmgdzjNXWWaVR0
sTPgmIxsNnRVEWrZU6ho/nuOZ900oZOfqGjH1SsHDuln4+9DRLNcDUez4Zxs
mkD8WyrCsp/Z2aJsOGZGj76L4bXab02SN32BeocfKX1vqCh0nYFayYEvEPlC
VMLzHXb92cHUjee/4PdTEifu6yz4Au8TTYJeYM8TY99FWT7wBUIEroTWfKWi
x6niD32NcsAcPdOtL6ai+e9H5s/zlsk+MrF/kwN37kxH6HVQ0aQA8YEXIwdM
sistdMeoaPGfD55Evi7YZ2rrFW+VBey7nnpGndwAJm+YPzsnqHh/I1www4R/
nIrkZfj1J5c3wOUX598IYfdXDo1b9cCrAeQ+SzFWN1Dx/oa/s5asOsb/GEYr
Y1YNNoBi/7Nw83KMT5p3/6rhbgQX2ZuDenlUvJ8RG6Np7/adirY/lCcIHG6E
5rXPrOzSMb72htAtmdsIs8oqUPGZivczdqfvUh9JpaKAreoBh5sbQS3/VWzc
ByoqC3Z5vF+mCbfnzasWn8pXNkHL5cI22/eYv21Qiwi3bQKL9NId5xOoeH+j
b4VheiyG874nznafboKGd7FnAFsvQ2sdg7iuJlhcYLAy8jUV728MgCrzUxx2
P1/2oyJcdBBawfPTArt+jd/B3/dpdEhM3eJgiY3P9y82EOsuM7Dxpmb98EXb
6aCjcsm8MZGKeO/3a5rdpAMh8o7idwzP9ytezj52WJdERas9V/4cDKHj8xHZ
JsKt8IAOm4TsL6hj9unO6LwmX0oHgQiRbYkZVLx/YRdsEOyA8e2mU04yZCYd
EiZsxOUw+873K7CkXvo4n4qKwsa8WynNELFyoOUo5k/z/Yl5f3rQVbelUL8Z
NnF1DCRjeHv5xSXjBs1Qmy24iKOeiqRWeNFrDJvBYvNPARMGFe9X5InHCgb0
YP6qoFaw3aMZ968fEscIK14v4G+WgwFigz1wQ0Yx+Tm23xhRVXl88HcPJJEd
9k1h8cdSH6O2rKlnYf53gw/ubeyBAlrBy35sPVOHuBv7Gnpg5HyA++ArKlon
8TKFs64Hbo7PJgSfp6KHHVnWKj97FvY/q4akLQp7YG/1r8fx5lTUc8fEZCar
B+53+706v5GKKuqWPJNI78HzV9YF1ojaj9j72OxersZNRRExnxxocT2gPXN5
zeluLJ9mESwao3rw/HjgQWl0eUQP6BtGye7D+L9oWN6r7gc98OANo9DmEwWN
qEcVVIf0zPETCrJuHJ3lxjBqHyl1uU9Bj5ZG8cf59eD5+IbpY4lu7x54Oa5P
brlMQVayN9adutwDR5fc2nrYjoLyroy8v32uBy50mvrv2UJBlRslyzee6MHz
v80Wt4dyx3ugbfcdeYflFFQgqFR91L4H9hvdHjOhUBC/97OXY7t68Hqj+4xe
Gm3eAwfMfy16PcqLFncElM6a9kBv6rhAXQsvStoWXv/KqAevZ294ih3ur++B
rOcXaeM+vOh6YZXOoZU9eL3kl20oNJXsAfWpC/6DqrzojENI78XZbgguv9qj
psiLTsbtGWqY6sbr8+OzOen7Jrvh8LbA5F8SvKjInAnVI93ANSio5o/xfZ4W
bo/9Hd04PzAkex/72NAN0vZHnEMzyejEhqsJSiXdwDmy2IgzlIzuJN17SE7p
xvkHyhN5nvqxG3hdWwjLg8lo+tG+I8cwzCH/gj01gIzWePnNbEvuxvn81s5r
i3Sfd0PpQ0eO5/vISLJTipwf3Y3zJ/HKfSUPQ7uBJeuC029VMrrCG1Fk5dcN
eXHdGb8IZLQlZqqXerIb53c/9x+VHj7RDa/yBnRUMP45/zyWimbRlgYSajUP
0ztd3Q2shV9y68dIKGnWudByrBtCk0y7bmG/n7dfUfqv42UY9jTc7fNyduH+
lCKVS5kY5jnfWPSTjYzWEXev38rWA4XKhjEc2H5iy7unWpGyPfj731ri/NFO
owcmn4csjtxBRpScvRtWoB6QM30qW25Fxtfb4YLszbJLZKRq68Ivv78Ht+cN
uwPHD2P+ZDRkW4mw/dMD9pzM+lM9oLg41Vqiioz7e8Pax7PhfLzo/rR3TNnT
Hny99VxvUorje2CZY6hd+gZedMlD3rcquwd4Bnzzh4/zIo9B3hD92gV/8hJ2
vHEHw53Pz0fznMT4XD+jIwHDqootthEYno9/NWOv5GdPeNEswembTu+Cvzbk
t92cxvLL0sKs8GE65q89PIuEJxb8n++KZ8AO7l5IVVA8yqNFQW4s8S/Vl/QC
YfmMoIsBBW0z1vFsU+jF4+t954WCWMVeeHaWdlp2OwV1nKrbslq5F/jEz+t7
eFBQO/VMH2FdLx7PLbZxxbfX90LgLUrveiz+f0i/Wntycy9cMVo9MPqBgrxd
JIw7MDyfT6wenrUIMOmFrMDO6y79FMT3g3PEancv3P75IzZ2ERXltw4lu9v1
4vmqL7GzdRuGf3TkbkxUpqLMDOkqONILh9INl0XpUNGn9o9htid68XyoIL7z
HadrL9jHm/geu0BFUYrvOcUv9MKodckV0yisfu66btDn1Yvn3xgLs7RK314Y
M/va1F6N5dPaDcHjIb1Q78ShT8Lqw7m415R9t3phk9Ipd3asPuiWLj4SjOH5
fH895sQzzfBeMH9kUPVm8jdMvewv3WqLMv7Vm1/geQCslLlFMkxal3V7F2NY
21bCpXVpxq9qi0TL/F6IpC46lNotNvc+2H2XTAe2JQ6lm3TXnQ982Que4hwU
tbtiGWFxwjLXn/QAgXNAYR2dd+77Vgz7XsiTuT2W3vriwLv+qxhm/+0kacSX
EbE67YmtRzd4dvt5dKSyz9mnGwiv0+pW1f5OF93xmVpojWGh2TV3rbgytmVO
lVzY0wWEcyTQZc7Q/p0vYfia0I2cD8z0c8sP3qrXxDBtdectb5aMDxtOCSRo
dAKhatXQreHROX0Jhov13Wa9GtM7BKf9yoQxrPWT+HERT8aJEupKRk8bEEQP
Bh/ZNa9HwjD9cOqG903pSswHgyKFGLZjU4dwQoZ1jpiBTUwrECqvTrjSR2j/
5othvp0mwTGZ6apbJrnuemH41ohkhfdwevRkzI4ZqxYgqF1Zdfzwr7n3xzDh
TVFZdFZ68Np3Fms0MbxYjS0pqzt9s9TOm2/5MJ5yUT+quJpB+7eeGM4MtNYs
jU+3lNejHAiqw563ij17qof2z34Y9jy5m1rzLv25ukav/1YMW3JtbQ9pmdNj
VGLPc92iJR6YPnYuZW1dCoZNv7uJjX1L7/88M8F2tBSbr3u5NmvG3PthmOA0
FeZ9Nv2pmMoZ92UY9jw2tnx7cvrl1jf+O98WAAHFK/1uiJ17PoYJwWui1hql
M4o7vQxVMZz58PuDy1Fzz/+GjWem6+1Zm64kY6MwEI5hz22T24W80zMW24m8
9M/Gxr9PeVy6NPf8PxiViQTJptNO5ux8xvUHT6wMTTqT7kgWq0jtS8Vw/usb
Xkfnnv8HE1zeiw+lVfy6s+FDVwqGzc9dtLJJLxPt261YmIBhBwnrzB1z9/+D
CWOJAT/S3PyCnOS/xWM4rOwZ28Z0/0eCxsu2x2BYplZaUGnu+ui/caWi/ziN
7sixS1Y3CsOet6nGXOl9LrY7NGxs/ow7PP2Yq0P4f//4UIdOxOjTK1FAyTld
vx3j92nK5o9bHkVBW05XriEWv/N6g3k+aMO3YbGXWDTcl28LUMX4I89OGq8q
xIA/i/BYaREVndCbLlBa/hRW0eKXDf6mohZWS0XGg6cL+w2ZC6oN3QsYbT9Q
1WUyRjtC1XbNnaQiz8For8uev2mqpVBEwPg9Ifbng8bntbT5/OPp9Xax0q42
2vrnw79iML6Oqsz2nz/7m7b8/ltC/Wls3OWt38Y1tbT5/JbpuD/2ypo2Wgon
7xEPR2zcUcNb9NhvGmvPxzUflmHYZtKpKq2GNp8/M5+1547xtdFk/S407pHB
sHDxY+uDv2nkdZaHbzVRkOerGyvDDWto8/mZIDuzSuz9KC1QV9tibRU2rvst
zNzyN80+wy/sRCg2XvV4i0dxNW0+/6P09wabAkdpGaYqAru3YuP3aDEjZ7to
8/XE9Ffv8Np2IliuvFiUq0dBxSJNJ3n6CCBaG95GTuVFaLy2oOJkJ22+nkXS
Hiir3CHCkPyGbx4JvCj4rvbvxA4CON2aTc5exosyN+g9jrXroM3X23ekq/az
G4nQJ/X8w1oZXkTw5OtSZxAggUi66obxJcLYcJSCeTttvr5nXr4hltXHBTUT
ylG9gRh/Sj7S+6aJAF6StsYr2MnIU4r3JcYuafP8oy/HYbtHJBfkyy71ejJJ
QjJLfsWYNBKAkR9Jbj1NQignPSpcgUmb73/15R1qNt7BBXHydKu9jiTE9/Tc
qfXY/TMSd+eFN/GgTOlE2XSuVtp8/04tTSZtLRsX7K0LVhSo4kHBKj+kX7QQ
INyVx3P7Vh5EkPRKbGhpoc33H4NPPdW2TOaEEO6dXbl6PIgeyldYhtnn7uPl
ahyp3AjFnq06/qGZNt9P9fQO17BXHKYJGiyN8kjgRmrr/Csn+wlgZLykJmUZ
N8pMp4T8uEanzfdvIzWSiZEynFAp1Wq8VoYbySzjX+o4Q4CA9TruTqFERMjq
Fou500ib7xfTxw/wsVRzgECT3vO17ESUqbHMpTniF23++2qnXdP3XywVBefu
vjMWk1yo75zlEj4zAZhgClU/auJESLGPLCvaSZv/XtxzjVZwDZEDyA9O6WZV
ciI+gdMB8kECoPDzbRznH71xn0m9tMa8/hHDKW/vbRkTht/G3EaqCRyo2NL1
pytTAPZ87OQ7GcqOPD+eolpn1dDmv6dXY++TfyjMDvtYvpuEBrKj6uzsuM69
ghBuMdtcfpoNEYaj8hZ3fKfNf79PMLgmoMMqDKek3hNmHTBs/HTRhilB2LlG
aEhrKysi5G7cGZH6Kn1eL2ATTVQT288GPhybhg7psSK38ibrrHIhcH90gSNy
GQvynLQ3v/WkPH1enxCmJhF66IgQ3IDPrvnSLIi+nl/TZVIY16P2XV1WtlqI
DQTMDp1uCCSgzIqD/Ut62GEsT1CLl52ACDLpq7ReVqTP6yMi/W64WlPZQIEu
liE3OguZj1+G3HzOAebpOk5ejBnwHF6jnmpflz6vR7URVevnFRug3Uq5edWv
dAYyV9t9HPXmhMjMT18706cBaU9Xn2XQ0+f1Hnys/Hnuq9hgax2x49cfvakk
eexQMBeEOTZsNr0/BZlHXV4ZXmpNn9eP2gDfmVM2bOBxotLXzG8Kij/dYdtR
RoTl+0Oyks5OAp0/9pptREf6vB7FtIe+1CGWDfa8kqx+bz8JMtz1lq42PGC9
8W21+I4J8Ny8Z7TxRG/6vB7Uc/qGf5cEO7wtqWIXQBNgUyC4bGIHeUEP+j6f
QNQfpI0NJA6jN+NA6E5Kzbw/QdO89HxjpOo4ZBrlD2gLNuN6UMQeqK0cOkh7
pV+3ZVBiHDxbpu6Mpk7SNk9drd15fwwIVJ2xT4ktuB4UdbJcyb/aQus7f3zm
id8YRD4wYw3nnKbtZuugcBHHIPND4XN331ZcD5rp09bQeWKItrH1M9NidBRs
8ggSJVdnaAxt99xPf/SgroxFr8PbcD2ozTg9jzE1RINC61KOQ6NAf9FzvFGa
AD/vPe88xhiBTG6pNPHRDlwPSjdp36MRO0wLuNoRQCwdgVzn6P0ndwpCFJNk
EZg+DJ4/TF7UBc/ielDCZyu1HQGjtJjudRs2xg3Di+LEjzufiOB6UPrXRUzD
hjFarGl7caLEMEQm+q93f8MBz0Qztf/oQU1vS3baflnQg9rkdOmEBE3Qhg+5
8Vj5DQEKEZViZSPCklsHV1VwDQG96uCpdWkjC3rQXw2qeue6aBuUj50bHRkE
J76cmxr8JHAdGQu6eHYQ0PERRvfDCVwPKqOpMAstszSjwLaOAPtBCKZoJE/R
qLC4pMBcijEAkUzbfcCYnbPHANhovfydvYwVmgmGFoKlAzCWHmxT+kwAjvVc
jUk2HYAOLd2r77+w4XpQp++1p8bvcYBXf+J5BZ0ByPXml6xwWQGjvn3dT5T7
gWwTOt7RK4PrO2VsJ9w4VITgNOe3OFm+fhA5ZuC65JoRxFymZy0j9EFfRXN0
Bh/KyOF5vumUWR8s3/3rVdhGPygQefX4i+GC/jJbRMW/YmcfvFHZ/vwE5z0g
PrBK8rnQB6qWLjkX9zzE9ZSb+0mBlBtRwJdZ7n39P/pJS8bHXNNPffAk2Mf2
uP1T2GJY7ujwvQ9+mzB4WA1ewEnNczdl/6N3NPN5nG0z2ge3Itnbj4a/xvWL
u/onPBTK3kE4o1a6RKMfqK+ERhOY8TB4Pk5p13/0i7k3f+Wn0foh6HDUbefb
CTBdZeVud74fLJ0rWpceTYJ49Wtv3QIX9IvZ/okWmgn9wLsj86f70EcQZPcH
euuCXjEzrjQXOAYgrFSmT9nmM65PdMopSVI7lQESStukze4MwEclJBH7JAuU
sw4fb3i2oE8UWhf2Ma9sAN6VsMF10y8wRV/iFqs0CEEXzaXiyV/BQeZqzXnn
Bb3hx4lfUiHfB+GK2VaLh3a5YMsROqKxeghGlhfZhEXmg2fGotWN/9EXiu3c
KOVzbAjEY/m2HXmzoC9kP77+Y8LeQjBhSxzxER8G6XcrWMWYP4BJk//Vv31B
Xzht4i79rmgYUiQoG1O5SsB6ewGkDg2Dpdq1h+77SmD8y8e3CrYL+kLHwRMv
22+MgLW2WWXtrQV9obQ/b8FXpTIoJOqEXzIbBUqF5+B94XKwLzpZ3ha8oC/8
yp4tGSQ7BjQVtsONQRWwZ8j8zk6PMZDIm31boVYJtOyioRj6gr6whDxKOjkx
BknsUct3/kdf+FI9h99gUxW0BqqeEWoYh5DzhVqzh6vhmHHOiXirBX3hJtSc
ZpI3Aa9+si0Xz1nQF75u+KB34HktrBuh6FlnTEJkSu7jXaJ1YJ+fxLeesKAv
ZAzEV3tlTMGbiEUpnv/RFzK1OXQO+DXAQXBQbM2bhui1zPzjjxtAmnjFkVm3
oC9UXPzU/FnjDKQPCb0cKWsE02ThczeCZmG/XsJl+xtN4Owf+nTZf/SF1xbF
b/ujL3zwIPXAf/WFJIlvkX/0hVq7LL0+aRGQ9mz758T1dEi4tjqo4zYBXSn3
HXr7H33h4gq5Ph3+Zth7Keqh1goWxCHr0sIi3gwTzhuFFmsv6Au1FLm+DBSx
ID7ly5y9EQv6wqB2wjV+lhbI87yjz+XCirw4PkpdkGyBbz6WbpUJC/pC4Qsd
d4wk2ZCMRlhm3b0FfWEVxznTN+UtICc1KaVVyIacIsRu3uBlwOWPvPe22C/o
Cy8rvU0tvMyOZLNJpeEeC/rCzqQos5abDBB2rtqi18WOdh2hW8jmMPD/b4Vo
Exn+vZUBko8Cupeu5UB2yyzb6D0McHUZfDRp+b96wzST1IO+a1vBJcakW3aQ
A+3qFXK+Zt4Kq7613dBYyYm+Coduo/9Hb9iqe2L7sautwKza+MtgJyd6tvfD
zBufVhDLbEt3Ofy/esNn8hFPYl+0QtitN79SkjlRneh5Wf+kBb2hW9PdQ0OF
rTDO7Fi9c3JBb0iMO1ThJMaFBvV57sn/R28oTux6YtXXCsdLIg+aW3ChJ+7T
3bn/0RuKLlJXHRJggu5r4X2mnlzo7EBC9C0+JtwXMO82ivhfvaFPGl3sj97w
rGF42EGM/66VvkIo+o/e8JRVXVjpISbomL7g8GEjIoew/ulEBSYEJbuedfyP
3vDifm2aFYb95VW1K+SYYNvUs90H49eB1lPnrze2AjKVjab9R29YZvDk9noM
7+16EPa9ErMX9bisKg8RHda+Jkx40AoB52xcBv6jN7RGjZrCGN5ygNv+s28r
5L+/yB66mIi8PzHP8km0gqZT45pNkgt6Q8a7sO5iWSK6E8LhF1XPgNCrsuMF
a4joRBrZu/cxA9QcA59L0P5Xb5jL/Wj0rBED9r54fDDTlIjW0PVy/JQZIO5R
vFPxP3rDjvQAK4FdRNSyKCFgWpgBr3QY1FcHiSjE732c4UALtI1yHhJ3WNAb
Zsg4tz13wa6P/NYintoCAd82PDU4T0RB+keKQ1+2AHXpNqWM/0dv+IiDvOad
QwuUSCK+RQ+w358U1tYwbYFoYsSu7v/oDa0Ch+9deUpE67VN9Zept4DIwa09
Rd+IaDZOquRWZzNkuRDPc9Ut6AsfSNKzOoeJCOkZF1v6LOgJk/QHI2xXNMMP
wkYtFWy/dVzYrkZPoRnuXLy1r/E/esIABZ7V8WrcaNhz55S/SDM8b3Bhb97P
jQo3eTx9mkeHzSU/a25cXtAHIi29kHOh3ChY7Pqt9lML+r+YJE1E16XDUx3p
tj/6P/IK38g/+j//3qUqcS0L+r9ID+Ost1QetGhKTPi374K+j43Z3mc13ghm
izqyJUx5UMzHZbXSzEYwyfm/Os48nKr1b+PbbGMTCVGSKUMp+RWp9vfJUEnY
RCGZkkZSORqolOHohIpKUYZIxgyhsFvbeExFg1DINm1zmUOGdznvYbmu9/f+
eV+WzcWznrXu7+e+H5sQPgui35cmTa/rC+FDu6cs7Ffu/g4PgqzYyU/5kCfX
gYOmG7+D8ElLXZdaoq+34HfXXN67YefzZnBzM1m9bQ0/EiItsz+xohnUNtaY
v3Ek+moLfjphMF2i7UoTfNEuzhp4xY+WR+xRChhrBGfnrdfZe/iR+HGaPTmM
yAeFondZTS6N8B8e+cs72QTQ9W/hDJ/TjbD2GadfJDuRL1rgBX/I/310fOgb
JEt1yh6mCSARz4EwqU4iH9W8fvIS+eo3WDPrEmD3ishT3aReXrV3RADxDVqU
p7V+BTcVHsUEDyI/5qp60p03koKy6GY5/QNE/iwlUlng/OcGGL8lW7lKSRDx
n0jcP7mjAarDTNKdTASRoZ7N6qM8DQCT7+fUrYj83MJ8xitO5myWfT1YfvRq
vcQlhGzlN8XtU6kHzRaRpBxTIh+4MC8K+l5bzZFbB2ffsgxeFwqhUzY+GwKs
6hbnVT9NUt1BmtC31Z4WcpO6wad1l7HinBB6dAhL+DzXBU9VzSXz/ksfxn/i
pX/DQBfEGB5jrrslhJSdf5n5tRN9mEtvr6dsbOwCraH9FOUdQsjx/rbsY++7
gBb3eMhnhRA6309Sbyoh+i+63qeN32V3wTXHPTyKzwSR0JtwtoHnXcB9UZPW
eEEQOYzHb7YOI/osKu6+TwyCumC73tmV6zYKoqrmexWR/l2QaKmkJlZP9FUW
83+imFyFYxc4qdGSEvdSUPsp3Zkbe4k+iqJLQ4+3VheUHTxmtuuzALLxKXyq
I0X0TzrNJVwj+bugwOBB9NhpAWQ51vJXOInon1RrHxJ2HmHBwACH+1N8/fmo
jZS1LOmfXCpqE3DHdZiZvwgHrsVrm9YDrl90yPYwlvRPMmvXZsje4UdjN5TZ
P70h+iblBh43XyWzgJEaqa+mwI9ulp9B6fdYoPFht6aGPD/qNuM0vrCkP3LV
mbJX4jILLnZsLP4zmw8d97kk+NGFBec+chhqmhN9EW7LD86O+/lQ8aH/sCcs
6Yvcqr3D1qbDAr37zGMdwIeUA091xi3pi3TWPJJJXscCVsTfr+VayOhwSG/1
ozVEX8RKK4crlJ8FpTYH1r5f0hepkXPdbHSJjJ6mzkbJLOmL+Agcmuv80Qmi
Q9Nqp8zIaHXHgOKJ9k4IGXwvtVuPjIabXd1IS/oi15N+qr/92AmU40PH7YTI
6EJ53hSjshNGKLaWyv+lLzKxXfHQfF+ka+eBBM5YXpTn3pD3Lo7oi3DvnesX
edAJ0/6pcpz484mjgV1p5x9EX+QvlZgnr3BdFnJcLG9JX8TBpmjVDzZeNEPp
xC697gS13KpfQWK86CxNzNlCnQVKwc1eliJEH+TIdZeWFlzvzm38q9yaBQL9
Y2eLVvKizJYfF4wvsmB4+sB9DWmiH9JNiTiSJseLOnl7pcuzWDATRZ+TkOdF
07dcvOVzWCCn39y0eQPRFwnUS3ojqc2LBq3j9jiJdkGUBkU9TYcX6bP36LCU
u0BVeHaAaUn0RfbJn7+icpIXve560lv4oAskqbobzILwn1cov4t9qgt4rzvm
Vi3pi5DPbPbOvcuLPigmZd7C94uFv98fHSIJ7RzdUGpS3Ya94kXrXqtUrtvb
DW2VpexBxbxI9HRqIL999+L/w/FW/bmYu92QFjF3rLKR6Jd8Ghs3pE/yotwC
rs3q9G44h7/4dJPJKNFHO8HnG9E3qb++/KndXDcs4+611NIgo4NDV16QV/RA
XnHSRaclfZOF9cVV0lPrad8DM6W69N/nyYhz67uJx8d7IBYG3Mc9yEiVts+/
5cxCfp2Mcl2LLzwK7AGKyYdVwffJ6BC3xnb1Oz2gGCOuYIs/f/frVl/1uEf0
V2ye57vsyO6B1JvBj+A1vp53J+xMxLWdKZft/SX9lZUTVuUV5WT0kd9faras
B/bNNduJNpLRPVHdmplvPf++z5JRlPTDDwcbeyBO/svtT0v6LcbbTJPn+y0c
jcX5S/stv28MRDvi+ilmyZbAxoc0Eyci2klEf4V1bveOo7t6IcqrxKkFv99L
KWncL/V6QXUsVD+aRvRXaEcjWgvx5/nj4suU1f69IFBUeSI/ieirLOwvN+oq
Qrdk9cLocuUoyWE+RB1d5biipBdyVA+qlwsRfY9tvYymiwb86HjOl8+8c72L
+1n2qvX9dOE+eGkpousWy49Wn3Aps9fsg3QHb56fs/xoOOKG0FqXPmj8doj5
HN8vZQcytT1diHzA/cfXDkXi+pLB+v+sxPdbpkPKcW1XIs/Q87ti1cOQPthz
5fb7IXsBJKdi+fpaZB+Mbr+qlRNE5CMW9vfBK+4pFm/6oFLumHRqsQCKKaDF
iFQT+QzhJ2wTXF/74JObUG6AFAUdv2C15fw4kfeIn6y0853qgytBq3SY6yjI
4DEtQG26D7StOrkNNhJ5kQX+P0fmcpgT7wf99hr7V3cp6MC3sqZEBYLvK3Bs
bVHY0g/2gSsKVnUReZUHRaHfkicpyOq688c5Y4L3x64ze7HFFP+8YJ5ZSYog
0kHCAWUWRH5mnFKRfuFUP2x6Zzvs4SyI1J/nJd10J/I5HmwejCmffkiYKOaP
X5LvKZ3ctfnlZ0H0MFTa+PFjIh/kzpJ8phiBf/+yi07NPYKI/mmv2b7ofrBW
/qy5W08ISTyXe2ucT+SVfhzYFNxR1g9ZVOP+khQi3zQinZyZmyWE1lveyVdq
JvJRtAvNRVG4TlJo1w7OE0J5G7nZ8r73g7B6n9LxH0LoiK/Np5j+/sX3l7Mt
Os7ug/3AClFR+PJfeDypoX6H4StxBv+a6FNl8zz+GvVGSK8iQ+wPwUe+lQPA
1LSR4jaUJHj8myyrOs4J7LkVb+7XRFyrSPpd/CXJkDlI03sV1w/Rt9Y/OWW6
jODxTZsKLzTMYh8PjDci334oUDTQqioUYbClhbTfud6H/55j3pvv8hA8XjaN
HcsYw6IulEVI2eFa+3XNhJkAg/P3wP4k617wztnWkWbNDos8/hI996XUIGaX
f9paVRv/OmNrb9Z5bsbPPQ8yW+d5/J7YcuveGYLHO3FpZ9C7MVpcVuJpMVzH
7/1zrFqYkQdMYZMBFpBKw/86t4KX4PESEFom9xMbDq0PSprn8cHy24RryYzb
s86f383z+E1OGT+2scMij3dzuXxpXS3W4pb5Uwb38SSDpj99b3Iw8lbWWZ60
bgMSFsn49GCa4PE0cX914UbMJCrkUPY8j19vYKoqN4vRi/iCxISZQOLTk+t8
P07weJLa0ceNH7G4F3Mpk3cbgRRXXFe5YiHPgGuZsw4z7PWY/rojPdImuFYS
LZzQZ2Ms8nh0t0U6mI75jUltCM7HNT3MIm1NP2Z81tXy8TyPFzi20yqYRfB4
b6Vwq2vpWPC3/EJ+ZVz3+5L6xjowkhUzVTe9Ckh6K+pnCpkEj/c2Vsz2vIt5
BV5QX7sB1xJGNJmTzUt4fBxMdfth6PThBMNwXE98EI7JKsMqk65qjs/z+IL9
nklbS5bw+CSgdFzBQkJDjwzM8/iCqTPOp4qwkhPL72sM5QMpeqVKQhm2hMdP
W0rbHMZ2iauUrOnLAxLTwouckIe95KYiz3keX1BlVqKbvYTHS8R8ProHw2Z3
kJ3nefwgfZt5ZTomEZBh6/8Pjz9jsjPmxVIeL8k5pImlRJ2wtZ7n8chN6Gro
E4xW+G7mqMM8j9cRwn7cpP5/PN5bS+6b7Jd6aqZw7d9N8zw8zSw+zLqOWjry
xH0Ev59JpFLz0FgDbOF+J3mkbTCz/pu6PbNG+k0mrsn7U5b711FpPXu+VJ+b
v95Fy8PjKLawn5A2BiSznfmbmpOv4xF6Etc1BzliMuuoxoXRW5KUcC0z80X8
tBu2wMNJfBSxtdf+ph4WU3rvKoPrbweaDJh11PpTcQ/8WgTxzw+l3tO/iC3s
b94n3eq3yTZQGSeuyO2b5+FSl/skhOqprqkmY/bzPJw0Vqa7/xq2sH96W6m+
fbO1garxPk9wxzwPR56pratDsIX91ztc6w5m2EAdT75/eERPEBU4yr+PXN9D
jd41kDScR0Gk8oNT+7nDsYX935sj9N6XGz1UjKemLDGTggrkyU7MiB5qieJb
3UQl/Hr7z9yBG2KwhecPSa2t6EpmD1V8eUGK7Tz/dqPFh6lmYQvPN+aO0sjo
0Snq+MjA1kn8+ccU1byDjfymaigHbqg6x49Ior7tJs1vsYXns3eQ1rcsi17q
s+pD8U4n+ZFMNDPtifgMdYTLPUBznk9TTWyU7EqwhfeL6LobHvXDv6nBaaMV
NXp8SEbKYp2zwyxVtUI4J1aJjEiHlI90+1Zii33h/sqUAMc+KqJO3NOWISPv
gAR59q9zVN2dgylCnLyI9Hr9R2bRB2xhfmZ/+mIP5/YZavPB7z1x8zw5fozT
uoQEyfdK7T1buBGp1qnJraIWW5gHos4DOl+L+qkVVT45gvXciFau94CHwQY7
jhgXsvK4EIlltz/N4yu2ML9kenpRfw7PUvtCqZ8vZnKhZX+2ncvuZIf80aA3
pvM82d9HImL8O7YwPy14hhQz4n5Q88L3UphBnGjQrpUhps8Jys/4lejnOFAB
fyddrLgNW5jX2uscOfMyjQRqu3au2nOSA7l5CU7s/skFIGzYoWDEjrwbaKu3
YKxFnsyEuwWVaYPUiFdaD1L02NEHn8kr7HM8ICDMlRqsxIZIx3MlJlL6Fnny
oM7vU/z+7PBK2fezkAwb2tTLj7ye8sFLA7414xwkNCgS2GQ0ObjIi71No5RP
NAxTU3jePmwZn4PoiCiZVIogfD2brv4am4H0d6SwwxJji/xXpkNCPzeWC559
HTZ/kDoD3r0z1VKOwnAoh4/N64/f4O3Uyp1SMLXIc1HYT/XZ0nHqGbJE/zYn
XJ/O1hqrEYVgi9cXtq6fhIn4BAeqNxtjkb8qzwamiQqA6jMeDUxyEhpyrZRF
dSVhgZ+i7HEx1dJp6lq5Wfff47/A/oBB/fl7fPj7n56Ndvs4bNKtj/ZkTizy
ULd+cJEVJUFDy4qd+p/Gwb420PO7kBDsmMhRD8HGIPpPM6FbVrMED8165VFi
NkQ10zBnXEsdg4JK+anYKhHQVImYaXk8Ct1mx1XjVTgYC/zH24XPSVKVG+4l
emY8DhiFS9zL6Y8mxMFeIbRC8o8RSIdopc8BZMYCv3R7xlLt9hOAZ3VGa92O
joBX019317yWAdm5La4qtGHQ+jlcahQvQpxPK84ZUyKwAvY+hcwBjWGoNRwO
Yi7bB2GqyidESYPwsFVzz6VtiKGoyvI4upfgifXdjVM7EwZB1smwISX4MXBx
5+fcX8ILdxR42ztlDUJ8wIk91akvoEooPTltCR+M2EU/rjAxCAWXC0f1Qgk+
+CD4CtmrOh1WLtt/uGUJD1ylFqtSTx2CufRzaxpCM6H4ZMDT7VeG4G74uZ4S
52y4Lt+hYnaH4IFfqtTdSflDkFzFsjg7/gZKbw1nBL0dAj3zLMqntblwcePM
Fu0egg9Ka5KCQ3iGgXO0I+n7QTo08+9Ke/9fzjNV3fWN4jnNAE/tcJ93D4dh
zB+lZ0cVQplziNGeBIIXnny3ct2Hz8NQdjVl9X1aMbj3FT2vUB2Bya37tdx5
SyFMY7nN0JLzSeOfTCYIVY6AQkHB00jbcggjZ29/pz4KJ8SnakqiKuFndpS5
lzXBCw/QKblvz4xCmF9m+a9kghceOXl1VbnZO2gu/9m8ctUY0HXIt4daqmF9
e1VM+JLzSKXW7e89WT0Gslvdbdl4PoJ1gVEgc2QMqNt530cd/ggWnl7FAUcJ
XhhEv78yMWgcdunErV95j+CFNumd99NlP0NVRoPBX+a/wEGWPhe0vBZKn1g/
V79H8EJTA9tye9kJWBZ0N1rgzhdoVLlG1rg6AY5n/2jJUqsD8i0JEbslvPCE
Xfq4zu8JqPwSv+7aXN0iL6QZ+8ae31kPHIbj2b7fJ2EsvaUi+FgDYFsPot8H
CV4Y79cjmFA5BS5dx9LoRQQvXDm0fpNJ1DdgbhqrMC/4DeWu5lN2Yo2gHH54
9NT070Ve2Mt9xI27YBrkfcOEZ+wIXiisl1Cf7d8Mua187CKVM5DB69RLjWoG
tzhaGv83ghc6JLKbJn+fhVAe0ZShz99hLQwYffprDs5xleQl+bdAYW3GcNdv
ghfWSVvTp2fmINBMYXgpL6z8EeGVN9cCrZuKvSS0SKhUf4PD8q1MGBrWaZw/
j5RNIz0hYwkvdHC6GdAu1Aom+7Yfnj+PVJ8lum7+PNL/vZ8IXug8buga8p4N
5Q8EHTdach6pYfl0mvt0K6h3fPRde54dvdrQPm0v3QZ//7O+CV54r3QDK12K
A0U33oi98JjghSX5/c+cq9tA0OFXk3QlBzpWKLvihVD7v+uX4IXn5WJf777K
ibo/cvDK3CB4YeguBfFbgfj1M6XTy9s5UdV9kBykt0NRONuswxYutOrgr/64
AYIHVlNW0vQ3d8DhIOYJx2EuJHWMg6Jn0fHv+iX4nvL0KfGHr7hRZ1ahXdob
guf1UqzKdCo7INSvprFvPw86ZxpvZsfeCa9psZcFLvMgL9LWC/XiBF9rIw/c
rjbthMpHCoobdHnR/oYbsebnO/9dv8S8TvHAtXcdy8iIbedBJ+0KYp7oY65t
s/FDJ2j63dXXNiWjLe3hYlptneByuuRoUxsZqT/5ndAiRcxHj0Y/n+IFFkQK
ix+1fcOH5I3uCE+dYoHTxokzsnL86FfHG/m4O8T8tm7E4fzXRBbQvCKf+d3j
R6c8Lhe55rBA9Z/1Tcx/XfuzHom4CqAv9TeMrs6yFucTbZXyRufJXSBKDS7o
/CKAHNOuO3at7gK/IsG6ASMKKpwckd+pS8y792b8iOyx7QKXxNKY4k2C6HG4
iwC7XxfMHFF8qHBBEOnyHXCIe0jM3/n96Z7HMrpA4+zlFTViQqjCHGu7W9wF
Jf/cD8T8H5K/6m+aE0K6Iy1pFXNdi/775cWvq0dxXfzP9YT/drGycrn8YQC8
d4lfGr66mfDXV4sDjCl8jJo3TkHeKbhWf1B8QkKJMZylo1Z+ow+8U36+zApc
Tfjl9c6Gve95GQHL/J5N2uO661pthNRqxvb4mrWGmj3g/XU6+maZCCz634k9
qc/d5rCcdW+cKn7ifrY3ddnXljWE331ynpVL5WLs0LkunFjNms+vR25irmJI
miYcWWmD+9PSsjiLF6Kw6F8TjF0bsS5MbetjHcPtuK7gyizaJsp4yEVPPhKC
+0/nZN0NmkKEPyVNHhNj68P6umgbqmi4tqX1VicKEv70rl1+IH8ttk3dROss
HdecekWHZKcxjiFTusNp3H/WTe7gqvlF+FOmpXH64DvssNqKL6Pz/pSmfYZX
cBK76RTJ8SsD959Oh+JOzYwR/jQ6VdgevcIaxYY6uDbimt5hUXtjnPCn3kpD
+lkvMS4uv02aEbjmjtgR9KIDm9W9g9Xexv3nj1H39l9thD/17ngYE/gCc+CR
+d7Mi2vm9x/Bce1Ywe3j7JwjuB8dV9DWtW0j/Kl3vmLPwB2Mbrsqmn8A96dn
sk43ZLdhtIwibvtq3I8KJEo8/dC6xJ9WjF285Iu13TEqPlKO+1PR103SX1sx
5k557MoB3J9G3xoLM2pd4k9bGveN+mLOHrTqo3twf2p9M/6MQCumtDGk2isW
96cPe6MFapn/x5/+D2K/HyI=
            "], {{}, {}, 
             Tooltip[{
               RGBColor[0, 1, 0], 
               Thickness[0.005], 
               Line[CompressedData["
1:eJwl1dN2GAoUBNCktu3Utm0ztdvUTG3btm3btm1b1/bdWX3Yc75g5gSFhAZ3
DwwICPgswm44whOBiEQiMlGISjSiE4OYxCI2cYhLPOKTgIQkIjFJSEoykpOC
lKQiNWkIIi3pSE8GMpKJzGQhK9nITg5ykovc5CEv+chPAQpSiMIUoSjFKE4J
SlKK0pShLOUoTwUqUonKVKEq1ahODWpSi9rUIZi61KM+DWhIIxrThKY0ozkt
aEkrWhNCG9rSjvZ0oCOd6EwXutKN7oTSg570ojd96Es/+jOAgQxiMEMYyjCG
M4KRjGI0YxjLOMYzgYlMYjJTmMo0pjODmcxiNnOYyzzms4CFLGIxS1jKMpaz
gpWsYjVrWMs61rOBjWxiM1vYyja2s4Od7GI3e9jLPvZzgIMc4jBHOMoxjnOC
k5ziNGc4yznOc4GLXOIyV7jKNa5zg5vc4jZ3uMs97vOAhzziMU94yjOe84KX
vOI1b3jLO97zgY984jNf+IZv+Y7v+YEf+Ymf+YVf+Y3f+YM/+Yu/+Yd/+Y+w
8gcSjvBEICKRiEwUohKN6MQgJrGITRziEo/4JCAhiUhMEpKSjOSkICWpSE0a
gkhLOtKTgYxkIjNZyEo2spODnOQiN3nISz7yU4CCFKIwRShKMYpTgpKUojRl
KEs5ylOBilSiMlWoSjWqU4Oa1KI2dQimLvWoTwMa0ojGNKEpzWhOC1rSitaE
0Ia2tKM9HehIJzrTha50I2y8Q+lBT3rRmz70pR/9GcBABjGYIQxlGMMZwUhG
MZoxjGUc45nARCYxmSlMZRrTmcFMZjGbOcxlHvNZwEIWsZglLGUZy1nBSlax
mjWsZR3r2cBGNrGZLWxlG9vZwU52sZs97GUf+znAQQ5xmCMc5RjHOcFJTnGa
M5zlHOe5wEUucZkrXOUa17nBTW5xmzvc5R73ecBDHvGYJzzlGc95wUte8Zo3
vOUd7/nARz4Ffv3V/wOjSO9e
                "]], 
               Line[CompressedData["
1:eJwVzGc3lgEAgOEHKaKlpJIiRYVQIiUkpAi9ZTSUVaLskoY0yOpP+H+ShopK
rj5c59yf7pT2/lBfWBAE8yyITyzymSW+8JVvfGeZH/zkFyus8ps//GWNf/+n
4UEQRjgRbCCSjWwiimg2E0MsW9jKNrazgzh2sot4dpPAHvayj0T2k8QBDpJM
CodI5TBHSCOdoxzjOBlkksUJsskhl5OcIo/T5FPAGQo5yzmKOE8xJZRygTIu
Uk4FlVyiistcoZoarlJLHfVcI8R1btBAI000c5Nb3OYOLdzlHq200U4Hndzn
AV08pJseHvGYXvroZ4BBhhjmCU8Z4RmjPOcFL3nFGK8Z5w1vecd7JpjkA1NM
M8Msc3xkHT56PT8=
                "]], 
               Line[CompressedData["
1:eJwNw+c2EGAAANDPqBBJ4b9X6hE8gN7DOdkSlZbI3nuWWSpKFJVQZmWvSrj3
nJuWfvNGRkQIIdNbkSFkmW2OueaZb4GF3rbIOxZb4l3ved9SH/jQRz72iWU+
tdwKn1lpldXWWGud9TbYaJPNtthqm+122GmX3fbYa5/9DvjcFw465LAjjjrm
S1857mvf+NYJJ33ne6f84LQzfvSTs8752S9+dd5vLrjokt/94bIrrrrmuhv+
9Je/3XTLbXfcdc99Dzz0yGP/+Nd/nvjfU88MUSFEGGmU0V7wopeMMdY4Lxtv
gldM9KpJXvO6yaaY6jkVJ11Y
                "]], 
               
               Line[{791, 792, 793, 794, 795, 796, 797, 798, 799, 800, 801, 
                802, 803, 804, 805, 806, 807, 808, 809}], 
               
               Line[{810, 811, 812, 813, 814, 815, 816, 817, 818, 819, 820, 
                821, 822, 823, 824, 825, 826, 827, 828, 829, 830, 831, 832, 
                833, 834, 835, 836, 837, 838, 839, 840, 841, 842, 843, 844, 
                845, 846, 847, 848}], 
               Line[CompressedData["
1:eJwNw4c2AlAAANDn+BKfJDskGZEUoazsTdkjm8wIn+jec25TIhvJNIQQ4jY3
hhCxxVbbbLfDTruM2m2PvcbsM26/CQccdMhhk444asox046bMeuEk+acctoZ
8xacdc55F1y06JLLrrjqmutuuOmW2+646577Hliy7KFHHnviqWeee+GlV1a8
9sZb77z3wUeffLbqi6+++e6Hn9b88tu6P/765z8RbTNk
                "]], 
               
               Line[{945, 946, 947, 948, 949, 950, 951, 952, 953, 954, 955, 
                956, 957, 958, 959, 960, 961, 962, 963, 964, 965, 966, 967, 
                968, 969, 970, 971, 972, 973, 974, 975, 976, 977, 978, 979, 
                980, 981, 982, 983, 984, 985, 986, 987, 988, 989, 990, 991, 
                992, 993, 994, 995, 996, 997, 998, 999, 1000}], 
               
               Line[{1001, 1002, 1003, 1004, 1005, 1006, 1007, 
                1008}]}, -$CellContext`x + (((($CellContext`a^4 (
                    1 - $CellContext`x)) $CellContext`x) (
                   1 - ($CellContext`a (
                    1 - $CellContext`x)) $CellContext`x)) (
                  1 - (($CellContext`a^2 (
                    1 - $CellContext`x)) $CellContext`x) (
                   1 - ($CellContext`a (
                    1 - $CellContext`x)) $CellContext`x))) (
                 1 - ((($CellContext`a^3 (
                    1 - $CellContext`x)) $CellContext`x) (
                   1 - ($CellContext`a (
                    1 - $CellContext`x)) $CellContext`x)) (
                  1 - (($CellContext`a^2 (
                    1 - $CellContext`x)) $CellContext`x) (
                   1 - ($CellContext`a (
                    1 - $CellContext`x)) $CellContext`x))) == 0.], 
             Tooltip[{
               RGBColor[1, 0, 0], 
               Thickness[0.005], 
               Line[CompressedData["
1:eJwN01VjkAUAQNFvbCNGjNxISSkpaQlJSUkJpUGlG0lFUBqkUUDplE5ppUFC
uru7u/E8nPsPbvpmHWq2DwmCIIc8DA2CRzzmCU95xnNe8JJXvOYNb3nHe4Kw
IAghBqGEEU5MYhGbOEQQl3jEJwGRJCQRiUlCUpIRRTTJSUFKUpGaNHxAWtKR
ngxkJBMfkpksZCUb2fmIHOQkF7nJw8fkJR/5KUBBClGYTyhCUYpRnE8pQUlK
UZoylOUzylGeClSkEpX5nCpUpRrVqUFNvqAWtalDXb7kK+pRnwY0pBGNaUJT
mvE13/AtzWlBS1rRmja0pR3t6UBHOtGZLnxHV7rRnR70pBff8wO9+ZE+9OUn
fqYf/RnAQAYxmCEMZRi/MJwRjGQUoxnDWMbxK78xnglM5Hf+YBKTmcJUpjGd
GcxkFrOZw1z+ZB7zWcBCFrGYJSxlGctZwUr+YhWrWcNa1rGeDfzNP2xkE5vZ
wla2sZ0d7ORfdrGbPezlP/axnwMc5BCHOcJRjnGcE5zkFKc5w1nOcZ4LXOQS
l7nCVa5xnRvc5Ba3ucNd7nGfBzzkEY95wlOe8ZwXvOQVr3nDW97xniDc/8Qg
lDDCiUksYhOHCOISj/gkIJKEJCIxSUhKMqKIJjkpSEkqUvM/6OyWPQ==
                "]], 
               Line[CompressedData["
1:eJwNw2c7lQEAANDXBz8jI1sIIUpSkRHJNVJS3BQN92aUnVHITiIZkaj8S+c8
z0kMR0ORmCAIVr0QGwRxxptgohdNMtkUU00z3QwzvWSW2eZ42VzzzPeKBRZa
5FWLLfGa1y31hmXetNxb3vaOFVZ61yqrrbHWe9ZZ730bfGCjIZtstsVWH9rm
Ix/b7hM7fOozO+0y7HO7feFLe+z1la9941v7jBj1nf0OOOiQ7/3gsCOOOua4
E0760SmnnXHWT352znkX/OKiSy674qprrvvVDb+56Xe33PaHO/501z33PfCX
hx7522P/eOKpf/3nf888B1YKO4k=
                "]], 
               
               Line[{1450, 1451, 1452, 1453, 1454, 1455, 1456, 1457, 1458, 
                1459, 1460, 1461, 1462, 1463, 1464, 1465, 1466, 1467, 1468, 
                1469, 1470, 1471, 1472, 1473, 1474, 1475, 1476, 1477, 1478, 
                1479, 1480, 1481, 1482, 1483, 1484, 1485, 1486, 1487, 1488, 
                1489, 1490, 1491, 1492, 1493, 1494, 1495, 1496, 1497, 1498, 
                1499, 1500, 1501, 1502, 1503, 1504, 
                1505}]}, -$CellContext`x + (($CellContext`a^2 (
                   1 - $CellContext`x)) $CellContext`x) (
                 1 - ($CellContext`a (1 - $CellContext`x)) $CellContext`x) == 
              0.], 
             Tooltip[{
               RGBColor[0, 0, 1], 
               Thickness[0.005], 
               Line[CompressedData["
1:eJwNw4dWSAEAANAXDbtCkoxCsmWTkV00KHuFbNLOzMqKjLK3/EnfYqRUkj0y
7j3nJhYU5xWFBEHQ6KuwIHjtG9/a5DubbfG9rbbZ7gc7/Ginn/zsF7/6ze/+
8Ke//G2Xf/zrP4PwIAixm90NNcxwI+xhT3vZ2z72tZ+RRhltfwc40BgHGetg
4xxivEMd5nBHmGCiIx3laJMcY7JjHed4JzjRSU52iilOdZrTneFMZznbOc41
1XnOd4ELTXORi13iUpe53BWmm+FKV5lpltnmuNo15prnWte53g1udJOb3eJW
t7ndfHe4010WuNs97nWf+z3gQQ952EKPWGSxJZZaZrkVVnrUYx73hCc9ZZWn
PeNZz3neai940Ute9oo1XvWatV73hje9ZZ313vaOd73nfR/40Ec+9olPfeZz
X9jgS/8DMQRV9g==
                "]], 
               
               Line[{1698, 1699, 1700, 1701, 1702, 1703, 1704, 1705, 1706, 
                1707, 1708, 1709, 1710, 1711, 1712, 1713, 1714, 1715, 1716, 
                1717, 1718, 1719, 1720, 1721, 1722, 1723, 1724, 1725, 1726, 
                1727, 1728, 1729, 1730, 1731, 1732, 1733, 1734, 1735, 1736, 
                1737, 1738, 
                1739}]}, -$CellContext`x + ($CellContext`a (
                  1 - $CellContext`x)) $CellContext`x == 0.]}]]}; {
         Graphics[
          GraphicsComplex[CompressedData["
1:eJxsXHk8VN/7H/swY8a+JHuRpVJRIfOcskaLRNEioaJVlKSFFCFCi6iUpV0q
QkXWVNay78swxq7s+/K7Fdfn9fr+/NPr/Tp37r3nOc/yPue572RtT5kdYiUQ
CAWcBMKff//98SEx1y1CDgGbYFSh/bPqBBXlXn+4ryNZBT5fYzR6fqaid6oZ
2cdqlsHJuuQTdclUtCTY40loqxKYp9VsFoqnovpbV4rqhpSBI2CLuKkLFfVJ
jXRIiiyDv5efoKKOKS/XwCVKoFQ26zl5hIqqjykkq65Xhpja4WfSytjz2mTT
2S0VwejWks23llDRWIvuqo+Oy4AS+9u+RYqKLm4Qjov3VIK7errev+kU5Mum
7D7ySAH+3r6OgvYd6dwS/RMg6538WG4FBQn1XubU/bEMRIrex2fco6DEK7LE
gq6lIL/5zwMoyMbihMrhKBosvUl3LTCloIedTtPW7hsg+M/jN1PQr4vltlMb
rED/e7621kYKske79deE0iAw9qLThnRexBnn1kw00YJjfyeI4VWqD+JstEH3
9fDw6re8aN+2Mx3jPhvAtjNgNkGFF5F9DaTsjdaDwd/58SIzubqVScc14TU7
/aSCJC9aX+LR/zNKCxL/zoeMHPK0lUKurAeFvYlMSiUZJX5w+lp7cgnUJK5K
drtHRmOC1tevuMuC3N/5kBHr6lcbnz9eBzsvVaPBADISYrq+6G+SB+ONL9hN
tpFRtUBlmXuHzNz8yOh1sx3FV0IO6t6f2V+lS0bXHhr695vLw56QdzclOcjI
7cb15OV7ZGBm9s8fCdnbd55KGNaAukpVndQJEhJbx6GcWSQHWh33zPpSSUjG
cRdh5pE0HP9rDxIS8ecMKVXVgE+b7jQ/iiehKfW32/SM5SC9L2XbF2cSKh5V
6HsRLAU1fxeQhFY/8Px05Zg69DpXK7cdJqEOnlV3GN814JhHkWdKMw8Smr3r
qPhi1Zx9eFBmgvNFpZnVIBUdppJXzoNcQ+kFNw6rz9mDB/W1NpVc2rEaNOnO
oBLIg57IsFvcPSADEgoFZvzbeNC7lM6EovBFc/bgQbleXZWisavA/XZlMa8e
DzL1Yxbfq5UGx+qTO5jsPChS8XttYaz4nD240Qv+2iu+WxbDtyeKK/smuJGb
7hpJhykpEP151+NTKjfq0C1anvZFbM4e3KiQ9CuVy0kNEnTv7S2N50bV3ovt
zy6RAgYargt05kaWbH5bzzaLQu1fe3CjxU2TbClJK6HuvvHuRAduRJh5OHnf
TBIuPN1yyFaJG4Xp/ZQvYhcFw7/+xI02RAQ59txdASUae+VDpbnR+tNZcUk+
i6F8xaFF6+hEtCyYWRKxXGTOfkTkUF7xeJ3ncvhqXZV5rpKIXlzqex2TKQFH
DPknSPeISO2OYWTWXuE5exLRkl07C1afUQWRM9lqVoFExHdsvZ8eQQJ+CKmy
NW8lIrEV478Eg4Tm7ElE9PfLy91Pq8BrDeEzWnpEZFQdqXBefxGYzISpJ7MT
kWeHucLp74Jz9uRCYytJHAnnlMGYJ/2GxCQXMpW6kigfLA5xa3UDb6RyoXef
DV4kswvO2RO7niUp3sNHCQI2RLlNxXMhuk/jU0W6GPBtliQfdOZCKLolK9tA
YM6eXKj1elFrUMQy8F0Zrt3gwIU+DlS9ctQQg4nnMu/WKnEhy1n9iDOB/HP5
hwutvz4jePuzInz0d61Ik+ZCfdsVY38GiQLQtrqR6Zwo0yJhzetqPkj6a09O
VK0qVKvDUIDWfQTDR5WcyHRvThb6LQLiLC/tWkI5Ue7NH2C8jG/OnpxovZVv
shG/AlzVGAq+HMiJilM/aD7dKQJlXnD641ZOpEYcOWAzRpmzJyeyVKOWnjJY
CkR1zkRrPU5ED1oV0PZZGA55y0beZOdEfU76qzxf8M7ZkwPl8mZ/d/ZaAibk
5ne0SQ5kuXnywG9lYVgXYP/bPpUDoZ2tWz7ZkOfsyYH0pEKchb7KA8wu9ZVK
4EAdK2z9YyOEAI7LWWs7Y9eLvJcplSHN2ZMDHZd5k76IIg8fvx3XmnHgQA4H
0vmJwkIQVuPWza+EXS/qLnCrg3vOnhzo897Xl7ftl4NhZ93cBmkOtL4ha9Vg
sCCc7vcN7WhiR++S7GyzPhDn8jk70mtZpHchQRa2rV+xOq2SHfla5Bzcxy8I
GzNcrTNC2RFflC5Z6SbXXD5nR0tqDmuf4pUFIPmvbAlgR1NLf19V6l8C39ie
LaphZ0dqfoyPWUvE5uzDhsSidB0Zz6UhiHTs6asJNqQ+JbvJukp+zh5siBis
NWp6WQrMBQIuaCawoY5Yqn0xjR9cj/YHSjizoXde3LpZKmxz9mBDYz5bQnut
JSGsXWm9mCMbcnjUPcos5wO/ipCagWVsyFNQrEBcnnXOHhjulKZ12HJDSjVf
2Yg0dv98u4HVp/igf5JTJ7+JFRXLaeg7yLDM2YMVOY2bBo9eJsIkzWVLRSUr
MpX04orn5YNo9vMfokKx8b0aia7yBPjrLrdYUfCTuge/tRZB9pEzT94HYvcr
5r//wYYK1x/yGp3fyopsEt+MLbacoYX8/QErkrHgKjyxURzCVyjWheixIrWr
Lj8OvqHAuo62XlN2VuQ5shX6XKZo/+zHgmwUPjAzTcXAb3tA36lJDKfKXLJh
p0D0NrkXy1JZkOcsNA+HT9D+2ZMFybCEd79xEIUopcsn0uNZUId0rpD+Dhk4
dGjbDJ8SCyqODG6EuHl/YUE9vmzrVvQowqY1EZye0tj9is8TXhhLQ/irHzYf
QwnIJkQ72/sHx9x8CYhwRXyXJ0kBBqyPbUGBBKw+jtloSEpB7PjUcRt2AvKM
sA3dsIh1bv1ngViYpCMeLQAnGYRTM8OzYMOR5SQtIQkMwcdCAq0zgKzjwEto
mvYvvmfA6bRwrY8hP+iJPDx9vmQGLI1uahoZLJ6LzxkoDtrppvSUD3xfn4lT
RjMQ7Lgp4MoGbth0TbxldcY0eJ5saz7yljFnj2lYn6woNcvNB3FKlimMuGlw
+pxatXmECJlhZtcZqtOAPuflt9+m0/7ZYxro9kuPd9tP0UaqL558KDENfFlO
DiqpREizE1975/4UeL5v22U9UUv7Fw9TYCriFmZdygvXWiVyzP2w8bff1Jpu
EOF52udOPeIUEE6eNcgvKZ9bz0lQS+84p/KdDJd/SiWSRyfB6b6NpJEjEVZa
FD0cPjsJBJ+3WQY7imj//H0S+Jhvl9/NJ4HupcKmSrtJ8DRWKrjGIgE5vU+P
7d8xAYRruuzpHllz/jUBfa7TbTdmuCHG6JSALkzAR0dbpwJxibl4GweZC6KE
JWrc4F9p8qo9bhzohJsbtd2IkCrl/vOD6jgQpt8wN6l8Tf9nj3HwLPvV6+NM
BCEppfaHEuMQaeTTL/gas1/1NxaH+2PgyWIZ/xBK0v/5xxjILKqV1ugdpn21
a9izw28M1ILjxoXGiVj8fO4XJY4BoadpclSlOv2fe4wCn1xxQMoKLhhKYWlm
Hx2Fd9UJhQV23KBx4b3v97Oj4Cn49cC+003p/+wxCpGOtfuNXnPCmy6NzR/s
R8HmY+06/QFuWGLJfOHKGAHChojc/FBG+r94HgHPDYaDXps4YWBvSs2eEmxc
mjnFrobxIevE9vD0YZDxSvfPPzaV/vfy5GFw6tD4eLuAAxLMN+948HoY3DwP
r1PxkpmLl2Hg+/HkoFERB5xffOT7SYlhCJbbKpXnRIG+7M1GyveH4J3dXVGU
OThnjyHwPHFVWpfICbc0Uz4J+Q0BnZhTK2bIB3zugh2lXENgc2n9u4jto+n/
9gdDQGhZVSWQOEQTNNvzKnFkEAir6DFDSfzwUuuYiNvZQeCr3jzpkjqZ/o/v
D4Lpnron9UFccFfl0V4T+0FwqjeQrfkoCIusVpeLMgbA5q29R1EWIeOfPQaA
znLAdKk+N3DrDz8rLRmAZebpg9oJIpD+VmbLG9MBeMFzSDj7B3vG3+luHoBM
141SQzpk8E0sMtKBATB9zGF/2lUCrkUYC61J7wen9TqvRvlJGf/2K/2gdjUh
jaeDDyqLNp5weN0PhSo7gj3E5SBs6sOxIJV+MN/SoDW8SjDjr3mWYL93tz38
XkkUTsawd5SI9cPDLyZGtd6qwLPLZsYhrA+WWMXbyF+Tyfhnzz6YUr78VEFG
EeRz99Xe9OgDisbTX/yi+mAXrN29k9AHGz3XZX45Axm2NwVD7i3rg4njE1MX
7dzAhLFU9aJsH0SczW/dpX8FrCyzXioq9sEl/pZLPco+sP9CgfPpDX1gOSSc
8polAJiHZO1vGfRBL6vtTsfcECilyWz/bYWNr3ok4L7tLiwPSmppse6Diu+u
pVYf7kE8Opa96mQfkAus1RV/3YffeVzN/G590FIRL1kS8hByD6l8+3ClDyRW
NizhvPIY5ufjLVk7Zh4RBaGaha9n7vSB1dQ7L92hKOi6OOrrdbcP7ubF+Q9w
RwM/T2vA1tA+oMeadYkrR0O08d3R8Rd98HCyB3vDJ0D5JblJLwl7Pvr6ufza
U3j44khq4+c+eLJc9ULJw2dw0nv30yOFfTC8p4ed5eQLSDgVX8As64PbD7pZ
feVeztW/PjDUff4hd/ol7PInj3gy+yAx5NWxdytjYZkOr5fcUB9MB+bo2Lx/
DVOpJYzS8T74/KWTIX0+DvYynTiH2Pvh8QeOtotf34CM6KU1spR++DK8bF9Q
9luYX++1hOVVxizxcGxspj9WvR/WdD3WM+qKh2ahnD2a6/uh8/VOhQ/KCXD7
27moKFo/NHHubWK5nQBF06lUols/nD6xfOOdU0lQP/wk77t/P4zxlYqEpiWD
pHidYU5KP3A+5FOwGf0IPTXKZ66n9cPTa3aCn2Q/wdDpeyyazH4gnjXlOmua
CiwsLB9LWAbAzmp8qPXEZ1gt8Dwm1mAARGt+jO5kZMC8/x93X/kmfzoDOn5Y
vTwfPAC/Lq5g2/86CyrjV0l7PR+A248UzohrZ8OS3U7lxNoBmN0kyMe1/wsc
akyBXAxP6DOMFh/8AnnthF27SYNwv/hQj++1HLgvPLFCUXEQvKbDLVL4v8J8
PEu4uDAYt79Bh+3B56/ODUI061P7saJvwJPKOCHzdRAOP9i++7JDLjhVo63s
zEF4pd5af0Q0DxoeHf8Sv2YI+EcS9wbH5MMq4ee3FS2HIOGwvEWVTQHYKwVu
9zo6hK3b5PJT7wpgPj8FfbY0vXG4EFBe9HO66DBI3j5BPtTxA74WuqWxmg1D
Vn6UfvLgT/htciV9X9EwVOu+f00hlsCvvV87741g1wdfubrbugS+P3ldZmw/
Ag6ifA+MdUtBZrt9jd2NETBarP3B+nYpzOdj3ZDLStJqZUC4u+vmZrNReBbB
x/FTuBy0bLq/aYeOgtPm7YIpAeVAGfqhHyU7Bk+MYrQLgyrgpWuT706vMWh6
VslZuaYSfCay0pYzxuDchZs3lCor4cghJcnoiTFg9csRliZUwXz98mVPaFTR
rwKS79JbbxrGIcZOnPvQ4WpY1f9R5LXNBFyOK2ILl66B9JfRJwTyJ+BJZZmd
2ZcamK+/ywlvrQ+9qgVullJB7sxJuOK7LCVWpA7ablZ0PGafAp8m8kWiYx2Y
xsqt7MyYgi+Xg3ctsqmHef7xrdB/caVfA6Sd1HHizp+GNcbGlwwfN8Cl4UyL
4PppuMm/ZehcQgN0XJaXf9U4A7kV4rUDZY0gNGZ/szVoFnjrHaLSbjTB3uOf
ZFZPzcJd3RvH2yebINKsxnp6ehaoZiHbu6abcL71798mIIumGtzQIqCn+Qcu
+KynQ6Xj85NttwloNNpKOOEmHed/CW91J/j5m+G72cblsitY0N5MIQsJ8WZ4
lGDer6nFgn5oHXKOlWsG2e+xAhFFLCjJviRr06NmmOez3j6SVBFCCyTWRTB2
OLOixLVt99SkWkCQ9dXhqjhWVFp2bYWdYQtMno+5uHwxG7r5Unx6JKwF5/NM
7xUHlMta4IvSG5vhfDZ0K3vkbDGFAY+vbNmjYcOOKo8/6Vp0nAEvyCR2jsvs
yEsDxRz0ZOD7EYsl7wvP3mRAAMtxj8Z2dtTRwtBMzWLAl6mzzIK1HMhUSK1K
q4cBFyijOeO7sP2ZZmKu6wwD348RLBLjNde2Am+2h3rFAAcquZWwusS8FZJu
KATdW8GJ3vY+1Nnk2orvD6dU8l33X20FjVtkDdJOTiTxLCSjywf7/W+ZFPoh
TlTLkfOsNLgV338+2BJ06NGLVnh6+M7Llcmc6GX9YTfh5FZ8P3vOuMWws7AV
iJnFgh8msPv1FNwl1LaC18tl7xaJcaFp8W3fz7e14vtl1/BgO7O+VjAfsL6a
Ys6F7j3nnljBw8T33xE2hqe7BZhw4NwqcosHF5KsTyKw8DPho9XkeMJDLrTv
z4LIM/H9vbcjf4ibOhM2v/s6vneWC9U2kyNLsfH584IhaY/DJYeY4Blwf/Aw
GxFtSO5sv6vABFh7vf4QgYjf78JR1s7dGP70JTi4Uo4JHVZ5PM7sRHQwBq12
aWwFW7dw5yXY7+fnx3OuE1ZiWH+vb29xZSsYl34zZuchot0hXzWr77eC1qde
eE8k4vaMeZxrOcxFRC6P1myu922FE6SUDQUSRBS2b8Ud/UWtIPWgr/jrYiK+
vlxJlyITZIkoRZ2lOqOeAWM6pfWCa4hos6/qDo3HDNDMbdzcqkPE/Wv+POWG
8G2ZMUMGyH0o6nhgSkTU0u8Gh5QZIDLO5GMzI6K7PljFlWPAO07lJKldRJTX
7LGyX5gBvpzPD5w/iM23TXtUZKAFwMZiZ8URIjKPvEPOqGmBVyvM3fxdiKjO
tNVpKqUFku72Hdx/nogiHfP5PF+2gLx/DSPsChFhyU8yJLgFPw8aCdCa4HJo
gSW7vgcN3SeiwfyfSVTTFvh1pkqcHkHE48v2UbQh9zMiCpzVuxa5pgX2CNT5
rftGRCq3ju+d6mjGz6M8lYKm5D43g5IAvdarkYj+VEOupGbI2D6mbzGMrUef
zcYc72ZYJDN0dgcrN6LKnjhYc6wZP//aKls/MKzaDOtmqh0Fl3Gj/NRfHMsV
sPuNPjk2q8SN5wvHrXLc61ZxI444cSEOkWYYuuPi77eJG2lzhd13G6WDwv1g
dzZzbhRovv/qpRo6kMWmtNL2c6O1pc5VV/Lo+PkcU3eHb8lbOtT16rSfusKN
tpy0uLM9mA4nvook7wvlRr0Rne8LT9Gh71GecPczbrTH9SqX0G463Aq3+PUw
nhuRfLc+lTWk4+eDVQqijTZAh0LTkYGcEm40wLSJo4vRgc3VK/0pkxvN59f5
80dvwva4LQlNEOS3x6+WyoP25Ku+0/NrAtoBL8uxxTxI6E8BcmzCzzf5za/u
Zx1phJ/OUuctTHmQ3cO9FreZjVBm775FcTcPuvWHTlU14uenl9uNfK4aNkKS
9N5ajts8CGo2nNxq0AgpjTPGaRjma9xbWqbXCJcK71gujeBB+5wfRIutbATV
vIro7Uk8SEIFOgLHGkBsj504tZIHzdeT3s7XljureZC65e3jm1434Oe58Y8L
GCMxDZC8zLBqkSQJkfU3iCyWaYCNJnZGcjIkpBjZ0a8l2jB3fk5C2mGUqOM8
DfC7z3qvNyKhv/S2sh6c00MlpvRIqKR5m9LDH/Vz8yehhEVmLd2Z9aBqUPN5
5jAJ+buprs8MrIfSwdL7D46SUPXmg92+1+vx8+g27i3F7ufrwW1b5cawYBL6
axa9ehDwXX/2N4Yb0UBI48b6OXuR0L3T9xzd1Ovh8qNXG1XCSWgNZ61J4dp6
SC6/E/vq9sLvq0c37J/EsDJ/jNKoYT3cOHtP7BB2fXKs5mUfj3pICjxETQhd
eD/yfQU58QckZLrkapfJV+z6Y7vMw8JIqPaK5pKbDGw+Zy66pD1csBfv72rd
TVEkVGVzqn+nSQPc7rcybYkmIdllEQ89/RugzOJOqXQMCV+P1QcuuX56RUKF
D5qm0/Mb8PP7oxXaKcdojfDh8e0c2gcSukhUJ/Fi621z+n2gFobn17+VzhJy
AMMXEr5q1es3wrKkmGunvpJQULrid7aURijumdAoyiXh/rW0HiwyikloN/sG
mRmeJug8tUzFuJKEchWiuJ4pN83VHxJSvc/ekW/QBMZucsfP0Um4P//e3zj5
rIOEJs/WB+uGNUHhth2LeMdJKE4gt2a2twkUP/GoN02S8HgxH914buU0CU3L
0B7kEOh4P0P4QYNzOicdfB5wH83hIaPuO9iGRo4OZp8LuOIFyGiyi0PzpDod
fqbd7FWXIOPx+i/fkFGTsV8lsqLDj/GGdBVlMipwfXhK6jAd7B31DdU0yMhW
8Wyq5UU6lC76GmRKI+P5Yb7/wmuSWP0zkg5R1E3l9vvIyF33dr7WNzo4x12/
8f0IGc8///yRjDqUz4p9aKHDZ9Fnnz3PkVGadofl5iE6cG8MH7G5REZvDJvd
hWboeD9ITS+lY7MUll+3vmY03SYj634tDyHZZvgp/tkk4Q4Zz4cS3mdNa8PJ
KDRBJ1RHuRnKvgUTqt+RUdkKiYcGW5uhsUSM+3oOGc+3X0i0Y6U/yOiLj5yx
q1sz3q96LmhCHb3eDO+cs97V9JJRX1vnRFg0ln/XcHU+miDj+dxtuVZGBS8v
YlYc/vKtoBnvh00KMjps25rBksEVbbaWF4X0XgSNmWZYsoqf386UF11Jqc4P
kGiB6r/24EWM+60rSrVb4H39wyTec7x4vel67b6PJ5QXta4QdVmP1af5/hzT
Tte/y68Fprm/vo3/zIvXs7o90jrXGnmRTPVDJf6Eljn/4EV81Uz+qRKMH5Zf
3X6Ui4LXS8s85YrryyhI5cyukQMTLXi/UPZs4yAZq7cBwuLGobspeD32nRG3
3OVKQa2bmHsZNAbef9w+sDLm104GXPTOtUuLo+D1/p25ZtXdbxQUeELv7DDG
J+f7m8a7OYO2BjFgVqfnRCgPFYnufF1jlMSAol0Tsk/EqWjxKcKR9ZkMvH/6
ntCxPek7A5h9plxxulSkk7CFatnEAJ6lR50WH6Uis/pH7XUTDLw/G++/Q/jS
NAMGuBQa9U5SUb7nj/cdGO5aS6yexfA8f9FoWyGzPpyKZrsdmiUXt0L2j8yP
S2Oo6E+64pVvxfvD1Z6aVA01jC8yyx69yqGi1i7J7DLNVshhqwxxraGicOnP
H54YtsKHv/OjohF34fNMo1Z4b+Sb+KCPinYfC5rk2d0K8/3p8kz2FRk2C7gv
TZJMIXTAUAFHhugsFa24WqXZMtsOU1bs2b6TVNRWLFc3PtOOv096a7rd7V/t
MF4xW2R3nYpcrLQeb2a24/O/fl5UeFd9O+wf8NG+sIGK5N3Hej8UtQPtYPJe
ihAVlVYkjez41g4reJfrU5op6GnXop6CpHZ8fbSrgnp1EttBvqYqSa6Gggbt
hh57vm+HH36aJ/ZFU5AVKeFO8tN2fP2r7+QUbI5qB+5YXuWgMxRk4u0lTwlr
h6TTfi5OjhQklxLcceFuO+5fqSIpg/sD28FEqlC0bSUFbfTLTmjybodsDY6H
vykUxK57zSvoQjvuv80Rxv2r3Nph8/MXlDXVvMieXXA64ng76Mx4ZmulY/Hx
MzFZ51A7Hh+aI+H87bbtkNdgXlz6nBdRHvG73N7fDp1scqNexrzo5sV6lxcG
7Xi86pcLX3LSaoe4TKko/gYyEmEn/iqQbYdWT+WxG1VkxKakWBwo3Y7nI3U+
dzTO0w5pr5QHko9i+VVG2LaGpR3Ph6Z1ruz0wTY4U3+nMIyFjOQedkvX1bXh
+brBZ7fvJQx3Fghw9M2QkFhs5gYzDB/NXaIziuX7lnVs0ptq2/D61b17yrv+
SxuUHep4TblJQlSXD0ptn9rw+t4Z3LPbPLYN2tfPiJRbYfcT5PYcf9IGuY+k
utcsJaE3GU/bkkLacL7B/LCnzxfDGvHm5HUYTm50czuF4Ycu5nQpeRKK2jG5
UgjD83zmyckHidvd2uB0kxFfSCIP0t83SP9+sg3nV9QqvZ9i1m2YP70/oG7B
g2yODaI2wzb4KXLPH23hQeayX1ry9NoW+JvxIrnmTW1wIWiHwVPgQUOLvqcd
orXhfLDEeN94qWIb7MnK4zJs5EYnOhUenJVpw/mlNdsL1TekNjCtJK9dfIsb
SXt37/g4wwSDvCnKEjdudI6SmLt5iInz2+i3De0Dv5iw8/2uA9vMuNE7i487
tzCYwOq/enq5HjciPpK5JdbExPn3LxliT3kJEyy2u1xTo3KjCDPN1l/5TGja
qOhGbCKixkcMW/8kJs73jy7d+MrrPRNMtTJS/aKJ6K3zsg+GT5n4/qLf55Cj
xF1sv+jo3pO5g4ia1TU6xs8w8f1QjqvphU9nmaDvZ7ojnG3h/navZXbRWYjI
Ythj5OgHJvjMWEVqcRPx+d5zlHwpg+3futj3cdRytkG6QarfWz4iem3rekd9
XRuEX3F5UslPxNcDju7fpYthuzfThSpWbcDKM9gQIEnE15u9b2nGu2XY+E5v
5YD4NjCM81C5rUrE/fGlr8INTi0icjt1Q9RUqB0syX6OBpuI6PqtStHtyu2w
+o0lORjbr83HZ1mPgGg1tj/rOL7lvNC9drg2eu37kUAi+rJHuVF0oh26I7mZ
L4KIeH6bt9edTpP4p2wdYL9n0+vV2UT084U39fDBDlAs3LlDop6IHCJWf7II
6QBq5243tTEiwirQ+rS0Dnz9CEs3lJ6a6YDxizX8/Gu4Ua7PrUE14U5QD3qk
mafDjbocN92Ll++E5NV3Ayqdsf3SNp3lGUc6cf8qbb94HSV1wvaoyCntD9xI
7Ri59jWGlwv0n3uA4eNrzc7yJnfCirAfftED2P4G1q6v7++Ey82nCBWY/8Yt
3mOvPdsJ69g/ve3CcIbH3g+mGJ73b+lLdXuPYJj5PFojkpUHvUnh6qtj6YLM
9PBbOUt5kKa7evdjuS7oyB1/qKDIg35QMYIq34XHz4+dtTJym7rgoLy0WQQW
X7LuebJ9el3w8UzEIbMdPOjXn/N0oy48Pi9RTEQNPbpAnuW5syG2v0kmLQq4
59MFZ7+Upu2L5UErOzGDhHTN5U8eFN7I9kT4QRf4WAv4XvnGg1r250v5POuC
2adLdlGxfGDuJVf0M6kLzw8HRzv3CSV3gZ9XoXcYhk3rezVXYFj53om80n4e
lLuTZ+P+nC4Ic5speCxEQk4/T6/6WtsFCkdNmarY/ighJPK6SksXnp/cV4q9
c+nsgpr7WReGDEgoOHt42b7ZLmhWeNZqYkRCWxvMB9QJ3dAcIMQM2UFCVrtb
g/K5uvF8uPXCanRvUTdse+1Y6vyUhBycUox9BbrBsR8rO88Wnj+fX9eu2/09
qLgLVtGk33wpwvi7qPNprxddsOPTQXJLPQm3z3z+LhhOLo+8gM13Zy19VJyM
ytmUr9vbdsG672+8BTaRcfvP14Nso6lr3vpd8NlPI2dqGxlt3TJwMBhbv6is
PscRV4wfrzkhLri8C68vbCul839g673mo8cD4iuMjzu5MKdFuqD6/Yuzy4vJ
aJpDU+QSTxfOV4/viyVbc3aBKcdDMzKdjKKPut+rZeuCrz6v71Zi/HXeH+fr
nYOla4p2XyfEnmgQXb2eF52QvSsQ3t0JDDOpOGTGi6YylydkMTpxfto5U8Dj
3dgJrmtjNN7e5EXey5lcPFWdsOreGLEF46dGZwr6eSo78fp7Y+gEYfhnJ0Tf
3m+kVciLlJp1yKcKOuGC1XuD+794EVxMcDj7vROv71WPp+u1cjphX5jEl2YS
BbHqf0vry+oE4ZxPxgq6FHSmXu8K+XMnzh9UfjggttROMFH4ZGi1lYISf95O
3JTSCSVSgTwHzlPw+JznJ/sPMVaFv8fi95GKfHgpBTmUGGaui+vE+c66/bYm
ZzF88I2k7QcGBR1cfCklG8Pz/POU9QfP8hedQPEx2ua/j4p+lB1NanzSifOt
2q68d9efdsIHl4xyl0tUVEMxcdv2rBPna28a724/HIPZ37vXQr2bimzbSmQh
qhPnfzJSydu2RS9gY+ZbvsZFlaCoEl2/cQDjlzukWrYuq4R7WVpl/VUYv3xz
Oa5ItxJ+Kwn+2p1NRTA7+ShvTyX+PDEDV9Mch0q4EhyoZnaXitb+IfABlfDC
vL3a7DYVpdI1NlODKsFGUNzE6CYV6ftXWMzcqcTnI9Nl9rzhQyWMpX/zMbej
osKVHzVtsyohjeoRr2VGRfP9gH/9GypSjzlp+IheCSs2eIatVqcifpk9yieH
K3H7+U95JAZzV8FizYv35fip6OPBUPfd0lVQHG6UM85BRRttvvlvUamCit6R
TYvbKejn19KdS3dU4etjEruLlLi/CsbvGgYcLqGgMcNHjt4OVdAmS6ewPqcg
rzajgKmQKny9extnWqLfV0HQtzNPc7D9i7sQtqOcqIJPhjlW09soSMqwxOIO
ZzXuT1PxPXup1Go4plA4pqJKQVEW25g16tVQa8rr4y1HQetfqikPQzXur6vH
7BSrjlXD0FuP4j3DGH+8LMrbd64a24/Wcyu3YvFDT1uqE1gNPUOs3Px5vMhC
NokjLr4ajw9LyUz7gMJqUJFV0A2O4EXln7g0pnqqwTWtJUTvPC+a75cYLf3Y
+c2ZFzXUqh5PUarB47H88vY+y9U1IDyec0h+Cy9yWRN0Pde2Bsi7rwa4G/Gi
twe+pDofqcHjfbmI3YbH92vgvqYHUpHkRR9qTncviamBy1M+TsH8vIjg3tA8
FF8D4TXrd0cOkJHQkhYBG3oN6O4YyznBIGPrwyyWm6zB841GJX2VL7EWYpwv
KOTlklFT0OEaVunauflh+Wj526FeVAs8i2MbLBLJyMugN8NUrxauhX2SCn9M
RkgkbvGQdS2e79IW62+VOl8Lot/T5LnOkZFhzHCUbGQtfl7wy/MCV0ViLdx7
HdaxfDcZ/aEXryux57c5H+HdTkYR98ILPFpq8Xxbrto+ON5XCzmpK9Weq5CR
/jh7YK10HQyfucH3SpGMLuZca+NRqMPPP95prd96Z0UdvJk+Z92P8fX5flNO
1blnPBhemQm8Usfq8Pxv7U7Len6iDhxWrWhO6yUhLZZGz7jAOmjsrNWe7CGh
4ivpLSJBdfj5D9nziLrgmzp4XnVf41cNCelqHuZc9xYbN1zLfb2ShL5/FTq2
NqEOr0czm0Zkhn7XwWRf9inxxwvjhdmT4hz3SegVsvP+HF0HzuGybUew8fn3
DbA7dmD8CQlJuLkXgH4d0BztrPKiSChoj49KJaEOPLomjZtfkHD7reAnFTW9
IiEzFwuThPRa8BqVvfYsnoQoP0w7UrfVwjflJurN9yR8/ebfb0o4d3e9ai3M
HnIfv5NDQt7b6i8eK6qB+rhT6j3fSbg/eX2vKbUuJCGd6YS7HT418Pvtnk3E
Cqy+V8Ycnthbg9vnWrBb0wvMnxN+mgjFNZJw//+dxUWy7CShM+sEt+oOVIPl
Zacv5hMkFCZ7UOBuWDWMB29opUyT8HjzS1aQV8b2U5q22YPBftX4etnZ5+tc
v1IN/ismpr5SyCh1ImktVa8atv3WKeAVJSO7Lo6vrErVsNWLaPBZlozni3n/
MDJJ4rfrx/JL1d6XMmpkdL7yOKUstwqeR0sS49eSkeaKZ5bv46tw/5Mv3HNb
0hUbJzzhLTEhI2H1m9SmE1XguklZV2srGc9fjBYtcQ9zMuqOeuFShOW7OE4e
/1WOZHSd3e+tiUgV+Nkjw3YPMp5vfxqNJRv4ktFttQMyctmVePyMvvR2XR1b
CZLS2l/WppDx+tDbxplGyyejEMuEncdkK/H45TsaR3kyUwFnqo47yWL8gLvi
XX5DeQVIKhoXMKfI6EzLyZ+n4ytg+q/9yGhFL3eif2wFLGIrJupg+UI1+sve
bP8KPL/sDLLP9HWogKxLO4WvruVFcl6XZac2VcDHn8nqxVg+GhA+0C8sXQGX
z6yratnHi94cFrvvOF2O57NA1TiaO6McOJHZrPE1XuQX+VOu41M5bOvuna16
xIvm+9UnJMaUY1/zou6fiwZ2uZXj+ZTRPNP59mg5yGl/kxyu4EUaR4JuhK8v
h3Xv3u9dgeVrgdVX37NMleH5ew8Pm2zVBIbP3jCWIVDQ2qf3Sx9hOMaulGUz
4c/38qBhjeGxxZ4rb6tQULViV8OajLIF/rFKM4D1QRkMG8yKJGH1pUp+sYSi
dxmsWeumZHIC4x/vVu5mdSjD69ESsfioKp0yCBzbocvynoIWx3aISIuW4fWt
XNbipHpbKWxi++6+t4OCuhjS559VlILE64tPf1CpSHUva7P461K8njbu+vBy
771SuKk/mjp2hIpcB3eZ5W4rxev3Po6auDCjUgho23Xm+Ckq2lPVsSHZoBQi
aKnrrJypaP77AZwvdFQMnWIrBY4j7T1BpVTkspFaZt1RgvMRf+aasZC0Bdxi
8TM+NysT7vlPlRe3U1EQB9fHgyJZ4CXAetmwjIq+iAX4yPhmgdzjNXWWaVR0
sTPgmIxsNnRVEWrZU6ho/nuOZ900oZOfqGjH1SsHDuln4+9DRLNcDUez4Zxs
mkD8WyrCsp/Z2aJsOGZGj76L4bXab02SN32BeocfKX1vqCh0nYFayYEvEPlC
VMLzHXb92cHUjee/4PdTEifu6yz4Au8TTYJeYM8TY99FWT7wBUIEroTWfKWi
x6niD32NcsAcPdOtL6ai+e9H5s/zlsk+MrF/kwN37kxH6HVQ0aQA8YEXIwdM
sistdMeoaPGfD55Evi7YZ2rrFW+VBey7nnpGndwAJm+YPzsnqHh/I1www4R/
nIrkZfj1J5c3wOUX598IYfdXDo1b9cCrAeQ+SzFWN1Dx/oa/s5asOsb/GEYr
Y1YNNoBi/7Nw83KMT5p3/6rhbgQX2ZuDenlUvJ8RG6Np7/adirY/lCcIHG6E
5rXPrOzSMb72htAtmdsIs8oqUPGZivczdqfvUh9JpaKAreoBh5sbQS3/VWzc
ByoqC3Z5vF+mCbfnzasWn8pXNkHL5cI22/eYv21Qiwi3bQKL9NId5xOoeH+j
b4VheiyG874nznafboKGd7FnAFsvQ2sdg7iuJlhcYLAy8jUV728MgCrzUxx2
P1/2oyJcdBBawfPTArt+jd/B3/dpdEhM3eJgiY3P9y82EOsuM7Dxpmb98EXb
6aCjcsm8MZGKeO/3a5rdpAMh8o7idwzP9ytezj52WJdERas9V/4cDKHj8xHZ
JsKt8IAOm4TsL6hj9unO6LwmX0oHgQiRbYkZVLx/YRdsEOyA8e2mU04yZCYd
EiZsxOUw+873K7CkXvo4n4qKwsa8WynNELFyoOUo5k/z/Yl5f3rQVbelUL8Z
NnF1DCRjeHv5xSXjBs1Qmy24iKOeiqRWeNFrDJvBYvNPARMGFe9X5InHCgb0
YP6qoFaw3aMZ968fEscIK14v4G+WgwFigz1wQ0Yx+Tm23xhRVXl88HcPJJEd
9k1h8cdSH6O2rKlnYf53gw/ubeyBAlrBy35sPVOHuBv7Gnpg5HyA++ArKlon
8TKFs64Hbo7PJgSfp6KHHVnWKj97FvY/q4akLQp7YG/1r8fx5lTUc8fEZCar
B+53+706v5GKKuqWPJNI78HzV9YF1ojaj9j72OxersZNRRExnxxocT2gPXN5
zeluLJ9mESwao3rw/HjgQWl0eUQP6BtGye7D+L9oWN6r7gc98OANo9DmEwWN
qEcVVIf0zPETCrJuHJ3lxjBqHyl1uU9Bj5ZG8cf59eD5+IbpY4lu7x54Oa5P
brlMQVayN9adutwDR5fc2nrYjoLyroy8v32uBy50mvrv2UJBlRslyzee6MHz
v80Wt4dyx3ugbfcdeYflFFQgqFR91L4H9hvdHjOhUBC/97OXY7t68Hqj+4xe
Gm3eAwfMfy16PcqLFncElM6a9kBv6rhAXQsvStoWXv/KqAevZ294ih3ur++B
rOcXaeM+vOh6YZXOoZU9eL3kl20oNJXsAfWpC/6DqrzojENI78XZbgguv9qj
psiLTsbtGWqY6sbr8+OzOen7Jrvh8LbA5F8SvKjInAnVI93ANSio5o/xfZ4W
bo/9Hd04PzAkex/72NAN0vZHnEMzyejEhqsJSiXdwDmy2IgzlIzuJN17SE7p
xvkHyhN5nvqxG3hdWwjLg8lo+tG+I8cwzCH/gj01gIzWePnNbEvuxvn81s5r
i3Sfd0PpQ0eO5/vISLJTipwf3Y3zJ/HKfSUPQ7uBJeuC029VMrrCG1Fk5dcN
eXHdGb8IZLQlZqqXerIb53c/9x+VHj7RDa/yBnRUMP45/zyWimbRlgYSajUP
0ztd3Q2shV9y68dIKGnWudByrBtCk0y7bmG/n7dfUfqv42UY9jTc7fNyduH+
lCKVS5kY5jnfWPSTjYzWEXev38rWA4XKhjEc2H5iy7unWpGyPfj731ri/NFO
owcmn4csjtxBRpScvRtWoB6QM30qW25Fxtfb4YLszbJLZKRq68Ivv78Ht+cN
uwPHD2P+ZDRkW4mw/dMD9pzM+lM9oLg41Vqiioz7e8Pax7PhfLzo/rR3TNnT
Hny99VxvUorje2CZY6hd+gZedMlD3rcquwd4Bnzzh4/zIo9B3hD92gV/8hJ2
vHEHw53Pz0fznMT4XD+jIwHDqootthEYno9/NWOv5GdPeNEswembTu+Cvzbk
t92cxvLL0sKs8GE65q89PIuEJxb8n++KZ8AO7l5IVVA8yqNFQW4s8S/Vl/QC
YfmMoIsBBW0z1vFsU+jF4+t954WCWMVeeHaWdlp2OwV1nKrbslq5F/jEz+t7
eFBQO/VMH2FdLx7PLbZxxbfX90LgLUrveiz+f0i/Wntycy9cMVo9MPqBgrxd
JIw7MDyfT6wenrUIMOmFrMDO6y79FMT3g3PEancv3P75IzZ2ERXltw4lu9v1
4vmqL7GzdRuGf3TkbkxUpqLMDOkqONILh9INl0XpUNGn9o9htid68XyoIL7z
HadrL9jHm/geu0BFUYrvOcUv9MKodckV0yisfu66btDn1Yvn3xgLs7RK314Y
M/va1F6N5dPaDcHjIb1Q78ShT8Lqw7m415R9t3phk9Ipd3asPuiWLj4SjOH5
fH895sQzzfBeMH9kUPVm8jdMvewv3WqLMv7Vm1/geQCslLlFMkxal3V7F2NY
21bCpXVpxq9qi0TL/F6IpC46lNotNvc+2H2XTAe2JQ6lm3TXnQ982Que4hwU
tbtiGWFxwjLXn/QAgXNAYR2dd+77Vgz7XsiTuT2W3vriwLv+qxhm/+0kacSX
EbE67YmtRzd4dvt5dKSyz9mnGwiv0+pW1f5OF93xmVpojWGh2TV3rbgytmVO
lVzY0wWEcyTQZc7Q/p0vYfia0I2cD8z0c8sP3qrXxDBtdectb5aMDxtOCSRo
dAKhatXQreHROX0Jhov13Wa9GtM7BKf9yoQxrPWT+HERT8aJEupKRk8bEEQP
Bh/ZNa9HwjD9cOqG903pSswHgyKFGLZjU4dwQoZ1jpiBTUwrECqvTrjSR2j/
5othvp0mwTGZ6apbJrnuemH41ohkhfdwevRkzI4ZqxYgqF1Zdfzwr7n3xzDh
TVFZdFZ68Np3Fms0MbxYjS0pqzt9s9TOm2/5MJ5yUT+quJpB+7eeGM4MtNYs
jU+3lNejHAiqw563ij17qof2z34Y9jy5m1rzLv25ukav/1YMW3JtbQ9pmdNj
VGLPc92iJR6YPnYuZW1dCoZNv7uJjX1L7/88M8F2tBSbr3u5NmvG3PthmOA0
FeZ9Nv2pmMoZ92UY9jw2tnx7cvrl1jf+O98WAAHFK/1uiJ17PoYJwWui1hql
M4o7vQxVMZz58PuDy1Fzz/+GjWem6+1Zm64kY6MwEI5hz22T24W80zMW24m8
9M/Gxr9PeVy6NPf8PxiViQTJptNO5ux8xvUHT6wMTTqT7kgWq0jtS8Vw/usb
Xkfnnv8HE1zeiw+lVfy6s+FDVwqGzc9dtLJJLxPt261YmIBhBwnrzB1z9/+D
CWOJAT/S3PyCnOS/xWM4rOwZ28Z0/0eCxsu2x2BYplZaUGnu+ui/caWi/ziN
7sixS1Y3CsOet6nGXOl9LrY7NGxs/ow7PP2Yq0P4f//4UIdOxOjTK1FAyTld
vx3j92nK5o9bHkVBW05XriEWv/N6g3k+aMO3YbGXWDTcl28LUMX4I89OGq8q
xIA/i/BYaREVndCbLlBa/hRW0eKXDf6mohZWS0XGg6cL+w2ZC6oN3QsYbT9Q
1WUyRjtC1XbNnaQiz8For8uev2mqpVBEwPg9Ifbng8bntbT5/OPp9Xax0q42
2vrnw79iML6Oqsz2nz/7m7b8/ltC/Wls3OWt38Y1tbT5/JbpuD/2ypo2Wgon
7xEPR2zcUcNb9NhvGmvPxzUflmHYZtKpKq2GNp8/M5+1547xtdFk/S407pHB
sHDxY+uDv2nkdZaHbzVRkOerGyvDDWto8/mZIDuzSuz9KC1QV9tibRU2rvst
zNzyN80+wy/sRCg2XvV4i0dxNW0+/6P09wabAkdpGaYqAru3YuP3aDEjZ7to
8/XE9Ffv8Np2IliuvFiUq0dBxSJNJ3n6CCBaG95GTuVFaLy2oOJkJ22+nkXS
Hiir3CHCkPyGbx4JvCj4rvbvxA4CON2aTc5exosyN+g9jrXroM3X23ekq/az
G4nQJ/X8w1oZXkTw5OtSZxAggUi66obxJcLYcJSCeTttvr5nXr4hltXHBTUT
ylG9gRh/Sj7S+6aJAF6StsYr2MnIU4r3JcYuafP8oy/HYbtHJBfkyy71ejJJ
QjJLfsWYNBKAkR9Jbj1NQignPSpcgUmb73/15R1qNt7BBXHydKu9jiTE9/Tc
qfXY/TMSd+eFN/GgTOlE2XSuVtp8/04tTSZtLRsX7K0LVhSo4kHBKj+kX7QQ
INyVx3P7Vh5EkPRKbGhpoc33H4NPPdW2TOaEEO6dXbl6PIgeyldYhtnn7uPl
ahyp3AjFnq06/qGZNt9P9fQO17BXHKYJGiyN8kjgRmrr/Csn+wlgZLykJmUZ
N8pMp4T8uEanzfdvIzWSiZEynFAp1Wq8VoYbySzjX+o4Q4CA9TruTqFERMjq
Fou500ib7xfTxw/wsVRzgECT3vO17ESUqbHMpTniF23++2qnXdP3XywVBefu
vjMWk1yo75zlEj4zAZhgClU/auJESLGPLCvaSZv/XtxzjVZwDZEDyA9O6WZV
ciI+gdMB8kECoPDzbRznH71xn0m9tMa8/hHDKW/vbRkTht/G3EaqCRyo2NL1
pytTAPZ87OQ7GcqOPD+eolpn1dDmv6dXY++TfyjMDvtYvpuEBrKj6uzsuM69
ghBuMdtcfpoNEYaj8hZ3fKfNf79PMLgmoMMqDKek3hNmHTBs/HTRhilB2LlG
aEhrKysi5G7cGZH6Kn1eL2ATTVQT288GPhybhg7psSK38ibrrHIhcH90gSNy
GQvynLQ3v/WkPH1enxCmJhF66IgQ3IDPrvnSLIi+nl/TZVIY16P2XV1WtlqI
DQTMDp1uCCSgzIqD/Ut62GEsT1CLl52ACDLpq7ReVqTP6yMi/W64WlPZQIEu
liE3OguZj1+G3HzOAebpOk5ejBnwHF6jnmpflz6vR7URVevnFRug3Uq5edWv
dAYyV9t9HPXmhMjMT18706cBaU9Xn2XQ0+f1Hnys/Hnuq9hgax2x49cfvakk
eexQMBeEOTZsNr0/BZlHXV4ZXmpNn9eP2gDfmVM2bOBxotLXzG8Kij/dYdtR
RoTl+0Oyks5OAp0/9pptREf6vB7FtIe+1CGWDfa8kqx+bz8JMtz1lq42PGC9
8W21+I4J8Ny8Z7TxRG/6vB7Uc/qGf5cEO7wtqWIXQBNgUyC4bGIHeUEP+j6f
QNQfpI0NJA6jN+NA6E5Kzbw/QdO89HxjpOo4ZBrlD2gLNuN6UMQeqK0cOkh7
pV+3ZVBiHDxbpu6Mpk7SNk9drd15fwwIVJ2xT4ktuB4UdbJcyb/aQus7f3zm
id8YRD4wYw3nnKbtZuugcBHHIPND4XN331ZcD5rp09bQeWKItrH1M9NidBRs
8ggSJVdnaAxt99xPf/SgroxFr8PbcD2ozTg9jzE1RINC61KOQ6NAf9FzvFGa
AD/vPe88xhiBTG6pNPHRDlwPSjdp36MRO0wLuNoRQCwdgVzn6P0ndwpCFJNk
EZg+DJ4/TF7UBc/ielDCZyu1HQGjtJjudRs2xg3Di+LEjzufiOB6UPrXRUzD
hjFarGl7caLEMEQm+q93f8MBz0Qztf/oQU1vS3baflnQg9rkdOmEBE3Qhg+5
8Vj5DQEKEZViZSPCklsHV1VwDQG96uCpdWkjC3rQXw2qeue6aBuUj50bHRkE
J76cmxr8JHAdGQu6eHYQ0PERRvfDCVwPKqOpMAstszSjwLaOAPtBCKZoJE/R
qLC4pMBcijEAkUzbfcCYnbPHANhovfydvYwVmgmGFoKlAzCWHmxT+kwAjvVc
jUk2HYAOLd2r77+w4XpQp++1p8bvcYBXf+J5BZ0ByPXml6xwWQGjvn3dT5T7
gWwTOt7RK4PrO2VsJ9w4VITgNOe3OFm+fhA5ZuC65JoRxFymZy0j9EFfRXN0
Bh/KyOF5vumUWR8s3/3rVdhGPygQefX4i+GC/jJbRMW/YmcfvFHZ/vwE5z0g
PrBK8rnQB6qWLjkX9zzE9ZSb+0mBlBtRwJdZ7n39P/pJS8bHXNNPffAk2Mf2
uP1T2GJY7ujwvQ9+mzB4WA1ewEnNczdl/6N3NPN5nG0z2ge3Itnbj4a/xvWL
u/onPBTK3kE4o1a6RKMfqK+ERhOY8TB4Pk5p13/0i7k3f+Wn0foh6HDUbefb
CTBdZeVud74fLJ0rWpceTYJ49Wtv3QIX9IvZ/okWmgn9wLsj86f70EcQZPcH
euuCXjEzrjQXOAYgrFSmT9nmM65PdMopSVI7lQESStukze4MwEclJBH7JAuU
sw4fb3i2oE8UWhf2Ma9sAN6VsMF10y8wRV/iFqs0CEEXzaXiyV/BQeZqzXnn
Bb3hx4lfUiHfB+GK2VaLh3a5YMsROqKxeghGlhfZhEXmg2fGotWN/9EXiu3c
KOVzbAjEY/m2HXmzoC9kP77+Y8LeQjBhSxzxER8G6XcrWMWYP4BJk//Vv31B
Xzht4i79rmgYUiQoG1O5SsB6ewGkDg2Dpdq1h+77SmD8y8e3CrYL+kLHwRMv
22+MgLW2WWXtrQV9obQ/b8FXpTIoJOqEXzIbBUqF5+B94XKwLzpZ3ha8oC/8
yp4tGSQ7BjQVtsONQRWwZ8j8zk6PMZDIm31boVYJtOyioRj6gr6whDxKOjkx
BknsUct3/kdf+FI9h99gUxW0BqqeEWoYh5DzhVqzh6vhmHHOiXirBX3hJtSc
ZpI3Aa9+si0Xz1nQF75u+KB34HktrBuh6FlnTEJkSu7jXaJ1YJ+fxLeesKAv
ZAzEV3tlTMGbiEUpnv/RFzK1OXQO+DXAQXBQbM2bhui1zPzjjxtAmnjFkVm3
oC9UXPzU/FnjDKQPCb0cKWsE02ThczeCZmG/XsJl+xtN4Owf+nTZf/SF1xbF
b/ujL3zwIPXAf/WFJIlvkX/0hVq7LL0+aRGQ9mz758T1dEi4tjqo4zYBXSn3
HXr7H33h4gq5Ph3+Zth7Keqh1goWxCHr0sIi3gwTzhuFFmsv6Au1FLm+DBSx
ID7ly5y9EQv6wqB2wjV+lhbI87yjz+XCirw4PkpdkGyBbz6WbpUJC/pC4Qsd
d4wk2ZCMRlhm3b0FfWEVxznTN+UtICc1KaVVyIacIsRu3uBlwOWPvPe22C/o
Cy8rvU0tvMyOZLNJpeEeC/rCzqQos5abDBB2rtqi18WOdh2hW8jmMPD/b4Vo
Exn+vZUBko8Cupeu5UB2yyzb6D0McHUZfDRp+b96wzST1IO+a1vBJcakW3aQ
A+3qFXK+Zt4Kq7613dBYyYm+Coduo/9Hb9iqe2L7sautwKza+MtgJyd6tvfD
zBufVhDLbEt3Ofy/esNn8hFPYl+0QtitN79SkjlRneh5Wf+kBb2hW9PdQ0OF
rTDO7Fi9c3JBb0iMO1ThJMaFBvV57sn/R28oTux6YtXXCsdLIg+aW3ChJ+7T
3bn/0RuKLlJXHRJggu5r4X2mnlzo7EBC9C0+JtwXMO82ivhfvaFPGl3sj97w
rGF42EGM/66VvkIo+o/e8JRVXVjpISbomL7g8GEjIoew/ulEBSYEJbuedfyP
3vDifm2aFYb95VW1K+SYYNvUs90H49eB1lPnrze2AjKVjab9R29YZvDk9noM
7+16EPa9ErMX9bisKg8RHda+Jkx40AoB52xcBv6jN7RGjZrCGN5ygNv+s28r
5L+/yB66mIi8PzHP8km0gqZT45pNkgt6Q8a7sO5iWSK6E8LhF1XPgNCrsuMF
a4joRBrZu/cxA9QcA59L0P5Xb5jL/Wj0rBED9r54fDDTlIjW0PVy/JQZIO5R
vFPxP3rDjvQAK4FdRNSyKCFgWpgBr3QY1FcHiSjE732c4UALtI1yHhJ3WNAb
Zsg4tz13wa6P/NYintoCAd82PDU4T0RB+keKQ1+2AHXpNqWM/0dv+IiDvOad
QwuUSCK+RQ+w358U1tYwbYFoYsSu7v/oDa0Ch+9deUpE67VN9Zept4DIwa09
Rd+IaDZOquRWZzNkuRDPc9Ut6AsfSNKzOoeJCOkZF1v6LOgJk/QHI2xXNMMP
wkYtFWy/dVzYrkZPoRnuXLy1r/E/esIABZ7V8WrcaNhz55S/SDM8b3Bhb97P
jQo3eTx9mkeHzSU/a25cXtAHIi29kHOh3ChY7Pqt9lML+r+YJE1E16XDUx3p
tj/6P/IK38g/+j//3qUqcS0L+r9ID+Ost1QetGhKTPi374K+j43Z3mc13ghm
izqyJUx5UMzHZbXSzEYwyfm/Os48nKr1b+PbbGMTCVGSKUMp+RWp9vfJUEnY
RCGZkkZSORqolOHohIpKUYZIxgyhsFvbeExFg1DINm1zmUOGdznvYbmu9/f+
eV+WzcWznrXu7+e+H5sQPgui35cmTa/rC+FDu6cs7Ffu/g4PgqzYyU/5kCfX
gYOmG7+D8ElLXZdaoq+34HfXXN67YefzZnBzM1m9bQ0/EiItsz+xohnUNtaY
v3Ek+moLfjphMF2i7UoTfNEuzhp4xY+WR+xRChhrBGfnrdfZe/iR+HGaPTmM
yAeFondZTS6N8B8e+cs72QTQ9W/hDJ/TjbD2GadfJDuRL1rgBX/I/310fOgb
JEt1yh6mCSARz4EwqU4iH9W8fvIS+eo3WDPrEmD3ishT3aReXrV3RADxDVqU
p7V+BTcVHsUEDyI/5qp60p03koKy6GY5/QNE/iwlUlng/OcGGL8lW7lKSRDx
n0jcP7mjAarDTNKdTASRoZ7N6qM8DQCT7+fUrYj83MJ8xitO5myWfT1YfvRq
vcQlhGzlN8XtU6kHzRaRpBxTIh+4MC8K+l5bzZFbB2ffsgxeFwqhUzY+GwKs
6hbnVT9NUt1BmtC31Z4WcpO6wad1l7HinBB6dAhL+DzXBU9VzSXz/ksfxn/i
pX/DQBfEGB5jrrslhJSdf5n5tRN9mEtvr6dsbOwCraH9FOUdQsjx/rbsY++7
gBb3eMhnhRA6309Sbyoh+i+63qeN32V3wTXHPTyKzwSR0JtwtoHnXcB9UZPW
eEEQOYzHb7YOI/osKu6+TwyCumC73tmV6zYKoqrmexWR/l2QaKmkJlZP9FUW
83+imFyFYxc4qdGSEvdSUPsp3Zkbe4k+iqJLQ4+3VheUHTxmtuuzALLxKXyq
I0X0TzrNJVwj+bugwOBB9NhpAWQ51vJXOInon1RrHxJ2HmHBwACH+1N8/fmo
jZS1LOmfXCpqE3DHdZiZvwgHrsVrm9YDrl90yPYwlvRPMmvXZsje4UdjN5TZ
P70h+iblBh43XyWzgJEaqa+mwI9ulp9B6fdYoPFht6aGPD/qNuM0vrCkP3LV
mbJX4jILLnZsLP4zmw8d97kk+NGFBec+chhqmhN9EW7LD86O+/lQ8aH/sCcs
6Yvcqr3D1qbDAr37zGMdwIeUA091xi3pi3TWPJJJXscCVsTfr+VayOhwSG/1
ozVEX8RKK4crlJ8FpTYH1r5f0hepkXPdbHSJjJ6mzkbJLOmL+Agcmuv80Qmi
Q9Nqp8zIaHXHgOKJ9k4IGXwvtVuPjIabXd1IS/oi15N+qr/92AmU40PH7YTI
6EJ53hSjshNGKLaWyv+lLzKxXfHQfF+ka+eBBM5YXpTn3pD3Lo7oi3DvnesX
edAJ0/6pcpz484mjgV1p5x9EX+QvlZgnr3BdFnJcLG9JX8TBpmjVDzZeNEPp
xC697gS13KpfQWK86CxNzNlCnQVKwc1eliJEH+TIdZeWFlzvzm38q9yaBQL9
Y2eLVvKizJYfF4wvsmB4+sB9DWmiH9JNiTiSJseLOnl7pcuzWDATRZ+TkOdF
07dcvOVzWCCn39y0eQPRFwnUS3ojqc2LBq3j9jiJdkGUBkU9TYcX6bP36LCU
u0BVeHaAaUn0RfbJn7+icpIXve560lv4oAskqbobzILwn1cov4t9qgt4rzvm
Vi3pi5DPbPbOvcuLPigmZd7C94uFv98fHSIJ7RzdUGpS3Ya94kXrXqtUrtvb
DW2VpexBxbxI9HRqIL999+L/w/FW/bmYu92QFjF3rLKR6Jd8Ghs3pE/yotwC
rs3q9G44h7/4dJPJKNFHO8HnG9E3qb++/KndXDcs4+611NIgo4NDV16QV/RA
XnHSRaclfZOF9cVV0lPrad8DM6W69N/nyYhz67uJx8d7IBYG3Mc9yEiVts+/
5cxCfp2Mcl2LLzwK7AGKyYdVwffJ6BC3xnb1Oz2gGCOuYIs/f/frVl/1uEf0
V2ye57vsyO6B1JvBj+A1vp53J+xMxLWdKZft/SX9lZUTVuUV5WT0kd9faras
B/bNNduJNpLRPVHdmplvPf++z5JRlPTDDwcbeyBO/svtT0v6LcbbTJPn+y0c
jcX5S/stv28MRDvi+ilmyZbAxoc0Eyci2klEf4V1bveOo7t6IcqrxKkFv99L
KWncL/V6QXUsVD+aRvRXaEcjWgvx5/nj4suU1f69IFBUeSI/ieirLOwvN+oq
Qrdk9cLocuUoyWE+RB1d5biipBdyVA+qlwsRfY9tvYymiwb86HjOl8+8c72L
+1n2qvX9dOE+eGkpousWy49Wn3Aps9fsg3QHb56fs/xoOOKG0FqXPmj8doj5
HN8vZQcytT1diHzA/cfXDkXi+pLB+v+sxPdbpkPKcW1XIs/Q87ti1cOQPthz
5fb7IXsBJKdi+fpaZB+Mbr+qlRNE5CMW9vfBK+4pFm/6oFLumHRqsQCKKaDF
iFQT+QzhJ2wTXF/74JObUG6AFAUdv2C15fw4kfeIn6y0853qgytBq3SY6yjI
4DEtQG26D7StOrkNNhJ5kQX+P0fmcpgT7wf99hr7V3cp6MC3sqZEBYLvK3Bs
bVHY0g/2gSsKVnUReZUHRaHfkicpyOq688c5Y4L3x64ze7HFFP+8YJ5ZSYog
0kHCAWUWRH5mnFKRfuFUP2x6Zzvs4SyI1J/nJd10J/I5HmwejCmffkiYKOaP
X5LvKZ3ctfnlZ0H0MFTa+PFjIh/kzpJ8phiBf/+yi07NPYKI/mmv2b7ofrBW
/qy5W08ISTyXe2ucT+SVfhzYFNxR1g9ZVOP+khQi3zQinZyZmyWE1lveyVdq
JvJRtAvNRVG4TlJo1w7OE0J5G7nZ8r73g7B6n9LxH0LoiK/Np5j+/sX3l7Mt
Os7ug/3AClFR+PJfeDypoX6H4StxBv+a6FNl8zz+GvVGSK8iQ+wPwUe+lQPA
1LSR4jaUJHj8myyrOs4J7LkVb+7XRFyrSPpd/CXJkDlI03sV1w/Rt9Y/OWW6
jODxTZsKLzTMYh8PjDci334oUDTQqioUYbClhbTfud6H/55j3pvv8hA8XjaN
HcsYw6IulEVI2eFa+3XNhJkAg/P3wP4k617wztnWkWbNDos8/hI996XUIGaX
f9paVRv/OmNrb9Z5bsbPPQ8yW+d5/J7YcuveGYLHO3FpZ9C7MVpcVuJpMVzH
7/1zrFqYkQdMYZMBFpBKw/86t4KX4PESEFom9xMbDq0PSprn8cHy24RryYzb
s86f383z+E1OGT+2scMij3dzuXxpXS3W4pb5Uwb38SSDpj99b3Iw8lbWWZ60
bgMSFsn49GCa4PE0cX914UbMJCrkUPY8j19vYKoqN4vRi/iCxISZQOLTk+t8
P07weJLa0ceNH7G4F3Mpk3cbgRRXXFe5YiHPgGuZsw4z7PWY/rojPdImuFYS
LZzQZ2Ms8nh0t0U6mI75jUltCM7HNT3MIm1NP2Z81tXy8TyPFzi20yqYRfB4
b6Vwq2vpWPC3/EJ+ZVz3+5L6xjowkhUzVTe9Ckh6K+pnCpkEj/c2Vsz2vIt5
BV5QX7sB1xJGNJmTzUt4fBxMdfth6PThBMNwXE98EI7JKsMqk65qjs/z+IL9
nklbS5bw+CSgdFzBQkJDjwzM8/iCqTPOp4qwkhPL72sM5QMpeqVKQhm2hMdP
W0rbHMZ2iauUrOnLAxLTwouckIe95KYiz3keX1BlVqKbvYTHS8R8ProHw2Z3
kJ3nefwgfZt5ZTomEZBh6/8Pjz9jsjPmxVIeL8k5pImlRJ2wtZ7n8chN6Gro
E4xW+G7mqMM8j9cRwn7cpP5/PN5bS+6b7Jd6aqZw7d9N8zw8zSw+zLqOWjry
xH0Ev59JpFLz0FgDbOF+J3mkbTCz/pu6PbNG+k0mrsn7U5b711FpPXu+VJ+b
v95Fy8PjKLawn5A2BiSznfmbmpOv4xF6Etc1BzliMuuoxoXRW5KUcC0z80X8
tBu2wMNJfBSxtdf+ph4WU3rvKoPrbweaDJh11PpTcQ/8WgTxzw+l3tO/iC3s
b94n3eq3yTZQGSeuyO2b5+FSl/skhOqprqkmY/bzPJw0Vqa7/xq2sH96W6m+
fbO1garxPk9wxzwPR56pratDsIX91ztc6w5m2EAdT75/eERPEBU4yr+PXN9D
jd41kDScR0Gk8oNT+7nDsYX935sj9N6XGz1UjKemLDGTggrkyU7MiB5qieJb
3UQl/Hr7z9yBG2KwhecPSa2t6EpmD1V8eUGK7Tz/dqPFh6lmYQvPN+aO0sjo
0Snq+MjA1kn8+ccU1byDjfymaigHbqg6x49Ior7tJs1vsYXns3eQ1rcsi17q
s+pD8U4n+ZFMNDPtifgMdYTLPUBznk9TTWyU7EqwhfeL6LobHvXDv6nBaaMV
NXp8SEbKYp2zwyxVtUI4J1aJjEiHlI90+1Zii33h/sqUAMc+KqJO3NOWISPv
gAR59q9zVN2dgylCnLyI9Hr9R2bRB2xhfmZ/+mIP5/YZavPB7z1x8zw5fozT
uoQEyfdK7T1buBGp1qnJraIWW5gHos4DOl+L+qkVVT45gvXciFau94CHwQY7
jhgXsvK4EIlltz/N4yu2ML9kenpRfw7PUvtCqZ8vZnKhZX+2ncvuZIf80aA3
pvM82d9HImL8O7YwPy14hhQz4n5Q88L3UphBnGjQrpUhps8Jys/4lejnOFAB
fyddrLgNW5jX2uscOfMyjQRqu3au2nOSA7l5CU7s/skFIGzYoWDEjrwbaKu3
YKxFnsyEuwWVaYPUiFdaD1L02NEHn8kr7HM8ICDMlRqsxIZIx3MlJlL6Fnny
oM7vU/z+7PBK2fezkAwb2tTLj7ye8sFLA7414xwkNCgS2GQ0ObjIi71No5RP
NAxTU3jePmwZn4PoiCiZVIogfD2brv4am4H0d6SwwxJji/xXpkNCPzeWC559
HTZ/kDoD3r0z1VKOwnAoh4/N64/f4O3Uyp1SMLXIc1HYT/XZ0nHqGbJE/zYn
XJ/O1hqrEYVgi9cXtq6fhIn4BAeqNxtjkb8qzwamiQqA6jMeDUxyEhpyrZRF
dSVhgZ+i7HEx1dJp6lq5Wfff47/A/oBB/fl7fPj7n56Ndvs4bNKtj/ZkTizy
ULd+cJEVJUFDy4qd+p/Gwb420PO7kBDsmMhRD8HGIPpPM6FbVrMED8165VFi
NkQ10zBnXEsdg4JK+anYKhHQVImYaXk8Ct1mx1XjVTgYC/zH24XPSVKVG+4l
emY8DhiFS9zL6Y8mxMFeIbRC8o8RSIdopc8BZMYCv3R7xlLt9hOAZ3VGa92O
joBX019317yWAdm5La4qtGHQ+jlcahQvQpxPK84ZUyKwAvY+hcwBjWGoNRwO
Yi7bB2GqyidESYPwsFVzz6VtiKGoyvI4upfgifXdjVM7EwZB1smwISX4MXBx
5+fcX8ILdxR42ztlDUJ8wIk91akvoEooPTltCR+M2EU/rjAxCAWXC0f1Qgk+
+CD4CtmrOh1WLtt/uGUJD1ylFqtSTx2CufRzaxpCM6H4ZMDT7VeG4G74uZ4S
52y4Lt+hYnaH4IFfqtTdSflDkFzFsjg7/gZKbw1nBL0dAj3zLMqntblwcePM
Fu0egg9Ka5KCQ3iGgXO0I+n7QTo08+9Ke/9fzjNV3fWN4jnNAE/tcJ93D4dh
zB+lZ0cVQplziNGeBIIXnny3ct2Hz8NQdjVl9X1aMbj3FT2vUB2Bya37tdx5
SyFMY7nN0JLzSeOfTCYIVY6AQkHB00jbcggjZ29/pz4KJ8SnakqiKuFndpS5
lzXBCw/QKblvz4xCmF9m+a9kghceOXl1VbnZO2gu/9m8ctUY0HXIt4daqmF9
e1VM+JLzSKXW7e89WT0Gslvdbdl4PoJ1gVEgc2QMqNt530cd/ggWnl7FAUcJ
XhhEv78yMWgcdunErV95j+CFNumd99NlP0NVRoPBX+a/wEGWPhe0vBZKn1g/
V79H8EJTA9tye9kJWBZ0N1rgzhdoVLlG1rg6AY5n/2jJUqsD8i0JEbslvPCE
Xfq4zu8JqPwSv+7aXN0iL6QZ+8ae31kPHIbj2b7fJ2EsvaUi+FgDYFsPot8H
CV4Y79cjmFA5BS5dx9LoRQQvXDm0fpNJ1DdgbhqrMC/4DeWu5lN2Yo2gHH54
9NT070Ve2Mt9xI27YBrkfcOEZ+wIXiisl1Cf7d8Mua187CKVM5DB69RLjWoG
tzhaGv83ghc6JLKbJn+fhVAe0ZShz99hLQwYffprDs5xleQl+bdAYW3GcNdv
ghfWSVvTp2fmINBMYXgpL6z8EeGVN9cCrZuKvSS0SKhUf4PD8q1MGBrWaZw/
j5RNIz0hYwkvdHC6GdAu1Aom+7Yfnj+PVJ8lum7+PNL/vZ8IXug8buga8p4N
5Q8EHTdach6pYfl0mvt0K6h3fPRde54dvdrQPm0v3QZ//7O+CV54r3QDK12K
A0U33oi98JjghSX5/c+cq9tA0OFXk3QlBzpWKLvihVD7v+uX4IXn5WJf777K
ibo/cvDK3CB4YeguBfFbgfj1M6XTy9s5UdV9kBykt0NRONuswxYutOrgr/64
AYIHVlNW0vQ3d8DhIOYJx2EuJHWMg6Jn0fHv+iX4nvL0KfGHr7hRZ1ahXdob
guf1UqzKdCo7INSvprFvPw86ZxpvZsfeCa9psZcFLvMgL9LWC/XiBF9rIw/c
rjbthMpHCoobdHnR/oYbsebnO/9dv8S8TvHAtXcdy8iIbedBJ+0KYp7oY65t
s/FDJ2j63dXXNiWjLe3hYlptneByuuRoUxsZqT/5ndAiRcxHj0Y/n+IFFkQK
ix+1fcOH5I3uCE+dYoHTxokzsnL86FfHG/m4O8T8tm7E4fzXRBbQvCKf+d3j
R6c8Lhe55rBA9Z/1Tcx/XfuzHom4CqAv9TeMrs6yFucTbZXyRufJXSBKDS7o
/CKAHNOuO3at7gK/IsG6ASMKKpwckd+pS8y792b8iOyx7QKXxNKY4k2C6HG4
iwC7XxfMHFF8qHBBEOnyHXCIe0jM3/n96Z7HMrpA4+zlFTViQqjCHGu7W9wF
Jf/cD8T8H5K/6m+aE0K6Iy1pFXNdi/775cWvq0dxXfzP9YT/drGycrn8YQC8
d4lfGr66mfDXV4sDjCl8jJo3TkHeKbhWf1B8QkKJMZylo1Z+ow+8U36+zApc
Tfjl9c6Gve95GQHL/J5N2uO661pthNRqxvb4mrWGmj3g/XU6+maZCCz634k9
qc/d5rCcdW+cKn7ifrY3ddnXljWE331ynpVL5WLs0LkunFjNms+vR25irmJI
miYcWWmD+9PSsjiLF6Kw6F8TjF0bsS5MbetjHcPtuK7gyizaJsp4yEVPPhKC
+0/nZN0NmkKEPyVNHhNj68P6umgbqmi4tqX1VicKEv70rl1+IH8ttk3dROss
HdecekWHZKcxjiFTusNp3H/WTe7gqvlF+FOmpXH64DvssNqKL6Pz/pSmfYZX
cBK76RTJ8SsD959Oh+JOzYwR/jQ6VdgevcIaxYY6uDbimt5hUXtjnPCn3kpD
+lkvMS4uv02aEbjmjtgR9KIDm9W9g9Xexv3nj1H39l9thD/17ngYE/gCc+CR
+d7Mi2vm9x/Bce1Ywe3j7JwjuB8dV9DWtW0j/Kl3vmLPwB2Mbrsqmn8A96dn
sk43ZLdhtIwibvtq3I8KJEo8/dC6xJ9WjF285Iu13TEqPlKO+1PR103SX1sx
5k557MoB3J9G3xoLM2pd4k9bGveN+mLOHrTqo3twf2p9M/6MQCumtDGk2isW
96cPe6MFapn/x5/+D2K/HyI=
           "], {{}, {}, 
            Tooltip[{
              RGBColor[0, 1, 0], 
              Thickness[0.005], 
              Line[CompressedData["
1:eJwl1dN2GAoUBNCktu3Utm0ztdvUTG3btm3btm1b1/bdWX3Yc75g5gSFhAZ3
DwwICPgswm44whOBiEQiMlGISjSiE4OYxCI2cYhLPOKTgIQkIjFJSEoykpOC
lKQiNWkIIi3pSE8GMpKJzGQhK9nITg5ykovc5CEv+chPAQpSiMIUoSjFKE4J
SlKK0pShLOUoTwUqUonKVKEq1ahODWpSi9rUIZi61KM+DWhIIxrThKY0ozkt
aEkrWhNCG9rSjvZ0oCOd6EwXutKN7oTSg570ojd96Es/+jOAgQxiMEMYyjCG
M4KRjGI0YxjLOMYzgYlMYjJTmMo0pjODmcxiNnOYyzzms4CFLGIxS1jKMpaz
gpWsYjVrWMs61rOBjWxiM1vYyja2s4Od7GI3e9jLPvZzgIMc4jBHOMoxjnOC
k5ziNGc4yznOc4GLXOIyV7jKNa5zg5vc4jZ3uMs97vOAhzziMU94yjOe84KX
vOI1b3jLO97zgY984jNf+IZv+Y7v+YEf+Ymf+YVf+Y3f+YM/+Yu/+Yd/+Y+w
8gcSjvBEICKRiEwUohKN6MQgJrGITRziEo/4JCAhiUhMEpKSjOSkICWpSE0a
gkhLOtKTgYxkIjNZyEo2spODnOQiN3nISz7yU4CCFKIwRShKMYpTgpKUojRl
KEs5ylOBilSiMlWoSjWqU4Oa1KI2dQimLvWoTwMa0ojGNKEpzWhOC1rSitaE
0Ia2tKM9HehIJzrTha50I2y8Q+lBT3rRmz70pR/9GcBABjGYIQxlGMMZwUhG
MZoxjGUc45nARCYxmSlMZRrTmcFMZjGbOcxlHvNZwEIWsZglLGUZy1nBSlax
mjWsZR3r2cBGNrGZLWxlG9vZwU52sZs97GUf+znAQQ5xmCMc5RjHOcFJTnGa
M5zlHOe5wEUucZkrXOUa17nBTW5xmzvc5R73ecBDHvGYJzzlGc95wUte8Zo3
vOUd7/nARz4Ffv3V/wOjSO9e
               "]], 
              Line[CompressedData["
1:eJwVzGc3lgEAgOEHKaKlpJIiRYVQIiUkpAi9ZTSUVaLskoY0yOpP+H+ShopK
rj5c59yf7pT2/lBfWBAE8yyITyzymSW+8JVvfGeZH/zkFyus8ps//GWNf/+n
4UEQRjgRbCCSjWwiimg2E0MsW9jKNrazgzh2sot4dpPAHvayj0T2k8QBDpJM
CodI5TBHSCOdoxzjOBlkksUJsskhl5OcIo/T5FPAGQo5yzmKOE8xJZRygTIu
Uk4FlVyiistcoZoarlJLHfVcI8R1btBAI000c5Nb3OYOLdzlHq200U4Hndzn
AV08pJseHvGYXvroZ4BBhhjmCU8Z4RmjPOcFL3nFGK8Z5w1vecd7JpjkA1NM
M8Msc3xkHT56PT8=
               "]], 
              Line[CompressedData["
1:eJwNw+c2EGAAANDPqBBJ4b9X6hE8gN7DOdkSlZbI3nuWWSpKFJVQZmWvSrj3
nJuWfvNGRkQIIdNbkSFkmW2OueaZb4GF3rbIOxZb4l3ved9SH/jQRz72iWU+
tdwKn1lpldXWWGud9TbYaJPNtthqm+122GmX3fbYa5/9DvjcFw465LAjjjrm
S1857mvf+NYJJ33ne6f84LQzfvSTs8752S9+dd5vLrjokt/94bIrrrrmuhv+
9Je/3XTLbXfcdc99Dzz0yGP/+Nd/nvjfU88MUSFEGGmU0V7wopeMMdY4Lxtv
gldM9KpJXvO6yaaY6jkVJ11Y
               "]], 
              
              Line[{791, 792, 793, 794, 795, 796, 797, 798, 799, 800, 801, 
               802, 803, 804, 805, 806, 807, 808, 809}], 
              Line[{810, 811, 812, 813, 814, 815, 816, 817, 818, 819, 820, 
               821, 822, 823, 824, 825, 826, 827, 828, 829, 830, 831, 832, 
               833, 834, 835, 836, 837, 838, 839, 840, 841, 842, 843, 844, 
               845, 846, 847, 848}], 
              Line[CompressedData["
1:eJwNw4c2AlAAANDn+BKfJDskGZEUoazsTdkjm8wIn+jec25TIhvJNIQQ4jY3
hhCxxVbbbLfDTruM2m2PvcbsM26/CQccdMhhk444asox046bMeuEk+acctoZ
8xacdc55F1y06JLLrrjqmutuuOmW2+646577Hliy7KFHHnviqWeee+GlV1a8
9sZb77z3wUeffLbqi6+++e6Hn9b88tu6P/765z8RbTNk
               "]], 
              
              Line[{945, 946, 947, 948, 949, 950, 951, 952, 953, 954, 955, 
               956, 957, 958, 959, 960, 961, 962, 963, 964, 965, 966, 967, 
               968, 969, 970, 971, 972, 973, 974, 975, 976, 977, 978, 979, 
               980, 981, 982, 983, 984, 985, 986, 987, 988, 989, 990, 991, 
               992, 993, 994, 995, 996, 997, 998, 999, 1000}], 
              
              Line[{1001, 1002, 1003, 1004, 1005, 1006, 1007, 
               1008}]}, -$CellContext`x + (((($CellContext`a^4 (
                    1 - $CellContext`x)) $CellContext`x) (
                  1 - ($CellContext`a (1 - $CellContext`x)) $CellContext`x)) (
                 1 - (($CellContext`a^2 (
                    1 - $CellContext`x)) $CellContext`x) (
                  1 - ($CellContext`a (
                    1 - $CellContext`x)) $CellContext`x))) (
                1 - ((($CellContext`a^3 (
                    1 - $CellContext`x)) $CellContext`x) (
                  1 - ($CellContext`a (1 - $CellContext`x)) $CellContext`x)) (
                 1 - (($CellContext`a^2 (
                    1 - $CellContext`x)) $CellContext`x) (
                  1 - ($CellContext`a (1 - $CellContext`x)) $CellContext`x))) == 
             0.], 
            Tooltip[{
              RGBColor[1, 0, 0], 
              Thickness[0.005], 
              Line[CompressedData["
1:eJwN01VjkAUAQNFvbCNGjNxISSkpaQlJSUkJpUGlG0lFUBqkUUDplE5ppUFC
uru7u/E8nPsPbvpmHWq2DwmCIIc8DA2CRzzmCU95xnNe8JJXvOYNb3nHe4Kw
IAghBqGEEU5MYhGbOEQQl3jEJwGRJCQRiUlCUpIRRTTJSUFKUpGaNHxAWtKR
ngxkJBMfkpksZCUb2fmIHOQkF7nJw8fkJR/5KUBBClGYTyhCUYpRnE8pQUlK
UZoylOUzylGeClSkEpX5nCpUpRrVqUFNvqAWtalDXb7kK+pRnwY0pBGNaUJT
mvE13/AtzWlBS1rRmja0pR3t6UBHOtGZLnxHV7rRnR70pBff8wO9+ZE+9OUn
fqYf/RnAQAYxmCEMZRi/MJwRjGQUoxnDWMbxK78xnglM5Hf+YBKTmcJUpjGd
GcxkFrOZw1z+ZB7zWcBCFrGYJSxlGctZwUr+YhWrWcNa1rGeDfzNP2xkE5vZ
wla2sZ0d7ORfdrGbPezlP/axnwMc5BCHOcJRjnGcE5zkFKc5w1nOcZ4LXOQS
l7nCVa5xnRvc5Ba3ucNd7nGfBzzkEY95wlOe8ZwXvOQVr3nDW97xniDc/8Qg
lDDCiUksYhOHCOISj/gkIJKEJCIxSUhKMqKIJjkpSEkqUvM/6OyWPQ==
               "]], 
              Line[CompressedData["
1:eJwNw2c7lQEAANDXBz8jI1sIIUpSkRHJNVJS3BQN92aUnVHITiIZkaj8S+c8
z0kMR0ORmCAIVr0QGwRxxptgohdNMtkUU00z3QwzvWSW2eZ42VzzzPeKBRZa
5FWLLfGa1y31hmXetNxb3vaOFVZ61yqrrbHWe9ZZ730bfGCjIZtstsVWH9rm
Ix/b7hM7fOozO+0y7HO7feFLe+z1la9941v7jBj1nf0OOOiQ7/3gsCOOOua4
E0760SmnnXHWT352znkX/OKiSy674qprrvvVDb+56Xe33PaHO/501z33PfCX
hx7522P/eOKpf/3nf888B1YKO4k=
               "]], 
              
              Line[{1450, 1451, 1452, 1453, 1454, 1455, 1456, 1457, 1458, 
               1459, 1460, 1461, 1462, 1463, 1464, 1465, 1466, 1467, 1468, 
               1469, 1470, 1471, 1472, 1473, 1474, 1475, 1476, 1477, 1478, 
               1479, 1480, 1481, 1482, 1483, 1484, 1485, 1486, 1487, 1488, 
               1489, 1490, 1491, 1492, 1493, 1494, 1495, 1496, 1497, 1498, 
               1499, 1500, 1501, 1502, 1503, 1504, 
               1505}]}, -$CellContext`x + (($CellContext`a^2 (
                  1 - $CellContext`x)) $CellContext`x) (
                1 - ($CellContext`a (1 - $CellContext`x)) $CellContext`x) == 
             0.], 
            Tooltip[{
              RGBColor[0, 0, 1], 
              Thickness[0.005], 
              Line[CompressedData["
1:eJwNw4dWSAEAANAXDbtCkoxCsmWTkV00KHuFbNLOzMqKjLK3/EnfYqRUkj0y
7j3nJhYU5xWFBEHQ6KuwIHjtG9/a5DubbfG9rbbZ7gc7/Ginn/zsF7/6ze/+
8Ke//G2Xf/zrP4PwIAixm90NNcxwI+xhT3vZ2z72tZ+RRhltfwc40BgHGetg
4xxivEMd5nBHmGCiIx3laJMcY7JjHed4JzjRSU52iilOdZrTneFMZznbOc41
1XnOd4ELTXORi13iUpe53BWmm+FKV5lpltnmuNo15prnWte53g1udJOb3eJW
t7ndfHe4010WuNs97nWf+z3gQQ952EKPWGSxJZZaZrkVVnrUYx73hCc9ZZWn
PeNZz3neai940Ute9oo1XvWatV73hje9ZZ313vaOd73nfR/40Ec+9olPfeZz
X9jgS/8DMQRV9g==
               "]], 
              
              Line[{1698, 1699, 1700, 1701, 1702, 1703, 1704, 1705, 1706, 
               1707, 1708, 1709, 1710, 1711, 1712, 1713, 1714, 1715, 1716, 
               1717, 1718, 1719, 1720, 1721, 1722, 1723, 1724, 1725, 1726, 
               1727, 1728, 1729, 1730, 1731, 1732, 1733, 1734, 1735, 1736, 
               1737, 1738, 
               1739}]}, -$CellContext`x + ($CellContext`a (
                 1 - $CellContext`x)) $CellContext`x == 0.]}]]}}; 
     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.6671987651030035`*^9, 
  3.6671988415373755`*^9},ExpressionUUID->"b6e50f83-004f-4382-9433-\
7008c35ec32b"]
}, {2}]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellChangeTimes->{3.539604794614111*^9},
 CellTags->
  "SlideShowHeader",ExpressionUUID->"d0373661-6755-475b-a54d-c4db8d32e42f"],

Cell[CellGroupData[{

Cell[TextData[{
 "What about the other iterates: Study ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"F", "(", 
     RowBox[{"F", " ", 
      RowBox[{"(", 
       RowBox[{"F", " ", 
        RowBox[{"(", "x", ")"}]}], ")"}]}], ")"}], "=", 
    RowBox[{
     SuperscriptBox["F", 
      RowBox[{"(", "3", ")"}]], "(", "x", ")"}]}], TraditionalForm]], "None",
  ExpressionUUID->"f9835205-2e87-4bd8-9bf4-d1b6c7993428"]
}], "MainSection",
 CellChangeTimes->{{3.6664364855111847`*^9, 3.666436499352976*^9}, {
  3.6664383058433013`*^9, 3.666438320542142*^9}, {3.666503252675497*^9, 
  3.6665032749807463`*^9}},ExpressionUUID->"f7b3abf6-ea3a-40d6-90e6-\
e52ff1134ea3"],

Cell[CellGroupData[{

Cell["The iterations", "Section",
 CellChangeTimes->{{3.6664447791145515`*^9, 
  3.6664447988516803`*^9}},ExpressionUUID->"63d2bd0b-736e-4df3-a57c-\
3eee92cfbbf7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"DynamicModule", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"F", ",", "G", ",", "x", ",", "data"}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"G", "[", 
         RowBox[{"{", 
          RowBox[{"x_", ",", "a_"}], "}"}], "]"}], "=", 
        RowBox[{"a", " ", "x", 
         RowBox[{"(", 
          RowBox[{"1", "-", "x"}], ")"}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"F", "[", 
         RowBox[{"{", 
          RowBox[{"x_", ",", "a_"}], "}"}], "]"}], "=", 
        RowBox[{"G", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"G", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"G", "[", 
               RowBox[{"{", 
                RowBox[{"x", ",", "a"}], "}"}], "]"}], ",", "a"}], "}"}], 
            "]"}], ",", "a"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"GraphicsRow", "[", "\[IndentingNewLine]", 
        RowBox[{"{", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"Graphics", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"NestList", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"#", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], "+", "1"}], ",", 
                  RowBox[{"F", "[", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"#", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], ",", "a"}], "}"}], 
                   "]"}]}], "}"}], "&"}], ",", 
               RowBox[{"{", 
                RowBox[{"0", ",", "x0"}], "}"}], ",", "n"}], "]"}], "/.", 
             RowBox[{
              RowBox[{"u_", "?", "VectorQ"}], ":>", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"Hue", "[", 
                 RowBox[{
                  RowBox[{"u", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "/", "nmax"}], "]"}], ",", 
                RowBox[{"Point", "[", "u", "]"}]}], "}"}]}]}], ",", 
            RowBox[{"AspectRatio", "->", "1"}], ",", 
            RowBox[{"PlotRange", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"0", ",", "nmax"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", 
            RowBox[{"Axes", "->", "True"}], ",", 
            RowBox[{"AxesLabel", "->", 
             RowBox[{"{", 
              RowBox[{
              "\"\<n\>\"", ",", 
               "\"\<\!\(\*SubscriptBox[\(x\), \(n\)]\)\>\""}], "}"}]}]}], 
           "]"}], ",", "\[IndentingNewLine]", 
          RowBox[{"Show", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"Plot", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"F", "[", 
                 RowBox[{"{", 
                  RowBox[{"u", ",", "a"}], "}"}], "]"}], ",", "u"}], "}"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"u", ",", "0", ",", "1"}], "}"}], ",", 
              RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
              RowBox[{"PlotRange", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"0", ",", "1"}], "}"}]}], ",", 
              RowBox[{"PlotStyle", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"Blue", ",", "Orange"}], "}"}]}]}], "]"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"Plot", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"G", "[", 
                RowBox[{"{", 
                 RowBox[{"u", ",", "a"}], "}"}], "]"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"u", ",", "0", ",", "1"}], "}"}], ",", 
              RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
              RowBox[{"PlotRange", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"0", ",", "1"}], "}"}]}], ",", 
              RowBox[{"PlotStyle", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"Opacity", "[", "0.5", "]"}], "}"}]}]}], "]"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"Drop", "[", 
              RowBox[{
               RowBox[{"Thread", "[", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"data", "=", 
                   RowBox[{"NestList", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"F", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"#", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], ",", "a"}], "}"}], "]"}], 
                    ",", 
                    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", "]"}], "]"}], "/", "nmax"}], "]"}], ",", 
                 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]", "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "3", ",", "\"\<a\>\""}], "}"}], ",", "0", ",", "4", 
      ",", 
      RowBox[{"Appearance", "\[Rule]", 
       RowBox[{"{", "\"\<Labeled\>\"", "}"}]}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "x0", ",", "0.5", ",", "\"\<\!\(\*SubscriptBox[\(x\), \(0\)]\)\>\""}], 
       "}"}], ",", "0", ",", "1", ",", 
      RowBox[{"Appearance", "\[Rule]", 
       RowBox[{"{", "\"\<Labeled\>\"", "}"}]}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "nmax", ",", "50", ",", 
        "\"\<\!\(\*SubscriptBox[\(n\), \(max\)]\)\>\""}], "}"}], ",", "1", 
      ",", "100", ",", "1", ",", 
      RowBox[{"Appearance", "\[Rule]", 
       RowBox[{"{", "\"\<Labeled\>\"", "}"}]}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"n", ",", "nmax", ",", "\"\<n\>\""}], "}"}], ",", "1", ",", 
      "nmax", ",", "1", ",", 
      RowBox[{"Appearance", "\[Rule]", 
       RowBox[{"{", "\"\<Labeled\>\"", "}"}]}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"SaveDefinitions", "\[Rule]", "True"}]}], "\[IndentingNewLine]", 
   "]"}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.66643858083403*^9, 3.6664386948175497`*^9}, {
   3.6664449484012337`*^9, 3.6664451812035494`*^9}, {3.666445220665807*^9, 
   3.666445223716981*^9}, {3.6664453044966016`*^9, 3.666445304800619*^9}, {
   3.666445335010347*^9, 3.6664454188201404`*^9}, {3.666445463590701*^9, 
   3.666445465389804*^9}, 3.6664455127925153`*^9, {3.666445609277034*^9, 
   3.6664456217807493`*^9}, {3.6664456661972895`*^9, 3.666445669721491*^9}, {
   3.666445705662547*^9, 3.666445741358588*^9}, {3.66644591936977*^9, 
   3.6664459271702166`*^9}, 
   3.6665032973425617`*^9},ExpressionUUID->"3239d131-ef07-4bbc-ac70-\
84cba36b156d"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{CloudObject`Private`a$$ = 3.83, CloudObject`Private`n$$ =
     50, CloudObject`Private`nmax$$ = 50, CloudObject`Private`x0$$ = 
    0.34700000000000003`, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[CloudObject`Private`a$$], 3, "a"}, 0, 4}, {{
       Hold[CloudObject`Private`x0$$], 0.5, 
       "\!\(\*SubscriptBox[\(x\), \(0\)]\)"}, 0, 1}, {{
       Hold[CloudObject`Private`nmax$$], 50, 
       "\!\(\*SubscriptBox[\(n\), \(max\)]\)"}, 1, 100, 1}, {{
       Hold[CloudObject`Private`n$$], CloudObject`Private`nmax$$, "n"}, 1, 
      Dynamic[CloudObject`Private`nmax$$], 1}}, Typeset`size$$ = {
    540., {136., 146.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, CloudObject`Private`a$7027$$ = 0, 
    CloudObject`Private`x0$7028$$ = 0, CloudObject`Private`nmax$7029$$ = 0, 
    CloudObject`Private`n$7030$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {
       CloudObject`Private`a$$ = 3, CloudObject`Private`n$$ = 
        CloudObject`Private`nmax$$, CloudObject`Private`nmax$$ = 50, 
        CloudObject`Private`x0$$ = 0.5}, "ControllerVariables" :> {
        Hold[CloudObject`Private`a$$, CloudObject`Private`a$7027$$, 0], 
        Hold[CloudObject`Private`x0$$, CloudObject`Private`x0$7028$$, 0], 
        Hold[CloudObject`Private`nmax$$, CloudObject`Private`nmax$7029$$, 0], 
        Hold[CloudObject`Private`n$$, CloudObject`Private`n$7030$$, 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[{
        CloudObject`Private`F, CloudObject`Private`G, CloudObject`Private`x, 
         CloudObject`Private`data}, CloudObject`Private`G[{
            Pattern[CloudObject`Private`x, 
             Blank[]], 
            Pattern[CloudObject`Private`a, 
             Blank[]]}] = (CloudObject`Private`a CloudObject`Private`x) (1 - 
           CloudObject`Private`x); CloudObject`Private`F[{
            Pattern[CloudObject`Private`x, 
             Blank[]], 
            Pattern[CloudObject`Private`a, 
             Blank[]]}] = CloudObject`Private`G[{
            CloudObject`Private`G[{
              
              CloudObject`Private`G[{
               CloudObject`Private`x, CloudObject`Private`a}], 
              CloudObject`Private`a}], CloudObject`Private`a}]; GraphicsRow[{
           Graphics[
            ReplaceAll[
             NestList[{Part[#, 1] + 1, 
               CloudObject`Private`F[{
                 Part[#, 2], CloudObject`Private`a$$}]}& , {
              0, CloudObject`Private`x0$$}, CloudObject`Private`n$$], 
             PatternTest[
               Pattern[CloudObject`Private`u$, 
                Blank[]], VectorQ] :> {
               Hue[
               Part[CloudObject`Private`u$, 1]/CloudObject`Private`nmax$$], 
               Point[CloudObject`Private`u$]}], AspectRatio -> 1, 
            PlotRange -> {{0, CloudObject`Private`nmax$$}, {0, 1}}, Axes -> 
            True, AxesLabel -> {"n", "\!\(\*SubscriptBox[\(x\), \(n\)]\)"}], 
           Show[
            Plot[{
              
              CloudObject`Private`F[{
               CloudObject`Private`u, CloudObject`Private`a$$}], 
              CloudObject`Private`u}, {CloudObject`Private`u, 0, 1}, 
             AspectRatio -> Automatic, PlotRange -> {0, 1}, 
             PlotStyle -> {Blue, Orange}], 
            Plot[{
              
              CloudObject`Private`G[{
               CloudObject`Private`u, CloudObject`Private`a$$}]}, {
             CloudObject`Private`u, 0, 1}, AspectRatio -> Automatic, 
             PlotRange -> {0, 1}, PlotStyle -> {
               Opacity[0.5]}], 
            ReplaceAll[
             Drop[
              Thread[{CloudObject`Private`data = NestList[{
                   CloudObject`Private`F[{
                    Part[#, 1], CloudObject`Private`a$$}], Part[#, 2] + 
                   1}& , {CloudObject`Private`x0$$, 0}, 
                  CloudObject`Private`n$$], 
                RotateLeft[CloudObject`Private`data]}], -1], {
               PatternTest[
                Pattern[CloudObject`Private`u$, 
                 Blank[]], VectorQ], 
               PatternTest[
                Pattern[CloudObject`Private`v$, 
                 Blank[]], VectorQ]} :> Graphics[{
                Hue[
                Part[CloudObject`Private`u$, 2]/CloudObject`Private`nmax$$], 
                Line[
                 
                 ReplaceAll[{{
                   CloudObject`Private`u$, CloudObject`Private`u$}, {
                   CloudObject`Private`u$, CloudObject`Private`v$}, {
                   CloudObject`Private`v$, CloudObject`Private`v$}}, 
                  PatternTest[
                    Pattern[CloudObject`Private`d, 
                    Blank[]], VectorQ] :> First[CloudObject`Private`d]]]}]], 
            AxesLabel -> {
             "\!\(\*SubscriptBox[\(x\), \(n\)]\)", 
              "\!\(\*SubscriptBox[\(x\), \(n + 1\)]\)"}]}]], 
      "Specifications" :> {{{CloudObject`Private`a$$, 3, "a"}, 0, 4, 
         Appearance -> {"Labeled"}}, {{
         CloudObject`Private`x0$$, 0.5, "\!\(\*SubscriptBox[\(x\), \(0\)]\)"},
          0, 1, Appearance -> {"Labeled"}}, {{
         CloudObject`Private`nmax$$, 50, 
          "\!\(\*SubscriptBox[\(n\), \(max\)]\)"}, 1, 100, 1, 
         Appearance -> {"Labeled"}}, {{
         CloudObject`Private`n$$, CloudObject`Private`nmax$$, "n"}, 1, 
         Dynamic[CloudObject`Private`nmax$$], 1, Appearance -> {"Labeled"}}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{616., {258., 269.}},
     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.6664459524356613`*^9, 
  3.6665033071584044`*^9},ExpressionUUID->"51265c44-9aa6-4851-98b1-\
933aef44586d"]
}, {2}]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellChangeTimes->{3.539604794614111*^9},
 CellTags->
  "SlideShowHeader",ExpressionUUID->"63f5e7e2-1424-4262-a3f5-4201c21b578f"],

Cell[TextData[{
 "Positive fixed points of",
 Cell[BoxData[
  FormBox[
   RowBox[{"  ", 
    RowBox[{
     SuperscriptBox["F", 
      RowBox[{"(", "3", ")"}]], "(", "x", ")"}], "  "}], TraditionalForm]], 
  "None",ExpressionUUID->"6ab08295-2e7f-4fb9-9558-0065d36a577e"],
 "appear at: ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["a", "3"], "\[TildeTilde]", "3.828427124740002`"}], 
   TraditionalForm]], "None",ExpressionUUID->
  "59994e16-1808-49b5-a4ab-30ea8119f7fb"],
 "\nThey are attractive: ",
 Cell[BoxData[
  FormBox[
   RowBox[{"3.82843", "\[LessTilde]", "a", "\[LessTilde]", "3.8415"}], 
   TraditionalForm]], "None",ExpressionUUID->
  "da63a108-bd7f-466a-a9ea-f1fe95ce7852"]
}], "Section",
 CellChangeTimes->{{3.666464430667138*^9, 3.666464503455325*^9}, {
   3.666464614695379*^9, 3.666464627102809*^9}, {3.66650508550233*^9, 
   3.6665052246081057`*^9}, 3.6671990149442935`*^9},
 FontColor->RGBColor[
  1, 0, 0],ExpressionUUID->"134e4c83-4575-474d-8c9f-642a54e2414a"],

Cell[CellGroupData[{

Cell[TextData[{
 "The fixed points of ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"F", "(", "x", ")"}], "  ", "and", "  ", 
     RowBox[{"F", "(", 
      RowBox[{"F", " ", 
       RowBox[{"(", 
        RowBox[{"F", " ", 
         RowBox[{"(", "x", ")"}]}], ")"}]}], ")"}]}], "=", 
    RowBox[{
     SuperscriptBox["F", 
      RowBox[{"(", "3", ")"}]], "(", "x", ")"}]}], TraditionalForm]], "None",
  ExpressionUUID->"78fc8414-1afb-4ac7-9602-b349618f221d"]
}], "Section",
 CellChangeTimes->{{3.666438035313828*^9, 3.6664380797353687`*^9}, {
  3.6664381969750743`*^9, 3.6664382032914357`*^9}, {3.6664448131464977`*^9, 
  3.6664448153326225`*^9}, {3.6665036719898605`*^9, 
  3.6665036784482937`*^9}},ExpressionUUID->"9422580b-c4fb-49e5-9a18-\
f7ff87056a25"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"DynamicModule", "[", 
    RowBox[{
     RowBox[{"{", "lst", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"lst", "=", 
       RowBox[{"Reverse", "[", 
        RowBox[{"Take", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{"f", "[", 
                RowBox[{"x", ",", "a"}], "]"}], "-", "x"}], ",", "Blue"}], 
             "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{"f", "[", 
                RowBox[{
                 RowBox[{"f", "[", 
                  RowBox[{
                   RowBox[{"f", "[", 
                    RowBox[{"x", ",", "a"}], "]"}], ",", "a"}], "]"}], ",", 
                 "a"}], "]"}], "-", "x"}], ",", "Red"}], "}"}]}], "}"}], ",", 
          "n"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"Show", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"ContourPlot", "[", 
          RowBox[{
           RowBox[{"Evaluate", "[", 
            RowBox[{"lst", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"a", ",", "3", ",", "4"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", 
             RowBox[{"-", "0.0005"}], ",", "1"}], "}"}], ",", 
           RowBox[{"Contours", "\[Rule]", 
            RowBox[{"{", "0", "}"}]}], ",", 
           RowBox[{"PlotPoints", "\[Rule]", "50"}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"ContourStyle", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Thickness", "[", "0.005", "]"}], ",", 
              RowBox[{"lst", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "}"}]}], ",", 
           RowBox[{"Mesh", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{"3.828427124740002", ",", "3.841499007543501"}], "}"}], 
             "}"}]}], ",", 
           RowBox[{"MeshFunctions", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"#1", "&"}], "}"}]}], ",", 
           RowBox[{"ContourShading", "\[Rule]", "None"}], ",", 
           RowBox[{"FrameLabel", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"a", ",", "\"\<\!\(\*SubscriptBox[\(x\), \(n\)]\)\>\""}],
              "}"}]}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{"Length", "[", "lst", "]"}]}], "}"}]}], "]"}], 
       "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"n", ",", "1", ",", "\"\<Iteration\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"1", "\[Rule]", "\"\<1\>\""}], ",", 
       RowBox[{"2", "\[Rule]", "\"\<3\>\""}]}], "}"}], ",", "SetterBar"}], 
    "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"SaveDefinitions", "\[Rule]", "True"}], ",", 
   RowBox[{"Initialization", "\[RuleDelayed]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"f", "[", 
       RowBox[{"x_", ",", "a_"}], "]"}], "=", 
      RowBox[{"a", " ", "x", 
       RowBox[{"(", 
        RowBox[{"1", "-", "x"}], ")"}]}]}], "}"}]}]}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellChangeTimes->{{3.666438752540851*^9, 3.666438761565367*^9}, {
   3.6664388168575296`*^9, 3.6664388540316563`*^9}, {3.666439770484074*^9, 
   3.666439813915558*^9}, {3.6664398664075603`*^9, 3.666440021983459*^9}, {
   3.666440052903228*^9, 3.6664400921754737`*^9}, {3.6664401728070855`*^9, 
   3.6664402023517756`*^9}, {3.66644027935918*^9, 3.6664403284999905`*^9}, {
   3.6664404684839973`*^9, 3.666440472365219*^9}, {3.666440636428603*^9, 
   3.6664406407908525`*^9}, {3.666440682563242*^9, 3.6664407023053713`*^9}, {
   3.666440740161536*^9, 3.6664407943766375`*^9}, {3.666440845389555*^9, 
   3.666440852609968*^9}, {3.6664408973825293`*^9, 3.6664409049109592`*^9}, {
   3.666440940482994*^9, 3.6664409553698454`*^9}, {3.6664428787148547`*^9, 
   3.666442879616906*^9}, {3.666442915452956*^9, 3.6664429824667892`*^9}, {
   3.6664430202329493`*^9, 3.6664431904256835`*^9}, {3.6664435819560776`*^9, 
   3.666443658887478*^9}, {3.6664437950542665`*^9, 3.666443801466633*^9}, {
   3.6664438660003242`*^9, 3.6664438677364235`*^9}, {3.666443898287171*^9, 
   3.6664439986419106`*^9}, {3.6664440666298*^9, 3.666444162190265*^9}, {
   3.666444721430252*^9, 3.666444723159351*^9}, {3.666444838512949*^9, 
   3.666444838697959*^9}, 3.6665035029916086`*^9, {3.666503606157527*^9, 
   3.6665036375775423`*^9}, {3.6665037020428452`*^9, 
   3.6665037549427257`*^9}, {3.666504636781059*^9, 3.666504685263031*^9}, {
   3.6665047794380465`*^9, 3.6665047833791466`*^9}, {3.666504833875954*^9, 
   3.6665048351757755`*^9}, {3.6665048899340887`*^9, 3.6665048920994616`*^9}, 
   3.6665052490647707`*^9, {3.6665052934277344`*^9, 
   3.6665053016666694`*^9}},ExpressionUUID->"a087c045-c64f-4fc7-b484-\
8f2e0b71ea9a"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{CloudObject`Private`n$$ = 1, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[CloudObject`Private`n$$], 1, "Iteration"}, {1 -> "1", 2 -> "3"}}},
     Typeset`size$$ = {540., {262., 273.}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = False, 
    CloudObject`Private`n$93153$$ = False}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {CloudObject`Private`n$$ = 1}, 
      "ControllerVariables" :> {
        Hold[CloudObject`Private`n$$, CloudObject`Private`n$93153$$, False]}, 
      "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[{CloudObject`Private`lst}, 
        CloudObject`Private`lst = Reverse[
           
           Take[{{CloudObject`Private`f[
               CloudObject`Private`x, CloudObject`Private`a] - 
              CloudObject`Private`x, Blue}, {CloudObject`Private`f[
                CloudObject`Private`f[
                 CloudObject`Private`f[
                 CloudObject`Private`x, CloudObject`Private`a], 
                 CloudObject`Private`a], CloudObject`Private`a] - 
              CloudObject`Private`x, Red}}, CloudObject`Private`n$$]]; Show[
          Table[
           ContourPlot[
            Evaluate[
             Part[CloudObject`Private`lst, CloudObject`Private`i, 1]], {
            CloudObject`Private`a, 3, 4}, {CloudObject`Private`x, -0.0005, 1},
             Contours -> {0}, PlotPoints -> 50, ContourStyle -> {
              Thickness[0.005], 
              Part[CloudObject`Private`lst, CloudObject`Private`i, 2]}, 
            Mesh -> {{3.828427124740002, 3.841499007543501}}, 
            MeshFunctions -> {#& }, ContourShading -> None, 
            FrameLabel -> {
             CloudObject`Private`a, "\!\(\*SubscriptBox[\(x\), \(n\)]\)"}], {
           CloudObject`Private`i, 1, 
            Length[CloudObject`Private`lst]}]]], 
      "Specifications" :> {{{CloudObject`Private`n$$, 1, "Iteration"}, {
         1 -> "1", 2 -> "3"}, ControlType -> SetterBar}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{616., {336., 347.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({{CloudObject`Private`f[
           Pattern[CloudObject`Private`x, 
            Blank[]], 
           Pattern[CloudObject`Private`a, 
            Blank[]]] = (CloudObject`Private`a (1 - CloudObject`Private`x)) 
          CloudObject`Private`x}; {CloudObject`Private`f[
           Pattern[CloudObject`Private`x, 
            Blank[]], 
           Pattern[CloudObject`Private`a, 
            Blank[]]] = (CloudObject`Private`a CloudObject`Private`x) (1 - 
           CloudObject`Private`x)}}; 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.6665037561912127`*^9, {3.666504659819911*^9, 3.6665046861633377`*^9}, 
   3.6665047867291117`*^9, 3.666504835810802*^9, 3.666504893316474*^9, 
   3.666505250903785*^9, 
   3.666505302236287*^9},ExpressionUUID->"e451cb9b-fdc9-4830-8714-\
a729b617ce03"]
}, {2}]],

Cell[CellGroupData[{

Cell["The new (not inherited) fixed points", "Subsection",
 CellChangeTimes->{{3.6664461160810213`*^9, 3.6664461470607934`*^9}, {
  3.666461747487747*^9, 
  3.6664617489050446`*^9}},ExpressionUUID->"dc2de92b-8f33-4155-8aca-\
1b0f85912b3f"],

Cell["Attractivity - instability", "Th-Env",
 CellChangeTimes->{{3.6664462107494364`*^9, 3.666446225413275*^9}, {
  3.666446345951169*^9, 
  3.6664463490623474`*^9}},ExpressionUUID->"23c7dfc1-9f11-4658-84d8-\
cd95498d8878"],

Cell[BoxData[
 RowBox[{
  RowBox[{"F", "[", "x_", "]"}], ":=", 
  RowBox[{"a", " ", "x", 
   RowBox[{"(", 
    RowBox[{"1", "-", "x"}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.6663550294043674`*^9, 3.66635503834438*^9}, {
  3.666436527099563*^9, 3.6664365327208843`*^9}, {3.6664460498662343`*^9, 
  3.6664460511513076`*^9}},ExpressionUUID->"109bd739-60ce-4162-8a8b-\
3637372cff51"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"G", "[", "x_", "]"}], "=", 
  RowBox[{"Collect", "[", 
   RowBox[{
    RowBox[{"F", "[", 
     RowBox[{"F", "[", 
      RowBox[{"F", "[", "x", "]"}], "]"}], "]"}], ",", "x"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.6664460119970684`*^9, 3.666446043073846*^9}, {
  3.6664460750076723`*^9, 3.6664460792909174`*^9}, {3.6664489600046844`*^9, 
  3.666448964283929*^9}, {3.666503774107372*^9, 
  3.6665037832018003`*^9}},ExpressionUUID->"0f95c205-31da-418d-9e87-\
b06913cd56d8"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["a", "3"], " ", "x"}], "+", 
  RowBox[{
   SuperscriptBox["a", "3"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "-", "a", "-", 
     SuperscriptBox["a", "2"]}], ")"}], " ", 
   SuperscriptBox["x", "2"]}], "+", 
  RowBox[{
   SuperscriptBox["a", "3"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"2", " ", "a"}], "+", 
     RowBox[{"2", " ", 
      SuperscriptBox["a", "2"]}], "+", 
     RowBox[{"2", " ", 
      SuperscriptBox["a", "3"]}]}], ")"}], " ", 
   SuperscriptBox["x", "3"]}], "+", 
  RowBox[{
   SuperscriptBox["a", "3"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "a"}], "-", 
     SuperscriptBox["a", "2"], "-", 
     RowBox[{"6", " ", 
      SuperscriptBox["a", "3"]}], "-", 
     SuperscriptBox["a", "4"]}], ")"}], " ", 
   SuperscriptBox["x", "4"]}], "+", 
  RowBox[{
   SuperscriptBox["a", "3"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"6", " ", 
      SuperscriptBox["a", "3"]}], "+", 
     RowBox[{"4", " ", 
      SuperscriptBox["a", "4"]}]}], ")"}], " ", 
   SuperscriptBox["x", "5"]}], "+", 
  RowBox[{
   SuperscriptBox["a", "3"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      SuperscriptBox["a", "3"]}], "-", 
     RowBox[{"6", " ", 
      SuperscriptBox["a", "4"]}]}], ")"}], " ", 
   SuperscriptBox["x", "6"]}], "+", 
  RowBox[{"4", " ", 
   SuperscriptBox["a", "7"], " ", 
   SuperscriptBox["x", "7"]}], "-", 
  RowBox[{
   SuperscriptBox["a", "7"], " ", 
   SuperscriptBox["x", "8"]}]}]], "Output",
 CellChangeTimes->{{3.6664460169833536`*^9, 3.666446079745943*^9}, 
   3.6664489646409497`*^9, {3.6665037845342007`*^9, 3.666503809288295*^9}, 
   3.666504027639371*^9},ExpressionUUID->"4a1e50fb-bf21-41c5-9afd-\
789178782acc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Abs", "[", 
      RowBox[{"Simplify", "[", 
       RowBox[{
        RowBox[{
         SuperscriptBox["G", "\[Prime]",
          MultilineFunction->None], "[", "x", "]"}], "/.", "\[VeryThinSpace]", 
        RowBox[{
        "fixed3", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}]}], 
       "]"}], "]"}], ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"a", ",", "3.8", ",", "4"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1.5"}], "}"}]}], ",", 
   RowBox[{"AxesOrigin", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"3.8", ",", "0"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.666446232272667*^9, 3.666446305629863*^9}, 
   3.66644656572774*^9, {3.6664466625432773`*^9, 3.6664466625462775`*^9}, {
   3.6664498668765545`*^9, 3.6664499631670623`*^9}, {3.666461258611287*^9, 
   3.6664612688015003`*^9}, {3.6664621235565853`*^9, 3.666462181033214*^9}, {
   3.6664622131182475`*^9, 3.666462241126567*^9}, {3.6665040324067984`*^9, 
   3.666504042257435*^9}, {3.666504086214251*^9, 3.6665041124241996`*^9}, {
   3.666504241478796*^9, 3.666504247840647*^9}, 
   3.667198944280252*^9},ExpressionUUID->"59e1b133-8044-45d7-b573-\
a33673c1d768"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
     1.], LineBox[CompressedData["
1:eJxF1H881HccB/Cbioq+WcVGdcXUwtQx1R4W71MWSWH9kMrRXX5k3HGo6bQH
Rcuvulh1OJzEiQtxZBSyHughm63oumx0UaRxv6+ctn0+988+j8f78Xk8H6/3
+/3n24bO+jbciEQiBaHCf2POe5boGkElGd47SM1K5H/EI6i1iZNX3bt0IJoI
F9ghu0VTsnRCHTzbGXTDG9mj0Lg5L1cHLvPcRLnI0smVFt8d0sEY5982qwKC
Sh4Kmb32Vgs+sVnPnQvRvNfjN8mEFhL7OCP7kQd92HpzpQbK7GNfnkL+2aHl
TNqgBmbH/afuIZ+4KWK/LdKAiGah31VEUDePKE5K1mtgaYDAms4nqC2LHQ/H
uKphW+1lcgby4VXz/XdZqCHK7JxtFXLfxhaVSqOCzt5wh2lks417smubVcD2
dHQ7XUxQI/RzCv5mFZSUrvIoRq7a3ZHft0IFfR+WbO9Env7eP7tDpQS7Vvku
4xKCmj54n6+sV8KQS3NwHvKSdmZD2AYlGF0WhjQhi+nedVcWKGHTDO+YBPlV
Uu+iDJkCLtRwTpBLCWrNMof9OUUKEC+KjfVEzjtWLhGcUsCLSFr8cWSd9GNZ
1D4FuNl5JlcjF+fXjZouVkDEWZcz/chxYS4DsjE55I9+liZHdvmzZ0t4hxw6
PSwylgsIaoVVwVNugRze8o0ztyC7l6qPMBLk8KlelxOMzKwoD5T6yeGb4Elu
CrKraqW9ap0c2HekP5Uik8QNkZQvZ6DE4hGvC9vyfFDKpSlQb9jxfgzb9wcl
pW8SfLe1BpuUIWv3OjfHTIDA37nVHvv23bb+Ha9BS6+y9sMO/VEe6v4K/E6u
4TCxc+wcM/3H4Xrm1edc7G3LasISx2BvfTp/EJuo6B54LYMbv+jndNiFTN/7
zjKYHWKHWF9HblkAtPQXUPkhjByKrTcrcYNR+MfXXTCBbXblD/3fz2E/TUwy
LUeOtslLGpFCdbzjMSdsdSCZLHkGB3lWtmzsf9qMBoafQu24plyPnXjAcuDz
J0BLrRUSFcjm89URJn0gzl+30BmbWiau5DyExUJ+1D5sr4PaGE0PNPdn2fOw
/Sji0ncPgFgZWWNTifzVvnlTrHY4vvEvUy/sgLLzHhVt0Op5ICYCW+Dgz5e1
QETUDqcag62Io4mNcJfTmtuPvVZ+1q23HpZdcp6ewY7r3751pwjam9bUuQqR
Uyu7TaRlsOLh1aVB2KMX5tKZBRA9vCQuGZuUEx997iJ0zqQPFBn608x5jYlg
OW+O0m7ISwcjtydAjGXC5VFDnhL5mpkLXfZvFEZVOKfF+FzgATNA0uCNTel5
ZKOpgAcM/+XR2GGyF17t1WB9qjshx5D/xs04UwfdxWLX37HXmiXUscSweorb
fPgmcv3aOWbRPWjfwu05bbDDptVNHUA7e0lSiE2RrxeMd4LA6uKsFJt7l8nT
doGdT7bHkWq8T1z2ZH4POFRkdB+pQf6CDoHPfoWtoaeHjt5CZh/lLu0ZgsDH
DC3tNvIEOSJ+gQwk/S/b0rA5PuzMr2UQ1stIu4EtktNZ8TKIu8cwe4Pt7hQi
HJbBRSHDNqkBeZj14Wn9S3jEYezNbkQ2Wbi+KWAcvO0YlXeakA8NpdyKnwD3
JPpB81bkVmMhdc80jNizJE5dBDXV9pUp+RM1JAex2nY//P++/gc4Cm0c
      "]]}, 
    {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
     1.], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQfWnJp7S0ND4HBjD4YP9MWqIpOwvB/z3Jdm5BHoJ/
x2rLZ/VyBL/4q0WOdz2Cn/1Li82tHcGX3ulx4G0/gt/QVTKHcQaCP0/0zIxD
CxB82dcTtkWtRPADLyd/i9uI4NuWJoUJ7ELw72vm39A9hOA/0nhZrXQKwZ/7
sM/+yCUEn3etk+qlWwi+mZGSdu9jBP8AY36Q/BsE///jk7NlvyD43+oDWE/+
QfAX6z2d8ICFH87nmL7UZikvgn/O8zKnoxiC78nP/9NDDsGv7Svj+KeG4Kcp
vLGU10fwN/w51yNujuBvmnT3/x57BD/L+teUc+4I/q25Tl69AQj+aq8fCsqR
CL4h1x5J1UQEv6B5tdGVTAQ/hX9l7vtCBH/nU+FTDysR/GOlq9wamxD8Tgn/
pz1dCD5LqfwS18kIvsmTvy1ZsxH8o3M929MWI/j8ggdX8q9B8Pmmu71T2YKk
/tr3oOd7EPy7CWI3G44i+e+vU2PbWST/hcz2tLyG4OfsZTSJuIcUP4VX7f2e
Ifix965kf3yH4KfHPdrJ8B3B/8e/OqbhN4I/5WDx////EXwA8cvu0Q==
      "]]}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{3.8, 0.},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None},
  PlotRange->{{3.8, 3.999999995918367}, {0, 1.5}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.666462157374928*^9, 3.666462183370925*^9}, {
  3.666462215891034*^9, 3.6664622428980155`*^9}, {3.666504034827462*^9, 
  3.666504058026111*^9}, {3.666504088164032*^9, 3.6665041131262684`*^9}, {
  3.6665042436510677`*^9, 
  3.6665042486723433`*^9}},ExpressionUUID->"65a16f4c-9f9d-4cf5-b0b5-\
b3fc990d42f0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"G", "'"}], "[", "x", "]"}], "//", "Simplify"}]], "Input",
 CellChangeTimes->{{3.666504268560487*^9, 
  3.66650428232738*^9}},ExpressionUUID->"1f4e7dc9-756c-41ed-a923-\
2ac934f5c70f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   SuperscriptBox["a", "3"]}], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "1"}], "+", 
    RowBox[{"2", " ", "x"}]}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{"1", "+", 
    RowBox[{"2", " ", "a", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", "x"}], "+", 
    RowBox[{"2", " ", 
     SuperscriptBox["a", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", "x"}], "+", 
    RowBox[{"6", " ", 
     SuperscriptBox["a", "3"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "x"}], ")"}], "2"], " ", 
     SuperscriptBox["x", "2"]}], "+", 
    RowBox[{"4", " ", 
     SuperscriptBox["a", "4"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "x"}], ")"}], "3"], " ", 
     SuperscriptBox["x", "3"]}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.6665042722964907`*^9, 
  3.666504283147011*^9}},ExpressionUUID->"858cafe1-c560-4cd9-9d54-\
52797a27f9f1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FindRoot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Abs", "[", 
     RowBox[{"Simplify", "[", 
      RowBox[{
       RowBox[{
        SuperscriptBox["G", "\[Prime]",
         MultilineFunction->None], "[", "x", "]"}], "/.", "\[VeryThinSpace]", 
       RowBox[{
       "fixed3", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}]}], 
      "]"}], "]"}], "\[Equal]", "1"}], ",", 
   RowBox[{"{", 
    RowBox[{"a", ",", "3.825", ",", "3.9"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.666462275361756*^9, 3.6664622952302933`*^9}, {
   3.6664623449367967`*^9, 3.666462394339924*^9}, {3.6665039197712297`*^9, 
   3.666503961361658*^9}, {3.666504151222389*^9, 3.6665041683280935`*^9}, {
   3.6665042527465963`*^9, 3.6665042529941616`*^9}, {3.6665043522089777`*^9, 
   3.6665043574401817`*^9}, {3.66650452175618*^9, 3.666504548253269*^9}, 
   3.6671989745799847`*^9},ExpressionUUID->"2746abc9-a648-4d1a-828e-\
e34680563fd4"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"a", "\[Rule]", "3.828427124740002`"}], "}"}]], "Output",
 CellChangeTimes->{{3.6665041518229084`*^9, 3.666504169447485*^9}, 
   3.6665042017259283`*^9, 3.6665042537788215`*^9, {3.6665043542141266`*^9, 
   3.666504358373262*^9}, {3.6665045242069497`*^9, 
   3.6665045488909535`*^9}},ExpressionUUID->"655ec357-046e-497a-bb0b-\
d9f63fbc8936"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FindRoot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Abs", "[", 
     RowBox[{"Simplify", "[", 
      RowBox[{
       RowBox[{
        SuperscriptBox["G", "\[Prime]",
         MultilineFunction->None], "[", "x", "]"}], "/.", "\[VeryThinSpace]", 
       RowBox[{
       "fixed3", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}]}], 
      "]"}], "]"}], "\[Equal]", "1"}], ",", 
   RowBox[{"{", 
    RowBox[{"a", ",", "3.83", ",", "3.9"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.666462275361756*^9, 3.6664622952302933`*^9}, {
   3.6664623449367967`*^9, 3.666462394339924*^9}, {3.6665039197712297`*^9, 
   3.666503961361658*^9}, {3.666504151222389*^9, 3.6665041683280935`*^9}, {
   3.6665042527465963`*^9, 3.6665042529941616`*^9}, {3.6665043522089777`*^9, 
   3.6665043574401817`*^9}, {3.666504401573447*^9, 3.6665044031962395`*^9}, 
   3.6671989863456583`*^9},ExpressionUUID->"53a2fabd-9f51-4979-99ac-\
df6e1541690c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"a", "\[Rule]", "3.841499007543501`"}], "}"}]], "Output",
 CellChangeTimes->{{3.6665041518229084`*^9, 3.666504169447485*^9}, 
   3.6665042017259283`*^9, 3.6665042537788215`*^9, {3.6665043542141266`*^9, 
   3.666504358373262*^9}, 
   3.6665044037437286`*^9},ExpressionUUID->"8d55b9eb-e3a2-421c-a35b-\
2a6478633935"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
ScreenStyleEnvironment->"SlideShow",
WindowSize->{1280, 646},
WindowMargins->{{-8, Automatic}, {Automatic, -8}},
Magnification:>1.5 Inherited,
FrontEndVersion->"11.2 for Microsoft Windows (64-bit) (September 10, 2017)",
StyleDefinitions->"Modelstyle-EN.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "SlideShowHeader"->{
  Cell[22897, 550, 164, 3, 1, "SlideShowNavigationBar",ExpressionUUID->"078bf9db-d061-4eff-a5e2-c47c74087969",
   CellTags->"SlideShowHeader"],
  Cell[27871, 700, 164, 3, 1, "SlideShowNavigationBar",ExpressionUUID->"f3142f53-fd39-459c-bf4d-e4e75e5e8bf4",
   CellTags->"SlideShowHeader"],
  Cell[34592, 852, 164, 3, 1, "SlideShowNavigationBar",ExpressionUUID->"a64bc670-21da-485e-ad53-eae2faae9623",
   CellTags->"SlideShowHeader"],
  Cell[57626, 1300, 164, 3, 1, "SlideShowNavigationBar",ExpressionUUID->"d9809558-7f51-4ab7-9e58-ae791e15c0b8",
   CellTags->"SlideShowHeader"],
  Cell[63066, 1476, 164, 3, 1, "SlideShowNavigationBar",ExpressionUUID->"8686adae-52fd-470f-947a-570294c2fb9c",
   CellTags->"SlideShowHeader"],
  Cell[78893, 1861, 164, 3, 1, "SlideShowNavigationBar",ExpressionUUID->"ca7c37b9-ce5c-41dd-ab63-4464461803f7",
   CellTags->"SlideShowHeader"],
  Cell[95426, 2349, 164, 3, 1, "SlideShowNavigationBar",ExpressionUUID->"9769cd7c-2773-46a7-9a36-6a8eefbc6d8a",
   CellTags->"SlideShowHeader"],
  Cell[112529, 2762, 164, 3, 1, "SlideShowNavigationBar",ExpressionUUID->"cbc3c5df-4906-42f9-8237-9ebae936d942",
   CellTags->"SlideShowHeader"],
  Cell[202400, 5260, 164, 3, 1, "SlideShowNavigationBar",ExpressionUUID->"26fb64f6-ea2f-479c-9140-f40d938e25c1",
   CellTags->"SlideShowHeader"],
  Cell[207504, 5410, 164, 3, 1, "SlideShowNavigationBar",ExpressionUUID->"a6c9b179-400d-4241-a61d-e4118010bb26",
   CellTags->"SlideShowHeader"],
  Cell[343589, 7836, 164, 3, 1, "SlideShowNavigationBar",ExpressionUUID->"d0373661-6755-475b-a54d-c4db8d32e42f",
   CellTags->"SlideShowHeader"],
  Cell[360066, 8230, 164, 3, 1, "SlideShowNavigationBar",ExpressionUUID->"63f5e7e2-1424-4262-a3f5-4201c21b578f",
   CellTags->"SlideShowHeader"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"SlideShowHeader", 383684, 8832}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 528, 8, 161, "Title",ExpressionUUID->"eea58413-d6b7-4c4d-9294-1f85a4236412"],
Cell[CellGroupData[{
Cell[1133, 34, 124, 3, 56, "Math-Init",ExpressionUUID->"ab5b6f40-cb6e-4951-913e-baf4652f09f5"],
Cell[1260, 39, 8553, 191, 1255, "Input",ExpressionUUID->"7a1feb04-a410-4086-9399-70c424738fdf"],
Cell[9816, 232, 9471, 211, 1255, "Input",ExpressionUUID->"ba4c7762-8b21-40d3-ae72-ab990dabb688"]
}, Closed]],
Cell[CellGroupData[{
Cell[19324, 448, 156, 3, 64, "Section",ExpressionUUID->"67479b9c-0e92-44fd-aee2-d9fcf5e4afc4"],
Cell[CellGroupData[{
Cell[19505, 455, 226, 4, 53, "Item",ExpressionUUID->"589fdfda-c7f2-4897-875e-36d23aaa08aa"],
Cell[19734, 461, 296, 5, 53, "Item",ExpressionUUID->"3a70ac28-dcdc-4f4e-b62d-5ae6c5ebc569"],
Cell[20033, 468, 276, 4, 53, "Item",ExpressionUUID->"84177770-89fb-43b0-8fcd-663a3673e6c4"],
Cell[20312, 474, 315, 5, 53, "Item",ExpressionUUID->"4d7714be-9244-4518-8e8b-a8e95fd351af"],
Cell[20630, 481, 346, 6, 53, "Item",ExpressionUUID->"f7c852c7-9e6a-430e-ba5e-d0d6cfcde192"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[21025, 493, 210, 4, 83, "Section",ExpressionUUID->"ef7beea1-7b5e-46cb-8907-fd7560a70c14"],
Cell[21238, 499, 761, 18, 65, "Text",ExpressionUUID->"1eed0013-5732-4c05-a337-271068afabf4"],
Cell[22002, 519, 283, 8, 94, "Input",ExpressionUUID->"a8fcacff-2a8e-4876-bd78-3ae365d02a17"],
Cell[22288, 529, 560, 15, 65, "Text",ExpressionUUID->"a0e73019-50c1-41bd-91db-7c4bdd6c077c"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[22897, 550, 164, 3, 1, "SlideShowNavigationBar",ExpressionUUID->"078bf9db-d061-4eff-a5e2-c47c74087969",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[23086, 557, 159, 3, 123, "Section",ExpressionUUID->"a13a4102-9e60-446e-92e7-a76351ac8ac2"],
Cell[CellGroupData[{
Cell[23270, 564, 272, 7, 138, "Input",ExpressionUUID->"f955d6a9-0285-49a9-968c-78b95fca733f"],
Cell[23545, 573, 385, 12, 156, "Output",ExpressionUUID->"f8ebce39-df62-45ac-b3cb-2dbcced7b315"]
}, Open  ]],
Cell[23945, 588, 562, 16, 72, "Th-Env",ExpressionUUID->"09f5e7fd-c01a-41e7-ac7b-2bf220a8a302"],
Cell[24510, 606, 354, 10, 72, "Th-Env",ExpressionUUID->"862d649e-c5cd-4b3b-9a18-fd465f6c944f"],
Cell[24867, 618, 933, 21, 129, "Text",ExpressionUUID->"b4ef1046-7dd7-44b7-a807-ac33e016ebcf"],
Cell[25803, 641, 936, 23, 129, "Text",ExpressionUUID->"0413c394-d894-498d-aa08-55419d7867a8"],
Cell[26742, 666, 1080, 28, 129, "Text",ExpressionUUID->"31879629-165e-4b8d-8527-80512bd2bba5"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[27871, 700, 164, 3, 1, "SlideShowNavigationBar",ExpressionUUID->"f3142f53-fd39-459c-bf4d-e4e75e5e8bf4",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[28060, 707, 170, 3, 121, "MainSection",ExpressionUUID->"e02fe8bb-0e54-4c8c-9e07-c77bdb2213c6"],
Cell[CellGroupData[{
Cell[28255, 714, 725, 18, 138, "Input",ExpressionUUID->"eea8586a-8f20-4825-99e9-98e9aae986ac"],
Cell[28983, 734, 5548, 111, 816, "Output",ExpressionUUID->"de6489d9-6f47-4c5e-8bba-18ddd819db79"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[34592, 852, 164, 3, 1, "SlideShowNavigationBar",ExpressionUUID->"a64bc670-21da-485e-ad53-eae2faae9623",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[34781, 859, 203, 3, 127, "MainSection",ExpressionUUID->"50e6e94d-6c86-45b9-ae5e-aadd7fc9d863"],
Cell[CellGroupData[{
Cell[35009, 866, 492, 14, 172, "Input",ExpressionUUID->"4941a186-ea28-4a3f-82eb-b8e537657922"],
Cell[35504, 882, 383, 12, 135, "Output",ExpressionUUID->"f8b4815b-738f-4921-8499-ccb879ba8702"]
}, Open  ]],
Cell[35902, 897, 562, 16, 76, "Th-Env",ExpressionUUID->"2c94cb80-9710-4017-934a-3f8008e197a0"],
Cell[CellGroupData[{
Cell[36489, 917, 723, 20, 114, "Input",ExpressionUUID->"ee4ee5c9-592c-4e8d-a564-afaad77dda67"],
Cell[37215, 939, 20350, 354, 864, "Output",ExpressionUUID->"e403a0f6-22ee-4ae1-8a27-2e593bc4d3d4"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[57626, 1300, 164, 3, 1, "SlideShowNavigationBar",ExpressionUUID->"d9809558-7f51-4ab7-9e58-ae791e15c0b8",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[57815, 1307, 221, 4, 132, "Section",ExpressionUUID->"5e0b106c-8eb6-4301-81ba-c75426d3de7e"],
Cell[CellGroupData[{
Cell[58061, 1315, 161, 3, 96, "Subsection",ExpressionUUID->"ad8434aa-dffa-4c1a-8422-5bf6a4ce8580"],
Cell[CellGroupData[{
Cell[58247, 1322, 359, 10, 114, "Input",ExpressionUUID->"f0489735-dbb1-4fdc-94ff-66574e248099"],
Cell[58609, 1334, 181, 3, 91, "Output",ExpressionUUID->"a85e4b09-7a87-4b21-8a7b-15b7790db432"]
}, Open  ]],
Cell[58805, 1340, 769, 23, 262, "Text-Framed",ExpressionUUID->"30d95502-ddbb-4434-b806-17a3501f0b88"]
}, Open  ]],
Cell[CellGroupData[{
Cell[59611, 1368, 370, 10, 118, "Subsection",ExpressionUUID->"4da54dfe-4a6c-4db5-b4ce-3056687d2b36"],
Cell[CellGroupData[{
Cell[60006, 1382, 446, 11, 114, "Input",ExpressionUUID->"0de29fcf-3d0f-4d23-881c-b23f461046bd"],
Cell[60455, 1395, 255, 5, 91, "Output",ExpressionUUID->"c574fa0b-1bd7-4951-b0ca-d12d3c830cf7"]
}, Open  ]],
Cell[60725, 1403, 1422, 38, 483, "Text-Framed",ExpressionUUID->"76a9127d-8e47-4f40-8bb8-96e142dbb9ab"]
}, Open  ]],
Cell[CellGroupData[{
Cell[62184, 1446, 184, 3, 96, "Subsection",ExpressionUUID->"d70b952a-5c2a-47f6-a046-32695ffb3773"],
Cell[62371, 1451, 634, 18, 117, "Text-Theorem",ExpressionUUID->"d843946f-8a9f-4005-904c-23fb69112ebd"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[63066, 1476, 164, 3, 1, "SlideShowNavigationBar",ExpressionUUID->"8686adae-52fd-470f-947a-570294c2fb9c",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[63255, 1483, 553, 17, 127, "MainSection",ExpressionUUID->"41081f2c-4611-4eb8-88e6-279db2fa0710"],
Cell[CellGroupData[{
Cell[63833, 1504, 163, 3, 132, "Section",ExpressionUUID->"c9612be1-97da-4451-81ef-2d37ec18c6a1"],
Cell[CellGroupData[{
Cell[64021, 1511, 8799, 216, 1297, "Input",ExpressionUUID->"3306f86e-78ea-46bd-98dc-687ee54e11c9"],
Cell[72823, 1729, 6000, 124, 1188, "Output",ExpressionUUID->"36d2fb56-22e1-4dd8-9cee-48d2b3794048"]
}, {2}]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[78893, 1861, 164, 3, 1, "SlideShowNavigationBar",ExpressionUUID->"ca7c37b9-ce5c-41dd-ab63-4464461803f7",
 CellTags->"SlideShowHeader"],
Cell[79060, 1866, 666, 19, 132, "Section",ExpressionUUID->"ca6acd2b-822e-4a6d-ae70-c884307dbdf6"],
Cell[CellGroupData[{
Cell[79751, 1889, 670, 18, 90, "Section",ExpressionUUID->"74ff9998-209c-4080-a8f2-9b55345d0f83"],
Cell[CellGroupData[{
Cell[80446, 1911, 3728, 95, 13438, "Input",ExpressionUUID->"ca6ac017-90a4-4987-b022-e8f5baff3eba"],
Cell[84177, 2008, 3246, 68, 1548, "Output",ExpressionUUID->"9678523a-33b5-41d5-bbb8-b17deb506ef0"]
}, {2}]],
Cell[87435, 2079, 384, 9, 114, "Input",ExpressionUUID->"3c83716c-a366-4107-ad6c-c4b80cde5b9f"],
Cell[CellGroupData[{
Cell[87844, 2092, 426, 10, 114, "Input",ExpressionUUID->"8e8f16b7-fd7c-466a-8782-71fcaa160e03"],
Cell[88273, 2104, 606, 19, 99, "Output",ExpressionUUID->"ddc460c6-be0c-40e6-bd46-729d93fc4ba5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[88916, 2128, 393, 11, 114, "Input",ExpressionUUID->"48ec6046-3c8c-4611-8ca9-11aa14e9fcc9"],
Cell[89312, 2141, 1027, 33, 168, "Output",ExpressionUUID->"5e5b3876-186c-4469-9a7b-5cc0f7b6ea04"]
}, Open  ]],
Cell[CellGroupData[{
Cell[90376, 2179, 198, 3, 96, "Subsection",ExpressionUUID->"c51effa6-a56c-444b-89cc-ce653e4e71df"],
Cell[90577, 2184, 794, 26, 171, "Text",ExpressionUUID->"5a3875ea-334c-420b-b9ab-685886b9a0e9"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[91420, 2216, 286, 4, 132, "Section",ExpressionUUID->"766354ed-ea65-4961-a08b-afd7c0f568c2"],
Cell[CellGroupData[{
Cell[91731, 2224, 405, 10, 114, "Input",ExpressionUUID->"18bfb6d5-d02c-41b0-9769-692ccea72427"],
Cell[92139, 2236, 209, 6, 99, "Output",ExpressionUUID->"9f07ec11-ba4a-4a81-b0e1-fb364cb209b7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[92385, 2247, 297, 9, 114, "Input",ExpressionUUID->"b376dd66-17c5-4459-bf97-51df8c70b7c5"],
Cell[92685, 2258, 211, 6, 99, "Output",ExpressionUUID->"750f6602-e9e5-4bcc-989a-206b915db5d2"]
}, Open  ]],
Cell[92911, 2267, 422, 14, 108, "Text",ExpressionUUID->"f1fa4261-b633-4aa2-95bd-120f88d684aa"],
Cell[CellGroupData[{
Cell[93358, 2285, 531, 13, 127, "Input",ExpressionUUID->"787cdc9e-1132-4e25-a91c-f5b09be9c6ec"],
Cell[93892, 2300, 276, 7, 100, "Output",ExpressionUUID->"a7fe42c3-933a-4465-b48f-864357bea799"]
}, Open  ]],
Cell[94183, 2310, 1194, 33, 276, "Text-Framed",ExpressionUUID->"390e571d-2f59-4a82-b690-66df37d62c38"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[95426, 2349, 164, 3, 1, "SlideShowNavigationBar",ExpressionUUID->"9769cd7c-2773-46a7-9a36-6a8eefbc6d8a",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[95615, 2356, 670, 19, 127, "MainSection",ExpressionUUID->"06a44d89-7dd9-4801-a4e1-a095b049ddf6"],
Cell[CellGroupData[{
Cell[96310, 2379, 163, 3, 132, "Section",ExpressionUUID->"e05ee1a0-5d5e-4ddb-bd13-8806b0398594"],
Cell[CellGroupData[{
Cell[96498, 2386, 9507, 233, 1354, "Input",ExpressionUUID->"cdaede1f-e62a-40df-9e80-d03d4ea12417"],
Cell[106008, 2621, 6451, 133, 1188, "Output",ExpressionUUID->"1720b1b9-c98a-4723-bb57-5c67f0024ea7"]
}, {2}]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[112529, 2762, 164, 3, 1, "SlideShowNavigationBar",ExpressionUUID->"cbc3c5df-4906-42f9-8237-9ebae936d942",
 CellTags->"SlideShowHeader"],
Cell[112696, 2767, 757, 22, 145, "Section",ExpressionUUID->"91d6d3c7-f730-4f4c-b970-9560a8259dff"],
Cell[CellGroupData[{
Cell[113478, 2793, 1134, 34, 90, "Section",ExpressionUUID->"0080663e-3626-4be5-ac00-0fe4873c967a"],
Cell[CellGroupData[{
Cell[114637, 2831, 4643, 117, 3573, "Input",ExpressionUUID->"1e8ad4d9-0dde-4582-86a8-f259d93eb8ca"],
Cell[119283, 2950, 5073, 96, 1548, "Output",ExpressionUUID->"d2495662-e14d-4ba2-a06b-814bb95f1f02"]
}, {2}]],
Cell[124368, 3049, 384, 9, 114, "Input",ExpressionUUID->"29243365-51e3-4c6a-808f-835efd253d13"],
Cell[CellGroupData[{
Cell[124777, 3062, 397, 9, 114, "Input",ExpressionUUID->"12b224bf-bb21-420d-9f6e-55225958c7a0"],
Cell[125177, 3073, 539, 15, 105, "Output",ExpressionUUID->"9f7d830e-9078-4b3b-bd7c-0ecc0617d60a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[125753, 3093, 446, 10, 114, "Input",ExpressionUUID->"aef73229-32c9-40bc-8de1-8aa15eccc635"],
Cell[126202, 3105, 2540, 82, 172, "Output",ExpressionUUID->"e78b31e5-eaa9-4f39-8283-2b8f6bb71da4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[128779, 3192, 290, 7, 114, "Input",ExpressionUUID->"07a67429-1081-4b80-b976-c9b7e66d881a"],
Cell[129072, 3201, 5335, 164, 303, "Output",ExpressionUUID->"640c1271-5f13-476f-b441-967e53aca81d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[134444, 3370, 517, 12, 114, "Input",ExpressionUUID->"dc00dcac-41eb-4169-ae30-ec6ea02b8d35"],
Cell[134964, 3384, 61236, 1715, 2620, "Output",ExpressionUUID->"efb22b9b-0d8b-47c0-968b-9da399015d43"]
}, Closed]],
Cell[CellGroupData[{
Cell[196237, 5104, 239, 4, 72, "Subsection",ExpressionUUID->"9f7c623d-80df-40bf-9acb-4e5d30b65fea"],
Cell[196479, 5110, 223, 4, 76, "Th-Env",ExpressionUUID->"7c5051fb-c118-4da5-b7bc-abaed7493f55"],
Cell[CellGroupData[{
Cell[196727, 5118, 1167, 32, 114, "Input",ExpressionUUID->"c84c34ca-1565-4faa-b10b-a33407c2a517"],
Cell[197897, 5152, 3610, 71, 828, "Output",ExpressionUUID->"1694242d-35d3-4a2b-b932-6aca4f3b63e0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[201544, 5228, 581, 17, 114, "Input",ExpressionUUID->"b198833e-b2cb-4c05-aa07-8ff7ff0ecc75"],
Cell[202128, 5247, 199, 5, 91, "Output",ExpressionUUID->"9589a0f3-3aec-4292-95e3-f758994349e4"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[202400, 5260, 164, 3, 1, "SlideShowNavigationBar",ExpressionUUID->"26fb64f6-ea2f-479c-9140-f40d938e25c1",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[202589, 5267, 453, 13, 139, "MainSection",ExpressionUUID->"b9a3ca56-2f01-4f63-8bed-d4b83fc2ab98"],
Cell[CellGroupData[{
Cell[203067, 5284, 2357, 58, 5001, "Input",ExpressionUUID->"3f39f49d-4e29-44fc-9162-c52964e8cfe9"],
Cell[205427, 5344, 2019, 59, 1098, "Output",ExpressionUUID->"cea2566a-4e71-4a9f-8a77-c69cb68db779"]
}, {2}]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[207504, 5410, 164, 3, 1, "SlideShowNavigationBar",ExpressionUUID->"a6c9b179-400d-4241-a61d-e4118010bb26",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[207693, 5417, 206, 3, 181, "MainSection",ExpressionUUID->"0c32ff84-660f-466b-bdd3-500e5776ff5f"],
Cell[CellGroupData[{
Cell[207924, 5424, 53861, 1001, 1314, "Input",ExpressionUUID->"86a6abb2-26cb-4e03-8afe-93498596d71b"],
Cell[261788, 6427, 81743, 1402, 1818, "Output",ExpressionUUID->"b6e50f83-004f-4382-9433-7008c35ec32b"]
}, {2}]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[343589, 7836, 164, 3, 1, "SlideShowNavigationBar",ExpressionUUID->"d0373661-6755-475b-a54d-c4db8d32e42f",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[343778, 7843, 666, 18, 181, "MainSection",ExpressionUUID->"f7b3abf6-ea3a-40d6-90e6-e52ff1134ea3"],
Cell[CellGroupData[{
Cell[344469, 7865, 163, 3, 184, "Section",ExpressionUUID->"63d2bd0b-736e-4df3-a57c-3eee92cfbbf7"],
Cell[CellGroupData[{
Cell[344657, 7872, 8832, 217, 4758, "Input",ExpressionUUID->"3239d131-ef07-4bbc-ac70-84cba36b156d"],
Cell[353492, 8091, 6504, 131, 1300, "Output",ExpressionUUID->"51265c44-9aa6-4851-98b1-933aef44586d"]
}, {2}]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[360066, 8230, 164, 3, 1, "SlideShowNavigationBar",ExpressionUUID->"63f5e7e2-1424-4262-a3f5-4201c21b578f",
 CellTags->"SlideShowHeader"],
Cell[360233, 8235, 992, 27, 324, "Section",ExpressionUUID->"134e4c83-4575-474d-8c9f-642a54e2414a"],
Cell[CellGroupData[{
Cell[361250, 8266, 777, 21, 148, "Section",ExpressionUUID->"9422580b-c4fb-49e5-9a18-f7ff87056a25"],
Cell[CellGroupData[{
Cell[362052, 8291, 5166, 115, 2295, "Input",ExpressionUUID->"a087c045-c64f-4fc7-b484-8f2e0b71ea9a"],
Cell[367221, 8408, 3736, 75, 1651, "Output",ExpressionUUID->"e451cb9b-fdc9-4830-8714-a729b617ce03"]
}, {2}]],
Cell[CellGroupData[{
Cell[370991, 8488, 239, 4, 153, "Subsection",ExpressionUUID->"dc2de92b-8f33-4155-8aca-1b0f85912b3f"],
Cell[371233, 8494, 223, 4, 108, "Th-Env",ExpressionUUID->"23c7dfc1-9f11-4658-84d8-cd95498d8878"],
Cell[371459, 8500, 384, 9, 207, "Input",ExpressionUUID->"109bd739-60ce-4162-8a8b-3637372cff51"],
Cell[CellGroupData[{
Cell[371868, 8513, 513, 13, 207, "Input",ExpressionUUID->"0f95c205-31da-418d-9e87-b06913cd56d8"],
Cell[372384, 8528, 1790, 59, 297, "Output",ExpressionUUID->"4a1e50fb-bf21-41c5-9afd-789178782acc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[374211, 8592, 1296, 30, 207, "Input",ExpressionUUID->"59e1b133-8044-45d7-b573-a33673c1d768"],
Cell[375510, 8624, 3678, 72, 886, "Output",ExpressionUUID->"65a16f4c-9f9d-4cf5-b0b5-b3fc990d42f0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[379225, 8701, 229, 6, 207, "Input",ExpressionUUID->"1f4e7dc9-756c-41ed-a923-2ac934f5c70f"],
Cell[379457, 8709, 1079, 35, 195, "Output",ExpressionUUID->"858cafe1-c560-4cd9-9d54-52797a27f9f1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[380573, 8749, 952, 21, 207, "Input",ExpressionUUID->"2746abc9-a648-4d1a-828e-e34680563fd4"],
Cell[381528, 8772, 379, 7, 177, "Output",ExpressionUUID->"655ec357-046e-497a-bb0b-d9f63fbc8936"]
}, Open  ]],
Cell[CellGroupData[{
Cell[381944, 8784, 954, 21, 207, "Input",ExpressionUUID->"53a2fabd-9f51-4979-99ac-df6e1541690c"],
Cell[382901, 8807, 353, 7, 177, "Output",ExpressionUUID->"8d55b9eb-e3a2-421c-a35b-2a6478633935"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

