弹性波全波形反演代码和可执行程序

实现单GPU二维弹性波全波形反演，采用c++和CUDA c编写，VS2013开发。

%%%   draw acquisition  
clear all;
clc;

fid=fopen（‘source.dat‘‘rt‘）;
nsrc=fscanf（fid‘%d‘1）;
a=fscanf（fid‘%f‘[2nsrc]）;

fclose（fid）;

source=a‘;

load receiver.dat;
[nrecn]=size（receiver）;

nx = 501;
nz = 175;
dx = 10;
dz = 10;
fid=fopen（‘..\model\marmousi2_cut_vp.dat‘‘rb‘）;
vp=fread（fid[nznx]‘float32‘）;
fclose（fid）;

figure（‘Name‘‘marmousi2_model_vp‘）;
imagesc（[0:nx-1]*dx[0:nz-1]*dzvp）;
%axis equal;
axis image
hold on;
for i=1:nrec
    plot（receiver（i1）receiver（i2）‘og‘）;
    hold on;
end
for i=1:nsrc
    plot（source（i1）source（i2）‘*r‘）;
    hold on;
end

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件          9  2018-10-16 09:53  FWI源码和可执行程序\FWI可执行文件\cmd_project.txt

     文件     282952  2015-02-18 19:08  FWI源码和可执行程序\FWI可执行文件\cudart32_70.dll

     文件     349000  2015-02-18 19:09  FWI源码和可执行程序\FWI可执行文件\cudart64_70.dll

     文件     548864  2018-10-16 09:50  FWI源码和可执行程序\FWI可执行文件\DENISE_assemble_inversion2.2.exe

     文件    2545034  2014-03-15 17:29  FWI源码和可执行程序\FWI可执行文件\libfftw3-3.dll

     文件     240976  2015-11-25 16:59  FWI源码和可执行程序\FWI可执行文件\libfftw3-3.lib

     文件        621  2017-06-07 07:20  FWI源码和可执行程序\FWI可执行文件\Marmousi2\acqusition\acquisition.m

     文件       6366  2017-06-07 18:03  FWI源码和可执行程序\FWI可执行文件\Marmousi2\acqusition\receiver.dat

     文件        623  2017-06-07 07:20  FWI源码和可执行程序\FWI可执行文件\Marmousi2\acqusition\receiver_position.m

     文件        813  2017-06-07 18:03  FWI源码和可执行程序\FWI可执行文件\Marmousi2\acqusition\source.dat

     文件       6295  2018-10-18 17:11  FWI源码和可执行程序\FWI可执行文件\Marmousi2\DENISEsh_par.inp

     文件       1193  2018-10-18 21:18  FWI源码和可执行程序\FWI可执行文件\Marmousi2\FWI_workflow.inp

     文件        284  2018-10-18 21:27  FWI源码和可执行程序\FWI可执行文件\Marmousi2\gradient\gradient_lamb\draw_gradient.m

     文件        408  2017-05-09 07:51  FWI源码和可执行程序\FWI可执行文件\Marmousi2\gradient\gradient_lamb\seiscolor.mat

     文件        284  2018-10-18 21:27  FWI源码和可执行程序\FWI可执行文件\Marmousi2\gradient\gradient_taper\draw_gradient.m

     文件        408  2017-05-09 07:51  FWI源码和可执行程序\FWI可执行文件\Marmousi2\gradient\gradient_taper\seiscolor.mat

     文件        284  2018-10-18 21:27  FWI源码和可执行程序\FWI可执行文件\Marmousi2\gradient\gradient_v\draw_gradient.m

     文件        408  2017-05-09 07:51  FWI源码和可执行程序\FWI可执行文件\Marmousi2\gradient\gradient_v\seiscolor.mat

     文件        411  2018-10-16 10:15  FWI源码和可执行程序\FWI可执行文件\Marmousi2\Log\forward_modeling_log.txt

     文件        930  2018-10-17 09:43  FWI源码和可执行程序\FWI可执行文件\Marmousi2\model\draw_model.m

     文件     350700  2017-08-22 16:59  FWI源码和可执行程序\FWI可执行文件\Marmousi2\model\marmousi2_cut_init_rho.dat

     文件     350700  2017-08-22 16:59  FWI源码和可执行程序\FWI可执行文件\Marmousi2\model\marmousi2_cut_init_vp.dat

     文件     350700  2017-08-22 16:59  FWI源码和可执行程序\FWI可执行文件\Marmousi2\model\marmousi2_cut_init_vs.dat

     文件     350700  2017-06-05 10:08  FWI源码和可执行程序\FWI可执行文件\Marmousi2\model\marmousi2_cut_rho.dat

     文件     350700  2017-06-05 10:08  FWI源码和可执行程序\FWI可执行文件\Marmousi2\model\marmousi2_cut_vp.dat

     文件     350700  2017-06-05 10:08  FWI源码和可执行程序\FWI可执行文件\Marmousi2\model\marmousi2_cut_vs.dat

     文件       1338  2017-08-22 16:59  FWI源码和可执行程序\FWI可执行文件\Marmousi2\model\model_gauss_smooth.m

     文件       1099  2017-08-22 17:03  FWI源码和可执行程序\FWI可执行文件\Marmousi2\model\model_trans2grd.m

     文件        408  2017-05-09 07:51  FWI源码和可执行程序\FWI可执行文件\Marmousi2\model\seiscolor.mat

     文件        104  2017-08-19 15:04  FWI源码和可执行程序\FWI可执行文件\Marmousi2\model\seis_color.clr

............此处省略210个文件信息