同花顺换手吸筹指标公式

换手率=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;