打印本文
關閉窗口
?
?來源:程序化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.kzuj.com.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);
?