龙虎看盘新编

13746 33
设置
120693 Lv.5

专栏

发表于 2007-7-6 12:12 复制 显示全部楼层 正序浏览 |
跳转到指定楼层
龙虎看盘新编,适合于大智慧L2
请到这里下载https://www.55188.com/thread-1565094-1-2.html 龙虎看盘新编修正
目前最好最新的龙虎看盘新编,增加了“散户跟风系数,修正了 总成交笔数(深):  每笔成交手(深):     总成金额(万元):与实际动态盘不符的错误     ,沪市的总成交笔数(沪):      与每笔成交手(沪):      因是摸拟与深市有区别,行情数据不发布所至,但可以参考。大智慧5.57版的分时行情下,点右下角的盘口就可以看到系统自己带来的龙虎看盘”
input:n(403,1,10000);
DRAWTEXTREL(20,30,STKLABEL),LINETHICK6,Colorffff00;
DRAWTEXTREL(180,30,STKNAME),LINETHICK6,Color00ffff;
DRAWTEXTREL(740,150,   '    高'),LINETHICK4,Color00ffff;
DRAWTEXTREL(740,300,   '    原'),LINETHICK4,Color00ffff;
DRAWTEXTREL(740,450,   '    阳'),LINETHICK4,Color00ffff;
DRAWTEXTREL(740,600,   '    光'),LINETHICK4,Color00ffff;
DRAWTEXTREL(740,750,   '    新'),LINETHICK4,ColorFF00FF;
DRAWTEXTREL(740,900,   '    编'),LINETHICK4,Color00FF00;
DRAWTEXTREL(800,150,'      龙'),LINETHICK6,Color00ff00;
DRAWTEXTREL(800,400,'      虎'),LINETHICK6,Colorffffff;
DRAWTEXTREL(800,650,'      看'),LINETHICK6,Color0000ff;
DRAWTEXTREL(800,900,'      盘'),LINETHICK6,Color00FFFF;
DRAWTEXTREL(20,500,'-----------------------------------------------------------------------------2007.07.07---'),LINETHICK1,Coloreeeeee;

