资源描述：
《数学建模0-1规划及lingo程序模板》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、数模练习一某手机运营商准备在一个目前尚未覆盖的区域开展业务，计划投资5000万元来建设中继站。该区域由15个社区组成，有7个位置可以建设中继站，每个中继站只能覆盖有限个社区。图1.1.1是该区域的示意图，每个社区简化为一个多边形，每个可以建设中继站的位置已用黑点标出。由于地理位置等各种条件的不同，每个位置建设中继站的费用也不同，且覆盖范围也不同。表1.1.2中列出了每个位置建设中继站的费用以及能够覆盖的社区，表1.1.3列出了每个社区的人口数。图1.1.1表1.1.2每个位置建设中继站的费用及所能覆盖的社
2、区位置1234567费用（百万元）96.52014.5191310.5覆盖社区1,2,42,3,54,7,8,105,6,8,98,9,127,10,11,12,1512,13,14,15表1.1.3每个社区的人口数量社区123456789101112131415人口（千人）24136948121011614936 问题一：在不超过5000万建设费用的情况下，在何处建设中继站，能够覆盖尽可能多的人口；问题二：考虑到中继站出现故障维修的时候可能会出现所覆盖的社区信号中断等问题，为此对通讯资费进行了调整，规
3、定，仅有一个中继站信号覆盖的小区通讯资费按正常资费的70%收取，有两个或两个以上中继站信号覆盖的小区的通讯资费按正常收取，针对于5000万元的预算，应该如何建设中继站，才能够使得资费的收入达到最大。问题分析：问题一，决策变量：目标函数：约束条件：用LINGO软件编程求解，程序如下：sets:position/1..7/:x,f;society/1..15/:r;endsetsdata:r=24136948121011614936;f=96.52014.5191310.5;enddatamax=r(1)*@
4、smax(x(1),x(3))+r(2)*@smax(x(1),x(2))+r(3)*x(2)+r(4)*x(3)+r(5)*@smax(x(2),x(4))+r(6)*x(4)+r(7)*x(6)+r(8)*@smax(x(4),x(5))+r(9)*@smax(x(4),x(5))+r(10)*@smax(x(3),x(6))+r(11)*x(6)+r(12)*@smax(x(5),x(6),x(7))+r(13)*x(7)+r(14)*x(7)+r(15)*@smax(x(6),x(7));@for
5、(position(i):@bin(x));@sum(position(i):x(i)*f(i))<=50;!@max和@smax是不同的。@max找出集object的成员的属性f最大者，而@smax(x1,x2,…,xn)返回x1，x2，…，xn中的最大值。结果：应该在2、4、6、7处建造中继站问题二，决策变量：目标函数：约束条件：……用LINGO软件编程求解，程序如下：sets:position/1..7/:x,f;society/1..15/:r,Y;endsetsdata:r=2413694812
6、1011614936;f=96.52014.5191310.5;enddatamax=@sum(society(i):y(i));Y(1)=@if(x(1)#eq#1,0.7*r(1),0);Y(2)=@if((x(1)+x(2))#le#0,0,@if((x(1)+x(2))#gt#1,r(2),0.7*r(2)));!Y(2)=@if(x(1)+x(2)#le#0,0,@if(x(1)+x(2))#gt#1,r(2),0.7*r(2)));Y(3)=@if(x(2)#eq#1,0.7*r(3),0);
7、Y(4)=@if(x(1)+x(3)#eq#1,0.7*r(4),@if(x(1)+x(3)#eq#0,0,r(4)));Y(5)=@if(x(2)+x(4)#eq#1,0.7*r(5),@if(x(2)+x(4)#eq#0,0,r(5)));Y(6)=@if(x(4)#eq#1,0.7*r(6),0);Y(7)=@if(x(3)+x(6)#eq#1,0.7*r(7),@if(x(3)+x(6)#eq#0,0,r(7)));Y(8)=@if(x(3)+x(4)+x(5)#eq#1,0.7*r(8),@if
8、(x(3)+x(5)+x(4)#eq#0,0,r(8)));Y(9)=@if(x(4)+x(5)#eq#1,0.7*r(9),@if(x(4)+x(5)#eq#0,0,r(9)));Y(10)=@if(x(3)+x(5)#eq#1,0.7*r(10),@if(x(3)+x(5)#eq#0,0,r(10)));Y(11)=@if(x(6)#eq#1,0.7*r(11),0);Y(12)=@if(x(6)+x(7)#eq#1,0.
