Matlab横波纵波演示代码

MATLAB是一种强大的数值计算工具，对于模拟地震中的横波和纵波，可以编写简单的图形化程序。下面是一个简化的示例，展示如何创建一个二维动画来表示横波（S波）和纵波（P波）：

% 导入所需库
import edu.wolfram.mathematica.JLink.*;

% 创建一个空图像
figure;
im = zeros(400, 400); % 可以调整尺寸

% 定义函数来绘制单次波形
function drawWave(x, y, type)
    if strcmpi(type, 'P') % 纵波
        line([x, x+5], [y, y], 'Color', 'red');
    elseif strcmpi(type, 'S') % 横波
        line([x, x+5], [y, y+5], 'Color', 'green');
    end
end

% 动画循环
for t = 0:0.01:4
    % 更新图像
    for i = 1:size(im, 1)
        for j = 1:size(im, 2)
            im(i,j) = drawWave(j, i, 'S'); % 先画横波
            pause(0.01);
            im(i,j) = drawWave(j, i, 'P'); % 再画纵波
        end
    end
    imagesc(im); % 显示图像
    axis equal; % 保持比例
    title(sprintf('Time: %.2f seconds', t));
end

% 结束JLink链接
MathematicaEvaluator.endSession();