2025年数学建模中选址问题(Lingo程序).pdfVIP

不飞则已，一飞冲天；不鸣则已，一鸣惊人。——《韩非子》

3.4选址问题

目录

题目

第一步，旧址基础上只求运量的ＬＰ程序1

第二步，旧址基础上选择新址的NLP程序2

6个工地的地址(坐标表示，距离单位KM)及水泥用量(单位：

吨)如下表，而在P(5,1)及Q(2,7)处有两个临时料场，日储量各

有20t，如何安排运输，可使总的吨公里数最小?

新料场应选何处？能节约多少吨公里数？

123456

A1.258.750.55.7537.25

B1.250.754.7556.57.75

D3547611

旧址基础上只求运量的ＬＰ程序

第一步，

MODEL:

TitleLocationProblem;

sets:

demand/1..6/:a,b,d;

supply/1..2/:x,y,e;

link(demand,supply):c;

endsets

data:

!locationsforthedemand(需求点的位置);

a=1.25,8.75,0.5,5.75,3,7.25;

b=1.25,0.75,4.75,5,6.5,7.75;

!quantitiesofthedemandandsupply（供需量）;

d=3,5,4,7,6,11;e=20,20;

非淡泊无以明志，非宁静无以致远。——诸葛亮

enddata

init:

!initiallocationsforthesupply;

endinit

!Objectivefunction（目标）;

[OBJ]min=@sum(link(i,j):c(i,j)*((x(j)-a(i))^2+(y(j)-b(i))^2)^(1/2));

!demandconstraints（需求约束）;

@for(demand(i):[DEMAND_CON]@sum(supply(j):c(i,j))=d(i););

!supplyconstraints（供应约束）;

@for(supply(i):[SUPPLY_CON]@sum(demand(j):c(j,i))=e(i););

!@for(supply:@free(x);!@free(Y);!);

@for(supply:@bnd(0.5,X,8.75);@bnd(0.75,Y,7.75););

END

运行可得到全局最优解

Globaloptimalsolutionfound.