通达信情绪指标

DRAWTEXT_FIX(ISLASTBAR,0,0,0,'指标说明：红柱区间就是大资金进入该股控盘拉升期，蓝柱区间是则是大资金弃盘离场休息期，如果红柱下穿变蓝时，全仓沽空，能有效规避股价长期下跌风险！  '),COLOR0080FF;

VARA1:=MA(CLOSE,13); VARA2:=((CLOSE-VARA1)/(VARA1))*(100);

VARA3:=MA(VARA2,3);  VARA4:=BARSLAST((CROSS((-10),VARA3)=1));

资金能量:=VARA3,COLORBLACK;

高涨:IF((资金能量>0.15999999),资金能量,0),COLORRED,LINETHICK3;

低落:IF((资金能量<(-0.15999999)),资金能量,0),COLORBLUE,LINETHICK3;

VAR1:=((CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100+(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100+(CLOSE-MA(CLOSE,32))/MA(CLOSE,32)*100)/3;

能量值:VAR1,NODRAW;   VAR2:=HHV(VAR1>20,10);

STICKLINE(资金能量>=0,(资金能量-资金能量*0.05),(资金能量-资金能量*0.15),5,0) COLOR0000CC;

STICKLINE(资金能量>=0,(资金能量-资金能量*0.2),(资金能量-资金能量*0.35),5,0) COLOR0066FF;

STICKLINE(资金能量>=0,(资金能量-资金能量*0.4),(资金能量-资金能量*0.55),5,0) COLOR0099FF;

STICKLINE(资金能量>=0,(资金能量-资金能量*0.6),(资金能量-资金能量*0.75),5,0) COLOR00CCFF;

STICKLINE(资金能量>=0,(资金能量-资金能量*0.8),(资金能量-资金能量*0.95),5,0) COLOR00FFFF;

STICKLINE(资金能量<0,(资金能量-资金能量*0.05),(资金能量-资金能量*0.15),5,0) COLORFF3300;

STICKLINE(资金能量<0,(资金能量-资金能量*0.2),(资金能量-资金能量*0.35),5,0) COLORFF6600;

STICKLINE(资金能量<0,(资金能量-资金能量*0.4),(资金能量-资金能量*0.55),5,0) COLORFF9900;

STICKLINE(资金能量<0,(资金能量-资金能量*0.6),(资金能量-资金能量*0.75),5,0) COLORFFCC00;

STICKLINE(资金能量<0,(资金能量-资金能量*0.8),(资金能量-资金能量*0.95),5,0)COLORCYAN;

DRAWTEXT(CROSS(20,资金能量),18,'↓'), COLORWHITE;

DRAWTEXT(CROSS(资金能量,-20),-18,'低吸'), , COLOR0099FF ;

DRAWTEXT(VAR1>9 AND FILTER(VAR1<REF(VAR1,1),5),资金能量+2,'顶'),COLORYELLOW;

DRAWTEXT(VAR1>20 AND FILTER(VAR1<REF(VAR1,1),5),资金能量+1,'收获'),COLORFFFF00;

DRAWTEXT(VAR2 AND CROSS((REF(HIGH,1)+REF(LOW,1))/2,MA(CLOSE,20)+2*STD(CLOSE,20)),资金能量+1,'高抛'),COLORWHITE;

DRAWTEXT(FILTER(VAR1<-9 AND VAR1>REF(VAR1,1),18),资金能量,'底'),COLOR0000FF;

DRAWTEXT(VAR1<-20 AND FILTER(VAR1> REF(VAR1,1),5),资金能量,'低吸')COLORCYAN;

M1 := EMA( CLOSE, 9 );

M2 := EMA( CLOSE, 18 );

MD : ( M1 - M2)*100, COLORWHITE, NODRAW;

MM := EMA( MD, 3 );

吸 : IF( MD >= MM AND MD <  0, MD, DRAWNULL ), COLORLIRED, NODRAW;

拉 : IF( MD >= MM AND MD >= 0, MD, DRAWNULL ), COLORRED,   NODRAW;

派 : IF( MD <  MM AND MD >= 0, MD, DRAWNULL ), COLORGREEN, NODRAW;

落 : IF( MD <  MM AND MD <  0, MD, DRAWNULL ), COLORWHITE, NODRAW;