用分時K線序號的方法來寫。如果要考慮各週期的情況,會用到DATATYPE函數
(DATATYPE=2 and XB=60) or (DATATYPE=3 and XB=20) or ......
{台當月五分線專用}
XA:=REF(Date,1)<>Date , Stick;
XB:BarsLast(XA=1) + 1 ,Stick;
OP:=IF(XB=60,C,O);
HI:=IF(XB=60,C,H);
LO:=IF(XB=60,C,L);
CL:=IF(XB=60,C,C);
{k-Line 描繪k線}
{=========================================}
StickLine( IsUp , HI , LO , 0.1 , 0 ) , Color5050FF ;
StickLine( IsUp , CL , OP , 7 , 1 ) , Color5050FF ;
StickLine( IsDown , HI , LO , 0.1 , 0 ) , ColorCyan ;
StickLine( IsDown , CL , OP , 7 , 0 ) , ColorCyan ;
StickLine( IsEqual and C>REF( C , 1 ) , HI , LO , 0.1 , 0 ) , Color5050FF ;
StickLine( IsEqual and C>REF( C , 1 ) , CL , OP , 7 , 0 ) , Color5050FF ;
StickLine( IsEqual and C<=REF( C , 1 ) , HI , LO , 0.1 , 0 ) , ColorCyan ;
StickLine( IsEqual and C<=REF( C , 1 ) , CL , OP , 7 , 0 ) , ColorCyan ;
X:=Barscount( Close ) ;
{ 以下是描繪第一個交易日的K線,以補前面含蓋的不足 }
StickLine( IsEqual and X = 1 , HI, LO, 0.1, 0 ) , Color5050FF ;
StickLine( IsEqual and X = 1 , CL , OP , 7 , 0 ) , Color5050FF ;
|