以下是简睿角力 飞狐版（无源码的请下载附件导入）

,距前低天YA),-1,0);
低保留YXA:=IF(局部低点预选C=-1 AND REF(距前高天YA,1)>REF(距前低天YA,1) AND LLV(L,距前高天YA+1)<REF(LLV(L,距前高天YA+1),1),-1,0);
低保留YXB:=IF(局部低点预选C=-1 AND REF(距前高天YA,1)<=REF(距前低天YA,1) AND (距前高天YA>=4 OR LLV(缺口判断,距前高天YA)=-1 OR 判断YXA=-1),-1,0);
低保留YX:=IF((低保留YXA=-1 OR 低保留YXB=-1) AND L<REF(H,距前高天YA+1),-1,0);
AAAD:=IF(高保留YX=1 AND 低保留YX=-1 AND H>REF(H,REF(距前高天YA,1)+2),1,IF(高保留YX=1 AND 低保留YX=-1 AND L<REF(L,REF(距前低天YA,1)+2),-1,0));
极点保留:=IF(AAAD=0,高保留YX+低保留YX,AAAD);
XA:=LINEVALUE(极点保留=-1,L,REF(极点保留,1)=-1,REF(L,1),0,0);
XB:=LINEVALUE(极点保留=1,H,REF(极点保留,1)=1,REF(H,1),0,0);
XAS:=LINEVALUE(极点保留=-1,XB,REF(极点保留,1)=-1,REF(XB,1),0,0);
XBS:=LINEVALUE(极点保留=1,XA,REF(极点保留,1)=1,REF(XA,1),0,0);
XA45:=(XA+XAS)/2; XB45:=(XB+XBS)/2;
XA63:=(XAS-XA)*3/4+XA; XB63:=XB-(XB-XBS)*3/4;
//DRAWBAND(XA45,RGB(0,150,100),XA63,RGB(0,150,100));
FILLRGN(XA45>XA63,XA45,XA63),Color649600;
FILLRGN(XA45<XA63,XA45,XA63),COLOR649600;
//DRAWBAND(XB45,RGB(185,96,9),XB63,RGB(185,96,9));
FILLRGN(XB45>XB63,XB45,XB63),Color0960B9;
FILLRGN(XB45<XB63,XB45,XB63),COLOR0960B9;
局部极点:IF(极点保留=-1,L,IF(极点保留=1,H,0)),CIRCLEDOT,COLORYELLOW,LINETHICK;
PARTLINE(极点保留=-1,L),CIRCLEDOT,COLORYELLOW,LINETHICK5;
PARTLINE(极点保留=1,H),CIRCLEDOT,COLORYELLOW,LINETHICK5;
压1:IF(BETWEEN(XA45,XB45,XB63),XA45,0),COLOR008800,LINETHICK;
PARTLINE(BETWEEN(XA45,XB45,XB63),XA45),COLOR008800;
压2:IF(BETWEEN(XA63,XB45,XB63),XA63,0),COLOR008800,LINETHICK;
PARTLINE(BETWEEN(XA63,XB45,XB63),XA63),COLOR008800;
KLINE(O,H,L,C,0);