X1:=(CLOSE+LOW+HIGH)/3;
X2:=EMA(X1,6);
X3:=EMA(X2,5);
//DRAWGBK(X2>=X3,COLORRGB(150,0,0),COLORRGB(100,50,0),1);
//DRAWGBK(X2<X3,COLORRGB(0,150,0),COLORRGB(0,80,0),1);
VAR2:=EMA(EMA(X1,1),13);
VAR3:=EMA(VAR2,21);
{PARTLINE(VAR3,VAR3),LINETHICK2,colorFFFF;
PARTLINE(VAR2<VAR3,VAR3),LINETHICK2,colorFF0000;
STICKLINE(VAR2>=VAR3,VAR2,VAR3,8,0),colorFFFF;
STICKLINE(VAR2<VAR3,VAR2,VAR3,8,0),color9B6469;}
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);
{STICKLINE(XOPEN>=XCLOSE,XHIGH,XLOW,0.1,0),colorFF0000;
STICKLINE(XOPEN>=XCLOSE,C1,O1,6,0),colorFF0000;
STICKLINE(XOPEN<XCLOSE,XHIGH,XLOW,0.1,0),colorFF;
STICKLINE(XOPEN<XCLOSE,C1,O1,6,0),colorFF;}
AC:=CLOSE;
轉強:=WMA(HIGH,6);
轉弱:=WMA(LOW,6);
B:=CLOSE*0;
FOR I=13+1 TO DATACOUNT DO BEGIN
IF AC[I]>轉強[I-1] THEN
B[I]:=1;ELSE
IF AC[I]<轉弱[I-1] THEN
B[I]:=-1;ELSE
B[I]:=B[I-1];
END;
轉折線:IF(B=-1,MA(HIGH,6),MA(LOW,6)),LINETHICK2,colorFFFFFF;