【老生谈算法】单纯形法Matlab程序.docx
71 浏览量
2022-11-04
20:48:03
上传
评论
收藏 11KB DOCX 举报
function [x, result_case] = mysimplexMax(c, A, b, x0)
% x0 是初始值，case = 0 表示有最优解，case = 1 表示无边界
ind_B = find(x0 ~=0);
ind_N = find(x0 == 0);
while (1)
B = A(:, ind_B);
N = A(:, ind_N);
x_B = x0(ind_B);
x_N = x0(ind_N);
c_B = c(ind_B);
c_N = c(ind_N);
s = c_N - N' * inv(B)' * c_B;
if isempty(find(sign(s) > 0))
% found optimal solution
x = x0;
result_case = 0;
return
end
% 保证 s 有正数。
% 选最大的正检验数作为进基变量 q
[max_q i_q] = max(s);
q = ind_N(i_q);
d = B \ A(:, q);
if isempty(find(sign(d) > 0))
% unbound case
x = [];
result_case = 1;
break;
end
% 保证 d 有正数
% 选择最小非负 ratio 作为离基变量 p
ratio_array = x_B./d;
ratio = min(ratio_array((ratio_array > 0)));
% 更新 x0 的值
x0(ind_B) = x_B - ratio * d;
e_iq = zeros(length(x_N), 1);
e_iq(i_q) = 1;
x0(ind_N) = x_N + ratio * e_iq;
% 更新基本量，非基变量集合
ind_B = find(x0 ~=0);
ind_N = find(x0 == 0);
资源评论
阿里matlab建模师
- 粉丝: 3280
- 资源: 2780
