LINGO编程语法模板

Halcom

LINGO编程：

1. MODEL:
   
2. SETS:
   
3.   counti/1..4/: ;
   
4.   countj/1..6/: ;
   
5.   countl/1..4/: ;
   
6.   countk/1..6/: ;
   
7.   countij(counti,countj): delta,p,q,A,B,d1,d2;
   
8. ENDSETS
   
9. 
   
10. max = n1*@sum(countij(i,j):A(i,j)*delta(i,j)) + n2*@sum(countij(i,j):B(i,j)*delta(i,j));
    
11. 
    
12. @for(counti(i):@sum(countj(j):delta(i,j)) = 1);
    
13. @for(countj(j):@sum(counti(i):delta(i,j)) <=1);
    
14. 
    
15. @for(counti(i): @for(countj(j): d1(i,j) = @sum( countk(k): @if(p(i,k) #lt# p(i,j),delta(i,k),0 ) )  ));
    
16. @for(countj(j): @for(counti(i): d2(i,j) = @sum( countl(l): @if(q(l,j) #lt# q(i,j),delta(l,j),0 ) )  ));
    
17. @for(countij(i,j): delta(i,j) + d1(i,j) + d2(i,j) >= 1);
    
18. 
    
19. @for(countij(i,j):@bin(delta(i,j)));
    
20. 
    
21. DATA:
    
22. n1 = 0.4;
    
23. n2 = 0.6;
    
24. 
    
25. p=        5        1        3        6        2        4
    
26.         1        3        2        6        4        5
    
27.         4        1        3        2        6        5
    
28.         2        3        5        1        6        4;
    
29. 
    
30. q=        4        2        2        1        4        3
    
31.         2        3        1        4        2        2
    
32.         1        1        3        3        3        4
    
33.         3        4        4        2        1        1;
    
34. 
    
35. A=        0.2        1        0.33        0.17        0.5        0.25
    
36.         1        0.33        0.5        0.17        0.25        0.2
    
37.         0.25        1        0.33        0.5        0.17        0.2
    
38.         0.5        0.33        0.2        1        0.17        0.25;
    
39. 
    
40. B=        0.25        0.5        0.5        1        0.25        0.33
    
41.         0.5        0.33        1        0.25        0.5        0.5
    
42.         1        1        0.33        0.33        0.33        0.25
    
43.         0.33        0.25        0.25        0.5        1        1;
    
44. 
    
45. 
    
46. ENDDATA
    
47. 
    
48. END

复制代码

Halcom

1. MODEL:
   
2. SETS:
   
3.   counti/1..6/: Ei;
   
4.   countj/1..4/: fj,Zj,vj,Uj,Cj,Wj,Gj;
   
5.   countk/1..9/: Dk;
   
6.   countl/1..2/: Sl, ql ;
   
7.   countij(counti,countj): dij;
   
8.   countjk(countj,countk): djk;
   
9.   countijl(counti,countj,countl): Xijl;
   
10.   countjkl(countj,countk,countl): Yjkl;
    
11. ENDSETS
    
12. 
    
13. min = @sum(countj(j):fj(j)*Zj(j)) + @sum(counti(i):@sum(countj(j):@sum(countl(l):Sl(l)*Xijl(i,j,l)*dij(i,j))))
    
14. +@sum(countj(j):@sum(countk(k):@sum(countl(l):Sl(l)*Yjkl(j,k,l)*djk(j,k)))) +@sum(countj(j):vj(j)*Uj(j)) +
    
15. t*( @sum(counti(i):@sum(countj(j):@sum(countl(l):ql(l)*Xijl(i,j,l)*dij(i,j)))) +
    
16. @sum(countj(j):@sum(countk(k):@sum(countl(l):ql(l)*Yjkl(j,k,l)*djk(j,k)))) + @sum(countj(j):(1-r*Wj(j))*Gj(j)*Uj(j)) );
    
17. 
    
18. 
    
19. @sum(countijl(i,j,l):Xijl(i,j,l) ) = @sum(countk(k): Dk(k));
    
20. @sum(countjkl(j,k,l):Yjkl(j,k,l) ) = @sum(countk(k): Dk(k));
    
21. @for(countk(k): @sum(countj(j): @sum(countl(l): Yjkl(j,k,l) )) = Dk(k) );
    
22. 
    
23. @for(countj(j): @sum(counti(i):@sum(countl(l): Xijl(i,j,l) )) = Uj(j));
    
24. @for(countj(j): @sum(countk(k):@sum(countl(l): Yjkl(j,k,l) )) = Uj(j));
    
25. @for(countj(j): Uj(j)<=Cj(j));
    
26. 
    
27. @for(counti(i): @sum(countj(j):@sum(countl(l): Xijl(i,j,l))) <= Ei(i) );
    
28. 
    
29. @sum(countj(j): Zj(j))<=m;
    
30. @sum(countj(j): Wj(j))=e;
    
31. @for(countj(j): Wj(j) <= Zj(j) );
    
32. 
    
33. @for(countj(j): @bin(Wj(j)));
    
34. @for(countj(j): @bin(Zj(j)));
    
35. 
    
36. DATA:
    
37. dij = 110        235        280        340
    
38. 230        97        201        100
    
39. 311        101        132        99
    
40. 270        211        97        132
    
41. 122        146        332        275
    
42. 204        360        474        452;
    
43. 
    
44. djk = 44        15        24        544        15        20        45        455        18
    
45. 22        30        50        367        18        38        211        345        21
    
46. 18        40        20        260        30        49        280        200        15
    
47. 14        42        11        266        30        47        320        319        21;
    
48. 
    
49. 
    
50. Cj = 30000        20000        15000        10000;
    
51. 
    
52. Ei = 1500        2200        2000        3300        5200        8000;
    
53. 
    
54. Dk = 1500        1050        2770        580        770        960        1700        7200        2270;
    
55. 
    
56. fj = 40000        30000        20000        10000;
    
57. 
    
58. Sl = 0.85 0.78;
    
59. 
    
60. ql = 0.048 0.078;
    
61. 
    
62. Gj = 2.37000000000000        3.01000000000000        2.64000000000000        3;
    
63. 
    
64. vj = 12 14 13 12;
    
65. 
    
66. t = 0.05;
    
67. r = 0.25;
    
68. e = 2;
    
69. m = 4;
    
70. 
    
71. 
    
72. ENDDATA
    
73. 
    
74. END

复制代码