[通达信] 精典之极-------DMI今天是元宵节,总想发表些什么,就把研究多年、实战之用的精典指标用法贡献了,祝各位元宵快乐,新的一年投资顺利,也祝创幻更加兴隆,越办越好。
N1:=21; LC:=REF(CLOSE,1); RSI1:SMA(MAX(CLOSE-LC,0),N1,1)/SMA(ABS(CLOSE-LC),N1,1)*100,COLORFF0000; IF(RSI1>53,RSI1,DRAWNULL),COLORRED,LINETHICK1; DRAWICON(CROSS(RSI1,53),53-1,11); TR:=EXPMEMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(REF(CLOSE,1)-LOW)),N); HD :=HIGH-REF(HIGH,1); LD :=REF(LOW,1)-LOW; DMP:=EXPMEMA(IF(HD>0&&HD>LD,HD,0),N); DMM:=EXPMEMA(IF(LD>0&&LD>HD,LD,0),N); PDI: DMP*100/TR,COLORFFFFFF; MDI: DMM*100/TR,COLOR00FFFF; ADX: EXPMEMA(ABS(MDI-PDI)/(MDI+PDI)*100,M),COLOR0000FF,LINETHICK2; ADXR:EXPMEMA(ADX,M),COLOR00FF00,LINETHICK2; {一,MDI必须在下方,PDI在下方无效,二、PDI趋势向上。三、必须在PDI及MDI中间金叉 } T1:=CROSS(ADX,ADXR) AND PDI>MDI AND PDI>REF(PDI,1) AND BETWEEN(ADXR,MDI,PDI) AND ADX>REF(ADX,1) AND ADXR>REF(ADXR,1); DRAWICON(T1,ADXR,1); {ADX ADXI同时上穿MDI } T2:=CROSS(ADX,MDI) AND CROSS(ADXR,MDI) AND PDI>MDI; DRAWICON(T2,MDI,17); 二选股公式如下 TR:=EXPMEMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(REF(CLOSE,1)-LOW)),N); HD :=HIGH-REF(HIGH,1); LD :=REF(LOW,1)-LOW; DMP:=EXPMEMA(IF(HD>0&&HD>LD,HD,0),N); DMM:=EXPMEMA(IF(LD>0&&LD>HD,LD,0),N); PDI:= DMP*100/TR,COLORFFFFFF; MDI:= DMM*100/TR,COLOR00FFFF; ADX:= EXPMEMA(ABS(MDI-PDI)/(MDI+PDI)*100,M),COLOR0000FF,LINETHICK2; ADXR:=EXPMEMA(ADX,M),COLOR00FF00,LINETHICK2; {一,MDI必须在下方,PDI在下方无效,二、PDI趋势向上。三、必须在PDI及MDI中间金叉 } DYNAINFO(9)>0 AND CROSS(ADX,ADXR) AND PDI>MDI AND PDI>REF(PDI,1) AND BETWEEN(ADXR,MDI,PDI) AND ADX>REF(ADX,1) AND ADXR>REF(ADXR,1); TR:=EXPMEMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(REF(CLOSE,1)-LOW)),N); HD :=HIGH-REF(HIGH,1); LD :=REF(LOW,1)-LOW; DMP:=EXPMEMA(IF(HD>0&&HD>LD,HD,0),N); DMM:=EXPMEMA(IF(LD>0&&LD>HD,LD,0),N); PDI:= DMP*100/TR,COLORFFFFFF; MDI:= DMM*100/TR,COLOR00FFFF; ADX:= EXPMEMA(ABS(MDI-PDI)/(MDI+PDI)*100,M),COLOR0000FF,LINETHICK2; ADXR:=EXPMEMA(ADX,M),COLOR00FF00,LINETHICK2; DYNAINFO(9)>0 AND CROSS(ADX,MDI) AND CROSS(ADXR,MDI) AND PDI>MDI; 飞狐公式在69搂及72楼,由zyyz_2002改编及提供,在此特别鸣谢! 大智慧LEVEL2在78楼及81楼,由zyyz_2002改编及提供,在此特别鸣谢!
n14 m6
[ 本帖最后由 飞翔1 于 2010-3-1 08:02 编辑 ]
69楼
N:=14;
M:=6; N1:=21; LC:=REF(CLOSE,1); RSI1:SMA(MAX(CLOSE-LC,0),N1,1)/SMA(ABS(CLOSE-LC),N1,1)*100,COLORFF0000; PARTLINE(RSI1>53,RSI1),COLORRED,LINETHICK1; DRAWICON(CROSS(RSI1,53),53-1,11); TR1:=EMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(REF(CLOSE,1)-LOW)),N); HD :=HIGH-REF(HIGH,1); LD :=REF(LOW,1)-LOW; DMP:=EMA(IF(HD>0&&HD>LD,HD,0),N); DMM:=EMA(IF(LD>0&&LD>HD,LD,0),N); PDI: DMP*100/TR1,COLORFFFFFF; MDI: DMM*100/TR1,COLOR00FFFF; ADX: EMA(ABS(MDI-PDI)/(MDI+PDI)*100,M),COLOR0000FF,LINETHICK2; ADXR:EMA(ADX,M),COLOR00FF00,LINETHICK2; {一,MDI必须在下方,PDI在下方无效,二、PDI趋势向上。三、必须在PDI及MDI中间金叉 } T1:=CROSS(ADX,ADXR) AND PDI>MDI AND PDI>REF(PDI,1) AND BETWEEN(ADXR,MDI,PDI) AND ADX>REF(ADX,1) AND ADXR>REF(ADXR,1); DRAWICON(T1,ADXR,1); {ADX ADXI同时上穿MDI } T2:=CROSS(ADX,MDI) AND CROSS(ADXR,MDI) AND PDI>MDI; DRAWICON(T2,MDI,4); 以上飞狐的附图公式,选股公式我再改。 [ 本帖最后由 zyyz_2002 于 2010-2-28 23:15 编辑 ] 72楼 以下为飞狐两个选股公式。有果果的帮我加点哦。哈哈哈
N:=14; M:=6; TR1:=EMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(REF(CLOSE,1)-LOW)),N); HD :=HIGH-REF(HIGH,1); LD :=REF(LOW,1)-LOW; DMP:=EMA(IF(HD>0&&HD>LD,HD,0),N); DMM:=EMA(IF(LD>0&&LD>HD,LD,0),N); PDI:= DMP*100/TR1,COLORFFFFFF; MDI:= DMM*100/TR1,COLOR00FFFF; ADX:= EMA(ABS(MDI-PDI)/(MDI+PDI)*100,M),COLOR0000FF,LINETHICK2; ADXR:=EMA(ADX,M),COLOR00FF00,LINETHICK2; {一,MDI必须在下方,PDI在下方无效,二、PDI趋势向上。三、必须在PDI及MDI中间金叉 } DYNAINFO(9)>0 AND CROSS(ADX,ADXR) AND PDI>MDI AND PDI>REF(PDI,1) AND BETWEEN(ADXR,MDI,PDI) AND ADX>REF(ADX,1) AND ADXR>REF(ADXR,1); N:=14; M:=6; TR1:=EMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(REF(CLOSE,1)-LOW)),N); HD :=HIGH-REF(HIGH,1); LD :=REF(LOW,1)-LOW; DMP:=EMA(IF(HD>0&&HD>LD,HD,0),N); DMM:=EMA(IF(LD>0&&LD>HD,LD,0),N); PDI:= DMP*100/TR1,COLORFFFFFF; MDI:= DMM*100/TR1,COLOR00FFFF; ADX:= EMA(ABS(MDI-PDI)/(MDI+PDI)*100,M),COLOR0000FF,LINETHICK2; ADXR:=EMA(ADX,M),COLOR00FF00,LINETHICK2; DYNAINFO(9)>0 AND CROSS(ADX,MDI) AND CROSS(ADXR,MDI) AND PDI>MDI; [ 本帖最后由 zyyz_2002 于 2010-2-28 23:12 编辑 ] 78楼以下是大智慧LEVEL2的副图:
N:=14; M:=6; N1:=21; LC:=REF(CLOSE,1); RSI1:SMA(MAX(CLOSE-LC,0),N1,1)/SMA(ABS(CLOSE-LC),N1,1)*100,COLORFF0000; PARTLINE(RSI1>53,RSI1),COLORRED,LINETHICK1; DRAWICON(CROSS(RSI1,53),53-1,11); TR:=EMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(REF(CLOSE,1)-LOW)),N); HD :=HIGH-REF(HIGH,1); LD :=REF(LOW,1)-LOW; DMP:=EMA(IF(HD>0 and HD>LD,HD,0),N); DMM:=EMA(IF(LD>0 and LD>HD,LD,0),N); PDI: DMP*100/TR,COLORFFFFFF; MDI: DMM*100/TR,COLOR00FFFF; ADX: EMA(ABS(MDI-PDI)/(MDI+PDI)*100,M),COLOR0000FF,LINETHICK2; ADXR:EMA(ADX,M),COLOR00FF00,LINETHICK2; {一,MDI必须在下方,PDI在下方无效,二、PDI趋势向上。三、必须在PDI及MDI中间金叉 } T1:=CROSS(ADX,ADXR) AND PDI>MDI AND PDI>REF(PDI,1) AND BETWEEN(ADXR,MDI,PDI) AND ADX>REF(ADX,1) AND ADXR>REF(ADXR,1); DRAWICON(T1,ADXR,1); {ADX ADXI同时上穿MDI } T2:=CROSS(ADX,MDI) AND CROSS(ADXR,MDI) AND PDI>MDI; DRAWICON(T2,MDI,5); [ 本帖最后由 zyyz_2002 于 2010-2-28 23:17 编辑 ] 81楼以下是大智慧LEVEL2 两个选股公式
N:=14; M:=6; TR1:=EMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(REF(CLOSE,1)-LOW)),N); HD :=HIGH-REF(HIGH,1); LD :=REF(LOW,1)-LOW; DMP:=EMA(IF(HD>0 AND HD>LD,HD,0),N); DMM:=EMA(IF(LD>0 AND LD>HD,LD,0),N); PDI:= DMP*100/TR1; MDI:= DMM*100/TR1; ADX:= EMA(ABS(MDI-PDI)/(MDI+PDI)*100,M); ADXR:=EMA(ADX,M); {一,MDI必须在下方,PDI在下方无效,二、PDI趋势向上。三、必须在PDI及MDI中间金叉 } DYNAINFO(9)>0 AND CROSS(ADX,ADXR) AND PDI>MDI AND PDI>REF(PDI,1) AND BETWEEN(ADXR,MDI,PDI) AND ADX>REF(ADX,1) AND ADXR>REF(ADXR,1); N:=14; M:=6; TR:=EMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(REF(CLOSE,1)-LOW)),N); HD :=HIGH-REF(HIGH,1); LD :=REF(LOW,1)-LOW; DMP:=EMA(IF(HD>0 AND HD>LD,HD,0),N); DMM:=EMA(IF(LD>0 AND LD>HD,LD,0),N); PDI:= DMP*100/TR; MDI:= DMM*100/TR; ADX:= EMA(ABS(MDI-PDI)/(MDI+PDI)*100,M); ADXR:=EMA(ADX,M); DYNAINFO(9)>0 AND CROSS(ADX,MDI) AND CROSS(ADXR,MDI) AND PDI>MDI;
看对了吗?谢谢!
还有600825 新华传媒 09.12.31日。 [ 本帖最后由 梦大小姐 于 2010-3-1 01:25 编辑 ] 感谢飞翔
为论坛提倡的分享精神所做的再次奉献 也对公式说下看法: 1.地量是最早的信号-------对立柱量及现在的DMI都是提前的 2.DMI的选股早已有此理念. 3.公式死的,人是活的,选股条件会限制了你肉眼自己看到的股,例如:601107 [ 本帖最后由 阿抄伯 于 2010-3-14 18:30 编辑 ] |
飞翔的精典之极DMI
特别重申:本篇文档资料为 “好网角收藏夹” 注册用户(收藏家)上传共享,仅供参考之用,请谨慎辨别,不代表本站任何观点。
好网角收藏夹为网友提供资料整理云存储服务,仅提供信息存储共享平台。
如发现不良信息删除、涉嫌侵权,请 点击这里举报 ,或发送邮件到:dongye2016qq.com。
如发现不良信息删除、涉嫌侵权,请 点击这里举报 ,或发送邮件到:dongye2016qq.com。