您的位置：360文档中心› 自动画MACD背离线通达信指标公式源码

自动画MACD背离线通达信指标公式源码

合集下载

MACD完美波段通达信指标公式源码

MACD完美波段通达信指标公式源码

MACD完美波段通达信指标公式源码通达信是一种股票分析软件，可以对股票进行技术分析，并提供一些指标来判断股票的走势。

MACD（Moving Average Convergence Divergence）是一种常用的股票技术指标，用于确定股票价格的趋势和可能的转折点。

以下是通达信中计算MACD指标的公式源码。

#定义MACD函数def MACD(close, fastPeriod=12, slowPeriod=26,signalPeriod=9):#计算快速移动平均线ema_fast = EMA(close, fastPeriod)#计算慢速移动平均线ema_slow = EMA(close, slowPeriod)#计算DIF（差离值）dif = ema_fast - ema_slow#计算DEA（信号线）dea = EMA(dif, signalPeriod)#计算MACD（柱状线）macd = (dif - dea) * 2return dif, dea, macd#计算移动平均线def EMA(close, period):ema = [0] * len(close)ema[period-1] = sum(close[:period]) / periodfor i in range(period, len(close)):ema[i] = ((2 / (period + 1)) * close[i]) + ((1 - (2 / (period + 1))) * ema[i-1])return ema#示例用法close = [10, 12, 14, 16, 18, 20, 22, 24, 26, 28]dif, dea, macd = MACD(close)print("DIF:", dif)print("DEA:", dea)print("MACD:", macd)在上面的代码中，我们首先定义了一个MACD函数，接受一个收盘价的列表作为参数，以及可选的快速移动平均线期间、慢速移动平均线期间、信号线期间参数，默认值分别为12、26、9、然后，在MACD函数中，我们调用了一个EMA函数来计算移动平均线的值。

自动画MACD背离线通达信指标公式源码

自动画MACD背离线通达信指标公式源码

自动画MACD背离线通达信指标公式源码以下是通达信软件中计算MACD背离指标的源码：```/*功能：计算MACD背离线指标公式：当股价形成新高而MACD指标不形成新高时，出现向下背离当股价形成新低而MACD指标不形成新低时，出现向上背离参数：无返回值：无*/indicator fn_DEVIATION_MACDMA1:=EMA(CLOSE,12);MA2:=EMA(CLOSE,26);DIFF:=MA1-MA2;DEA:=EMA(DIFF,9);MACD:=2*(DIFF-DEA);PeakArr:=[];TroughArr:=[];PeakCount:=0;TroughCount:=0;//寻找股价的峰值和谷底Loop:=BARSSINCE(HIGHESTBARS(HIGH,9)) + 1;FOR i FROM Loop TO BARCOUNT-1BEGINIFHIGH[i]>REF(HIGH,1)[i]ANDHIGH[i]>HIGH[i+1]THENBEGINPeakCount := PeakCount + 1;PeakArr[PeakCount] := i;END;IFLOW[i]<REF(LOW,1)[i]ANDLOW[i]<LOW[i+1]THENBEGINTroughCount := TroughCount + 1;TroughArr[TroughCount] := i;END;END;//判断是否存在背离BEARTrend := IF(REF(MACD,1) > REF(MACD,2),1,-1); // 1表示下跌趋势，-1表示上涨趋势PeakPos := 0;TroughPos := 0;Signal := "";FOR i FROM 1 TO MIN(PeakCount, TroughCount) BEGINIF BEARTrend = 1 THENBEGINIF HIGH[PeakArr[i]] > HIGH[PeakArr[i-1]] THEN BEGINIF LOW[TroughArr[i]] > LOW[TroughArr[i-1]] THEN BEGINPeakPos := PeakArr[i];TroughPos := TroughArr[i];Signal := "向下背离";BREAK;END;END;END;ELSE IF BEARTrend = -1 THENBEGINIF HIGH[PeakArr[i]] < HIGH[PeakArr[i-1]] THENBEGINIF LOW[TroughArr[i]] < LOW[TroughArr[i-1]] THENBEGINPeakPos := PeakArr[i];TroughPos := TroughArr[i];Signal := "向上背离";BREAK;END;END;END;END;//输出背离信号IF PeakPos > 0 AND TroughPos > 0 THENBEGINDRAWICON(PeakPos, HIGH[PeakPos], CONCAT(Signal, "顶背离"),IC_TRIANGLE, 0, RED);DRAWICON(TroughPos, LOW[TroughPos], CONCAT(Signal, "底背离"), IC_TRIANGLE, 1, GREEN);END;//返回背离信号位置RETURN PeakPos, TroughPos;```以上代码使用通达信魔法公式语言编写，通过计算MACD指标的DIF、DEA、MACD三个值，并寻找股价的峰值和谷底来判断是否存在背离信号。

