- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
 - 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
 - 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
 - 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
 - 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
 - 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
 - 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:
最大相位子波与反射系数褶积后的地震
                您可能关注的文档
最近下载
- 《认识立体图形》精品课件.pptx VIP
 - 2023年资料员资格考试题库答案下载.docx
 - 猪场安全生产管理制度.doc VIP
 - 2023年资料员资格考试题库【轻巧夺冠】.docx
 - 建筑十大员之安全员考试试题库及答案(共十套).pdf VIP
 - 儿童暴发性心肌炎诊治专家建议(2025).pptx VIP
 - 2022年土地登记代理人题库700道含答案(巩固).docx
 - (正式版)D-L∕ T 634.5104-2009 远动设备及系统 第5-104部分:传输规约 采用标准传输规约集的IEC 60870-5-101网络访问.docx VIP
 - 2023年最新资料员考试题库附参考答案【精练】.docx
 - 2022—2023 学年高一上学期期中考试英语试卷(新高考)(山东版)笔试部分.docx VIP
 
原创力文档
                        

文档评论(0)