Gantt dla 2 maszyn

function [] = johnson_2_machines(M1,M2,il)

A = [M1;ones(1,il)];
B = [M2;zeros(1,il)];

for k = 2:1:length(A)
    E(1,1)=B(1,1);
    E(2,1)=B(2,1);
    if B(1,k-1) < A(1,k)
        E(1,k-1) = A(1,k);
    end
end

plot(A(1,:),A(2,:),'black',A(1,:),A(2,:),'k*');
hold
plot(B(1,:),B(2,:),'green',B(1,:),B(2,:),'g*');
hold on
plot(B(1,:),B(2,:),'green',E(1,:),E(2,1),'r^');
title('Wykres Gantta');
xlabel('t');
ylabel('Machines');
legend('Machine 1','Time work machine 1','Machine 2','Time work machine 2','','Start machines');
end