s172.m

该文件主要包括了matlab的一些主要应用例程!对学习matlab很有帮助

function [u,I]=s172(M,N,L)
% M为资源数量
% N为生产项目数
% L为(M+1)N阶利润矩阵
for i=1:M+1
   V(i,N)=L(i,N);
   W(i,N)=i-1;
end
for k=N-1:-1:2
  for i=1:M+1
    V(i,k)=0;
    W(i,k)=i-1;
    for j=1:i
       if V(i,k)<L(j,k)+V(i+1-j,k+1)
          V(i,k)=L(j,k)+V(i+1-j,k+1);
          W(i,k)=j-1;
       end
    end
 end
 end
 V(M+1,1)=0;
 W(M+1,1)=M;
 for j=1:M+1
    if V(M+1,1)<L(j,1)+V(M+2-j,2)
       V(M+1,1)=L(j,1)+V(M+2-j,2);
       W(M+1,1)=j-1;
    end
 end
 I=V(M+1,1);
 u(1)=W(M+1,1);
 s=M-u(1);
 for i=2:N
    u(i)=W(s+1,i);
    s=s-u(i);
 end