05/01/03 v0.38 增加立春,冬至換年柱之選項.

05/04/03 v0.39 標示西洋12宮,七政三王刑沖會合.

請問一下這個軟體要在那裡才找得到呢？我找了很久？
另，偉大的板主，您的網站為什麼一直上不去呢？

06/30/02 離線註冊版含解盤功能,v1.00r新增樞要歌,玉關歌,琅玕經等解盤.

07/30/03 v0.40/v1.01r 修正月柱,修改西洋12宮標示.

08/05/04 v0.41/1.02r 修正月柱旬空,庚辛年文昌,增修日月五星解盤,增加月簾月殺月符

08/22/04 v0.42/1.03r 增加流年月簾月殺月符,註冊版增加四餘解盤.
已註冊網友如未收到程式,請來信告知.

01/06/05 v0.43/1.04r 童限取消四捨五入,修正地雌三刑,註冊版增加天地人三元.

01/11/05 v0.43/1.04r 修正爵星.(版本編號不變)

02/23/05 1.05r 標示流年星曜躔度,軟體整合為一執行檔.

　預告天步果老星宗-人工智慧版,此版加入高等人工智慧語言prolog,可自行建立七政四餘電腦批命系統,協助論命,價格為台幣5000元,已購買註冊版的網友,可補差額3200元,即可升級為此版本.

喜忌星格語法範例如下:
土埋雙女:-星(土,_,_,巳,_,_),write(['土埋雙女　']);true.
命坐刃鄉:-神煞(陽刃,Y,_),宮(命,Y,_),write(['命坐刃鄉　']);true.
計刃兒位:-神煞(陽刃,Y,_),宮(嗣,Y,_),星(計,_,_,Y,_,_),write(['計刃兒位　']);true.
孤劫臨妻:-神煞(孤辰,Y,_),神煞(劫殺,Y,_),宮(妻,Y,_),write(['孤劫臨妻　']);true.
妻嗣失躔:-宮(妻,_,X1),宮(嗣,_,X2),二星失躔(X1,X2),write(['妻嗣失躔　']);true.
羅犯太陽:-星(日,_,_,Y,_,_),星(羅,_,_,Y,_,_),write(['羅犯太陽　']);true.
火日相犯:-星(日,_,_,Y,_,_),星(火,_,_,Y,_,_),write(['火日相犯　']);true.
气星蔽月:-星(月,_,_,Y,_,_),星(气,_,_,Y,_,_),write(['气星蔽月　']);true.
日居奴位:-星(日,_,_,_,_,奴),write(['日居奴位　']);true.
土月對掩:-星(土,_,_,Y1,_,_),星(月,_,_,Y2,_,_),對宮(Y1,Y2),write(['土月對掩　']);true.
孤日單行:-獨行(日),write(['孤日單行　']);true.
孤月獨行:-獨行(月),write(['孤月獨行　']);true.
四餘獨步:-獨行(計),獨行(羅),獨行(气),獨行(孛),write(['四餘獨步　']);true.

計算強度範例如下:
入垣(X):-星(X,_,_,Y,_,_),垣(Y,X),write([X,'入垣',Y,'宮']),nl,加強度(X);true.
升殿(X):-星(X,Y,_,_,_,_),殿(Y,X),write([X,'升殿',Y,'宿']),nl,加強度(X);true.
失躔(X):-星失躔(X),write([X,'失躔 ']),nl,減強度(X);true.

請問限命,限度,流年,小限,流曜可否使用?

>請問限命,限度,流年,小限,流曜可否使用?
有,範例如下:
太歲臨限:-大限(X),流年(X),write(['太歲臨限　']);true.
計奴擾限:-大限(Y),流曜(計,_,_,Y,_,_),宮(_,Y,土),write(['計奴擾限　']);true.
限行財度:-限度(X1,_,X2,_),殿(X1,Y1),殿(X2,Y2),星曜(度主,Z),(剋(Z,Y1);剋(Z,Y2)),write(['限行財度　']);true.

　這一版的優點可輕鬆依訣建立批命系統,若加入整本果老星宗的古訣,批起命來則有憑有據,不中亦不遠矣,範例如下所示:

論妻:-宮(妻,_,X),星(X,_,_,Y,_,_),宮(遷,Y,_),write(['妻星入遷移,招重婚之婦.　']);true.
論妻:-星曜(恩星,X),宮(妻,_,X),星(X,_,_,Y,_,_),宮(命,Y,_),write(['母星入命,因妻致富.　']);true.
論父:-(星(火,_,_,Y,_,_);星(羅,_,_,Y,_,_)),宮(父,Y,_),write(['火羅臨父母,幼失慈親.　']);true.
論財:-(星(水,_,_,Y,_,_);星(孛,_,_,Y,_,_)),(宮(財,Y,_);宮(田,Y,_)),write(['水孛守田財,難招祖業.　']);true.

