AC:=CLOSE;
AO:=REF(CLOSE,1);
ZRSF:=MAX(REF(AC,1),REF(AO,1));
ZRXF:=MIN(REF(AC,1),REF(AO,1));
AR1:STICKLINE(AC>ZRSF,AC,ZRSF,3,1),COLORRED;
AR2:STICKLINE(AC<ZRSF AND AC>ZRXF AND REF(AC,1)>REF(AC,2),AC,ZRSF,3,1),COLORRED;
AR3:STICKLINE(AC<ZRXF AND REF(AC,1)>REF(ZRXF,1),AO,ZRXF,3,1),COLORRED;
AR5:STICKLINE(AC>AO AND REF(AC,1)>REF(ZRXF,1),AO,AC,3,1),COLORRED;
AR6:STICKLINE(AC=AO AND REF(AC,1)>REF(ZRXF,1),AO,AC,3,1),COLORRED;
AG1:STICKLINE(AC<ZRXF AND REF(AC,1)>REF(ZRXF,1),AC,ZRXF,3,0),COLORGREEN;
AG2:STICKLINE(AC<ZRXF AND REF(AC,1)<REF(ZRXF,1),AO,AC,3,0),COLORGREEN;
AG3:STICKLINE(AC>ZRSF AND REF(AC,1)<REF(ZRXF,1),AO,ZRSF,3,0),COLORGREEN;
AR4:STICKLINE(AC>ZRSF AND REF(AC,1)<REF(ZRXF,1),ZRSF,AC,3,1),COLORRED;
AG4:STICKLINE(AC>ZRXF AND AC<ZRSF AND REF(AC,1)<REF(ZRXF,1),AO,AC,3,0),COLORGREEN;
AG5:STICKLINE(AC<AO AND REF(AC,1)<REF(ZRSF,1),AO,AC,3,0),COLORGREEN;
AG6:STICKLINE(AC=AO AND REF(AC,1)<REF(ZRSF,1),AO,AC,3,0),COLORGREEN;
