关于几个量能平台指标，欢迎比较

wang_h1969 · 发表于 2009-11-3 10:57

关于几个量能平台指标，欢迎比较

来自：MACD论坛(bbs.shudaoyoufang.com) 作者：wang_h1969 浏览：13602 回复：21

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有帐号？立即注册

x

前不久，sisbee发了个量能平台指标。
觉得有创意，但总觉得有不足。于是自己在sisbee的基础上修改了2个，还是觉得不是很满意，指标毕竟比较机械，没人脑灵活。
现在一并发出来，请同学们比较一下哪个更好点，以期改进。
但绝对没有挑战sisbee的意思。只是想更好地改进指标。
贴图太费劲，所以不贴了，别指责我没贴图，如果觉得没意思，可以不看我的指标。请没图就觉得不舒服的朋友见谅！
欢迎提出建设性的改进意见，如果我觉得行，会进行改进，并将改进的指标发出来共享。

1、sisbee的
{双10+20日量能}
MA(C,3);
N:=10;
T1:=CONST(HHVBARS(V,N));
T0:IF(CURRBARSCOUNT<=N+3,CONST(IF(T1=0,C,REF(C,T1))),DRAWNULL),COLORFF00FF;
IF(CURRBARSCOUNT=T1+1,T0,DRAWNULL),CIRCLEDOT,COLORFF00FF;
DRAWTEXT(ISLASTBAR,T0,' 量能平台'),COLORCC00CC;

W:=20;
W1:=CONST(REF(HHVBARS(V,W),T1+1)+T1+1);
W0:IF(CURRBARSCOUNT<=T1+W+3 AND CURRBARSCOUNT>=T1+1,CONST(REF(C,W1)),DRAWNULL),COLOR009999;
IF(CURRBARSCOUNT=W1+1,W0,DRAWNULL),CIRCLEDOT,COLOR00CCCC;

M:=10;
Q1:=CONST(REF(HHVBARS(V,M),T1+1)+T1+1);
Q0:IF(CURRBARSCOUNT<=T1+M+3 AND CURRBARSCOUNT>=T1+1,CONST(REF(C,Q1)),DRAWNULL),COLOR009900;
IF(CURRBARSCOUNT=Q1+1,Q0,DRAWNULL),CIRCLEDOT,COLOR00CC00;

2、本人拙作之一

T65:=CONST(HHVBARS(V,65));
EP65:IF(CURRBARSCOUNT<=65+3,CONST(IF(T65=0,C,REF(C,T65))),DRAWNULL),COLOR4171FE;
T45:=CONST(HHVBARS(V,45));
EP45:IF(CURRBARSCOUNT<=45+3,CONST(IF(T45=0,C,REF(C,T45))),DRAWNULL),COLOR00ECEC;
T21:=CONST(HHVBARS(V,21));
EP21:IF(CURRBARSCOUNT<=21+3,CONST(IF(T21=0,C,REF(C,T21))),DRAWNULL),COLOR40FF00;
T10:=CONST(HHVBARS(V,10));
EP10:IF(CURRBARSCOUNT<=10+3,CONST(IF(T10=0,C,REF(C,T10))),DRAWNULL),COLORFEFEFE;
IF(CURRBARSCOUNT=T65+1,EP65,DRAWNULL),CIRCLEDOT,COLOR4171FE;
IF(CURRBARSCOUNT=T45+1,EP45,DRAWNULL),CIRCLEDOT,COLOR00ECEC;
IF(CURRBARSCOUNT=T21+1,EP21,DRAWNULL),CIRCLEDOT,COLOR40FF00;
IF(CURRBARSCOUNT=T10+1,EP10,DRAWNULL),CIRCLEDOT,COLORFEFEFE;

DRAWTEXT(CURRBARSCOUNT=65+3,EP65,'65'),COLOR4171FE;
DRAWTEXT(CURRBARSCOUNT=45+3,EP45,'45'),COLOR00ECEC;
DRAWTEXT(CURRBARSCOUNT=21+3,EP21,'21'),COLOR40FF00;
DRAWTEXT(CURRBARSCOUNT=10+3,EP10,'10'),COLORFEFEFE;

3、本人拙作之二

T10:=CONST(HHVBARS(V,10));
EP10:IF(CURRBARSCOUNT<=10+3,CONST(IF(T10=0,C,REF(C,T10))),DRAWNULL),COLORFEFEFE;
IF(CURRBARSCOUNT=T10+1,EP10,DRAWNULL),CIRCLEDOT,COLORFEFEFE;