a:=BUYVOL*c/100;
bz:=sum(a,0);
b:=c*SELLVOL/100;
sz:=sum(b,0);
z:=bz+sz;
cz:=bz-sz;
xb5:=if(a<=5  ,a,0);b5:=sum(xb5,0);
xs5:=if(b<=5  ,b,0);s5:=sum(xs5,0);
xb10:=if(a<=10 and a>=5 ,a,0);b10:=sum(xb10,0);
xs10:=if(b<=10 and b>=5,b,0);s10:=sum(xs10,0);
xb30:=if(a<=30 and a>=10 ,a,0);b30:=sum(xb30,0);
xs30:=if(b<=30 and b>=10 ,b,0);s30:=sum(xs30,0);
xb50:=if(a<=50 and a>=30 ,a,0);b50:=sum(xb50,0);
xs50:=if(b<=50 and b>=30 ,b,0);s50:=sum(xs50,0);
xb70:=if(a<=70 and a>=50 ,a,0);b70:=sum(xb70,0);
xs70:=if(b<=70 and b>=50 ,b,0);s70:=sum(xs70,0);
xb100:=if(a<=100 and a>=70,a,0);b100:=sum(xb100,0);
xs100:=if(b<=100 and b>=70,b,0);s100:=sum(xs100,0);
xb150:=if(a>=100 ,a,0);b150:=sum(xb150,0);
xs150:=if(b>=100 ,b,0);s150:=sum(xs150,0);
j5:=b5-s5;
j10:=b10-s10;
j30:=b30-s30;
j50:=b50-s50;
j70:=b70-s70;
j100:=b100-s100;
j150:=b150-s150;
IF BARSTATUS=2 and (z) THEN BEGIN DRAWTEXTREL(320,45,'   ■总成金额(万元):'+NUMTOSTRN(DYNAINFO(10)/10000,2)),LINETHICK4,COLORccffcc;end;
IF BARSTATUS=2 and (bz) THEN BEGIN DRAWTEXTREL(30,550,'■■■■■买入:'+NUMTOSTRN(bz,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (sz) THEN BEGIN DRAWTEXTREL(250,550,'   ■■■■■卖出:'+NUMTOSTRN(sz,2)),LINETHICK1,COLORgreen;end;
IF BARSTATUS=2 and (b5) THEN BEGIN DRAWTEXTREL(30,600,' 5 万大单买入: ' +NUMTOSTRN(b5,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (s5) THEN BEGIN DRAWTEXTREL(250,600,'    5 万大单卖出: '+NUMTOSTRN(s5,2)),LINETHICK1,COLORgreen;end;
IF BARSTATUS=2 and (b10) THEN BEGIN DRAWTEXTREL(30,650,' 10 万大单买入:'+NUMTOSTRN(b10,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (s10) THEN BEGIN DRAWTEXTREL(250,650,'    10 万大单卖出:'+NUMTOSTRN(s10,2)),LINETHICK1,COLORgreen;end;
IF BARSTATUS=2 and (b30) THEN BEGIN DRAWTEXTREL(30,700,' 30 万大单买入:'+NUMTOSTRN(b30,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (s30) THEN BEGIN DRAWTEXTREL(250,700,'    30 万大单卖出:'+NUMTOSTRN(s30,2)),LINETHICK1,COLORgreen;end;
IF BARSTATUS=2 and (b50) THEN BEGIN DRAWTEXTREL(30,750,' 50 万大单买入:'+NUMTOSTRN(b50,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (s50) THEN BEGIN DRAWTEXTREL(250,750,'    50 万大单卖出:'+NUMTOSTRN(s50,2)),LINETHICK1,COLORgreen;end;
IF BARSTATUS=2 and (b70) THEN BEGIN DRAWTEXTREL(30,800,' 70 万大单买入:'+NUMTOSTRN(b70,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (s70) THEN BEGIN DRAWTEXTREL(250,800,'    70 万大单卖出:'+NUMTOSTRN(s70,2)),LINETHICK1,COLORgreen;end;
IF BARSTATUS=2 and (b100) THEN BEGIN DRAWTEXTREL(30,850,'100 万大单买入:'+NUMTOSTRN(b100,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (s100) THEN BEGIN DRAWTEXTREL(250,850,'   100 万大单卖出:'+NUMTOSTRN(s100,2)),LINETHICK1,COLORgreen;end;
IF BARSTATUS=2 and (b150) THEN BEGIN DRAWTEXTREL(30,900,'150 万大单买入:'+NUMTOSTRN(b150,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (s150) THEN BEGIN DRAWTEXTREL(250,900,'   150 万大单卖出:'+NUMTOSTRN(s150,2)),LINETHICK1,COLORgreen;end;

IF BARSTATUS=2 and (cz) THEN BEGIN DRAWTEXTREL(470,550,'        ■■■■总净买入:'+NUMTOSTRN(cz,2)),LINETHICK1,COLORccff00;end;
IF BARSTATUS=2 and (j5) THEN BEGIN DRAWTEXTREL(470,600,  '         5万大单净买入;  '+NUMTOSTRN(j5,2)),LINETHICK1,COLORccff00;end;
IF BARSTATUS=2 and (j10) THEN BEGIN DRAWTEXTREL(470,650, '         10万大单净买入; '+NUMTOSTRN(j10,2)),LINETHICK1,COLORccff00;end;
IF BARSTATUS=2 and (j30) THEN BEGIN DRAWTEXTREL(470,700, '         30万大净买入;   '+NUMTOSTRN(j30,2)),LINETHICK1,COLORccff00;end;
IF BARSTATUS=2 and (j50) THEN BEGIN DRAWTEXTREL(470,750, '         50万大单净买入; '+NUMTOSTRN(j50,2)),LINETHICK1,COLORccff00;end;
IF BARSTATUS=2 and (j70) THEN BEGIN DRAWTEXTREL(470,800, '         70万大单净买入; '+NUMTOSTRN(j70,2)),LINETHICK1,COLORccff00;end;
IF BARSTATUS=2 and (j100) THEN BEGIN DRAWTEXTREL(470,850,'        100万大单净买入; '+NUMTOSTRN(j100,2)),LINETHICK1,COLORccff00;end;
IF BARSTATUS=2 and (j150) THEN BEGIN DRAWTEXTREL(470,900,'        150万大单净买入; '+NUMTOSTRN(j150,2)),LINETHICK1,COLORccff00;end;
dd:=LN(FINANCE2(37)/(n*10))*ATAN(FINANCE2(37))*100;
主动买入:=SUM(BUYVOL,0);
主动卖出:=SUM(SELLVOL,0);
大单买:=if(BUYVOL>=dd,BUYVOL,0);
大单卖:=if(SELLVOL>dd,SELLVOL,0);
大单买入:=SUM(大单买,0);
大单卖出:=SUM(大单卖,0);
小单买入:=主动买入-大单买入;
小单卖出:=主动卖出-大单卖出;
大买金:=sum(if(BUYVOL>=dd,BUYVOL,0)*c,0);
大单买均价:=大买金/大单买入;
大卖金:=sum(if(SELLVOL>dd,SELLVOL,0)*c,0);
大单卖均价:=大卖金/大单卖出;
成交笔数:=sum(if(BUYVOL>0,1,0),0)+sum(if(SELLVOL>0,1,0),0);
大单净量:=大单买入-大单卖出;
DRAWTEXTABS(30,130,'☆ 散户跟风系数:'      +FLOOR(小单买入-小单卖出)/DYNAINFO(8)*100+' %'),COLORred,LINETHICK3;
DRAWTEXTABS(30,100,'■ 大单净量:'),Color00FFFF,LINETHICK2;
DRAWTEXTABS(115,100,' '+大单净量),Color00FFFF,LINETHICK2;
DRAWTEXTABS(200,100,'  占'+FLOOR(大单净量/(主动买入+主动卖出)*100)+' %'),Color00FFFF,LINETHICK2;
DRAWTEXTABS(30,40,'■ 大单买入: '+大单买入),Color8000FF,LINETHICK2;
DRAWTEXTABS(200,40,'  占'+FLOOR(大单买入/(主动买入+主动卖出)*100)+'%'),Color8000FF,LINETHICK2;
DRAWTEXTABS(300,40,'大单买均价:      '+大单买均价),Color8000FF,LINETHICK2;
DRAWTEXTABS(30,70,'■ 大单卖出: '+大单卖出),Color00FF00,LINETHICK2;
DRAWTEXTABS(200,70,'  占'+FLOOR(大单卖出/(主动买入+主动卖出)*100)+' %'),Color00FF00,LINETHICK2;
DRAWTEXTABS(300,55,'大单卖均价:      '+大单卖均价),Color00FF00,LINETHICK2;
DRAWTEXTABS(30,55,'■ 小单买入: '+小单买入),Color2F73FF,LINETHICK2;
DRAWTEXTABS(200,55,'  占'+FLOOR(小单买入/(主动买入+主动卖出)*100)+' %'),Color2F73FF,LINETHICK2;
DRAWTEXTABS(30,85,'■ 小单卖出: '+小单卖出),ColorB4B043,LINETHICK2;
DRAWTEXTABS(200,85,'  占'+FLOOR(小单卖出/(主动买入+主动卖出)*100)+' %'),ColorA8A800,LINETHICK2;
DRAWTEXTABS(300,80,'总成交笔数(深):      '+DYNAINFO(52)),ColorFFFFFF,LINETHICK2;
DRAWTEXTABS(300,95,'每笔成交手(深):      '+DYNAINFO(53)),LINETHICK2;
DRAWTEXTABS(30,115,'∑ 总成交手数:      '+DYNAINFO(8)),ColorFFFFFF,LINETHICK2;
DRAWTEXTABS(300,115,'总成交笔数(沪):      '+成交笔数*3),ColorFFFFFF,LINETHICK2;
DRAWTEXTABS(300,130,'每笔成交手(沪):      '+INTPART((主动买入+主动卖出)/成交笔数/3)),LINETHICK2;
总:=DYNAINFO(8);
STICKLINE((总 AND DISPSTATUS=2),0,总,60,1),COLORFFFFFF;
STICKLINE((大单买入+大单卖出+小单买入+小单卖出 AND DISPSTATUS=2),0,总,60,0),Color8000FF;
STICKLINE((大单卖出+小单买入+小单卖出 AND DISPSTATUS=2),0,大单卖出+小单买入+小单卖出,60,0),Color2F73FF;
STICKLINE((小单卖出+大单卖出 AND BARSTATUS=2),0,小单卖出+大单卖出,60,0),Color00FF00;
STICKLINE((小单卖出 AND BARSTATUS=2),0,小单卖出,60,0),ColorB4B043;

[ 本帖最后由 徐健雄 于 2007-7-8 23:49 编辑 ]
来自 云南省昆明市

举报

使用道具 扔鸡蛋 回复

120693
Lv.5

专栏

发表于 2007-7-8 23:43 复制 查看全部楼层
游客,您是(游客)级别,无法查看回复内容,请登录论坛并到新手区学习升级之后才能查看。升级指南请看...
来自 云南省昆明市

举报

使用道具 支持 扔鸡蛋 回复

157594
Lv.3

专栏

发表于 2007-7-8 22:50 复制 查看全部楼层
游客,您是(游客)级别,无法查看回复内容,请登录论坛并到新手区学习升级之后才能查看。升级指南请看...
来自 辽宁省抚顺市

举报

使用道具 点亮 支持 扔鸡蛋 回复

880525
Lv.3

专栏

发表于 2007-7-8 21:50 复制 查看全部楼层
游客,您是(游客)级别,无法查看回复内容,请登录论坛并到新手区学习升级之后才能查看。升级指南请看...
来自 湖北省武汉市

举报

使用道具 点亮 支持 扔鸡蛋 回复

252242
Lv.3

专栏

发表于 2007-7-8 17:17 复制 查看全部楼层
游客,您是(游客)级别,无法查看回复内容,请登录论坛并到新手区学习升级之后才能查看。升级指南请看...
来自 山东省潍坊市

举报

使用道具 点亮 支持 扔鸡蛋 回复

956915
Lv.3

专栏

发表于 2007-7-8 16:33 复制 查看全部楼层
游客,您是(游客)级别,无法查看回复内容,请登录论坛并到新手区学习升级之后才能查看。升级指南请看...
来自 广西桂林市

举报

使用道具 支持 扔鸡蛋 回复

779944
Lv.1

专栏

发表于 2007-7-8 16:01 复制 查看全部楼层
游客,您是(游客)级别,无法查看回复内容,请登录论坛并到新手区学习升级之后才能查看。升级指南请看...
来自 浙江省绍兴市

举报

使用道具 支持 扔鸡蛋 回复

779944
Lv.1

专栏

发表于 2007-7-8 15:51 复制 查看全部楼层
游客,您是(游客)级别,无法查看回复内容,请登录论坛并到新手区学习升级之后才能查看。升级指南请看...
来自 浙江省绍兴市

举报

使用道具 点亮 支持 扔鸡蛋 回复

166550
Lv.3

专栏

发表于 2007-7-7 23:08 复制 查看全部楼层
游客,您是(游客)级别,无法查看回复内容,请登录论坛并到新手区学习升级之后才能查看。升级指南请看...
来自 陕西省西安市

举报

使用道具 支持 扔鸡蛋 回复

960889
Lv.2

专栏

发表于 2007-7-7 20:56 复制 查看全部楼层
游客,您是(游客)级别,无法查看回复内容,请登录论坛并到新手区学习升级之后才能查看。升级指南请看...
来自 湖南省邵阳市邵东县

举报

使用道具 支持 扔鸡蛋 回复

748161
Lv.7

专栏

发表于 2007-7-7 14:14 复制 查看全部楼层
游客,您是(游客)级别,无法查看回复内容,请登录论坛并到新手区学习升级之后才能查看。升级指南请看...

举报

使用道具 点亮 支持 扔鸡蛋 回复

833589
Lv.1

专栏

发表于 2007-7-7 12:49 复制 查看全部楼层
游客,您是(游客)级别,无法查看回复内容,请登录论坛并到新手区学习升级之后才能查看。升级指南请看...
来自 广东省深圳市

举报

使用道具 支持 扔鸡蛋 回复

924900
Lv.2

专栏

发表于 2007-7-7 10:59 复制 查看全部楼层
游客,您是(游客)级别,无法查看回复内容,请登录论坛并到新手区学习升级之后才能查看。升级指南请看...
来自 山东省济南市

举报

使用道具 支持 扔鸡蛋 回复

540136
Lv.4

专栏

发表于 2007-7-7 10:54 复制 查看全部楼层
游客,您是(游客)级别,无法查看回复内容,请登录论坛并到新手区学习升级之后才能查看。升级指南请看...
来自 浙江省杭州市

举报

使用道具 点亮 支持 扔鸡蛋 回复

196198
Lv.3

专栏

发表于 2007-7-7 07:22 复制 查看全部楼层
游客,您是(游客)级别,无法查看回复内容,请登录论坛并到新手区学习升级之后才能查看。升级指南请看...
来自 黑龙江省哈尔滨市

举报

使用道具 支持 扔鸡蛋 回复

820915
Lv.2

专栏

发表于 2007-7-6 23:53 复制 查看全部楼层
游客,您是(游客)级别,无法查看回复内容,请登录论坛并到新手区学习升级之后才能查看。升级指南请看...
来自 广西梧州市

举报

使用道具 支持 扔鸡蛋 回复

120693
Lv.5

专栏

发表于 2007-7-6 22:34 复制 查看全部楼层
游客,您是(游客)级别,无法查看回复内容,请登录论坛并到新手区学习升级之后才能查看。升级指南请看...
来自 云南省昆明市

举报

使用道具 支持 扔鸡蛋 回复

120693
Lv.5

专栏

发表于 2007-7-6 22:32 复制 查看全部楼层
游客,您是(游客)级别,无法查看回复内容,请登录论坛并到新手区学习升级之后才能查看。升级指南请看...
来自 云南省昆明市

举报

使用道具 点亮 支持 扔鸡蛋 回复

120693
Lv.5

专栏

发表于 2007-7-6 22:27 复制 查看全部楼层
游客,您是(游客)级别,无法查看回复内容,请登录论坛并到新手区学习升级之后才能查看。升级指南请看...
来自 云南省昆明市

举报

使用道具 点亮 支持 扔鸡蛋 回复

540136
Lv.4

专栏

发表于 2007-7-6 21:24 复制 查看全部楼层
游客,您是(游客)级别,无法查看回复内容,请登录论坛并到新手区学习升级之后才能查看。升级指南请看...

附件

1.gif
来自 浙江省杭州市

举报

使用道具 点亮 支持 扔鸡蛋 回复

688031
Lv.5

专栏

发表于 2007-7-6 21:23 复制 查看全部楼层
游客,您是(游客)级别,无法查看回复内容,请登录论坛并到新手区学习升级之后才能查看。升级指南请看...
来自 山东省济南市

举报

使用道具 支持 扔鸡蛋 回复

750881
Lv.5

专栏

发表于 2007-7-6 21:12 复制 查看全部楼层
游客,您是(游客)级别,无法查看回复内容,请登录论坛并到新手区学习升级之后才能查看。升级指南请看...
来自 广西

举报

使用道具 支持 扔鸡蛋 回复

843691
Lv.2

专栏

发表于 2007-7-6 20:55 复制 查看全部楼层
游客,您是(游客)级别,无法查看回复内容,请登录论坛并到新手区学习升级之后才能查看。升级指南请看...
来自 北京市

举报

使用道具 点亮 支持 扔鸡蛋 回复

120693
Lv.5

专栏

发表于 2007-7-6 20:54 复制 查看全部楼层
游客,您是(游客)级别,无法查看回复内容,请登录论坛并到新手区学习升级之后才能查看。升级指南请看...
来自 云南省昆明市

举报

使用道具 支持 扔鸡蛋 回复

48081
Lv.2

专栏

发表于 2007-7-6 20:18 复制 查看全部楼层
游客,您是(游客)级别,无法查看回复内容,请登录论坛并到新手区学习升级之后才能查看。升级指南请看...
来自 重庆市开州区

举报

使用道具 支持 扔鸡蛋 回复

960889
Lv.2

专栏

发表于 2007-7-6 17:50 复制 查看全部楼层
游客,您是(游客)级别,无法查看回复内容,请登录论坛并到新手区学习升级之后才能查看。升级指南请看...
来自 湖南省邵阳市邵东县

举报

使用道具 支持 扔鸡蛋 回复

739897
Lv.2

专栏

发表于 2007-7-6 16:15 复制 查看全部楼层
游客,您是(游客)级别,无法查看回复内容,请登录论坛并到新手区学习升级之后才能查看。升级指南请看...
来自 山东省淄博市

举报

使用道具 点亮 支持 扔鸡蛋 回复

739897
Lv.2

专栏

发表于 2007-7-6 16:13 复制 查看全部楼层
游客,您是(游客)级别,无法查看回复内容,请登录论坛并到新手区学习升级之后才能查看。升级指南请看...
来自 山东省淄博市

举报

使用道具 支持 扔鸡蛋 回复

748161
Lv.7

专栏

发表于 2007-7-6 15:53 复制 查看全部楼层
游客,您是(游客)级别,无法查看回复内容,请登录论坛并到新手区学习升级之后才能查看。升级指南请看...

举报

使用道具 点亮 支持 扔鸡蛋 回复

842495
Lv.2

专栏

发表于 2007-7-6 14:41 复制 查看全部楼层
游客,您是(游客)级别,无法查看回复内容,请登录论坛并到新手区学习升级之后才能查看。升级指南请看...
来自 江西省九江市

举报

使用道具 点亮 支持 扔鸡蛋 回复

120693
Lv.5

专栏

发表于 2007-7-6 13:33 复制 查看全部楼层
游客,您是(游客)级别,无法查看回复内容,请登录论坛并到新手区学习升级之后才能查看。升级指南请看...
来自 云南省昆明市

举报

使用道具 点亮 支持 扔鸡蛋 回复

您需要登录后才可以回帖 登录

本版积分规则 《理想财富服务协议》《免责声明》

0楼 16楼
33楼 15楼
32楼 14楼
31楼 13楼
30楼 12楼
29楼 11楼
28楼 10楼
27楼 9楼
26楼 8楼
25楼 7楼
24楼 6楼
23楼 5楼
22楼 4楼
21楼  
20楼  
19楼  
18楼  
17楼  
站长推荐 /8
回顶部 到页底
快速回复 返回顶部 返回列表