用lingo直接求经济批量问题的整数解

代码如下：

-------------------------------------------------------------------------------------

model:
!直接求整数解;
sets:
 order/1..99/: TC,EOQ;
endsets

@for(order(i): EOQ(i)=D/i;
   TC(i)=0.5*C_P*EOQ(i)+C_D*D/EOQ(i);
);
TC_min=@min(order: TC);
Q=@sum(order(i): EOQ(i)*(TC_min #eq# TC(i)));
N=D/Q;

data:
  C_D=12000;
    D=96000;
  C_P=3.6;
enddata
end

-------------------------------------------------------------------------------------------

结果如下：

即一年组织4次订货(每季度一次),每次的订货量为24000件，最优费用为91200元。