




下载本文档
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
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把密度确定以后,我们再把密度分层,先按最小密度绘
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 Vari
3、ant 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.556: a1 = 1.18178444724396: a2 = 1.8354955470878: a3 = 3.81269015792163: a4 = 5.14620364557066 b = 0.236363636363636: b1 = 0.7
4、909: 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
5、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 = ThisDraw
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 心理健康教育与学生综合素质提升研究
- 教育技术在智慧城市中的应用与发展
- 技术促进教育与培训领域的均衡发展
- 心理资本对学习行为的影响研究
- 从教育大数据看未来人才培养趋势
- 教育信息化的视觉设计与传播效果分析研究报告
- 教育机器人技术的国际合作与交流
- 2025届湖北省鄂州市吴都中学物理高二下期末达标检测试题含解析
- 教育技术在增强全民数字素养中的作用和价值体现
- 中职护理老师课件下载
- Unit4课后文章拓展训练-高中英语人教版(2019)选择性必修第三册
- 重钢澳洲伊斯坦鑫铁矿评估报告
- 《三国的世界》解说词第二集
- 日立品牌推介方案
- DB44-T 1792-2015 自然保护区维管束植物多样性调查与监测技术规范
- 初中体育-武术十步拳教学课件设计
- 湖州市市级机关事业单位编外招聘考试试卷真题及答案2022
- 心内科科室现状调研总结与三年发展规划汇报
- 第三章 科学研究与科学方法论
- 山东黄金归来庄矿业有限公司归来庄金矿矿山地质环境保护与土地复垦方案
- 秘书工作手记(套装共3册)
评论
0/150
提交评论