原码如下：

RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;

K:=(SMA(RSV,3,1));

D:=(SMA(K,3,1));

J:=(3*K-2*D);

KK:=INTPART(SMA(RSV,3,1));

DD:=INTPART(SMA(K,3,1));

JJ:=INTPART(3*K-2*D);

JJ1:=REF(jj,1);

A:=KK-DD;

A1:=REF(KK-DD,1);

B:=A1-A;

B1:=REF(A1-A,1);

B2:=REF(A1-A,2);

B3:=REF(A1-A,3);DIFF : EMA(CLOSE,SHORT) - EMA(CLOSE,LONG);
DEA  : EMA(DIFF,M);
MACD : 2*(DIFF-DEA), COLORSTICK;
jc := dea-diff;
绿柱面积:IF (MACD<0,SUM(MACD,BARSLAST(jc<0)),0),linethick0,colorblue;
红柱面积:IF (MACD>0,SUM(MACD,BARSLAST(jc>0)),0),linethick0,colorred;
本次最低价:LLV(L,BARSLAST(jc<0)),linethick0;
本次最高价:HHV(H,BARSLAST(jc>0)),linethick0;
x1:=IF (MACD<0,BARSLAST(CROSS(diff,dea)),0);
前次绿柱面积:=REF(绿柱面积,x1+1);
前次最低价:=REF(本次最低价,x1+1);
y1:=IF((绿柱面积<0 AND ABS(绿柱面积)<ABS(前次绿柱面积) AND 本次最低价<前次最低价 ),1,0);
RS1:= MACD<0 AND REF(MACD,1)<0 AND C<前次最低价 AND ABS(绿柱面积)<ABS(前次绿柱面积) AND ABS(MACD)<ABS(REF(MACD,1));
底背驰:= IF (CROSS(diff,dea),REF(y1,1),0);
DRAWICON(底背驰,0,7),coloryellow;
FILLRGN(diff,dea,rs1),colorred;
x2:=IF (MACD>0,BARSLAST(CROSS(dea,diff)),0);
前次红柱面积:=REF(红柱面积,x2+1);
前次最高价:=REF(本次最高价,x2+1);
y2:=IF((红柱面积>0 AND 红柱面积<前次红柱面积 AND 本次最高价>前次最高价 ),1,0);
RS2:= MACD>0 AND REF(MACD,1)>0 AND C>前次最高价 AND ABS(红柱面积)<ABS(前次红柱面积) AND ABS(MACD)<ABS(REF(MACD,1));
顶背驰:= IF (CROSS(dea,diff),REF(y2,1),0);
DRAWICON(顶背驰,0,8),coloryellow;
FILLRGN(dea,diff,rs2),colorgreen;


CC:=B+B1+B2;

CC1:=REF(B+B1+B2,1);

CC2:=REF(B+B1+B2,2);

AD:=CC-B2;

AD1:=REF(CC-B2,1);

AD2:=REF(CC-B2,2);

b3=b and cc1=cc;

【本文仅仅提供源码，请参照下面编辑公式录像自己做成公式】