数据在论坛里找，都有现成的，打包文件在2楼。

安装方法和数据可以参考这贴，
                         http://www.chcj.net/thread-1065742-1-1.html

还有，http://www.chcj.net/thread-1037556-1-1.html

基本是一样的.由于有源码，你完全可以根据自己需要，增减指标和数据。


TOP排序源码在：

http://www.chcj.net/thread-1126737-1-1.html


指南针数据的公示，用大智慧数据要转换下相应名称。



大智慧源码公试加模板和正版一样，有人还加密，这个已没什么密密可言了，还是大家公布源码供他人第二次开发吧，建议以后不要有加密公试，公试本是工具而已，可笑的是那些利用他人源码做些低级修改还加密的人!

TV-扩展.SKV可以复制到以下目录里
D:\dzh2\layout\默认方案\StkView\SH\Index
D:\dzh2\layout\默认方案\StkView\SH
D:\dzh2\layout\默认方案\StkView\Public
D:\dzh2\layout\默认方案\StkView\Public\index

-------------------------------------------------

MYTV3

TOP席位





REFLINE: 0, 25, 50, 75, 100;
PERCENTBAR(0,0);
PERCENTBAR(0,0);
PERCENTBAR(0,0);
PERCENTBAR(0,0);
PERCENTBAR(0,0);
PERCENTBAR(0,0);
PERCENTBAR(0,0);
PERCENTBAR(0,0);
PERCENTBAR(0,0);
PERCENTBAR(0,0);

净买1额:=SELFDATA('净买1额');
净买1席:=SELFDATA('净买1席');
净卖1额:=SELFDATA('净卖1额');
净卖1席:=SELFDATA('净卖1席');
净买2额:=SELFDATA('净买2额');
净买2席:=SELFDATA('净买2席');
净卖2额:=SELFDATA('净卖2额');
净卖2席:=SELFDATA('净卖2席');
净买3额:=SELFDATA('净买3额');
净买3席:=SELFDATA('净买3席');
净卖3额:=SELFDATA('净卖3额');
净卖3席:=SELFDATA('净卖3席');
净买4额:=SELFDATA('净买4额');
净买4席:=SELFDATA('净买4席');
净卖4额:=SELFDATA('净卖4额');
净卖4席:=SELFDATA('净卖4席');
净买5额:=SELFDATA('净买5额');
净买5席:=SELFDATA('净买5席');
净卖5额:=SELFDATA('净卖5额');
净卖5席:=SELFDATA('净卖5席');
净买6额:=SELFDATA('净买6额');
净买6席:=SELFDATA('净买6席');
净卖6额:=SELFDATA('净卖6额');
净卖6席:=SELFDATA('净卖6席');
净买7额:=SELFDATA('净买7额');
净买7席:=SELFDATA('净买7席');
净卖7额:=SELFDATA('净卖7额');
净卖7席:=SELFDATA('净卖7席');
净买8额:=SELFDATA('净买8额');
净买8席:=SELFDATA('净买8席');
净卖8额:=SELFDATA('净卖8额');
净卖8席:=SELFDATA('净卖8席');
净买9额:=SELFDATA('净买9额');
净买9席:=SELFDATA('净买9席');
净卖9额:=SELFDATA('净卖9额');
净卖9席:=SELFDATA('净卖9席');
净买10额:=SELFDATA('净买10额');
净买10席:=SELFDATA('净买10席');
净卖10额:=SELFDATA('净卖10额');
净卖10席:=SELFDATA('净卖10席');
T:=净买1额<>ref(净买1额,1) or 净买10额<>ref(净买10额,1);
DRAWTEXTREL(60,0,'数据日期'+BARSLAST(T)+'天前)'),COLORyellow;

