看盘实用指标-龙虎榜 谁来改个通达信的版本 现在一放进去就死

[飞 狐] 8436 4
设置
959385 Lv.3

专栏

发表于 2007-7-22 15:03 复制 显示全部楼层 正序浏览 |
跳转到指定楼层
{看盘实用指标-龙虎榜}
DRAWGBK(1, COLORRGB(180,180,180),COLORRGB(250,250,250),1);
{时间}
variable:wday[7]='星期六';
wday[1]:='星期日';
wday[2]:='星期一';
wday[3]:='星期二';
wday[4]:='星期三';
wday[5]:='星期四';
wday[6]:='星期五';
fy:=YEAR;
fm:=MONTH;
fd:=DAY;
wd:=WEEKDAY;
p:=SYSPARAM(1);
str1:='今日: '+NUMTOSTR(fy[p],0)+'年'+NUMTOSTR(fm[p],0)+'月'+NUMTOSTR(fd[p],0)+'日 '+wday[wd[p]+1];
{指标:-------------------☆功能开关--------------------}
{龙虎榜}
主动买入单:=EXTDATA(1);        //对应扩展数据序号1
主动卖出单:=EXTDATA(2);        //对应扩展数据序号2
大买手数:=EXTDATA(3);          //对应扩展数据序号3
大买金额:=EXTDATA(4);          //对应扩展数据序号4
大卖手数:=EXTDATA(5);          //对应扩展数据序号5
大卖金额:=EXTDATA(6);          //对应扩展数据序号6
撤买:=EXTDATA(7);              //对应扩展数据序号7
撤卖:=EXTDATA(8);             //对应扩展数据序号8
对敲买单:=EXTDATA(9);         //对应扩展数据序号9
对敲卖单:=EXTDATA(10);        //对应扩展数据序号10
上扫单:=EXTDATA(11);           //对应扩展数据序号11
下扫单:=EXTDATA(12);           //对应扩展数据序号12
主力资金进出:={(大买金额-大卖金额)}EXTDATA(13)/100000;  //对应扩展数据序号13

