20xx湖南城市學(xué)院測(cè)量實(shí)習(xí)報(bào)告-wenkub.com
2025-01-12 05:34 本頁(yè)面
【正文】 經(jīng)過(guò)這段承德建龍?zhí)厥怃摴緧徫坏膶?shí)習(xí)讓我明白：只有在實(shí)習(xí)期間盡快調(diào)整好自己的學(xué)習(xí)方式，適應(yīng)社會(huì)，才能被這個(gè)社會(huì)所接納，進(jìn)而生存發(fā)展。10
8
6
6
5
三、實(shí)習(xí)內(nèi)容3
二、實(shí)習(xí)單位（崗位）簡(jiǎn)介3
一、實(shí)習(xí)目的及任務(wù)
三、實(shí)驗(yàn)原理與過(guò)程
：
：
3. 截面差改正計(jì)算公式為
四、程序代碼
Dim M2
Dim N2, N1
Dim M1, H1, H2, B1, B2 ‘其中H1，H2分別為測(cè)站點(diǎn)和照準(zhǔn)點(diǎn)的儀器中心的高度，即：H1=H測(cè)站+儀器高，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)的垂直角和測(cè)站點(diǎn)的天文方位角
Dim y1, Na1 ‘測(cè)站點(diǎn)上的垂線偏差在子午圈以及卯酉圈上的偏量
Dim Am’測(cè)站點(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 Th
范文總結(jié)相關(guān)推薦
鄂ICP備17016276號(hào)-1