马上注册,享用更多功能,让你轻松玩转本论坛。
您需要 登录 才可以下载或查看,没有账号?立即注册
×
本帖最后由 由由的鱼 于 2011-8-20 07:38 编辑
是你选大牛股涨停股的必备利器 盘中选股和选股公式, 双公式奉上。。。。本来想免费赠送的,但是不劳而获是不行的,再说了免费的东西不是好东西。
所以就象征性的收一点吧。。
-
- 指标:盘中选股:
- VAR0:=VOL/CLOSE/2;
- VAR1:=SUM(IF(VAR0>100 AND CLOSE>REF(CLOSE,1),VAR0,0),0);
- VAR2:=SUM(IF(VAR0>100 AND CLOSE<REF(CLOSE,1),VAR0,0),0);
- VAR3:=SUM(IF(VAR0<100 AND CLOSE>REF(CLOSE,1),VAR0,0),0);
- VAR4:=SUM(IF(VAR0<100 AND CLOSE<REF(CLOSE,1),VAR0,0),0);
- VAR5:=VAR1+VAR2+VAR3+VAR4;
- VAR6:=IF(BARSTATUS=2,100*VAR1/VAR5,0);
- VAR7:=IF(BARSTATUS=2,100*VAR2/VAR5,0);
- VAR8:=IF(BARSTATUS=2,100*VAR3/VAR5,0);
- VAR9:=IF(BARSTATUS=2,100*VAR4/VAR5,0);
- 机构买盘:VAR1,LINETHICK3,COLORFF55FF;
- 机构卖盘:VAR2,LINETHICK3,COLORFFFF55;
- 散户买盘:VAR3,COLOR5555FF;
- 散户卖盘:VAR4,COLOR55FF55;
- DRAWTEXTREL(1003,870,'机构买盘'),LINETHICK2,COLORFF55FF;
- DRAWTEXTREL(1003,570,'机构卖盘'),LINETHICK2,COLORFFFF55;
- DRAWTEXTREL(1003,320,'散户买盘'),LINETHICK2,COLOR5555FF;
- DRAWTEXTREL(1003,50,'散户卖盘'),LINETHICK2,COLOR55FF55;
- IF BARSTATUS=2 THEN BEGIN
- DRAWTEXTREL(1020,750,''+FLOOR(VAR6)+'%'),LINETHICK2,COLORFF55FF;
- END
- IF BARSTATUS=2 THEN BEGIN
- LOOP0:=FLOOR(VAR7);
- VAR10:=''+LOOP0;
- VAR11:=VAR10 + '%';
- DRAWTEXTREL(1020,460,VAR11),LINETHICK2,COLORFFFF55;
- END
- IF BARSTATUS=2 THEN BEGIN
- LOOP1:=FLOOR(VAR8);
- VAR12:=''+LOOP1;
- VAR13:=VAR12+'%';
- DRAWTEXTREL(1020,200,VAR13),LINETHICK2,COLOR5555FF;
- END
- IF BARSTATUS=2 THEN BEGIN
- LOOP2:=FLOOR(VAR9);
- VAR14:=''+LOOP2;
- VAR15:=VAR14+'%';
- DRAWTEXTREL(1020,-50,VAR15),LINETHICK2,COLOR55FF55;
- END
- 选股公式:
- VAR0:=VOL/CLOSE/2;
- VAR1:=SUM(IF(VAR0>100 AND CLOSE>REF(CLOSE,1),VAR0,0),0);
- VAR2:=SUM(IF(VAR0>100 AND CLOSE<REF(CLOSE,1),VAR0,0),0);
- VAR3:=SUM(IF(VAR0<100 AND CLOSE>REF(CLOSE,1),VAR0,0),0);
- VAR4:=SUM(IF(VAR0<100 AND CLOSE<REF(CLOSE,1),VAR0,0),0);
- VAR5:=VAR1+VAR2+VAR3+VAR4;
- VAR1>VAR2 AND VAR3>VAR4 AND VAR1>REF(VAR1,1) AND
- REF(VAR1,1)>REF(VAR1,2) AND
- (VAR1+VAR3)/VAR5*100>60;
复制代码 |