通达信凤翔集中度副图指标

源码

{凤翔集中度}
A1:=COST(95);
A2:=COST(5);
集中度:(A1-A2)*100/(A1+A2),COLORWHITE;
XX:=HHV(集中度,1)=HHV(集中度,0);
IF(XX,集中度,DRAWNULL)COLORRED;
AA1:=HHVBARS(集中度,120);
B1:=BACKSET(ISLASTBAR,AA1+1);
D1:=FILTER(B1,120);
AA2:=LLVBARS(集中度,20);
B2:=BACKSET(ISLASTBAR,AA2+1);
D2:=FILTER(B2,20);
顶:REF(集中度,BARSLAST(D1)),LINETHICK2,COLORRED;
低:REF(集中度,BARSLAST(D2)),LINETHICK2,COLORGREEN;
集中度D顶:集中度-顶,COLORYELLOW,LINETHICK0;