原码如下：
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;
【本文仅仅提供源码，请参照下面编辑公式录像自己做成公式】
{点击看本软件截图：58股票 公式网 http://www. 58gu. com 整理} |