請問軟件中會說明如何運用符號嗎?
何時發售?

>請問軟件中會說明如何運用符號嗎?
目前正在編寫語法說明,日後同好應可在這裡討論語法及批命程序.

>何時發售?
大約四月底.

　再提供一些語法範例,大家參考參考,功力高者應可設計成推理機器,如已知命主27歲離婚,則由電腦解出相關盤象及理由,又如命主問何時結婚,則由電腦推測時間,並說明盤象.

%星(日,女,02,子,23,福)
%節令晨昏(節氣,晝生)
%星曜(吉凶星曜,木),星曜(度主,木),星曜(身主,木),星曜(難星,木)
%神煞(神煞,子,土)
%剋(金,木).
%生(金,水).
%垣(子,土).
%殿(張,月).
%對宮(子,午).
%拱宮(子,辰).
%宮(十二宮,宮支,宮主)
強度(日,0).
強度(月,0).
強度(水,0).
強度(金,0).
強度(火,0).
強度(木,0).
強度(土,0).

加強度(X):-retract(強度(X,P1)),P2 is P1+1,asserts(強度(X,P2)).
減強度(X):-retract(強度(X,P1)),P2 is P1-1,asserts(強度(X,P2)).
星強度(X):-強度(X,P),write([X,'強度=',P]),nl;true.

剋(水,火).
剋(金,木).
剋(火,金).
剋(木,土).
剋(土,水).
剋(气,土).
剋(气,計).
剋(計,水).
剋(計,孛).
剋(孛,火).
剋(孛,羅).
剋(羅,金).

生(金,水).
生(金,孛).
生(水,木).
生(水,气).
生(孛,木).
生(孛,气).
生(木,火).
生(木,羅).
生(气,火).
生(气,羅).
生(火,土).
生(火,計).
生(羅,土).
生(羅,計).
生(土,金).
生(計,金).

垣(子,土).
垣(丑,土).
垣(寅,木).
垣(卯,火).
垣(辰,金).
垣(巳,水).
垣(午,日).
垣(未,月).
垣(申,水).
垣(酉,金).
垣(戌,火).
垣(亥,木).

殿(張,月).
殿(翼,火).
殿(軫,水).
殿(角,木).
殿(亢,金).
殿(氐,土).
殿(房,日).
殿(心,月).
殿(尾,火).
殿(箕,水).
殿(斗,木).
殿(牛,金).
殿(女,土).
殿(虛,日).
殿(危,月).
殿(室,火).
殿(壁,水).
殿(奎,木).
殿(婁,金).
殿(胃,土).
殿(昂,日).
殿(畢,月).
殿(觜,火).
殿(參,水).
殿(井,木).
殿(鬼,金).
殿(柳,土).
殿(星,日).

對宮(子,午).
對宮(丑,未).
對宮(寅,申).
對宮(卯,酉).
對宮(辰,戌).
對宮(巳,亥).
對宮(午,子).
對宮(未,丑).
對宮(申,寅).
對宮(酉,卯).
對宮(戌,辰).
對宮(亥,巳).

拱宮(子,辰).
拱宮(子,申).
拱宮(丑,巳).
拱宮(丑,酉).
拱宮(寅,午).
拱宮(寅,戌).
拱宮(卯,未).
拱宮(卯,亥).
拱宮(辰,申).
拱宮(辰,子).
拱宮(巳,酉).
拱宮(巳,丑).
拱宮(午,戌).
拱宮(午,寅).
拱宮(未,亥).
拱宮(未,卯).
拱宮(申,子).
拱宮(申,辰).
拱宮(酉,丑).
拱宮(酉,巳).
拱宮(戌,寅).
拱宮(戌,午).
拱宮(亥,卯).
拱宮(亥,未).

夾宮(子,丑,寅).
夾宮(寅,丑,子).
夾宮(丑,寅,卯).
夾宮(卯,寅,丑).
夾宮(寅,卯,辰).
夾宮(辰,卯,寅).
夾宮(卯,辰,巳).
夾宮(巳,辰,卯).
夾宮(辰,巳,午).
夾宮(午,巳,辰).
夾宮(巳,午,未).
夾宮(未,午,巳).
夾宮(午,未,申).
夾宮(申,未,午).
夾宮(未,申,酉).
夾宮(酉,申,未).
夾宮(申,酉,戌).
夾宮(戌,酉,申).
夾宮(酉,戌,亥).
夾宮(亥,戌,酉).
夾宮(戌,亥,子).
夾宮(子,亥,戌).
夾宮(亥,子,丑).
夾宮(丑,子,亥).

