3、 sol(N(i))=A(i,nA); end val=-A(mA,nA); else fori=1:nA-1 ifA(mA,i)>0&A(1:mA-1,i)<=0%问题有无界解 disp('haveinfinitesolution!'); flag=0; break; end end ifflag%还不是最优表,进行转轴运算 te
4、mp=0; fori=1:nA-1 ifA(mA,i)>temp temp=A(mA,i); inb=i;%进基变量的下标 end end sita=zeros(1,mA-1); fori=1:mA-1 ifA(i,inb)>0 sita(i)=A(i,nA)/A(i,inb)
5、; end end temp=inf; fori=1:mA-1 ifsita(i)>0&sita(i)
6、 N(i)=inb; end end %以下进行转轴运算 A(outb,:)=A(outb,:)/A(outb,inb); fori=1:mA ifi~=outb A(i,:)=A(i,:)-A(outb,:)*A(i,inb); End End End Endend