d3r.m

RBF of high order fundamental solution of 3D Helmholtz operator

% 3D Euclidean distance function for RBF

function D3r=D3r(xr,xs,yr,ys,zr,zs)

D3r=sqrt((xr-xs)^2+(yr-ys)^2+(zr-zs)^2);