日周k线空心柱同图 自然日 通达信主图指标 源码 贴图

自然日
ZRR:(YEAR-1992)*365+INTPART((YEAR-1989)/4)+IF(MONTH<=2,DAY+(MONTH-1)*31,DAY+
INTPART(13*(MONTH+1)/5)-7+(MONTH-1)*28+IF(INTPART(YEAR/4)=YEAR/4,1,0)),NODRAW;
OO:IF(ZRR-REF(ZRR,1)>WEEKDAY-REF(WEEKDAY,1),OPEN,
REF(OPEN,BARSLAST(ZRR-REF(ZRR,1)>WEEKDAY-REF(WEEKDAY,1))));
HH:HHV(HIGH,BARSLAST(ZRR-REF(ZRR,1)>WEEKDAY-REF(WEEKDAY,1))+1);
LL:LLV(LOW,BARSLAST(ZRR-REF(ZRR,1)>WEEKDAY-REF(WEEKDAY,1))+1);
CC:CLOSE;
T:=BARSLAST(ZRR-REF(ZRR,1)>WEEKDAY-REF(WEEKDAY,1));
TT:HHV(T,T);
{以上为引用指标“自然日”}

周k线
ZRR:=(YEAR-1992)*365+INTPART((YEAR-1989)/4)+IF(MONTH<=2,DAY+(MONTH-1)*31,DAY+
INTPART(13*(MONTH+1)/5)-7+(MONTH-1)*28+IF(INTPART(YEAR/4)=YEAR/4,1,0)),NODRAW;
WO:IF(ZRR-REF(ZRR,1)>WEEKDAY-REF(WEEKDAY,1),OPEN,
REF(OPEN,BARSLAST(ZRR-REF(ZRR,1)>WEEKDAY-REF(WEEKDAY,1)))),NODRAW;
WH:"自然日.HH#WEEK",NODRAW;
WL:"自然日.LL#WEEK",NODRAW;
WC:CLOSE#WEEK,NODRAW;
WT:="自然日.TT#WEEK",NODRAW;
T:=BARSLAST(ZRR-REF(ZRR,1)>WEEKDAY-REF(WEEKDAY,1)),NODRAW;
STICKLINE(T=0 AND WC>=WO,WC,WO,0.1,0),COLORRED;
STICKLINE(T>0 AND T<WT AND WC>=WO,WC,WC,8,1),COLORRED;
STICKLINE(T>0 AND T<WT AND WC>=WO,WO,WO,8,1),COLORRED;
STICKLINE(T=WT AND WC>=WO,WC,WO,0.1,0),COLORRED;
STICKLINE(T=(INTPART((WT-T)/2)+1) AND WC>=WO,WC,WH,0.1,0),COLORRED;
STICKLINE(T=(INTPART((WT-T)/2)+1) AND WC>=WO,WO,WL,0.1,0),COLORRED;
STICKLINE(T=0 AND WC<WO,WC,WO,0.1,0),COLORCYAN;
STICKLINE(T>0 AND T<WT AND WC<WO,WC,WC,8,1),COLORCYAN;
STICKLINE(T>0 AND T<WT AND WC<WO,WO,WO,8,1),COLORCYAN;
STICKLINE(T=WT AND WC<WO,WC,WO,0.1,0),COLORCYAN;
STICKLINE(T=(INTPART((WT-T)/2)+1) AND WC<WO,WO,WH,0.1,0),COLORCYAN;
STICKLINE(T=(INTPART((WT-T)/2)+1) AND WC<WO,WC,WL,0.1,0),COLORCYAN;