Cell[CellGroupData[{Cell[BoxData[
 RowBox[{"Manipulate", "[", " ", "
", 
  RowBox[{
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"eqn", ",", "soln"}], "}"}], ",", "
", 
     RowBox[{
      RowBox[{"eqn", "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"\[Sigma]", " ", 
            RowBox[{
             RowBox[{"x", "'"}], "[", "t", "]"}]}], "+", 
           RowBox[{"x", "[", "t", "]"}]}], "==", 
          RowBox[{"a", " ", 
           RowBox[{"x", "[", 
            RowBox[{"t", "-", "\[Tau]\[Tau]"}], "]"}], " ", 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             RowBox[{"x", "[", 
              RowBox[{"t", "-", "\[Tau]\[Tau]"}], "]"}]}], ")"}]}]}], 
         ",", 
         RowBox[{
          RowBox[{"x", "[", 
           RowBox[{"t", "/;", 
            RowBox[{"t", "<", "0"}]}], "]"}], "==", "0.8"}]}], 
        "}"}]}], ";", "
", 
      RowBox[{"soln", "=", 
       RowBox[{"Quiet", "@", 
        RowBox[{"NDSolve", "[", 
         RowBox[{"eqn", ",", 
          RowBox[{"{", "x", "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"t", ",", "0", ",", "time"}], "}"}]}], "]"}]}]}], 
      ";", "
", 
      RowBox[{"GraphicsRow", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"ParametricPlot", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"x", "[", 
               RowBox[{"t", "-", "\[Tau]\[Tau]"}], "]"}], ",", 
              RowBox[{"x", "[", "t", "]"}]}], "}"}], "/.", "soln"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{"t", ",", "\[Tau]\[Tau]", ",", "time"}], "}"}], 
           ",", 
           RowBox[{"AxesLabel", "->", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"x", "[", "t", "]"}], ",", 
              RowBox[{"Style", "[", 
               RowBox[{"TraditionalForm", "[", 
                RowBox[{"x", 
                 RowBox[{"(", 
                  RowBox[{"t", "-", "\[Tau]"}], ")"}]}], "]"}], 
               "]"}]}], "}"}]}], ",", 
           RowBox[{"AspectRatio", "->", "1"}], ",", 
           RowBox[{"PlotRange", "->", "All"}], ",", " ", 
           RowBox[{"ImageSize", "->", " ", 
            RowBox[{"1.1", 
             RowBox[{"{", 
              RowBox[{"250", ",", "250"}], "}"}]}]}], ",", 
           RowBox[{"ImagePadding", "->", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"30", ",", "Automatic"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"Automatic", ",", "Automatic"}], "}"}]}], 
             "}"}]}]}], "]"}], ",", 
         RowBox[{"Plot", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"x", "[", "t", "]"}], "/.", "soln"}], ",", 
           RowBox[{"{", 
            RowBox[{"t", ",", 
             RowBox[{"0.8", " ", "time"}], ",", "time"}], "}"}], ",", 
           
           RowBox[{"AxesLabel", "->", 
            RowBox[{"{", 
             RowBox[{"t", ",", 
              RowBox[{"x", "[", "t", "]"}]}], "}"}]}], ",", 
           RowBox[{"AspectRatio", "->", "1"}], ",", 
           RowBox[{"ImageSize", "->", 
            RowBox[{"1.1", " ", 
             RowBox[{"{", 
              RowBox[{"250", ",", "250"}], "}"}]}]}], ",", 
           RowBox[{"ImagePadding", "->", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"30", ",", "Automatic"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"Automatic", ",", "Automatic"}], "}"}]}], 
             "}"}]}]}], "]"}]}], "}"}], "]"}]}]}], "]"}], ",", 
   "
", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"time", ",", "50.", ",", "\"\<time t\>\""}], "}"}], ",",
      "5", ",", "100", ",", 
     RowBox[{"Appearance", "->", "\"\<Labeled\>\""}], ",", 
     RowBox[{"ImageSize", "->", "Tiny"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "\[Tau]\[Tau]", ",", "1", ",", "\"\<time delay \[Tau]\>\""}], 
      "}"}], ",", "0.2", ",", "4.5", ",", 
     RowBox[{"Appearance", "->", "\"\<Labeled\>\""}], ",", 
     RowBox[{"ImageSize", "->", "Tiny"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "4", ",", 
       RowBox[{"Row", "[", 
        RowBox[{"{", 
         RowBox[{"\"\<parameter \>\"", ",", 
          RowBox[{"Style", "[", 
           RowBox[{"\"\<a\>\"", ",", "Italic"}], "]"}]}], "}"}], 
        "]"}]}], "}"}], ",", "1.9", ",", "4.", ",", 
     RowBox[{"Appearance", "->", "\"\<Labeled\>\""}], ",", 
     RowBox[{"ImageSize", "->", "Tiny"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "\[Sigma]", ",", "0.2", ",", "\"\<parameter \[Sigma]\>\""}], 
      "}"}], ",", "0.177", ",", "8", ",", 
     RowBox[{"Appearance", "->", "\"\<Labeled\>\""}], ",", 
     RowBox[{"ImageSize", "->", "Tiny"}]}], "}"}], ",", 
   RowBox[{"ControlPlacement", "->", "Top"}], ",", 
   RowBox[{"TrackedSymbols", ":>", 
    RowBox[{"{", 
     RowBox[{"time", ",", "\[Tau]\[Tau]", ",", "a", ",", "\[Sigma]"}],
      "}"}]}]}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.569051937426605*^9, 3.569051942432438*^9}, {
   3.569053201402471*^9, 3.569053206901572*^9}, {3.56905324040099*^9, 
   3.56905326115304*^9}, {3.5690532947409697`*^9, 
   3.569053294825137*^9}, {3.569053340555503*^9, 
   3.569053364774189*^9}, {3.5690534206960382`*^9, 
   3.569053424972847*^9}, {3.569241525360899*^9, 
   3.5692415625970383`*^9}, 3.5692416025760317`*^9, 
   3.5692416420409236`*^9, {3.569241696103734*^9, 
   3.5692417718068714`*^9}, {3.5717692967788343`*^9, 
   3.571769369452134*^9}, {3.571769584542519*^9, 
   3.5717696384707613`*^9}, {3.571769677135524*^9, 
   3.571769688558021*^9}, {3.571769781286332*^9, 
   3.571769804060305*^9}, 3.5717698460705442`*^9, 
   3.571847707115774*^9, 3.760793920384322*^9}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a$$ = 4, $CellContext`time$$ = 
    50., $CellContext`\[Sigma]$$ = 0.2, $CellContext`\[Tau]\[Tau]$$ = 
    1, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, 
    Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", 
    Typeset`specs$$ = {{{
       Hold[$CellContext`time$$], 50., "time t"}, 5, 100}, {{
       Hold[$CellContext`\[Tau]\[Tau]$$], 1, "time delay \[Tau]"}, 
      0.2, 4.5}, {{
       Hold[$CellContext`a$$], 4, 
       Row[{"parameter ", 
         Style["a", Italic]}]}, 1.9, 4.}, {{
       Hold[$CellContext`\[Sigma]$$], 0.2, "parameter \[Sigma]"}, 
      0.177, 8}}, Typeset`size$$ = {599., {148., 153.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ =
     True, $CellContext`time$7499$$ = 
    0, $CellContext`\[Tau]\[Tau]$7500$$ = 0, $CellContext`a$7501$$ = 
    0, $CellContext`\[Sigma]$7502$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`a$$ = 4, $CellContext`time$$ = 
        50., $CellContext`\[Sigma]$$ = 
        0.2, $CellContext`\[Tau]\[Tau]$$ = 1}, "ControllerVariables" :> {
        Hold[$CellContext`time$$, $CellContext`time$7499$$, 0], 
        Hold[$CellContext`\[Tau]\[Tau]$$, \
$CellContext`\[Tau]\[Tau]$7500$$, 0], 
        Hold[$CellContext`a$$, $CellContext`a$7501$$, 0], 
        Hold[$CellContext`\[Sigma]$$, $CellContext`\[Sigma]$7502$$, 
         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" :> 
      Module[{$CellContext`eqn$, $CellContext`soln$}, \
$CellContext`eqn$ = {$CellContext`\[Sigma]$$ 
             Derivative[
              1][$CellContext`x][$CellContext`t] + \
$CellContext`x[$CellContext`t] == ($CellContext`a$$ \
$CellContext`x[$CellContext`t - $CellContext`\[Tau]\[Tau]$$]) (
             1 - $CellContext`x[$CellContext`t - $CellContext`\[Tau]\
\[Tau]$$]), $CellContext`x[
             Condition[$CellContext`t, $CellContext`t < 0]] == 
           0.8}; $CellContext`soln$ = Quiet[
           
           NDSolve[$CellContext`eqn$, {$CellContext`x}, \
{$CellContext`t, 0, $CellContext`time$$}]]; GraphicsRow[{
           ParametricPlot[
            ReplaceAll[{
              $CellContext`x[$CellContext`t - $CellContext`\[Tau]\
\[Tau]$$], 
              $CellContext`x[$CellContext`t]}, $CellContext`soln$], \
{$CellContext`t, $CellContext`\[Tau]\[Tau]$$, $CellContext`time$$}, 
            AxesLabel -> {
              $CellContext`x[$CellContext`t], 
              Style[
               
               TraditionalForm[$CellContext`x ($CellContext`t - \
$CellContext`\[Tau])]]}, AspectRatio -> 1, PlotRange -> All, 
            ImageSize -> 1.1 {250, 250}, 
            ImagePadding -> {{30, Automatic}, {
              Automatic, Automatic}}], 
           Plot[
            ReplaceAll[
             $CellContext`x[$CellContext`t], $CellContext`soln$], \
{$CellContext`t, 0.8 $CellContext`time$$, $CellContext`time$$}, 
            AxesLabel -> {$CellContext`t, 
              $CellContext`x[$CellContext`t]}, AspectRatio -> 1, 
            ImageSize -> 1.1 {250, 250}, 
            ImagePadding -> {{30, Automatic}, {
              Automatic, Automatic}}]}]], 
      "Specifications" :> {{{$CellContext`time$$, 50., "time t"}, 5, 
         100, Appearance -> "Labeled", ImageSize -> 
         Tiny}, {{$CellContext`\[Tau]\[Tau]$$, 1, 
          "time delay \[Tau]"}, 0.2, 4.5, Appearance -> "Labeled", 
         ImageSize -> Tiny}, {{$CellContext`a$$, 4, 
          Row[{"parameter ", 
            Style["a", Italic]}]}, 1.9, 4., Appearance -> "Labeled", 
         ImageSize -> 
         Tiny}, {{$CellContext`\[Sigma]$$, 0.2, "parameter \[Sigma]"},
          0.177, 8, Appearance -> "Labeled", ImageSize -> Tiny}}, 
      "Options" :> {
       ControlPlacement -> Top, 
        TrackedSymbols :> {$CellContext`time$$, $CellContext`\[Tau]\
\[Tau]$$, $CellContext`a$$, $CellContext`\[Sigma]$$}}, 
      "DefaultOptions" :> {ControllerLinking -> True}],
     ImageSizeCache->{644., {217., 223.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.760793920384593*^9},
 CellID->153083585]
}, {2}]]