0,COLORRED,LINETHICK2;
20,COLORLIMAGENTA;
50,COLORWHITE;
80,COLORBLUE;
100,COLORGREEN,LINETHICK2;
DRAWTEXT(ISLASTBAR,0,'高安全區'),COLORWHITE;
DRAWTEXT(ISLASTBAR,20,'安 全 區'),COLORYELLOW,DOTLINE;
DRAWTEXT(ISLASTBAR,80,'風 險 區'),COLORBLUE,DOTLINE;
DRAWTEXT(ISLASTBAR,100,'高風險區'),COLORGREEN;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:SMA(RSV,3,1),COLOR9FA1A1,LINETHICK2;
D:SMA(K,3,1),COLOR00A13C,LINETHICK2;
J:3*K-2*D,COLOR0089FF,LINETHICK2;
J1:="MACD.DIF"(12,26,9);J2:="MACD.DEA"(12,26,9);
J3:="KDJ.K"(15,6,3);J4:="KDJ.D"(15,6,3);
J5:="RSI.RSI1"(6,12,24);J6:="RSI.RSI2"(6,12,24);
A1:=BARSLAST(REF(CROSS(J1,J2),1));
B1:=REF(C,A1+1)>C AND REF(J1,A1+1)<J1 AND CROSS(J1,J2);
A2:=BARSLAST(REF(CROSS(J3,J4),1));
B2:=REF(C,A2+1)>C AND REF(J3,A2+1)<J3{ AND CROSS(J3,J4)};
A3:=BARSLAST(REF(CROSS(J5,J6),1));
B3:=REF(C,A3+1)>C AND REF(J5,A3+1)<J5 AND CROSS(J5,J6);
C1:=BARSLAST(REF(CROSS(J2,J1),1));
D1:=REF(C,C1+1)<C AND REF(J1,C1+1)>J1 AND CROSS(J2,J1);
C2:=BARSLAST(REF(CROSS(J4,J3),1));
D2:=REF(C,C2+1)<C AND REF(J3,C2+1)>J3 AND CROSS(J4,J3);
C3:=BARSLAST(REF(CROSS(J6,J5),1));
D3:=REF(C,C3+1)<C AND REF(J5,C3+1)>J5 AND CROSS(J6,J5);
MACD底背離:=FILTER(B1>0,5);
KDJ底背離:=FILTER(B2>0,5);
DRAWTEXT(KDJ底背離,REF(J1,A1+2),'.K底'),COLORWHITE;
RSI底背離:=FILTER(B3>0,5);
KDJ頂背離:=FILTER(D2>0,5);
DRAWTEXT(KDJ頂背離,REF(J1,D1+2),'.K頂'),COLOR0000FF;
A01:=BARSLAST(REF(CROSS(J,K),1));
底背:=REF(CLOSE,A01+1)>CLOSE AND J>REF(J,A01+1) AND CROSS(J,K);
底:DRAWLINE(A01=0,D,底背,D,0),COLORRED,POINTDOT;
DRAWTEXT(底背,D,'底B'),COLORRED;
A02:=BARSLAST(REF(CROSS(K,J),1));
頂背:=REF(CLOSE,A02+1)<CLOSE AND REF(J,A02+1)>J AND CROSS(K,J);
頂:DRAWLINE(A02=0,D,頂背,D,0),COLORGREEN,POINTDOT;
DRAWTEXT(頂背,D,'頂B'),COLORGREEN;
AB2:=BARSLAST(REF(CROSS(K,D),1));
BB2:=REF(C,AB2+1)>LLV( L,3 ) AND REF(K,AB2+1)<K AND CROSS(K,D) AND K<33;
DRAWTEXT(BB2,J,'K底背離'),COLORFF00FF;
BY2:=REF(C,A2+1)>REF(C,A2) AND REF(J3,A2+1)<REF(J3,A2) AND J<11;
DRAWTEXT(BY2,J,'底'),COLORLIBLUE;
BY1:=REF(C,A2+1)>REF(C,A2) AND REF(J3,A2+1)<REF(J3,A2) AND J<1;
DRAWTEXT(BY1,J,'底背離'),COLORBLUE;
HY0:=(C/REF(C,1)>=1.099) OR (NAMELIKE('S') OR NAMELIKE('*')) AND ((C-REF(C,1))/REF(C,1)*100)>=4.945 AND C=H,COLORFF00FF;
HY1:=COUNT(HY0,13)>=1;
HY2:=HY1=1 AND J<15;
DRAWICON(HY2,J,23);
