指标改文华 (文华财经)

来源:文华财经  日期:2021-1-16 9:56

 SKDJN:=9;SKDJM:=3;
 SKDJ_LOWV:=LLV(LOW,SKDJN);
 SKDJ_HIGHV:=HHV(HIGH,SKDJN);
 SKDJ_RSV:=EMA((CLOSE-SKDJ_LOWV)/(SKDJ_HIGHV-SKDJ_LOWV)*100,SKDJM);
 K0:EMA(SKDJ_RSV,SKDJM),COLORWHITE;
 D0:MA(K0,SKDJM),COLORYELLOW;
乖离率:K0/D0;
 DRAWICON(CROSS(D0,K0),(D0+K0)/2,37);
 DRAWICON(CROSS(K0,D0),(D0+K0)/2,1);

{背离}
A1:=BARSLAST(REF(CROSS(K0,D0),1));
底背离:REF(CLOSE,A1+1)>CLOSE AND K0>REF(K0,A1+1) AND CROSS(K0,D0);
 DRAWLINE(A1=0,D0,底背离,D0,0),COLORRED,DOTLINE;
 A2:=BARSLAST(REF(CROSS(D0,K0),1));
顶背离:REF(CLOSE,A2+1)<CLOSE AND REF(D0,A2+1)>D0 AND CROSS(D0,K0);
 DRAWLINE(A2=0,D0,顶背离,D0,0),COLORGREEN,DOTLINE;
 DRAWTEXT(底背离>0,D0-5,'底背离'),COLORRED;
 DRAWTEXT(顶背离>0,D0-5,'顶背离'),COLORGREEN;


 K60:=K0#MIN60;
 D60:=D0#MIN60;
 XG:IF((CROSS(K60,D60)) || (K60>REF(K60,1)>REF(K60,2) && K60/D60 <=1) || (K60>REF(K60,1) && REF(K60,1)<=REF(K60,2)) ,15,0),COLORRED;
 DBA:IF((CROSS(D60,K60)) || (K60>REF(K60,1)>REF(K60,2) && K60/D60 >=1) || (K60<REF(K60,1) && REF(K60,1)>=REF(K60,2)) ,90,100),COLORYELLOW;
 DBS:IF((风险 <= REF(风险,1) && REF(风险,1) > REF(风险,2)) || 风险>95,85,100),COLORGREEN;

日期:2021-1-16 10:06