how can i change this code

Question

praveen thakur 2020-2-19

0
链接

此问题的直接链接

https://ww2.mathworks.cn/matlabcentral/answers/506305-how-can-i-change-this-code

关闭： MATLAB Answer Bot 2021-8-20

clear all
close all
clc
clear workspace;
fun=[1,-1,-1];
coeff=[0,2.5,1; 0,1.5,2; 0,-1,5];
const=[70;100;0];
eqs=[1;1;1];
sign=[1,1,1];
slack=eye(3);
table=[zeros(1,1),fun,zeros(1,4);zeros(3,1),coeff,slack,const;zeros(1,8)];
disp('table=');
disp(table);
for i=2:4
    tmp=-table(1,i);
    for j=2:4
        tmp = tmp + (table(j,i)*table(j,1));
    end
    table(5,i)=tmp;
end
minim=min(table(5,:));
while minim<0
    index = find(table(5,2:7)==min(table(5,2:7)));
    index = index+1;
    mini = inf;
    in = 0;
    
    for i=2:4
        tmp = table(i, 8)/table(i, index);
        if tmp<mini && tmp>0
            mini = tmp;
            in = i;
        end
    end
    pivot = table(in,index);
    
    for j=2:8
        table(in, j) = table(in, j)/pivot;
    end
    for i=2:5
        if i~=in
            tmp=table(i, index);
            
            for j=2:8
                table(i,j) = table(i,j)-((tmp*table(in,j))/pivot);
            end
        end
    end
    table(in, 1) = table(1,index);
    minim = min(table(5,:));
end
disp(table);
disp('Maximum value of z=');
disp(table(5,8));