DMUG-Archiv 2002

Frühere   Chronologischer Index   Spätere
Vorherige   Thematischer Index   Nächste

Re: Do loop beschleunigen

> 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


Antworten:
Verweise:
Frühere   Chronologischer Index   Spätere
Vorherige   Thematischer Index   Nächste

DMUG DMUG-Archiv, http://www.mathematica.ch/archiv.html