发新话题
打印

[通达信] 请高手把这个指标改成选股公式


请高手把这个指标改成选股公式

本文来自:理想论坛  www.55188.com     作者:伦布朗     点击558
原文:http://www.55188.com/viewthread.php?tid=2051145
请高手把下面指标中出现"强势"字样时改成选股公式,先谢谢了....原码如下


VAR1:=(VOL / (((HIGH - LOW) * 2) - ABS((CLOSE - OPEN))));
买盘:=IF((CLOSE > OPEN),(VAR1 * (HIGH - LOW)),IF((CLOSE < OPEN),(VAR1 * ((HIGH - OPEN) + (CLOSE - LOW))),(VOL / 2)));  
卖盘:=IF((CLOSE > OPEN),(0 - (VAR1 * ((HIGH - CLOSE) + (OPEN - LOW)))),IF((CLOSE < OPEN),(0 - (VAR1 * (HIGH - LOW))),(0 - (VOL / 2))));  
买卖差:=(买盘 + 卖盘);
STICKLINE((买卖差 < 0),0,买卖差,3,0),COLOR33FF33;
JX1:=BARSSINCE(买盘);  
JY1:=IF(((121 > JX1) AND (JX1 > 0)),JX1,120);  
JY2:=IF(((4 > JX1) AND (JX1 > 0)),JX1,3);  
VAR30:=MA(VOL,JY2);
神比:=(买盘 / VAR30);  
鬼比:=(卖盘 / VAR30);  
VAR2:=(HIGH - LOW);  
VAR3:=ABS((OPEN - CLOSE));  
VAR4:=(HIGH - IF((CLOSE > OPEN),CLOSE,OPEN));  
VAR5:=(IF((CLOSE > OPEN),OPEN,CLOSE) - LOW);  
VAR6:=((VAR3 / VAR2) * VOL);  
VAR7:=((VAR4 / VAR2) * VOL);  
VAR8:=((VAR5 / VAR2) * VOL);  
VAR9:=IF(((VOL / CAPITAL) > 0.001),1,EXP(ABS(LOG(((VOL / CAPITAL) * 100)))));  
VARA:=(((CLOSE - MA(CLOSE,5)) / MA(CLOSE,5)) * 100);  
VARB:=(((MA(CLOSE,5) > MA(CLOSE,10)) AND (MA(CLOSE,10) > MA(CLOSE,30))) AND (MA(CLOSE,30) > MA(CLOSE,60)));  VARC:=((MA(CLOSE,5) < MA(CLOSE,10)) AND (MA(CLOSE,10) < MA(CLOSE,30)));  
VARD:=REF(CLOSE,1);  
VARE:=((SMA(MAX((CLOSE - VARD),0),6,1) / SMA(ABS((CLOSE - VARD)),6,1)) * 100);
DRAWTEXT(((DATE > 700101) AND CROSS(84,VARE)),HIGH,'■卖出'),COLORF2A3A4;  
VAR40:=((IF((((VAR6 >= VAR7) AND (VAR6 >= VAR8)) AND (CLOSE > OPEN)),VAR6,买盘) + 买盘) / 2);  
VAR41:=((IF(((VAR7 > VAR6) AND (VAR7 > VAR8)),VAR7,买盘) + 买盘) / 2);  
VAR42:=((IF(((VAR8 > VAR6) AND (VAR8 > VAR7)),VAR8,买盘) + 买盘) / 2);  
VAR50:=((IF((((VAR6 >= VAR7) AND (VAR6 >= VAR8)) AND (CLOSE < OPEN)),VAR6,卖盘) + 卖盘) / 2);  
三日上攻:=MA((((VAR40 + VAR41) + VAR42) / 3),JY2);  
三日下攻:=MA(VAR50,JY2);  
多头:STICKLINE((CLOSE > MA(CLOSE,30)),0,VOL,3,1),COLOR0000FF;
空头:STICKLINE((CLOSE < MA(CLOSE,30)),0,VOL,3,1),COLOR00FF00;
STICKLINE((((VAR6 >= VAR7) AND (VAR6 >= VAR8)) AND (CLOSE > OPEN)),0,VAR6,2,0),COLOR00FFFF;
STICKLINE((((VAR6 >= VAR7) AND (VAR6 >= VAR8)) AND (CLOSE < OPEN)),0,VAR6,2,0),COLORFF0000;
STICKLINE(((VAR8 > VAR6) AND (VAR8 > VAR7)),0,VAR8,2,0),COLORFFFFFF;

