通达信〖情绪周期〗多因子情绪评分系统指标公式源码

MA5:=MA(C,5);
MA10:=MA(C,10);
MA20:=MA(C,20);
多头完美:=C>MA5 AND MA5>MA10 AND MA10>MA20;
多头弱势:=MA5>MA10 AND MA10>MA20 AND C<=MA5;
伪多头:=MA5>MA10 AND MA10< MA20;
均线粘合:=(MAX(MA5,MAX(MA10,MA20))-MIN(MA5,MIN(MA10,MA20)))/MA20< 0.02;
MA得分:IF(多头完美,20,IF(多头弱势,15,IF(伪多头,8,IF(均线粘合,5,0)))),NODRAW;
总家数:=ADVANCE+DECLINE;
上涨比例:=IF(总家数>0, ADVANCE/总家数*100, 50);
广度A:=IF(上涨比例>=70,10,IF(上涨比例>=60,7,IF(上涨比例>=50,5,IF(上涨比例>=40,3,IF(上涨比例>=30,1,0)))));
AD趋势:=IF(ADVANCE>MA(ADVANCE,5), 10, IF(ADVANCE< MA(ADVANCE,5), 3, 5));
指数涨幅:=(C-REF(C,1))/REF(C,1)*100;
广度C:=IF(指数涨幅>2, 5, IF(指数涨幅>1, 3, IF(指数涨幅>0, 1, 0)));
广度得分:广度A + AD趋势 + 广度C, NODRAW;
日内位:=IF(H=L, 50, (C-L)/(H-L)*100);
强度A:=IF(日内位>=90,5,IF(日内位>=65,4,IF(日内位>=40,3,IF(日内位>=20,2,0))));
距高点P:=(C-HHV(H,20))/HHV(H,20)*100;
强度B:=IF(距高点P>=0,10,IF(距高点P>=-2,8,IF(距高点P>=-5,6,IF(距高点P>=-10,4,IF(距高点P>=-15,2,0)))));
收盘得分:强度A + 强度B, NODRAW;
量比:=V/MA(V,20);
量能A:=IF(量比>=2.5,10,IF(量比>=2,9,IF(量比>=1.5,7,IF(量比>=1.2,5,IF(量比>=0.8,4,IF(量比>=0.6,2,0))))));
连续放量:=V>REF(V,1) AND REF(V,1)>REF(V,2) AND REF(V,2)>REF(V,3);
量能B:=IF(连续放量,5,0);
量能得分:量能A + 量能B, NODRAW;
MFV:=IF(H=L,0, ((C-L)-(H-C))/(H-L)*V);
CMF:=SUM(MFV,20)/SUM(V,20);
资金A:=IF(CMF>=0.3,10,IF(CMF>=0.05,7,IF(CMF>=-0.05,4,IF(CMF>=-0.3,1,0))));
CMF向上:=CMF>REF(CMF,1);
资金B:=IF(CMF向上 AND CMF>0,10, IF(CMF>0,6, IF(CMF向上,3, 0)));
CMF得分:资金A + 资金B, NODRAW;
振幅:=(H-L)/REF(C,1)*100;
波动A:=IF(振幅>5,3,IF(振幅>2,2,IF(振幅>1,1,0)));
向上跳空:=L>REF(H,1);
波动B:=IF(向上跳空,2,0);
波动得分:波动A + 波动B, NODRAW;
总分:=MA得分+广度得分+收盘得分+量能得分+CMF得分+波动得分;
情绪总分:MIN(100,总分),COLORWHITE,LINETHICK2;
STICKLINE(情绪总分< 20, 0, 20, 4, 0), COLOR001500;
STICKLINE(情绪总分>80, 80, 100, 4, 0), COLOR150000;
冰点线:20,COLORGREEN,DOTLINE;
中轴线:50,COLORGRAY,DOTLINE;
过热线:80,COLORRED,DOTLINE;
DRAWTEXT_FIX(ISLASTBAR,0.9,0,0,STRCAT(STRCAT('当前情绪: ',CON2STR(情绪总分,0)),'分')),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR AND 情绪总分< 20, 0.9, 0.1, 0, ' 冰点'),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR AND 情绪总分>=20 AND 情绪总分< 40, 0.9, 0.1, 0, ' 谨慎'),COLORCYAN;
DRAWTEXT_FIX(ISLASTBAR AND 情绪总分>=40 AND 情绪总分< 60, 0.9, 0.1, 0, ' 中性震荡'),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR AND 情绪总分>=60 AND 情绪总分< 80, 0.9, 0.1, 0, ' 偏热'),COLORRED;
DRAWTEXT_FIX(ISLASTBAR AND 情绪总分>=80, 0.9, 0.1, 0, ' 过热'),COLORLIRED;