找回密码
 立即注册

QQ登录

只需一步,快速开始

广告载入中...
楼主: 仙人

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

   火... [复制链接]
发表于 2011-2-12 14:10 | 显示全部楼层
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
回复

使用道具 举报

发表于 2011-2-13 01:12 | 显示全部楼层
可以用选股公式设置预警。
回复

使用道具 举报

发表于 2011-2-13 13:57 | 显示全部楼层
来学习,谢谢楼主
回复

使用道具 举报

发表于 2011-2-13 15:28 | 显示全部楼层
错误句 :  
VAR6:=IF(BARSTATUS=2,100*VAR1/VAR5,0)
详细信息 : 未知字符串 BARSTATUS
错误起始位置 : 295 ; 长度: 9
回复

使用道具 举报

发表于 2011-2-13 15:32 | 显示全部楼层
当前公式 : 动态买卖 (指标画线公式)  
错误句 :  
VAR6:=IF(BARSTATUS=2,100*VAR1/VAR5,0)
详细信息 : 未知字符串 BARSTATUS
错误起始位置 : 295 ; 长度: 9    楼主怎么弄呀。
回复

使用道具 举报

发表于 2011-2-13 15:45 | 显示全部楼层
当前公式 : 盘中选股 (指标画线公式)  
错误句 :  
VAR6:=IF(BARSTATUS=2,100*VAR1/VAR5,0)
详细信息 : 未知字符串 BARSTATUS
错误起始位置 : 295 ; 长度: 9
回复

使用道具 举报

发表于 2011-2-13 15:48 | 显示全部楼层
当前公式 : 盘中选股 (指标画线公式)  
错误句 :  
VAR6:=IF(BARSTATUS=2,100*VAR1/VAR5,0)
详细信息 : 未知字符串 BARSTATUS
错误起始位置 : 297 ; 长度: 9


以上是错误信息,通达信报的。
但是,选股公式,通达信能用。
回复

使用道具 举报

发表于 2011-2-13 15:49 | 显示全部楼层
看看是什么好东西
回复

使用道具 举报

发表于 2011-2-13 16:09 | 显示全部楼层
按照“应该是VAR6:=IF(BARSTATUS=2,100*VAR1/VAR5,0);“改了,结果还是有错误
回复

使用道具 举报

发表于 2011-2-13 16:22 | 显示全部楼层
谢谢分享!~~~
回复

使用道具 举报

发表于 2011-2-13 23:55 | 显示全部楼层
谢谢分享。
回复

使用道具 举报

发表于 2011-2-14 16:58 | 显示全部楼层
错误句 :  
VAR6:=IF(BARSTATUS=2,100*VAR1/VAR5,0)
详细信息 : 未知字符串 BARSTATUS
错误起始位置 : 299 ; 长度: 9
回复

使用道具 举报

发表于 2011-2-14 17:34 | 显示全部楼层
{M(88,1,300),N1(6,1,100);}
VAR0A:=EMA(EMA(EMA(CLOSE,2),2),2);
MA13MA(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);


    盘中选股(动态买卖)”
{M(88,1,300),N1(6,1,100);}
VAR0A:=EMA(EMA(EMA(CLOSE,2),2),2);
MA13MA(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);
{M(88,1,300),N1(6,1,100);}
VAR0A:=EMA(EMA(EMA(CLOSE,2),2),2);
MA13MA(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);
{M(88,1,300),N1(6,1,100);}
VAR0A:=EMA(EMA(EMA(CLOSE,2),2),2);
MA13MA(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);
回复

使用道具 举报

发表于 2011-2-14 19:20 | 显示全部楼层
学习。。。。。。。。
回复

使用道具 举报

发表于 2011-2-14 20:47 | 显示全部楼层
VARA:=REF(LOW,1);
VARB:=SMA(ABS(LOW-VARA),3,1)/SMA(MAX(LOW-VARA,0),3,1)*100;
VARC:=EMA(IF(CLOSE*1.3,VARB*10,VARB/10),3);
VARD:=LLV(LOW,30);
VARE:=HHV(VARC,30);
VARF:=IF(MA(CLOSE,58),1,0);
VARG:=EMA(IF(LOW<=VARD,(VARC+VARE*2)/2,0),3)/618*VARF;
VARH:=IF(VARG>28,28,VARG);
RSV:=(((CLOSE - LLV(LOW,9)) / (HHV(HIGH,9) - LLV(LOW,9))) * 100);
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
X:=LLV(J,2)=LLV(J,8);
大鹏买卖时机:=IF(CROSS(J,3),65,0);
STICKLINE(CROSS(J,3),50,0,3,0),LINETHICK2,COLORYELLOW;
DRAWTEXT(大鹏买卖时机,70.1,' 跟庄'),COLOR00FF00;
VA:=(2*C+H+L)/4;
VB:=LLV(L,5);
VC:=HHV(H,5);
红线上穿买:EMA((VA-VB)/(VC-VB)*100,5),COLORRED;
红线下穿卖:EMA(红线上穿买,3),COLORFFFF00;
趋势:=3*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1)-2*SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1),3,1),COLOR00FFFF;
大鹏买点: IF(趋势<=3,20,0),COLOR00FF00,LINETHICK3;
大鹏建仓: IF(趋势<5,40,0),COLORFFFFFF,LINETHICK3;
JJ :=(C*2+H+L)/4;
SK := EMA(JJ,13) - EMA(JJ,21);
SD := EMA(SK,3);
SP := EMA(SK,10);
大鹏长线1:IF(SD>=SP,SD,SP),LINETHICK1,COLORFFFFAA;
大鹏长线2:IF(SP-SD,SP,SD),LINETHICK1,COLORWHITE;
A1:=EMA(CLOSE,7)-EMA(CLOSE,21);
B1:=EMA((0.668*REF(A1,1)+0.333*A1),1);
短多:IF(A1>=B1,A1,B1),LINETHICK2,COLORLIMAGENTA;
短空:IF(B1-A1,B1,A1),LINETHICK1,COLORGREEN;
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver|手机版|小黑屋|股海明灯官网 ( 京ICP备18020431号 )

GMT+8, 2024-11-15 16:49 , Processed in 0.134837 second(s), Total 9, Slave 8 queries , Gzip On, MemCached On.

Powered by Discuz! X3.5

Copyright © 2001-2024 Tencent Cloud.

快速回复 返回顶部 返回列表