X:=10;
Y:=1;
DRAWTEXTREL(0,Y,'序号'),coloryellow;
DRAWTEXTREL(1*X,Y,'净买10席'),coloryellow;
DRAWTEXTREL(2*X,Y,'净买额(万元)'),coloryellow;
DRAWTEXTREL(3*X,Y,' '),coloryellow;
DRAWTEXTREL(4*X,Y,'净买席'),coloryellow;
DRAWTEXTREL(5*X,Y,' '),coloryellow;
DRAWTEXTREL(6*X,Y,'净卖10席'),coloryellow;
DRAWTEXTREL(7*X,Y,'净卖额(万元)'),coloryellow;
DRAWTEXTREL(8*X,Y,' '),coloryellow;
DRAWTEXTREL(9*X,Y,'净卖席'),coloryellow;
DRAWTEXTREL(10*X,Y,' '),coloryellow;
Y:=2;
DRAWTEXTREL(2,Y,'01'),coloryellow;
DRAWTEXTREL(1*X,Y,STRMID('AGT',INTPART(净买1席/100000),1)+STRMID(NUMTOSTRN(净买1

席,0),2,5)),colorRED;
DRAWTEXTREL(2*X,Y,NUMTOSTRN(净买1额,0)),colorRED;
DRAWTEXTREL(3*X,Y,F10TEXT(F10FIND(STRMID('AGT',INTPART(净买1席/100000),1)+STRMID(NUMTOSTRN(

净买1席,0),2,5),1)+7,0)),colorRED;
DRAWTEXTREL(6*X,Y,STRMID('AGT',INTPART(净卖1席/100000),1)+STRMID(NUMTOSTRN(净卖1

席,0),2,5)),colorGREEN;
DRAWTEXTREL(7*X,Y,NUMTOSTRN(净卖1额,0)),colorGREEN;
DRAWTEXTREL(8*X,Y,F10TEXT(F10FIND(STRMID('AGT',INTPART(净卖1席/100000),1)+STRMID(NUMTOSTRN(

净卖1席,0),2,5),1)+7,0)),colorGREEN;
Y:=3;
DRAWTEXTREL(2,Y,'02'),coloryellow;
DRAWTEXTREL(1*X,Y,STRMID('AGT',INTPART(净买2席/100000),1)+STRMID(NUMTOSTRN(净买2

席,0),2,5)),colorRED;
DRAWTEXTREL(2*X,Y,NUMTOSTRN(净买2额,0)),colorRED;
DRAWTEXTREL(3*X,Y,F10TEXT(F10FIND(STRMID('AGT',INTPART(净买2席/100000),1)+STRMID(NUMTOSTRN(

净买2席,0),2,5),1)+7,0)),colorRED;
DRAWTEXTREL(6*X,Y,STRMID('AGT',INTPART(净卖2席/100000),1)+STRMID(NUMTOSTRN(净卖2

席,0),2,5)),colorGREEN;
DRAWTEXTREL(7*X,Y,NUMTOSTRN(净卖2额,0)),colorGREEN;
DRAWTEXTREL(8*X,Y,F10TEXT(F10FIND(STRMID('AGT',INTPART(净卖2席/100000),1)+STRMID(NUMTOSTRN(

净卖2席,0),2,5),1)+7,0)),colorGREEN;
Y:=4;
DRAWTEXTREL(2,Y,'03'),coloryellow;
DRAWTEXTREL(1*X,Y,STRMID('AGT',INTPART(净买3席/100000),1)+STRMID(NUMTOSTRN(净买3

席,0),2,5)),colorRED;
DRAWTEXTREL(2*X,Y,NUMTOSTRN(净买3额,0)),colorRED;
DRAWTEXTREL(3*X,Y,F10TEXT(F10FIND(STRMID('AGT',INTPART(净买3席/100000),1)+STRMID(NUMTOSTRN(

净买3席,0),2,5),1)+7,0)),colorRED;
DRAWTEXTREL(6*X,Y,STRMID('AGT',INTPART(净卖3席/100000),1)+STRMID(NUMTOSTRN(净卖3

席,0),2,5)),colorGREEN;
DRAWTEXTREL(7*X,Y,NUMTOSTRN(净卖3额,0)),colorGREEN;
DRAWTEXTREL(8*X,Y,F10TEXT(F10FIND(STRMID('AGT',INTPART(净卖3席/100000),1)+STRMID(NUMTOSTRN(

净卖3席,0),2,5),1)+7,0)),colorGREEN;
Y:=5;
DRAWTEXTREL(2,Y,'04'),coloryellow;
DRAWTEXTREL(1*X,Y,STRMID('AGT',INTPART(净买4席/100000),1)+STRMID(NUMTOSTRN(净买4

席,0),2,5)),colorRED;
DRAWTEXTREL(2*X,Y,NUMTOSTRN(净买4额,0)),colorRED;
DRAWTEXTREL(3*X,Y,F10TEXT(F10FIND(STRMID('AGT',INTPART(净买4席/100000),1)+STRMID(NUMTOSTRN(

净买4席,0),2,5),1)+7,0)),colorRED;
DRAWTEXTREL(6*X,Y,STRMID('AGT',INTPART(净卖4席/100000),1)+STRMID(NUMTOSTRN(净卖4

席,0),2,5)),colorGREEN;
DRAWTEXTREL(7*X,Y,NUMTOSTRN(净卖4额,0)),colorGREEN;
DRAWTEXTREL(8*X,Y,F10TEXT(F10FIND(STRMID('AGT',INTPART(净卖4席/100000),1)+STRMID(NUMTOSTRN(

净卖4席,0),2,5),1)+7,0)),colorGREEN;
Y:=6;
DRAWTEXTREL(2,Y,'05'),coloryellow;
DRAWTEXTREL(1*X,Y,STRMID('AGT',INTPART(净买5席/100000),1)+STRMID(NUMTOSTRN(净买5

席,0),2,5)),colorRED;
DRAWTEXTREL(2*X,Y,NUMTOSTRN(净买5额,0)),colorRED;
DRAWTEXTREL(3*X,Y,F10TEXT(F10FIND(STRMID('AGT',INTPART(净买5席/100000),1)+STRMID(NUMTOSTRN(

净买5席,0),2,5),1)+7,0)),colorRED;
DRAWTEXTREL(6*X,Y,STRMID('AGT',INTPART(净卖5席/100000),1)+STRMID(NUMTOSTRN(净卖5

席,0),2,5)),colorGREEN;
DRAWTEXTREL(7*X,Y,NUMTOSTRN(净卖5额,0)),colorGREEN;
DRAWTEXTREL(8*X,Y,F10TEXT(F10FIND(STRMID('AGT',INTPART(净卖5席/100000),1)+STRMID(NUMTOSTRN(

净卖5席,0),2,5),1)+7,0)),colorGREEN;
Y:=7;
DRAWTEXTREL(2,Y,'06'),coloryellow;
DRAWTEXTREL(1*X,Y,STRMID('AGT',INTPART(净买6席/100000),1)+STRMID(NUMTOSTRN(净买6

席,0),2,5)),colorRED;
DRAWTEXTREL(2*X,Y,NUMTOSTRN(净买6额,0)),colorRED;
DRAWTEXTREL(3*X,Y,F10TEXT(F10FIND(STRMID('AGT',INTPART(净买6席/100000),1)+STRMID(NUMTOSTRN(

净买6席,0),2,5),1)+7,0)),colorRED;
DRAWTEXTREL(6*X,Y,STRMID('AGT',INTPART(净卖6席/100000),1)+STRMID(NUMTOSTRN(净卖6

席,0),2,5)),colorGREEN;
DRAWTEXTREL(7*X,Y,NUMTOSTRN(净卖6额,0)),colorGREEN;
DRAWTEXTREL(8*X,Y,F10TEXT(F10FIND(STRMID('AGT',INTPART(净卖6席/100000),1)+STRMID(NUMTOSTRN(

净卖6席,0),2,5),1)+7,0)),colorGREEN;
Y:=8;
DRAWTEXTREL(2,Y,'07'),coloryellow;
DRAWTEXTREL(1*X,Y,STRMID('AGT',INTPART(净买7席/100000),1)+STRMID(NUMTOSTRN(净买7

席,0),2,5)),colorRED;
DRAWTEXTREL(2*X,Y,NUMTOSTRN(净买7额,0)),colorRED;
DRAWTEXTREL(3*X,Y,F10TEXT(F10FIND(STRMID('AGT',INTPART(净买7席/100000),1)+STRMID(NUMTOSTRN(

净买7席,0),2,5),1)+7,0)),colorRED;
DRAWTEXTREL(6*X,Y,STRMID('AGT',INTPART(净卖7席/100000),1)+STRMID(NUMTOSTRN(净卖7

席,0),2,5)),colorGREEN;
DRAWTEXTREL(7*X,Y,NUMTOSTRN(净卖7额,0)),colorGREEN;
DRAWTEXTREL(8*X,Y,F10TEXT(F10FIND(STRMID('AGT',INTPART(净卖7席/100000),1)+STRMID(NUMTOSTRN(

净卖7席,0),2,5),1)+7,0)),colorGREEN;
Y:=9;
DRAWTEXTREL(2,Y,'08'),coloryellow;
DRAWTEXTREL(1*X,Y,STRMID('AGT',INTPART(净买8席/100000),1)+STRMID(NUMTOSTRN(净买8

席,0),2,5)),colorRED;
DRAWTEXTREL(2*X,Y,NUMTOSTRN(净买8额,0)),colorRED;
DRAWTEXTREL(3*X,Y,F10TEXT(F10FIND(STRMID('AGT',INTPART(净买8席/100000),1)+STRMID(NUMTOSTRN(

净买8席,0),2,5),1)+7,0)),colorRED;
DRAWTEXTREL(6*X,Y,STRMID('AGT',INTPART(净卖8席/100000),1)+STRMID(NUMTOSTRN(净卖8

席,0),2,5)),colorGREEN;
DRAWTEXTREL(7*X,Y,NUMTOSTRN(净卖8额,0)),colorGREEN;
DRAWTEXTREL(8*X,Y,F10TEXT(F10FIND(STRMID('AGT',INTPART(净卖8席/100000),1)+STRMID(NUMTOSTRN(

净卖8席,0),2,5),1)+7,0)),colorGREEN;
Y:=10;
DRAWTEXTREL(2,Y,'09'),coloryellow;
DRAWTEXTREL(1*X,Y,STRMID('AGT',INTPART(净买9席/100000),1)+STRMID(NUMTOSTRN(净买9

席,0),2,5)),colorRED;
DRAWTEXTREL(2*X,Y,NUMTOSTRN(净买9额,0)),colorRED;
DRAWTEXTREL(3*X,Y,F10TEXT(F10FIND(STRMID('AGT',INTPART(净买9席/100000),1)+STRMID(NUMTOSTRN(

净买9席,0),2,5),1)+7,0)),colorRED;
DRAWTEXTREL(6*X,Y,STRMID('AGT',INTPART(净卖9席/100000),1)+STRMID(NUMTOSTRN(净卖9

席,0),2,5)),colorGREEN;
DRAWTEXTREL(7*X,Y,NUMTOSTRN(净卖9额,0)),colorGREEN;
DRAWTEXTREL(8*X,Y,F10TEXT(F10FIND(STRMID('AGT',INTPART(净卖9席/100000),1)+STRMID(NUMTOSTRN(

净卖9席,0),2,5),1)+7,0)),colorGREEN;
Y:=11;
DRAWTEXTREL(2,Y,'10'),coloryellow;
DRAWTEXTREL(1*X,Y,STRMID('AGT',INTPART(净买10席/100000),1)+STRMID(NUMTOSTRN(净买10

席,0),2,5)),colorRED;
DRAWTEXTREL(2*X,Y,NUMTOSTRN(净买10额,0)),colorRED;
DRAWTEXTREL(3*X,Y,F10TEXT(F10FIND(STRMID('AGT',INTPART(净买10席/100000),1)+STRMID

(NUMTOSTRN(净买10席,0),2,5),1)+7,0)),colorRED;
DRAWTEXTREL(6*X,Y,STRMID('AGT',INTPART(净卖10席/100000),1)+STRMID(NUMTOSTRN(净卖10

席,0),2,5)),colorGREEN;
DRAWTEXTREL(7*X,Y,NUMTOSTRN(净卖10额,0)),colorGREEN;
DRAWTEXTREL(8*X,Y,F10TEXT(F10FIND(STRMID('AGT',INTPART(净卖10席/100000),1)+STRMID

(NUMTOSTRN(净卖10席,0),2,5),1)+7,0)),colorGREEN;

