lingo 程序代码

根据您提供的文档内容，以下是两个问题的LINGO程序代码：

### 问题1: 电视机厂装配线优化

model:
sets:
  product /black, color/: profit, demand, x;
endsets

data:
  profit = 40 80;
  demand = 30 24;
  max_hours = 40;
  max_overtime = 10;
  weight_color = 2;
enddata

! 目标函数；
min = d1p + d1m + d2p + d2m + 2 * d3p + d3m;

! 装配线时间约束；
x('black') + x('color') - (max_hours + d1p - d1m) = 0;

! 加班时间约束；
d1p - (max_overtime + d2p - d2m) = 0;

! 市场需求约束；
x('black') - (demand('black') + d3p - d3m) = 0;
x('color') - (demand('color') + d3p - d3m) = 0;

! 非负约束；
@for(product(i): @bnd(0, x(i), demand(i)));

! 定义偏差变量；
@bnd(0, d1p, max_hours);
@bnd(0, d1m, max_hours);
@bnd(0, d2p, max_overtime);
@bnd(0, d2m, max_overtime);
@bnd(0, d3p, demand('black'));
@bnd(0, d3m, demand('color'));

end

### 问题2: 工厂生产优化

model:
sets:
  product /P1, P2/;
  machine /A, B, C/;
  product_machine(product, machine): time;
endsets

data:
  time = 2 4 1; ! P1 在 A, B, C 上的时间；
  time = 1 0 5; ! P2 在 A, B, C 上的时间；
  capacity_A = 12;
  capacity_B = 15;
  capacity_C = 160;
  profit = 15 200;
  min_profit = 1500;
  ratio_P1_P2 = 1 2;
enddata

variables:
  x(P1, P2); ! 产品产量；
  d1p, d1m; ! 利润偏差；
  d2p, d2m; ! 产量比例偏差；
  d3p, d3m; ! 设备C加班偏差；
  d4p, d4m; ! 设备B利用偏差；

! 目标函数；
min = d1p + d1m + d2p + d2m + 3 * d3p + d3m + d4p + d4m;

! 利润约束；
profit('P1') * x('P1') + profit('P2') * x('P2') - (min_profit + d1p - d1m) = 0;

! 产量比例约束；
x('P1') / ratio_P1_P2(1) - (x('P2') / ratio_P1_P2(2) + d2p - d2m) = 0;

! 设备A时间约束；
time('P1', 'A') * x('P1') + time('P2', 'A') * x('P2') <= capacity_A;

! 设备B时间约束；
time('P1', 'B') * x('P1') + time('P2', 'B') * x('P2') - (capacity_B + d4p - d4m) = 0;

! 设备C时间约束；
time('P1', 'C') * x('P1') + time('P2', 'C') * x('P2') - (capacity_C + d3p - d3m) = 0;

! 非负约束；
@for(product(i): @bnd(0, x(i), 1000));

! 定义偏差变量；
@bnd(0, d1p, 1000);
@bnd(0, d1m, 1000);
@bnd(0, d2p, 1000);
@bnd(0, d2m, 1000);
@bnd(0, d3p, 1000);
@bnd(0, d3m, 1000);
@bnd(0, d4p, 1000);
@bnd(0, d4m, 1000);

end

这两个模型分别解决了电视机厂的装配线优化问题和工厂的生产优化问题。希望这些代码对您有所帮助！