通达信周月抓波段指标公式

HH:=(20*H+19*REF(H,1)+18*REF(H,2)+17*REF(H,3)+16*REF(H,4)+15*REF(H,5)+14*REF(H,6)
+13*REF(H,7)+12*REF(H,8)+11*REF(H,9)+10*REF(H,10)+9*REF(H,11)+8*REF(H,12)
+7*REF(H,13)+6*REF(H,14)+5*REF(H,15)+4*REF(H,16)+3*REF(H,17)+2*REF(H,18)+
REF(H,20))/210,COLORBLUE,LINETHICK1;
LL:=(20*L+19*REF(L,1)+18*REF(L,2)+17*REF(L,3)+16*REF(L,4)+15*REF(L,5)+14*REF(L,6)
+13*REF(L,7)+12*REF(L,8)+11*REF(L,9)+10*REF(L,10)+9*REF(L,11)+8*REF(L,12)
+7*REF(L,13)+6*REF(L,14)+5*REF(L,15)+4*REF(L,16)+3*REF(L,17)+2*REF(L,18)+
REF(L,20))/210,COLORBLUE,LINETHICK1;
D90H:=EMA(HH,90),COLORRED,LINETHICK1;
D90L:=EMA(LL,90),COLORRED,LINETHICK1;
G0:=(XMA(XMA(H,25),25)-XMA(XMA(L,25),25))+XMA(XMA(H,25),25);
D0:=XMA(XMA(L,25),25)-(XMA(XMA(H,25),25)-XMA(XMA(L,25),25));
DTD:=(D0+G0)/2>=(D90H+D90L)/2;
YM:=EMA(SLOPE((CLOSE+HIGH+LOW)/3,24)*20+(CLOSE+HIGH+LOW)/3,48);
YM1:=EMA(YM,5);
金底:=L<D0 AND DTD=1 AND YM>YM1;
STICKLINE(金底,105,120,8,0),COLORLIRED;
{周线抓波段}
A1:="kd.K"(9,3,3);
A2:="KD.D"(9,3,3);
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;{9}
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
周K:=MA("kdj.K#WEEK"(9,3,3) ,5);{5}
周D:=MA("KDJ.D#WEEK"(9,3,3) ,3);{5}
周A:MA("KDJ.J#WEEK"(5,3,3) ,1),COLORGREEN,LINETHICK2;
绿:IF(C>0,46,DRAWNULL),COLOR00FF00,LINETHICK1;
棕:IF(C>0,70,DRAWNULL),COLORBROWN,LINETHICK1;
洋红:=IF(C>0,81,DRAWNULL),COLOR00CCFF,LINETHICK1;
黄:IF(周K>=周D,100,DRAWNULL),COLOR00CCFF,LINETHICK6;{淡黄吸筹}
白:=DRAWTEXT(CURRBARSCOUNT=4,50,'KD金叉'),COLORFFFFFF;
粉:STICKLINE(周K>=周D,周K,周D,1,1),COLORMAGENTA;{STICKLINE}
黄1:STICKLINE(周K<周D,周K,周D,1,1),COLORGREEN;
红:IF(周A>=REF(周A,1),周A,DRAWNULL),COLORRED,LINETHICK3;
{周A上穿棕}
OUTFC:=crOSS(周A,棕);
STICKLINE(OUTFC,0,84,0.0001,0),COLORWHITE;
DRAWTEXT(OUTFC,84,'-老妖显形'),COLORWHITE;
{跃上金坑.与主图k线黄金坑配合使用。}
A1J:=Abs(((3.48*CLOSE+HIGH+LOW)/4-EMA(CLOSE,10))/EMA(CLOSE,10)); {23}
A2J:=DMA(((2.15*CLOSE+LOW+HIGH)/4),A1J);
金线王:=EMA(A2J,5)*1;{200}
金线王2:=EMA(A2J,200)*1.118;{200}
条件:=(C-REF(C,1))/REF(C,1)*100>8;
金K线:=CROSS(C,金线王) AND 条件;
RRFJ:=金K线,STICK;
STICKLINE(IF(RRFJ,-120,0),+60,0,1,0),COLORLIMAGENTA;{COLOR000088;}
DRAWTEXT(RRFJ,55,'-迎财神'),COLORYELLOW;
{KDJ日金}
日K:="KDJ.K#DAY"(9,3,3);{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);{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"(5);{5}
{DRAWICON(日RSI>50,0.3,32);
DRAWICON(日RSI<50,0.3,2);
DRAWTEXT(ISLASTBAR=1,0.3,'日R');}
{KDJ周金}
周KF:="KDJ.K#WEEK"(9,3,3);
周DF:="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);{12/26/9}
周DEA:="MACD.DEA#WEEK"(12,26,9);
{DRAWICON(周DIF>周DEA,0.5,13);{13}
{DRAWICON(周DIF<周DEA,0.5,2);
DRAWTEXT(ISLASTBAR=1,0.5,'周M');}
{RSI周}
周RSI:="RSI.RSI1#WEEK"(9);{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);{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);{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(黑马初显,120,110,8.12,0),COLORRED;
STICKLINE(黑马初显 AND C/REF(C,1)>1.095,120,110,4.66,0),COLORYELLOW;
STICKLINE(黑马初显 AND C/REF(C,1)>1.095,120,110,2.06,0),COLORRED;
{DRAWTEXT(黑马初显,116'-飚'),COLORYELLOW;}
月RSI1:="RSI.RSI1#MONTH"(9),COLORWHITE;
A:=月RSI1>50;
首月R:=CROSS(A>REF(A,1),0.5),COLORLIGRAY,LINETHICK3;
STICKLINE(首月R,125,63,1.6,0),COLORLIGRAY,LINETHICK3;
DRAWTEXT(首月R,125,'-月坑振买'),COLORWHITE;
月DIF1:="MACD.DIF#MONTH"(12,26,9)COLORYELLOW;
月DEA1:="MACD.DEA#MONTH"(12,26,9)COLORYELLOW;
AA:=月DIF1>月DEA1;
首月M:=CROSS(AA>REF(AA,1),0.5)COLORYELLOW;
STICKLINE(首月M,100,85,2,0),COLORYELLOW;
DRAWTEXT(首月M,97,' 月共振'),COLORWHITE;
月K1:="KDJ.K#MONTH"(9,3,3),COLORMAGENTA;
月D1:="KDJ.D#MONTH"(9,3,3),COLORMAGENTA;
AAA:=月K1>月D1;
首月K:=CROSS(AAA>REF(AAA,1),0.5),COLORMAGENTA,LINETHICK3;
STICKLINE(首月K,1.1,1.05,5,0),COLORMAGENTA,LINETHICK3;
周RSI1:="RSI.RSI1#WEEK"(9),COLORGREEN;
AAAA:=周RSI1>50;
首周R:=CROSS(AAAA>REF(AAAA,1),0.5),COLORRED,LINETHICK4;
STICKLINE(首周R,10.05,21,2,0),COLORBROWN,LINETHICK4;
DRAWTEXT(首周R,34.985,'-周共振'),COLORWHITE;
周DIF1:="MACD.DIF#WEEK"(12,26,9),COLORCYAN;
周DEA1:="MACD.DEA#WEEK"(12,26,9),COLORCYAN;
AAAAA:=周DIF1>周DEA1;
首周M:=CROSS(AAAAA>REF(AAAAA,1),0.5),COLORCYAN;
STICKLINE(首周M,1,10,3,0),COLORCYAN;
周K1:="KDJ.K#WEEK"(9,3,3),COLORBLUE;
周D1:="KDJ.D#WEEK"(9,3,3),COLORBLUE;
AAAAAA:=周K1>周D1;
首周K:=CROSS(AAAAAA>REF(AAAAAA,1),0.5),COLORBLUE;
STICKLINE(首周K,34.05,16,3,0),COLORLIMAGENTA,LINETHICK1;
STICKLINE(首周K,16.95,15.91,5,0),COLORGREEN;
DRAWTEXT(首周K,16.935,'-马坑'),COLORCYAN;
{DRAWTEXT(黑马初显,116,'-飚'),COLORYELLOW;}
{周A上穿绿}
OUT:=CROSS(周A,绿);
STICKLINE(OUT,0,71,0.0001,0),COLORGREEN;
DRAWTEXT(OUT,70,'-大妖出现'),COLORCYAN;
XG:=STICKLINE(周A>=REF(周A,1),100,110,2,0),COLORFF00FF;
DRAWTEXT(CURRBARSCOUNT=4,10,'拐点'),COLORFFFFFF;
STICKLINE(C>0,-5,-10,2,1),COLOR00FFFF;
XD:=STICKLINE(周K>=REF(周K,1),-10,0,2,0),COLOR0000FF;
DRAWTEXT(CURRBARSCOUNT=4,30,'K拐点'),COLORFFFFFF;
N1:=50;
沧海行周J:="KDJ.J#WEEK" ,COLORGREEN,LINETHICK2;
沧海行周D:="KDJ.D#WEEK" ,COLOR33AAAA,LINETHICK1;
沧海行周MA:=N1*"MACD.MACD#WEEK" ,COLORLIGREEN,DOTLINE;
零点:=(CONST(LLV(沧海行周MA,101))+CONST(HHV(沧海行周MA,101)))/2;{90}
月RSI11:="RSI.RSI1#MONTH"(9),COLORWHITE;
DI:=月RSI11;
F分:=CONST(LLV(DI,101));{90}
F百:=CONST(HHV(DI,101))-F分;{90}
点:=CONST(LLV(沧海行周MA,101));{90}
基:=CONST(HHV(沧海行周MA,101))-点;{90}
F比:=(DI-F分)/F百;
XFX:=F比*基+点;
月RSI12:=XFX*3,COLORBLUE,LINETHICK5;{蓝色Z字线};
{月RSI12上穿FC}
发财线:=44,LINETHICK1,COLORWHITE;{COLOR999999;白色横线}
发财柱:=CROSS(月RSI12,发财线);
STICKLINE(发财柱,66,144,2,0),COLORYELLOW;
DRAWTEXT(发财柱,142,'--财神到'),COLORWHITE;
{月RSI12上穿疯狂柱}
XX:61,LINETHICK1,COLOR999999;{灰色横线}
疯狂柱:=CROSS(月RSI12,XX);
STICKLINE(疯狂柱,61,85,2,0),COLORBROWN;
DRAWTEXT(疯狂柱,84,'-疯狂柱'),COLORCYAN;
{月RSI12上穿阿拉丁神灯}
阿拉丁神灯:=191,LINETHICK1,COLORGRAY;{COLOR999999;白色横线}
驾云:=CROSS(月RSI12,阿拉丁神灯);
STICKLINE(驾云,141,168,1,0),COLORRED;
DRAWTEXT(驾云,161,'--阿拉丁神灯'),COLORRED;
{月RSI12上穿阿里巴巴}
阿里巴巴:=411,LINETHICK1,COLORGRAY;{COLOR999999;白色横线}
飞毯:=CROSS(月RSI12,阿里巴巴);
STICKLINE(飞毯,186,171,1,0),COLORLIRED;
DRAWTEXT(飞毯,178,'--云中飞毯'),COLORLIRED;