-------------------------------------------------------------------------------

[ 本帖最后由 普通de会员 于 2008-7-12 12:28 编辑 ]

MYTV4

量区间分析(ZNZ版)



REFLINE: 0, 25, 50, 75, 100;
K:=SELFDATA('1K');
PERCENTBAR( K,ref(K,1) ),COLORFF0000;
W:=SELFDATA('1W');
PERCENTBAR( W,ref(W,1) ),COLORFF5454;
五万:=SELFDATA('5W');
PERCENTBAR( 五万,ref(五万,1) ),COLORGREEN;
十万:=SELFDATA('10W');
PERCENTBAR( 十万,ref(十万,1) ),COLORFFCC00;
五十万:=SELFDATA('50W');
PERCENTBAR( 五十万,ref(五十万,1) ),COLORFFFF25;
一百万:=SELFDATA('100W');
PERCENTBAR( 一百万,ref(一百万,1) ),COLOR5290FF;
五百万:=SELFDATA('500W');
PERCENTBAR( 五百万,ref(五百万,1) ),COLORYELLOW;
一千万:=SELFDATA('1000W');
PERCENTBAR(一千万,ref(一千万,1) ),Color9368FF;
千万以上:=SELFDATA('1000+W');
PERCENTBAR(千万以上,ref(千万以上,1) ),COLORRED;
T:=K<>ref(K,1) or 五十万<>ref(五十万,1) or 五百万<>ref(五百万,1);
DRAWTEXTREL(60,0,'数据日期'+BARSLAST(T)+'天前)'),COLORyellow;
DRAWTEXTREL(10,994 ,'1K'),COLORwhite;
DRAWTEXTREL(20,994 ,'1W'),COLORwhite;
DRAWTEXTREL(30,994 ,'5W'),COLORwhite;
DRAWTEXTREL(40,994 ,'10W'),COLORwhite;
DRAWTEXTREL(50,994 ,'50W'),COLORwhite;
DRAWTEXTREL(60,994 ,'100W'),COLORwhite;
DRAWTEXTREL(70,994 ,'500W'),COLORwhite;
DRAWTEXTREL(80,994 ,'1000W'),COLORwhite;
DRAWTEXTREL(90,994 ,'1000W+'),COLORwhite;
DRAWTEXTREL(0,995 ,'比例%: '),COLORyellow;
DRAWTEXTREL(10,995 ,''+NUMTOSTRN(K,1)+'%'),COLORFF0000;
DRAWTEXTREL(20,995 ,''+NUMTOSTRN(W,1)+'%'),COLORFF5454;
DRAWTEXTREL(30,995 ,''+NUMTOSTRN(五万,1)+'%'),COLORGREEN;
DRAWTEXTREL(40,995 ,''+NUMTOSTRN(十万,1)+'%'),COLORFFCC00;
DRAWTEXTREL(50,995 ,''+NUMTOSTRN(五十万,1)+'%'),COLORFFFF25;
DRAWTEXTREL(60,995 ,''+NUMTOSTRN(一百万,1)+'%'),COLOR5290FF;
DRAWTEXTREL(70,995 ,''+NUMTOSTRN(五百万,1)+'%'),COLORYELLOW;
DRAWTEXTREL(80,995 ,''+NUMTOSTRN(一千万,1)+'%'),Color9368FF;
DRAWTEXTREL(90,995 ,''+NUMTOSTRN(千万以上,1)+'%'),COLORRED;
DRAWTEXTREL(0,996 ,'户数: '),COLORwhite;
DRAWTEXTREL(10,996 ,''+SELFDATA('1K户数')),COLORFF0000;
DRAWTEXTREL(20,996 ,''+SELFDATA('1W户数')),COLORFF5454;
DRAWTEXTREL(30,996 ,''+SELFDATA('5W户数')),COLORGREEN;
DRAWTEXTREL(40,996 ,''+SELFDATA('10W户数')),COLORFFCC00;
DRAWTEXTREL(50,996 ,''+SELFDATA('50W户数')),COLORFFFF25;
DRAWTEXTREL(60,996 ,''+SELFDATA('100W户数')),COLOR5290FF;
DRAWTEXTREL(70,996 ,''+SELFDATA('500W户数')),COLORYELLOW;
DRAWTEXTREL(80,996 ,''+SELFDATA('1000W户数')),Color9368FF;
DRAWTEXTREL(90,996 ,''+SELFDATA('1000W+户数')),COLORRED;




