股行家白金版公式(通达信)

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;
DX:=MA(DDX,5)*N;
DDX1:=SMA(DX,3,1)*10;
{只做红波段}
VAR1:EMA(CLOSE,13)-EMA(CLOSE,55),COLORYELLOW,LINETHICK2;
VAR2:EMA(VAR1,3),COLORMAGENTA,LINETHICK2;
VAR3:=VAR1>VAR2;
VAR4:=VAR1 X1:STICKLINE(VAR3,VAR1,VAR2,1,0),COLORRED;
X2:STICKLINE(VAR4,VAR1,VAR2,1,0),COLORGREEN;
进:DRAWICON(crOSS(VAR1,VAR2),VAR1,1),COLORRED;
出:DRAWICON(CROSS(VAR2,VAR1),VAR2,2),COLORGREEN;