DIFF:EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:EMA(DIFF,9);
MACD:2*(DIFF-DEA),NODRAW;
MACDHS:=IF(MACD 0ANDMACD REF(MACD,1),MACD,0);
MACDHX:=IF(MACD 0ANDMACD REF(MACD,1),MACD,0);
MACDLX:=IF(MACD 0ANDMACD REF(MACD,1),MACD,0);
MACDLS:=IF(MACD 0ANDMACD REF(MACD,1),MACD,0);
STICKLINE(MACDHS 0,0,MACD,2,0),COLORRED;
STICKLINE(MACDHX 0,0,MACD,2,0),COLORYELLOW;
STICKLINE(MACDLX 0,MACD,0,2,0),COLORCYAN;
STICKLINE(MACDLS 0,MACD,0,2,0),COLORLIGREEN;
绿柱面积:10*IF(MACD 0,SUM(MACD,BARSLAST(MACD 0)),0),NODRAW,COLORCYAN;
红柱面积:10*IF(MACD 0,SUM(MACD,BARSLAST(MACD 0)),0),NODRAW,COLORRED;
DRAWNUMBER(REF(MACD,1) 0ANDMACD =0,HHV(MACD,8),REF(红柱面积,1)),COLORRED;
DRAWNUMBER(REF(MACD,1) 0ANDMACD =0,LLV(MACD,4),REF(ABS(绿柱面积),1)),COLORCYAN;
DRAWNUMBER(ISLASTBARANDMACD 0,LLV(MACD,8),ABS(绿柱面积)),COLORCYAN;
DRAWNUMBER(ISLASTBARANDMACD 0,HHV(MACD,4),ABS(红柱面积)),COLORRED;
DIF:(EMA(CLOSE,12)-EMA(CLOSE,26))*100;
DEA:EMA(DIF,9);
MACD:(DIF-DEA)*2,COLORSTICK;
DRAWICON(CROSS(DIF,DEA),DEA,1);
DRAWICON(CROSS(DEA,DIF),DEA,2);
IF(DIF DEA,DIF,DRAWNULL),colorgreen;
DD:=C=HHV(C,180);
EE:=DEA REF(DEA,1)ANDREF(DEA REF(DEA,1),1)=1;
CC:=C REF(C,1)ANDREF(C REF(C,1),1)=1;
顶:=(DDANDEEANDDEA HHV(DEA,180))*DEA;
A2:=BARSLAST(REF(CROSS(DEA,DIF),1));
{顶背:=REF(CLOSE,A2+1) CLOSEANDREF(DIF,A2+1) DIFANDCROSS(DEA,DIF);}
DRAWLINE(A2=0,DEA,顶背离,DEA,0),colorred,LINETHICK2;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:SMA(RSV,9,3),coloryellow;
D:SMA(K,9,3),colorwhite;
J:3*K-2*D,colormagenta;
IF(J D,J,DRAWNULL),COLORFFEE44;
0,colorred,LINETHICK2;20,colorlimagenta;{50,colorwhite;}
80,colorblue;100,colorgreen,LINETHICK2;
DRAWTEXT(ISLASTBAR,0,'高安全区'),colorred;
DRAWTEXT(ISLASTBAR,20,'安全区'),colorlimagenta;
DRAWTEXT(ISLASTBAR,80,'风险区'),colorblue;
DRAWTEXT(ISLASTBAR,100,'高风险区'),colorgreen;
A1:=BARSLAST(REF(CROSS(DIF,DEA),1));
B1:=REF(C,A1+1) CANDREF(DIF,A1+1) DIFANDCROSS(DIF,DEA);
A22:=BARSLAST(REF(CROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3)),1));
B2:=REF(C,A22+1) CANDREF("KDJ.K"(9,3,3),A22+1) "KDJ.K"(9,3,3)ANDCROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3));
A3:=BARSLAST(REF(CROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24)),1));
B3:=REF(C,A3+1) CANDREF("RSI.RSI1"(6,12,24),A3+1) "RSI.RSI1"(6,12,24)ANDCROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24));
DRAWTEXT(B1,DEA-0.20,'▲MACD底背'),colorwhite;
DRAWTEXT(B2,D-0.20,'●KDJ底背'),COLORFF00FF;
{DJ:=CROSS(J,D)ANDD
DRAWTEXT(DJ,J-0.3,'低'),colorcyan;
MDJ:=CROSS(DIF,DEA)ANDDEA
DRAWTEXT(MDJ,DEA-0.3,'低金叉'),colorgreen;
DRAWTEXT(CROSS(DEA,DIF),DIF+0.3,'死叉'),coloryellow;
DRAWTEXT(CROSS(D,J),J+0.3,'死叉'),colorred;}
A:=CROSS(DIF,DEA)ANDCROSS(K,D)ANDCROSS(J,D);
DRAWICON(A,LOW*0.98,1);
B4:CROSS(DIF,DEA)ANDCROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3));
DRAWTEXT(B4,L-0.20,'★金叉共振'),COLOR0099FF;
DRAWICON(CROSS(K,D),D,1);
DRAWICON(CROSS(D,K),D,2);
BA:=DEA REF(DEA,1);
BB:=SUM(BA,5)
BC:=C
BD:=SUM(BC,5)
BXG:FILTER(BBANDBDANDJ REF(J,1)ANDREF(J,1) REF(J,2),3);
STICKLINE(BXG,HHV(J,60),HHV(J,60)-20,1,0),colorred;
SS:=EMA(C,11);
LL:=(EMA(C,1)+EMA(C,2)+EMA(C,3)+EMA(C,5))/4;
{短:EMA(LL,2),colorgreen,LINETHICK2;}
{长:EMA(SS,2),colormagenta,LINETHICK2;}
AA:=(C-LLV(C,10))/(HHV(C,10)-LLV(C,10));
(CROSS(AA,0.05)-1);
[源码注释]通达信多周期共振MACD指标公式公式解读
输出DIFF:收盘价的12日指数移动平均-收盘价的26日指数移动平均
输出DEA:DIFF的9日指数移动平均
输出平滑异同平:2*(DIFF-DEA),NODRAW
MACDHS赋值:如果MACD ,返回?,否则返回?
0ANDMACD
1日前的MACD,MACD,0)
MACDHX赋值:如果MACD ,返回?,否则返回?
0ANDMACD
1日前的MACD,MACD,0)
MACDLX赋值:如果MACD ,返回?,否则返回?
0ANDMACD
1日前的MACD,MACD,0)
MACDLS赋值:如果MACD ,返回?,否则返回?
0ANDMACD
1日前的MACD,MACD,0)
当满足条件MACDHS 时,在?和?位置之间画柱状线,宽度为?,?不为0则画空心柱.
0,0,MACD,2,0),画红色
当满足条件MACDHX 时,在?和?位置之间画柱状线,宽度为?,?不为0则画空心柱.
0,0,MACD,2,0),画黄色
当满足条件MACDLX 时,在?和?位置之间画柱状线,宽度为?,?不为0则画空心柱.
0,MACD,0,2,0),画青色
当满足条件MACDLS 时,在?和?位置之间画柱状线,宽度为?,?不为0则画空心柱.
0,MACD,0,2,0),画淡绿色
输出绿柱面积:10*如果MACD ,返回?,否则返回?
0,MACD的上次MACD 距今天数日累和
0)),0),NODRAW,画青色
输出红柱面积:10*如果MACD ,返回?,否则返回?
0,MACD的上次MACD 距今天数日累和
0)),0),NODRAW,画红色
当满足条件1日前的MACD 时,在?位置书写数字
0ANDMACD
=0,8日内MACD的最高值,1日前的红柱面积),画红色
当满足条件1日前的MACD 时,在?位置书写数字
0ANDMACD
=0,4日内MACD的最低值,1日前的绿柱面积的绝对值),画青色
当满足条件ISLASTBARANDMACD 时,在?位置书写数字
0,8日内MACD的最低值,绿柱面积的绝对值),画青色
当满足条件ISLASTBARANDMACD 时,在?位置书写数字
0,4日内MACD的最高值,红柱面积的绝对值),画红色
输出DIF:(收盘价的12日指数移动平均-收盘价的26日指数移动平均)*100
输出DEA:DIF的9日指数移动平均
输出MACD:(DIF-DEA)*2,COLORSTICK
当满足条件DIF上穿DEA时,在DEA位置画1号图标
当满足条件DEA上穿DIF时,在DEA位置画2号图标
如果DIF DEA,返回DIF,否则返回无效数,画绿色
DD赋值:收盘价=180日内收盘价的最高值
EE赋值:DEA 1日前的DEAANDREF(DEA 1日前的DEA,1)=1
CC赋值:收盘价 1日前的收盘价ANDREF(收盘价 1日前的收盘价,1)=1
顶背离赋值:(DDANDEEANDDEA 180日内DEA的最高值)*DEA
A2赋值:上次1日前的DEA上穿DIF距今天数
当满足条件A2=0时,在DEA位置画直线起点，当满足条件顶背离时,在DEA位置画直线终点,0表示是否延长.,画红色,线宽为2
RSV赋值:(收盘价-9日内最低价的最低值)/(9日内最高价的最高值-9日内最低价的最低值)*100
输出K:RSV的9日[3日权重]移动平均,画黄色
输出D:K的9日[3日权重]移动平均,画白色
输出J:3*K-2*D,画洋红色
如果J D,返回J,否则返回无效数,COLORFFEE44
0,画红色,线宽为2
20,画淡洋红色
80,画蓝色
100,画绿色,线宽为2
当满足条件是否最后一个周期时,在0位置书写文字,画红色
当满足条件是否最后一个周期时,在20位置书写文字,画淡洋红色
当满足条件是否最后一个周期时,在80位置书写文字,画蓝色
当满足条件是否最后一个周期时,在100位置书写文字,画绿色
A1赋值:上次1日前的DIF上穿DEA距今天数
B1赋值:A1+1日前的收盘价 CANDREF(DIF,A1+1) DIFANDCROSS(DIF,DEA)
A22赋值:上次1日前的"KDJ的K"(9,3,3)上穿"KDJ的D"(9,3,3)距今天数
B2赋值:A22+1日前的收盘价 CANDREF("KDJ的K"(9,3,3),A22+1) "KDJ的K"(9,3,3)ANDCROSS("KDJ的K"(9,3,3),"KDJ的D"(9,3,3))
A3赋值:上次1日前的"RSI的RSI1"(6,12,24)上穿"RSI的RSI2"(6,12,24)距今天数
B3赋值:A3+1日前的收盘价 CANDREF("RSI的RSI1"(6,12,24),A3+1) "RSI的RSI1"(6,12,24)ANDCROSS("RSI的RSI1"(6,12,24),"RSI的RSI2"(6,12,24))
当满足条件B1时,在DEA-0.20位置书写文字,画白色
当满足条件B2时,在D-0.20位置书写文字,COLORFF00FF
A赋值:DIF上穿DEAANDCROSS(K,D)ANDCROSS(J,D)
当满足条件A时,在最低价*0.98位置画1号图标
输出B4:DIF上穿DEAANDCROSS("KDJ的K"(9,3,3),"KDJ的D"(9,3,3))
当满足条件B4时,在最低价-0.20位置书写文字,COLOR0099FF
当满足条件K上穿D时,在D位置画1号图标
当满足条件D上穿K时,在D位置画2号图标
BA赋值:DEA 1日前的DEA
BB赋值:BA的5日累和 =4
BC赋值:收阴线
BD赋值:BC的5日累和 =2
输出BXG:BBANDBDANDJ 1日前的JANDREF(J,1) 2日前的J的3日过滤
当满足条件BXG时,在60日内J的最高值和60日内J的最高值-20位置之间画柱状线,宽度为1,0不为0则画空心柱.,画红色
SS赋值:收盘价的11日指数移动平均
LL赋值:(收盘价的1日指数移动平均+收盘价的2日指数移动平均+收盘价的3日指数移动平均+收盘价的5日指数移动平均)/4
AA赋值:(收盘价-10日内收盘价的最低值)/(10日内收盘价的最高值-10日内收盘价的最低值)
(AA上穿0.05-1)
