Wolfram Cloud Document

In[]:=

ClearAll["Global`*"]

In[]:=

freq=30;ω=2Pi/freq;c=340.2626486;k=ω/c;ϵ=0.5;α=Log[2]/2;

In[]:=

t=90;

In[]:=

f[x_,y_]=ϵExp[-α(x^2+y^2)];

In[]:=

DiffG[x_,y_]=

ω

4

1

2

c

HankelH1[0,kSqrt[x^2+y^2]]Exp[-Iωt];

Convolve[f[ξ,η],DiffG[ξ,η],{ξ,η},{x,y}]

Out[]=

TerminatedEvaluation[RecursionLimit]