我编写的程序是:A1=[1 2 3/2 3/2 2;1/2 1 3/4 3/4 1;2/3 4/3 1 1 4/3;2/3 4/3 1 1 4/3;1/2 1 3/4 3/4 1]A2=[1 2 3/2 3/2 9/5;1/2 1 3/4 3/4 9/10;2/3 4/3 1 1 6/5;2/3 4/3 1 1 6/5;5/9 10/9 5/6 5/6 1]A3=[1 2 6/5 3/2 9/5;1/2 1 3/5 3/4 9/10;5/6 5/3 1 5/4 3/2;2/3 4/3 4/5 1 6/5;5/9 10/9 2/3 5/6 1]A4=[1 2 3/2 3/2 5/3;1/2 1 3/4 3/4 5/6;2/3 4/3 1 1 10/9;2/3 4/3 1 1 10/9;3/5 6/5 9/10 9/10 1]A5=[1 2 3/2 3/2 17/10;1/2 1 3/4 3/4 7/20;2/3 4/3 1 1 7/15;2/3 4/3 1 1 7/15;10/17 20/7 15/7 15/7 1]A6=[1 2 3/2 3/2 2;1/2 1 3/4 3/4 1;2/3 4/3 1 1 4/3;2/3 4/3 1 1 4/3;1/2 1 3/4 3/4 1]A7=[1 2 3/2 3/2 3/2;1/2 1 3/4 3/4 3/4;2/3 4/3 1 1 1;2/3 4/3 1 1 1;2/3 4/3 1 1 1]B=[A1;A2;A3;A4;A5;A6;A7]; A=zeros(5,5);for i=1:5:35A=A+B(i:i+4,:); %求判断矩阵之和endA=A/7; %求平均判断矩阵d1=norm(A1-A)*norm(A1-A); %求矩阵的2-范数d2=norm(A2-A)*norm(A2-A);d3=norm(A3-A)*norm(A3-A);d4=norm(A4-A)*norm(A4-A);d5=norm(A5-A)*norm(A5-A);d6=norm(A6-A)*norm(A6-A);d7=norm(A7-A)*norm(A7-A);d=d1+ d2+ d3+ d4+ d5+ d6+ d7; d=d/7; %求平均判断矩阵的离差dif d<=0.5 %求平均判断矩阵的特征值及相应的特征向量[n,n]=size(A); x=ones(n,100); y=ones(n,100); m=zeros(1,100); m(1)=max(x(:,1)); y(:,1)=x(:,1); x(:,2)=A*y(:,1); m(2)=max(x(:,2)); y(:,2)=x(:,2)/m(2); p=0.0001;j=2;k=abs(m(2)-m(1)); while k>p j=j+1; x(:,j)=A*y(:,j-1); m(j)=max(x(:,j)); y(:,j)=x(:,j)/m(j); k=abs(m(j)-m(j-1)); end a=sum(y(:,j)); w=y(:,j)/a; t=m(j); disp(' w =');disp(w);disp('t=');disp(t); CI=(t-n)/(n-1); %一致性检验 RI=[0 0 0.52 0.89 1.12 1.26 1.36 1.41 1.46 1.49 1.52 1.54 1.56 1.58 1.59]; CR=CI/RI(n); if CR<0.10 disp('此矩阵的一致性可以接受!'); disp('CI=');disp(CI); disp('CR=');disp(CR); endelsedisp('此矩阵不满足条件!');disp('A=');disp(A);disp('d=');disp(d);end运行的结果是:??? A1=[1 2 3/2 3/2 2;1/2 1 3/4 3/4 1;2/3 4/3 1 1 4/3;2/3 4/3 1 1 4/3;1/2 1 3/4 3/4 1] |Error: Missing variable or function. 我找不出程序的错误在哪??? 急!急!急!!请各位兄弟姐妹指点一下!!谢谢了啊!!
A1=[1 2 3/2 3/2 2;1/2 1 3/4 3/4 1;2/3 4/3 1 1 4/3;2/3 4/3 1 1 4/3;1/2 1 3/4 3/4 1] 符号有问题;应该是; 英文状态下输入的分号。