clear all
[I,map]=imread('d:\stf\matpro\pro1\c1.bmp');
I=double(I)/255;
[m,n]=size(I);
mask=[0 0 0 0 1 1 0 0
      0 0 0 1 1 1 0 0
      0 0 1 1 1 0 0 0
      0 1 1 1 0 0 0 0
      1 1 1 0 0 0 0 0
      1 1 0 0 0 0 0 0
      0 0 0 0 0 0 0 0
      0 0 0 0 0 0 0 0];
Fk=blkproc(I,[8 8],'dct2(x)');
Cz=blkproc(Fk,[8 8],'chaoswm(x)');
w=choasq(128);