[已解决]A列是一组0.47~0.63的随机数据，B列是1和0的随机值，1带便正确，0代表错误，如何算...

tgydslr · 发表于 2017-3-31 08:28

lbport 发表于 2017-3-30 16:05
哦，那代码是？

去vba去看看吧

香川群子 · 发表于 2017-3-31 20:56

Sub test()
Dim ar, i&, j&, k&, m&, n&, r#, s$, t&, tms#
tms = Timer
m = 10000
ar = [a1].Resize(m, 2)
For n = m * 3 / 10 To m * 35 / 100
t = 0
For i = 1 To n
t = t + ar(i, 2)
Next
If t / n > r Then r = t / n: s = " : i = " & i & " : n = " & n & " : r = " & Format(r, "0.0%")
For i = 2 To m - n + 1
t = t - ar(i - 1, 2) + ar(i, 2)
If t / n > r Then r = t / n: s = " : i = " & i & " : n = " & n & " : r = " & Format(r, "0.0%")
Next
Next
MsgBox Format(Timer - tms, "0.00s ") & s
End Sub

复制代码

lbport · 发表于 2017-4-1 10:26

香川群子发表于 2017-3-31 20:56

感谢你的回答！能稍微解释一下这个代码是什么意思吗?我按你的代码运行了一下返回结果 i=3167 n=3168 r=50.2%
意思是从B3167开始往下3168个数的平均值为最大，并且等于50.2%吗？
我算了一下从B3167：B6334的平均值是0.504894222 好像跟你的结果不一样啊。

香川群子 · 发表于 2017-4-1 13:43

本帖最后由香川群子于 2017-4-1 13:51 编辑

lbport 发表于 2017-4-1 10:26
感谢你的回答！能稍微解释一下这个代码是什么意思吗?我按你的代码运行了一下返回结果 i=3167 n=3168 ...

哦。不符合？那你上附件我确认一下。

lbport · 发表于 2017-4-1 14:14

香川群子发表于 2017-4-1 13:43
哦。不符合？那你上附件我确认一下。

好的

lbport · 发表于 2017-4-1 14:31

香川群子发表于 2017-4-1 13:43
哦。不符合？那你上附件我确认一下。

你好刚刚发的那个是我的另一份文件之前我说的那个，也发给你
还有如果数据不止10000，比如说有十万行，，我取N 的范围是30000~40000这样，代码应该怎么修改呢？

香川群子 · 发表于 2017-4-1 20:29

代码确实有bug，计算结果是错的。

更正如下：

Sub test()
Dim ar, i&, i1&, m&, m1&, m2&, n&, n1&, r#, s$, t&, t1&, tms#
tms = Timer
m = 10000 '设置数据总行数
ar = [a1].Resize(m, 2)
m1 = m / 10 * 3 '取值个数下限
m2 = m / 10 * 4 '取值个数上限
For n = m1 To m2 '在取值范围内设置取值个数n
t = 0
For i = 1 To n '遍历1-n得到起始n个数据的概率统计值
t = t + ar(i, 2)
Next
t1 = t: If t / n > r Then r = t / n: i1 = 1: n1 = n
For i = 1 To m - n '继续按取值n个进行位移遍历
t = t - ar(i, 2) + ar(i + n, 2) '位移时去掉第一个、加上最后1个，变成新的概率统计值
If t > t1 Then t1 = t: If t / n > r Then r = t / n: i1 = i + 1: n1 = n
Next
DoEvents
Application.StatusBar = Format(Timer - tms, "0.0s ") & Format((n - m1 + 1) / (m2 - m1 + 1), "0.0%")
Next
s = "i = " & i1 & " : n = " & n1 & " : r = " & Format(r, "0.00%")
[d1] = s: [d2] = i1: [d3] = n1
[d4] = "=SUM(B" & i1 & ":B" & i1 + n1 - 1 & ")": [d5] = "=D3/D2"
MsgBox Format(Timer - tms, "0.00s") & vbCr & s
End Sub

复制代码

注意：如果设置m=10万，那么耗时将指数级增加，大约需要运行1个小时。

lbport · 发表于 2017-4-2 09:07

本帖最后由 lbport 于 2017-4-2 16:30 编辑

香川群子发表于 2017-4-1 20:29
代码确实有bug，计算结果是错的。

更正如下：

你好，运行了你的代码，应该是正确的！谢谢了！
只是有一两处不是很明白，第十二行的t = 0  第十四行的t = t + ar(i, 2)，这个t难道是指B1到B(i-1）之和？
第十六行的 t1 = t: If t / n > r Then r = t / n: i1 = 1: n1 = n
和第二十行的 If t > t1 Then t1 = t: If t / n > r Then r = t / n: i1 = i + 1: n1 = n
也不是太了解。
还有第二十七行的[d5] = "=D3/D2"  你应该是想写成  [d5] = "=D4/D3" 吧。

比如说这样，我取一个30行的样本，即m=30 n取值5-9 ，即m1=5 m2=9能为我说明一下吗？
还有，如果我要求最小值，要怎么修改代码呢？

		自动登录	找回密码
密码			注册