[通达信指标]一主一副 顶底趋势组合 配合MACD背离附图

DRAWBAND(MA(CLOSE,60),RGB(118,38,38),MA(CLOSE,120),RGB(38,88,38));

DRAWBAND(MA(CLOSE,5),RGB(123,23,123),MA(CLOSE,10),RGB(23,123,123));

MA60:MA(CLOSE,60),COLOR0000FF,LINETHICK1,NODRAW;

MA120:MA(CLOSE,120),COLOR00FF00,NODRAW;

MA5:MA(CLOSE,5),COLORFF00FF;

MA10:MA(CLOSE,10),COLORFFFF00;

MA20:MA(C,20),COLOR0079FF,LINETHICK1;

DRAWKLINE(H,O,L,C);

DIF:=(EMA(C,12)-EMA(C,26));

DEA:=EMA(DIF,9);

MACD:=2*(DIF-DEA);

MJBT:=EXIST((CROSS(DIF,DEA) AND DIF>0) OR CROSS(DIF,0),5) ;

MVOL5:=MA(V,5);

MVOL10:=MA(V,10);

MVOL20:=MA(V,20);

TTS1:=MVOL5>=MVOL20 AND CROSS(MVOL10,MVOL20) AND REF(MVOL10,1)<REF(MVOL20,1);

VJBT:=EXIST(CROSS(MVOL5,MVOL10) OR TTS1,5);

T1:=BARSLAST(REF(LONGCROSS(MA60,MA120,55),1));

JJC:=CROSS(MA5,MA10) AND T1<30;

SJBT:=FILTER(MJBT AND JJC AND VJBT,5);

STICKLINE(SJBT,C,O,3,0),COLOR000088;

STICKLINE(SJBT,C,O,1,0),COLOR0000AA;

STICKLINE(SJBT,C,O,0.3,0),COLOR0000CC;

STICKLINE(SJBT,C,O,0.0,0),COLOR0000FF;

DRAWTEXT(SJBT,L*0.98,’★牛现身’),COLOR0078FF;

RSV:=(((C-LLV(L,60))/(HHV(H,60)-LLV(L,60)))*100);

K:=SMA(RSV,10,1),COLOR0000FF,LINETHICK1;

D:=SMA(SMA(RSV,10,1),3,1),COLORFFFFFF,LINETHICK1;

J:=SMA(K,10,1),COLOR00FF00,LINETHICK1;

DBU:=(((C/COST(13))<=0.78)*17);

BT01:=LONGCROSS(K,16.18,5) AND D<19.1;

BT02:=LONGCROSS(K,D,8) AND D<16.18;

FTBT:=FILTER(COUNT(BT01 OR BT02,3)=2,3);

STICKLINE(FTBT,C,O,3,0),COLOR880088;

STICKLINE(FTBT,C,O,1,0),COLORAA00AA;

STICKLINE(FTBT,C,O,0.3,0),COLORCC00CC;

STICKLINE(FTBT,C,O,0.0,0),COLORFF00FF;

BT03:=FILTER(CROSS(K,D) AND EXIST(DBU=17,3),3);

STICKLINE(BT03,C,O,3,0),COLOR000088;

STICKLINE(BT03,C,O,1,0),COLOR0000AA;

STICKLINE(BT03,C,O,0.3,0),COLOR0000CC;

STICKLINE(BT03,C,O,0.0,0),COLOR0000FF;

ST01:=LONGCROSS(K,80,5) AND D>76;

ST02:=LONGCROSS(D,K,5) AND D>70;

ST:=ST01 OR ST02;

STICKLINE(ST,C,O,3,0),COLOR008800;

STICKLINE(ST,C,O,1,0),COLOR00AA00;

STICKLINE(ST,C,O,0.3,0),COLOR00CC00;

STICKLINE(ST,C,O,0.0,0),COLOR00FF00;

DRAWTEXT(ST,H*1.009,’顶’),COLOR00FF00;

LC:=REF(C,1);

RSI5:=SMA(MAX(C-LC,0),5,1)/SMA(ABS(C-LC),5,1)*1000;

DC:=RSI5-LLV(RSI5,10);

AV:=(MA(DC,3)*5+DC*15)/20;

DXRSI:=IF(AV>13,MA(AV,3),AV)/6;

MADXRSI:=MA(DXRSI,5),COLORBBBBBB;

DXBT:=CROSS(DXRSI,1) AND DXRSI<30;

ABS34:=MA(-100*(HHV(H,34)-C)/(HHV(H,34)-LLV(L,34)),20);

BS13:=-100*(HHV(H,13)-C)/(HHV(H,13)-LLV(L,13));

EBS5:=EMA(-100*(HHV(H,34)-C)/(HHV(H,34)-LLV(L,34)),5);

VBS13:=BS13+100;

VABS34:=ABS34+100;

VEBS5:=EBS5+100;

TTS2:=(VABS34<12 AND VEBS5<8 AND (VBS13<7.2 OR REF(VBS13,1)<5) AND (VEBS5>REF(VEBS5,1)

OR VBS13>REF(VBS13,1))) OR (VABS34<8 AND VEBS5<7 AND VBS13<15 AND VBS13>REF(VBS13,1))

OR (VABS34<10 AND VEBS5<7 AND VBS13<1);

