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

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

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     19747,        469]
NotebookOptionsPosition[     18534,        439]
NotebookOutlinePosition[     18887,        455]
CellTagsIndexPosition[     18844,        452]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Funzioni", " ", "esponenziali"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"Manipulate", "[", 
   RowBox[{
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"a", "^", "x"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"x", ",", 
        RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"x", ",", "y"}], "}"}]}], ",", 
      RowBox[{"AxesOrigin", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0"}], "}"}]}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "5"}], "}"}]}], "}"}]}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "2"}], "}"}], ",", "0.1", ",", "10", ",", 
      RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.748025362545425*^9, 3.74802536259582*^9}, {
  3.7480253972546473`*^9, 3.7480255106603003`*^9}, {3.7480255476502867`*^9, 
  3.748025604321108*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"0a74e7a9-0e3d-45a5-b0c2-1e1340ab8ad3"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a$$ = 2, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`a$$], 2}, 0.1, 10}}, Typeset`size$$ = {
    720., {243., 253.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`a$2180$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`a$$ = 2}, 
      "ControllerVariables" :> {
        Hold[$CellContext`a$$, $CellContext`a$2180$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Plot[$CellContext`a$$^$CellContext`x, {$CellContext`x, -5, 5}, 
        AxesLabel -> {$CellContext`x, $CellContext`y}, AxesOrigin -> {0, 0}, 
        PlotRange -> {{-5, 5}, {0, 5}}], 
      "Specifications" :> {{{$CellContext`a$$, 2}, 0.1, 10, Appearance -> 
         "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{806., {322., 334.}},
     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.748219127772767*^9, 3.7482191451539288`*^9}, 
   3.7482203998397827`*^9, 3.748259478212944*^9, 3.748312377978281*^9, 
   3.7507489768288603`*^9, 3.750752320483036*^9, 3.750757804116632*^9, 
   3.750761040796851*^9},
 CellLabel->"Out[1]=",ExpressionUUID->"908b4032-1b9b-4892-971c-7250fddac53f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Funzioni", " ", "logaritmiche"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"Manipulate", "[", 
   RowBox[{
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"Log", "[", 
       RowBox[{"a", ",", "x"}], "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"x", ",", "0", ",", "5"}], "}"}], ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"x", ",", "y"}], "}"}]}], ",", 
      RowBox[{"AxesOrigin", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0"}], "}"}]}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "5"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "}"}]}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "2"}], "}"}], ",", "0.01", ",", "5", ",", 
      RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.748032591082532*^9, 3.748032638024645*^9}, {
  3.748032693906247*^9, 3.7480327409141397`*^9}, {3.748032777110394*^9, 
  3.748032778701797*^9}, {3.7482192479170513`*^9, 3.748219286035118*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"9da291ec-ca03-4889-acce-33e51f548db5"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a$$ = 2, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`a$$], 2}, 0.01, 5}}, Typeset`size$$ = {
    720., {217., 228.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`a$3433$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`a$$ = 2}, 
      "ControllerVariables" :> {
        Hold[$CellContext`a$$, $CellContext`a$3433$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Plot[
        Log[$CellContext`a$$, $CellContext`x], {$CellContext`x, 0, 5}, 
        AxesLabel -> {$CellContext`x, $CellContext`y}, AxesOrigin -> {0, 0}, 
        PlotRange -> {{0, 5}, {-5, 5}}], 
      "Specifications" :> {{{$CellContext`a$$, 2}, 0.01, 5, Appearance -> 
         "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{806., {296., 308.}},
     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.7480326410992823`*^9, {3.748032695737776*^9, 3.74803274168929*^9}, 
   3.7482191477156887`*^9, 3.748219180299892*^9, {3.748219253297518*^9, 
   3.748219286541389*^9}, 3.748219364056198*^9, 3.7482204025503263`*^9, 
   3.748259482792203*^9, 3.7483123825497923`*^9, 3.750748980735647*^9, 
   3.7507523378124313`*^9, 3.750757806364801*^9},
 CellLabel->"Out[2]=",ExpressionUUID->"705e417f-9e45-4e4a-9ca8-0b4c26092c52"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Funzioni", " ", "esponenziali", " ", "e", " ", "logaritmiche"}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{"Manipulate", "[", 
   RowBox[{
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Legended", "[", 
         RowBox[{
          RowBox[{"a", "^", "x"}], ",", "\"\<y=a^x\>\""}], "]"}], ",", 
        RowBox[{"Legended", "[", 
         RowBox[{
          RowBox[{"Log", "[", 
           RowBox[{"a", ",", "x"}], "]"}], ",", "\"\<y=Log[a,x]\>\""}], "]"}],
         ",", "x"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", 
        RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"x", ",", "y"}], "}"}]}], ",", 
      RowBox[{"AxesOrigin", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0"}], "}"}]}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", " ", 
       RowBox[{"{", 
        RowBox[{"Black", ",", "Red", ",", 
         RowBox[{"{", 
          RowBox[{"Black", ",", "Dashed"}], "}"}]}], "}"}]}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "2"}], "}"}], ",", "0.1", ",", "5", ",", 
      RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.748032794390596*^9, 3.7480328252852907`*^9}, {
  3.748032877394144*^9, 3.748032880770447*^9}, {3.7482204309571877`*^9, 
  3.7482204826068296`*^9}, {3.750752129458459*^9, 3.750752287018572*^9}, {
  3.750752343648864*^9, 3.750752356696067*^9}},
 CellLabel->
  "In[139]:=",ExpressionUUID->"c61a17e2-2c83-48d8-87b7-aecc5282d137"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a$$ = 2, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`a$$], 2}, 0.1, 5}}, Typeset`size$$ = {
    946., {358., 370.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`a$492371$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`a$$ = 2}, 
      "ControllerVariables" :> {
        Hold[$CellContext`a$$, $CellContext`a$492371$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Plot[{
         Legended[$CellContext`a$$^$CellContext`x, "y=a^x"], 
         Legended[
          Log[$CellContext`a$$, $CellContext`x], 
          "y=Log[a,x]"], $CellContext`x}, {$CellContext`x, -5, 5}, 
        AxesLabel -> {$CellContext`x, $CellContext`y}, AxesOrigin -> {0, 0}, 
        PlotRange -> {{-5, 5}, {-5, 5}}, AspectRatio -> 1, 
        PlotStyle -> {Black, Red, {Black, Dashed}}], 
      "Specifications" :> {{{$CellContext`a$$, 2}, 0.1, 5, Appearance -> 
         "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{1032., {438., 450.}},
     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.750752204229141*^9, 3.7507522191927547`*^9}, {
  3.750752266491695*^9, 3.750752287585252*^9}, {3.750752341104353*^9, 
  3.7507523863022623`*^9}},
 CellLabel->
  "Out[139]=",ExpressionUUID->"18385dd4-2d62-4756-b4a6-a93ac96f233f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Rappresentazione", " ", "di", " ", 
    RowBox[{"crescita", "/", "decrescita"}], " ", "esponenziale", " ", "in", 
    " ", "scala", " ", "logaritmica"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"f", "[", 
     RowBox[{"t_", ",", "g_"}], "]"}], ":=", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "+", "g"}], ")"}], "^", "t"}]}], "\[IndentingNewLine]", 
   RowBox[{"Manipulate", "[", 
    RowBox[{
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"f", "[", 
        RowBox[{"t", ",", "g"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0", ",", "200"}], "}"}], ",", 
       RowBox[{"AxesLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"t", ",", "\"\<f[t]\>\""}], "}"}]}], ",", 
       RowBox[{"AxesOrigin", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}]}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"g", ",", "0.02"}], "}"}], ",", 
       RowBox[{"-", "0.1"}], ",", "0.1", ",", 
       RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}]}], "]"}],
    "\[IndentingNewLine]", 
   RowBox[{"Manipulate", "[", 
    RowBox[{
     RowBox[{"LogPlot", "[", 
      RowBox[{
       RowBox[{"f", "[", 
        RowBox[{"t", ",", "g"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0", ",", "200"}], "}"}], ",", 
       RowBox[{"AxesLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"t", ",", "\"\<f[t] - Log scale\>\""}], "}"}]}], ",", 
       RowBox[{"AxesOrigin", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}]}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"g", ",", "0.02"}], "}"}], ",", 
       RowBox[{"-", "0.1"}], ",", "0.1", ",", 
       RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7507490012322073`*^9, 3.750749025354557*^9}, {
  3.750749284316234*^9, 3.7507494069391527`*^9}, {3.750749496934873*^9, 
  3.750749542617125*^9}, {3.750751636636086*^9, 3.750751805665781*^9}, {
  3.750751848515501*^9, 3.750751902358037*^9}, {3.7507520117133703`*^9, 
  3.750752043207942*^9}, {3.750752103856881*^9, 3.750752107953123*^9}, {
  3.7507610559125547`*^9, 3.750761079284775*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"9070a3fd-e21c-4731-8c38-f07d85a89cc1"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`g$$ = 0.02, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`g$$], 0.02}, -0.1, 0.1}}, Typeset`size$$ = {
    720., {229., 239.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`g$4138$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`g$$ = 0.02}, 
      "ControllerVariables" :> {
        Hold[$CellContext`g$$, $CellContext`g$4138$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Plot[
        $CellContext`f[$CellContext`t, $CellContext`g$$], {$CellContext`t, 0, 
         200}, AxesLabel -> {$CellContext`t, "f[t]"}, AxesOrigin -> {0, 0}], 
      "Specifications" :> {{{$CellContext`g$$, 0.02}, -0.1, 0.1, Appearance -> 
         "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{806., {308., 320.}},
     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.750749285939*^9, 3.7507494076067038`*^9}, 
   3.7507495479252443`*^9, 3.7507516183736687`*^9, {3.750751700955573*^9, 
   3.750751703836933*^9}, {3.750751778327732*^9, 3.750751806269991*^9}, {
   3.750751883382812*^9, 3.7507519032112293`*^9}, {3.750752014611252*^9, 
   3.750752048104883*^9}, 3.750752082178162*^9, 3.750752392997078*^9, 
   3.750761080531761*^9},
 CellLabel->"Out[3]=",ExpressionUUID->"e3233d43-04ed-4116-b5aa-1394237165a7"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`g$$ = 0.02, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`g$$], 0.02}, -0.1, 0.1}}, Typeset`size$$ = {
    720., {216., 226.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`g$4163$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`g$$ = 0.02}, 
      "ControllerVariables" :> {
        Hold[$CellContext`g$$, $CellContext`g$4163$$, 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" :> LogPlot[
        $CellContext`f[$CellContext`t, $CellContext`g$$], {$CellContext`t, 0, 
         200}, AxesLabel -> {$CellContext`t, "f[t] - Log scale"}, 
        AxesOrigin -> {0, 0}], 
      "Specifications" :> {{{$CellContext`g$$, 0.02}, -0.1, 0.1, Appearance -> 
         "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{806., {295., 307.}},
     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.750749285939*^9, 3.7507494076067038`*^9}, 
   3.7507495479252443`*^9, 3.7507516183736687`*^9, {3.750751700955573*^9, 
   3.750751703836933*^9}, {3.750751778327732*^9, 3.750751806269991*^9}, {
   3.750751883382812*^9, 3.7507519032112293`*^9}, {3.750752014611252*^9, 
   3.750752048104883*^9}, 3.750752082178162*^9, 3.750752392997078*^9, 
   3.750761080575148*^9},
 CellLabel->"Out[4]=",ExpressionUUID->"3c10571e-680d-4edd-b69b-78923f2033e8"]
}, Open  ]]
},
WindowSize->{3200, 1689},
WindowMargins->{{0, Automatic}, {0, Automatic}},
Magnification->2.,
FrontEndVersion->"11.3 for Linux x86 (64-bit) (March 6, 2018)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 1303, 35, 158, "Input",ExpressionUUID->"0a74e7a9-0e3d-45a5-b0c2-1e1340ab8ad3"],
Cell[1886, 59, 2032, 39, 723, "Output",ExpressionUUID->"908b4032-1b9b-4892-971c-7250fddac53f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3955, 103, 1359, 35, 158, "Input",ExpressionUUID->"9da291ec-ca03-4889-acce-33e51f548db5"],
Cell[5317, 140, 2161, 41, 671, "Output",ExpressionUUID->"705e417f-9e45-4e4a-9ca8-0b4c26092c52"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7515, 186, 2013, 54, 158, "Input",ExpressionUUID->"c61a17e2-2c83-48d8-87b7-aecc5282d137"],
Cell[9531, 242, 2177, 43, 955, "Output",ExpressionUUID->"18385dd4-2d62-4756-b4a6-a93ac96f233f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11745, 290, 2409, 61, 205, "Input",ExpressionUUID->"9070a3fd-e21c-4731-8c38-f07d85a89cc1"],
Cell[14157, 353, 2167, 40, 695, "Output",ExpressionUUID->"e3233d43-04ed-4116-b5aa-1394237165a7"],
Cell[16327, 395, 2191, 41, 700, "Output",ExpressionUUID->"3c10571e-680d-4edd-b69b-78923f2033e8"]
}, Open  ]]
}
]
*)