运筹学单纯形法matlab程序.pdf

《运筹学单纯形法matlab程序.pdf》由会员分享，可在线阅读，更多相关《运筹学单纯形法matlab程序.pdf（2页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

function xx,fm=myprgmh(m,n,A,b,c)B0=A(:,1:m);cb=c(:,1:m);xx=1:n;sgm=c-cb*B0-1*A;h=-1;sta=ones(m,1);for i=m+1:n if sgm(i)0 h=1;endendwhile h0 msg,mk=max(sgm);for i=1:m sta(i)=b(i)/A(i,mk);end mst,mr=min(sta);zy=A(mr,mk);for i=1:m if i=mr for j=1:n A(i,j)=A(i,j)/zy;end b(i)=b(i)/zy;end1 end for i=1:m if i=mr for j=1:n A(i,j)=A(i,j)-A(i,mk)*A(mr,j);end b(i)=b(i)-A(i,mk)*b(mr);end end B1=A(:,1:m);cb(mr)=c(mk);xx(mr)=mk;sgm=c-cb*B1*A;for i=m+1:n if sgm(i)0 h=1;end endendfm=c*xx;2