STICKLINE(((VAR7 > VAR6) AND (VAR7 > VAR8)),0,VAR7,2,0),COLORFF00FF;
STICKLINE((VOL > (MA(VOL,5) * 2.5)),0,VOL,1,0);
STICKLINE((买盘 > 0),买盘,0,1,0),COLOR0000FF;
上攻均量:=MA(买盘,JY1);
下攻均量:=MA(卖盘,JY1);  
DRAWTEXT(((((((((VAR7 > VAR6) AND (VARA > 2)) AND (VAR9 > VAR8)) AND (CLOSE > MA(CLOSE,5))) AND (CLOSE > MA(CLOSE,30))) AND (HIGH > MA(CLOSE,60))) AND (VOL > MA(VOL,5))) AND (VAR7 >= MA(VOL,5))),VOL,'▼出货');
DRAWTEXT(((((((VAR8 > VAR6) AND (VAR8 > VAR7)) AND (VARA < (0 - 2))) AND (CLOSE < MA(CLOSE,30))) AND (VAR8 < (MA(VOL,5) / 2))) AND (MA(VOL,5) < MA(VOL,10))),VOL,'●低进');
DRAWTEXT((((((VAR6 > (MA(VOL,5) * 2)) AND (VAR6 >= VAR7)) AND (VAR6 >= VAR8)) AND (CLOSE > OPEN)) OR ((VOL > (MA(VOL,5) * 3)) AND VARB)),VOL,'◆强势');
HSL:=DYNAINFO(37);
DRAWTEXT((((VOL / REF((SUM(VOL,5) / 5),1)) >= 2) AND (HSL > 1)),(VOL * 1.1),'●量变'),COLOR00FFFF;

TOP

回复 楼主 的帖子

