请设计个matlab程序可以绘制声波的传播路径

以下是一个简单的 MATLAB 程序，可以绘制声波在不同介质中的传播路径：

% 定义常量
c1 = 340; % 空气中声速
c2 = 1500; % 水中声速

% 定义声源和接收器的位置
source = [0, 0];
receiver = [10, 0];

% 定义介质和其厚度
medium = ["air", "water"];
thickness = [10, 10];

% 计算声波的传播时间和路径
time = zeros(1, length(medium)+1);
distance = zeros(1, length(medium)+1);
for i = 1:length(medium)
    if medium(i) == "air"
        c = c1;
    else
        c = c2;
    end
    
    t = thickness(i) / c;
    time(i+1) = time(i) + t;
    
    d = norm(receiver - source);
    distance(i+1) = distance(i) + d;
    
    source = receiver;
    receiver(2) = receiver(2) + thickness(i);
end

% 绘制声波传播路径
figure;
hold on;
for i = 1:length(medium)+1
    if i == 1
        c = c1;
    else
        c = c2;
    end
    
    t = linspace(0, time(i), 100);
    d = linspace(0, distance(i), 100);
    
    x = source(1) + d .* cos(atan((receiver(2)-source(2))/receiver(1)));
    y = source(2) + d .* sin(atan((receiver(2)-source(2))/receiver(1)));
    
    plot(x, y);
end
xlabel("x");
ylabel("y");
title("声波传播路径图");

程序中，我们首先定义了两种介质（空气和水），以及它们的声速和厚度。然后，我们指定了声源和接收器的位置，通过计算声波在不同介质中的传播时间和路径，最终绘制出声波的传播路径图。

注意，该程序只考虑了声波在水平方向上的传播，忽略了声波在竖直方向上的传播。如果需要更精确的模拟，可以考虑将声波的传播方向分解为水平和竖直两个方向。