运输问题的软件求解.pptVIP

引例： * 一、运输问题与数学模型 二、运输问题的LINGO求解法 三、应用案例分析 Ⅱ．运输问题的软件求解 某公司有三个分厂生产某种物资，分别运往四个地区的销售公司去销售，有关分厂的产量（吨）、各销售公司的销量（吨）及单位物资的运价（千元/吨）如下表所示，求总的运费最小的调运方案？ 6 5 6 3 销 量 9 5 10 4 7 A3 4 8 2 9 1 A2 7 10 3 11 3 A1 产 量 B4 B3 B2 B1 销地 产地 bn … b2 b1 销量 am cmn … cm2 cm1 Am ミ ミ ミ ミ ミ a2 c2n … c22 c21 A2 a1 c1n … c21 c11 A1 产量 Bn … B2 B1 销地 产地 运输表 1、产销平衡问题 即 设 xij 表示产地 Ai 运往销地 Bj (i=1,2,…,m; j=1,2,…,n) 的运量. bn … b2 b1 销量 am xmn cmn … xm2 cm2 xm1 cm1 Am ミ ミ ミ ミ ミ a2 x2n c2n … x22 c22 x21 c21 A2 a1 x1n c1n … x12 c12 x11 c11 A1 产量 Bn … B2 B1 销地 产地 一、运输问题与数学模型 2、产销不平衡问题 （1） 产大于销 （2） 销大于产 二、运输问题的LINGO求解方法 针对产销平衡的运输问题模型，给出一般的LINGO模型如下 model: sets: row/1..m/: a; !m表示数组维数,即为生产地的个数 arrange/1..n/:b; !n表示数组维数,即为销售地的个数 link (row, arrange): c,x; !系数矩阵形状 endsets Data: a=a1,a2,…,am ; ! 各生产地的实际产量; b=b1,b2,…,bn ; ! 各销售地的实际销量; c=c(1,1),c(1,2),…,c(1,n),…c(m,1),c(m,2),…,c(m,n); !单位运价系数矩阵； Enddata [OBJ]min=@sum(link(i,j):c(i,j)*x(i,j)); !目标函数求最小 @for(row(i):@sum(arrange(j):x(i,j))=a(i);); !约束条件 @for(arrange(j):@sum(row(i):x(i,j))=b(j);); !约束条件 @for(link(i,j):x(i,j)=0;); !非负约束 END 例1：某公司有三个分厂生产某种物资，分别运往四个地区的销售公司去销售，有关分厂的产量、各销售公司的销量（吨）及运价（千元/吨）如下表所示，求总的运费最小的调运方案？ 6 5 6 3 销 量 9 5 10 4 7 A3 4 8 2 9 1 A2 7 10 3 11 3 A1 产 量 B4 B3 B2 B1 解：设 xij 表示产地 Ai 运往销地 Bj (i=1,2,3;j=1,2,…,4) 的运量.则 其中， 其中， 分析：由于三个产地总产量为7+4+9=20； 四个销地的总销量为3+6+5+6=20，所以这是一个产销平衡问题。 求解该问题的LINGO程序如下 model: sets: row/1..3/: a; arrange/1..4/:b; link (row, arrange): c,x; endsets Data: a=7,4,9 ; b=3,6,5,6; c=3,11,3,10,1,9,2,8,7,4,10,5; Enddata [OBJ]min=@sum(link(i,j):c(i,j)*x(i,j)); @for(row(i):@sum(arrange(j):x(i,j))=a(i);); @for(arrange(j):@sum(row(i):x(i,j))=b(j);); @for(link(i,j):x(i,j)=0;); END 6 5 6 3 销 量 9 5 10 4 7 A3 4 8 2 9 1 A2 7 10 3 11 3 A1 产 量 B4 B3 B2 B1 三、应用案例分析