资金增筹副图－精品通达信指标公式源码分享

VAR1:=(3*CLOSE+HIGH+LOW)/4;   

VAR2:=EMA(EMA(EMA(VAR1,4),4),4);   

J:=(VAR2-REF(VAR2,1))/REF(VAR2,1)*100;   

D: MA(J,3)+0.03,LINETHICK1;   

K: MA(J,1),COLORRED,LINETHICK1;   

Y:=0;   

U:1.8,COLORGREEN;   

I:5.5,COLORRED;   

Y1:=100*VOL/FINANCE(7);   

DRAWICON(Y1>0.16,K*1.04,10);   

DRAWICON(CROSS(D,K),D+0.6,15),COLORGREEN;   

DRAWICON(CROSS(K,D),D-0.3,9),COLORYELLOW;   

AA:=WINNER(CLOSE+CLOSE*15/100)*100;   

BB:=WINNER(CLOSE+CLOSE*0/100)*100;   

CC:=AA-BB;   

DD:=(WINNER(CLOSE-CLOSE*0.1/100)-WINNER(CLOSE-CLOSE*15/100))*100;   

EE:=CC<3 AND DD<0.5 AND (OPEN<LOW OR OPEN>LOW);   

A1:=DYNAINFO(6);   

A2:=IF(LOW>A1,0,IF(HIGH<A1,1,(A1-LOW+0.01)/(HIGH-LOW+0.01)));   

A3:=VOL/WINNER(LOW);   

A4:=REF(HHV(CLOSE,120),1);   

A5:=REF(LLV(CLOSE,120),1);   

A6:=100*(CLOSE-A5)/(A4-A5);   

A7:=A2>0 OR A2=1;   

A8:=A7 AND A3/REF(A3,3)>=3 AND A6<80;   

A9:=REF(A8,1) OR REF(A8,2) OR REF(A8,3) OR REF(A8,4);   

A10:=A8 AND A9;   

A11:=IF(FILTER(A8,3),5,0);   

A12:=IF(FILTER(A10,3) OR EE,10,0);   

DRAWTEXT(A11=5,2,'资金进场'),COLORRED;   

DRAWTEXT(A12=10,-2,'资金增仓'),COLORYELLOW;   

VAR11:=REF(LOW,1);    

VAR12:=SMA(ABS(LOW-VAR11),13,1)/SMA(MAX(LOW-VAR11,0),13,1)*4;    

VAR13:=EMA(VAR12,13);   

VAR14:=LLV(LOW,34);   

VAR15:=EMA(IF(LOW<=VAR14,VAR13,0),3);   

主力进场:IF(VAR15>REF(VAR15,1),VAR15,0),COLORRED;   

STICKLINE(VAR15>REF(VAR15,1),0,VAR15,4,0 ),COLORRED;   

洗盘:IF(VAR15<REF(VAR15,1),VAR15,0),COLORLIGREEN;   

STICKLINE(VAR15<REF(VAR15,1),0,VAR15,4,0),COLORLIGREEN;   

VAR6:=100-3*SMA((CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1)+2*SMA(SMA((CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1),15,1);   

VAR7:=100-3*SMA((OPEN-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1)+2*SMA(SMA((OPEN-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1),15,1);   

VAR8:=VAR6<REF(VAR7,1) AND VOL>REF(VOL,1) AND CLOSE>REF(CLOSE,1);   

DRAWTEXT(VAR8 AND COUNT(VAR8,30)=1,-3,'资金增筹');   

AA1:=DOWNNDAY(MA(C,10),1);   

AA2:=ABS(C-REF(C,1))/REF(C,1)<=0.03;   

AA3:=(C-O)/O<=0.03 AND (REF(C,1)-REF(O,1))/REF(O,1)<=0.03;   

AA4:=COUNT(C<O,4)>=2;   

AA5:=C>O AND C>REF(C,1) AND (C-REF(C,5))/REF(C,5)<-0.02;   

B1:=CLOSE<MA(CLOSE,5) AND MA(CLOSE,5)<MA(CLOSE,10) AND MA(CLOSE,10)<MA(CLOSE,30) AND MA(CLOSE,30)<MA(CLOSE,60);   

预备:IF(AA1 AND AA2 AND AA3 AND AA4 AND AA5 AND NOT(B1),1,0),COLORMAGENTA;