大智慧主图显示换手率和板块的指标公式源码 天天抓涨停 我行你也行

很多好友问到了当天抓涨停的具体的选股方法和思路。其实，我的选股非常简单和机械，就是根据我自己编写的一些排序指标、主图指标和副图指标来进行综合选股。其中用得最多的一个主图指标就是这个显示换手率和板块的主图指标公式，该公式是我在参考别人源码的基础上专门为大智慧改写的一个主图参考指标。该指标仅适用于大智慧，通达信的主图换手率指标自己去找。

 此公式源码不含有任何未来函数，也没有使用任何未来数据，信号因此不会漂移。使用者可直接从K线主图上查看到个股的换手率变动情况，据此可判断个股的活跃性和可操作性。此外，还可通过该主图看出个股所属的各个相应板块，因此可在选股时确定个股是否属于当期热点板块。

 使用和设置说明：下载源码后新建公式就可使用，新建公式时的参数设置参见以下截图，换手率计算的起始日期可设置成大盘最近波段的启动日期。

源码

{参数设置 年:最小1990,最大3000,缺省年2014 月:1,12,1 （缺省月7）日:1,31,1（缺省日17）}
时间:=(年-1900)*10000+月*100+日;
DRAWTEXT(BARSLAST(DATE>=时间),L*0.94,’换手起点’),COLORRED;
DRAWICON(BARSLAST(DATE>=时间),L*0.98,1);
HSL:100*VOL/(capital),linethick0;
上市日期:(FINANCE2(2)-19000000),linethick0;
{天数:BARSLAST(DATE
累积换手:=SUM(HSL,5);}
HS100:IF(DATE>=时间,SUM(HSL,if(上市日期=100,0),linethick0;
HS200:IF(DATE>=时间,SUM(HSL,if(上市日期=200,0),linethick0;
HS300:IF(DATE>=时间,SUM(HSL,if(上市日期=300,0),linethick0;
HS400:IF(DATE>=时间,SUM(HSL,if(上市日期=400,0),linethick0;
HS500:IF(DATE>=时间,SUM(HSL,if(上市日期=500,0),linethick0;
HS600:IF(DATE>=时间,SUM(HSL,if(上市日期=600,0),linethick0;
HS700:IF(DATE>=时间,SUM(HSL,if(上市日期=700,0),linethick0;
HS800:IF(DATE>=时间,SUM(HSL,if(上市日期=800,0),linethick0;
HS900:IF(DATE>=时间,SUM(HSL,if(上市日期=900,0),linethick0;
HS1000:IF(DATE>=时间,SUM(HSL,if(上市日期=1000,0),linethick0;
DRAWTEXT(CROSS(HS100,0.99),L*0.94,’换100′),COLORYELLOW;
DRAWICON(CROSS(HS100,0.99),L*0.98,1);
DRAWTEXT(CROSS(HS200,0.99),L*0.94,’换200′),COLORGREEN;
DRAWICON(CROSS(HS200,0.99),L*0.98,1);
DRAWTEXT(CROSS(HS300,0.99),L*0.94,’换300′),COLORWHITE;
DRAWICON(CROSS(HS300,0.99),L*0.98,1);
DRAWTEXT(CROSS(HS400,0.99),L*0.97,’换400′),COLORWHITE;
DRAWTEXT(CROSS(HS500,0.99),L*0.97,’换500′),COLORWHITE;
DRAWTEXT(CROSS(HS600,0.99),L*0.97,’换600′),COLORWHITE;
DRAWTEXT(CROSS(HS700,0.99),L*0.97,’换700′),COLORWHITE;
DRAWTEXT(CROSS(HS800,0.99),L*0.97,’换800′),COLORWHITE;
DRAWTEXT(CROSS(HS900,0.99),L*0.97,’换900′),COLORWHITE;
DRAWTEXT(CROSS(HS1000,0.99),L*0.97,’换1000′),COLORWHITE;
X1:=STRFIND(BKNAME,’自选股,’,1); x2:=STRFIND(BKNAME,’自选股1底部,’,1);
x3:=STRFIND(BKNAME,’自选股2平台,’,1); x4:=STRFIND(BKNAME,’自选股A绩优,’,1);
x5:=STRFIND(BKNAME,’自选股B绩优增仓,’,1);
x:=max(1,x1,x2,x3,x4,x5);
x1:= if(x=x1,7,if(x=x2 or x=x3 or x=x4,12,if(x=x5,16,0)));
{BK1:=STRMID(BKNAME,x+x1,8); X6:=if(STRFIND(BK1,’,’,1)0,STRFIND(BK1,’,’,1),9);
BK:=STRMID(BKNAME,x+x1,x6-1);}
BK:=STRMID(BKNAME,x+x1,200);
DRAWTEXTABS(0,10,’板块名称:’+BK),Color9DFFFF;