b_0

t = 0 (slider from 0 to maxt, step 1)
maxt = 10
b_0 = 1 (slider from 0 to 5, step 1)
bt: b_0 * 2^(t)
f(x) = 2 * x
bs = IterationList(f, b_0, t)
timepoints = Sequence((i, Element[bs, i + 1]), i, 0, t)
timesegs = PolyLine(timepoints)
bactradius(b) = sqrt(b) / 10
bactpoints = Sequence(RandomUniform[0, bactradius(bt)] * ℯ^(ί * RandomUniform[0, 6.28319]), j, 1, bt)
xstate = -4
stateline = Segment((xstate, 0), (xstate, 2000))
B0point: (xstate, b_0)
B_t: (xstate, bt)
maxbaxis = 3.5
maxy = 1500
A = (0.22900763358778697, 700)
B = (6.9, 1350)
poly1, a, b, b_1, c = Polygon(A, (x(A), y(B)), B, (x(B), y(A)))
BTtruncate: (xstate, Min[bt, maxy * 0.85])
C = (-1.0659630606860153, 53.333333333333336)
D = (-1.0899182561307903, -173.33333333333334)
E = (-6, -173.33333333333334)
F = (-6, 60)
poly2, c_1, d, e, f_1 = Polygon(C, D, E, F)
text1: "b_t=" + bt + ""