千钧TOP是用千钧扩展做成的，严格意义上说，这不是TOP。
大家也都知道，我对TOP的看法，那为什么我还要使用这个名称呢？
是因为大家已经习惯这种称呼，实际你完全可以把它叫成别的名字。
1、这个指标需要千钧扩展支持。
2、扩展数据和动态数据，可以去置顶处玲珑的数据贴中下载。
3、九个扩展公式，目前处在试验、验证的末期，所以，暂时加密、无时限。
4、验证、求证成功后，全部公开源码。
5、指标可以观察，大盘，上海个股，深圳个股。没有所谓的TOP指标那么多限制。
图示：
上证指数
个股
公式文件
01、扩展公式
大盘扩展.ALG (1.42 KB)
千钧扩展.ALG (3.64 KB)
02、横向统计数据【序号12】
总流通.ALG (260 Bytes)
主公式
TOP扩展.ALG (4.87 KB)
源码：
AG:=STKCOUNT('A股板块');
DT:=CURRENTDATE;
AA:=REF(DATE,BARSLAST(SYSPARAM(1)=BARPOS));
BB:=IF(AA=DT,1,0);
CC:=BB[SYSPARAM(3)];
if CC=1 then
DD:=ISLASTBAR;
else
DD:=BARPOS=ISLASTBAR;
qj:=DD;
P:=SYSPARAM(1);
LT:=IF(CAPITAL<1,ESTDATA(12)/10,FINANCE(7));
qj1:=IF(qj,STKINDI('','中户.中户',0,0),EXTDATA(12));
qj2:=IF(qj,STKINDI('','散户.散户',0,0),EXTDATA(13));
qj3:=IF(qj,STKINDI('','大户.大户',0,0),EXTDATA(11));
qj4:=IF(qj,STKINDI('','机构.机构',0,0),EXTDATA(9));
qj5:=IF(qj,STKINDI('','券商.券商',0,0),EXTDATA(10));
qj6:=IF(qj,STKINDI('','沪机构.机构',0,0),EXTDATA(6));
qj7:=IF(qj,STKINDI('','沪大户.大户',0,0),EXTDATA(7));
qj8:=IF(qj,STKINDI('','沪中户.中户',0,0),EXTDATA(5));
qj9:=IF(qj,STKINDI('','沪散户.散户',0,0),EXTDATA(8));
机法:=if(CAPITAL<1,qj6,qj4+qj5);
机构持仓趋势:ema(机法,14),colorFF00FF,linethick2;
机构增减趋势:=机构持仓趋势-ref(机构持仓趋势,1);
大户:=if(CAPITAL<1,qj7+AG,qj3);
大户持仓趋势:ema(大户,14),color00EE00,linethick2;
大户增减趋势:=大户持仓趋势-ref(大户持仓趋势,1);
散户:=if(CAPITAL<1,qj8+qj9,qj1+qj2);
散户持仓趋势:ema(散户,14),colorFFEEBB,linethick2;
散户增减趋势:=散户持仓趋势-ref(散户持仓趋势,1);
STICKLINE(大户>0,大户持仓趋势+大户/20,大户持仓趋势,3,0),Color0000FF;
STICKLINE(大户<0,大户持仓趋势+大户/20,大户持仓趋势,3,0),COLORgreen;
STICKLINE(机法>0,机构持仓趋势+机法/20,机构持仓趋势,3,0),Color0000FF;
STICKLINE(机法<0,机构持仓趋势+机法/20,机构持仓趋势,3,0),COLORgreen;
STICKLINE(散户>0,散户持仓趋势+散户/20,散户持仓趋势,3,0),Color0000FF;
STICKLINE(散户<0,散户持仓趋势+散户/20,散户持仓趋势,3,0),COLORgreen;
机构净量:=机法*100;
机构增减:=(机法-REF(机法,1))/REF(机法,1)*100;
三:=sum(机法,3)/LT,LINETHICK;
五:=sum(机法,5)/LT,LINETHICK0;
十:=sum(机法,10)/LT,LINETHICK0;
月:=sum(机法,22)/LT;
大户净量:=大户*100;
大户增减:=(大户-REF(大户,1))/REF(大户,1)*100;
三天1:=sum(大户,3)/LT,LINETHICK;
五天1:=sum(大户,5)/LT,LINETHICK0;
十天1:=sum(大户,10)/LT,LINETHICK0;
月仓1:=sum(大户,22)/LT;
散户净量:=散户*100;
当天增减:=(散户-REF(散户,1))/REF(散户,1)*100;
三天:=sum(散户,3)/LT,LINETHICK;
五天:=sum(散户,5)/LT,LINETHICK0;
十天:=sum(散户,10)/LT,LINETHICK0;
月仓:=sum(散户,22)/LT;
DRAWTEXTEX(C,1,680,0,'散户净量:'+NUMTOSTR(散户净量[P],0)+' 股'),ColorFFCA95;
DRAWTEXTEX(C,1,910,0,''+NUMTOSTR(散户净量[P]/LT[P],2)+' %'),ColorFFCA95;
DRAWTEXTEX(C,1,680,150,'较昨日增减:'+NUMTOSTR(当天增减[P],2)+' %'),ColorFFCA95;
DRAWTEXTEX(C,1,680,300,'散户阶段持:'+NUMTOSTR(月仓[P],2)+' %'),ColorFFCA95;
DRAWTEXTEX(C,1,350,0,'大户净量:'+NUMTOSTR(大户净量[P],0)+' 股'),ColorFFCA95;
DRAWTEXTEX(C,1,580,0,''+NUMTOSTR(大户净量[P]/LT[P],2)+' %'),ColorFFCA95;
DRAWTEXTEX(C,1,350,150,'较昨日增减:'+NUMTOSTR(大户增减[P],2)+' %'),ColorFFCA95;
DRAWTEXTEX(C,1,350,300,'大户阶段持:'+NUMTOSTR(月仓1[P],2)+' %'),ColorFFCA95;
DRAWTEXTEX(C,1,10,0,'机法净量:'+NUMTOSTR(机构净量[P],0)+' 股'),ColorFFCA95;
DRAWTEXTEX(C,1,240,0,''+NUMTOSTR(机构净量[P]/LT[P],2)+' %'),ColorFFCA95;
DRAWTEXTEX(C,1,10,150,'较昨日增减:'+NUMTOSTR(机构增减[P],2)+' %'),ColorFFCA95;
DRAWTEXTEX(C,1,10,300,'机法阶段持:'+NUMTOSTR(月[P],2)+' %'),ColorFFCA95;
//
[
本帖最后由 一发千钧 于 2008-8-8 09:10 编辑 ]
：1006267111;
实战区
