果老星宗有很多特殊星格,人工智慧版語法舉例如下:
五星環陽:-
星夾星(X1,日,X2),
member(X1,[水,金,火,木,土]),
member(X2,[水,金,火,木,土]),
連環([日,水,金,火,木,土]).
四餘捧月:-
星夾星(X1,月,X2),
member(X1,[羅,計,孛,气]),
member(X2,[羅,計,孛,气]),
連環([月,羅,計,孛,气]).
七政連環:-連環([日,月,水,金,火,木,土]).
羅計截漏(X):-截漏星(羅,X,計).
日月夾星(X):-星夾星(日,X,月).
日月夾宮(X):-星夾宮(日,X,月).
五星環陽:-
星夾星(X1,日,X2),
member(X1,[水,金,火,木,土]),
member(X2,[水,金,火,木,土]),
連環([日,水,金,火,木,土]).
四餘捧月:-
星夾星(X1,月,X2),
member(X1,[羅,計,孛,气]),
member(X2,[羅,計,孛,气]),
連環([月,羅,計,孛,气]).
七政連環:-連環([日,月,水,金,火,木,土]).
羅計截漏(X):-截漏星(羅,X,計).
日月夾星(X):-星夾星(日,X,月).
日月夾宮(X):-星夾宮(日,X,月).
_________________________
天步占星
天步占星

前一個議題
索引