(* 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[      6009,        159]
NotebookOptionsPosition[      5179,        138]
NotebookOutlinePosition[      5651,        155]
CellTagsIndexPosition[      5608,        152]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"cA", "[", 
   RowBox[{"t_", ",", "kI_", ",", "N_"}], "]"}], ":=", 
  RowBox[{"Exp", "[", 
   RowBox[{
    RowBox[{"-", "N"}], "*", "kI", "*", "t"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8141552663516283`*^9, 3.814155321071211*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"56158cbe-f5c0-42e3-b578-84b72e325366"],

Cell[BoxData[
 RowBox[{
  RowBox[{"cI", "[", 
   RowBox[{"t_", ",", "kI_", ",", "N_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"N", "/", 
    RowBox[{"(", 
     RowBox[{"1", "-", "N"}], ")"}]}], "*", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Exp", "[", 
      RowBox[{
       RowBox[{"-", "N"}], "*", "kI", "*", "t"}], "]"}], "-", 
     RowBox[{"Exp", "[", 
      RowBox[{
       RowBox[{"-", "kI"}], "*", "t"}], "]"}]}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.8141553334581304`*^9, 3.8141554212388353`*^9}, {
  3.81415553668258*^9, 3.814155543697769*^9}},
 CellLabel->"In[4]:=",ExpressionUUID->"98f740ee-0a6b-4572-a9af-5c179472110a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"cP", "[", 
   RowBox[{"t_", ",", "kI_", ",", "N_"}], "]"}], ":=", 
  RowBox[{"1", "-", 
   RowBox[{"cA", "[", 
    RowBox[{"t", ",", "kI", ",", "N"}], "]"}], "-", 
   RowBox[{"cI", "[", 
    RowBox[{"t", ",", "kI", ",", "N"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.814155555072339*^9, 3.8141555954473295`*^9}},
 CellLabel->"In[5]:=",ExpressionUUID->"bef0f6aa-52b6-4d16-ab6e-577d1826cb24"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"cA", "[", 
        RowBox[{"t", ",", "kI", ",", "N"}], "]"}], ",", 
       RowBox[{"cI", "[", 
        RowBox[{"t", ",", "kI", ",", "N"}], "]"}], ",", 
       RowBox[{"cP", "[", 
        RowBox[{"t", ",", "kI", ",", "N"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "100"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1.1"}], "}"}]}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<t/s\>\"", ",", 
        "\"\<[X]/[A\!\(\*SubscriptBox[\(]\), \(0\)]\)\>\""}], "}"}]}]}], 
    "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"kI", ",", "0.01", ",", "0.1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"N", ",", "0.1", ",", "10"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.814156118972737*^9, 3.81415617505575*^9}, {
  3.8141562795055175`*^9, 3.8141563121995754`*^9}, {3.8141563513578224`*^9, 
  3.814156417432848*^9}},
 CellLabel->"In[10]:=",ExpressionUUID->"1369fd36-4c71-4c99-b56a-0e8c4c24bd96"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`kI$$ = 0.05, N$$ = 2, Typeset`show$$ = True,
     Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`kI$$], 0.01, 0.1}, {
      Hold[N$$], 0.1, 10}}, Typeset`size$$ = {
    450., {145., 151.83514974479078`}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`kI$$ = 0.01, N$$ = 0.1}, 
      "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[{
         $CellContext`cA[$CellContext`t, $CellContext`kI$$, N$$], 
         $CellContext`cI[$CellContext`t, $CellContext`kI$$, N$$], 
         $CellContext`cP[$CellContext`t, $CellContext`kI$$, 
          N$$]}, {$CellContext`t, 0, 100}, PlotRange -> {0, 1.1}, 
        AxesLabel -> {"t/s", "[X]/[A\!\(\*SubscriptBox[\(]\), \(0\)]\)"}], 
      "Specifications" :> {{$CellContext`kI$$, 0.01, 0.1}, {N$$, 0.1, 10}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{507., {206.9, 214.1}},
     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.814156421111045*^9, 3.814156425540166*^9}},
 CellLabel->"Out[10]=",ExpressionUUID->"3b9bae0a-96fc-4b96-ae55-771ac9d6964c"]
}, Open  ]]
},
WindowSize->{960.5999999999999, 795.5999999999999},
WindowMargins->{{Automatic, 97.20000000000005}, {Automatic, 0}},
Magnification:>1.25 Inherited,
FrontEndVersion->"12.1 for Microsoft Windows (64-bit) (March 18, 2020)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"6fce0613-ca28-41ce-8354-0b997d1cb5e5"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 348, 8, 35, "Input",ExpressionUUID->"56158cbe-f5c0-42e3-b578-84b72e325366"],
Cell[909, 30, 638, 18, 35, "Input",ExpressionUUID->"98f740ee-0a6b-4572-a9af-5c179472110a"],
Cell[1550, 50, 428, 10, 35, "Input",ExpressionUUID->"bef0f6aa-52b6-4d16-ab6e-577d1826cb24"],
Cell[CellGroupData[{
Cell[2003, 64, 1169, 31, 60, "Input",ExpressionUUID->"1369fd36-4c71-4c99-b56a-0e8c4c24bd96"],
Cell[3175, 97, 1988, 38, 444, "Output",ExpressionUUID->"3b9bae0a-96fc-4b96-ae55-771ac9d6964c"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)