通达信小时图级别下周线标注主图公式

周线的实战意义不可忽视 想必大家都对前期指数期的红周五黑周一的特性有感触

这个指标是为了训练周线盘感而设计的 在小时级别下细节呈现使得周线的盘感更具有前瞻性
 
小时级别下标注出周开和周实体连线 推荐用于分类指数或者大盘指数的分析 
 
参数A B 默认均为0 控制绘制线段连续使用

有红色青色标注K线的为周开第一小时 周实体连线在周末隔断把参数设为1
 
由于水平有限 代码冗长重复且混乱 后续会进一步完善 下一步思路是用框把周线振幅标出来
 
{-基础判定 中间定义赋值}
 BASE:=PERIOD;
 BASEW:=IF(BASE=6,1,0);
 BASED:=IF(BASE=5,1,0);
 BASEH:=IF(BASE=4,1,0);
 BASEH&D:=IF(BASEH=1 OR BASED=1,1,0);
 
WEDA:=WEEKDAY;{当前周期所在星期数值};
 WEDIF:=WEDA-REF(WEDA,4);
 WS:=IF( WEDIF<1 AND REF(WEDIF,1)=1  ,1,0) NODRAW; {周始输出1}
 R:=BARSLAST(WS=1) NODRAW; {上个WS=1 到当前的周期数}
WE:=IF(REFX(R,1)<R,1,0) NODRAW; {周末输出1 跨1周期未来函数}
 
CE:=IF(WE=1,1*CLOSE,DRAWNULL) POINTDOT; {周末输出本周收盘数值 其余无输出}
 CS:=IF(WS=1,1*OPEN,DRAWNULL) POINTDOT COLORBLUE; {周始输出本周开数值 其余无输出}
 
M13:=IF(BASEH=1,MA(CLOSE,52),DRAWNULL) COLORWHITE;{小时级别13日线}
 M20:=IF(BASEH=1,MA(CLOSE,80),DRAWNULL) COLORCYAN;{小时级别20日线}
 {-周实体折线输出}
 SL:=IF( CE>0 AND CE<REF(OPEN,R),1,0); {CE存在且CE<CS BARSLAST(CS=OPEN)     C1>BARSSINCEN(CS=OPEN,19)     SL:=IF( CE>0 AND CE<REF(OPEN,R) AND COUNT(CS=OPEN,20)=1 ,1,0);}
 TT:IF(CE>0,CS-REF(OPEN,R),DRAWNULL) NODRAW; {测试 只有在周一 CS=REF(OPEN,R)}
 SPLAS:=IF(CS=OPEN,DAY,DRAWNULL);
 SPLAE:=IF(CE=CLOSE,DAY,DRAWNULL);
 SR:=BARSLAST(SPLAS>0);
 R2:=IF(CE=CLOSE,SPLAE-SPLAS,DRAWNULL);{当周}
 

DRAWLINE(CS=OPEN,CS,CE=CLOSE AND SL=0,CE,A) COLORLIMAGENTA LINETHICK1 DOTLINE; {输出实体线段-阳}
 DRAWLINE(WS=1 ,CS,WE=1 AND SL=1,CE,B) COLORWHITE LINETHICK1 DOTLINE; {输出实体线段-阴}

{-周起始小时标注}
 IO:=IF( CLOSE>OPEN ,1,0); {IO:=IF( CLOSE>REF(CLOSE,1) , 0.998*CLOSE,1.002*OPEN);} {DRAWTEXT(WS=1,IO,'O');}
 STICKLINE(WS=1 AND CLOSE>OPEN,OPEN,CLOSE,1,IO) COLORRED ;{阳线-输出周起始实体}
 STICKLINE(WS=1 AND CLOSE>OPEN,LOW,HIGH,0.01,IO) COLORRED ;{阳线-输出周开第一小时上下影}
 
STICKLINE(WS=1 AND CLOSE<OPEN,OPEN,CLOSE,1,IO) COLORCYAN;{阴线-输出周起始实体}
 STICKLINE(WS=1 AND CLOSE<OPEN,LOW,HIGH,0.01,IO) COLORCYAN;{阴线-输出周起始上下影}
 

{-周起振幅柱状线标示 未完成 效果不佳 建议注销掉}
 {WH:=IF( CS=OPEN,HHV(HIGH,R),DRAWNULL );{S-E}
 {WL:=IF( CS=OPEN,LLV(HIGH,R),DRAWNULL );{S-E}
 WH:=IF( CE=CLOSE,HHV(HIGH,R),DRAWNULL );{E-S}
 WL:=IF( CE=CLOSE,LLV(HIGH,R),DRAWNULL );{E-S}
 
{DRAWLINE(WL=LOW,WL,WH=HIGH,WH,A) COLORLIGREEN; }{输出振幅线段};
 RR:=BARSNEXT(WE=1);
 RRE:=REFX(CLOSE,RR);
 STICKLINE(WS=1 AND CS>0 AND RRE>CS,OPEN,RRE,RR,-1) COLORLIMAGENTA;
 STICKLINE(WS=1 AND CS>0 AND RRE<CS,OPEN,RRE,RR,-1) COLORBLUE;
 
DRAWLINE(WS=1 ,RRE,WE=1 AND CE<REF(OPEN,R),CE,B) COLORBLUE DOTLINE;
 DRAWLINE(WS=1 ,RRE,WE=1 AND CE>REF(OPEN,R),CE,B) COLORLIMAGENTA DOTLINE;