TTS3:=(VABS34<15 AND REF(VABS34,1)<15 AND VEBS5<18 AND VBS13>REF(VBS13,1) AND

CROSS(VBS13,VABS34) AND VBS13>VEBS5 AND (REF(VBS13,1)<5 OR REF(VBS13,2)<5 ) AND

(VEBS5>=VABS34 OR REF( VBS13,1)<1 ));

FZBT:=DXBT AND TTS3;

FZXG:=TTS3 OR FZBT;

VARF11:=(C-MA(C,55))/MA(C,55)*100<-30 AND (C-MA(C,89))/MA(C,89)*100<-27

AND COUNT((C-MA(C,55))/MA(C,55)*100<-30 AND (C-MA(C,89))/MA(C,89)*100<-27,2)=1

AND (O-REF(C,1))/REF(C,1)>-0.07 AND COUNT(C=O,6)=0,COLORCCCCCC;

VARF21:=(C-DMA(EMA(C,8),SUM(V,9)/2.8/CAPITAL))/DMA(EMA(C,8),SUM(V,9)/2.8/CAPITAL)*100,COLOR00AAAA;

VARF31:=REF(VARF21,1)<-46 AND VARF21>REF(VARF21,1) AND REF(VARF21,1)<REF(VARF21,2) AND VARF21-REF(VARF21,1)>2.2;

JDBT1:=(VARF11 OR VARF31)*10,COLOR0000FF,LINETHICK2;

JDBT2:=LONGCROSS(VARF21,-23,3);

JDXG:=JDBT1 OR JDBT2;

W118:=FILTER(FZXG OR JDXG,5);

STICKLINE(W118,C,O,3,0),COLOR008888;

STICKLINE(W118,C,O,1,0),COLOR00AAAA;

STICKLINE(W118,C,O,0.3,0),COLOR00CCCC;

STICKLINE(W118,C,O,0.0,0),COLOR00FFFF;

DRAWTEXT(W118,L*0.99,’底’),COLOR00FFFF;

IF(MA60>=MA120,MA60,DRAWNULL),COLOR0000FF;

IF(MA120>=MA60,MA120,DRAWNULL),COLORFF9900;

IF(MA60>=MA120,MA120,DRAWNULL),COLOR00FFFF;

IF(MA120>=MA60,MA60,DRAWNULL),COLOR00FF00;

DEA:EMA(DIF,9);

MACD:(DIF-DEA)*2,COLORSTICK;

MACD2:=EMA(MACD,2);

MM1:=IF(MACD< 0,MACD,0);

JJ1:=MM1> REF(MM1,1);

ZZ1:=REF(JJ1,1)=1;

底区:(JJ1 AND ZZ1)*DEA,POINTDOT,COLORRED;

STICKLINE(底区=DEA,DEA,DIF,3,0),COLORRED;

DIFF:=EMA(CLOSE,26) – EMA(CLOSE,12);

DEAF:=EMA(DIFF,9);

MACDF:=2*(DIFF-DEAF), COLORSTICK,COLOR5454FF;

MM:=IF(MACDF< 0,MACDF,0);

JJ:=MM> REF(MM,1);

ZZ:=REF(JJ,1)=1;

顶区:(JJ AND ZZ)*DEAF,POINTDOT,COLORRED;{MACD蓝柱缩短—指今日比昨天短}

STICKLINE(顶区=DEAF,DEA,DIF,3,0),COLORGREEN;

STICKLINE(MACD>MACD2 AND MACD>0,0,MACD,0.1,0),COLORRED;

STICKLINE(MACD>MACD2 AND MACD<0,0,MACD,0.1,0),COLORLIGRAY;

STICKLINE(MACD<MACD2,0,MACD,0.1,0),COLORLIGREEN;

STICKLINE(MACD>=0 OR MACD<=0,0,0,50,1),COLORGREEN;

VARX1:=LLV(DEA,25);

VARX3:=DEA-(DIF-DEA);

高线:REF(HHV(DIF,25),1),COLORGREEN;

底线:IF(DIF<VARX1 AND DEA=VARX1,MIN(HHV(VARX1,5),VARX3),VARX1),COLORRED;

A2:=BARSLAST(REF(CROSS(DEA,DIF),1));

A11:=BARSLAST(REF(CROSS(DIF,DEA),1));

底背:=REF(CLOSE,A11+1)>CLOSE AND DIF>REF(DIF,A11+1) AND CROSS(DIF,DEA),COLORLIGRAY;

STICKLINE(底背,DIF,底线,2,0),COLORYELLOW;

DRAWTEXT(底背,DIF,’ 底背’),COLORYELLOW;

GJ:=MAX(C,O);

H4:=HHV(GJ,4);

GT2:=DEA<REF(DEA,1) AND REF(DEA,1)>REF(DEA,2);

A2T:=BARSLAST(REF(GT2,1));

背离:=REF(H4,A2T+1)<H4 AND DIF<REF(DIF,A2T+1) AND GT2;

STICKLINE(背离,高线,DIF,2,0),COLORGREEN;

DRAWTEXT(背离,REF(DEA,A2)*0.5,’ 背离’),COLORGREEN;

XGS:=CROSS(高线,DIF);

DRAWICON(XGS,高线,2);

XGD:=CROSS(DIF,底线);

DRAWICON(XGD,底线,1);

XG1:=CROSS(DIF,DEA);

DRAWICON(XG1,DEA,11);

XG3:=CROSS(DEA,DIF);

DRAWICON(XG3,DIF,12);

抄底:=XGS AND XG1;

DRAWTEXT(抄底,DIF,’ 底’),COLORWHITE;