input:A(13,1,2000),B(8,1,2000),D(5,1,2000);

M13:=MA(CLOSE,A),COLORRED,LINETHICK0;
PARTLINE(M13>REF(M13,1),M13),COLORMAGENTA,LINETHICK2;
PARTLINE(M13<REF(M13,1),M13),COLORGREEN,LINETHICK2;
PARTLINE(M13=REF(M13,1),M13),COLORYELLOW,LINETHICK2;

M13L:=MA(LOW,B),COLORRED,LINETHICK0;
PARTLINE(M13L>REF(M13L,1),M13L),COLORMAGENTA,LINETHICK2;
PARTLINE(M13L<REF(M13L,1),M13L),COLORGREEN,LINETHICK2;
PARTLINE(M13L=REF(M13L,1),M13L),COLORYELLOW,LINETHICK2;

M13H:=MA(HIGH,D),COLORRED,LINETHICK0;
PARTLINE(M13H>REF(M13H,1),M13H),COLORMAGENTA,LINETHICK2;
PARTLINE(M13H<REF(M13H,1),M13H),COLORGREEN,LINETHICK2;
PARTLINE(M13H=REF(M13H,1),M13H),COLORYELLOW,LINETHICK2;

Input:N(600,1,10000),M(40,1,1000),P(20,1,1000);

TT:HHV(HHV(H,3),N);
KK:LLV(LLV(L,3),N);
H1:=MA(TT,M);
H2:=MA(TT,P);
L1:=MA(KK,M);
L2:=MA(KK,P);
partline(TT>ref(TT,1),TT),colorred;
partline(TT<ref(TT,1),TT),colorgreen;
partline(TT=ref(TT,1),TT),colormagenta,linethick1;
partline(KK>ref(KK,1),KK),colorred;
partline(KK<ref(KK,1),KK),colorgreen;
partline(KK=ref(KK,1),KK),colormagenta,linethick1;
partline(H1>ref(H1,1),H1),pointdot,coloryellow;
partline(H1<ref(H1,1),H1),linedot,coloryellow;
partline(H2>ref(H2,1),H2),colorred;
partline(H2<ref(H2,1),H2),colorcyan;
partline(L1>ref(L1,1),L1),pointdot,coloryellow;
partline(L1<ref(L1,1),L1),,coloryellow;
partline(L2>ref(L2,1),L2),colorred;
partline(L2<ref(L2,1),L2),colorcyan;