SJ:=IF(HOUR<12,(HOUR-9.5)*60+MINUTE,(HOUR-11)*60+MINUTE);
 BJ:=IF(HOUR>12,(HOUR-13.5)*60+MINUTE,(HOUR-16)*60+MINUTE);
 KB:=IF(HOUR>24,(HOUR-17)*60+MINUTE,(HOUR-21)*60+MINUTE);
 DRAWGBK(1,RGB(4,9,9),RGB(30,29,90),0,'01',0);
 VAR1:=(HIGH+LOW)/2;
 AO:MA(VAR1,5)-MA(VAR1,34),LINETHICK0;
 STICKLINE(AO>=REF(AO,1),0,AO,0.1,1),COLORYELLOW;
 STICKLINE(AO<REF(AO,1),0,AO,0.1,1),COLORBLUE;

STICKLINE(AO>=REF(AO,1),(AO-AO*0.05),(AO-AO*0.15),5,-1) COLOR0000CC;
 STICKLINE(AO>=REF(AO,1),(AO-AO*0.2),(AO-AO*0.35),5,-1) COLOR0066FF;
 STICKLINE(AO>=REF(AO,1),(AO-AO*0.4),(AO-AO*0.55),5,-1) COLOR0099FF;
 STICKLINE(AO>=REF(AO,1),(AO-AO*0.6),(AO-AO*0.75),5,-1) COLOR00CCFF;
 STICKLINE(AO>=REF(AO,1),(AO-AO*0.8),(AO-AO*0.95),5,-1) COLOR00FFFF;
 STICKLINE(AO<REF(AO,1),(AO-AO*0.05),(AO-AO*0.15),5,-1) COLORFF3300;
 STICKLINE(AO<REF(AO,1),(AO-AO*0.2),(AO-AO*0.35),5,-1) COLORFF6600;
 STICKLINE(AO<REF(AO,1),(AO-AO*0.4),(AO-AO*0.55),5,-1) COLORFF9900;
 STICKLINE(AO<REF(AO,1),(AO-AO*0.6),(AO-AO*0.75),5,-1) COLORFFCC00;
 STICKLINE(AO<REF(AO,1),(AO-AO*0.8),(AO-AO*0.95),5,-1)COLORFFBB00;

A1:=FORCAST(EMA(CLOSE,5),6);
 A2:=FORCAST(EMA(CLOSE,8),6);
 A3:=FORCAST(EMA(CLOSE,11),6);
 A4:=FORCAST(EMA(CLOSE,14),6);
 A5:=FORCAST(EMA(CLOSE,17),6);
 B:=A1+A2+A3+A4-4*A5;
 TOWERC:=EMA(B,2);
 FORCAST(EMA(B,3),6),DOTLINE,COLORGRAY;
 FORCAST(EMA(B,4),6),DOTLINE,COLORGRAY;
 FORCAST(EMA(B,5),6),DOTLINE,COLORGRAY;
 FORCAST(EMA(B,6),6),DOTLINE,COLORGRAY;
 FORCAST(EMA(B,7),6),DOTLINE,COLORGRAY;

 STICKLINE(TOWERC>=REF(TOWERC,1),TOWERC,REF(TOWERC,1),3,0),COLORBLUE;
 STICKLINE(TOWERC<REF(TOWERC,1),TOWERC,REF(TOWERC,1),3,0),COLORGREEN;
 STICKLINE(TOWERC>=REF(TOWERC,1),TOWERC,REF(TOWERC,1),3,0),COLORBLUE;
 STICKLINE(TOWERC>=REF(TOWERC,1),TOWERC,REF(TOWERC,1),3,0),COLORBLUE;
 STICKLINE(TOWERC>=REF(TOWERC,1),TOWERC,REF(TOWERC,1),0,0),COLORBLUE;
 STICKLINE(TOWERC<REF(TOWERC,1),TOWERC,REF(TOWERC,1),3,0),COLORGREEN;
 STICKLINE(TOWERC<REF(TOWERC,1),TOWERC,REF(TOWERC,1),3,0),COLORGREEN;
 STICKLINE(TOWERC<REF(TOWERC,1),TOWERC,REF(TOWERC,1),2,0),COLORGREEN;
 STICKLINE(TOWERC<REF(TOWERC,1),TOWERC,REF(TOWERC,1),0,0),COLORGREEN;

0,COLORWHITE;

GK:STICKLINE(C<MA(C,3),TOWERC,REF(B,1),3,0)COLORGREEN;
 GJ:STICKLINE(C>MA(C,3),TOWERC,REF(B,1),3,0)COLORBLUE;