2,790 reputation
316
bio website mathani.tumblr.com
location
age
visits member for 2 years
seen Feb 23 at 9:43

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.


Mar
24
awarded  Yearling
Feb
3
answered How to assign the values for the Table list?
Jan
30
answered Input a square matrix and return a list of the matrix entries read by antidiagonals
Jan
29
comment How to create a Disk with smoothly changing coloring?
@gaazkam You are right. The alpha channel could be discarded though. How does that work for you?
Jan
29
revised How to create a Disk with smoothly changing coloring?
added 397 characters in body
Jan
28
answered Using the string Match with options!
Jan
27
comment accessing elements of nested list
toy /. {x_, {y_, z_}} :> {x, z}
Jan
27
answered How to create a Disk with smoothly changing coloring?
Jan
26
comment Long list of similar rules
@MathLind But keep the pattern name if you want to use the symbols as arguments, ie. x : (a | c | e | f) :> 12 x.
Jan
26
answered Long list of similar rules
Nov
6
answered Efficient Indexed Sort
Oct
18
awarded  Curious
Oct
17
accepted RegionMember with some tolerance?
Oct
17
comment RegionMember with some tolerance?
Yes, this, temporarily overriding the equality criteria, if I understand it correctly.
Oct
17
answered RegionMember with some tolerance?
Oct
17
asked RegionMember with some tolerance?
Oct
16
comment Annoying FrontEnd bugs in Mathematica 10
This happens to me too (Win 8.1 x64, Mma 10.0.1.0). I think I've always switched keyboards so far. I'll try now not to.
Sep
24
awarded  Autobiographer
Sep
8
comment Solve equations within range and plot
PlotRange -> {-2, 2} for range of y on plot.
Aug
12
awarded  Nice Answer