[通达信指标]两款极品大顶底公式源码

EMA13:=EMA(C,20);

EMA34:=EMA(C,60);

EMA55:=EMA(C,80);

K1:=C/O>1.02 AND H/C>1.02 AND O/L<1.02;

K2:=REF(C,1)>REF(O,1) AND O>MA(C,11);

K3:=(MA(C,13)-MA(C,55))/MA(C,13)*100;

KK:=K1 AND K2 AND K3>10;

DRAWTEXT(KK,HIGH+0.2,’多减’),COLORF00FF0;

D1:=O/C>1.02 AND C/L>1.02 AND  H/O<1.02;

D2:=REF(C,1)<REF(O,1) AND O<MA(C,11);

D3:=(MA(C,55)-MA(C,13))/MA(C,13)*100;

DD:=D1 AND D2 AND D3;{公众号：量化爱好者之家}

DRAWTEXT(DD,LOW-0.2,’空减’),COLORYELLOW;

N2:=13;

BIAS2:=(CLOSE-MA(CLOSE,N2))/MA(CLOSE,N2)*100;

SHORT:=12;

LONG:=26;

MID:=9;

DIF:=EMA(CLOSE,SHORT)-EMA(CLOSE,LONG);

DEA:=EMA(DIF,MID);

MACD:=(DIF-DEA)*2;

DINGBU1:=BARSLAST(BETWEEN(BIAS2,0,5) );

DINGBU2:=EMA13>EMA34 AND EMA34>EMA55 AND EMA13>REF(EMA13,1);

DINGBU3:=COUNT(BIAS2>10 AND H=HHV(H,DINGBU1),DINGBU1);

DINGBU4:=H=HHV(H,DINGBU1);

DINGBU5:=MACD<REF(MACD,1);

DINGBU6:=DINGBU2 AND DINGBU3 AND DINGBU4;

DINGBU7:=DINGBU2 AND DINGBU3 AND DINGBU4 AND DINGBU5;

DRAWTEXT(DINGBU6 AND DINGBU7,H+0.13,’顶部来临’),COLOR00FF00;

DIBU1:=BARSLAST(BETWEEN(BIAS2,0,-5) );

DIBU2:=EMA13<EMA34 AND EMA34<EMA55 AND EMA13<REF(EMA13,1);

DIBU3:=COUNT(BIAS2<-10 AND L=LLV(L,DIBU1),DIBU1);

DIBU4:=L=LLV(L,DIBU1);

DIBU5:=MACD>REF(MACD,1);

DIBU6:=DIBU2 AND DIBU3 AND DIBU4;

DIBU7:=DIBU2 AND DIBU3 AND DIBU4 AND DIBU5;

DRAWTEXT(DIBU6 AND DIBU7,H+0.13,’低部来临’),COLORRED;

A:=MA(-100*(HHV(HIGH,34)-CLOSE)/(HHV(HIGH,34)-LLV(LOW,34)),19)+100;

B:=-100*(HHV(HIGH,14)-CLOSE)/(HHV(HIGH,14)-LLV(LOW,14))+100;

D:=EMA(-100*(HHV(HIGH,34)-CLOSE)/(HHV(HIGH,34)-LLV(LOW,34)),4)+100;{公众号：量化爱好者之家}

大底:=(A<15 AND REF(A,1)<15 AND D<18 AND B>REF(B,1) AND CROSS(B,A) AND B>D

AND (REF(B,1)<5 OR REF(B,2)<5 )  AND (D>=A OR REF( B,1)<1 ));

STICKLINE( 大底,0,10,11,0 ),COLORRED;

DRAWTEXT(大底,11,’大底’),COLORFF00FF;

DRAWTEXT(小底,6,’小底’),COLORYELLOW;

小顶:REF(IF((C-MA(C,5))/C>0.04 AND (MA(C,5)-MA(C,10))/MA(C,5)>0.04,5,0),1),COLORCYAN;

大顶:=(A>85 AND REF(A,1)>85 AND D>82 AND B<REF(B,1) AND CROSS(A,B) AND B<D

AND (REF(B,1)>95 OR  REF(B,2)>95) AND  (D<=A OR REF(B,1)>99));

STICKLINE( 大顶,0,10,11,0 ),COLORGREEN;

DRAWTEXT(大顶,11,’大顶’),COLORGREEN;