(************** Content-type: application/mathematica ************** CreatedBy='Mathematica 5.0' Mathematica-Compatible Notebook This notebook can be used with any Mathematica-compatible application, such as Mathematica, MathReader or Publicon. The data for the notebook starts with the line containing stars above. To get the notebook into a Mathematica-compatible application, do one of the following: * Save the data starting with the line of stars above into a file with a name ending in .nb, then open the file inside the application; * Copy the data starting with the line of stars above to the clipboard, then use the Paste menu command inside the application. Data for notebooks contains only printable 7-bit ASCII and can be sent directly in email or through ftp in text mode. Newlines can be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). NOTE: If you modify the data for this notebook not in a Mathematica- compatible application, you must delete the line below containing the word CacheID, otherwise Mathematica-compatible applications may try to use invalid cache data. For more information on notebooks and Mathematica-compatible applications, contact Wolfram Research: web: http://www.wolfram.com email: info@wolfram.com phone: +1-217-398-0700 (U.S.) Notebook reader applications are available free of charge from Wolfram Research. *******************************************************************) (*CacheID: 232*) (*NotebookFileLineBreakTest NotebookFileLineBreakTest*) (*NotebookOptionsPosition[ 32516, 818]*) (*NotebookOutlinePosition[ 33178, 841]*) (* CellTagsIndexPosition[ 33134, 837]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ \(\(m = SBMLRead["\", \ context \[Rule] \ None\ , verbose \[Rule] \ True, SBMLMassBalanceRateVector \[Rule] \ v, verboseStoichiometry \[Rule] \ True, verboseMassBalanceEquations \[Rule] \ True, verboseMassActionEquations \[Rule] \ True];\)\)], "Input"], Cell[BoxData[ \("File Name:stoic.xml\nSBML Level 2 Version 1"\)], "Output", TextAlignment->Left, FontFamily->"Times", FontSize->16, FontWeight->"Bold", FontColor->RGBColor[0, 0, 0.502007], Background->GrayLevel[0.929686]], Cell[BoxData[ \("Model Name: stoichiometry\[UnderBracket]matrix\[UnderBracket]example\n\ Model id: stoichiometry\[UnderBracket]matrix\[UnderBracket]example"\)], \ "Output", TextAlignment->Left, FontFamily->"Times", FontSize->16, FontWeight->"Bold", FontColor->RGBColor[0, 0, 0.502007], Background->GrayLevel[0.929686]], Cell[BoxData[ \("Function Definitions"\)], "Output", TextAlignment->Left, FontFamily->"Times", FontSize->16, FontWeight->"Bold", FontColor->RGBColor[0, 0, 0.502007], Background->GrayLevel[0.929686]], Cell[BoxData[ TagBox[ StyleBox["\<\"----- None -----\"\>", FontFamily->"Times", FontColor->GrayLevel[0]], (StyleForm[ #, FontFamily -> "Times", FontColor -> RGBColor[ 0.0, 0.0, 0.0]]&)]], "Output", TextAlignment->Left], Cell[BoxData[ \("Unit Definitions (Excluding Built-in Units)"\)], "Output", TextAlignment->Left, FontFamily->"Times", FontSize->16, FontWeight->"Bold", FontColor->RGBColor[0, 0, 0.502007], Background->GrayLevel[0.929686]], Cell[BoxData[ TagBox[ StyleBox["\<\"----- None -----\"\>", FontFamily->"Times", FontColor->GrayLevel[0]], (StyleForm[ #, FontFamily -> "Times", FontColor -> RGBColor[ 0.0, 0.0, 0.0]]&)]], "Output", TextAlignment->Left], Cell[BoxData[ \("Compartments"\)], "Output", TextAlignment->Left, FontFamily->"Times", FontSize->16, FontWeight->"Bold", FontColor->RGBColor[0, 0, 0.502007], Background->GrayLevel[0.929686]], Cell[BoxData[ TagBox[GridBox[{ { TagBox[ StyleBox["\<\"ID\"\>", FontFamily->"Times", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0.415686, 0.352895, 0.803906], FontVariations->{"Underline"->True}], ( StyleForm[ #, FontWeight -> "Bold", FontVariations -> { "Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14]&)], TagBox[ StyleBox["\<\"Name\"\>", FontFamily->"Times", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0.415686, 0.352895, 0.803906], FontVariations->{"Underline"->True}], ( StyleForm[ #, FontWeight -> "Bold", FontVariations -> { "Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14]&)], TagBox[ StyleBox["\<\"Dimension\"\>", FontFamily->"Times", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0.415686, 0.352895, 0.803906], FontVariations->{"Underline"->True}], ( StyleForm[ #, FontWeight -> "Bold", FontVariations -> { "Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14]&)], TagBox[ StyleBox["\<\"Size\"\>", FontFamily->"Times", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0.415686, 0.352895, 0.803906], FontVariations->{"Underline"->True}], (StyleForm[ #, FontWeight -> "Bold", FontVariations -> { "Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14]&)], TagBox[ StyleBox["\<\"Units\"\>", FontFamily->"Times", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0.415686, 0.352895, 0.803906], FontVariations->{"Underline"->True}], ( StyleForm[ #, FontWeight -> "Bold", FontVariations -> { "Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14]&)], TagBox[ StyleBox["\<\"Derived Units\"\>", FontFamily->"Times", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0.415686, 0.352895, 0.803906], FontVariations->{"Underline"->True}], ( StyleForm[ #, FontWeight -> "Bold", FontVariations -> { "Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14]&)], TagBox[ StyleBox["\<\"Outside\"\>", FontFamily->"Times", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0.415686, 0.352895, 0.803906], FontVariations->{"Underline"->True}], ( StyleForm[ #, FontWeight -> "Bold", FontVariations -> { "Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14]&)], TagBox[ StyleBox["\<\"Constant\"\>", FontFamily->"Times", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0.415686, 0.352895, 0.803906], FontVariations->{"Underline"->True}], ( StyleForm[ #, FontWeight -> "Bold", FontVariations -> { "Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14]&)]}, {"\<\"C\"\>", "\<\"C\"\>", "\<\"3\"\>", \ "\<\"\[CenterEllipsis]\"\>", "\<\"volume\"\>", "\<\"litre\"\>", "\<\"\ \[CenterEllipsis]\"\>", "True"} }, RowSpacings->1, ColumnSpacings->3, RowAlignments->Top, ColumnAlignments->{Left}], Function[ BoxForm`e$, TableForm[ BoxForm`e$, TableAlignments -> {Left, Top}]]]], "Output", TextAlignment->Left], Cell[BoxData[ \("Species"\)], "Output", TextAlignment->Left, FontFamily->"Times", FontSize->16, FontWeight->"Bold", FontColor->RGBColor[0, 0, 0.502007], Background->GrayLevel[0.929686]], Cell[BoxData[ TagBox[GridBox[{ { TagBox[ StyleBox["\<\"ID\"\>", FontFamily->"Times", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0.415686, 0.352895, 0.803906], FontVariations->{"Underline"->True}], ( StyleForm[ #, FontWeight -> "Bold", FontVariations -> { "Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14]&)], TagBox[ StyleBox["\<\"Name\"\>", FontFamily->"Times", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0.415686, 0.352895, 0.803906], FontVariations->{"Underline"->True}], ( StyleForm[ #, FontWeight -> "Bold", FontVariations -> { "Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14]&)], TagBox[ StyleBox["\<\"Compartment\"\>", FontFamily->"Times", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0.415686, 0.352895, 0.803906], FontVariations->{"Underline"->True}], ( StyleForm[ #, FontWeight -> "Bold", FontVariations -> { "Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14]&)], TagBox[ StyleBox["\<\"initialType\"\>", FontFamily->"Times", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0.415686, 0.352895, 0.803906], FontVariations->{"Underline"->True}], (StyleForm[ #, FontWeight -> "Bold", FontVariations -> { "Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14]&)], TagBox[ StyleBox["\<\"Value\"\>", FontFamily->"Times", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0.415686, 0.352895, 0.803906], FontVariations->{"Underline"->True}], ( StyleForm[ #, FontWeight -> "Bold", FontVariations -> { "Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14]&)], TagBox[ StyleBox["\<\"Units of the Species\"\>", FontFamily->"Times", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0.415686, 0.352895, 0.803906], FontVariations->{"Underline"->True}], ( StyleForm[ #, FontWeight -> "Bold", FontVariations -> { "Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14]&)], TagBox[ StyleBox["\<\"Derived Units of the Species\"\>", FontFamily->"Times", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0.415686, 0.352895, 0.803906], FontVariations->{"Underline"->True}], ( StyleForm[ #, FontWeight -> "Bold", FontVariations -> { "Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14]&)], TagBox[ StyleBox["\<\"B.C\"\>", FontFamily->"Times", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0.415686, 0.352895, 0.803906], FontVariations->{"Underline"->True}], ( StyleForm[ #, FontWeight -> "Bold", FontVariations -> { "Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14]&)], TagBox[ StyleBox["\<\"Constant\"\>", FontFamily->"Times", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0.415686, 0.352895, 0.803906], FontVariations->{"Underline"->True}], ( StyleForm[ #, FontWeight -> "Bold", FontVariations -> { "Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14]&)], TagBox[ StyleBox["\<\"Charge\"\>", FontFamily->"Times", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0.415686, 0.352895, 0.803906], FontVariations->{"Underline"->True}], ( StyleForm[ #, FontWeight -> "Bold", FontVariations -> { "Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14]&)]}, {"\<\"S1\"\>", "\<\"S1\"\>", "\<\"C\"\>", "\<\"initialAmount\"\>", \ "\<\"1\"\>", "\<\"substance/volume\"\>", "\<\"mole/litre\"\>", "False", "False", "\<\"\[CenterEllipsis]\"\>"}, {"\<\"S2\"\>", "\<\"S2\"\>", "\<\"C\"\>", "\<\"initialAmount\"\>", \ "\<\"1\"\>", "\<\"substance/volume\"\>", "\<\"mole/litre\"\>", "False", "False", "\<\"\[CenterEllipsis]\"\>"}, {"\<\"S3\"\>", "\<\"S3\"\>", "\<\"C\"\>", "\<\"initialAmount\"\>", \ "\<\"1\"\>", "\<\"substance/volume\"\>", "\<\"mole/litre\"\>", "False", "False", "\<\"\[CenterEllipsis]\"\>"}, {"\<\"S4\"\>", "\<\"S4\"\>", "\<\"C\"\>", "\<\"initialAmount\"\>", \ "\<\"1\"\>", "\<\"substance/volume\"\>", "\<\"mole/litre\"\>", "False", "False", "\<\"\[CenterEllipsis]\"\>"}, {"\<\"S5\"\>", "\<\"S5\"\>", "\<\"C\"\>", "\<\"initialAmount\"\>", \ "\<\"1\"\>", "\<\"substance/volume\"\>", "\<\"mole/litre\"\>", "False", "False", "\<\"\[CenterEllipsis]\"\>"} }, RowSpacings->1, ColumnSpacings->3, RowAlignments->Top, ColumnAlignments->{Left}], Function[ BoxForm`e$, TableForm[ BoxForm`e$, TableAlignments -> {Left, Top}]]]], "Output", TextAlignment->Left], Cell[BoxData[ \("Global Parameters"\)], "Output", TextAlignment->Left, FontFamily->"Times", FontSize->16, FontWeight->"Bold", FontColor->RGBColor[0, 0, 0.502007], Background->GrayLevel[0.929686]], Cell[BoxData[ TagBox[ StyleBox["\<\"----- None -----\"\>", FontFamily->"Times", FontColor->GrayLevel[0]], (StyleForm[ #, FontFamily -> "Times", FontColor -> RGBColor[ 0.0, 0.0, 0.0]]&)]], "Output", TextAlignment->Left], Cell[BoxData[ \("Rules"\)], "Output", TextAlignment->Left, FontFamily->"Times", FontSize->16, FontWeight->"Bold", FontColor->RGBColor[0, 0, 0.502007], Background->GrayLevel[0.929686]], Cell[BoxData[ TagBox[ StyleBox["\<\"----- None -----\"\>", FontFamily->"Times", FontColor->GrayLevel[0]], (StyleForm[ #, FontFamily -> "Times", FontColor -> RGBColor[ 0.0, 0.0, 0.0]]&)]], "Output", TextAlignment->Left], Cell[BoxData[ \("Reactions, global and local contexts suppressed"\)], "Output", TextAlignment->Left, FontFamily->"Times", FontSize->16, FontWeight->"Bold", FontColor->RGBColor[0, 0, 0.502007], Background->GrayLevel[0.929686]], Cell[BoxData[ TagBox[GridBox[{ { TagBox[ StyleBox["\<\"ID\"\>", FontFamily->"Times", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0.415686, 0.352895, 0.803906], FontVariations->{"Underline"->True}], ( StyleForm[ #, FontWeight -> "Bold", FontVariations -> { "Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14]&)], TagBox[ StyleBox["\<\"Name\"\>", FontFamily->"Times", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0.415686, 0.352895, 0.803906], FontVariations->{"Underline"->True}], ( StyleForm[ #, FontWeight -> "Bold", FontVariations -> { "Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14]&)], TagBox[ StyleBox["\<\"Fast\"\>", FontFamily->"Times", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0.415686, 0.352895, 0.803906], FontVariations->{"Underline"->True}], ( StyleForm[ #, FontWeight -> "Bold", FontVariations -> { "Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14]&)], TagBox[ StyleBox["\<\"Reaction\"\>", FontFamily->"Times", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0.415686, 0.352895, 0.803906], FontVariations->{"Underline"->True}], (StyleForm[ #, FontWeight -> "Bold", FontVariations -> { "Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14]&)], TagBox[ StyleBox["\<\"Modifiers\"\>", FontFamily->"Times", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0.415686, 0.352895, 0.803906], FontVariations->{"Underline"->True}], ( StyleForm[ #, FontWeight -> "Bold", FontVariations -> { "Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14]&)], TagBox[ StyleBox["\<\"Parameters\"\>", FontFamily->"Times", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0.415686, 0.352895, 0.803906], FontVariations->{"Underline"->True}], ( StyleForm[ #, FontWeight -> "Bold", FontVariations -> { "Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14]&)], TagBox[ StyleBox["\<\"Formula\"\>", FontFamily->"Times", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0.415686, 0.352895, 0.803906], FontVariations->{"Underline"->True}], ( StyleForm[ #, FontWeight -> "Bold", FontVariations -> { "Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14]&)], TagBox[ StyleBox["\<\"Contribution to ODEs\"\>", FontFamily->"Times", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0.415686, 0.352895, 0.803906], FontVariations->{"Underline"->True}], ( StyleForm[ #, FontWeight -> "Bold", FontVariations -> { "Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14]&)]}, {"\<\"reaction1\"\>", "\<\"reaction1\"\>", "False", "\<\"S1 \[Rule] S2\"\>", "\<\"\[CenterEllipsis]\"\>", "\ \<\"\[CenterEllipsis]\"\>", "\<\"\[CenterEllipsis]\"\>", "\<\"\ \[CenterEllipsis]\"\>"}, {"\<\"reaction2\"\>", "\<\"reaction2\"\>", "False", "\<\"S2 + 5S3 \[Rule] 2S2 + 4S3\"\>", "\<\"\ \[CenterEllipsis]\"\>", "\<\"\[CenterEllipsis]\"\>", "\<\"\[CenterEllipsis]\"\ \>", "\<\"\[CenterEllipsis]\"\>"}, {"\<\"reaction3\"\>", "\<\"reaction3\"\>", "False", "\<\"S3 \[Rule] S4\"\>", "\<\"\[CenterEllipsis]\"\>", "\ \<\"\[CenterEllipsis]\"\>", "\<\"\[CenterEllipsis]\"\>", "\<\"\ \[CenterEllipsis]\"\>"}, {"\<\"reaction4\"\>", "\<\"reaction4\"\>", "False", "\<\"S4 \[Rule] S5\"\>", "\<\"\[CenterEllipsis]\"\>", "\ \<\"\[CenterEllipsis]\"\>", "\<\"\[CenterEllipsis]\"\>", "\<\"\ \[CenterEllipsis]\"\>"} }, RowSpacings->1, ColumnSpacings->3, RowAlignments->Top, ColumnAlignments->{Left}], Function[ BoxForm`e$, TableForm[ BoxForm`e$, TableAlignments -> {Left, Top}]]]], "Output", TextAlignment->Left], Cell[BoxData[ \("Differential Equations, global context suppressed"\)], "Output", TextAlignment->Left, FontFamily->"Times", FontSize->16, FontWeight->"Bold", FontColor->RGBColor[0, 0, 0.502007], Background->GrayLevel[0.929686]], Cell[BoxData[ TagBox[ StyleBox["\<\"----- None -----\"\>", FontFamily->"Times", FontColor->GrayLevel[0]], (StyleForm[ #, FontFamily -> "Times", FontColor -> RGBColor[ 0.0, 0.0, 0.0]]&)]], "Output", TextAlignment->Left], Cell[BoxData[ \("Stoichiometry Matrix based on Reaction Stoichiometries"\)], "Output", TextAlignment->Left, FontFamily->"Times", FontSize->16, FontWeight->"Bold", FontColor->RGBColor[0, 0, 0.502007], Background->GrayLevel[0.929686]], Cell[BoxData[ TagBox[GridBox[{ { TagBox[ StyleBox["\<\"Species\"\>", FontFamily->"Times", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0.415686, 0.352895, 0.803906], FontVariations->{"Underline"->True}], ( StyleForm[ #, FontWeight -> "Bold", FontVariations -> { "Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14]&)], TagBox[ StyleBox["\<\"reaction1\"\>", FontFamily->"Times", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0.415686, 0.352895, 0.803906], FontVariations->{"Underline"->True}], ( StyleForm[ #, FontWeight -> "Bold", FontVariations -> { "Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14]&)], TagBox[ StyleBox["\<\"reaction2\"\>", FontFamily->"Times", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0.415686, 0.352895, 0.803906], FontVariations->{"Underline"->True}], ( StyleForm[ #, FontWeight -> "Bold", FontVariations -> { "Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14]&)], TagBox[ StyleBox["\<\"reaction3\"\>", FontFamily->"Times", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0.415686, 0.352895, 0.803906], FontVariations->{"Underline"->True}], (StyleForm[ #, FontWeight -> "Bold", FontVariations -> { "Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14]&)], TagBox[ StyleBox["\<\"reaction4\"\>", FontFamily->"Times", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0.415686, 0.352895, 0.803906], FontVariations->{"Underline"->True}], ( StyleForm[ #, FontWeight -> "Bold", FontVariations -> { "Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14]&)]}, {"S1", \(-1\), "0", "0", "0"}, {"S2", "1", "1", "0", "0"}, {"S3", "0", \(-1\), \(-1\), "0"}, {"S4", "0", "0", "1", \(-1\)}, {"S5", "0", "0", "0", "1"} }, RowSpacings->1, ColumnSpacings->3, RowAlignments->Top, ColumnAlignments->{Left}], Function[ BoxForm`e$, TableForm[ BoxForm`e$, TableAlignments -> {Left, Top}]]]], "Output", TextAlignment->Left], Cell[BoxData[ \("Mass Balance Equations based on Stoichiometry Matrix"\)], "Output", TextAlignment->Left, FontFamily->"Times", FontSize->16, FontWeight->"Bold", FontColor->RGBColor[0, 0, 0.502007], Background->GrayLevel[0.929686]], Cell[BoxData[ TagBox[GridBox[{ { TagBox[ StyleBox["\<\"Species\"\>", FontFamily->"Times", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0.415686, 0.352895, 0.803906], FontVariations->{"Underline"->True}], ( StyleForm[ #, FontWeight -> "Bold", FontVariations -> { "Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14]&)], TagBox[ StyleBox["\<\"[Species'[t]]=[Stoichometries][rates]\"\>", FontFamily->"Times", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0.415686, 0.352895, 0.803906], FontVariations->{"Underline"->True}], ( StyleForm[ #, FontWeight -> "Bold", FontVariations -> { "Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14]&)]}, {"S1", "\<\"S1'[t] == -v[1]\"\>"}, {"S2", "\<\"S2'[t] == v[1] + v[2]\"\>"}, {"S3", "\<\"S3'[t] == -v[2] - v[3]\"\>"}, {"S4", "\<\"S4'[t] == v[3] - v[4]\"\>"}, {"S5", "\<\"S5'[t] == v[4]\"\>"} }, RowSpacings->1, ColumnSpacings->3, RowAlignments->Top, ColumnAlignments->{Left}], Function[ BoxForm`e$, TableForm[ BoxForm`e$, TableAlignments -> {Left, Top}]]]], "Output", TextAlignment->Left], Cell[BoxData[ \("Mass Action Equations based on Stoichiometry Matrix"\)], "Output", TextAlignment->Left, FontFamily->"Times", FontSize->16, FontWeight->"Bold", FontColor->RGBColor[0, 0, 0.502007], Background->GrayLevel[0.929686]], Cell[BoxData[ TagBox[GridBox[{ { TagBox[ StyleBox["\<\"Species\"\>", FontFamily->"Times", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0.415686, 0.352895, 0.803906], FontVariations->{"Underline"->True}], ( StyleForm[ #, FontWeight -> "Bold", FontVariations -> { "Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14]&)], TagBox[ StyleBox["\<\"[Species'[t]]=[Stoichometries][mass-action-rates]\ \"\>", FontFamily->"Times", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0.415686, 0.352895, 0.803906], FontVariations->{"Underline"->True}], ( StyleForm[ #, FontWeight -> "Bold", FontVariations -> { "Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14]&)]}, {"S1", "\<\"S1'[t]==-(S1[t]*v[1])\"\>"}, {"S2", "\<\"S2'[t]==S1[t]*v[1] + S2[t]*S3[t]^5*v[2]\"\>"}, {"S3", "\<\"S3'[t]==-(S2[t]*S3[t]^5*v[2]) - S3[t]*v[3]\"\>"}, {"S4", "\<\"S4'[t]==S3[t]*v[3] - S4[t]*v[4]\"\>"}, {"S5", "\<\"S5'[t]==S4[t]*v[4]\"\>"} }, RowSpacings->1, ColumnSpacings->3, RowAlignments->Top, ColumnAlignments->{Left}], Function[ BoxForm`e$, TableForm[ BoxForm`e$, TableAlignments -> {Left, Top}]]]], "Output", TextAlignment->Left], Cell[BoxData[ \("Events"\)], "Output", TextAlignment->Left, FontFamily->"Times", FontSize->16, FontWeight->"Bold", FontColor->RGBColor[0, 0, 0.502007], Background->GrayLevel[0.929686]], Cell[BoxData[ TagBox[ StyleBox["\<\"----- None -----\"\>", FontFamily->"Times", FontColor->GrayLevel[0]], (StyleForm[ #, FontFamily -> "Times", FontColor -> RGBColor[ 0.0, 0.0, 0.0]]&)]], "Output", TextAlignment->Left] }, Open ]] }, FrontEndVersion->"5.0 for Macintosh", ScreenRectangle->{{0, 1280}, {0, 828}}, WindowSize->{824, 717}, WindowMargins->{{4, Automatic}, {Automatic, 4}}, CellLabelAutoDelete->True ] (******************************************************************* Cached data follows. If you edit this Notebook file directly, not using Mathematica, you must remove the line containing CacheID at the top of the file. The cache data will then be recreated when you save this file from within Mathematica. *******************************************************************) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1776, 53, 335, 6, 59, "Input"], Cell[2114, 61, 237, 7, 66, "Output"], Cell[2354, 70, 334, 9, 66, "Output"], Cell[2691, 81, 214, 7, 46, "Output"], Cell[2908, 90, 261, 7, 27, "Output"], Cell[3172, 99, 237, 7, 46, "Output"], Cell[3412, 108, 261, 7, 27, "Output"], Cell[3676, 117, 206, 7, 46, "Output"], Cell[3885, 126, 5190, 116, 43, "Output"], Cell[9078, 244, 201, 7, 46, "Output"], Cell[9282, 253, 7269, 154, 107, "Output"], Cell[16554, 409, 211, 7, 46, "Output"], Cell[16768, 418, 261, 7, 27, "Output"], Cell[17032, 427, 199, 7, 46, "Output"], Cell[17234, 436, 261, 7, 27, "Output"], Cell[17498, 445, 241, 7, 46, "Output"], Cell[17742, 454, 5947, 129, 91, "Output"], Cell[23692, 585, 243, 7, 46, "Output"], Cell[23938, 594, 261, 7, 27, "Output"], Cell[24202, 603, 248, 7, 46, "Output"], Cell[24453, 612, 3466, 79, 107, "Output"], Cell[27922, 693, 246, 7, 46, "Output"], Cell[28171, 702, 1762, 41, 107, "Output"], Cell[29936, 745, 245, 7, 46, "Output"], Cell[30184, 754, 1849, 43, 107, "Output"], Cell[32036, 799, 200, 7, 46, "Output"], Cell[32239, 808, 261, 7, 27, "Output"] }, Open ]] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************)