帐户数:=SELFDATA('总户数');
帐户7日增减:= (帐户数 - REF(SELFDATA('总户数'),t+7))/REF(SELFDATA('总户数'),t+7)*100;
户均持股:= INTPART(selfdata('总流通股')/SELFDATA('总户数'));
DRAWTEXTREL(0,997 ,'帐户总数:' + NUMTOSTRN(帐户数,0)+',较7日前' + IFS(帐户7日增减>=0,'增加

','减少 ') + NUMTOSTRN(ABS(帐户7日增减),2) + '%,户均持股 '+ NUMTOSTRN(户均持股,0)+'股.'

),ColorWhite;
券基:=SELFDATA('券基');
券基3日增减:= 券基-REF(SELFDATA('券基'),t+3);
DRAWTEXTREL(0,998 , '券基持仓:占流通盘的 ' + NUMTOSTRN(券基,2)+'%,较3日前' + IFS(券基3日增

减>=0,'增加 ','减少 ') + NUMTOSTRN(ABS(券基3日增减),2) + '个百分点.' ),ColorWhite;
普通:=SELFDATA('普通');
普通3日增减:= 普通-REF(SELFDATA('普通'),t+3);
DRAWTEXTREL(0,999 , '普通持仓:占流通盘的 ' + NUMTOSTRN(普通,2)+'%,较3日前' + IFS(普通3日增

减>=0,'增加 ','减少 ') + NUMTOSTRN(ABS(普通3日增减),2) + '个百分点.' ),ColorWhite;
十席资金净流入:=SELFDATA('净买10合计')-SELFDATA('净卖10合计');
DRAWTEXTREL(0,1000 ,'今日前十席资金净流入 '+NUMTOSTRN(十席资金净流入,2)),ColorWhite;

-------------------------------------------------------------------------------

MYTV6

分类持仓(ZNZ版)



{REFLINE: 0,20,40,60,80,100;}{用于显示日期}
散户:=SELFDATA('散户');

普通:=SELFDATA('普通');
PERCENTBAR(普通,ref(普通,1) ), COLORFF0000;
法人:=SELFDATA('法人');
PERCENTBAR(法人,ref(法人,1) ), COLORyellow;
券基:=SELFDATA('券基');
PERCENTBAR(券基,ref(券基,1) ), COLORRED;
T:=普通<>ref(普通,1) ;
DRAWTEXTREL(25,0,'数据日期'+BARSLAST(T)+'天前)'),COLORyellow;{数据日期}

DRAWTEXTREL(10,997 ,'普通'),COLORwhite;
DRAWTEXTREL(20,997 ,'法人'),COLORwhite;
DRAWTEXTREL(30,997 ,'券基'),COLORwhite;
DRAWTEXTREL(5,998 ,'比例: '),COLORyellow;

DRAWTEXTREL(10,998 ,''+普通+'%'),COLORyellow;
DRAWTEXTREL(20,998 ,''+法人+'%'),COLORyellow;
DRAWTEXTREL(30,998 ,''+券基+'%'),COLORyellow;
DRAWTEXTREL(5,999 ,'户数: '),COLORwhite;

DRAWTEXTREL(10,999 ,''+SELFDATA('普通户数')),COLORwhite;
DRAWTEXTREL(20,999 ,''+SELFDATA('法人户数')),COLORwhite;
DRAWTEXTREL(30,999 ,''+SELFDATA('券基户数')),COLORwhite;

-------------------------------------------------------------

MYTV7

量帐号持仓(ZNZ版)



{REFLINE: 0,20,40,60,80,100;}{用于显示日期}
散户:=SELFDATA('散户');
PERCENTBAR(散户,ref(散户,1) ),COLORGREEN;
中户:=SELFDATA('中户');
PERCENTBAR(中户,ref(中户,1) ), COLORFF0000;
大户:=SELFDATA('大户');
PERCENTBAR(大户,ref(大户,1) ), COLORyellow;
特大户:=SELFDATA('特大');
PERCENTBAR(特大户,ref(特大户,1) ), COLORRED;

T:=散户<>ref(散户,1) or 特大户<>ref(特大户,1);
DRAWTEXTREL(30,0,'数据日期'+BARSLAST(T)+'天前)'),COLORyellow;{数据日期}
DRAWTEXTREL(10,997 ,'散户'),COLORwhite;
DRAWTEXTREL(20,997 ,'中户'),COLORwhite;
DRAWTEXTREL(30,997 ,'大户'),COLORwhite;
DRAWTEXTREL(40,997 ,'特大户'),COLORwhite;

DRAWTEXTREL(5,998 ,'比例: '),COLORyellow;
DRAWTEXTREL(10,998 ,''+散户+'%'),COLORyellow;
DRAWTEXTREL(20,998 ,''+中户+'%'),COLORyellow;
DRAWTEXTREL(30,998 ,''+大户+'%'),COLORyellow;
DRAWTEXTREL(40,998 ,''+特大户+'%'),COLORyellow;

DRAWTEXTREL(5,999 ,'户数: '),COLORwhite;
DRAWTEXTREL(10,999 ,''+SELFDATA('散户户数')),COLORwhite;
DRAWTEXTREL(20,999 ,''+SELFDATA('中户户数')),COLORwhite;
DRAWTEXTREL(30,999 ,''+SELFDATA('大户户数')),COLORwhite;
DRAWTEXTREL(40,999 ,''+SELFDATA('特大户数')),COLORwhite;

-----------------------------------------------------------

散户线
input:N(7);
散户帐号数:SELFDATA('散户户数'),LINETHICK2;
散户持仓:=SELFDATA('散户');
７日内散户减仓散户持仓-REF(散户持仓,7))/REF(散户持仓,7),LINETHICK0;
散户减仓:=散户帐号数-REF(散户帐号数,1);
STICKLINE(散户减仓<0,散户帐号数+散户减仓*5,散户帐号数,1,0),COLORGREEN;
STICKLINE(散户减仓>0,散户帐号数,散户帐号数+散户减仓*5,1,0),COLORRED;
散户增减仓:=散户持仓-REF(散户持仓,1);

