【通达信源码分享】精品指标公式－资金进场指标源码

公式源码：

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,LINETHICK2;

庄秘进: IF(V4>=0,V4,0),COLORFF00FF,LINETHICK2;

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;

大筹金进场: IF(VB>=0,VB,0),COLORYELLOW,LINETHICK2;

大筹金撤走: IF(VB<=0,VB,0),COLORBLUE,LINETHICK2;

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);

主力资金出场:IF(CROSS(BB,AA),-3,0),STICK,LINETHICK3,COLOR00FF00;

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);

筹码进场日:IF(A11,8,0),LINETHICK0;

STICKLINE(A12,0,15,5,0),COLORFF00FF;

筹码加仓日:IF(A12,88,0),LINETHICK0;

STICKLINE(A12,0,15,5,0),COLORFF00FF;

STICKLINE(A11,0,5,5,0),COLORFF7700;

STICKLINE(A11,0,5,4.5,0),COLORFF8800;

STICKLINE(A11,0,5,4,0),COLORFF9900;

STICKLINE(A11,0,5,3.5,0),COLORFFAA00;

STICKLINE(A11,0,5,3,0),COLORFFBB00;

STICKLINE(A11,0,5,2.5,0),COLORFFCC00;

STICKLINE(A11,0,5,2,0),COLORFFDD00;

STICKLINE(A11,0,5,1,0),COLORFFEE00;

STICKLINE(A12,0,15,4.5,0),COLOR102099;

STICKLINE(A12,0,15,4,0),COLOR1020AA;

STICKLINE(A12,0,15,3.5,0),COLOR1020BB;

STICKLINE(A12,0,15,3,0),COLOR1020CC;

STICKLINE(A12,0,15,2.5,0),COLOR1020DD;

STICKLINE(A12,0,15,2,0),COLOR1020EE;

STICKLINE(A12,0,15,1,0),COLOR1020FF;

DRAWTEXT((A11,8),筹码进场日,'筹码进场'),COLORRED;

DRAWTEXT(A12,17,'筹码加仓'),COLORMAGENTA;

VAR1:=REF(LOW,1);

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

VAR3:=EMA(VAR2,13);

VAR4:=LLV(LOW,34);

VAR5:=EMA(IF(LOW<=VAR4,VAR3,0),3);

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

STICKLINE(VAR5>REF(VAR5,1),0,VAR5,7,0 ),COLORRED;

洗盘:IF(VAR5<REF(VAR5,1),VAR5,0),COLORGREEN,LINETHICK2;

STICKLINE(VAR5<REF(VAR5,1),0,VAR5,2,1),COLORGREEN;

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,40,'注意★有筹码进场迹象');

VAR9:=HHV(VAR8,10);

STICKLINE(VAR8=10,20,10,5,0),COLOR6666FF;

VARA:=IF(VAR9 AND CROSS(MA(CLOSE,3),MA(CLOSE,5)),20,0);

VARE:=MA(100*(CLOSE-LLV(CLOSE,34))/(HHV(HIGH,34)-LLV(LOW,34)),5)-20;

VARF:=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);

VAR10:=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);

VAR11:=VARF<REF(VAR10,1) AND VOL>REF(VOL,1) AND CLOSE>REF(CLOSE,1);

DRAWTEXT(VAR11 AND COUNT(VAR11,40)=1,30,'大资金活动'),LINETHICK1,COLORFF00FF;

A01:=(3);

A03:=BARSCOUNT(CLOSE);

A04:=(SMA((CLOSE / HHV(HIGH,120)),3,1) * 100);

A05:=IF((A03 > 20),A04,0);

A06:=IF((LOW > A01),0,IF((HIGH < A01),1,(((A01 - LOW) + 0.009) / ((HIGH - LOW) + 0.009))));

A07:=DMA(A06,(VOL / CAPITAL)) * 60;

A09:=IF((((A07 > 0) AND (A07 > REF(A07,1))) AND (A05 <= 200)),A07,0);

趋势:=EMA(VAR3,3)-10;

STICKLINE(趋势>80,趋势,80,6,0);

DRAWTEXT(CROSS(趋势,0),0,'▲'),COLOR0000FF;

STICKLINE((A09 > 0 AND (趋势<20 OR 趋势>REF(趋势,1)AND 趋势<50)),0,A09,5,0),COLORFFFF00;

机构建仓区:0,LINETHICK0,COLORFFFF00;