通达信指标公式源码背离准确率100%

通达信指标公式源码背离准确率100%

背离准确率100%N:=60;K值:="KDJ.K";DD:=C=LLV(C,N);{60日最低点}DDSJ:=BARSLAST(REF(DD,1));{上一低点时间}DDGJ:=REF(CLOSE,DDSJ+1)>CLOSE;KDZB:=REF(K值,DDSJ+1);K底背离:=DDGJ AND KDZB;GD:=C=HHV(C,N);{60日最高点}GDSJ:=BARSLAST(REF(GD,1));{上一高点时间}GDGJ:=REF(CLOSE,GDSJ+1);KGZB:=REF(K值,GDSJ+1)>K值;K顶背离:=GDGJ AND KGZB;MACD:="MACD.MACD";MDZB:=REF(MACD,DDSJ+1);M底背离:=DDGJ AND MDZB;MGZB:=REF(MACD,GDSJ+1)>MACD;M顶背离:=GDGJ AND MGZB;RSI:="RSI.RSI1";RDZB:=REF(RSI,DDSJ+1);R底背离:=DDGJ AND RDZB;RGZB:=REF(RSI,GDSJ+1)>RSI;R顶背离:=GDGJ AND RGZB;TYP:=(HIGH + LOW + CLOSE)/3;CCI:=(TYP-MA(TYP,N))/(0.015*AVEDEV(TYP,N));CDZB:=REF(CCI,DDSJ+1);C底背离:=DDGJ AND CDZB;CGZB:=REF(CCI,GDSJ+1)>CCI;C顶背离:=GDGJ AND CGZB;REFLINE: -5,15,30,COLORBLACK;DRAWTEXT(K顶背离,IF(ISLASTBAR,27.5,25),'◆'),LINETHICK2 ; DRAWTEXT(M顶背离,(ISLASTBAR,24.5,20),'◆'),LINETHICK2 ; DRAWTEXT(R顶背离,(ISLASTBAR,20.5,15.1),'◆'),LINETHICK2 ; DRAWTEXT(C顶背离,(ISLASTBAR,16.6,10.1),'◆'),LINETHICK2 ; DRAWTEXT(ISLASTBAR,10.1 ,'CCI '),LINETHICK2,COLORGREEN; DRAWTEXT(C底背离,IF(ISLASTBAR,12,10.1 ),'◆'),LINETHICK2,COLORRED; DRAWTEXT(ISLASTBAR,15,'RSI '),LINETHICK2,COLORRED; DRAWTEXT(R底背离,IF(ISLASTBAR,8.5,15),'◆'),LINETHICK2,COLORRED; DRAWTEXT(ISLASTBAR,20,'MACD '),LINETHICK2,COLORMAGENTA; DRAWTEXT(M底背离,IF(ISLASTBAR,4.5,20),'◆'),LINETHICK2,COLORRED; DRAWTEXT(ISLASTBAR,25,'KDJ '),LINETHICK2,COLORRED; DRAWTEXT(K底背离,IF(ISLASTBAR,1.5,25),'◆'),LINETHICK2,COLORRED;。

