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)));
DRAWTEXTEX(CLOSE,1,0,0,'主力持仓'),colorFFFF;
SVZL:SUM((QJ1+QJ2-(QJ3+QJ4))/SUM(VOL,24),0);
CZ:=SVZL-REF(SVZL,1);
STICKLINE(CZ<0,SVZL+CZ,SVZL,3,0),colorFFFF00;
STICKLINE(CZ>0,SVZL,SVZL+CZ,3,0),colorFF;
DRAWTEXT(BARPOS=SYSPARAM(1) AND CZ[SYSPARAM(1)]<0,SVZL+0.1,'主力净卖出占月仓位'+NUMTOSTR(CZ[SYSPARAM(1)]*100,2)+'%'),colorEE00;
DRAWTEXT(BARPOS=SYSPARAM(1) AND CZ[SYSPARAM(1)]>0,SVZL+0.2,'主力净买入占月仓位'+NUMTOSTR(CZ[SYSPARAM(1)]*100,2)+'%'),colorFF;
|
