通达信副图指标主力线（附源码）

 VAR1:=((CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100+(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100+(CLOSE-MA(CLOSE,32))/MA(CLOSE,32)*100)/3;
主力撤退:IF(VAR1<0,VAR1,0),COLORFEDCBA,LINETHICK2;
主力:IF(VAR1>0,VAR1,0),COLORRED,LINETHICK2;
 V1:=(C*2+H+L)/4*10;
 V2:=EMA(V1,13)-EMA(V1,34);
 V3:=EMA(V2,5);
 V4:=2*(V2-V3)*5.5;
大户撤退:IF(V4<0,V4,0),COLOR00FF00;
大户:IF(V4>0,V4,0),COLORFF00FF;
 V5:=(HHV(INDEXH,8)-INDEXC)/(HHV(INDEXH,8)-LLV(INDEXL,8))*8;
 V6:=EMA(3*V5-2*SMA(V5,18,1),5);
 V7:=(INDEXC-LLV(INDEXL,8))/(HHV(INDEXH,8)-LLV(INDEXL,8))*10;
 V8:=(INDEXC*2+INDEXH+INDEXL)/4;
 V9:=EMA(V8,13)-EMA(V8,34);
 VA:=EMA(V9,3);
 VB:=(V9-VA)/2;
大资金进场VB: IF(VB>=0,VB,0),COLORYELLOW,LINETHICK2;
大资金离场:IF(VB<=0,VB,0),COLORBLUE,LINETHICK2;
零为分界线:0,COLORWHITE,LINETHICK2;
 DRAWTEXT(ISLASTBAR AND C,VAR1,'  主力线:零轴上方可进场 中线可持股'),COLOR0000BB;
 DRAWTEXT(ISLASTBAR AND C,V4,'  大户线:零轴下方短线必出且不抄底'),COLOR0000BB;
 DRAWTEXT(ISLASTBAR AND C,VB,'  大资金线:零轴下方需小心'),COLOR0000BB;