通达信主图火箭(附源码) EMA13:EMA(C,13),COLOR0000FF,LINETHICK2; EMA34:EMA(C,34),COLORYELLOW; EMA55:EMA(C,55),COLORFF00FF; EMA120:EMA(C,120),COLORFFCC66; AR1:=EMA55>EMA34 AND EMA34>EMA13; AR2:=BARSLAST((C-EMA13)/EMA13*100<-6); AR3:=EMA13>=REF(EMA13,2); AR4:=COUNT(CROSS(C,EMA13),AR2)=1; AR5:=AR1 AND AR2 AND AR3 AND AR4; AR6:=AR5 AND FILTER(AR5,10); DRAWTEXT(AR6,L-0.09,'启动'),COLORYELLOW; STICKLINE(AR6,O,C,6,1),LINETHICK2,COLORYELLOW; BR1:=COUNT(BETWEEN((C-REF(C,1))/REF(C,1)*100,0,5) ,5)=5; BR2:=ABS((EMA13-EMA34)+(EMA34-EMA55))/C<0.2; BR3:=C>EMA55 AND (REF(C,1) BR4:=BR1 AND BR2 AND BR3; DRAWTEXT(BR4 AND FILTER(BR4,10),L-0.09,'上升'),COLOR00C5FF; STICKLINE(BR4 AND FILTER(BR4,10),O,C,6,1),LINETHICK2,COLOR00C5FF; CR1:=(C-REF(C,1))/REF(C,1)*100>0.5; CR2:=V>MA(V,5)*0.6; CR3:=COUNT(CROSS(EMA13,EMA55),3)=1; CR4:=ABS(EMA34-EMA55)/EMA55<0.03; CR5:=EMA55<=EMA120 AND EMA55>=REF(EMA55,1); CR6:=FILTER(CR1 AND CR2 AND CR3 AND CR4 AND CR5,2); STICKLINE(CR6,O,C,6,1),LINETHICK2,COLORF00FF0; DRAWTEXT(CR6,L-0.09,'涨升'),COLORF00FF0; DR1:=EMA13>EMA34 AND EMA34 DR2:=BARSLAST(CROSS(C,EMA55) ); DR3:=H=HHV(H,DR2); DR4:=BARSLAST(DR3); DR5:=COUNT(O>C AND C[EMA55 AND BETWEEN((C-EMA55)/EMA55,0,0.02),DR4)=1;] DR6:=C>REF(C,1) ; DR7:= DR1 AND DR5 AND DR6 ; DR8:=DR7 AND FILTER(DR7 ,10); DRAWTEXT(DR8,L-0.09,'出击'),COLORD6BA63;{ STICKLINE(DR8,O,C,6,1),LINETHICK2,COLORD6BA63;} ER:=BARSLAST(REF(CROSS(EMA55,EMA34),1)) AND CROSS(EMA34,EMA55); DRAWTEXT(ER,L-0.09,'金叉'),COLOR0099FF;{ STICKLINE(ER,O,C,6,1),LINETHICK2,COLOR0099FF;} FR:=BARSLAST(REF(CROSS(EMA34,EMA13),1)) AND CROSS(EMA13,EMA34); DRAWTEXT(FR,L-0.09,'加仓'),COLORWHITE;{ STICKLINE(FR,O,C,6,1),LINETHICK2,COLORWHITE;} GR1:=BARSLAST(BETWEEN("BIAS.BIAS2"(6,13,24),0,5) ); GR2:=EMA13>EMA34 AND EMA34>EMA55 AND EMA13>REF(EMA13,1); GR3:=COUNT("BIAS.BIAS2"(6,13,24)>10 AND H=HHV(H,GR1),GR1); GR4:=H=HHV(H,GR1); GR5:="MACD.MACD"(12,26,9) GR6:=GR2 AND GR3 AND GR4; GR7:=GR2 AND GR3 AND GR4 AND GR5; DRAWTEXT(GR6 AND GR7,H+0.13,'了结'),COLOR00FF00;{ STICKLINE(GR6 AND GR7,H,H+0.09,4,0),COLOR00FF00;} HR2:=EMA13>=REF(EMA13,3) AND EMA34>=REF(EMA34,1) AND EMA55>=REF(EMA55,1) AND CROSS(C,EMA13) AND CROSS(C,EMA34) AND CROSS(C,EMA55); DRAWTEXT(HR2 AND FILTER(HR2,10),L-0.09,'推进'),COLORFFC8FF; STICKLINE(HR2 AND FILTER(HR2,10),O,C,6,1),LINTICK2,COLORFFC8FF;
注:平台目前更新的有关公式源码,手机电脑均可使用,部分提示编码错误的,是为了避免业内叨唠,大家看好有意,可以及时联系我们这边,(会有收费,主99副1)帮忙处理,在线即回!感谢后续多多,关注支持! |