四餘(計).
四餘(羅).
四餘(气).
四餘(孛).

星入垣(X):-星(X,_,_,Y,_,_),垣(Y,X).
入垣(X):-星(X,_,_,Y,_,_),垣(Y,X),write([X,'入垣',Y,'宮']),nl,加強度(X);true.

星升殿(X):-星(X,Y,_,_,_,_),殿(Y,X).
升殿(X):-星(X,Y,_,_,_,_),殿(Y,X),write([X,'升殿',Y,'宿']),nl,加強度(X);true.
二星垣殿(X1,X2):-(星入垣(X1);星升殿(X1)),(星升殿(X2);星入垣(X2)).

星失躔(X):-星(X,Y,_,_,_,_),X=日,殿(Y,月).
星失躔(X):-星(X,Y,_,_,_,_),X=月,殿(Y,日).
星失躔(X):-星(X,Y,_,_,_,_),殿(Y,Z),剋(Z,X).
失躔(X):-星失躔(X),write([X,'失躔 ']),nl,減強度(X);true.
二星失躔(X1,X2):-星失躔(X1),星失躔(X2).

宮歧(X1):-星(X1,_,_,X4,X5,_),X5==0,write([X1,X4,'宮兩歧']),nl,減強度(X1);true.
宿歧(X1):-星(X1,X2,X3,_,_,_),X3==0,write([X1,X2,'宿兩歧']),nl,減強度(X1);true.

星對生宮(X1):-星(X1,_,_,X4,_,_),對宮(X4,Y4),垣(Y4,Y1),生(X1,Y1),write([X1,'對生',Y4,'宮']),nl,加強度(Y1);true.
星對剋宮(X1):-星(X1,_,_,X4,_,_),對宮(X4,Y4),垣(Y4,Y1),剋(X1,Y1),write([X1,'對剋',Y4,'宮']),nl,減強度(Y1);true.

星剋宮(X1):-星(X1,_,_,X4,_,_),垣(X4,Y1),剋(X1,Y1),write([X1,'剋傷',X4,'宮']),nl,減強度(Y1);true.
宮剋星(X1):-星(X1,_,_,X4,_,_),垣(X4,Y1),剋(Y1,X1),write([X1,'受剋',X4,'宮']),nl,減強度(X1);true.

星剋宿(X1):-星(X1,X2,_,_,_,_),殿(X2,Y1),剋(X1,Y1),write([X1,'剋傷',X2,'宿']),nl,減強度(Y1);true.
%宿剋星(X1):-星(X1,X2,_,_,_,_),殿(X2,Y1),剋(Y1,X1),write([X1,'受剋',X2,'宿']),nl,減強度(X1);true.

星生宮(X1):-星(X1,_,_,X4,_,_),垣(X4,Y1),生(X1,Y1),write([X1,'生助',X4,'宮']),nl,加強度(Y1);true.
宮生星(X1):-星(X1,_,_,X4,_,_),垣(X4,Y1),生(Y1,X1),write([X1,'受生',X4,'宮']),nl,加強度(X1);true.

星生宿(X1):-星(X1,X2,_,_,_,_),殿(X2,Y1),生(X1,Y1),write([X1,'生助',X2,'宿']),nl,加強度(Y1);true.
宿生星(X1):-星(X1,X2,_,_,_,_),殿(X2,Y1),生(Y1,X1),write([X1,'受生',X2,'宿']),nl,加強度(X1);true.

星拱生宮(X1):-星(X1,_,_,X4,_,_),拱宮(X4,Y4),垣(Y4,Y1),生(X1,Y1),write([X1,'拱生',Y4,'宮']),nl,加強度(Y1);true.
星拱剋宮(X1):-星(X1,_,_,X4,_,_),拱宮(X4,Y4),垣(Y4,Y1),剋(X1,Y1),write([X1,'拱剋',Y4,'宮']),nl,減強度(Y1);true.

