Lineární program s duální úlohou

%% Zadání
% Týdně vytěžíme 10t červené rudy a 8 tun černé rudy.
% Z rud vyrábíme tři slitiny, měkkou, tvrdou a pevnou, na jednu tunu měkké
% slitiny spotřebujeme 3 t červené a 5 t černé rudy, na tvrdou slitinu
% spotřebujeme 5 t červené a 3 tuny černé rudy a na pevnou 5 t červené a
% 5 t černé. Měkkou slitinu prodáváme za 2,5, tvrdou za 3 a
% pevnou za 4 (v (asi) 100 tis Kč).

%% Primár
f = -[2.5 3 4];
A = [3 5 5; 5 3 5];
b = [10 8];

[x, fval] = linprog(f,A,b,[],[],[0 0 0]);
x
fprintf('Fval: %.4f\n', -fval);

%% Duál
disp(' == Dual ==');
f = [10 8];
A = -[3 5; 5 3; 5 5];
b = -[2.5; 3; 4];

[x, fval] = linprog(f,A,b,[],[], [0 0]);
x
fprintf('Fval: %.4f\n', fval);