CYC13:=0.01*EMA(C*V,13)/EMA(V,13);

CYS:(C-CYC13)/CYC13*100-9900,COLORWHITE,LINETHICK2;

IF(CYS>0,CYS,DRAWNULL),COLORRED,LINETHICK2;

IF(CYS<0,CYS,DRAWNULL),COLORGREEN,LINETHICK2;

N:=7;

底背離:=REF(C,BARSLAST(REF(FILTER(BACKSET(REF(CYS,N)=LLV(CYS,2*N+1),N+1),N) AND CYS=LLV(CYS,N+1),1))+1)>C AND REF(CYS,BARSLAST(REF(FILTER(BACKSET(REF(CYS,N)=LLV(CYS,2*N+1),N+1),N) AND CYS=LLV(CYS,N+1),1))+1)<CYS AND FILTER(BACKSET(REF(CYS,N)=LLV(CYS,2*N+1),N+1),N) AND CYS=LLV(CYS,N+1),COLORWHITE,NODRAW;

DRAWLINE(FILTER(BACKSET(REF(CYS,N)=LLV(CYS,2*N+1),N+1),N) AND CYS=LLV(CYS,N+1),CYS,FILTER(底背離>0,5),CYS,0),COLORYELLOW;

DRAWTEXT(底背離,CYS,'↑底背離'),COLORYELLOW;

頂背離:=REF(C,BARSLAST(REF(FILTER(BACKSET(REF(CYS,N)=HHV(CYS,2*N+1),N+1),N) AND CYS=HHV(CYS,N+1),1))+1)<C AND REF(CYS,BARSLAST(REF(FILTER(BACKSET(REF(CYS,N)=HHV(CYS,2*N+1),N+1),N) AND CYS=HHV(CYS,N+1),1))+1)>CYS AND FILTER(BACKSET(REF(CYS,N)=HHV(CYS,2*N+1),N+1),N) AND CYS=HHV(CYS,N+1),COLORGREEN,NODRAW;

DRAWLINE(FILTER(BACKSET(REF(CYS,N)=HHV(CYS,2*N+1),N+1),N) AND CYS=HHV(CYS,N+1),CYS,FILTER(頂背離>0,5),CYS,0),COLORYELLOW;

DRAWTEXT(頂背離,CYS,'↓頂背離'),COLORYELLOW;

中線值:0,COLORYELLOW,DOT,LINETHICK2;