There used to be a perl script to generate map-calc code which might do what you are after.<br><br>Have a look at <a href="http://grass.gdf-hannover.de/wiki/GRASS_AddOns">http://grass.gdf-hannover.de/wiki/GRASS_AddOns</a>:
<br><br><ul><li> <a href="http://les-ejk.cz/files/programs/local_max.pl" class="external text" title="http://les-ejk.cz/files/programs/local_max.pl" rel="nofollow">Local maxima</a> is a Perl script for <code>r.mapcalc</code>
. It detects local maxima of the image.<br><b>Author:</b> Jachym Cepicky
</li></ul>
<pre>    <b>Usage:</b><br>    local_maxima.pl -i input -o output -s matrix_size|r.mapcalc<br></pre><br>The link is stale, but the author is still alive, so he might have the code.<br><br>HTH<br><br>Ludwig<br><br>