以前一直用大智慧经典版的，后来看大智慧L2的数据分析还不错,而且还可以看期货，比飞狐和通达信要外挂要接口方便多了，于是就改用L2了！但美中不足的是L2行情只能看股市，商品市场是没分什么大单小单的！像大资金流向，DDE决策等就用不上了。怎么办呢？最后根据网上定义成交量买入和卖出的代码，做了这个排序公式，中间加入了千钧老师DDE的源码，做成排序决策页面，，这样就可以看期货等商品市场的资金流向了！当然，如果不考虑数据的精确性，只做方向性判断，用来分析股市也是很不错的！在这里对千钧老师的奉献表示真诚的感谢！也欢迎各位老师同学来批评指证！觉得不错要加分哦！
资金排序
{资金排序-(金城资金流排序)}
INPUT: N(1,1,200),P(1,1,30);
WJ:=(HIGH+LOW+CLOSE)/3;
VD1:=IF(HIGH=LOW,1,HIGH-MAX(OPEN,CLOSE));
VD2:=IF(HIGH=LOW,1,MAX(CLOSE,OPEN)-WJ);
VD3:=IF(HIGH=LOW,1,MIN(OPEN,CLOSE)-LOW);
VD4:=IF(HIGH=LOW,1,WJ-MIN(CLOSE,OPEN));
VD5:=VOL/IF(HIGH=LOW,4,HIGH-LOW);
VD6:=(VD1*VD5);
VD7:=(VD2*VD5);
VD8:=(VD3*VD5);
VD9:=(VD4*VD5);
买入量:=(VD9+VD8);
卖出量:=(VD6+VD7);
买入:=买入量*close/100;
卖出:=卖出量*close/100;
DT:=买入-卖出;
DD:=买入量-卖出量;
{现手:DYNAINFO(9),PRECIS0;}{手}
涨幅:(C-REF(C,N))/REF(C,N)*100,LINETHICK0,PRECIS2;{%}
换手率:SUM((VOL/CAPITAL*100),N),PRECIS2;{%}
成交量:SUM((VOL/100),N),PRECIS2;{万股}
买额:SUM((买入量*close/100),N),COLOR0000FF,PRECIS2;{万元}
卖额:SUM((卖出量*close/100),N),COLOR00FF00,PRECIS2;{万元}
净额:SUM(DT,N),COLOR00FFFF,PRECIS2;{万元}
买量:SUM(买入量/100,N),LINETHICK0,COLORFF00FF,PRECIS2;{万股}
卖量:SUM(卖出量/100,N),LINETHICK0,COLOR00FF00,PRECIS2;{万股}
净量:SUM(DD/100,N),LINETHICK0,COLOR1199FF,PRECIS2;{万股}
买额比:100*买入量/vol,PRECIS2;
卖额比:100*卖出量/vol,PRECIS2;
占额比:100*DD/vol,PRECIS2;
买盘比:SUM(((VOL/CAPITAL)/100*买入量),N),PRECIS2;
卖盘比:SUM(((VOL/CAPITAL)/100*卖出量),N),PRECIS2;
占盘比:SUM(((VOL/CAPITAL)/100*DD),N),PRECIS2;
连红:LAST(((VOL/CAPITAL)*100*DD)>0),LINETHICK0,COLOR0000FF,PRECIS0;
十日红:COUNT(((VOL/CAPITAL)*100*DD)>0,10),LINETHICK0,COLOR0000FF,PRECIS0;
{P参数调整显示以前几日每日数据}
前净:REF(DD*AMOUNT/1000000000,P),PRECIS2;
前增:REF((VOL/CAPITAL)*DD,P),PRECIS2;
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)));
DDX:((qj1+qj2)-(qj3+qj4))/sum(vol,60),COLOR00aaaa,LINETHICK0;
DDY:((qj2+qj4)-(qj1+qj3))/SUM(vol,60),COLOR00DD00,LINETHICK0;
qj5:=qj1+qj2;qj6:=qj3+qj4;DD1:=(qj5-qj6)/(qj5+qj6)*100;
DDZ:DD1*17,LINETHICK0;DDZ1:DD1*13,LINETHICK0;
 |
