m=480; n=480;
fin=fopen('arrayR.raw','r');
X=fread(fin,m*n,'uint8=>uint8'); fclose(fin);
Y=reshape(X,m,n);
Y=Y';
figure;
subplot(1,2,1);
Y = medfilt2(Y, [5 5]);
imshow(Y);
title('arrayR.raw');
subplot(1,2,2);
histogram(Y);

m=512; n=512;
fin=fopen('Whorl.raw','r');
X=fread(fin,m*n,'uint8=>uint8'); fclose(fin);
Y=reshape(X,m,n);
Y=Y';
figure;
subplot(1,2,1);
Y = medfilt2(Y, [5 5]);
imshow(Y);
title('Whorl.raw');
subplot(1,2,2);
histogram(Y);

m=480; n=640;
fin=fopen('gelm1.raw','r');
X=fread(fin,m*n,'uint8=>uint8'); fclose(fin);
Y=reshape(X,m,n);
Y=Y';
figure;
subplot(1,2,1);
Y = medfilt2(Y, [5 5]);
imshow(Y);
title('gelm1.raw');
subplot(1,2,2);
histogram(Y);