刑沖會合的定義有兩種:
西洋:
會: 0度
刑: 90度
合:120度
沖:180度
政餘:
會:同宮
刑:四正宮
合:拱宮
沖:對宮
此處討論政餘的方式,先考慮可取用的內訂函式:
1.星( V1 , V2 , V3 , V4 , V5 , V6 )
2.流年星( V1 , V2 , V3 , V4 , V5 , V6 )
3.對宮( V1 , V2 )
4.拱宮( V1 , V2 )
內訂函式沒有同宮及四正宮,那就自己訂立吧:
%同宮:參數相同即可
%四正宮:定義全部的組合即可
四正宮(子,卯).
四正宮(子,酉).
四正宮(丑,辰).
四正宮(丑,戌).
...
四正宮(戌,丑).
四正宮(戌,未).
四正宮(亥,寅).
四正宮(亥,申).
%設計交角,流木刑沖會合的規則
交角:-星(S1,_,_,V1,_,_),流年星(木,_,_,V1,_,_),顯示(['流木','會',S1]),換行.
交角:-星(S1,_,_,V1,_,_),流年星(木,_,_,V2,_,_),四正宮(V1,V2),顯示(['流木','刑',S1]),換行.
交角:-星(S1,_,_,V1,_,_),流年星(木,_,_,V2,_,_),拱宮(V1,V2),顯示(['流木','合',S1]),換行.
交角:-星(S1,_,_,V1,_,_),流年星(木,_,_,V2,_,_),對宮(V1,V2),顯示(['流木','沖',S1]),換行.
流木刑沖會合:-交角,多解.
%執行
run:-流木刑沖會合.
以上程式我沒實際測試,可能有錯,您可自行測試.
_________________________
天步占星