PH:=EMA(C,13); X1:EMA(PH,3); X2:X1-(PH-X1); X3:X2-(X1-X2);
X4:=X3-(X2-X3); X5:=X4-(X3-X4); X6:=X5-(X4-X5); X7:=X6-(X5-X6);
X8:=X7-(X6-X7); X9:=X8-(X7-X8); X10:=X9-(X8-X9); X11:=X10-(X9-X10);
X12:=X11-(X10-X11); X13:=X12-(X11-X12);
S1:(PH-X1)+PH; S2:(S1-PH)+S1; S3:(S2-S1)+S2; S4:(S3-S2)+S3;
S5:=(S4-S3)+S4; S6:=(S5-S4)+S5; S7:=(S6-S5)+S6; S8:=(S7-S6)+S7;
S9:=(S8-S7)+S8; S10:=(S9-S8)+S9; S11:=(S10-S9)+S10; S12:=(S11-S10)+S11;
S13:=(S12-S11)+S12;
DRAWBAND(S13,RGB(250,100,100),X13,RGB(100,100,250));
DRAWBAND(S12,RGB(250,80,80),X12,RGB(80,80,250));
DRAWBAND(S11,RGB(250,60,60),X11,RGB(60,60,250));
DRAWBAND(S10,RGB(250,40,40),X13,RGB(40,40,250));
DRAWBAND(S9,RGB(250,20,20),X12,RGB(20,20,250));
DRAWBAND(S8,RGB(250,0,0),X11,RGB(0,0,250));
DRAWBAND(S7,RGB(230,0,0),X13,RGB(0,0,230));
DRAWBAND(S6,RGB(210,0,0),X12,RGB(0,0,210));
DRAWBAND(S5,RGB(190,0,0),X11,RGB(0,0,190));
DRAWBAND(S4,RGB(170,0,0),X13,RGB(0,0,170));
DRAWBAND(S3,RGB(150,0,0),X12,RGB(0,0,150));
DRAWBAND(S2,RGB(130,0,0),X11,RGB(0,0,130));
DRAWBAND(S1,RGB(110,0,0),X11,RGB(0,0,110)); DRAWKLINE(H,O,L,C);
STICKLINE(C>=O,O,C,3,0)COLORYELLOW;
STICKLINE(C