Advertisement
Guest User

Gantt dla 3 maszyn

a guest
May 23rd, 2019
94
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.84 KB | None | 0 0
  1. function [] = johnson_3_machines(M1,M2,M3,il)
  2.  
  3. A = [M1;ones(1,il)];
  4. B = [M2;zeros(1,il)];
  5. C = [M3;(-1)*ones(1,il)]
  6.  
  7. for k = 2:1:length(A)
  8. E(1,1)=B(1,1);
  9. E(2,1)=B(2,1);
  10. if B(1,k-1) < A(1,k)
  11. E(1,k-1) = A(1,k);
  12. end
  13. end
  14.  
  15. for k = 2:1:length(A)
  16. F(1,1)=C(1,1);
  17. F(2,1)=C(2,1);
  18. if C(1,k-1) < B(1,k)
  19. F(1,k-1) = B(1,k);
  20. end
  21. end
  22.  
  23. plot(A(1,:),A(2,:),'black',A(1,:),A(2,:),'k*');
  24. hold
  25. plot(B(1,:),B(2,:),'green',B(1,:),B(2,:),'g*');
  26. hold on
  27. plot(B(1,:),B(2,:),'green',E(1,:),E(2,1),'r^');
  28. hold on
  29. plot(C(1,:),C(2,:),'b',C(1,:),C(2,:),'b*');
  30. hold on
  31. plot(C(1,:),C(2,:),'b',F(1,:),F(2,1),'r^');
  32.  
  33. title('Wykres Gantta');
  34. xlabel('t');
  35. ylabel('Machines');
  36. legend('Machine 1','Time work machine 1','Machine 2','Time work machine 2','','Start machines','','Machine 3','Time work machine 3');
  37. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement