通达信〖市场情绪温度〗基于三重指数平滑计算价格动量源码

VAR1:=5;
VAR2:=3;
VAR3:=(2*CLOSE+HIGH+LOW)/3;
VAR4:=EMA(VAR3,13);
VAR5:=EMA(VAR4,13);
VAR6:=EMA(VAR5,13);
VAR7:(VAR6-REF(VAR6,1))/REF(VAR6,1)*100,COLORSTICK;
STICKLINE(VAR7>=0&&VAR7>=REF(VAR7,1),0,VAR7,2,0),COLORRED;
STICKLINE(VAR7>=0&&VAR7< REF(VAR7,1),0,VAR7,2,1),COLOR6062DE;
STICKLINE(VAR7< 0&&VAR7>=REF(VAR7,1),0,-VAR7,2,1),COLORFFFD5B;
STICKLINE(VAR7< 0&&VAR7< REF(VAR7,1),0,-VAR7,2,0),COLORGREEN;
VAR8:=AMOUNT/vol/100;
VAR9:=MA(VAR8,13);
VAR10:=EMA(VOL,13);
VAR11:=EMA(AMOUNT,13);
VAR12:=VAR11/VAR10/100;
VAR13:=(CLOSE-VAR12)/VAR12*100;
VAR14:=EMA(VOL/CAPITAL*100,13);
VAR15:0,COLORWHITE,LINETHICK1;
VAR16:MA(VAR7,VAR1),COLORLIBLUE,LINETHICK1;
VAR17:MA(VAR7,VAR2),COLORLIMAGENTA,LINETHICK1;
VAR18:=crOSS(VAR7,0);
VAR19:=CROSS(0,VAR7);
DRAWICON(VAR18,0,1);
DRAWICON(VAR19,0,2);
VAR20:=VAR7>=0&&REF(VAR7>=0,1)&&VAR7< REF(VAR7,1);
VAR21:=VAR7< 0&&REF(VAR7< 0,1)&&VAR7>=REF(VAR7,1);
DRAWTEXT(VAR20,VAR7*1.5,'↓'),COLORYELLOW;
DRAWTEXT(VAR21,-VAR7*1.5,'↑'),COLOR808040;
STICKLINE(VAR20,0,VAR7,2,0),COLORFF80FF;
STICKLINE(VAR21,0,-VAR7,2,0),COLOR80FFFF;