T20→10:=CONST(REF(HHVBARS(V,10),10)+10);
EP20→10:IF(CURRBARSCOUNT<=20+3 AND CURRBARSCOUNT>=5,CONST(REF(C,T20→10)),DRAWNULL),COLOR009900;
IF(CURRBARSCOUNT=T20→10+1,EP20→10,DRAWNULL),CIRCLEDOT,COLOR00CC00;
T30→20:=CONST(REF(HHVBARS(V,10),20)+20);
EP30→20:IF(CURRBARSCOUNT<=30+3 AND CURRBARSCOUNT>=5,CONST(REF(C,T30→20)),DRAWNULL),COLOR009900;
IF(CURRBARSCOUNT=T30→20+1,EP30→20,DRAWNULL),CIRCLEDOT,COLOR00CC00;

T45→30:=CONST(REF(HHVBARS(V,15),30)+30);
EP45→30:IF(CURRBARSCOUNT<=45+3 AND CURRBARSCOUNT>=5,CONST(REF(C,T45→30)),DRAWNULL),COLOR009900;
IF(CURRBARSCOUNT=T45→30+1,EP45→30,DRAWNULL),CIRCLEDOT,COLOR00CC00;

T65→45:=CONST(REF(HHVBARS(V,20),45)+45);
EP65→45:IF(CURRBARSCOUNT<=65+3 AND CURRBARSCOUNT>=5,CONST(REF(C,T65→45)),DRAWNULL),COLOR009900;
IF(CURRBARSCOUNT=T65→45+1,EP65→45,DRAWNULL),CIRCLEDOT,COLOR00CC00;

[ 本帖最后由 wang_h1969 于 2009-11-3 11:21 编辑 ]

wang_h1969 · 发表于 2009-11-3 11:22

macd就这好，发图可以几张一气呵成。

浩申 · 发表于 2009-11-3 12:33

感谢楼主分享，*d:1*

浩申 · 发表于 2009-11-3 12:35

前不久，sisbee发了个量能平台指标。
觉得有创意，但总觉得有不足。于是自己在sisbee的基础上修改了2个，还是觉得不是很满意，指标毕竟比较机械，没人脑灵活。
现在一并发出来，请同学们比较一下哪个更好点，以期改进。
但绝对没有挑战sisbee的意思。只是想更好地改进指标。
贴图太费劲，所以不贴了，别指责我没贴图，如果觉得没意思，可以不看我的指标。请没图就觉得不舒服的朋友见谅！
欢迎提出建设性的改进意见，如果我觉得行，会进行改进，并将改进的指标发出来共享。

1、sisbee的
{双10+20日量能}
MA(C,3);
N:=10;
T1:=CONST(HHVBARS(V,N));
T0:IF(CURRBARSCOUNT<=N+3,CONST(IF(T1=0,C,REF(C,T1))),DRAWNULL),COLORFF00FF;
IF(CURRBARSCOUNT=T1+1,T0,DRAWNULL),CIRCLEDOT,COLORFF00FF;
DRAWTEXT(ISLASTBAR,T0,' 量能平台'),COLORCC00CC;

W:=20;
W1:=CONST(REF(HHVBARS(V,W),T1+1)+T1+1);
W0:IF(CURRBARSCOUNT<=T1+W+3 AND CURRBARSCOUNT>=T1+1,CONST(REF(C,W1)),DRAWNULL),COLOR009999;
IF(CURRBARSCOUNT=W1+1,W0,DRAWNULL),CIRCLEDOT,COLOR00CCCC;

M:=10;
Q1:=CONST(REF(HHVBARS(V,M),T1+1)+T1+1);
Q0:IF(CURRBARSCOUNT<=T1+M+3 AND CURRBARSCOUNT>=T1+1,CONST(REF(C,Q1)),DRAWNULL),COLOR009900;
IF(CURRBARSCOUNT=Q1+1,Q0,DRAWNULL),CIRCLEDOT,COLOR00CC00;

2、本人拙作之一

T65:=CONST(HHVBARS(V,65));
EP65:IF(CURRBARSCOUNT<=65+3,CONST(IF(T65=0,C,REF(C,T65))),DRAWNULL),COLOR4171FE;
T45:=CONST(HHVBARS(V,45));
EP45:IF(CURRBARSCOUNT<=45+3,CONST(IF(T45=0,C,REF(C,T45))),DRAWNULL),COLOR00ECEC;
T21:=CONST(HHVBARS(V,21));
EP21:IF(CURRBARSCOUNT<=21+3,CONST(IF(T21=0,C,REF(C,T21))),DRAWNULL),COLOR40FF00;
T10:=CONST(HHVBARS(V,10));
EP10:IF(CURRBARSCOUNT<=10+3,CONST(IF(T10=0,C,REF(C,T10))),DRAWNULL),COLORFEFEFE;
IF(CURRBARSCOUNT=T65+1,EP65,DRAWNULL),CIRCLEDOT,COLOR4171FE;
IF(CURRBARSCOUNT=T45+1,EP45,DRAWNULL),CIRCLEDOT,COLOR00ECEC;
IF(CURRBARSCOUNT=T21+1,EP21,DRAWNULL),CIRCLEDOT,COLOR40FF00;
IF(CURRBARSCOUNT=T10+1,EP10,DRAWNULL),CIRCLEDOT,COLORFEFEFE;

