zzqun.m

基于瑞利波及lamb波的频散曲线程序,可用于根据实验绘制Rali波及lamb波的频散曲线,检验其在不同材料中的频散特性

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