计算题：重心法选址、因次分析法选址课件

重心法选址计算公式物流在物流规划中，选址是一个至关重要的环节。

选址的好坏直接影响到物流运作的效率和成本。

重心法是一种常用的选址计算方法，通过重心法选址计算公式，可以帮助物流规划者找到最优的选址方案。

本文将介绍重心法选址计算公式及其在物流规划中的应用。

重心法选址计算公式是一种基于地理信息的选址计算方法。

它通过对物流需求点的地理位置进行加权平均，找到一个最佳的选址点，使得整个物流网络的运作成本最低。

重心法选址计算公式的基本原理是，通过对各个需求点的地理位置进行加权平均，找到一个最佳的选址点，使得整个物流网络的运作成本最低。

其计算公式如下：重心X坐标 = Σ(需求点X坐标需求量) / Σ需求量。

重心Y坐标 = Σ(需求点Y坐标需求量) / Σ需求量。

其中，需求点X坐标和Y坐标分别表示需求点的地理位置坐标，需求量表示该需求点的物流需求量。

通过这个公式，可以计算出一个最佳的选址点，使得整个物流网络的运作成本最低。

重心法选址计算公式在物流规划中有着广泛的应用。

首先，它可以帮助物流规划者找到最优的物流中心位置，使得整个物流网络的运作成本最低。

其次，它可以帮助物流规划者进行物流网络的优化设计，使得物流运作更加高效和便捷。

此外，重心法选址计算公式还可以帮助物流规划者进行物流需求预测，使得物流运作更加精准和有效。

在实际应用中，重心法选址计算公式需要结合具体的物流需求和地理信息进行计算。

首先，需要对物流需求点的地理位置进行调查和收集，包括需求点的X坐标和Y坐标以及需求量。

然后，根据这些数据，利用重心法选址计算公式进行计算，找到一个最佳的选址点。

最后，需要对选址点进行评估和验证，确保选址方案的可行性和有效性。

在使用重心法选址计算公式进行物流规划时，还需要考虑一些因素。

首先，需要考虑物流需求点的分布情况，以及各个需求点的地理位置和需求量。

其次，需要考虑物流运输的成本和效率，找到一个最佳的选址点，使得整个物流网络的运作成本最低。

重心法选址计算的步骤
嘿，咱今儿来聊聊重心法选址计算的步骤哈！这可真是个有意思的事儿呢！
你想想看啊，就好比你要给你的宝贝店铺找个最合适的地儿，就像给它安个最舒服的家一样。

那怎么找呢？这重心法就派上用场啦！
第一步呢，就是得把那些相关的地点都给找出来。

这就好像是把一堆珍珠给捡出来，每个地点都是一颗闪亮的珍珠呢！然后呢，给每个地点都标上坐标，这坐标可重要啦，就像给每个珍珠都编上号一样。

接下来，再把每个地点的权重给考虑进去。

啥是权重？嘿嘿，就好比有的地方特别重要，那就得给它多加点分量呗！这就好像是有的珍珠特别大特别亮，那咱就得更重视它呀！
然后呢，开始计算啦！把那些坐标和权重都放到一块儿，就像把各种调料放到锅里一样，要慢慢搅拌、慢慢算。

这过程可不能马虎，得细心细心再细心！
算着算着，嘿，一个大概的位置就出来啦！这就是重心的位置呀，就像是找到了那锅汤最香的地方。

你说神奇不神奇？
你可能会问啦，这准不准呀？哎呀，当然不会百分百准啦，但它可是给咱提供了一个很重要的参考呢！就像你走路有个大致的方向，总比瞎转悠强吧！
咱再想想啊，这重心法就像个神奇的指南针，带着我们在选址的大海里航行。

