?

?來源:程序化99

?

?來源: www.weiqiv.net.cn

?參考

?

MM:=MINUTE-INTPART(MINUTE/10)*10;
N:=BARSLAST(MINUTE<>REF(MINUTE,1))+1;
HH:=HHV(H,N);
LL:=LLV(L,N);
OO:=REF(O,N-1);
T1:=C>OO;
T2:=C<OO;
T3:=C=OO;
A:=PERIOD<1,NODRAW;

DRAWLINE(A&&(ISLASTBAR||REFX(N=1,1))&&T1,HH,1,LL,RGB(80,0,0));
DRAWSL(A&&(ISLASTBAR||REFX(N=1,1))&&T1,HH,0,-N+1,0,RGB(80,0,0));
DRAWSL(A&&(ISLASTBAR||REFX(N=1,1))&&T1,LL,0,-N+1,0,RGB(80,0,0));
DRAWLINE3(A&&(ISLASTBAR||REFX(N=1,1))&&T1,HH,N-1,(ISLASTBAR||REFX(N=1,1))&&T1,LL,N-1,0),RGB(80,0,0);

DRAWLINE(A&&(ISLASTBAR||REFX(N=1,1))&&T2,HH,1,LL,RGB(0,60,0));
DRAWSL(A&&(ISLASTBAR||REFX(N=1,1))&&T2,HH,0,-N+1,0,RGB(0,60,0));
DRAWSL(A&&(ISLASTBAR||REFX(N=1,1))&&T2,LL,0,-N+1,0,RGB(0,60,0));
DRAWLINE3(A&&(ISLASTBAR||REFX(N=1,1))&&T2,HH,N-1,(ISLASTBAR||REFX(N=1,1))&&T2,LL,N-1,0),RGB(0,60,0);

DRAWLINE(A&&(ISLASTBAR||REFX(N=1,1))&&T3,HH,1,LL,RGB(80,80,80));
DRAWSL(A&&(ISLASTBAR||REFX(N=1,1))&&T3,HH,0,-N+1,0,RGB(80,80,80));
DRAWSL(A&&(ISLASTBAR||REFX(N=1,1))&&T3,LL,0,-N+1,0,RGB(80,80,80));
DRAWLINE3(A&&(ISLASTBAR||REFX(N=1,1))&&T3,HH,N-1,(ISLASTBAR||REFX(N=1,1))&&T3,LL,N-1,0),RGB(80,80,80);