资源简介
计算并画出单发双收声息在砂岩层(厚度h= 5m,Vp = 3850m/s)以及上下围岩为泥岩(厚度为10m,Vp = 1800m/s)的时差曲线示意图
代码片段和文件信息
%计算并画出单发双收声息在砂岩层(厚度h= 5m,Vp = 3850m/s)
%以及上下围岩为泥岩(厚度为10m,Vp = 1800m/s)的
%时差曲线示意图
% 函数主体 %
function Time_curve()
h = 0.5:0.01:25;%深度
L = length(h);
delta_t = zeros(L1);%初始化 声波时差
for i = 1:1:L
if h(i) <= 10
delta_t(i) = 1000000/1800;
end
if h(i) > 10 && h(i) < 10.5
delta_t(i) = 2*(10^6)*( (10.5-h(i)) / 1800 + (h(i)-10) / 3850 );
end
if
- 上一篇:最大后验实现图像盲复原
- 下一篇:利用遗传算法优化神经网络相关参数
评论
共有 条评论