DRAWTEXT(CURRBARSCOUNT=65+3,EP65,'65'),COLOR4171FE;
DRAWTEXT(CURRBARSCOUNT=45+3,EP45,'45'),COLOR00ECEC;
DRAWTEXT(CURRBARSCOUNT=21+3,EP21,'21'),COLOR40FF00;
DRAWTEXT(CURRBARSCOUNT=10+3,EP10,'10'),COLORFEFEFE;

3、本人拙作之二

T10:=CONST(HHVBARS(V,10));
EP10:IF(CURRBARSCOUNT<=10+3,CONST(IF(T10=0,C,REF(C,T10))),DRAWNULL),COLORFEFEFE;
IF(CURRBARSCOUNT=T10+1,EP10,DRAWNULL),CIRCLEDOT,COLORFEFEFE;

T20→10:=CONST(REF(HHVBARS(V,10),10)+10);
EP20→10:IF(CURRBARSCOUNT<=20+3 AND CURRBARSCOUNT>=5,CONST(REF(C,T20→10)),DRAWNULL),COLOR009900;
IF(CURRBARSCOUNT=T20→10+1,EP20→10,DRAWNULL),CIRCLEDOT,COLOR00CC00;
T30→20:=CONST(REF(HHVBARS(V,10),20)+20);
EP30→20:IF(CURRBARSCOUNT<=30+3 AND CURRBARSCOUNT>=5,CONST(REF(C,T30→20)),DRAWNULL),COLOR009900;
IF(CURRBARSCOUNT=T30→20+1,EP30→20,DRAWNULL),CIRCLEDOT,COLOR00CC00;

T45→30:=CONST(REF(HHVBARS(V,15),30)+30);
EP45→30:IF(CURRBARSCOUNT<=45+3 AND CURRBARSCOUNT>=5,CONST(REF(C,T45→30)),DRAWNULL),COLOR009900;
IF(CURRBARSCOUNT=T45→30+1,EP45→30,DRAWNULL),CIRCLEDOT,COLOR00CC00;

T65→45:=CONST(REF(HHVBARS(V,20),45)+45);
EP65→45:IF(CURRBARSCOUNT<=65+3 AND CURRBARSCOUNT>=5,CONST(REF(C,T65→45)),DRAWNULL),COLOR009900;
IF(CURRBARSCOUNT=T65→45+1,EP65→45,DRAWNULL),CIRCLEDOT,COLOR00CC00;

////////
抽空比较一下，谢谢分享！

wang_h1969 · 发表于 2009-11-3 13:02

我觉得最后一张好些，我已经定稿。
T10:=CONST(HHVBARS(V,10));
EP10:IF(CURRBARSCOUNT<=10+3,CONST(IF(T10=0,C,REF(C,T10))),DRAWNULL),COLORDDDDDD;
T20→10:=CONST(REF(HHVBARS(V,10),10)+10);
EP20→10:IF(CURRBARSCOUNT<=20+3 ,CONST(REF(C,T20→10)),DRAWNULL),COLOR22DF30;
T30→20:=CONST(REF(HHVBARS(V,10),20)+20);
EP30→20:IF(CURRBARSCOUNT<=30+3 ,CONST(REF(C,T30→20)),DRAWNULL),COLORE9A95A;

T45→30:=CONST(REF(HHVBARS(V,15),30)+30);
EP45→30:IF(CURRBARSCOUNT<=45+3 ,CONST(REF(C,T45→30)),DRAWNULL),COLOR00ECEC;

T65→45:=CONST(REF(HHVBARS(V,20),45)+45);
EP65→45:IF(CURRBARSCOUNT<=65+3 ,CONST(REF(C,T65→45)),DRAWNULL),COLOR4171FE;