VAR1:=(VOL / (((HIGH - LOW) * 2) - ABS((CLOSE - OPEN))));
买盘:=IF((CLOSE > OPEN),(VAR1 * (HIGH - LOW)),IF((CLOSE < OPEN),(VAR1 * ((HIGH - OPEN) + (CLOSE - LOW))),(VOL / 2)));  
卖盘:=IF((CLOSE > OPEN),(0 - (VAR1 * ((HIGH - CLOSE) + (OPEN - LOW)))),IF((CLOSE < OPEN),(0 - (VAR1 * (HIGH - LOW))),(0 - (VOL / 2))));  
买卖差:=(买盘 + 卖盘);
STICKLINE((买卖差 < 0),0,买卖差,3,0),COLOR33FF33;
JX1:=BARSSINCE(买盘);  
JY1:=IF(((121 > JX1) AND (JX1 > 0)),JX1,120);  
JY2:=IF(((4 > JX1) AND (JX1 > 0)),JX1,3);  
VAR30:=MA(VOL,JY2);
神比:=(买盘 / VAR30);  
鬼比:=(卖盘 / VAR30);  
VAR2:=(HIGH - LOW);  
VAR3:=ABS((OPEN - CLOSE));  
VAR4:=(HIGH - IF((CLOSE > OPEN),CLOSE,OPEN));  
VAR5:=(IF((CLOSE > OPEN),OPEN,CLOSE) - LOW);  
VAR6:=((VAR3 / VAR2) * VOL);  
VAR7:=((VAR4 / VAR2) * VOL);  
VAR8:=((VAR5 / VAR2) * VOL);  
VAR9:=IF(((VOL / CAPITAL) > 0.001),1,EXP(ABS(LOG(((VOL / CAPITAL) * 100)))));  
VARA:=(((CLOSE - MA(CLOSE,5)) / MA(CLOSE,5)) * 100);  
VARB:=(((MA(CLOSE,5) > MA(CLOSE,10)) AND (MA(CLOSE,10) > MA(CLOSE,30))) AND (MA(CLOSE,30) > MA(CLOSE,60)));  VARC:=((MA(CLOSE,5) < MA(CLOSE,10)) AND (MA(CLOSE,10) < MA(CLOSE,30)));  
VARD:=REF(CLOSE,1);  
VARE:=((SMA(MAX((CLOSE - VARD),0),6,1) / SMA(ABS((CLOSE - VARD)),6,1)) * 100);
DRAWTEXT(((DATE > 700101) AND CROSS(84,VARE)),HIGH,'■卖出'),COLORF2A3A4;  
VAR40:=((IF((((VAR6 >= VAR7) AND (VAR6 >= VAR8)) AND (CLOSE > OPEN)),VAR6,买盘) + 买盘) / 2);  
VAR41:=((IF(((VAR7 > VAR6) AND (VAR7 > VAR8)),VAR7,买盘) + 买盘) / 2);  
VAR42:=((IF(((VAR8 > VAR6) AND (VAR8 > VAR7)),VAR8,买盘) + 买盘) / 2);  
VAR50:=((IF((((VAR6 >= VAR7) AND (VAR6 >= VAR8)) AND (CLOSE < OPEN)),VAR6,卖盘) + 卖盘) / 2);  
三日上攻:=MA((((VAR40 + VAR41) + VAR42) / 3),JY2);  
三日下攻:=MA(VAR50,JY2);  
多头:STICKLINE((CLOSE > MA(CLOSE,30)),0,VOL,3,1),COLOR0000FF;
空头:STICKLINE((CLOSE < MA(CLOSE,30)),0,VOL,3,1),COLOR00FF00;
STICKLINE((((VAR6 >= VAR7) AND (VAR6 >= VAR8)) AND (CLOSE > OPEN)),0,VAR6,2,0),COLOR00FFFF;
STICKLINE((((VAR6 >= VAR7) AND (VAR6 >= VAR8)) AND (CLOSE < OPEN)),0,VAR6,2,0),COLORFF0000;
STICKLINE(((VAR8 > VAR6) AND (VAR8 > VAR7)),0,VAR8,2,0),COLORFFFFFF;

STICKLINE(((VAR7 > VAR6) AND (VAR7 > VAR8)),0,VAR7,2,0),COLORFF00FF;
STICKLINE((VOL > (MA(VOL,5) * 2.5)),0,VOL,1,0);
STICKLINE((买盘 > 0),买盘,0,1,0),COLOR0000FF;
上攻均量:=MA(买盘,JY1);
下攻均量:=MA(卖盘,JY1);  
DRAWTEXT(((((((((VAR7 > VAR6) AND (VARA > 2)) AND (VAR9 > VAR8)) AND (CLOSE > MA(CLOSE,5))) AND (CLOSE > MA(CLOSE,30))) AND (HIGH > MA(CLOSE,60))) AND (VOL > MA(VOL,5))) AND (VAR7 >= MA(VOL,5))),VOL,'▼出货');
DRAWTEXT(((((((VAR8 > VAR6) AND (VAR8 > VAR7)) AND (VARA < (0 - 2))) AND (CLOSE < MA(CLOSE,30))) AND (VAR8 < (MA(VOL,5) / 2))) AND (MA(VOL,5) < MA(VOL,10))),VOL,'●低进');
DRAWTEXT((((((VAR6 > (MA(VOL,5) * 2)) AND (VAR6 >= VAR7)) AND (VAR6 >= VAR8)) AND (CLOSE > OPEN)) OR ((VOL > (MA(VOL,5) * 3)) AND VARB)),VOL,'◆强势');
HSL:=DYNAINFO(37);
DRAWTEXT((((VOL / REF((SUM(VOL,5) / 5),1)) >= 2) AND (HSL > 1)),(VOL * 1.1),'●量变'),COLOR00FFFF;
强势((((VAR6 > (MA(VOL,5) * 2)) AND (VAR6 >= VAR7)) AND (VAR6 >= VAR8)) AND (CLOSE > OPEN)) OR ((VOL > (MA(VOL,5) * 3)) AND VARB)));

