Abelian sandpile model: Difference between revisions
Content added Content deleted
| Line 998: | Line 998: | ||
=={{header|J}}== |
=={{header|J}}== |
||
<lang J>grid=: 4 : 'x (<<.-:2$y)} (2$y)$0' NB. y by y grid with x grains in middle |
<lang J>grid=: 4 : 'x (<<.-:2$y)} (2$y)$0' NB. y by y grid with x grains in middle |
||
ab=: + [: (_4&* + [: +/ ((,-)2]\i:1)|.!.0 ]) 3&< NB. abelian sand pile for grid graph |
ab=: + [: (_4&* + [: +/ ((,-)2]\i:1)|.!.0 ]) 3&< NB. abelian sand pile for grid graph |
||
require 'viewmat' NB. viewmat utility |
require 'viewmat' NB. viewmat utility |
||