散买:=主动买入单-大买手数;
散卖:=主动卖出单-大卖手数;
差:=(大买手数-大卖手数)/1000;
大单买均价:=大买金额/(大买手数*100);
大单卖均价:=大卖金额/(大卖手数*100);
散户跟风系数:=散买/(大买手数*10-大卖手数)*100,LINETHICK;//?
变换:=IF(CLOSE>OPEN,1,-1);
总:=EXTDATA(1)+EXTDATA(2)+EXTDATA(3)+EXTDATA(5);
总1:=V;
{趋势}
X_L1:=reverse((3*C+2*O+L+H)/7)+2*wma(wma((3*C+2*O+L+H)/7,1),5);
皓翁:= 3*X_L1-2*sma(X_L1,2,1);
yyh1:=IF(C>=皓翁 or O>=皓翁,1,0);//多
yyh2:=IF(C<=皓翁 or O<=皓翁,1,0);//空
yyh3:=O<C;//多
yyh4:=O>C;//空
xL1:=散户跟风系数*变换;
xL2:=IF(xL1>60,1,IF(xL1<-60,1,0));
xL3:=IF(BARPOS=SYSPARAM(1)&&xL2>0,1,0);//散
xL4:=IF(xL1<31&&xL1>-31&&OPEN<CLOSE,1,IF(xL1>-31&&xL1<31&&OPEN>CLOSE,1,0));
xL5:=IF(BARPOS=SYSPARAM(1)&&xL4>0,1,0);//主
QD:=LBOUND(主动买入单);
IF P<QD THEN EXIT;
{-----------------【图解模板】---------------------}
DRAWTEXT(BARPOS=SYSPARAM(2),总[p],'代码:'+STKLABEL+'   名称:'+STKNAME+'   流通盘:'+NUMTOSTR(FINANCE(1)/10000,4)+'(亿股)'),PXDN8,align4,COLORBLACK;
DRAWTEXT(BARPOS=SYSPARAM(2),总[p],' \n \n■■大单买:'+NUMTOSTR(大买手数[p],0)),align4,COLORRED;
DRAWTEXT(BARPOS=SYSPARAM(2),总[p],' \n \n                    ■■占:'+NUMTOSTR(大买手数[p]/总[p]*100,0)+'%'),align4,COLORRED;
DRAWTEXT(BARPOS=SYSPARAM(2),总[p],' \n \n                                  ■■大单买均价:'+NUMTOSTR(大单买均价[p],2)+'(元)'),align4,COLORRED;
DRAWTEXT(BARPOS=SYSPARAM(2),总[p],' \n \n \n■■大单卖:'+NUMTOSTR(大卖手数[p],0)),PXDN3,align4,Color005200;
DRAWTEXT(BARPOS=SYSPARAM(2),总[p],' \n \n \n                    ■■占:'+NUMTOSTR(大卖手数[p]/总[p]*100,0)+'%'),PXDN3,align4,Color005200;
DRAWTEXT(BARPOS=SYSPARAM(2),总[p],' \n \n \n                                  ■■大单卖均价:'+NUMTOSTR(大单卖均价[p],2)+'(元)'),PXDN3,align4,Color005200;
DRAWTEXT(BARPOS=SYSPARAM(2),总[p],' \n \n \n \n■■散单买:'+NUMTOSTR(散买[p],0)),PXDN6,align4,COLORMAGENTA;
DRAWTEXT(BARPOS=SYSPARAM(2),总[p],' \n \n \n \n                                  ■■散单卖:'+NUMTOSTR(散卖[p],0)),PXDN6,align4,ColorFF0066;
DRAWTEXT(BARPOS=SYSPARAM(2),总[p],' \n \n \n \n \n■■散户跟风系数:'+NUMTOSTR(散户跟风系数[p]*变换[p],2)+'%'),PXDN6,align4,COLORBLACK;                                          
DRAWTEXT(BARPOS=SYSPARAM(2),总[p],' \n \n \n \n \n                                  ■■大单差:'+NUMTOSTR(差[p],2)+'(万股)'),PXDN6,align4,Color0C1B16;
DRAWTEXT(BARPOS=SYSPARAM(2),总[p],' \n \n \n \n \n \n■■对敲买单:'+NUMTOSTR(对敲买单[p],0)),PXDN6,align4,COLORMAGENTA;
DRAWTEXT(BARPOS=SYSPARAM(2),总[p],' \n \n \n \n \n \n                                  ■■对敲卖单:'+NUMTOSTR(对敲卖单[p],0)),PXDN6,align4,ColorFF0066;
DRAWTEXT(BARPOS=SYSPARAM(2),总[p],' \n \n \n \n \n \n \n■■撤买:'+NUMTOSTR(撤买[p],0)),PXDN6,align4,COLORMAGENTA;
DRAWTEXT(BARPOS=SYSPARAM(2),总[p],' \n \n \n \n \n \n \n                                  ■■撤卖:'+NUMTOSTR(撤卖[p],0)),PXDN6,align4,ColorFF0066;
DRAWTEXT(BARPOS=SYSPARAM(2),总[p],' \n \n \n \n \n \n \n \n■■上扫单:'+NUMTOSTR(上扫单[p],0)),PXDN6,align4,COLORMAGENTA;
DRAWTEXT(BARPOS=SYSPARAM(2),总[p],' \n \n \n \n \n \n \n \n                                  ■■下扫单:'+NUMTOSTR(下扫单[p],0)),PXDN6,align4,ColorFF0066;
DRAWTEXT(BARPOS=SYSPARAM(2),总[p],' \n \n \n \n \n \n \n \n \n■■主力资金进出:'+NUMTOSTR(主力资金进出[p],2)+'(万元)'),PXDN6,align4,COLORBLUE;                                          
DRAWTEXT(BARPOS=SYSPARAM(2),总[p],' \n \n  \n \n \n \n \n \n \n \n                                  ■■'+str1),PXUP8,align4,COLORBROWN;
{柱线}
STICKLINE(BARPOS=SYSPARAM(3)-8,0,总[p]*1.02,196,0),SHIFT1,ALIGN2,COLORBLUE;
STICKLINE(BARPOS=SYSPARAM(3)-8,0,总[p]*0.99,188,0),SHIFT1,ALIGN2,COLORWHITE;
STICKLINE(BARPOS=DATACOUNT,1,主动买入单[p],18,0),COLORRED;
STICKLINE(BARPOS=DATACOUNT-3,0,主动卖出单[p],18,0),COLOR8000;
STICKLINE(BARPOS=DATACOUNT-6,0,大买手数[p],18,0),COLORRED;
STICKLINE(BARPOS=DATACOUNT-9,0,大卖手数[p],18,0),COLOR8000;
STICKLINE(BARPOS=DATACOUNT-12,0,散买[p],18,0),COLORMAGENTA;
STICKLINE(BARPOS=DATACOUNT-15,0,散卖[p],18,0),COLOR8000;
DRAWTEXT(BARPOS=DATACOUNT-16,总[p],'散 \n卖'),PXUP38,align5,COLORBLACK;
DRAWTEXT(BARPOS=DATACOUNT-13,总[p],'散 \n买'),PXUP38,align5,COLORBLACK;
DRAWTEXT(BARPOS=DATACOUNT-10,总[p],'大 \n卖'),PXUP38,align5,COLORBLACK;
DRAWTEXT(BARPOS=DATACOUNT -7,总[p],'大 \n买'),PXUP38,align5,COLORBLACK;
DRAWTEXT(BARPOS=DATACOUNT- 4,总[p],'总 \n卖'),PXUP38,align5,COLORBLACK;
DRAWTEXT(BARPOS=DATACOUNT - 1,总[p],'总 \n买'),PXUP38,align5,COLORBLACK;
STICKLINE(BARPOS=SYSPARAM(3)-7,总[p]/2,总[p]/2,238,0),ALIGN2,Color008293;//中线
DRAWTEXT(BARPOS=DATACOUNT-16 and xL3[p],总[p]*0.99,' \n今日涨跌:散户所为' ),PXDN16,COLORBLACK;
DRAWTEXT(BARPOS=DATACOUNT-16 and xL5[p],总[p]*0.99,' \n今日涨跌:主力所为' ),PXDN16,COLORBLACK;
DRAWTEXT(BARPOS=DATACOUNT-16&&yyh2[p]&&yyh4[p],总[p]*0.99,'■趋势: →跌' ),PXDN8,COLORBLUE;//空
DRAWTEXT(BARPOS=DATACOUNT-16&&yyh1[p]&&yyh3[p],总[p]*0.99,'■趋势: →涨' ),PXDN8,COLORRED;//多
换手率:IF(CAPITAL=0,VOL/SUM(VOL,100)*100,VOL/FINANCE(7)),PRECISION2,LINETHICK,COLORGREEN;
涨跌幅:(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100,PRECISION2,LINETHICK,COLORYELLOW;
来自 浙江省宁波市江东区

举报

使用道具 扔鸡蛋 回复

1244957
Lv.4

专栏

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

举报

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

767431
Lv.2

专栏

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

举报

使用道具 支持 扔鸡蛋 回复

788151
Lv.2

专栏

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

举报

使用道具 支持 扔鸡蛋 回复

130780
Lv.4

专栏

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

举报

使用道具 支持 扔鸡蛋 回复

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

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

楼主
5楼
4楼
3楼
2楼
站长推荐 /8
回顶部 到页底
快速回复 返回顶部 返回列表