function [t,g]=gabfon2(b);

t=-10:0.1:10;
w=real(exp((-(t./b).^2)/2));
g=real(exp((-(t./b).^2)/2).*(exp(-i.*2.*pi.*(t))));

subplot(211);
plot(t,w,'b');
title('w=(exp((-(t/b)^2)/2))');

subplot(212);
plot(t,g,'b');
title('g=(exp((-(t/b)^2)/2)(exp(-i2(\pi)t)))');

% "Complex and Chaotic Nonlinear Dynamics. 
% Advances in Economics and Finance, 
% Mathematics and Statistics" 
% T.Vialar, Springer 2009.
% Copyright(c).