山野莽夫

  • 归档
    • 随笔
    • 建站资源
    • 分享
    • 代码
  • 地球物理学
    • 专业课
    • 概念解释
  • 计算机
  • 互联网
  • 教程
  • 规划
  • 实验室
    • 珍藏的软件
    • 贴吧云签到
    • A1账号自助申请
山野莽夫
小学生的挣扎的点点滴滴
  1. 首页
  2. 地球物理学
  3. 专业课
  4. 地磁学
  5. 正文

实验三、化向地磁极

2016年2月2日 2301点热度 1人点赞 0条评论

 实验三、化向地磁极

一、试验要求

根据给定斜交磁化剖面异常数据,计算其化极磁异常

二、实验课时:2课时

三、实验成果提交:化极磁异常图件

四、化极磁异常公式

1 2 3 4 5 6 7
a i 0.4286 0.1749 0.1103 0.0813 0.0645 0.0536 0.0458

五、化极参数

加权次数

磁倾角(I)

磁偏角(A)

N=5

45

45

六、化极磁场图

七、源代码

#include
"stdafx.h"

#define
_CRT_SECURE_NO_WARNINGS

#include<stdio.h>

#include<stdlib.h>

#include<math.h>

#define
file2
" file .dat"

int main( )

{

    FILE *fp1,*fp2; float s1[200]; float s2[200];

     int i;

    double Z, I=3.14/4, A=3.14/4, ss, H;

    if ((fopen_s(&fp1,"file1", "rb+")) == NULL) {

        printf("Cannot open file strike any key exit!");

    }//非标准C库函数


    for (i = 0; i<200; i++)

    {

        s1[i] = 0;


    }

    for (i = 0; i<176; i++)

    {

        fscanf(fp1, "%f %f\n", &s2[i], &s1[i + 5]);

        s1[i] = s1[i] + 1;

        printf("%f\t%f\n", s2[i], s1[i + 5]);

    }

    fclose(fp1);


    fopen_s(&fp2, file2, "a+");


    for (i = 5; i <= 180; i++)

    {

        ss = 0.4286*(s1[i + 1] - s1[i - 1]) + 0.1749*(s1[i + 2] - s1[i - 2]) + 0.1103*(s1[i + 3] - s1[i - 3]) + 0.0813*(s1[i + 4] - s1[i - 4]) + 0.0645*(s1[i + 5] - s1[i - 5]);

        Z = 1 / (sin(I)*sin(I) + cos(I)*cos(I)*cos(A)*cos(A))*(s1[i] * (sin(I)*sin(I) - cos(I)*cos(I)*cos(A)*cos(A)) - sin(I)*sin(I)*cos(A) / 3.141592653*ss*3.14);//-sin(I)*sin(I)*cos(A)/3.141592653*ss);

        H = 1 / (sin(I)*sin(I) + cos(I)*cos(I)*cos(A)*cos(A))*(s1[i] * sin(I)*sin(I)*cos(A) + (sin(I)*sin(I) - cos(I)*cos(I)*cos(A)*cos(A)) / 3.141592653*ss*3.14);

        fprintf(fp2, "%f\t%f\t%f\n", s2[i - 5], Z, H);

    }//计算并输出

    fclose(fp2);

    return 0;

}

学生实验 心得

这三次试验分别做了三度体球体和二度体水平圆柱体和斜交磁化厚板的磁异常正演和化向地磁极试验。了解并掌握了简单三度体和二度体简单模型的基本正演,并绘制了平面等值线图和主剖面图等正演图件。进一步提高了c语言编程能力,了解了C语言编程在专业课中的应用,了解了基本的正演方法。了解了简单二度三度体正演磁异常图线的基本形状,加深了对理论知识的理解。

学生(签名):

年 月 日

指导

教师

评语

成绩评定:

指导教师(签名):

年 月 日


标签: 化向地磁极 化极 地磁学 地磁学实验报告 地磁学程序 地磁学试验 异常转换 磁异常
最后更新:2016年2月2日

小菜菜

菜鸟

打赏 点赞
< 上一篇

文章评论

razz evil exclaim smile redface biggrin eek confused idea lol mad twisted rolleyes wink cool arrow neutral cry mrgreen drooling persevering
取消回复

此站点使用Akismet来减少垃圾评论。了解我们如何处理您的评论数据。

标签聚合
ppt 地震学程序 onedrive 虚拟机 wordpress c语言 模板 宝塔面板
最新 热点 随机
最新 热点 随机
Azure Student 微软云 学生订阅 免费12个月用量避坑注意点集合 MP3音频文件格式详细解析 python按固定采样点个数分割wav格式音频 愉快使用谷歌免费人工智能平台colab,训练你的神经网络模型,为你的学术生活添砖加瓦 华为云版轻量应用服务器-云耀云服务器简单体验评测 Cloudflare 免费CDN自定义节点ip之自选cloudflare 高速节点ip工具分享
回到家乡-陈宁 LOLHunter - 亨特儿 最好用的英雄联盟免费刷金币脚本 wp备份插件wp-clone(可以用来完美搬家) xshell连接云服务器 出现“所选的用户密钥未在远程主机上注册”的解决办法 woedpress纯代码实现自动翻译成英文文章别名 Vmware 虚拟机测试ubuntu磁盘安装类型

COPYRIGHT © 2021 shanyemangfu.com. ALL RIGHTS RESERVED.

Theme Kratos Made By Seaton Jiang

蜀ICP备15031791号-2