MACD背离自动画线通达信指标公式源码

MACD背离自动画线通达信指标公式源码

MACD背离自动画线通达信指标公式源码MACD（Moving Average Convergence Divergence）是一种常用的股票技术指标，用于分析股票的趋势和交易信号。

MACD背离是一种常见的技术分析方法，用于判断趋势的反转点，即价格走势与MACD指标走势不一致的情况。

下面是使用通达信编写MACD背离自动画线指标的源码。

```c/*MACD背离自动画线指标*功能：自动识别MACD背离点并在图表中标注出来*/#include "stdafx.h"#include "stdio.h"#include "string.h"#include "windows.h"//确定最低点、最高点时使用的价格周期数#define MIN_PRICE_DURATION 9#define MAX_PRICE_DURATION 10/**输入参数：*MACD：一个包含MACD数据的数组* price：一个包含价格数据的数组*返回值：*0：没有背离*1：向上背离*-1：向下背离*/int CheckDivergence(float *MACD, float *price) int i, j, k;int start, end;int low_index, high_index;float min_price, max_price;int MACD_bottom, MACD_top;int price_bottom, price_top;float MACD_bottom_value, MACD_top_value;float price_bottom_value, price_top_value;/**阶段1：寻找MACD底背离*/start = MAX_PRICE_DURATION + 1;end = start + MIN_PRICE_DURATION;low_index = -1;high_index = -1;min_price = price[start];max_price = price[start];for (i = start; i < end; i++)//查找最低点if (price[i] < min_price)low_index = i;min_price = price[i];}//查找最高点if (price[i] > max_price)high_index = i;max_price = price[i];}}//无法找到底背离点if (low_index == -1 ， high_index == -1)}MACD_bottom = 0;price_bottom = 0;//寻找MACD底背离for (i = start; i < end; i++)if (i == low_index)//找到最低点对应的MACD数值MACD_bottom = i;MACD_bottom_value = MACD[i];}if (i == high_index)//找到最高点对应的MACD数值price_bottom = i;price_bottom_value = price[i];}}//如果最低点出现在最高点之后，则没有底背离if (MACD_bottom > price_bottom)}/**阶段2：寻找MACD顶背离*/start = MAX_PRICE_DURATION + 1; end = start + MIN_PRICE_DURATION; low_index = -1;high_index = -1;min_price = price[start];max_price = price[start];for (i = start; i < end; i++)//查找最低点if (price[i] < min_price)low_index = i;min_price = price[i];}//查找最高点if (price[i] > max_price)max_price = price[i];}}//无法找到顶背离点if (low_index == -1 ， high_index == -1) return 0;}MACD_top = 0;price_top = 0;//寻找MACD顶背离for (i = start; i < end; i++)if (i == low_index)//找到最低点对应的MACD数值MACD_top = i;MACD_top_value = MACD[i];}if (i == high_index)//找到最高点对应的MACD数值price_top_value = price[i];}}//如果最高点出现在最低点之后，则没有顶背离if (MACD_top > price_top)return 0;}//判断背离类型if (price_bottom_value < price_top_value && MACD_bottom_value > MACD_top_value)return 1; // 向上背离}if (price_bottom_value > price_top_value && MACD_bottom_value < MACD_top_value)return -1; // 向下背离}return 0;int mainfloat MACD[100] = {0.0, 1.0, 2.0, 3.0, 4.0, 5.0, 4.0, 3.0, 2.0, 1.0};float price[100] = {1.0, 2.0, 3.0, 4.0, 3.0, 2.0, 1.0, 0.0, -1.0, -2.0};int result = CheckDivergence(MACD, price);printf("Result: %d\n", result);return 0;```该源码实现了一个简单的MACD背离自动画线指标。

