您现在的位置:程序化交易>> 股票公式>> 通达信>> 通达信公式>>正文内容

DMI背离副图指标公式[通达信公式]

相关标签:

 

原理解析:

N赋值:21
M赋值:6
M1赋值:20
TR1赋值:最高价-最低价和最高价-1日前的收盘价的绝对值的较大值和1日前的收盘价-最低价的绝对值的较大值的N日指数移动平均
赋值:最高价-1日前的最高价
赋值:1日前的最低价-最低价
DMP赋值:如果HD>0ANDHD>LD,返回HD,否则返回0的N日指数移动平均
DMM赋值:如果LD>0ANDLD>HD,返回LD,否则返回0的N日指数移动平均
PDI赋值: DMP*100/TR1
MDI赋值: DMM*100/TR1
输出ADX: (PDI-MDI)/(MDI+PDI)*100的M日指数移动平均*2
输出ADXR:ADX的M日指数移动平均
输出ADMA:ADX的M1日指数移动平均
输出OMD:(ADX-2*ADMA+ADXR)/2, COLORSTICK
画带状线
当满足条件OMD>1日前的OMDANDOMD>0时,在0和OMD位置之间画柱状线,宽度为1,0不为0则画空心柱.,画红色
当满足条件OMD>1日前的OMDANDOMD<0时,在0和OMD位置之间画柱状线,宽度为1,0不为0则画空心柱.,画绿色
当满足条件OMD<1日前的OMD时,在0和OMD位置之间画柱状线,宽度为1,0不为0则画空心柱.,COLORCBCBC0
当满足条件OMD>=0OROMD<=0时,在0和0位置之间画柱状线,宽度为50,1不为0则画空心柱.,画白色
输出ADX1:ADX,画红色
输出ADXR1:ADXR,画绿色
输出ADMA1:ADMA
输出强:如果ADX1>=ADXR1,返回ADX1,否则返回无效数,画红色,线宽为3
输出买入:如果OMD>0ANDOMD-1日前的OMD>0,返回30,否则返回0
A1赋值:上次1日前的ADX上穿ADXR距今天数
B1赋值:A1+1日前的收盘价>收盘价 AND A1+1日前的ADXR<ADXR AND ADX上穿ADXR
当满足条件B1>0时,在ADX-0.1位置书写文字,COLORFF00FF
当满足条件B1时,在0和ADX位置之间画柱状线,宽度为0.5,0不为0则画空心柱.,COLOR0000FF
C1赋值:上次1日前的ADXR上穿ADX距今天数
D1赋值:C1+1日前的收盘价<收盘价 AND C1+1日前的ADX>ADX AND ADXR上穿ADX
当满足条件D1>0时,在ADX+0.1位置书写文字,COLOR00FF00
当满足条件D1时,在0和ADX位置之间画柱状线,宽度为0.5,0不为0则画空心柱.,COLOR00FFFF
110
0
-110
 

源码:

 

N:=21;M:=6;M1:=20;
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((PDI-MDI)/(MDI+PDI)*100,M)*2;
ADXR:EMA(ADX,M);
ADMA:EMA(ADX,M1);
OMD:(ADX-2*ADMA+ADXR)/2, COLORSTICK;
DRAWBAND(ADX,RGB(155,50,50),ADXR,RGB(0,100,50));
STICKLINE(OMD>REF(OMD,1) AND OMD>0,0,OMD,1,0),COLORRED;
STICKLINE(OMD>REF(OMD,1) AND OMD<0,0,OMD,1,0),COLORGREEN;
STICKLINE(OMD<REF(OMD,1),0,OMD,1,0),COLORCBCBC0;
STICKLINE(OMD>=0 OR OMD<=0,0,0,50,1),COLORWHITE;
ADX1:ADX,COLORRED;
ADXR1:ADXR,COLORGREEN;
ADMA1:ADMA;
强:IF(ADX1>=ADXR1,ADX1,DRAWNULL),COLORRED,LINETHICK3;
买入:IF(OMD>0 AND OMD-REF(OMD,1)>0,30,0);
A1:=BARSLAST(REF(CROSS(ADX,ADXR),1));
B1:=REF(C,A1+1)>C AND REF(ADXR,A1+1)<ADXR AND CROSS(ADX,ADXR);
DRAWTEXT(B1>0,ADX-0.1,'底背离'),COLORFF00FF;
STICKLINE(B1,0,ADX,0.5,0),COLOR0000FF;
C1:=BARSLAST(REF(CROSS(ADXR,ADX),1));
D1:=REF(C,C1+1)<C AND REF(ADX,C1+1)>ADX AND CROSS(ADXR,ADX);
DRAWTEXT(D1> 0,ADX+0.1,'顶背离'),COLOR00FF00;
STICKLINE(D1,0,ADX,0.5,0),COLOR00FFFF;
110;
0;
-110;

 

公式导入教程: 【通达信公式源码导入方法教程】 【同花顺公式源码导入方法教程】 【大智慧新一代公式源码导入方法教程

 

 

有思路,想编写各种指标公式,交易模型,选股公式,还原公式的朋友

可联系技术人员 QQ: 262069696  点击在线交流或微信:cxhjy888 进行 有偿收费 编写!(注:由于人数限制,QQ或微信请选择方便的一个联系我们就行,加好友时请简单备注下您的需求,否则无法通过。谢谢您!)

怎么收费,代编流程等详情请点击查阅!

(注:由于人数限制,QQ或微信请选择方便的一个联系我们就行,加好友时请简单备注下您的需求,否则无法通过。谢谢您!)

 


【字体: 】【打印文章】【查看评论

相关文章

    没有相关内容