星生星(X1):-星(X1,_,_,Y,_,_),星(X2,_,_,Y,_,_),X1\=X2,生(X1,X2), write([X1,'生',X2]),nl,加強度(X2);true.
星剋星(X1):-星(X1,_,_,Y,_,_),星(X2,_,_,Y,_,_),X1\=X2,剋(X1,X2), write([X1,'剋',X2]),nl,減強度(X2);true.
星對生星(X1):-星(X1,_,_,Y1,_,_),星(X2,_,_,Y2,_,_),X1\=X2,對宮(Y1,Y2),生(X1,X2),write([X1,X2,'對生　']),nl,加強度(X2);true.

星對剋星(X1):-星(X1,_,_,Y1,_,_),星(X2,_,_,Y2,_,_),X1\=X2,對宮(Y1,Y2),剋(X1,X2),write([X1,'對剋',X2]),nl,減強度(X2);true.
星拱生星(X1):-星(X1,_,_,Y1,_,_),星(X2,_,_,Y2,_,_),X1\=X2,拱宮(Y1,Y2),生(X1,X2),write([X1,'拱生',X2]),nl,加強度(X2);true.
星拱剋星(X1):-星(X1,_,_,Y1,_,_),星(X2,_,_,Y2,_,_),X1\=X2,拱宮(Y1,Y2),剋(X1,X2),write([X1,'拱剋',X2]),nl,減強度(X2);true.

頂:-星(X1,_,_,_,Z,_),星(X2,_,_,_,Z,_),X1\=X2, write([X1,頂,X2]),nl;true.

火月同輝:-節令辰昏(_,夜生),星(火,_,_,X,_,_),星(月,_,_,X,_,_),write(['火月同輝　']);true.

%名甲居垣:-星曜(科名,X1),星曜(科甲,X2),星入垣(X1),星入垣(X2),write(['名甲居垣　']);true.
妻嗣垣殿:-宮(妻,_,X1),宮(嗣,_,X2),二星垣殿(X1,X2),write(['妻嗣垣殿　']);true.
名甲垣殿:-星曜(科名,X1),星曜(科甲,X2),二星垣殿(X1,X2),write(['名甲垣殿　']);true.
福官垣殿:-宮(官,_,X1),宮(福,_,X2),二星垣殿(X1,X2),write(['福官垣殿　']);true.
身命垣殿:-(宮(命,_,X);星曜(度主,X)),二星垣殿(X,月),write(['身命垣殿　']);true.
垣殿星格:-妻嗣垣殿,名甲垣殿,福官垣殿,身命垣殿;true.

福官臨弱:-宮(福,_,X1),宮(官,_,X2),星(X1,_,_,Y,_,_),星(X2,_,_,Y,_,_),宮(奴,Y,_),write(['福官臨弱　']);true.
的刃妻位:-神煞(的殺,Y,_),神煞(陽刃,Y,_),宮(妻,Y,_),write(['的刃妻位　']);true.
空雄妻位:-神煞(空亡,Y,_),神煞(天雄,Y,_),宮(妻,Y,_),write(['空雄妻位　']);true.
狗寡兒宮:-神煞(天狗,Y,_),神煞(寡宿,Y,_),宮(嗣,Y,_),write(['狗寡兒宮　']);true.
嗣掌天狗:-神煞(天狗,_,X),宮(嗣,_,X),write(['嗣掌天狗　']);true.
土計失躔:-二星失躔(土,計),write(['土計失躔　']);true.
木孛符印:-星(木,_,_,未,_,_),星(孛,_,_,未,_,_),write(['木孛符印　']);true.
身坐卦祿:-星(月,_,_,Y,_,_),神煞(卦氣,Y,_),神煞(祿勳,Y,_),write(['身坐卦祿　']);true.
身居國印:-星(月,_,_,Y,_,_),神煞(國印,Y,_),write(['身居國印　']);true.
命臨官貴:-宮(命,Y,_),神煞(天貴,Y,_),神煞(臨官,Y,_),write(['命臨官貴　']);true.
命登歲駕:-宮(命,Y,_),神煞(歲駕,Y,_),write(['命登歲駕　']);true.
斗旺坐命:-宮(命,X,_),神煞(斗杓,X,_),神煞(帝旺,X,_),write(['斗旺坐命　']);true.
金水輔日:-星(日,_,_,Y,_,_),星(金,_,_,Y,_,_),星(水,_,_,Y,_,_),write(['金水輔日　']);true.
兩星相生:-星(X1,_,_,Y,_,_),星(X2,_,_,Y,_,_),not 四餘(X1),not 四餘(X2),生(X1,X2),write([X1,X2,'相生　']),fail;true.

