主力进退（通达信副图）

VAR1:=((HHV(H,21)-C)/(HHV(H,21)-LLV(L,21)))*100-10;

VAR2:=((C-LLV(L,21))/(HHV(H,21)-LLV(L,21)))*100;

VAR3:=SMA(VAR2,13,8);

VAR4:=SMA(VAR1,21,8);

X:=CEILING(SMA(VAR3,13,8));

底:IF((X-VAR4<(-65)),1,6),COLOR00FF00;

顶:IF((X-VAR4>85),95,100),COLORF0F000;

RSV:= (CLOSE-LLV(LOW,21))/(HHV(HIGH,21)-LLV(LOW,21))*100;

FASTK:=SMA(RSV,7,1);

K:SMA(FASTK,7,1);

D:SMA(K,9,1),COLORFFFFFF;

STICKLINE(K>D,K,D,6,0),COLORRED;

强弱分界线: 50,POINTDOT, COLORF00FF0;

VAR1X:=IF(MONTH<12,1,1);

VAR3X:=(2*CLOSE+HIGH+LOW)/4;

VAR4X:=LLV(LOW,34);

VAR5X:=HHV(HIGH,34);

主力进退线:EMA((VAR3X-VAR4X)/(VAR5X-VAR4X)*100,13)*VAR1X,LINETHICK2,COLORRED;

DRAWTEXT(CROSS(主力进退线,D),D,'B'),COLORRED;

DRAWTEXT(CROSS(D,主力进退线),D,'S'),COLORYELLOW;