20xx湖南城市學(xué)院測量實習(xí)報告-文庫吧在線文庫
【正文】 im e12, e2
Dim c
Dim S
Const PI =
Private Sub Command1_Click()
Dim aa1, aa ‘照準(zhǔn)點的垂直角和測站點的天文方位角
Dim y1, Na1 ‘測站點上的垂線偏差在子午圈以及卯酉圈上的偏量
Dim Am’測站點到照準(zhǔ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)) I
范文總結(jié)相關(guān)推薦
鄂ICP備17016276號-1