atr:=stkindi('','atr.atr',0,datatype);

if openprofit/multipler>1.5*atr then begin

   sell(1,0,marketr);

   sellshort(1,0,market);

end

if openprofit<0 and abs(openprofit)/multipler>1.5*atr then begin

   sell(1,0,marketr);

   sellshort(1,0,market);

end