要是没有它，那咱不得像无头苍蝇一样乱撞呀！而且呀，这计算的过程就像是玩一个有趣的游戏，每一步都充满了挑战和乐趣呢！
你说，学会了这重心法选址计算的步骤，是不是感觉自己就像有了超能力一样？可以找到那个最最适合的地方，让你的事业或者生活像开了挂一样顺利呢！所以呀，可别小瞧了这小小的步骤，里面可蕴含着大大的智慧呢！咱可得好好掌握，让它为咱服务呀！怎么样，是不是觉得挺有意思的？赶紧去试试吧！。

2单设施重心法选址2. 1实验目掌握单设施重心法选址原理，能够计算简单选址题目中待选设施位置; 掌握单设施重心选址算法流程，能够设计类似题目算法流程，并编写程序。

2. 2实验过程(1)单设施重心法选址原理重心法选址模型示意图如图2-1所示。

图2-1单设施重心法选址选址示意图求解目标：C-总成本最低MinC^fy i d li=\其中：f厂序号为i点运输费率；V厂序号为i点产量或者销量；d厂序号为i点到待选设施点相对距离。

待选设施位置计算公式：（丈- 7=1（土少//）(工邪/〃「)/=!其中：Xc-重心X坐标;Yc-重心Y坐标；X厂第i个地点X坐标；Y厂第i个地点Y坐标；4 7以厂£$ +(Z•-〃iyX(2)算法流程图，如图2-2所示。

图2-2算法流程图2. 3实验结果(1)单设施重心法选址程序参数设定及其求解界面如图2-3所示。

