for idx=1:max(data.data(:,13));

sample_no(idx)=sum((pcCoord(:,1)==idx));

if idx==1

parseD=pcCoord(1:sample_no(idx),2:3);

else

lowerB=sum(sample_no(1:idx−1))+1;

upperB=lowerB+sample_no(idx)−1[;

parseD=pcCoord(lowerB:upperB,2:3);

end

clsCent(idx,1)=sum(parseD(:,1))/sample_no(idx);

clsCent(idx,2)=sum(parseD(:,2))/sample_no(idx);

if size(parseD,1) == 1

dEllx(idx)=0;

dElly(idx)=0;

thetaC(idx)=0;

else

pdistX=fitdist(parseD(:,1), ‘Normal’);

pdistY=fitdist(parseD(:,2), ‘Normal’);

clsIntX=(paramci(pdistX, ‘Alpha’,intV));

clsIntY=(paramci(pdistY,‘Alpha’,intV));

dEllx(idx)=abs(clsIntX(1)-clsIntX(2));

dElly(idx)=abs(clsIntY(1)-clsIntY(2));

[maxY,Imax]=max(parseD(:,2));

[minY,Imin]=min(parseD(:,2));

minX=min(parseD(:,1));

maxX=max(parseD(:,1));

opp=(maxY-minY);

adj=(maxX-minX);

if parseD(Imax,1)<parseD(Imin,1)

thetaC(idx)=(atan(opp/adj));

else

thetaC(idx)=(atan(opp/adj))*−1;

end

end

end