日D:="KDJ.D#DAY"(9,3,3);
日DIF:="MACD.DIF#DAY"(12,26,9);
日DEA:="MACD.DEA#DAY"(12,26,9);
日RSI:="RSI.RSI1#DAY"(9);
周K:="KDJ.K#WEEK"(9,3,3);
周D:="KDJ.D#WEEK"(9,3,3);
周DIF:="MACD.DIF#WEEK"(12,26,9);
周DEA:="MACD.DEA#WEEK"(12,26,9);
周RSI:="RSI.RSI1#WEEK"(9);
月K:="KDJ.K#MONTH"(9,3,3);
月D:="KDJ.D#MONTH"(9,3,3);
月DIF:="MACD.DIF#MONTH"(12,26,9);
月DEA:="MACD.DEA#MONTH"(12,26,9);
月RSI:="RSI.RSI1#MONTH"(9);
X1:=日K>日D;
X2:=日DIF>日DEA;
X3:=日RSI>50;
X4:=周K>周D;
X5:=周DIF>周DEA;
X6:=周RSI>50;
X7:=月K>月D;
X8:=月DIF>月DEA;
X9:=月RSI>50;
黑马初显:=X1 AND X2 AND X3 AND X4 AND X5 AND X6 AND X7 AND X8 AND X9;
黑马:=REF(黑马初显,1)<1 AND 黑马初显;
周RSI1:="RSI.RSI1#WEEK"(9);
AAAA:=周RSI1>50;
首周R:=(CROSS(AAAA>REF(AAAA,1),0.5))*2;
周K1:="KDJ.K#WEEK"(9,3,3);
周D1:="KDJ.D#WEEK"(9,3,3);
AABB:=周K1>周D1;
首周K:=(CROSS(AABB>REF(AABB,1),0.5))*1.8;
周DIF1:="MACD.DIF#WEEK"(12,26,9);
周DEA1:="MACD.DEA#WEEK"(12,26,9);
AAAAA:=周DIF1>周DEA1;
首周M:=(CROSS(AAAAA>REF(AAAAA,1),0.5))*1.6;
月RSI1:="RSI.RSI1#MONTH"(9);
A2B:=月RSI1>50;
首月R:=(CROSS(A2B>REF(A2B,1),0.5))*1.4;
月K1:="KDJ.K#MONTH"(9,3,3);
月D1:="KDJ.D#MONTH"(9,3,3);
AAA:=月K1>月D1;
首月K:=(CROSS(AAA>REF(AAA,1),0.5))*1.2;
月DIF1:="MACD.DIF#MONTH"(12,26,9);
月DEA1:="MACD.DEA#MONTH"(12,26,9);
AA2:=月DIF1>月DEA1;
首月M:=CROSS(AA2>REF(AA2,1),0.5);
周TJ:=首周R AND 首周K AND 首周M;
月TJ:=首月R AND 首月K AND 首月M;
TJ:=COUNT(周TJ OR 月TJ,6)>=1;
周月三振:(COUNT(TJ,5)>=1 AND 黑马)*1.5;
DRAWTEXT(周月三振>0,1.35,' --周月三振'),COLORWHITE;
周TJ2:=首周R OR 首周K OR 首周M;
月TJ2:=首月R OR 首月K OR 首月M;
周月TJ:=COUNT(周TJ2,6)>=1 AND 月TJ2;
月周TJ:=COUNT(月TJ2,6)>=1 AND 周TJ2;
周月差显:(周月TJ OR 月周TJ) AND 黑马,STICK,LINETHICK3;
DRAWTEXT(周月差显>0,0.6,' --周月差显'),COLORYELLOW;
