阿台珍藏_龙虎榜原码

6176 4
设置
862449 Lv.3

专栏

发表于 2007-7-14 13:04 复制 显示全部楼层 正序浏览 |
跳转到指定楼层
不知能不能用,大家试下.
55188.cn/viewthread.php?tid=704899

{公称名称: 龙虎榜㊣}


variable:WDAY[7]=0;
DRAWGBK(1,COLORRGB(30,100,30),COLORRGB(250,235,200),1);
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)]);
AXL1:=CLOSE;
AXL2:=MA(HIGH,5);
AXL3:=MA(LOW,3);
FOR    I=8 to DATACOUNT   DO
IF  (AXL1[I] > AXL2[(I - 1)])  THEN
B[I]=1;
ELSE
IF  (AXL1[I] < AXL3[(I - 1)])  THEN
B[I]=(0 - 1);
ELSE
B[I]=B[(I - 1)];
WM:=IF((B = (0 - 1)),MA(HIGH,5),MA(LOW,3));
主动买入单:=EXTDATA(1);
主动卖出单:=EXTDATA(2);
大买:=EXTDATA(3);
大卖:=EXTDATA(4);
散买:=(主动买入单 - 大买);
散卖:=(主动卖出单 - 大卖);
差:=((大买 - 大卖) / 10000);
散户跟风系数:=((散买 / ((大买 * 10) - 大卖)) * 100);
变换:=IF((CLOSE > OPEN),1,(0 - 1));
总:=(((EXTDATA(1) + EXTDATA(2)) + EXTDATA(3)) + EXTDATA(4));
XL1:=(散户跟风系数 * 变换);
XL2:=IF((XL1 > 60),1,IF((XL1 < (0 - 60)),1,0));
XL3:=IF(((BARPOS = SYSPARAM(1)) AND (XL2 > 0)),1,0);
XL4:=IF((((XL1 < 31) AND (XL1 > (0 - 31))) AND (OPEN < CLOSE)),1,IF((((XL1 > (0 - 31)) AND (XL1 < 31)) AND (OPEN > CLOSE)),1,0));
XL5:=IF(((BARPOS = SYSPARAM(1)) AND (XL4 > 0)),1,0);
XL6:=IF(((BARPOS = SYSPARAM(1)) AND (CLOSE > WM)),1,0);
XL7:=IF(((BARPOS = SYSPARAM(1)) AND (CLOSE < WM)),1,0);
QD:=LBOUND(主动买入单);
IF  (P < QD)  THEN
DRAWTEXT((BARPOS = SYSPARAM(2)),总[P],(((((('代码:' + STKLABEL) + '   名称:') + STKNAME) + '   流通盘:') + NUMTOSTR((FINANCE(1) / 10000),4)) + '(亿股)')),ALIGN4,LINETHICK124,colorE0E0;
DRAWTEXT((BARPOS = SYSPARAM(2)),总[P],(' \n \n■■总成交手:' + NUMTOSTR(总[P],0))),ALIGN4,LINETHICK125.5,colorCCFFCC;
DRAWTEXT((BARPOS = SYSPARAM(2)),总[P],((' \n \n                      ■■大单差:' + NUMTOSTR(差[P],2)) + '(万股)')),ALIGN4,LINETHICK125.5,colorFFCC;
DRAWTEXT((BARPOS = SYSPARAM(2)),总[P],(' \n \n \n \n■■大单买:' + NUMTOSTR(大买[P],0))),ALIGN4,LINETHICK125.5,colorFF;
DRAWTEXT((BARPOS = SYSPARAM(2)),总[P],((' \n \n \n \n                      ■■占:' + NUMTOSTR(((大买[P] / 总[P]) * 100),0)) + '%')),ALIGN4,LINETHICK2.5,colorFF;
DRAWTEXT((BARPOS = SYSPARAM(2)),总[P],(' \n \n \n \n                                    ■■大单卖:' + NUMTOSTR(大卖[P],0))),ALIGN4,LINETHICK2.5,color67635B;
DRAWTEXT((BARPOS = SYSPARAM(2)),总[P],((' \n \n \n \n                                                        ■■占:' + NUMTOSTR(((大卖[P] / 总[P]) * 100),0)) + '%')),ALIGN4,LINETHICK2.5,color67635B;
DRAWTEXT((BARPOS = SYSPARAM(2)),总[P],(' \n \n  \n \n \n \n■■小单买:' + NUMTOSTR(散买[P],0))),ALIGN4,LINETHICK2.5,colorFF00FF;
DRAWTEXT((BARPOS = SYSPARAM(2)),总[P],((' \n \n  \n \n \n \n                      ■■占:' + NUMTOSTR(((散买[P] / 总[P]) * 100),0)) + '%')),ALIGN4,LINETHICK2.5,colorFF00FF;
DRAWTEXT((BARPOS = SYSPARAM(2)),总[P],(' \n \n  \n \n \n \n                                    ■■小单卖:' + NUMTOSTR(散卖[P],0))),ALIGN4,LINETHICK2.5,color987A68;
DRAWTEXT((BARPOS = SYSPARAM(2)),总[P],((' \n \n  \n \n \n \n                                                        ■■占: ' + NUMTOSTR(((散卖[P] / 总[P]) * 100),0)) + '%')),ALIGN4,LINETHICK2.5,color987A68;
DRAWTEXT((BARPOS = SYSPARAM(2)),总[P],((' \n \n  \n \n \n \n \n■■■散户跟风系数:' + NUMTOSTR((散户跟风系数[P] * 变换[P]),2)) + '%')),ALIGN4,LINETHICK123,colorFF0000;
DRAWTEXT((BARPOS = SYSPARAM(2)),总[P],(' \n \n  \n \n \n \n \n                                    ■■' + STR1)),ALIGN4,LINETHICK123,color87FF;
STICKLINE((BARPOS = (SYSPARAM(3) - 8)),0,(总[P] * 1.02),196,0),ALIGN2,SHIFT1,colorFF0000;
STICKLINE((BARPOS = (SYSPARAM(3) - 8)),0,(总[P] * 0.99),188,0),ALIGN2,SHIFT1,colorFFFFFF;
STICKLINE((BARPOS = DATACOUNT),1,主动买入单[P],18,0),colorFF;
STICKLINE((BARPOS = (DATACOUNT - 3)),0,主动卖出单[P],18,0),color8000;
STICKLINE((BARPOS = (DATACOUNT - 6)),0,大买[P],18,0),colorFF;
STICKLINE((BARPOS = (DATACOUNT - 9)),0,大卖[P],18,0),color8000;
STICKLINE((BARPOS = (DATACOUNT - 12)),0,散买[P],18,0),colorFF00FF;
STICKLINE((BARPOS = (DATACOUNT - 15)),0,散卖[P],18,0),color8000;
DRAWTEXT((BARPOS = (DATACOUNT - 16)),总[P],'散 \n卖'),ALIGN5,LINETHICK19,color10000;
DRAWTEXT((BARPOS = (DATACOUNT - 13)),总[P],'散 \n买'),ALIGN5,LINETHICK19,color10000;
DRAWTEXT((BARPOS = (DATACOUNT - 10)),总[P],'大 \n卖'),ALIGN5,LINETHICK19,color10000;
DRAWTEXT((BARPOS = (DATACOUNT - 7)),总[P],'大 \n买'),ALIGN5,LINETHICK19,color10000;
DRAWTEXT((BARPOS = (DATACOUNT - 4)),总[P],'总 \n卖'),ALIGN5,LINETHICK19,color10000;
DRAWTEXT((BARPOS = (DATACOUNT - 1)),总[P],'总 \n买'),ALIGN5,LINETHICK19,color10000;
STICKLINE((BARPOS = (SYSPARAM(3) - 7)),(总[P] / 2),(总[P] / 2),238,0),ALIGN2,color8293;
DRAWTEXT(((BARPOS = (DATACOUNT - 16)) AND XL3[P]),(总[P] * 0.99),'  今日涨跌:散户所为'),LINETHICK124,color10000;
DRAWTEXT(((BARPOS = (DATACOUNT - 16)) AND XL5[P]),(总[P] * 0.99),'  今日涨跌:主力所为'),LINETHICK124,color10000;
DRAWTEXT(((BARPOS = (DATACOUNT - 16)) AND XL6[P]),(总[P] * 0.99),'■'),LINETHICK124,color6800FF;
DRAWTEXT(((BARPOS = (DATACOUNT - 16)) AND XL7[P]),(总[P] * 0.99),'■'),LINETHICK124,colorDE0C;
换手率:IF((CAPITAL = 0),((VOL / SUM(VOL,100)) * 100),(VOL / FINANCE(7))),LINETHICK0,PRECISION2,colorFF00;
涨跌幅(CLOSE - REF(CLOSE,1)) / REF(CLOSE,1)) * 100),LINETHICK0,PRECISION2,color6800FF;

[ 本帖最后由 浴火之冰 于 2007-7-15 11:16 编辑 ]
来自 河北省石家庄市

举报

使用道具 扔鸡蛋 回复

420537
Lv.3

专栏

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

举报

使用道具 支持 扔鸡蛋 回复

551244
Lv.4

专栏

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

举报

使用道具 支持 扔鸡蛋 回复

182593
Lv.3

专栏

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

举报

使用道具 支持 扔鸡蛋 回复

466279
Lv.5

专栏

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

举报

使用道具 支持 扔鸡蛋 回复

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

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

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