股性叠加，显示股性等各项指标，非常实用（通达信公式 主图 源码 测试图）

可在K线图上显示股性等各项指标，非常实用

 {股性叠加}

 

{K线主图}

MA5:MA(CLOSE,5);

MA10:MA(CLOSE,10);

MA20:MA(CLOSE,20);

MA60:MA(CLOSE,60);

Z1:=STRCAT(HYBLOCK,' ');

Z2:=STRCAT(Z1,DYBLOCK);

Z3:=STRCAT(Z2,' ');

DRAWTEXT_FIX(ISLASTBAR,0,0,0,STRCAT(Z3,GNBLOCK)),COLORYELLOW;

{分析家公式网www.70822.com}

P:=1000;

涨停价:=ZTPRICE(REF(CLOSE,1),0.1);

跌停价:=DTPRICE(REF(CLOSE,1),0.1);

开板:=((HIGH>=涨停价) AND (CLOSE<涨停价)); 

涨停数:=COUNT((C>=涨停价) AND L!=C,P) NODRAW;

开板数:=COUNT(开板,P) NODRAW;

跌停数:=COUNT(C<=跌停价,P) NODRAW;

封板率:=ROUND((1-(开板数/(涨停数+开板数)))*100);

涨停:=C>=涨停价 AND L!=C;

多连板:=HHV(BARSLAST(NOT(涨停)),P);

股性分数:=ROUND(多连板*3+涨停数*2+开板数-跌停数+封板率);

DRAWTEXT_FIX(CLOSE>0,0.100,0.07,0,STRCAT('多连板：',CON2STR(多连板,0)))COLORRED;

DRAWTEXT_FIX(CLOSE>0,0.100,0.14,0,STRCAT('涨停数：',CON2STR(涨停数,0)))COLORRED;

DRAWTEXT_FIX(CLOSE>0,0.100,0.21,0,STRCAT('开板数：',CON2STR(开板数,0)))COLORRED;

DRAWTEXT_FIX(CLOSE>0,0.100,0.28,0,STRCAT('跌停数：',CON2STR(跌停数,0)))COLORRED;

DRAWTEXT_FIX(CLOSE>0,0.100,0.35,0,STRCAT(STRCAT('封板率：',CON2STR(封板率,0)),'%'))COLORRED;

DRAWTEXT_FIX(CLOSE>0,0.100,0.42,0,STRCAT('股性分：',CON2STR(股性分数,0)))COLORRED;

 

p20203143391275842.jpg