月居天秤:-星(月,_,_,辰,_,_),write(['月居天秤　']);true.
星座喜格:-月居天秤;true.

八殺朝天:-宮(疾,_,X),星(X,_,_,Y,_,命),(Y=戌;Y=亥),write(['八殺朝天　']);true.
%八殺入命:-宮(疾,_,X),星(X,_,_,_,_,命),write(['八殺入命　']);true.
日月夾宮:-星(日,_,_,Y1,_,_),星(月,_,_,Y2,_,_),夾宮(Y1,Y3,Y2),宮(N,Y3,_),write(['日月夾',N,'　']);true.
日月拱宮:-星(日,_,_,Y1,_,_),星(月,_,_,Y2,_,_),拱宮(Y1,Y3),拱宮(Y2,Y3),宮(N,Y3,_),write(['日月拱',N,'　']);true.
日月垣殿:-二星垣殿(日,月),write(['日月垣殿　']);true.
日月喜格:-日月夾宮,日月拱宮,日月垣殿;true.

福官會聚:-宮(福,_,X1),宮(官,_,X2),X1\=X2,星(X1,_,_,Y,_,_),星(X2,_,_,Y,_,_),write(['福官會聚　']);true.
福官臨財:-宮(官,_,X1),宮(福,_,X2),宮(財,Y,_),星(X1,_,_,Y,_,_),星(X2,_,_,Y,_,_),write(['福官臨財　']);true.
福官夾命:-宮(官,_,X1),宮(福,_,X2),宮(命,Y3,_),星(X1,_,_,Y1,_,_),星(X2,_,_,Y2,_,_),夾宮(Y1,Y3,Y2),write(['福官夾命　']);true.
福官喜格:-福官會聚,福官臨財,福官夾命;true.

升殿喜格:-宮(N,_,X),member(N,[福,妻,嗣]),星升殿(X),write([N,'星升殿　']),fail;true.

土埋雙女:-星(土,_,_,巳,_,_),write(['土埋雙女　']);true.
命坐刃鄉:-神煞(陽刃,Y,_),宮(命,Y,_),write(['命坐刃鄉　']);true.
計刃兒位:-神煞(陽刃,Y,_),宮(嗣,Y,_),星(計,_,_,Y,_,_),write(['計刃兒位　']);true.
孤劫臨妻:-神煞(孤辰,Y,_),神煞(劫殺,Y,_),宮(妻,Y,_),write(['孤劫臨妻　']);true.
妻嗣失躔:-宮(妻,_,X1),宮(嗣,_,X2),二星失躔(X1,X2),write(['妻嗣失躔　']);true.
刃雄守命:-(神煞(飛刃,Y,_);神煞(陽刃,Y,_)),神煞(天雄,Y,_),宮(命,Y,_),write(['刃雄守命　']);true.
羅犯太陽:-星(日,_,_,Y,_,_),星(羅,_,_,Y,_,_),write(['羅犯太陽　']);true.
火日相犯:-星(日,_,_,Y,_,_),星(火,_,_,Y,_,_),write(['火日相犯　']);true.
气星蔽月:-星(月,_,_,Y,_,_),星(气,_,_,Y,_,_),write(['气星蔽月　']);true.
日居奴位:-星(日,_,_,_,_,奴),write(['日居奴位　']);true.
田財臨奴:-宮(田,_,X1),宮(財,_,X2),星(X1,_,_,_,_,奴),星(X2,_,_,_,_,奴),write(['田財臨奴　']);true.
土月對掩:-星(土,_,_,Y1,_,_),星(月,_,_,Y2,_,_),對宮(Y1,Y2),write(['土月對掩　']);true.
獨行(X1):-not (星(X1,_,_,Y,_,_),星(X2,_,_,Y,_,_),X1\=X2).
孤日單行:-獨行(日),write(['孤日單行　']);true.
孤月獨行:-獨行(月),write(['孤月獨行　']);true.
四餘獨步:-獨行(計),獨行(羅),獨行(气),獨行(孛),write(['四餘獨步　']);true.


日月拱刃:-星(日,_,_,Y1,_,_),星(月,_,_,Y2,_,_),神煞(陽刃,Y3,_),拱宮(Y1,Y3),拱宮(Y2,Y3),write(['日月拱刃　']);true.
日月背行:-星(月,_,_,Y1,_,_),member(Y1,[寅,卯,辰,巳,午,未]),星(日,_,_,Y2,_,_),member(Y2,[申,酉,戌,亥,子,丑]),write(['日月背行　']);true.
日月忌格:-日月背行,日月拱刃;true.