图2-3单设施重心法选址程序参数设定及其求解界面(2)参数设定及其求解界面变量声明部分(代码)Private Sub Commandl_Click()If Textl. Text 二"” ThenMsgBox 〃X-横坐标不允许为空〃Textl・ SetFocusExit SubElself IsNumeric(Textl・Text)二False ThenMsgBox 〃X-横坐标必须为数值型数据！〃Textl. Text 二"”Textl・ SetFocusExit SubEnd IfIf Text2・Text 二"” ThenMsgBox 〃Y-纵坐标不允许为空〃Text2・ SetFocusExit SubElself IsNumeric(Text2・Text)二False Then MsgBox 〃Y-纵坐标必须为数值型数据！〃Text2.Text ="”Text2・ SetFocusExit SubEnd IfIf Text3. Text 二ThenMsgBox 〃产量或销量不允许为空〃Text3・ SetFocusExit SubElself IsNumeric(Text3.Text)二False Then MsgBox 〃产量或销量应为数值型数据！〃Text3. Text ="”Exit SubMsgBox "产量或销量应为正数，否则无实际意义!Text3. Text 二Text3・ SetFocusExit SubEnd IfIf Text4.Text 二ThenMsgBox 〃运输费率不允许为空〃Text4. SetFocusExit SubElself IsNumeric(Text4・Text)二False Then MsgBox 〃运输费率应为数值型数据！”Text4. Text =Text4. SetFocusExit SubElself Vai(Text4. Text) < 0 ThenMsgBox 〃运输费率应为正数，否则无实际意义！”Text4. Text =Exit Sub End IfMsgBox 〃X0-横坐标不允许为空〃Text5・ SetFocusExit SubElself IsNumeric(Text5.Text)二False Then MsgBox 〃X0-横坐标必须为数值型数据！〃Text5. Text ="”Text5・ SetFocusExit SubEnd IfIf Text6. Text = "” ThenMsgBox 〃丫0-纵坐标不允许为空〃Text6・ SetFocusExit SubElself IsNumeric(Text6・Text)二False Then MsgBox 〃Y0-纵坐标必须为数值型数据！〃Text6. Text =Text6・ SetFocusExit SubEnd IfMsgBox 〃精度不允许为空〃Text7. SetFocusExit SubElself IsNumeric(Text7. Text) = False ThenMsgBox 〃精度应为数值型数据！〃Text7. Text ="”Text7. SetFocusExit SubElself Vai (Text7. Text) < 0 ThenMsgBox 〃精度应为正数，否则无实际意义！〃Text7. Text ="”Text7. SetFocusExit SubEnd IfFor i = 1 To Listl. ListCountIf Tex tl .Text = Vai (Listl. Lis t(i - 1)) And Tex t2. Text = Vai (List2. List(i - 1)) ThenMsgBox 〃及第〃 & i & 〃输入坐标值相同，请重新输入〃Textl.Text 二"”Text2.Text ="”Text3. Text ="”Text4. Text =""Textl. SetFocusExit SubEnd IfNext iList 1・Additem Textl.TextList2.AddItem Text2・TextList3・Addltem Text3.TextList4. Addltem Text4・TextTextl. Text 二"”Text2. Text ="”Text3.Text ="”Text4. Text =Textl・ SetFocusIf Listl・ ListCount ＞二 2 Then Command2・ Enabled 二True End IfEnd SubPrivate Sub Command2_Click()Xc = Vai(Text5. Text)Yc = Vai(Text6. Text)JD = Vai(Text7. Text)Dim SumCO As DoubleDim SumCN As DoubleDim Sumi As DoubleDim Sum2 As DoubleDim Sum3 As DoubleFor j = 1 To 10000SumCO 二0SumCN 二0Sumi 二0Sum2 二0Sum3 二0For i 二 1 To Listl・ListCountdi = Sqr ((Xc - Vai (Listl. List (i - 1))) " 2 + (Yc - Vai (List2. List (i - 1))) " 2)'距离公式SumCO 二SumCO + Val (List3・ List(i - D)* Val(List4. List(i - 1)) * diSumi 二Sumi + (Val (Listl.List(i - D)*Val (List3. List(i - 1)) * Val(List4.List(i - 1))) / diSum2 二Sum2 + (Val (List2. List(i - D)* Val (List3. List(i - 1)) * Val (List4. List(i - 1))) / diSum3 二Sum3 + (Val (List3・ List(i 一D)* Vai (List4. List(i - 1))) / diNext iXc = Sumi / Sum3Yc = Sum2 / Sum3For i 二 1 To Listl・ ListCountdi = Sqr ((Xc - Vai (Listl. List (i - 1))) 2 + (Yc - Vai (List2. List(i - 1)))八2)SumCN = SumCN + Vai (List3. List (i - 1)) * Vai (List4. List(i - 1)) * diNext iIf (SumCO - SumCN) <= JD ThenTextS・ Text 二XcText9. Text 二YcTextlO. Text 二SumCNTextl1. Text 二jExit ForEnd IfNext jEnd SubPrivate Sub Listl_Click()For i 二 1 To Listl・ListCountIf Listl・Selected(i - 1)二True Thenh = InputBoxC请输入要改参数参数修正〃)If h <> And IsNumeric (h)二True ThenListl. List (i - 1) = hElse: MsgBox 〃输入数据必须为数值型数据〃End IfEnd IfNext iEnd SubPrivate Sub List2_Click()For i = 1 To List2. ListCountIf List2.Selected(i - 1) = True Thenh = InputBoxC"请输入要改参数：“，〃参数修正〃)If h <> "” And IsNumeric(h) = True ThenList2. List (i - 1) = hElse： MsgBox 〃输入数据必须为数值型数据〃End IfEnd IfNext iEnd SubPrivate Sub List3_Click()For i = 1 To List3. ListCountIf List3.Selected(i - 1) = True Thenh = InputBoxC请输入要改参数:;'参数修正〃）If h <> "” And IsNumeric (h) = True And Vai (h) > 0 Then List3. List (i - 1) = hElse： MsgBox 〃输入数据必须为数值型数据〃End IfEnd IfNext iEnd SubPrivate Sub List4_Click()For i = 1 To List4. ListCountIf List4.Selected(i - 1) = True Thenh = InputBoxC"请输入要改参数：〃，〃参数修正〃)If h <> And IsNumeric (h) = True And Vai (h) > 0 Then List4. List (i - 1)二hElse: MsgBox 〃输入数据必须为数值型数据〃End IfEnd IfNext iEnd Sub (3)单设施重心法选址程序求解结果如图2-4所示。