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

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