声波方程高精度波场模拟

声波方程高精度波场模拟需要使用更加精确的数值方法，比如有限元方法或谱方法。以下是一个使用有限元方法模拟声波传播的示例代码：

% 声波方程的参数
c = 343; % 声速（m/s）
f = 1000; % 频率（Hz）
lambda = c/f; % 波长（m）
dx = lambda/20; % 空间步长（m）
dt = dx/c; % 时间步长（s）
r = c*dt/dx; % 数值参数

% 空间网格
x = 0:dx:10*lambda; % 空间范围
t = 0:dt:1/f; % 时间范围

% 有限元网格
[p, e, t] = initmesh('rectangle', 'xmax', x(end), 'ymax', t(end), 'hmax', dx);
np = size(p, 2); % 网格点数
nt = size(t, 2); % 网格单元数

% 节点边界条件
u0 = zeros(np, 1);
u0(p(2,:) == 0) = sin(2*pi*f*t); % 下边界
u0(p(2,:) == t(end)) = 0; % 上边界
u0(p(1,:) == 0) = 0; % 左边界
u0(p(1,:) == x(end)) = 0; % 右边界

% 节点质量矩阵和刚度矩阵
M = mass_matrix_2d(p, t, 'mass', ' lumped'); % 节点质量矩阵
K = stiffness_matrix_2d(p, t); % 刚度矩阵

% 数值解法（显式差分法）
u = zeros(np, length(t)); % 数值解矩阵
u(:, 1) = u0;
for n = 2:length(t)
    u(:, n) = (M + r^2*K)*u(:, n-1) - u(:, n-2);
end

% 可视化
pdeplot(p, e, t, 'xydata', u(:, end), 'zdata', u(:, end), 'colormap', 'jet');
xlabel('x (m)');
ylabel('t (s)');
zlabel('u (m)');

这个代码使用了有限元方法对声波方程进行离散化，得到了一个高精度的数值解。你可以通过调整参数来改变声波的频率、空间范围和时间范围等。注意，在使用有限元方法时，需要调整网格的密度和形状，以获得更精确的结果。