实验2磁性体磁场正演程序.docx
《实验2磁性体磁场正演程序.docx》由会员分享,可在线阅读,更多相关《实验2磁性体磁场正演程序.docx(24页珍藏版)》请在三一文库上搜索。
1、应用地磁学课程实验报告实验2磁性体磁场正演程序应用地磁学实验报告第16页姓 名:张嘉琪学 号:1010112225指导教师:李淑玲实验地点:实验室319实验日期:2014-05-24实验二:磁性体磁场正演一、实验目的:1、通过球体、水平圆柱体磁场的正演计算,掌握简单规则磁性体正演磁场 的计算方法;2、通过计算认识球体与水平圆柱体磁场的一般分布规律,了解影响磁性体 磁场的主要因素(如磁性体的形体、物性参数、走向或计算剖面的选择等),培 养学生实际动手能力与分析问题的能力。二、实验内容用Matlab语言或C语言编程实现球体和水平圆柱体的磁场(包括Za、Ha、 At)的正演计算。三、实验要求假设地磁
2、场方向与磁性体磁化强度方向一致且均匀磁化的情况下,当地磁场 T=50000nT,磁倾角1=60 ,球体与水平圆柱体中心埋深R=30m,半径r=10m, 磁化率k=0.2 (SI),计算(观测)剖面磁化强度水平投影夹角A =0。时:1、正演计算球体的磁场(Za、Hax、Hay、AT),画出对应的平面等值线 图、曲面图及主剖面异常图;2、正演计算水平圆柱体的磁场(Za、Ha、AT),画出主剖面异常结果图;3、通过改变球体与水平圆柱体的几何参数、磁化强度方向(I)、计算剖面 的方位角(A),观察主剖面磁场Za的变化,分析磁化方向与计算剖面对磁性 体磁场特征的影响。四、实验原理球体与水平圆柱体磁场(Z
3、a、Ha、AT)的计算公式是以磁化强度倾角I、 有效磁化倾角1s和剖面与磁化强度水平投影夹角A,来表达。1、球体磁场的正演公式:HaX = 7(2/ - / Qcos/cosA 4乃(x+y+R-)-3/?Jsin/ + 3x)?cos/sinA(2丁 -X2 -RcosIsinA1 4乃(V + v+R-),-3RysnI + 3 盯 cos/ cos4j (2R- -x1 - y2)sin/7 _ ()ma 77725/2m (x + y +R )- 3/?jcos/cos A- 3/?ycos/sin 4八11199997?927,AT =7tK2R- - ry-)siif / + (2
4、月-) 2-x. 2)*sin(i)-3*D*x. *cos (i)*cos(a). /(4*pi*(x. 2+D. 2).八(5/2); Haxl=(u*m*(2*x. 2-D. 2)*cos(i)*cos(a)-3* D*x. *sin(i). / (4*pi*(x.-2+D八2)八(5/2); Hayl= (u*m* (-x.-2-D. 2) *cos (i) *sin(a). / (4*pi*(x. 2+D. 2). (5/2);Tl=Haxl*cos (i) *cos (a) +Hayl*cos (i) *sin (a) +Zal*sin(i);figure(3), elf, sub
5、plot(221)plot (x, Zal, g,,linewidth, 1. 3);xlabel (X (m), ylabel (理论球体Za异常); subplot(222)plot (x, Haxl,? linewidth, 1. 3);xlabel ( X (m) ), ylabel C 理论球体 Hax 异常); subplot(223)plot (x, Hayl, r,linewidth, 1. 3) ;xlabel ( X (m), ylabel C 理论球体Hay异常); subplot(224)plot (x, Tl,? b,Tinewidth, 1. 3);xlabel C
6、 X (m) ), ylabel (理论球体 A T异常);%绘制异常剖面图figure (4), elf, for i=0:pi/6:pi/2Za2= (u*m* (2*D. 2-x. 2)*sin(i)-3*D*x. *cos (i)*cos(a). /(4*pi*(x 2+D. 2).八(5/2); hold onplot (x, Za2, r,,linewidth, L 3), xlabel ( X(m),), y label C磁力异常(磁倾角改 变),grid on;endh=legend(? Za) ; legend (h,,boxoff);figure(5), elf, for
7、 a=0:pi/6:pi A=pi/3;Za2= (u*m* (2*D 2-x. 2)*sin(i)-3*D*x, *cos (i)*cos(a). /(4*pi*(x. 2+D. 2). (5/2); hold on plot (x, Za2, x- / linewidth, 1 3), xlabel (X(m),ylabel(磁力异常(磁方位改变),grid on;end h=legend(? Za) ; legend (h, boxoff);figure(6), elf, for i=pi/3;a=0;R=10:5:20v=4/3*pi*R3 m=M*v;Za2=(u*m*(2*D. -
8、2-x.八2)*sin(i)-3*D*x *cos (i) *cos (a). / (4*pi* (x. 2+D.八2)八(5/2); hold onplot (x, Za2, x- , linewidth, 1 3), xlabel ( X(m) ), ylabel (磁力异常(球体半径),grid on;endh=legend(? Za) ; legend (h,J boxoff);圆柱体程序代码:clc; clear;% %测点分布范围dx=5; % X方向测点间距 dy=5; % Y方向测点间距 nx=81; % X方向测点数 ny=81; % Y方向测点数 xmin=-200; %
9、X方向起点 ymin=-200; % Y方向起点x=xmin: dx: (xmin+ (nx-1) *dx) ; % X方向范月=ymin:dy: (ymin+(ny-l)*dy) ; % 丫方向范围X, Y=meshgrid(x, y); % 转化为排列 %水平圆柱体参数i=pi/3; %磁化倾角a=0;%剖面磁方位角Is= (tan (tan(i) *sec (a) (-1);R=10; %圆柱体横截面半径S=pi*R2; %圆柱体横截面面积u=4*pi*l(T (-7); %磁导率T=0. 5*10 (-4);%地磁场强度k=0.2;%磁化率M=k*T/u;%磁化强度A/mMs=M*(c
10、os(i)*cos(a) 2+(sin(i) 2);m=Ms*S;%单位长度的有效磁矩D=30; %圆柱体中心点埋深%圆柱体Za理论磁异常Za=(u*m*(D. 2-X. 2)*sin(Is)-2*S)*X. *cos(I s). /(2*pi* (X2+D,八2厂2);%圆柱体Ha理论磁异常Ha= (-u*m*(D. 2-X. 2)*cos(Is) +2*D*X. *sin( Is)./(2*pi*(X. +D-2/2);%圆柱体AT理论异常T=(u*m*sin(i)*(D. 2-X. 2)*cos(2*i-pi)-2* D*X. *sin(2*Is-pi/2). / (sin(Is) *
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 实验 磁性 磁场 程序
