最简便热点板块与热点龙头判断方法

一、热点板块判断

方法一、通达信热门板块报表，选择区间热门板块，一般选5日，10日，30日，按涨幅排序，连续排在前10位的板块就是热门板块。

方法二、飞孤板块涨幅排序与板块监控

板块监控公式原码:

bk:='板块指数';stksum:=STKCOUNT(bk);dcount:=DATACOUNT;zf:='涨幅引

用.ZF';

variable:dmstr[stksum]='',var_px[stksum]=0,var_indi[stksum]=0,dispstr [6]='';

{寻找领涨板块}

for k=1 to stksum do

begin

dm:=stkfromblk(bk,k);

dmstr[k]:=dm;

temp1:=stkindi(dm,zf,0,-1);

var_px[k]:=temp1[dcount];

var_indi[k]:=temp1[dcount];

end;

Num1:=sortpos(var_indi,1,1,stksum);

{写入显示字符串数组}

for k=1 to 6 do

begin

dispstr[k]:=dispstr[k]+STKNAMEEX(dmstr[var_indi[k]])+':'+NUMTO STR(var_px[var_indi[k]],2)+' <';

end;

{寻找领涨板块中的领涨股}

for i=1 to 6 do

begin

bk0:=STKNAMEEX(dmstr[var_indi[i]]);stknum0:=stkcount(bk0);

variable:dmstr0[stknum0]='',var_px0[stknum0]=0,var_indi0[stknum0] =0;

for k=1 to stknum0 do

begin

dm:=stkfromblk(bk0,k);

dmstr0[k]:=dm;

temp1:=stkindi(dm,zf,0,-1);

var_px0[k]:=temp1[dcount];

var_indi0[k]:=temp1[dcount];

end;

numZF1:=sortpos(var_indi0,1,1,stknum0);

{写入显示字符串}

tt:=if(stknum0<5,stknum0,5);

for k=1 to tt do

begin

dispstr[i]:=dispstr[i]+STKNAMEEX(dmstr0[var_indi0[k]])+':' +NUMTOSTR(var_px0[var_indi0[k]],2)+' ';

end;

dispstr[i]:=RTRIM(dispstr[i])+'>';

end;

{在屏幕上显示}

DRAWTEXTEX(c,1,0,0,'【涨幅前六名】'),Color00FFFF;

DRAWTEXTEX(c,1,0,150,'1:'+dispstr[1]),Color00FFFF;

DRAWTEXTEX(c,1,0,300,'2:'+dispstr[2]),Color00FFFF;

DRAWTEXTEX(c,1,0,450,'3:'+dispstr[3]),Color00FFFF;

DRAWTEXTEX(c,1,0,600,'4:'+dispstr[4]),Color00FFFF;

DRAWTEXTEX(c,1,0,750,'5:'+dispstr[5]),Color00FFFF;

DRAWTEXTEX(c,1,0,900,'6:'+dispstr[6]),Color00FFFF;

{寻找异动板块}

bkyd:='A股板块'; stksumA:=stkcount(bkyd);zs:='涨幅引用.ZS'; variable:dmstrA[stksumA]='',var_pxA[stksumA]=0,var_indiA[stksumA]=0,d mstr[stksum]='',var_zfA[stksumA]=0;

for k=1 to stksum do {存储板块名}

begin

dm:=stkfromblk(bk,k);

dmstr[k]:=dm;

end;

for k=1 to stksumA do {存储A股名}

begin

dm:=stkfromblk(bkyd,k);

dmstrA[k]:=dm;

tmp0:=stkindi(dm,zf,0,-1);

var_zfA[k]:=tmp0[dcount];

tmp:=stkindi(dm,zs,0,-1);

var_pxA[k]:=tmp[dcount];

var_indiA[k]:=tmp[dcount];

end;

numyd:=sortpos(var_indiA,1,1,stksumA); {异动股排序}

variable:{var_px_bk[stksum]=0,}var_px_indi_bk[stksum]=0;

{初始化}

for k=1 to stksum do

begin

{var_px_bk[k]:=0;}

var_indi_bk[k]:=0;

end;

{投盒}

for i=1 to 60 do

begin

for k=1 to stksum do

begin

var_indi_bk[k]:=var_indi_bk[k]+stkinblock(dmstrA[var _indiA[i]],stknameex(dmstr[k]));

{var_indi_bk[k]:=var_px_bk[k];}

end;

end;

{对板块排序}

numbkyd:=sortpos(var_indi_bk,1,1,stksum);

{取前3名}

variable:dispstryd[5]='';

for k=1 to 3 do

begin

dispstryd[k]:=dispstryd[k]+STKNAMEEX(dmstr[var_indi_bk[k]])+': ';

end;