瑞雷波在n层介质中传播的频散曲线的程序

附程序：(1)三层介质瑞雷波程序程序思想：1、首先根据凡友华的标量传递算法求出瑞雷波的频散函数，即令x5=0，它是关于波速和频率的非线性方程；2、然后固定频率的数值，使波速从1500到3500取值，给