通达信资金流向 主力吸筹副图源码

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;