[已解决]VBA如何把21分解为5个整数之和

vbyou127

VBA如何把21分解为5个整数之和

如何把21分解为5个整数之和,同时把分解的5个整数排列在圆周上，

使得沿圆圈相连的若干个(1~5个)整数之和覆盖区间[1,21]中的所有整数

最佳答案

月排行榜 / 总排行榜

香川群子

2016-3-31 14:37

已经编程算出来了。满足条件的只有2组。且是镜像的。

1        3        10        2        5
1        5        2        10        3

跳转到最佳答案楼层

蝶·舞

1. 分解的5个整数排列在圆周上

复制代码

这话啥意思？

vbyou127

蝶·舞 发表于 2016-3-29 19:13
这话啥意思？

和为1个整数，共5个
和为2个相连整数，共5个，
和为3个相连整数，共...
后面同理

wp8680

反正我没搞明白，做了一半

1. Private Sub UserForm_Initialize()
   
2. 
   
3.     Dim a1, i%
   
4.     a1 = Array(0.294755174410904, 0.955572805786141, 0.563320058063622, 0.826238774315995, 0.78183148246803, 0.623489801858734, 0.930873748644204, 0.365341024366395, 0.99720379718118, 7.47300935864244E-02, 0.974927912181824, -0.222520933956314, 0.866025403784439, -0.5, 0.680172737770919, -0.733051871829826, 0.433883739117558, -0.900968867902419, 0.149042266176175, -0.988830826225129, -0.149042266176174, -0.988830826225129, -0.433883739117558, -0.900968867902419, -0.680172737770919, -0.733051871829826, -0.866025403784438, -0.5, -0.974927912181824, -0.222520933956314, -0.99720379718118, 7.47300935864244E-02, -0.930873748644204, 0.365341024366395, -0.78183148246803, 0.623489801858733, -0.563320058063622, 0.826238774315995, -0.294755174410905, 0.955572805786141, -2.45029690981724E-16, 1)
   
5.     For i = 0 To 41 Step 2
   
6.         Me.Controls("Label" & 1 + Int(i / 2)).Caption = Format(Int(i / 2), "00")
   
7.         Me.Controls("Label" & 1 + Int(i / 2)).Left = a1(i) * 100 + 120
   
8.         Me.Controls("Label" & 1 + Int(i / 2)).Top = a1(i + 1) * 100 + 120
   
9.     Next i
   
10. '    Shape1.Left = 1000
    
11. '    Shape1.Top = 1000
    
12. '    Shape1.Height = 6200
    
13. '    Shape1.Width = 6200
    
14.     Me.Height = 260
    
15.     Me.Width = 260
    
16. 
    
17. End Sub

复制代码

vbyou127

wp8680 发表于 2016-3-29 22:22
反正我没搞明白，做了一半

哪里不明白

香川群子

这个最简单了。

1、2、4、8、16……这样的2倍数序列，可以完整覆盖[1,31]区域内的所有整数。

对于[1,21]区间来说，这样的组合就会有很多了。
如：1、2、4、8、[6-16都可以]

具体计算一下，5个数总和=21的有10组：
+11+4+3+2+1……满足
+10+5+3+2+1……满足
+9+6+3+2+1……满足
+9+5+4+2+1……满足
+8+7+3+2+1……满足
+8+6+4+2+1……满足
+8+5+4+3+1……缺2、19
+7+6+5+2+1……缺4、17
+7+6+4+3+1……缺2、19
+7+5+4+3+2……缺1、20

其中只有前6组满足覆盖[1,21]区间所有整数的条件。

vbyou127

香川群子 发表于 2016-3-30 10:47
这个最简单了。

1、2、4、8、16……这样的2倍数序列，可以完整覆盖[1,31]区域内的所有整数。

你还没有亮出代码来

wp8680

香川群子 发表于 2016-3-30 10:47
这个最简单了。

1、2、4、8、16……这样的2倍数序列，可以完整覆盖[1,31]区域内的所有整数。

你牛，但是我笨，就是不明白什么叫缺二个数，什么叫覆盖。

香川群子

wp8680 发表于 2016-3-30 13:00
你牛，但是我笨，就是不明白什么叫缺二个数，什么叫覆盖。

我也是瞎猜的。

可能未必是楼主心里面真正想要的结果。

香川群子

vbyou127 发表于 2016-3-30 12:33
你还没有亮出代码来

如果理解正确，那么做法很简单:

1. 取21选5组合=Combin(21,5)=20349种组合。

2. 每个组合检查=2^5-1=31种全组合。

3. 检查是否覆盖[1-21]集合范围。

以上。


算法可以简化，因为1和2是必须含有的。
所以只需检查=Combin(19,3)=969种组合，得到和=21的有8个组合。
然后检查=2^5-1=31种全组合，是否覆盖[1-21]集合范围。