?
?
?來源:程序化99( www.tumamayizhan.com )
?
?
?
?分鐘周期,當前交易日的收盤價無法取到,所以今天無法繪制收盤價線
?
編寫參考:
QO:="DAY$1$O";//前一天的開盤價
QC:="DAY$1$C";//前一天的收盤價
N:=BARSLAST(DATE<>REF(DATE,1))+1;
JO:=VALUEWHEN(N=1,O);//今天的開盤價
QQC:=REF(QC,N);//前第2天的收盤價
COND1:REFX(DATE<>REF(DATE,1),1),NODRAW;
DRAWSL(COND1&&QO>QQC,JO,0,-1*BARSLAST(DATE<>REF(DATE,1)),0,COLORYELLOW);
DRAWSL(COND1&&QO<QQC,JO,0,-1*BARSLAST(DATE<>REF(DATE,1)),0,COLORGREEN);
DRAWSL(COND1&&QO<QC,C,0,-1*BARSLAST(DATE<>REF(DATE,1)),0,COLORRED);
DRAWSL(COND1&&QO>QC,C,0,-1*BARSLAST(DATE<>REF(DATE,1)),0,COLORBLUE);
DRAWSL(COND1&&(QO=QC || QO=QQC),QO,0,-1*BARSLAST(DATE<>REF(DATE,1)),0,COLORBLUE);
COND2:CROSS(BACKSET(ISLASTBAR,N),0.5),NODRAW;
DRAWSL(COND2&&JO>QC,JO,0,1,2,COLORYELLOW);
DRAWSL(COND2&&JO<QC,JO,0,1,2,COLORGREEN);
DRAWSL(COND2&&JO=QC,JO,0,1,2,COLORWHITE);