20xx湖南城市學(xué)院測量實(shí)習(xí)報(bào)告(編輯修改稿)
2025-01-12 05:34 本頁面
【文章內(nèi)容簡介】 ：2020年
實(shí)驗(yàn)地點(diǎn)：湖南城市學(xué)院朝陽校區(qū)實(shí)驗(yàn)樓418機(jī)房 指導(dǎo)老師：鄢志輝
目錄
實(shí)驗(yàn)一、將地面觀測值歸算至橢球面2
實(shí)驗(yàn)二、大地主題解算6
實(shí)驗(yàn)三、高斯投影坐標(biāo)正反算12
實(shí)驗(yàn)四、橢球面元素歸算至高斯平面18
實(shí)驗(yàn)一
一、實(shí)驗(yàn)名稱
將地面觀測值歸算至橢球面
二、實(shí)驗(yàn)?zāi)康呐c要求
實(shí)驗(yàn)?zāi)康模?br />1. 提高運(yùn)用計(jì)算機(jī)語言編程開發(fā)的能力；
2. 加深對將地面觀測值歸算至橢球面計(jì)算公式及輔助參數(shù)的理解并掌握計(jì)算步驟；
3. 通過編程語言實(shí)現(xiàn)將地面觀測值歸算至橢球面。
實(shí)驗(yàn)要求：
1. 提交報(bào)告，實(shí)驗(yàn)總結(jié)，編寫代碼；
2. 獨(dú)立編程，調(diào)試運(yùn)行；
3. 上交成果：編寫思想，編寫過程，問題分析，源代碼，計(jì)算結(jié)果。
三、實(shí)驗(yàn)原理與過程
：
：
3. 截面差改正計(jì)算公式為
四、程序代碼
Dim M2
Dim N2, N1
Dim M1, H1, H2, B1, B2 ‘其中H1，H2分別為測站點(diǎn)和照準(zhǔn)點(diǎn)的儀器中心的高度，即：H1=H測站+儀器高，H2=H照準(zhǔn)+棱鏡高
Dim V
Dim e12, e2
Dim c
Dim S
Const PI =
Private Sub Command1_Click()
Dim aa1, aa ‘照準(zhǔn)點(diǎn)的垂直角和測站點(diǎn)的天文方位角
Dim y1, Na1 ‘測站點(diǎn)上的垂線偏差在子午圈以及卯酉圈上的偏量
Dim Am’測站點(diǎn)到照準(zhǔn)點(diǎn)的大地方位角改正
Dim gu ‘垂線偏差改正
Dim gh ‘標(biāo)高差改正
Dim gg ‘截面差改正
Dim At ‘橢球面的方位角
Na1 =
y1 =
aa1 = AngleToRadian()
aa = AngleToRadian()
H1 =
H2 =
B1 = AngleToRadian()
B2 = AngleToRadian()
Am = aa Na1 * Sin(B1 + y1)
gu = 0 (y1 * Sin(Am) Na1 * Cos(Am)) * Tan(aa1)
If gh = PI Then gu = gu PI
V1 = Sqr(1 + e12 * Cos(B1) * Cos(B1))
M2 = c / V1 / V1 / V1
gh = e2 / 2 / M2 * Cos(B2) * Cos(B2) * Sin(2 * Am)
If gh = PI Then gh = gh PI
N1 = c / V1
gg = 0 (e2 / 12 * S * S / (N1 * N1) * Cos(B1) * Cos(B1) * Sin(2 * Am)) If gh = PI Then gg = gg PI
At = Am + gu + gh + gg
= RadianToAngle(At)
End Sub
Private Sub Command2_Click()
Dim R1, D
aa1 = AngleToRadian()
aa = AngleToRadian()
H1 =
H2 =
B1 = AngleToRadian()
B2 = AngleToRadian()
D =
Am = aa N1 * Sin(B1 + y1)
V1 = Sqr(1 + e12 * Cos(B1) * Cos(B1))
N1 = c / V1
R1 = N1 / (1 + e12 * Cos(B1) * Cos(B1) * Cos(Am) * Cos(Am))
S = D * ((1 (H2 H1) / D) / ((1 + H1 / R1) * (1 + H2 / R1))) + (D *
范文總結(jié)相關(guān)推薦
鄂ICP備17016276號(hào)-1