########################### #Gabor function real part gabor_r = function(x){ exp(-alpha^2*(x-x0)^2)*(cos(2*Pi*beta*(x-x0)+gamma)) } #Gabor function imaginary part gabor_i = function(x){ exp(-alpha^2*(x-x0)^2)*(sin(2*Pi*beta*(x-x0)+gamma)) …