Youtube/小红书/抖音/TikTok：阿祖交易自习室，联系方式：Azu@AzuInvests.com

S:=12;
P:=26;
M:=9;
GAP := HHV(H, 20) - LLV(L, 20);
DIFF_1 := ((EMA(CLOSE,S) - EMA(CLOSE,P)));
DEA_1 := EMA(DIFF_1,M);
MACD_1:= ((DIFF_1- DEA_1) * 2);
N1 := BARSLAST(((REF(MACD_1,1) >= 0) AND (MACD_1 < 0)));
MM1 := BARSLAST(((REF(MACD_1,1) <= 0) AND (MACD_1 > 0)));
CC1 := LLV(CLOSE,(N1 + 1));
CC2 := REF(CC1,(MM1 + 1));
CC3 := REF(CC2,(MM1 + 1));
DIFL1 := LLV(DIFF_1,(N1 + 1));
DIFL2 := REF(DIFL1,(MM1 + 1));
DIFL3 := REF(DIFL2,(MM1 + 1));
CH1 := HHV(CLOSE,(MM1 + 1));
CH2 := REF(CH1,(N1 + 1));
CH3 := REF(CH2,(N1 + 1));
DIFH1 := HHV(DIFF_1,(MM1 + 1));
DIFH2 := REF(DIFH1,(N1 + 1));
DIFH3 := REF(DIFH2,(N1 + 1));
AAA := ((CC1 < CC2) AND ((DIFL1 > DIFL2) AND ((REF(MACD_1,1) < 0) AND (DIFF_1 < 0))));
BBB := ((CC1 < CC3) AND ((DIFL1 < DIFL2) AND ((DIFL1 > DIFL3) AND ((REF(MACD_1,1) < 0) AND (DIFF_1 < 0)))));
CCC := ((AAA OR BBB) AND (DIFF_1 < 0));
LLL := ((REF(CCC,1) = 0) AND CCC);
XXX := ((REF(AAA,1) AND ((DIFL1 <= DIFL2) AND (DIFF_1 < DEA_1))) OR (REF(BBB,1) AND ((DIFL1 <= DIFL3) AND (DIFF_1 < DEA_1))));
JJJ := (REF(CCC,1) AND (ABS(REF(DIFF_1,1)) >= (ABS(DIFF_1) * 1.01)));
BLBL := (REF(JJJ,1) AND (CCC AND ((ABS(REF(DIFF_1,1)) * 1.01) <= ABS(DIFF_1))));
DXDX := ((REF(JJJ,1) = 0) AND JJJ );
DJGXX := (((CLOSE < CC2) OR (CLOSE < CC1)) AND ((REF(JJJ,(MM1 + 1)) OR REF(JJJ,MM1)) AND (NOT(REF(LLL,1)) AND (COUNT(JJJ,24) >= 1))));
DJXX := (NOT((COUNT(REF(DJGXX,1),2) >= 1)) AND DJGXX);
DXX := ((XXX OR DJXX) AND NOT(CCC));
DRAWTEXT((DXDX),(LOW - 0.3 * GAP),'CD'), COLORFFFF00;

ZJDBL := ((CH1 > CH2) AND ((DIFH1 < DIFH2) AND ((REF(MACD_1,1) > 0) AND (DIFF_1 > 0))));
GXDBL := ((CH1 > CH3) AND ((DIFH1 > DIFH2) AND ((DIFH1 < DIFH3) AND ((REF(MACD_1,1) > 0) AND (DIFF_1 > 0)))));
DBBL := ((ZJDBL OR GXDBL) AND (DIFF_1 > 0));
DBL := ((REF(DBBL,1) = 0) AND (DBBL AND (DIFF_1 > DEA_1)));
DBLXS := ((REF(ZJDBL,1) AND ((DIFH1 >= DIFH2) AND (DIFF_1 > DEA_1))) OR (REF(GXDBL,1) AND ((DIFH1 >= DIFH3) AND (DIFF_1 > DEA_1))));
DBJG := (REF(DBBL,1) AND (REF(DIFF_1,1) >= (DIFF_1 * 1.01)));
DBJGXC := (REF(NOT(DBJG),1) AND DBJG);
DBJGBL := (REF(DBJG,1) AND (DBBL AND ((REF(DIFF_1,1) * 1.01) <= DIFF_1)));
ZZZZZ := (((CLOSE > CH2) OR (CLOSE > CH1)) AND ((REF(DBJG,(N1 + 1)) OR REF(DBJG,N1)) AND (NOT(REF(DBL,1)) AND (COUNT(DBJG,23) >= 1))));
YYYYY := (NOT((COUNT(REF(ZZZZZ,1),2) >= 1)) AND ZZZZZ);
WWWWW := ((DBLXS OR YYYYY) AND NOT(DBBL));
DRAWTEXT(DBJGXC,(HIGH + 0.3 * GAP),'MC'),COLORRED;

SHORT:=23;
LONG:=89;

S_U:EMA(H,SHORT+1),COLORBLUE,LINETHICK1;
S_D:EMA(L,SHORT),COLORBLUE,LINETHICK1;
L_U:EMA(H,LONG+1),COLORYELLOW,LINETHICK1;
L_D:EMA(L,LONG),COLORYELLOW,LINETHICK1;
STICKLINE(C>L_U OR C<L_D,L_U,L_D,0.1,0),COLORYELLOW;
STICKLINE(C>S_U OR C<L_U,S_U,S_D,0.1,0),COLORBLUE;

IF(C>S_D,S_D,DRAWNULL),COLORBLUE,LINETHICK1;
IF(C<S_D,S_D,DRAWNULL),COLORMAGENTA,LINETHICK1;
IF(C>S_U,S_U,DRAWNULL),COLORBLUE,LINETHICK1;
IF(C<S_U,S_U,DRAWNULL),COLORMAGENTA,LINETHICK1;
STICKLINE(C>S_U,S_U,S_D,0.1,0),COLORBLUE;
STICKLINE(C<S_D,S_U,S_D,0.1,0),COLORMAGENTA;

STICKLINE(CROSS(C,S_U),O*1.0001,C*0.9999,0.74,0),COLORYELLOW,LINETHICK8;
STICKLINE(CROSS(S_D,C),O*1.0001,C*0.9999,0.74,0),COLORPURPLE,LINETHICK8;

DRAWTEXT(CROSS(S_U,L_D),(S_D - 0.3 * GAP),'PRE'),COLORGREEN;
DRAWTEXT(CROSS(S_U,L_U),(S_D - 0.3 * GAP),'BULL'),COLORGREEN;
DRAWTEXT(CROSS(L_D,S_D),(S_D + 0.3 * GAP),'PRE'),COLORLIRED;
DRAWTEXT(CROSS(L_D,S_U),(S_D + 0.3 * GAP),'BEAR'),COLORLIRED;