通达信【情绪周期】副图(含源码):量化多空情绪,精准捕捉冰点低吸与过热高抛!

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;