20xx湖南城市學(xué)院測量實習(xí)報告-展示頁
2025-01-12 05:34本頁面
【正文】 12
實驗四、橢球面元素歸算至高斯平面18
實驗一
一、實驗名稱
將地面觀測值歸算至橢球面
二、實驗?zāi)康呐c要求
實驗?zāi)康模?br />1. 提高運用計算機語言編程開發(fā)的能力；
2. 加深對將地面觀測值歸算至橢球面計算公式及輔助參數(shù)的理解并掌握計算步驟；
3. 通過編程語言實現(xiàn)將地面觀測值歸算至橢球面。
三、實驗原理與過程
：
：
3. 截面差改正計算公式為
四、程序代碼
Dim M2
Dim N2, N1
Dim M1, H1, H2, B1, B2 ‘其中H1，H2分別為測站點和照準點的儀器中心的高度，即：H1=H測站+儀器高，H2=H照準+棱鏡高
Dim V
Dim e12, e2
Dim c
Dim S
Const PI =
Private Sub Command1_Click()
Dim aa1, aa ‘照準點的垂直角和測站點的天文方位角
Dim y1, Na1 ‘測站點上的垂線偏差在子午圈以及卯酉圈上的偏量
Dim Am’測站點到照準點的大地方位角改正
Dim gu ‘垂線偏差改正
Dim gh ‘標高差改正
Dim gg ‘截面差改正
Dim At ‘橢球面的方位角
Na1 =
y1 =
aa1 = AngleToRadian()
aa = AngleToRadian()
H1 =
H2 =
B1 = AngleToRadian()
B2 = AngleToRadian()
Am = aa Na1 * Sin(B1 + y
范文總結(jié)相關(guān)推薦
鄂ICP備17016276號-1