function [t,g3,oo]=wav1(b);

clear figure

t=-10:0.001:10;
ta=-10:0.001:10;
a1=1;
b3=-5;

m=(2).*exp((i.*2.*t./(4)).^2);
gt3=(1/(a1)).*(exp((-((ta-b3)/a1).^2)/2).*(exp(i.*(4.5).*((ta-b3)/a1))));
g3=(1/(a1)).*(exp((-((t-b)/(a1)).^2)/2).*(exp(i.*(4.5).*((t-b)./(a1)))));

s=gt3(201:7500);
s1=m(4990:17690);
J=[s s1];
oo=real(g3).*real(J);

f=zeros(20001,1);
subplot(211);
plot(t,real(J),'b',t,real(g3),'r');
axis([-10 7.3 -1.5 2.5]);
title('Signal & wave function');

subplot(212);
plot(t,oo,'b',t,f,'b');
axis([-10 7.3 -2 2]);
title('Product of Curves');


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