20xx湖南城市學(xué)院測量實(shí)習(xí)報告-wenkub
2025-01-12 05 本頁面
【正文】 en 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 /
范文總結(jié)相關(guān)推薦
鄂ICP備17016276號-1