通达信力道K线源码

{股海网提供：www.guhai.com.cn}

源码：
 XCLOSE:=EMA((OPEN+HIGH+LOW+CLOSE)/4,3);
 XOPEN:=EMA((REF(OPEN,1)+REF(XCLOSE,1))/2,3);
 TEMPG:=MAX(HIGH,XOPEN);
 XHIGH:=EMA(MAX(TEMPG,XCLOSE),3);
 TEMP:=MIN(LOW,XOPEN);
 XLOW:=EMA(MIN(TEMP,XCLOSE),3);
 O1:=IF(XOPEN<XCLOSE,XOPEN,XCLOSE);
 C1:=IF(XOPEN<XCLOSE,XCLOSE,XOPEN);
 {K线}
 STICKLINE(XOPEN>=XCLOSE,XHIGH,XLOW,0,0 ),COLORCYAN;
STICKLINE(XOPEN>=XCLOSE,C1,O1,4,0 ),COLOR990000;
 STICKLINE(XOPEN>=XCLOSE,C1,O1,3,0 ),COLORCC0000;
STICKLINE(XOPEN>=XCLOSE,C1,O1,2.5,0 ),COLORFF4400;
 STICKLINE(XOPEN>=XCLOSE,C1,O1,1.5,0 ),COLORFF8800;
 STICKLINE(XOPEN>=XCLOSE,C1,O1,0.9,0 ),COLORFFCC00;
 STICKLINE(XOPEN>=XCLOSE,C1,O1,0.3,0 ),COLORCYAN;
 STICKLINE(XOPEN<XCLOSE,XHIGH,XLOW,0,0 ),COLORRED;
 STICKLINE(XOPEN<XCLOSE,C1,O1,4,0 ),COLOR000055;
 STICKLINE(XOPEN<XCLOSE,C1,O1,3,0 ),COLOR000077;
STICKLINE(XOPEN<XCLOSE,C1,O1,2.5,0 ),COLOR000099;
 STICKLINE(XOPEN<XCLOSE,C1,O1,1.5,0 ),COLOR0000BB;
 STICKLINE(XOPEN<XCLOSE,C1,O1,0.9,0 ),COLOR0000DD;
 STICKLINE(XOPEN<XCLOSE,C1,O1,0.3,0 ),COLOR0000FF;
 HH:=(6*H+5*REF(H,1)+4*REF(H,2)+3*REF(H,3)+2*REF(H,4)+REF(H,5))/21;
 LL:=(6*L+5*REF(L,1)+4*REF(L,2)+3*REF(L,3)+2*REF(L,4)+REF(L,5))/21;
 {TDX没有WMA函数，上面的写法代替}
 {A1:=IF(C>REF(EXPMEMA(H,6),1),1,0);
 A2:=IF(C<REF(EXPMEMA(L,6),1),-1,0);}
 A1:=IF(C>REF(HH,1),1,0);
 A2:=IF(C<REF(LL,1),-1,0);
 A3:=A1+A2;
A4:=IF(A3=0,REF(A3,BARSLAST(NOT(A3=0))),A3);
 转折线:IF(A4=-1,MA(HIGH,6),MA(LOW,6))LINETHICK2,COLORFFFFFF;