{超级飓风眼附图：铁算盘源码}
DD11:0.9,COLORFF33FF;
DD22:1.2,COLORCYAN;
{黄金柱}
M:=30;
N:=15;
AJ:=HHV(H,M)=H;
AJT:=BArslAST(AJ);
AJ1:=LLV(L,N)=L;
AJ1T:=BARSLAST(AJ1);
TJ:=HHV(H,M)=H;
TJT:BARSLAST(TJ)NODRAW;
TJ1T:=BARSLAST(AJ1);
{STICKLINE((TJT=0,H,TJ1T=0) AND AJ1 AND FILTERX(AJ1,TJT+1) ,REF(L,TJ1T)
,REF(H,TJT),0,0)COLORYELLOW,LINETHICK3;}
OUT:=STICKLINE((TJT=0,H,TJ1T=0) AND AJ1 AND FILTERX(AJ1,TJT+1) ,REF(L,TJ1T)
,REF(H,TJT),0,0)COLORYELLOW,LINETHICK3;
STICKLINE(OUT>0,0,0.89,4,0),COLORBLUE,LINETHICK2;{黄色柱}
DRAWTEXT(OUT,0.95,'底'),COLORBLUE;
{选股}
{M:=30;
N:=15;
AJ1:=LLV(L,N)=L;
TJ:=HHV(H,M)=H;
TJT:=BARSLAST(TJ);
TJ1T:=BARSLAST(AJ1);
TJT=0,H,TJ1T=0 AND AJ1 AND FILTERX(AJ1,TJT+1) ;};
{KDJ日金}
日K:="KDJ.K#DAY"(9,3,3);
日D:="KDJ.D#DAY"(9,3,3);
DRAWICON(日K>日D,0.1,32);
DRAWICON(日K<日D,0.1,2);
DRAWTEXT(ISLASTBAR=1,0.1,'日K');
{maCD日金}
日dif:="MacD.DIF#DAY"(12,26,9);
日DEA:="macd.DEA#DAY"(12,26,9);
DRAWICON(日DIF>日DEA,0.2.1,32);
DRAWICON(日DIF<日DEA,0.2,2);
DRAWTEXT(ISLASTBAR=1,0.2,'日M');
{rsi日}
日RSI:="RSI.RSI1#DAY"(9);
DRAWICON(日RSI>50,0.3,32);
DRAWICON(日RSI<50,0.3,2);
DRAWTEXT(ISLASTBAR=1,0.3,'日R');
{KDJ周金}
周K:="KDJ.K#WEEK"(9,3,3);
周D:="KDJ.D#WEEK"(9,3,3);
DRAWICON(周K>周D,0.4,13);
DRAWICON(周K<周D,0.4,2);
DRAWTEXT(ISLASTBAR=1,0.4,'周K');
{MACD周金}
周DIF:="MACD.DIF#WEEK"(12,26,9);
周DEA:="MACD.DEA#WEEK"(12,26,9);
DRAWICON(周DIF>周DEA,0.5,13);
DRAWICON(周DIF<周DEA,0.5,2);
DRAWTEXT(ISLASTBAR=1,0.5,'周M');
{RSI周}
周RSI:="RSI.RSI1#WEEK"(9);
DRAWICON(周RSI>50,0.6,13);
DRAWICON(周RSI<50,0.6,2);
DRAWTEXT(ISLASTBAR=1,0.6,'周R');
{KDJ月金}
月K:="KDJ.K#MONTH"(9,3,3);
月D:="KDJ.D#MONTH"(9,3,3);
DRAWICON(月K>月D,0.7,33);
DRAWICON(月K<月D,0.7,2);
DRAWTEXT(ISLASTBAR=1,0.7,'月K');
{MACD月金}
月DIF:="MACD.DIF#MONTH"(12,26,9);
月DEA:="MACD.DEA#MONTH"(12,26,9);
DRAWICON(月DIF>月DEA,0.8,33);
DRAWICON(月DIF<月DEA,0.8,2);
DRAWTEXT(ISLASTBAR=1,0.8,'月M');
{RSI月}
月RSI:="RSI.RSI1#MONTH"(9);
DRAWICON(月RSI>50,0.9,33);
DRAWICON(月RSI<50,0.9,2);
DRAWTEXT(ISLASTBAR=1,0.9,'月R');
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.05,0.91,0.12,0),COLORWHITE;
STICKLINE(黑马初显 AND C/REF(C,1)>1.095,0.05,0.91,0.66,0),COLORBLUE;
STICKLINE(黑马初显 AND C/REF(C,1)>1.095,0.05,0.91,0.06,0),COLORWHITE;
{DRAWTEXT(首周K,0.935,' --马坑'),COLORBLUE;}
月RSI1:="RSI.RSI1#MONTH"(9),COLORRED;
A:=月RSI1>50;
首月R:crOSS(A>REF(A,1),0.5),COLORRED,LINETHICK3;
STICKLINE(首月R,1.2,1.12,5,0),COLORRED,LINETHICK3;
DRAWTEXT(首月R,1.11,' --月共振'),COLORRED;
月DIF1:="MACD.DIF#MONTH"(12,26,9)COLORBLUE;
月DEA1:="MACD.DEA#MONTH"(12,26,9)COLORBLUE;
AA:=月DIF1>月DEA1;
首月M:CROSS(AA>REF(AA,1),0.5)COLORBLUE;
STICKLINE(首月M,1.15,1.1,5,0),COLORBLUE;
月K1:="KDJ.K#MONTH"(9,3,3),COLORLIMAGENTA;
月D1:="KDJ.D#MONTH"(9,3,3),COLORLIMAGENTA;
AAA:=月K1>月D1;
首月K:CROSS(AAA>REF(AAA,1),0.5),COLORLIMAGENTA,LINETHICK3;
STICKLINE(首月K,1.1,1.05,5,0),COLORLIMAGENTA,LINETHICK3;
周RSI1:="RSI.RSI1#WEEK"(9),COLORCYAN;
AAAA:=周RSI1>50;
首周R:CROSS(AAAA>REF(AAAA,1),0.5),COLORWHITE,LINETHICK4;
STICKLINE(首周R,1.05,1,5,0),COLORWHITE,LINETHICK4;
DRAWTEXT(首周R,1.03,' --周共振'),COLORWHITE;
周DIF1:="MACD.DIF#WEEK"(12,26,9),COLORGREEN;
周DEA1:="MACD.DEA#WEEK"(12,26,9),COLORGREEN;
AAAAA:=周DIF1>周DEA1;
首周M:CROSS(AAAAA>REF(AAAAA,1),0.5),COLORGREEN;
STICKLINE(首周M,1,0.95,5,0),COLORGREEN;
周K1:="KDJ.K#WEEK"(9,3,3),COLORYELLOW;
周D1:="KDJ.D#WEEK"(9,3,3),COLORYELLOW;
AAAAAA:=周K1>周D1;
首周K:CROSS(AAAAAA>REF(AAAAAA,1),0.5),COLORYELLOW;
STICKLINE(首周K,1.05,1,0,0),COLORYELLOW,LINETHICK1;
STICKLINE(首周K,0.95,0.91,5,0),COLORYELLOW;
DRAWTEXT(首周K,0.935,' --马坑'),COLORBLUE;
DRAWTEXT(黑马初显,0.935,'-飚'),COLORBLUE;
