Програма візуальної оцінки зображення
clear;
% Здесь производится считывание изображения в формате img,
для стандартных форматов используют функцию imread.
fid=imread('F:\test\test(4).tif');
M=input('Высота изображения M=');
N=input('Ширина изображения N=');
I = M*N;
A1 = reshape(fid, 1, I);
A=double(A1);
K=255;
A=A(1:length(A));
LQ=1-(abs(sum(A)/(M*N)-K/2))/(K/2); % оценка уровня адаптации зрительной системы
A=A+1; Amin=min(min(A)); Amax=max(max(A));
H=hist(A,Amax-Amin+1);
S=0;
for i=Amin:Amax;
if H(i-Amin+1)>.001*M*N;
S=S+1;
else S=S;
end;
end;
KQ=S/K; % оценка степени использования возможных градаций яркостей
A=A-1;
m=15;n=15;n1=fix(n/2);m1=fix(m/2);
L=reshape(A,N,M); % преобразование матрицы изображения с целью устранения краевого эффекта
a=L(1,1); b=L(1,M);c=L(N,1);d=L(N,M);
for i=1:n1;
for j=1:m1;
L1(i,j)=a;L3(i,j)=b;L6(i,j)=c;L8(i,j)=d;
end;
end;
L2=L(1,1:M);
L02=L2;
for i=1:n1-1;
L2=[L2;L02];
end;
L7=L(N,1:M);
L07=L7;
for i=1:n1-1;
L7=[L7;L07];
end;
L4=L(1:N,1);
L4=L4';
L04=L4;
for i=1:m1-1;
L4=[L4;L04];
end;
L4=L4';
L5=L(1:N,M);
L5=L5';
L05=L5;