【老生谈算法】matlab单纯形法程序源码.doc
版权申诉
5星 · 超过95%的资源 136 浏览量
2023-05-11
21:24:29
上传
评论
收藏 26KB DOC 举报 
%求解标准型线性规划:max c*x;s.t. A*x=b;x>=0
%本函数中的 A 是单纯初始表，包括:最后一行是初始的检验数，最后一列是资源向量 b
%N 是初始的基变量的下标 1
%输出变量 sol 是最优解
%输出变量 val 是最优值，kk 是迭代次数
function [sol,val,kk]=ssimplex(A,N)
[mA,nA]=size(A);
kk=0; %迭代次数。
flag=1;
while flag
kk=kk+1;
if A(mA,:)<=0 %已找到最优解
flag=0;
sol=zeros(1,nA-1);%给每个变量赋初值 0
for i=1:mA-1
sol(N(i))=A(i,nA);%给基变量赋新值(替换 0)
end %给出最优解
val=-A(mA,nA);
else
for i=1:nA-1
if A(mA,i)>0&A(1:mA-1,i)<=0 %问题有无界解
disp('have infinite solution!');
flag=0;
break;
end
end
if flag %还不是最优表，进行转轴运算
temp=0;
for i=1:nA-1
if A(mA,i)>temp
temp=A(mA,i);
inb=i; % 进基变量的下标
end
end %选择最大检验数纵向对应的变量为进基变量
sita=zeros(1,mA-1);
for i=1:mA-1
if A(i,inb)>0
sita(i)=A(i,nA)/A(i,inb);
end
end
temp=inf;
for i=1:mA-1
if sita(i)>0&sita(i)<temp
temp=sita(i);
资源评论
qq_235564032023-09-08资源使用价值高，内容详实，给了我很多新想法，感谢大佬分享~
