1.前言
周易學了一段時間了，今天來分享一個針對梅花易起卦的輔助小演算法，前提是，讀者需要有一定的周易業務知識，
2.六十四卦的介紹
直奔主題，下面是我整理消化總結的一張圖：
3.卦象的解釋
4.梅花易起卦演算法介紹
參考地址:http://www.quanxue.cn/QT_XiaoYa/YiJing/YiJing06.html
5. PHP版梅花易起卦演算法實作
$keys = [
[
"坤為地",
"地天泰",
"地澤臨",
"地火明夷",
"地雷復",
"地風升",
"地水師",
"地山謙"
],
[
"天地否",
"乾為天",
"天澤履",
"天火同人",
"天雷無妄",
"天風姤",
"天水訟",
"天山遁"
],
[
"澤地萃",
"澤天夬",
"兌為澤",
"澤火革",
"澤雷隨",
"澤風中孚",
"澤水困",
"澤山咸"
],
[
"火地晉",
"火天大有",
"火澤睽",
"離為火",
"火雷噬嗑",
"火風鼎",
"火水未濟",
"火山旅"
],
[
"雷地豫",
"雷天大壯",
"雷澤歸妹",
"雷火豐",
"震為雷",
"雷風恒",
"雷水解",
"雷山小過"
],
[
"風地觀",
"風天小畜",
"風澤中孚",
"風火家人",
"風雷益",
"巽為風",
"風水渙",
"風山漸"
],
[
"水地比",
"水天需",
"水澤節",
"水火既濟",
"水雷屯",
"水風井",
"坎為水",
"水山旅"
],
[
"山地剝",
"山天大畜",
"山澤損",
"山火賁",
"山雷頤",
"山風蠱",
"山水蒙",
"艮為山"
]];
$binary_keys = [0x0, 0x7, 0x3, 0x5, 0x1, 0x6, 0x2, 0x4];
function validate($value)
{
return true;
}
function generateDiagrams($a, $b, $c)
{
global $keys, $binary_keys;
$diagrams = $sDiagrams = $hDiagrams = $bDiagrams = '';
if (validate([$a, $b, $c])) {
$a %= 8;
$b %= 8;
$c = $c % 6 === 0 ? 6 : $c % 6;
//本卦
$sDiagrams = $keys[$a][$b];
/**
* 互卦
* 上卦 3 4 5 爻
* 下卦 2 3 4 爻
*/
$diagrams = $binary_keys[$a] << 3 | $binary_keys[$b];
$upDiagramsKey = (0x1C & $diagrams) >> 2;
$downDiagramsKey = ($diagrams & 0xE) >> 1;
list($up_key, $down_key) = findKeyFromBinaryKeys($upDiagramsKey, $downDiagramsKey);
if ($up_key && $down_key) {
$hDiagrams = $keys[$up_key][$down_key];
}
//變爻
$diagrams = $diagrams ^ (0x1 << ($c - 1));
$upDiagramsKey = $diagrams >> 3;
$downDiagramsKey = $diagrams & 0x7;
list($up_key, $down_key) = findKeyFromBinaryKeys($upDiagramsKey, $downDiagramsKey);
if ($up_key && $down_key) {
$bDiagrams = $keys[$up_key][$down_key];
}
}
return [$sDiagrams, $hDiagrams, $bDiagrams];
}
function findKeyFromBinaryKeys($upKey, $downKey)
{
global $binary_keys;
return [array_search($upKey, $binary_keys), array_search($downKey, $binary_keys)];
}
var_dump(generateDiagrams(43, 82, 56));6. Excel宏實作
Sub 梅花易起卦()
Dim keys(8, 8) As String
keys(0, 0) = "坤為地"
keys(0, 1) = "地天泰"
keys(0, 2) = "地澤臨"
keys(0, 3) = "地火明夷"
keys(0, 4) = "地雷復"
keys(0, 5) = "地風升"
keys(0, 6) = "地水師"
keys(0, 7) = "地山謙"
keys(1, 0) = "天地否"
keys(1, 1) = "乾為天"
keys(1, 2) = "天澤履"
keys(1, 3) = "天火同人"
keys(1, 4) = "天雷無妄"
keys(1, 5) = "天風姤"
keys(1, 6) = "天水訟"
keys(1, 7) = "天山遁"
keys(2, 0) = "澤地萃"
keys(2, 1) = "澤天夬"
keys(2, 2) = "兌為澤"
keys(2, 3) = "澤火革"
keys(2, 4) = "澤雷隨"
keys(2, 5) = "澤風中孚"
keys(2, 6) = "澤水困"
keys(2, 7) = "澤山咸"
keys(3, 0) = "火地晉"
keys(3, 1) = "火天大有"
keys(3, 2) = "火澤睽"
keys(3, 3) = "離為火"
keys(3, 4) = "火雷噬嗑"
keys(3, 5) = "火風鼎"
keys(3, 6) = "火水未濟"
keys(3, 7) = "火山旅"
keys(4, 0) = "雷地豫"
keys(4, 1) = "雷天大壯"
keys(4, 2) = "雷澤歸妹"
keys(4, 3) = "雷火豐"
keys(4, 4) = "震為雷"
keys(4, 5) = "雷風恒"
keys(4, 6) = "雷水解"
keys(4, 7) = "雷山小過"
keys(5, 0) = "風地觀"
keys(5, 1) = "風天小畜"
keys(5, 2) = "風澤中孚"
keys(5, 3) = "風火家人"
keys(5, 4) = "風雷益"
keys(5, 5) = "巽為風"
keys(5, 6) = "風水渙"
keys(5, 7) = "風山漸"
keys(6, 0) = "水地比"
keys(6, 1) = "水天需"
keys(6, 2) = "水澤節"
keys(6, 3) = "水火既濟"
keys(6, 4) = "水雷屯"
keys(6, 5) = "水風井"
keys(6, 6) = "坎為水"
keys(6, 7) = "水山旅"
keys(7, 0) = "山地剝"
keys(7, 1) = "山天大畜"
keys(7, 2) = "山澤損"
keys(7, 3) = "山火賁"
keys(7, 4) = "山雷頤"
keys(7, 5) = "山風蠱"
keys(7, 6) = "山水蒙"
keys(7, 7) = "艮為山"
Dim binary_keys(8) As Integer
binary_keys(0) = &H0
binary_keys(1) = &H7
binary_keys(2) = &H3
binary_keys(3) = &H5
binary_keys(4) = &H1
binary_keys(5) = &H6
binary_keys(6) = &H2
binary_keys(7) = &H4
A = Sheet1.Range("H16").Value Mod 8
B = Sheet1.Range("I16").Value Mod 8
C = Sheet1.Range("J16").Value Mod 6
If (Not (CBool(C Xor 0))) Then
C = 6
End If
'本卦
Sheet1.Range("H21").Value = https://www.cnblogs.com/pitmanhuang/archive/2022/04/24/keys(A, B)'互卦'下卦 2 3 4 爻'上卦 3 4 5 爻
diagrams = binary_keys(A) * 2 ^ 3 Or binary_keys(B)
upDiagramsKey = (&H1C And diagrams) / 2 ^ 2
downDiagramsKey = (diagrams And &HE) / 2 ^ 1
For i = 0 To UBound(binary_keys) - 1If (Not (CBool(binary_keys(i) Xor upDiagramsKey))) Then
up_key = i
End IfIf (Not (CBool(binary_keys(i) Xor downDiagramsKey))) Then
down_key = i
End IfNext i
Sheet1.Range("I21").Value = https://www.cnblogs.com/pitmanhuang/archive/2022/04/24/keys(up_key, down_key)'變爻
diagrams = diagrams Xor (&H1 * 2 ^ (C - 1))
upDiagramsKey = diagrams / 2 ^ 3
downDiagramsKey = diagrams And &H7
For i = 0 To UBound(binary_keys) - 1If (Not (CBool(binary_keys(i) Xor upDiagramsKey))) Then
up_key = i
End IfIf (Not (CBool(binary_keys(i) Xor downDiagramsKey))) Then
down_key = i
End IfNext i
Sheet1.Range("J21").Value = https://www.cnblogs.com/pitmanhuang/archive/2022/04/24/keys(up_key, down_key)
End Sub7.參考
http://www.quanxue.cn/
本文來自博客園，作者：淙淙溪流，轉載請注明原文鏈接：https://www.cnblogs.com/pitmanhuang/p/16186983.html
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/463467.html
標籤：其他