Date: 11 November 2012

v_0

V_0=

equilibria

V_0

a = 0.3 (slider from 0.1 to 0.9, step 0.05)
tfinal = 40
t0 = 0
n = 1000
dt: (tfinal - t0) / n
f(v) = (((-v) * (v - a)) * (v - 1))
x0 = 0.2
A = Point(xAxis)
xmin = -0.15
xmax = 1.2
t = 0 (slider from t0 to tfinal, step dt)
fiter(x) = x + (dt * f(x))
fvals = IterationList(fiter, x0, n)
tind: ceil((t - t0) / dt) + 1
xt = Element(fvals, tind)
B: (xt, 0)
b = Segment(A, B)
ftcurvesub = PolyLine(Sequence[(t0 + (i * dt), Element[fvals, i + 1]), i, 0, tind])
C: (t0 + ((tind - 1) * dt), Element[fvals, tind])
inputBox4 = Textfield(x0)
tmax: tfinal + ((tfinal - t0) * 0.1)
centery = 0
height = 3
showe = false
ymin = -0.08
ymax = 0.18
c: x = t0
D = Point(c)
maxf: y(Max[abs(f(x)), xmin, xmax])
text1: "$\frac{dv}{dt} = f(v)= -v (v-" + (LaTeX[a]) + ")(v-1)$"
text2: "$v(" + (LaTeX[t]) + ")=" + (LaTeX[xt]) + "$"
tmin: t0 - ((tfinal - t0) * 0.15)
zeros: {0, a, 1}
zerolines = Sequence(OrthogonalLine[(0, Element[zeros, i]), yAxis], i, 1, Length[zeros])
zerolist = Zip((a, 0), a, zeros)