function?varargout?=seisrectime[1]（varargin）

%z?denotes?shot?number
%x?denotes?time?t??（x1的時間大，看作多次波）
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）;
%反射系數
%r1temp=（v2-v1）/（v2+v1）;
%r2temp=（（v3-v2）/（v3+v2））*（1-r1temp^2）;
r1temp=0.15;
r2temp=0.3;
%時距曲線方程（雙曲線）
x1=abs（sqrt（28.74*z.^2+297.29））;
x2=abs（sqrt（33.13*z.^2+132.89））;
%把時間分配到網格上，與deltx有關
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）/

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件???????1357??2007-03-20?14:27??seisrectime[1].m

-----------?---------??----------?-----??----

?????????????????1357????????????????????1