% Version : 5.0% Date : MAY / 18 / 2007% Author  : Omid Bonakdar Sakhifunction IMVECTOR = im2vec (W27x18)load gabor;W27x18 = adapthisteq(W27x18,'Numtiles',[8 3]); Features135x144 = cell(5,8);for s = 1:5    for j = 1:8        Features135x144{s,j} = ifft2(G{s,j}.*fft2(double(W27x18),32,32),27,18);    endendFeatures135x144 = abs(cell2mat(Features135x144));Features135x144 (3:3:end,:)=[];Features135x144 (2:2:end,:)=[];Features135x144 (:,3:3:end)=[];Features135x144 (:,2:2:end)=[];Features45x48 = premnmx(Features135x144);IMVECTOR = reshape (Features45x48,[2160 1]);