分笔2 通达信指标 源码 贴图 看了下效果貌似不错

局部低点预选A:=BACKSET(LLV(L,5)<REF(LLV(L,4),1),4);
局部低点预选B:=BACKSET(局部低点预选A=0 AND REF(局部低点预选A,1)=1,2);
局部低点预选C:=IF(局部低点预选B=1 AND REF(局部低点预选B,1)=0,-1,0);
局部高点预选A:=BACKSET(HHV(H,5)>REF(HHV(H,4),1),4);
局部高点预选B:=BACKSET(局部高点预选A=0 AND REF(局部高点预选A,1)=1,2);
局部高点预选C:=IF(局部高点预选B=1 AND REF(局部高点预选B,1)=0,1,0);
局部极点A:=局部低点预选C+局部高点预选C;
局部极点B:=IF(局部低点预选C=-1,-1,IF(局部高点预选C=1,1,0));

缺口判断:=IF(L>REF(H,1),1,IF(H<REF(L,1),-1,0));
距前高天:=BARSLAST(局部极点A=1);
距前低天:=BARSLAST(局部极点A=-1);
高保留A:=IF(局部极点A=1 AND REF(距前低天,1)>REF(距前高天,1) AND HHV(H,距前低天+1)>REF(HHV(H,距前低天+1),1),1,0);
高保留B:=IF(局部极点A=1 AND REF(距前低天,1)<REF(距前高天,1) AND (距前低天>=4 OR HHV(缺口判断,距前低天)=1),1,0);

低保留A:=IF(局部极点A=-1 AND REF(距前高天,1)>REF(距前低天,1) AND LLV(L,距前高天+1)<REF(LLV(L,距前高天+1),1),-1,0);
低保留B:=IF(局部极点A=-1 AND REF(距前高天,1)<REF(距前低天,1) AND (距前高天>=4 OR LLV(缺口判断,距前高天)=-1),-1,0);
极点保留:=低保留A+低保留B+高保留A+高保留B;
局部极点:IF(极点保留=-1,L,IF(极点保留=1,H,DRAWNULL)) CIRCLEDOT COLORYELLOW;
DRAWLINE(极点保留=-1,局部极点,极点保留=1,局部极点,0)COLORLIRED LINETHICK2;
DRAWLINE(极点保留=1,局部极点,极点保留=-1,局部极点,0)COLORYELLOW LINETHICK2;