Mercurial > hg > ishara
annotate arrows/dsp/adct.m @ 6:0ce3c2070089
Removed duplicate code and fixed doc in timed_action.
| author | samer |
|---|---|
| date | Mon, 14 Jan 2013 14:33:37 +0000 |
| parents | 672052bd81f8 |
| children | ae596261e75f |
| rev | line source |
|---|---|
| samer@0 | 1 % adct - arrow for DCT |
| samer@0 | 2 % |
| samer@0 | 3 % adct :: M:natural -> arrow({[[N]]}, {[[M]]}, empty). |
| samer@0 | 4 function o=adct(M) |
| samer@0 | 5 o=arrf(@mkdct,1,1); |
| samer@0 | 6 |
| samer@0 | 7 function f=mkdct(sizes_in) |
| samer@0 | 8 % take DCT size from size(1) of first input |
| samer@0 | 9 W=row(dct(eye(sizes_in{1}(1))),M); |
| samer@0 | 10 f=@(x)W*x; |
| samer@0 | 11 end |
| samer@0 | 12 end |
| samer@0 | 13 |