--------------------------------------

机构持仓
input:N(7);

券基持仓:SELFDATA('券基'),LINETHICK2;
７日内券基变化券基持仓-REF(券基持仓,N)),LINETHICK0;
券基变化:=(券基持仓-REF(券基持仓,1));
STICKLINE(券基变化<0,券基持仓+券基变化*5,券基持仓,1,0),COLORGREEN;
STICKLINE(券基变化>0,券基持仓,券基持仓+券基变化*5,1,0),COLORRED;

---------------------------------------

集中度
B1：10，3，30；S1：10，3，30；
REFLINE: 0, 25, 50, 75, 100;
bold:=selfdata('净买成交额比');
sold:=selfdata('净卖成交额比');
blold:=ref(bold,1);
slold:=ref(sold,1);
if bold>0 and sold>0 then begin
b:=bold;
s:=sold;
end;
净买10合计:=selfdata('净买10合计');
净卖10合计:=selfdata('净卖10合计');
bl:=ref(净买10合计,1);
sl:=ref(净卖10合计,1);
if 净买10合计=bl or bl=0 then 净买10合计:=0;
if 净卖10合计=sl or sl=0 then 净卖10合计:=0;
b:=净买10合计*10000/amount*100;
s:=净卖10合计*10000/amount*100;
STICKLINE(b>0,0,b,2,-300),colorred;
STICKLINE(s>0,0,s,2,300),colorgreen;
买入集中度:b,colorWhite,LineThick0;
卖出集中度:s,colorWhite,LineThick0;
BM1:MA(b,b1),colorred;
SM1:MA(s,s1),colorgreen;

