function [h0,dataParam] = get_uIncidentInfo(mu) % GET_UINCIDENTINFO prepares information needed for an incident wave of the % form uin = exp(-mu*(x - t - t0).^2); % % INPUT: % tFinal: final time % tol: error tolerance for the full problem (to compute starting dt) % gam: pad gam*Nyquist for window function (to compute starting dt) % % OUTPUT: % mu,t0 as indicated above % Nt0: number of initial time steps to resolve incident pulse % h0: minimum step size to resolve incident pulse % dataParam: is struct to hold mu and t0 (for ease of switching between % types of test solutions t0 = -3; % Choose h0 such that the densities are resolved N0 = 30; % number of grid points per standard deviation (sd) bumpWidth = sqrt(log(1/eps)./mu); h0_vec = bumpWidth./N0; h0 = min(h0_vec); dataParam.mu = mu; dataParam.t0 = t0; end