兩星對傷:-星(X1,_,_,Y1,_,_),星(X2,_,_,Y2,_,_),not 四餘(X1),not 四餘(X2),對宮(Y1,Y2),剋(X1,X2),write([X1,X2,'對傷　']),fail;true.
兩星交戰:-星(X1,_,_,Y,_,_),星(X2,_,_,Y,_,_),剋(X1,X2),write([X2,X1,'交戰　']),fail;true.
兩星互陷:-星(X1,_,_,Y1,_,_),宮(_,Y1,X2),星(X2,_,_,Y2,_,_),宮(_,Y2,X1),剋(X1,X2),write([X2,X1,'互陷　']),fail;true.
兩星互垣:-星(X1,_,_,Y1,_,_),宮(N2,Y1,X2),星(X2,_,_,Y2,_,_),宮(N1,Y2,X1),member(N1,[福]),member(N2,[命,官,田,財]),write([N1,N2,'互垣　']),fail;true.
%兩星互躔:-星(X1,Y1,_,_,_,_),宮(N2,Y1,X2),星(X2,_,_,Y2,_,_),宮(N1,Y2,X1),member(N1,[命,官,福,田,財]),member(N2,[命,官,福,田,財]),write([N1,N2,'互躔　']),fail;true.



水漂白羊:-星(水,_,_,戌,_,_),write(['水漂白羊　']);true.
木打寶瓶:-星(木,_,_,子,_,_),write(['木打寶瓶　']);true.
星座忌格:-水漂白羊,木打寶瓶;true.

失躔忌格:-星(X,Y,_,_,_,_),星失躔(X),write([X,'躔',Y,'度　']),fail;true.

解神煞:-神煞(X,Y,Z),write([X,Y,Z]),nl;true.
解星曜:-星曜(X,Y),write([X,Y]),nl;true.
解十二宮:-宮(X,Y,Z),write([X,Y,Z]),nl;true.
解節令辰昏:-節令辰昏(X,Y),write(['命主於',X,Y]),nl;true.
兩歧(X):-宮歧(X1),宿歧(X1);true.
升殿入垣(X):-入垣(X),升殿(X);true.

解(X):-升殿入垣(X),失躔(X),星生星(X),星剋星(X),星對生星(X),星對剋星(X),星對剋宮(X),星拱剋宮(X);true.

解星:-解(日),解(月),解(水),解(金),解(火),解(木),解(土),解(計),解(羅),解(气),解(孛);true.
解星強度:-星強度(日),星強度(月),星強度(水),星強度(金),星強度(火),星強度(木),星強度(土);true.

論妻:-宮(妻,_,X),星(X,_,_,Y,_,_),宮(遷,Y,_),write(['妻星入遷移,招重婚之婦.　']);true.
論妻:-星曜(恩星,X),宮(妻,_,X),星(X,_,_,Y,_,_),宮(命,Y,_),write(['母星入命,因妻致富.　']);true.
論父:-(星(火,_,_,Y,_,_);星(羅,_,_,Y,_,_)),宮(父,Y,_),write(['火羅臨父母,幼失慈親.　']);true.
論財:-(星(水,_,_,Y,_,_);星(孛,_,_,Y,_,_)),(宮(財,Y,_);宮(田,Y,_)),write(['水孛守田財,難招祖業.　']);true.

所喜星格:-write(['所喜星格:']),nl,日月喜格,垣殿星格,火月同輝,福官喜格,斗旺坐命,木孛符印,八殺朝天,身坐卦祿,命臨官貴,命登歲駕,兩星相生,身居國印,星座喜格,金水輔日,升殿喜格,孤月獨行,兩星互垣,四餘獨步,nl,nl.

所忌星格:-write(['所忌星格:']),nl,日月忌格,的刃妻位,空雄妻位,狗寡兒宮,嗣掌天狗,福官臨弱,土計失躔,土埋雙女,兩星交戰,命坐刃鄉,計刃兒位,孤劫臨妻,妻嗣失躔,兩星對傷,兩星互陷,刃雄守命,羅犯太陽,气星蔽月,星座忌格,失躔忌格,日居奴位,田財臨奴,土月對掩,孤日單行,火日相犯,nl,nl.


run:-解節令辰昏,所喜星格,所忌星格,解星,解星強度,論妻,論父,論財,write(['-------']).

這程式大致ok了,感覺還不錯,也已將北派斗數三級疊盤加進來,剩下說明的部份,趕工中...

