function a_swap(imgo,imgc)

% function takes two multispectral images and computes some of the Image Quality Measures (IQM)
% as explained in I. Avcibas, B. Sankur, K. Sayood, "Statistical Evaluation of Quality 
% Measures in Image Compression", Journal of Electronic Imaging, 2001.
% The measures are written to measures.txt file
[D1,PSNR]=mserrorrgb(imgo, imgc)
[D5]=sorteddist(imgo,imgc,10)
[S1,S2,S3,S4,S5,S6]=swpbsdm(imgo,imgc,64)
D6=Czekonowsky(imgo,imgc)
[C1,C2,C3,D3,D4,H1,H2,H3]=eskici(imgo,imgc)
[D2,H4]=hvsreal2(imgo,imgc)
[C4, mixmin]=angleratio(imgo,imgc)

fp=fopen('measures.txt','a+t');

fprintf(fp,'%f %f %f %f %f %f %f %f %f %f %f %f %f %f %f %f %f %f %f %f %f %f \n',D1,PSNR,D2,D3,D4,D5,D6,C1,C2,C3,C4,mixmin,S1,S2,S3,S4,S5,S6,H1,H2,H3,H4); 

fclose(fp);