| hanning_window.m | calculate tapering window for slowness and frequency |
| slowness.m | convert wave velocities into squared slowness |
| Rm_matrix.m | calculate the total reflection coefficient matrices between two interfaces |
| RT.m | calculate reflection and transmission coefficient matrices across an interface (called by Rm_matrix.m) |
| free_surface.m | calculate reflection coefficient matrices at the free surface |
| bessels.m | calculate Bessel's functions of the first kind (J0 and J1); this routine runs faster than Matlab's built in Bessel function script (besselj.m). |