TOP

VAR2:=(HIGH - LOW);  
VAR3:=ABS((OPEN - CLOSE));  
VAR4:=(HIGH - IF((CLOSE > OPEN),CLOSE,OPEN));  
VAR5:=(IF((CLOSE > OPEN),OPEN,CLOSE) - LOW);  
VAR6:=((VAR3 / VAR2) * VOL);  
VAR7:=((VAR4 / VAR2) * VOL);  
VAR8:=((VAR5 / VAR2) * VOL);  
VARB:=(((MA(CLOSE,5) > MA(CLOSE,10)) AND (MA(CLOSE,10) > MA(CLOSE,30))) AND (MA(CLOSE,30) > MA(CLOSE,60)));
强势:((((((VAR6 > (MA(VOL,5) * 2)) AND (VAR6 >= VAR7)) AND (VAR6 >= VAR8)) AND (CLOSE > OPEN)) OR ((VOL > (MA(VOL,5) * 3)) AND VARB)));

[ 本帖最后由 大庆老杨 于 2008-5-7 07:09 编辑 ]

TOP

同花顺能用吗?楼主

TOP

多谢刘建霖,加分。

TOP

引用:
原帖由 刘建霖 于 2008-5-6 21:28 发表
VAR2:=(HIGH - LOW);  
VAR3:=ABS((OPEN - CLOSE));  
VAR4:=(HIGH - IF((CLOSE > OPEN),CLOSE,OPEN));  
VAR5:=(IF((CLOSE > OPEN),OPEN,CLOSE) - LOW);  
VAR6:=((VAR3 / VAR2) * VOL);  
VAR7:=((VAR4 / VAR ...
谢谢二楼!!!没通过啊,怎么这样啊,我菜鸟一个,盼回复

当前公式 : 强势 (条件选股公式)  
错误句 :
强势((((VAR6 > (MA(VOL,5) * 2)) AND (VAR6 >= VAR7)) AND (VAR6 >= VAR8)) AND (CLOSE > OPEN)) OR ((VOL > (MA(VOL,5) * 3)) AND VARB)))
详细信息 :  
错误起始位置 : 338 ; 长度: 2

TOP

引用:
原帖由 红狸猫 于 2008-5-6 21:33 发表
同花顺能用吗?楼主
我没试过,你试下看看

TOP

在强势后面加上:“:”

TOP

引用:
原帖由 寒窗苦茶 于 2008-5-6 22:07 发表
在强势后面加上:“:”
加了冒号还是通不过

当前公式 : 强势 (条件选股公式)  
错误句 :
强势((VAR6 > (MA(VOL,5) * 2)) AND (VAR6 >= VAR7)) AND (VAR6 >= VAR8)) AND (CLOSE > OPEN)) OR ((VOL > (MA(VOL,5) * 3)) AND VARB)))
详细信息 :  
错误起始位置 : 338 ; 长度: 2

TOP

可以通过了,你试试看!注意:“强势:”

