山野莽夫

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

实验三、化向地磁极

2016年2月2日 2817点热度 0人点赞 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来减少垃圾评论。了解我们如何处理您的评论数据。

联系方式

QQ群 | TG群 | 邮箱

最新 热点 随机
最新 热点 随机
Azure Student 微软云 学生订阅 免费12个月用量避坑注意点集合 MP3音频文件格式详细解析 python按固定采样点个数分割wav格式音频 愉快使用谷歌免费人工智能平台colab,训练你的神经网络模型,为你的学术生活添砖加瓦 华为云版轻量应用服务器-云耀云服务器简单体验评测 Cloudflare 免费CDN自定义节点ip之自选cloudflare 高速节点ip工具分享
Vmwre下ubuntu虚拟机允许root账户SSH远程访问 树洞外链开启ssl 基本地震学理论(射线路径绘制) 视速度的解释 探讨一下谷歌云的路线问题 四川电信校园宽带拨号问题
标签聚合
ppt 地震学程序 虚拟机 宝塔面板 模板 wordpress onedrive c语言
最近评论
小菜菜 发布于 6 个月前(11月24日) 这玩意已经废了,成收割工具了,不能再用了。
eamon 发布于 7 个月前(11月07日) 我一年不用了才发现这个休眠管理费每月15,一共扣了我135元,然后我消费还消费不了,我宁愿消费掉也不...
magic 发布于 11 个月前(07月03日) 请问账号不注销会有什么影响吗?
magic 发布于 11 个月前(07月01日) 我想问一下 如果不注销账号就留着会怎么样
qwp6601 发布于 12 个月前(06月04日) 有没有方法改为bing

COPYRIGHT © 2021 shanyemangfu.com. ALL RIGHTS RESERVED.

Theme Kratos Made By Seaton Jiang

蜀ICP备15031791号-2