(************** 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[ 296802, 7413]*) (*NotebookOutlinePosition[ 297521, 7438]*) (* CellTagsIndexPosition[ 297477, 7434]*) (*WindowFrame->Normal*) Notebook[{ Cell[TextData[{ "This file demonstrates features of MathSBML\n\nInput is emphasized with a \ ", StyleBox["yellow background", Background->RGBColor[1, 1, 0]] }], "Subtitle"], Cell[CellGroupData[{ Cell["The Repressilator", "Title"], Cell[TextData[{ "Based on the model of:\nElowitz,M.B., and Leibler,S. (2000) A synthetic \ oscillatory network of transcriptional regulators. ", StyleBox["Nature", FontSlant->"Italic"], ", 403:335-338, " }], "Subtitle"], Cell[CellGroupData[{ Cell[BoxData[ StyleBox[\(<< mathsbml.m\), Background->RGBColor[1, 1, 0]]], "Input", Background->RGBColor[1, 1, 0]], Cell[BoxData[ \("MathSBML 2.2.1-beta-17 (25-Feb-2004) loaded 27-February-2004 \ 18:19:14.648695"\)], "Print"] }, Open ]], Cell[CellGroupData[{ Cell["read in an SBML file and display the verbose listing", "Section"], Cell[CellGroupData[{ Cell[BoxData[ \(\(m = SBMLRead["\", \ verbose \[Rule] \ True];\)\)], "Input", Background->RGBColor[1, 1, 0]], Cell[BoxData[ \("File Name:repressilator.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: Repressilator Model = repressilator"\)], "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"\)], "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]&)]}, {"\<\"cell\"\>", "\<\"cell\"\>", "\<\"3\"\>", \ "\<\"\[CenterEllipsis]\"\>", "\<\"volume\"\>", "\<\"volume\"\>", "\<\"\ \[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["\<\"Type\"\>", 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["\<\"I.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["\<\"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["\<\"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]&)]}, {"\<\"x\"\>", "\<\"x\"\>", "\<\"cell\"\>", "\<\"\[CenterEllipsis]\"\ \>", "\<\"\[CenterEllipsis]\"\>", "\<\"\[CenterEllipsis]\"\>", "\<\"\ \[CenterEllipsis]\"\>", "False", "False", "\<\"\[CenterEllipsis]\"\>"}, {"\<\"y\"\>", "\<\"y\"\>", "\<\"cell\"\>", "\<\"\[CenterEllipsis]\"\ \>", "\<\"\[CenterEllipsis]\"\>", "\<\"\[CenterEllipsis]\"\>", "\<\"\ \[CenterEllipsis]\"\>", "False", "False", "\<\"\[CenterEllipsis]\"\>"}, {"\<\"z\"\>", "\<\"z\"\>", "\<\"cell\"\>", "\<\"\[CenterEllipsis]\"\ \>", "\<\"\[CenterEllipsis]\"\>", "\<\"\[CenterEllipsis]\"\>", "\<\"\ \[CenterEllipsis]\"\>", "False", "False", "\<\"\[CenterEllipsis]\"\>"}, {"\<\"py\"\>", "\<\"py\"\>", "\<\"cell\"\>", "\<\"\[CenterEllipsis]\ \"\>", "\<\"\[CenterEllipsis]\"\>", "\<\"\[CenterEllipsis]\"\>", "\<\"\ \[CenterEllipsis]\"\>", "False", "False", "\<\"\[CenterEllipsis]\"\>"}, {"\<\"px\"\>", "\<\"px\"\>", "\<\"cell\"\>", "\<\"amount\"\>", \ "\<\"5.\"\>", "\<\"substance\"\>", "\<\"substance\"\>", "False", "False", "\<\"\[CenterEllipsis]\"\>"}, {"\<\"pz\"\>", "\<\"pz\"\>", "\<\"cell\"\>", "\<\"amount\"\>", \ "\<\"15.\"\>", "\<\"substance\"\>", "\<\"substance\"\>", "False", "False", "\<\"\[CenterEllipsis]\"\>"}, {"\<\"null\"\>", "\<\"null\"\>", "\<\"cell\"\>", "\<\"\ \[CenterEllipsis]\"\>", "\<\"\[CenterEllipsis]\"\>", "\<\"\[CenterEllipsis]\"\ \>", "\<\"\[CenterEllipsis]\"\>", "True", "True", "\<\"\[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[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["\<\"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\"\>", 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["\<\"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]&)]}, {"\<\"alpha\"\>", "\<\"alpha\"\>", "\<\"250.\"\>", "\<\"\ \[CenterEllipsis]\"\>", "\<\"\[CenterEllipsis]\"\>", "True"}, {"\<\"beta\"\>", "\<\"beta\"\>", "\<\"5.\"\>", "\<\"\ \[CenterEllipsis]\"\>", "\<\"\[CenterEllipsis]\"\>", "True"}, {"\<\"alpha0\"\>", "\<\"alpha0\"\>", "\<\"0\"\>", "\<\"\ \[CenterEllipsis]\"\>", "\<\"\[CenterEllipsis]\"\>", "True"}, {"\<\"alpha1\"\>", "\<\"alpha1\"\>", "\<\"0\"\>", "\<\"\ \[CenterEllipsis]\"\>", "\<\"\[CenterEllipsis]\"\>", "True"}, {"\<\"n\"\>", "\<\"n\"\>", "\<\"2.1\"\>", \ "\<\"\[CenterEllipsis]\"\>", "\<\"\[CenterEllipsis]\"\>", "True"}, {"\<\"k1\"\>", "\<\"k1\"\>", "\<\"1.\"\>", "\<\"\[CenterEllipsis]\"\ \>", "\<\"\[CenterEllipsis]\"\>", "True"}, {"\<\"K\"\>", "\<\"K\"\>", "\<\"1.\"\>", \ "\<\"\[CenterEllipsis]\"\>", "\<\"\[CenterEllipsis]\"\>", "True"} }, RowSpacings->1, ColumnSpacings->3, RowAlignments->Top, ColumnAlignments->{Left}], Function[ BoxForm`e$, TableForm[ BoxForm`e$, TableAlignments -> {Left, Top}]]]], "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[ InterpretationBox[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", "\<\"null \[RightArrowLeftArrow] x\"\>", GridBox[{ {"pz"} }, RowSpacings->0.25, ColumnSpacings->1, RowAlignments->Baseline, ColumnAlignments->{ Left}], "\<\"\[CenterEllipsis]\"\>", "\<\"250./(1. + \ pz[t]^2.1) - 1.*x[t]\"\>", GridBox[{ {"\<\"x'[t]==250./(1. + pz[t]^2.1) - 1.*x[t]\"\>"} }, RowSpacings->0.25, ColumnSpacings->1, RowAlignments->Baseline, ColumnAlignments->{Left}]}, {"\<\"reaction2\"\>", "\<\"reaction2\"\>", "False", "\<\"null \[RightArrowLeftArrow] y\"\>", GridBox[{ {"px"} }, RowSpacings->0.25, ColumnSpacings->1, RowAlignments->Baseline, ColumnAlignments->{ Left}], "\<\"\[CenterEllipsis]\"\>", "\<\"250./(1. + \ px[t]^2.1) - 1.*y[t]\"\>", GridBox[{ {"\<\"y'[t]==250./(1. + px[t]^2.1) - 1.*y[t]\"\>"} }, RowSpacings->0.25, ColumnSpacings->1, RowAlignments->Baseline, ColumnAlignments->{Left}]}, {"\<\"reaction3\"\>", "\<\"reaction3\"\>", "False", "\<\"null \[RightArrowLeftArrow] z\"\>", GridBox[{ {"py"} }, RowSpacings->0.25, ColumnSpacings->1, RowAlignments->Baseline, ColumnAlignments->{ Left}], "\<\"\[CenterEllipsis]\"\>", "\<\"250./(1. + \ py[t]^2.1) - 1.*z[t]\"\>", GridBox[{ {"\<\"z'[t]==250./(1. + py[t]^2.1) - 1.*z[t]\"\>"} }, RowSpacings->0.25, ColumnSpacings->1, RowAlignments->Baseline, ColumnAlignments->{Left}]}, {"\<\"reaction4\"\>", "\<\"reaction4\"\>", "False", "\<\"px \[RightArrowLeftArrow] null\"\>", GridBox[{ {"x"} }, RowSpacings->0.25, ColumnSpacings->1, RowAlignments->Baseline, ColumnAlignments->{ Left}], "\<\"\[CenterEllipsis]\"\>", "\<\"-5.*(-px[t] + x[t])\ \"\>", GridBox[{ {"\<\"px'[t]==5.*(-px[t] + x[t])\"\>"} }, RowSpacings->0.25, ColumnSpacings->1, RowAlignments->Baseline, ColumnAlignments->{Left}]}, {"\<\"reaction5\"\>", "\<\"reaction5\"\>", "False", "\<\"py \[RightArrowLeftArrow] null\"\>", GridBox[{ {"y"} }, RowSpacings->0.25, ColumnSpacings->1, RowAlignments->Baseline, ColumnAlignments->{ Left}], "\<\"\[CenterEllipsis]\"\>", "\<\"-5.*(-py[t] + y[t])\ \"\>", GridBox[{ {"\<\"py'[t]==5.*(-py[t] + y[t])\"\>"} }, RowSpacings->0.25, ColumnSpacings->1, RowAlignments->Baseline, ColumnAlignments->{Left}]}, {"\<\"reaction6\"\>", "\<\"reaction6\"\>", "False", "\<\"pz \[RightArrowLeftArrow] null\"\>", GridBox[{ {"z"} }, RowSpacings->0.25, ColumnSpacings->1, RowAlignments->Baseline, ColumnAlignments->{ Left}], "\<\"\[CenterEllipsis]\"\>", "\<\"-5.*(-pz[t] + z[t])\ \"\>", GridBox[{ {"\<\"pz'[t]==5.*(-pz[t] + z[t])\"\>"} }, RowSpacings->0.25, ColumnSpacings->1, RowAlignments->Baseline, ColumnAlignments->{Left}]} }, RowSpacings->1, ColumnSpacings->3, RowAlignments->Top, ColumnAlignments->{Left}], TableForm[ {{ StyleForm[ "ID", FontWeight -> "Bold", FontVariations -> {"Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14], StyleForm[ "Name", FontWeight -> "Bold", FontVariations -> {"Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14], StyleForm[ "Fast", FontWeight -> "Bold", FontVariations -> {"Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14], StyleForm[ "Reaction", FontWeight -> "Bold", FontVariations -> {"Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14], StyleForm[ "Modifiers", FontWeight -> "Bold", FontVariations -> {"Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14], StyleForm[ "Parameters", FontWeight -> "Bold", FontVariations -> {"Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14], StyleForm[ "Formula", FontWeight -> "Bold", FontVariations -> {"Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14], StyleForm[ "Contribution to ODEs", FontWeight -> "Bold", FontVariations -> { "Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14]}, {"reaction1", "reaction1", False, "null \[RightArrowLeftArrow] x", {pz}, "\[CenterEllipsis]", "250./(1. + pz[t]^2.1) - 1.*x[t]", { "x'[t]==250./(1. + pz[t]^2.1) - 1.*x[t]"}}, {"reaction2", "reaction2", False, "null \[RightArrowLeftArrow] y", {px}, "\[CenterEllipsis]", "250./(1. + px[t]^2.1) - 1.*y[t]", { "y'[t]==250./(1. + px[t]^2.1) - 1.*y[t]"}}, {"reaction3", "reaction3", False, "null \[RightArrowLeftArrow] z", {py}, "\[CenterEllipsis]", "250./(1. + py[t]^2.1) - 1.*z[t]", { "z'[t]==250./(1. + py[t]^2.1) - 1.*z[t]"}}, {"reaction4", "reaction4", False, "px \[RightArrowLeftArrow] null", {x}, "\[CenterEllipsis]", "-5.*(-px[t] + x[t])", {"px'[t]==5.*(-px[t] + x[t])"}}, {"reaction5", "reaction5", False, "py \[RightArrowLeftArrow] null", {y}, "\[CenterEllipsis]", "-5.*(-py[t] + y[t])", { "py'[t]==5.*(-py[t] + y[t])"}}, {"reaction6", "reaction6", False, "pz \[RightArrowLeftArrow] null", {z}, "\[CenterEllipsis]", "-5.*(-pz[t] + z[t])", {"pz'[t]==5.*(-pz[t] + z[t])"}}}, 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[GridBox[{ { TagBox[ StyleBox["\<\"Variable\"\>", 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["\<\"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]&)]}, {"\<\"px\"\>", "\<\"px'[t]==5.*(-px[t] + x[t])\"\>"}, {"\<\"py\"\>", "\<\"py'[t]==5.*(-py[t] + y[t])\"\>"}, {"\<\"pz\"\>", "\<\"pz'[t]==5.*(-pz[t] + z[t])\"\>"}, {"\<\"x\"\>", "\<\"x'[t]==250./(1. + pz[t]^2.1) - 1.*x[t]\"\>"}, {"\<\"y\"\>", "\<\"y'[t]==250./(1. + px[t]^2.1) - 1.*y[t]\"\>"}, {"\<\"z\"\>", "\<\"z'[t]==250./(1. + py[t]^2.1) - 1.*z[t]\"\>"} }, 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 ]] }, Closed]], Cell[CellGroupData[{ Cell["read file, convert to XPP ", "Section"], Cell[CellGroupData[{ Cell["write to a file", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ StyleBox[\(SBMLWrite[inputfile -> \ "\", \ outputfile -> \ "\", \ format -> \ "\"]\), FontFamily->"Courier"]], "Input", Background->RGBColor[1, 1, 0]], Cell[BoxData[ \("rep.ode"\)], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["same thing, but write output to the screen", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ StyleBox[\(SBMLWrite[inputfile -> \ "\", format -> \ "\"]\), FontFamily->"Courier"]], "Input", Background->RGBColor[1, 1, 0]], Cell[BoxData[ \("# Model Name: Repressilator Model\n#\n# Creation Time: \ 26-November-2003 10:39:46.983614\n# User: jamestkirk\n# Machine: \ DHCP-52-160\n# System: PowerPC PowerMac MacOSX\n# Generated by \ MathSBML 2.2.1-beta-9 (25 Nov 2003)\n# \n# Differential Equations\n# \n\ repressilator_px'=5.*(-repressilator_px+repressilator_x)\n\ repressilator_py'=5.*(-repressilator_py+repressilator_y)\n\ repressilator_pz'=5.*(-repressilator_pz+repressilator_z)\n\ repressilator_x'=250./(1.+repressilator_pz^2.1)-1.*repressilator_x\n\ repressilator_y'=250./(1.+repressilator_px^2.1)-1.*repressilator_y\n\ repressilator_z'=250./(1.+repressilator_py^2.1)-1.*repressilator_z\n# \n# \n# \ Parameters\n# \npar repressilator_alpha=250.\npar repressilator_beta=5.\npar \ repressilator_alpha0=0\npar repressilator_alpha1=0\npar repressilator_n=2.1\n\ par repressilator_k1=1.\npar repressilator_K=1.\n# \n# \n# Initial Conditions\ \n# \ninit repressilator_x=Indeterminate\ninit repressilator_y=Indeterminate\n\ init repressilator_z=Indeterminate\ninit repressilator_py=Indeterminate\ninit \ repressilator_px=5.\ninit repressilator_pz=15.\n# \ndone"\)], "Output"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["read file, convert to Fortran", "Section"], Cell[CellGroupData[{ Cell["write to a file", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ StyleBox[\(SBMLWrite[inputfile -> \ "\", \ outputfile -> \ "\", \ format -> \ "\"]\), FontFamily->"Courier"]], "Input", Background->RGBColor[1, 1, 0]], Cell[BoxData[ \("rep.for"\)], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["same thing, but write output to the screen", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ StyleBox[\(SBMLWrite[inputfile -> \ "\", format -> \ "\"]\), FontFamily->"Courier"]], "Input", Background->RGBColor[1, 1, 0]], Cell[BoxData[ \("C SBML Model Name: Repressilator Model\nC\nC Generated by MathSBML \ 2.2.1-beta-9 (25 Nov 2003)\nC Creation Time: 26-November-2003 10:40:58.746876\ \nC User: jamestkirk\nC Machine: DHCP-52-160\nC Processor: \ PowerPC\nC Machine type: PowerMac\nC Oper. System: MacOSX\nC \ --------------------------------------------------------\nC\nC lsodi \ compliant SBML model\nC Reference: http://netlib.org/alliant/ode/prog/lsodi.f\ \nC\nC --------------------------------------------------------\nC\nC This \ file contains the following modules:\nC\nC Module Name Description \ \nC ----------------- \ ---------------------------------------\nC addp (subroutine) Add A to any \ matrix - required by lsodi\nC init (subroutine) Set initial conditions\nC jac \ (subroutine) Compute Jacobian - required by lsodi\nC res (subroutine) \ Calculate Residuals - required by lsodi\nC\nC \ --------------------------------------------------------\nC\n subroutine \ res(neq,t,y,s,r,ires)\n double precision r,s,t,y\nC\nC This is \ subroutine res for lsodi\nC This function computes the residuals r(i)=g(t,y)- \ A(t,y)(dy/dt)\nC for the linear-implicit system system (A)*(dy/dt)=g(t,y)\nC \ where A is a constant, possibly singular, matrix.\nC\nC Here A is diagonal \ with (restriction imposed by SBML, not lsodi)\nC A(i,i)=1, i=1,...,m, \ where m=# of odes in the SBML Model\nC A(i,i)=0, i=m+1,...,m+nrules, \ where nrules =# of algebraic rules\nC A(i,i)=0, i=nrules+1,...,nvars, \ where nvars is the total number\nC of variables in the system \ and nvars-nrules-m>0 is the\nC number of variables controlled \ purely by events\nC\nC If the system is purely differential\nC the right-hand \ side of the system dydt = g(y,t) will \nC be returned if s is zero-filled.\nC\ \nC Representation of Model Variables by the array y\nC \ ------------------------------------------------\nC y(1) = px\nC y(2) = py\nC \ y(3) = pz\nC y(4) = x\nC y(5) = y\nC y(6) = z\nC\n dimension \ r(6),s(6),y(6)\n r(1)=-s(1) + 5.*(-y(1) + y(4))\n r(2)=-s(2) + \ 5.*(-y(2) + y(5))\n r(3)=-s(3) + 5.*(-y(3) + y(6))\n r(4)=-s(4) + \ 250./(1. + y(3)**2.1) - 1.*y(4)\n r(5)=-s(5) + 250./(1. + y(1)**2.1) - \ 1.*y(5)\n r(6)=-s(6) + 250./(1. + y(2)**2.1) - 1.*y(6)\n return\n \ end\nC\nC\nC --------------------------------------------------------\nC\n \ subroutine addp(neq, t, y, ml, mu, p, nrowp)\nC\nC Subroutine addp \ required by lsodi\nC\n double precision p, t, y\n dimension y(6), \ p(nrowp,6)\n integer i\n Do i = 1,6\n p(i,i) = p(i,i)+1\n \ End Do\n return\n end\nC\nC \ --------------------------------------------------------\nC\n subroutine \ jac (neq,t,y,s,ml,mu,p,nrowp)\nC\nC Subroutine jac required by lsodi, \ computes jacobian\nC\n dimension y(6), s(6),p(nrowp,6)\n\n \ p(1,1)=-5.\n p(1,2)=0\n p(1,3)=0\n p(1,4)=5.\n p(1,5)=0\n \ p(1,6)=0\n p(2,1)=0\n p(2,2)=-5.\n p(2,3)=0\n \ p(2,4)=0\n p(2,5)=5.\n p(2,6)=0\n p(3,1)=0\n p(3,2)=0\n \ p(3,3)=-5.\n p(3,4)=0\n p(3,5)=0\n p(3,6)=5.\n \ p(4,1)=0\n p(4,2)=0\n p(4,3)=(-525.*y(3)**1.1)/(1. + y(3)**2.1)**2\n\ p(4,4)=-1.\n p(4,5)=0\n p(4,6)=0\n \ p(5,1)=(-525.*y(1)**1.1)/(1. + y(1)**2.1)**2\n p(5,2)=0\n p(5,3)=0\n\ p(5,4)=0\n p(5,5)=-1.\n p(5,6)=0\n p(6,1)=0\n \ p(6,2)=(-525.*y(2)**1.1)/(1. + y(2)**2.1)**2\n p(6,3)=0\n p(6,4)=0\n\ p(6,5)=0\n p(6,6)=-1.\n\n return\n end\nC\nC \ --------------------------------------------------------\nC\n Subroutine \ init(neq,y)\n double precision y\n dimension y(6)\n y(1)=5.\n \ y(2)=Indeterminate\n y(3)=15.\n y(4)=Indeterminate\n \ y(5)=Indeterminate\n y(6)=Indeterminate\n return\n end\n"\)], \ "Output"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["read file, display as web page", "Section"], Cell[CellGroupData[{ Cell[BoxData[ StyleBox[\(SBMLWrite[inputfile -> \ "\", \ outputfile -> \ "\", \ format -> \ "\"]\), FontFamily->"Courier"]], "Input", Background->RGBColor[1, 1, 0]], Cell[BoxData[ \("rep.htm"\)], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["read file and perform simulation", "Section"], Cell[CellGroupData[{ Cell[BoxData[{\(m = SBMLRead["\"];\), "\[IndentingNewLine]", StyleBox[\(\(s = SBMLNDSolve[m, 10];\)\(\ \)\), FontFamily->"Courier"], "\[IndentingNewLine]", StyleBox[\(SBMLPlot[s];\), FontFamily->"Courier"]}], "Input", Background->RGBColor[1, 1, 0]], Cell[BoxData[ TagBox[ StyleBox["\<\">>Warning: The following variables have indeterminate \ initial conditions that have been assumed to be zero: x,y,z,py\"\>", FontWeight->"Bold", FontColor->RGBColor[1, 0.500008, 0]], (StyleForm[ #, FontColor -> RGBColor[ 1.0, 0.5, 0.0], FontWeight -> "Bold"]&)]], "Print"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .48473 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.397292 0.373483 0.242366 0.373483 [ [ 0 0 0 0 ] [ 1 .48473 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath % Start of sub-graphic p 0.0238095 0.0115413 0.770775 0.473191 MathSubStart %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 0.0952381 0.0147151 0.00322169 [ [.21429 .00222 -3 -9 ] [.21429 .00222 3 0 ] [.40476 .00222 -3 -9 ] [.40476 .00222 3 0 ] [.59524 .00222 -3 -9 ] [.59524 .00222 3 0 ] [.78571 .00222 -3 -9 ] [.78571 .00222 3 0 ] [.97619 .00222 -6 -9 ] [.97619 .00222 6 0 ] [.01131 .09526 -12 -4.5 ] [.01131 .09526 0 4.5 ] [.01131 .1758 -12 -4.5 ] [.01131 .1758 0 4.5 ] [.01131 .25634 -12 -4.5 ] [.01131 .25634 0 4.5 ] [.01131 .33688 -18 -4.5 ] [.01131 .33688 0 4.5 ] [.01131 .41743 -18 -4.5 ] [.01131 .41743 0 4.5 ] [.01131 .49797 -18 -4.5 ] [.01131 .49797 0 4.5 ] [.01131 .57851 -18 -4.5 ] [.01131 .57851 0 4.5 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .21429 .01472 m .21429 .02097 L s [(2)] .21429 .00222 0 1 Mshowa .40476 .01472 m .40476 .02097 L s [(4)] .40476 .00222 0 1 Mshowa .59524 .01472 m .59524 .02097 L s [(6)] .59524 .00222 0 1 Mshowa .78571 .01472 m .78571 .02097 L s [(8)] .78571 .00222 0 1 Mshowa .97619 .01472 m .97619 .02097 L s [(10)] .97619 .00222 0 1 Mshowa .125 Mabswid .07143 .01472 m .07143 .01847 L s .11905 .01472 m .11905 .01847 L s .16667 .01472 m .16667 .01847 L s .2619 .01472 m .2619 .01847 L s .30952 .01472 m .30952 .01847 L s .35714 .01472 m .35714 .01847 L s .45238 .01472 m .45238 .01847 L s .5 .01472 m .5 .01847 L s .54762 .01472 m .54762 .01847 L s .64286 .01472 m .64286 .01847 L s .69048 .01472 m .69048 .01847 L s .7381 .01472 m .7381 .01847 L s .83333 .01472 m .83333 .01847 L s .88095 .01472 m .88095 .01847 L s .92857 .01472 m .92857 .01847 L s .25 Mabswid 0 .01472 m 1 .01472 L s .02381 .09526 m .03006 .09526 L s [(25)] .01131 .09526 1 0 Mshowa .02381 .1758 m .03006 .1758 L s [(50)] .01131 .1758 1 0 Mshowa .02381 .25634 m .03006 .25634 L s [(75)] .01131 .25634 1 0 Mshowa .02381 .33688 m .03006 .33688 L s [(100)] .01131 .33688 1 0 Mshowa .02381 .41743 m .03006 .41743 L s [(125)] .01131 .41743 1 0 Mshowa .02381 .49797 m .03006 .49797 L s [(150)] .01131 .49797 1 0 Mshowa .02381 .57851 m .03006 .57851 L s [(175)] .01131 .57851 1 0 Mshowa .125 Mabswid .02381 .03082 m .02756 .03082 L s .02381 .04693 m .02756 .04693 L s .02381 .06304 m .02756 .06304 L s .02381 .07915 m .02756 .07915 L s .02381 .11137 m .02756 .11137 L s .02381 .12747 m .02756 .12747 L s .02381 .14358 m .02756 .14358 L s .02381 .15969 m .02756 .15969 L s .02381 .19191 m .02756 .19191 L s .02381 .20802 m .02756 .20802 L s .02381 .22413 m .02756 .22413 L s .02381 .24023 m .02756 .24023 L s .02381 .27245 m .02756 .27245 L s .02381 .28856 m .02756 .28856 L s .02381 .30467 m .02756 .30467 L s .02381 .32078 m .02756 .32078 L s .02381 .35299 m .02756 .35299 L s .02381 .3691 m .02756 .3691 L s .02381 .38521 m .02756 .38521 L s .02381 .40132 m .02756 .40132 L s .02381 .43354 m .02756 .43354 L s .02381 .44964 m .02756 .44964 L s .02381 .46575 m .02756 .46575 L s .02381 .48186 m .02756 .48186 L s .02381 .51408 m .02756 .51408 L s .02381 .53019 m .02756 .53019 L s .02381 .54629 m .02756 .54629 L s .02381 .5624 m .02756 .5624 L s .02381 .59462 m .02756 .59462 L s .02381 .61073 m .02756 .61073 L s .25 Mabswid .02381 0 m .02381 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 1 1 0 r .5 Mabswid .02381 .01472 m .02846 .01487 L .03279 .01502 L .03527 .01508 L .03754 .01513 L .03879 .01515 L .04015 .01517 L .04142 .01518 L .04262 .0152 L .045 .01521 L .04626 .01522 L .04762 .01523 L .04904 .01523 L .05039 .01524 L .05162 .01524 L .05293 .01524 L .05416 .01524 L .05529 .01525 L .05748 .01525 L .05871 .01525 L .06004 .01525 L .06129 .01525 L .06244 .01525 L .06372 .01525 L .06488 .01525 L .06622 .01525 L .0675 .01525 L .06976 .01525 L .07221 .01525 L .07361 .01525 L .07491 .01525 L .07628 .01525 L .07778 .01525 L .08026 .01525 L .08166 .01525 L .08293 .01525 L .08554 .01526 L .08797 .01526 L .09063 .01526 L .09348 .01526 L .09929 .01527 L .10458 .01528 L .10943 .0153 L .11456 .01531 L .12376 .01536 L .13367 .01542 L .14456 .01551 L .15472 .01563 L .16401 .01577 L .17473 .01598 L Mistroke .1849 .01624 L .19451 .01654 L .20475 .01695 L .22315 .01797 L .23346 .01876 L .2446 .01983 L .25423 .021 L .26478 .02258 L .28476 .02676 L .29567 .0299 L .30584 .03353 L .31632 .03813 L .32623 .04346 L .3448 .05659 L .36475 .07648 L .38318 .10146 L .40188 .1342 L .4225 .179 L .46275 .28595 L .50149 .39209 L .52118 .43836 L .53158 .4591 L .54268 .47758 L .54823 .48517 L .55347 .49119 L .55856 .49588 L .5608 .49756 L .56325 .49911 L .5654 .50022 L .56771 .50113 L .56899 .50152 L .57015 .50179 L .57132 .50198 L .57243 .50209 L .57362 .50214 L .5749 .50209 L .57598 .50197 L .57718 .50176 L .57847 .50144 L .57985 .50099 L .58236 .49986 L .58475 .49842 L .58731 .49649 L .59192 .49197 L .5974 .48489 L .60238 .47689 L .62347 .42936 L .66342 .31498 L .70185 .22074 L .72131 .18353 L Mistroke .74274 .14993 L .78211 .10437 L .80153 .08788 L .82242 .0735 L .84214 .06252 L .86366 .05286 L .90339 .03986 L .92308 .03517 L .94406 .03113 L .97619 .02644 L Mfstroke 0 1 0 r .02381 .01472 m .02605 .01541 L .02846 .01635 L .03279 .01869 L .03543 .02067 L .03793 .02303 L .04262 .02908 L .04502 .03317 L .04756 .03837 L .05212 .05016 L .05704 .06658 L .06244 .08892 L .10458 .31197 L .12562 .40654 L .14487 .47687 L .16474 .53421 L .18364 .57433 L .19323 .58878 L .19859 .59488 L .20112 .59723 L .20344 .59907 L .20561 .60051 L .20799 .60175 L .20915 .60223 L .21039 .60265 L .21169 .60298 L .21291 .60319 L .21406 .6033 L .21531 .60332 L .21649 .60324 L .21758 .60307 L .21856 .60286 L .21964 .60254 L .22183 .60163 L .22418 .60027 L .22675 .59831 L .23193 .59285 L .23672 .58598 L .24118 .57805 L .25126 .55504 L .26204 .52393 L .30353 .38018 L .34352 .26147 L .38198 .18068 L .40186 .14962 L .4229 .12298 L .46079 .08751 L .48023 .07409 L .50113 .0624 L .52088 .05348 L Mistroke .5424 .04564 L .58216 .0351 L .60188 .03129 L .62286 .02802 L .64288 .0255 L .6645 .02332 L .70462 .02038 L .72459 .01933 L .74567 .01845 L .76535 .0178 L .78369 .01733 L .79417 .01712 L .80409 .01695 L .81292 .01682 L .81794 .01676 L .82266 .01672 L .82771 .01668 L .83233 .01665 L .8347 .01664 L .83728 .01662 L .83988 .01662 L .84129 .01661 L .8426 .01661 L .84376 .01661 L .84501 .01661 L .84619 .01661 L .84728 .01661 L .84826 .01661 L .84934 .01661 L .85047 .01661 L .85152 .01662 L .85392 .01662 L .85611 .01663 L .85845 .01665 L .86104 .01666 L .86583 .0167 L .87093 .01676 L .8801 .01691 L .88525 .01702 L .8908 .01716 L .90085 .01748 L .91041 .01789 L .92087 .01847 L .93179 .01927 L .94196 .02021 L .95118 .02129 L .95989 .02253 L .97619 .0256 L Mfstroke 0 1 1 r .02381 .01472 m .02846 .05306 L .03279 .08663 L .03523 .10375 L .03754 .11763 L .03881 .12398 L .0402 .12962 L .04146 .13361 L .04262 .13636 L .04376 .13827 L .04498 .13959 L .04614 .14025 L .0472 .14045 L .04843 .14029 L .04913 .14005 L .04978 .13975 L .05097 .13903 L .05224 .13807 L .06244 .12757 L .08414 .10503 L .10458 .08763 L .12624 .07282 L .14616 .06186 L .18471 .04617 L .20354 .04053 L .2242 .0355 L .24535 .03137 L .26462 .02832 L .30353 .02376 L .32262 .02213 L .34338 .02068 L .36276 .0196 L .38416 .01864 L .40464 .01791 L .42343 .01739 L .44277 .01697 L .45358 .01679 L .46363 .01665 L .47278 .01655 L .47747 .01651 L .48255 .01647 L .48546 .01646 L .48813 .01644 L .49064 .01643 L .49197 .01643 L .4934 .01643 L .49469 .01642 L .49587 .01642 L .49706 .01642 L .49819 .01642 L Mistroke .49944 .01642 L .50061 .01642 L .50189 .01642 L .50261 .01642 L .50325 .01642 L .50446 .01642 L .50559 .01643 L .50814 .01643 L .51064 .01644 L .5133 .01646 L .51814 .01649 L .52254 .01653 L .52767 .01659 L .53324 .01668 L .54337 .01688 L .5528 .01714 L .56319 .01752 L .57404 .01805 L .58421 .0187 L .59406 .0195 L .60443 .02055 L .62295 .02318 L .63252 .02502 L .64273 .02745 L .66111 .03336 L .67138 .03778 L .68249 .04368 L .6921 .04991 L .70266 .05816 L .72257 .07853 L .74363 .10825 L .76311 .14411 L .78402 .1912 L .82535 .30076 L .84602 .35568 L .86516 .40125 L .88372 .43696 L .8931 .45061 L .89814 .45646 L .90346 .46138 L .90827 .46463 L .90959 .46531 L .911 .46593 L .91221 .46638 L .91354 .46678 L .91483 .46708 L .91603 .46726 L .91717 .46737 L .91838 .46739 L .91946 .46734 L Mistroke .92048 .46723 L .92159 .46704 L .92278 .46676 L .92417 .46631 L .92545 .4658 L .92837 .46426 L .93094 .46247 L .93367 .46012 L .9389 .45438 L .94363 .4478 L .95928 .41785 L .97619 .37563 L Mfstroke 0 0 1 r .02381 .01472 m .02499 .01473 L .02605 .01475 L .02729 .01481 L .02846 .01489 L .02954 .01498 L .03053 .01509 L .03279 .01541 L .03506 .01587 L .03756 .01656 L .04017 .01753 L .04262 .01871 L .04517 .02029 L .04761 .02217 L .05217 .02689 L .05708 .03409 L .06244 .04487 L .06799 .05946 L .07302 .07565 L .08429 .12054 L .10458 .21759 L .14465 .40066 L .16302 .46729 L .1832 .52579 L .19282 .54804 L .20314 .56747 L .20883 .57607 L .21403 .58247 L .21653 .58503 L .21925 .58742 L .22163 .58916 L .2242 .59065 L .22543 .59123 L .22673 .59173 L .22784 .59208 L .22905 .59236 L .23019 .59255 L .23141 .59265 L .23256 .59266 L .2336 .59259 L .23425 .59251 L .23493 .59239 L .23616 .5921 L .23748 .59168 L .23894 .59108 L .24154 .58963 L .24397 .58786 L .24927 .58258 L .2541 .57609 L .26498 .55597 L Mistroke .27485 .53195 L .28401 .50591 L .30474 .43936 L .34393 .31518 L .36394 .26174 L .38556 .21325 L .42568 .14589 L .44566 .12122 L .46673 .10015 L .50476 .07208 L .52431 .06144 L .54523 .05224 L .56508 .04518 L .58665 .03902 L .62654 .03071 L .64636 .02771 L .66738 .02514 L .70518 .02174 L .72457 .02046 L .74544 .01936 L .76512 .01852 L .78663 .01781 L .8072 .0173 L .82631 .01696 L .83137 .01689 L .83686 .01683 L .84169 .01678 L .8468 .01674 L .85142 .01671 L .85404 .0167 L .85649 .01669 L .85764 .01669 L .85874 .01669 L .85973 .01669 L .86079 .01668 L .86194 .01668 L .863 .01668 L .86414 .01668 L .8654 .01668 L .86662 .01668 L .86775 .01669 L .86898 .01669 L .87031 .01669 L .87302 .0167 L .87548 .01672 L .88023 .01675 L .88473 .01679 L .88993 .01686 L .89473 .01694 L .90557 .01717 L Mistroke .91525 .01747 L .92431 .01783 L .93426 .01835 L .94494 .01907 L .95261 .01972 L .96097 .02057 L .97619 .0226 L Mfstroke 1 0 1 r .02381 .03082 m .02846 .02735 L .03279 .02483 L .03754 .02268 L .04262 .02092 L .04795 .01953 L .053 .01853 L .05753 .01783 L .06244 .01725 L .06751 .01678 L .07308 .01639 L .0789 .01609 L .08435 .01588 L .08944 .01574 L .0941 .01563 L .09947 .01554 L .10458 .01548 L .10717 .01546 L .10961 .01544 L .11417 .01541 L .11672 .0154 L .11908 .01539 L .12166 .01538 L .12296 .01538 L .12364 .01538 L .12439 .01538 L .12562 .01538 L .12679 .01538 L .12792 .01538 L .12897 .01538 L .13011 .01538 L .13136 .01538 L .13267 .01538 L .13389 .01538 L .13612 .01539 L .13817 .01539 L .14277 .01541 L .14751 .01544 L .15258 .01547 L .1617 .01555 L .17254 .01567 L .1824 .01583 L .19238 .01603 L .20158 .01627 L .21168 .0166 L .22238 .01704 L .23182 .01753 L .24195 .01818 L .26027 .01981 L .2704 .02103 L Mistroke .28144 .0227 L .29199 .02471 L .30154 .02696 L .32125 .03326 L .33207 .03795 L .34224 .04336 L .36236 .05763 L .38084 .07598 L .39971 .10108 L .42038 .13691 L .46086 .23073 L .49982 .33647 L .51967 .38804 L .54123 .43689 L .5513 .45583 L .56197 .4724 L .57108 .48315 L .57627 .48766 L .57879 .48939 L .58113 .49073 L .58341 .49176 L .58458 .49218 L .58584 .49256 L .58657 .49274 L .58723 .49288 L .58854 .49309 L .58973 .4932 L .59099 .49322 L .59222 .49317 L .59354 .49301 L .59479 .49277 L .59593 .49248 L .59726 .49204 L .59871 .49145 L .60135 .49007 L .60601 .48665 L .61097 .48168 L .61987 .46939 L .62923 .4523 L .63932 .42996 L .65759 .38296 L .6987 .27394 L .73829 .19025 L .77636 .13338 L .79595 .1115 L .81689 .09249 L .83678 .07788 L .85836 .0651 L .89831 .04786 L .91816 .04163 L Mistroke .9392 .0363 L .97619 .02936 L Mfstroke 1 0 0 r .02381 .06304 m .02499 .06045 L .02605 .05873 L .02729 .05747 L .02846 .05693 L .02954 .05696 L .03053 .0574 L .03163 .05831 L .03279 .05973 L .03395 .06158 L .0352 .06399 L .03746 .06923 L .04262 .08333 L .04793 .09697 L .05054 .10249 L .05297 .10679 L .05535 .11025 L .0575 .1128 L .05989 .11503 L .06244 .11677 L .0637 .11742 L .06508 .11798 L .06578 .1182 L .06653 .11841 L .06717 .11855 L .06787 .11867 L .06857 .11876 L .06921 .11882 L .07049 .11886 L .07164 .11882 L .07287 .1187 L .07356 .1186 L .0742 .11849 L .07563 .11817 L .07823 .11739 L .08111 .11626 L .08414 .11481 L .10458 .10145 L .14269 .07522 L .16394 .06341 L .18325 .05457 L .22229 .04121 L .24148 .03638 L .26228 .03214 L .28176 .02892 L .3032 .02606 L .3426 .02223 L .36205 .02085 L .38294 .01966 L .40269 .01875 L Mistroke .42421 .01797 L .44485 .0174 L .46398 .01699 L .47457 .01682 L .48454 .01668 L .49349 .01659 L .49853 .01655 L .50316 .01652 L .50558 .01651 L .50787 .0165 L .50914 .0165 L .51051 .01649 L .51166 .01649 L .51292 .01649 L .5141 .01649 L .51521 .01649 L .51639 .01648 L .51765 .01648 L .51876 .01648 L .51993 .01649 L .52093 .01649 L .52202 .01649 L .52342 .01649 L .52474 .0165 L .52721 .0165 L .52986 .01652 L .53274 .01654 L .53792 .01658 L .5427 .01663 L .54739 .01669 L .55242 .01678 L .5615 .01697 L .5723 .0173 L .58215 .01769 L .59205 .0182 L .60121 .0188 L .61127 .01964 L .62197 .02076 L .63132 .02199 L .64141 .02364 L .65968 .02771 L .66924 .03055 L .6797 .03436 L .69075 .03937 L .70079 .04495 L .72038 .05935 L .74132 .08118 L .76048 .10824 L .78127 .14599 L .82216 .24241 L Mistroke .86153 .34548 L .8813 .39187 L .89938 .42648 L .90934 .44102 L .91392 .4464 L .91881 .45111 L .92152 .45326 L .92399 .45489 L .92649 .45625 L .92879 .4572 L .9301 .45763 L .93149 .45797 L .93221 .45811 L .93288 .45822 L .93362 .4583 L .93441 .45836 L .93509 .45839 L .93583 .45839 L .93652 .45836 L .93717 .45831 L .93839 .45815 L .93969 .45789 L .94079 .45759 L .94199 .45719 L .94442 .45614 L .94667 .45487 L .94875 .45344 L .95348 .44932 L .95852 .4436 L .96778 .42984 L .97619 .41414 L Mfstroke MathSubEnd P % End of sub-graphic 0 g .78945 .03695 m .78945 .41043 L .97619 .41043 L .97619 .03695 L F 1 g .77077 .05562 m .77077 .42911 L .95752 .42911 L .95752 .05562 L F 0 g .001 w [ ] 0 setdash .77077 .05562 m .95752 .05562 L .95752 .42911 L .77077 .42911 L .77077 .05562 L s % Start of sub-graphic p 0.770775 0.0556249 0.957516 0.429108 MathSubStart %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.0297619 0.297619 0.027933 0.27933 [ [ 0 0 0 0 ] [ 1 2 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 2 L 0 2 L closepath clip newpath % Start of sub-graphic p 0.0535714 0.0502793 0.35119 0.329609 MathSubStart %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 0.952381 0.309017 0.294302 [ [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 1 0 0 r .5 Mabswid [ ] 0 setdash .02381 .30902 m .97619 .30902 L s MathSubEnd P % End of sub-graphic 0 g gsave .38988 .18994 -61 -10 Mabsadd m 1 1 Mabs scale currentpoint translate 0 20 translate 1 -1 scale /g { setgray} bind def /k { setcmykcolor} bind def /p { gsave} bind def /r { setrgbcolor} bind def /w { setlinewidth} bind def /C { curveto} bind def /F { fill} bind def /L { lineto} bind def /rL { rlineto} bind def /P { grestore} bind def /s { stroke} bind def /S { show} bind def /N {currentpoint 3 -1 roll show moveto} bind def /Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def /m { moveto} bind def /Mr { rmoveto} bind def /Mx {currentpoint exch pop moveto} bind def /My {currentpoint pop exch moveto} bind def /X {0 rmoveto} bind def /Y {0 exch rmoveto} bind def 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (pz) show 75.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore % Start of sub-graphic p 0.0535714 0.374302 0.35119 0.653631 MathSubStart %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 0.952381 0.309017 0.294302 [ [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 1 0 1 r .5 Mabswid [ ] 0 setdash .02381 .30902 m .97619 .30902 L s MathSubEnd P % End of sub-graphic 0 g gsave .38988 .51397 -61 -10 Mabsadd m 1 1 Mabs scale currentpoint translate 0 20 translate 1 -1 scale /g { setgray} bind def /k { setcmykcolor} bind def /p { gsave} bind def /r { setrgbcolor} bind def /w { setlinewidth} bind def /C { curveto} bind def /F { fill} bind def /L { lineto} bind def /rL { rlineto} bind def /P { grestore} bind def /s { stroke} bind def /S { show} bind def /N {currentpoint 3 -1 roll show moveto} bind def /Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def /m { moveto} bind def /Mr { rmoveto} bind def /Mx {currentpoint exch pop moveto} bind def /My {currentpoint pop exch moveto} bind def /X {0 rmoveto} bind def /Y {0 exch rmoveto} bind def 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (px) show 75.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore % Start of sub-graphic p 0.0535714 0.698324 0.35119 0.977654 MathSubStart %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 0.952381 0.309017 0.294302 [ [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 0 1 r .5 Mabswid [ ] 0 setdash .02381 .30902 m .97619 .30902 L s MathSubEnd P % End of sub-graphic 0 g gsave .38988 .83799 -61 -10 Mabsadd m 1 1 Mabs scale currentpoint translate 0 20 translate 1 -1 scale /g { setgray} bind def /k { setcmykcolor} bind def /p { gsave} bind def /r { setrgbcolor} bind def /w { setlinewidth} bind def /C { curveto} bind def /F { fill} bind def /L { lineto} bind def /rL { rlineto} bind def /P { grestore} bind def /s { stroke} bind def /S { show} bind def /N {currentpoint 3 -1 roll show moveto} bind def /Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def /m { moveto} bind def /Mr { rmoveto} bind def /Mx {currentpoint exch pop moveto} bind def /My {currentpoint pop exch moveto} bind def /X {0 rmoveto} bind def /Y {0 exch rmoveto} bind def 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (py) show 75.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore % Start of sub-graphic p 0.0535714 1.02235 0.35119 1.30168 MathSubStart %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 0.952381 0.309017 0.294302 [ [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 1 1 r .5 Mabswid [ ] 0 setdash .02381 .30902 m .97619 .30902 L s MathSubEnd P % End of sub-graphic 0 g gsave .38988 1.16201 -61 -10 Mabsadd m 1 1 Mabs scale currentpoint translate 0 20 translate 1 -1 scale /g { setgray} bind def /k { setcmykcolor} bind def /p { gsave} bind def /r { setrgbcolor} bind def /w { setlinewidth} bind def /C { curveto} bind def /F { fill} bind def /L { lineto} bind def /rL { rlineto} bind def /P { grestore} bind def /s { stroke} bind def /S { show} bind def /N {currentpoint 3 -1 roll show moveto} bind def /Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def /m { moveto} bind def /Mr { rmoveto} bind def /Mx {currentpoint exch pop moveto} bind def /My {currentpoint pop exch moveto} bind def /X {0 rmoveto} bind def /Y {0 exch rmoveto} bind def 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (z) show 69.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore % Start of sub-graphic p 0.0535714 1.34637 0.35119 1.6257 MathSubStart %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 0.952381 0.309017 0.294302 [ [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 1 0 r .5 Mabswid [ ] 0 setdash .02381 .30902 m .97619 .30902 L s MathSubEnd P % End of sub-graphic 0 g gsave .38988 1.48603 -61 -10 Mabsadd m 1 1 Mabs scale currentpoint translate 0 20 translate 1 -1 scale /g { setgray} bind def /k { setcmykcolor} bind def /p { gsave} bind def /r { setrgbcolor} bind def /w { setlinewidth} bind def /C { curveto} bind def /F { fill} bind def /L { lineto} bind def /rL { rlineto} bind def /P { grestore} bind def /s { stroke} bind def /S { show} bind def /N {currentpoint 3 -1 roll show moveto} bind def /Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def /m { moveto} bind def /Mr { rmoveto} bind def /Mx {currentpoint exch pop moveto} bind def /My {currentpoint pop exch moveto} bind def /X {0 rmoveto} bind def /Y {0 exch rmoveto} bind def 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (y) show 69.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore % Start of sub-graphic p 0.0535714 1.67039 0.35119 1.94972 MathSubStart %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 0.952381 0.309017 0.294302 [ [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 1 1 0 r .5 Mabswid [ ] 0 setdash .02381 .30902 m .97619 .30902 L s MathSubEnd P % End of sub-graphic 0 g gsave .38988 1.81006 -61 -10 Mabsadd m 1 1 Mabs scale currentpoint translate 0 20 translate 1 -1 scale /g { setgray} bind def /k { setcmykcolor} bind def /p { gsave} bind def /r { setrgbcolor} bind def /w { setlinewidth} bind def /C { curveto} bind def /F { fill} bind def /L { lineto} bind def /rL { rlineto} bind def /P { grestore} bind def /s { stroke} bind def /S { show} bind def /N {currentpoint 3 -1 roll show moveto} bind def /Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def /m { moveto} bind def /Mr { rmoveto} bind def /Mx {currentpoint exch pop moveto} bind def /My {currentpoint pop exch moveto} bind def /X {0 rmoveto} bind def /Y {0 exch rmoveto} bind def 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (x) show 69.000 13.000 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore MathSubEnd P % End of sub-graphic 0 0 m 1 0 L 1 .48473 L 0 .48473 L closepath clip newpath % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{373, 180.75}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgooooo`?o0000oooool00oooo`3ooooooooo o`02ooooo`03ool0oooooooooooo01Cooooo00?o0?l0ooooooooool00_ooool2o`00oc_ooooo00?o 0?ooooooooooool00_ooool00ooo003oooooooooo`0?ooooo`03oooo0?oooooooooo00;ooooo00?o o`3oooooooooool0:_ooool01?l0003ooooooooooooooolDool000Kooooo00Co0000oooooooooooo 00000oooool00ol0003oooooooooo`0Mooooo`Oo00002oooool000oooooo1Ol00002ooooo`?o0000 1Oooool01_l0003oooooooooool0ooooooooool000Cooooo00Co0?l0oooooooooooo003o2?ooool0 0ol0ooooooooooooo`02ooooo`03ool00?oooooooooo03cooooo00?oool0ooooooooool00_ooool0 0ooo0?ooooooooooo`0Booooo`03o`3o0?oooooooooo00;ooooo00?o003oooooooooool0??ooool0 1Ol0ooooooooooooooooooooo`00013ooooo00?oool0ooooooooool00_ooool00ooo0?oooooooooo o`0[ooooo`03o`000?oooooooooo01_ooooo00Ko0000oooooooooooo0000ooooool00002ooooo`03 o`000?oooooooooo01cooooo1ol0000;ooooo`004?ooool01_l0003oooooooooool0003oooooo`00 00?ooooo00?o0000ooooooooool00_ooool01_l0003oooooooooool0ooooooooool000Cooooo00Go 0?l0ooooooooooooooooo`00o`05ooooo`;o0?oo0oooool2ool0043ooooo00?oool0ooooooooool0 0_ooool00ooo0?ooooooooooo`0?ooooo`;o0?l01?ooool00ol00?ooooooooooo`0nooooo`05o`3o oooooooooooooooooooo00003Oooool2oooo00Cooooo00?oo`3oooooooooool0;?ooool00ol0003o ooooooooo`0Jooooo`Co00000_ooool5o`0001gooooo1ol0000;ooooo`004Oooool00ol0003ooooo ooooo`05ooooo`03o`000?oooooooooo00;ooooo00Co0000oooooooooooo0?oo0_ooool01Ooo003o oooooooooooooooo0?l000?ooooo00?o003oooooooooool00_ooool01?l0ooooooooooooooooool2 ool004?ooooo00?oool0ooooooooool00_ooool00ooo0?ooooooooooo`0=ooooo`03o`3o0?oooooo oooo00;ooooo0_l00?m2ooooo`05o`3ooooooooooooooooooooo00002oooool00oooo`3ooooooooo o`02ooooo`;oo`3o;oooool00ol0003oooooooooo`12ooooo`Oo00002oooool001;ooooo00?o0000 ooooooooool01?ooool00ol0003oooooooooo`02ooooo`?o000000Co0?ooooooooooooooo`000ooo ool01Ol0o`3ooooooooooooooooo003o00?ooooo00Go0?ooooooooooooooooooool00016ooooo`03 oooo0?oooooooooo00;ooooo00?oo`3oooooooooool02oooool00ol0o`3oooooooooo`02ooooo`03 o`00oooooooooooo04;ooooo00?o0?ooooooooooool00_ooool00ooo003oooooooooo`07ooooo`03 oooo0?oooooooooo00;ooooo00?oo`3oooooooooool0;oooool00ol0003oooooooooo`12ooooo`Oo 00002oooool000oooooo00Ko0000ooooooooooooooooo`000?ooool4o`0000Gooooo00Co0000oooo oooooooo0?oo0_ooool01Ooo003ooooooooooooooooo0?l000Cooooo00?o003oooooool0ool00_oo ool2ool004Sooooo00?oool0ooooooooool00_ooool00ooo0?ooooooooooo`09ooooo`03o`3o0?oo oooooooo00;ooooo00?o003oooooooooool0A?ooool01Ol0ooooooooooooooooooooo`0000Sooooo 00?oool0ooooooooool00_ooool00ooo0?ooooooooooo`0`ooooo`03o`000?oooooooooo04;ooooo 1ol0000;ooooo`003oooool01ol0003ooooooooooooooooo0000ooooool000002?ooool01?l0003o ooooooooool0ool3ooooo`05ool00?ooooooooooooooool0o`000oooool01Ol00?oo0?oooooooooo ooooo`0004[ooooo00?oool0ooooooooool00_ooool00ooo0?ooooooooooo`08ooooo`03o`3o0?oo oooooooo00?ooooo00?o003oooooooooool0AOooool01Ol0ooooooooooooooooooooo`0000Kooooo 00?oool0ooooooooool00_ooool00ooo0?ooooooooooo`0aooooo`03o`000?oooooooooo04;ooooo 1ol0000;ooooo`004?ooool3o`0000;ooooo1Ol00004ooooo`04o`000?ooooooooooo`3oo`Cooooo 00Coo`00oooooooooooo0?l00oooool01?l00?oooooooooooooo001ooooo`06o`3ooooooooooooooooo0?ooooooo`000_ooool00ooo0?oooooo ooooo`0fooooo`03o`000?oooooooooo04;ooooo1ol0000;ooooo`007_ooool01Ol0003ooooooooo oooooooo0?oo00Gooooo00?o0?ooooooool0o`000oooool00ol00?ooooooooooo`1?ooooo`03oooo 0?oooooooooo00;ooooo00?oo`3oo`3o0?ooool00oooool00ol00?ooooooooooo`1@ooooo`07o`3o ooooo`3ooooooooooooo003oooooool0o`0iooooo`03o`000?oooooooooo04;ooooo1ol0000;oooo o`007_ooool00ol0003oooooooooo`02ooooo`05o`3oooooooooooooooooool0ool00_ooool00ol0 o`3oooooooooo`02ooooo`03o`00oooooooooooo04oooooo00Goool0ooooooooooooooooool0o`04 ooooo`03o`00oooooooooooo057ooooo00?o0?ooooooooooool00_ooool00ooo003oooooooooo`0h ooooo`03o`000?oooooooooo04;ooooo1ol0000;ooooo`007_ooool00ol0003oooooooooo`02oooo o`Co0?oo0oooool00ol0o`3oooooooooo`02ooooo`03o`00oooooooooooo04oooooo00Koool0oooo oooooooo0?l0oooooooo0?l2ooooo`03o`00oooooooooooo057ooooo00?oool0ooooool0ool00ooo ool00ooo0?ooo`00ooooo`0hooooo`03o`000?oooooooooo04;ooooo1ol0000;ooooo`007_ooool0 0ol0003oooooooooo`03ooooo`;o0?oo1Oooool01Ol0o`3ooooooooooooooooo003o05;ooooo00Oo ool0o`3o0?ooooooooooool0oooooooo003o05?ooooo00Coool0oooooooooooo0?oo0_ooool00ooo 0?ooooooool0000iooooo`03o`000?oooooooooo04;ooooo1ol0000;ooooo`007_ooool2o`0000_o oooo00Go0?l0ooooooooooooooooo`00o`1Booooo`03o`3o0?oooooooooo00;ooooo00?oo`3ooooo ooooool0DOooool00oooo`3oooooooooo`02ooooo`03o`3ooooo0?oooooo00;ooooo00?oo`00oooo ooooool0=_ooool00ol0003oooooooooo`12ooooo`Oo00002oooool001kooooo00?o0000oooooooo ool02_ooool01Ol0o`3ooooooooooooooooo003o057ooooo00?o0?l0ooooooooo`000oooool00ooo 0?ooooooooooo`1@ooooo`03oooo0?oooooooooo00?ooooo00?o0?ooool0ooooool00_ooool00ooo 003oooooooooo`0fooooo`03o`000?oooooooooo01[ooooo0ol0000Uooooo`Oo00002oooool001ko oooo00?o0000ooooooooool02_ooool00ol0o`3oooooooooo`02ooooo`03o`00oooooooooooo04ko oooo00?o0?l0ooooooooo`000_ooool00ol00?ooooooool0o`1Aooooo`03oooo0?oooooooooo00?o oooo00?oo`3oo`3oooooool00oooool00ooo003oooooooooo`0eooooo`03o`000?oooooooooo01_o oooo00?o0000ooooooooool09?ooool7o`0000_ooooo000Nooooo`03o`000?oooooooooo00[ooooo 00?o0?l0ooooooooool00_ooool00ol00?ooooooooooo`1=ooooo`09o`3o0?oooooooooooooooooo o`3oooooo`00ooooooooo`3o053ooooo00?oool0ooooooooool00oooool00ooo0?ooooooo`3oo`04 ooooo`03ool00?oooooooooo03Gooooo00?o0000ooooooooool06oooool3o`0000;ooooo0_l00000 0ooooooo0000o`00000Mooooo`Oo00002oooool001kooooo0_l0000;ooooo`03o`3o0?oooooooooo 00;ooooo00?o003oooooooooool0C?ooool00ol0o`3oooooooooo`02ooooo`03oooo0?l00?oooooo 00;ooooo00?oo`3oooooooooool0COooool00oooo`3oooooooooo`03ooooo`03ool0oooooooo0?oo 00Cooooo00?oo`00ooooooooool0=Oooool00ol0003oooooooooo`0Kooooo`04o`000?oooooooooo o`0000;ooooo00?o0000ooooool000007_ooool7o`0000_ooooo000@ooooo`?o00001?ooool2o`00 00Gooooo00?o0000ooooooooool02oooool01Ol0o`3ooooooooooooooooo003o04kooooo00?o0?l0 ooooooooool00_ooool00ol00?ooool0ooooo`02ooooo`03ool0oooooooooooo04cooooo00?oool0 ooooooooool00oooool01Ooo0?oooooooooooooooooo0?oo00Cooooo00?oo`00ooooooooool0=?oo ool01?l0003ooooooooooooooolDool0o`Kooooo00Co0000oooooooooooo00000oooool00ol0003o ooooooooo`0Mooooo`Oo00002oooool000oooooo00Go0000ooooooooooooooooo`000002ooooo`04 o`000?ooooooooooo`0000Cooooo00?o0000ooooooooool02oooool01Ol0o`3ooooooooooooooooo 003o04gooooo00?o0?l0ooooooooool00oooool00ol00?ooool0ooooo`02ooooo`03ool0oooooooo oooo04_ooooo00?oool0ooooooooool00oooool00ooo0?ooooooooooo`02ooooo`03o`3ooooooooo oooo00;ooooo00?oo`00ooooooooool0=?ooool00ol0003oooooooooo`0Kooooo`04o`000?oooooo ooooo`0000;ooooo00?o0000ooooool000007_ooool7o`0000_ooooo000Cooooo`04o`000?oooooo ooooo`0000;ooooo00?o0000ooooooooool00_ooool00ol0003oooooooooo`0;ooooo`03o`3o0?oo oooooooo00;ooooo00?o003oooooooooool0B_ooool00ol0o`3oooooooooo`02ooooo`04o`00oooo oooooooooooo00?ooooo00?oo`3oooooooooool0B_ooool00oooo`3oooooooooo`03ooooo`03ool0 oooooooooooo00?ooooo00?o0?ooooooooooool00_ooool00ooo003oooooooooo`0cooooo`03o`00 0?oooooooooo01[ooooo1?l00002ooooo`;o000000?oooooo`000?l000007Oooool7o`0000_ooooo 000Cooooo`04o`000?ooooooooooo`0000;ooooo00?o0000ooooooooool00_ooool3o`0000_ooooo 00?o0?l0ooooooooool00_ooool00ol00?ooooooooooo`19ooooo`03o`3o0?oooooooooo00?ooooo 00Co003oooooooooooooool00oooool00ooo0?ooooooooooo`19ooooo`03oooo0?oooooooooo00?o oooo00?oo`3oooooooooool01?ooool00ol0ooooooooooooo`02ooooo`03ool00?oooooooooo03?o oooo00?o0000ooooooooool0@_ooool7o`0000_ooooo000?ooooo`Co00000oooool01?l0003ooooo ooooool00004ooooo`03o`000?oooooooooo00_ooooo00?o0?l0ooooooooool00_ooool00ol00?oo ooooooooo`18ooooo`03o`3o0?oooooooooo00?ooooo00?o003oooooooooool00_ooool01Oooo`3o ooooooooooooooooo`3o04[ooooo00?oool0ooooooooool00_ooool00ooo0?ooooooooooo`06oooo o`05o`3ooooooooooooooooooooo0000=Oooool00ol0003oooooooooo`12ooooo`Oo00002oooool0 00oooooo00?o0000ooooooooool01?ooool01?l0003oooooooooool00004ooooo`03o`000?oooooo oooo00cooooo00Go0?l0ooooooooooooooooo`00o`1:ooooo`03o`3o0?oooooooooo00?ooooo00?o 003oooooooooool00_ooool01Oooo`3oooooooooooooooooo`3o04Wooooo00?oool0ooooooooool0 0oooool00ooo0?ooooooooooo`06ooooo`03o`3ooooooooooooo00;ooooo00?oo`00ooooooooool0 <_ooool00ol0003oooooooooo`12ooooo`Oo00002oooool000oooooo1Ol00003ooooo`;o00001Ooo ool00ol0003oooooooooo`0ooooo`03o`3ooooooooooooo00;ooooo00?oo`00ooooooooool0;ooo ool00ol0003oooooooooo`12ooooo`Oo00002oooool001kooooo00?o0000ooooooooool03Oooool0 0ol0o`3oooooooooo`02ooooo`03o`00oooooooooooo047ooooo00?o0?l0ooooooooool00_ooool0 0ol00?ooooooooooo`0oooool00oooo`3oooooooooo`03ooooo`03ool0oooooooooooo017ooooo00?o0?oooooo ooooool00_ooool00ooo003oooooooooo`0]ooooo`03o`000?oooooooooo04;ooooo1ol0000;oooo o`007_ooool00ol0003oooooooooo`0>ooooo`03o`3o0?oooooooooo00;ooooo00?o003ooooooooo ool0?oooool00ol0o`3oooooooooo`02ooooo`03o`00oooooooooooo00kooooo00?oool0oooooooo ool00_ooool00ooo0?ooooooooooo`0kooooo`03oooo0?oooooooooo00;ooooo00?oo`3ooooooooo ool04_ooool00ol0ooooooooooooo`02ooooo`03ool00?oooooooooo02gooooo00?o0000oooooooo ool06_ooool3o`0000?ooooo0ol0000Oooooo`Oo00002oooool001kooooo00?o0000ooooooooool0 3_ooool00ol0o`3oooooooooo`02ooooo`03o`00oooooooooooo03kooooo00?o0?l0ooooooooool0 0_ooool00ol00?ooooooooooo`0?ooooo`03oooo0?oooooooooo00?ooooo00?oo`3oooooooooool0 >_ooool00oooo`3oooooooooo`02ooooo`03ool0oooooooooooo01;ooooo00?o0?ooooooooooool0 0_ooool00ooo003oooooooooo`0]ooooo`03o`000?oooooooooo01_ooooo00?o0000ooooooooool0 0oooool00ol0003oooooooooo`0Nooooo`Oo00002oooool001kooooo0_l0000?ooooo`03o`3o0?oo oooooooo00;ooooo00?o003oooooooooool0?_ooool00ol0o`3oooooooooo`02ooooo`03o`00oooo oooooooo013ooooo00?oool0ooooooooool00_ooool00ooo0?ooooooooooo`0iooooo`03oooo0?oo oooooooo00;ooooo00?oo`3oooooooooool05?ooool00ol0ooooooooooooo`02ooooo`03ool00?oo oooooooo02cooooo00?o0000ooooooooool06oooool3o`0000Cooooo00?o0000ooooooooool07Ooo ool7o`0000_ooooo000Nooooo`03o`000?oooooooooo00oooooo00Go0?l0ooooooooooooooooo`00 o`0oooooo`03o`3o0?oooooooooo00;ooooo00?o003oooooooooool04Oooool00oooo`3ooooooooo o`02ooooo`03ool0oooooooooooo03Wooooo00?oool0ooooooooool00_ooool00ooo0?oooooooooo o`0Dooooo`03o`3ooooooooooooo00;ooooo00?oo`00ooooooooool0;?ooool00ol0003ooooooooo o`0Kooooo`04o`000?ooooooooooo`0000?ooooo00?o0000ooooooooool07Oooool7o`0000_ooooo 000Aooooo`03o`000?oooooooooo00;ooooo0ol00005ooooo`03o`000?oooooooooo00oooooo00?o 0?l0ooooooooool00_ooool00ol00?ooooooooooo`0looooo`03o`3o0?oooooooooo00;ooooo00?o 003oooooooooool04Oooool00oooo`3oooooooooo`03ooooo`03ool0oooooooooooo03Oooooo00?o ool0ooooooooool00_ooool00ooo0?ooooooooooo`0Fooooo`03o`3ooooooooooooo00;ooooo00?o o`00ooooooooool0:oooool01?l0003ooooooooooooooolDo`00o`Kooooo00Co0000oooooooooooo 00000_ooool00ol0003oooooo`00000Nooooo`Oo00002oooool0017ooooo00Go0000oooooooooooo ooooo`000003ooooo`03o`000?oooooooooo00;ooooo00?o0000ooooooooool03oooool00ol0o`3o ooooooooo`02ooooo`03o`00oooooooooooo03_ooooo00?o0?l0ooooooooool00_ooool00ol00?oo ooooooooo`0Cooooo`03oooo0?oooooooooo00;ooooo00?oo`3oooooooooool0=oooool00oooo`3o ooooooooo`02ooooo`03ool0oooooooooooo01Kooooo00?o0?ooooooooooool00_ooool00ooo003o ooooooooo`0[ooooo`03o`000?oooooooooo01_ooooo00Co0000oooooooooooo00000_ooool00ol0 003oooooo`00000Nooooo`Oo00002oooool001;ooooo00?o0000ooooooooool01?ooool00ol0003o ooooooooo`02ooooo`?o00003oooool00ol0o`3oooooooooo`02ooooo`03o`00oooooooooooo03_o oooo00?o0?l0ooooooooool00_ooool00ol00?ooooooooooo`0Cooooo`03oooo0?oooooooooo00;o oooo00?oo`3oooooooooool0=_ooool00oooo`3oooooooooo`02ooooo`03ool0oooooooooooo01Oo oooo00?o0?ooooooooooool00_ooool00ooo003oooooooooo`0[ooooo`03o`000?oooooooooo01[o oooo1?l00002ooooo`;o000000?oooooo`000?l000007Oooool7o`0000_ooooo000Booooo`03o`00 0?oooooooooo00Cooooo00?o0000ooooooooool00_ooool00ol0003oooooooooo`0?ooooo`03o`3o 0?oooooooooo00;ooooo00?o003oooooooooool0>_ooool00ol0o`3oooooooooo`02ooooo`03o`00 oooooooooooo01Cooooo00?oool0ooooooooool00oooool00ooo0?ooooooooooo`0eooooo`03oooo 0?oooooooooo00;ooooo00?oo`3oooooooooool06?ooool00ol0ooooooooooooo`02ooooo`03ool0 0?oooooooooo02[ooooo00?o0000ooooooooool0@_ooool7o`0000_ooooo000Cooooo`03o`000?oo oooo000000?o00001Oooool00ol0003oooooooooo`0?ooooo`03o`3o0?oooooooooo00?ooooo00?o 003oooooooooool0>Oooool00ol0o`3oooooooooo`02ooooo`03o`00oooooooooooo01Gooooo00?o ool0ooooooooool00_ooool00ooo0?ooooooooooo`0eooooo`03oooo0?oooooooooo00;ooooo00?o o`3oooooooooool06?ooool00ol0ooooooooooooo`02ooooo`03ool00?oooooooooo02[ooooo00?o 0000ooooooooool0@_ooool7o`0000_ooooo000?ooooo`07o`000?ooooooooooooooool0003ooooo o`000008ooooo`03o`000?oooooooooo013ooooo00?o0?l0ooooooooool00_ooool00ol00?oooooo ooooo`0hooooo`03o`3o0?oooooooooo00;ooooo00?o003oooooooooool05_ooool00oooo`3ooooo ooooo`02ooooo`03ool0oooooooooooo03Cooooo00?oool0ooooooooool00_ooool00ooo0?oooooo ooooo`0Iooooo`03o`3ooooooooooooo00?ooooo00?oo`00ooooooooool0:Oooool00ol0003ooooo ooooo`12ooooo`Oo00002oooool000oooooo1Ol000000ooooooo0000o`000003o`0000Cooooo0_l0 000Aooooo`03o`3o0?oooooooooo00;ooooo00?o003oooooooooool0>?ooool00ol0o`3ooooooooo o`02ooooo`03o`00oooooooooooo01Kooooo00?oool0ooooooooool00oooool00ooo0?oooooooooo o`0cooooo`03oooo0?oooooooooo00;ooooo00?oo`3oooooooooool06_ooool00ol0oooooooooooo o`02ooooo`03ool00?oooooooooo02Wooooo00?o0000ooooooooool0@_ooool7o`0000_ooooo000N ooooo`03o`000?oooooooooo013ooooo00?o0?l0ooooooooool00_ooool00ol00?ooooooooooo`0h ooooo`03o`3o0?oooooooooo00;ooooo00?o003oooooooooool05oooool00oooo`3oooooooooo`02 ooooo`03ool0oooooooooooo03;ooooo00?oool0ooooooooool00_ooool00ooo0?ooooooooooo`0K ooooo`03o`3ooooooooooooo00;ooooo00?oo`00ooooooooool0:Oooool00ol0003oooooooooo`12 ooooo`Oo00002oooool001kooooo00?o0000ooooooooool04?ooool00ol0o`3oooooooooo`03oooo o`03o`00oooooooooooo03Kooooo00?o0?l0ooooooooool00_ooool00ol00?ooooooooooo`0Hoooo o`03oooo0?oooooooooo00;ooooo00?oo`3oooooooooool0<_ooool00oooo`3oooooooooo`02oooo o`03ool0oooooooooooo01cooooo00?o0?ooooooooooool00_ooool00ooo003oooooooooo`0Xoooo o`03o`000?oooooooooo04;ooooo1ol0000;ooooo`007_ooool00ol0003oooooooooo`0@ooooo`03 o`3o0?oooooooooo00?ooooo00?o003oooooooooool0=_ooool00ol0o`3oooooooooo`02ooooo`03 o`00oooooooooooo01Sooooo00?oool0ooooooooool00oooool00ooo0?ooooooooooo`0aooooo`05 oooo0?oooooooooooooooooo0?l07oooool00ol0ooooooooooooo`02ooooo`03ool00?oooooooooo 02Sooooo00?o0000ooooooooool0@_ooool7o`0000_ooooo000Nooooo`03o`000?oooooooooo017o oooo00?o0?l0ooooooooool00_ooool00ol00?ooooooooooo`0fooooo`03o`3o0?oooooooooo00;o oooo00?o003oooooooooool06Oooool00oooo`3oooooooooo`02ooooo`03ool0oooooooooooo033o oooo00?oool0ooooooooool00_ooool00ooo0?ooooooooooo`0Mooooo`03o`3ooooooooooooo00?o oooo00?oo`00ooooooooool09oooool00ol0003oooooooooo`12ooooo`Oo00002oooool001kooooo 0_l0000Booooo`03o`3o0?oooooooooo00;ooooo00?o003oooooooooool0=Oooool00ol0o`3ooooo ooooo`02ooooo`03o`00oooooooooooo01[ooooo00?oool0ooooooooool00oooool00ooo0?oooooo ooooo`0_ooooo`03oooo0?oooooooooo00;ooooo00?oo`3oooooooooool07_ooool00ol0oooooooo ooooo`02ooooo`03ool00?oooooooooo02Oooooo00?o0000ooooooooool0@_ooool7o`0000_ooooo 000Nooooo`03o`000?oooooooooo017ooooo00?o0?l0ooooooooool00_ooool00ol00?oooooooooo o`0eooooo`03o`3o0?oooooooooo00;ooooo00?o003oooooooooool06oooool00oooo`3ooooooooo o`02ooooo`03ool0oooooooooooo02kooooo00?oool0ooooooooool00_ooool00ooo0?oooooooooo o`0Oooooo`03o`3ooooooooooooo00?ooooo00?oo`00ooooooooool09_ooool00ol0003ooooooooo o`12ooooo`Oo00002oooool001kooooo00?o0000ooooooooool04Oooool00ol0o`3oooooooooo`03 ooooo`03o`00oooooooooooo03Cooooo00?o0?l0ooooooooool00_ooool00ol00?ooooooooooo`0K ooooo`03oooo0?oooooooooo00;ooooo00?oo`3oooooooooool0;_ooool00oooo`3oooooooooo`02 ooooo`03ool0oooooooooooo01oooooo00?o0?ooooooooooool00oooool00ooo003oooooooooo`0V ooooo`03o`000?oooooooooo04;ooooo1ol0000;ooooo`007_ooool00ol0003oooooooooo`0Aoooo o`03o`3o0?oooooooooo00?ooooo00?o003oooooooooool0?ooool00ol0ooooooooooooo`02ooooo`03ool00?oooooooooo01;ooooo00?o0?ooooooooooool0 1_ooool00ol0003oooooooooo`12ooooo`Oo00002oooool001kooooo00?o0000ooooooooool06?oo ool00ol0o`3oooooooooo`02ooooo`03o`00oooooooooooo02Gooooo00?o0?l0ooooooooool00_oo ool00ol00?ooooooooooo`0^ooooo`03oooo0?oooooooooo00?ooooo00?oo`3oooooooooool06?oo ool00oooo`3oooooooooo`02ooooo`03ool0oooooooooooo03Kooooo00?o0?ooooooooooool00_oo ool00ooo003oooooooooo`0Booooo`03o`3ooooooooooooo00Kooooo00?o0000ooooooooool06_oo ool3o`0002Gooooo1ol0000;ooooo`002_ooool3o`0000;ooooo1Ol00002ooooo`?o00001Oooool0 0ol0003oooooooooo`0Hooooo`03o`3o0?oooooooooo00;ooooo00?o003oooooooooool09?ooool0 0ol0o`3oooooooooo`03ooooo`03o`00oooooooooooo02kooooo00?oool0ooooooooool00oooool0 0ooo0?ooooooooooo`0Hooooo`05oooo0?oooooooooooooooooo0?l0>_ooool00ol0oooooooooooo o`02ooooo`03ool00?oooooooooo013ooooo00?o0?ooooooooooool01oooool00ol0003ooooooooo o`0Kooooo`03o`000?oooooooooo02Cooooo1ol0000;ooooo`002oooool00ol0003oooooooooo`02 ooooo`06o`000?ooooooooooo`000?oooooo00000oooool00ol0003oooooooooo`02ooooo`03o`00 0?oooooooooo01Sooooo00?o0?l0ooooooooool00oooool00ol00?ooooooooooo`0Sooooo`03o`3o 0?oooooooooo00;ooooo00?o003oooooooooool0Oooool00ol0ooooooooooooo`02ooooo`03 ool00?oooooooooo00kooooo00?o0?ooooooooooool00_ooool00ooo003oooooooooo`03ooooo`03 o`000?oooooooooo01cooooo00?o0000ooooooooool08oooool7o`0000_ooooo000;ooooo`03o`00 0?oooooooooo00Cooooo00?o0000ooooooooool01?ooool00ol0003oooooooooo`02ooooo`03o`00 0?oooooooooo01Wooooo00?o0?l0ooooooooool00_ooool00ol00?ooooooooooo`0Rooooo`03o`3o 0?oooooooooo00?ooooo00?o003oooooooooool0?ooool00oooo`3oooooooooo`02ooooo`03ool0oooooooooooo00oooooo 00Goool0ooooooooooooooooool0o`14ooooo`03o`3ooooooooooooo00Cooooo00?oo`00oooooooo ool00oooool01?l0ooooooooool00?oo000;ooooo`03o`000?oooooooooo04;ooooo1ol0000;oooo o`007_ooool00ol0003oooooooooo`0Kooooo`03o`3o0?oooooooooo00?ooooo00?o003ooooooooo ool07Oooool00ol0o`3oooooooooo`02ooooo`03o`00oooooooooooo03Sooooo00?oool0oooooooo ool00oooool00ooo0?ooooooooooo`0=ooooo`03oooo0?oooooooooo00;ooooo00?oo`3ooooooooo ool0@oooool00ol0ooooooooooooo`03ooooo`?oo`0000?oooooo`3oool0ool00_oo000=ooooo`03 o`000?oooooooooo04;ooooo1ol0000;ooooo`007_ooool00ol0003oooooooooo`0Looooo`03o`3o 0?oooooooooo00;ooooo00?o003oooooooooool07Oooool01Ol0o`3ooooooooooooooooo003o03co oooo00?oool0ooooooooool00_ooool00ooo0?ooooooooooo`0=ooooo`05oooo0?oooooooooooooo oooo0?l0Aoooool00ol0ooooooooooooo`04ooooo`Goo`003_ooool00ol0003oooooooooo`12oooo o`Oo00002oooool001kooooo00?o0000ooooooooool07?ooool00ol0o`3oooooooooo`03ooooo`03 o`00oooooooooooo01_ooooo00?o0?l0ooooooooool00_ooool00ol00?ooooooooooo`0jooooo`03 oooo0?oooooooooo00?ooooo00?oo`3oooooooooool03?ooool01?ooo`3ooooooooooooo0?m9oooo o`03o`3ooooooooooooo00Cooooo00?o0?ooooooooooool03oooool00ol0003oooooooooo`12oooo o`Oo00002oooool001kooooo0_l0000Mooooo`03o`3o0?oooooooooo00?ooooo00?o003ooooooooo ool06oooool00ol0o`3oooooooooo`02ooooo`03o`00oooooooooooo03_ooooo00?oool0oooooooo ool00oooool00ooo0?ooooooooooo`0:ooooo`05oooo0?oooooooooooooooooo0?l0B_ooool6o`3o oa;ooooo00?o0000ooooooooool0@_ooool7o`0000_ooooo000Nooooo`03o`000?oooooooooo01co oooo00?o0?l0ooooooooool00oooool00ol00?ooooooooooo`0Kooooo`05o`3o0?oooooooooooooo ool00?l0?oooool00oooo`3oooooooooo`02ooooo`03ool0oooooooooooo00[ooooo00Coool0oooo ooooooooo`3oHoooool00ol0003oooooooooo`12ooooo`Oo00002oooool001kooooo00?o0000oooo ooooool07Oooool00ol0o`3oooooooooo`02ooooo`03o`00oooooooooooo01_ooooo00Go0?l0oooo ooooooooooooo`00o`0oooooo`03oooo0?oooooooooo00?ooooo0_oo0?l:ooooo`04oooo0?oooooo ooooool0of?ooooo00?o0000ooooooooool0@_ooool7o`0000_ooooo000Nooooo`03o`000?oooooo oooo01gooooo00?o0?l0ooooooooool00oooool00ol00?ooooooooooo`0Iooooo`03o`3o0?oooooo oooo00;ooooo00?o003oooooooooool0?_ooool00oooo`3oooooooooo`04ooooo`03ool0oooooooo oooo00Kooooo00Coool0ooooooooooooo`3oI?ooool00ol0003oooooooooo`12ooooo`Oo00002ooo ool001kooooo0_l0000Nooooo`03o`3o0?oooooooooo00?ooooo00?o003oooooooooool06Oooool0 1Ol0o`3ooooooooooooooooo003o04;ooooo00?oool0ooooooooool01?ooool00ooo0?oooooooooo o`04ooooo`04oooo0?ooooooooooool0ofGooooo00?o0000ooooooooool0@_ooool7o`0000_ooooo 000Nooooo`03o`000?oooooooooo01kooooo00?o0?l0ooooooooool00_ooool00ol00?oooooooooo o`0Iooooo`05o`3o0?ooooooooooooooool00?l0@oooool00oooo`3oooooooooo`03ooooo`03ool0 oooooooooooo00?ooooo00Coool0oooooooo0?ooo`3oI_ooool00ol0003oooooooooo`12ooooo`Oo 00002oooool000[ooooo0ol00003ooooo`?o00001?ooool2o`0000Gooooo00?o0000ooooooooool0 7_ooool00ol0o`3oooooooooo`03ooooo`03o`00oooooooooooo01Sooooo00Go0?l0oooooooooooo ooooo`00o`13ooooo`03oooo0?oooooooooo00Cooooo0_oo0?l3ooooo`03oooo0?oo0?oooooo06Oo oooo00?o0000ooooooooool0@_ooool7o`0000_ooooo000;ooooo`05o`000?ooooooooooooooool0 00000oooool01?l0003oooooooooool00002ooooo`03o`000?oooooooooo00;ooooo00?o0000oooo ooooool07_ooool00ol0o`3oooooooooo`03ooooo`03o`00oooooooooooo01Oooooo00Go0?l0oooo ooooooooooooo`00o`15ooooo`03oooo0?oooooooooo00Gooooo1Ooo0?mXooooo`03o`000?oooooo oooo04;ooooo1ol0000;ooooo`002oooool00ol0003oooooooooo`05ooooo`04o`000?oooooooooo o`0000;ooooo00?o0000ooooooooool00_ooool3o`0001oooooo00?o0?l0ooooooooool00_ooool0 0ol00?ooooooooooo`0Gooooo`05o`3o0?ooooooooooooooool00?l0A_ooool2oooo00Gooooo0_oo o`1[ooooo`03o`000?oooooooooo04;ooooo1ol0000;ooooo`002oooool00ol0003oooooooooo`05 ooooo`04o`000?ooooooooooo`0000;ooooo00?o0000ooooooooool00_ooool00ol0003ooooooooo o`0Oooooo`03o`3o0?oooooooooo00?ooooo00?o003oooooooooool05_ooool01Ol0o`3ooooooooo oooooooo003o04Oooooo1_ooo`1]ooooo`03o`000?oooooooooo01[ooooo0_l000000ooooooo0000 o`00000Sooooo`Oo00002oooool000_ooooo00Co0000oooooooooooooooo1?l00003ooooo`04o`00 0?ooooooooooo`0000Cooooo00?o0000ooooooooool07oooool00ol0o`3oooooooooo`03ooooo`03 o`00oooooooooooo01Gooooo00Go0?l0ooooooooooooooooo`00o`2kooooo`03o`000?oooooooooo 01_ooooo00?o0000ooooool000009?ooool7o`0000_ooooo000:ooooo`;o00000oooool00ol0003o ooooooooo`04ooooo`04o`000?ooooooooooo`0000Cooooo00?o0000ooooooooool08?ooool00ol0 o`3oooooooooo`02ooooo`03o`00oooooooooooo01Gooooo00Go0?l0ooooooooooooooooo`00o`2k ooooo`04o`000?oooooooooooooooaCoool01oooool00ol0003oooooooooo`0Sooooo`Oo00002ooo ool000_ooooo00Co0000oooooooooooooooo1Ol00003ooooo`;o00001Oooool00ol0003ooooooooo o`0Pooooo`03o`3o0?oooooooooo00?ooooo00?o003oooooooooool05?ooool01Ol0o`3ooooooooo oooooooo003o0;_ooooo00?o0000ooooooooool06oooool00ol0003oooooo`00000Tooooo`Oo0000 2oooool001kooooo0_l0000Qooooo`03o`3o0?oooooooooo00?ooooo00?o003oooooooooool05?oo ool01?l0o`3oooooooooool00?nlooooo`03o`000?oooooooooo01[ooooo0_l000000ooooooo0000 o`00000Sooooo`Oo00002oooool001kooooo00?o0000ooooooooool08Oooool00ol0o`3ooooooooo o`02ooooo`03o`00oooooooooooo01?ooooo00Go0?l0ooooooooooooooooo`00o`2looooo`03o`00 0?oooooooooo04;ooooo1ol0000;ooooo`007_ooool00ol0003oooooooooo`0Qooooo`03o`3o0?oo oooooooo00?ooooo00?o003oooooooooool04_ooool01Ol0o`3ooooooooooooooooo003o0;cooooo 00?o0000ooooooooool0@_ooool7o`0000_ooooo000Nooooo`03o`000?oooooooooo027ooooo00?o 0?l0ooooooooool00oooool00ol00?ooooooooooo`0Booooo`04o`3o0?ooooooooooo`00okgooooo 00?o0000ooooooooool0@_ooool7o`0000_ooooo000Nooooo`;o00008oooool00ol0o`3ooooooooo o`02ooooo`03o`00oooooooooooo017ooooo00Go0?l0ooooooooooooooooo`00o`2mooooo`03o`00 0?oooooooooo04;ooooo1ol0000;ooooo`007_ooool00ol0003oooooooooo`0Rooooo`03o`3o0?oo oooooooo00?ooooo00?o003oooooooooool04?ooool01Ol0o`3ooooooooooooooooo003o0;gooooo 00?o0000ooooooooool0@_ooool00ol0003oooooooooo`0?ooooo`007_ooool00ol0003ooooooooo o`0Rooooo`03o`3o0?oooooooooo00?ooooo00?o003oooooooooool04?ooool01?l0o`3ooooooooo ool00?nnooooo`03o`000?oooooooooo04;ooooo00?o0000ooooooooool03oooool001kooooo00?o 0000ooooooooool08oooool00ol0o`3oooooooooo`02ooooo`03o`00oooooooooooo00oooooo00Go 0?l0ooooooooooooooooo`00o`2nooooo`03o`000?oooooooooo04;ooooo00?o0000ooooooooool0 3oooool001kooooo0_l0000Tooooo`03o`3o0?oooooooooo00?ooooo00?o003oooooooooool03_oo ool01?l0o`3oooooooooool00?noooooo`03o`000?oooooooooo04;ooooo00?o0000ooooooooool0 3oooool001kooooo00?o0000ooooooooool09?ooool00ol0o`3oooooooooo`02ooooo`03o`00oooo oooooooo00kooooo00Co0?l0oooooooooooo003o_oooool00ol0003oooooooooo`12ooooo`03o`00 0?oooooooooo00oooooo000Nooooo`03o`000?oooooooooo02Cooooo00?o0?l0ooooooooool00ooo ool00ol00?ooooooooooo`0"], ImageRangeCache->{{{79.5, 376.875}, {366.375, 222.812}} -> {-1.78793, \ 1.3654, 0.0072324, 0.0072324}, {{87.125, 308.375}, {362.938, 226.188}} -> \ {-5.22661, 310.381, 0.0401502, 1.1869}, {{308.375, 363.688}, {349.875, \ 239.25}} -> {-18.8327, 13.2533, 0.0485971, 0.051779}, {{311.312, 327.75}, \ {347.062, 331.625}} -> {-19.9113, 40.4712, 0.0511032, 0.165373}, {{311.312, \ 327.75}, {329.125, 313.688}} -> {-19.9113, 36.7632, 0.0511032, 0.165373}, \ {{311.312, 327.75}, {311.25, 295.75}} -> {-19.9113, 33.0617, 0.0511032, \ 0.165373}, {{311.312, 327.75}, {293.312, 277.875}} -> {-19.9113, 29.3602, \ 0.0511032, 0.165373}, {{311.312, 327.75}, {275.375, 259.938}} -> {-19.9113, \ 25.6522, 0.0511032, 0.165373}, {{311.312, 327.75}, {257.438, 242}} -> \ {-19.9113, 21.9443, 0.0511032, 0.165373}}] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Create SBML model for repressilator", "Section"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(newModel["\", \ name \[Rule] \ "\", echo \[Rule] \ False];\)\), "\[IndentingNewLine]", \(\(addCompartment[cell];\)\), "\[IndentingNewLine]", \(\(addSpecies[{x, y, z, py}];\)\), "\[IndentingNewLine]", \(\(addSpecies[px, \ initialAmount \[Rule] \ 5];\)\), "\[IndentingNewLine]", \(\(addSpecies[pz, \ initialAmount \[Rule] \ 15];\)\), "\[IndentingNewLine]", \(\(addParameter[alpha, \ value \[Rule] \ 250];\)\), "\[IndentingNewLine]", \(\(addParameter[beta, \ value \[Rule] \ 5];\)\), "\[IndentingNewLine]", \(\(addParameter[alpha0, \ value \[Rule] \ 0];\)\), "\[IndentingNewLine]", \(\(addParameter[alpha1, \ value \[Rule] \ 0];\)\), "\[IndentingNewLine]", \(\(addParameter[n, \ value \[Rule] \ 2.1];\)\ \), "\[IndentingNewLine]", \(\(addParameter[k1, \ value \[Rule] \ 1];\)\), "\[IndentingNewLine]", \(\(addParameter[K, \ value \[Rule] \ 1];\)\), "\[IndentingNewLine]", \(\(addSpecies[null, \ boundaryCondition \[Rule] \ True, \ constant \[Rule] \ True];\)\), "\[IndentingNewLine]", \(\(addReaction[null \[Rule] \ x, \ modifiers \[Rule] \ pz, \ kineticLaw \[Rule] \ \(-k1\)*x\ + \ alpha0 + \((alpha + alpha1*pz^n)\)/\((K^n + pz^n)\)];\)\), "\[IndentingNewLine]", \(\(addReaction[null \[Rule] \ y, \ modifiers \[Rule] \ px, \ kineticLaw \[Rule] \ \(-k1\)*y\ + \ alpha0 + \((alpha + alpha1*px^n)\)/\((K^n + px^n)\)];\)\), "\[IndentingNewLine]", \(\(addReaction[null \[Rule] \ z, \ modifiers \[Rule] \ py, \ kineticLaw \[Rule] \ \(-k1\)*z\ + \ alpha0 + \((alpha + alpha1*py^n)\)/\((K^n + py^n)\)];\)\), "\[IndentingNewLine]", \(\(addReaction[px \[Rule] \ null, \ modifiers \[Rule] \ x, \ kineticLaw \[Rule] \ \(-beta\)*\((x - px)\)];\)\), "\[IndentingNewLine]", \(\(addReaction[py \[Rule] \ null, \ modifiers \[Rule] \ y, \ kineticLaw \[Rule] \(-\ beta\)*\((y - py)\)];\)\), "\[IndentingNewLine]", \(\(addReaction[pz \[Rule] \ null, \ modifiers \[Rule] \ z, \ kineticLaw \[Rule] \ \(-beta\)*\((z - pz)\)];\)\), "\[IndentingNewLine]", \(createModel["\"]\)}], "Input", Background->RGBColor[1, 1, 0]], Cell[BoxData[ \("repressilator.xml"\)], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Load SBML file and manipulate using the model builder API", "Section"], Cell[CellGroupData[{ Cell["load the file", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ \(\(loadModelBuilder["\"];\)\)], "Input", Background->RGBColor[1, 1, 0]], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ StyleBox["\<\"Compartment \"\>", FontWeight->"Bold", FontColor->RGBColor[0.2, 0.900008, 0.6]], ( StyleForm[ #, FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\"cell\"\>", FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], ( StyleForm[ #, FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\" added.\"\>", FontWeight->"Bold", FontColor->RGBColor[0.2, 0.900008, 0.6]], ( StyleForm[ #, FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]&)]}], SequenceForm[ StyleForm[ "Compartment ", FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"], StyleForm[ "cell", FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"], StyleForm[ " added.", FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ StyleBox["\<\"Species \"\>", FontWeight->"Bold", FontColor->RGBColor[0.2, 0.900008, 0.6]], ( StyleForm[ #, FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\"x\"\>", FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], ( StyleForm[ #, FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\" added to compartment \"\>", FontWeight->"Bold", FontColor->RGBColor[0.2, 0.900008, 0.6]], ( StyleForm[ #, FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\"cell\"\>", FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], ( StyleForm[ #, FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"]&)]}], SequenceForm[ StyleForm[ "Species ", FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"], StyleForm[ "x", FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"], StyleForm[ " added to compartment ", FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"], StyleForm[ "cell", FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"]], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ StyleBox["\<\"Species \"\>", FontWeight->"Bold", FontColor->RGBColor[0.2, 0.900008, 0.6]], ( StyleForm[ #, FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\"y\"\>", FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], ( StyleForm[ #, FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\" added to compartment \"\>", FontWeight->"Bold", FontColor->RGBColor[0.2, 0.900008, 0.6]], ( StyleForm[ #, FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\"cell\"\>", FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], ( StyleForm[ #, FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"]&)]}], SequenceForm[ StyleForm[ "Species ", FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"], StyleForm[ "y", FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"], StyleForm[ " added to compartment ", FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"], StyleForm[ "cell", FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"]], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ StyleBox["\<\"Species \"\>", FontWeight->"Bold", FontColor->RGBColor[0.2, 0.900008, 0.6]], ( StyleForm[ #, FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\"z\"\>", FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], ( StyleForm[ #, FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\" added to compartment \"\>", FontWeight->"Bold", FontColor->RGBColor[0.2, 0.900008, 0.6]], ( StyleForm[ #, FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\"cell\"\>", FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], ( StyleForm[ #, FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"]&)]}], SequenceForm[ StyleForm[ "Species ", FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"], StyleForm[ "z", FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"], StyleForm[ " added to compartment ", FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"], StyleForm[ "cell", FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"]], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ StyleBox["\<\"Species \"\>", FontWeight->"Bold", FontColor->RGBColor[0.2, 0.900008, 0.6]], ( StyleForm[ #, FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\"py\"\>", FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], ( StyleForm[ #, FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\" added to compartment \"\>", FontWeight->"Bold", FontColor->RGBColor[0.2, 0.900008, 0.6]], ( StyleForm[ #, FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\"cell\"\>", FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], ( StyleForm[ #, FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"]&)]}], SequenceForm[ StyleForm[ "Species ", FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"], StyleForm[ "py", FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"], StyleForm[ " added to compartment ", FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"], StyleForm[ "cell", FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"]], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ StyleBox["\<\"Species \"\>", FontWeight->"Bold", FontColor->RGBColor[0.2, 0.900008, 0.6]], ( StyleForm[ #, FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\"px\"\>", FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], ( StyleForm[ #, FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\" added to compartment \"\>", FontWeight->"Bold", FontColor->RGBColor[0.2, 0.900008, 0.6]], ( StyleForm[ #, FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\"cell\"\>", FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], ( StyleForm[ #, FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"]&)]}], SequenceForm[ StyleForm[ "Species ", FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"], StyleForm[ "px", FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"], StyleForm[ " added to compartment ", FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"], StyleForm[ "cell", FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"]], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ StyleBox["\<\"Species \"\>", FontWeight->"Bold", FontColor->RGBColor[0.2, 0.900008, 0.6]], ( StyleForm[ #, FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\"pz\"\>", FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], ( StyleForm[ #, FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\" added to compartment \"\>", FontWeight->"Bold", FontColor->RGBColor[0.2, 0.900008, 0.6]], ( StyleForm[ #, FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\"cell\"\>", FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], ( StyleForm[ #, FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"]&)]}], SequenceForm[ StyleForm[ "Species ", FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"], StyleForm[ "pz", FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"], StyleForm[ " added to compartment ", FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"], StyleForm[ "cell", FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"]], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ StyleBox["\<\"Species \"\>", FontWeight->"Bold", FontColor->RGBColor[0.2, 0.900008, 0.6]], ( StyleForm[ #, FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\"null\"\>", FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], ( StyleForm[ #, FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\" added to compartment \"\>", FontWeight->"Bold", FontColor->RGBColor[0.2, 0.900008, 0.6]], ( StyleForm[ #, FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\"cell\"\>", FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], ( StyleForm[ #, FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"]&)]}], SequenceForm[ StyleForm[ "Species ", FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"], StyleForm[ "null", FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"], StyleForm[ " added to compartment ", FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"], StyleForm[ "cell", FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"]], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ StyleBox["\<\"Parameter \"\>", FontWeight->"Bold", FontColor->RGBColor[0.2, 0.900008, 0.6]], ( StyleForm[ #, FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\"alpha\"\>", FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], ( StyleForm[ #, FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\" added.\"\>", FontWeight->"Bold", FontColor->RGBColor[0.2, 0.900008, 0.6]], ( StyleForm[ #, FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]&)]}], SequenceForm[ StyleForm[ "Parameter ", FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"], StyleForm[ "alpha", FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"], StyleForm[ " added.", FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ StyleBox["\<\"Parameter \"\>", FontWeight->"Bold", FontColor->RGBColor[0.2, 0.900008, 0.6]], ( StyleForm[ #, FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\"beta\"\>", FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], ( StyleForm[ #, FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\" added.\"\>", FontWeight->"Bold", FontColor->RGBColor[0.2, 0.900008, 0.6]], ( StyleForm[ #, FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]&)]}], SequenceForm[ StyleForm[ "Parameter ", FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"], StyleForm[ "beta", FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"], StyleForm[ " added.", FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ StyleBox["\<\"Parameter \"\>", FontWeight->"Bold", FontColor->RGBColor[0.2, 0.900008, 0.6]], ( StyleForm[ #, FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\"alpha0\"\>", FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], ( StyleForm[ #, FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\" added.\"\>", FontWeight->"Bold", FontColor->RGBColor[0.2, 0.900008, 0.6]], ( StyleForm[ #, FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]&)]}], SequenceForm[ StyleForm[ "Parameter ", FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"], StyleForm[ "alpha0", FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"], StyleForm[ " added.", FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ StyleBox["\<\"Parameter \"\>", FontWeight->"Bold", FontColor->RGBColor[0.2, 0.900008, 0.6]], ( StyleForm[ #, FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\"alpha1\"\>", FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], ( StyleForm[ #, FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\" added.\"\>", FontWeight->"Bold", FontColor->RGBColor[0.2, 0.900008, 0.6]], ( StyleForm[ #, FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]&)]}], SequenceForm[ StyleForm[ "Parameter ", FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"], StyleForm[ "alpha1", FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"], StyleForm[ " added.", FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ StyleBox["\<\"Parameter \"\>", FontWeight->"Bold", FontColor->RGBColor[0.2, 0.900008, 0.6]], ( StyleForm[ #, FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\"n\"\>", FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], ( StyleForm[ #, FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\" added.\"\>", FontWeight->"Bold", FontColor->RGBColor[0.2, 0.900008, 0.6]], ( StyleForm[ #, FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]&)]}], SequenceForm[ StyleForm[ "Parameter ", FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"], StyleForm[ "n", FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"], StyleForm[ " added.", FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ StyleBox["\<\"Parameter \"\>", FontWeight->"Bold", FontColor->RGBColor[0.2, 0.900008, 0.6]], ( StyleForm[ #, FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\"k1\"\>", FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], ( StyleForm[ #, FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\" added.\"\>", FontWeight->"Bold", FontColor->RGBColor[0.2, 0.900008, 0.6]], ( StyleForm[ #, FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]&)]}], SequenceForm[ StyleForm[ "Parameter ", FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"], StyleForm[ "k1", FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"], StyleForm[ " added.", FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ StyleBox["\<\"Parameter \"\>", FontWeight->"Bold", FontColor->RGBColor[0.2, 0.900008, 0.6]], ( StyleForm[ #, FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\"K\"\>", FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], ( StyleForm[ #, FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\" added.\"\>", FontWeight->"Bold", FontColor->RGBColor[0.2, 0.900008, 0.6]], ( StyleForm[ #, FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]&)]}], SequenceForm[ StyleForm[ "Parameter ", FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"], StyleForm[ "K", FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"], StyleForm[ " added.", FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ StyleBox["\<\"Reaction \"\>", FontWeight->"Bold", FontColor->RGBColor[0.2, 0.900008, 0.6]], ( StyleForm[ #, FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\"reaction1\"\>", FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], ( StyleForm[ #, FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\" added.\"\>", FontWeight->"Bold", FontColor->RGBColor[0.2, 0.900008, 0.6]], ( StyleForm[ #, FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]&)]}], SequenceForm[ StyleForm[ "Reaction ", FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"], StyleForm[ "reaction1", FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"], StyleForm[ " added.", FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ StyleBox["\<\"Reaction \"\>", FontWeight->"Bold", FontColor->RGBColor[0.2, 0.900008, 0.6]], ( StyleForm[ #, FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\"reaction2\"\>", FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], ( StyleForm[ #, FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\" added.\"\>", FontWeight->"Bold", FontColor->RGBColor[0.2, 0.900008, 0.6]], ( StyleForm[ #, FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]&)]}], SequenceForm[ StyleForm[ "Reaction ", FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"], StyleForm[ "reaction2", FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"], StyleForm[ " added.", FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ StyleBox["\<\"Reaction \"\>", FontWeight->"Bold", FontColor->RGBColor[0.2, 0.900008, 0.6]], ( StyleForm[ #, FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\"reaction3\"\>", FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], ( StyleForm[ #, FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\" added.\"\>", FontWeight->"Bold", FontColor->RGBColor[0.2, 0.900008, 0.6]], ( StyleForm[ #, FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]&)]}], SequenceForm[ StyleForm[ "Reaction ", FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"], StyleForm[ "reaction3", FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"], StyleForm[ " added.", FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ StyleBox["\<\"Reaction \"\>", FontWeight->"Bold", FontColor->RGBColor[0.2, 0.900008, 0.6]], ( StyleForm[ #, FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\"reaction4\"\>", FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], ( StyleForm[ #, FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\" added.\"\>", FontWeight->"Bold", FontColor->RGBColor[0.2, 0.900008, 0.6]], ( StyleForm[ #, FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]&)]}], SequenceForm[ StyleForm[ "Reaction ", FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"], StyleForm[ "reaction4", FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"], StyleForm[ " added.", FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ StyleBox["\<\"Reaction \"\>", FontWeight->"Bold", FontColor->RGBColor[0.2, 0.900008, 0.6]], ( StyleForm[ #, FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\"reaction5\"\>", FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], ( StyleForm[ #, FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\" added.\"\>", FontWeight->"Bold", FontColor->RGBColor[0.2, 0.900008, 0.6]], ( StyleForm[ #, FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]&)]}], SequenceForm[ StyleForm[ "Reaction ", FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"], StyleForm[ "reaction5", FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"], StyleForm[ " added.", FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ StyleBox["\<\"Reaction \"\>", FontWeight->"Bold", FontColor->RGBColor[0.2, 0.900008, 0.6]], ( StyleForm[ #, FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\"reaction6\"\>", FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], ( StyleForm[ #, FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\" added.\"\>", FontWeight->"Bold", FontColor->RGBColor[0.2, 0.900008, 0.6]], ( StyleForm[ #, FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]&)]}], SequenceForm[ StyleForm[ "Reaction ", FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"], StyleForm[ "reaction6", FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"], StyleForm[ " added.", FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ StyleBox["\<\"SMBL Model \"\>", FontWeight->"Bold", FontColor->RGBColor[0.2, 0.900008, 0.6]], ( StyleForm[ #, FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\"repressilator\"\>", FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], ( StyleForm[ #, FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\" loaded into Model Builder \"\>", FontWeight->"Bold", FontColor->RGBColor[0.2, 0.900008, 0.6]], ( StyleForm[ #, FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]&)]}], SequenceForm[ StyleForm[ "SMBL Model ", FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"], StyleForm[ "repressilator", FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"], StyleForm[ " loaded into Model Builder ", FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]], Editable->False]], "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["display the current model", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ \(\(showModel[];\)\)], "Input", Background->RGBColor[1, 1, 0]], Cell[BoxData[ \("File Name:Internal Model\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: Repressilator Model = repressilator"\)], "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"\)], "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]&)]}, {"\<\"cell\"\>", "\<\"cell\"\>", "\<\"3\"\>", \ "\<\"\[CenterEllipsis]\"\>", "\<\"volume\"\>", "\<\"volume\"\>", "\<\"\ \[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["\<\"Type\"\>", 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["\<\"I.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["\<\"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["\<\"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]&)]}, {"\<\"x\"\>", "\<\"x\"\>", "\<\"cell\"\>", "\<\"\[CenterEllipsis]\"\ \>", "\<\"\[CenterEllipsis]\"\>", "\<\"\[CenterEllipsis]\"\>", "\<\"\ \[CenterEllipsis]\"\>", "False", "False", "\<\"\[CenterEllipsis]\"\>"}, {"\<\"y\"\>", "\<\"y\"\>", "\<\"cell\"\>", "\<\"\[CenterEllipsis]\"\ \>", "\<\"\[CenterEllipsis]\"\>", "\<\"\[CenterEllipsis]\"\>", "\<\"\ \[CenterEllipsis]\"\>", "False", "False", "\<\"\[CenterEllipsis]\"\>"}, {"\<\"z\"\>", "\<\"z\"\>", "\<\"cell\"\>", "\<\"\[CenterEllipsis]\"\ \>", "\<\"\[CenterEllipsis]\"\>", "\<\"\[CenterEllipsis]\"\>", "\<\"\ \[CenterEllipsis]\"\>", "False", "False", "\<\"\[CenterEllipsis]\"\>"}, {"\<\"py\"\>", "\<\"py\"\>", "\<\"cell\"\>", "\<\"\[CenterEllipsis]\ \"\>", "\<\"\[CenterEllipsis]\"\>", "\<\"\[CenterEllipsis]\"\>", "\<\"\ \[CenterEllipsis]\"\>", "False", "False", "\<\"\[CenterEllipsis]\"\>"}, {"\<\"px\"\>", "\<\"px\"\>", "\<\"cell\"\>", "\<\"amount\"\>", \ "\<\"5.\"\>", "\<\"substance\"\>", "\<\"substance\"\>", "False", "False", "\<\"\[CenterEllipsis]\"\>"}, {"\<\"pz\"\>", "\<\"pz\"\>", "\<\"cell\"\>", "\<\"amount\"\>", \ "\<\"15.\"\>", "\<\"substance\"\>", "\<\"substance\"\>", "False", "False", "\<\"\[CenterEllipsis]\"\>"}, {"\<\"null\"\>", "\<\"null\"\>", "\<\"cell\"\>", "\<\"\ \[CenterEllipsis]\"\>", "\<\"\[CenterEllipsis]\"\>", "\<\"\[CenterEllipsis]\"\ \>", "\<\"\[CenterEllipsis]\"\>", "True", "True", "\<\"\[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[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["\<\"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\"\>", 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["\<\"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]&)]}, {"\<\"alpha\"\>", "\<\"alpha\"\>", "\<\"250.\"\>", "\<\"\ \[CenterEllipsis]\"\>", "\<\"\[CenterEllipsis]\"\>", "True"}, {"\<\"beta\"\>", "\<\"beta\"\>", "\<\"5.\"\>", "\<\"\ \[CenterEllipsis]\"\>", "\<\"\[CenterEllipsis]\"\>", "True"}, {"\<\"alpha0\"\>", "\<\"alpha0\"\>", "\<\"0\"\>", "\<\"\ \[CenterEllipsis]\"\>", "\<\"\[CenterEllipsis]\"\>", "True"}, {"\<\"alpha1\"\>", "\<\"alpha1\"\>", "\<\"0\"\>", "\<\"\ \[CenterEllipsis]\"\>", "\<\"\[CenterEllipsis]\"\>", "True"}, {"\<\"n\"\>", "\<\"n\"\>", "\<\"2.1\"\>", \ "\<\"\[CenterEllipsis]\"\>", "\<\"\[CenterEllipsis]\"\>", "True"}, {"\<\"k1\"\>", "\<\"k1\"\>", "\<\"1.\"\>", "\<\"\[CenterEllipsis]\"\ \>", "\<\"\[CenterEllipsis]\"\>", "True"}, {"\<\"K\"\>", "\<\"K\"\>", "\<\"1.\"\>", \ "\<\"\[CenterEllipsis]\"\>", "\<\"\[CenterEllipsis]\"\>", "True"} }, RowSpacings->1, ColumnSpacings->3, RowAlignments->Top, ColumnAlignments->{Left}], Function[ BoxForm`e$, TableForm[ BoxForm`e$, TableAlignments -> {Left, Top}]]]], "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[ InterpretationBox[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", "\<\"null \[RightArrowLeftArrow] x\"\>", GridBox[{ {"pz"} }, RowSpacings->0.25, ColumnSpacings->1, RowAlignments->Baseline, ColumnAlignments->{ Left}], "\<\"\[CenterEllipsis]\"\>", "\<\"alpha0 + (alpha + \ alpha1*pz[t]^n)/(K^n + pz[t]^n) - k1*x[t]\"\>", GridBox[{ {"\<\"x'[t]==alpha0 + (alpha + alpha1*pz[t]^n)/(K^n + \ pz[t]^n) - k1*x[t]\"\>"} }, RowSpacings->0.25, ColumnSpacings->1, RowAlignments->Baseline, ColumnAlignments->{Left}]}, {"\<\"reaction2\"\>", "\<\"reaction2\"\>", "False", "\<\"null \[RightArrowLeftArrow] y\"\>", GridBox[{ {"px"} }, RowSpacings->0.25, ColumnSpacings->1, RowAlignments->Baseline, ColumnAlignments->{ Left}], "\<\"\[CenterEllipsis]\"\>", "\<\"alpha0 + (alpha + \ alpha1*px[t]^n)/(K^n + px[t]^n) - k1*y[t]\"\>", GridBox[{ {"\<\"y'[t]==alpha0 + (alpha + alpha1*px[t]^n)/(K^n + \ px[t]^n) - k1*y[t]\"\>"} }, RowSpacings->0.25, ColumnSpacings->1, RowAlignments->Baseline, ColumnAlignments->{Left}]}, {"\<\"reaction3\"\>", "\<\"reaction3\"\>", "False", "\<\"null \[RightArrowLeftArrow] z\"\>", GridBox[{ {"py"} }, RowSpacings->0.25, ColumnSpacings->1, RowAlignments->Baseline, ColumnAlignments->{ Left}], "\<\"\[CenterEllipsis]\"\>", "\<\"alpha0 + (alpha + \ alpha1*py[t]^n)/(K^n + py[t]^n) - k1*z[t]\"\>", GridBox[{ {"\<\"z'[t]==alpha0 + (alpha + alpha1*py[t]^n)/(K^n + \ py[t]^n) - k1*z[t]\"\>"} }, RowSpacings->0.25, ColumnSpacings->1, RowAlignments->Baseline, ColumnAlignments->{Left}]}, {"\<\"reaction4\"\>", "\<\"reaction4\"\>", "False", "\<\"px \[RightArrowLeftArrow] null\"\>", GridBox[{ {"x"} }, RowSpacings->0.25, ColumnSpacings->1, RowAlignments->Baseline, ColumnAlignments->{ Left}], "\<\"\[CenterEllipsis]\"\>", "\<\"-(beta*(-px[t] + \ x[t]))\"\>", GridBox[{ {"\<\"px'[t]==beta*(-px[t] + x[t])\"\>"} }, RowSpacings->0.25, ColumnSpacings->1, RowAlignments->Baseline, ColumnAlignments->{Left}]}, {"\<\"reaction5\"\>", "\<\"reaction5\"\>", "False", "\<\"py \[RightArrowLeftArrow] null\"\>", GridBox[{ {"y"} }, RowSpacings->0.25, ColumnSpacings->1, RowAlignments->Baseline, ColumnAlignments->{ Left}], "\<\"\[CenterEllipsis]\"\>", "\<\"-(beta*(-py[t] + \ y[t]))\"\>", GridBox[{ {"\<\"py'[t]==beta*(-py[t] + y[t])\"\>"} }, RowSpacings->0.25, ColumnSpacings->1, RowAlignments->Baseline, ColumnAlignments->{Left}]}, {"\<\"reaction6\"\>", "\<\"reaction6\"\>", "False", "\<\"pz \[RightArrowLeftArrow] null\"\>", GridBox[{ {"z"} }, RowSpacings->0.25, ColumnSpacings->1, RowAlignments->Baseline, ColumnAlignments->{ Left}], "\<\"\[CenterEllipsis]\"\>", "\<\"-(beta*(-pz[t] + \ z[t]))\"\>", GridBox[{ {"\<\"pz'[t]==beta*(-pz[t] + z[t])\"\>"} }, RowSpacings->0.25, ColumnSpacings->1, RowAlignments->Baseline, ColumnAlignments->{Left}]} }, RowSpacings->1, ColumnSpacings->3, RowAlignments->Top, ColumnAlignments->{Left}], TableForm[ {{ StyleForm[ "ID", FontWeight -> "Bold", FontVariations -> {"Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14], StyleForm[ "Name", FontWeight -> "Bold", FontVariations -> {"Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14], StyleForm[ "Fast", FontWeight -> "Bold", FontVariations -> {"Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14], StyleForm[ "Reaction", FontWeight -> "Bold", FontVariations -> {"Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14], StyleForm[ "Modifiers", FontWeight -> "Bold", FontVariations -> {"Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14], StyleForm[ "Parameters", FontWeight -> "Bold", FontVariations -> {"Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14], StyleForm[ "Formula", FontWeight -> "Bold", FontVariations -> {"Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14], StyleForm[ "Contribution to ODEs", FontWeight -> "Bold", FontVariations -> { "Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14]}, {"reaction1", "reaction1", False, "null \[RightArrowLeftArrow] x", {pz}, "\[CenterEllipsis]", "alpha0 + (alpha + alpha1*pz[t]^n)/(K^n + pz[t]^n) - k1*x[t]", { "x'[t]==alpha0 + (alpha + alpha1*pz[t]^n)/(K^n + pz[t]^n) - \ k1*x[t]"}}, {"reaction2", "reaction2", False, "null \[RightArrowLeftArrow] y", {px}, "\[CenterEllipsis]", "alpha0 + (alpha + alpha1*px[t]^n)/(K^n + px[t]^n) - k1*y[t]", { "y'[t]==alpha0 + (alpha + alpha1*px[t]^n)/(K^n + px[t]^n) - \ k1*y[t]"}}, {"reaction3", "reaction3", False, "null \[RightArrowLeftArrow] z", {py}, "\[CenterEllipsis]", "alpha0 + (alpha + alpha1*py[t]^n)/(K^n + py[t]^n) - k1*z[t]", { "z'[t]==alpha0 + (alpha + alpha1*py[t]^n)/(K^n + py[t]^n) - \ k1*z[t]"}}, {"reaction4", "reaction4", False, "px \[RightArrowLeftArrow] null", {x}, "\[CenterEllipsis]", "-(beta*(-px[t] + x[t]))", {"px'[t]==beta*(-px[t] + x[t])"}}, { "reaction5", "reaction5", False, "py \[RightArrowLeftArrow] null", { y}, "\[CenterEllipsis]", "-(beta*(-py[t] + y[t]))", { "py'[t]==beta*(-py[t] + y[t])"}}, {"reaction6", "reaction6", False, "pz \[RightArrowLeftArrow] null", {z}, "\[CenterEllipsis]", "-(beta*(-pz[t] + z[t]))", {"pz'[t]==beta*(-pz[t] + z[t])"}}}, 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[GridBox[{ { TagBox[ StyleBox["\<\"Variable\"\>", 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["\<\"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]&)]}, {"\<\"px\"\>", "\<\"px'[t]==beta*(-px[t] + x[t])\"\>"}, {"\<\"py\"\>", "\<\"py'[t]==beta*(-py[t] + y[t])\"\>"}, {"\<\"pz\"\>", "\<\"pz'[t]==beta*(-pz[t] + z[t])\"\>"}, {"\<\"x\"\>", "\<\"x'[t]==alpha0 + (alpha + alpha1*pz[t]^n)/(K^n + \ pz[t]^n) - k1*x[t]\"\>"}, {"\<\"y\"\>", "\<\"y'[t]==alpha0 + (alpha + alpha1*px[t]^n)/(K^n + \ px[t]^n) - k1*y[t]\"\>"}, {"\<\"z\"\>", "\<\"z'[t]==alpha0 + (alpha + alpha1*py[t]^n)/(K^n + \ py[t]^n) - k1*z[t]\"\>"} }, 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 ]] }, Open ]], Cell[CellGroupData[{ Cell["add a reaction ", "Subsection"], Cell[CellGroupData[{ Cell["\<\ observe that the species A and B have not been previously defined \ so thay are first added to the model in the single compartment cell\ \>", \ "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ \(addReaction[A \[Rule] \ B, \ kineticLaw \[Rule] \ k5*A*x/\((k6 + x)\), \ parameters \[Rule] \ {k5 \[Rule] \ 0.1, k6 \[Rule] \ 2}]\)], "Input", Background->RGBColor[1, 1, 0]], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ StyleBox["\<\"Species \"\>", FontWeight->"Bold", FontColor->RGBColor[0.2, 0.900008, 0.6]], ( StyleForm[ #, FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\"A\"\>", FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], ( StyleForm[ #, FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\" added to compartment \"\>", FontWeight->"Bold", FontColor->RGBColor[0.2, 0.900008, 0.6]], ( StyleForm[ #, FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\"cell\"\>", FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], ( StyleForm[ #, FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"]&)]}], SequenceForm[ StyleForm[ "Species ", FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"], StyleForm[ "A", FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"], StyleForm[ " added to compartment ", FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"], StyleForm[ "cell", FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"]], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ StyleBox["\<\"Species \"\>", FontWeight->"Bold", FontColor->RGBColor[0.2, 0.900008, 0.6]], ( StyleForm[ #, FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\"B\"\>", FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], ( StyleForm[ #, FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\" added to compartment \"\>", FontWeight->"Bold", FontColor->RGBColor[0.2, 0.900008, 0.6]], ( StyleForm[ #, FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\"cell\"\>", FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], ( StyleForm[ #, FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"]&)]}], SequenceForm[ StyleForm[ "Species ", FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"], StyleForm[ "B", FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"], StyleForm[ " added to compartment ", FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"], StyleForm[ "cell", FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"]], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ StyleBox["\<\"Reaction \"\>", FontWeight->"Bold", FontColor->RGBColor[0.2, 0.900008, 0.6]], ( StyleForm[ #, FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\"reaction7\"\>", FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], ( StyleForm[ #, FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\" added.\"\>", FontWeight->"Bold", FontColor->RGBColor[0.2, 0.900008, 0.6]], ( StyleForm[ #, FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]&)]}], SequenceForm[ StyleForm[ "Reaction ", FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"], StyleForm[ "reaction7", FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"], StyleForm[ " added.", FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]], Editable->False]], "Print"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(showModel[];\)\)], "Input", Background->RGBColor[1, 1, 0]], Cell[BoxData[ \("File Name:Internal Model\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: Repressilator Model = repressilator"\)], "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"\)], "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]&)]}, {"\<\"cell\"\>", "\<\"cell\"\>", "\<\"3\"\>", \ "\<\"\[CenterEllipsis]\"\>", "\<\"volume\"\>", "\<\"volume\"\>", "\<\"\ \[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["\<\"Type\"\>", 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["\<\"I.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["\<\"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["\<\"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]&)]}, {"\<\"x\"\>", "\<\"x\"\>", "\<\"cell\"\>", "\<\"\[CenterEllipsis]\"\ \>", "\<\"\[CenterEllipsis]\"\>", "\<\"\[CenterEllipsis]\"\>", "\<\"\ \[CenterEllipsis]\"\>", "False", "False", "\<\"\[CenterEllipsis]\"\>"}, {"\<\"y\"\>", "\<\"y\"\>", "\<\"cell\"\>", "\<\"\[CenterEllipsis]\"\ \>", "\<\"\[CenterEllipsis]\"\>", "\<\"\[CenterEllipsis]\"\>", "\<\"\ \[CenterEllipsis]\"\>", "False", "False", "\<\"\[CenterEllipsis]\"\>"}, {"\<\"z\"\>", "\<\"z\"\>", "\<\"cell\"\>", "\<\"\[CenterEllipsis]\"\ \>", "\<\"\[CenterEllipsis]\"\>", "\<\"\[CenterEllipsis]\"\>", "\<\"\ \[CenterEllipsis]\"\>", "False", "False", "\<\"\[CenterEllipsis]\"\>"}, {"\<\"py\"\>", "\<\"py\"\>", "\<\"cell\"\>", "\<\"\[CenterEllipsis]\ \"\>", "\<\"\[CenterEllipsis]\"\>", "\<\"\[CenterEllipsis]\"\>", "\<\"\ \[CenterEllipsis]\"\>", "False", "False", "\<\"\[CenterEllipsis]\"\>"}, {"\<\"px\"\>", "\<\"px\"\>", "\<\"cell\"\>", "\<\"amount\"\>", \ "\<\"5.\"\>", "\<\"substance\"\>", "\<\"substance\"\>", "False", "False", "\<\"\[CenterEllipsis]\"\>"}, {"\<\"pz\"\>", "\<\"pz\"\>", "\<\"cell\"\>", "\<\"amount\"\>", \ "\<\"15.\"\>", "\<\"substance\"\>", "\<\"substance\"\>", "False", "False", "\<\"\[CenterEllipsis]\"\>"}, {"\<\"null\"\>", "\<\"null\"\>", "\<\"cell\"\>", "\<\"\ \[CenterEllipsis]\"\>", "\<\"\[CenterEllipsis]\"\>", "\<\"\[CenterEllipsis]\"\ \>", "\<\"\[CenterEllipsis]\"\>", "True", "True", "\<\"\[CenterEllipsis]\"\>"}, {"\<\"A\"\>", "\<\"A\"\>", "\<\"cell\"\>", "\<\"\[CenterEllipsis]\"\ \>", "\<\"\[CenterEllipsis]\"\>", "\<\"\[CenterEllipsis]\"\>", "\<\"\ \[CenterEllipsis]\"\>", "False", "False", "\<\"\[CenterEllipsis]\"\>"}, {"\<\"B\"\>", "\<\"B\"\>", "\<\"cell\"\>", "\<\"\[CenterEllipsis]\"\ \>", "\<\"\[CenterEllipsis]\"\>", "\<\"\[CenterEllipsis]\"\>", "\<\"\ \[CenterEllipsis]\"\>", "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[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["\<\"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\"\>", 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["\<\"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]&)]}, {"\<\"alpha\"\>", "\<\"alpha\"\>", "\<\"250.\"\>", "\<\"\ \[CenterEllipsis]\"\>", "\<\"\[CenterEllipsis]\"\>", "True"}, {"\<\"beta\"\>", "\<\"beta\"\>", "\<\"5.\"\>", "\<\"\ \[CenterEllipsis]\"\>", "\<\"\[CenterEllipsis]\"\>", "True"}, {"\<\"alpha0\"\>", "\<\"alpha0\"\>", "\<\"0\"\>", "\<\"\ \[CenterEllipsis]\"\>", "\<\"\[CenterEllipsis]\"\>", "True"}, {"\<\"alpha1\"\>", "\<\"alpha1\"\>", "\<\"0\"\>", "\<\"\ \[CenterEllipsis]\"\>", "\<\"\[CenterEllipsis]\"\>", "True"}, {"\<\"n\"\>", "\<\"n\"\>", "\<\"2.1\"\>", \ "\<\"\[CenterEllipsis]\"\>", "\<\"\[CenterEllipsis]\"\>", "True"}, {"\<\"k1\"\>", "\<\"k1\"\>", "\<\"1.\"\>", "\<\"\[CenterEllipsis]\"\ \>", "\<\"\[CenterEllipsis]\"\>", "True"}, {"\<\"K\"\>", "\<\"K\"\>", "\<\"1.\"\>", \ "\<\"\[CenterEllipsis]\"\>", "\<\"\[CenterEllipsis]\"\>", "True"} }, RowSpacings->1, ColumnSpacings->3, RowAlignments->Top, ColumnAlignments->{Left}], Function[ BoxForm`e$, TableForm[ BoxForm`e$, TableAlignments -> {Left, Top}]]]], "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[ InterpretationBox[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", "\<\"null \[RightArrowLeftArrow] x\"\>", GridBox[{ {"pz"} }, RowSpacings->0.25, ColumnSpacings->1, RowAlignments->Baseline, ColumnAlignments->{ Left}], "\<\"\[CenterEllipsis]\"\>", "\<\"alpha0 + (alpha + \ alpha1*pz[t]^n)/(K^n + pz[t]^n) - k1*x[t]\"\>", GridBox[{ {"\<\"x'[t]==alpha0 + (alpha + alpha1*pz[t]^n)/(K^n + \ pz[t]^n) - k1*x[t]\"\>"} }, RowSpacings->0.25, ColumnSpacings->1, RowAlignments->Baseline, ColumnAlignments->{Left}]}, {"\<\"reaction2\"\>", "\<\"reaction2\"\>", "False", "\<\"null \[RightArrowLeftArrow] y\"\>", GridBox[{ {"px"} }, RowSpacings->0.25, ColumnSpacings->1, RowAlignments->Baseline, ColumnAlignments->{ Left}], "\<\"\[CenterEllipsis]\"\>", "\<\"alpha0 + (alpha + \ alpha1*px[t]^n)/(K^n + px[t]^n) - k1*y[t]\"\>", GridBox[{ {"\<\"y'[t]==alpha0 + (alpha + alpha1*px[t]^n)/(K^n + \ px[t]^n) - k1*y[t]\"\>"} }, RowSpacings->0.25, ColumnSpacings->1, RowAlignments->Baseline, ColumnAlignments->{Left}]}, {"\<\"reaction3\"\>", "\<\"reaction3\"\>", "False", "\<\"null \[RightArrowLeftArrow] z\"\>", GridBox[{ {"py"} }, RowSpacings->0.25, ColumnSpacings->1, RowAlignments->Baseline, ColumnAlignments->{ Left}], "\<\"\[CenterEllipsis]\"\>", "\<\"alpha0 + (alpha + \ alpha1*py[t]^n)/(K^n + py[t]^n) - k1*z[t]\"\>", GridBox[{ {"\<\"z'[t]==alpha0 + (alpha + alpha1*py[t]^n)/(K^n + \ py[t]^n) - k1*z[t]\"\>"} }, RowSpacings->0.25, ColumnSpacings->1, RowAlignments->Baseline, ColumnAlignments->{Left}]}, {"\<\"reaction4\"\>", "\<\"reaction4\"\>", "False", "\<\"px \[RightArrowLeftArrow] null\"\>", GridBox[{ {"x"} }, RowSpacings->0.25, ColumnSpacings->1, RowAlignments->Baseline, ColumnAlignments->{ Left}], "\<\"\[CenterEllipsis]\"\>", "\<\"-(beta*(-px[t] + \ x[t]))\"\>", GridBox[{ {"\<\"px'[t]==beta*(-px[t] + x[t])\"\>"} }, RowSpacings->0.25, ColumnSpacings->1, RowAlignments->Baseline, ColumnAlignments->{Left}]}, {"\<\"reaction5\"\>", "\<\"reaction5\"\>", "False", "\<\"py \[RightArrowLeftArrow] null\"\>", GridBox[{ {"y"} }, RowSpacings->0.25, ColumnSpacings->1, RowAlignments->Baseline, ColumnAlignments->{ Left}], "\<\"\[CenterEllipsis]\"\>", "\<\"-(beta*(-py[t] + \ y[t]))\"\>", GridBox[{ {"\<\"py'[t]==beta*(-py[t] + y[t])\"\>"} }, RowSpacings->0.25, ColumnSpacings->1, RowAlignments->Baseline, ColumnAlignments->{Left}]}, {"\<\"reaction6\"\>", "\<\"reaction6\"\>", "False", "\<\"pz \[RightArrowLeftArrow] null\"\>", GridBox[{ {"z"} }, RowSpacings->0.25, ColumnSpacings->1, RowAlignments->Baseline, ColumnAlignments->{ Left}], "\<\"\[CenterEllipsis]\"\>", "\<\"-(beta*(-pz[t] + \ z[t]))\"\>", GridBox[{ {"\<\"pz'[t]==beta*(-pz[t] + z[t])\"\>"} }, RowSpacings->0.25, ColumnSpacings->1, RowAlignments->Baseline, ColumnAlignments->{Left}]}, {"\<\"reaction7\"\>", "\<\"reaction7\"\>", "False", "\<\"A \[RightArrowLeftArrow] B\"\>", "\<\"\ \[CenterEllipsis]\"\>", GridBox[{ {"\<\"k5\[Rule]0.1\"\>"}, {"\<\"k6\[Rule]2.\"\>"} }, RowSpacings->0.25, ColumnSpacings->1, RowAlignments->Baseline, ColumnAlignments->{Left}], "\<\"(k5*A[t]*x[t])/(k6 + x[t])\"\>", GridBox[{ {"\<\"B'[t]==(k5*A[t]*x[t])/(k6 + x[t])\"\>"}, {"\<\"A'[t]==-((k5*A[t]*x[t])/(k6 + x[t]))\"\>"} }, RowSpacings->0.25, ColumnSpacings->1, RowAlignments->Baseline, ColumnAlignments->{Left}]} }, RowSpacings->1, ColumnSpacings->3, RowAlignments->Top, ColumnAlignments->{Left}], TableForm[ {{ StyleForm[ "ID", FontWeight -> "Bold", FontVariations -> {"Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14], StyleForm[ "Name", FontWeight -> "Bold", FontVariations -> {"Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14], StyleForm[ "Fast", FontWeight -> "Bold", FontVariations -> {"Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14], StyleForm[ "Reaction", FontWeight -> "Bold", FontVariations -> {"Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14], StyleForm[ "Modifiers", FontWeight -> "Bold", FontVariations -> {"Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14], StyleForm[ "Parameters", FontWeight -> "Bold", FontVariations -> {"Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14], StyleForm[ "Formula", FontWeight -> "Bold", FontVariations -> {"Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14], StyleForm[ "Contribution to ODEs", FontWeight -> "Bold", FontVariations -> { "Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14]}, {"reaction1", "reaction1", False, "null \[RightArrowLeftArrow] x", {pz}, "\[CenterEllipsis]", "alpha0 + (alpha + alpha1*pz[t]^n)/(K^n + pz[t]^n) - k1*x[t]", { "x'[t]==alpha0 + (alpha + alpha1*pz[t]^n)/(K^n + pz[t]^n) - \ k1*x[t]"}}, {"reaction2", "reaction2", False, "null \[RightArrowLeftArrow] y", {px}, "\[CenterEllipsis]", "alpha0 + (alpha + alpha1*px[t]^n)/(K^n + px[t]^n) - k1*y[t]", { "y'[t]==alpha0 + (alpha + alpha1*px[t]^n)/(K^n + px[t]^n) - \ k1*y[t]"}}, {"reaction3", "reaction3", False, "null \[RightArrowLeftArrow] z", {py}, "\[CenterEllipsis]", "alpha0 + (alpha + alpha1*py[t]^n)/(K^n + py[t]^n) - k1*z[t]", { "z'[t]==alpha0 + (alpha + alpha1*py[t]^n)/(K^n + py[t]^n) - \ k1*z[t]"}}, {"reaction4", "reaction4", False, "px \[RightArrowLeftArrow] null", {x}, "\[CenterEllipsis]", "-(beta*(-px[t] + x[t]))", {"px'[t]==beta*(-px[t] + x[t])"}}, { "reaction5", "reaction5", False, "py \[RightArrowLeftArrow] null", { y}, "\[CenterEllipsis]", "-(beta*(-py[t] + y[t]))", { "py'[t]==beta*(-py[t] + y[t])"}}, {"reaction6", "reaction6", False, "pz \[RightArrowLeftArrow] null", {z}, "\[CenterEllipsis]", "-(beta*(-pz[t] + z[t]))", {"pz'[t]==beta*(-pz[t] + z[t])"}}, { "reaction7", "reaction7", False, "A \[RightArrowLeftArrow] B", "\[CenterEllipsis]", {"k5\[Rule]0.1", "k6\[Rule]2."}, "(k5*A[t]*x[t])/(k6 + x[t])", {"B'[t]==(k5*A[t]*x[t])/(k6 + x[t])", "A'[t]==-((k5*A[t]*x[t])/(k6 + x[t]))"}}}, 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[GridBox[{ { TagBox[ StyleBox["\<\"Variable\"\>", 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["\<\"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]&)]}, {"\<\"A\"\>", "\<\"A'[t]==-((reaction7`k5*A[t]*x[t])/(reaction7`k6 \ + x[t]))\"\>"}, {"\<\"B\"\>", "\<\"B'[t]==(reaction7`k5*A[t]*x[t])/(reaction7`k6 + \ x[t])\"\>"}, {"\<\"px\"\>", "\<\"px'[t]==beta*(-px[t] + x[t])\"\>"}, {"\<\"py\"\>", "\<\"py'[t]==beta*(-py[t] + y[t])\"\>"}, {"\<\"pz\"\>", "\<\"pz'[t]==beta*(-pz[t] + z[t])\"\>"}, {"\<\"x\"\>", "\<\"x'[t]==alpha0 + (alpha + alpha1*pz[t]^n)/(K^n + \ pz[t]^n) - k1*x[t]\"\>"}, {"\<\"y\"\>", "\<\"y'[t]==alpha0 + (alpha + alpha1*px[t]^n)/(K^n + \ px[t]^n) - k1*y[t]\"\>"}, {"\<\"z\"\>", "\<\"z'[t]==alpha0 + (alpha + alpha1*py[t]^n)/(K^n + \ py[t]^n) - k1*z[t]\"\>"} }, 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 ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ realize that you forgot to set initial conditions on A and B, so \ set them now\ \>", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(modifySpecies[A, \ initialAmount \[Rule] \ 5];\)\), "\[IndentingNewLine]", \(\(modifySpecies[B, \ initialAmount \[Rule] \ 0];\)\)}], "Input", Background->RGBColor[1, 1, 0]], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ StyleBox["\<\"Previous occurance of species \"\>", FontWeight->"Bold", FontColor->RGBColor[0.2, 0.900008, 0.6]], ( StyleForm[ #, FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\"A\"\>", FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], ( StyleForm[ #, FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\" removed.\"\>", FontWeight->"Bold", FontColor->RGBColor[0.2, 0.900008, 0.6]], ( StyleForm[ #, FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]&)]}], SequenceForm[ StyleForm[ "Previous occurance of species ", FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"], StyleForm[ "A", FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"], StyleForm[ " removed.", FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ StyleBox["\<\"Species \"\>", FontWeight->"Bold", FontColor->RGBColor[0.2, 0.900008, 0.6]], ( StyleForm[ #, FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\"A\"\>", FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], ( StyleForm[ #, FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\" added to compartment \"\>", FontWeight->"Bold", FontColor->RGBColor[0.2, 0.900008, 0.6]], ( StyleForm[ #, FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\"cell\"\>", FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], ( StyleForm[ #, FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"]&)]}], SequenceForm[ StyleForm[ "Species ", FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"], StyleForm[ "A", FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"], StyleForm[ " added to compartment ", FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"], StyleForm[ "cell", FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"]], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ StyleBox["\<\"Previous occurance of species \"\>", FontWeight->"Bold", FontColor->RGBColor[0.2, 0.900008, 0.6]], ( StyleForm[ #, FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\"B\"\>", FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], ( StyleForm[ #, FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\" removed.\"\>", FontWeight->"Bold", FontColor->RGBColor[0.2, 0.900008, 0.6]], ( StyleForm[ #, FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]&)]}], SequenceForm[ StyleForm[ "Previous occurance of species ", FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"], StyleForm[ "B", FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"], StyleForm[ " removed.", FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ StyleBox["\<\"Species \"\>", FontWeight->"Bold", FontColor->RGBColor[0.2, 0.900008, 0.6]], ( StyleForm[ #, FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\"B\"\>", FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], ( StyleForm[ #, FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\" added to compartment \"\>", FontWeight->"Bold", FontColor->RGBColor[0.2, 0.900008, 0.6]], ( StyleForm[ #, FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"]&)], "\[InvisibleSpace]", TagBox[ StyleBox["\<\"cell\"\>", FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], ( StyleForm[ #, FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"]&)]}], SequenceForm[ StyleForm[ "Species ", FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"], StyleForm[ "B", FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"], StyleForm[ " added to compartment ", FontColor -> RGBColor[ 0.20000000000000001, 0.90000000000000002, 0.59999999999999998], FontWeight -> "Bold"], StyleForm[ "cell", FontColor -> RGBColor[ 0, 0, 1], FontWeight -> "Bold"]], Editable->False]], "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Show the model again", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ \(\(showModel[];\)\)], "Input", Background->RGBColor[1, 1, 0]], Cell[BoxData[ \("File Name:Internal Model\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: Repressilator Model = repressilator"\)], "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"\)], "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]&)]}, {"\<\"cell\"\>", "\<\"cell\"\>", "\<\"3\"\>", \ "\<\"\[CenterEllipsis]\"\>", "\<\"volume\"\>", "\<\"volume\"\>", "\<\"\ \[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["\<\"Type\"\>", 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["\<\"I.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["\<\"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["\<\"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]&)]}, {"\<\"x\"\>", "\<\"x\"\>", "\<\"cell\"\>", "\<\"\[CenterEllipsis]\"\ \>", "\<\"\[CenterEllipsis]\"\>", "\<\"\[CenterEllipsis]\"\>", "\<\"\ \[CenterEllipsis]\"\>", "False", "False", "\<\"\[CenterEllipsis]\"\>"}, {"\<\"y\"\>", "\<\"y\"\>", "\<\"cell\"\>", "\<\"\[CenterEllipsis]\"\ \>", "\<\"\[CenterEllipsis]\"\>", "\<\"\[CenterEllipsis]\"\>", "\<\"\ \[CenterEllipsis]\"\>", "False", "False", "\<\"\[CenterEllipsis]\"\>"}, {"\<\"z\"\>", "\<\"z\"\>", "\<\"cell\"\>", "\<\"\[CenterEllipsis]\"\ \>", "\<\"\[CenterEllipsis]\"\>", "\<\"\[CenterEllipsis]\"\>", "\<\"\ \[CenterEllipsis]\"\>", "False", "False", "\<\"\[CenterEllipsis]\"\>"}, {"\<\"py\"\>", "\<\"py\"\>", "\<\"cell\"\>", "\<\"\[CenterEllipsis]\ \"\>", "\<\"\[CenterEllipsis]\"\>", "\<\"\[CenterEllipsis]\"\>", "\<\"\ \[CenterEllipsis]\"\>", "False", "False", "\<\"\[CenterEllipsis]\"\>"}, {"\<\"px\"\>", "\<\"px\"\>", "\<\"cell\"\>", "\<\"amount\"\>", \ "\<\"5.\"\>", "\<\"substance\"\>", "\<\"substance\"\>", "False", "False", "\<\"\[CenterEllipsis]\"\>"}, {"\<\"pz\"\>", "\<\"pz\"\>", "\<\"cell\"\>", "\<\"amount\"\>", \ "\<\"15.\"\>", "\<\"substance\"\>", "\<\"substance\"\>", "False", "False", "\<\"\[CenterEllipsis]\"\>"}, {"\<\"null\"\>", "\<\"null\"\>", "\<\"cell\"\>", "\<\"\ \[CenterEllipsis]\"\>", "\<\"\[CenterEllipsis]\"\>", "\<\"\[CenterEllipsis]\"\ \>", "\<\"\[CenterEllipsis]\"\>", "True", "True", "\<\"\[CenterEllipsis]\"\>"}, {"\<\"A\"\>", "\<\"A\"\>", "\<\"cell\"\>", "\<\"amount\"\>", \ "\<\"5.\"\>", "\<\"substance\"\>", "\<\"substance\"\>", "False", "False", "\<\"\[CenterEllipsis]\"\>"}, {"\<\"B\"\>", "\<\"B\"\>", "\<\"cell\"\>", "\<\"amount\"\>", "\<\"0\ \"\>", "\<\"substance\"\>", "\<\"substance\"\>", "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[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["\<\"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\"\>", 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["\<\"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]&)]}, {"\<\"alpha\"\>", "\<\"alpha\"\>", "\<\"250.\"\>", "\<\"\ \[CenterEllipsis]\"\>", "\<\"\[CenterEllipsis]\"\>", "True"}, {"\<\"beta\"\>", "\<\"beta\"\>", "\<\"5.\"\>", "\<\"\ \[CenterEllipsis]\"\>", "\<\"\[CenterEllipsis]\"\>", "True"}, {"\<\"alpha0\"\>", "\<\"alpha0\"\>", "\<\"0\"\>", "\<\"\ \[CenterEllipsis]\"\>", "\<\"\[CenterEllipsis]\"\>", "True"}, {"\<\"alpha1\"\>", "\<\"alpha1\"\>", "\<\"0\"\>", "\<\"\ \[CenterEllipsis]\"\>", "\<\"\[CenterEllipsis]\"\>", "True"}, {"\<\"n\"\>", "\<\"n\"\>", "\<\"2.1\"\>", \ "\<\"\[CenterEllipsis]\"\>", "\<\"\[CenterEllipsis]\"\>", "True"}, {"\<\"k1\"\>", "\<\"k1\"\>", "\<\"1.\"\>", "\<\"\[CenterEllipsis]\"\ \>", "\<\"\[CenterEllipsis]\"\>", "True"}, {"\<\"K\"\>", "\<\"K\"\>", "\<\"1.\"\>", \ "\<\"\[CenterEllipsis]\"\>", "\<\"\[CenterEllipsis]\"\>", "True"} }, RowSpacings->1, ColumnSpacings->3, RowAlignments->Top, ColumnAlignments->{Left}], Function[ BoxForm`e$, TableForm[ BoxForm`e$, TableAlignments -> {Left, Top}]]]], "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[ InterpretationBox[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", "\<\"null \[RightArrowLeftArrow] x\"\>", GridBox[{ {"pz"} }, RowSpacings->0.25, ColumnSpacings->1, RowAlignments->Baseline, ColumnAlignments->{ Left}], "\<\"\[CenterEllipsis]\"\>", "\<\"alpha0 + (alpha + \ alpha1*pz[t]^n)/(K^n + pz[t]^n) - k1*x[t]\"\>", GridBox[{ {"\<\"x'[t]==alpha0 + (alpha + alpha1*pz[t]^n)/(K^n + \ pz[t]^n) - k1*x[t]\"\>"} }, RowSpacings->0.25, ColumnSpacings->1, RowAlignments->Baseline, ColumnAlignments->{Left}]}, {"\<\"reaction2\"\>", "\<\"reaction2\"\>", "False", "\<\"null \[RightArrowLeftArrow] y\"\>", GridBox[{ {"px"} }, RowSpacings->0.25, ColumnSpacings->1, RowAlignments->Baseline, ColumnAlignments->{ Left}], "\<\"\[CenterEllipsis]\"\>", "\<\"alpha0 + (alpha + \ alpha1*px[t]^n)/(K^n + px[t]^n) - k1*y[t]\"\>", GridBox[{ {"\<\"y'[t]==alpha0 + (alpha + alpha1*px[t]^n)/(K^n + \ px[t]^n) - k1*y[t]\"\>"} }, RowSpacings->0.25, ColumnSpacings->1, RowAlignments->Baseline, ColumnAlignments->{Left}]}, {"\<\"reaction3\"\>", "\<\"reaction3\"\>", "False", "\<\"null \[RightArrowLeftArrow] z\"\>", GridBox[{ {"py"} }, RowSpacings->0.25, ColumnSpacings->1, RowAlignments->Baseline, ColumnAlignments->{ Left}], "\<\"\[CenterEllipsis]\"\>", "\<\"alpha0 + (alpha + \ alpha1*py[t]^n)/(K^n + py[t]^n) - k1*z[t]\"\>", GridBox[{ {"\<\"z'[t]==alpha0 + (alpha + alpha1*py[t]^n)/(K^n + \ py[t]^n) - k1*z[t]\"\>"} }, RowSpacings->0.25, ColumnSpacings->1, RowAlignments->Baseline, ColumnAlignments->{Left}]}, {"\<\"reaction4\"\>", "\<\"reaction4\"\>", "False", "\<\"px \[RightArrowLeftArrow] null\"\>", GridBox[{ {"x"} }, RowSpacings->0.25, ColumnSpacings->1, RowAlignments->Baseline, ColumnAlignments->{ Left}], "\<\"\[CenterEllipsis]\"\>", "\<\"-(beta*(-px[t] + \ x[t]))\"\>", GridBox[{ {"\<\"px'[t]==beta*(-px[t] + x[t])\"\>"} }, RowSpacings->0.25, ColumnSpacings->1, RowAlignments->Baseline, ColumnAlignments->{Left}]}, {"\<\"reaction5\"\>", "\<\"reaction5\"\>", "False", "\<\"py \[RightArrowLeftArrow] null\"\>", GridBox[{ {"y"} }, RowSpacings->0.25, ColumnSpacings->1, RowAlignments->Baseline, ColumnAlignments->{ Left}], "\<\"\[CenterEllipsis]\"\>", "\<\"-(beta*(-py[t] + \ y[t]))\"\>", GridBox[{ {"\<\"py'[t]==beta*(-py[t] + y[t])\"\>"} }, RowSpacings->0.25, ColumnSpacings->1, RowAlignments->Baseline, ColumnAlignments->{Left}]}, {"\<\"reaction6\"\>", "\<\"reaction6\"\>", "False", "\<\"pz \[RightArrowLeftArrow] null\"\>", GridBox[{ {"z"} }, RowSpacings->0.25, ColumnSpacings->1, RowAlignments->Baseline, ColumnAlignments->{ Left}], "\<\"\[CenterEllipsis]\"\>", "\<\"-(beta*(-pz[t] + \ z[t]))\"\>", GridBox[{ {"\<\"pz'[t]==beta*(-pz[t] + z[t])\"\>"} }, RowSpacings->0.25, ColumnSpacings->1, RowAlignments->Baseline, ColumnAlignments->{Left}]}, {"\<\"reaction7\"\>", "\<\"reaction7\"\>", "False", "\<\"A \[RightArrowLeftArrow] B\"\>", "\<\"\ \[CenterEllipsis]\"\>", GridBox[{ {"\<\"k5\[Rule]0.1\"\>"}, {"\<\"k6\[Rule]2.\"\>"} }, RowSpacings->0.25, ColumnSpacings->1, RowAlignments->Baseline, ColumnAlignments->{Left}], "\<\"(k5*A[t]*x[t])/(k6 + x[t])\"\>", GridBox[{ {"\<\"B'[t]==(k5*A[t]*x[t])/(k6 + x[t])\"\>"}, {"\<\"A'[t]==-((k5*A[t]*x[t])/(k6 + x[t]))\"\>"} }, RowSpacings->0.25, ColumnSpacings->1, RowAlignments->Baseline, ColumnAlignments->{Left}]} }, RowSpacings->1, ColumnSpacings->3, RowAlignments->Top, ColumnAlignments->{Left}], TableForm[ {{ StyleForm[ "ID", FontWeight -> "Bold", FontVariations -> {"Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14], StyleForm[ "Name", FontWeight -> "Bold", FontVariations -> {"Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14], StyleForm[ "Fast", FontWeight -> "Bold", FontVariations -> {"Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14], StyleForm[ "Reaction", FontWeight -> "Bold", FontVariations -> {"Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14], StyleForm[ "Modifiers", FontWeight -> "Bold", FontVariations -> {"Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14], StyleForm[ "Parameters", FontWeight -> "Bold", FontVariations -> {"Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14], StyleForm[ "Formula", FontWeight -> "Bold", FontVariations -> {"Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14], StyleForm[ "Contribution to ODEs", FontWeight -> "Bold", FontVariations -> { "Underline" -> True}, FontFamily -> "Times", FontColor -> RGBColor[ 0.41569299999999998, 0.35290100000000002, 0.80390300000000003], FontSize -> 14]}, {"reaction1", "reaction1", False, "null \[RightArrowLeftArrow] x", {pz}, "\[CenterEllipsis]", "alpha0 + (alpha + alpha1*pz[t]^n)/(K^n + pz[t]^n) - k1*x[t]", { "x'[t]==alpha0 + (alpha + alpha1*pz[t]^n)/(K^n + pz[t]^n) - \ k1*x[t]"}}, {"reaction2", "reaction2", False, "null \[RightArrowLeftArrow] y", {px}, "\[CenterEllipsis]", "alpha0 + (alpha + alpha1*px[t]^n)/(K^n + px[t]^n) - k1*y[t]", { "y'[t]==alpha0 + (alpha + alpha1*px[t]^n)/(K^n + px[t]^n) - \ k1*y[t]"}}, {"reaction3", "reaction3", False, "null \[RightArrowLeftArrow] z", {py}, "\[CenterEllipsis]", "alpha0 + (alpha + alpha1*py[t]^n)/(K^n + py[t]^n) - k1*z[t]", { "z'[t]==alpha0 + (alpha + alpha1*py[t]^n)/(K^n + py[t]^n) - \ k1*z[t]"}}, {"reaction4", "reaction4", False, "px \[RightArrowLeftArrow] null", {x}, "\[CenterEllipsis]", "-(beta*(-px[t] + x[t]))", {"px'[t]==beta*(-px[t] + x[t])"}}, { "reaction5", "reaction5", False, "py \[RightArrowLeftArrow] null", { y}, "\[CenterEllipsis]", "-(beta*(-py[t] + y[t]))", { "py'[t]==beta*(-py[t] + y[t])"}}, {"reaction6", "reaction6", False, "pz \[RightArrowLeftArrow] null", {z}, "\[CenterEllipsis]", "-(beta*(-pz[t] + z[t]))", {"pz'[t]==beta*(-pz[t] + z[t])"}}, { "reaction7", "reaction7", False, "A \[RightArrowLeftArrow] B", "\[CenterEllipsis]", {"k5\[Rule]0.1", "k6\[Rule]2."}, "(k5*A[t]*x[t])/(k6 + x[t])", {"B'[t]==(k5*A[t]*x[t])/(k6 + x[t])", "A'[t]==-((k5*A[t]*x[t])/(k6 + x[t]))"}}}, 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[GridBox[{ { TagBox[ StyleBox["\<\"Variable\"\>", 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["\<\"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]&)]}, {"\<\"A\"\>", "\<\"A'[t]==-((reaction7`k5*A[t]*x[t])/(reaction7`k6 \ + x[t]))\"\>"}, {"\<\"B\"\>", "\<\"B'[t]==(reaction7`k5*A[t]*x[t])/(reaction7`k6 + \ x[t])\"\>"}, {"\<\"px\"\>", "\<\"px'[t]==beta*(-px[t] + x[t])\"\>"}, {"\<\"py\"\>", "\<\"py'[t]==beta*(-py[t] + y[t])\"\>"}, {"\<\"pz\"\>", "\<\"pz'[t]==beta*(-pz[t] + z[t])\"\>"}, {"\<\"x\"\>", "\<\"x'[t]==alpha0 + (alpha + alpha1*pz[t]^n)/(K^n + \ pz[t]^n) - k1*x[t]\"\>"}, {"\<\"y\"\>", "\<\"y'[t]==alpha0 + (alpha + alpha1*px[t]^n)/(K^n + \ px[t]^n) - k1*y[t]\"\>"}, {"\<\"z\"\>", "\<\"z'[t]==alpha0 + (alpha + alpha1*py[t]^n)/(K^n + \ py[t]^n) - k1*z[t]\"\>"} }, 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 ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Everything looks good so create the sbml and write it to the \ screen\ \>", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ \(createModel[]\)], "Input", Background->RGBColor[1, 1, 0]], Cell[BoxData[ \("\n\n\n\n \n \n \ \n \n \n \n \n \ \n \n \n \n \n \n \n \n \n \ \n \n \n \n \n \n \n \n \n \n \n \n \ \n \n \ \n \n \ \n \n \ \n \n \n \n \n \n \n \n\ alpha0\n \n \n \n \ \n \n \n \ alpha1\n \n \n \ pz\n n\n \n \n \ alpha\n \n \n \n \ \n \n \n \n \ K\n n\n \n \ \n \n pz\n n\n \ \n \n -1\n \ \n \n \n \n \ -1\n \n \n \ k1\n x\n \n \n \ \n \n \n \n \ \n \n \n \ \n \n \ \n \n \ \n \n \n \n \n \n \n \n\ alpha0\n \n \n \n \ \n \n \n \ alpha1\n \n \n \ px\n n\n \n \n \ alpha\n \n \n \n \ \n \n \n \n \ K\n n\n \n \ \n \n px\n n\n \ \n \n -1\n \ \n \n \n \n \ -1\n \n \n \ k1\n y\n \n \n \ \n \n \n \n \ \n \n \n \ \n \n \ \n \n \ \n \n \n \n \n \n \n \n\ alpha0\n \n \n \n \ \n \n \n \ alpha1\n \n \n \ py\n n\n \n \n \ alpha\n \n \n \n \ \n \n \n \n \ K\n n\n \n \ \n \n py\n n\n \ \n \n -1\n \ \n \n \n \n \ -1\n \n \n \ k1\n z\n \n \n \ \n \n \n \n \ \n \n \n \ \n \n \ \n \n \ \n \n \n \n \n \n \n \ \n \n \n -1\n \ beta\n \n \n \n \ x\n \n \n -1\n px\n \n \ \n \n \n \n \ \n \n \n \ \n \n \ \n \n \n \n \n \ \n \n \ \n \ \n \n \ \n \n \n -1\n beta\n \n \ \n \n y\n \n \ \n -1\n py\n \ \n \n \n \n \ \n \n \n \n \n \n \n \n \n \n \n \ \n \n \ \n \ \n \n \ \n \n \n -1\n beta\n \n \ \n \n z\n \n \ \n -1\n pz\n \ \n \n \n \n \ \n \n \n \n \n \n \n \n \ \n \n \ \n \n \n \n \ \n A\n k5\n x\n \n \ \n \n \n k6\n \ x\n \n -1\n \ \n \n \n \n \ notesannotations\n \ notesannotations\n \ \n \n \n \n\ \n \n"\)], "Output"] }, Open ]] }, Open ]] }, Closed]] }, Open ]] }, FrontEndVersion->"5.0 for Macintosh", ScreenRectangle->{{0, 1280}, {0, 828}}, WindowSize->{969, 641}, WindowMargins->{{Automatic, 142}, {Automatic, 72}}, PrintingCopies->1, PrintingPageRange->{1, Automatic}, 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[1754, 51, 180, 5, 112, "Subtitle"], Cell[CellGroupData[{ Cell[1959, 60, 34, 0, 88, "Title"], Cell[1996, 62, 229, 6, 112, "Subtitle"], Cell[CellGroupData[{ Cell[2250, 72, 126, 3, 43, "Input"], Cell[2379, 77, 113, 2, 23, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[2529, 84, 71, 0, 69, "Section"], Cell[CellGroupData[{ Cell[2625, 88, 154, 4, 43, "Input"], Cell[2782, 94, 245, 7, 66, "Output"], Cell[3030, 103, 236, 7, 46, "Output"], Cell[3269, 112, 214, 7, 46, "Output"], Cell[3486, 121, 261, 7, 27, "Output"], Cell[3750, 130, 210, 7, 46, "Output"], Cell[3963, 139, 261, 7, 27, "Output"], Cell[4227, 148, 206, 7, 46, "Output"], Cell[4436, 157, 5197, 116, 43, "Output"], Cell[9636, 275, 201, 7, 46, "Output"], Cell[9840, 284, 7725, 161, 139, "Output"], Cell[17568, 447, 211, 7, 46, "Output"], Cell[17782, 456, 4722, 101, 139, "Output"], Cell[22507, 559, 199, 7, 46, "Output"], Cell[22709, 568, 261, 7, 27, "Output"], Cell[22973, 577, 241, 7, 46, "Output"], Cell[23217, 586, 12177, 272, 123, "Output"], Cell[35397, 860, 243, 7, 46, "Output"], Cell[35643, 869, 1904, 42, 123, "Output"], Cell[37550, 913, 200, 7, 46, "Output"], Cell[37753, 922, 261, 7, 27, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[38063, 935, 45, 0, 39, "Section"], Cell[CellGroupData[{ Cell[38133, 939, 37, 0, 38, "Subsection"], Cell[CellGroupData[{ Cell[38195, 943, 221, 4, 59, "Input"], Cell[38419, 949, 43, 1, 27, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[38511, 956, 64, 0, 38, "Subsection"], Cell[CellGroupData[{ Cell[38600, 960, 186, 4, 43, "Input"], Cell[38789, 966, 1176, 16, 635, "Output"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[40026, 989, 48, 0, 39, "Section"], Cell[CellGroupData[{ Cell[40099, 993, 37, 0, 38, "Subsection"], Cell[CellGroupData[{ Cell[40161, 997, 225, 4, 59, "Input"], Cell[40389, 1003, 43, 1, 27, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[40481, 1010, 64, 0, 38, "Subsection"], Cell[CellGroupData[{ Cell[40570, 1014, 190, 4, 43, "Input"], Cell[40763, 1020, 4046, 55, 2299, "Output"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[44870, 1082, 49, 0, 39, "Section"], Cell[CellGroupData[{ Cell[44944, 1086, 222, 4, 43, "Input"], Cell[45169, 1092, 43, 1, 27, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[45261, 1099, 51, 0, 69, "Section"], Cell[CellGroupData[{ Cell[45337, 1103, 301, 6, 75, "Input"], Cell[45641, 1111, 349, 7, 39, "Print"], Cell[45993, 1120, 77924, 2143, 189, 26119, 1499, "GraphicsData", \ "PostScript", "Graphics"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[123966, 3269, 54, 0, 39, "Section"], Cell[CellGroupData[{ Cell[124045, 3273, 2454, 45, 347, "Input"], Cell[126502, 3320, 53, 1, 27, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[126604, 3327, 76, 0, 39, "Section"], Cell[CellGroupData[{ Cell[126705, 3331, 38, 0, 28, "Subsubsection"], Cell[CellGroupData[{ Cell[126768, 3335, 112, 2, 43, "Input"], Cell[126883, 3339, 1463, 37, 23, "Print"], Cell[128349, 3378, 1828, 46, 23, "Print"], Cell[130180, 3426, 1828, 46, 23, "Print"], Cell[132011, 3474, 1828, 46, 23, "Print"], Cell[133842, 3522, 1830, 46, 23, "Print"], Cell[135675, 3570, 1830, 46, 23, "Print"], Cell[137508, 3618, 1830, 46, 23, "Print"], Cell[139341, 3666, 1834, 46, 23, "Print"], Cell[141178, 3714, 1461, 37, 23, "Print"], Cell[142642, 3753, 1459, 37, 23, "Print"], Cell[144104, 3792, 1463, 37, 23, "Print"], Cell[145570, 3831, 1463, 37, 23, "Print"], Cell[147036, 3870, 1453, 37, 23, "Print"], Cell[148492, 3909, 1455, 37, 23, "Print"], Cell[149950, 3948, 1453, 37, 23, "Print"], Cell[151406, 3987, 1467, 37, 23, "Print"], Cell[152876, 4026, 1467, 37, 23, "Print"], Cell[154346, 4065, 1467, 37, 23, "Print"], Cell[155816, 4104, 1467, 37, 23, "Print"], Cell[157286, 4143, 1467, 37, 23, "Print"], Cell[158756, 4182, 1467, 37, 23, "Print"], Cell[160226, 4221, 1530, 38, 23, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[161805, 4265, 50, 0, 28, "Subsubsection"], Cell[CellGroupData[{ Cell[161880, 4269, 82, 2, 43, "Input"], Cell[161965, 4273, 242, 7, 66, "Output"], Cell[162210, 4282, 236, 7, 46, "Output"], Cell[162449, 4291, 214, 7, 46, "Output"], Cell[162666, 4300, 261, 7, 27, "Output"], Cell[162930, 4309, 210, 7, 46, "Output"], Cell[163143, 4318, 261, 7, 27, "Output"], Cell[163407, 4327, 206, 7, 46, "Output"], Cell[163616, 4336, 5197, 116, 43, "Output"], Cell[168816, 4454, 201, 7, 46, "Output"], Cell[169020, 4463, 7725, 161, 139, "Output"], Cell[176748, 4626, 211, 7, 46, "Output"], Cell[176962, 4635, 4722, 101, 139, "Output"], Cell[181687, 4738, 199, 7, 46, "Output"], Cell[181889, 4747, 261, 7, 27, "Output"], Cell[182153, 4756, 241, 7, 46, "Output"], Cell[182397, 4765, 12544, 277, 123, "Output"], Cell[194944, 5044, 243, 7, 46, "Output"], Cell[195190, 5053, 2000, 45, 123, "Output"], Cell[197193, 5100, 200, 7, 46, "Output"], Cell[197396, 5109, 261, 7, 27, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[197706, 5122, 37, 0, 38, "Subsection"], Cell[CellGroupData[{ Cell[197768, 5126, 170, 4, 28, "Subsubsection"], Cell[CellGroupData[{ Cell[197963, 5134, 209, 4, 43, "Input"], Cell[198175, 5140, 1828, 46, 23, "Print"], Cell[200006, 5188, 1828, 46, 23, "Print"], Cell[201837, 5236, 1467, 37, 23, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[203341, 5278, 82, 2, 43, "Input"], Cell[203426, 5282, 242, 7, 66, "Output"], Cell[203671, 5291, 236, 7, 46, "Output"], Cell[203910, 5300, 214, 7, 46, "Output"], Cell[204127, 5309, 261, 7, 27, "Output"], Cell[204391, 5318, 210, 7, 46, "Output"], Cell[204604, 5327, 261, 7, 27, "Output"], Cell[204868, 5336, 206, 7, 46, "Output"], Cell[205077, 5345, 5197, 116, 43, "Output"], Cell[210277, 5463, 201, 7, 46, "Output"], Cell[210481, 5472, 8167, 167, 171, "Output"], Cell[218651, 5641, 211, 7, 46, "Output"], Cell[218865, 5650, 4722, 101, 139, "Output"], Cell[223590, 5753, 199, 7, 46, "Output"], Cell[223792, 5762, 261, 7, 27, "Output"], Cell[224056, 5771, 241, 7, 46, "Output"], Cell[224300, 5780, 13564, 299, 151, "Output"], Cell[237867, 6081, 243, 7, 46, "Output"], Cell[238113, 6090, 2187, 49, 155, "Output"], Cell[240303, 6141, 200, 7, 46, "Output"], Cell[240506, 6150, 261, 7, 27, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[240828, 6164, 109, 3, 38, "Subsection"], Cell[CellGroupData[{ Cell[240962, 6171, 211, 4, 59, "Input"], Cell[241176, 6177, 1497, 37, 23, "Print"], Cell[242676, 6216, 1828, 46, 23, "Print"], Cell[244507, 6264, 1497, 37, 23, "Print"], Cell[246007, 6303, 1828, 46, 23, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[247884, 6355, 42, 0, 38, "Subsection"], Cell[CellGroupData[{ Cell[247951, 6359, 82, 2, 43, "Input"], Cell[248036, 6363, 242, 7, 66, "Output"], Cell[248281, 6372, 236, 7, 46, "Output"], Cell[248520, 6381, 214, 7, 46, "Output"], Cell[248737, 6390, 261, 7, 27, "Output"], Cell[249001, 6399, 210, 7, 46, "Output"], Cell[249214, 6408, 261, 7, 27, "Output"], Cell[249478, 6417, 206, 7, 46, "Output"], Cell[249687, 6426, 5197, 116, 43, "Output"], Cell[254887, 6544, 201, 7, 46, "Output"], Cell[255091, 6553, 8104, 167, 171, "Output"], Cell[263198, 6722, 211, 7, 46, "Output"], Cell[263412, 6731, 4722, 101, 139, "Output"], Cell[268137, 6834, 199, 7, 46, "Output"], Cell[268339, 6843, 261, 7, 27, "Output"], Cell[268603, 6852, 241, 7, 46, "Output"], Cell[268847, 6861, 13564, 299, 151, "Output"], Cell[282414, 7162, 243, 7, 46, "Output"], Cell[282660, 7171, 2187, 49, 155, "Output"], Cell[284850, 7222, 200, 7, 46, "Output"], Cell[285053, 7231, 261, 7, 27, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[285363, 7244, 100, 3, 38, "Subsection"], Cell[CellGroupData[{ Cell[285488, 7251, 79, 2, 43, "Input"], Cell[285570, 7255, 11180, 152, 7035, "Output"] }, Open ]] }, Open ]] }, Closed]] }, Open ]] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************)