通达信三箭齐发 五指共振(主图/副图 源码

{三箭齐发主图}
DRAWGBK(O>C,RGB(0,30,0),RGB(0,0,60),0,'01',0);
 ZK1:(XMA(XMA(H,25),25)-XMA(XMA(L,25),25))*1+XMA(XMA(H,25),25),DOTLINE,COLORWHITE;
 ZD1:XMA(XMA(L,25),25)-(XMA(XMA(H,25),25)-XMA(XMA(L,25),25))*1,DOTLINE,COLORWHITE;
 BS:(XMA(XMA(H,60),60)-XMA(XMA(L,60),60))*2.2+XMA(XMA(H,60),60),DOTLINE,COLORRED;
 BD:XMA(XMA(L,60),60)-(XMA(XMA(H,60),60)-XMA(XMA(L,60),60))*2.8,DOTLINE,COLORGREEN;
 DRAWTEXT(ISLASTBAR,ZK1,STRCAT(' ←【卖出】= ',CON2STR(ZK1,2))),COLOR00FFFF;
 DRAWTEXT(ISLASTBAR,ZD1,STRCAT(' ←【买入】= ',CON2STR(ZD1,2))),COLORWHITE;
 DRAWTEXT(ISLASTBAR,BS,STRCAT(' ←【顶部】= ',CON2STR(BS,2))),COLOR0044FF;
 DRAWTEXT(ISLASTBAR,BD,STRCAT(' ←【底部】= ',CON2STR(BD,2))),COLOR00FF00;
 DRAWBAND(BS,RGB(0,0,200),ZK1,RGB(0,0,255));
 DRAWBAND(ZK1,RGB(80,50,0),ZD1,RGB(80,50,0));
 DRAWBAND(ZD1,RGB(15,25,15),BD,RGB(25,45,25));
 (XMA(XMA(H,25),25)-XMA(XMA(L,25),25))*1+XMA(XMA(H,25),25),DOTLINE,COLORWHITE;
 XMA(XMA(L,25),25)-(XMA(XMA(H,25),25)-XMA(XMA(L,25),25))*1,DOTLINE,COLORWHITE;
 (XMA(XMA(H,60),60)-XMA(XMA(L,60),60))*2.2+XMA(XMA(H,60),60),DOTLINE,COLORRED;
 XMA(XMA(L,60),60)-(XMA(XMA(H,60),60)-XMA(XMA(L,60),60))*2.8,DOTLINE,COLORGREEN;

{K线}
STICKLINE(CLOSE>OPEN OR CLOSE=OPEN AND CLOSE>REF(CLOSE,1),LOW,HIGH,0.0,0),COLORRED;
 STICKLINE(CLOSE<OPEN OR CLOSE=OPEN AND CLOSE<=REF(CLOSE,1),LOW,HIGH,0.0,0),COLORCYAN;
 STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,3,0 ),COLOR008800;
 STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,2,0 ),COLOR00AA00;
 STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,1,0 ),COLOR00DD00;
 STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,0,0 ),COLOR00FF00;
 STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3,0) ,COLOR000088;
 STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2,0) ,COLOR0000AA;
 STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1,0) ,COLOR0000DD;
 STICKLINE(CLOSE>OPEN,CLOSE,OPEN,0,0) ,COLOR0000FF;

{1.MA5趋势}
MA5:MA(C,5),COLOR00FF00,DOTLINE;
 IF(MA5>REF(MA5,1),MA5,DRAWNULL),COLOR0000FF,LINETHICK3;
 {2.MACD改版-12.26}
 DIF1:=WMA(CLOSE,12);
 DIF2:=WMA(CLOSE,26);
 MACDG:(3*DIF1-2*DIF2),COLOR00FFFF,DOTLINE;
 IF(MACDG>REF(MACDG,1),MACDG,DRAWNULL),COLOR00FF00,LINETHICK3;
 {3.KDJ-18.3.3}
 RSV:=(CLOSE-LLV(LOW,18))/(HHV(HIGH,18)-LLV(LOW,18))*MA5/10;
 K:=SMA(RSV,3,1);
 D:=SMA(K,3,1);
 J18:=(3*K-2*D);
 J:FORCAST(J18,18)+MA5,COLOR0099FF,DOTLINE;
 IF(J>REF(J,1),J,DRAWNULL),COLORFF9900,LINETHICK3;
