周易六十四卦蓍草卦模拟及概率研究

liucqa · 发表于 2014-9-27 17:14

换一下字体就连到一起了

aoe1981 · 发表于 2014-9-27 19:43

本帖最后由 aoe1981 于 2014-9-27 22:58 编辑

根据11楼建议修改后图如下：

aoe1981 · 发表于 2014-9-27 23:03

　　现在谈谈六十四卦中的概率问题：
　　目标：无变爻卦、一变爻卦、二变爻卦、三变爻卦、四变爻卦、五变爻卦、六变爻卦各自出现的概率。
　　基础：数字6、7、8、9（分别代表老阴、少阳、少阴、老阳，老变少不变，逢老生变爻）各自出现的基础概率。
　　这个基础概率lee1892算了一个版本，我感觉错了，重算了一个……
　　这是件不得了的事情，因为鄙愚是区区不足挂齿，对方是让人高山仰止的大家……
　　我的结果如下图：
　　

aoe1981 · 发表于 2014-9-27 23:04

我的详细理由见下帖51到54楼：
http://club.excelhome.net/forum. ... 863&pid=7871490

aoe1981 · 发表于 2014-9-27 23:09

今晚夜深了，明早还得上班，否则，真想连夜用我的本帖1楼附件做个500万次出现频率逼近概率测试……以验证孰对孰错……

geryjun · 发表于 2014-9-28 08:32

这个不错，有空学习一下。

aoe1981 · 发表于 2014-9-28 11:33

　　以下做了个概率测试，结果如图：
　　概率1.jpg

aoe1981 · 发表于 2014-9-28 11:35

感觉测试结果（5千万爻测试）说明理论概率计算存在某种偏差，也可能是测试的数量仍不太够的原因，但值得再次重新检测思考！测试代码如下：

Option Explicit
Public Sub gailv() '概率测试
Dim t%, d%, r%, i&, j%, scs%, ys1%, ys2%, js(6 To 9), ti! '天、地、人、蓍草数、余数、计数
ti = Timer
For i = 1 To 50000000 '五千万爻测试
scs = 49: r = 0
Randomize
For j = 1 To 3
r = r + 1
t = Int((scs - 1 - 1) * Rnd()) + 1
d = scs - 1 - t
ys1 = t Mod 4: If ys1 = 0 Then ys1 = 4
ys2 = d Mod 4: If ys2 = 0 Then ys2 = 4
t = t - ys1
d = d - ys2
r = r + ys1 + ys2
scs = t + d
Next j
js(scs / 4) = js(scs / 4) + 1
Next i
Sheets("概率测试").Range("d2").Resize(4) = Application.Transpose(js)
MsgBox Format(Timer - ti, "0.0000")
End Sub

复制代码

aoe1981 · 发表于 2014-9-28 11:35

　　测试附件如下：
　　

周易六十四卦（蓍草卦模拟）概率测试版.rar (21.67 KB, 下载次数: 28)

wswang02 · 发表于 2014-9-28 11:36

强, 顶楼主. 学习了!

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

[原创] 周易六十四卦蓍草卦模拟及概率研究

点评

评分

点评

浏览过的版块