量学论坛 › 股票公式 › 再发“盘中选股(动态买卖)”指标、选股双公式源码 是盘中抓涨停和大涨股票神奇武器

老洪 发表于 2010-6-26 00:56

附图指标：盘中选股：
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;

秋收股 发表于 2010-6-26 01:52

还是学习到了。

秋收股 发表于 2010-6-26 02:01

还是学习到了。

刘将海 发表于 2010-6-26 02:08

我看看……

磨刀 发表于 2010-6-26 03:28

谢谢诶:) 楼主

jzbw 发表于 2010-6-26 03:39

来学习，谢谢楼主

涨上明珠 发表于 2010-6-26 09:14

来学习，谢谢楼主

黄俊光 发表于 2010-6-26 09:25

{M(88,1,300),N1(6,1,100);}
VAR0A:=EMA(EMA(EMA(CLOSE,2),2),2);
MA13:(MA(VAR0A,13)*0.99);
(MA(VAR0A,13)*0.999);
TLAMSENR:=MAX(MAX((HIGH-LOW),ABS((REF(CLOSE,1)-HIGH))),ABS((REF(CLOSE,1)-LOW)));
ATR:=MA(TLAMSENR,13);
VAR1A:=(REF(CLOSE,1)-REF(ATR,1));
生命线:(HHV(VAR1A,12)),LINETHICK3,COLOR0080FF;
VAR1:=EMA(AMOUNT/VOL/100,3);
控盘成本:EMA(VAR1,M),LINETHICK1;
低吸伏击:EMA(VAR1,M)*0.85,LINETHICK1,COLORFFFF00;
走势铁底:低吸伏击*0.87,LINETHICK1,COLORFF00FF;
VAR2:=LOW<=走势铁底 AND CLOSE>REF(CLOSE,1)*1.02;DRAWICON(FILTER(VAR2,N1),L,5);

黄俊光 发表于 2010-6-26 09:35

{M(88,1,300),N1(6,1,100);}
VAR0A:=EMA(EMA(EMA(CLOSE,2),2),2);
MA13:(MA(VAR0A,13)*0.99);
(MA(VAR0A,13)*0.999);
TLAMSENR:=MAX(MAX((HIGH-LOW),ABS((REF(CLOSE,1)-HIGH))),ABS((REF(CLOSE,1)-LOW)));
ATR:=MA(TLAMSENR,13);
VAR1A:=(REF(CLOSE,1)-REF(ATR,1));
生命线:(HHV(VAR1A,12)),LINETHICK3,COLOR0080FF;
VAR1:=EMA(AMOUNT/VOL/100,3);
控盘成本:EMA(VAR1,M),LINETHICK1;
低吸伏击:EMA(VAR1,M)*0.85,LINETHICK1,COLORFFFF00;
走势铁底:低吸伏击*0.87,LINETHICK1,COLORFF00FF;
VAR2:=LOW<=走势铁底 AND CLOSE>REF(CLOSE,1)*1.02;DRAWICON(FILTER(VAR2,N1),L,5);

黄俊光 发表于 2010-6-26 09:55

{M(88,1,300),N1(6,1,100);}
VAR0A:=EMA(EMA(EMA(CLOSE,2),2),2);
MA13:(MA(VAR0A,13)*0.99);
(MA(VAR0A,13)*0.999);
TLAMSENR:=MAX(MAX((HIGH-LOW),ABS((REF(CLOSE,1)-HIGH))),ABS((REF(CLOSE,1)-LOW)));
ATR:=MA(TLAMSENR,13);
VAR1A:=(REF(CLOSE,1)-REF(ATR,1));
生命线:(HHV(VAR1A,12)),LINETHICK3,COLOR0080FF;
VAR1:=EMA(AMOUNT/VOL/100,3);
控盘成本:EMA(VAR1,M),LINETHICK1;
低吸伏击:EMA(VAR1,M)*0.85,LINETHICK1,COLORFFFF00;
走势铁底:低吸伏击*0.87,LINETHICK1,COLORFF00FF;
VAR2:=LOW<=走势铁底 AND CLOSE>REF(CLOSE,1)*1.02;DRAWICON(FILTER(VAR2,N1),L,5);

一缕月光 发表于 2010-6-26 13:10

天啊！至今没学会怎么用公式！郁闷啊！

双色一条龙 发表于 2010-6-26 13:55

感谢楼主的好贴子啦

收获季节 发表于 2010-6-26 13:55

买了不看怎么成。

收获季节 发表于 2010-6-26 13:58

晕死，扣五分了，回复怎么不得分呀。

哈哈笑 发表于 2010-6-26 14:01

看看是什么好东西

查看完整版本: 再发“盘中选股(动态买卖)”指标、选股双公式源码 是盘中抓涨停和大涨股票神奇武器