%delete(figure(gcf))
%*************************************************************************
%*************************************************************************
%*************************************************************************
% elaborazioni necessarie per il file dista7
%*************************************************************************
[m,n]=size(D);
nr=m;
nc=n;
D1=D'*D;
cnr1=zeros(nr,1);
cnc1=zeros(nc,1);
cnrt=zeros(1,nr);
%cnrt!
cnct=zeros(1,nc);
%cnct!
Znr=zeros(nr);
Znc=zeros(nc);
Inc=eye(nc);
Inr=eye(nr);
Zcr=zeros(nr,nc);
Zrc=zeros(nc,nr);




