一个很好的通达信顶底背离公式

参数：N 1.00 99.00 21.00

 WR1:=((2)*(C)+H+L)/(4); WR2:=LLV(L,34); WR3:=HHV(H,34);
 BW:=(WR1-WR2)/(WR3-WR2); B1:=EMA(BW,8);
线性1:=EMA(B1,5)*100; 线性2:=IF(B1>EMA(B1,5),B1*1.1,B1*0.9)*100;
 {长J}RSV1:=(BW-LLV(BW,27))/(HHV(BW,27)-LLV(BW,27))*100;
 K1:=SMA(RSV1,5,1); D1:=SMA(K1,5,1); 行:=3*K1-2*D1;
 AA1:=EMA(行,5); AA2:=REF(AA1,1);
 {短J}RSV2:=(BW-LLV(BW,9))/(HHV(BW,9)-LLV(BW,9))*100;
 K2:=SMA(RSV2,3,1); D2:=SMA(K2,3,1); 短:=EMA(3*K2-2*D2,5);
短势:=IF(PERIOD>=4,短,行),COLOR8E0000,LINETHICK3;
分:=CONST(LLV(L,90)); 百:=CONST(HHV(H,90))-分;
CC比:=(C-分)/百; HH比:=(H-分)/百;
LL比:=(L-分)/百; OO比:=(O-分)/百;
点:=CONST(LLV(短势,90)); 基:=CONST(HHV(短势,90))-点;
CX:=CC比*基+点; HX:=HH比*基+点; LX:=LL比*基+点; OX:=OO比*基+点;
部低点预选A:=BACKSET(LLV(线性1,5)<REF(LLV(线性1,4),1),4);
部高点预选A:=BACKSET(HHV(线性1,5)>REF(HHV(线性1,4),1),4);
线高天:=BARSLAST(部高点预选A=1)+1;
线高天AA:=HHV(DRAWLINE(线高天=1,线性1,REF(线高天,1)=1,REF(线性1,1),1),2),COLOR00FFFF;
线低天:=BARSLAST(部低点预选A=1)+1;
线低天AA:=HHV(DRAWLINE(线低天=1,线性1,REF(线低天,1)=1,REF(线性1,1),1),2),COLORFF0000;
 DRAWBAND(IF(EMA(线高天AA,3)>线性1,EMA(线高天AA,3),线性1),RGB(0,20,35),线性1,RGB(128,0,128));
局部低点预选:=BACKSET(LLV(短势,5)<REF(LLV(短势,4),1),4);
局部高点预选:=BACKSET(HHV(短势,5)>REF(HHV(短势,4),1),4);
高天:=BARSLAST(局部高点预选=1)+1;
高天AA:=HHV(DRAWLINE(高天=1,短势,REF(高天,1)=1,REF(短势,1),1),2),COLOR00FFFF;
 DRAWBAND(MA(高天AA,2),RGB(0,124,224),短势,RGB(255,196,9));
低天:=BARSLAST(局部低点预选=1)+1;
低天AA:=HHV(DRAWLINE(低天=1,短势,REF(低天,1)=1,REF(短势,1),1),2),COLORFF0000;
价低点预选A:=BACKSET(LLV(LX,5)<REF(LLV(LX,4),1),4);
价高点预选A:=BACKSET(HHV(HX,5)>REF(HHV(HX,4),1),4);
价高:=BARSLAST(价高点预选A=1)+1;
价高AA:=HHV(DRAWLINE(价高=1,HX,REF(价高,1)=1,REF(HX,1),1),2),COLOR0099FF;
价低:=BARSLAST(价低点预选A=1)+1;
价低AA:=HHV(DRAWLINE(价低=1,LX,REF(价低,1)=1,REF(LX,1),1),2),COLORFFF000;
尚势:=IF(短势>低天AA,短势,DRAWNULL)CIRCLEDOT,COLOR0000FF,LINETHICK2;
高离:=IF((短势>=高天AA&&价高AA=REF(价高AA,1)) OR (短势<高天AA&&价高AA>=REF(价高AA,1)),短势,DRAWNULL)CIRCLEDOT,COLOR005500,LINETHICK2;
 DRAWBAND(尚势,RGB(255,9,9),尚势*0.9,RGB(255,9,9));
 DRAWBAND(高离,RGB(2,96,6),高离*1.1,RGB(2,96,6));
 DRAWBAND(IF(EMA(线高天AA,3)>线性1,线性1,EMA(线高天AA,3)),RGB(0,204,35),线性1,RGB(128,0,128));
趋势线:=3*SMA((C-LLV(L,14))/(HHV(H,14)-LLV(L,14))*100,5,1)
 -2*SMA(SMA((C-LLV(L,14))/(HHV(H,14)-LLV(L,14))*100,5,1),3,1),COLOR00FFFF,LINETHICK2;
 DRAWBAND(趋势线,RGB(254,254,254),趋势线*0.98,RGB(254,254,254));
 DRAWICON(CROSS(趋势线,高天AA),高天AA,1);
 DRAWICON(CROSS(低天AA,趋势线),低天AA,2);{N 1 99 21}
 DRAWTEXT(价高AA=LLV(LLV(价高AA,N),2)&&低天AA>LLV(LLV(低天AA,N),2),LLV(低天AA,5),'背'),COLOR000000;
 DRAWTEXT(价低AA=HHV(HHV(价低AA,N),2)&&高天AA<HHV(HHV(高天AA,N),2),HHV(高天AA,5),'离'),COLOR223388;
 GJ:=MAX(C,O); L4:=LLV(GJ,4);
 JL:=(HHV(短势,55)-LLV(短势,55))/5;
 GT:=短势>REF(短势,1) AND REF(短势,1)<REF(短势,2);
 AS1:=BARSLAST(REF(GT,1));
底背离:=REF(L4,AS1+1)>CLOSE AND 短势>REF(短势,AS1+1) AND GT;
底背:DRAWLINE(AS1=0,短势,底背离,REF(短势,AS1),0),COLORFF00FF,LINETHICK3;
 STICKLINE(底背离,底背,短势,0.1,0),COLORFF00FF;
 DRAWTEXT(底背离,REF(底背,1),' 底背离'),COLORFF00FF;
 H4:=HHV(GJ,4);
 GT2:=短势<REF(短势,1) AND REF(短势,1)>REF(短势,2);
 AS2:=BARSLAST(REF(GT2,1));
顶背离:= REF(H4,AS2+1)<H4 AND 短势<REF(短势,AS2+1) AND GT2;
顶背:DRAWLINE(AS2=0,短势,顶背离,REF(短势,AS2),0),COLORGREEN,LINETHICK2;
 STICKLINE(顶背离,短势,顶背,0.1,0),COLORGREEN;
 DRAWTEXT(顶背离,REF(顶背,1),' 顶背离'),COLORGREEN;
当下:CONST(短势),COLOR8E0000;