六联体原码
NG:=MOD(GANZHI(DATE,0,0),10); -0.7,POINTDOT,color10000; PO:=SYSPARAM(1)=BARPOS; DRAWTEXT(NG=0 AND PO,9,'甲 '),ALIGN2,colorFF; DRAWTEXT(NG=1 AND PO,9,'乙 '),ALIGN2,colorFF; DRAWTEXT(NG=2 AND PO,9,'丙 '),ALIGN2,colorFF; DRAWTEXT(NG=3 AND PO,9,'丁 '),ALIGN2,colorFF; DRAWTEXT(NG=4 AND PO,9,'戊 '),ALIGN2,colorFF; DRAWTEXT(NG=5 AND PO,9,'己 '),ALIGN2,colorFF; DRAWTEXT(NG=6 AND PO,9,'庚 '),ALIGN2,colorFF; DRAWTEXT(NG=7 AND PO,9,'辛 '),ALIGN2,colorFF; DRAWTEXT(NG=8 AND PO,9,'壬 '),ALIGN2,colorFF; DRAWTEXT(NG=9 AND PO,9,'癸 '),ALIGN2,colorFF; NZ:=MOD(GANZHI(DATE,0,0),12); DRAWTEXT(NZ=0 AND PO,9,'子 '),ALIGN2,colorFF; DRAWTEXT(NZ=1 AND PO,9,'丑 '),ALIGN2,colorFF; DRAWTEXT(NZ=2 AND PO,9,'寅 '),ALIGN2,colorFF; DRAWTEXT(NZ=3 AND PO,9,'卯 '),ALIGN2,colorFF; DRAWTEXT(NZ=4 AND PO,9,'辰 '),ALIGN2,colorFF; DRAWTEXT(NZ=5 AND PO,9,'巳 '),ALIGN2,colorFF; DRAWTEXT(NZ=6 AND PO,9,'午 '),ALIGN2,colorFF; DRAWTEXT(NZ=7 AND PO,9,'未 '),ALIGN2,colorFF; DRAWTEXT(NZ=8 AND PO,9,'申 '),ALIGN2,colorFF; DRAWTEXT(NZ=9 AND PO,9,'酉 '),ALIGN2,colorFF; DRAWTEXT(NZ=10 AND PO,9,'戌 '),ALIGN2,colorFF; DRAWTEXT(NZ=11 AND PO,9,'亥 '),ALIGN2,colorFF; YG:=MOD(GANZHI(DATE,0,1),10); DRAWTEXT(YG=0 AND PO,9,'甲 '),ALIGN2,colorFF; DRAWTEXT(YG=1 AND PO,9,'乙 '),ALIGN2,colorFF; DRAWTEXT(YG=2 AND PO,9,'丙 '),ALIGN2,colorFF; DRAWTEXT(YG=3 AND PO,9,'丁 '),ALIGN2,colorFF; DRAWTEXT(YG=4 AND PO,9,'戊 '),ALIGN2,colorFF; DRAWTEXT(YG=5 AND PO,9,'己 '),ALIGN2,colorFF; DRAWTEXT(YG=6 AND PO,9,'庚 '),ALIGN2,colorFF; DRAWTEXT(YG=7 AND PO,9,'辛 '),ALIGN2,colorFF; DRAWTEXT(YG=8 AND PO,9,'壬 '),ALIGN2,colorFF; DRAWTEXT(YG=9 AND PO,9,'癸 '),ALIGN2,colorFF; YZ:=MOD(GANZHI(DATE,0,1),12); DRAWTEXT(YZ=0 AND PO,9,'子 '),ALIGN2,colorFF; DRAWTEXT(YZ=1 AND PO,9,'丑 '),ALIGN2,colorFF; DRAWTEXT(YZ=2 AND PO,9,'寅 '),ALIGN2,colorFF; DRAWTEXT(YZ=3 AND PO,9,'卯 '),ALIGN2,colorFF; DRAWTEXT(YZ=4 AND PO,9,'辰 '),ALIGN2,colorFF; DRAWTEXT(YZ=5 AND PO,9,'巳 '),ALIGN2,colorFF; DRAWTEXT(YZ=6 AND PO,9,'午 '),ALIGN2,colorFF; DRAWTEXT(YZ=7 AND PO,9,'未 '),ALIGN2,colorFF; DRAWTEXT(YZ=8 AND PO,9,'申 '),ALIGN2,colorFF; DRAWTEXT(YZ=9 AND PO,9,'酉 '),ALIGN2,colorFF; DRAWTEXT(YZ=10 AND PO,9,'戌 '),ALIGN2,colorFF; DRAWTEXT(YZ=11 AND PO,9,'亥 '),ALIGN2,colorFF; RG:=MOD(GANZHI(DATE,0,2),10); DRAWTEXT(RG=0 AND PO,9,'甲 '),ALIGN2,colorFF; DRAWTEXT(RG=1 AND PO,9,'乙 '),ALIGN2,colorFF; DRAWTEXT(RG=2 AND PO,9,'丙 '),ALIGN2,colorFF; DRAWTEXT(RG=3 AND PO,9,'丁 '),ALIGN2,colorFF; DRAWTEXT(RG=4 AND PO,9,'戊 '),ALIGN2,colorFF; DRAWTEXT(RG=5 AND PO,9,'己 '),ALIGN2,colorFF; DRAWTEXT(RG=6 AND PO,9,'庚 '),ALIGN2,colorFF; DRAWTEXT(RG=7 AND PO,9,'辛 '),ALIGN2,colorFF; DRAWTEXT(RG=8 AND PO,9,'壬 '),ALIGN2,colorFF; DRAWTEXT(RG=9 AND PO,9,'癸 '),ALIGN2,colorFF; RZ:=MOD(GANZHI(DATE,0,2),12); DRAWTEXT(RZ=0 AND PO,9,'子 '),ALIGN2,colorFF; DRAWTEXT(RZ=1 AND PO,9,'丑 '),ALIGN2,colorFF; DRAWTEXT(RZ=2 AND PO,9,'寅 '),ALIGN2,colorFF; DRAWTEXT(RZ=3 AND PO,9,'卯 '),ALIGN2,colorFF; DRAWTEXT(RZ=4 AND PO,9,'辰 '),ALIGN2,colorFF; DRAWTEXT(RZ=5 AND PO,9,'巳 '),ALIGN2,colorFF; DRAWTEXT(RZ=6 AND PO,9,'午 '),ALIGN2,colorFF; DRAWTEXT(RZ=7 AND PO,9,'未 '),ALIGN2,colorFF; DRAWTEXT(RZ=8 AND PO,9,'申 '),ALIGN2,colorFF; DRAWTEXT(RZ=9 AND PO,9,'酉 '),ALIGN2,colorFF; DRAWTEXT(RZ=10 AND PO,9,'戌 '),ALIGN2,colorFF; DRAWTEXT(RZ=11 AND PO,9,'亥 '),ALIGN2,colorFF; KM:=INTPART(GANZHI(DATE,0,2)/10); DRAWTEXT(KM=5 AND PO,9,'子丑 '),ALIGN2,colorFF; DRAWTEXT(KM=4 AND PO,9,'寅卯 '),ALIGN2,colorFF; DRAWTEXT(KM=3 AND PO,9,'辰巳 '),ALIGN2,colorFF; DRAWTEXT(KM=2 AND PO,9,'午未 '),ALIGN2,colorFF; DRAWTEXT(KM=1 AND PO,9,'申酉 '),ALIGN2,colorFF; DRAWTEXT(KM=0 AND PO,9,'戌亥 '),ALIGN2,colorFF; 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; YUI:=MOD(SS+XX+时辰+IF(CLOSE>100,ZQDMSUM+5,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,'子 '),ALIGN2,color808080; SHUL:=IF(SS=7,5,IF(SS=6,6,0)); DRAWTEXT(SHUL>0 AND PO,SHUL,'子 '),ALIGN2,color808080; HUL:=IF(XX=1,2,IF(XX=4,2,0))+IF(XX=6,1,0); DRAWTEXT(HUL>0 AND PO,HUL,'寅 '),ALIGN2,colorFFFF00; HL9:=IF(SS=7,6,0); LWU:=IF(SS=1,4,IF(SS=4,4,0)); DRAWTEXT(HL9>0 AND PO,HL9,'寅 '),ALIGN2,colorFFFF00; 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,'辰 '),ALIGN2,colorFFFF; DRAWTEXT(LWU>0 AND PO,LWU,'午 '),ALIGN2,colorFF; LK:=IF(XX=6,3,IF(XX=7,2,0)); DRAWTEXT(LK>0 AND PO,LK,'午 '),ALIGN2,colorFF; VENA:=IF(SSX=1,5,IF(SSX=4,5,0))+IF(SSX=6,4,0); DRAWTEXT(VENA>0 AND PO,VENA,'申 '),ALIGN2,colorFFFFFF; NHENK:=IF(XXS=7,3,0); DRAWTEXT(NHENK>0 AND PO,NHENK,'申 '),ALIGN2,colorFFFFFF; 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,'戌 '),ALIGN2,colorFFFF; KHOUA:=IF(XXS=2,3,IF(XXS=5,1,0))+IF(XXS=3,2,0); DRAWTEXT(KHOUA>0 AND PO,KHOUA,'丑 '),ALIGN2,colorFFFF; KHOU2A:=IF(SSX=8,4,0); DRAWTEXT(KHOU2A>0 AND PO,KHOU2A,'丑 '),ALIGN2,colorFFFF; KAOA:=IF(XXS=8,3,IF(XXS=3,1,0))+IF(XXS=2,2,0); DRAWTEXT(KAOA>0 AND PO,KAOA,'卯 '),ALIGN2,colorFFFF00; MK:=IF(SSX=5,6,0); WEZ:=IF(XXS=8,1,0); DRAWTEXT(MK>0 AND PO,MK,'卯 '),ALIGN2,colorFFFF00; KA:=IF(XXS=8,2,IF(XXS=2,1,0)); DRAWTEXT(KA>0 AND PO,KA,'巳 '),ALIGN2,colorFF; SI2A:=IF(SSX=3,6,IF(SSX=5,5,0)); DRAWTEXT(SI2A>0 AND PO,SI2A,'巳 '),ALIGN2,colorFF; ZEIA:=IF(SSX=5,4,IF(SSX=3,5,0))+IF(SSX=2,6,0); DRAWTEXT(ZEIA>0 AND PO,ZEIA,'未 '),ALIGN2,colorFFFF; DRAWTEXT(WEZ>0 AND PO,WEZ,'未 '),ALIGN2,colorFFFF; ZUA:=IF(SSX=8,6,IF(SSX=3,4,0))+IF(SSX=2,5,0); DRAWTEXT(ZUA>0 AND PO,ZUA,'酉 '),ALIGN2,colorFFFFFF; SU2A:=IF(XXS=5,3,0); FAIX:=IF(SSX=8,5,IF(SSX=2,4,0)); DRAWTEXT(SU2A>0 AND PO,SU2A,'酉 '),ALIGN2,colorFFFFFF; DRAWTEXT(FAIX>0 AND PO,FAIX,'亥 '),ALIGN2,color808080; I2B:=IF(XXS=5,2,IF(XXS=3,3,0)); DRAWTEXT(I2B>0 AND PO,I2B,' 亥 '),ALIGN2,color808080; LEN:=IF(SS=1,5,IF(SS=4,5,0))+IF(SS=6,4,0); DRAWTEXT(LEN>0 AND PO,LEN,'申 '),ALIGN2,colorFFFFFF; EN2:=IF(XX=7,3,0); DRAWTEXT(EN2>0 AND PO,EN2,'申 '),ALIGN2,colorFFFFFF; 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,'戌 '),ALIGN2,colorFFFF; LHIU:=IF(XX=2,3,IF(XX=5,1,0))+IF(XX=3,2,0); DRAWTEXT(LHIU>0 AND PO,LHIU,'丑 '),ALIGN2,colorFFFF; SU2:=IF(SS=8,4,0); WI2:=IF(XX=8,1,0); DRAWTEXT(SU2>0 AND PO,SU2,'丑 '),ALIGN2,colorFFFF; LLO:=IF(XX=8,3,IF(XX=3,1,0))+IF(XX=2,2,0); DRAWTEXT(LLO>0 AND PO,LLO,'卯 '),ALIGN2,colorFFFF00; LAU2:=IF(SS=5,6,0); DRAWTEXT(LAU2>0 AND PO,LAU2,'卯 '),ALIGN2,colorFFFF00; 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,'巳 '),ALIGN2,colorFF; DRAWTEXT(SI2>0 AND PO,SI2,'巳 '),ALIGN2,colorFF; PPI:=IF(SS=5,4,IF(SS=3,5,0))+IF(SS=2,6,0); DRAWTEXT(PPI>0 AND PO,PPI,'未 '),ALIGN2,colorFFFF; DRAWTEXT(WI2>0 AND PO,WI2,'未 '),ALIGN2,colorFFFF; OOU:=IF(SS=8,6,IF(SS=3,4,0))+IF(SS=2,5,0); DRAWTEXT(OOU>0 AND PO,OOU,'酉 '),ALIGN2,colorFFFFFF; JU2:=IF(XX=5,3,0); HL:=IF(SS=8,5,IF(SS=2,4,0)); DRAWTEXT(JU2>0 AND PO,JU2,'酉 '),ALIGN2,colorFFFFFF; DRAWTEXT(HL>0 AND PO,HL,'亥 '),ALIGN2,color808080; I2:=IF(XX=5,2,IF(XX=3,3,0)); DRAWTEXT(I2>0 AND PO,I2,'亥 '),ALIGN2,color808080; RTQ:=XXS=1 OR XXS=4; DRAWTEXT(RTQ>0 AND PO,RTQ,'子 '),ALIGN2,color808080; TR:=IF(SSX=7,5,IF(SSX=6,6,0)); DRAWTEXT(TR>0 AND PO,TR,'子 '),ALIGN2,color808080; HUY:=IF(XXS=1,2,IF(XXS=4,2,0))+IF(XXS=6,1,0); DRAWTEXT(HUY>0 AND PO,HUY,'寅 '),ALIGN2,colorFFFF00; HU2A:=IF(SSX=7,6,0); DRAWTEXT(HU2A>0 AND PO,HU2A,'寅 '),ALIGN2,colorFFFF00; 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,'辰 '),ALIGN2,colorFFFF; TUA:=IF(SSX=1,4,IF(SSX=4,4,0)); DRAWTEXT(TUA>0 AND PO,TUA,'午 '),ALIGN2,colorFF; GUTA:=IF(XXS=6,3,IF(XXS=7,2,0)); DRAWTEXT(GUTA>0 AND PO,GUTA,'午 '),ALIGN2,colorFF; 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,'父 '),ALIGN2,colorFF00FF; 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,'财 '),ALIGN2,colorFF00FF; 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,'官 '),ALIGN2,colorFF00FF; 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,'子 '),ALIGN2,colorFF00FF; 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,'兄 '),ALIGN2,colorFF00FF; 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); 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,'父 '),ALIGN2,colorFF00FF; 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,'财 '),ALIGN2,colorFF00FF; 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,'官 '),ALIGN2,colorFF00FF; 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,'子 '),ALIGN2,colorFF00FF; ON:=IF(IYA=0,1,0)+IF(RYA=0,2,0)+IF(ANYA=0,3,0); DRAWTEXT(ON>0 AND PO,ON,'兄 '),ALIGN2,colorFF00FF; 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,'父 '),ALIGN2,colorFF00FF; 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,'财 '),ALIGN2,colorFF00FF; 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,'官 '),ALIGN2,colorFF00FF; 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,'子 '),ALIGN2,colorFF00FF; 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,'兄 '),ALIGN2,colorFF00FF; 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); 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,'父 '),ALIGN2,colorFF00FF; 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,'财 '),ALIGN2,colorFF00FF; 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,'官 '),ALIGN2,colorFF00FF; 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,'子 '),ALIGN2,colorFF00FF; JXI:=IF(HIYA=0,4,0)+IF(UYA=0,5,0)+IF(IUYA=0,6,0); DRAWTEXT(JXI>0 AND PO,JXI,'兄 '),ALIGN2,colorFF00FF; 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; DRAWTEXT(PO,OV,'世 '),ALIGN2,colorFF00FF; DRAWTEXT(PO,VO,'应 '),ALIGN2,colorFF00FF; 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,'财伏 '),ALIGN2,colorFF00FF; 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,'子 '),ALIGN2,colorFF; DRAWTEXT(SXIO=3 AND PO,XSXS,'寅 '),ALIGN2,colorFFFF00; DRAWTEXT(SXIO=4 AND PO,XSXS,'卯 '),ALIGN2,colorFFFF00; DRAWTEXT(SXIO=7 AND PO,XSXS,'午 '),ALIGN2,colorFF; DRAWTEXT(SXIO=10 AND PO,XSXS,'酉 '),ALIGN2,colorFFFFFF; DRAWTEXT(ASDI>0 AND PO,1,'▄▄▄ '),ALIGN2,colorFF00; DRAWTEXT(ASDI=0 AND PO,1,'▄ ▄ '),ALIGN2,colorFF00; DRAWTEXT(SDFR>0 AND PO,2,'▄▄▄ '),ALIGN2,colorFF00; DRAWTEXT(SDFR=0 AND PO,2,'▄ ▄ '),ALIGN2,colorFF00; DFGN:=XX=1 OR XX=3 OR XX=5 OR XX=7; DRAWTEXT(DFGN>0 AND PO,3,'▄▄▄ '),ALIGN2,colorFF00; DRAWTEXT(DFGN=0 AND PO,3,'▄ ▄ '),ALIGN2,colorFF00; FGH:=SS=1 OR SS=2 OR SS=3 OR SS=4; DRAWTEXT(FGH>0 AND PO,4,'▄▄▄ '),ALIGN2,colorFF00; DRAWTEXT(FGH=0 AND PO,4,'▄ ▄ '),ALIGN2,colorFF00; GHJ:=SS=1 OR SS=2 OR SS=5 OR SS=6; DRAWTEXT(GHJ>0 AND PO,5,'▄▄▄ '),ALIGN2,colorFF00; DRAWTEXT(GHJ=0 AND PO,5,'▄ ▄ '),ALIGN2,colorFF00; HJK:=SS=1 OR SS=3 OR SS=5 OR SS=7; DRAWTEXT(HJK>0 AND PO,6,'▄▄▄ '),ALIGN2,colorFF00; DRAWTEXT(HJK=0 AND PO,6,'▄ ▄ '),ALIGN2,colorFF00; DRAWTEXT(GIA>0 AND PO,1,'▄▄▄ '),ALIGN2,colorFF00; DRAWTEXT(GIA=0 AND PO,1,'▄ ▄ '),ALIGN2,colorFF00; TRA:=XXS=1 OR XXS=2 OR XXS=5 OR XXS=6; DRAWTEXT(TRA>0 AND PO,2,'▄▄▄ '),ALIGN2,colorFF00; DRAWTEXT(TRA=0 AND PO,2,'▄ ▄ '),ALIGN2,colorFF00; HANA:=XXS=1 OR XXS=3 OR XXS=5 OR XXS=7; DRAWTEXT(HANA>0 AND PO,3,'▄▄▄ '),ALIGN2,colorFF00; DRAWTEXT(HANA=0 AND PO,3,'▄ ▄ '),ALIGN2,colorFF00; SOIA:=SSX=1 OR SSX=2 OR SSX=3 OR SSX=4; DRAWTEXT(SOIA>0 AND PO,4,'▄▄▄ '),ALIGN2,colorFF00; DRAWTEXT(SOIA=0 AND PO,4,'▄ ▄ '),ALIGN2,colorFF00; IOP:=SSX=1 OR SSX=2 OR SSX=5 OR SSX=6; DRAWTEXT(IOP>0 AND PO,5,'▄▄▄ '),ALIGN2,colorFF00; DRAWTEXT(IOP=0 AND PO,5,'▄ ▄ '),ALIGN2,colorFF00; YUI:=SSX=1 OR SSX=3 OR SSX=5 OR SSX=7; DRAWTEXT(YUI>0 AND PO,6,'▄▄▄ '),ALIGN2,colorFF00; DRAWTEXT(YUI=0 AND PO,6,'▄ ▄ '),ALIGN2,colorFF00; 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 '),ALIGN2,colorFF; DRAWTEXT(DDD+DD=DD AND PO,DD,'▄ ▄ x '),ALIGN2,colorFFFF00; DRAWTEXT(PO,9,'年 月 日( )空 '),ALIGN2,colorFFFFCC; DRAWTEXT(PO,7,'主卦 变卦 '),ALIGN2,colorFFFFCC; 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,'世 '),ALIGN2,colorFF00FF; 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,'应 '),ALIGN2,colorFF00FF; QL:=IF(RG<=1,1,0)+IF(RG=2,6,0)+IF(RG=3,6,0)+IF(RG=4,5,0)+IF(RG=5,4,0)+IF(RG=6,3,0)+IF(RG=7,3,0)+IF(RG>=8,2,0); DRAWTEXT(PO,QL,'龙'),ALIGN2,colorFFFF00; BB:=SS*10+XX; Q:=IF(QL+1<7,QL+1,IF(QL+1>6,QL-5,0)); DRAWTEXT(PO,Q,'雀'),ALIGN2,colorFF; G:=IF(QL+2<7,QL+2,IF(QL+2>6,QL-4,0)); DRAWTEXT(PO,G,'勾'),ALIGN2,colorFFFF; S:=IF(QL+3<7,QL+3,IF(QL+3>6,QL-3,0)); DRAWTEXT(PO,S,'蛇'),ALIGN2,colorFFFF; HH:=IF(QL+4<7,QL+4,IF(QL+4>6,QL-2,0)); DRAWTEXT(PO,HH,'虎'),ALIGN2,colorFFFFFF; W:=IF(QL+5<7,QL+5,IF(QL+5>6,QL-1,0)); DRAWTEXT(PO,W,'武'),ALIGN2,color808080; DRAWTEXT(BB=68 AND PO,7,'水地比(归) '),ALIGN2,color5659FF; DRAWTEXT(BB=61 AND PO,7,'水天需(游) '),ALIGN2,color5659FF; DRAWTEXT(BB=21 AND PO,7,'泽天夬 '),ALIGN2,color5659FF; DRAWTEXT(BB=41 AND PO,7,'雷天大壮 '),ALIGN2,color5659FF; DRAWTEXT(BB=81 AND PO,7,'地天泰 '),ALIGN2,color5659FF; DRAWTEXT(BB=82 AND PO,7,'地泽临 '),ALIGN2,color5659FF; DRAWTEXT(BB=84 AND PO,7,'地雷复 '),ALIGN2,color5659FF; DRAWTEXT(BB=88 AND PO,7,'坤为地 '),ALIGN2,color5659FF; DRAWTEXT(BB=57 AND PO,7,'风山渐(归) '),ALIGN2,color5659FF; DRAWTEXT(BB=52 AND PO,7,'风泽中孚(游) '),ALIGN2,color5659FF; DRAWTEXT(BB=12 AND PO,7,'天泽履 '),ALIGN2,color5659FF; DRAWTEXT(BB=32 AND PO,7,'火泽睽 '),ALIGN2,color5659FF; DRAWTEXT(BB=72 AND PO,7,'山泽损 '),ALIGN2,color5659FF; DRAWTEXT(BB=71 AND PO,7,'山天大畜 '),ALIGN2,color5659FF; DRAWTEXT(BB=73 AND PO,7,'山火贲 '),ALIGN2,color5659FF; DRAWTEXT(BB=77 AND PO,7,'艮为山 '),ALIGN2,color5659FF; DRAWTEXT(BB=86 AND PO,7,'地水师(归) '),ALIGN2,color5659FF; DRAWTEXT(BB=83 AND PO,7,'地火明夷(游) '),ALIGN2,color5659FF; DRAWTEXT(BB=43 AND PO,7,'雷火丰 '),ALIGN2,color5659FF; DRAWTEXT(BB=23 AND PO,7,'泽火革 '),ALIGN2,color5659FF; DRAWTEXT(BB=63 AND PO,7,'水火既济 '),ALIGN2,color5659FF; DRAWTEXT(BB=64 AND PO,7,'水雷屯 '),ALIGN2,color5659FF; DRAWTEXT(BB=62 AND PO,7,'水泽节 '),ALIGN2,color5659FF; DRAWTEXT(BB=66 AND PO,7,'坎为水 '),ALIGN2,color5659FF; DRAWTEXT(BB=75 AND PO,7,'山风蛊(归) '),ALIGN2,color5659FF; DRAWTEXT(BB=74 AND PO,7,'山雷颐(游) '),ALIGN2,color5659FF; DRAWTEXT(BB=34 AND PO,7,'火雷噬嗑 '),ALIGN2,color5659FF; DRAWTEXT(BB=14 AND PO,7,'天雷无妄 '),ALIGN2,color5659FF; DRAWTEXT(BB=54 AND PO,7,'风雷益 '),ALIGN2,color5659FF; DRAWTEXT(BB=53 AND PO,7,'风火家人 '),ALIGN2,color5659FF; DRAWTEXT(BB=51 AND PO,7,'风天小畜 '),ALIGN2,color5659FF; DRAWTEXT(BB=55 AND PO,7,'巽为风 '),ALIGN2,color5659FF; DRAWTEXT(BB=24 AND PO,7,'泽雷随(归) '),ALIGN2,color5659FF; DRAWTEXT(BB=25 AND PO,7,'泽风大过(游) '),ALIGN2,color5659FF; DRAWTEXT(BB=65 AND PO,7,'水风井 '),ALIGN2,color5659FF; DRAWTEXT(BB=85 AND PO,7,'地风升 '),ALIGN2,color5659FF; DRAWTEXT(BB=45 AND PO,7,'雷风恒 '),ALIGN2,color5659FF; DRAWTEXT(BB=46 AND PO,7,'雷水解 '),ALIGN2,color5659FF; DRAWTEXT(BB=48 AND PO,7,'雷地豫 '),ALIGN2,color5659FF; DRAWTEXT(BB=44 AND PO,7,'震为雷 '),ALIGN2,color5659FF; DRAWTEXT(BB=13 AND PO,7,'天火同人(归) '),ALIGN2,color5659FF; DRAWTEXT(BB=16 AND PO,7,'天水讼(游) '),ALIGN2,color5659FF; DRAWTEXT(BB=56 AND PO,7,'风水涣 '),ALIGN2,color5659FF; DRAWTEXT(BB=76 AND PO,7,'山水蒙 '),ALIGN2,color5659FF; DRAWTEXT(BB=36 AND PO,7,'火水未济 '),ALIGN2,color5659FF; DRAWTEXT(BB=35 AND PO,7,'火风鼎 '),ALIGN2,color5659FF; DRAWTEXT(BB=37 AND PO,7,'火山旅 '),ALIGN2,color5659FF; DRAWTEXT(BB=33 AND PO,7,'离为火 '),ALIGN2,color5659FF; DRAWTEXT(BB=42 AND PO,7,'雷泽归妹(归) '),ALIGN2,color5659FF; DRAWTEXT(BB=47 AND PO,7,'雷山小过(游) '),ALIGN2,color5659FF; DRAWTEXT(BB=87 AND PO,7,'地山谦 '),ALIGN2,color5659FF; DRAWTEXT(BB=67 AND PO,7,'水山蹇 '),ALIGN2,color5659FF; DRAWTEXT(BB=27 AND PO,7,'泽山咸 '),ALIGN2,color5659FF; DRAWTEXT(BB=28 AND PO,7,'泽地萃 '),ALIGN2,color5659FF; DRAWTEXT(BB=26 AND PO,7,'泽水困 '),ALIGN2,color5659FF; DRAWTEXT(BB=22 AND PO,7,'兑为泽 '),ALIGN2,color5659FF; DRAWTEXT(BB=31 AND PO,7,'火天大有(归) '),ALIGN2,color5659FF; DRAWTEXT(BB=38 AND PO,7,'火地晋(游) '),ALIGN2,color5659FF; DRAWTEXT(BB=78 AND PO,7,'山地剥 '),ALIGN2,color5659FF; DRAWTEXT(BB=58 AND PO,7,'风地观 '),ALIGN2,color5659FF; DRAWTEXT(BB=18 AND PO,7,'天地否 '),ALIGN2,color5659FF; DRAWTEXT(BB=17 AND PO,7,'天山遁 '),ALIGN2,color5659FF; DRAWTEXT(BB=15 AND PO,7,'天风姤 '),ALIGN2,color5659FF; DRAWTEXT(BB=11 AND PO,7,'乾为天 '),ALIGN2,color5659FF; DRAWYITEXT(DATE AND PO,7,SSX*10+XXS,1),ALIGN2,color5659FF; A:=LSOLARTERMDAY(DATE); DD:=INTPART(DATEDIFF(REF(DATE,1),DATE)/15); AA3:=FLATZIGA(A,1)=0 OR A=REF(A,1); WQ:=BARSLAST(AA3 OR BARPOS=1); J:=SUM(AA3+DD,BARSLAST(YEAR<>REF(YEAR,1) OR BARPOS=1)); GD:=WQ<>0; WH:=0*CLOSE; I:=CROSS(WQ,WH) OR ISLASTBAR*(WH>WQ); P1:=SYSPARAM(1); I:=J[P1]; JQ:=IF(I=1,'小寒',IF(I=2,'大寒',IF(I=3,'立春',IF(I=4,'雨水',IF(I=5,'惊蛰',IF(I=6,'春分',IF(I=7,'清明',IF(I=8,'谷雨',IF(I=9,'立夏',IF(I=10,'小满',IF(I=11,'芒种',IF(I=12,'夏至',IF(I=13,'小暑',IF(I=14,'大暑',IF(I=15,'立秋',IF(I=16,'处暑',IF(I=17,'白露',IF(I=18,'秋分',IF(I=19,'寒露',IF(I=20,'霜降',IF(I=21,'立冬',IF(I=22,'小雪',IF(I=23,'大雪','冬至'))))))))))))))))))))))); PP:=JQ+'后第'+NUMTOSTR(A[P1],0)+'天'; DRAWTEXT(PO AND JQ='立冬' AND A[P1]<7,8,PP+' 戊(辰戌燥)土司令值气 '),ALIGN2,colorFFFF; DRAWTEXT(PO AND JQ='立冬' AND A[P1]>=7 AND A[P1]<12,8,PP+' 甲(寅)木司令值气 '),ALIGN2,colorFFFF; DRAWTEXT(PO AND JQ='立冬' AND A[P1]>=12,8,PP+' 壬(子)水司令值气 '),ALIGN2,colorFFFF; DRAWTEXT(PO AND JQ='小雪',8,PP+' 壬(子)水司令值气 '),ALIGN2,colorFFFF; DRAWTEXT(PO AND JQ='大雪' AND A[P1]<10,8,PP+' 壬(子)水司令值气 '),ALIGN2,colorFFFF; DRAWTEXT(PO AND JQ='大雪' AND A[P1]>=10,8,PP+' 癸(亥)水司令值气 '),ALIGN2,colorFFFF; DRAWTEXT(PO AND JQ='冬至',8,PP+' 癸(亥)水司令值气 '),ALIGN2,colorFFFF; DRAWTEXT(PO AND JQ='小寒' AND A[P1]<9,8,PP+' 癸(亥)水司令值气'),ALIGN2,colorFFFF; DRAWTEXT(PO AND JQ='小寒' AND A[P1]>=9 AND A[P1]<12,8,PP+' 辛(酉)金司令值气 '),ALIGN2,colorFFFF; DRAWTEXT(PO AND JQ='小寒' AND A[P1]>=12,8,PP+' 己(丑未湿)土司令值气 '),ALIGN2,colorFFFF; DRAWTEXT(PO AND JQ='大寒',8,PP+' 己(丑未湿)土司令值气 '),ALIGN2,colorFFFF; DRAWTEXT(PO AND JQ='立春' AND A[P1]<7,8,PP+' 戊(辰戌)土司令值气 '),ALIGN2,colorFFFF; DRAWTEXT(PO AND JQ='立春' AND A[P1]>=7 AND A[P1]<14,8,PP+' 丙(午)火司令值气 '),ALIGN2,colorFFFF; DRAWTEXT(PO AND JQ='立春' AND A[P1]>=14,8,PP+' 甲(寅)木司令值气 '),ALIGN2,colorFFFF; DRAWTEXT(PO AND JQ='雨水',8,PP+' 甲(寅)木司令值气 '),ALIGN2,colorFFFF; DRAWTEXT(PO AND JQ='惊蛰' AND A[P1]<10,8,PP+' 甲(寅)木司令值气 '),ALIGN2,colorFFFF; DRAWTEXT(PO AND JQ='惊蛰' AND A[P1]>=10,8,PP+' 乙(卯)木司令值气 '),ALIGN2,colorFFFF; DRAWTEXT(PO AND JQ='春分',8,PP+' 乙(卯)木司令值气 '),ALIGN2,colorFFFF; DRAWTEXT(PO AND JQ='清明' AND A[P1]<9,8,PP+' 乙(卯)木司令值气 '),ALIGN2,colorFFFF; DRAWTEXT(PO AND JQ='清明' AND A[P1]>=9 AND A[P1]<12,8,PP+' 癸(亥)水司令值气 '),ALIGN2,colorFFFF; DRAWTEXT(PO AND JQ='清明' AND A[P1]>=12,8,PP+' 戊(辰戌湿)土司令值气 '),ALIGN2,colorFFFF; DRAWTEXT(PO AND JQ='谷雨',8,PP+' 戊(辰戌湿)土司令值气 '),ALIGN2,colorFFFF; DRAWTEXT(PO AND JQ='立夏' AND A[P1]<5,8,PP+' 戊(辰戌湿)土司令值气 '),ALIGN2,colorFFFF; DRAWTEXT(PO AND JQ='立夏' AND A[P1]>=5 AND A[P1]<14,8,PP+' 庚(申)金司令值气 '),ALIGN2,colorFFFF; DRAWTEXT(PO AND JQ='立夏' AND A[P1]>=14,8,PP+' 丙(午)火司令值气 '),ALIGN2,colorFFFF; DRAWTEXT(PO AND JQ='小满',8,PP+' 丙(午)火司令值气 '),ALIGN2,colorFFFF; DRAWTEXT(PO AND JQ='芒种' AND A[P1]<11,8,PP+' 丙(午)火司令值气 '),ALIGN2,colorFFFF; DRAWTEXT(PO AND JQ='芒种' AND A[P1]>=11,8,PP+' 己(丑未)土司令值气 '),ALIGN2,colorFFFF; DRAWTEXT(PO AND JQ='夏至' AND A[P1]<4,8,PP+' 己(丑未)土司令值气 '),ALIGN2,colorFFFF; DRAWTEXT(PO AND JQ='夏至' AND A[P1]>=4,8,PP+' 丁(巳)火司令值气 '),ALIGN2,colorFFFF; DRAWTEXT(PO AND JQ='小暑' AND A[P1]<9,8,PP+' 丁(巳)火司令值气 '),ALIGN2,colorFFFF; DRAWTEXT(PO AND JQ='小暑' AND A[P1]>=9 AND A[P1]<12,8,PP+' 乙卯木司令值气 '),ALIGN2,colorFFFF; DRAWTEXT(PO AND JQ='小暑' AND A[P1]>=12,8,PP+' 己(丑未燥)土司令值气 '),ALIGN2,colorFFFF; DRAWTEXT(PO AND JQ='大暑',8,PP+' 己(丑未燥)土司令值气 '),ALIGN2,colorFFFF; DRAWTEXT(PO AND JQ='立秋' AND A[P1]<7,8,PP+' 己(丑未)土司令值气 '),ALIGN2,colorFFFF; DRAWTEXT(PO AND JQ='立秋' AND A[P1]>=7 AND A[P1]<10,8,PP+' 戊(辰戌)土司令值气 '),ALIGN2,colorFFFF; DRAWTEXT(PO AND JQ='立秋' AND A[P1]>=10 AND A[P1]<13,8,PP+' 壬(子)水司令值气 '),ALIGN2,colorFFFF; DRAWTEXT(PO AND JQ='立秋' AND A[P1]>=13,8,PP+' 庚(申)金司令值气 '),ALIGN2,colorFFFF; DRAWTEXT(PO AND JQ='处暑',8,PP+' 庚(申)金司令值气 '),ALIGN2,colorFFFF; DRAWTEXT(PO AND JQ='白露' AND A[P1]<10,8,PP+' 庚(申)金司令值气 '),ALIGN2,colorFFFF; DRAWTEXT(PO AND JQ='白露' AND A[P1]>=10,8,PP+' 辛(酉)金司令值气 '),ALIGN2,colorFFFF; DRAWTEXT(PO AND JQ='秋分',8,PP+' 辛(酉)金司令值气 '),ALIGN2,colorFFFF; DRAWTEXT(PO AND JQ='寒露' AND A[P1]<9,8,PP+' 辛(酉)金司令值气 '),ALIGN2,colorFFFF; DRAWTEXT(PO AND JQ='寒露' AND A[P1]>=9 AND A[P1]<12,8,PP+' 丁巳火司令值气 '),ALIGN2,colorFFFF; DRAWTEXT(PO AND JQ='寒露' AND A[P1]>=12,8,PP+' 戊(辰戌燥)土司令值气 '),ALIGN2,colorFFFF; DRAWTEXT(PO AND JQ='霜降',8,PP+' 戊(辰戌燥)土司令值气 '),ALIGN2,colorFFFF; DRAWTEXT(RGY=11 AND PO,0.3,'父化父:股票提供者行为引起股票供应量发生变化,若旺相化进、休囚化退股价下跌;建议:离场卖出;\n若旺相化退、囚休化进、旺相化空股价上涨;建议:父衰持世可少许逢低买入或持股待涨;'),ALIGN2,colorFFFF; DRAWTEXT(RGY=12 AND PO,0.3,'父化兄:股票供应量变动引发投机者投机,子、财均被克制,无支撑下跌;\n父旺下跌,父衰减损;建议:宜速卖出'),ALIGN2,colorFFFF; DRAWTEXT(RGY=13 AND PO,0.3,'父化子:股票供应量变动引起资金供应量变化,抄底介入、急涨;\n父旺子衰利少,父衰子旺利多;建议:回调介入'),ALIGN2,colorFFFF; DRAWTEXT(RGY=14 AND PO,0.3,'父化财:股票供应量变动引起股市资金保有量变动,先跌后涨;\n父旺下跌,财旺上涨;建议:适当介入'),ALIGN2,colorFFFF; DRAWTEXT(RGY=15 AND PO,0.3,'父化官:股票供应量变动引起主力机构做市操盘,官出制兄,回头生仍有下跌,但跌幅不深。\n父旺下跌,官旺下跌;建议:退出观望或逢低少量买入'),ALIGN2,colorFFFF; DRAWTEXT(RGY=21 AND PO,0.3,'兄化父:投机者的投机行为引起股票供应量产生变化,动化回头生,\n股票供应量变化又引发投机行为。建议:离场观望或父旺卖出'),ALIGN2,colorFFFF; DRAWTEXT(RGY=22 AND PO,0.3,'兄化兄:投机者的投机行为引发投机行情,若化进,连续大跌或暴跌,实进之时见底点;旺相化进、囚休化退大跌,\n空亡化进填实大跌;建议:化日值之日可抄底;若化退,止跌反弹,旺相化退、囚休化进对投机有利。建议:少量买入'),ALIGN2,colorFFFF; DRAWTEXT(RGY=23 AND PO,0.3,'兄化子:投机者的投机行为引发资金供应量变动,盘中机会多,转机出现;\n建议:最后急跌买入(子旺买入)'),ALIGN2,colorFFFF; DRAWTEXT(RGY=24 AND PO,0.3,'兄化财:投机者的投机行为引发股市资金保有量变动,投机者套现,兄化财财不实,反抽之象,\n无利可言,兄旺不易得财,兄持世有小财宜卖出;建议:不介入或速进速出'),ALIGN2,colorFFFF; DRAWTEXT(RGY=25 AND PO,0.3,'兄化官:投机者的投机行为受到管理层制约。\n建议:在上升通道或高位中出现时退场(官空下跌),在下跌通道或熊市迅速入场(兄空入场)'),ALIGN2,colorFFFF; DRAWTEXT(RGY=31 AND PO,0.3,'子化父:资金供应量变动引发股票供应量变化,子孙化回头克,子孙受克,\n人气难聚,如临世爻,庄家被套;父旺注意逢高派发;建议:离场休息,父衰或被合刑害可少许逢低买入'),ALIGN2,colorFFFF; DRAWTEXT(RGY=32 AND PO,0.3,'子化兄:资金供应量变动引发投机行为,投资者积极参与;买卖双方均明显,震荡;\n动化回头生,但兄又克财,何方有病,须看日月对何爻有利。建议:高抛低吸(兄衰子旺买入)'),ALIGN2,colorFFFF; DRAWTEXT(RGY=33 AND PO,0.3,'子化子:引发资金供应量变动广大投资者参与,若化进,持续放量可上涨;化长生或得日月或旺相化进,\n子动会青龙上涨,建议:持股待涨;若化退,持续缩量,可下跌,若空亡化进,必跌无疑;建议:高抛低吸'),ALIGN2,colorFFFF; DRAWTEXT(RGY=34 AND PO,0.3,'子化财:资金供应量变动引起股市资金保有量发生变化,\n子旺上涨,财逢值令见高位;建议:大涨持股,财值令卖出'),ALIGN2,colorFFFF; DRAWTEXT(RGY=35 AND PO,0.3,'子化官:资金供应量变动引发管理层或大机构做市,拉高不跟进,打低不出局,\n耗子孙之气、泻筹码、出货,临世庄家出逃,求财无力,逢官值日必跌;建议:见底抢反弹'),ALIGN2,colorFFFF; DRAWTEXT(RGY=41 AND PO,0.3,'财化父:股市资金保有量变动引起股票供应量发生变化,上拉下压,先升后跌;\n父旺下跌;财旺父衰上涨,建议:择机而动'),ALIGN2,colorFFFF; DRAWTEXT(RGY=42 AND PO,0.3,'财化兄:股市资金保有量变动引发投机者投机,动化回头克,行情见顶,兄旺、值令大跌;低吸高抛,赚取差价,\n,财旬空不跌,出空变爻值旺跌,才旺兄衰有财;建议:择机卖出'),ALIGN2,colorFFFF; DRAWTEXT(RGY=43 AND PO,0.3,'财化子:股市资金保有量变动引发资金供应量变化,动化回头生,\n放量买入推进股价大涨;子旺上涨;建议:持股坐轿'),ALIGN2,colorFFFF; DRAWTEXT(RGY=44 AND PO,0.3,'财化财:股市资金保有量变动引起股价变化,化进神,涨势如虹,连创新高,建议:持股待涨;\n化退神,为资金供应量减少,行情退潮回落,破财之相,建议:宜速卖出;'),ALIGN2,colorFFFF; DRAWTEXT(RGY=45 AND PO,0.3,'财化官:股市资金保有量变动引发大机构做市融资;化泄之象,\n下跌或不利之事发生;建议:持币观望'),ALIGN2,colorFFFF; DRAWTEXT(RGY=51 AND PO,0.3,'官化父:管理层或大机构做市引发股票供应量发生变化,\n中长线利空,父旺下跌,父衰上涨;建议:长期低迷,离场休息;'),ALIGN2,colorFFFF; DRAWTEXT(RGY=52 AND PO,0.3,'官化兄;管理层或大机构做市引发投机者投机;大跌或低位出货;\n建议:速离场卖出;若兄空上涨,建议:跟进'),ALIGN2,colorFFFF; DRAWTEXT(RGY=53 AND PO,0.3,'官化子:管理层或大机构做市引起资金供应量发生变化,动化回头克,\n而资金供应量又制约管理层或大机构行为,官值之日月即涨,建议:子旺买入或逢低买入'),ALIGN2,colorFFFF; DRAWTEXT(RGY=54 AND PO,0.3,'官化财:管理层或大机构做市引起股市资金保有量发生变化,财旺相拉高派发,\n财休囚低位派发;建议:速进择机卖出,若日月合官,静观其变'),ALIGN2,colorFFFF; DRAWTEXT(RGY=55 AND PO,0.3,'官化官:管理层或大机构做市引发机构会有大动作,旺相化进大跌,大举出货,\n跌势凶猛,建议:止损;空旺上涨;化退,止跌反弹,囚休止跌回升,建议:适量入场'),ALIGN2,colorFFFF; EXPLAIN(CLOSE>0,'\n主卦动爻:'),color5659FF; EXPLAIN(RTY=1,'父母:(1)股市股票供应量(2)消息(消息变化引起股票供应量变化)(3)股票提供者'),colorFFFF; EXPLAIN(RTY=2,'兄弟:(1)投机资金供应量或股票投机供应量(2)投机者(股票供应量增加时,兄弟变为股票提供者,股票供应量减少时,兄弟变为资金提供者)(3)中小机构'),colorFFFFFF; EXPLAIN(RTY=3,'子孙:(1)股市资金供应量(2)资金提供者(3)广大投资者'),colorFF00FF; EXPLAIN(RTY=4,'妻财:(1)股市资金保有量(2)支撑股价资金量(3)股价、指数 '),colorFF; EXPLAIN(RTY=5,'官鬼:(1)股市消耗资金量(2)股市既得利益者(交易税、印花税)(3)管理层官方,包括证监会、交易所(4)大机构或主力机构'),colorFFFF00; EXPLAIN(RGY1<>RTY OR RGY1<>RTY OR RGY1<>RTY OR RGY1<>RTY OR RGY1<>RTY,'变卦动爻:'),color5659FF; EXPLAIN(RGY1=1 AND RGY1<>RTY,'父母:(1)股市股票供应量(2)消息(消息变化引起股票供应量变化)(3)股票提供者'),colorFFFF; EXPLAIN(RGY1=2 AND RGY1<>RTY,'兄弟:(1)投机资金供应量或股票投机供应量(2)投机者(股票供应量增加时,兄弟变为股票提供者,股票供应量减少时,兄弟变为资金提供者)(3)中小机构'),colorFFFFFF; EXPLAIN(RGY1=3 AND RGY1<>RTY,'子孙:(1)股市资金供应量(2)资金提供者(3)广大投资者'),colorFF00FF; EXPLAIN(RGY1=4 AND RGY1<>RTY,'妻财:(1)股市资金保有量(2)支撑股价资金量(3)股价、指数 '),colorFF; EXPLAIN(RGY1=5 AND RGY1<>RTY,'官鬼:(1)股市消耗资金量(2)股市既得利益者(交易税、印花税)(3)管理层官方,包括证监会、交易所(4)大机构或主力机构'),colorFFFF00; EXPLAIN(CLOSE>0,'*******************************************'); EXPLAIN(DD=QL,'青龙:属东方木,遇木日,入木爻,主吉庆,应把握机遇'),colorFFFF00; EXPLAIN(DD=Q,'朱雀:属南方火,遇火日,入火爻,关注消息面,防口舌是非'),colorFF; EXPLAIN(DD=G,'勾陈:属土,遇四正日(子午卯酉),入土爻,主留连,优柔寡断,防勾连纠缠'),colorFFFF; EXPLAIN(DD=S,'滕蛇:属土,无正位,遇四隅土日(辰戌丑未),入土爻,防虚惊怪异之事'),colorFFFF; EXPLAIN(DD=HH,'白虎:属西方金,遇金日,防凶恶之事'),colorFFFFFF; EXPLAIN(DD=W,'玄武:属北方水,遇水日,入水爻,防奸盗阴私,财产损失'),color808080; EXPLAIN(CLOSE>0,'ooooooooooooooooooooooooooooooooooooooooo'); EXPLAIN(CLOSE>0,'\n旬空法则: 世爻空亡,市场没有主导力量;应爻空亡,对市场主导力量没有回应;动爻空亡,空日应验;官鬼空亡,机构避市;兄弟空亡,投机者避市;子孙空亡,投资者避市;父母空亡,股票缺乏;妻财空亡,股价难涨。'),colorFF00; EXPLAIN(CLOSE>0,'ooooooooooooooooooooooooooooooooooooooooo'); EXPLAIN(CLOSE>0,'\n世爻:代表市场的行情性质及市场主导力量,起主导、带动、控制作用。应爻:对主导力量产生应和、推动、跟从和牵制作用。世应相生相合,宾主相投,世应相冲相克、相刑相害两清不睦'); EXPLAIN(CLOSE>0,'\n式身:世爻是市场主体,也是股票运行状态的主体;而式身是支持股票运作的宏观经济、基本面及公司状况,它是股市炒做和市场定价的灵魂'); EXPLAIN(CLOSE>0,'ooooooooooooooooooooooooooooooooooooooooo'); EXPLAIN(CLOSE>0,'一:首看父兄官:父兄气尽时切入(最佳),以官将转旺(次佳),以财子将转旺时切入(三佳)。这是做多头的三个买入的切入点。\n二:次看官子财:以官子财最旺时抛出。以父兄将转旺时抛出!以股票攀升后放巨量和放天量时抛出!这是做多头的三个卖出的抛出点。\n 做空以此相反类推,在期货市场屡见奇准奇验!\n例如做空的首看官子财,次看父与兄!财爻最旺是巅峰,子爻最旺是巅峰,官爻最旺是巅峰!这时绝不可做多,而最宜做空!');
{点击看本软件截图: 58股票 公式网 http://www. 58gu. com 整理} |