通达信软件指标公式源码常用的MACD三次背离副图指标通达信源码.docx

通达信软件指标公式源码常用的MACD三次背离副图指标通达信源码.docx

常用的MACD三次背离副图指标通达信源码自己常用的MACD,严重底背离红柱子和底背离绿柱子，三次背离底部划线等, 主要看图比较清晰！DIFIF1:(EMA(CLOSE,12) - EMA(CLOSE,26))*100/EMA(CLOSE Z26); DEAEA1:EMA(DIFIF1,9)；MACD1:=2*(DIFIF1-DEAEA1),STICK;MACD2:=EMA(MACD1,3)；STICKLINE(MACD 1 >MACD2 AND MACD1>0,0,MACD1,3,0),COLORRED; STICKLINE(MACD 1 >MACD2 AND MACD1<O Z O,MACD1,3,0),COLORGREEN; STICKLINE(MACD1<MACD2,0,MACD1Z3,0),COLORCBCBCO；STICKLINE(MACDl>=0 OR MACDl<=O z O z O z50,l)z COLORWHITE;DIFIF1,COLOR33FF33,LINETHICK2;DEAEAl’COLORYELLOW 丄INETHICK2;MACD: MACD1,NODRAW,COLORMAGENTA；强:IF(DIFIF1>=DEAEA1,DIFIF1QRAWNULL),COLORRED 丄INETHICK2;弱:IF(DEAEA1>=DIFIF1Z DEAEA1,DRAWNULL)Z COLORFF9900,LINETHICK2; DRAWICON(CROSS(DIFIF1,DEAEA1),DIFIF1+O.l,l)；DRAWICON(CROSS(DEAEA1,DIFIF1),0.4,2)；Al:=BARSLAST(REF(CROSS(n MACD. DIF H z n MACD. DEA n)z 1));B1:=REF(C,A1+1)>C AND REF(H MACD.DIF,,,Al+l)<H MACD.DIF n AND CROSS(n MACD.DIF,,,n MACD.DEA n);DRAWTEXT(Bl>0z-0.8；MACD 底背'),COLORFFOOFF;A2:=BARSLAST(REF(CROSS(,,KDJ.K,,/,,KDJ.D,,)Z1))；B2:=REF(C,A2+1)>C AND REF(^^KDJ.K^,,A24-1)<^^KDJ.K,, ANDCROSS(,,KDJ.K,,z,,KDJ.D n);DRAWTEXT(B2z-0.6；KDJ 底离'),COLORYELLOW;｛KDJ 底背离｝;A3：=BARSLAST(REF(CROSS(,,RSLRSI1,,Z,,RSI.RSI2,,),1))；B3:=REF(C,A3+1)>C AND REF(,,RSLRSIl,,z A3+l)<,,RSI.RSir,AND CROSS(”RSI・RSI1TRSI・RSI2J;DRAWTEXT(B3>0,-0.3z'RSI 底离'),COLORCYAN;｛RSI 底背离｝；C1:=BARSLAST(REF(CROSS(,,MACD.DEA,,/,MACD.DIF,,),1));Dl:=REF(C,Cl+l)vC AND [^=(“1^。

通达信DMI,MACD.RSI背离指标公式

通达信DMI,MACD.RSI背离指标公式

通达信DMI,MACD.RSI背离指标公式N:=14;MM:=6;RSV:=(CLOSE-LLV(LOW,10))/(HHV(HIGH,10)-LLV(LOW,10))*100;K:=SMA(RSV,3,1);D:=SMA(K,3,1);J:=3*K-2*D;DIFF:=EMA(CLOSE,12) - EMA(CLOSE,26);DEA:=EMA(DIFF,9);MACD:=2*(DIFF-DEA), COLORSTICK;LC:=REF(CLOSE,1);RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;RSI2:=SMA(MAX(CLOSE-LC,0),12,1)/SMA(ABS(CLOSE-LC),12,1)*100;RSI3:=SMA(MAX(CLOSE-LC,0),24,1)/SMA(ABS(CLOSE-LC),24,1)*100;A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));B1:=REF(CLOSE,A1+1)>CLOSE AND REF(DIFF,A1+1)<DIFF AND CROSS(DIFF,DEA);MACD底背离:FILTER(B1>0,5);STICKLINE(FILTER(B1>0,5),0,10,1,0),COLOR00FF00;DRAWTEXT(FILTER(B1>0,5),10,'MACD底背'),COLOR00FF00;A3:=BARSLAST(REF(CROSS(RSI1,RSI2),1));B3:=REF(CLOSE,A3+1)>CLOSE AND REF(RSI1,A3+1)<RSI1 AND CROSS(RSI1,RSI2);RSI底背离:FILTER(B3>0,5),LINETHICK0;STICKLINE(FILTER(B3>0,5),0,30,1,0),COLORFFFF00;DRAWTEXT(FILTER(B3>0,5),30,'RSI底背'),COLORFFFF00;C1:=BARSLAST(REF(CROSS(DEA,DIFF),1));D1:=REF(CLOSE,C1+1)<CLOSE AND REF(DIFF,C1+1)>DIFF AND CROSS(DEA,DIFF);MACD顶背离:FILTER(D1>0,5),LINETHICK0;STICKLINE(FILTER(D1>0,5),100,80,1,0),COLOR0066FF;DRAWTEXT(FILTER(D1>0,5),80,'MACD顶背'),COLOR0066FF;C3:=BARSLAST(REF(CROSS(RSI2,RSI1),1));D3:=REF(CLOSE,C3+1)<CLOSE AND REF(RSI1,C3+1)>RSI1 AND CROSS(RSI2,RSI1);RSI顶背离:FILTER(D3>0,5),LINETHICK0;STICKLINE(FILTER(D3>0,5),100,80,1,0),COLOR15F70A;DRAWTEXT(FILTER(D3>0,5),80,'RSI顶背'),COLOR15F70A;{以上不动}TR1:=EMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(REF(CLOSE,1)-LOW)),21);HD :=HIGH-REF(HIGH,1);LD :=REF(LOW,1)-LOW;DMP:=EMA(IF(HD>0 AND HD>LD,HD,0),21);DMM:=EMA(IF(LD>0 AND LD>HD,LD,0),21);PDI:= DMP*100/TR1;MDI:= DMM*100/TR1;ADX: EMA((PDI-MDI)/(MDI+PDI)*100,6)*2;ADXR:EMA(ADX,6);ADMA:=EMA(ADX,20);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) ANDOMD<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,COLORYELLOW;{DMI顶底背离}DM1:=BARSLAST(REF(CROSS(ADX1,ADXR1),1));DM2:=REF(CLOSE,DM1+1)>CLOSE AND REF(ADX1,DM1+1)<ADX1 AND CROSS(ADX1,ADXR1);DMI底背离:FILTER(DM2>0,5),LINETHICK0;DRAWTEXT(FILTER(DM2>0,5),ADX1,'DMI底背'),COLORFFFF00;DM3:=BARSLAST(REF(CROSS(ADXR1,ADX1),1));DM4:=REF(CLOSE,DM3+1)<CLOSE AND REF(ADX1,DM3+1)>ADX1 AND CROSS(ADXR1,ADX1);DMI顶背离:FILTER(DM4>0,5),LINETHICK0;DRAWTEXT(FILTER(DM4>0,5),ADX1,'DMI顶背'),COLORGREEN;。

