通达信只做红波段指标公式

N:=20;jj:=(HIGH+LOW+CLOSE)/3;qj0:=vol/IF(HIGH=LOW,4,HIGH-LOW);
qj1:=IF(CAPITAL=0,qj0*(jj-MIN(CLOSE,OPEN)),qj0*IF(HIGH=LOW,1,(MIN(OPEN,CLOSE)-LOW)));
qj2:=IF(CAPITAL=0,qj0*(MIN(OPEN,CLOSE)-LOW),qj0*IF(HIGH=LOW,1,(jj-MIN(CLOSE,OPEN))));
qj3:=IF(CAPITAL=0,qj0*(HIGH-MAX(OPEN,CLOSE)),qj0*IF(HIGH=LOW,1,(HIGH-MAX(OPEN,CLOSE))));
qj4:=IF(CAPITAL=0,qj0*(MAX(CLOSE,OPEN)-jj),qj0*IF(HIGH=LOW,1,(MAX(CLOSE,OPEN)-jj)));

DDX:((qj1+qj2)-(qj3+qj4))/sum(vol,60)*1,COLOR00aaaa,LINETHICK0;DX:=ma(ddx,5)*n;
DDX1:sma(DX,3,1)*10,COLORyellow;
{变色}
if(DDX1>ref(DDX1,1),DDX1,0),Circledot,COLORYELLOW,LINETHICK1;
if(DDX1<ref(DDX1,1),DDX1,0),Circledot,COLOR00FF00,LINETHICK1;
{只做红波段}
VAR1:=EMA(CLOSE,13)-EMA(CLOSE,55);
VAR2:=EMA(VAR1,3);
VAR3:=VAR1>VAR2;
VAR4:=VAR1<VAR2;
牛熊分界:0,COLORwhite,LINETHICK2,POINTDOT;
STICKLINE(VAR3,VAR1,VAR2,4,0),COLORRED;
STICKLINE(VAR4,VAR1,VAR2,2,0),COLORGREEN;