通达信〖股性评分+封板率+板块人气〗副图指标 源码

目前统计时间为250天也就相当于一年时间!统计的涨停数据为非一字板(毕竟一字板买不进就是耍流氓)
其中涨停价的参考主要是玄学问题,比如说封板价为对子顶?这种就要思考下再做。封板率不能小于30%,板块人气值为当日资金大幅度流入的数据,肯定是越大越好,至于最后一排的数据,对首板有用!毕竟次日高开概率小于0的板没有打的意义!

 
{涨停定义跟当日涨今日跌停价格}
P:=250;

TM:=1200823;

今日涨停价:IF(DATE<TM,ZTPRICE(REF(C,1),IF(CODELIKE('68'),0.2,IF(NAMEINCLUDE('S'),0.05,0.1))),ZTPRICE(REF(C,1),IF(CODELIKE('68') OR CODELIKE('30'),0.2,IF(NAMEINCLUDE('S'),0.05,0.1)))),NODRAW,COLORRED;

今日跌停价:IF(DATE<TM,DTPRICE(REF(C,1),IF(CODELIKE('68'),0.2,IF(NAMEINCLUDE('S'),0.05,0.1))),DTPRICE(REF(C,1),IF(CODELIKE('68') OR CODELIKE('30'),0.2,IF(NAMEINCLUDE('S'),0.05,0.1)))),NODRAW,COLORGREEN;

明涨停:IF(DATE<TM,C*IF(CODELIKE('68'),1.2,IF(NAMEINCLUDE('S'),1.05,1.1)),C*(IF(CODELIKE('68') OR CODELIKE('30'),1.2,IF(NAMEINCLUDE('S'),1.05,1.1)))),NODRAW,COLORLIMAGENTA;

明跌停:IF(DATE<TM,C*IF(CODELIKE('68'),0.8,IF(NAMEINCLUDE('S'),0.45,0.9)),C*(IF(CODELIKE('68') OR CODELIKE('30'),0.8,IF(NAMEINCLUDE('S'),0.45,0.9)))),NODRAW,COLORFF00FF;

{统计数据P为自定义}

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

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

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

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

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

涨停:=C>=今日涨停价;

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

{概率计算}

DRAWTEXT_FIX(1,0.0,0.1,0,STRCAT('封板率:',STRCAT(VAR2STR(封板率,0),'%'))),COLORFF00FF;

DRAWTEXT_FIX(1,0.3,0.1,0,STRCAT('年度涨停数:',STRCAT(VAR2STR(涨停数,0),'次'))),COLORFF00FF;

DRAWTEXT_FIX(1,0.55,0.1,0,STRCAT('年度跌停数:',STRCAT(VAR2STR(跌停数,0),'次'))),COLORFF00FF;

DRAWTEXT_FIX(1,0.8,0.1,0,STRCAT('最高连板数:',STRCAT(VAR2STR(最高连板,0),'次'))),COLORFF00FF;

{============股性评分===========}

股性分数:=最高连板+涨停数+开板数-跌停数+封板率;

DRAWTEXT_FIX(1,0,0.45,0,STRCAT('股性分:',STRCAT(VAR2STR(股性分数,0),'分'))),COLORFF00FF;

{================板块人气+板块涨幅=============}

BKRQ:=HY_INDEXADV/(HY_INDEXADV+HY_INDEXDEC)*100;

BKZF:=HY_INDEXC/REF(HY_INDEXC,1)*100-100,NODRAW;

DRAWTEXT_FIX(1,0.3,0.45,0,STRCAT('板块人气:',STRCAT(VAR2STR(BKRQ,0),'分'))),COLORFF00FF;

DRAWTEXT_FIX(1,0.6,0.45,0,STRCAT('板块涨幅:',STRCAT(VAR2STR(BKZF,2),'%'))),COLOR80FF80;

{====================次日平均涨幅===========================}

涨停次日收:=IF(REF(C>=今日涨停价 AND L!=C,1), (C/REF(C,1)-1),0);{统计的非一字板}

TTJ:=IF(涨停次日收,1,0);

TTJ1:=SUM(涨停次日收,P);

TTJ2:=SUM(TTJ,P);

CRPJ:=TTJ1/TTJ2*100 NODRAW;

DRAWTEXT_FIX(1,0.48,0.8,0,STRCAT('涨停次日平均涨幅:',STRCAT(VAR2STR(CRPJ,0),'%'))),COLORFF00FF;

{==================次日平均开幅度==============}

涨停次日开:=IF(REF(C>=今日涨停价 AND L!=C,1), O/REF(C,1)-1,0);

TTJ3:=IF(涨停次日开,1,0);

TTJ4:=SUM(涨停次日开,P);

TTJ5:=SUM(TTJ3,P);

