通达信时间之窗（易学公式）
时间之窗（易学公式）
农历年:LYEAR,LINETHICK0,colorFF00FF;
农历月:LMONTH,LINETHICK0,colorFF9900;
农历日:LDAY,LINETHICK0,color487D24;
STICKLINE(CLOSE>0 AND ISLASTBAR,0,100,0.1,0),SHIFT3,color4441FF;
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);
S:=S1+S2+S3+S4+S5+S6+S7+S8;
X1:IF(REF(CC,2)>0 AND REF(CC,1)>0 AND CC>0,1,0),LINETHICK0,color10000;
X2:IF(REF(CC,2)<0 AND REF(CC,1)>0 AND CC>0,2,0),LINETHICK0,color10000;
X3:IF(REF(CC,2)>0 AND REF(CC,1)<0 AND CC>0,3,0),LINETHICK0,color10000;
X4:IF(REF(CC,2)<0 AND REF(CC,1)<0 AND CC>0,4,0),LINETHICK0,color10000;
X5:IF(REF(CC,2)>0 AND REF(CC,1)>0 AND CC<0,5,0),LINETHICK0,color10000;
X6:IF(REF(CC,2)<0 AND REF(CC,1)>0 AND CC<0,6,0),LINETHICK0,color10000;
X7:IF(REF(CC,2)>0 AND REF(CC,1)<0 AND CC<0,7,0),LINETHICK0,color10000;
X8:IF(REF(CC,2)<0 AND REF(CC,1)<0 AND CC<0,8,0),LINETHICK0,color10000;
X:=X1+X2+X3+X4+X5+X6+X7+X8;
SX:S*10+X,LINETHICK0,color10000;
Y:=100/(SYSPARAM(4)-SYSPARAM(5));
FC:=(SYSPARAM(4)+SYSPARAM(5))*Y/2-50;
K:=CLOSE-REF(CLOSE,1);
STICKLINE(OPEN<CLOSE OR OPEN=CLOSE AND K>0,LOW*Y-FC,HIGH*Y-FC,0.1,0),color4A3A46;
STICKLINE(OPEN<CLOSE OR OPEN=CLOSE AND K>0,OPEN*Y-FC,CLOSE*Y-FC,6,1),color4A3A46;
STICKLINE(OPEN>CLOSE OR OPEN=CLOSE AND K<0,LOW*Y-FC,HIGH*Y-FC,0.1,0),color4A3A46;
STICKLINE(OPEN>CLOSE OR OPEN=CLOSE AND K<0,OPEN*Y-FC,CLOSE*Y-FC,6,0),color4A3A46;
N:=SYSPARAM(1)=BARPOS;
DRAWYITEXT(DATE,83,GANZHI(DATE,0,2),0),ALIGN3,color487D24;
DRAWYITEXT(N AND DATE,83,GANZHI(DATE,0,2),0),ALIGN3,colorFF;
FC:=GANZHI(DATE,0,1)<>REF(GANZHI(DATE,0,1),1);
STICKLINE(FC,8,92,0,0),colorFF9900;
J1:=66;
DRAWYITEXT(FC,90,GANZHI(DATE,TIME,1),0),SHIFT2,colorFF9900;
DRAWYITEXT(FC,90,GANZHI(DATE,TIME,0),0),colorFF00FF;
JJ1:=DATE-LSOLARTERMDATE(1)>=0;
J2:=JJ1>REF(JJ1,1);
JJ2:=DATE-LSOLARTERMDATE(2)>=0;
J3:=JJ2>REF(JJ2,1);
JJ3:=DATE-LSOLARTERMDATE(3)>=0;
J4:=JJ3>REF(JJ3,1);
JJ4:=DATE-LSOLARTERMDATE(4)>=0;
J5:=JJ4>REF(JJ4,1);
JJ5:=DATE-LSOLARTERMDATE(5)>=0;
J6:=JJ5>REF(JJ5,1);
JJ6:=DATE-LSOLARTERMDATE(6)>=0;
J7:=JJ6>REF(JJ6,1);
JJ7:=DATE-LSOLARTERMDATE(7)>=0;
J8:=JJ7>REF(JJ7,1);
JJ8:=DATE-LSOLARTERMDATE(8)>=0;
J9:=JJ8>REF(JJ8,1);
JJ9:=DATE-LSOLARTERMDATE(9)>=0;
J10:=JJ9>REF(JJ9,1);
JJ10:=DATE-LSOLARTERMDATE(10)>=0;
J11:=JJ10>REF(JJ10,1);
JJ11:=DATE-LSOLARTERMDATE(11)>=0;
J12:=JJ11>REF(JJ11,1);
JJ12:=DATE-LSOLARTERMDATE(12)>=0;
J13:=JJ12>REF(JJ12,1);
JJ13:=DATE-LSOLARTERMDATE(13)>=0;
J14:=JJ13>REF(JJ13,1);
JJ14:=DATE-LSOLARTERMDATE(14)>=0;
J15:=JJ14>REF(JJ14,1);
JJ15:=DATE-LSOLARTERMDATE(15)>=0;
J16:=JJ15>REF(JJ15,1);
JJ16:=DATE-LSOLARTERMDATE(16)>=0;
J17:=JJ16>REF(JJ16,1);
JJ17:=DATE-LSOLARTERMDATE(17)>=0;
J18:=JJ17>REF(JJ17,1);
JJ18:=DATE-LSOLARTERMDATE(18)>=0;
J19:=JJ18>REF(JJ18,1);
JJ19:=DATE-LSOLARTERMDATE(19)>=0;
J20:=JJ19>REF(JJ19,1);
JJ20:=DATE-LSOLARTERMDATE(20)>=0;
J21:=JJ20>REF(JJ20,1);
JJ21:=DATE-LSOLARTERMDATE(21)>=0;
J22:=JJ21>REF(JJ21,1);
JJ22:=DATE-LSOLARTERMDATE(22)>=0;
J23:=JJ22>REF(JJ22,1);
JJ23:=DATE-LSOLARTERMDATE(23)>=0;
J24:=JJ23>REF(JJ23,1);
JJ24:=DATE-LSOLARTERMDATE(24)>=0;
TEST:=JJ24>REF(JJ24,1);
DRAWTEXT(J2,J1,小寒),colorFFFF;
DRAWTEXT(J3,J1,大寒),colorFFFF;
DRAWTEXT(J4,J1,立春),color71B255;
DRAWTEXT(J5,J1,雨水),color71B255;
DRAWTEXT(J6,J1,惊蛰),color71B255;
DRAWTEXT(J7,J1,春分),color71B255;
DRAWTEXT(J8,J1,清明),colorFFFF;
DRAWTEXT(J9,J1,谷雨),colorFFFF;
DRAWTEXT(J10,J1,立夏),colorFF;
DRAWTEXT(J11,J1,小满),colorFF;
DRAWTEXT(J12,J1,芒种),colorFF;
DRAWTEXT(J13,J1,夏至),colorFF;
DRAWTEXT(J14,J1,小暑),colorFFFF;
DRAWTEXT(J15,J1,大暑),colorFFFF;
DRAWTEXT(J16,J1,立秋),colorBBBBBB;
DRAWTEXT(J17,J1,处暑),colorBBBBBB;
DRAWTEXT(J18,J1,白露),colorBBBBBB;
DRAWTEXT(J19,J1,秋分),colorBBBBBB;
DRAWTEXT(J20,J1,寒露),colorFFFF;
DRAWTEXT(J21,J1,霜降),colorFFFF;
DRAWTEXT(J22,J1,立冬),colorFFFF00;
DRAWTEXT(J23,J1,小雪),colorFFFF00;
DRAWTEXT(J24,J1,大雪),colorFFFF00;
DRAWTEXT(TEST,J1,冬至),colorFFFF00;
DRAWTEXT(LDAY=1,57,新月),color808040;
DRAWTEXT(LDAY=8,57,上弦),color808040;
DRAWTEXT(LDAY=15,57,满月),color808040;
DRAWTEXT(LDAY=23,57,下弦),color808040;
VARIABLE:I=1;
FOR COND=1 TO 干支周期 DO BEGIN
I:=I AND HIGH>REFX(HIGH,COND);
END;
HH:=I AND HIGH=HHV(HIGH,干支周期);
COND1:=IF(HH,HIGH,0);
VARIABLE:I=1;
FOR COND=1 TO 干支周期 DO BEGIN
I:=I AND LOW<REFX(LOW,COND);
END;
LL:=I AND LOW=LLV(LOW,干支周期);
QQ:=IF(LL,LOW,0);
BZ:=GANZHI(DATE,TIME,2);
六壬:=INTPART(BZ/12);
AKA:=BZ-六壬*12+1;
QQ1:=IF(COND1=HIGH,99,IF(QQ=LOW,6,0));
DRAWTEXT(AKA=1 AND QQ1>0,QQ1,子),color808080;
DRAWTEXT(AKA=2 AND QQ1>0,QQ1,丑),colorFFFF;
DRAWTEXT(AKA=3 AND QQ1>0,QQ1,寅),colorFFFF00;
DRAWTEXT(AKA=4 AND QQ1>0,QQ1,卯),colorFFFF00;
DRAWTEXT(AKA=5 AND QQ1>0,QQ1,辰),colorFFFF;
DRAWTEXT(AKA=6 AND QQ1>0,QQ1,巳),colorFF;
DRAWTEXT(AKA=7 AND QQ1>0,QQ1,午),colorFF;
DRAWTEXT(AKA=8 AND QQ1>0,QQ1,未),colorFFFF;
DRAWTEXT(AKA=9 AND QQ1>0,QQ1,申),colorFFFFFF;
DRAWTEXT(AKA=10 AND QQ1>0,QQ1,酉),colorFFFFFF;
DRAWTEXT(AKA=11 AND QQ1>0,QQ1,戌),colorFFFF;
DRAWTEXT(AKA=12 AND QQ1>0,QQ1,亥),color808080;
XY3:=GANZHI(DATE,TIME,2)+1;
TG:=MOD(XY3,10);
HHH:=IF(TG=0,10,TG);
DRAWTEXT(HHH=1 AND QQ1,QQ1,甲),ALIGN2,colorFFFF00;
DRAWTEXT(HHH=2 AND QQ1,QQ1,乙),ALIGN2,colorFFFF00;
DRAWTEXT(HHH=3 AND QQ1,QQ1,丙),ALIGN2,colorFF;
DRAWTEXT(HHH=4 AND QQ1,QQ1,丁),ALIGN2,colorFF;
DRAWTEXT(HHH=5 AND QQ1,QQ1,戊),ALIGN2,colorFFFF;
DRAWTEXT(HHH=6 AND QQ1,QQ1,己),ALIGN2,colorFFFF;
DRAWTEXT(HHH=7 AND QQ1,QQ1,庚),ALIGN2,colorFFFFFF;
DRAWTEXT(HHH=8 AND QQ1,QQ1,辛),ALIGN2,colorFFFFFF;
DRAWTEXT(HHH=9 AND QQ1,QQ1,壬),ALIGN2,color808080;
DRAWTEXT(HHH=10 AND QQ1,QQ1,癸),ALIGN2,color808080;
VARIABLE:I=1;
FOR COND=1 TO 神奇数周期 DO BEGIN
I:=I AND HIGH>REFX(HIGH,COND);
END;
HH:=I AND HIGH=HHV(HIGH,神奇数周期);
LLL:=IF(HH,HIGH,0);
VARIABLE:I=1;
FOR COND=1 TO 神奇数周期 DO BEGIN
I:=I AND LOW<REFX(LOW,COND);
END;
LL:=I AND LOW=LLV(LOW,神奇数周期);
DD:=IF(LL,LOW,0);
AA:=IF(REF(LLL>0,5),49,0);
BB:=IF(REF(LLL>0,5),44,0);
CC:=IF(REF(LLL>0,10),39,0);
EE:=IF(REF(LLL>0,18),34,0);
FF:=IF(REF(LLL>0,31),27.5,0);
GG:=IF(REF(LLL>0,52),23,0);
BB1:=IF(REF(LLL>0,86),18,0);
COND1:=IF(REF(LLL>0,141),13,0);
DRAWTEXT(AA>0,AA,5,顶),ALIGN0,colorFF00;
DRAWTEXT(BB>0,BB,8,顶),ALIGN0,SHIFT3,colorFF00;
DRAWTEXT(CC>0,CC,13,顶),ALIGN0,SHIFT3,colorFF00;
DRAWTEXT(EE>0,EE,21,顶),ALIGN0,SHIFT3,colorFF00;
DRAWTEXT(FF>0,FF,34,顶),ALIGN0,SHIFT3,colorFF00;
DRAWTEXT(GG>0,GG,55,顶),ALIGN0,SHIFT3,colorFF00;
DRAWTEXT(BB1>0,BB1,89,顶),ALIGN0,SHIFT3,colorFF00;
DRAWTEXT(COND1>0,COND1,144,顶),ALIGN0,SHIFT3,colorFF00;
AA1:=IF(REF(DD>0,5),49,0);
CC1:=IF(REF(DD>0,5),44,0);
DD1:=IF(REF(DD>0,10),39,0);
EE1:=IF(REF(DD>0,18),34,0);
FF1:=IF(REF(DD>0,31),27.5,0);
GG1:=IF(REF(DD>0,52),23,0);
HH1:=IF(REF(DD>0,86),18,0);
QD:=IF(REF(DD>0,141),13,0);
DRAWTEXT(AA1>0,AA1,5,底),ALIGN0,colorFF;
DRAWTEXT(CC1>0,CC1,8,底),ALIGN0,SHIFT3,colorFF;
DRAWTEXT(DD1>0,DD1,13,底),ALIGN0,SHIFT3,colorFF;
DRAWTEXT(EE1>0,EE1,21,底),ALIGN0,SHIFT3,colorFF;
DRAWTEXT(FF1>0,FF1,34,底),ALIGN0,SHIFT3,colorFF;
DRAWTEXT(GG1>0,GG1,55,底),ALIGN0,SHIFT3,colorFF;
DRAWTEXT(HH1>0,HH1,89,底),ALIGN0,SHIFT3,colorFF;
DRAWTEXT(QD>0,QD,144,底),ALIGN0,SHIFT3,colorFF;
VARQS95:=SYSPARAM(2)=BARPOS;
DRAWTEXT(VARQS95,99,██████),ALIGN1,colorFFFFFF;
DRAWTEXT(VARQS95,80,██████),ALIGN1,colorFFFFFF;
DRAWTEXT(VARQS95,29,██████),ALIGN1,colorFFFFFF;
DRAWTEXT(VARQS95,6,██████),ALIGN1,colorFFFFFF;
DRAWTEXT(VARQS95,99,顶部转势日:),ALIGN1,color4441FF;
DRAWTEXT(VARQS95,80,中国历法:),ALIGN1,color4441FF;
DRAWTEXT(VARQS95,29,菲波纳奇数:),ALIGN1,color4441FF;
DRAWTEXT(VARQS95,6,底部转势日:),ALIGN1,color4441FF;
DRAWTEXT(IF(QQ1>0,1,0)>0,QQ1, 日:),ALIGN1,color4441FF;
0,SHIFT3,color4441FF;
8,SHIFT3,color4441FF;
50,SHIFT3,color4441FF;
92,SHIFT3,color4441FF;
100,SHIFT3,color4441FF;
