(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 9.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 28538, 624] NotebookOptionsPosition[ 27650, 588] NotebookOutlinePosition[ 28036, 605] CellTagsIndexPosition[ 27993, 602] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"s", " ", "=", " ", RowBox[{"DSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"a", "'"}], "[", "t", "]"}], " ", "\[Equal]", " ", RowBox[{ RowBox[{ RowBox[{"-", "k1"}], " ", RowBox[{"a", "[", "t", "]"}]}], " ", "+", " ", RowBox[{"km1", " ", RowBox[{"b", "[", "t", "]"}]}]}]}], ",", " ", RowBox[{ RowBox[{ RowBox[{"b", "'"}], "[", "t", "]"}], " ", "\[Equal]", " ", RowBox[{ RowBox[{"k1", " ", RowBox[{"a", "[", "t", "]"}]}], " ", "-", " ", RowBox[{"km1", " ", RowBox[{"b", "[", "t", "]"}]}]}]}], ",", " ", RowBox[{ RowBox[{"a", "[", "0", "]"}], " ", "\[Equal]", " ", "1"}], ",", " ", RowBox[{ RowBox[{"b", "[", "0", "]"}], " ", "\[Equal]", " ", "0"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"a", "[", "t", "]"}], ",", " ", RowBox[{"b", "[", "t", "]"}]}], "}"}], ",", " ", "t"}], "]"}]}]], "Input", CellChangeTimes->{{3.6018068438225737`*^9, 3.601806882512743*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"a", "[", "t", "]"}], "\[Rule]", FractionBox[ RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "k1"}], "-", "km1"}], ")"}], " ", "t"}]], " ", "k1"}], "+", "km1"}], RowBox[{"k1", "+", "km1"}]]}], ",", RowBox[{ RowBox[{"b", "[", "t", "]"}], "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "k1"}], "-", "km1"}], ")"}], " ", "t"}]]}], ")"}], " ", "k1"}], RowBox[{"k1", "+", "km1"}]]}]}]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.601806883670845*^9, 3.601806968828514*^9, 3.6959816407972193`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"s", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "2"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.6959817669784727`*^9, 3.6959818314741507`*^9}}], Cell[BoxData[ RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "k1"}], "-", "km1"}], ")"}], " ", "t"}]]}], ")"}], " ", "k1"}], RowBox[{"k1", "+", "km1"}]]}]], "Output", CellChangeTimes->{{3.695981767334167*^9, 3.695981832152717*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"s", "[", RowBox[{"[", RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]], "Input"], Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "k1"}], "-", "km1"}], ")"}], " ", "t"}]], " ", "k1"}], "+", "km1"}], RowBox[{"k1", "+", "km1"}]]], "Output", CellChangeTimes->{3.6018069809556828`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"a", "[", RowBox[{"t_", ",", " ", "k1_", ",", " ", "km1_"}], " ", "]"}], " ", ":=", " ", RowBox[{"Evaluate", "[", RowBox[{"s", "[", RowBox[{"[", RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.601806947994588*^9, 3.601806949738082*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"b", "[", RowBox[{"t_", ",", " ", "k1_", ",", " ", "km1_"}], " ", "]"}], " ", ":=", " ", RowBox[{"Evaluate", "[", RowBox[{"s", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "2"}], "]"}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.601806992068451*^9, 3.6018070000759974`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "[", RowBox[{"t", ",", " ", "0.3", ",", " ", "0.1"}], "]"}], ",", " ", RowBox[{"b", "[", RowBox[{"t", ",", " ", "0.3", ",", " ", "0.1"}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"t", ",", " ", "0", ",", " ", "100"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5745930346708183`*^9, 3.574593081646153*^9}, { 3.601806097948889*^9, 3.6018061041863003`*^9}, {3.6018070208682127`*^9, 3.601807031104724*^9}}], Cell[BoxData[ GraphicsBox[{{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJxF1nc8Vv//P3A7Kyur7L23y+b1tLL3yMhMkZGRMkMab0pWKRo0ZM+GjFSo lMQxIiSjiKIQSoXfOer7+/x13e6317ke1/V6Pp/nnJeQb6j9fgoyMrIecjIy 4lM4Y/1WPn+LXuJDqwcbm9+QSXgxXUhAAbJmqn/Pfv8bspuQzZAMqEbO650j 7EHfkHPeNzuagMfI7Kvlz+dDX5HLiq3Kin83WhdzZilqmUeut8gL5/zH0I7v DyQ36r8gdb+iCFL1ODo22o0OxX1BrasW5yPLJtA71YHEfL0v6C3Ppf6l6x9Q 4/M2YbX2z4jygNyeb+c+oRpPWyGKiVnk9st174z/N7Q0uF9djDSDIp4nPjqv tIAahfw40ylmUH1Gr7VK9QIqYN58fwH7hAyEo0MjyhaR+0xQYuShT8jFpK1m 4fp3NKlrdMakdhqdzHJVmT/3A1EeSZsvt5tCHW4VbWkMP5FffeQ6t+QUYhbd dJBN/YlOzyr1btv8iC7XFUYGnVxDoUOjsX5VH1H1yLf7s7G/ETXdzuqvbB/R sNhpjWn/TVReckdzfXESrYueHONc2EQzAqY2PzsnEQubfpuIDhmMdrzICyuZ RMqsKNDxKRn8IemSer0nUTSzdv39fnJ48mYzU3ZwAlExqjhGr1BCkN3x7E9v x9FFhjvFmZpUwHMwQfF34ziSYFD6XXKMChqijlNGXhtH5vQKN4eoqQFTnPme sW8cZdLKLGhx0kDd6SvWeTNjiJdaJG1djRZmLcSdU63eoyqqm2MccbQgcM0F pPjeI0QlpCL/mBZS4vhfBM+PIl9KgWFPEzp4aSzHNpAxikrIeSSf7KEHwaH3 2OrIO6SywfY0OZoRQv58rKrNGEFP17O4rjxkhHE7V+9LASP4nLAE3SXbDpRW bfbkBiMo+g8T28eU7SD7QITSfXUYPfpF722cxwQ3JXw4Vv2G0e048g1KDxag 7UuL8HEZQsnL7Wld8SxgkZP2elhrCHmHpPPkXWWB77F94bV8Q4jXi0dT/h0L 2OTMboR/fIuyDUiRLu6s4MBh0yN49C1KpDv4ucKVDRp/kY8alw6ivckKMVEx bJAvs2rGmjWItH6vbDPIYwPIaFeUihlEq3PJYoNv2eDzWkKJlvkgCsauepO7 7ACPx9fSOr4NINdL2ICTMzvszFnrHzIZQGosl/YLHmWHxPnBCXLVAcSe6rH8 OYcdGE/fuh4gOICw2M+sSW/YISxFgP/b2hu025PKqsyRAyhJ1TSvqt8gFTGN tg17Tghrkr7KJ/4GseRv2L2M4ITVugLWIY436Cvns/Hz2Zxga9Q11079BpXR 2m9I9nLCo/xXlrrT/UhwLkjTwY4LtjNahBwp7Ufb7xZUF9twg1rPD71LGv3o KOdabu8hbtgsOVR/QqYfvY+xT14/xw3PKTju5fL3oxqgdnLo5IZQ1URdLep+ ZN8V+GvDdCdEZdXpWvf3odxZkrGzwS4423ti0CGmD5FZZcgf99kF+UcZ+jIP 9aGDNTNcFUm7wGYKiX3b14e0oq58Jn+8C8pXepSYbPrQKBV5ZqU2D0gu3Z3v EO9DwoKdw1QkXmB9Rffp80gvOntC7KmCIy9EWHCeYu7rRcvTCZVuh3lh95r8 eZuOXvSsUimpppYXehfPVQg29KIA7Utie+X54Be79Iv1S72o0tk37K4EPwzy Wsd4uvUizsYm1/e7+eH1EZtAdodelMDHYUh3gB+qjvItjFv0ItuP7RxehfxQ fV7i1kPdXrQULtdELyQAjf0UpCjhXnR19x8Kpe2CwLApyvvkWw9i9Eq4zM0v CF3ym9vQbA+KjyJTJlMQhNIet86+yR60t4TKp9tWENivMDXqDvQgXvrtj0Mu CIIt37Qnw6MedPU1X1wZjxC0pmRF2WfhedMFbNmyQhBKf+osUxqetyFUFqMr BP7dzdbvTuN5CuJDpl5CoJCnsFoej+dlyat/uikEMXdjYjkO9qBrjui7iLQw 7PXdazNh1IOYQlrOMGgLA/mitXA+9KCEU4bC3y2E4YOR0u6DOj3Is87ErjVE GAw3WFqkVHsQP7dttXetMNBwyAVYi/ag/BHvoGsaItB3eCJ3kwbPW56kOGUm AnuehRumUeJ5jPsvB7uJQDOMnhQlw/N0D77UjheBX6YcSlFrGOIvCJcYfiwC 3CkLjDfmMJTvm/yB00QUBiLP7PnUj6HcH/9VjjqLwgGOwBqLXgydTzsXVXhA FIazydXruzGUUpfLoHxaFOzjWf1LOzAUQV+tYvVMFNRvSuTOPsHQ7jsjJ04Y ioFYTJhfZxWGwGTCytxBDJiZdXRKKjCk/W6ai3WfGHgYUL06U4YhRZql8vxk MRhaz2rYV4ShXW60/Q0tYvCGjfeabz6GvpKTRBeQOHTcOOV1IgNDMxe1vtbZ iMMpjMeh5RyGPshA/TEvceCjo+6gSsPQWycLS4ZEcehLGvtzJQVDraU+keKP xOEiWX8BXTKGLtqlP92rIwGCB2o7+45gKHP6fLqIpQRcKxqz9I3E0Nm4PJfP 7hJAvu2Fw0oEhpJuF85FxUkA54Rss2QYhgLXGtnPN0qAo1dlXFsghnRvfPJ7 qSEJdW3RfM3eGFq+2mo3aSYJEjlTJyO9MFSWe03vt5skDA3GmCp6Yogz04Fb 7pgkPHu/vfSeO76/hMevMlsk4YJgpO43Zwxd33tJ2cVcCjwGh5oErDHk7BIh EO4uBRunqD05rTDE6GjFeCZYCnhSs0+xWGIo2oJyuildCjJlhEnM5hiy0wrN E+iTAhEt7h7V3Rii4DYh++QuDWbFR+25EIbqdwjPbwZLA9NwBZW+HoYOMa8P cSdIw+6dvekhuhgaobl71/y6NNCLB1B1a2Po3gq/f9VHaSh0tzx0RwND+/tW Xx8JkYHeVY7Q78oY4u3uaUxPkIHC6jWP3bh7OyqKizNkoEqlMfeKEob0Wn2P D9XKwLHh+l5LRXz/tV2quqsycCvywcmXchh6kV50hSpRFu4eMj8vJoWhp5sd 919nyEJ9c9ueq5IYehL2rfvidVl4lfJtih33A3sNKqlWWWgOzjVhkMBQEWdH sBW1HBwsYU5gFMPQifx53Ytn5SDd2/OjuxCGEpjZXLyuyoG0rPTNOUEMxSap RUhWysFA2ba+BNwRvolFjV1yQPZfbWyxAIa8xVmZx1jlIdjd1pOOH///Varj ErnykB9ufY6BB0NaAq6/FkrkQcdr1rV2F4bUMo+xNzbIw9s8NwcX3HIRz00t R/Drbwg0l+7E66PmUhvGrwAn1QvJ3bgxtNYcl9xQqADGTveF5znweZG/fjX5 vgLINnaRF+JeKHhaZ/FcAXjWXve74545vv3L6CcFSOjvNetix9CXm91SxzkU YeBo1s5HOzA0fMAn+7aLIjgFljU/Z8XQNY/79THeiuBPMX0wA7e3I92YVYAi JNA7tbrgntavlVmNUgQu7sjQeRYMLfGSP9t9SREa/SqP8+Nm6Lv+49MbRZAd 5uq9xoShrpfLfA9HFSFRh8oxDHf2E1OjzClFyFn7b58hbu6qhUyNFUUw44sW /bIdQ6KpIJ3KrgQKtzk2AbcOGt8r7aAEt9W6a6gYMbRJUj2x4aYEa/c/mI4x 4PenbEppr68SHNjn59SI23SX4mpshBJIGFM/D8fttJKY8SpLCV49I41N0ePz Wi7QGowpQQSc75igw5DSzcMz8FYJILiftg33cm47E8e4EgjPdhcV4o49Here /E0J6qvs1gNwn/Z5vLydWRkWm14tr9BiqIDLS6LaShkyhhGPIO4nLXxess7K EJ6bdYcK93jQu4ulnsrwVtOlaHYbhoSfuNIUhipD1ZOA/Hu4iwIcp3KzlCFO IbbaGndVg9mt5DfKwL9X2zWbBkPd+2hHNkeVwX3ARD4e98L2drZj08pgq8tj fQC3sq9RctQPZZCVlwrUxn2fHvkE71SBpTc712aoMfTQXVXA2UMF4LFPkS3u Uervzn37VUBENbdeD/dGdW267SEVcN5htk0ON1ApbJgnqkBLw5wzPe6nFVKj 6IYKDA5kl7ZTYejVOv8VqSkVkPUMjrLEPVc82ls0rwJ9Jy1+6OJmtL9KL7qq Au2p7CUKuK2Ldsbyb1OFFM/evB24e63ZXXdIqcJiWXTFKCU+fwV0XOvBqlCZ ykAXixto6WdmI1Uhp5+cIxR3URh9w0C8KjxWiDX0wx2hz+Bek6YKWhmIxgY3 wwfGgn0VquCL0rjEceuIs0h0fFGFJNY+lmEKDN1MZ/lZ910VLOKfsvfgpv3B 8vLWb1UwVKAivcDd384adIyBBAU99C/rcIcc3FGtKEMCweh6Ug7u/ApO9UuB JDikzzvkjJuKg4v2ZAQJEioOx9rgDjzGNRQWS4KknxQqprjVrLnjzM+Q4L/j t2c0cXd/2/l4vZQE8buVPflxk6nwmfjNkoBS/qfaF3IMHbjCx223SIIjrgEy U7g7KflndddIUM7+UXkMd14//1kuOjXYXGGK7cOtfFSwu0NSDb54YJMPce9r ENmjFKAGj/P05rNxB797obcaqgbHNIpZ0nFHboaIN0WpAa82u2Eq7tPG9StG /6nBcKhBfyLush7LCy5FasBYtnkzBPfS7JGexI9qsDip02mB+zcjT4PRnBo8 n3J7ZYKbSvHJdbplNXC7PTBgiJvzKH3YeUp1iKKxYdPBrUlRwFQsrA7eycpc criTdr2w6PJWh9+rlZqsuFN1Q1TOB6iDs2P9/Hbc2d5sPC5h6vDpwmI5Pe7C or2fJxLVIcDm8G4q3O3Kiykr+epQdclt4QcZhpgsdj3nHVWH90v8G+O4uQ49 rpz4qA7dAWIm73ELZvnlFM2pw3hGeu4IbuXBKj/FP+owf1vIcQC38z5DSiMe DRCQTZXpxH0tLhiCXDXgLqXZ7gbcVPbxmkM+GuB0q2yoDnegZJqySaAGPJCS OXIPt8abclGROA0YPcr7tBp3n/wX2pGrGkBx4d2jItx0kwd7zMc1wH26h/Ui 7rD6mI76GXy9U5DnAu6B9NQ28UUNqMimlMnGXahdep+CQhPufZb1TMeNcmby GkU0oaPjAfN/uI+Y+vtK+2sCQ83IuRjc7/ij3HNDNeFiePVqFG6DldOONNGa 0Mk36HcUN8vNot2TKZrAyDxiexh3+e8p6ctlmnBXGtsfgnuiyu873VdN0Lu5 GemL2/RU5FzUqia0DSjJ+OCucj85NbWhCV2v7k154Y6nLRxsYdaCI06H/T2I evt+aIpR0oJd82ZXXXBbcfienI3Ugltt5Y9tcP8svcvZHq8Fl5ctn1sT+9Oj Li08qQWBn9e6rXD/8S957XVBC6Sk7OYscFc0fuUcuKsFb5IXTUxxM3rHlbYu acHgb60T+rjrlzu1r//SglYp7zrA7ZfK33WMQht6Z6nnEO6Hd1qWNNi0oX7u rqce7mBqWp1qJW3wGX3qrY27s+xC15UwbZCu9Ogh4Y5G094x0dqgfJpdirBo v/p35yRtmLo0lKxK7Hd9mIstUxuS2yJ1VHDL2gr5pFRrA5MEtCviTlup/B75 VRtIwoskWWIezmyesl/Vho3YO+UyuD/y23ErbmjDDV5REcI6pss6X7brAK0s JZc07rnLWqd95HTgZbEgmyRuC2jntg7Wgbqv5+xEcTumnHjYH6kD55lPDojg xo983u7HdOA6JY8H4Qjv+uKAdB3I8ecIFcZ9OalU7USNDqSrF90WxD3z5Kxj /bIOTDW3uvDhXqI1/am3rgO77Pes8BL1t6W6+oxaFy7e1zlPmHki/kMvpy7s FZvp5cGtRn4oYl5DF47+Z+qzC/cpfdtM4WO6sCmfU8eFOz2VUbX0lC7EnEAH COf2vBhUSNeFuM01TsIVPvoCugW6YMuWFceJu/+4ctWeFl3Y2TZly4FbuJW9 M41aD3wUQGoHUV/6ntAdTHqw4e08w0b8vv25HZc59aAhzrSEsNkktXuxhB74 9t6TJhxG8WO2xUwPdL96arLifmwwtO3HOT3geZEfx0z031ir1emiHvyc5zcl zG16Jf5evh5IeJtzEI6w8lgMr9aDV2aXa5mI/rtMDM9henC2cmJxO+6UkNnK yR0I7LL1Mxhxq4aZB+jzIgheiN1PeCKiXPi6KAJZQ6RDWCs65JIHCUH/eZ8v DLjnkxeT3jojQB0jNoTtc9ccuvIQaEcrKtLj3rjsxiR3E4EvmxUT4fJrTS/O liF47jc8R0c8f24d0zVrQhDorl9O+EElucTTdwiONXPLEU6foFp/xwxwcLLZ kJaYN1+SGyM7wM4YkCSs9XH/A21ugKZE/u2EP00/D78sCEASnBnchhvmUqb3 4McdNe+scMJLq4xYrz0A533jezS4g/a8X2twBjD3iyog/PFBtcgNNwDL27Nn CA9E20eF+gLkNaf5Em74dYmfMQJg9vsDdsJJG8IhxlkA3qGbJ6hxr3kuX5TN AbA5OBFBOOLxsyc78gCSk3/6EPZLCmCfvA4Ax9uAsClFVVNCDUCBaBMZYWYa Tfr6bgCRybJUKqI/B+hVC/oAgppz4giTtY94nB4E+GVZEUJ46b+EWscxAIZg N3vCA3RPXRa/AjzUquAjnL/dpliaSR/4Wh40UW69PwR7WNn04WirUA3hzK7F Xz859OFsfXUh4eSMC9btfPrw6RkpnfB+1uGVfXL6YHXqvS9hWY79Rtcs9aHv tQkbYcfuL6tvbfWhLX1pG+H41IhSdid9+MX2ZJ2CjDg/JTKleejDWnbLLOHA 6ctvYw/pgzWNfRvh0gdYsEumPtyVNI8njIXvEbhwQR9oTs0fJvxT5n1Pd64+ kFFWBhE2vf5FzeSGPuR8TnAnPJNCQ652Rx/a3f10CIu76eTs6NeHMb1ZCsLW 7G0mNm/1wWlZ9A857qNdZr/OvNOHkpCoFcLPDfZ4UUzpQ0as1wzh/TIRUosr +pA7otJNuPBPcXMXlwGEd1ZfJ9xZJx9Gz2sAZ1dIVwgvh90X3i1oAC/PdOUQ Npxq/a9Z0gAuU6idJTz5etSuQtMAprMHjxIWKtgxnepuAI7cKnaEgzW09x/z MoCVF8xWhOt6fD+G7TMA/5g1U8LmVHcm9wQZwAe170A48qDtmFicAdB2xikR fqFy7m3LZQOQlHvCTpjt9b099/MNQOipGythjwPvBkpuGoArDRkT4aVcmTcZ ZQYwRhO4jTDvxssej0YDCPKv/0WGO/QFzau1IQNgDRD5QLjRR958fhRfH3Yd J0z12+nl+IQB7GPKGyWcK3e7vX3WAJKslN4Sbs02fJqzZgC62s9fE+b0SGpW 2mkI56KDGgl7rxbriPEZQv4boXrC5RndTdxChhDpO3afMLTyN25KGkJQbWgt 4UCJ5rrXGvj1zZMlhJsX16oPuhgCO4ksj3DN4N3Ha96G4EC9eoHwzeaQ7tSD hkAuui2LcErqxNfSWEPQCY1OJWwv9FLu81VDYNE8GUfYeNsJ3djbhtDlqB9N WGNex4q+yhDG4tiPEOZrqAmWfmwIM1d+HSI8Y5tbHjhhCGkv6/YRHlGzb/o1 awg/X7D7EO7iZXx1ZskQ1C6c9CR8dybxcxmlEcjWXHIlnJDkL/VFzAis8hJt CYcfENKMkzcCwzgva8J+liOmDOpGsLPJypKwGbdNgIypEaT1OpgSZq9RKw4K NAJdrz9AGC1+/64dZwS1PSW6W/VSrgXGNCPIH07SIvzknsxwRaURRI+XqRL+ sjIjfuyREZg3/1Ta6o960WGrbiMImz+oQDi4QXD71wUjGBWpliZ86deo6yNy Y1DrTZTc6q/2laJ0NmO4IxQiTpj7EQcoqBpDyfAlYcKHIHOo28kYBI+KChBu a6U/HBZlDIcV6XgJy+ulhXdfNAbVH4E7t+anYXuYfJ0xGDkycBGmJGUcOvfG GEJDP7Jv5dWwhMwtG4P6nwU2wkbFOwLLVHaDXlEWM+Fd+Zz+ARG74TpNJyPh Wy3tUUd+7Ya3wR60hGWnolOSk03g6vMoasK088ZyqeSmcFyykpLw1DJbb0aS Kcx1RlMQ/lokM8G1bgqqryvICa+6GC0UxJjBzizhLb8DWs4GMnP4kfiIbKse kp3avf+Zw+bH+C3/WS5f+UhtATmajlsmtZyt/nHCAg53amzZso0z6QqjJfAz i21537MbtijHEsjkubdcFB591o/HCvZOM2/5M5/N89QbVnA2kn7Lx6v0c0r4 rWEv27YtcyNVv/Yr1pDwgmrLadS9ZlEiNmAvRLll8s5QBYlyG/BjpNiyX9MF xxl2W/jtTb7lF5nhrLqOtnB5nmzLBtqRJ+yzbUHpxl8/nDq64o/ZglvIX4vJ dC8922EHz03+Oj1MYkFkjx3wKvy1YMm5Bxs5dtAl8Nd3x74nDPXbQQzHX6ve qe75w20P25j+uu5kkKighz1I0/21rxlJ/8lVe5Ck+evtTJse3u/sQYTqr7uK vyq07HKA1xR/nan/nlzY1QGmyf8ajop4vbrqAHr/vFAW8DBy3AEwsr/u6Gn6 cFnAEc79c+FPJoYWT0fw+ufgxgfNCrccQe+fSfHeYfmfHEHyn9l3KLx9Le0E u/75e+k6Wg9xArZ//qM8HF5a4QSM/0z1sO6W0xcnoP2/9bEZb3MFZ/zd/+/7 lDz86LAzUP5f/i732zV3/meS4hVZ4SVnoPjnWzT+t08f2gPk//yN7b1q/Moe IPvnDMpwl6DDLv/f/MMLxfcb/ueqmrAfm5v/8/8Dgr5S0Q== "]]}, {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJxF1nc8V+/7B3BCmSVZSbbszdt2X94ISUaSSEYp2UQkJBo0kCIrCpGR0VBo WIWG1bKS/bbKCEnG7z7q+/ucf87j+bjPeT3OfZ3rvs8RdPa2dFlHRUVVT01F RZyFYpez0vmqdaioeNVELmfrGPrmMni6ZiDwWLJoqIhAFn3SseKuxQj2OV44 ciseWSdPWqx3fYkOblM4HXc4E9nMmSvNHWtGPC17QptnStGBLOrsiWPfUKmS gP0G3mqkeiTHT6W4FzFeqqIyZKtBNfMm1/3z+1CcdC7VBbpa1L7t5seZ2wOI a2jKX2ygDtEcldk/eZWC9M6/CP51ugHZLh44OHJsEinfdhVyl2pGfq/PvLiu MIW4T3nn1M81o6exbXuUiqdQbS81+fOhFkQWCvL2y59Gu+TEqbmEW5GNYW3J 1O2fSOtc4LjPrTZ07toBpe9Xf6ElDorIvYOf0BvbwtorTAtILZaTrqn4E9ok srpXOnoBzUqn2U1Rf0YpZdn+7ud+IxFTfUbVrM+ouGvy8WjwHzT//f0doc4v qFP0gtrwsVWUV5RyhY63Ey2LnPvGObWK5Ku8nTYd7USsbLq1wlpUYODm9Y6v uBMpbkZuVnVUQH/jfIKdThcK2qT59PFHagi3ourJsehGtMxKVkFzNCBpv9wp v6cHJTI9yI1Tp4VGGZoMhks9SIxJ4c+9UFqIYV1e4HrVg3YxymV20NGBY7oc d6/aNxRHLzWlwbkecrQe2Dxk6kW8dMJXlkn0wNw5YaXZ0YuKaDO/cZymB9/S Dw7u070I0Qoqyb6kB62aqVRjhj7kTMPfeciQAXjtR+fZ1frQPept4lX7GcHn etxN2vg+pLTCVhcRxAyNZ6+Ki6n1o7rla1ypz5iBdf8Hs0cm/ch6mdX9IRUL hB1It1491I+CljayDUaxgJuIV1jbuX70YpHR0SB5I8h5mM2de9+P7p6mXqGx Z4WQxPKdzXsHUMRs/ZWmEFawe6yeHO88gBw9Y7Ylp7HCBTKnoZjvAOJ12KYu 280KB1QuU9VfHUDxZBV/G7vNYB1gc3OybgCdYTg+VniADbLWndlsLzWIDkbI nQo8xQbyY7R2gaqDSOPP3AZyMhs4qqUdc9cbRPMTEaJf2tmAKbKqoN92EHm0 pDlS22wBS4HScp6oQXTgZsvnfdbscEIlkmNL9yAisd50ETjJDroM7JtWhwYR e7T97FgCOyxqFRW/nRxELcFjm8M/sUOD5pQPPc0Q2nmI1jTfigPCXO6F8IgP ISVRtdoVS04wyhxTmPYYQqzpKxaNfpxwQUQ+cEvAEPrB+ar3ejwntH9NYuAN HUL59JYr4m2ckCmfcqDvyhASmHBX32vBBYunbI0NCoYQy8OM4lwzbnDhOuf4 aGAIneT8ndTmxQ3hBQ3COmNDqOeUZcTyVW64FTZ39+HUECoBun1733FDgwv0 OS8PIcsmt8UVo62g/0Skr51jGCWNqhhYk3mgklOH3VpvGFGZxsqedeKBUv3g xCdGw+h4yQhXYTgPHGBx9KTfM4w0AlPHqF/ygBQdFyXIZhh9paWOu6+5DSbW 74hO8RhGQgLvOmlVeCGI5/QVxvhhdDlStE7OihcMO/21gxKH0exw2H3bE7xg H+lKak8ZRq/uK4SXlPIC54byPO+sYeSqeVP0oOx2iJwb20b9aBjdt3b2eSjG BwnTNrUtbcOIs6LyQM9OPuAxaH8T8HkYhW3n0GM4ygd5+tMXN3UOI/PBeg6H bD6QIHkUCfYNoxlfmUpGQX7ISghzqfsxjNJ2Lq1TYBGA4PDv0/z0FMTsEJbC zScAya5UIY5MFBQSSKVIJScA0jfbtiZupKCD92idms0F4OSDBaE+dgriZWR5 6XlDAGymr5gvClBQ2vvtp/O3CUKGpmqdtSrOG85gi5cWhMZg7YoFdZy3Iph/ SlsQTLnvtF/TwnlyOzqMHATBVWmENl8X512TVaVkCoL+jlpygAkF3bJCP4Ul haCtycIm1p6CNnpWX2LSFILwi+0/ShwoKOy8ntBPEyHAYwffOlHQoTJDixpP IegJD+Qfd6EgPm7zYsdSIQgNGH3b7klB6V2O7rfUhIFrZ6xSeAjOm+1fd95Y GKy2G/aoh+E8ZpcUD1thyHS49vz7GZynfbxRM0QYIu0CjulH4rwMX7HOl8Iw W3nxVHE0znOOGOA0FIGEVxpWVxIoKOnXxftfrUVgz9wbsc5ECrp+5Wpg9lER uE46MyicREFRZUlMihdEoF03cHdBCgX5MRYrmb4SgUHZCaXLGRS080FXZKSe KHjW1r9PvkdBYNhnumuvKJxa6OsryKMgze5hrs2HRaGtJzSlIp+C5NfPFKRH iAI7tapwUyEF8djSfyyvFoXEed/SphIK+kGtIjKFdsA2OW1znacUNJKo8aPM bAe84PKz5i+noAEpeBrqsAP8Ti+nLGO37zPZzXRmB9xEcdQPKimoJs/Jf8eL HfB4lUP+zwsKSrSIqTuoJQZTu3O3cr6ioLjh6zHCu8XggXRcRxP25dPJNmN2 YhC+tM36/GsKCr+bPRF4WgwCYo/fGa+nILffFezXK8TA2lyCnP6GgrTvUI40 qomDaLqe751mCppNq7HoNxYHT5Wrzw1aKCg/6ZbOH1txYGev7aJgc8bt5ZYJ FYd01lMFom14fmEv38ZVi0PZpIFT1EcKun3wpqLNLgmwZN8iNNVOQdY2fvy+ dhJArb3c4t+B+9HKlPmShwT4VZKe/8IOMqEZroyRALUxL5eFTgqy0PBO5v8g AT/6T9wc6qagddyGVBQ7SbArrLP276Wgp1uEvq96SMLv+LzQb9hem5Y7uMMk wf5noppxHwV1rX/4cNdtSfgz8TaUu5+CHs3xHSsalAS5to6GnAEKcvkw/z7A UwoSaQOMLgzjfm9urYgJkwJZcZrWbuy2N4W5ubFSIDGcqaRIoSCdGuezHaVS UBOfldiBzVnapKw9LwVFBtna20YpqCEmJ5X2jDTkNNiSPMcpqG71zeP3sdIg Isj3sRS7ymeyOfG2NKRo0l+dw35iqUYrUSMNmY1KB4MnKCiH842HKZ0MvJVa qDr1nYIi079rJ16WgfLmFhbLSbweNrHZOKTJwPjoWFE0dnA4yU/8vgwkSIYk VmH7OZ/JqWiSgXCtXLL0FAU57ti86dtmWdjV9sX8D7ZOkXKvWJIsKNTbqAfP UJAG/4HFqXuy4GzOtDcXmxQXyl5RLgvsDy0/f8CW8XtttLsLXy/nIyj1E9eH ZFPqwycHOoMyq23Yv5+fjijPloND++56MczhfpG9nRbxWA7GMrlXZbCnMurK TF7LgR9NMocl9shZlvGvFDmoSeDsSsIez2yWOMshDwn6qj8F5imo86hT/F0b efj8RvIO7y+839g/fnrKUR7erTCbqGE7WjF8M3WVh5rgT+l7sYd1S6XmA+Vh 7qeBUTT2DC/1q5035SHbVOLlFDbTh9u/KJ/kYYxtlrN0gYKaGme3P/sqD9V9 y5/qseOrjPTjhuSBRKO1pwebu2gqTm1OHg5O13oy/qYgkWiQjGZXgOMyAeEO 2Fqo96DkXgUoOpKUu4y9qqIcuWKrALSiMXasi3h9SkfltTkrgGmT6SchbCMe +flgPwXwsF/mNcTeN3cm9u01BeDZ7sJ6FdurgL/Go0UBXjuU8Wz6Q0EKmSdG oF0BehsTTvNhzybVb+ToVQBvpqRCGezgC952zycVIFt8/1kT7AtOL2dZNikC vVAK3XnsDC4HsWJTRShnc5yZxK6q3u4gba0IDUpPcpaxe927E/MOKQL7wAdp piUKEqo6sD7bWxHyMt6WiGLnuFoNJV1TBPII+Z4NdlG5cVbEJ0WYtnD+UIbd fJi+a/WrIrSxd49UY0+x1LOFDiuCjdNM+ztsRWf9iMBfijDmOr6rH/sxI3Ly 2KoEGzhORDItU9AzO2V+a3slcBRoLtyP/ZXup/UHFyWYHHqY5Yi9UlwaY+6l BNYn7UKOYwOt3MquM0rAnxX9MRi7rlDiK7qjBAk3SFJp2G+X+VIlhpRgrMW4 rgN7IvdrW853JbipbUvbh81smcYoMq8EvJVzUiPYe3K2BvNtUIZnLZxK89ht e9gPbJFQhqj8WonNK7j/Mhi4lj2UQVIz+A8ZG+gZR0b9laGM40yAEXaOD2P5 5xBlEBwh95hi++ky2ZVcUYbDar0hNthMA8wZhwuVwaxXfdYDW2sHq9ibcWWA wMRf8diZMawLZT+Voav6VsBNbPpfrI1Zf5TBYSR0KBX7Y/1m91AmFZC/GZya je15fEuxvJQKTNUKuzzGTi/kVL3ppgLG33yvf8Sm5eCiP+enAtUSr8nt2G6h XB0+wSpQFRk23IVN2sN9etclFdBC95kGsJsnt75czlOBmu7hlilsKqXthkdG VWB1JPII4yoFHU3dzm0xrQIGH0zcWLDf0fCNav9Wgfy5q0dZsZM/8l3mYiAB 1fkFMie24kmB5jfiJGBsvRkjiH24XHi/gisJBB46RpOwPbobdOa9SVBzuPCX Grb/queOykAS+PUHHNLEvmDwdE7/Igm2NPRwAHZ+6+4bNjkkWJQMlzXGnhkN aD0zSIKomL6ttth/mLeV60+QgO+qJc9BbFr5qtsMsyTYe/8G+yFszpOMPtdp VKEupH3eCVt9XcbGXCFVaHlx1P84djhPg0mToypE0EocDsSO1vZUuu6qCp8+ CTOcwo53ZNtm46MKV1Q25AdjZ+ccHOs7owq7bV53h2LXK05HzaWrgsSjtg3n sDea8Lzm/aoK1y5Mhcdic3m9vN83qArJJp7dcdgC144k5EyoAuvTp0rxRL2+ FB2RX1IFRpnJTzewrQ/r0ehvU4Op45pjydi3TnuA+wE12BHWdTCLmJ9liHqH kxpYF0lez8Z2E7+iaOimBiLubq/uYqt9KhARPq0G8XXT2+9hf5Adp+9KU4PV x9duF2Iz9B9v3dWrBm3MXL8eYfs8PfXm6QgeT/aeeYz9OSa6dse0GuSTwsbK iPlq5j1et04dci6NtjzFRgkjyRXC6pDKIxL0DDvA6Jiz5DF1WBRjU6/F7uYL tEvyVgcVw3u0ddjkuQtW64PUgcf3xnvCrJk5O/uj1CE4KH7/a+yCP0OSKfk4 f4zLtBG7r+jIT4Yf6tAnG/6qCdvovP9E4Lw6ZLAfc2vGLrI7NzS0og5bU0RZ WrBD6LO/VG/SgJ37du5uJertPFB5SkED/Bm6Sj9gm3I4nxv11wBZPkmBduyF vIec9SEa8PB8RxrhbB26vOxzGvCWkYa7A3vp2L33Djc0wMP9C0MndmHFD87P DzUgQWdDdxc2s+PpvJoZDWCPcNb5hv109p3m7UUN4B9vziZ8JJqvKXSdJnAx LTP0Yj97UD2jxqYJ2Qw5LYQ96Oi1ihU0wfzaLbN+Yj3l32hK9dEEdwkLriHs IDTseCpIEyjPAtwJi3xU/Wkdrgkbla+/IByy3MnFFqcJKP2V0zC2tLmgU1Sx JpyacEijYF+Zu//T/4cmDHttGBol+uHS6nnLeU04W7NDcgx7kM+CW35FE0qm Pb0IaxnNao2zaMHS8bBZwhMpGhecZLSAt3ByfhzbBOq593howV169S/fsa2i Ip999NcC0sJz9h/Yh1qQo12oFsiH+VkQ9nN8musaowUquwMaCKeE55EiS7RA fVD6/iT2SNVlq6ezWrDxTvreaWI90xst6CxrwU9rq/OEl8xp017RaYPKXacy wpv6QgbaOLXB8vtlzhlsErWX33c1bdj5zK6Z8Hld8zihUG046/pYZBY7JppZ Oe+8Nujr9O4mnNTa8EUuRhvIVJH+hAuddPm1M7Sh/aRqDeGPZxWL9ldrwwm+ q/vnsIVq2N9dodMBsxEH93mivoyt3ls26sDZ5o+XCZMsr25J4dQBkZquAsLG /XR2uWI60Jx4d4ywz7pfo9XGOtAfZX74F/ZLcseGX1d1YCZVnrxAvH8DjZp9 iTpAGz1lR5jbKDXkUboOfG+2DSDsZ2o/7VusAzxdirmERWz6OidadEBTYtOG 39hRnqP3+7cgaCc5PCWs7LPLVZcXwZuL5PeE+/wKhG6LIHA71NtHWCPI86a9 CgJOkhnjIvb3iOnwdmsEfTxsNoQtk37vbUpG0F9LoRBeSbHdKJOJoPlkxwLh gluVDZfzEdx6H8/wh9h/skK1jSsRmFg6SBJ+cp9arK4bAfnOieOEY/pol7s3 AbzbKNhDeNBZxZaZHcC/9ts4YY1Blyea3ADCVT6/CVOGX/umCAAMTzKxL2HD RNTwfgVsM1VDwjPzzC1tlgABol/vEnbf3/O73Bqg01S/hPDgk2LhO7YAtjKX Kwh/DrIM9HYGUL5T3kS4fPEmH7MfAPP67DnC4StCngbXAMyNqHSWsX8fmk2U TgCwMYndSdjv5auqLckAVS9ozAgfCXdl778N4IjSHQgbrSuqDCsBKPHMPEN4 03p1xqfNAJMxkpWEo44yKmd8ADARVKkhTFXfZX/hC0Bkh0Qj4ZmLYaVW3wAW G9s+E/7MUGcz/QMgs19imnA6i1mu5EZd8OMXEVpZ+34ItG5m04VXfJNihOOa phcXOHShUvieDOGI2Bt76rfrAsv2ITXCLps75w7L6ILt87g9hKU5XPRv7dYF zq3dJwlbNY/Pt5vrQvrT9SGEQ6L98tj36ULkPP9Zwm+Xz2y8Yq8L50j8lwm7 Dae0B3vpQseSdTrhvCctHjZxupA73llNuMV3P/+NG7oQps3wmvCCVE9rc5Iu hIdJvCFsdHucZHhHF8ouQRvhkaj11KQHurC97X0f4R22WglbPupCnOPlFcJ7 2GsNzdp14fP579Sr2CebjBcvdeuCtLE+HeHX5P0O64Z0oZzcwkTYRcpPYnpO F5TZjnITzl7Kfd7ERYb6rffkCL8rk/Vh5CWDJp2LIuFZn8dCOwXIkFrBrUJY b6jm4nNxMjxYOaJBuP/9V4tCdTJcJd3QJyyYsWU42o4Mn08c3U/YQ03TJdSB DOe3BR0gXNbqPOhzmAy79SLtCO+ifdC/350MsUcuOBD2P27+TfQ0GZa2ko8R blC62l6dQgaP0YwAwvZHuz/fyyTDx6XVIMIzSVKfYvPJcG1pVwhh3pXGVvsK Mpi8y4og7N2w/u3vDjIsmHjFEKb9s6+xt48MTUFK1wgnydytrx8lAxygXCdc E69Xl/CbDM79vMmEOe3Dnyts1YMKvTeZhAtimyu5BfXg9R7Wu4Shhq9iVVwP TMSMcgm7iT0ve6+mBwp3YgoIP5/+XXzcRg9ODp15SLjky8OXvx31YP/yuceE M597Nkcf1wMqr5AnhKOi+37kBeuBc4NeJWFLwUaZsTQ9CBrQriGs9l3LlLFI D1hrAl4R3l5e4iH5Ug+YH0Q0EB4xTypw69MDjVSRJsJNvMxvL83owdDj5y2E H46cGcun0YcxMeUPhMPCj0mMi+qDrVLVF8JHdncZManqg79QRwdhY24zVykj fajg/NxFmL2ElOvupg9OLWe/rc1XsRSYr+hDafzLfsJVj6Q6C+/rQ11s/tBa /VRzTpg264MRg8nIWj+UC7D8mNIHNq97Y2v11kzNiWEzADHvxgnC3C84QE7Z AArZHv0g7AVxHc37DGCqznOKcG0N4wmfQAOoP/Zneu39lbP4yJYZQM++4Nm1 60tYPSdmDWDw7MV5wvq5W9zylXZCn7TqAmGedM5jrn47oWQp+TfhrOr6wIDF nXDDuPUPYemhoKiICEN4wKu/TJj+u4FMNLURVLlLrBAemmVriw03gkvJtWv+ kSPVx7VsBEeTJVYJz9voT2WcMgb/J15r7gZ6znKqXUBbdXvNNeLvNNsu7oKz V6vXvDRbMDdIZwKkgU9rVqm+XPwr0gReJw+seXctZ3gq827wDfq+5sOv7pij hN1ANfpzzTm+QZePbDPF/6cLax7bbvY6+o4pVLxaXPPZIt2Ee3x7oO3k0pq5 kfKR+tQ9UJ26vOYrdG3GgcJmYOO9smbqd95yYgVm0PT7r49U3rAaYTeHCLPV NTfE+W7WtjIHpei/Jmv6R1rGm4Nr8V8/Gzo5d6zFHKwa/1pUqnnm1RYL2N79 1zE+YlPC+y3Ab+SvBe5dfbKSYAFbp/764befYR0fLUBv7q+VHxS3LnFbwtLC X5edcxcRsLcE9z9/7WysoluVZgkTS3/NsnHV3rHbEn4s/3VT7g+5ap69kLLy 13G6PdRCB/YCy+pfw0lhh7dpe8Hpn6fyXZ/59+6FpH9+01o5kMJvBRX/nL2w kan6kBW0/rNHxZPncllW0PfPKiGOPukUK5j4Z/Ytcu3vJffBzD//zFtGy577 4Nc/Lyl2+uYV7oPFf6Z9Vpa1b3wfLP3zOgOaD5ZL/5mqyWydOYs1LP/v/m8j jrvkrGHlf/k02/jQif+sIp8qLTRjDav/nLX+2N0LXvuBau0YQZNsPcohc/85 lsbXxv2Ezf+br3Mq93H5fy4q8cGP/p//D5ennJk= "]]}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 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->{{0, 100}, {0., 0.999999387755352}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.6018070351729813`*^9, 3.695981950612472*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Animate", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "[", RowBox[{"t", ",", " ", "k1", ",", " ", "km1"}], "]"}], ",", " ", RowBox[{"b", "[", RowBox[{"t", ",", " ", "k1", ",", " ", "km1"}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"t", ",", " ", "0", ",", " ", "100"}], "}"}], ",", " ", RowBox[{"PlotRange", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", " ", "100"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"k1", ",", " ", "0.01", ",", " ", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"km1", ",", " ", "0.01", ",", " ", "1"}], "}"}], ",", RowBox[{"AnimationRunning", "\[Rule]", "False"}]}], "]"}]], "Input", CellChangeTimes->{{3.5745930346708183`*^9, 3.574593081646153*^9}, { 3.574709501633218*^9, 3.574709548380814*^9}, {3.574709579451108*^9, 3.574709625128948*^9}, {3.574709688704152*^9, 3.574709740004003*^9}, { 3.574709813966564*^9, 3.574709829860263*^9}, {3.601807097167959*^9, 3.6018071181315737`*^9}, {3.6018071493308268`*^9, 3.601807162730809*^9}, { 3.601807208209628*^9, 3.601807216945156*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`k1$$ = 0.104, $CellContext`km1$$ = 0.42000000000000004`, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`k1$$], 0.01, 1}, { Hold[$CellContext`km1$$], 0.01, 1}}, Typeset`size$$ = { 720., {223., 233.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`k1$5319$$ = 0, $CellContext`km1$5324$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`k1$$ = 0.01, $CellContext`km1$$ = 0.01}, "ControllerVariables" :> { Hold[$CellContext`k1$$, $CellContext`k1$5319$$, 0], Hold[$CellContext`km1$$, $CellContext`km1$5324$$, 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`t, $CellContext`k1$$, \ $CellContext`km1$$], $CellContext`b[$CellContext`t, $CellContext`k1$$, \ $CellContext`km1$$]}, {$CellContext`t, 0, 100}, PlotRange -> {{0, 100}, {0, 1}}], "Specifications" :> {{$CellContext`k1$$, 0.01, 1, AnimationRunning -> False, AppearanceElements -> { "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", "DirectionButton"}}, {$CellContext`km1$$, 0.01, 1, AnimationRunning -> False, AppearanceElements -> { "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", "DirectionButton"}}}, "Options" :> { ControlType -> Animator, AppearanceElements -> None, DefaultBaseStyle -> "Animate", DefaultLabelStyle -> "AnimateLabel", SynchronousUpdating -> True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], ImageSizeCache->{804., {321., 332.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Animate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{3.6018071196460123`*^9, 3.6018071639769907`*^9, 3.601807218244882*^9, 3.695982033935462*^9}] }, Open ]] }, WindowSize->{1180, 946}, WindowMargins->{{117, Automatic}, {Automatic, 23}}, Magnification:>2. Inherited, FrontEndVersion->"10.4 for Mac OS X x86 (32-bit, 64-bit Kernel) (April 11, \ 2016)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[579, 22, 1139, 33, 123, "Input"], Cell[1721, 57, 979, 32, 92, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2737, 94, 181, 4, 56, "Input"], Cell[2921, 100, 420, 14, 92, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3378, 119, 111, 3, 56, "Input"], Cell[3492, 124, 320, 11, 87, "Output"] }, Open ]], Cell[3827, 138, 337, 9, 56, "Input"], Cell[4167, 149, 339, 9, 56, "Input"], Cell[CellGroupData[{ Cell[4531, 162, 548, 14, 56, "Input"], Cell[5082, 178, 18551, 317, 493, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[23670, 500, 1324, 31, 123, "Input"], Cell[24997, 533, 2637, 52, 741, "Output"] }, Open ]] } ] *)