modelling.m

来自「基于matlab的反演程序,用于地球物理勘探中射线追踪及偏移成像程序.」· M 代码 · 共 2 行

function [tppp, tpps, tpss, tsss]=modelling(h,vp1,vp2,vs1,vs2,offset)

icpp=asin(vp1/vp2);
icps=asin(vp1/vs2);
icss=asin(vs1/vs2);

tppp = (2*h*cos(icpp))./vp1 + offset/vp2;

tpps = (h*cos(icpp))./vp1 + (h*cos(icps))./vs1 + offset/vp2;

tpss = (h*cos(icps))./vp1 + (h*cos(icss))./vs1 + offset/vs2;

tsss = (2*h*cos(icss))./vs1 + offset/vs2;

tdp = offset/vp1;

tds = offset/vs1;