下载本文档
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
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. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 2022届河北省秦皇岛中学高一物理第二学期期末复习检测试题含解析
- 2022届河北省沧州市普通高中高一物理第二学期期末监测试题含解析
- 人教版数学五年级上册6、三角形的面积 教学设计
- 2022届河北省保定市阜平中学高一物理第二学期期末预测试题含解析
- 2022届贵州省铜仁市第一中学高一物理第二学期期末检测模拟试题含解析
- 2022届广西壮族自治区百色市田东中学物理高一第二学期期末检测试题含解析
- 2022届广西桂林市、贺州市、崇左市高一物理第二学期期末经典试题含解析
- 2024年床头末端装置合作协议书
- 2022届甘肃省临夏州临夏中学高一物理第二学期期末考试试题含解析
- 《语文园地六》(教学设计)2023-2024学年部编版语文五年级下册
- 2016风行菱智m5原厂维修手册及电路图-14
- 最新人教版一年级数学上册《认识图形》课件
- 八大特殊作业(八大危险作业)安全管理知识与规范培训课件
- 胚胎模式形成课件
- 2022年度首批百项亚健康中医调理技术
- 不良地质和特殊地质地段隧道处理技术及案例课件
- 医院感染管理制度汇编2022年新版
- 动物乐园 同步课件 小学数学北师大版一年级上册2021-2022学年
- 人教版四年级数学上册第二单元 公顷和平方千米课件
- 班主任经验交流 主题班会 市一等奖课件
- 初中英语翻译综合训练100题含参考答案
评论
0/150
提交评论