DMUG-Archiv 2002

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

Re: Do loop beschleunigen

> 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) 

Sorry: muß natürlich SetBucket[int_, bucket_] heißen.

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

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