VAR2:=(HIGH - LOW);  
VAR3:=ABS((OPEN - CLOSE));  
VAR4:=(HIGH - IF((CLOSE > OPEN),CLOSE,OPEN));  
VAR5:=(IF((CLOSE > OPEN),OPEN,CLOSE) - LOW);  
VAR6:=((VAR3 / VAR2) * VOL);  
VAR7:=((VAR4 / VAR2) * VOL);  
VAR8:=((VAR5 / VAR2) * VOL);  
VARB:=(((MA(CLOSE,5) > MA(CLOSE,10)) AND (MA(CLOSE,10) > MA(CLOSE,30))) AND (MA(CLOSE,30) > MA(CLOSE,60)));

强势(((VAR6 > (MA(VOL,5) * 2)) AND (VAR6 >= VAR7)) AND (VAR6 >= VAR8))
AND (CLOSE > OPEN)) OR ((VOL > (MA(VOL,5) * 3)) AND VARB)),COLORYELLOW;

[ 本帖最后由 寒窗苦茶 于 2008-5-7 02:29 编辑 ]

TOP

试试这个!禁用Smilies。如果用做条件选股,去掉“强势”后的等号。
VAR1:=(VOL / (((HIGH - LOW) * 2) - ABS((CLOSE - OPEN))));
买盘:=IF((CLOSE > OPEN),(VAR1 * (HIGH - LOW)),IF((CLOSE < OPEN),(VAR1 * ((HIGH - OPEN) + (CLOSE - LOW))),(VOL / 2)));  
卖盘:=IF((CLOSE > OPEN),(0 - (VAR1 * ((HIGH - CLOSE) + (OPEN - LOW)))),IF((CLOSE < OPEN),(0 - (VAR1 * (HIGH - LOW))),(0 - (VOL / 2))));  
买卖差:=(买盘 + 卖盘);
STICKLINE((买卖差 < 0),0,买卖差,3,0),COLOR33FF33;
JX1:=BARSSINCE(买盘);  
JY1:=IF(((121 > JX1) AND (JX1 > 0)),JX1,120);  
JY2:=IF(((4 > JX1) AND (JX1 > 0)),JX1,3);  
VAR30:=MA(VOL,JY2);
神比:=(买盘 / VAR30);  
鬼比:=(卖盘 / VAR30);  
VAR2:=(HIGH - LOW);  
VAR3:=ABS((OPEN - CLOSE));  
VAR4:=(HIGH - IF((CLOSE > OPEN),CLOSE,OPEN));  
VAR5:=(IF((CLOSE > OPEN),OPEN,CLOSE) - LOW);  
VAR6:=((VAR3 / VAR2) * VOL);  
VAR7:=((VAR4 / VAR2) * VOL);  
VAR8:=((VAR5 / VAR2) * VOL);  
VAR9:=IF(((VOL / CAPITAL) > 0.001),1,EXP(ABS(LOG(((VOL / CAPITAL) * 100)))));  
VARA:=(((CLOSE - MA(CLOSE,5)) / MA(CLOSE,5)) * 100);  
VARB:=(((MA(CLOSE,5) > MA(CLOSE,10)) AND (MA(CLOSE,10) > MA(CLOSE,30))) AND (MA(CLOSE,30) > MA(CLOSE,60)));  VARC:=((MA(CLOSE,5) < MA(CLOSE,10)) AND (MA(CLOSE,10) < MA(CLOSE,30)));  
VARD:=REF(CLOSE,1);  
VARE:=((SMA(MAX((CLOSE - VARD),0),6,1) / SMA(ABS((CLOSE - VARD)),6,1)) * 100);
DRAWTEXT(((DATE > 700101) AND CROSS(84,VARE)),HIGH,'■卖出'),COLORF2A3A4;  
VAR40:=((IF((((VAR6 >= VAR7) AND (VAR6 >= VAR8)) AND (CLOSE > OPEN)),VAR6,买盘) + 买盘) / 2);  
VAR41:=((IF(((VAR7 > VAR6) AND (VAR7 > VAR8)),VAR7,买盘) + 买盘) / 2);  
VAR42:=((IF(((VAR8 > VAR6) AND (VAR8 > VAR7)),VAR8,买盘) + 买盘) / 2);  
VAR50:=((IF((((VAR6 >= VAR7) AND (VAR6 >= VAR8)) AND (CLOSE < OPEN)),VAR6,卖盘) + 卖盘) / 2);  
三日上攻:=MA((((VAR40 + VAR41) + VAR42) / 3),JY2);  
三日下攻:=MA(VAR50,JY2);  
多头:STICKLINE((CLOSE > MA(CLOSE,30)),0,VOL,3,1),COLOR0000FF;
空头:STICKLINE((CLOSE < MA(CLOSE,30)),0,VOL,3,1),COLOR00FF00;
STICKLINE((((VAR6 >= VAR7) AND (VAR6 >= VAR8)) AND (CLOSE > OPEN)),0,VAR6,2,0),COLOR00FFFF;
STICKLINE((((VAR6 >= VAR7) AND (VAR6 >= VAR8)) AND (CLOSE < OPEN)),0,VAR6,2,0),COLORFF0000;
STICKLINE(((VAR8 > VAR6) AND (VAR8 > VAR7)),0,VAR8,2,0),COLORFFFFFF;

