通达信主散持仓指标源码

通达信主散持仓指标源码

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

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;