Hallo Jens
* "Jens-Peer Kuska" <kuska@XXXXXXX.de> writes:
> wie wärs mit:
Wesentlich besser:
,----
| In[44]:=
| Timing[ShearX[img[[1,1]],0.2,200,200];]
|
| Out[44]=
| {21.05 Second,Null}
|
| In[45]:=
| Timing[ShearXNew[img[[1,1]],0.2,200,200];]
|
| Out[45]=
| {0.22 Second,Null}
`----
> ShearX = Compile[{{img, _Integer, 2}, {shear, _Real},
>
> {width, _Integer}, {height, _Integer}},
> Module[{tmp, skew, skewi, skewf, oleft, pixel, left},
^^^^^^
"Module[] hat also gefehlt.
[...]
> oder man läßt den ganzen Unsinn und nimmt gleich ein
> ListInterpolation[]
Damit habe ich's schon implementiert. Es soll ein Vergleich
verschiedener Algorithmen werden.
Vielen Dank & Gruss,
Thomas