function [y] = profile(fi,bwi)
	x = fi/bwi;
	y = exp(-x*x)/bwi;
end