时间之窗转折日
 

INPUT:N(2,2,100,1),M(3,1,100,1);
SVAR0:=SUM(MAX(MAX(HIGH - LOW,ABS(HIGH - REF(CLOSE,1))),ABS(LOW - REF(CLOSE,1))),N) ;
SVAR1:=HIGH - REF(HIGH,1) ;
SVAR2:=REF(LOW,1) - LOW ;
SVAR3:=SUM(IF(SVAR1 > 0 AND SVAR1 > SVAR2,SVAR1,0),N) ;
SVAR4:=SUM(IF(SVAR2 > 0 AND SVAR2 > SVAR1,SVAR2,0),N) ;
SVAR5:="KDJ.K#MONTH" ;
SVAR6:="KDJ.D#MONTH" ;
SVAR7:="KDJ.K#WEEK" ;
SVAR8:="KDJ.D#WEEK" ;
SVAR9:="KD.K" ;
SVAR10:="KD.D" ;
SVAR12:=3 ;

起涨线:SVAR3 * 100 / SVAR0,LINETHICK2,COLOR0000FF ;
SVAR4 * 100 / SVAR0,LINETHICK2,COLOR00FFFF;
K王柱:IF(CROSS(SVAR7,SVAR8),100,0),STICK3D,LINETHICK4,COLOR0000FF ;
▲:DRAWTEXT(0,100,'▲'),LINETHICK4 ,COLORff00ff;
DRAWTEXT(CROSS("KDJ.K#MONTH"(N,SVAR12,SVAR12),"KDJ.D#MONTH"(N,SVAR12,SVAR12)),100,'▲'),LINETHICK4 ,COLORff00ff;
▼:DRAWTEXT(0,100,'▲'),LINETHICK4 ,COLOR00FFFF ;
DRAWTEXT(CROSS("KDJ.D#MONTH"(N,SVAR12,SVAR12),"KDJ.K#MONTH"(N,SVAR12,SVAR12)),100,'▼'),LINETHICK4,COLOR00FFFF ;
DRAWTEXT(CROSS("kdj.D#WEEK"(9,3,3),"kdj.K#WEEK"(9,3,3)),100,'*'),LINETHICK7,COLOR00FFFF;

SVAR11:=INTPART(FRACPART(CURRENTDATE / 10000) * 100) ;
IF(SVAR11 = 1)  THEN  BEGIN
DRAWTEXTABS(1,10,NUMTOSTR(SVAR11) + '月时间之窗转折日:6、15、21、*25'),COLOR00FFFF;
END
IF(SVAR11 = 2)  THEN  BEGIN
DRAWTEXTABS(1,10,NUMTOSTR(SVAR11) + '月时间之窗转折日:6、15、21'),COLOR00FFFF;
END
IF(SVAR11 = 3)  THEN  BEGIN
DRAWTEXTABS(1,10,NUMTOSTR(SVAR11) + '月时间之窗转折日:6、15、*20、21'),COLOR00FFFF;
END
IF(SVAR11 = 4)  THEN  BEGIN
DRAWTEXTABS(1,10,NUMTOSTR(SVAR11) + '月时间之窗转折日:6、15、21'),COLOR00FFFF;
END
IF(SVAR11 = 5)  THEN  BEGIN
DRAWTEXTABS(1,10,NUMTOSTR(SVAR11) + '月时间之窗转折日:6、*12、15、21'),COLOR00FFFF;
END
IF(SVAR11 = 6)  THEN  BEGIN
DRAWTEXTABS(1,10,NUMTOSTR(SVAR11) + '月时间之窗转折日:6、*14、21'),COLOR00FFFF;
END
IF(SVAR11 = 7)  THEN  BEGIN
DRAWTEXTABS(1,10,NUMTOSTR(SVAR11) + '月时间之窗转折日:8、15、*19、23'),COLOR00FFFF;
END
IF(SVAR11 = 8)  THEN  BEGIN
DRAWTEXTABS(1,10,NUMTOSTR(SVAR11) + '月时间之窗转折日:*6、8、15、23'),COLOR00FFFF;
END
IF(SVAR11 = 9)  THEN  BEGIN
DRAWTEXTABS(1,10,NUMTOSTR(SVAR11) + '月时间之窗转折日:8、15、*18、23'),COLOR00FFFF;
END
IF(SVAR11 = 10)  THEN  BEGIN
DRAWTEXTABS(1,10,NUMTOSTR(SVAR11) + '月时间之窗转折日:8、15、23、*31'),COLOR00FFFF;
END
IF(SVAR11 = 11)  THEN  BEGIN
DRAWTEXTABS(1,10,NUMTOSTR(SVAR11) + '月时间之窗转折日:8、15、23、*28'),COLOR00FFFF;
END
IF(SVAR11 = 12)  THEN  BEGIN
DRAWTEXTABS(1,10,NUMTOSTR(SVAR11) + '月时间之窗转折日:8、15、23、*31'),COLOR00FFFF;
END;