请老师们能将公式改为适合大智慧用的公式

luo6371 · 发表于 2007-8-26 07:24

请老师们能将公式改为适合大智慧用的公式

来自：MACD论坛(bbs.macd.cn) 作者：luo6371 浏览：3877 回复：6

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有帐号？立即注册

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(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;
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,'　丑 '),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;
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,'　父 '),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;
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 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,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 AND 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,' 未 '),COLORRED,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,'地泽临 '),COLOR5659FF,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 AND 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 AND 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;
DRAWYITEXT(DATE AND PO,7,BBB,1),COLOR5659FF,ALIGN2;

紫龙001 · 发表于 2007-8-27 20:38

大智慧软件不支持这里面部分功能。飞狐行。

luo6371 · 发表于 2007-9-2 14:22

老师：能将公式改为适合通达信用的公式吗？只显示第一句公式有问题而已

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(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;
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,'　丑 '),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;
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,'　父 '),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;
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 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,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 AND 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,' 未 '),COLORRED,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,'地泽临 '),COLOR5659FF,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 AND 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 AND 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;
DRAWYITEXT(DATE AND PO,7,BBB,1),COLOR5659FF,ALIGN2;

luo6371 · 发表于 2007-9-2 14:45

可以改成通达信公式吗

DODOEMILY · 发表于 2007-9-2 14:49

想知道大智慧的:*19*:

紫龙001 · 发表于 2007-9-3 08:15

你不了解计算机及软件公式原理，
显示的是从第一句就有问题。
除了飞狐，其他软件的函数本身就缺少易学函数支持，这下你明白了吧。

luo6371 · 发表于 2007-9-4 19:16

:) :*19*: :)

下半年翻五倍的标的查询	只要觉得你的资源有价值，找我	超长线翻倍股6个，299元	想知识变现，点这里
广东线下聚会即将开始	帮你配置仓位	领五倍以上大牛	不做制度的牺牲品

[个股交流] 请老师们能将公式改为适合大智慧用的公式