?

?來源:程序化99

參考：

?

?V1:SCALE*V,NODRAW;
V2:(1-SCALE)*V,NODRAW;
NBA:=BARSLAST(DATE<>REF(DATE,1))+1;
AY:=BACKSET(ISLASTBAR,HHVBARS(V1,NBA)+1),NODRAW;
BY:=BACKSET(ISLASTBAR,HHVBARS(V2,NBA)+1),NODRAW;
AN:=BARSLAST(CROSS(AY,0.5));
BN:=BARSLAST(CROSS(BY,0.5));
DRAWCOLORKLINE(CROSS(AY,0.5),COLORMAGENTA,0);
DRAWCOLORKLINE(CROSS(BY,0.5),COLORYELLOW,0);
DRAWSL(ISLASTBAR&&EXIST(H>VALUEWHEN(CROSS(AY,0.5),H),AN),VALUEWHEN(CROSS(AY,0.5),H),0,-BARSSINCEN(H>VALUEWHEN(CROSS(AY,0.5),H),AN),0,COLORMAGENTA),LINETHICK5;
//DRAWHORIZONTALLINE(,H,COLORMAGENTA),LINETHICK5;
DRAWSL(ISLASTBAR&&EXIST(L<VALUEWHEN(CROSS(BY,0.5),L),BN),VALUEWHEN(CROSS(BY,0.5),L),0,-BARSSINCEN(L<VALUEWHEN(CROSS(BY,0.5),L),BN),0,COLORCYAN),LINETHICK5;
//DRAWHORIZONTALLINE(,L,COLORCYAN),LINETHICK5;
DRAWSL(ISLASTBAR,VALUEWHEN(CROSS(AY,0.5),H),0,-BARSLAST(CROSS(AY,0.5)),0,COLORMAGENTA),DOT;
DRAWSL(ISLASTBAR,VALUEWHEN(CROSS(BY,0.5),L),0,-BARSLAST(CROSS(BY,0.5)),0,COLORCYAN),DOT;

N:=DAYBARPOS;
X:=LLVBARS(L,N);
K1:=IF(X>=1,LLV(L,X),100000);
K2:=IF(X<(N-1),REF(LLV(L,REFX1(N-1-X,10000)),X+1),100000);
低點:=LLV(L,N);
次低點:=MIN(K1,K2);
T2:=BACKSET(ISLASTBAR,BARSLAST(L=REFX1(次低點,50))+1);
CROSS(T2&&次低點>2500,0.5),ICON(1,'ICO88');
T:=HHVBARS(H,N);
B1:=IF(T>=1,HHV(H,T),0);
B2:=IF(T<N-1,REF(HHV(H,REFX1(N-1-T,10000)),T+1),0);
高點:=HHV(H,N);
次高點:=MAX(B1,B2);
G2:=BACKSET(ISLASTBAR,BARSLAST(H=REFX1(次高點,50))+1);
CROSS(G2&&次高點>2500,0.5),ICON(1,'ICO88');?