我正在使用linprog函数解决以下线性编程问题
%Objective Function
%X1 X2 X3 X4 X5 X6 X7 X8 X9 X10 X11 X12 X13 X14 X15 X16 X17 X18
f = [0.669 0.654 0.503 0.683 0.670 0.673 0.749 0.655 0.660 0.583 1.243 0.639 2.024 2.156 1.672 0.473 0.139 0.687];
A = []; b = []; %Sin restricciones de desigualdad
%Restricciones de igualdad son:
%X1 X2 X3 X4 X5 X6 X7 X8 X9 X10 X11 X12 X13 X14 X15 X16 X17 X18
Aeq=[0.1 0.12 0.335 0.15 0.18 0.19 0.12 0.15 0.15 0.15 0 0.15 0.11 0 0.13 0 0 0.46; %Nitrogeno
0.3 0.24 0 0.03 0.05 0.04 0.27 0.03 0.24 0.15 0 0 0.52 0.52 0 0 0 0 ; %Fosforo
0.1 0.12 0 0.31 0.15 0.19 0.08 0.2 0.12 0.15 0.50 0 0 0.34 0.44 0 0 0 ; %Potasio
0 0 0 0 0 0 0 0 0 0 0 0.26 0 0 0 0 0.50 0 ; %Calcio
0 0 0 0 0.06 0 0 0 0 0 0 0 0 0 0 0.17 0 0]; %Magnesio
beq = [285.71 ; %Demanda nutricional de Nitrogeno (kg/ha)
305.33 ; %Demanda nutricional de Fosforo (kg/ha)
450 ; %Demanda nutricional de Potasio (kg/ha)
262.50 ; %Demanda nutricional de Calcio (kg/ha)
41.50]; %Demanda nutricional de Magnesio (kg/ha)
%Limite inferior
lb = zeros(18,1);
%Limite superior
ub = inf(18,1);
x = linprog(f, A, b, Aeq, beq, lb, ub, options)
Solucion_optima = f*x
当我解决此问题时,会抛出结果,但不显示单纯形表的任何结果,我将使用以下命令执行该结果
options = optimoptions('linprog','Algorithm','dual-simplex');
所以我有单纯形算法
iterM=100;
In=size(Aeq,1);
Xsol=[Aeq eye(In) beq
f zeros(1,In) 0];
for iter=1:1:iterM
fin=Xsol(end,1:end-1)<0;
if fin==0
break
end
[a,c]=min(Xsol(end,:));
Xre=Xsol(:,end)./Xsol(:,c);
i=Xre<=0;
d=Xre;
d(i)=inf;
[beq,f]=min(d);
Xsol(f,1:end)=Xsol(f,1:end)/Xsol(f,c);
for i=1:1:size(Xsol,1)
if i~=f
Xsol(i,:)=Xsol(i,:)-(Xsol(i,c)*Xsol(f,:));
end
end
end
for i=1:1:size(f,2)
d=logical(Xsol(:,i));
X(i,1)=Xsol(d,end)
end
当我运行Xsol函数时,它并没有显示出单纯形表应具有的最佳解决方案或其他值
答案 0 :(得分:1)
基于OP的陈述,“我需要降低的成本,双重解决方案和影子价格。”
1)双重解决方案是影子价格。影子价格是双重解决方案。
2)最终的单纯形表并不是达到既定目标的唯一方法(尽管它可以工作)。
双重解决方案(影子价格)
您可以通过[x,fval,exitflag,output,lambda] = linprog(___)
获得双重解决方案。 lambda
是双重解决方案;请参见MATLAB的linprog
(link)文档和示例。该文档称为这些Lagrange乘数。
降低成本
使用或不使用双重解决方案都可以降低成本。如果f
是目标函数(成本)的系数,则当以标准格式= f'- p'*A
编写LP时,降低的成本A*x=b
。如果其他人知道从输出中获得降低的成本的更好方法,请发布。我试图避免使用原始公式,以免拉出基本变量的索引。
对此有明确的参考:
Bertsimas,Dimistris和Tsitsiklis,John N.,1997年。线性优化简介,雅典娜科学与动力思想有限责任公司,马萨诸塞州贝尔蒙特。第148页