-
大小: 1KB文件類型: .rar金幣: 1下載: 0 次發(fā)布日期: 2021-02-12
- 語(yǔ)言: Matlab
- 標(biāo)簽: 地震??模型??geophysical??正演??seisrectime??地震模型??
資源簡(jiǎn)介
地震模型正演程序,特別適合物探專業(yè)學(xué)生學(xué)習(xí)。
代碼片段和文件信息
function?varargout?=seisrectime[1](varargin)
%z?denotes?shot?number
%x?denotes?time?t??(x1的時(shí)間大,看作多次波)
z=-3:0.025:3;
deltx=0.1;
x=0:deltx:30;
v1=1;
v2=1.4;
v3=1.8;
m=length(x);
n=length(z);
%反射系數(shù)
%r1temp=(v2-v1)/(v2+v1);
%r2temp=((v3-v2)/(v3+v2))*(1-r1temp^2);
r1temp=0.15;
r2temp=0.3;
%時(shí)距曲線方程(雙曲線)
x1=abs(sqrt(28.74*z.^2+297.29));
x2=abs(sqrt(33.13*z.^2+132.89));
%把時(shí)間分配到網(wǎng)格上,與deltx有關(guān)
for?i=1:n
????if?(x1(i)/deltx-fix(x1(i)/deltx))>=0.5
????????x1(i)=fix(x1(i)/deltx)*deltx+deltx;
????else?x1(i)=fix(x1(i)/deltx)*deltx;
????end
end
for?i=1:n
????if?(x2(i)/deltx-fix(x2(i)/deltx))>=0.5
????????x2(i)=fix(x2(i)/
?屬性????????????大小?????日期????時(shí)間???名稱
-----------?---------??----------?-----??----
?????文件???????1357??2007-03-20?14:27??seisrectime[1].m
-----------?---------??----------?-----??----
?????????????????1357????????????????????1
評(píng)論
共有 條評(píng)論