通达信主散持仓指标源码

一个参考公式，通达信的。
主散持仓

源码：
 

JJZ:=(HIGH+LOW+CLOSE)/3;QJ0Z:=AMOUNT/IF(HIGH=LOW,4,HIGH-LOW);
买1:=QJ0Z*(MIN(OPEN,CLOSE)-LOW);
买2:=QJ0Z*(JJZ-MIN(CLOSE,OPEN));
卖1:=QJ0Z*(MAX(CLOSE,OPEN)-JJZ);
卖2:=QJ0Z*(HIGH-MAX(OPEN,CLOSE));
DTZ:=((买1+买2)-(卖1+卖2))/10000;
主力持仓:SUM(DTZ,66),COLORWHITE,LINETHICK1;
STICKLINE(DTZ>0,主力持仓,主力持仓+DTZ,1,0),COLOR0000FF;
STICKLINE(DTZ<0,主力持仓+DTZ,主力持仓,1,0),COLOR00FF00;

JJ:=(HIGH+LOW+CLOSE)/3;QJ0:=AMOUNT/IF(HIGH=LOW,4,HIGH-LOW);
TD1:=QJ0*(MIN(OPEN,CLOSE)-LOW);
DD1:=QJ0*(JJ-MIN(CLOSE,OPEN));
DD2:=QJ0*(HIGH-MAX(OPEN,CLOSE));
TD2:=QJ0*(MAX(CLOSE,OPEN)-JJ);
TD:=TD1-TD2;DA:=DD1-DD2;
XD1:=1-(TD1+DD1);XD2:=1-(TD2+DD2);
TZ:=V/SUM(V,60)*100;
DT:=((XD1-XD2)/10000)/TZ;
散户持仓:SUM(DT,22),COLOR888888,LINETHICK1;
STICKLINE(DT>0,散户持仓,散户持仓+DT,1,0),COLORFF00FF;

STICKLINE(DT<0,散户持仓+DT,散户持仓,1,0),COLORFF8800;