SHARE
TWEET

Untitled

a guest Apr 26th, 2019 85 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. //Лабораторная работа №16. Транспортные задачи
  2. clc
  3. printf("Лабораторная работа №16\n")
  4. printf("Задачи о планировании перевозок\n\n")
  5. printf("Задание №1\n")
  6. printf("Магазин телевизоров \n\n")
  7. //min(120x1+160x2+80x3+100x4)
  8. //x1+x2=10 x3+x4=7
  9. //x1+x3=9 x2+x4=8
  10. //x1>=0 x2>=0 x3>=0 x4>=0
  11. c=[120; 160; 80; 100]
  12. Aeq=[1 1 0 0
  13.  0 0 1 1
  14.  1 0 1 0
  15.  0 1 0 1]
  16. beq=[10; 7; 9; 8]
  17. lb=[0;0;0;0]
  18. ub=[10; 10; 7; 7]
  19. [xopt, fopt]=karmarkar (Aeq, beq, c,[],[],[],[],[],[],[],lb, ub);
  20. disp(xopt)
  21. printf('\nОптимальный план перевозок телевизоров заключактся в следующем:\n с 1 склада в 1 магазин нужно перевести 9 телевизоров\n с 1 склада во 2 магазиннужно перевести 1 телевизор\n со 2 склада в 1 первый магазин перевозить не надо\n со 2 склада во 2 магазин нужжно перевести 7 телевизоров\n')
  22. disp('Стоимость такого плана перевозок составляет '+string(fopt))
  23. disp("*****************************************************************");
  24.  
  25. printf("Задание №2\n")
  26. printf("Доставка молока в город\n")
  27. //min(2000x1+1500x2+2300x3+1900x4+1700x5+2100x6)
  28. //x1+x2=4 x3+x4=3 x5+x6=6
  29. //x1+x3+x5=6 x2+x4+x6=7
  30. //x1>=0 x2>=0 x3>=0 x4>=0 x5>=0 x6>=0
  31. c=[2000; 1500; 2300; 1900; 1700; 2100]
  32. Aeq=[1 1 0 0 0 0
  33.  0 0 1 1 0 0
  34.  0 0 0 0 1 1
  35.  1 0 1 0 1 0
  36.  0 1 0 1 0 1]
  37. beq=[4; 3; 6; 6; 7]
  38. lb=[0;0;0;0;0;0]
  39. ub=[4;4;3;3;6;6]
  40. [xopt, fopt]=karmarkar (Aeq, beq, c,[],[],[],[],[],[],[],lb, ub);
  41. disp(xopt)
  42. printf('\nОптимальный план перевозок молока заключактся в следующем:\n с 1 с/х района на 1 молокозавод не нужно перевозить\n с 1 с/х района на 2 молокозавод нужно перевезти 4 т\n с 2 с/х района на 1 молокозавод не нужно перевозить\n с 2 с/х района на 2 молокозавод нужно перевезти 3 т\n с 3 с/х района на 1 молокозавод нужно перевезти 6 т\n с 3 с/х района на 2 молокозавод не нужно перевозить\n')
  43. disp('Оптимальная сумма перевозок '+string(fopt))
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top