山野莽夫

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

地震矩张量计算

2016年5月1日 4758点热度 0人点赞 0条评论

C-3. (a)用 C-1的结果编写程序计算地震矩张量

(b) 用该程序计算下列震源机制的地震矩张量

(1) φ = 330°, δ = 65°, λ = 70°

(2) φ = 280°, δ = 60°, λ = 270°

(3) φ = 280°, δ = 60°, λ = 90°

(4) φ = 40°, δ = 80°, λ = 20°

(5) φ = 40°, δ = 80°, λ = 200°

  1. 实验原理

矩张量可以根据滑动矢量和正交矢量求得,公式为

二、程序源代码

1.主函数

a1=input('inputa1');

a2=input('inputa2');

a3=input('inputa3');

[n,d]=dz4111(a1,a2,a3);M0=10E28;

M=M0*[2*n(1)*d(1),n(1)*d(2)+n(2)*d(1),n(1)*d(3)+n(3)*d(1);

n(2)*d(1)+n(1)*d(2),2*n(2)*d(2),n(2)*d(3)+n(3)*d(2);

n(3)*d(1)+n(1)*d(3),n(3)*d(2)+n(2)*d(3),2*n(3)*d(3)];

2.子函数

function [ n,d ] = dz4111(a1,a2,a3)

n=[-sind(a2)*sind(a1);-sind(a2)*cosd(a1);cosd(a2)];

d=[cosd(a3)*cosd(a1)+sind(a3)*cosd(a2)*sind(a1);

-cosd(a3)*sind(a1)+sind(a3)*cosd(a2)*cosd(a1);

sind(a3)*sind(a2)];

三、结果及分析

(1) φ = 330°, δ = 65°, λ = 70°


(2) φ = 280°, δ = 60°, λ = 270°

(3) φ = 280°, δ = 60°, λ = 90°

(4) φ = 40°, δ = 80°, λ = 20°

(5) φ = 40°, δ = 80°, λ = 200°

结果分析:当走向和倾向相同,滑动角相差180度时,两者的矩张量相加等于零。

标签: 地震 地震矩张量 矩张量
最后更新:2016年5月1日

小菜菜

菜鸟

打赏 点赞
< 上一篇
下一篇 >

文章评论

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工具分享
本地web环境架设网站如何配置DNS解析 中国象棋小程序 Vmware 虚拟机测试ubuntu磁盘安装类型 WPJAM Basic插件安装最新版却没有变化的解决方法 申请google voice 方法-纪念我撸到的第一个gv号 64位windows 10 安装Virtual Box开启虚拟机提示不能为虚拟电脑打开新任务的解决方案
标签聚合
wordpress 虚拟机 宝塔面板 c语言 地震学程序 ppt 模板 onedrive
最近评论
小菜菜 发布于 7 个月前(11月24日) 这玩意已经废了,成收割工具了,不能再用了。
eamon 发布于 8 个月前(11月07日) 我一年不用了才发现这个休眠管理费每月15,一共扣了我135元,然后我消费还消费不了,我宁愿消费掉也不...
magic 发布于 12 个月前(07月03日) 请问账号不注销会有什么影响吗?
magic 发布于 12 个月前(07月01日) 我想问一下 如果不注销账号就留着会怎么样
qwp6601 发布于 1 年前(06月04日) 有没有方法改为bing

COPYRIGHT © 2021 shanyemangfu.com. ALL RIGHTS RESERVED.

Theme Kratos Made By Seaton Jiang

蜀ICP备15031791号-2