//修正:原公式彩線有時會隨屏幕變化而變短,現(xiàn)在已經(jīng)沒有 //以下是正式代碼,以上可不復(fù)制 //繪制K線 KLINE(O,H,L,C,0); //判斷是否繪制彩線的位置 農(nóng)歷:LDay,LineThick0,COLORYELLOW; isColor:=IF((REF(農(nóng)歷,1)<15 NUM:=COUNT(ISCOLOR=1,0); //繪制彩線 VERTLINE(isColor AND MOD(NUM,4)=0),COLORRED; VERTLINE(isColor AND MOD(NUM,4)=1),COLORYELLOW; VERTLINE(isColor AND MOD(NUM,4)=2),COLORBLUE; VERTLINE(isColor AND MOD(NUM,4)=3),COLORMAGENTA; (2)Delta MTD公式 //繪制K線 KLINE(O,H,L,C,0); //判斷是否繪制彩線的位置 農(nóng)歷:LDay,LineThick0,COLORYELLOW; isColor:=if((ref(農(nóng)歷,1)<15 NUM:=COUNT(ISCOLOR=1,0); //繪制彩線 VERTLINE(isColor and mod(Num,12)=0),colorred VERTLINE(isColor and mod(Num,12)=3),coloryellow VERTLINE(isColor and mod(Num,12)=6),colorblue VERTLINE(isColor and mod(Num,12)=9),colormagenta (3)DELTA LTD公式 //可用于繪制K線 KLINE(O,H,L,C,0); //判斷是否繪制彩線的位置 年:=year; isColor:=IF(年>REF(年,1),1,0); Num:=COUNT(isColor,0); //繪制彩線 VERTLINE(isColor and mod(Num,4)=1),colorred VERTLINE(isColor and mod(Num,4)=2),coloryellow VERTLINE(isColor and mod(Num,4)=3),colorblue VERTLINE(isColor and mod(Num,4)=0),colormagenta (4)DELTA SLTD公式 //繪制K線 KLINE(O,H,L,C,0); //判斷是否繪制彩線的位置 月:=MONTH; isFirst:=IF(月<>REF(月,1),1,0); isColor:=IF(MOD(COUNT(isFirst,0),57)=1 Num:=COUNT(isColor,0); //繪制彩線 VERTLINE(isColor and mod(Num,4)=1),colorred VERTLINE(isColor and mod(Num,4)=2),coloryellow VERTLINE(isColor and mod(Num,4)=3),colorblue VERTLINE(isColor and mod(Num,4)=0),colormagenta (5)DELTA STD 公式 //繪制彩線 KLINE(O,H,L,C,0); IF DATATYPE>5 THEN BEGIN END; //判斷是否繪制彩線的位置 日:=date; isColor:=if(日>ref(日,1) or barpos=1,1,0); DIS0:=if(barpos=1 or not(isColor),0,DATEDIFF(ref(日,1),日)-1); //星期六、星期日以及節(jié)假日也要考慮 DIS:=SUM(DIS0,0); Num:=count(isColor,0)+DIS; VERTLINE(isColor and mod(Num,4)=0),colorred VERTLINE(isColor and mod(Num,4)=1),coloryellow VERTLINE(isColor and mod(Num,4)=2),colorblue VERTLINE(isColor and mod(Num,4)=3),colormagenta |
|