通达信〖大阳反包龙〗识别主力资金动向和潜在的强势反转源码

VAR1:=(vol/C)/2;
VAR2:=SUM(IF(VAR1>100 AND CLOSE>REF(CLOSE,1),VAR1,0),0);
VAR3:=SUM(IF(VAR1>100 AND CLOSE< REF(CLOSE,1),VAR1,0),0);
VAR4:=SUM(IF(VAR1< 100 AND CLOSE>REF(CLOSE,1),VAR1,0),0);
VAR5:=SUM(IF(VAR1< 100 AND CLOSE< REF(CLOSE,1),VAR1,0),0);
VAR6:=VAR2+VAR3+VAR4+VAR5;
机买:=(VAR2/VAR6)*100-100;
机卖:=(VAR3/VAR6)*100-100;
VAR7:=(C*2+H+L)/4*10;
VAR8:=EMA(VAR7,13)-EMA(VAR7,34);
VAR9:=EMA(VAR8,5);
VAR10:=2*(VAR8-VAR9)*5.5;
VAR11:=IF(VAR10>=0,VAR10 * 3,0);
VAR12:=(CLOSE-LLV(LOW,34))/(HHV(HIGH,21)-LLV(LOW,34))*100;
VAR13:=(EMA(VAR12,3)-50)*2;
VAR14:=IF(DATE<=1150530,1,0);
VAR15:=BETWEEN((C*VAR14)/(SUM(AMOUNT,BARSCOUNT((C*VAR14)))/SUM(VOL*100,BARSCOUNT((C*VAR14)))),1.05,0.95);
VAR16:=IF(VAR15=0,MA((C*VAR14),BARSCOUNT((C*VAR14))),(SUM(AMOUNT,BARSCOUNT((C*VAR14)))/SUM(VOL*100,BARSCOUNT((C*VAR14)))));
VAR17:=BARSLASTCOUNT(VAR11>20 AND VAR13>0)=1;
VAR18:=BARSLASTCOUNT(VAR11>20 AND VAR13>0 AND (expma(C,10)>EXPMA(C,60)))=1;
VAR19:=PWINNER(30,C)*100;
VAR20:=(WINNER(CLOSE*1.075)-WINNER(CLOSE*0.925))*100;
VAR21:=VAR20/WINNER(HHV(HIGH,0));
VAR22:=crOSS(VAR19,VAR21);
反包:EMA(EMA(C,5),5),COLORRED,LINETHICK2;
IF(REF(反包,1)>反包,反包,DRAWNULL),COLORFF0000,LINETHICK2;
STICKLINE(VAR18,O,C,2,0),COLORMAGENTA;
STICKLINE(VAR11>20 AND VAR13>0,O,C,2.0,0),COLOR0000FF;
STICKLINE(VAR17,O,C,2,0),COLORRED;
STICKLINE(VAR22 AND VAR17,O,C,2,0),COLOR00FFFF;
DRAWICON(VAR22 AND VAR17,L*1.002,29);
DRAWICON(VAR22 AND VAR18,L*0.96,34);
DRAWTEXT(VAR22 AND VAR18,L*0.96,' 大阳反包龙'),COLOR00FFFF;