IF(CURRBARSCOUNT=T10+1,EP10,DRAWNULL),CIRCLEDOT,COLORDDDDDD;
IF(CURRBARSCOUNT=T20→10+1,EP20→10,DRAWNULL),CIRCLEDOT,COLOR22DF30;
IF(CURRBARSCOUNT=T30→20+1,EP30→20,DRAWNULL),CIRCLEDOT,COLORE9A95A;
IF(CURRBARSCOUNT=T45→30+1,EP45→30,DRAWNULL),CIRCLEDOT,COLOR00ECEC;
IF(CURRBARSCOUNT=T65→45+1,EP65→45,DRAWNULL),CIRCLEDOT,COLOR4171FE;
DRAWTEXT(ISLASTBAR,EP10,'EP10'),COLORDDDDDD;
DRAWTEXT(CURRBARSCOUNT=5,EP20→10,'EP20→10'),COLOR22DF30;
DRAWTEXT(CURRBARSCOUNT=5,EP30→20,'EP30→20'),COLORE9A95A;
DRAWTEXT(CURRBARSCOUNT=5,EP45→30,'EP45→30'),COLOR00ECEC;
DRAWTEXT(CURRBARSCOUNT=5,EP65→45,'EP65→45'),COLOR4171FE;

[ 本帖最后由 wang_h1969 于 2009-11-3 15:02 编辑 ]

小牛变大 · 发表于 2009-11-3 13:17

谢谢无私奉献，:)

woody188 · 发表于 2009-11-3 15:58

对通达信不熟悉，还请高手改成飞狐，谢谢啊！

135811 · 发表于 2009-11-3 22:43

:) :) :) b:b b:b b:b

梵心 · 发表于 2009-11-4 19:46

谢谢分享.............

防守800 · 发表于 2009-11-4 21:59

谢谢分享.............

谢谢分享.............

tdyj · 发表于 2009-11-4 23:09

不是很明白，先用用再说，谢了！

310702 · 发表于 2009-11-5 08:01

量能平台突破，谢谢分享

太公 · 发表于 2009-11-5 08:25

T10:=CONST(HHVBARS(V,10));
EP10:IF(CURRBARSCOUNT<=10+3,CONST(IF(T10=0,C,REF(C,T10))),DRAWNULL),COLORDDDDDD;
T20→10:=CONST(REF(HHVBARS(V,10),10)+10);
EP20→10:IF(CURRBARSCOUNT<=20+3 ,CONST(REF(C,T20→10)),DRAWNULL),COLOR22DF30;
T30→20:=CONST(REF(HHVBARS(V,10),20)+20);
EP30→20:IF(CURRBARSCOUNT<=30+3 ,CONST(REF(C,T30→20)),DRAWNULL),COLORE9A95A;

T45→30:=CONST(REF(HHVBARS(V,15),30)+30);
EP45→30:IF(CURRBARSCOUNT<=45+3 ,CONST(REF(C,T45→30)),DRAWNULL),COLOR00ECEC;

T65→45:=CONST(REF(HHVBARS(V,20),45)+45);
EP65→45:IF(CURRBARSCOUNT<=65+3 ,CONST(REF(C,T65→45)),DRAWNULL),COLOR4171FE;

IF(CURRBARSCOUNT=T10+1,EP10,DRAWNULL),CIRCLEDOT,COLORDDDDDD;
IF(CURRBARSCOUNT=T20→10+1,EP20→10,DRAWNULL),CIRCLEDOT,COLOR22DF30;
IF(CURRBARSCOUNT=T30→20+1,EP30→20,DRAWNULL),CIRCLEDOT,COLORE9A95A;
IF(CURRBARSCOUNT=T45→30+1,EP45→30,DRAWNULL),CIRCLEDOT,COLOR00ECEC;
IF(CURRBARSCOUNT=T65→45+1,EP65→45,DRAWNULL),CIRCLEDOT,COLOR4171FE;
DRAWTEXT(ISLASTBAR,EP10,'EP10'),COLORDDDDDD;
DRAWTEXT(CURRBARSCOUNT=5,EP20→10,'EP20→10'),COLOR22DF30;
DRAWTEXT(CURRBARSCOUNT=5,EP30→20,'EP30→20'),COLORE9A95A;
DRAWTEXT(CURRBARSCOUNT=5,EP45→30,'EP45→30'),COLOR00ECEC;
DRAWTEXT(CURRBARSCOUNT=5,EP65→45,'EP65→45'),COLOR4171FE;
*d:1*

xmlks · 发表于 2009-11-5 10:32

*d:1* *d:1*

lidayun · 发表于 2009-11-5 22:52

*d:1* *d:1*

nian333 · 发表于 2009-11-14 21:29

留个脚印等会看。

Tjia0 · 发表于 2009-11-16 09:31

量能平台不对

135811 · 发表于 2009-11-20 21:11

原帖由 Tjia0 于 2009-11-16 09:31 发表
量能平台不对

#loveliness# 能谈一谈原因吗？？？#*31*#

挣够生活费 · 发表于 2009-11-20 23:48

我对附图的要敢兴趣些，可以分享下吗？？、

顺其自然678 · 发表于 2010-3-22 19:23

量能平台突破，谢谢分享
#bb#

		搜索
热搜: macd K线与均线飞狐分时指标共振指标分时橡胶牛股炒股入门