24小时热门版块排行榜     意得辑论文润色8折起(限时特惠)

查看: 1119  |  回复: 9

Ego悄吟

新虫 (初入文坛)

[求助] 基于有限差分的波场模拟,pml边界,震源为单力源已有2人参与

本人最近在做波场模拟的程序设计,在波场分离的时候遇到下图问题,震源附近发生突变,有没有大佬能够指出问题所在?
模型大小500x500x500,vp为3200km/s,vs为vp/1.732,密度为2250kg/m^3,震源位于中心,采用雷克子波,中心频率为50hz。

基于有限差分的波场模拟,pml边界,震源为单力源
水平.jpg


基于有限差分的波场模拟,pml边界,震源为单力源-1
3D.jpg
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

diwushuxue

铁虫 (初入文坛)

【答案】应助回帖

感谢参与,应助指数 +1
网格多大,你这跟波场分离没关系,是你正演没做好。有可能是频散过于严重
2楼2019-04-17 11:39:28
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

Ego悄吟

新虫 (初入文坛)

引用回帖:
2楼: Originally posted by diwushuxue at 2019-04-17 11:39:28
网格多大,你这跟波场分离没关系,是你正演没做好。有可能是频散过于严重

您好,看到您的回帖之后,我回去划细网格了,之前网格大小为10m,计算步长为1.60e-3s,之后网格大小为2.5m,计算步长为0.8e-3s,可是依然出现这个情况。
基于有限差分的波场模拟,pml边界,震源为单力源-2
3D.jpg


基于有限差分的波场模拟,pml边界,震源为单力源-3
水平.jpg

3楼2019-04-18 09:21:33
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

diwushuxue

铁虫 (初入文坛)

引用回帖:
3楼: Originally posted by Ego悄吟 at 2019-04-18 09:21:33
您好,看到您的回帖之后,我回去划细网格了,之前网格大小为10m,计算步长为1.60e-3s,之后网格大小为2.5m,计算步长为0.8e-3s,可是依然出现这个情况。

3D.jpg

水平.jpg
...

还是正演问题,你空间网格10m,时间采样1ms,主频30Hz。再试一下!
4楼2019-04-18 17:34:15
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

Ego悄吟

新虫 (初入文坛)

引用回帖:
4楼: Originally posted by diwushuxue at 2019-04-18 17:34:15
还是正演问题,你空间网格10m,时间采样1ms,主频30Hz。再试一下!...

您好,根据您给的建议,我回去试了试,结果还是出现之前的问题。
基于有限差分的波场模拟,pml边界,震源为单力源-4
3D.jpg


基于有限差分的波场模拟,pml边界,震源为单力源-5
水平.jpg

5楼2019-04-19 09:57:57
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

baobiao007

木虫 (职业作家)

中国特色

明显是正演的递推过程没写对。。
我同意叔本华的观点,人们投身艺术和科学领域的强烈愿望之一就是逃离痛苦、残酷和枯燥无味的现实生活,逃离自己飘忽不定的七情六欲的桎梏。--爱因斯坦
6楼2019-04-19 19:21:44
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

Ego悄吟

新虫 (初入文坛)

引用回帖:
6楼: Originally posted by baobiao007 at 2019-04-19 19:21:44
明显是正演的递推过程没写对。。

您好,您的意思是差分出错了么?我检查了我的程序,貌似并没有问题。

发自小木虫IOS客户端
7楼2019-04-20 08:39:25
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

baobiao007

木虫 (职业作家)

中国特色

【答案】应助回帖

★ ★ ★ ★ ★
感谢参与,应助指数 +1
Ego悄吟: 金币+5, ★★★★★最佳答案 2019-04-21 09:30:08
送你段例子代码吧,直接运行即可


% Finite-differences in time domain(FDTD) acoustic wave propagation in 2D
% medium

close all;
% Output every ... time steps
IT_DISPLAY = 10;

%% MODEL
% Model dimensions
nx = 401;
nz = 401;
dx = 10;    % [m]
dz = 10;    % [m]

% Elastic parameters
vp = 3300.0 * ones(nz, nx);         % velocity of compressional waves, [m/s]

