【原】通達信副圖指標莊家雷達（附源碼）

Z:=MA(C,120);

VAR4:=MA((CLOSE-LLV(LOW,10))/(HHV(HIGH,10)-LLV(LOW,10))*100,3);

異動:IF(CLOSE>Z AND REF(VAR4,1)<30 AND VAR4>REF(VAR4,1) AND REF(VAR4,1)<REF(VAR4,2),5,0);

VAR1:=EMA(EMA(CLOSE,9),9);

控盤:=(VAR1-REF(VAR1,1))/REF(VAR1,1)*1000;

STICKLINE(控盤<0,控盤,0,1,0),COLORWHITE;

A10:=CROSS(控盤,0);

有莊:IF(A10,10,0),LINETHICK1,COLORYELLOW;

STICKLINE(控盤>REF(控盤,1) AND 控盤>0,控盤,0,1,0),COLORRED;

有莊控盤:IF(控盤>REF(控盤,1) AND 控盤>0,控盤,0),COLORRED,NODRAW;

VAR2:=100*WINNER(CLOSE*0.95);

STICKLINE(VAR2>50 AND COST(85)<CLOSE AND 控盤>0,控盤,0,1,0),COLORFF00FF;

高度控盤:IF(VAR2>50 AND COST(85)<CLOSE AND 控盤>0,控盤,0),COLORFF00FF,NODRAW;

STICKLINE(控盤<REF(控盤,1) AND 控盤>0,控盤,0,1,0),COLOR00FF00;

主力出貨:IF(控盤<REF(控盤,1) AND 控盤>0,控盤,0),COLOR00FF00,NODRAW;

無莊控盤:IF(控盤<0,控盤,0),COLORWHITE,NODRAW;

莊家異動:(異動 AN 有莊)*15,COLORRED;

DRAWTEXT(莊家異動>0,11'莊家異動'),COLORRED;