zzqun.m

来自「基于瑞利波及lamb波的频散曲线程序,可用于根据实验绘制Rali波及lamb波的」· M 代码 · 共 6 行

cp=TAA00;
for i=1:1:18   
    cg(i)=cp(i,2)^2/(cp(i,2)-cp(i,1)*(cp(i+1,2)-cp(i,2))/(cp(i+1,1)-cp(i,1)));
    xx(i)=cp(i,1);
end
plot(xx,cg);hold on;grid on