once stopper=0
once dir=1
atr=AverageTrueRange[d]
diff=abs(close[d]-close)/d
rauschen=atr-diff
rauschen=atr
upper=close+rauschen*f
lower=close-rauschen*f
if dir=1 and low<stopper then
	dir=-1
	stopper=upper
elsif dir=-1 and high>stopper then
	dir=1
	stopper=lower
elsif dir=1 and lower>0 then
	stopper=max(stopper,lower)
elsif dir=-1 and upper>0 then
	stopper=min(stopper,upper)
else
	
endif

return stopper