comp.m

this is the code for image compression using neural network.

I = imread('football','jpeg');
size(I)
image(I)
in1=I(1:64,1:64);
figure(1)
r=4;
imshow(in1)
in2=blkM2vc(in1,[r r]);
in3=in2/255;
in4=in3;
net_c=newff(minmax(in3),[4 16],{'tansig','purelin'},'trainlm');
net.trainparam.show=5;
net.trainparam.epochs=300;
net.trainparam.goal=1e-5;
[net_s,tr]=train(net_c,in3,in4);
a=sim(net_s,in3);
fr=vc2blkM(a,r,64);
asc=fr*255;
az=uint8(asc)
figure(2)
imshow(az)
disp('training is achieved');
disp('consider a new image to be compressed')
II = imread('trees.tif');
a1=II(1:64,1:64);
figure(5)
imshow(a1)
a2=blkM2vc(a1,[r r]);
a3=a2/255;
out=sim(net_s,a3);
a4=vc2blkM(out,r,64);
a5=a4*255;
a6=uint8(a5);
figure(6)
imshow(a6);