实验一:
1. 实验目的:初步了解质子旋进磁力仪的工作原理和方法;初步掌握仪器的使用;了解仪器的使用时的注意事项;
2. 实验要求:对实验场地进行测量,并记录数据导入电脑,做出成果图。
3. 实验步骤:学生分两组,分别进行两条测线的测量,记录并导入电脑,完成实验。
4. 实验数据:
实验剖面1:
实验剖面2:
5.实验小结:在做实验测量数据时,实验员身上不能有带磁性或者可被磁化的金属制品。测量时周围尽量不要聚集人。
实验二:球体磁场特征认识及分析
内容:1.编程实现公式10.2-24的计算。
x=10m,y=10m,R=30m
程序段:
#include"stdio.h"
#include"math.h"
void main()
{float pi=3.14,I,A,b,R=30,t;
int x,y;
FILE *fp,*fp1;
fp=fopen("A.txt","w");
fp1=fopen("B.txt","w");
A=pi/4;
I=pi/4;
b=1; //(b=u0*m)/4*pi
for(x=-100;x<=100;x+=10)
for(y=-100;y<=100;y+=10)
{t=(b/pow(x*x+y*y+R*R,2.5))*((2*R*R-x*x-y*y)*sin(I)*sin(I)+(2*x*x-y*y-R*R)*cos(I)*cos(I)*cos(A)*cos(A)+(2*y*y-x*x-R*R)*cos(I)*cos(I)*sin(A)*sin(A)-3*x*R*sin(2*I)*cos(A)+3*x*y*cos(I)*cos(I)*sin(2*A)-3*y*R*sin(2*I)*sin(A));
fprintf(fp,"%d\t%d\t%f\n",x,y,t);
if(y==0)fprintf(fp1,"%d\t%d\t%f\n",x,y,t);
} fclose(fp);
fclose(fp1);
}
1 I=45º,A=45º
2 I=0º,A=45º
3 A=0,I=0
4 A=45,I=90
地磁学实验报告
学院:地球物理学院
姓名:
学号:
本文来源:https://www.2haoxitong.net/k/doc/00ebc9b7bb4cf7ec4bfed049.html
文档为doc格式