通达信指标公式源码随心MACD

通达信指标公式源码随心MACD

UPD:COUNT(C>=O OR C>=REF(C,1),8) NODRAW;CM60:BARSLAST(LONGCROSS(C,MA(C,60),8))+1 NODRAW COLORRED; DIFF:=EMA(CLOSE,12)-EMA(CLOSE,24);DEA:=EMA(DIFF,9);ADIF:ATAN((DIFF/REF(DIFF,1)-1)*100)*180/3.1416 NODRAW; RADIF:REF(ADIF,1) NODRAW;C2:=IF(V>MA(V,150)*0.98,0.1,-0.1);C1:=IF(V<MA(V,150)*0.98,-0.1,0.1);B2:=EMA(CLOSE,55)-MA(CLOSE,60) DOTLINE COLORGREEN;B3:=EMA(B2,9) DOTLINE COLORCYAN;DRAWBAND(B2,RGB(120,50,50),B3,RGB(50,120,50));MACD:=2*(DIFF-DEA), STICK,LINETHICK1 COLORCYAN;N:=20;MID:=MA(C,20);VART1:=POW((C-MID),2);VART2:=MA(VART1,N);VART3:=SQRT(VART2);UPPER:=MID+2*VART3;LOWER:=MID-2*VART3;BOLL:=REF(MID,1),COLORGREEN;UB:=REF(UPPER,1),COLOR00FFFF;LB:=REF(LOWER,1),COLOR00FFFF NODRAW;BLTJ:=REF(L,1)<REF(LB,1) AND L>LB;BLLDT:BARSLAST(BLTJ ) NODRAW;JCCOUNT:=COUNT(CROSS(DIFF,DEA),BARSLAST(DEA>=0));A1:=BARSLAST(REF(CROSS(DIFF,DEA),1)) COLORRED NODRAW;底背离:REF(CLOSE,A1+1)>CLOSE AND DIFF>REF(DIFF,A1+1) AND CROSS(DIFF,DEA) NODRAW;STICKLINE(底背离,0,0.03,1.2,1),COLOR00FF00;{底背:DRAWLINE(A1=0,DEA,底背离,DEA,0),COLORRED,LINETHICK2 CROSSDOT;}DRAWTEXT(底背离,0.1,' 底背离'),COLORFF00FF;A2:=BARSLAST(REF(CROSS(DEA,DIFF),1)) ;顶背离:REF(CLOSE,A2+1)<CLOSE AND REF(DIFF,A2+1)>DIFF AND CROSS(DEA,DIFF) CROSSDOT COLORRED NODRAW;{顶背:DRAWLINE(A2=0,DEA,顶背离,DEA,0),COLORBLUE,LINETHICK2 CROSSDOT;}底背D:BARSLAST(底背离)+1 NODRAW COLORRED;顶背D:A2+1 COLORGREEN NODRAW;{判断天地量}AA:=SUMBARS(VOL,CAPITAL);地量:=VOL<MA(VOL,AA)*21/100 AND VOL>0;天量:=VOL>MA(VOL,AA)*34/10 ;MACDA:2*(DIFF-DEA), STICK,LINETHICK1 COLORCYAN;NOTEXT3:IF(地量AND PERIOD>4,MACD*1.5,DRAWNULL) STICK LINETHICK6 COLORYELLOW;NOTEXT4:IF(天量AND PERIOD>4,MACD*1.5,DRAWNULL) STICK LINETHICK6 COLORAAAAFF;NOTEXT5:IF(V<=MA(V,5)*0.22,MACD,DRAWNULL) STICK LINETHICK4 COLORBLUE;NOTEXT:IF(REF(MACD,1)<=MACD,MACD,DRAWNULL) STICK COLORRED; NOTEXT1:0 LINETHICK3 COLORGRAY;NOTEXT8:IF(V>MA(V,150)*0.98,0,DRAWNULL) COLORRED LINETHICK2 CIRCLEDOT ;DEAA:DEA COLORYELLOW;DIFA:DIFF COLORWHITE ;DIFF1:EMA(CLOSE,12)-EMA(CLOSE,26) DOTLINE COLORGREEN NODRAW; DEA1:EMA(DIFF1,9) DOTLINE COLORCYAN NODRAW;底背:DRAWLINE(A1=0,DEA,底背离,DEA,0),COLORRED,LINETHICK2 CROSSDOT;顶背:DRAWLINE(A2=0,DEA,顶背离,DEA,0),COLORBLUE,LINETHICK2 CROSSDOT;强:IF(DIFF>MA(DIFF,2),DIFF,DRAWNULL),COLORRED LINETHICK2;弱:IF(DEA>MA(DEA,2),DEA,DRAWNULL),COLORMAGENTA LINETHICK2;必买: DRAWICON(REF(TROUGHBARS(3,15,1),1)=0 ANDHIGH>LOW,0,25),COLORRED ,LINETHICK4;必卖:DRAWICON(REF(PEAKBARS(3,15,1),1)=1,0,27),COLORRED,LINETHICK8;B1:A1 NODRAW;TOP:A2 NODRAW;BSR:((BIDORDERVOL-BIDCANCELVOL)/(OFFERORDERVOL-OFFERCANCELVOL )-1)*10 NODRAW;NOTEXTBRS:IF(BSR>0,DEA,DRAWNULL) COLORFFFFFF LINETHICK2 CIRCLEDOT;HSJ:=BARSLAST(CROSS(DIFF,0) AND DIFF>=0 )+1 NODRAW;LSJ:=BARSLAST(CROSS(0,DIFF) AND DIFF<0 )+1 NODRAW;T:IF(DIFF>0,HSJ,LSJ) NODRAW;IF(T=1,ABS(MACD),0) STICK LINETHICK2 COLORMAGENTA;IF(CROSS(DEA,0),ABS(MACD),0) STICK LINETHICK2 COLORYELLOW;S:IF(HSJ>1,SUM(ABS(MACD),T),DRAWNULL) NODRAW ; DRAWNUMBER(ISLASTBAR ,ABS(MACD*1.02),S) COLORYELLOW; DRAWNUMBER(T=1 ,ABS(MACD*1.02),REF(S,1)) ;T2:REF(T,T)+T NODRAW;Q1S:REF(S,T) NODRAW;Q2S:=REF(S,T2) NODRAW;BL:=Q1S/Q2S NODRAW;{E2T:BARSLAST(CROSS(DIF,DEA) AND FILTER(CROSS(DIF,DEA) ,5) )+1 NODRAW;E6T:BARSLAST(CROSS(DEA,DIF) AND FILTER(CROSS(DEA,DIF) ,5) )+1 NODRAW;ET:IF(DIF>=DEA,E2T,E6T) NODRAW;ES:SUM(ABS(DIF-DEA),ET) NODRAW;BZ:=MAX(ABS(DEA),ABS(DIF));XS:=IF(DIF<0,-1,1);IF(ET=1,DIF,DRAWNULL) CIRCLEDOT LINETHICK2;DRAWNUMBER(ISLASTBAR ,DIF*1.05,ES) COLORYELLOW; DRAWNUMBER(ET=1 ,BZ*XS*1.05,REF(ES,1)) COLORYELLOW;};TTJ:=IF(BARSLAST(顶背离=1)+1=144 OR BARSLAST(顶背离=1)+1=89 OR BARSLAST(顶背离=1)+1=13 OR BARSLAST(顶背离=1)+1=47 ORBARSLAST(顶背离=1)+1=1 OR BARSLAST(顶背离=1)+1=8 OR BARSLAST(顶背离=1)+1=21 OR BARSLAST(顶背离=1)+1=34 OR BARSLAST(顶背离=1)+1=55,1,O) ;TTJA:=IF( BARSLAST(底背离=1)+1=144 OR BARSLAST(底背离=1)+1=89 OR BARSLAST(底背离=1)+1=8 OR BARSLAST(底背离=1)+1=1 OR BARSLAST(底背离=1)+1=47 OR BARSLAST(底背离=1)+1=13 OR BARSLAST(底背离=1)+1=21 OR BARSLAST(底背离=1)+1=34 OR BARSLAST(底背离=1)+1=55,1,O) ;DRAWNUMBER((BARSLAST(顶背离=1)+1<144 AND TTJ=1 AND CURRBARSCOUNT<233) OR ISLASTBAR,MIN(DIFF,DEA)*0.98,BARSLAST(顶背离=1)+1) COLORGREEN;DRAWNUMBER((BARSLAST(底背离=1)+1<144 AND TTJA=1 AND CURRBARSCOUNT<233)OR ISLASTBAR,0,BARSLAST(底背离=1)+1) COLORYELLOW;。

