通达信散户持仓-修改公式副图源码

说明：这个公式是谁写的我已经无从查找，在此先表达我的感谢~！！！但把里面的部分源码抽取了出来单独写成了这个程式，这个程式主要是看散户持仓，当图形显示出来后，我自己都看得笑了。散户真的是鱼肉被机构耍的团团转。高位接盘低位被套守仓，刚开始上涨急乎乎地忙着跑。好了，图形上我大致标注了。各位同学一看就清楚了。
源码：{作者：未知？修改：迷糊鱼2010}
{参数：N:2 1000 14; N1:2 1000 5}

JJ:=(H+L+C)/3;
QJ0:=VOL/IF(H=L,4,H-L);
TD1:=QJ0*(MIN(O,C)-L);
DD1:=QJ0*(JJ-MIN(C,O));
DD2:=QJ0*(H-MAX(O,C));
TD2:=QJ0*(MAX(C,O)-JJ);
TD:=TD1-TD2;DA:=DD1-DD2;
XD1:=1-(TD1+DD1);
XD2:=1-(TD2+DD2);
TZ:=VOL/SUM(VOL,60)*100;
DT:=((XD1-XD2)/10000)/TZ;
{作者：未知？修改：迷糊鱼2010}
SHCC:SUM(DT,N),COLORWHITE;
MSHCC:EMA(EMA(EMA(SHCC,N1),N1),N1),COLORGREEN;
STICKLINE(DT>0,SHCC,SHCC+DT,1,0),COLORFF8800;
STICKLINE(DT<0,SHCC+DT,SHCC,1,0),COLORFF00FF;