2,488 reputation
213
bio website mathani.tumblr.com
location
age
visits member for 1 year
seen Apr 14 at 16:16

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.


May
15
revised How to select elements from a 4D Array?
added 37 characters in body
May
15
comment How to select elements from a 4D Array?
You can replace levelspec Infinity with {4} for the nature of your input.
May
15
answered How to select elements from a 4D Array?
May
15
comment Apply a Function Pairwise
@Mr.Wizard Experiment is the king. On a side note, I recieved a silver badge for this answer, the lamest sort of.
May
14
answered Saddle Point in Matrix
May
14
comment Sequentially numbering a nested list
I'm searching for a case where MapAll is the answer function. Have you found it yet? With this case it's excessive as you can Map with levelspec {-1}. (I like the example though, it teaches.)
May
13
comment Expressions like <<1>>
Try RandomInteger[{1, 6}, 100] // Short and see.
May
13
comment Finding areas of beings in microscopic image
This Wolfram blog shows an example of separating overlapping cells.
May
13
comment Apply a Function Pairwise
@rcollyer Great, I didn't know for these additional functions. Help says PartitionMap[f, list, n] is equivalent to Map[f, Partition[list, n]]. Does this, being equivalent, in general means that two calls always return same result yet they don't need to be implemented in the same way?
May
13
awarded  Enlightened
May
13
awarded  Nice Answer
May
11
revised Apply a Function Pairwise
deleted 8 characters in body
May
11
revised Apply a Function Pairwise
added 2 characters in body
May
11
answered Apply a Function Pairwise
May
11
comment Apply a Function Pairwise
MovingAverage[N@badSource, 2]
May
11
comment Apply a Function Pairwise
Mean /@ Partition[N@badSource, 2, 1]
May
11
comment How to draw some 2D curves in a 3D plot?
Plot3D draws a surface, you need ParametricPlot3D with one parameter (for a curve) or points for Line and Graphics3D.
May
10
comment Changing FrameTicks of ListPlot
Replace ; with , after assigning q and drop first list of PlotRange.
May
9
answered How to find major color in a picture?
May
9
comment How to find major color in a picture?
Doesn't better my clustering answer, yet it seem a very promising precursor for some other approach.