飞狐公式源码,雪浪动变卦象
来自:MACD论坛(bbs.macd.cn)
作者:缀石轩主
浏览:12849
回复:26
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
时辰:=9;
ng:=MOD(GANZHI(DATE,0,0),10);-0.7 POINTDOT COLORBLACK;po:=SYSPARAM(1)=BARPOS;
DRAWTEXT(ng=0 AND po,9,'甲 '),COLORRED,ALIGN2;
DRAWTEXT(ng=1 AND po,9,'乙 '),COLORRED,ALIGN2;
DRAWTEXT(ng=2 AND po,9,'丙 '),COLORRED,ALIGN2;
DRAWTEXT(ng=3 AND po,9,'丁 '),COLORRED,ALIGN2;
DRAWTEXT(ng=4 AND po,9,'戊 '),COLORRED,ALIGN2;
DRAWTEXT(ng=5 AND po,9,'己 '),COLORRED,ALIGN2;
DRAWTEXT(ng=6 AND po,9,'庚 '),COLORRED,ALIGN2;
DRAWTEXT(ng=7 AND po,9,'辛 '),COLORRED,ALIGN2;
DRAWTEXT(ng=8 AND po,9,'壬 '),COLORRED,ALIGN2;
DRAWTEXT(ng=9 AND po,9,'癸 '),COLORRED,ALIGN2;
nz:=MOD(GANZHI(DATE,0,0),12);
DRAWTEXT(nz=0 AND po,9,'子 '),COLORRED,ALIGN2;
DRAWTEXT(nz=1 AND po,9,'丑 '),COLORRED,ALIGN2;
DRAWTEXT(nz=2 AND po,9,'寅 '),COLORRED,ALIGN2;
DRAWTEXT(nz=3 AND po,9,'卯 '),COLORRED,ALIGN2;
DRAWTEXT(nz=4 AND po,9,'辰 '),COLORRED,ALIGN2;
DRAWTEXT(nz=5 AND po,9,'巳 '),COLORRED,ALIGN2;
DRAWTEXT(nz=6 AND po,9,'午 '),COLORRED,ALIGN2;
DRAWTEXT(nz=7 AND po,9,'未 '),COLORRED,ALIGN2;
DRAWTEXT(nz=8 AND po,9,'申 '),COLORRED,ALIGN2;
DRAWTEXT(nz=9 AND po,9,'酉 '),COLORRED,ALIGN2;
DRAWTEXT(nz=10 AND po,9,'戌 '),COLORRED,ALIGN2;
DRAWTEXT(nz=11 AND po,9,'亥 '),COLORRED,ALIGN2;
yg:=MOD(GANZHI(DATE,0,1),10);
DRAWTEXT(yg=0 AND po,9,'甲 '),COLORRED,ALIGN2;
DRAWTEXT(yg=1 AND po,9,'乙 '),COLORRED,ALIGN2;
DRAWTEXT(yg=2 AND po,9,'丙 '),COLORRED,ALIGN2;
DRAWTEXT(yg=3 AND po,9,'丁 '),COLORRED,ALIGN2;
DRAWTEXT(yg=4 AND po,9,'戊 '),COLORRED,ALIGN2;
DRAWTEXT(yg=5 AND po,9,'己 '),COLORRED,ALIGN2;
DRAWTEXT(yg=6 AND po,9,'庚 '),COLORRED,ALIGN2;
DRAWTEXT(yg=7 AND po,9,'辛 '),COLORRED,ALIGN2;
DRAWTEXT(yg=8 AND po,9,'壬 '),COLORRED,ALIGN2;
DRAWTEXT(yg=9 AND po,9,'癸 '),COLORRED,ALIGN2;
yz:=MOD(GANZHI(DATE,0,1),12);
DRAWTEXT(yz=0 AND po,9,'子 '),COLORRED,ALIGN2;
DRAWTEXT(yz=1 AND po,9,'丑 '),COLORRED,ALIGN2;
DRAWTEXT(yz=2 AND po,9,'寅 '),COLORRED,ALIGN2;
DRAWTEXT(yz=3 AND po,9,'卯 '),COLORRED,ALIGN2;
DRAWTEXT(yz=4 AND po,9,'辰 '),COLORRED,ALIGN2;
DRAWTEXT(yz=5 AND po,9,'巳 '),COLORRED,ALIGN2;
DRAWTEXT(yz=6 AND po,9,'午 '),COLORRED,ALIGN2;
DRAWTEXT(yz=7 AND po,9,'未 '),COLORRED,ALIGN2;
DRAWTEXT(yz=8 AND po,9,'申 '),COLORRED,ALIGN2;
DRAWTEXT(yz=9 AND po,9,'酉 '),COLORRED,ALIGN2;
DRAWTEXT(yz=10 AND po,9,'戌 '),COLORRED,ALIGN2;
DRAWTEXT(yz=11 AND po,9,'亥 '),COLORRED,ALIGN2;
rg:=MOD(GANZHI(DATE,0,2),10);
DRAWTEXT(rg=0 AND po,9,'甲 '),COLORRED,ALIGN2;
DRAWTEXT(rg=1 AND po,9,'乙 '),COLORRED,ALIGN2;
DRAWTEXT(rg=2 AND po,9,'丙 '),COLORRED,ALIGN2;
DRAWTEXT(rg=3 AND po,9,'丁 '),COLORRED,ALIGN2;
DRAWTEXT(rg=4 AND po,9,'戊 '),COLORRED,ALIGN2;
DRAWTEXT(rg=5 AND po,9,'己 '),COLORRED,ALIGN2;
DRAWTEXT(rg=6 AND po,9,'庚 '),COLORRED,ALIGN2;
DRAWTEXT(rg=7 AND po,9,'辛 '),COLORRED,ALIGN2;
DRAWTEXT(rg=8 AND po,9,'壬 '),COLORRED,ALIGN2;
DRAWTEXT(rg=9 AND po,9,'癸 '),COLORRED,ALIGN2;
rz:=MOD(GANZHI(DATE,0,2),12);
DRAWTEXT(rz=0 AND po,9,'子 '),COLORRED,ALIGN2;
DRAWTEXT(rz=1 AND po,9,'丑 '),COLORRED,ALIGN2;
DRAWTEXT(rz=2 AND po,9,'寅 '),COLORRED,ALIGN2;
DRAWTEXT(rz=3 AND po,9,'卯 '),COLORRED,ALIGN2;
DRAWTEXT(rz=4 AND po,9,'辰 '),COLORRED,ALIGN2;
DRAWTEXT(rz=5 AND po,9,'巳 '),COLORRED,ALIGN2;
DRAWTEXT(rz=6 AND po,9,'午 '),COLORRED,ALIGN2;
DRAWTEXT(rz=7 AND po,9,'未 '),COLORRED,ALIGN2;
DRAWTEXT(rz=8 AND po,9,'申 '),COLORRED,ALIGN2;
DRAWTEXT(rz=9 AND po,9,'酉 '),COLORRED,ALIGN2;
DRAWTEXT(rz=10 AND po,9,'戌 '),COLORRED,ALIGN2;
DRAWTEXT(rz=11 AND po,9,'亥 '),COLORRED,ALIGN2;
km:=INTPART(GANZHI(DATE, 0,2)/10);
DRAWTEXT(km=5 AND po,9,'子丑 '),COLORRED,ALIGN2;
DRAWTEXT(km=4 AND po,9,'寅卯 '),COLORRED,ALIGN2;
DRAWTEXT(km=3 AND po,9,'辰巳 '),COLORRED,ALIGN2;
DRAWTEXT(km=2 AND po,9,'午未 '),COLORRED,ALIGN2;
DRAWTEXT(km=1 AND po,9,'申酉 '),COLORRED,ALIGN2;
DRAWTEXT(km=0 AND po,9,'戌亥 '),COLORRED,ALIGN2;
aa:=IF(CLOSE>OPEN,1,IF(CLOSE<OPEN,-1,0));
aa1:=IF(CLOSE>REF(CLOSE,1),1,IF(CLOSE<REF(CLOSE,1),-1,0));
aa2:=IF(VOL>REF(VOL,1),1,IF(VOL<=REF(VOL,1),-1,0));
bb:=IF(aa=0,aa1,aa);cc:=IF(bb=0,aa2,bb);
s1:=IF(REF(cc,5)>0 and REF(cc,4)>0 and REF(cc,3)>0,1,0);
s2:=IF(REF(cc,5)<0 and REF(cc,4)>0 and REF(cc,3)>0,2,0);
s3:=IF(REF(cc,5)>0 and REF(cc,4)<0 and REF(cc,3)>0,3,0);
s4:=IF(REF(cc,5)<0 and REF(cc,4)<0 and REF(cc,3)>0,4,0);
s5:=IF(REF(cc,5)>0 and REF(cc,4)>0 and REF(cc,3)<0,5,0);
s6:=IF(REF(cc,5)<0 and REF(cc,4)>0 and REF(cc,3)<0,6,0);
s7:=IF(REF(cc,5)>0 and REF(cc,4)<0 and REF(cc,3)<0,7,0);
s8:=IF(REF(cc,5)<0 and REF(cc,4)<0 and REF(cc,3)<0,8,0);
ss:=s1+s2+s3+s4+s5+s6+s7+s8;
x1:=IF(REF(cc,2)>0 and REF(cc,1)>0 and cc>0,1,0);
x2:=IF(REF(cc,2)<0 and REF(cc,1)>0 and cc>0,2,0);
x3:=IF(REF(cc,2)>0 and REF(cc,1)<0 and cc>0,3,0);
x4:=IF(REF(cc,2)<0 and REF(cc,1)<0 and cc>0,4,0);
x5:=IF(REF(cc,2)>0 and REF(cc,1)>0 and cc<0,5,0);
x6:=IF(REF(cc,2)<0 and REF(cc,1)>0 and cc<0,6,0);
x7:=IF(REF(cc,2)>0 and REF(cc,1)<0 and cc<0,7,0);
x8:=IF(REF(cc,2)<0 and REF(cc,1)<0 and cc<0,8,0);
xx:=x1+x2+x3+x4+x5+x6+x7+x8;
xxx:=LDAY+GANZHI(DATE, TIME, 0)-INTPART(GANZHI(DATE, TIME, 0)/12)*12+1+LMONTH;
yui:=MOD(ss+xx+时辰+IF(STKLABEL='1A0001',0,(IF( STKLABEL='399001', 4,ZQDMSUM))),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));
np:=IF(ss>4,0,1);
nk:=IF(xx=5,2,IF(xx=6,2,0))+IF(xx<=2,2,IF(xx>=7,0,0));
nj:=IF(xx>4,0,1);
ni:=(ss-(INTPART((ss)/2))*2)*4;
nl:=(xx-(INTPART((xx)/2))*2)*4;
xxx:=IF(nk=no,2,0)+IF(nj=np,1,0)+IF(nl=ni,4,0);
l6:=IF(dd=6,IF(dd=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;
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,'丑 '),COLORYELLOW,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,'卯 '),COLORCYAN,ALIGN2;
mk:=IF(ssX=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(zuA>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;
trx:=IF(ssX=7,5,IF(ssX=6,6,0));
DRAWTEXT(trx>0 AND po,trx,'子 '),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));m2:=(IF(xx=7,3,0)+IF(xx=5,3,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));
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,2,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(ov<3 or ov=6,ss,0)+IF(ov=3 AND xxx=5,xx,IF(ov=3,ss,0))+IF(ov=4 or ov=5,ooo,0);
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));sdfr1:=(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));xxss:=ss*10+xx;
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,'父 '),COLORMAGENTA,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;
rty:=IF(dd=up,1,0)+IF(dd=jui,1,0)+IF(dd=ux,2,0)+IF(jxigi=dd,2,0)+IF(dd=iu,3,0)+IF(jzii=dd,3,0)+
IF(dd=ui,4,0)+IF(jhaii=dd,4,0)+IF(dd=gu,5,0)+IF(juani=dd,5,0) linethick0;
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;
rgy1:=IF(dd=ups,1,0)+IF(dd=jjf,1,0)+IF(dd=on,2,0)+IF(jxi=dd,2,0)+IF(dd=ius,3,0)+IF(jzi=dd,3,0)+
IF(dd=uis,4,0)+IF(jha=dd,4,0)+IF(dd=gus,5,0)+IF(jga=dd,5,0); rgy:=rgy1+rty*10 linethick0;
DRAWTEXT(po,ov,'世 '),COLORMAGENTA,ALIGN2;
DRAWTEXT(po,vo,'应 '),COLORMAGENTA,ALIGN2;
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(sdfr1>0 AND po,2,'▄▄▄ '),COLORGREEN,ALIGN2;
DRAWTEXT(sdfr1=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 AND 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,sdfr1,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,9,'年 月 日( )空 '),COLORFFFFCC,ALIGN2;
DRAWTEXT(po,7,'主卦 变卦 '),COLORFFFFCC,ALIGN2;
|