|
引用 | 編輯
劉宗巖
2007-06-24 18:20 |
樓主
▼ |
||
x0
本卦無元神，動爻所變出的不算，年月日算如何寫，及元神的旺相休囚，空破墓絕 另外伏神，伏在初爻如何寫，及伏神的旺相休囚，空破如何寫，是不是和本卦一樣 世爻在第幾爻如何寫，如世爻在三爻 用神或六親多現，兩個以上如何寫(包括年月日變爻)，個指令執行錯誤 化墓化絕化空化破，只有一到六爻，請再加世、應化墓化絕化空化破 用神入墓於年月日，請再加其他六親入墓於年月日 世爻入墓於年月日，這個指令執行錯誤 麻煩你 謝謝  x0
|
|||
|
引用 | 編輯
mainchen
2007-06-25 17:46 |
1樓
▲ |
|
使用下列範例, 請更新到 v1.192 版以後.
本卦不出現的六親，不限何爻, 如子孫或妻財, 不在六爻內，也就是本卦所缺的六親，動爻所變出的不算，年月日算如何寫，如乾宮天風姤卦缺妻財 複製程式 計數
迴圈:i=0 到 4
設定:六親數量[i]=0
迴圈:b=0 到 4
設定:六親數量[本卦.#{卦爻$(b)}#的六親]=六親數量[本卦.#{卦爻$(b)}#的六親]+1
如果:卜卦.#{卜卦六親$(b)}#的五行是:卜卦年支的五行,卜卦月支的五行,卜卦日支的五行
設定:六親數量[卜卦#{卜卦六親$(b)}#]=六親數量[卜卦#{卜卦六親$(b)}#]+1
顯示
迴圈:i=0 到 4
應用
如果:六親數量[卜卦父母]=0
如果:六親數量[卜卦兄弟]=0
如果:六親數量[卜卦子孫]=0
如果:六親數量[卜卦妻財]=0
如果:六親數量[卜卦官鬼]=0本卦無元神，動爻所變出的不算，年月日算如何寫，及元神的旺相休囚，空破墓絕 複製程式 無元神
計數
迴圈:i=0 到 4
設定:五行數量[i]=0
迴圈:b=0 到 5
設定:五行數量[本卦.#{卦爻$(b)}#的五行]=五行數量[本卦.#{卦爻$(b)}#的五行]+1
如果:卜卦.元神的五行=卜卦年支的五行
設定:五行數量[卜卦.元神的五行]=五行數量[卜卦.元神的五行]+1
如果:卜卦.元神的五行=卜卦月支的五行
設定:五行數量[卜卦.元神的五行]=五行數量[卜卦.元神的五行]+1
如果:卜卦.元神的五行=卜卦日支的五行
設定:五行數量[卜卦.元神的五行]=五行數量[卜卦.元神的五行]+1
設定:無元神=(五行數量[卜卦.元神的五行]=0)
顯示
迴圈:i=0 到 4
如果:無元神
旺相
如果:卜卦.#{五行$(卜卦.元神的五行)}#的旺相=旺
如果:卜卦.#{五行$(卜卦.元神的五行)}#的旺相=相
如果:卜卦.#{五行$(卜卦.元神的五行)}#的旺相=死
如果:卜卦.#{五行$(卜卦.元神的五行)}#的旺相=囚
如果:卜卦.#{五行$(卜卦.元神的五行)}#的旺相=休
空破墓絕
如果:卜卦.元神的五行=#{地支$(卜卦.空亡)}#的五行
如果:卜卦.元神的五行=#{地支$(卜卦.空亡1)}#的五行
如果:卜卦.元神的五行=#{地支$(卜卦.月破)}#的五行
如果:卜卦.#{五行$(卜卦.元神的五行)}#的長生=墓
如果:卜卦.#{五行$(卜卦.元神的五行)}#的長生=絕另外伏神，伏在初爻如何寫，及伏神的旺相休囚，空破如何寫，是不是和本卦一樣 複製程式 伏神
如果:本卦.六爻的伏神
如果:卜卦.#{五行$(首卦.六爻的五行)}#的旺相=旺
如果:卜卦.#{五行$(首卦.六爻的五行)}#的旺相=相
如果:卜卦.#{五行$(首卦.六爻的五行)}#的旺相=死
如果:卜卦.#{五行$(首卦.六爻的五行)}#的旺相=囚
如果:卜卦.#{五行$(首卦.六爻的五行)}#的旺相=休
如果:本卦.五爻的伏神
如果:卜卦.#{五行$(首卦.五爻的五行)}#的旺相=旺
如果:卜卦.#{五行$(首卦.五爻的五行)}#的旺相=相
如果:卜卦.#{五行$(首卦.五爻的五行)}#的旺相=死
如果:卜卦.#{五行$(首卦.五爻的五行)}#的旺相=囚
如果:卜卦.#{五行$(首卦.五爻的五行)}#的旺相=休
如果:本卦.四爻的伏神
如果:卜卦.#{五行$(首卦.四爻的五行)}#的旺相=旺
如果:卜卦.#{五行$(首卦.四爻的五行)}#的旺相=相
如果:卜卦.#{五行$(首卦.四爻的五行)}#的旺相=死
如果:卜卦.#{五行$(首卦.四爻的五行)}#的旺相=囚
如果:卜卦.#{五行$(首卦.四爻的五行)}#的旺相=休
如果:本卦.三爻的伏神
如果:卜卦.#{五行$(首卦.三爻的五行)}#的旺相=旺
如果:卜卦.#{五行$(首卦.三爻的五行)}#的旺相=相
如果:卜卦.#{五行$(首卦.三爻的五行)}#的旺相=死
如果:卜卦.#{五行$(首卦.三爻的五行)}#的旺相=囚
如果:卜卦.#{五行$(首卦.三爻的五行)}#的旺相=休
如果:本卦.二爻的伏神
如果:卜卦.#{五行$(首卦.二爻的五行)}#的旺相=旺
如果:卜卦.#{五行$(首卦.二爻的五行)}#的旺相=相
如果:卜卦.#{五行$(首卦.二爻的五行)}#的旺相=死
如果:卜卦.#{五行$(首卦.二爻的五行)}#的旺相=囚
如果:卜卦.#{五行$(首卦.二爻的五行)}#的旺相=休
如果:本卦.初爻的伏神
如果:卜卦.#{五行$(首卦.初爻的五行)}#的旺相=旺
如果:卜卦.#{五行$(首卦.初爻的五行)}#的旺相=相
如果:卜卦.#{五行$(首卦.初爻的五行)}#的旺相=死
如果:卜卦.#{五行$(首卦.初爻的五行)}#的旺相=囚
如果:卜卦.#{五行$(首卦.初爻的五行)}#的旺相=休
如果:本卦.世爻的伏神
如果:卜卦.#{五行$(首卦.世爻的五行)}#的旺相=旺
如果:卜卦.#{五行$(首卦.世爻的五行)}#的旺相=相
如果:卜卦.#{五行$(首卦.世爻的五行)}#的旺相=死
如果:卜卦.#{五行$(首卦.世爻的五行)}#的旺相=囚
如果:卜卦.#{五行$(首卦.世爻的五行)}#的旺相=休
如果:本卦.應爻的伏神
如果:卜卦.#{五行$(首卦.應爻的五行)}#的旺相=旺
如果:卜卦.#{五行$(首卦.應爻的五行)}#的旺相=相
如果:卜卦.#{五行$(首卦.應爻的五行)}#的旺相=死
如果:卜卦.#{五行$(首卦.應爻的五行)}#的旺相=囚
如果:卜卦.#{五行$(首卦.應爻的五行)}#的旺相=休
伏神:空
如果:本卦.六爻的伏神.且.首卦.六爻的空亡
如果:本卦.五爻的伏神.且.首卦.五爻的空亡
如果:本卦.四爻的伏神.且.首卦.四爻的空亡
如果:本卦.三爻的伏神.且.首卦.三爻的空亡
如果:本卦.二爻的伏神.且.首卦.二爻的空亡
如果:本卦.初爻的伏神.且.首卦.初爻的空亡
如果:本卦.世爻的伏神.且.首卦.世爻的空亡
如果:本卦.應爻的伏神.且.首卦.應爻的空亡
伏神:破
如果:本卦.六爻的伏神.且.首卦.六爻的地支=卜卦.月破
如果:本卦.五爻的伏神.且.首卦.五爻的地支=卜卦.月破
如果:本卦.四爻的伏神.且.首卦.四爻的地支=卜卦.月破
如果:本卦.三爻的伏神.且.首卦.三爻的地支=卜卦.月破
如果:本卦.二爻的伏神.且.首卦.二爻的地支=卜卦.月破
如果:本卦.初爻的伏神.且.首卦.初爻的地支=卜卦.月破
如果:本卦.世爻的伏神.且.首卦.世爻的地支=卜卦.月破
如果:本卦.應爻的伏神.且.首卦.應爻的地支=卜卦.月破世爻在第幾爻如何寫，如世爻在三爻 複製程式 迴圈:b=0 到 5 如果:原卦.世=b 設定:世爻位=(5-b)+1 如果:原卦.應=b 設定:應爻位=(5-b)+1 用神或六親多現，兩個以上如何寫(包括年月日變爻)，個指令執行錯誤 已修正, 請見 "問題(3) 2007-06-21" 化墓化絕化空化破，只有一到六爻，請再加世、應化墓化絕化空化破 已加入, 請見 "問題(2) 2007-06-18" 用神入墓於年月日，請再加其他六親入墓於年月日 複製程式 年 如果:卜卦長生(卜卦.父母的五行,卜卦年支)=墓 如果:卜卦長生(卜卦.兄弟的五行,卜卦年支)=墓 如果:卜卦長生(卜卦.子孫的五行,卜卦年支)=墓 如果:卜卦長生(卜卦.妻財的五行,卜卦年支)=墓 如果:卜卦長生(卜卦.官鬼的五行,卜卦年支)=墓 如果:卜卦長生(卜卦.世爻的五行,卜卦年支)=墓 如果:卜卦長生(卜卦.應爻的五行,卜卦年支)=墓 月 如果:卜卦長生(卜卦.父母的五行,卜卦月支)=墓 如果:卜卦長生(卜卦.兄弟的五行,卜卦月支)=墓 如果:卜卦長生(卜卦.子孫的五行,卜卦月支)=墓 如果:卜卦長生(卜卦.妻財的五行,卜卦月支)=墓 如果:卜卦長生(卜卦.官鬼的五行,卜卦月支)=墓 如果:卜卦長生(卜卦.世爻的五行,卜卦月支)=墓 如果:卜卦長生(卜卦.應爻的五行,卜卦月支)=墓 日 如果:卜卦長生(卜卦.父母的五行,卜卦日支)=墓 如果:卜卦長生(卜卦.兄弟的五行,卜卦日支)=墓 如果:卜卦長生(卜卦.子孫的五行,卜卦日支)=墓 如果:卜卦長生(卜卦.妻財的五行,卜卦日支)=墓 如果:卜卦長生(卜卦.官鬼的五行,卜卦日支)=墓 如果:卜卦長生(卜卦.世爻的五行,卜卦日支)=墓 如果:卜卦長生(卜卦.應爻的五行,卜卦日支)=墓 世爻入墓於年月日，這個指令執行錯誤 已修正, 請見 "問題(1) 2007-06-15" x0
|
|