Re: Do loop beschleunigen

[Thomas Hahn <hahn@XXXXXXX.de>]

> 3.) Oder ist hier ein ganz anderer Weg einzuschlagen?
> 
> Hier meine sehr cpp-artige Schleife:
                  ^^^^^^^^^^

Könnte schon an der Schleife liegen. Probier mal:

count[_] = intensity[_] = 0

c1=500; c2=492;
Bucket[i_, j_] := Round[Sqrt[(i - c1)^2 + (j - c2)^2]] + 1

SetBucket[bucket_, int_] := (++count[bucket]; intensity[bucket] += int) 

MapIndexed[ SetBucket[#1, Bucket[#2]]&, bm ]

result = Array[{#, count[#], intensity[#]}&, 1024]


Gruß,

Thomas Hahn