%Representación de la función gaussiana para distintas anchuras a

close all
clear all

npuntos=1024;
t=0:1/npuntos:1;

a = 1800;
fgauss=exp(-a*(t-0.5).^2/2);
tiempo=t*1000;
subplot(2,2,1);
plot(tiempo,fgauss)
title('a = 1800');

a = 180;
fgauss=exp(-a*(t-0.5).^2/2);
tiempo=t*1000;
subplot(2,2,2);
plot(tiempo,fgauss)
title('a = 180');

a = 18;
fgauss=exp(-a*(t-0.5).^2/2);
tiempo=t*1000;
subplot(2,2,3);
plot(tiempo,fgauss)
title('a = 18');

a = 1.8;
fgauss=exp(-a*(t-0.5).^2/2);
tiempo=t*1000;
subplot(2,2,4);
plot(tiempo,fgauss)
title('a = 1.8');
