主力持仓机构能量－精品通达信指标公式源码分享

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)));   

SVZL:SUM(((QJ1+QJ2)-(QJ3+QJ4))/SUM(VOL,60),0);   

CZ:=SVZL-REF(SVZL,1);   

STICKLINE(CZ<0,SVZL+CZ,SVZL,1,0),COLORFFFF00;   

STICKLINE(CZ>0,SVZL,SVZL+CZ,1,0),COLORRED;   

AA:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));   

买量:=IF(CLOSE>OPEN,AA*(HIGH-LOW),IF(CLOSE<OPEN,AA*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2)),LINETHICK0,COLORRED;   

卖量:=IF(CLOSE>OPEN,0-AA*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0-AA*(HIGH-LOW),0-VOL/2)),LINETHICK0,COLORGREEN;   

进出量:=买量+卖量,COLOR00FFFF;STICKLINE(进出量<0,0,进出量,1,0),COLORFF6600;   

STICKLINE(进出量<0,0,进出量,3,0),COLORFF9900;   

STICKLINE(进出量<0,0,进出量,1.5,0),COLORFFCC00;   

STICKLINE(进出量<0,0,进出量,0.5,0),COLORCYAN;   

STICKLINE(进出量>0,0,进出量,3,0),COLOR000099;   

STICKLINE(进出量>0,0,进出量,3,0),COLOR0000CC;   

STICKLINE(进出量>0,0,进出量,1.0,0),COLOR0000FF;   

STICKLINE(进出量>0,0,进出量,0.5,0),COLORCC66FF;