已阅读5页,还剩1页未读, 继续免费阅读
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
模型地球内部引力图地球模型计算的引力外地核处引力最大,外地核向内或向外均在减小,从地核核心区处逃离地球引力需要能量为W=3.822MgR,由于不均匀分布,势能增加了0.5MgR实际引力为分层球体的引力标准线叠加的结果。如果地球模型不错我们完全可以根据分层密度计算它的内引力图半径R密度12.750.994823.40.8461785.350.54481210.70.26228212.30.19431812.5R/N分层密度12.751.0052070.651.1817841.951.8354965.353.812691.65.1462040.2把密度确定以后,我们再把密度分层,先按最小密度绘制大圆图,再把第二层密度减去第一层后绘图,如此循环,画到地核,再把所有值叠加起来,就是模型引力图了。如果模型不错,那么地球的实际引力就会和所画图一样。当然还必须要用到内部引力公式AUTOcadvba模型程序代码Sub 地球引力模型() Dim ml As Object Dim a As Variant, a1 As Variant, a2 As Variant, a3 As Variant, a4 As Variant Dim v As Variant, v1 As Variant, v2 As Variant, v3 As Variant, v4 As Variant, v5 As Variant Dim U As Variant, U1 As Variant, U2 As Variant, U3 As Variant, U4 As Variant Dim co As Variant co = 3 Dim p(0 To 20001) As Double Dim i As Integer Dim J As Variant a = 1.00520697211556: a1 = 1.18178444724396: a2 = 1.8354955470878: a3 = 3.81269015792163: a4 = 5.14620364557066 b = 0.236363636363636: b1 = 0.709090909090909: b2 = 1.94545454545455: b3 = 0.581818181818182: b4 = 7.27272727272727E-02 For i = 0 To 10000 Step 2 v = i / 1000: v1 = v * a: v2 = v * a1: v3 = v * a2: v4 = v * a3: v5 = v * a4 p(i) = i If v1 1 And v1 a Then U3 = 0 End If If v2 1 And v2 a1 Then U3 = 0 End If If v3 1 And v3 a2 Then U2 = 0 End If If v4 1 And v4 a3 Then U3 = 0 End If If v5 1 And v5 a4 Then U4 = 0 End If If v = 1 Then p(i + 1) = 750 * (1 + v * 2 - (1 - v 2 + (v 4) / 3) / (1 + (1 - v 2) 1.5) + U + U1 + U2 + U3 + U4 Else p(i + 1) = 500 * (1 + b * a -3 + b1 * a1 -3 + b2 * a2 -3 + b3 * a3 -3 + b4 * a4 -3) / v 2 End If Next i Set ml = T
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 山东省德州市禹城市2024-2025学年数学三上期末复习检测模拟试题含解析
- 2024年地球化学元素野外现场快速分析仪项目发展计划
- 山东省济宁市梁山县2024年六上数学期末调研模拟试题含解析
- 山东省聊城市荏平县2024-2025学年六上数学期末联考试题含解析
- 2024年18-萘二甲酰亚胺项目发展计划
- 新生儿真菌感染理论考核试题及答案
- 2024年PVC胶项目发展计划
- 施工单位与其他单位的协调配合方案
- 岗前安全培训试题含完整答案【各地真题】
- 员工三级安全培训试题及答案(网校专用)
- 2024年浙江省公务员考试《行测》真题及答案解析
- 2024年度医院中医胃疼科带教计划课件
- 中医治疗小儿抽动症
- 《维生素课件》课件
- 激励与自我激励培训
- 医患和睦关系培养:提高沟通减少投诉纠纷
- 核能小型模块化反应堆应用
- 供应商开发与选择供应商开发
- 铁路供电系统介绍
- 装修巡查培训课件
- 全渠道销售与营销课件
评论
0/150
提交评论