MACD顶底背离通达信指标公式源码

MACD顶底背离通达信指标公式源码

MACD顶底背离通达信指标公式源码
MACD顶底背离通达信指标公式源码
软件介绍
本公式在日线，小时线，半小时线等周期中根据MACD红柱的缩小都能及时给我们的操作做出风险提示，尤其是在短周期中提示更有效。

此公式不是万能的，还需要结合其他操盘指标才更有效。

DIF:EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:EMA(DIF,9);
MACD:(DIF-DEA)*2,COLORSTICK;
H1:=REF(MACD,1)&lt;0 AND MACD&gt;0,NODRAW;
H1T:=BARSLAST(H1)+1,NODRAW;
H2:=IF(MACD&gt;0,H1T,0),NODRAW;
H3:=HHV(MACD,H2),NODRAW;
L1:=REF(MACD,1)&gt;0 AND MACD&lt;0,NODRAW;
L1T:=BARSLAST(L1)+1,NODRAW;
HJ:=(H1T+L1T),NODRAW;
H4:=REF(H3,HJ),NODRAW;
顶背离:H3&lt;H4 AND C&gt;REF(C,HJ) AND MACD&gt;0 AND MACD&lt;REF(MACD,1),COLORGREEN,NODRAW; STICKLINE(顶背离,0,MACD,2,0),COLORGREEN;
下载地址。

  1. 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