卖:=CROSS((MA5<REF(MA5,1) AND MACDG<REF(MACDG,1) AND J<REF(J,1)),(MA5>REF(MA5,1) AND MACDG>REF(MACDG,1) AND J>REF(J,1)));
 DRAWTEXT(FILTER(卖,5),H*1.112,'★卖'),COLOR00FF00;
 STICKLINE(FILTER(卖,5),H*1.15,H,0,0),COLOR05FF00;
买:=CROSS((MA5>REF(MA5,1) AND MACDG>REF(MACDG,1) AND J>REF(J,1)),(MA5<REF(MA5,1) AND MACDG<REF(MACDG,1) AND J<REF(J,1)));
 DRAWTEXT(FILTER(买,5),L*0.83,'★买'),COLOR0000FF;
 STICKLINE(FILTER(买,5),L*0.8,L,0,0),COLOR0555FF;

{4.买卖}
KC:=FORCAST(((2*C+H+L)/4*0.618+C*0.382),3);
 AAX:=(KC-MA(KC,9))/MA(KC,9)*100;
 VAR0:=MIN(EXIST(KC,55),9);
 AAX1:=EMA(AAX,VAR0)*VAR0;
 AAX2:=MA(AAX1,3);
 AAX3:=MA(AAX1,5);
 DRAWTEXT(AAX3>10 AND AAX1<REF(AAX1,1) AND CROSS(AAX2,AAX1) ,H*1.12,'卖'),COLOR00FFFF,LINETHICK1;
 DRAWTEXT(AAX3>10 AND AAX1<REF(AAX1,1) AND CROSS(AAX2,AAX1) ,H*1.1,'◆'),COLOR0000FF,LINETHICK1;
 DRAWTEXT(AAX3>10 AND AAX1<REF(AAX1,1) AND CROSS(AAX2,AAX1),HIGH*1.08,'◇'),LINETHICK3,COLOR00FF00;

 AA05:=MA(C,5);
 MM5:=(C-AA05)/AA05*100;
 BB05:=ATAN((AA05/REF(AA05,1)-1)*100)*180/3.1416;
 NN5:=SMA(EMA((AA05-REF(AA05,1))/REF(AA05,1),3)*100,3,1);
 NNNN5:=EMA((NN5-REF(NN5,1)),3),LINETHICK0;
 AA10:=MA(C,10);
 AA20:=MA(C,20);
 BB10:=ATAN((AA10/REF(AA10,1)-1)*100)*180/3.1416;
 AA30:=MA(C,30);
 MM30:=(C-AA30)/AA30*100;

VAR1:=(AA20-AA30)>REF((AA20-AA30),1) AND AA20>REF(AA20,1) AND AA30>REF(AA30,1);
 VAR2:=(AA30-AA20)<REF((AA30-AA20),1) AND AA20<REF(AA20,1) AND AA30<REF(AA30,1);
 BB30:=ATAN((AA30/REF(AA30,1)-1)*100)*180/3.1416;
强势:=FILTER(BB30>30 AND BB10>45 AND CROSS(BB05,60),10);
加仓:=FILTER(COUNT(CROSS(BB05,30),5)>=1 AND AA05>REF(AA05,1) AND MM30>REF(MM30,1) AND AA10>REF(AA10,1)
 AND NNNN5>REF(NN5,1) AND NN5>REF(NN5,1) ,10) ;

 MR:=COUNT(CROSS(MM30,0),3)>=1 AND MM30>REF(MM30,1) AND AA05>REF(AA05,1) AND (C/REF(C,1)-1)*100>5 AND REF(C,1)<AA30;
买入:=FILTER(MR,10);
 DRAWTEXT((买入),LOW*0.945,'⊙'),LINETHICK2,COLORYELLOW;
 DRAWTEXT((买入),LOW*0.965,'⊙'),LINETHICK2,COLORYELLOW;
 DRAWTEXT((买入),LOW*0.985,'⊙'),LINETHICK2,COLORYELLOW;

