?

?來源:程序化99

?參考

?

VOL,VOLSTICK;
15FOO:"MIN$15$O",CIRCLEDOT,COLORCYAN,NODRAW;

15FN:CROSS(MOD(MINUTE,15)=0,0.5),NODRAW;

N:=BARSLAST(CROSS(15FN,0.5))+1;

NN:=MINUTE,NODRAW;

D:=MOD(NN,15)=0;

QO:=VALUEWHEN(D,O),DASH;

QC:=VALUEWHEN(D,REF(C,1)),DASH;

N1:=BARSLAST(HOUR<>REF(HOUR,1))+1;

?

?

T:=REFX1(MOD(NN,15)=0,1);

DRAWSL(T,HHV(V,SUMBARS(T,2)-1),0,-SUMBARS(T,2)+2,0,COLORGRAY);

DRAWSL(T,0,0,-SUMBARS(T,2)+2,0,COLORGRAY);

DRAWLINE(T,HHV(V,SUMBARS(T,2)-1),T,0,COLORGRAY);

DRAWLINE3(T,HHV(V,SUMBARS(T,2)-1),SUMBARS(T,2)-2,T,0,SUMBARS(T,2)-2,0),COLORGRAY;

?

OO:=VALUEWHEN(DAYBARPOS=1,O);

AA:PERIOD<>8,NODRAW;

DRAWLINE3(AA&& (REFX(DAYBARPOS=1,1)),HHV(V,DAYBARPOS),BARSLAST(DAYBARPOS=1),AA&&(REFX(DAYBARPOS=1,1)),0,BARSLAST(DAYBARPOS=1),0),COLORGRAY;

DRAWLINE(AA&&(REFX(DAYBARPOS=1,1)),HHV(V,DAYBARPOS),AA&&(REFX(DAYBARPOS=1,1)),0,COLORGRAY);

DRAWSL(AA&&(REFX(DAYBARPOS=1,1)),HHV(V,DAYBARPOS),0,-BARSLAST(DAYBARPOS=1),0,COLORGRAY);

DRAWSL(AA&&(REFX(DAYBARPOS=1,1)),0,0,-BARSLAST(DAYBARPOS=1),0,COLORGRAY);

?

?

?

NN1:BARSLAST(WEEKDAY<REF(WEEKDAY,1))+1,NODRAW;

OO1:=VALUEWHEN(NN1=1,O);

DRAWSL((REFX(NN1=1,1)||ISLASTBAR)&&PERIOD=8,HHV(H,NN1),0,-BARSLAST(NN1=1),0,COLORGRAY);

DRAWSL((REFX(NN1=1,1)||ISLASTBAR)&&PERIOD=8,LLV(L,NN1),0,-BARSLAST(NN1=1),0,COLORGRAY);

?

?來源: www.weiqiv.net.cn

?

?參考

?

VOL,VOLSTICK;
15FOO:"MIN$15$O",CIRCLEDOT,COLORCYAN,NODRAW;

15FN:CROSS(MOD(MINUTE,15)=0,0.5),NODRAW;

N:=BARSLAST(CROSS(15FN,0.5))+1;

NN:=MINUTE,NODRAW;

D:=MOD(NN,15)=0;

QO:=VALUEWHEN(D,O),DASH;

QC:=VALUEWHEN(D,REF(C,1)),DASH;

N1:=BARSLAST(HOUR<>REF(HOUR,1))+1;

?

?

T:=REFX1(MOD(NN,15)=0,1);

DRAWSL(T,HHV(V,SUMBARS(T,2)-1),0,-SUMBARS(T,2)+2,0,COLORYELLOW);

DRAWSL(T,0,0,-SUMBARS(T,2)+2,0,COLORYELLOW);

DRAWLINE(T,HHV(V,SUMBARS(T,2)-1),T,0,COLORYELLOW);

DRAWLINE3(T,HHV(V,SUMBARS(T,2)-1),SUMBARS(T,2)-2,T,0,SUMBARS(T,2)-2,0),COLORYELLOW;

?

OO:=VALUEWHEN(DAYBARPOS=1,O);

AA:PERIOD<>8,NODRAW;

DRAWLINE3(AA&& (REFX(DAYBARPOS=1,1)),HHV(V,DAYBARPOS),BARSLAST(DAYBARPOS=1),AA&&(REFX(DAYBARPOS=1,1)),0,BARSLAST(DAYBARPOS=1),0),COLORYELLOW;

DRAWLINE(AA&&(REFX(DAYBARPOS=1,1)),HHV(V,DAYBARPOS),AA&&(REFX(DAYBARPOS=1,1)),0,COLORYELLOW);

DRAWSL(AA&&(REFX(DAYBARPOS=1,1)),HHV(V,DAYBARPOS),0,-BARSLAST(DAYBARPOS=1),0,COLORYELLOW);

DRAWSL(AA&&(REFX(DAYBARPOS=1,1)),0,0,-BARSLAST(DAYBARPOS=1),0,COLORYELLOW);

?

?

?

NN1:BARSLAST(WEEKDAY<REF(WEEKDAY,1))+1,NODRAW;

OO1:=VALUEWHEN(NN1=1,O);

DRAWSL((REFX(NN1=1,1)||ISLASTBAR)&&PERIOD=8,HHV(H,NN1),0,-BARSLAST(NN1=1),0,COLORYELLOW);

DRAWSL((REFX(NN1=1,1)||ISLASTBAR)&&PERIOD=8,LLV(L,NN1),0,-BARSLAST(NN1=1),0,COLORYELLOW);
?