%Function GaussianFilter
%Purpose: Creates a gaussian type filter for use in the EdgeDetect

function [filter] = GaussianFilter

y = [-5000:1:5000];
f = [1:1:10000];
for x = 1:10000
    f(x) = y(x)*exp(-y(x)^2/100000);
end

filter = f(3500:6500)';