同花顺换手吸筹指标公式

换手率=vol/SHGZG*100;

A1=REPDATE(&GDZS,1,0);/*最近一次日期*/

A2=REPDATE(&GDZS,2,0);/*最近一次日期*/

日数=BArslAst(A1<>REF(A1,1))+1;/*上一次报告期不一致时，至今日数*/

n=1;

累=0;

IF 日数=1 THEN

{WHILE n<100 DO

{IF A2<>REF(A1,n) THEN

{BREAK;}

累=累+REF(换手率,n);

n=n+1;}}

累换:=BacKSET(累,n),colorgreen;

/*流通比例=（1-十大流通股东比例）*/

流=100-JGCGS/SHGZG*100;

/*理论股东变化*/

gd=累/流;

/*真实股东变化*/

B1=GDZS;

B2=LASTREP(&GDZS,2);/*上次股东户数*/

B3=(B1/B2-1)*100;/*真实股东变化率*/

吸筹比例:BACKSET(B3/gd,n);

HORLINE(1,0,0,3),colorblack;