马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?我要加入
x
我是初学者,还请高手帮忙看一下这个程序,谢谢!
n=size(a);%得到组织矩阵a的维数
br=n(1,1);%穿综图行
bc=n(1,2);%穿综图列
b=zeros(br,bc);%穿综图b初始0矩阵
b(1,1)=1;%给第一根经纱赋给第一综页
for i=2:bc
t=0;
for j=1:(i-1)
if a(:,i)==a(:,j);%若组织图矩阵a两列向量相等,则对应的穿综矩阵列向量也相等
b(:,i)=b(:,j);
t=t+1;%t自动计数
end
if t==0;%若组织图矩阵a当前列与前面的列向量都不等,则相应元素为1
b(i,i)=1;
end
end
end
t=0;
for i=1:br;%找出所有非零行向量,得到穿综矩
阵d
if not(isequal(b(i,:),zeros(1,bc)))
t=t+1;
c(t,:)=b(i,:);
end
end
d=flipud(c); |