------------------------------

席位进出
N：10，0，100

买入:=selfdata('净买10合计')*10000;
卖出:=selfdata('净卖10合计')*10000;
数据日:=barslast(abs(买入-ref(买入,1))>0 AND abs(卖出-ref(卖出,1))>0 );
vertline(数据日,1);
买入比:=if(数据日=0,买入/amount,bigorder(1));
卖出比:=if(数据日=0,卖出/amount,bigorder(2));
买卖比差:买入比-卖出比,LINETHICK0;

N日飘红:ref(count(买卖比差>0 ,N),数据日), COLORRed,linethick0;
连红:ref(BARSLAST(买卖比差<0 ),数据日),LINETHICK0;

N日和:sum(买卖比差*amount,n)/sum(amount,n),linethick0;{用于动态行情页};
STICKLINE(买卖比差>0 and 数据日=0,0,买卖比差,4,0),colorred;
STICKLINE(买卖比差<0 and 数据日=0,0,买卖比差,4,0),colorgreen;

----------------------------------------------------------

感谢楼主!!!!!!!!!!!!!!!!!!!!!!1

感谢楼主

感谢

楼主

飞狐可以用吗？

谢谢分享，顺便弱弱地问一下，免费dzh没有这些公式所需数据，该如何解决？！

谢谢分享

