N:=8;80,POINTDOT,COLORGRAY; 20,POINTDOT,COLOR00BCBE;R:SMA(MAX(C-REF(C,1),0),6,1)/SMA(ABS(C-REF(C,1)),6,1)*100,COLORWHITE; A1:=REF(R,N)=HHV(R,2*N+1); B1:=FILTER(A1,N); C1:=BACKSET(B1,N+1); D1:=FILTER(C1,N);{高点}R11:=BACKSET(ISLASTBAR,BARSLAST(D1)+1); S11:=R11>REF(R11,1);DRAWLINE(D1,R,S11,R,1),COLORBLUE;A2:=REF(R,N)=LLV(R,2*N+1); B2:=FILTER(A2,N);C2:=BACKSET(B2,N+1); D2:=FILTER(C2,N);{低点}T11:=BACKSET(ISLASTBAR,BARSLAST(D2)+1); U11:=T11>REF(T11,1);DRAWLINE(D2,R,U11,R,1),COLORBLUE;M:=INTPART(3*N/5);A12:=REF(R,M)=HHV(R,2*M+1); B12:=FILTER(A12,M); C12:=BACKSET(B12,M+1); D12:=FILTER(C12,M);{高点}R112:=BACKSET(ISLASTBAR,BARSLAST(D12)+1); S112:=R112>REF(R112,1);DRAWLINE(D12,R,S112,R,1),COLORYELLOW;A22:=REF(R,M)=LLV(R,2*M+1); B22:=FILTER(A22,M);C22:=BACKSET(B22,M+1); D22:=FILTER(C22,M);{低点}T112:=BACKSET(ISLASTBAR,BARSLAST(D22)+1); U112:=T112>REF(T112,1);DRAWLINE(D22,R,U112,R,1),COLORYELLOW; |
