取当前框最高价H,最低价L,最新价C＞（H+L)/2,上框画红线，C＜（H+L)/2,上框画绿线。
取其它框最高价H1,最低价L1,最新价C1＞（H1+L1)/2,上框画红线，C1＜（H1+L1)/2,上框画绿线。
A1:=HHV(H,N)>REF(HHV(H,N),N) AND C>REF(C,N);
DRAWLASTBARLINE(A1,HHV(H,N),N-1,1,LLV(L,N),N-1,0),COLORRED,DOT;
DRAWSL(ISLASTBAR AND A1,HHV(H,N),0,-N+1,0,COLORRED),DOT;
DRAWSL(ISLASTBAR AND A1,LLV(L,N),0,-N+1,0,COLORRED),DOT;
A2:=LLV(L,N)<REF(LLV(L,N),N) AND C<REF(C,N);
DRAWLASTBARLINE(A2,LLV(L,N),N-1,1,HHV(H,N),N-1,0),COLORGREEN,DOT;
DRAWSL(ISLASTBAR AND A2,HHV(H,N),0,-N+1,0,COLORGREEN),DOT;
DRAWSL(ISLASTBAR AND A2,LLV(L,N),0,-N+1,0,COLORGREEN),DOT;
A0:=NOT(A1 OR A2);
DRAWLASTBARLINE(A0,HHV(H,N),N-1,1,LLV(L,N),N-1,0),COLORYELLOW,DOT;
DRAWSL(ISLASTBAR AND A0,HHV(H,N),0,-N+1,0,COLORYELLOW),DOT;
DRAWSL(ISLASTBAR AND A0,LLV(L,N),0,-N+1,0,COLORYELLOW),DOT;
B1:=REF(HHV(H,N),N)>REF(HHV(H,N),2*N) AND REF(C,N)>REF(C,2*N);
B2:=REF(LLV(L,N),N)<REF(LLV(L,N),2*N) AND REF(C,N)<REF(C,2*N);
B0:=NOT(B1 OR B2);
DRAWLASTBARLINE(B0,REF(HHV(H,N),N),2*N-1,1,REF(LLV(L,N),N),2*N-1,0),COLORYELLOW,DOT;
DRAWLASTBARLINE(B0,REF(HHV(H,N),N), N,1,REF(LLV(L,N),N), N,0),COLORYELLOW,DOT;
DRAWLASTBARLINE(B0,REF(HHV(H,N),N),N,1,REF(HHV(H,N),N),2*N-1,0),COLORYELLOW,DOT;
DRAWLASTBARLINE(B0,REF(LLV(L,N),N),N,1,REF(LLV(L,N),N),2*N-1,0),COLORYELLOW,DOT;
DRAWLASTBARLINE(B1,REF(HHV(H,N),N),2*N-1,1,REF(LLV(L,N),N),2*N-1,0),COLORRED,DOT;
DRAWLASTBARLINE(B1,REF(HHV(H,N),N), N,1,REF(LLV(L,N),N), N,0),COLORRED,DOT;
DRAWLASTBARLINE(B1,REF(HHV(H,N),N),N,1,REF(HHV(H,N),N),2*N-1,0),COLORRED,DOT;
DRAWLASTBARLINE(B1,REF(LLV(L,N),N),N,1,REF(LLV(L,N),N),2*N-1,0),COLORRED,DOT;
DRAWLASTBARLINE(B2,REF(HHV(H,N),N),2*N-1,1,REF(LLV(L,N),N),2*N-1,0),COLORGREEN,DOT;
DRAWLASTBARLINE(B2,REF(HHV(H,N),N), N,1,REF(LLV(L,N),N), N,0),COLORGREEN,DOT;
DRAWLASTBARLINE(B2,REF(HHV(H,N),N),N,1,REF(HHV(H,N),N),2*N-1,0),COLORGREEN,DOT;
DRAWLASTBARLINE(B2,REF(LLV(L,N),N),N,1,REF(LLV(L,N),N),2*N-1,0),COLORGREEN,DOT;
C1:=REF(HHV(H,N),2*N)>REF(HHV(H,N),3*N) AND REF(C,2*N)>REF(C,3*N);
C2:=REF(LLV(L,N),2*N)<REF(LLV(L,N),3*N) AND REF(C,2*N)<REF(C,3*N);
C0:=NOT(C1 OR C2);
DRAWLASTBARLINE(C0,REF(REF(HHV(H,N),N),N),2*N,1,REF(REF(HHV(H,N),N),N),3*N-1,0),COLORYELLOW,DOT;
DRAWLASTBARLINE(C0,REF(REF(LLV(L,N),N),N),2*N,1,REF(REF(LLV(L,N),N),N),3*N-1,0),COLORYELLOW,DOT;
DRAWLASTBARLINE(C0,REF(REF(HHV(H,N),N),N),3*N-1,1,REF(REF(LLV(L,N),N),N),3*N-1,0),COLORYELLOW,DOT;
DRAWLASTBARLINE(C0,REF(REF(HHV(H,N),N),N),2*N,1,REF(REF(LLV(L,N),N),N), 2*N,0),COLORYELLOW,DOT;
DRAWLASTBARLINE(C1,REF(HHV(H,N),2*N),3*N-1,1,REF(LLV(L,N),2*N),3*N-1,0),COLORRED,DOT;
DRAWLASTBARLINE(C1,REF(HHV(H,N),2*N),2*N,1,REF(LLV(L,N),2*N), 2*N,0),COLORRED,DOT;
DRAWLASTBARLINE(C1,REF(HHV(H,N),2*N),2*N,1,REF(HHV(H,N),2*N),3*N-1,0),COLORRED,DOT;
DRAWLASTBARLINE(C1,REF(LLV(L,N),2*N),2*N,1,REF(LLV(L,N),2*N),3*N-1,0),COLORRED,DOT;
DRAWLASTBARLINE(C2,REF(HHV(H,N),2*N),3*N-1,1,REF(LLV(L,N),2*N),3*N-1,0),COLORGREEN,DOT;
DRAWLASTBARLINE(C2,REF(HHV(H,N),2*N),2*N,1,REF(LLV(L,N),2*N), 2*N,0),COLORGREEN,DOT;
DRAWLASTBARLINE(C2,REF(HHV(H,N),2*N),2*N,1,REF(HHV(H,N),2*N),3*N-1,0),COLORGREEN,DOT;
DRAWLASTBARLINE(C2,REF(LLV(L,N),2*N),2*N,1,REF(LLV(L,N),2*N),3*N-1,0),COLORGREEN,DOT;
D1:=REF(HHV(H,N),3*N)>REF(HHV(H,N),4*N) AND REF(C,3*N)>REF(C,4*N);
D2:=REF(LLV(L,N),3*N)<REF(LLV(L,N),4*N) AND REF(C,3*N)<REF(C,4*N);
D0:=NOT(D1 OR D2);
//DRAWLASTBARLINE(D0,REF(REF(REF(HHV(H,N),N),N),N),3*N,1,REF(REF(REF(HHV(H,N),N),N),N),4*N-1,0),RGB(192,192,192),DOT;
//DRAWLASTBARLINE(D0,REF(REF(REF(LLV(L,N),N),N),N),3*N,1,REF(REF(REF(LLV(L,N),N),N),N),4*N-1,0),RGB(192,192,192),DOT;
//DRAWLASTBARLINE(D0,REF(REF(REF(HHV(H,N),N),N),N),4*N-1,1,REF(REF(REF(LLV(L,N),N),N),N),4*N-1,0),RGB(192,192,192),DOT;
//DRAWLASTBARLINE(D0,REF(REF(REF(HHV(H,N),N),N),N),3*N,1,REF(REF(REF(LLV(L,N),N),N),N), 3*N,0),RGB(192,192,192),DOT;
//DRAWLASTBARLINE(D1,REF(HHV(H,N),3*N),4*N-1,1,REF(LLV(L,N),3*N),4*N-1,0),COLORRED,DOT;
//DRAWLASTBARLINE(D1,REF(HHV(H,N),3*N),3*N,1,REF(LLV(L,N),3*N), 3*N,0),COLORRED,DOT;
//DRAWLASTBARLINE(D1,REF(HHV(H,N),3*N),3*N,1,REF(HHV(H,N),3*N),4*N-1,0),COLORRED,DOT;
//DRAWLASTBARLINE(D1,REF(LLV(L,N),3*N),3*N,1,REF(LLV(L,N),3*N),4*N-1,0),COLORRED,DOT;
//DRAWLASTBARLINE(D2,REF(HHV(H,N),3*N),4*N-1,1,REF(LLV(L,N),3*N),4*N-1,0),COLORGREEN,DOT;
//DRAWLASTBARLINE(D2,REF(HHV(H,N),3*N),3*N,1,REF(LLV(L,N),3*N), 3*N,0),COLORGREEN,DOT;
//DRAWLASTBARLINE(D2,REF(HHV(H,N),3*N),3*N,1,REF(HHV(H,N),3*N),4*N-1,0),COLORGREEN,DOT;
//DRAWLASTBARLINE(D2,REF(LLV(L,N),3*N),3*N,1,REF(LLV(L,N),3*N),4*N-1,0),COLORGREEN,DOT;
//E1:=REF(HHV(H,N),4*N)>REF(HHV(H,N),5*N) AND REF(C,4*N)>REF(C,5*N);
//E2:=REF(LLV(L,N),4*N)<REF(LLV(L,N),5*N) AND REF(C,4*N)<REF(C,5*N);
//E0:=NOT(E1 OR E2);
//DRAWLASTBARLINE(E0,REF(HHV(H,N),4*N),4*N,1,REF(HHV(H,N),4*N),5*N-1,0),RGB(192,192,192),DOT;
//DRAWLASTBARLINE(E0,REF(LLV(L,N),4*N),4*N,1,REF(LLV(L,N),4*N),5*N-1,0),RGB(192,192,192),DOT;
//DRAWLASTBARLINE(E0,REF(HHV(H,N),4*N),5*N-1,1,REF(LLV(L,N),4*N),5*N-1,0),RGB(192,192,192),DOT;
//DRAWLASTBARLINE(E0,REF(HHV(H,N),4*N),4*N,1,REF(LLV(L,N),4*N), 4*N,0),RGB(192,192,192),DOT;
//DRAWLASTBARLINE(E1,REF(HHV(H,N),4*N),5*N-1,1,REF(LLV(L,N),4*N),5*N-1,0),COLORRED,DOT;
//DRAWLASTBARLINE(E1,REF(HHV(H,N),4*N),4*N,1,REF(LLV(L,N),4*N), 4*N,0),COLORRED,DOT;
//DRAWLASTBARLINE(E1,REF(HHV(H,N),4*N),4*N,1,REF(HHV(H,N),4*N),5*N-1,0),COLORRED,DOT;
//DRAWLASTBARLINE(E1,REF(LLV(L,N),4*N),4*N,1,REF(LLV(L,N),4*N),5*N-1,0),COLORRED,DOT;
//DRAWLASTBARLINE(E2,REF(HHV(H,N),4*N),5*N-1,1,REF(LLV(L,N),4*N),5*N-1,0),COLORGREEN,DOT;
//DRAWLASTBARLINE(E2,REF(HHV(H,N),4*N),4*N,1,REF(LLV(L,N),4*N), 4*N,0),COLORGREEN,DOT;
//DRAWLASTBARLINE(E2,REF(HHV(H,N),4*N),4*N,1,REF(HHV(H,N),4*N),5*N-1,0),COLORGREEN,DOT;
//DRAWLASTBARLINE(E2,REF(LLV(L,N),4*N),4*N,1,REF(LLV(L,N),4*N),5*N-1,0),COLORGREEN,DOT;
//F1:=REF(HHV(H,N),5*N)>REF(HHV(H,N),6*N) AND REF(C,5*N)>REF(C,6*N);
//F2:=REF(LLV(L,N),5*N)<REF(LLV(L,N),6*N) AND REF(C,5*N)<REF(C,6*N);
//F0:=NOT(F1 OR F2);
// DRAWLASTBARLINE(F0,REF(HHV(H,N),5*N),5*N,1,REF(HHV(H,N),5*N),6*N-1,0),RGB(192,192,192),DOT;
// DRAWLASTBARLINE(F0,REF(LLV(L,N),5*N),5*N,1,REF(LLV(L,N),5*N),6*N-1,0),RGB(192,192,192),DOT;
// DRAWLASTBARLINE(F0,REF(HHV(H,N),5*N),6*N-1,1,REF(LLV(L,N),5*N),6*N-1,0),RGB(192,192,192),DOT;
// DRAWLASTBARLINE(F0,REF(HHV(H,N),5*N),5*N,1,REF(LLV(L,N),5*N), 5*N,0),RGB(192,192,192),DOT;
// DRAWLASTBARLINE(F1,REF(HHV(H,N),5*N),6*N-1,1,REF(LLV(L,N),5*N),6*N-1,0),COLORRED,DOT;
// DRAWLASTBARLINE(F1,REF(HHV(H,N),5*N),5*N,1,REF(LLV(L,N),5*N), 5*N,0),COLORRED,DOT;
// DRAWLASTBARLINE(F1,REF(HHV(H,N),5*N),5*N,1,REF(HHV(H,N),5*N),6*N-1,0),COLORRED,DOT;
// DRAWLASTBARLINE(F1,REF(LLV(L,N),5*N),5*N,1,REF(LLV(L,N),5*N),6*N-1,0),COLORRED,DOT;
// DRAWLASTBARLINE(F2,REF(HHV(H,N),5*N),6*N-1,1,REF(LLV(L,N),5*N),6*N-1,0),COLORGREEN,DOT;
// DRAWLASTBARLINE(F2,REF(HHV(H,N),5*N),5*N,1,REF(LLV(L,N),5*N), 5*N,0),COLORGREEN,DOT;
// DRAWLASTBARLINE(F2,REF(HHV(H,N),5*N),5*N,1,REF(HHV(H,N),5*N),6*N-1,0),COLORGREEN,DOT;
（来源：文华财经）