自动画MACD背离的指标：一共两个指标，一个是通达信用的，一个是大智慧用的
{通达信自动划MACD指标背离线}
DIFF:EMA(CLOSE,12) - EMA(CLOSE,26);
DEA:EMA(DIFF,9);
MACD:2*(DIFF-DEA), COLORSTICK;
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
底背离:=REF(CLOSE,A1+1)>CLOSE AND DIFF>REF(DIFF,A1+1) AND CROSS(DIFF,DEA); STICKLINE(底背离,0,0.1,8,0),COLORRED;
DRAWLINE(A1=0,DEA,底背离,DEA,0),COLORRED,LINETHICK2;
A2:=BARSLAST(REF(CROSS(DEA,DIFF),1));
顶背离:=REF(CLOSE,A2+1)<CLOSE AND REF(DIFF,A2+1)>DIFF AND CROSS(DEA,DIFF); DRAWLINE(A2=0,DEA,顶背离,DEA,0),COLORGREEN,LINETHICK2;
{大智慧自动划MACD指标背离线
（适用于大智慧新一代）}
DIF:EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:EMA(DIF,9);
MACD:(DIF-DEA)*2,COLORSTICK;
A:=SUMBARS(CROSS(DEA,DIF),2);
B:=SUMBARS(CROSS(DEA,DIF),1);
E:=REF(DIF,LLVBARS(DIF,A))<REF(DIF,LLVBARS(DIF,B)) AND LLVBARS(DIF,B)<LLVBARS(DIF,A) AND
CROSS(DIF,DEA);
F:=COUNT(BACKSET(E,LLVBARS(DIF,A)+1),LLVBARS(DIF,A)+1)=1; G:=COUNT(BACKSET(E,LLVBARS(DIF,B)+1),LLVBARS(DIF,B)+1)=1; DRAWLINE(F,DIF,G,DIF,0),COLOERED;。

相关文档
最新文档