function DistTable=CalDisTable(ImName,Dimention)
%dbstop 3
%if exist([ImName,'Dimention',num2str(Dimention)])==0
% mkdir([ImName,'Dimention',num2str(Dimention)]);
%end
WeiTable=WeiCalulate(Dimention);
img0=double(imread([ImName,'.png']));
[Rows, Cols]=size(img0);
DistTable=ones(Rows,Cols);
length=double((Dimention-1)/2);
for m=(1+length):(Rows-length)
for n=(1+length):(Cols-length)
MetriBlk=img0((m-length):(m+length),(n-length):(n+length));
InterBlk=MetriBlk.*WeiTable;
DistTable(m,n)=sum(sum(InterBlk));
end
end
for m=1:Rows
for n=1:Cols
if img0(m,n)==0
DistTable(m,n)=1-DistTable(m,n);
end
end
end
%save([[ImName,'Dimention',num2str(Dimention)],'\',[ImName,'Dimen',num2str(Dimention),'DisTable']],'DistTable')
