修正单纯形法-MATLAB程序(共2页).docx

精选优质文档-倾情为你奉上clearA=1 2 1 1 0 0;1 2 3 0 1 0;2 1 5 0 0 1;m,n=size(A);b=10;15;20;r=-1 -2 -3 1;c=-1 -2 -3 1;bs=1:3;nbs=4:4;a1=A(:,4);T=A(:,bs);a2=inv(T)*a1;b=inv(T)*b;A=eye(m),a2;B=eye(m);xb=Bb;cb=c(bs);cn=c(nbs);con=1;M=zeros(1);while con M=M+1; t=cb/B; r=c-t*A; if all(r=0) x(bs)=xb; x(nbs)=0; fx=cb*xb; disp(当前解是最优解，minz=,num2str(fx) disp(对应的最优解为,x=) disp