精品，收藏了。

感谢楼主

精品，收藏了。

精品，收藏了。

感谢楼主.最好有安装方法.怎么用?.好人一生平安

感谢普通de会员楼主公布源码，真诚友好，令人感动。应该置顶。

感谢楼主

谢谢分享，顺便弱弱地问一下，免费dzh没有这些公式所需数据，该如何解决？！

老大，那你的持仓线发上来吧~（TV 散户机构 持仓~线）``~~~~~~~~~~~~

感谢楼主.最好有安装方法.

感谢楼主,支持原码

引用:

原帖由 普通de会员 于 2008-6-21 14:26 发表
数据在论坛里找，都有现成的，打包文件在2楼。

安装方法和数据可以参考这贴，
                         http://www.chcj.net/thread-1065742-1-1.html

还有，http://www.chcj.net/thread-1037556-1-1.html
...
大智慧源码公试加模板和正版一样，有人还加密，这个已没什么密密可言了，还是大家公布源码供他人第二次开发吧，建议以后不要有加密公试，公试本是工具而已，可笑的是那些利用他人源码做些低级修改还加密的人!

顶！支持楼主发源码  更加同意公试本是工具而已 TOP公式本来早就没有什么秘密可言 我发的完美仿TOP综合公式虽简单而且早已声明非原创 就算是低级修改 加密完全是个人习惯 。

