通达信思维原子弹副图指标公式源码

通达信思维原子弹副图指标公式源码

{www.gszb.com思维66原子弹}
DRAWTEXT_FIX(ISLASTBAR=1,0.46,0,0,STKNAME),COLORCYAN;
DRAWTEXT_FIX(ISLASTBAR=1,0.40,0,0,CODE),COLORYELLOW;
JD:=ATAN((EMA(C,10)/REF(EMA(C,10),1)-1)*180)*100/3.14159265;
角度:=JD,NODRAW;
TJ1:=CROSS(JD,37)   AND  (REF(C,1)>REF(O,1));
XG:=TJ1;
{www.gszb.com原子弹}
STICKLINE(XG,0,1.6,0.1,0),COLORRED;
STICKLINE(XG,-1.28,-0.79,15,0)COLOR0000FF;
STICKLINE(XG,-1.28,-0.79,13,0)COLOR0000FF;
STICKLINE(XG,-1.28,-0.79,10,0)COLOR0000FF;
STICKLINE(XG,-1.28,-0.79,8,0)COLOR0000FF;
STICKLINE(XG,-1.28,-0.79,12,0)COLORBLACK;
STICKLINE(XG,-1.28,-0.79,6,0)COLOR0000FF;
STICKLINE(XG,-1.28,-0.79,4,0)COLOR0000FF;
STICKLINE(XG,-1.28,-0.79,2,0)COLOR0000FF;
STICKLINE(XG,-1.28,-0.79,1,0)COLOR0000FF;
STICKLINE(XG,-1.28,-0.79,3,0)COLORBLACK;
STICKLINE(XG,-1.28,-0.79,0,0)COLOR0000FF;
STICKLINE(XG,-0.7,-0.3,15,0)COLOR222222;
STICKLINE(XG,-0.7,-0.3,10,0)COLOR333333;
STICKLINE(XG,-0.7,-0.3,6,0)COLOR444444;
STICKLINE(XG,-0.7,-0.3,4,0)COLOR666666;
STICKLINE(XG,-0.7,-0.3,2,0)COLOR888888;
STICKLINE(XG,-0.3,-0.2,15,0)COLOR000099;
STICKLINE(XG,-0.3,-0.2,12,0)COLOR3300CC;
STICKLINE(XG,-0.3,-0.2,10,0)COLOR003399;
STICKLINE(XG,-0.3,-0.2,6,0)COLOR0033CC;
STICKLINE(XG,-0.3,-0.2,4,0)COLOR3333CC;
STICKLINE(XG,-0.3,-0.2,2,0)COLOR9933FF;
STICKLINE(XG,-0.2,0.6,18,0)COLOR0066CC;
STICKLINE(XG,-0.2,0.6,12,0)COLOR0088FF;
STICKLINE(XG,-0.2,0.6,8,0)COLOR0066FF;
STICKLINE(XG,-0.2,0.6,5,0)COLOR0066CC;
STICKLINE(XG,-0.2,0.6,3,0)COLOR0099FF;
STICKLINE(XG,-0.2,0.6,2,0)COLOR6699FF;
STICKLINE(XG,0.6,0.7,15,0)COLOR000099;
STICKLINE(XG,0.6,0.7,12,0)COLOR3300CC;
STICKLINE(XG,0.6,0.7,10,0)COLOR003399;
STICKLINE(XG,0.6,0.7,6,0)COLOR0033CC;
STICKLINE(XG,0.6,0.7,4,0)COLOR3333CC;
STICKLINE(XG,0.6,0.7,2,0)COLOR9933FF;
STICKLINE(XG,0.7,0.75,15,0)COLOR222222;
STICKLINE(XG,0.7,0.75,10,0)COLOR333333;
STICKLINE(XG,0.7,0.75,8,0)COLOR444444;
STICKLINE(XG,0.7,0.75,4,0)COLOR666666;
STICKLINE(XG,0.7,0.75,2,0)COLOR888888;
STICKLINE(XG,0.75,0.8,14,0)COLOR222222;
STICKLINE(XG,0.75,0.8,8,0)COLOR333333;
STICKLINE(XG,0.75,0.8,6,0)COLOR444444;
STICKLINE(XG,0.75,0.8,4,0)COLOR666666;
STICKLINE(XG,0.75,0.8,2,0)COLOR888888;
STICKLINE(XG,0.8,0.85,13,0)COLOR222222;
STICKLINE(XG,0.8,0.85,8,0)COLOR333333;
STICKLINE(XG,0.8,0.85,6,0)COLOR444444;
STICKLINE(XG,0.8,0.85,4,0)COLOR666666;
STICKLINE(XG,0.8,0.85,2,0)COLOR888888;
STICKLINE(XG,0.85,0.9,12,0)COLOR222222;
STICKLINE(XG,0.85,0.9,8,0)COLOR333333;
STICKLINE(XG,0.85,0.9,6,0)COLOR444444;
STICKLINE(XG,0.85,0.9,4,0)COLOR666666;
STICKLINE(XG,0.85,0.9,2,0)COLOR888888;
STICKLINE(XG,0.9,0.95,10,0)COLOR222222;
STICKLINE(XG,0.9,0.95,8,0)COLOR333333;
STICKLINE(XG,0.9,0.95,6,0)COLOR444444;
STICKLINE(XG,0.9,0.95,4,0)COLOR666666;
STICKLINE(XG,0.9,0.95,2,0)COLOR888888;
STICKLINE(XG,0.95,1,8,0)COLOR222222;
STICKLINE(XG,0.95,1,6,0)COLOR333333;
STICKLINE(XG,0.95,1,4,0)COLOR666666;
STICKLINE(XG,0.95,1,2,0)COLOR888888;
STICKLINE(XG,1,1.05,6,0)COLOR222222;
STICKLINE(XG,1,1.05,4,0)COLOR333333;
STICKLINE(XG,1,1.05,3,0)COLOR444444;
STICKLINE(XG,1,1.05,2,0)COLOR888888;
STICKLINE(XG,1.05,1.1,4,0)COLOR444444;
STICKLINE(XG,1.05,1.1,2,0)COLOR666666;
STICKLINE(XG,1.05,1.1,1,0)COLOR888888;
STICKLINE(XG,1.1,1.15,2,0)COLOR555555;
STICKLINE(XG,-0.7,1,0.1,0)COLORLIGRAY;
DRAWTEXT(XG,0.4,'炸'),COLOR660033,LINETHICK2;
DRAWTEXT(XG,0.2,'股'),COLOR660033,LINETHICK2;
DRAWTEXT(XG,0,'市'),COLOR660033,LINETHICK2;
AHC1:=CLOSE*VOL;
AHC22:=EMA((EXPMA(AHC1,23)/EXPMA(VOL,23)+EXPMA(AHC1,54)/EXPMA(VOL,54)+EXPMA(AHC1,108)/EXPMA(VOL,108)+EXPMA(AHC1,316)/EXPMA(VOL,316))/4,34);
通道:=1.0668*AHC22;
起爆:=CROSS(C,通道) AND REF(C,1)*1.05-C<0.008 AND C>O*0.5;
RRF:=起爆;
AA05:=MA(C,5);
AA30:=MA(C,30);
MA05:=MA(C,5);
MA10:=MA(C,13);
MA30:=MA(C,34);
速度5:=SMA(EMA((MA05-REF(MA05,1))/REF(MA05,1),3)*100,3,1);
加速度5:=EMA((速度5-REF(速度5,1)),3);
五日乖离率:=(C-AA05)/AA05*100;
三拾日乖离率:=(C-MA30)/MA30*100;
MR:=COUNT(CROSS(五日乖离率,0),3)>=1 AND 三拾日乖离率>REF(三拾日乖离率,1) AND AA05>REF(AA05,1) AND (C/REF(C,1)-1)*100>5 AND REF(C,1)<AA30;
STICKLINE(IF(RRF,-120,0),0.88,0,5,0),COLOR000088;
STICKLINE(IF(RRF,-120,0),0.87,0,5,0),COLOR0000AA;
STICKLINE(IF(RRF,-120,0),0.86,0,5,0),COLOR0000CC;
STICKLINE(IF(RRF,-120,0),0.85,0,5,0),COLOR0000EE;
STICKLINE(IF(RRF,-120,0),0.84,0,5,0),COLOR0000EE;
STICKLINE(IF(RRF,-120,0),0.83,0,5,0),COLORLIMAGENTA;
STICKLINE(IF(RRF,-120,0),0.55,0,5,0),COLOR770077;
STICKLINE(IF(RRF,-120,0),0.55,0,5,0),COLOR990099;
STICKLINE(IF(RRF,-120,0),0.55,0,5,0),COLORBB00BB;
STICKLINE(IF(RRF,-120,0),0.55,0,5,0),COLORDD00DD;
STICKLINE(IF(RRF,-120,0),0.55,0,5,0),COLORFF00FF;
STICKLINE(IF(RRF,-120,0),0.55,0,5,0),COLORDD00DD;
STICKLINE(IF(RRF,-120,0),0.33,0,4,0),COLOR003300;
STICKLINE(IF(RRF,-120,0),0.33,0,4,0),COLOR005500;
STICKLINE(IF(RRF,-120,0),0.33,0,4,0),COLOR007700;
STICKLINE(IF(RRF,-120,0),0.33,0,4,0),COLOR009900;
STICKLINE(IF(RRF,-120,0),0.33,0,4,0),COLOR00CC00;
STICKLINE(RRF,0,0.88,1,0),COLOR008888;
STICKLINE(RRF,0,0.86,1,0),COLOR00AAAA;
STICKLINE(RRF,0,0.88,1,0),COLOR00CCCC;
STICKLINE(RRF,0,0.86,1,0),COLOR00FFFF;