重心法选址.doc

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.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.Text = 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 = Text3.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.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.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(Text7.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 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(i - 1) * Val(List3.List(i - 1) * Val(List4.List(i - 1) / di Sum3 = Sum3 + (Val(List3.List(i - 1) * Val(List4.List(i - 1) / di Next i Xc = Sum1 / Sum3 Yc = Sum2 / Sum3 For i = 1 To List1.ListCount di = Sqr(Xc - Val(List1.List(i - 1) 2 + (Yc - Val(List2.List(i - 1) 2) SumCN = SumCN + Val(List3.List(i - 1) * Val(List4.List(i - 1) * di Next i If (SumCO - SumCN) = JD Then Text8.Text = Xc Text9.Text = Yc Text10.Text = SumCN Text11.Text = j Exit For End If Next jEnd SubPrivate Sub List1_Click() For i = 1 To List1.ListCount If List1.Selected(i - 1) = True Then h = InputBox(请输入要改的参数：, 参数修正) If h And IsNumeric(h) = True Then List1.List(i - 1) = h Else: MsgBox 输入的数据必须为数值型数据 End If End If Next iEnd SubPrivate Sub List2_Click() For i = 1 To List2.ListCount If List2.Selected(i - 1) = True Then h = InputBox(请输入要改的参数：, 参数修正) If h And IsNumeric(h) = True Then List2.List(i - 1) = h Else: MsgBox 输入的数据必须为数值型数据 End If End If Next iEnd SubPrivate Sub List3_Click() For i = 1 To List3.ListCount If List3.Selected(i - 1) = True Then h = InputBox(请输入要改的参数：, 参数修正) If h And IsNumeric(h) = True And Val(h) 0 Then List3.List(i - 1) = h Else: MsgBox 输入的数据必须为数值型数据 End If End If Next iEnd SubPrivate Sub List4_Click() For i = 1 To List4.ListCount If List4.Selected(i - 1) = True Then h = InputBox(请输入要改的参数：, 参数修正) If h And IsNumeric(h) = True And Val(h) 0 Then List4.List(i - 1) = h Else: MsgBox 输入的数据必须为数值型数据 End If End If Next iEnd Sub(3) 单设施重心法选址程序求解结果如图2-4所示。图2-4 单设施重心法选址程序求解结果合同管理制度1 范围本标准规定了龙腾公司合同管理工作的管理机构、职责、合同的授权委托、洽谈、承办、会签、订阅、履行和变更、终止及争议处理和合同管理的处罚、奖励；本标准适用于龙腾公司项目建设期间的各类合同管理工作，厂内各类合同的管理，厂内所属各具法人资格的部门，参照本标准执行。2 规范性引用中华人民共和国合同法龙腾公司合同管理办法3 定义、符号、缩略语无4 职责4.1 总经理：龙腾公司经营管理的法定代表人。负责对厂内各类合同管理工作实行统一领导。以法人代表名义或授权委托他人签订各类合法合同，并对电厂负责。4.2 工程部：是发电厂建设施工安装等工程合同签订管理部门；负责签订管理基建、安装、人工技术的工程合同。4.3 经营部：是合同签订管理部门，负责管理设备、材料、物资的订购合同。4.5 合同管理部门履行以下职责：4.5.1 建立健全合同管理办法并逐步完善规范；4.5.2 参与合同的洽谈、起草、审查、签约、变更、解除以及合同的签证、公证、调解、诉讼等活动，全程跟踪和检查合同的履行质量；4.5.3 审查、登记合同对方单位代表资格及单位资质，包括营业执照、经营范围、技术装备、信誉、越区域经营许可等证件及履约能力（必要时要求对方提供担保），检查合同的履行情况；4.5.4 保管法人代表授权委托书、合同专用章，并按编号归口使用；4.5.5 建立合同管理台帐，对合同文本资料进行编号统计管理；4.5.6 组织对法规、制度的学习和贯彻执行，定期向有关领导和部门报告工作；4.5.7 在总经理领导下，做好合同管理的其他工作，4.6 工程技术部：专职合同管理员及材料、燃料供应部兼职合同管理员履行以下职责：4.6.1 在主任领导下，做好本部门负责的各项合同的管理工作，负责保管“法人授权委托书”；4.6.2 签订合同时，检查对方的有关证件，对合同文本内容依照法规进行检查，检查合同标的数量、金额、日期、地点、质量要求、安全责任、违约责任是否明确，并提出补充及修改意见。重大问题应及时向有关领导报告，提出解决方案；4.6.3 对专业对口的合同统一编号、登记、建立台帐，分类整理归档。对合同承办部门提供相关法规咨询和日常协作服务工作；4.6.4 工程技术部专职合同管理员负责收集整理各类合同，建立合同统计台帐，并负责