STICKLINE(((VAR7 > VAR6) AND (VAR7 > VAR8)),0,VAR7,2,0),COLORFF00FF;
STICKLINE((VOL > (MA(VOL,5) * 2.5)),0,VOL,1,0);
STICKLINE((买盘 > 0),买盘,0,1,0),COLOR0000FF;
上攻均量:=MA(买盘,JY1);
下攻均量:=MA(卖盘,JY1);  
DRAWTEXT(((((((((VAR7 > VAR6) AND (VARA > 2)) AND (VAR9 > VAR8)) AND (CLOSE > MA(CLOSE,5))) AND (CLOSE > MA(CLOSE,30))) AND (HIGH > MA(CLOSE,60))) AND (VOL > MA(VOL,5))) AND (VAR7 >= MA(VOL,5))),VOL,'▼出货');
DRAWTEXT(((((((VAR8 > VAR6) AND (VAR8 > VAR7)) AND (VARA < (0 - 2))) AND (CLOSE < MA(CLOSE,30))) AND (VAR8 < (MA(VOL,5) / 2))) AND (MA(VOL,5) < MA(VOL,10))),VOL,'●低进');
DRAWTEXT((((((VAR6 > (MA(VOL,5) * 2)) AND (VAR6 >= VAR7)) AND (VAR6 >= VAR8)) AND (CLOSE > OPEN)) OR ((VOL > (MA(VOL,5) * 3)) AND VARB)),VOL,'◆强势');
HSL:=DYNAINFO(37);
DRAWTEXT((((VOL / REF((SUM(VOL,5) / 5),1)) >= 2) AND (HSL > 1)),(VOL * 1.1),'●量变'),COLOR00FFFF;
强势:=((((((VAR6 > (MA(VOL,5) * 2)) AND (VAR6 >= VAR7)) AND (VAR6 >= VAR8)) AND (CLOSE > OPEN)) OR ((VOL > (MA(VOL,5) * 3)) AND VARB)));

[ 本帖最后由 悟净斋 于 2008-5-7 05:58 编辑 ]

TOP

强势选股...............................

TOP

谢谢楼主分享!回帖是美德

TOP

发新话题

理想论坛上的网友发表的帖子纯属个人意见,理想论坛不负任何责任! 免责声明
信息产业部信息备案:津ICP备05011481号      天津市通信管理局电子公告专项备案:060006号
茂名市公安局网警备案:4409013011161号 感谢群英网络提供带宽支持
理想论坛值班电话[8:30~17:30]: 022-23707282  15022655188(紧急)
找密码1006267111; 实战区1006637222; 软件区1006648222; 降佣1006801999; 广告1006269111