顯示資料庫語法範例如下所示:
顯示姓名:-姓名(N),write([N]),nl.
顯示陽曆:-陽曆(B,H,Z),write([B,H,Z]),nl.
顯示農曆:-農曆(X,Y,Z),write([X,Y,Z]),nl.
顯示四柱:-四柱(X1,Y1,Z1,X2,Y2,Z2,X3,Y3,Z3,X4,Y4,Z4),
　　　　　write([X1,Y1,'(',Z1,')年',X2,Y2,'(',Z2,')月',X3,Y3,'(',Z3,')日',X4,Y4,'(',Z4,')時']),nl.
顯示宮位:-宮(X,Y,Z),write([X,Y,Z]),nl,fail.
顯示神煞:-神煞(X,Y,Z),write([X,Y,Z]),nl,fail.
顯示旬空:-旬空(X,Y),write(['旬空',X,Y]),nl,fail.
顯示填實:-填實(X,Y),write(['填實,X,Y]),nl,fail.
顯示星曜:-星曜(X,Y),write([X,Y]),nl,fail.
顯示行星:-星(X1,X2,X3,X4,X5,X6),write([X1,X2,X3,X4,X5,X6]),nl,fail.
顯示強度:-強度(X,P),write([X,'強度=',P]),nl,fail.
顯示流年:-流年(A,B,C,D,E),write(['流年=',A,'年',B,'月',C,'日 變曜:',D,E]),nl,
　　　　　內盤(X),write(['內盤=',X]),nl,
　　　　　限度(M1,M2,N1,N2,O1,O2,P1,P2),
　　　　　write(['限度=',M1,M2,N1,N2,'~',O1,O2,P1,P2]),nl.

%北派斗數三級疊盤
顯示大限盤:-大限盤(X,A,B,C),write(['大限盤=',X,',本',A,',大',B,',年',C]),nl,fail.
顯示流年盤:-流年盤(X,A,B,C),write(['流年盤=',X,',大',A,',年',B,',月',C]),nl,fail.
顯示流月盤:-流月盤(X,A,B,C),write(['流月盤=',X,',年',A,',月',B,',日',C]),nl,fail.

run:- $所喜星格, $所忌星格, $解星, write(['-------']),nl,
　　　$顯示姓名, $顯示陽曆, $顯示農曆, $顯示流年, $顯示四柱, $顯示宮位, $顯示行星,
　　　$顯示旬空, $顯示填實, $顯示神煞, $顯示強度, $顯示星曜,
　　　$顯示大限盤, $顯示流年盤, $顯示流月盤.

增加歲限語法,如此可讓電腦逐年批算流年運勢.

語法:
顯示歲限:-歲限(Y,M,N,O,P),
　　　　　write(['歲限:',Y,'歲,',M,'宿,',N,'大限,',O,'流年,',P,'小限']),nl,fail.

結果顯示:
歲限:1歲,斗宿,子大限,酉流年,丑小限
歲限:2歲,斗宿,丑大限,戌流年,子小限
歲限:3歲,斗宿,丑大限,亥流年,亥小限
歲限:4歲,斗宿,丑大限,子流年,戌小限
歲限:5歲,斗宿,丑大限,丑流年,酉小限
歲限:6歲,斗宿,丑大限,寅流年,申小限
歲限:7歲,斗宿,丑大限,卯流年,未小限
歲限:8歲,箕宿,丑大限,辰流年,午小限
歲限:9歲,箕宿,丑大限,巳流年,巳小限
歲限:10歲,尾宿,丑大限,午流年,辰小限
歲限:11歲,尾宿,寅大限,未流年,卯小限
歲限:12歲,尾宿,寅大限,申流年,寅小限
歲限:13歲,尾宿,寅大限,酉流年,丑小限
歲限:14歲,尾宿,寅大限,戌流年,子小限
歲限:15歲,心宿,寅大限,亥流年,亥小限
歲限:16歲,心宿,寅大限,子流年,戌小限
歲限:17歲,心宿,寅大限,丑流年,酉小限
歲限:18歲,房宿,寅大限,寅流年,申小限
歲限:19歲,房宿,寅大限,卯流年,未小限
歲限:20歲,氐宿,寅大限,辰流年,午小限
歲限:21歲,氐宿,卯大限,巳流年,巳小限
歲限:22歲,氐宿,卯大限,午流年,辰小限
歲限:23歲,氐宿,卯大限,未流年,卯小限
歲限:24歲,氐宿,卯大限,申流年,寅小限
歲限:25歲,氐宿,卯大限,酉流年,丑小限
歲限:26歲,亢宿,卯大限,戌流年,子小限
歲限:27歲,亢宿,卯大限,亥流年,亥小限
歲限:28歲,亢宿,卯大限,子流年,戌小限
歲限:29歲,亢宿,卯大限,丑流年,酉小限
歲限:30歲,角宿,卯大限,寅流年,申小限
歲限:31歲,角宿,卯大限,卯流年,未小限
歲限:32歲,角宿,辰大限,辰流年,午小限
歲限:33歲,角宿,辰大限,巳流年,巳小限
歲限:34歲,角宿,辰大限,午流年,辰小限
歲限:35歲,軫宿,辰大限,未流年,卯小限
歲限:36歲,軫宿,辰大限,申流年,寅小限
歲限:37歲,軫宿,辰大限,酉流年,丑小限
歲限:38歲,軫宿,辰大限,戌流年,子小限
歲限:39歲,軫宿,辰大限,亥流年,亥小限
歲限:40歲,軫宿,辰大限,子流年,戌小限
歲限:41歲,翼宿,辰大限,丑流年,酉小限
歲限:42歲,翼宿,辰大限,寅流年,申小限
歲限:43歲,翼宿,辰大限,卯流年,未小限
歲限:44歲,翼宿,辰大限,辰流年,午小限
歲限:45歲,翼宿,辰大限,巳流年,巳小限
歲限:46歲,翼宿,辰大限,午流年,辰小限
歲限:47歲,翼宿,巳大限,未流年,卯小限
歲限:48歲,張宿,巳大限,申流年,寅小限
歲限:49歲,張宿,巳大限,酉流年,丑小限
歲限:50歲,張宿,巳大限,戌流年,子小限
歲限:51歲,張宿,巳大限,亥流年,亥小限
歲限:52歲,張宿,巳大限,子流年,戌小限
歲限:53歲,星宿,巳大限,丑流年,酉小限
歲限:54歲,星宿,巳大限,寅流年,申小限
歲限:55歲,柳宿,午大限,卯流年,未小限
歲限:56歲,柳宿,午大限,辰流年,午小限
歲限:57歲,柳宿,午大限,巳流年,巳小限
歲限:58歲,柳宿,午大限,午流年,辰小限
歲限:59歲,鬼宿,午大限,未流年,卯小限
歲限:60歲,井宿,午大限,申流年,寅小限
歲限:61歲,井宿,午大限,酉流年,丑小限
歲限:62歲,井宿,未大限,戌流年,子小限
歲限:63歲,井宿,未大限,亥流年,亥小限
歲限:64歲,井宿,未大限,子流年,戌小限
歲限:65歲,井宿,未大限,丑流年,酉小限
歲限:66歲,井宿,未大限,寅流年,申小限
歲限:67歲,井宿,未大限,卯流年,未小限
歲限:68歲,井宿,未大限,辰流年,午小限
歲限:69歲,井宿,未大限,巳流年,巳小限
歲限:70歲,井宿,未大限,午流年,辰小限
歲限:71歲,參宿,未大限,未流年,卯小限
歲限:72歲,參宿,未大限,申流年,寅小限
歲限:73歲,畢宿,申大限,酉流年,丑小限
歲限:74歲,畢宿,申大限,戌流年,子小限
歲限:75歲,昂宿,申大限,亥流年,亥小限
歲限:76歲,昂宿,申大限,子流年,戌小限
歲限:77歲,胃宿,酉大限,丑流年,酉小限
歲限:78歲,婁宿,酉大限,寅流年,申小限
歲限:79歲,婁宿,酉大限,卯流年,未小限
歲限:80歲,奎宿,酉大限,辰流年,午小限
歲限:81歲,奎宿,戌大限,巳流年,巳小限
歲限:82歲,壁宿,戌大限,午流年,辰小限
歲限:83歲,室宿,戌大限,未流年,卯小限
歲限:84歲,室宿,戌大限,申流年,寅小限
歲限:85歲,室宿,亥大限,酉流年,丑小限
歲限:86歲,危宿,亥大限,戌流年,子小限
歲限:87歲,危宿,亥大限,亥流年,亥小限
歲限:88歲,危宿,亥大限,子流年,戌小限
歲限:89歲,虛宿,亥大限,丑流年,酉小限
歲限:90歲,虛宿,子大限,寅流年,申小限
歲限:91歲,女宿,子大限,卯流年,未小限
歲限:92歲,女宿,子大限,辰流年,午小限
歲限:93歲,牛宿,子大限,巳流年,巳小限