ZH1:=ZIGZAG(H,8,1);
ZL1:=ZIGZAG(L,8,1);
A1:=ZH1>REF(ZH1,1)&&ZH1>REFX(ZH1,1);//高點
B1:=ZL1<REF(ZL1,1)&&ZL1<REFX(ZL1,1);
A11:=BACKSET(ISLASTBAR,SUMBARS(A1,15));
DRAWTEXT(A1 AND A11,H,'',FONTSIZE20,COLORWHITE,VALIGN1;
B11:=BACKSET(ISLASTBAR,SUMBARS(B1,15));
DRAWTEXT(B1 AND B11,L,'',FONTSIZE20,COLORYELLOW,VALIGN1;
Q:=A1&&H-VALUEWHEN(B1,L)>1.5*(REF(H,SUMBARS(A1,2)-1)-VALUEWHEN(B1,L));
R:=B1&&VALUEWHEN(A1,H)-L>1.5*(VALUEWHEN(A1,H)-REF(L,SUMBARS(B1,2)-1));
QQ:=BACKSET(Q,BARSLAST(B1)+1);
RR:=BACKSET(R,BARSLAST(A1)+1);
DRAWTEXT(CROSS(QQ,0.5),H,'';
DRAWTEXT(CROSS(RR,0.5),H,'';

?

?來源:程序化99