[ 本帖最后由 轩逸 于 2008-6-21 22:25 编辑 ]

普通de会员
超级会员
1560楼 大 中 小 发表于 2008-6-21 22:15  只看该作者
引用:
原帖由 knm123 于 2008-6-20 22:10 发表
轩逸老大指标好用，不加密限时指标什么时间发？谢谢
http://www.chcj.net/thread-1126134-1-1.html,源码发了



呵呵 发就发了吧 在顶起来给更多的朋友分享源码   正如你说指标本来没有什么神秘 只是工具而已 本来论坛很多朋友自己都会编写指标。
我早已声明TOP综合非原创 只是做了小小的修改 完美仿TOP综合只是加密没有时间限制 而且加密只是个人习惯 。加不加密是否还要你来批准？

[ 本帖最后由 轩逸 于 2008-6-21 22:38 编辑 ]

引用:

原帖由 轩逸 于 2008-6-21 22:37 发表
普通de会员
超级会员
1560楼 大 中 小 发表于 2008-6-21 22:15  只看该作者
引用:
原帖由 knm123 于 2008-6-20 22:10 发表
轩逸老大指标好用，不加密限时指标什么时间发？谢谢
http://www.chcj.net/thread ...

呵呵 发就发了吧 在顶起来给更多的朋友分享源码   正如你说指标本来没有什么神秘 只是工具而已 本来论坛很多朋友自己都会编写指标。
我早已声明TOP综合非原创 只是做了小小的修改 完美仿TOP综合只是加密没有时间限制 而且加密只是个人习惯 。加不加密是否还要你来批准？

不要啊，我管不着啊 你发数据和我发源码都一样是为大家服务

顶好人~有个赢富伴侣的东西.扣扣嗖嗖的.用了几天就不让用.一个劲的想东想西. 还是喜欢这里这些无私奉献的人.你们真好!

支持版主，支持源码

先顶起来！

支持源码！最好有TOP排序的源码