剩余定律的自定义函数解法

Albert128

chenzyyysl 发表于 2012-5-14 09:15
Sub sss()
    Dim d As Integer, n As Integer, h As Integer, i As Integer
    i = 1

非常感谢老师的帮助，小弟不知是哪里考虑有欠妥？

chenzyyysl

按F8，单步执行，看看和你想的是不是一样

Albert128

chenzyyysl 发表于 2012-5-14 09:00
Sub sss()
    Dim d As Integer, n As Integer, h As Integer
    For d = 1 To 100

Abs(d * 4 + n * 2 + h / 4 - 100) < 0.00001 与d * 4 + n * 2 + h / 4 = 100 有啥区别？

香川群子

chenzyyysl 发表于 2012-5-14 09:15
Sub sss()
    Dim d As Integer, n As Integer, h As Integer, i As Integer
    i = 1

挑个毛病：

运行结果，少了一组合理解：男 20人，女 0人，小孩 80人。


代码循环，应该从0开始。

1. Sub kagawa()
   
2.     Dim d%, n%, h%, j%
   
3.     [a1:c1] = Array("d(4)", "n(2)", "h(1/4)")
   
4.     i = 1
   
5.     For d = 0 To 100
   
6.         For n = 0 To 100 - d
   
7.             h = 100 - d - n
   
8.             If d * 4 + n * 2 + h / 4 = 100 Then '已经定义数据类型为整数变量了，所以不需要ABS误差判断。
   
9.                 i = i + 1
   
10.                 Cells(i, 1) = d
    
11.                 Cells(i, 2) = n
    
12.                 Cells(i, 3) = h
    
13.             End If
    
14.         Next
    
15.     Next
    
16. End Sub
    
17. 
    

复制代码

chenzyyysl

改这2个，for n=0 to 100-d, 同样 for d=0 to 100,
这样就不会少了不全的人群组合

chenzyyysl

Albert128 发表于 2012-5-14 13:57
Abs(d * 4 + n * 2 + h / 4 - 100) < 0.00001 与d * 4 + n * 2 + h / 4 = 100 有啥区别？

考虑浮点误差，否则有时会产生问题。
具体到这个地方，估计问题不大，你那个写法简单些

chenzyyysl

这个不确定，h/4 应当自动转为浮点，所以我猜可能会有。而浮点误差较难验证，多数是遇到才知道。

香川群子

Albert128 发表于 2012-5-13 21:14
您好!
本人学习了您的思路,求如下的问题不能如愿,请帮助,谢谢!
有100个人,其中:大男人d个,女人n个,小孩 ...

你的代码错误，原因在于n变量没有循环变化。

…………

下面，顺便用数学方法分析一下本题：

题目：
有100个人,其中:男人d个,女人n个,小孩h个;
现来搬100块砖，每个男人可搬4块，每个女人可搬2块，4个小孩共抬一块。
问100人中，男人，女人和小孩各自有多少人?


分析：
100个人100块砖，则平均正好1个人搬1块砖。
但可知，男人和女人搬运能力都是大于1的，只有小孩搬运能力小于1。

因此，肯定是4个小孩一组，然后分别和x个男人或y个女人组成1大组。

x个男人时，有人数： 4+x  = 1+4x （砖块数）
解一元一次方程得： x=1

即，1个男人和4个小孩成为一组时，是每5个人搬5块砖。


y个女人时，有人数： 4+y  = 1+2y （砖块数）
解一元一次方程得： y=3

即，3个女人和4个小孩成为一组时，是每7个人搬7块砖。


…………
到这里，可以知道，100个人搬100块砖，
可以把他们分为5人组x组的 p个组，以及7人组y组的 q个组。

列方程为 5p+7q=100
要求p、q都是整数。

则有： p = (100-7q)/5 = 20-q-0.4q
按整数解要求，则0.4q应为整数，即：0.4q=z，4q=10z，2q=5z，则可知q应该是5的整数倍。


…………
接下来就好解了：
  q     p          男d=p     女n=3q     小孩h=4p+4q
   0    20          20              0            =80
   5    13          13             15           =52+20=72
  10    6             6             30           =24+40=64
  15   -1 (无解)


以上为数学解析过程。

Albert128

谢谢老师们热情的讲解.

香川群子

chenzyyysl 发表于 2012-5-14 14:14
这个不确定，h/4 应当自动转为浮点，所以我猜可能会有。而浮点误差较难验证，多数是遇到才知道。

h/4计算结果=0.25、0.5、0.75、1

在100以内计算，不会产生浮点误差。

你的浮点误差担心，是多余的。