通达信力道K线副图指标

源码：
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;