通达信主力面面观 副图源码

{主力1}
VAR2L:=REF(LOW,1);
VAR3L:=SMA(ABS(LOW-VAR2L),3,1)/SMA(MAX(LOW-VAR2L,0),3,1)*110;
VAR4L:=EMA(IF(CLOSE*1.3,VAR3L*10,VAR3L/10),3);
VAR5L:=LLV(LOW,13);
VAR6L:=HHV(VAR4L,13);
VAR7L:=IF(MA(CLOSE,34),1,0);
VAR8L:=EMA(IF(LOW<=VAR5L,(VAR4L+VAR6L*2)/2,0),3)/618*VAR7L;
VAR9LL:=IF(VAR8L>110,110,VAR8L);
STICKLINE(VAR9LL>-110,0,VAR9LL,1.3,1),COLORCCCCCC;
洗盘W:IF(VAR8L<REF(VAR8L,1),VAR8L,0),COLORGREEN,NODRAW;
STICKLINE(VAR9LL<REF(VAR9LL,1),0,VAR9LL,2,0),COLORRED;
{主力2}
VAR01:=EMA((CLOSE-LLV(LOW,25))/(HHV(HIGH,25)-LLV(LOW,25))*100,5);
VAR02:=(HHV(HIGH,25)-LLV(LOW,25))/EMA((CLOSE-LLV(LOW,25)),5);
VAR03:=CROSS(VAR02,VAR01);
VAR04:=REF(VAR02,2)<REF(VAR02,1) AND VAR02<REF(VAR02,1);
VAR05:=COUNT(VAR03,7)>0 AND VAR04;
VAR06:=REF((LOW+OPEN+CLOSE+HIGH)/4,1);
VAR07:=SMA(ABS(LOW-VAR06),13,1)/SMA(MAX(LOW-VAR06,0),10,1);
VAR08:=EMA(VAR07,10);
VAR09:=EMA(C,5);
VAR10:=LLV(LOW,33);
VAR11:=EMA(IF(LOW<=VAR10,VAR09,0),3)*30;
VAR12V:=IF(VAR11>100,100,VAR11);
STICKLINE(VAR12V<REF(VAR12V,1),0,VAR12V,1,1),COLORRED;
{主力3}
VAR1B:=REF(LOW,1);
VAR2B:=SMA(ABS(LOW-VAR1B),13,1)/SMA(MAX(LOW-VAR1B,0),13,1)*25;
VAR3B:=EMA(VAR2B,13);
VAR4B:=LLV(LOW,34);
VAR5B:=EMA(IF(LOW<=VAR4B,VAR3B,0),3);
主力进场B:STICKLINE(VAR5B>REF(VAR5B,1),0,VAR5B,0,0 ),COLORGREEN;