DRAWTEXT((加仓),LOW*0.985,'⊙'),LINETHICK2,COLORWHITE;
 DRAWTEXT((加仓),LOW*0.965,'⊙'),LINETHICK2,COLOR00FF00;
 DRAWTEXT((加仓),LOW*0.945,'⊙'),LINETHICK2,COLORWHITE;
 DRAWTEXT((强势),LOW*0.985,'⊙'),LINETHICK2,COLORRED;
 DRAWTEXT((强势),LOW*0.965,'⊙'),LINETHICK2,COLORRED;

 DRAWTEXT_FIX(1,0.00,0,0,'所属行业:'),COLORWHITE;
 DRAWTEXT_FIX(1,0.05,0,0,HYBLOCK),COLORYELLOW;
 DRAWTEXT_FIX(1,0.11,0,0,'所属地区:'),COLORWHITE;
 DRAWTEXT_FIX(1,0.16,0,0,DYBLOCK),COLORYELLOW;
 DRAWTEXT_FIX(1,0.22,0.00,0,'主题投资:'),COLORWHITE;
 DRAWTEXT_FIX(1,0.27,0.00,0,EXTERNSTR(0,1)),COLORYELLOW;
 DRAWTEXT_FIX(1,0.00,0.04,0,'业绩报告:'),COLORYELLOW;
 DRAWTEXT_FIX(1,0.05,0.04,0,EXTERNSTR(0,2)),COLORWHITE;
 DRAWTEXT_FIX(1,0.00,0.08,0,'千股千评:'),COLORWHITE;
 DRAWTEXT_FIX(1,0.05,0.08,0,EXTERNSTR(0,3)),COLORYELLOW;
 DRAWTEXT_FIX(1,0.00,0.12,0,'神光益盟:'),COLORYELLOW;
 DRAWTEXT_FIX(1,0.05,0.12,0,EXTERNSTR(0,4)),COLORWHITE;
【五指共振】是幅图放在一起会更能清楚买卖点---------------------------------------

{五指共振}
DRAWGBK(O>C,RGB(20,20,0),RGB(0,0,80),0,'01',0); {背景不要可删除}
DRAWTEXT_FIX(1,0.1,0,0,'◆----能量线---RSI3---KDJ---W&R---CCI---【五个指标共振线【红】.【绿】.变化是买卖信号，颜色及标记是配合信号】----◆'),COLOR00FFFF,LINETHICK3;
 {1指.能量线}
能量线:=EMA(100*(C-LLV(L,34))/(HHV(H,34)-LLV(L,34)),3),LINETHICK0;
 {2指.RSI}
 RSI:=SMA(MAX(CLOSE-REF(CLOSE,1),0),6,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),6,1)*100,LINETHICK0;
 {3指.KDJ}
 RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100,LINETHICK0;
 K:=SMA(RSV,3,1);
 D:=SMA(K,3,1);
 J:=3*K-2*D,LINETHICK0;
 {4指.W&R}
威廉WR:=(HHV(HIGH,14)-CLOSE)/(HHV(HIGH,14)-LLV(LOW,14))*100,LINETHICK0;
 {5指.CCI}
 TYP := (HIGH + LOW + CLOSE)/3;
 CCI:=(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14)),LINETHICK0;

五指A:WMA((能量线+RSI+J-威廉WR+CCI)/5,5);
五指B:WMA((能量线+RSI+J-威廉WR+CCI)/5,13);
 DRAWBAND(五指A,RGB(255,155,0),五指B,RGB(0,40,255));
 WMA((能量线+RSI+J-威廉WR+CCI)/5,5),COLOR00FF00,LINETHICK3;
 IF(五指A>REF(五指A,1),五指A,DRAWNULL),COLOR0000FF,LINETHICK3;

KC:=FORCAST(((2*C+H+L)/4*0.618+C*0.382),3);
 AAX:=(KC-MA(KC,9))/MA(KC,9)*100;
 VAR0:=MIN(EXIST(KC,55),9);
 AAX1:=EMA(AAX,VAR0)*VAR0;
 AAX2:=MA(AAX1,3);
 AAX3:=MA(AAX1,5);
卖:=AAX3>3 AND AAX1<REF(AAX1,1) AND CROSS(AAX2,AAX1);
 VBA:=FILTER(卖,5);
 DRAWTEXT(VBA,五指A*1.15,'★卖出'),COLOR00FF00;
 STICKLINE(VBA,五指A*1.3,0,0,0),COLOR00FF00;

VB2:=EMA(EMA(C-REF(C,1),6),6)/EMA(EMA(ABS(C-REF(C,1)),6),6)*100;
 VB3:=IF(LLV(VB2,3)=LLV(VB2,11) AND COUNT(VB2<0,2) AND CROSS(VB2,MA(VB2,2)),1,0);
 VB4:=FILTER(VB3=1,5);
 DRAWTEXT(VB4,五指A,'★买入'),COLOR0058FF;
 STICKLINE(VB4,五指A,45,0,0),COLOR0538FF;