// 基礎(chǔ)K線顏色繪制
DRAWCOLORKLINE(ISUP,COLORRED,1);// 收盤價大于開盤價，繪制紅色空心K線
DRAWCOLORKLINE(ISDOWN,COLORCYAN,0);// 收盤價小于開盤價，繪制青色實心K線
DRAWCOLORKLINE(ISEQUAL,COLORWHITE,1);// 收盤價等于開盤價，繪制白色十字線

// K線變色條件判斷
KHH1:=IFELSE(H<REF(H,2)&&REF(H,1)<REF(H,2),REF(H,2),0);
KLL1:=IFELSE(L>REF(L,2)&&REF(L,1)>REF(L,2),REF(L,2),0);
KHH2:=VALUEWHEN(KHH1>0,KHH1);
KKLL2:=VALUEWHEN(KLL1>0,KLL1);
K1:=IFELSE(CLOSE>KHH2,-3,IFELSE(CLOSE<KKLL2,1,0));
K2:=VALUEWHEN(K1<>0,K1);
G:=IFELSE(K2=1,KHH2,KKLL2);
G1:=VALUEWHEN(ISLASTBAR,G);
W1:=K2;
W2:=OPEN-CLOSE;
HT:=IFELSE(OPEN>CLOSE,OPEN,CLOSE);
LT:=IFELSE(OPEN<CLOSE,OPEN,CLOSE);

// 變色K線繪制
DRAWLINE(W1=1,HIGH,W1=1,HT,COLORCYAN);
DRAWLINE(W1=1,LOW,W1=1,LT,COLORCYAN);
DRAWLINE(W1=-3,HIGH,W1=-3,HT,COLORRED);
DRAWLINE(W1=-3,LOW,W1=-3,LT,COLORRED);
STICKLINE(W1>0,OPEN,CLOSE,COLORCYAN,1);
STICKLINE(W1<=0,OPEN,CLOSE,COLORRED,1);
STICKLINE(W2>0&&W1<=0,OPEN,CLOSE,COLORRED,0);
STICKLINE(W2>0&&W1>0,OPEN,CLOSE,COLORCYAN,0);

// 趨勢線繪制（基于K線變色條件）
NN:=XS; // 保留原XS參數(shù)引用

DRAWLINE(W1=1&&REF(W1,1)=1 AND NN=1,G,W1=1&&REF(W1,1)=1 AND NN=1,REF(G,1),COLORGREEN),LINETHICK1;
DRAWLINE(W1=-3&&REF(W1,1)=-3 AND NN=1,G,W1=-3&&REF(W1,1)=-3 AND NN=1,REF(G,1),COLORYELLOW),LINETHICK1;
DRAWSL(K2=1 AND NN=1,G,0,1,0,COLORGREEN),LINETHICK1;
DRAWSL(K2=-3 AND NN=1,G,0,1,0,COLORYELLOW),LINETHICK1;

?

?來源:程序化99

?

?來源: www.tumamayizhan.com

?