X:=5;
D:=10;
M5:MA(C,X);
M10:MA(C,D);
T:=BARSLAST(CROSS(M5,M10));
ST:=BARSLAST(CROSS(M10,M5));
T1:=SUMBARS(T=0,2);
T2:=SUMBARS(T=0,3);
ST1:=SUMBARS(ST=0,2);
ST2:=SUMBARS(ST=0,3);
CURRBARSCOUNT:=DATACOUNT-BARPOS+1;
H1:=IF(REFX1(M5,10000)>REFX1(M10,10000),HHV(H,T+1),REF(HHV(H,T+1),ST));
L1:=IF(REFX1(M5,10000)<REFX1(M10,10000),LLV(L,ST+1),REF(LLV(L,ST+1),T));
H2:=IF(REFX1(M5,10000)>REFX1(M10,10000),REF(HHV(H,T+1),ST),REF(HHV(H,T+1),ST1-1));
L2:=IF(REFX1(M5,10000)<REFX1(M10,10000),REF(LLV(L,ST+1),T),REF(LLV(L,ST+1),T1-1));
H3:=IF(REFX1(M5,10000)>REFX1(M10,10000),REF(HHV(H,T+1),ST1-1),REF(HHV(H,T+1),ST2-1));
L3:=IF(REFX1(M5,10000)<REFX1(M10,10000),REF(LLV(L,ST+1),T1-1),REF(LLV(L,ST+1),T2-1));
TJ1:=REFX1(M5,10000)>REFX1(M10,10000) AND CURRBARSCOUNT>=REFX1(T2,10000) AND CURRBARSCOUNT<=REFX1(ST2,10000) AND L=REFX1(L3,10000);
TJ2:=REFX1(M5,10000)>REFX1(M10,10000) AND CURRBARSCOUNT>=REFX1(ST1,10000) AND CURRBARSCOUNT<=REFX1(T2,10000) AND H=REFX1(H3,10000);
TJ3:=REFX1(M5,10000)>REFX1(M10,10000) AND CURRBARSCOUNT>=REFX1(T1,10000) AND CURRBARSCOUNT<=REFX1(ST1,10000) AND L=REFX1(L2,10000);
TJ4:=REFX1(M5,10000)>REFX1(M10,10000) AND CURRBARSCOUNT>=REFX1(ST,10000) AND CURRBARSCOUNT<=REFX1(T1,10000) AND H=REFX1(H2,10000);
TJ5:=REFX1(M5,10000)>REFX1(M10,10000) AND CURRBARSCOUNT>=REFX1(T,10000)+1 AND CURRBARSCOUNT<=REFX1(ST,10000)+1 AND L=REFX1(L1,10000);
TJ6:=REFX1(M5,10000)>REFX1(M10,10000) AND H=REFX1(H1,10000) AND CURRBARSCOUNT<=REFX1(ST2,10000);
TJ7:=REFX1(M5,10000)<REFX1(M10,10000) AND CURRBARSCOUNT>=REFX1(ST2,10000) AND CURRBARSCOUNT<=REFX1(T2,10000) AND H=REFX1(H3,10000);
TJ8:=REFX1(M5,10000)<REFX1(M10,10000) AND CURRBARSCOUNT>=REFX1(T1,10000) AND CURRBARSCOUNT<=REFX1(ST2,10000) AND L=REFX1(L3,10000);
TJ9:=REFX1(M5,10000)<REFX1(M10,10000) AND CURRBARSCOUNT>=REFX1(ST1,10000) AND CURRBARSCOUNT<=REFX1(T1,10000) AND H=REFX1(H2,10000);
TJ10:=REFX1(M5,10000)<REFX1(M10,10000) AND CURRBARSCOUNT>=REFX1(T,10000) AND CURRBARSCOUNT<=REFX1(ST1,10000) AND L=REFX1(L2,10000);
TJ11:=REFX1(M5,10000)<REFX1(M10,10000) AND CURRBARSCOUNT>=REFX1(ST,10000)+1 AND CURRBARSCOUNT<=REFX1(T,10000)+1 AND H=REFX1(H1,10000);
TJ12:=REFX1(M5,10000)<REFX1(M10,10000) AND L=REFX1(L1,10000) AND CURRBARSCOUNT<=REFX1(T2,10000);
DRAWLINE(TJ1,L,TJ2,H,0),COLORMAGENTA;
DRAWLINE(TJ2,H,TJ3,L,0),COLORMAGENTA;
DRAWLINE(TJ3,L,TJ4,H,0),COLORMAGENTA;
DRAWLINE(TJ4,H,TJ5,L,0),COLORMAGENTA;
DRAWLINE(TJ5,L,TJ6,H,0),COLORMAGENTA;
DRAWLINE(TJ7,H,TJ8,L,0),COLORGREEN;
DRAWLINE(TJ8,L,TJ9,H,0),COLORGREEN;
DRAWLINE(TJ9,H,TJ10,L,0),COLORGREEN;
DRAWLINE(TJ10,L,TJ11,H,0),COLORGREEN;
DRAWLINE(TJ11,H,TJ12,L,0),COLORGREEN;
HH:=REFX1(MAX(MAX(H1,H2),H3),10000);
LL:=REFX1(MIN(MIN(L1,L2),L3),10000);
Z:=(HH-LL)/2+LL;//QHQQW.COM 
DRAWLINE1(TJ7,Z,ISLASTBAR,Z,0),COLORGREEN,DOT;
HH1:=REFX1(MAX(H1,MAX(H2,H3)),10000);
LL1:=REFX1(MIN(MIN(L1,L2),L3),10000);
Z1:=(HH1-LL1)/2+LL1;
DRAWLINE1(TJ1,Z1,ISLASTBAR,Z1,0),COLORMAGENTA,DOT;
近高:H1,COLORMAGENTA,NODRAW;
近低:L1,COLORGREEN,NODRAW;
中高:H2,COLORMAGENTA,NODRAW;
中底:L2,COLORGREEN,NODRAW;
远高:H3,COLORMAGENTA,NODRAW;
远底:L3,COLORGREEN,NODRAW;