spectral-ratio

地震勘探 谱比法Q值估计（谱比法）谱比法Q值估计是地震勘探的常用方法

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%%%　　　对VSP地震资料进行模拟，并利用谱比法进行Q值估计　%%%%%%%%%%%%%%%%%%%%%

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
clear all
close all
%%  参数设置  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Fs=1000;    %%%采样频率
Ts=1/Fs;
t=（0:999）*Ts;
Lt=length（t）;
vp（1）=1500;  %%%%%%%%% 速度
vp（2）=2000;
vp（3）=2500; 
vp（4）=3000; 
h（1）=300;   %%%%%%%%% 深度
h（2）=700; 
h（3）=1200; 
Q（1）=40;    %%%%%%%%% 品质因子
Q（2）=70;
Q（3）=100;
Q（4）=50;
Dx=20;       %%%%%%%%% 道间距
w0=100*pi;  
size=Lt;
a（1）=h（1）/Dx;
a（2）=h（2）/Dx;
a（3）=h（3）/Dx;
Ds=80;       %%%%%%%总道数
%% 求各道的到时  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
for j=1:1:Ds
    if j<=a（1）
       T（j）=j*Dx/vp（1）;
    elseif j>a

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     文件        2832  2012-03-07 21:51  谱比法\pubifa.m
     文件        2846  2011-07-01 09:35  谱比法\wigb.m
     目录           0  2014-05-25 08:09  谱比法\