variable:a=8;
if (hhv(asset,enterbars+1)-asset)/asset>=0.1 then a:=0.8*a;
if ref(hhv(asset,enterbars+1),1)=asset then a:=a/0.8;
if (hhv(asset,enterbars+1)-asset)/asset>=0.2 then a:=0.64*a;
if (hhv(asset,enterbars+1)-asset)/asset<=0.1 then a:=a/0.64;