运筹学选址vf编程

《运筹学选址vf编程》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、《物流系统规划》课程设计1、（选址）某企业有五个供应商，他们的位置分别是（4+i,4+i），（12+i,4+i），（2+i,7+i），（11+i,11+i），（7+i,14+i），该企业从这五个供应商处的采购量每年为4+i、3+i、2+i、4+i、1+i，假设运输费率相同，i为学号的末位数。请用计算机编写一个通用程序，完成下面的题目。（1）用城市距离为该企业推荐一个地址，使该企业的费用最省。（2）将第1问中的结果作为一个初始解，用欧氏距离进行重新优化，推荐一个最优的位置。要求：（1）前后两次结果之差小于0.001；（2）程序的通用性高，可以满足任何多个供应

2、商；（3）程序的可读性强；（4）操作界面友好；（5）在手册中要记录所有的程序、运行结果及相关界面图形。解：（1）由题意知供应商P1P2P3P4P5及坐标X1Y1X2Y2X3Y3X4Y4X5Y5坐标4+i4+i12+i4+i2+i7+i11+i11+i7+i14+i权重4+i3+i2+i4+i1+i-7-《物流系统规划》课程设计令i=6，得所以，要使该企业的费用最省，地址应为：（13.34，13.73）根据程序计算结果可得运用欧氏距离，最佳地址为（13.28,13.67）。（2）选址程序主页面登录界面：操作界面：-7-《物流系统规划》课程设计程序代码如下:-

3、7-《物流系统规划》课程设计登录界面代码：thisform.releasedoform表单2数据录入代码:ifthis.caption="输入数据"thisform.text1.enabled=.t.thisform.text2.enabled=.t.thisform.text3.enabled=.t.Thisform.text4.enabled=.t.this.caption="确定"thisform.command2.enabled=.t.elseiflen(trim(thisform.text1.value))=0orlen(trim(thisfor

4、m.text2.value))=0orlen(trim(thisform.text3.value))=0orlen(trim(thisform.text4.value))=0messagebox("请输入所有项",0)elseinsertinto表1values(trim(thisform.text1.value),trim(thisform.text2.value),trim(thisform.text3.value),trim(thisform.text4.value))this.caption="输入数据"thisform.text1.enabled

5、=.f.thisform.text2.enabled=.f.thisform.text3.enabled=.f.Thisform.text4.enabled=.f.thisform.text1.value=""thisform.text2.value=""thisform.text3.value=""Thisform.text4.value=""thisform.command2.enabled=.f.thisform.refreshendifendif数据取消代码:Thisform.text1.value=""Thisform.text2.value="

6、"Thisform.text3.value=""-7-《物流系统规划》课程设计Thisform.text4.value=""Thisform.text1.enabled=.f.Thisform.text2.enabled=.f.Thisform.text3.enabled=.f.Thisform.text4.enabled=.f.thisform.command1.caption="输入数据"输出城市距离:x0=0y0=0x0_top=0x0_bottom=0y0_top=0y0_bottom=0aa=reccount()gotopfori=1toaast

7、ep1goixi=val(alltr(x))yi=val(alltr(y))wi=val(alltr(w))x0_top=x0_top+wi*xix0_bottom=x0_bottom+wiy0_top=y0_top+yi*wiy0_bottom=y0_bottom+wix0=x0_top/x0_bottomy0=y0_top/y0_bottomendforthisform.text5.value=x0thisform.text6.value=y0输出迭代欧式距离代码:x0=0y0=0x0_top=0x0_bottom=0y0_top=0y0_bottom

8、=0aa=reccount()gotopfori=1toaaste