UP1:=PBX.PBX1;
UP2:=PBX.PBX2;
UP3:=PBX.PBX3;
UP4:=PBX.PBX4;
UP5:=PBX.PBX5;
UP6:=PBX.PBX6;
MPBX:=(MAX(UP6,MAX(UP5,MAX(UP4,MAX(UP3,MAX(UP2,UP1))))));
DPBX:=(MIN(UP6,MIN(UP5,MIN(UP4,MIN(UP3,MIN(UP2,UP1))))));
DPC:=CROSS(BOLL.LB,L);
PLC:=BARSLAST(DPC);
ZL:=LLV(L,PLC);
XF:=((H-ZL)/ZL)<0.5;
UPC:=CROSS(L,BOLL.LB);
ZLC:=BARSLAST(UPC);
UTKS:=L>REF(H,1) AND C>=O ;
TKTS:=BARSLAST(UTKS);
UTK:=IF(TKTS=0,1,LLV(L,TKTS)>REF(H,TKTS+1));
UTJ1:=EXIST(UTKS,ZLC) AND UTK=1;
{UTJ2:=(C>MPBX) AND (C-REF(C,1))/REF(C,1)>0.095;}
UTJ2:=(C>MPBX) AND (H-REF(C,1))/REF(C,1)>0.095;
ZTJ1:=UTJ1 AND UTJ2;
DTJ1:=EXIST(L<DPBX AND H>MPBX AND C>O,PLC);
{DTJ2:=(C-REF(C,1))/REF(C,1)>0.095 AND C=H;}
DTJ2:=(H-REF(C,1))/REF(C,1)>0.095 {AND C=H};
DTJ3:=UP1>UP6;
ZTJ2:=NOT(UTJ1) AND DTJ1 AND DTJ2 AND DTJ3;
YZB:=C/REF(C,1)>0.09 AND C=H AND C=L;
UDXG:FILTER(NOT(YZB) AND XF AND (ZTJ1 OR ZTJ2),5);
