Anteil eines Werts in einem Umkreis bestimmen

[ibp]

was ich nicht verstehe, ist warum du ...

Delphi-Quellcode:

..
        for  nx:=-radius-1 to radius+1 do 
          begin 
          for ny:=-radius-1 to radius+1 do
..

hier zum radius noch |1| dazuzählst?
d.h. du hast den durchmesser um 2 vergrößert!

folgendes reicht auch und du hast damit 2*2*(1+radius) schleifendurchläufe weniger!

Delphi-Quellcode:

..
        for  nx:=-radius to radius do 
          begin 
          for ny:=-radius to radius do
..