通达信月周共振三角主图指标公式源码

{ 通达信月周共振三角主图指标公式源码 }

DRAWTEXT_FIX(1,0.4,0,0,'当主图出现共振信号后1~10个交易日内，观察副图对应的几日内，有无黄金坑，有则最佳'),COLORGRAY;
DRAWTEXT_FIX(1,0.4,0.1,0,'当随后某日，5日线上穿10日线为第一买点；k线放量上穿60均线，则视为是大涨在即，为第二买点'),COLORGRAY;
DRAWTEXT_FIX(1,0.4,0.2,0,'共振信号结合探底点、决策线洋红色三角、量王红色线上穿蓝色线，可判断底部'),COLORGRAY;
DRAWTEXT_FIX(ISLASTBAR,0.01,0.01,0,HYBLOCK),COLOR0000FF;
DRAWTEXT_FIX(ISLASTBAR,0.01,0.07,0,DYBLOCK),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.01,0.13,0,GNBLOCK),COLORFF00FF;
DRAWTEXT_FIX(ISLASTBAR,0.01,0.2,0,FGBLOCK),COLOR0080FF;
M5:=MA(C,5);
M10:=MA(C,10);
M30:=MA(C,30);
MM:=MIN(M5,M30);
MM2:=MIN(M10,M30);
HM:=MAX(M5,M30);
HM2:=MAX(M10,M30);
TC1:DRAWBAND(MM,RGB(255,0,0),MM2,0);
MA5:MA(C,5),COLORWHITE;
MA10:MA(C,10),COLORYELLOW;
MA30:MA(C,30),COLORGREEN;
MA60:MA(C,60),LINETHICK2,COLORFF00FF;{要求必须站上60日均线；经研究发现，在出现金银三角附近，
60均线呈水平一段时间(大于5日)时，容易出现超级牛股启动！此时，该60均线水平段与
回踩支撑位蓝色线呈平行或重叠状态最佳！}
MA120:MA(C,120),LINETHICK2,COLORCYAN,NODRAW;
三角:=MA(C,5)>MA(C,10) AND MA(C,10)>MA(C,30) AND crOSS(MA(C,10),MA(C,30));
DRAWTEXT(三角 AND MA(C,5)<ma(c,120),ma(c,30)-0.08,'银三角'),colormagenta;
DRAWTEXT(三角 AND MA(C,30)>MA(C,120),MA(C,30)-0.08,'金三角'),COLORYELLOW;
支撑位:IF(BArslAST(三角),REF(M30,BARSLAST(三角)),DRAWNULL),LINETHICK2,COLORFF0000;
DRAWTEXT(ISLASTBAR,支撑位-0.08,'回踩支撑位'),COLOR0000FF;
DD11:=0.9;
DD22:=1.2;
{黄金柱}
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);
TJ1T:=BARSLAST(AJ1);
{STICKLINE((TJT=0,H,TJ1T=0) AND AJ1 AND FILTERX(AJ1,TJT+1) ,REF(L,TJ1T)
,REF(H,TJT),0,0)COLORBLUE,LINETHICK3;}
OUT:=STICKLINE((TJT=0,H,TJ1T=0) AND AJ1 AND FILTERX(AJ1,TJT+1) ,REF(L,TJ1T)
,REF(H,TJT),0,0);
{kdj日金}
日K:="kdJ.K#DAY"(9,3,3);
日D:="KDJ.D#DAY"(9,3,3);
{macd日金}
日DIF:="MacD.DIF#DAY"(12,26,9);
日DEA:="MACD.DEA#DAY"(12,26,9);
{rsi日}
日RSI:="RSI.RSI1#DAY"(9);
{KDJ周金}
周K:="KDJ.K#WEEK"(9,3,3);
周D:="KDJ.D#WEEK"(9,3,3);
{MACD周金}
周DIF:="MACD.DIF#WEEK"(12,26,9);
周DEA:="MACD.DEA#WEEK"(12,26,9);
{RSI周}
周RSI:="RSI.RSI1#WEEK"(9);
{KDJ月金}
月K:="KDJ.K#MONTH"(9,3,3);
月D:="KDJ.D#MONTH"(9,3,3);
{MACD月金}
月DIF:="MACD.DIF#MONTH"(12,26,9);
月DEA:="MACD.DEA#MONTH"(12,26,9);
{RSI月}
月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;
月RSI1:="RSI.RSI1#MONTH"(9);
A:=月RSI1>50;
月共振:=CROSS(A>REF(A,1),0.5);
周RSI1:="RSI.RSI1#WEEK"(9);
AAAA:=周RSI1>50;
周共振:=CROSS(AAAA>REF(AAAA,1),0.5);
周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);
AK1:=IF(INBLOCK('创业板'),1,0);
{创业板}
流通市值:=FINANCE(40)/100000000;
AK2:=流通市值<=300 AND FINANCE(42)>10 AND C<=60;
{流通市值小于300亿，上市天数大于10天，股价低于60元}
AK:={AK1 AND }AK2;
MMM1:=月共振 AND NOT(周共振) AND AK;
MMM2:=月共振 AND 周共振 AND AK;
MMM3:=MMM1 AND 首周K;
MMM4:=MMM2 AND 首周K;
DRAWICON(MMM1,L*0.98,24);
DRAWICON(MMM2,L*0.98,25);
DRAWBMP(MMM1,H*1.2,'Q1A');
DRAWBMP(MMM2,H*1.2,'15A');
DRAWICON(MMM1,L*0.92,18);
DRAWICON(MMM2,L*0.92,42);
DRAWICON(MMM3,L*0.87,1);
DRAWICON(MMM4,L*0.87,1);