function[DisImage]=Displace(fimg,width,deltax,shift)

%Image Displacing Function
%Arguments  Fourier Transformed Matrix, Image Size, Sampling Interval, Amount of Shift

xshift=shift*deltax;	%Shift Amount


sampinterval=1/(width*deltax);
[fx]=meshgrid((-width/2):1:((width/2)-1));
f=sampinterval*[fx];

dispfactor=exp(2*pi*i*f*xshift);		%Exponential Shift Factor

DisImage=dispfactor.*fimg;				%Multiply F Transform by above factor
