我编写的以下程序,出现这个错误:

Subscript indices must either be real positive integers or logicals.
请问应该如何修改呢?

请发EMAIL给我: lyia@yeah.net

Clear;

clc;

A=[原始矩阵

p=size(A);

n=p(1);m=p(2);

forj=1:m

B(j)=sqrt(sum(A(:,j).^2));

End

forj=1:m

Z(:,j)=A(:,j)/B(j);

End

Z

forj=1:m

Z+(j)=max(Z(:,j));

Z-(j)=min(Z(:,j));

End

Z+

Z-

fori=1:n

D+(i)=sqrt(sum((Z(i,:)-Z1).^2));

D-(i)=sqrt(sum((Z(i,:)-Z2).^2));

End

D+=D+,;

D-=D-,;

D3=D-/(D++D-);