通达信资金流向指标

资金为王，连续的流入资金信号，表明拉升不远了
 下面为源码分享：
 
A1:30,COLORWHITE;
 A2:50,COLORRED;
 A3:60,POINTDOT,COLORYELLOW;
 A4:70,POINTDOT;
 A5:80,COLORRED;
 
TYP := AMOUNT/VOL/100;
 V1:=SUM(IF(TYP>REF(TYP,1),TYP*VOL,0),21)/SUM(IF(TYP<REF(TYP,1),TYP*VOL,0),21);
 MFI:=100-(100/(1+V1));
 资金流向:EMA(MFI,5),COLORLIBLUE;
 DRAWTEXT(LAST((COUNT(资金流向<50,200)/COUNT(资金流向>50,200)<0.2 )=1 AND (C-LLV(C,200))/(HHV(C,200)-LLV(C,200))<80 AND (C-LLV(C,200))/(HHV(C,200)-LLV(C,200))>50,1,1),40,'主力吸筹');
 
A:=AMOUNT/VOL/100;
 X:=(20*A+19*REF(A,1)+18*REF(A,2)+17*REF(A,3)+16*REF(A,4)+15*REF(A,5)+
 14*REF(A,6)+13*REF(A,7)+12*REF(A,8)+11*REF(A,9)+10*REF(A,10)+9*REF(A,11)+8*REF(A,12)
 +7*REF(A,13)+6*REF(A,14)+5*REF(A,15)+4*REF(A,16)+3*REF(A,17)+2*REF(A,18)+
 REF(A,20))/210;
 工作线:=EMA(X,13);
 
DRAWTEXT(资金流向>=HHV(资金流向,20) AND MA(VOL,20)>REF(MA(VOL,20),1) AND MA(VOL,5)>MA(VOL,10)
 AND MA(C,238)>REF(MA(C,238),1) AND C>工作线 AND CROSS(资金流向,60),资金流向,'买');
 
IF(资金流向<50,资金流向,DRAWNULL),COLORGREEN;
 IF(资金流向>=50 AND 资金流向<60,资金流向,DRAWNULL),COLORYELLOW;
 IF(资金流向>=60 AND 资金流向<80,资金流向,DRAWNULL),COLORRED;
 IF(资金流向>=80,资金流向,DRAWNULL),COLORMAGENTA;