samer@44: % adct - arrow for idct samer@44: % samer@44: % aidct :: M:natural, N:natural -> arrow({[[M]]}, {[[N]]}, empty). samer@44: function o=aidct(M,N) samer@44: o=arr(@(x)idct(x,N)); samer@44: samer@44: % W=col(idct(eye(N)),M); samer@44: end samer@44: