通達信情緒指標

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;