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

t=-10:0.1:10;

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

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(-i.*2.*(\pi).*(t-b))))')


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