(* 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[ 172008, 3935] NotebookOptionsPosition[ 169754, 3856] NotebookOutlinePosition[ 170109, 3872] CellTagsIndexPosition[ 170066, 3869] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["\<\ Two-State One-Site Coupled Binding and Conformational Change\ \>", "Title", CellChangeTimes->{{3.6316318951517477`*^9, 3.631631906899734*^9}}], Cell["\<\ Authors: Kyle G. Daniels and Terrence G. Oas Duke University Department of Biochemistry January 2015 This notebook contains code to simulate stopped-flow kinetic traces for a \ macromolecule that has two conformational states and one ligand binding site. \ Equilibrium data can also be simulated. Both types of data can be fit to \ determine the information content of the simulated data.\ \>", "Text", CellChangeTimes->{{3.631631910732243*^9, 3.631632018392874*^9}}], Cell[CellGroupData[{ Cell["Ligand-Induced Conformational Change Kinetics", "Subsection", CellChangeTimes->{{3.5320854769658737`*^9, 3.532085485795507*^9}, { 3.535562989386344*^9, 3.5355629896254663`*^9}, {3.535761893662109*^9, 3.5357618950779133`*^9}, {3.537021808191246*^9, 3.537021808962997*^9}, { 3.537022730972838*^9, 3.537022731684659*^9}, {3.542557494447815*^9, 3.542557496551012*^9}, {3.548071169027585*^9, 3.5480711800901413`*^9}, { 3.5603596117696037`*^9, 3.5603596123833723`*^9}, {3.5982999904868507`*^9, 3.598299994596581*^9}, {3.6249102266784286`*^9, 3.624910229091672*^9}, { 3.62491071130943*^9, 3.6249107120488*^9}}], Cell["\<\ This module is used to simulate kinetic transients. Transients assume that at \ time 0, a solution of the unliganded macromulecule M is mixed with a solution \ of ligand. Lt is the total ligand concentration. Mt is the total concentration of the \ macromlecule that has states C1 and C2. t is the time.\ \>", "Text", CellChangeTimes->{{3.631370518475518*^9, 3.631370617467062*^9}, { 3.631471906157496*^9, 3.6314719078816977`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"transim", "[", RowBox[{"Lt_", ",", "Mt_", ",", "t_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "k21", ",", "k21L", ",", "ndsolve", ",", "F1", ",", "F2", ",", "kd1", ",", "kd2", ",", "Signal"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"k21", "=", FractionBox["k12", "K12"]}], ";", RowBox[{"(*", RowBox[{ RowBox[{"Rate", " ", "constant", " ", "for", " ", "the", " ", "C2"}], "\[RightVector]", RowBox[{"C1", " ", "reaction"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"k21L", "=", FractionBox[ RowBox[{"k12L", " ", "Ka1"}], RowBox[{"K12", " ", "Ka2"}]]}], ";", RowBox[{"(*", RowBox[{ RowBox[{"Rate", " ", "constant", " ", "for", " ", "the", " ", "C2L"}], "\[RightVector]", RowBox[{"C1L", " ", "reaction"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"kd1", "=", RowBox[{"kon1", "/", "Ka1"}]}], ";", RowBox[{"(*", RowBox[{"Off", " ", RowBox[{"rate", "/", "rate"}], " ", "consant", " ", "for", " ", "dissociation", " ", "from", " ", "C1"}], "*)"}], "\[IndentingNewLine]", RowBox[{"kd2", "=", RowBox[{"kon2", "/", "Ka2"}]}], ";", RowBox[{"(*", RowBox[{"Off", " ", RowBox[{"rate", "/", "rate"}], " ", "consant", " ", "for", " ", "dissociation", " ", "from", " ", "C2"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{ "This", " ", "solves", " ", "the", " ", "systems", " ", "of", " ", "differential", " ", "equations", " ", "to", " ", "give", " ", "the", " ", "time"}], "-", RowBox[{"dependent", " ", "populations", " ", "of", " ", "C1"}]}], ",", " ", "C1L", ",", " ", "C2", ",", " ", RowBox[{"and", " ", "C2L"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"ndsolve", "=", RowBox[{ RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"C1", "'"}], "[", "\[Tau]", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", "k12"}], " ", RowBox[{"C1", "[", "\[Tau]", "]"}]}], "-", RowBox[{"kon1", " ", RowBox[{"C1", "[", "\[Tau]", "]"}], " ", RowBox[{"(", RowBox[{"Lt", "-", RowBox[{"C2L", "[", "\[Tau]", "]"}], "-", RowBox[{"C1L", "[", "\[Tau]", "]"}]}], ")"}]}], " ", "+", " ", RowBox[{"k21", " ", RowBox[{"C2", "[", "\[Tau]", "]"}]}], " ", "+", RowBox[{"kd1", " ", RowBox[{"C1L", "[", "\[Tau]", "]"}]}]}]}], " ", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"C1L", "'"}], "[", "\[Tau]", "]"}], "\[Equal]", RowBox[{ RowBox[{"kon1", " ", RowBox[{"C1", "[", "\[Tau]", "]"}], " ", RowBox[{"(", RowBox[{"Lt", "-", RowBox[{"C2L", "[", "\[Tau]", "]"}], "-", RowBox[{"C1L", "[", "\[Tau]", "]"}]}], " ", ")"}]}], " ", "-", RowBox[{"kd1", " ", RowBox[{"C1L", "[", "\[Tau]", "]"}]}], "-", RowBox[{"k12L", " ", RowBox[{"C1L", "[", "\[Tau]", "]"}]}], " ", "+", RowBox[{"k21L", " ", RowBox[{"C2L", "[", "\[Tau]", "]"}]}]}]}], " ", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"C2", "'"}], "[", "\[Tau]", "]"}], "\[Equal]", RowBox[{ RowBox[{"k12", " ", RowBox[{"C1", "[", "\[Tau]", "]"}]}], " ", "-", RowBox[{"k21", " ", RowBox[{"C2", "[", "\[Tau]", "]"}]}], " ", "-", RowBox[{"kon2", " ", RowBox[{"C2", "[", "\[Tau]", "]"}], " ", RowBox[{"(", RowBox[{"Lt", "-", RowBox[{"C2L", "[", "\[Tau]", "]"}], "-", RowBox[{"C1L", "[", "\[Tau]", "]"}]}], " ", ")"}]}], "+", RowBox[{"kd2", " ", RowBox[{"C2L", "[", "\[Tau]", "]"}]}]}]}], " ", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"C2L", "'"}], "[", "\[Tau]", "]"}], "\[Equal]", RowBox[{ RowBox[{"kon2", " ", RowBox[{"C2", "[", "\[Tau]", "]"}], " ", RowBox[{"(", RowBox[{"Lt", "-", RowBox[{"C2L", "[", "\[Tau]", "]"}], "-", RowBox[{"C1L", "[", "\[Tau]", "]"}]}], " ", ")"}]}], "+", RowBox[{"k12L", " ", RowBox[{"C1L", "[", "\[Tau]", "]"}]}], " ", "-", RowBox[{"kd2", " ", RowBox[{"C2L", "[", "\[Tau]", "]"}]}], "-", RowBox[{"k21L", " ", RowBox[{"C2L", "[", "\[Tau]", "]"}]}]}]}], " ", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"C1", "[", "0", "]"}], "\[Equal]", FractionBox["Mt", RowBox[{"1", "+", "K12"}]]}], ",", RowBox[{ RowBox[{"C2", "[", "0", "]"}], "\[Equal]", FractionBox[ RowBox[{"K12", " ", "Mt"}], RowBox[{"1", "+", "K12"}]]}], ",", RowBox[{ RowBox[{"C1L", "[", "0", "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"C1", "[", "0", "]"}], "+", RowBox[{"C1L", "[", "0", "]"}], "+", RowBox[{"C2", "[", "0", "]"}], "+", RowBox[{"C2L", "[", "0", "]"}]}], "\[Equal]", "Mt"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"C1", ",", "C1L", ",", "C2", ",", "C2L"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Tau]", ",", "0", ",", RowBox[{"1.5", "ftp"}]}], "}"}]}], "]"}], "/.", RowBox[{"\[Tau]", "\[Rule]", "t"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"F1", "=", FractionBox[ RowBox[{ RowBox[{ RowBox[{"ndsolve", "[", RowBox[{"[", RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], "[", "t", "]"}], "+", RowBox[{ RowBox[{"ndsolve", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "2"}], "]"}], "]"}], "[", "t", "]"}]}], "Mt"]}], ";", RowBox[{"(*", RowBox[{ "Fraction", " ", "of", " ", "macromolecule", " ", "in", " ", "state", " ", RowBox[{"C1", ".", " ", "This"}], " ", "includes", " ", "both", " ", "C1", " ", "and", " ", RowBox[{"C1L", "."}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"F2", "=", FractionBox[ RowBox[{ RowBox[{ RowBox[{"ndsolve", "[", RowBox[{"[", RowBox[{"1", ",", "3", ",", "2"}], "]"}], "]"}], "[", "t", "]"}], "+", RowBox[{ RowBox[{"ndsolve", "[", RowBox[{"[", RowBox[{"1", ",", "4", ",", "2"}], "]"}], "]"}], "[", "t", "]"}]}], "Mt"]}], ";", RowBox[{"(*", RowBox[{ "Fraction", " ", "of", " ", "macromolecule", " ", "in", " ", "state", " ", RowBox[{"C2", ".", " ", "This"}], " ", "includes", " ", "both", " ", "C2", " ", "and", " ", RowBox[{"C2L", "."}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"Signal", "=", RowBox[{ RowBox[{"F1", " ", "SigC1"}], "+", RowBox[{"F2", " ", "SigC2"}]}]}]}]}], " ", RowBox[{"(*", RowBox[{ "The", " ", "observable", " ", "signal", " ", "assuming", " ", "that", " ", "only", " ", "the", " ", "state", " ", "of", " ", "the", " ", "molecule", " ", "contribute", " ", "to", " ", "what", " ", "is", " ", "detected"}], "*)"}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->CompressedData[" 1:eJwdyU0og3EAx/ENI1rT5iXT0GitpO2iycvSU2yNVpsaU0iLla2ZrCkcRCkn 83Kw1RKtxGpMtHIwrTSJrEwhyaaN2uRgByuF5/c/fPscvkKDtWc0h8FgCOig RedTyCIpKjai1sHSFcMg3N39NcKugegk/PSHbNAbLl6A/N6SVWhyfW1C4aN9 Gy5w5efkNyyH4ZX05Q4OzTsfYHBq39xEK1o7Irru9UpJPEUdd1uJE/5wxJFN UR2170Qup8cr/klRFdp5or//Lwk1S6I3yLHV27+ZaWrMXeeA+cbMGpyJlnng qexjBy7nJgJQU7QYhIyWJDFH3vgKJeLxN6gfLi/L0iq3KolVNSK2gZ2m1E9S 4l6BrALmzamJZxfPBypOmgrog4fQs64IwD6N5RoWuTduIS/b/ABNLF8MWqpX 4zD7087qog3zY0JoFuimZ2kzrUwn9LddnsKA3RSCnUaR6oSXphKFN1r4DweK 2uE= "]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Ligand-Induced Conformational Change Kinetics - For NonlinearModelFit\ \>", "Subsection", CellChangeTimes->{{3.5320854769658737`*^9, 3.532085485795507*^9}, { 3.535562989386344*^9, 3.5355629896254663`*^9}, {3.535761893662109*^9, 3.5357618950779133`*^9}, {3.537021808191246*^9, 3.537021808962997*^9}, { 3.537022730972838*^9, 3.537022731684659*^9}, {3.542557494447815*^9, 3.542557496551012*^9}, {3.548071169027585*^9, 3.5480711800901413`*^9}, { 3.5603596117696037`*^9, 3.5603596123833723`*^9}, {3.5982999904868507`*^9, 3.598299994596581*^9}, {3.6249102266784286`*^9, 3.624910229091672*^9}, { 3.62491071130943*^9, 3.6249107120488*^9}, {3.630412434479241*^9, 3.6304124377664137`*^9}}], Cell["\<\ This module is used to fit kinetic transients. Transients assume that at time \ 0, a solution of the unliganded macromulecule M is mixed with a solution of \ ligand. Lt is the total ligand concentration. Mt is the total concentration of the \ macromlecule that has states C1 and C2. t is the time. Notations within the \ module are the same as above.\ \>", "Text", CellChangeTimes->{{3.631370518475518*^9, 3.6313706336502*^9}, { 3.631471719084161*^9, 3.631471726443781*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"transimf", "[", RowBox[{ RowBox[{"Lt_", "?", "NumericQ"}], ",", RowBox[{"Mt_", "?", "NumericQ"}], ",", RowBox[{"t_", "?", "NumericQ"}], ",", RowBox[{"SigC1_", "?", "NumericQ"}], ",", RowBox[{"SigC2_", "?", "NumericQ"}], ",", RowBox[{"kon1_", "?", "NumericQ"}], ",", RowBox[{"kon2_", "?", "NumericQ"}], ",", RowBox[{"Ka1_", "?", "NumericQ"}], ",", RowBox[{"Ka2_", "?", "NumericQ"}], ",", RowBox[{"K12_", "?", "NumericQ"}], ",", RowBox[{"k12_", "?", "NumericQ"}], ",", RowBox[{"k12L_", "?", "NumericQ"}]}], "]"}], ":=", RowBox[{ RowBox[{"transimf", "[", RowBox[{ "Lt", ",", "Mt", ",", "t", ",", "SigC1", ",", "SigC2", ",", "kon1", ",", "kon2", ",", "Ka1", ",", "Ka2", ",", "K12", ",", "k12", ",", "k12L"}], "]"}], "=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "R", ",", "Temp", ",", "k21", ",", "k21L", ",", "ndsolve", ",", "F1", ",", "F2", ",", "kd1", ",", "kd2", ",", "Signal"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"R", "=", "1.9858775"}], ";", "\[IndentingNewLine]", RowBox[{"Temp", "=", "298"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"k21", "=", FractionBox["k12", "K12"]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"k21L", "=", FractionBox[ RowBox[{"k12L", " ", "Ka1"}], RowBox[{"K12", " ", "Ka2"}]]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"kd1", "=", RowBox[{"kon1", "/", "Ka1"}]}], ";", "\[IndentingNewLine]", RowBox[{"kd2", "=", RowBox[{"kon2", "/", "Ka2"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"ndsolve", "=", RowBox[{ RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"C1", "'"}], "[", "\[Tau]", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", "k12"}], " ", RowBox[{"C1", "[", "\[Tau]", "]"}]}], "-", RowBox[{"kon1", " ", RowBox[{"C1", "[", "\[Tau]", "]"}], " ", RowBox[{"(", RowBox[{"Lt", "-", RowBox[{"C2L", "[", "\[Tau]", "]"}], "-", RowBox[{"C1L", "[", "\[Tau]", "]"}]}], ")"}]}], " ", "+", " ", RowBox[{"k21", " ", RowBox[{"C2", "[", "\[Tau]", "]"}]}], " ", "+", RowBox[{"kd1", " ", RowBox[{"C1L", "[", "\[Tau]", "]"}]}]}]}], " ", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"C1L", "'"}], "[", "\[Tau]", "]"}], "\[Equal]", RowBox[{ RowBox[{"kon1", " ", RowBox[{"C1", "[", "\[Tau]", "]"}], " ", RowBox[{"(", RowBox[{"Lt", "-", RowBox[{"C2L", "[", "\[Tau]", "]"}], "-", RowBox[{"C1L", "[", "\[Tau]", "]"}]}], " ", ")"}]}], " ", "-", RowBox[{"kd1", " ", RowBox[{"C1L", "[", "\[Tau]", "]"}]}], "-", RowBox[{"k12L", " ", RowBox[{"C1L", "[", "\[Tau]", "]"}]}], " ", "+", RowBox[{"k21L", " ", RowBox[{"C2L", "[", "\[Tau]", "]"}]}]}]}], " ", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"C2", "'"}], "[", "\[Tau]", "]"}], "\[Equal]", RowBox[{ RowBox[{"k12", " ", RowBox[{"C1", "[", "\[Tau]", "]"}]}], " ", "-", RowBox[{"k21", " ", RowBox[{"C2", "[", "\[Tau]", "]"}]}], " ", "-", RowBox[{"kon2", " ", RowBox[{"C2", "[", "\[Tau]", "]"}], " ", RowBox[{"(", RowBox[{"Lt", "-", RowBox[{"C2L", "[", "\[Tau]", "]"}], "-", RowBox[{"C1L", "[", "\[Tau]", "]"}]}], " ", ")"}]}], "+", RowBox[{"kd2", " ", RowBox[{"C2L", "[", "\[Tau]", "]"}]}]}]}], " ", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"C2L", "'"}], "[", "\[Tau]", "]"}], "\[Equal]", RowBox[{ RowBox[{"kon2", " ", RowBox[{"C2", "[", "\[Tau]", "]"}], " ", RowBox[{"(", RowBox[{"Lt", "-", RowBox[{"C2L", "[", "\[Tau]", "]"}], "-", RowBox[{"C1L", "[", "\[Tau]", "]"}]}], " ", ")"}]}], "+", RowBox[{"k12L", " ", RowBox[{"C1L", "[", "\[Tau]", "]"}]}], " ", "-", RowBox[{"kd2", " ", RowBox[{"C2L", "[", "\[Tau]", "]"}]}], "-", RowBox[{"k21L", " ", RowBox[{"C2L", "[", "\[Tau]", "]"}]}]}]}], " ", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"C1", "[", "0", "]"}], "\[Equal]", FractionBox["Mt", RowBox[{"1", "+", "K12"}]]}], ",", RowBox[{ RowBox[{"C2", "[", "0", "]"}], "\[Equal]", FractionBox[ RowBox[{"K12", " ", "Mt"}], RowBox[{"1", "+", "K12"}]]}], ",", RowBox[{ RowBox[{"C1L", "[", "0", "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"C1", "[", "0", "]"}], "+", RowBox[{"C1L", "[", "0", "]"}], "+", RowBox[{"C2", "[", "0", "]"}], "+", RowBox[{"C2L", "[", "0", "]"}]}], "\[Equal]", "Mt"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"C1", ",", "C1L", ",", "C2", ",", "C2L"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Tau]", ",", "0", ",", RowBox[{"1.5", "ftp"}]}], "}"}]}], "]"}], "/.", RowBox[{"\[Tau]", "\[Rule]", "t"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"F1", "=", FractionBox[ RowBox[{ RowBox[{ RowBox[{"ndsolve", "[", RowBox[{"[", RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], "[", "t", "]"}], "+", RowBox[{ RowBox[{"ndsolve", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "2"}], "]"}], "]"}], "[", "t", "]"}]}], "Mt"]}], ";", "\[IndentingNewLine]", RowBox[{"F2", "=", FractionBox[ RowBox[{ RowBox[{ RowBox[{"ndsolve", "[", RowBox[{"[", RowBox[{"1", ",", "3", ",", "2"}], "]"}], "]"}], "[", "t", "]"}], "+", RowBox[{ RowBox[{"ndsolve", "[", RowBox[{"[", RowBox[{"1", ",", "4", ",", "2"}], "]"}], "]"}], "[", "t", "]"}]}], "Mt"]}], ";", "\[IndentingNewLine]", RowBox[{"Signal", "=", RowBox[{ RowBox[{"F1", " ", "SigC1"}], "+", RowBox[{"F2", " ", "SigC2"}]}]}]}]}], "\[IndentingNewLine]", "]"}]}]}]], "Input", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmViYGCQAmIQnRu61s3s/CvHBym+oSBaZEJSLIheseJfGoj2irlc BKLfbThYDKJXHeNvAtGSYcITQXTWzE/zQLTizdKFILpJ0PYIWF6n7xiIPq1/ /wqIjmuccQNE7ytbl20OpFUnbQbTM69HuOs9fOW4xTsfTBdsOHa+/8crRxel 52BakC9olfrvV44SgY1gekPk/6cgOqBD9RmI5ivWKv3O+Noxc45yP4hmS/s8 CURXXRZdDKL3mr1ZBqL7mJ9sA9EBXK37QDSD1VMwzWRr8ghE66nnPQPREQli oj+AtPsCKTAtK6/Kk8Tz2tH3tj6YXsluJgGiWep9wbTuIVvvMiCtZ3s3EESX STxe78n32vGV8NGNIFpnlcc2EC26puQMiD41dcElEJ21cdJVEN32NPQJiFbI b34GojdtjKysBtKJD1hmgGgAKC7McA== "]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Ligand-Induced Conformational Change Equilibrium\ \>", "Subsection", CellChangeTimes->{{3.6249107007509823`*^9, 3.624910702116724*^9}, { 3.624912610825653*^9, 3.624912611238063*^9}}], Cell["\<\ This module is used to simulate and fit equilibrium binding curves data. Lt \ is the total ligand concentration. Mt is the total concentration of the \ macromlecule that has states C1 and C2.\ \>", "Text", CellChangeTimes->{3.631471860063527*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Eq", "[", RowBox[{"Lt_", ",", "Mt_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "Lf", ",", "F1", ",", "F2", ",", "C1", ",", "C1L", ",", "C2", ",", "C2L", ",", "Signal", ",", "Fbound", ",", "Ffree"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Lf", "=", RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{"L", "\[Equal]", RowBox[{"Lt", "-", RowBox[{ FractionBox[ RowBox[{" ", RowBox[{ RowBox[{"Ka1", " ", "L"}], "+", RowBox[{"K12", " ", "Ka2", " ", "L"}]}]}], RowBox[{"1", "+", RowBox[{"Ka1", " ", "L"}], "+", "K12", "+", RowBox[{"K12", " ", "Ka2", " ", "L"}]}]], "Mt"}]}]}], ",", "L"}], "]"}], "[", RowBox[{"[", RowBox[{ RowBox[{"-", "1"}], ",", "1", ",", "2"}], "]"}], "]"}]}], ";", RowBox[{"(*", RowBox[{"Concentration", " ", "of", " ", "free", " ", "ligand"}], "*)"}], "\[IndentingNewLine]", RowBox[{"F1", "=", FractionBox[ RowBox[{"1", "+", " ", RowBox[{"Ka1", " ", "Lf"}]}], RowBox[{"1", "+", RowBox[{"Ka1", " ", "Lf"}], "+", "K12", "+", RowBox[{"K12", " ", "Ka2", " ", "Lf"}]}]]}], ";", RowBox[{"(*", RowBox[{"Fraction", " ", "of", " ", "M", " ", "in", " ", "state", " ", RowBox[{"C1", ".", " ", "Includes"}], " ", "both", " ", "C1", " ", "and", " ", "C1L"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"F2", "=", FractionBox[ RowBox[{"K12", "+", RowBox[{"K12", " ", "Ka2", " ", "Lf"}]}], RowBox[{"1", "+", RowBox[{"Ka1", " ", "Lf"}], "+", "K12", "+", RowBox[{"K12", " ", "Ka2", " ", "Lf"}]}]]}], ";", RowBox[{"(*", RowBox[{"Fraction", " ", "of", " ", "M", " ", "in", " ", "state", " ", RowBox[{"C2", ".", " ", "Includes"}], " ", "both", " ", "C2", " ", "and", " ", "C2L"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"C1", "=", FractionBox["1", RowBox[{"1", "+", RowBox[{"Ka1", " ", "Lf"}], "+", "K12", "+", RowBox[{"K12", " ", "Ka2", " ", "Lf"}]}]]}], ";", RowBox[{"(*", RowBox[{"Fraction", " ", "of", " ", "M", " ", "as", " ", "C1"}], "*)"}], "\[IndentingNewLine]", RowBox[{"C1L", "=", FractionBox[ RowBox[{" ", RowBox[{"Ka1", " ", "Lf"}]}], RowBox[{"1", "+", RowBox[{"Ka1", " ", "Lf"}], "+", "K12", "+", RowBox[{"K12", " ", "Ka2", " ", "Lf"}]}]]}], ";", RowBox[{"(*", RowBox[{"Fraction", " ", "of", " ", "M", " ", "as", " ", "C1L"}], "*)"}], "\[IndentingNewLine]", RowBox[{"C2", "=", FractionBox["K12", RowBox[{"1", "+", RowBox[{"Ka1", " ", "Lf"}], "+", "K12", "+", RowBox[{"K12", " ", "Ka2", " ", "Lf"}]}]]}], ";", RowBox[{"(*", RowBox[{"Fraction", " ", "of", " ", "M", " ", "as", " ", "C2"}], "*)"}], "\[IndentingNewLine]", RowBox[{"C2L", "=", FractionBox[ RowBox[{"K12", " ", "Ka2", " ", "Lf"}], RowBox[{"1", "+", RowBox[{"Ka1", " ", "Lf"}], "+", "K12", "+", RowBox[{"K12", " ", "Ka2", " ", "Lf"}]}]]}], ";", RowBox[{"(*", RowBox[{"Fraction", " ", "of", " ", "M", " ", "as", " ", "C2L"}], "*)"}], "\[IndentingNewLine]", RowBox[{"Fbound", "=", FractionBox[ RowBox[{"C1L", "+", "C2L"}], RowBox[{"C1", "+", "C1L", "+", "C2", "+", "C2L"}]]}], ";", RowBox[{"(*", RowBox[{ "Fraction", " ", "of", " ", "M", " ", "bound", " ", "to", " ", "ligand"}], "*)"}], "\[IndentingNewLine]", RowBox[{"Ffree", "=", RowBox[{"1", "-", "F2"}]}], ";", RowBox[{"(*", RowBox[{ "Fraction", " ", "of", " ", "M", " ", "not", " ", "bound", " ", "to", " ", "ligand"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Signal", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"SigC1", " ", "F1"}], " ", "+", RowBox[{"SigC2", " ", "F2"}]}], " ", ",", RowBox[{ RowBox[{"SigFree", " ", "Ffree"}], "+", RowBox[{"SigBound", " ", "Fbound"}]}]}], "}"}]}]}]}], RowBox[{"(*", RowBox[{"C1", " ", "list", " ", "of", " ", "two", " ", RowBox[{"signls", ".", " ", "The"}], " ", "first", " ", "signal", " ", "is", " ", "the", " ", "signal", " ", "if", " ", "only", " ", "the", " ", "conformational", " ", "state", " ", "contributes", " ", "to", " ", RowBox[{"signal", ".", " ", "The"}], " ", "second", " ", "signal", " ", "is", " ", "the", " ", "signal", " ", "if", " ", "only", " ", "the", " ", "liganding", " ", "state", " ", RowBox[{"(", RowBox[{"free", " ", "or", " ", "bound"}], ")"}], " ", "contributes", " ", "to", " ", RowBox[{"signal", "."}]}], "*)"}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.555872046794043*^9, 3.555872199266808*^9}, { 3.555873296235014*^9, 3.555873301248356*^9}, {3.555873493154091*^9, 3.555873503785234*^9}, 3.558228318153132*^9, {3.55829714141442*^9, 3.558297141567359*^9}, {3.558787765752411*^9, 3.5587877670005493`*^9}, { 3.558787991991851*^9, 3.558787996784424*^9}, {3.5587882500687304`*^9, 3.5587882505555696`*^9}, {3.5587884111203136`*^9, 3.558788412914763*^9}, { 3.558803240475541*^9, 3.558803240897987*^9}, {3.5588035488069572`*^9, 3.558803549341179*^9}, {3.5588036131007767`*^9, 3.558803615378717*^9}, { 3.624910719080007*^9, 3.6249108969061327`*^9}, {3.624911016976655*^9, 3.624911017012096*^9}, {3.630760176102429*^9, 3.630760296930889*^9}, { 3.630760370543709*^9, 3.630760451324748*^9}, {3.630760978275673*^9, 3.630761009956604*^9}, 3.6307613312111692`*^9, {3.6313696503359537`*^9, 3.631369719966176*^9}, {3.631369775988535*^9, 3.631369804410122*^9}, { 3.6313699005970297`*^9, 3.631369900750516*^9}, {3.631370046574942*^9, 3.631370142038958*^9}, {3.631370701327001*^9, 3.631370887546123*^9}, { 3.6314715819567757`*^9, 3.631471582258292*^9}, {3.6314716242977*^9, 3.631471641483234*^9}, {3.6314716776180687`*^9, 3.631471727212674*^9}, { 3.6314718007032757`*^9, 3.6314718082184*^9}, {3.631471875271784*^9, 3.631471888384323*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Simulate and Fit Kinetic Data", "Section", CellChangeTimes->{{3.624910237117503*^9, 3.624910239843616*^9}, { 3.631371222749902*^9, 3.631371224122467*^9}}], Cell[CellGroupData[{ Cell["\<\ Simulate Data for A Macromolecule with Two Conformational States and One \ Binding Site per State\ \>", "Subsection", CellChangeTimes->{{3.624931198040756*^9, 3.624931216902721*^9}, { 3.630407586881689*^9, 3.6304076192943583`*^9}, 3.63147172728685*^9, { 3.631473770018643*^9, 3.631473770895423*^9}}], Cell["\<\ Define parameters and simulate two-state one-site kinetic data.\ \>", "Text", CellChangeTimes->{{3.624911532475958*^9, 3.6249115734414177`*^9}, { 3.630358229183872*^9, 3.6303582453413343`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"SigC1", "=", "1"}], ";"}], RowBox[{"(*", RowBox[{"Observable", " ", "signal", " ", "of", " ", "state", " ", "C1"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SigC2", "=", "0"}], ";"}], RowBox[{"(*", RowBox[{"Observable", " ", "signal", " ", "of", " ", "state", " ", "C2"}], "*)"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"kon1", "=", RowBox[{"10", "^", "8"}]}], ";"}], RowBox[{"(*", RowBox[{ "On", " ", "rate", " ", "for", " ", "conformational", " ", "state", " ", RowBox[{"C1", ".", " ", "Units"}], " ", "of", " ", SuperscriptBox["M", RowBox[{"-", "1"}]], SuperscriptBox["sec", RowBox[{"-", "1"}]]}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"kon2", "=", RowBox[{"10", "^", "8"}]}], ";"}], RowBox[{"(*", RowBox[{ "On", " ", "rate", " ", "for", " ", "conformational", " ", "state", " ", RowBox[{"C2", ".", " ", "Units"}], " ", "of", " ", SuperscriptBox["M", RowBox[{"-", "1"}]], SuperscriptBox["sec", RowBox[{"-", "1"}]]}], "*)"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Ka1", "=", RowBox[{"10", "^", "3"}]}], ";"}], RowBox[{"(*", RowBox[{ "Association", " ", "constant", " ", "for", " ", "conformational", " ", "state", " ", RowBox[{"C1", ".", " ", "Units"}], " ", "of", " ", SuperscriptBox["M", RowBox[{"-", "1"}]]}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Ka2", "=", RowBox[{"10", "^", "7"}]}], ";"}], RowBox[{"(*", RowBox[{ "Association", " ", "constant", " ", "for", " ", "conformational", " ", "state", " ", RowBox[{"C2", ".", " ", "Units"}], " ", "of", " ", SuperscriptBox["M", RowBox[{"-", "1"}]]}], "*)"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"K12", "=", "0.1"}], ";"}], RowBox[{"(*", RowBox[{ RowBox[{ "Conformational", " ", "equilibrium", " ", "constant", " ", "for", " ", "the", " ", "C1"}], "\[Equilibrium]", RowBox[{ "C2", " ", "equilibrium", " ", "when", " ", "ligand", " ", "is", " ", "not", " ", "bound"}]}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"k12", "=", "10"}], ";"}], " ", RowBox[{"(*", RowBox[{ RowBox[{ "Conformational", " ", "rate", " ", "constant", " ", "for", " ", "the", " ", "C1"}], "\[RightVector]", RowBox[{"C2", " ", RowBox[{"reaction", ".", " ", "Units"}], " ", "of", " ", SuperscriptBox["sec", RowBox[{"-", "1"}]]}]}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"k12L", "=", "25"}], ";"}], " ", RowBox[{"(*", RowBox[{ RowBox[{ "Conformational", " ", "rate", " ", "constant", " ", "for", " ", "the", " ", "C1L"}], "\[RightVector]", RowBox[{"C2L", " ", RowBox[{"reaction", ".", " ", "Units"}], " ", "of", " ", SuperscriptBox["sec", RowBox[{"-", "1"}]]}]}], "*)"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"mt", "=", RowBox[{"1", "*", RowBox[{"10", "^", RowBox[{"-", "6"}]}]}]}], ";"}], " ", RowBox[{"(*", RowBox[{"Macromolecular", " ", "concentration"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Merror", "=", "5"}], ";"}], RowBox[{"(*", RowBox[{"Error", " ", "in", " ", "macromolecule", " ", "concentration"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Lerror", "=", "5"}], ";"}], RowBox[{"(*", RowBox[{"Error", " ", "in", " ", "ligand", " ", "concentrations"}], "*)"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"minlig", "=", RowBox[{"3.1", "*", RowBox[{"10", "^", RowBox[{"-", "8"}]}]}]}], ";"}], RowBox[{"(*", RowBox[{"Minimum", " ", "ligand", " ", RowBox[{"concentration", ".", " ", "Units"}], " ", "of", " ", "M"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"maxlig", "=", RowBox[{"10", "^", RowBox[{"-", "4"}]}]}], ";"}], RowBox[{"(*", RowBox[{"Maximum", " ", "ligand", " ", RowBox[{"concentration", ".", " ", "Units"}], " ", "of", " ", "M"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"nlc", "=", "9"}], ";"}], RowBox[{"(*", RowBox[{ "Number", " ", "of", " ", "different", " ", "ligand", " ", "concentrations", " ", "to", " ", "use"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ltable", "=", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"10", "^", "l"}], ",", RowBox[{"{", RowBox[{"l", ",", RowBox[{"Log", "[", RowBox[{"10", ",", "minlig"}], "]"}], ",", RowBox[{"Log", "[", RowBox[{"10", ",", "maxlig"}], "]"}], ",", FractionBox[ RowBox[{ RowBox[{"Log", "[", RowBox[{"10", ",", "maxlig"}], "]"}], "-", RowBox[{"Log", "[", RowBox[{"10", ",", "minlig"}], "]"}]}], RowBox[{ RowBox[{"Max", "[", RowBox[{"nlc", ",", "2"}], "]"}], "-", "1"}]]}], "}"}]}], "]"}], "//", "N"}]}], ";"}], RowBox[{"(*", RowBox[{ "Generate", " ", "table", " ", "of", " ", "ligand", " ", "concentrations"}], "*)"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ntp", "=", "10"}], ";"}], RowBox[{"(*", RowBox[{ "Number", " ", "of", " ", "time", " ", "points", " ", "to", " ", "sample", " ", "per", " ", "transient"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ftp", "=", "1.5"}], ";"}], RowBox[{"(*", RowBox[{"Final", " ", "time", " ", "point"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ttable", "=", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"10", "^", "t"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", "3"}], ",", RowBox[{"Log", "[", RowBox[{"10", ",", "ftp"}], "]"}], ",", FractionBox[ RowBox[{ RowBox[{"Log", "[", RowBox[{"10", ",", "ftp"}], "]"}], "+", "3"}], RowBox[{ RowBox[{"Max", "[", RowBox[{"ntp", ",", "2"}], "]"}], "-", "1"}]]}], "}"}]}], "]"}], "//", "N"}]}], ";"}], RowBox[{"(*", RowBox[{ "Table", " ", "of", " ", "time", " ", "points", " ", "for", " ", "each", " ", "transient"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"maxlig", "*", "Ka1"}], RowBox[{"(*", RowBox[{ "This", " ", "tells", " ", "us", " ", "how", " ", "close", " ", "we", " ", "get", " ", "to", " ", "the", " ", "Kd", " ", "of", " ", "the", " ", "weak", " ", "site"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"maxlig", "*", "Ka2"}], RowBox[{"(*", RowBox[{ "This", " ", "tells", " ", "us", " ", "far", " ", "we", " ", "go", " ", "over", " ", "the", " ", "Kd", " ", "of", " ", "the", " ", "tight", " ", "site"}], "*)"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"mte", "=", RowBox[{"mt", "*", RowBox[{"RandomVariate", "[", RowBox[{"NormalDistribution", "[", RowBox[{"1", ",", RowBox[{"Merror", "/", "100"}]}], "]"}], "]"}]}]}], ";"}], RowBox[{"(*", RowBox[{ "Generate", " ", "a", " ", "macromolecule", " ", "concentration", " ", "for", " ", "a", " ", "simple", " ", "with", " ", "designated", " ", RowBox[{"error", "."}]}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ltablee", "=", RowBox[{"ltable", "*", RowBox[{"Table", "[", RowBox[{ RowBox[{"RandomVariate", "[", RowBox[{"NormalDistribution", "[", RowBox[{"1", ",", RowBox[{"Lerror", "/", "100"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"Length", "[", "ltable", "]"}], "}"}]}], "]"}]}]}], ";"}], RowBox[{"(*", RowBox[{ "Generate", " ", "errors", " ", "in", " ", "each", " ", "ligand", " ", RowBox[{"sample", "."}]}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"err", "=", "0.005"}], ";"}], RowBox[{"(*", RowBox[{ "Error", " ", "to", " ", "be", " ", "introduced", " ", "in", " ", "each", " ", "individual", " ", "run", " ", "before", " ", "averaging", " ", "transients"}], "*)"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{ "Simulate", " ", "three", " ", "datasets", " ", "to", " ", "be", " ", RowBox[{"averaged", ".", " ", "The"}], " ", "ligand", " ", "and", " ", "macromolecule", " ", "concentrations", " ", "in", " ", "the", " ", "datasets", " ", "are", " ", "the", " ", "ideal", " ", RowBox[{"(", RowBox[{"without", " ", "error"}], ")"}], " ", "concentrations", " ", "designated", " ", "by", " ", "the", " ", "user", " ", RowBox[{"above", ".", " ", "The"}], " ", "ligand", " ", "and", " ", "macromolecule", " ", "concentrations", " ", "that", " ", "were", " ", "used", " ", "to", " ", "generate", " ", "the", " ", "transients", " ", "were", " ", "perturbed", " ", "based", " ", "on", " ", "the", " ", "error", " ", "designated", " ", RowBox[{"above", ".", " ", "This"}], " ", "mimics", " ", "the", " ", "discrepancy", " ", "between", " ", "the", " ", "concentrations", " ", "we", " ", "think", " ", "are", " ", "in", " ", "our", " ", "samples", " ", "and", " ", "the", " ", "concentrations", " ", "that", " ", "are", " ", "in", " ", "our", " ", RowBox[{"samples", ".", " ", "Additional"}], " ", "error", " ", "based", " ", "on", " ", "err", " ", "represents", " ", "variations", " ", "in", " ", "concentration", " ", "that", " ", "result", " ", "from", " ", "deviations", " ", "in", " ", "mixing", " ", "within", " ", "the", " ", RowBox[{"instrument", "."}]}], "*)"}], RowBox[{ RowBox[{"presimdata", "=", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ltable", "[", RowBox[{"[", "l", "]"}], "]"}], ",", "mt", ",", "t", ",", RowBox[{ RowBox[{"transim", "[", RowBox[{ RowBox[{"ltablee", "[", RowBox[{"[", "l", "]"}], "]"}], ",", "mte", ",", "t"}], "]"}], "+", RowBox[{"RandomVariate", "[", RowBox[{"NormalDistribution", "[", RowBox[{"0", ",", "err"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"transim", "[", RowBox[{ RowBox[{"ltablee", "[", RowBox[{"[", "l", "]"}], "]"}], ",", "mte", ",", "t"}], "]"}], "+", RowBox[{"RandomVariate", "[", RowBox[{"NormalDistribution", "[", RowBox[{"0", ",", "err"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"transim", "[", RowBox[{ RowBox[{"ltablee", "[", RowBox[{"[", "l", "]"}], "]"}], ",", "mte", ",", "t"}], "]"}], "+", RowBox[{"RandomVariate", "[", RowBox[{"NormalDistribution", "[", RowBox[{"0", ",", "err"}], "]"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"l", ",", "1", ",", RowBox[{"Length", "[", "ltable", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "ttable"}], "}"}]}], "]"}], ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{"Average", " ", "simulation", " ", "data"}], "*)"}], RowBox[{ RowBox[{"simdata", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"presimdata", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}], ",", RowBox[{"presimdata", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}], ",", RowBox[{"presimdata", "[", RowBox[{"[", RowBox[{"j", ",", "3"}], "]"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"presimdata", "[", RowBox[{"[", RowBox[{"j", ",", RowBox[{"4", ";;", "6"}]}], "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", RowBox[{"Length", "[", "presimdata", "]"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"eqdata", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"simdata", "[", RowBox[{"[", RowBox[{"j", ",", RowBox[{"{", RowBox[{"1", ",", "4"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "ntp", ",", RowBox[{"Length", "[", "simdata", "]"}], ",", "ntp"}], "}"}]}], "]"}]}], ";"}], RowBox[{"(*", RowBox[{ "Concentration", " ", "versus", " ", "signal", " ", "at", " ", "final", " ", "time"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"simkinplot", "=", RowBox[{"ListLogLinearPlot", "[", RowBox[{ RowBox[{"simdata", "[", RowBox[{"[", RowBox[{"All", ",", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", "Small", "]"}], ",", "Black"}], "}"}]}]}], "]"}]}], RowBox[{"(*", RowBox[{"Plot", " ", "kinetic", " ", "data"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"simeqplot", "=", RowBox[{"ListLogLinearPlot", "[", RowBox[{"eqdata", ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", "Medium", "]"}], ",", "Black"}], "}"}]}]}], "]"}]}], ";"}], RowBox[{"(*", RowBox[{"Plot", " ", "equilibrium", " ", "data"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ "Show", " ", "plot", " ", "of", " ", "equilibrium", " ", "curve", " ", "and", " ", "final", " ", "curve", " ", "with", " ", "final", " ", "signal", " ", "points", " ", "from", " ", RowBox[{"simulations", ".", " ", "If"}], " ", "the", " ", "Blue", " ", "and", " ", "Red", " ", "curves", " ", "overlap"}], ",", " ", RowBox[{ "the", " ", "system", " ", "has", " ", "come", " ", "to", " ", "equilibrium", " ", "at", " ", "all", " ", "concentrations", " ", "of", " ", "ligand"}]}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"LogLinearPlot", "[", RowBox[{ RowBox[{"transim", "[", RowBox[{"lt", ",", "mt", ",", "ftp"}], "]"}], ",", RowBox[{"{", RowBox[{"lt", ",", "minlig", ",", "maxlig"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", "Thick"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"LogLinearPlot", "[", RowBox[{ RowBox[{"Eq", "[", RowBox[{"lt", ",", "mt"}], "]"}], ",", RowBox[{"{", RowBox[{"lt", ",", "minlig", ",", "maxlig"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Blue"}]}], "]"}], ",", "simeqplot"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "18"}], ",", "0"}], "}"}]}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->CompressedData[" 1:eJwd0FtI03EAxfEZGF10ZVu5KNNUTGeCl8wRai4F8ZLZsgzzMoWMYSQNmV2W mYuBoWSSOp2RxZRg0dpA51RMTJ3m2mKgoobTBjW2dMPQNkzpf34Ph8/befie LKvk3dxFo9HiqcGREZX2r5eDWx/2dQBeL+d8hvz58yYYsYcX7qYMqiwj6oV1 sbAqQpsOa39OF0MOUy6Cha8NSmh0LRKnXj34COcUeuJV948h+ME7bxiyL4hH YVdn1ATsXQ4xwYVIIdHu7l6GPaVTv8i/X5WXhzK0cWM3zJazmPBbsS4YMp3S MGgTM6PhHy8HB26JspJh3OWFbKjjJV2BT7orKuAZzeY9KI73s25TtilNTnhE Mrt0w8fBPS1j2aFuzLEKWYaif7DGfyyhkHKS7ebAA/vL06Ekppk4VNWQBW93 hOTAg0l3z5VQ9j4ypUBalJoHdVrHNUhXzBfAOsZOMXxGn7gFGf2ZAmjhNj+H DbH5TXDwaG4/PKUxEtdbWKPQuFYzDjvWsqah+dhFA7wkVZlhoviEBfo6261w YPAN0dKeYIN223cXfKlI3IAprQI3FAdqtuEhj8KbT1k9XLEPLkUfDoZ5cuZZ +G5nPBP6eAKKYPNIHB+yfecCyig73TYirSfZLESnjBfEtDSGQEQpXZwh+u08 vQNrZfVEUUJXGwxU8WVQzZpQZ9Ad3PwQPfF3a24fDE/1/gRzrLN62PdeZIBf mO0zcPJ4B/HtKtsCBaVKonmr5P5DyhX/GAksWNlsgKEt642wOojVBpsi98qg K/SxBlpSjVr4Hy8Cmps= "]], Cell[BoxData[ FractionBox["1", "10"]], "Output", CellChangeTimes->{{3.624911732466509*^9, 3.624911736357952*^9}, { 3.624911774775508*^9, 3.624911797905558*^9}, 3.6249122628243723`*^9, { 3.624912361083199*^9, 3.624912370920446*^9}, {3.624912408734964*^9, 3.624912437026712*^9}, 3.624912513006116*^9, 3.624912706510067*^9, { 3.6249129410474997`*^9, 3.624912952024549*^9}, {3.624913133738175*^9, 3.624913174493058*^9}, 3.624913407386703*^9, 3.624913515418071*^9, { 3.624913549321623*^9, 3.624913562266144*^9}, {3.624913854986589*^9, 3.6249138764055758`*^9}, {3.6249229591368217`*^9, 3.624923006940042*^9}, 3.624923186807246*^9, {3.63036745674792*^9, 3.630367490169938*^9}, 3.630371022727646*^9, 3.6303710559820766`*^9, {3.630408564928794*^9, 3.6304085896982718`*^9}, 3.630410755288789*^9, 3.630412623736644*^9, 3.630412661080103*^9, 3.631661571683487*^9}], Cell[BoxData["1000"], "Output", CellChangeTimes->{{3.624911732466509*^9, 3.624911736357952*^9}, { 3.624911774775508*^9, 3.624911797905558*^9}, 3.6249122628243723`*^9, { 3.624912361083199*^9, 3.624912370920446*^9}, {3.624912408734964*^9, 3.624912437026712*^9}, 3.624912513006116*^9, 3.624912706510067*^9, { 3.6249129410474997`*^9, 3.624912952024549*^9}, {3.624913133738175*^9, 3.624913174493058*^9}, 3.624913407386703*^9, 3.624913515418071*^9, { 3.624913549321623*^9, 3.624913562266144*^9}, {3.624913854986589*^9, 3.6249138764055758`*^9}, {3.6249229591368217`*^9, 3.624923006940042*^9}, 3.624923186807246*^9, {3.63036745674792*^9, 3.630367490169938*^9}, 3.630371022727646*^9, 3.6303710559820766`*^9, {3.630408564928794*^9, 3.6304085896982718`*^9}, 3.630410755288789*^9, 3.630412623736644*^9, 3.630412661080103*^9, 3.6316615716849823`*^9}], Cell[BoxData[ GraphicsBox[{{{}, {GrayLevel[0], PointSize[Small], PointBox[CompressedData[" 1:eJxN031Qy3EcwPGtEklZpZQV7XInN5KQh9QvyyEcm8rUScU5kfXgKZeoK8NN Qg9Umk2imurScKOH/TxM3dDjmmmVVbbMfpOnRHHDHz7f/vjc59/XvT/3oe1O 2LbXjEQiRfydf1touljIu0HFVyrdcBcnI8bPHuUfjXHGDzLIU9t0BFbgFlUS TXPEx9mmwOFRAsurfH57U78dPm/1rWqZhRFzT965ncOwwe9MWxvVN8OIzcyn RwU9scStHIKDXYwERhGP7XNhkHDzPXO7RJkEZluS29+X+VXay62OvHeXwH4n N72k23ZLL0konaFFBIYVSAmPr2+wsiFnfXwLgf332WTaj113Rz4PNuO6l40R fCOxT7VqDyP4PpHDN3h9IcB3nH+LYiEhwBc03ycj5DTyWcdkf9ZsRb5JetXm IhvkE5qHje/oM4Av9f5WP5or8vXmpLx/MAf5/GhxQ8UTfGSnWEmjEvVLOxPx 2qwb+WJOcRRYBPKVO4hytIkG8LEycerNjA/g43Kmx/n06MEn+H6NO3ZXDz7x O1p9B64Hn5tijssVV+SrsKNiC9+j+0aHXlXNsEL9uoyziIrjyEdNYzapAgzg o+zcz5Mc1IOvLfHF8yrKEPgCebYKpo8OfMELYvaeHtaCT6I6P+w5qAUfXVEp YtOQL1dRnJpthvotyzpypfQ+6sc091dZCQzgWxDK8p19SA++Qf6xBMqIFnyP 49Ub8wL6wYcdqmSXGnrAl/+ovdDvghp83NkpT1qFavBZ/xoV0Cf8h8SR423x E/U7UmGWfiIM+fIfmfjpmg/go68sGrZTD4GPe0m5hYoPgA9vNa76xFSBz/O3 epOQ/Qp8mpaPKWt2NINvqdb+6tmAZvD5h3nW5fUS4FtPOlojKUS+sAOy0kq5 AXxTNLcZnQnIxwln1Sz2RT7/Ar+4yNh+8O1r08VnPOwAH41iz3qlaUT9ZCG5 u8S14KM7eUoXj9SCb238tYbpfcg32dTeWM5BPu/64mSKDPkirYkyR5MefDVS au1hgQ58ywMEIwPRGvA1jGY9Vi5tA9/P3ZdLqgbE4CMrRHU8sRB8JwvjilJP CsHXHCvzksiR7+G38Y01Kcg3b1HjEtcM5KsLz1L8yEG+Vvk0S1Eg8hnYyqZU 0lvweeuCQjrb5eBzlAc+Y22oAp8z013VdeEc+JKS8lesM+dhfwCPiuDr "]]}, {}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{None, None}, AxesOrigin->{-6.907755278982137, 0}, CoordinatesToolOptions:>{"DisplayFunction" -> ({ Exp[ Part[#, 1]], Part[#, 2]}& ), "CopiedValueFunction" -> ({ Exp[ Part[#, 1]], Part[#, 2]}& )}, FrameTicks->{{Automatic, Automatic}, {{{-6.907755278982137, FormBox[ TagBox[ InterpretationBox["\"0.001\"", 0.001, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-5.298317366548036, FormBox[ TagBox[ InterpretationBox["\"0.005\"", 0.005, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-4.605170185988092, FormBox[ TagBox[ InterpretationBox["\"0.010\"", 0.01, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-2.995732273553991, FormBox[ TagBox[ InterpretationBox["\"0.050\"", 0.05, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-2.302585092994046, FormBox[ TagBox[ InterpretationBox["\"0.100\"", 0.1, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-0.6931471805599453, FormBox[ TagBox[ InterpretationBox["\"0.500\"", 0.5, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {0., FormBox[ TagBox[ InterpretationBox["\"1.000\"", 1., AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {1.6094379124341003`, FormBox[ TagBox[ InterpretationBox["\"5.000\"", 5., AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.809142990314028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.521460917862246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.115995809754082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.961845129926823, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.8283137373023015`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.710530701645918, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.506557897319982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.6592600369327783`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.5257286443082556`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.4079456086518722`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.203972804325936, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.916290731874155, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.5108256237659907, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.35667494393873245`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.2231435513142097, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.10536051565782628`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, {{-6.907755278982137, FormBox["\"\"", TraditionalForm]}, {-5.298317366548036, FormBox["\"\"", TraditionalForm]}, {-4.605170185988092, FormBox["\"\"", TraditionalForm]}, {-2.995732273553991, FormBox["\"\"", TraditionalForm]}, {-2.302585092994046, FormBox["\"\"", TraditionalForm]}, {-0.6931471805599453, FormBox["\"\"", TraditionalForm]}, {0., FormBox["\"\"", TraditionalForm]}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm]}, {-6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.809142990314028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.521460917862246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.115995809754082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.961845129926823, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.8283137373023015`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.710530701645918, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.506557897319982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.6592600369327783`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.5257286443082556`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.4079456086518722`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.203972804325936, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.916290731874155, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.5108256237659907, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.35667494393873245`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.2231435513142097, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.10536051565782628`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}}, GridLines->{None, None}, Method->{}, PlotRange->{{-6.907755278982137, 0.40546510810816366`}, {0, 1}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], {None, None}}, Ticks->{{{-6.907755278982137, FormBox[ TagBox[ InterpretationBox["\"0.001\"", 0.001, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-5.298317366548036, FormBox[ TagBox[ InterpretationBox["\"0.005\"", 0.005, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-4.605170185988092, FormBox[ TagBox[ InterpretationBox["\"0.010\"", 0.01, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-2.995732273553991, FormBox[ TagBox[ InterpretationBox["\"0.050\"", 0.05, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-2.302585092994046, FormBox[ TagBox[ InterpretationBox["\"0.100\"", 0.1, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-0.6931471805599453, FormBox[ TagBox[ InterpretationBox["\"0.500\"", 0.5, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {0., FormBox[ TagBox[ InterpretationBox["\"1.000\"", 1., AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {1.6094379124341003`, FormBox[ TagBox[ InterpretationBox["\"5.000\"", 5., AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.809142990314028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.521460917862246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.115995809754082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.961845129926823, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.8283137373023015`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.710530701645918, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.506557897319982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.6592600369327783`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.5257286443082556`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.4079456086518722`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.203972804325936, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.916290731874155, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.5108256237659907, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.35667494393873245`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.2231435513142097, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.10536051565782628`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, Automatic}]], "Output", CellChangeTimes->{{3.624911732466509*^9, 3.624911736357952*^9}, { 3.624911774775508*^9, 3.624911797905558*^9}, 3.6249122628243723`*^9, { 3.624912361083199*^9, 3.624912370920446*^9}, {3.624912408734964*^9, 3.624912437026712*^9}, 3.624912513006116*^9, 3.624912706510067*^9, { 3.6249129410474997`*^9, 3.624912952024549*^9}, {3.624913133738175*^9, 3.624913174493058*^9}, 3.624913407386703*^9, 3.624913515418071*^9, { 3.624913549321623*^9, 3.624913562266144*^9}, {3.624913854986589*^9, 3.6249138764055758`*^9}, {3.6249229591368217`*^9, 3.624923006940042*^9}, 3.624923186807246*^9, {3.63036745674792*^9, 3.630367490169938*^9}, 3.630371022727646*^9, 3.6303710559820766`*^9, {3.630408564928794*^9, 3.6304085896982718`*^9}, 3.630410755288789*^9, 3.630412623736644*^9, 3.630412661080103*^9, 3.631661573052676*^9}], Cell[BoxData[ GraphicsBox[{{{}, {}, {RGBColor[1, 0, 0], Thickness[Large], LineBox[CompressedData[" 1:eJwVUns01PsWF+p2CpFDnTOV+v68H5nRS6Etj2Yqjkqihrge5VFE3qnRCTOj wYhDDDVEx6NLEnVJbY8UKR2UQnKExMhKSk2Pc+f+sddnfdba+7PX57P3Gu+Q vX7ycnJy0bL6P76pddFT2clAzsIOCZRJoEvwtiVoBwMXsfw2fy2VwB3vU95t LAauWruIXSvjmSrF+QlMBqYtUV5pLOM2h2fVv9oxUOOiSo5GiQTyNTLkxoGB y914B4aKJeAc/uRF4wYG2lbPWO0rkMBdxi5BxBoGflJ8FlKZLYEvqe33wj7S sf2XI1/k4yUQGpcjPthBx43bHhvKH5YAXyPyuWoRHZtuVUcDSwIK6QMj7tF0 nA2wGvQjEqjPO38+w4mOqvVhM9LPk/A0uetnL4qOCUOjTI+WSVi1w3r847Qp VijlUSLuJKjkx76Vu2SKl2Z71p21n4SmmgcZm5imOBXiOfLP+wn48K4m3vbj WqyI8TvAzJ4AH84dPUnRWrQ59NOPu/QJyO7pi0LHtWivdbd317W3wNqZtSjw mwmqVTmscNJ9Cw0JftuhyAR/8Xox1Rk7DqGauy2rHE1QfN75kWbdGyh88CL8 8zdjTN1ypOfDuzHIhqj9QcXG6LfQ4PfWuVFY2FsdW+1sjMw5zuNtcyNgtU6R pffVCCsXjfhl33sNVWMhnZuKjFA9kVMh4gxDYV1szkpnI1wdqylut/gbXJ1z lEy/GuJN6Z7O+guvgK/k2qRRaojPDNvXrXoxANIVdLMcN0PsPTNpNq3dB6Yz K3ax5hnipyXVUgvbXvj7TcmVjkoDHDIMUFKo7AHXQlZ5nKsB7qGP8vnKXaB0 QyGwTc4A+cysEuLRCVZjHkGTlfqoJ6iJkR58CGYvH2psdtPHgz5D0ufR96Fo 9rm8+wJ9LFxVsyzPvgVcfOaV0Wr10GyF01u9s43QnmUlXeCph9es7g9UP2mA 2xPLU+4r62FiA9OmLP+/EKawsK26RhftlsTuz6+ugSLLLGaEjy46btkR3ZZ1 HTQfQXz3Ul3US/tsHDRRCQ7k+7896nUwI8nhyl+LyuFH9oGk2wE6KDFp6TE1 +hPCu9qcmWo62GFz2iMy5zIY+Lr0B9dpI/gfnba8LAa2ZnxxUIA2jvZbpMpl 5MGelDvLM9W0sUo9oi9u6wVo0c57nH6XQhdx5H+SOzIhUv2PrcYhFFb4NT/T e58Odtu/7O88RmFtwFRr2Wg6LI3xCAk7SqFjlVLchr50qBjUEd8KoPCzgv9q 7+Z0GC2tnWfvS+GFEikuy0qHfdbPWzwOUGhbOfBm2jIdGMdou9JsKTTgNRbS hUL4cYnjY2ZD4bmIKe/CRCF0dL0++dSawoJcaxbtpBD8za9epW2lME3LIoQc FoJYwUqlxJxCtVL70kRLIajkHvoLTSgM5nxkb3qaBpLWAteZZbJ9mV1PHoSl gmWk6r2rmhSeGu7e3eCVCgIdjtkRDQr9o60MGn5LBaMEd+WBpRSWfzhxf9Aw FQK3LWu+p0xhqE/UXMnrFBivF6zNUaBw70/GlLNrCoxei5pvPU1wu3i9b+d2 Aaz3GguTThFMDX6NazYKIGGJy9ANCUGn0cGLp3UEoB1sVm8wQXBfxVCLq6IA fI2mjquPEtwaPKXIbToHw8XeA2N9BHfuCGzvtj4Hg7mO1SmtBLMNX3pK7ZJh +GCiLblH8KGwyL91XTKM/drQXdtM8I6DVdpFkgzvco1nXyHBSh/xzyfkkuFH 7uINZvUE3X+7vPzqbT5oidpqn1US/N7NH9i/iQ/a7HnMoAqCxTZ140O6fNCn be795yrBm/WuwkhNPtBFJXP6ZQQV+xafb/nIA2sR1/xkEcH53bNnJm7wwI59 98GSywTV3OUFT4p4wKLNuRUVEHz1JnymMZMHu0WHYx5dJLgs6nhNazgPvET2 dVo5BKOm91q4buCBL/vUzhvZBNuS3jtl6/DAn1bTx8oiqO64/+ywBg+O9ksC X2YSnIwbe2S+gAfHRdpfQzMIPvmmpJ/7iQvhbPdzC84TNGfXZwXY8SCalkkT CQn6eu7rLVnPg7j+h+WmaQTnjk53zGjzIF6kYNmSQnCdzqEQpkw/gW3R4SYg 2L85pvbKfB7waCfcp5IJnp7QylWV6Qv6yyRn+ARrNmxamjjGBaFoOE6TRzDG uVxTsZcLmexflcuTCMobBl9Kuc+FC7S9+ZAoy8d8iu4SwYW8fr5Jz1mCrc2L kx28uFAgamzw/1027x86fnkPF66wvzh+jyd4vWvM7cA2LpTRGIPpHNm9O+cf nreZCxX9/sG6p2V+OFQwK5QL10XiH3VxBPkKShvD3blQy36e6nSS4Eb7nU27 HblQR1PVGomR9ev/6btlKxeaRBxQjpL9y7/6zumu5kIr+2ZnQQTBp9KyfiM1 LrTTpj03hhNs/uCww0KeC12iQ/GeoQQzLI09o0eS4Bk7S3U2hOCaP5Q+Fz9N gj7aYzEvmGDtjILwZWsSDPbPZ6w8RrDudJiW1q0kGBZZNVYFEfxkeediYGkS /A9FEKYs "]]}}, {}, {{{}, {GrayLevel[0], PointSize[Medium], PointBox[{{-17.289278632461265`, 0.900199370639929}, {-16.279411349900627`, 0.8784338148522433}, {-15.269544067339993`, 0.8047879862271173}, {-14.259676784779359`, 0.6839794806135364}, {-13.249809502218723`, 0.4316901587667206}, {-12.239942219658088`, 0.18940825344706413`}, {-11.230074937097454`, 0.07405386845501798}, {-10.220207654536818`, 0.0322073877812725}, {-9.210340371976182, 0.012701557733344445`}}]}, {}}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{None, None}, AxesOrigin->{-18, 0}, CoordinatesToolOptions:>{"DisplayFunction" -> ({ Exp[ Part[#, 1]], Part[#, 2]}& ), "CopiedValueFunction" -> ({ Exp[ Part[#, 1]], Part[#, 2]}& )}, FrameTicks->{{Automatic, Automatic}, {{{-18.420680743952367`, FormBox[ TemplateBox[{"10", RowBox[{"-", "8"}]}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {-16.11809565095832, FormBox[ TemplateBox[{"10", RowBox[{"-", "7"}]}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {-13.815510557964274`, FormBox[ TemplateBox[{"10", RowBox[{"-", "6"}]}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {-11.512925464970229`, FormBox[ TemplateBox[{"10", RowBox[{"-", "5"}]}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {-9.210340371976182, FormBox[ TemplateBox[{"10", RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {-17.72753356339242, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-17.322068455284256`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-17.034386382832476`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-16.811242831518264`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-16.62892127472431, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-16.474770594897052`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-16.34123920227253, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-16.223456166616145`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-15.424948470398375`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-15.01948336229021, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-14.73180128983843, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-14.508657738524219`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-14.326336181730264`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-14.172185501903007`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-14.038654109278484`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-13.9208710736221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-13.122363377404328`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-12.716898269296165`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-12.429216196844383`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-12.206072645530174`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-12.02375108873622, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-11.86960040890896, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-11.736069016284437`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-11.618285980628055`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-10.819778284410283`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-10.414313176302118`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-10.126631103850338`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-9.903487552536127, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-9.721165995742174, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-9.567015315914915, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-9.433483923290392, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-9.315700887634009, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, {{-18.420680743952367`, FormBox["\"\"", TraditionalForm]}, {-16.11809565095832, FormBox["\"\"", TraditionalForm]}, {-13.815510557964274`, FormBox["\"\"", TraditionalForm]}, {-11.512925464970229`, FormBox["\"\"", TraditionalForm]}, {-9.210340371976182, FormBox["\"\"", TraditionalForm]}, {-17.72753356339242, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-17.322068455284256`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-17.034386382832476`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-16.811242831518264`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-16.62892127472431, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-16.474770594897052`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-16.34123920227253, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-16.223456166616145`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-15.424948470398375`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-15.01948336229021, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-14.73180128983843, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-14.508657738524219`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-14.326336181730264`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-14.172185501903007`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-14.038654109278484`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-13.9208710736221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-13.122363377404328`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-12.716898269296165`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-12.429216196844383`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-12.206072645530174`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-12.02375108873622, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-11.86960040890896, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-11.736069016284437`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-11.618285980628055`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-10.819778284410283`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-10.414313176302118`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-10.126631103850338`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-9.903487552536127, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-9.721165995742174, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-9.567015315914915, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-9.433483923290392, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-9.315700887634009, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}}, GridLines->{None, None}, Method->{}, PlotRange->{0, 1}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], { Scaled[0.02], Scaled[0.02]}}, Ticks->{{{-18.420680743952367`, FormBox[ TemplateBox[{"10", RowBox[{"-", "8"}]}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {-16.11809565095832, FormBox[ TemplateBox[{"10", RowBox[{"-", "7"}]}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {-13.815510557964274`, FormBox[ TemplateBox[{"10", RowBox[{"-", "6"}]}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {-11.512925464970229`, FormBox[ TemplateBox[{"10", RowBox[{"-", "5"}]}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {-9.210340371976182, FormBox[ TemplateBox[{"10", RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {-17.72753356339242, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-17.322068455284256`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-17.034386382832476`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-16.811242831518264`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-16.62892127472431, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-16.474770594897052`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-16.34123920227253, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-16.223456166616145`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-15.424948470398375`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-15.01948336229021, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-14.73180128983843, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-14.508657738524219`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-14.326336181730264`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-14.172185501903007`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-14.038654109278484`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-13.9208710736221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-13.122363377404328`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-12.716898269296165`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-12.429216196844383`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-12.206072645530174`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-12.02375108873622, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-11.86960040890896, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-11.736069016284437`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-11.618285980628055`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-10.819778284410283`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-10.414313176302118`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-10.126631103850338`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-9.903487552536127, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-9.721165995742174, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-9.567015315914915, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-9.433483923290392, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-9.315700887634009, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, Automatic}]], "Output", CellChangeTimes->{{3.624911732466509*^9, 3.624911736357952*^9}, { 3.624911774775508*^9, 3.624911797905558*^9}, 3.6249122628243723`*^9, { 3.624912361083199*^9, 3.624912370920446*^9}, {3.624912408734964*^9, 3.624912437026712*^9}, 3.624912513006116*^9, 3.624912706510067*^9, { 3.6249129410474997`*^9, 3.624912952024549*^9}, {3.624913133738175*^9, 3.624913174493058*^9}, 3.624913407386703*^9, 3.624913515418071*^9, { 3.624913549321623*^9, 3.624913562266144*^9}, {3.624913854986589*^9, 3.6249138764055758`*^9}, {3.6249229591368217`*^9, 3.624923006940042*^9}, 3.624923186807246*^9, {3.63036745674792*^9, 3.630367490169938*^9}, 3.630371022727646*^9, 3.6303710559820766`*^9, {3.630408564928794*^9, 3.6304085896982718`*^9}, 3.630410755288789*^9, 3.630412623736644*^9, 3.630412661080103*^9, 3.631661574446991*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Fit Kinetic Data Using NonlinearModelFit\ \>", "Subsection", CellChangeTimes->{{3.630416137798688*^9, 3.630416141723691*^9}, { 3.630760473423167*^9, 3.630760474141059*^9}}], Cell["\<\ This fits the simulated kinetic transients. Initial guesses for parameters \ and the boundaries of plots should be adjusted as necessary.\ \>", "Text", CellChangeTimes->{{3.631370995748715*^9, 3.6313710176747847`*^9}}], Cell[BoxData[{ RowBox[{"Clear", "[", RowBox[{ "SigC1", ",", "SigC2", ",", "kon1", ",", "kon2", ",", "Ka1", ",", "Ka2", ",", "K12", ",", "k12", ",", "k12L"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fit", "=", RowBox[{"NonlinearModelFit", "[", RowBox[{"simdata", ",", RowBox[{"transimf", "[", RowBox[{ "Lt", ",", "Mt", ",", "t", ",", "SigC1", ",", "SigC2", ",", "kon1", ",", "kon2", ",", "Ka1", ",", "Ka2", ",", "K12", ",", "k12", ",", "k12L"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"SigC1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"SigC2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"kon1", ",", "100000000"}], "}"}], ",", RowBox[{"{", RowBox[{"kon2", ",", "100000000"}], "}"}], ",", RowBox[{"{", RowBox[{"Ka1", ",", "1000"}], "}"}], ",", RowBox[{"{", RowBox[{"Ka2", ",", "10000000"}], "}"}], ",", RowBox[{"{", RowBox[{"K12", ",", "0.1`"}], "}"}], ",", RowBox[{"{", RowBox[{"k12", ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"k12L", ",", "25"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Lt", ",", "Mt", ",", "t"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fit", "[", "\"\\"", "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{ "SigC1", ",", "SigC2", ",", "kon1", ",", "kon2", ",", "Ka1", ",", "Ka2", ",", "K12", ",", "k12", ",", "k12L"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ "SigC1", ",", "SigC2", ",", "kon1", ",", "kon2", ",", "Ka1", ",", "Ka2", ",", "K12", ",", "k12", ",", "k12L"}], "}"}], "=", RowBox[{ RowBox[{"fit", "[", "\"\\"", "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{"simkinplot", ",", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"LogLinearPlot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"transim", "[", RowBox[{ RowBox[{"ltable", "[", RowBox[{"[", "j", "]"}], "]"}], ",", "mt", ",", "t"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0.0001", ",", "ftp"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", "Thick"}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", RowBox[{"Length", "[", "ltable", "]"}]}], "}"}]}], "]"}], "[", RowBox[{"[", "All", "]"}], "]"}]}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\