【通达信源码分享】动量买卖（副图 源码 测试图）底部动量 动力线 黄金坑 财神线

VAR1:=(HHV(HIGH,36)-CLOSE)/(HHV(HIGH,36)-LLV(LOW,36))*100;

S:=SMA(VAR1,5,1);

VAR2:=(CLOSE-LLV(LOW,8))/(HHV(HIGH,8)-LLV(LOW,8))*100;

X:SMA(VAR2,2,1),COLORFF00FF ;

VR4:=SMA(ABS(L-REF(L,1)),13,1)/SMA(MAX(L-REF(L,1),0),13,1);

底部动量:IF(EMA(IF(L<=LLV(L,30),VR4,0),3)*10<100,EMA(IF(L<=LLV(L,30),VR4,0),3)*10,100),COLOR004DF5;

AA:=INTPART(底部动量);

DD:=IF(AA>REF(HHV(AA,120),1),AA,0);

VR2:=LLV(LOW,10);

VR3:=HHV(HIGH,25);

动力线:=IF(EMA((CLOSE-VR2)/(VR3-VR2)*4,4)*25<100,EMA((CLOSE-VR2)/(VR3-VR2)*4,4)*25,100);

STICKLINE(动力线>REF(动力线,1) ,动力线 ,REF(动力线,1),2 ,0),COLORRED;

STICKLINE(动力线<=REF(动力线,1) ,动力线 ,REF(动力线,1),2 ,1),COLOR00FF00;

VAR3:=1/WINNER(CLOSE);

VAR4:=EMA(CLOSE,13);

VAR5:=100-ABS((CLOSE-VAR4)/VAR4)*100;

黄金坑:=(100-IF(VAR3>10,IF(VAR3<100,VAR3,VAR5-90),0));

100,POINTDOT;

70,POINTDOT;

30,POINTDOT,COLORFF00FF ;

VAR1A:=WINNER(CLOSE); 

VAR2A:=VOL/CAPITAL; 

VAR3A:=VAR2A/VAR1A; 

JJ:=IF(VAR1A<50/100 ,VAR3A,0)*100; 

财神线:=IF(JJ<100,JJ,0);

STICKLINE(财神线>=0,0,底部动量,0.01,0),COLOR00FFFF;

JHH:=SUM(IF(CLOSE>REF(CLOSE,1),VOL,IF(CLOSE<REF(CLOSE,1),-VOL,0)),0);

STICKLINE(ABS(JHH/WINNER(C))>1000000000,0,0,0,0),COLORFF00FF,LINETHICK5;

DRAWTEXT((S-X)>=70 AND X<7,10,'★'),COLORRED;

VARC:=CLOSE*50/100;

VARD:=MA(VARC,30)*0.83;

VARE:=MA(VARC/VARD,3);

DRAWTEXT(FILTER(VARE<1.04,3),10,'★'),COLORYELLOW ;

DRAWTEXT(CROSS(X,底部动量) AND 动力线>REF(动力线,1) AND C>L*1.03,100,'★'),COLORGREEN;