实验2--磁性体磁场正演程序

《应用地磁学》课程实验报告第1页《应用地磁学》实验报告姓名：张嘉琪学号：1010112225指导教师：李淑玲实验地点：实验室319实验日期：2014-05-24《应用地磁学》课程实验报告第2页实验二：磁性体磁场正演一、实验目的：1、通过球体、水平圆柱体磁场的正演计算，掌握简单规则磁性体正演磁场的计算方法；2、通过计算认识球体与水平圆柱体磁场的一般分布规律，了解影响磁性体磁场的主要因素（如磁性体的形体、物性参数、走向或计算剖面的选择等），培养学生实际动手能力与分析问题的能力。二、实验内容用Matlab语言或C语言编程实现球体和水平圆柱体的磁场(包括Za、Ha、Δt)的正演计算。三、实验要求假设地磁场方向与磁性体磁化强度方向一致且均匀磁化的情况下,当地磁场T=50000nT，磁倾角I=60°，球体与水平圆柱体中心埋深R=30m，半径r=10m，磁化率k=0.2（SI），计算（观测）剖面磁化强度水平投影夹角A′=0°时：1、正演计算球体的磁场（Za、Hax、Hay、ΔT），画出对应的平面等值线图、曲面图及主剖面异常图；2、正演计算水平圆柱体的磁场（Za、Ha、ΔT），画出主剖面异常结果图；3、通过改变球体与水平圆柱体的几何参数、磁化强度方向（I）、计算剖面的方位角(A′)，观察主剖面磁场Za的变化，分析磁化方向与计算剖面对磁性体磁场特征的影响。四、实验原理球体与水平圆柱体磁场（Za、Ha、ΔT）的计算公式是以磁化强度倾角I、有效磁化倾角is和剖面与磁化强度水平投影夹角A′来表达。1、球体磁场的正演公式：]sincos3coscos3sin)2()(4]coscos3sin3sincos)2()(4]sincos3sin3coscos)2()(42222/522202222/522202222/52220AIRyAIRxIyxRRyxmZAIxyIRyAIRxyRyxmHAIxyIRxAIRyxRyxmHaayax《应用地磁学》课程实验报告第3页]sin2sin32sincos3cos2sin3sincos)2(coscos)2(sin)2[(42222222222222222/52220AIyRAIxyAIxRAIRxyAIRyxIyxRRyxmT2、水平圆柱体磁场的正演公式：]sin2cos)[()(12]cos2sin)[()(12222220222220sssasssaiRxixRRxmHiRxixRRxmZ902cos2902sinsinsin2222220ssssiRxixRiIRxmT3、有效磁化强度Ms与有效磁化倾角is：)sec()sincos(cos)(112222/122AtgItgMMtgiIAIMMMMxzszxs五、计算程序代码：1、球体matlab代码：clc;clear;%%测点分布范围dx=5;%X方向测点间距dy=5;%Y方向测点间距nx=81;%X方向测点数ny=81;%Y方向测点数xmin=-200;%X方向起点ymin=-200;%Y方向起点x=xmin:dx:(xmin+(nx-1)*dx);%X方向范围y=ymin:dy:(ymin+(ny-1)*dy);%Y方向范围[X,Y]=meshgrid(x,y);%转化为排列%球体参数i=pi/3;%磁化倾角ia=0;%剖面磁方位角R=10;%球体半径mv=4/3*pi*R^3u=4*pi*10^(-7);%磁导率T=0.5*10^(-4);%地磁场强度《应用地磁学》课程实验报告第4页k=0.2;%磁化率M=k*T/u;%磁化强度A/mm=M*v;%磁矩D=30;%球体埋深m%球体Za理论磁异常Za=(u*m*((2*D.^2-X.^2-Y.^2)*sin(i)-3*D*X.*cos(i)*cos(a)-3*D*Y.*cos(i)*sin(a)))./(4*pi*(X.^2+Y.^2+D.^2).^(5/2));%球体Hax理论磁异常Hax=(u*m*((2*X.^2-Y.^2-D.^2)*cos(i)*cos(a)-3*D*X.*sin(i)+3*X.*Y.*cos(i)*sin(a)))./(4*pi*(X.^2+Y.^2+D.^2).^(5/2));%球体Hay理论磁异常Hay=(u*m*((2*Y.^2-X.^2-D.^2)*cos(i)*sin(a)-3*D*Y.*sin(i)+3*X.*Y.*cos(i)*cos(a)))./(4*pi*(X.^2+Y.^2+D.^2).^(5/2));%球体ΔT理论异常T=Hax*cos(i)*cos(a)+Hay*cos(i)*sin(a)+Za*sin(i);%绘平面异常等值线图(二维)figure(1),clf,subplot(221),contourf(X,Y,Hax);xlabel('X(m)'),ylabel('Y(m)'),title('理论球体Hax异常');axisequal,axis([-5050-5050]),colorbar;subplot(222),contourf(X,Y,Hay);xlabel('X(m)'),ylabel('Y(m)'),title('理论球体Hay异常');axisequal,axis([-5050-5050]),colorbar;subplot(223),contourf(X,Y,Za);xlabel('X(m)'),ylabel('Y(m)'),title('理论球体Za异常');axisequal,axis([-5050-5050]),colorbar;subplot(224),contourf(X,Y,T);xlabel('X(m)'),ylabel('Y(m)'),title('理论球体ΔT异常');axisequal,axis([-5050-5050]),colorbar;%绘制曲面图（三维）figure(2),clf,subplot(221),mesh(X,Y,Hax),shadinginterp,xlabel('X(m)'),ylabel('Y(m)'),zlabel('理论球体Hax异常'),colorbar;subplot(222),mesh(X,Y,Hay),shadinginterp,xlabel('X(m)'),ylabel('Y(m)'),zlabel('理论球体Hay异常'),colorbar;subplot(223),mesh(X,Y,Za),shadinginterp,xlabel('X(m)'),ylabel('Y(m)'),zlabel('理论球体Za异常'),colorbar;subplot(224),surf(X,Y,T),shadinginterp,xlabel('X(m)'),ylabel('Y(m)'),zlabel('理论球体ΔT异常'),colorbar;%绘制主剖面异常等值线Za1=(u*m*((2*D.^2-x.^2)*sin(i)-3*D*x.*cos(i)*cos(a)))./(4*pi*(x.^2+D.^2).^(5/2));Hax1=(u*m*((2*x.^2-D.^2)*cos(i)*cos(a)-3*D*x.*sin(i)))./(4*pi*(x.^2+D.^2).^(5/2));《应用地磁学》课程实验报告第5页Hay1=(u*m*((-x.^2-D.^2)*cos(i)*sin(a)))./(4*pi*(x.^2+D.^2).^(5/2));T1=Hax1*cos(i)*cos(a)+Hay1*cos(i)*sin(a)+Za1*sin(i);figure(3),clf,subplot(221)plot(x,Za1,'g-','linewidth',1.3);xlabel('X(m)'),ylabel('理论球体Za异常');subplot(222)plot(x,Hax1,'k-','linewidth',1.3);xlabel('X(m)'),ylabel('理论球体Hax异常');subplot(223)plot(x,Hay1,'r-','linewidth',1.3);xlabel('X(m)'),ylabel('理论球体Hay异常');subplot(224)plot(x,T1,'b-','linewidth',1.3);xlabel('X(m)'),ylabel('理论球体ΔT异常');%绘制异常剖面图figure(4),clf,fori=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));holdonplot(x,Za2,'r-','linewidth',1.3),xlabel('X(m)'),ylabel('磁力异常(磁倾角改变)'),gridon;endh=legend('Za');legend(h,'boxoff');figure(5),clf,fora=0:pi/6:piA=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));holdonplot(x,Za2,'r-','linewidth',1.3),xlabel('X(m)'),ylabel('磁力异常(磁方位改变)'),gridon;endh=legend('Za');legend(h,'boxoff');figure(6),clf,fori=pi/3;a=0;R=10:5:20v=4/3*pi*R^3m=M*v;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));《应用地磁学》课程实验报告第6页holdonplot(x,Za2,'r-','linewidth',1.3),xlabel('X(m)'),ylabel('磁力异常(球体半径)'),gridon;endh=legend('Za');legend(h,'boxoff');圆柱体程序代码：clc;clear;%%测点分布范围dx=5;%X方向测点间距dy=5;%Y方向测点间距nx=81;%X方向测点数ny=81;%Y方向测点数xmin=-200;%X方向起点ymin=-200;%Y方向起点x=xmin:dx:(xmin+(nx-1)*dx);%X方向范围y=ymin:dy:(ymin+(ny-1)*dy);%Y方向范围[X,Y]=meshgrid(x,y);%转化为排列%水平圆柱体参数i=pi/3;%磁化倾角a=0;%剖面磁方位角Is=(tan(tan(i)*sec(a)))^(-1);R=10;%圆柱体横截面半径mS=pi*R^2;%圆柱体横截面面积u=4*pi*10^(-7);%磁导率T=0.5*10^(-4);%地磁场强度k=0.2;%磁化率M=k*T/u;%磁化强度A/mMs=M*((cos(i)*cos(a))^2+(sin(i))^2);m=Ms*S;%单位长度的有效磁矩D=30;%圆柱体中心点埋深m%圆柱体Za理论磁异常Za=(u*m*((D.^2-X.^2)*sin(Is)-2*D*X.*cos(Is)))./(2*pi*(X.^2+D.^2)^2);%圆柱体Ha理论磁异常Ha=(-u*m*((D.^2-X.^2)*cos(Is)+2*D*X.*sin(Is)))./(2*pi*(X.^2+D.^2)^2);%圆柱体ΔT理论异常T=(u*m*sin(i)*((D.^2-X.^2)*cos(2*i-pi)