CRPK:=TTJ4/TTJ5*100 NODRAW;

DRAWTEXT_FIX(1,0.86,0.8,0,STRCAT('涨停次日平均开幅:',STRCAT(VAR2STR(CRPK,0),'%'))),COLORFF00FF;

{==============涨停次日高开概率============}

FYZ:=C>=今日涨停价 AND L!=C;

GK:=REF(FYZ,1) AND O>REF(C,1);

QT:=REF(FYZ,1) AND O<=REF(C,1);

GTJ:=COUNT(GK,250);

QTJ:=COUNT(QT,250);

GK率:=100*GTJ/(GTJ+QTJ);

DRAWTEXT_FIX(1,0,0.8,0,STRCAT('涨停次日高开概率:',STRCAT(VAR2STR(GK率,0),'%'))),COLORFF00FF;





来函数检测结果如下
该公式没有未来函数


定制、编写公式指标请联系QQ或微信同号:88652583
置顶指标

相关指标公式

P赋值:250
TM赋值:1200823
输出今日涨停价:如果日期输出今日跌停价:如果日期输出明涨停:如果日期输出明跌停:如果日期开板赋值:((最高价>=今日涨停价) AND (收盘价<今日涨停价))
涨停数赋值:统计P日中满足(收盘价>=今日涨停价)ANDL不等于收盘价的天数 NODRAW
开板数赋值:统计P日中满足开板的天数 NODRAW
跌停数赋值:统计P日中满足收盘价<=今日跌停价的天数 NODRAW
封板率赋值:(1-(开板数/(涨停数+开板数)))*100
涨停赋值:收盘价>=今日涨停价
最高连板赋值:P日内上次取反距今天数的最高值
当满足条件1时,在横轴0.0纵轴0.1位置书写文字,COLORFF00FF
当满足条件1时,在横轴0.3纵轴0.1位置书写文字,COLORFF00FF
当满足条件1时,在横轴0.55纵轴0.1位置书写文字,COLORFF00FF
当满足条件1时,在横轴0.8纵轴0.1位置书写文字,COLORFF00FF
股性分数赋值:最高连板+涨停数+开板数-跌停数+封板率
当满足条件1时,在横轴0纵轴0.45位置书写文字,COLORFF00FF
BKRQ赋值:行业指数的上涨家数/(行业指数的上涨家数+行业指数的下跌家数)*100
BKZF赋值:行业指数的收盘价/1日前的行业指数的收盘价*100-100,NODRAW
当满足条件1时,在横轴0.3纵轴0.45位置书写文字,COLORFF00FF
当满足条件1时,在横轴0.6纵轴0.45位置书写文字,COLOR80FF80
涨停次日收赋值:如果1日前的收盘价>=今日涨停价ANDL不等于收盘价,返回(收盘价/1日前的收盘价-1),否则返回0
TTJ赋值:如果涨停次日收,返回1,否则返回0
TTJ1赋值:涨停次日收的P日累和
TTJ2赋值:TTJ的P日累和
CRPJ赋值:TTJ1/TTJ2*100 NODRAW
当满足条件1时,在横轴0.48纵轴0.8位置书写文字,COLORFF00FF
涨停次日开赋值:如果1日前的收盘价>=今日涨停价ANDL不等于收盘价,返回开盘价/1日前的收盘价-1,否则返回0
TTJ3赋值:如果涨停次日开,返回1,否则返回0
TTJ4赋值:涨停次日开的P日累和
TTJ5赋值:TTJ3的P日累和
CRPK赋值:TTJ4/TTJ5*100 NODRAW
当满足条件1时,在横轴0.86纵轴0.8位置书写文字,COLORFF00FF
FYZ赋值:收盘价>=今日涨停价 AND 最低价不等于收盘价
GK赋值:1日前的FYZ AND 开盘价>1日前的收盘价
QT赋值:1日前的FYZ AND 开盘价<=1日前的收盘价
GTJ赋值:统计250日中满足GK的天数
QTJ赋值:统计250日中满足QT的天数
GK率赋值:100*GTJ/(GTJ+QTJ)
当满足条件1时,在横轴0纵轴0.8位置书写文字,COLORFF00FF

指标安装下载帮助  |   热门标签  | 联系我们  |  股朋指标网  |  指标网   |  指标公式  |  加入收藏   

@2005-2023 粤ICP备2023063687号-2 股朋指标网别名指标网均来源互联网收集整理,如不慎侵犯了你的权益,请联系我们告知,我们将做删除处理
免责声明:股朋指标网所有指标公式及文章由网络收集,不保障实时性和真实性, 仅供学习研究并不构成投资建议,请勿以此为依据进行股票交易,由此引起的投资亏损与本站无关。
QQ:88652583 微信 88652583
sitemap站点地图