1-20个数选3个不同的数，求这3个的平均数出现的概率

HNZLF

从1到20共20个数，取三个不同的数（或相同的数）且平均，如何用VBA计算这个平均数出现的概率用穷举法如何过滤掉相同的,原来已抽取过的三个数
如: a=1 b=2 c=3 如何过滤掉 a=2 b=1 c=3

microyip

抽出来以后进行一次排序然后组一个字典来排查相同

hhjjpp

vba很容易，这样的数据规模，公式也行！

香川群子

m = 1 - 20 組合計算
求和範囲 h = 6 to 57
0.009438s
  h=  6     1
  h=  7     1
  h=  8     2
  h=  9     3
  h=  10     4
  h=  11     5
  h=  12     7
  h=  13     8
  h=  14     10
  h=  15     12
  h=  16     14
  h=  17     16
  h=  18     19
  h=  19     21
  h=  20     24
  h=  21     27
  h=  22     30
  h=  23     33
  h=  24     36
  h=  25     38
  h=  26     40
  h=  27     42
  h=  28     43
  h=  29     44
  h=  30     45
  h=  31     45
  h=  32     45
  h=  33     45
  h=  34     44
  h=  35     43
  h=  36     42
  h=  37     40
  h=  38     38
  h=  39     36
  h=  40     33
  h=  41     30
  h=  42     27
  h=  43     24
  h=  44     21
  h=  45     19
  h=  46     16
  h=  47     14
  h=  48     12
  h=  49     10
  h=  50     8
  h=  51     7
  h=  52     5
  h=  53     4
  h=  54     3
  h=  55     2
  h=  56     1
  h=  57     1
n= 3     cnt=1,140
全部 1,140 個解。

香川群子

概率算一下：

总和	组合个数	概率
6	1	0.0877%
7	1	0.0877%
8	2	0.1754%
9	3	0.2632%
10	4	0.3509%
11	5	0.4386%
12	7	0.6140%
13	8	0.7018%
14	10	0.8772%
15	12	1.0526%
16	14	1.2281%
17	16	1.4035%
18	19	1.6667%
19	21	1.8421%
20	24	2.1053%
21	27	2.3684%
22	30	2.6316%
23	33	2.8947%
24	36	3.1579%
25	38	3.3333%
26	40	3.5088%
27	42	3.6842%
28	43	3.7719%
29	44	3.8596%
30	45	3.9474%
31	45	3.9474%
32	45	3.9474%
33	45	3.9474%
34	44	3.8596%
35	43	3.7719%
36	42	3.6842%
37	40	3.5088%
38	38	3.3333%
39	36	3.1579%
40	33	2.8947%
41	30	2.6316%
42	27	2.3684%
43	24	2.1053%
44	21	1.8421%
45	19	1.6667%
46	16	1.4035%
47	14	1.2281%
48	12	1.0526%
49	10	0.8772%
50	8	0.7018%
51	7	0.6140%
52	5	0.4386%
53	4	0.3509%
54	3	0.2632%
55	2	0.1754%
56	1	0.0877%
57	1	0.0877%
n= 3	1140	100.0%

microyip

香川群子 发表于 2016-11-10 08:57
m = 1 - 20 組合計算
求和範囲 h = 6 to 57
0.009438s

真怀疑你是不是数学系的或者教数学的，这些数学问题这么腻害

hhjjpp

HNZLF

hhjjpp 发表于 2016-11-10 11:49

谢谢了！学习下，请问如何用VBA来实现？
数据量大点，1到20只是想要个例子。

hhjjpp

HNZLF 发表于 2016-11-10 21:53
谢谢了！学习下，请问如何用VBA来实现？
数据量大点，1到20只是想要个例子。

1. Private Sub CommandButton1_Click()
   
2. Dim arr, d, n%, i&, j&, k&, temp
   
3. n = [a65536].End(xlUp).Row
   
4. arr = [a1].Resize(n)
   
5. Set d = CreateObject("scripting.dictionary")
   
6. For i = 1 To n
   
7.     For j = i To n
   
8.         For k = j To n
   
9.             temp = (arr(i, 1) + arr(j, 1) + arr(k, 1)) / 3 & ""
   
10.             d(temp) = d(temp) + 1
    
11.         Next
    
12.     Next
    
13. Next
    
14. [c6].Resize(d.Count) = Application.Transpose(d.keys)
    
15. [d6].Resize(d.Count) = Application.Transpose(d.items)
    
16. [c6].Resize(d.Count, 2).Sort [c6]
    
17. End Sub
    

复制代码

hhjjpp