




已閱讀5頁,還剩1頁未讀, 繼續(xù)免費閱讀
版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進行舉報或認(rèn)領(lǐng)
文檔簡介
模型地球內(nèi)部引力圖地球模型計算的引力外地核處引力最大,外地核向內(nèi)或向外均在減小,從地核核心區(qū)處逃離地球引力需要能量為W=3.822MgR,由于不均勻分布,勢能增加了0.5MgR實際引力為分層球體的引力標(biāo)準(zhǔn)線疊加的結(jié)果。如果地球模型不錯我們完全可以根據(jù)分層密度計算它的內(nèi)引力圖半徑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把密度確定以后,我們再把密度分層,先按最小密度繪制大圓圖,再把第二層密度減去第一層后繪圖,如此循環(huán),畫到地核,再把所有值疊加起來,就是模型引力圖了。如果模型不錯,那么地球的實際引力就會和所畫圖一樣。當(dāng)然還必須要用到內(nèi)部引力公式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. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 化工工藝工程師(精餾)崗位面試問題及答案
- 廣東省XX市股份制企業(yè)投資合作及稅收優(yōu)惠合同
- 股權(quán)無償轉(zhuǎn)讓協(xié)議書(適用于上市公司)
- 保險代理合同規(guī)范樣本
- 股東間合作協(xié)議書:科技園區(qū)共建與發(fā)展
- 海洋工程股權(quán)融資合同協(xié)議
- 股權(quán)收購與反壟斷審查應(yīng)對協(xié)議
- 童裝品牌授權(quán)與區(qū)域市場開發(fā)合作協(xié)議
- 股權(quán)變更與債務(wù)剝離全面執(zhí)行協(xié)議
- 股東出資協(xié)議書正規(guī)范本:中外合資企業(yè)股權(quán)投入合同
- 四川省南充市2023-2024學(xué)年七年級下學(xué)期期末考試道德與法治試卷(含答案)
- 2025至2030中國汽車散熱器行業(yè)市場發(fā)展分析及商業(yè)模式與投融資發(fā)展報告
- GB/T 45698-2025物業(yè)服務(wù)客戶滿意度測評
- 統(tǒng)編版語文二下園地三+單元復(fù)習(xí)課 課件
- 2025年輕人情緒消費趨勢報告-抖音商城xsocialbeta-202506
- 培訓(xùn)中心項目管理制度
- 承包企業(yè)食堂管理制度
- 智能合約的自適應(yīng)優(yōu)化與動態(tài)執(zhí)行研究-洞察闡釋
- 高中教科研課題:《新課程背景下高中語文情境教學(xué)改革研究》課題工作匯報
- 本土品牌“品牌年輕化”策略研究
- 2025年寧波市奉化區(qū)紅果文體產(chǎn)業(yè)運營管理有限公司招聘筆試參考題庫含答案解析
評論
0/150
提交評論