newModel[id→ "initialAssignExample", name→ "Initial Assignment in the Model Builder", level→ 2, version→ 2] ;

addCompartment[cell, constant→ True] ;

addParameter["x", value→ 5, constant→ False] ;

addParameter["y", value→ 20, constant→ False] ;

addInitialAssignment[symbol→ "x", math→ 5 * y + 17] ;

addRule[type→ "rateRule", variable→ "x", math→ -x] ;

In[181]:=

m = loadSimulator[context→ None] ;

In[186]:=

n = SBMLNDSolve[m, 2]

Warning: The variable y[t] does not have a differential equation. NDSolve will assume that (d/dt)(y[t])=0.

Out[186]=

{{x[t] →InterpolatingFunction[{{0., 2.}}, <>][t], y[t] →InterpolatingFunction[{{0., 2.}}, <>][t]}, cell[t] →InterpolatingFunction[{{0, 2}}, <>][t]}

In[187]:=

SBMLPlot[n, {x, y}]

[Graphics:HTMLFiles/index_12.gif]

Out[187]=

-Graphics -

In[188]:=

getInitialAssignments[]

Out[188]=

In[189]:=

getInitialAssignment[1]//XMLOut

Out[189]=

In[190]:=

createModel[]

Out[190]=

Created by Mathematica  (September 25, 2006) Valid XHTML 1.1!