Abelian sandpile model: Difference between revisions

Line 998:
=={{header|J}}==
 
<lang J>grid=: 4 : 'x (<<.-:2$y)} (2$y)$0' NB. y by y grid with x grains in middle
ab=: + [: (_4&* +- [: +/@(-"2 ((,-)=/~i.2]\i:1)|.!.0 ]) 3&< NB. abelian sand pile for grid graph
require 'viewmat' NB. viewmat utility
viewmat ab ^: _ (1024 grid 25) NB. visual </lang>
 
=={{header|Java}}==
Anonymous user