view rickerWavelet.m @ 1019:f029b97dbc72 feature/advectionRV

Support upwind opSet in Utux2d
author Vidar Stiernström <vidar.stiernstrom@it.uu.se>
date Fri, 14 Dec 2018 18:30:27 +0100
parents 905612b7f3d4
children
line wrap: on
line source

function y = rickerWavelet(x, x0, A)
    y = (1-2*pi^2*A^2*(x-x0).^2).*exp(-pi^2*A^2*(x-x0).^2);
end