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

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

(* CreatedBy='Mathematica 12.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[      6416,        163]
NotebookOptionsPosition[      5709,        142]
NotebookOutlinePosition[      6113,        158]
CellTagsIndexPosition[      6070,        155]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Exp", "[", 
      RowBox[{
       RowBox[{"-", "k"}], "*", "t"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "100"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1.1"}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"k", ",", "0.02", ",", "0.2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8139811355697737`*^9, 3.8139812607788076`*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"20868d14-845e-4e5b-a5ea-879d4c8783ce"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`k$$ = 0.1366, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`k$$], 0.02, 0.2}}, Typeset`size$$ = {
    360., {113., 117.63248479530631`}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`k$$ = 0.02}, 
      "ControllerVariables" :> {}, 
      "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[
        Exp[(-$CellContext`k$$) $CellContext`t], {$CellContext`t, 0, 100}, 
        PlotRange -> {0, 1.1}], 
      "Specifications" :> {{$CellContext`k$$, 0.02, 0.2}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{408., {156., 162.}},
     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.8139812326397505`*^9, 3.813981264180671*^9},
 CellLabel->"Out[2]=",ExpressionUUID->"df22db79-db0b-4f73-b88f-f67260f1dcd1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"1", "/", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"k", "*", "t"}]}], ")"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "100"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1.1"}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"k", ",", "0.02", ",", "0.2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.813983537855343*^9, 3.8139835661295657`*^9}, {
  3.8139837494758945`*^9, 3.813983752460837*^9}, {3.813983782750453*^9, 
  3.8139837831853228`*^9}, {3.8139839124031906`*^9, 3.8139839492730756`*^9}, {
  3.813984111389761*^9, 3.813984114945223*^9}, {3.8139845387795763`*^9, 
  3.8139845396003747`*^9}, {3.813984685198724*^9, 3.8139846856714954`*^9}},
 CellLabel->"In[11]:=",ExpressionUUID->"94fca08e-fa76-4534-b3dd-cd04a51abd67"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`k$$ = 0.2, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`k$$], 0.02, 0.2}}, Typeset`size$$ = {
    360., {113., 117.63248479530631`}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`k$$ = 0.02}, 
      "ControllerVariables" :> {}, 
      "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[1/(1 + $CellContext`k$$ $CellContext`t), {$CellContext`t, 0, 100}, 
        PlotRange -> {0, 1.1}], 
      "Specifications" :> {{$CellContext`k$$, 0.02, 0.2}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{408., {156., 162.}},
     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.8139835810214777`*^9, 3.8139837560761423`*^9, 3.8139837878628044`*^9, {
   3.813983917486619*^9, 3.81398395563673*^9}, 3.813984118905631*^9, 
   3.813984542691108*^9, 3.8139846890892973`*^9},
 CellLabel->"Out[11]=",ExpressionUUID->"b3ddbc0b-bdc0-42d6-94ca-bd3843478695"]
}, Open  ]]
},
WindowSize->{572.4, 626.4},
WindowMargins->{{354, Automatic}, {81, Automatic}},
FrontEndVersion->"12.1 for Microsoft Windows (64-bit) (March 18, 2020)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"9cd96d67-2053-4d7e-b554-a41b44fb30eb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 610, 16, 49, "Input",ExpressionUUID->"20868d14-845e-4e5b-a5ea-879d4c8783ce"],
Cell[1193, 40, 1688, 34, 337, "Output",ExpressionUUID->"df22db79-db0b-4f73-b88f-f67260f1dcd1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2918, 79, 938, 21, 49, "Input",ExpressionUUID->"94fca08e-fa76-4534-b3dd-cd04a51abd67"],
Cell[3859, 102, 1834, 37, 360, "Output",ExpressionUUID->"b3ddbc0b-bdc0-42d6-94ca-bd3843478695"]
}, Open  ]]
}
]
*)