ex3.m

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

syms x;
q=0.6;m=0.5;p0=sqrt(m^(-2)-1);
y1=q*m*sqrt((p0/x)^2-1);
ezplot(y1,[0,10]);
grid on;
hold on;
kh=20;
y2=tan(kh*x);
ezplot(y2,[0,10]);
zoom on
pause;
[xx,yy]=ginput(3);
c1=sqrt(xx(1)^2+1)
c2=sqrt(xx(2)^2+1)
c3=sqrt(xx(3)^2+1)