|
|
田氏六爻原码 (标准版)
来自:MACD论坛(bbs.macd.cn)
作者:IQIQ
浏览:26605
回复:61
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
fi1:=MOD(NUMBERSUM(INTPART(o),0),8);
ss:=IF(fi1=0,8,fi1); fi2:=MOD(NUMBERSUM(ROUND(FRACPART(o)*100),0),8);
xx:=IF(fi2=0:(,8,fi2); yui:=MOD(v,6);
dd:=IF(yui=0,6,yui);
no:=IF(ss=5,2,IF(ss=6,2,0))+IF(ss<=2,2,IF(ss>=7,0,0));
nk:=IF(xx=5,2,IF(xx=6,2,0))+IF(xx<=2,2,IF(xx>=7,0,0));
ni:=(ss-(INTPART((ss)/2))*2)*4;np:=IF(ss>4,0,1);
nl:=(xx-(INTPART((xx)/2))*2)*4;nj:=IF(xx>4,0,1);
xxx:=IF(nk=no,2,0)+IF(nj=np,1,0)+IF(nl=ni,4,0);
l6:=IF(dd=6,IF(d=6 AND ni=0,4,0),ni);l5:=IF(dd=5,IF(dd=5 AND no=0,2,0),no);
l2:=IF(dd=2,IF(dd=2 AND nk=0,2,0),nk);l4:=IF(dd=4,IF(dd=4 AND np=0,1,0),np);
l3:=IF(dd=3,IF(dd=3 AND nl=0,4,0),nl);l1:=IF(dd=1,IF(dd=1 AND nj=0,1,0),nj);
la:=l6+l5+l4; lb:=l3+l2+l1;dl1:=IF(la=4,7,IF(la=0,8,0));
bl1:=IF(la=5,3,IF(la=1,4,0));al1:=IF(la=7,1,IF(la=3,2,0));
cl:=IF(lb=6,5,IF(lb=2,6,0));dl:=IF(lb=4,7,IF(lb=0,8,0));
cl1:=IF(la=6,5,IF(la=2,6,0));al:=IF(lb=7,1,IF(lb=3,2,0));
bl:=IF(lb=5,3,IF(lb=1,4,0));
xxs:=al+bl+cl+dl;
ssx:=al1+bl1+cl1+dl1;
po:=SYSPARAM(1)=BARPOS; 0.75 POINTDOT COLORBLACK;
DRAWTEXT(:((xx=1 OR xx=4 )>0 AND po,(xx=1 OR xx=4),'子 '),COLORGRAY,ALIGN2;
shul:=IF(ss=7,5,IF(ss=6,6,0));
DRAWTEXT(shul>0 AND po,shul,'子 '),COLORGRAY,ALIGN2;
hul:=IF(xx=1,2,IF(xx=4,2,0))+IF(xx=6,1,0);
DRAWTEXT(hul>0 AND po,hul,'寅 '),COLORCYAN,ALIGN2;
hl9:=IF(ss=7,6,0);lwu:=IF(ss=1,4,IF(ss=4,4,0));
DRAWTEXT(hl9>0 AND po,hl9,'寅 '),COLORCYAN,ALIGN2;
cln:=IF(xx=1,3,IF(xx=4,3,0))+IF(xx=6,2,IF(xx=7,1,0));
DRAWTEXT(cln>0 AND po,cln,'辰 '),COLORYELLOW,ALIGN2;
DRAWTEXT(lwu>0 AND po,lwu,'午 '),COLORRED,ALIGN2;
lk:=IF(xx=6,3,IF(xx=7,2,0));
DRAWTEXT(lk>0 AND po,lk,'午 '),COLORRED,ALIGN2;
venA:=IF(sSX=1,5,IF(sSX=4,5,0))+IF(sSX=6,4,0);
DRAWTEXT(venA>0 AND po,venA,' 申 '),COLORWHITE,ALIGN2;
nhenk:=IF(xxS=7,3,0);
DRAWTEXT(nhenk>0 AND po,nhenk,' 申 '),COLORWHITE,ALIGN2;
qvk:=IF(ssX=1,6,IF(ssX=4,6,0))+IF(sSX=6,5,IF(ssX=7,4,0));
DRAWTEXT(qvk>0 AND po,qvk,' 戌 '),COLORYELLOW,ALIGN2;
khouA:=IF(xXS:(=2,3,IF(xXS=5,1,0))+IF(xxS=3,2,0);
DRAWTEXT(khouA>0 AND po,khouA,' 丑 '),COLORYLLOW,ALIGN2;
khou2A:=IF(ssX=8,4,0);
DRAwTEXT(khou2A>0 AND po,khou2A,' 丑 '),COLORYELLOW,ALIGN2;
kaoA:=IF(xxS=8,3,IF(xxS=3,1,0))+IF(xxS=2,2,0);
DRAWTEXT(kaoA>0 AND po,kaoA,' 卯 '),CO:(LORCYAN,ALIGN2;
mk:=IFssX=5,6,0);wez:=IF(xxS=8,1,0);
DRAWTEXT(mk>0 AND po,mk,' 卯 '),COLORCYAN,ALIGN2;
kA:=IF(xxS=8,2,IF(xxS=2,1,0));
DRAWTEXT(kA>0 AND po,kA,' 巳 '),COLORRED,ALIGN2;
si2A:=IF(ssX=3,6,IF(ssX=5,5,0));
DRAWTEXT(si2A>0 AND po,si2A,' 巳 '),COLORRED,ALIGN2;
zeiA:=IF(ssX=5,4,IF(ssX=3,5,0))+IF(ssX=2,6,0);
DRAWTEXT(zeiA>0 AND po,zeiA,' 未 '),COLORYELLOW,ALIGN2;
DRAWTEXT(wez>0 AND po,wez,' 未 '),COLORYELLOW,ALIGN2;
zuA:=IF(ssX=8,6,IF(ssX=3,4,0))+IF(ssX=2,5,0);
DRAWTEXT(zu:(A>0 AND po,zuA,' 酉 '),COLORWHITE,ALIGN2;
su2A:=IF(xxS=5,3,0);faix:=IF(ssX=8,5,IF(ssX=2,4,0));
DRAWTEXT(su2A>0 AND po,su2A,' 酉 '),COLORWHITE,ALIGN2;
DRAWTEXT(faix>0 AND po,faix,' 亥 '),COLORGRAY,ALIGN2;
i2b:=IF(xxS=5,2,IF(xxS=3,3,0));
DRAWTEXT(i2b>0 AND po,i2b,' 亥 '),COLORGRAY,ALIGN2;
len:=IF(ss=1,5,IF(ss=4,5,0))+IF(ss=6,4,0);
DRAWTEXT(len>0 AND po,len,'申 '),COLORWHITE,ALIGN2;
en2:=IF(xx=7,3,0);
DRAWTEXT(en2>0 AND po,en2,'申 '),COLORWHITE,ALIGN2;
qv:=IF(ss=1,6,IF(ss=4,6,0))+IF(ss=6,5,IF(ss=7,4,0));
DRAWTEXT(qv>0 AND po,qv,'戌 '),COLORYELLOW,ALIGN2;
lhiu:=IF(xx=2,3,IF(xx=5,1,0))+IF(xx=3,2,0);
DRAWTEXT(lhiu>0 AND po,lhiu,'丑 '),COLORYELLOW,ALIGN2;
su2:=IF(ss=8,4,0);wi2:=IF(xx=8,1,0);
DRAWTEXT(su2:(>0 AND po,su2,'丑 '),COLORYELLOW,ALIGN2;
llo:=IF(xx=8,3,IF(XX=3,1,0))+IF(xx=2,2,0);
DRAWTEXT(llo>0 AND po,llo,'卯 '),COLORCYAN,ALIGN2;
lau2:=IF(ss=5,6,0);
DRAWTEXT(lau2>0 AND po,lau2,'卯 '),COLORCYAN,ALIGN2;
pi:=IF(xx=8,2,IF(xx=2,1,0));si2:=IF(ss=3,6,IF(ss=5,5,0));
DRAWTEXT(pi>0 AND po,pi,'巳 '),COLORRED,ALIGN2;
DRAWTEXT(si2>0 AND po,si2,'巳 '),COLORRED,ALIGN2;
ppi:=IF(ss=5,4,IF(ss=3,5,0))+IF(ss=2,6,0);
DRAWTEXT(ppi>0 AND po,ppi,'未 '),COLORYELLOW,ALIGN2;
DRAWTEXT(wi2>0 AND po,wi2,'未 '),COLORYELLOW,ALIGN2;
oou:=IF(ss=8,6,IF(ss=3,4,0))+IF(ss=2,5,0);
DRAWTEXT(oou>0 AND po,oou,'酉 '),COLORWHITE,ALIGN2;
ju2:=IF(xx=5,3,0);hl:=IF(ss=8,5,IF(ss=2,4,0));
DRAWTEXT(ju2>0 AND po,ju2,'酉 '),COLORWHITE,ALIGN2;
DRAWTEXT(hl>0 :(AND po,hl,'亥 '),COLORGRAY,ALIGN2;
i2:=IF(xx=5,2,IF(xx=3,3,0));
DRAWTEXT(i2>0 AND po,i2,'亥 '),COLORGRAY,ALIGN2;
rtq:=(xxS=1 OR xxS=4);
DRAWTEXT(rtq>0 AND po,rtq,' 子 '),COLORGRAY,ALIGN2;
tr:=IF(ssX=7,5,IF(ssX=6,6,0));
DRAWTEXT(tr>0 AND po,tr,' 子 '),COLORGRAY,ALIGN2;
huy:=IF(xxS=1,2,IF(xxS=4,2,0))+IF(xxS=6,1,0);
DRAWTEXT(huy>0 AND po,huy,' 寅 '),COLORCYAN,ALIGN2;
hu2A:=IF(ssX=7,6,0);
DRAWTEXT(hu2A>0 AND po,hu2A,' 寅 '),COLORCYAN,ALIGN2;
fey:=IF(xxS=1,:(3,IF(xxS=4,3,0))+IF(xxS=6,2,IF(xXS=7,1,0));
DRAWTEXT(fey>0 AND po,fey,' 辰 '),COLORYELLOW,ALIGN2;
tuA:=IF(sSX=1,4,IF(sSX=4,4,0));
DRAWTEXT(tuA>0 AND po,tuA,' 午 '),COLORRED,ALIGN2;
gutA:=IF(xxS=6,3,IF(xxS=7,2,0));
DRAWTEXT(gutA>0 AND po,gutA,' 午 '),COLORRED,ALIGN2;
w:=(IF(ss=1,4,0)+IF(ss=4,4,0)+IF(ss=5,5,0)+IF(ss=3,6,0));
q2:=(IF(ss=:(6,6,0)+IF(ss=7,5,0)+IF(ss=8,5,0)+IF(ss=2,4,0));
q:=(IF(xx=1,1,0)+IF(xx=4,1,0)+IF(xx=5,2,0)+IF(xx=3,3,0));
j:=(IF(xx=1,2,0)+IF(xx=4,2,0)+IF(xx=6,1,0)+IF(xx=8,3,0)+IF(xx=3,1,0)+IF(xx=2,2,0));
j2:=(IF(ss=5,6,0)+IF(ss=7,6,0));
m:=(IF(ss=1,5,0)+IF(ss=6,4,0)+IF(ss=8,6,0)+IF(ss=4,5,0)+IF(ss=3,4,0)+IF(ss=2,5,0));
m2:=(IF(xx=7,3,0)+IF(xx=5,3,0));
ov:=(IF(xxx=0,3,IF(xxx:(=7,6,0))+IF(xxx=4,2,IF(xxx=1,4,0))+IF(xxx=6,1,IF(xxx=5,3,0))+IF(xxx=2,4,IF(xxx=3,5,0)));
vo:=IF(ov=1,4,IF(ov=2,5,0))+IF(ov=3,6,IF(ov=4,1,0))+IF(ov=5,2,IF(ov=6,3,0));
ooo:=IF(xx=1,8,IF(xx=2,7,0))+IF(xx=3,6,IF(xx=4,5,0))+IF(xx=5,4,IF(xx=6,3,0))+IF(xx=7,8,IF(xx=8,1,0));
g1:=IF(ov<3,ss,0)+IF(ov=6,ss,0)+IF(ov=4,ooo,0)+IF(ov=5,ooo,0);
g:=IF(IF(g1>8,xx,g1)=0,ss,IF(g1>8,xx,g1));
gwx:=(g=1 OR g=2)+IF(g>=7,5,0)+IF(g=3,4,0)+IF(g=4,3,0)+IF(g=5,3,0)+IF(g=6,2,0);
e:=(IF(ss=1,6,0)+IF(ss=4,6,0)+IF(ss=7,4,0)+IF(ss=6,5,0)+IF(ss=8,4,0)+IF(ss=5,4,0)+IF(ss=2,6,0)+IF(ss=3,5,0));
e2:=(IF(xx=6,2,0)+IF(xx=7,1,0)+IF(xx=2,3,0)+IF(xx=1,3,0)+IF(xx=4,3,0)+IF(xx=8,1,0)+IF(xx=3,2,0)+IF(xx=5,1,0));
w2:=(IF(xx=6,3,0)+IF(xx=8,2,0)+IF(xx=2,1,0)+IF(xx=7,2,0));
so:=((m=3 OR m2=3)+IF:((j=3,3,0)+IF(j2=3,3,0)+IF(w=3,4,0)+IF(w2=3,4,0)+
IF(q=3,2,0)+IF(q2=3,2,0)+IF(e=3,5,0)+IF(e2=3,5,0))-gwx;
eo:=((m=2 OR m2=2)+IF(j=2,3,0)+IF(j2=2,3,0)+IF(w=2,4,0)+IF(w2=2,4,0)+
IF(q=2,2,0)+IF(q2=2,2,0)+IF(e=2,5,0)+IF(e2=2,5,0))-gwx;
yo:=((m=1 OR m2=1)+IF(j=1,3,0)+IF(j2=1,3,0)+IF(w=1,4,0)+IF(w2=1,4,0)+
IF(q=1,2,0)+IF(q2=1,2,0)+IF(e=1,5,0)+IF(e2=1,5,0))-gwx;
up:=(yo=-1 OR yo=4)+IF(eo=-1,2,0)+IF(eo=4,2,0)+IF(so=-1,3,0)+IF(so=4,3,0);
DRAWTEXT(up>0 AND po,up,' 父 '),COLORMAGENTA,ALIGN2;
ui:=(yo=-3 OR yo=2)+IF(eo=-3,2,0)+IF(eo=2,2,0)+IF(so=-3,3,0)+IF(so=2,3,0);
DRAWTEXT(ui>0 AND po,ui,' 财 '),COLORMAGENTA,ALIGN2;
gu:=(yo=-2 OR yo=3)+IF(eo=-2,2,0)+IF(eo=3,2,0)+IF(so=-2,3,0)+IF(so=3,3,0:();
DRAWTEXT(gu>0 AND po,gu,' 官 '),COLORMAGENTA,ALIGN2;
iu:=(yo=-4 OR yo=1)+IF(eo=-4,2,0)+IF(eo=1,2,0)+IF(so=-4,3,0)+IF(so=1,3,0);
DRAWTEXT(iu>0 AND po,iu,' 子 '),COLORMAGENTA,ALIGN2;
ux:=IF(yo=0,1,0)+IF(eo=0,2,0)+IF(so=0,3,0);asdi:=(xx=1 OR xx=2 OR xx=3 OR xx=4 );
DRAWTEXT(ux>0 AND po,ux,' 兄 '),COLORMAGENTA,ALIGN2;
e2A:=(IF(xxS=6,2,0)+IF(xxS=7,1,0)+IF(xxS=2,3,0)+IF(xxS=1,3,0)+IF(xxS=4,3,0)+
IF(xxS=8,1,0)+IF(xxS=3,2,0)+IF(xxS=5,1,0));sdfr:=(xx=1 OR xx=2 OR xx=5 OR xx=6 );
eA:=(IF(ssX=1,6,0)+IF(ssX=4,6,0)+IF(ssX=7,4,0)+IF(ssX=6,5,0)+IF(ssX=8,4,0)+
IF(ssX=5,4,0)+IF(ssX=2,6,0)+IF(ssX=3,5,0));giA:=(xxS=1 OR xxS=2 OR xxS=3 :(OR xxS=4 );
w2A:=(IF(xxS=6,3,0)+IF(xxS=8,2,0)+IF(xxS=2,1,0)+IF(xxS=7,2,0));
wA:=(tuA+IF(ssX=5,5,0)+IF(ssX=3,6,0));
q2A:=(IF(ssX=6,6,0)+IF(ssX=7,5,0)+IF(ssX=8,5,0)+IF(ssX=2,4,0));
qA:=(rtq+IF(xxS=5,2,0)+IF(xxS=3,3,0));
jA:=(IF(xxS=1,2,0)+IF(xxS=4,2,0)+IF(xxS=6,1,0)+IF(xxS=8,3,0)+IF(xxS=3,1,0)+IF(xxS=2,2,0));
m2h:=(IF(xxS=7,3,0)+IF(xxS=5,3,0));j2A:=(IF(ssX=5,6,0)+IF(ssX=7,6,0));
mAl:=(IF(ssX=1,5,0)+IF(ssX=6,4,0)+IF(ssX=8,6,0)+IF(ssX=4,5,0)+IF(ssX=3,4,0)+IF(ssX=2,5,0));
anya:=((mAl=3 OR m2h=3)+IF(jA=3,3,0)+IF(j2A=3,3,0)+IF(wA=3,4,0)+IF(w2A=3,4,0)+
IF(qA=3,2,0)+IF(q2A=3,2,0)+IF(eA=3,5,0)+IF(e2A=3,5,0))-gwx;
rya:=((mAl=2 OR m2h=2)+IF(jA=2,3,0)+IF(j2A=2,3,0)+IF(wA=2,4,0)+IF(w2A=2,4,0)+
IF(qA=2,2,0)+IF(q2A=2,2,0)+IF(eA=2,5,0)+IF(e2A=2,5,0))-gwx;
iya:=((mAl=1 OR m2h=1)+IF(jA=1,3,0)+IF(j2A=1,3,0)+IF(wA=1,4,0)+IF(w2A=1,4,0)+
IF(qA=1,2,0)+IF(q2A=1,2,0)+IF(eA=1,5,0)+IF(e2A=1,5,0))-gwx;
ups:=(iya=-1 OR iya=4)+IF(rya=-1,2,0)+IF(rya=4,2,0)+IF(anya=-1,3,0)+IF(anya=4,3,0);
DRAWTEXT(ups>0 AND po,ups,' 父 '),COL:(ORMAGENTA,ALIGN2;
uis:=(iya=-3 OR iya=2)+IF(rya=-3,2,0)+IF(rya=2,2,0)+IF(anya=-3,3,0)+IF(anya=2,3,0);
DRAWTEXT(uis>0 AND po,uis,' 财 '),COLORMAGENTA,ALIGN2;
gus:=(iya=-2 OR iya=3)+IF(rya=-2,2,0)+IF(rya=3,2,0)+IF(anya=-2,3,0)+IF(anya=3,3,0);
DRAWTEXT(gus>0 AND po,gus,' 官 '),COLORMAGENTA,ALIGN2;
ius:=(iya=-4 OR iya=1)+IF(rya=-4,2,0)+IF(rya=1,2,0)+IF(anya=-4,3,0)+ IF(anya=1,3,0);
DRAWTEXT(ius>0 AND po,ius,' 子 '),COLORMAGENTA,ALIGN2;
on:=IF(iya=0,1,0)+IF(rya=0,2,0)+IF(anya=0,3,0);
DRAWTEXT(on>0 AND po,on,' 兄 '),COLORMAGENTA,ALIGN2;
lo:=((m=6 OR m2=6)+IF(j=6,3,0)+IF(j2=6,3,0)+IF(w=6,4,0)+IF(w2=6,4,0)+
IF(q=6,2,0)+IF(q2=6,2,0)+IF(e=6,5,0)+IF(e2=6,5,0))-gwx;
wo:=((m=5 OR m2=5)+IF(j=5,3,0)+IF(j2=5,3,0)+IF(w=5,4,0)+IF(w2=5,4,0)+
IF(q=5,2,0)+IF(q2=5,2,0)+IF(e=5,5,0)+IF(e2=5,5,0))-gwx;
ho:=((m=4 OR m2=4)+IF(j=4,3,0)+IF(j2=4,3,0)+IF(w=4,4,0)+IF(w2=4,4,0)+
IF(q=4,2,0)+IF(q2:(=4,2,0)+IF(e=4,5,0)+IF(e2=4,5,0))-gwx;
jui:=IF(ho=-1,4,0)+IF(ho=4,4,0)+IF(wo=-1,5,0)+IF(wo=4,5,0)+IF(lo=-1,6,0)+IF(lo=4,6,0);
DRAWTEXT(jui>0 AND po,jui,' 父 '),COLORMAGENTA,ALIGN2;
jhaii:=IF(ho=-3,4,0)+IF(ho=2,4,0)+IF(wo=-3,5,0)+IF(wo=2,5,0)+IF(lo=-3,6,0)+IF(lo=2,6,0);
DRAWTEXT(jhaii>0 AND po,jhaii,' 财 '),COLORMAGENTA,ALIGN2;
juani:=IF(ho=-2,4,0)+IF(ho=3,4,0)+IF(wo=-2,5,0)+IF(wo=3,5,0)+IF(lo=-2,6,0)+IF(lo=3,6,0);
DRAWTEXT(juani>0 AND po,juani,' 官 '),COLORMAGENTA,ALIGN2;
jzii:=IF(ho=-4,4,0)+IF(ho=1,4,0)+IF(wo=-4,5,0)+IF(wo=1,5,0)+IF(lo=-4,6,0)+IF(lo=1,6,0);
DRAWTEXT(jzii>0 AND po,jzii,' 子 '),COLORMAGENTA,ALIGN2;
iuya:=((mAl=6 OR m2h=6)+IF(jA=6,3,0)+IF(j2A=6,3,0)+IF(wA=6,4,0)+IF(w2A=6,4,0)+
IF(qA=6,2,0)+IF(q2A=6,2,0)+IF(eA=6,5,0)+IF(e2A=6,5,0))-gwx;
uya:=((mAl=5 OR m2h=5)+IF(jA=5,3,0)+IF(j2A=5,3,0)+IF(wA=5,4,0)+IF(w2A=5,4,0)+
IF(qA=5,2,0)+IF(q2A=5,2,0)+IF(eA=5,5,0)+IF(e2A=5,5,0))-gwx;
hiya:=((mAl=4 OR m2h=4)+IF(jA=4,3,0)+IF(j2A=4,3,0)+IF(wA=4,4,0)+IF(w2A=4,4,0)+
IF(qA=4,2,0)+IF(q2A=4,2,0)+IF(eA=4,5,0)+IF(e2A=4,5,0))-gwx;
jxigi:=IF(ho=0,4,0:()+IF(wo=0,5,0)+IF(lo=0,6,0);
DRAWTEXT(jxigi>0 AND po,jxigi,' 兄 '),COLORMAGENTA,ALIGN2;
jjf:=IF(hiya=-1,4,0)+IF(hiya=4,4,0)+IF(uya=-1,5,0)+IF(uya=4,5,0)+IF(iuya=-1,6,0)+IF(iuya=4,6,0);
DRAWTEXT(jjf>0 AND po,jjf,' 父 '),COLORMAGENTA,ALIGN2;
jha:=IF(hiya=-3,4,0)+IF(hiya=2,4,0)+IF(uya=-3,5,0)+IF(uya=2,5,0)+IF(iuya=-3,6,0)+IF(iuya=2,6,0);
DRAWTEXT(jha>0 AND po,jha,' 财 '),COLORMAGENTA,ALIGN2;
jga:=IF(hiya=-2,4,0)+IF(hiya=3,4,0)+IF(uya=-2,5,0)+IF(uya=3,5,0)+IF(iuya=-2,6,0)+IF(iuya=3,6,0);
DRAWTEXT(jga>0 AND po,jga,' 官 '),COLORMAGENTA,ALIGN2;
jzi:=IF(hiya=-4,4,0)+IF(hiya=1,4,0)+IF(uya=-4,5,0)+IF(uya=1,5,0)+IF(iuya=-4,6,0)+IF(iuya=1,6,0);
DRAWTEXT(jzi>0 AND po,jzi,' 子 '),COLORMAGENTA,ALIGN2;
jxi:=IF(hiya=0,4,0)+IF(uya=0,5,0)+IF(iuya=0,6,0);
DRAWTEXT(jxi>0 AND po,jxi,' 兄 '),COLORMAGENTA,ALIGN2;
DRAWTEXT(po,ov,'世 '),COLORMAGENTA,ALIGN2;
DRAWTEXT(po,vo,' 应 '),COLORMAGENTA,ALIGN2;
xxss:=ss*10+xx;
xsxs:=IF(xxss=12,5,0)+IF(xxss=15,2,0)+IF(xxss=17,2,0)+IF(xxss=23,3,0)+IF(xxss=27,2,0)+
IF(xxss=32,5,0)+IF(xxss=47,2,0)+IF(xxss=52,5,0)+IF(xxss=56,4,0)+IF(xxss=57,5,0)+IF(xxss=63,3,0)+
IF(xxss=64,3,0)+IF(xxss=67,2,0)+IF(xxss=76,4,0)+IF(xxss=83,3,0)+IF(xxss=87,:(2,0);
DRAWTEXT(xsxs>0 AND po,xsxs,'财伏 '),COLORMAGENTA,ALIGN2;
sxio:=IF(xsxs=5,1,0)+IF(xsxs=3,7,0)+IF(xsxs=4,10,0)+IF(xsxs=2,4,0)+IF(xxss=15,-1,0)+IF(xxss=17,-1,0);
DRAWTEXT(sxio=1 AND po,xsxs,'子 '),COLORRED,ALIGN2;
DRAWTEXT(sxio=3 AND po,xsxs,'寅 '),COLORCYAN,ALIGN2;
DRAWTEXT(sxio=4 AND po,xsxs,'卯 '),COLORCYAN,ALIGN2;
DRAWTEXT(sxio=7 AND po,xsxs,'午 '),COLORRED,ALIGN2;
DRAWTEXT(sxio=10 AND po,xsxs,'酉 '),COLORWHITE,ALIGN2;
DRAWTEXT(asdi>0 AND po,1,' ▄▄▄ '),COLORGREEN,ALIGN2;
DRAWTEXT(asdi=0 AND po,1,' ▄ ▄ '),COLORGREEN,ALIGN2;
DRAWTEXT(sdfr>0 AND po,2,' ▄▄▄ '),COLORGREEN,ALIGN2;
DRAWTEXT(sdfr=0 AND po,2,' ▄ ▄ '),COLORGREEN,ALIGN2;
dfgn:=(xx=1 OR xx=3 OR xx=5 OR xx=7 );
DRAWTEXT(dfgn>0 AND po,3,' ▄▄▄ '),COLORGREEN,ALIGN2;
DRAWTEXT(dfgn=0 AND po,3,' ▄ ▄ '),:(COLORGREEN,ALIGN2;
fgh:=(ss=1 OR ss=2 OR ss=3 OR ss=4 );
DRAWTEXT(fgh>0 AND po,4,' ▄▄▄ '),COLORGREEN,ALIGN2;
DRAWTEXT(fgh=0 AND po,4,' ▄ ▄ '),COLORGREEN,ALIGN2;
ghj:=(ss=1 OR ss=2 OR ss=5 OR ss=6 );
DRAWTEXT(ghj>0 AND po,5,' ▄▄▄ '),COLORGREEN,ALIGN2;
DRAWTEXT(ghj=0 AND po,5,' ▄ ▄ '),COLORGREEN,ALIGN2;
hjk:=(ss=1 OR ss=3 OR ss=5 OR ss=7 );
DRAWTEXT(hjk>0 AND po,6,' ▄▄▄ '),COLORGREEN,ALIGN2;
DRAWTEXT(hjk=0 AND po,6,' ▄ ▄ '),COLORGREEN,ALIGN2;
DRAWTEXT(giA>0 AND po,1,' ▄▄▄ '),COLORGREEN,ALIGN2;
DRAWTEXT(giA=0 AND po,1,' ▄ ▄ '),COLORGREEN,ALIGN2;
trA:=(xxS=1 OR xxS=2 OR xxS=5 OR xxS=6 );
DRAWTEXT(trA>0 AND po,2,' ▄▄▄ '),COLORGREEN,ALIGN2;
DRAWTEXT(trA=0 AND po,2,' ▄ ▄ '),COLORGREEN,ALIGN2;
hanA:=(xxS=1 OR xxS=3 OR xxS=5 OR xxS=7 );
DRAWTEXT(hanA>0 AND po,3,' ▄▄▄ '),COLORGREEN,ALIGN2;
DRAWTEXT(hanA=0 AND po,3,' ▄ ▄ '),COLORGREEN,ALIGN2;
soiA:=(ssX=1 OR ssX=2 OR ssX=3 OR ssX=4 );
DRAWTEXT(soiA>0 AND po,4,' ▄▄▄ '),COLORGREEN,ALIGN2;
DRAWTEXT(soiA=0 A:(ND po,4,' ▄ ▄ '),COLORGREEN,ALIGN2;
iop:=(ssX=1 OR ssX=2 OR ssX=5 OR ssX=6 );
DRAWTEXT(iop>0 AND po,5,' ▄▄▄ '),COLORGREEN,ALIGN2;
DRAWTEXT(iop=0 AND po,5,' ▄ ▄ '),COLORGREEN,ALIGN2;
yui:=(ssX=1 OR ssX=3 OR ssX=5 OR ssX=7 );
DRAWTEXT(yui>0 AND po,6,' ▄▄▄ '),COLORGREEN,ALIGN2;
DRAWTEXT(yui=0 AND po,6,' ▄ ▄ '),COLORGREEN,ALIGN2;
ddd:=IF(dd=1,asdi,0)+IF(dd=2,sdfr,0)+IF(dd=3,dfgn,0)+IF(dd=4,fgh,0)+IF(dd=5,ghj,0)+IF(dd=6,hjk,0);
DRAWTEXT(ddd+dd>dd AND po,dd,' ▄▄▄ o '),COLORRED,ALIGN2;
DRAWTEXT(ddd+dd=dd AND po,dd,' ▄ ▄ x '),colorffff00,ALIGN2;
DRAWTEXT(po,8,' 月 日 ( )空 '),COLORFFFFCC,ALIGN2;
DRAWTEXT(po,7,'主卦 变卦 '),COLORFFFFCC,ALIGN2;
lc:=IF(DATE>LSOLARTERMDATE(3),1,0);a:=lc+IF(DATE>LSOLARTERMDATE(5),1,0)+IF(DATE>LSOLARTERMDATE(7),1,0);
a3:=IF(DATE>LSOLARTERMDATE(9),1,0)+IF(DATE>LSOLARTERMDATE(11),1,0)+IF(DATE>LSOLARTERMDATE(13),1,0);
a6:=IF(DATE:(>LSOLARTERMDATE(15),1,0)+IF(DATE>LSOLARTERMDATE(17),1,0)+IF(DATE>LSOLARTERMDATE(19),1,0);
a9:=IF(DATE>LSOLARTERMDATE(21),1,0)+IF(DATE>LSOLARTERMDATE(23),1,0)+IF(lc=0,12,0);
yl:=a3+a6+a9+a ;
DRAWTEXT(yl=11 AND po,8,' 子 '),COLORRED,ALIGN2;
DRAWTEXT(yl=12 AND po,8,' 丑 '),COLORRED,ALIGN2;
DRAWTEXT(yl=1 AND po,8,' 寅 '),COLORRED,ALIGN2;
DRAWTEXT(yl=2 AND po,8,' 卯 '),COLORRED,ALIGN2;
DRAWTEXT(yl=3 AND po,8,' 辰 '),COLORRED,ALIGN2;
DRAWTEXT(yl=4 AND po,8,' 巳 '),COLORRED,ALIGN2;
DRAWTEXT(yl=5 AND po,8,' 午 '),COLORRED,ALIGN2;
DRAWTEXT(yl=6 AND po,8,' 未 '),COLORRED,ALIGN2;
DRAWTEXT(yl=7 AND po,8,' 申 '),COLORRED,ALIGN2;
DRAWTEXT(yl=8 AND po,8,' 酉 '),COLORRED,ALIGN2;
DRAWTEXT(yl=9 AND po,8,' 戌 '),COLORRED,ALIGN2;
DRAWTEXT(yl=10 AND po,8,' 亥 '),COLORRED,ALIGN2;
qq:=GANZHI(DATE, TIME, 2)+1;xy3:=MOD(qq,10);tg:=iF(xy3=0,10,xy3);
DRAWTEXT(tg=1 AND po,8,' 甲 '),COLORRED,ALIGN2;
DRAWTEXT(tg=2 AND po,8,' 乙 '),COLORRED,ALIGN2;
DRAWTEXT(tg=3 AND po,8,' 丙 '),COLORRED,ALIGN2;
DRAWTEXT(tg=4 A:(ND po,8,' 丁 '),COLORRED,ALIGN2;
DRAWTEXT(tg=5 AND po,8,' 戊 '),COLORRED,ALIGN2;
DRAWTEXT(tg=6 AND po,8,' 己 '),COLORRED,ALIGN2;
DRAWTEXT(tg=7 AND po,8,'庚 '),COLORRED,ALIGN2;
DRAWTEXT(tg=8 AND po,8,' 辛 '),COLORRED,ALIGN2;
DRAWTEXT(tg=9 AND po,8,'壬 '),COLORRED,ALIGN2;
DRAWTEXT(tg=10 AND po,8,' 癸 '),COLORRED,ALIGN2;
i3:=MOD(qq,12);dz:=IF(i3=0,12,i3);
DRAWTEXT(dz=1 AND po,8,' 子 '),COLORRED,ALIGN2;
DRAWTEXT(dz=2 AND po,8,' 丑 '),COLORRED,ALIGN2;
DRAWTEXT(dz=3 AND po,8,' 寅 '),COLORRED,ALIGN2;
DRAWTEXT(dz=4 AND po,8,' 卯 '),COLORRED,ALIGN2;
DRAWTEXT(dz=5 AND po,8,' 辰 '),COLORRED,ALIGN2;
DRAWTEXT(dz=6 AND po,8,' 巳 '),COLORRED,ALIGN2;
DRAWTEXT(dz=7 AND po,8,' 午 '),COLORRED,ALIGN2;
DRAWTEXT(dz=8 AND po,8,' 未 '),CO:(LORRED,ALIGN2;
DRAWTEXT(dz=9 AND po,8,' 申 '),COLORRED,ALIGN2;
DRAWTEXT(dz=10 AND po,8,' 酉 '),COLORRED,ALIGN2;
DRAWTEXT(dz=11 AND po,8,' 戌 '),COLORRED,ALIGN2;
DRAWTEXT(dz=12 AND po,8,' 亥 '),COLORRED,ALIGN2;
km:=IF(qq>10,1,0)+IF(qq>20,1,0)+IF(qq>30,1,0)+IF(qq>40,1,0)+IF(qq>50,1,0)+1;
DRAWTEXT(km=6 AND po,8,' 子丑 '),COLORRED,ALIGN2;
DRAWTEXT(km=5 AND po,8,' 寅卯 '),COLORRED,ALIGN2;
DRAWTEXT(km=4 AND po,8,' 辰巳 '),COLORRED,ALIGN2;
DRAWTEXT(km=3 AND po,8,' 午未 '),COLORRED,ALIGN2;
DRAWTEXT(km=2 AND po,8,' 申酉 '),COLORRED,ALIGN2;
DRAWTEXT(km=1 AND po,8,' 戌亥 '),COLORRED,ALIGN2;
niq:=(ssx-(INTPART((ssx)/2))*2)*4; npq:=IF(ssx>4,0,1);noq:=IF(ssx=5,2,IF(ssx=6,2,0))+IF(ssx<=2,2,IF(ssx>=7,0,0));
nlq:=(xxs-(INTPART((xxs)/2))*2)*4; njq:=IF(xxs>4,0,1); nkq:=IF(xxs=5,2,IF(xxs=6,2,0))+IF(xxs<=2,2,IF(xxs>=7,0,0)) ;
xxxQ:=IF(nkq=noq,2,0)+IF(njq=npq,1,0)+IF(nlq=niq,4,0);
ovq:=IF(xxxQ=0,3,IF(xxxQ=7,6,0))+IF(xxxQ=4,2,IF(xxxQ=1,4,0))+IF(xxxQ=6,1,IF(xxxQ=5,3:(,0))+IF(xxxQ=2,4,IF(xxxQ=3,5,0));
DRAWTEXT(po,ovq,' 世 '),COLORMAGENTA,ALIGN2;
voq:=(IF(ovq=1,4,IF(ovq=2,5,0))+IF(ovq=3,6,IF(ovq=4,1,0))+IF(ovq=5,2,IF(ovq=6,3,0)));
DRAWTEXT(po,voq,' 应 '),COLORMAGENTA,ALIGN2;
ql:=(IF(tg<=2,1,0)+IF(tg=3,6,0)+IF(tg=4,6,0)+IF(tg=5,5,0)+IF(tg=6,4,0)+IF(tg=7,3,0)+IF(tg=8,3,0)+IF(tg>=9,2,0));
DRAWTEXT(po,ql,' 龙'),COLORCYAN,ALIGN2;
DRAWTEXT(po,IF(ql+1<7,ql+1,IF(ql+1>6,ql-5,0)),'雀'),COLORRED,ALIGN2;
DRAWTEXT(po,IF(ql+2<7,ql+2,IF(ql+2>6,ql-4,0)),' 勾'),COLORYELLOW,ALIGN2;
DRAWTEXT(po,IF(ql+3<7,ql+3,IF(ql+3>6,ql-3,0)),' 蛇'),COLORYELLOW,ALIGN2;
DRAWTEXT(po,IF(ql+4<7,ql+4,IF(ql+4>6,ql-2,0)),' 虎'),COLORWHITE,ALIGN2;
DRAWTEXT(po,IF(ql+5<7,ql+5,IF(ql+5>6,ql-1,0)),' 武'),COLORGRAY,ALIGN2;
bb:=ss*10+xx;
DRAWTEXT(bb=68 AND po,7,'水地比 '),Color5659FF,ALIGN2;
DRAWTEXT(bb=61 AND po,7,'水天需 '),Color5659FF,ALIGN2;
DRAWTEXT(bb=21 AND po,7,'泽天夬 '),Color5659FF,ALIGN2;
DRAWTEXT(bb=41 AND po,7,'雷天大壮 '),Color5659FF,ALIGN2;
DRAWTEXT(bb=81 AND po,7,'地天泰 '),Color5659FF,ALIGN2;
DRAWTEXT(bb=82 AND po,7,'地泽临 '),C:(olor5659FF,ALIGN2;
DRAWTEXT(bb=84 AND po,7,'地雷复 '),Color5659FF,ALIGN2;
DRAWTEXT(bb=88 AND po,7,'坤为地 '),Color5659FF,ALIGN2;
DRAWTEXT(bb=57 AND po,7,'风山渐 '),Color5659FF,ALIGN2;
DRAWTEXT(bb=52 AND po,7,'风泽中孚 '),Color5659FF,ALIGN2;
DRAWTEXT(bb=12 AND po,7,'天泽履 '),Color5659FF,ALIGN2;
DRAWTEXT(bb=32 AND po,7,'火泽睽 '),Color5659FF,ALIGN2;
DRAWTEXT(bb=72 AND po,7,'山泽损 '),Color5659FF,ALIGN2;
DRAWTEXT(bb=71 AND po,7,'山天大畜 '),Color5659FF,ALIGN2;
DRAWTEXT(bb=73 AND po,7,'山火贲 '),Color5659FF,ALIGN2;
DRAWTEXT(bb=77 AND po,7,'艮为山 '),Color5659FF,ALIGN2;
DRAWTEXT(bb=86 AND po,7,'地水师 '),Color5659FF,ALIGN2;
DRAWTEXT(bb=83 AND po,7,'地火明夷 :( '),Color5659FF,ALIGN2;
DRAWTEXT(bb=43 AND po,7,'雷火丰 '),Color5659FF,ALIGN2;
DRAWTEXT(bb=23 AND po,7,'泽火革 '),Color5659FF,ALIGN2;
DRAWTEXT(bb=63AND po,7,'水火既济 '),Color5659FF,ALIGN2;
DRAWTEXT(bb=64 AND po,7,'水雷屯 '),Color5659FF,ALIGN2;
DRAWTEXT(bb=62 AND po,7,'水泽节 '),Color5659FF,ALIGN2;
DRAWTEXT(bb=66 AND po,7,'坎为水 '),Color5659FF,ALIGN2;
DRAWTEXT(bb=75 AND po,7,'山风蛊 '),Color5659FF,ALIGN2;
DRAWTEXT(bb=74 AND po,7,'山雷颐 '),Color5659FF,ALIGN2;
DRAWTEXT(bb=34 AND po,7,'火雷噬嗑 '),Color5659FF,ALIGN2;
DRAWTEXT(bb=14:( AND po,7,'天雷无妄 '),Color5659FF,ALIGN2;
DRAWTEXT(bb=54 AND po,7,'风雷益 '),Color5659FF,ALIGN2;
DRAWTEXT(bb=53 AND po,7,'风火家人 '),Color5659FF,ALIGN2;
DRAWTEXT(bb=51 AND po,7,'风天小畜 '),Color5659FF,ALIGN2;
DRAWTEXT(bb=55 AND po,7,'巽为风 '),Color5659FF,ALIGN2;
DRAWTEXT(bb=24 AND po,7,'泽雷随 '),Color5659FF,ALIGN2;
DRAWTEXT(bb=25 AND po,7,'泽风大过 '),Color5659FF,ALIGN2;
DRAWTEXT(bb=65AND po,7,'水风井 '),Color5659FF,ALIGN2;
DRAWTEXT(bb=85 AND po,7,'地风升 '),Color5659FF,ALIGN2;
DRAWTEXT(bb=45 AND po,7,'雷风恒 '),Color5659FF,ALIGN2;
DRAWTEXT(bb=46 AND po,7,'雷水解 '),Color5659FF,ALIGN2;
DRAWTEXT(bb=48 A:(ND po,7,'雷地豫 '),Color5659FF,ALIGN2;
DRAWTEXT(bb=44 AND po,7,'震为雷 '),Color5659FF,ALIGN2;
DRAWTEXT(bb=13 AND po,7,'天火同人 '),Color5659FF,ALIGN2;
DRAWTEXT(bb=16 AND po,7,'天水讼 '),Color5659FF,ALIGN2;
DRAWTEXT(bb=56 AND po,7,'风水涣 '),Color5659FF,ALIGN2;
DRAWTEXT(bb=76 AND po,7,'山水蒙 '),Color5659FF,ALIGN2;
DRAWTEXT(bb=36 AND po,7,'火水未济 '),Color5659FF,ALIGN2;
DRAWTEXT(bb=35 AND po,7,'火风鼎 '),Color5659FF,ALIGN2;
DRAWTEXT(bb=37 AND po,7,'火山旅 '),Color5659FF,ALIGN2;
DRAWTEXT(bb=33 AND po,7,'离为火 '),Color5659FF,ALIGN2;
DRAWTEXT(bb=42 AN:(D po,7,'雷泽归妹 '),Color5659FF,ALIGN2;
DRAWTEXT(bb=47 AND po,7,'雷山小过 '),Color5659FF,ALIGN2;
DRAWTEXT(bb=87 AND po,7,'地山谦 '),Color5659FF,ALIGN2;
DRAWTEXT(bb=67 AND po,7,'水山蹇 '),Color5659FF,ALIGN2;
DRAWTEXT(bb=27 AND po,7,'泽山咸 '),Color5659FF,ALIGN2;
DRAWTEXT(bb=28 AND po,7,'泽地萃 '),Color5659FF,ALIGN2;
DRAWTEXT(bb=26 AND po,7,'泽水困 '),Color5659FF,ALIGN2;
DRAWTEXT(bb=22 AND po,7,'兑为泽 '),Color5659FF,ALIGN2;
DRAWTEXT(bb=31 AND po,7,'火天大有 '),Color5659FF,ALIGN2;
DRAWTEXT(bb=38 AND po,7,'火地晋 '),Color5659FF,ALIGN2;
DRAWTEXT(bb=78 AND po,7,'山地剥 '),Color5659FF,ALIGN2;
DRAWTEXT(bb=58 AND po,7,'风地观 '),Color5659FF,ALIGN2;
DRAWTEXT(bb=18 :(AND po,7,' 天地否 '),Color5659FF,ALIGN2;
DRAWTEXT(bb=17 AND po,7,' 天山遁 '),Color5659FF,ALIGN2;
DRAWTEXT(bb=15 AND po,7,' 天风姤 '),Color5659FF,ALIGN2;
DRAWTEXT(bb=11 AND po,7,' 乾为天 '),Color5659FF,ALIGN2;
bbb:=ssx*10+xxs;
DRAWYITE:(XT(DATE AND po,7,bbb,1),Color5659FF,ALIGN2;
[ Last edited by IQIQ on 2005-6-6 at 12:16 ] |
|
|