作者:绿色风
分类:物流管理
时间:2022-08-18
浏览:267
楼主 amulee |
题目来自于BBWSJ。
山区有一个工厂.它的十个车间分散在一条环行的铁道上.四列货车在铁道上转圈运送货物。货车到了某一车间,就要有装卸工人装上或卸下货物.各车间由于工作量不同,所需装卸工人数也不同,各车间所需装卸工人数如图所示。当然,装卸工可以固定在车间等车;也可以坐在货车上跟车到各车间去干活;也可以一部分装卸工固定在车间,另一部分跟车.问题1:怎样安排跟车人数和各车间固定人数,才能使装卸工的总人数最少?问题2、每车跟几人?(设每车跟车的工人数相同) 统筹安排人数.rar
问题分析: 根据每个车站需要的人数,我们可以设跟车人数X,很明显,跟车人数最多就是各车站所需最大人数57,就能满足所有车站。当然,有些车站用不到这么多人。为了节约人,我们设定的跟车人数肯定少于这个数。采取遍历的方式,计算跟车人数从1到57,各车站还需多少人。从这些总人数中取一个最小值即可实现总人数最少。公式为: - =MIN(MMULT(TRANSPOSE(ROW(A2:A11)^0),--TEXT(B2:B11-TRANSPOSE(ROW(INDIRECT("A1:A"&MAX(B2:B11)))),"0;!0"))+TRANSPOSE(ROW(INDIRECT("A1:A"&MAX(B2:B11))))*4)
然后根据这个总人数,我们就可以倒推跟车人数。由于答案非唯一解,所以用下面公式下拉: - =LARGE(IF(MMULT(TRANSPOSE(ROW($A$2:$A$11)^0),--TEXT($B$2:$B$11-TRANSPOSE(ROW(INDIRECT("A1:A"&MAX($B$2:$B$11)))),"0;!0"))+TRANSPOSE(ROW(INDIRECT("A1:A"&MAX($B$2:$B$11))))*4=$B$13,TRANSPOSE(ROW(INDIRECT("A1:A"&MAX($B$2:$B$11))))),ROW(1:1))
当然,这个题还可以用VBA来解决,思路是一样的。 - Sub 跟车人数()
- Dim ArrYS, ArrJG() As Long, GC&, rsMax, strJG, rsMin
- ArrYS = Application.Transpose(Sheet1.Range("B2:B11"))
- rsMax = WorksheetFunction.Max(ArrYS)
- ReDim ArrJG(1 To rsMax) As Long
- For GC = 1 To rsMax
- For i = 1 To UBound(ArrYS)
- ArrJG(GC) = ArrJG(GC) + IIf((ArrYS(i) - GC) > 0, ArrYS(i) - GC, 0)
- Next i
- ArrJG(GC) = ArrJG(GC) + GC * 4
- Next GC
- rsMin = WorksheetFunction.Min(ArrJG)
- MsgBox "总人数最少为" & rsMin & "人"
- For GC = 1 To rsMax
- If ArrJG(GC) = rsMin Then
- strJG = strJG & "," & GC
- End If
- Next GC
- strJG = Right(strJG, Len(strJG) - 1)
- MsgBox "跟车人数可以为" & strJG
- End Sub
用Excel解决问题,我们不必知道其他知识。其实同统筹学的方法可以很容易的求出答案。 - =SUM(LARGE(B2:B11,ROW(1:4)))
但对于没有学过统计学的朋友们来说,Excel无异于一个有力的工具,可以解决许多问题。 |
2楼 wenshui2006 |
强,,用EXCEL来解决数学问题,,, |
3楼 windtide73 |
强 |
4楼 wangqilong1980 |
oooO ↘┏━┓ ↙ Oooo
( 踩)→┃踩┃ ←(踩 )
\ ( → ┃√┃ ← ) /
\_ )↗┗━┛↖(_ / |
5楼 jhcw18 |
,非常感谢 |
6楼 tonysun |
强 谢谢分享 |
7楼 qjwdw29 |
学习了**! |
8楼 ads |
学习了**! |
9楼 onsaix |
这个方面的话题的 都讨论一下蜂巢蜜 蜂蜜 蜂蜜美容 石斛 泡核桃 核桃 核桃苗 野菌子 野生菌 蘑菇 食用菌 恐龙 安卓游戏 赛果网 即时比分 黑河老坡 苗条术 美肤术 网盘 |
10楼 chenguanghui |
厉害啊 |
11楼 投桃报李 |
谢谢分享, |
12楼 王政172 |
岂止是强,简直就是强 |
13楼 fanglilian |
学习一下,自己也做一个玩玩 |
14楼 芐雨 |
学习 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素,
经与ExcelTip.Net站长Apolloh商议并征得其同意,
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示,
供有需要的人士查询使用,也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议,
可与本人沟通提出,或于本站点留言,我们会尽快处理。
在此,感谢ExcelTip.Net站长Apolloh的支持,感谢本站点所有人**绿色风(QQ:79664738)**的支持与奉献,特此鸣谢!
------本人网名**KevinChengCW(QQ:1210618015)**原ExcelTip.Net总版主之一