通达信黑码初显 多指标共振副图指标源码

DD11:0.95,COLORFF33FF;
DD22:2,COLORGREEN;

{KDJ日金}
日K:="KDJ.K#DAY"(9,3,3);
日D:="KDJ.D#DAY"(9,3,3);
DRAWICON(日K>日D,1,1);
DRAWICON(日K<日D,1,2);
DRAWTEXT(ISLASTBAR=1,1,'日K'),COLORFFFFFF;
{MACD日金}
日DIF:="MACD.DIF#DAY"(12,26,9);
日DEA:="MACD.DEA#DAY"(12,26,9);
DRAWICON(日DIF>日DEA,1.1,1);
DRAWICON(日DIF<日DEA,1.1,2);
DRAWTEXT(ISLASTBAR=1,1.1,'日M'),COLORFFFFFF;
{RSI日}
日RSI:="RSI.RSI1#DAY"(9);
DRAWICON(日RSI>50,1.2,1);
DRAWICON(日RSI<50,1.2,2);
DRAWTEXT(ISLASTBAR=1,1.2,'日R'),COLORFFFFFF;
{KDJ周金}
周K:="KDJ.K#WEEK"(9,3,3);
周D:="KDJ.D#WEEK"(9,3,3);
DRAWICON(周K>周D,1.3,1);
DRAWICON(周K<周D,1.3,2);
DRAWTEXT(ISLASTBAR=1,1.3,'周K'),COLORFFFFFF;
{MACD周金}
周DIF:="MACD.DIF#WEEK"(12,26,9);
周DEA:="MACD.DEA#WEEK"(12,26,9);
DRAWICON(周DIF>周DEA,1.4,1);
DRAWICON(周DIF<周DEA,1.4,2);
DRAWTEXT(ISLASTBAR=1,1.4,'周M'),COLORFFFFFF;
{RSI周}
周RSI:="RSI.RSI1#WEEK"(9);
DRAWICON(周RSI>50,1.5,1);
DRAWICON(周RSI<50,1.5,2);
DRAWTEXT(ISLASTBAR=1,1.5,'周R'),COLORFFFFFF;
{KDJ月金}
月K:="KDJ.K#MONTH"(9,3,3);
月D:="KDJ.D#MONTH"(9,3,3);
DRAWICON(月K>月D,1.6,1);
DRAWICON(月K<月D,1.6,2);
DRAWTEXT(ISLASTBAR=1,1.6,'月K'),COLORFFFFFF;
{MACD月金}
月DIF:="MACD.DIF#MONTH"(12,26,9);
月DEA:="MACD.DEA#MONTH"(12,26,9);
DRAWICON(月DIF>月DEA,1.7,1);
DRAWICON(月DIF<月DEA,1.7,2);
DRAWTEXT(ISLASTBAR=1,1.7,'月M'),COLORFFFFFF;
{RSI月}
月RSI:="RSI.RSI1#MONTH"(9);
DRAWICON(月RSI>50,1.8,1);
DRAWICON(月RSI<50,1.8,2);
DRAWTEXT(ISLASTBAR=1,1.8,'月R'),COLORFFFFFF;

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;
STICKLINE(黑码初显,0.95,1.85,1,0),COLORBLUE;
STICKLINE(黑码初显 AND C/REF(C,1)>1.095,0.95,1.85,2,0),COLORYELLOW;
STICKLINE(黑码初显 AND C/REF(C,1)>1.095,0.95,1.85,1,0),COLORRED;
DRAWTEXT(黑码初显,1.90,'黑'),COLORWHITE;