n1:=todaybar;

dm:=4-INTPART(LOG(C));

jj:ROUNDS(IF(sum(vol,n1)=0,C,sum(C*vol,n1)/sum(vol,n1)),2+dm);

zf:=abs((c-ref(c,todaybar))/ref(c,todaybar));

if todaybar>15 and h=hhv(h,todaybar) and openint=hhv(openint,todaybar) and zf<=0.03 then begin
 sellshort(1,0,market);
 buy(holding=0,1,market);
end

if cross(jj,c) or (c<enterprice*0.99) then sell(1,0,thisclose);
if c>=enterprice*1.01 then sell(1,0,thisclose);
if hhv(h,enterbars+1)>=enterprice*1.03 and c<=enterprice*1.02 then sell(1,0,thisclose);

if todaybar>15 and l=llv(l,todaybar) and openint=hhv(openint,todaybar) and zf<=0.03 then begin
 sell(1,0,market);
 buyshort(holding=0,1,market);
end

if cross(close,jj) or (c>=enterprice*1.01) then sellshort(1,0,thisclose);
if c<=enterprice*0.99 then sellshort(1,0,thisclose);
if llv(l,enterbars+1)<=enterprice*0.97 and c>=enterprice*0.98 then sellshort(1,0,thisclose);

if (time=closetime(1)) or (time=closetime(0)) then begin
 sell(1,0,thisclose);
 sellshort(1,0,thisclose);
end