honeycomb decay

Mathematica can save time delays between frames together with animated GIF (look for "DisplayDurations" under options of GIF format). This in turn allowed me to produce exactly 28 frames for the decay of this honeycomb with 28 cells. Modelling radioactive decay, where for example time intervals between clicks on a Geiger counter are approximately exponentially distributed, I can simulate the delays (rounded and shifted to run from t1/100-th seconds with average value (t1+t0)/100-th seconds) as:

delays[{t1_, t0_}, n_] :=
 t1 + Round[
   RandomVariate[ExponentialDistribution[1/t0], n]]

I set t1=2 here. Most browser can't present a delay of 2/100-th seconds properly. Chrome can.

Top Answers