六十四卦的概率

aoe1981

两个中位，下阴上阳。

aoe1981

现在到了与楼主要求相关的地方：
“第一种情况：算出来的六爻当中只有一个爻是变爻，也就是说，6个数字中有5个不是7就是8，只有1个是9或者6，这个时候，就用本卦变爻的爻辞来判断吉凶。
　　        第二种情况：有两个变爻，这就是我们方才遇到的情况，这里就不再赘述了。
　　        第三种情况：有三个变爻，就不能用变爻的爻辞来判断了，得用本卦和变卦的卦辞，以本卦的卦辞为主。
　　        第四种情况：有四个变爻，这时就用变卦的两个不变爻的爻辞来判断吉凶。
　　        第五种情况：有五个变爻，用变卦的那一个不变爻的爻辞来判断吉凶。
　　        第六种情况：有六个变爻，这得分两种情况。一是六爻都是阳爻（构成了乾卦），或者六爻都是阴爻（构成了坤卦），那么，如果是乾卦，就用乾卦“用九”的爻辞判断吉凶，如果是坤卦，就用坤卦“用六”的爻辞判断吉凶。（什么是“用九”和“用六”，下文再仔细说。）二是除了这两种情况之外的其他六爻全变的情况，就用变卦的卦辞来判断吉凶。
　　        第七种情况：六爻一个都没变，这时用本卦的卦辞来判断吉凶。”

aoe1981

和数学沾边了：
“其实，金钱卦虽然一度很普及，很流行，却在根子上犯了一个重大错误。
　　        什么错误呢？
　　        ——本来，金钱卦是蓍草算法的简便替代方法，可古人却不知道，三枚铜钱的落地和四十九根蓍草的演算，这两者的出卦概率是完全不一样的。简单打个比方：如果用最传统的蓍草算法，得到乾卦九五爻的概率是万分之一；而用金钱卦来算，得到同样这个爻的概率却变成了千分之五。也就是说，金钱卦其实是根本无法取代传统的蓍草算法的，嗯，对数学有兴趣的朋友不妨自己算一算这道题。”

cbtaja

建议版主或监察请将此贴移贴到休闲版

xd3210

香川群子 发表于 2013-7-26 10:56
如果 64卦 的总概率 为=1

而且 这 64卦的出现概率各自可能不同的话，

数学脑袋，太明白了！

aoe1981

写了一段蓍草卦模拟代码：

1. Option Explicit
   
2. Dim n%, m%, pd As Boolean
   
3. Public Sub zy64g()
   
4. Dim t%, d%, r%, i%, j%, scs%, ys1%, ys2%, xiaox '天、地、人、蓍草数、余数、消息
   
5. For i = 1 To n
   
6.     scs = 49
   
7.     xiaox = "　　　蓍草数　　天　　地　　人" & Chr(10)
   
8.     For j = 1 To 3
   
9.         r = r + 1
   
10.         t = Int((scs - 1 - 1) * Rnd()) + 1
    
11.         d = scs - 1 - t
    
12.         If pd Then xiaox = xiaox & "　　　　" & scs - 1 & "　　　" & t & "　　" & d & "　　" & r & Chr(10)
    
13.         ys1 = t Mod 4: If ys1 = 0 Then ys1 = 4
    
14.         ys2 = d Mod 4: If ys2 = 0 Then ys2 = 4
    
15.         t = t - ys1
    
16.         d = d - ys2
    
17.         r = r + ys1 + ys2
    
18.         scs = t + d
    
19.         If pd Then xiaox = xiaox & Choose(j, "一变", "二变", "三变") & "　　" & scs & "　　　" & t & "　　" & d & "　　" & r & Chr(10)
    
20.     Next j
    
21.     If pd Then MsgBox xiaox, , "友情提示"
    
22.     Range("g7").Offset(-i + 1 - m).Value = scs / 4
    
23. Next i
    
24. End Sub
    
25. 
    
26. Public Sub yigua() '求一卦
    
27. n = 6: m = 0: pd = False
    
28. Range("g2:g7") = ""
    
29. Call zy64g
    
30. End Sub
    
31. 
    
32. Public Sub yiyao() '求一爻
    
33. n = 1: pd = True
    
34. m = WorksheetFunction.Count(Range("g2:g7"))
    
35. If m = 6 Then Range("g2:g7") = "": m = 0
    
36. Call zy64g
    
37. End Sub
    

复制代码

aoe1981

　　附件如下：
　　 周易六十四卦（蓍草卦模拟）.rar (15.01 KB, 下载次数: 129)

2014-9-26 21:49 上传

点击文件名下载附件

　　《周易江湖》帖尚未看完，只看了算卦的一部分，做一个模拟附件，是初步的……关于概率，再行研究。

aoe1981

34楼建议移帖，可能主要是我的缘故，与楼主无关，请版主大度谅解……基础研究一二后，我会将其拉向Excel的方向……当然，与宣扬迷信无关，我只撷取其中数理部分……更主要的是，其实，关于“爻辞”与“卦辞”，却是陌生得紧！！！

aoe1981

所谓“蓍草卦”，是原汁原味的，初始的占卦方法，与后来便捷的“金钱卦”相对应，详见《周易江湖》帖！！！

aoe1981

关于无变爻、一变爻、二变爻、三变爻、四变爻、五变爻、六变爻的各自的概率有多少，理论上的概率暂时我还没有任何眉目，但可以用我的37楼的附件改造成测试假设500万次的出现频率以逼近的方法估计……呵呵