数学建模社区-数学中国

标题: 200904网友求助《程序排错》 [打印本页]

---

作者: 无须子    时间: 2009-4-29 20:58
标题: 200904网友求助《程序排错》
flag=0;
while flag==0;
for k=1:568
R=inf;
while sum(R)~=1
R=round(rand(1,40));
end
N(:,k)=R';
end
flag=1;
for i=1:40
    for j=1:568
       s1(i)=s1(i)+N(i,j);
   end
    end
    for i=1:40
        if  s1(i)<4|s1(i)>30
            flag=0;
        end
    end
end
%......
%......
while  flag==3
s=zeros(1,32);j=1;
flag=0;
while flag==0;
for k=1:568
R=1;
while sum(R)~=4
R=round(rand(1,32));
end
M(:,k)=R';
end
flag=1;
for i=1:32
    for j=1:568
       s(i)=s(i)+M(i,j);
   end
    end
    for i=1:32
        if  s(i)<66|s(i)>76
            flag=0;
        end
    end
end
%......
%......
R=1;
while sum(R)~=32
R=round(rand(1,40));
end
f1=find(R);
%.......
for j=1:568
    for i=1:40
        if N(i,j)==1
            p(j)=i;
        end
    end
end
for   j=1:568
    for i=1:32
        if M(i,j)==1  
            if f1(i)==p(j)
                flag=3;
            end
        end
    end
end            %........
end
disp(['评委的编号',blanks(6),'评委来自的学校',blanks(6),'评委查看的试卷'])
for i=1:32;
    for j=1:568
    if  M(i,j)==1
disp([num2str(i),blanks(10),num2str(f1(i)),blanks(10),num2str(j)])
end
end
end
    本MATLAB程序存在不合理性，其原理没什么错误，但存在搜索不可实现性（时间），即可行性问题。求高手指教怎么加速搜索，优化搜索。

---

作者: M_Y07    时间: 2009-5-28 20:54
强。。。。。。。。。。。。。。。

---

作者: xiaoguo    时间: 2009-9-6 17:44
？？？？？？？？？？？？？？？？？？？？？？？？？

---

欢迎光临 数学建模社区-数学中国 (http://www.madio.net/)

Powered by Discuz! X2.5