%-------------------------------------
%------ PROGRAMOWANIE LINIOWE  -------
%-------------------------------------

close all
clear all
clc

f = [2, 1.5, 3];
A = [4, 6, 15; 2, 2, 0; 5, 3, 4; 7, 3, 12];
b = [250, 60, 100, 220];

[X, fval] = linprog(f, -A, -b, [], [], 0, inf, []);
x = ceil(X);
fval;
x' * f';

M = A * x;


f2 = [100, 200];
A2 = [5, 25; 0.5, 0; 100, 250; 10, 10];
b2 = [500, 15, 7500, 400];

[X2, fval2] = linprog(-f2, A2, b2, [], [], 0, inf, []);
x2 = round(X2);
fval=-fval2;
M2 = A2 * x2;

fprintf('Kanapki: %d, pierogi: %d, slodycze: %d\n', x(1), x(2), x(3));
fprintf('---Wartosci odzywcze-----\n');
fprintf('Bialko: %d, tluszcz: %d, witaminy: %d, weglowodany: %d\n', M(1), M(2), M(3), M(4));
cena = f*x;
fprintf('Koszt takiej diety wynosi: %f\n', cena)
fprintf('-------------------\n');
fprintf('Ilosc krzesel: %d, ilosc stolow: %d\n', x2(1), x2(2));
cena2 = f2*x2;
fprintf('Kosztem %d zysk bedzie najwiekszy\n', cena2);
fprintf('Drewno: %d, skora: %f, klej: %d, naklad pracy: %d', M2(1), M2(2), M2(3), M2(4));