%% TIME STEPPING
t_total = .55;                      % [sec] recording duration
dt = 0.7 * min(dx,dz)/max(vp();   % min grid space / max velocity
nt = round(t_total/dt);             % number of time steps
t = [0:nt]*dt;

CFL = max(vp() * dt / min(dx,dz);
%% SOURCE
f0 = 10.0;                          % dominant frequency of the wavelet
t0 = 1.20 / f0;                     % half Ricker wavelet excitation time
factor = 1e10;                      % amplitude coefficient
angle_force = 90.0;                 % spatial orientation of source
                                    % (not relevant for acoustic case)
jsrc = round(nz/2);                 % source location along OZ
isrc = round(nx/2);                 % source location along OX

a = pi*pi*f0*f0;
dt2 = dt^2;
source_term = factor * exp(-a*(t-t0).^2);                            % Gaussian

force_x = sin(angle_force * pi / 180) * source_term * dt2 / (dx * dz);

min_wavelengh = 0.5*min(vp(vp>330))/f0;     % shortest wavelength bounded by velocity in the air


%% SUMMARY
fprintf('#################################################\n');
fprintf('2D acoustic FDTD wave propagation in isotripic \nmedium in displacement formulation\n');
fprintf('#################################################\n');
fprintf('Model:\n\t%d x %d\tgrid nz x nx\n\t%.1e x %.1e\t[m] dz x dx\n',nz, nx, dz,dx);
fprintf('\t%.1e x %.1e\t[m] model size\n',nx*dx, nz*dz);
fprintf('\t%.1e...%.1e\t[m/s] vp\n', min(vp(), max(vp());
fprintf('Time:\n\t%.1e\t[sec] total\n\t%.1e\tdt\n\t%d\ttime steps\n',t_total,dt,nt);
fprintf('Source:\n\t%.1e\t[Hz] dominant frequency\n\t%.1f\t[sec] index time\n',f0,t0);
fprintf('Other:\n\t%.1f\tCFL number\n', CFL);
fprintf('\t%.2f\t[m] shortest wavelength\n\t%d, %d\t points-per-wavelength OX, OZ\n', min_wavelengh, floor(min_wavelengh/dx), floor(min_wavelengh/dz));
fprintf('#################################################\n');

%% ALLOCATE MEMORY FOR WAVEFIELD
p3 = zeros(nz+2,nx+2);            % Wavefields at t
p2 = zeros(nz+2,nx+2);            % Wavefields at t-1
p1 = zeros(nz+2,nx+2);            % Wavefields at t-2
% Coefficients for derivatives
co_dxx = 1/dx^2;
co_dzz = 1/dz^2;

%% Loop over TIME
tic;
for it = 1:nt
    p3 = zeros(size(p2));
    % Second-order derivatives
    dp_dxx = co_dxx * (p2(2:end-1,1:end-2) - 2*p2(2:end-1,2:end-1) + p2(2:end-1,3:end));
    dp_dzz = co_dzz * (p2(1:end-2,2:end-1) - 2*p2(2:end-1,2:end-1) + p2(3:end,2:end-1));
    % U(t) = 2*U(t-1) - U(t-2) + G dt2/rho;
    p3(2:end-1,2:end-1) = 2.0*p2(2:end-1,2:end-1) - p1(2:end-1,2:end-1) + (vp.^2).*(dp_dxx + dp_dzz).*dt2;
    % Add source term
    p3(jsrc, isrc) = p3(jsrc, isrc) + force_x(it);
    % Exchange data between t-2 (1), t-1 (2) and t (3) and apply ABS
    p1 = p2 .* weights;
    p2 = p3 .* weights;
    % Output
    if mod(it,IT_DISPLAY) == 0
        fprintf('Time step: %d \t %.4f s\n',it, single(t(it)));
        imagesc(p3); colorbar;
        axis equal tight; colormap jet;
        title(['Step = ',num2str(it),'/',num2str(nt),', Time: ',sprintf('%.4f',t(it)),' sec']);
        drawnow;
    end
end
toc; disp('End');
我同意叔本华的观点,人们投身艺术和科学领域的强烈愿望之一就是逃离痛苦、残酷和枯燥无味的现实生活,逃离自己飘忽不定的七情六欲的桎梏。--爱因斯坦
8楼2019-04-20 10:36:59
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

baobiao007

木虫 (职业作家)

中国特色

【答案】应助回帖

表情的地方  是冒号 :
我同意叔本华的观点,人们投身艺术和科学领域的强烈愿望之一就是逃离痛苦、残酷和枯燥无味的现实生活,逃离自己飘忽不定的七情六欲的桎梏。--爱因斯坦
9楼2019-04-20 10:38:46
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

Ego悄吟

新虫 (初入文坛)

引用回帖:
8楼: Originally posted by baobiao007 at 2019-04-20 10:36:59
送你段例子代码吧,直接运行即可


% Finite-differences in time domain(FDTD) acoustic wave propagation in 2D
% medium

close all;
% Output every ... time steps
IT_DISPLAY = 10;

%% MODEL
% M ...

您好,谢谢您的代码,我的模型的问题确实出现在差分上。

发自小木虫IOS客户端
10楼2019-04-21 09:28:27
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 Ego悄吟 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 焦虑 +6 dsun0426 2022-05-16 6/300 2022-05-16 19:25 by xiaqiu
[教师之家] 直接领导说应该这样做,更高领导后来说应该那样做 +5 protrans 2022-05-16 5/250 2022-05-16 17:30 by linli1031
[基金申请] 基金评审提交了 +48 Jimmy爸爸 2022-05-14 57/2850 2022-05-16 16:53 by summer0059
[硕博家园] 焦虑的科研 +9 内阁部长 2022-05-14 10/500 2022-05-16 16:23 by feitianrenwo
[晶体] 请问有人知道哪里可以测试非线性光学性能吗? +4 uiopl123 2022-05-13 5/250 2022-05-16 13:17 by sangzhen01
[找工作] 有机化学博士毕业 +11 zhaojiang427 2022-05-13 29/1450 2022-05-16 12:38 by 嚣张的超超
[基金申请] 今年情况更内卷了 +19 duan0718 2022-05-10 21/1050 2022-05-16 10:57 by louiswdlu
[公派出国] 德国攻博 马上要准备签证了,有点不知所措啊,来交流经验啊 +5 lunl115 2022-05-12 6/300 2022-05-16 10:32 by yin23866
[硕博家园] 记录一些焦虑 +6 Pi?ne?l?lia 2022-05-11 8/400 2022-05-16 08:21 by 卓尔me
[教师之家] 关于安排配偶工作 +22 阿斗的相父 2022-05-10 25/1250 2022-05-15 23:26 by 18301136306
[论文投稿] 想请教一下各位实时影响因子一般准确吗 +3 拉架隆多 2022-05-15 8/400 2022-05-15 23:01 by 拉架隆多
[硕博家园] 等博士毕业,是回山东老家,还是继续留在上海? +24 墨冰公子 2022-05-10 25/1250 2022-05-15 19:49 by 清晨醒来
[考研] 给考研学子的忠告 +3 HiRabit 2022-05-14 3/150 2022-05-15 17:22 by 卫Patricia
[基金申请] 国社科--点击列表看到审核状态显示瞬间显示“省级主管单位不通过”,是没出省吗 +8 ntnrxm 2022-05-14 10/500 2022-05-15 10:43 by zxllsh
[硕博家园] 每天祈祷 二审通过 +3 心士文武 2022-05-14 4/200 2022-05-14 20:21 by 心士文武
[高分子] 不饱和树脂固化问题 +3 金金金迷茫 2022-05-11 7/350 2022-05-14 18:49 by 金金金迷茫
[论文投稿] 投MDPI期刊被编辑拒掉,是不是意味着文章太次了 +19 对不齐呀 2022-05-11 20/1000 2022-05-14 08:21 by 重大粉
[论文投稿] SAGE旗下期刊的版权问题 +3 cosmos55 2022-05-14 5/250 2022-05-14 06:32 by cosmos55
[新药研发] DSC与API晶型问题 35+3 奈尔摩尔 2022-05-10 9/450 2022-05-13 09:35 by dreamman888
[硕博家园] 随感 +3 1314qwe 2022-05-11 3/150 2022-05-12 00:34 by 彭鹏
信息提示
请填处理意见