重心法选址.doc
《重心法选址.doc》由会员分享,可在线阅读,更多相关《重心法选址.doc(9页珍藏版)》请在咨信网上搜索。
1、2单设施重心法选址2.1实验目的掌握单设施重心法选址的原理,能够计算简单选址题目中待选设施的位置;掌握单设施重心选址的算法流程,能够设计类似题目的算法流程,并编写程序。2.2实验过程(1)单设施重心法选址的原理重心法选址模型示意图如图2-1所示。图2-1 单设施重心法选址选址示意图求解目标:C-总成本最低 其中:fi-序号为i的点的运输费率; Vi-序号为i的点的产量或者销量; di-序号为i的点到待选设施点的相对距离。待选设施位置的计算公式:其中:Xc-重心的X坐标; Yc-重心的Y坐标; Xi-第i个地点X坐标; Yi-第i个地点Y坐标; (2)算法流程图,如图2-2所示。图2-2 算法流
2、程图2.3实验结果(1)单设施重心法选址程序参数设定及其求解界面如图2-3所示。图2-3 单设施重心法选址程序参数设定及其求解界面(2)参数设定及其求解界面变量声明部分(代码)Private Sub Command1_Click() If Text1.Text = Then MsgBox X-横坐标不允许为空 Text1.SetFocus Exit Sub ElseIf IsNumeric(Text1.Text) = False Then MsgBox X-横坐标必须为数值型数据! Text1.Text = Text1.SetFocus Exit Sub End If If Text2.Tex
3、t = Then MsgBox Y-纵坐标不允许为空 Text2.SetFocus Exit Sub ElseIf IsNumeric(Text2.Text) = False Then MsgBox Y-纵坐标必须为数值型数据! Text2.Text = Text2.SetFocus Exit Sub End If If Text3.Text = Then MsgBox 产量或销量不允许为空 Text3.SetFocus Exit Sub ElseIf IsNumeric(Text3.Text) = False Then MsgBox 产量或销量应为数值型数据! Text3.Text = Te
4、xt3.SetFocus Exit Sub ElseIf Val(Text3.Text) 0 Then MsgBox 产量或销量应为正数,否则无实际意义! Text3.Text = Text3.SetFocus Exit Sub End If If Text4.Text = Then MsgBox 运输费率不允许为空 Text4.SetFocus Exit Sub ElseIf IsNumeric(Text4.Text) = False Then MsgBox 运输费率应为数值型数据! Text4.Text = Text4.SetFocus Exit Sub ElseIf Val(Text4.
5、Text) 0 Then MsgBox 运输费率应为正数,否则无实际意义! Text4.Text = Text4.SetFocus Exit Sub End If If Text5.Text = Then MsgBox X0-横坐标不允许为空 Text5.SetFocus Exit Sub ElseIf IsNumeric(Text5.Text) = False Then MsgBox X0-横坐标必须为数值型数据! Text5.Text = Text5.SetFocus Exit Sub End If If Text6.Text = Then MsgBox Y0-纵坐标不允许为空 Text6
6、.SetFocus Exit Sub ElseIf IsNumeric(Text6.Text) = False Then MsgBox Y0-纵坐标必须为数值型数据! Text6.Text = Text6.SetFocus Exit Sub End If If Text7.Text = Then MsgBox 精度不允许为空 Text7.SetFocus Exit Sub ElseIf IsNumeric(Text7.Text) = False Then MsgBox 精度应为数值型数据! Text7.Text = Text7.SetFocus Exit Sub ElseIf Val(Text
7、7.Text) = 2 Then Command2.Enabled = True End IfEnd SubPrivate Sub Command2_Click() Xc = Val(Text5.Text) Yc = Val(Text6.Text) JD = Val(Text7.Text) Dim SumCO As Double Dim SumCN As Double Dim Sum1 As Double Dim Sum2 As Double Dim Sum3 As Double For j = 1 To 10000 SumCO = 0 SumCN = 0 Sum1 = 0 Sum2 = 0
8、Sum3 = 0 For i = 1 To List1.ListCount di = Sqr(Xc - Val(List1.List(i - 1) 2 + (Yc - Val(List2.List(i - 1) 2) 距离公式 SumCO = SumCO + Val(List3.List(i - 1) * Val(List4.List(i - 1) * di Sum1 = Sum1 + (Val(List1.List(i - 1) * Val(List3.List(i - 1) * Val(List4.List(i - 1) / di Sum2 = Sum2 + (Val(List2.List
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 心法 选址
1、咨信平台为文档C2C交易模式,即用户上传的文档直接被用户下载,收益归上传人(含作者)所有;本站仅是提供信息存储空间和展示预览,仅对用户上传内容的表现方式做保护处理,对上载内容不做任何修改或编辑。所展示的作品文档包括内容和图片全部来源于网络用户和作者上传投稿,我们不确定上传用户享有完全著作权,根据《信息网络传播权保护条例》,如果侵犯了您的版权、权益或隐私,请联系我们,核实后会尽快下架及时删除,并可随时和客服了解处理情况,尊重保护知识产权我们共同努力。
2、文档的总页数、文档格式和文档大小以系统显示为准(内容中显示的页数不一定正确),网站客服只以系统显示的页数、文件格式、文档大小作为仲裁依据,平台无法对文档的真实性、完整性、权威性、准确性、专业性及其观点立场做任何保证或承诺,下载前须认真查看,确认无误后再购买,务必慎重购买;若有违法违纪将进行移交司法处理,若涉侵权平台将进行基本处罚并下架。
3、本站所有内容均由用户上传,付费前请自行鉴别,如您付费,意味着您已接受本站规则且自行承担风险,本站不进行额外附加服务,虚拟产品一经售出概不退款(未进行购买下载可退充值款),文档一经付费(服务费)、不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
4、如你看到网页展示的文档有www.zixin.com.cn水印,是因预览和防盗链等技术需要对页面进行转换压缩成图而已,我们并不对上传的文档进行任何编辑或修改,文档下载后都不会有水印标识(原文档上传前个别存留的除外),下载后原文更清晰;试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓;PPT和DOC文档可被视为“模板”,允许上传人保留章节、目录结构的情况下删减部份的内容;PDF文档不管是原文档转换或图片扫描而得,本站不作要求视为允许,下载前自行私信或留言给上传者【快乐****生活】。
5、本文档所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用;网站提供的党政主题相关内容(国旗、国徽、党徽--等)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。
6、文档遇到问题,请及时私信或留言给本站上传会员【快乐****生活】,需本站解决可联系【 微信客服】、【 QQ客服】,若有其他问题请点击或扫码反馈【 服务填表】;文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“【 版权申诉】”(推荐),意见反馈和侵权处理邮箱:1219186828@qq.com;也可以拔打客服电话:4008-655-100;投诉/维权电话:4009-655-100。