N:=22;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),COLOR00aaaa,LINETHICK0;DX:=ma(ddx,5)*N;
{概念股網(wǎng)-股票公式網(wǎng)站 www.rjbvk.com}
STICKLINE(DDX>0,0,DDX,8,0),COLOR000088;
STICKLINE(DDX>0,0,DDX,5,0),COLOR0000aa;
STICKLINE(DDX>0,0,DDX,3,0),COLOR0000cc;
STICKLINE(DDX>0,0,DDX,1,0),COLOR0000ee;
STICKLINE(DDX<0,0,DDX,8,0),COLOR008800;
STICKLINE(DDX<0,0,DDX,5,0),COLOR00aa00;
STICKLINE(DDX<0,0,DDX,3,0),COLOR00cc00;
STICKLINE(DDX<0,0,DDX,1,0),COLOR00ee00;
DDX1:sma(DX,3,1),COLORFFFFFF;
DDX2:sma(DDX1,3,1),COLOR00FFFF;
DDX3:wma(DDX2,5),COLORFF00FF;
預(yù)警:DDX>0 and ma(v,5)>ma(ma(v,5),5) and CROSS(DDX1,DDX2),LINETHICK0;
天:=COUNT(DDX>0,5);
DRAWTEXT(預(yù)警,DDX*1.06,’★’),LINETHICK3,COLOR00FFFF;
DRAWTEXTABS(180,0,’一周內(nèi)翻紅:’+NUMTOSTRN(天,0)+’ 天’),Color00EEFF;
DRAWTEXTREL(10,0,’大單動(dòng)向’),ColorEEEEFF;
DRAWTEXTREL(600,900,’證券代碼: ‘+STKLABEL+’ 證券名稱: ‘+STKNAME+”),ColorFFAA00;