p_0

p_0=

↓

↑

time (t)

a=

r=

r = 0.2
a = Ray((0, 0), (0, 1))
A = Point(a)
h = 800
f(x) = ((1 + r) * x) - h
nsteps = 105
x0 = 3995
xs = IterationList(f, x0, nsteps)
points = Sequence((i, Element[xs, i + 1]), i, 0, nsteps)
E: h / r
b: y = E
inputBox1 = Textfield(x0)
text1: "$ E=" + (LaTeX[E]) + " $"
height = 10000
inputBox2 = Textfield(h)
inputBox3 = Textfield(r)
text5 = Simplify("p_{t+1}-p_t=" + r + "p_t-" + h)
text6: "" + (LaTeX[text5]) + ""
text3 = RotateText("Population size (p)", 1.5708)