ac:=close;
ao:=ref(close,1);
zrsf:=max(ref(ac,1),ref(ao,1));
zrxf:=min(ref(ac,1),ref(ao,1));
ma5:ma(ac,5),colorwhite;
ar1:stickline(ac>zrsf,ac,zrsf,8,1),colorred;
ar2:stickline(ac<zrsf and ac>zrxf and ref(ac,1)>ref(ac,2),ac,zrsf,8,1),colorred;
ar3:stickline(ac<zrxf and ref(ac,1)>ref(zrxf,1),ao,zrxf,8,1),colorred;
ar5:stickline(ac>ao and ref(ac,1)>ref(zrxf,1),ao,ac,8,1),colorred;
ar6:stickline(ac=ao and ref(ac,1)>ref(zrxf,1),ao,ac,8,1),colorred;
ag1:stickline(ac<zrxf and ref(ac,1)>ref(zrxf,1),ac,zrxf,8,0),colorgreen;
ag2:stickline(ac<zrxf and ref(ac,1)<ref(zrxf,1),ao,ac,8,0),colorgreen;
ag3:stickline(ac>zrsf and ref(ac,1)<ref(zrxf,1),ao,zrsf,8,0),colorgreen;
ar4:stickline(ac>zrsf and ref(ac,1)<ref(zrxf,1),zrsf,ac,8,1),colorred;
ag4:stickline(ac>zrxf and ac<zrsf and ref(ac,1)<ref(zrxf,1),ao,ac,8,0),colorgreen;
ag5:stickline(ac<ao and ref(ac,1)<ref(zrsf,1),ao,ac,8,0),colorgreen;
ag6:stickline(ac=ao and ref(ac,1)<ref(zrsf,1),ao,ac,8,0),colorgreen;