N:=0;M:=1;
J1:CLOSE,COLORWHITE;
J2:ZSTJJ,COLORYELLOW;
GPZBGS1:=SUM(CLOSE*vol,240)/SUM(VOL,240);
GPZBGS2:=SUM(CLOSE*VOL,0)/SUM(VOL,0);
GPZBGS3:=SUM(CLOSE*VOL,240)/SUM(VOL,240);
GPZBGS4:=CLOSE>REF(CLOSE,1) AND CLOSE/J2>1+N/1000;
GPZBGS5:=CLOSE<REF(CLOSE,1) AND CLOSE/J2<1-N/1000;
GPZBGS6:=crOSS(SUM(GPZBGS4,0),0.5);
GPZBGS7:=CROSS(SUM(GPZBGS5,0),0.5);
GPZBGS8:=SUM(GPZBGS6,0)*CROSS(COUNT(CLOSE<REF(CLOSE,1),BARSLAST(GPZBGS6)),0.5);
GPZBGS9:=SUM(GPZBGS7,0)*CROSS(COUNT(CLOSE>REF(CLOSE,1),BARSLAST(GPZBGS7)),0.5);
F1:CONST(SUM(IF(GPZBGS8,REF(CLOSE,1),DRAWNULL),0)),DOTLINE,COLORWHITE;
F2:CONST(SUM(IF(GPZBGS9,REF(CLOSE,1),DRAWNULL),0)),DOTLINE,COLORGREEN;
GPZBGS10:=CROSS(SUM(GPZBGS4 AND CLOSE>F1*(1+M/100),0),0.5);
GPZBGS11:=CROSS(SUM(GPZBGS5 AND CLOSE<F2*(1-M/100),0),0.5);
GPZBGS12:=SUM(GPZBGS10,0)*CROSS(COUNT(CLOSE<REF(CLOSE,1),BARSLAST(GPZBGS10)),0.5);
GPZBGS13:=SUM(GPZBGS11,0)*CROSS(COUNT(CLOSE>REF(CLOSE,1),BARSLAST(GPZBGS11)),0.5);
F3:CONST(SUM(IF(GPZBGS12,REF(CLOSE,1),DRAWNULL),0)),COLORWHITE;
F4:CONST(SUM(IF(GPZBGS13,REF(CLOSE,1),DRAWNULL),0)),COLORGREEN;
DRAWICON(GPZBGS8,REF(CLOSE*1.002,1),2);
DRAWICON(GPZBGS12,REF(CLOSE*1.002,1),35);
DRAWICON(GPZBGS9,REF(CLOSE*0.998,1),1);
DRAWICON(GPZBGS13,REF(CLOSE*0.998,1),34);
GPZBGS14:=CLOSE>REF(CLOSE,1) AND CLOSE/J2>1+5/100;
GPZBGS15:=CLOSE<REF(CLOSE,1) AND CLOSE/J2<1-5/100;
GPZBGS16:=CROSS(SUM(GPZBGS14,0),0.5);
GPZBGS17:=CROSS(SUM(GPZBGS15,0),0.5);
GPZBGS18:=SUM(GPZBGS16,0)*CROSS(COUNT(CLOSE<REF(CLOSE,1),BARSLAST(GPZBGS16)),0.5);
GPZBGS19:=SUM(GPZBGS17,0)*CROSS(COUNT(CLOSE>REF(CLOSE,1),BARSLAST(GPZBGS17)),0.5);
GPZBGS20:=CONST(SUM(IF(GPZBGS18,REF(CLOSE,1),DRAWNULL),0));
GPZBGS21:=CONST(SUM(IF(GPZBGS19,REF(CLOSE,1),DRAWNULL),0));
DRAWICON(GPZBGS18,REF(CLOSE*1.002,1),15);
DRAWICON(GPZBGS19,REF(CLOSE*0.998,1),9);
