地震子波波形显示及一维地震合成记录答题.docxVIP

地震子波波形显示及一维地震合成记录答题.docx

  1. 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
  2. 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  3. 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  4. 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  5. 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  6. 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  7. 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
地震勘探原理实验一 地震子波波形显示及一维地震合成记录 姓名: 学号:专业:地球物理勘察技术与工程 级 一、实验目的 1. 认识子波,对子波的波形有直观的认识。(名词:零相位子波,混合相位子波,最小相位子波;了解子波的分辨率与频宽的关系;) 2. 利用褶积公式合成一维地震记录。 二、实验步骤 1. 雷克子波 零相位子波 (最小相位子波) n= m1/m2为最大波峰m1和最大波谷m2之比 钟型子波 xw为初相m为时间域主波峰与次波峰之比 w(t)=exp(-2*Fm^2*t^2*ln(n))*sin(T-2*pi*Fm*t) n=m1/m2 最大相位子波 (最大相位子波请同学们自己查找相关文献完成,非必须完成) 其中代表子波的中心频率, t =i*dt,dt为时间采样间隔,i为时间离散点序号; 这里可以为 = 10,25,40,100 Hz等,采样间隔dt=0.002秒,i为0~256; 2. 根据公式编程实现不同频率的零相位子波的波形显示; 不同中心频率的零相位子波图 = 25: = 100: 3. 其地质模型为: 设计反射系数(n=512),n为地层深度,其中,为第一层介质深度;,为第二层介质深度;,为第三层介质深度;,为第四层介质深度;,为第五层介质深度;其它为0。 地震波在介质中传播,当到达介质分界面时,发生反射和透射,反射波被检波器接受,生成地震记录。反射系数表示地震波在两层介质分界面的能量重新分配,如r(100)=1.0,表示地震波入射到分界面时,只有一种波,反射纵波(或反射横波)。反射系数不为1.0时,表示当地震波入射到分界面时,产生两种反射波。反射系数为正,表示反射波相位与入射波相位相差2π;反射系数为负,表示反射波相位与入射波相位相差π,存在半波损失。 4. 应用褶积公式合成一维地震记录,并图形显示; 应用褶积公式求f(n)的程序为: #includestdio.h #includemath.h #define PI 3.1415926 #define FM 100 void main() { double fac(double x[],double y[],double z[],int m,int n); FILE *fp; int i,j,x; double W,dt=0.002,t,a[256]; double b[512]={0}; double r[512]={0}; r[100]=1.0; r[200]=-0.7; r[300]=0.5; r[400]=0.4; r[450]=0.6; fp=fopen(Date.txt,w+); printf(please input x:\n); scanf(%d,x); for(i=0;i256;i++) { t=i*dt; if(x==1) W=exp(-2*FM*FM*t*t*log(2))*sin(2*PI*FM*t); else if (x==2) W=(1-2*pow(PI*FM*t,2))*exp(-pow(PI*FM*t,2)); else if (x==3) W=exp(-FM*FM*t*t*log(2))*cos(2*PI*FM*t+PI/4); a[i]=W; } fac(r,a,b,512,256); for(j=0;j512;k++) { fprintf(fp,%f\n,b[j]); } } double fac(double x[],double y[],double z[],int m,int n) { int i,j; for(i=0;i=m+n-1;i++) { double sum=0.0; for(j=0;j=m;j++) { if(i-j0i-j=256) sum+=x[j]*y[i-j]; } z[i]=sum; } } 三、实验结果 一维反射系数序列图形显示为: 零相位子波与反射系数褶积后的地震记录图形显示: = 25: = 100: 最小相位子波与反射系数褶积后的地震记录图形显示: = 25: = 100: 混合相位子波与反射系数褶积后的地震记录图形显示: = 25: = 100: 最大相位子波与反射系数褶积后的地震

文档评论(0)

希望之星 + 关注
实名认证
文档贡献者

我是一名原创力文库的爱好者!从事自由职业!

1亿VIP精品文档

相关文档