20xx湖南城市學院測量實習報告-在線瀏覽
2025-01-12 05:34本頁面
【正文】 1)
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) *
范文總結(jié)相關推薦
鄂ICP備17016276號-1