📄 高斯平~1.frm
字号:
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3840
TabIndex = 19
Top = 1080
Width = 495
End
Begin VB.Label Label10
BackColor = &H00808000&
Caption = "度"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2520
TabIndex = 18
Top = 1080
Width = 495
End
Begin VB.Label Label9
BackColor = &H00808000&
Caption = "输入A1："
BeginProperty Font
Name = "隶书"
Size = 18
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
TabIndex = 14
Top = 1080
Width = 1455
End
Begin VB.Label Label8
BackColor = &H00808000&
Caption = "秒"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5760
TabIndex = 13
Top = 600
Width = 615
End
Begin VB.Label Label7
BackColor = &H00808000&
Caption = "分"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3840
TabIndex = 12
Top = 600
Width = 495
End
Begin VB.Label Label6
BackColor = &H00808000&
Caption = "度"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2520
TabIndex = 11
Top = 600
Width = 495
End
Begin VB.Label Label5
BackColor = &H00808000&
Caption = "输入L1："
BeginProperty Font
Name = "隶书"
Size = 18
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
TabIndex = 7
Top = 600
Width = 1455
End
Begin VB.Label Label4
BackColor = &H00808000&
Caption = "秒"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5760
TabIndex = 6
Top = 120
Width = 615
End
Begin VB.Label Label3
BackColor = &H00808000&
Caption = "分"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3840
TabIndex = 5
Top = 120
Width = 495
End
Begin VB.Label Label2
BackColor = &H00808000&
Caption = "度"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2520
TabIndex = 4
Top = 120
Width = 495
End
Begin VB.Label Label1
BackColor = &H00808000&
Caption = "输入B1："
BeginProperty Font
Name = "隶书"
Size = 18
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
TabIndex = 0
Top = 120
Width = 1455
End
End
Attribute VB_Name = "高斯平均引数公式解算大地主题正反算问题电算器"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim B1 As Double, L1#, A1#, S#, B2#, L2#, A21#, SB#, SL#, SA#, BM#, AM#, XB#, XL#, XA#, A#, B#, C#, E2#, E12#, TM2#, NM2#, VM#, XC#, K1#, K2#, K3#, K4#, K5#, K6#, K7#, XC1#, K8#
A = 6378245
B = 6356863.01877305
C = 6399698.90178271
E2 = 0.006693421622966
E12 = 0.006738525414683
XC = 0.0000000004848
XC1 = 0.000000004848
S = Text10.Text
B1 = (Text1.Text + Text2.Text / 60 + Text3.Text / 3600) * 3600 / 206265
L1 = (Text4.Text + Text5.Text / 60 + Text6.Text / 3600) * 3600 / 206265
A1 = (Text7.Text + Text8.Text / 60 + Text9.Text / 3600) * 3600 / 206265
SB = ((Sqr(1 + E12 * ((Cos(B1)) ^ 2))) ^ 3) / (A ^ 2) * B * S * Cos(A1)
SL = Sqr(1 + E12 * ((Cos(B1)) ^ 2)) * S * Sin(A1) / Cos(B1) / (A ^ 2) * B
SA = SL * Sin(B1)
Do Until (Abs(XB - SB) < XC And Abs(XL - SL) < XC And Abs(XA - SA) < XC1)
BM = B1 + SB / 2
AM = A1 + SA / 2
VM = Sqr(1 + E12 * ((Cos(BM)) ^ 2))
TM2 = (Tan(BM)) ^ 2
NM2 = (E12 ^ 2) * ((Cos(BM)) ^ 2)
K1 = B * (VM ^ 3) / (A ^ 2) * S * Cos(AM)
K2 = S ^ 2 / 24 / (A ^ 4) * (B ^ 2) * (VM ^ 2)
K3 = (Sin(AM)) ^ 2 * (2 + 3 * TM2 + 2 * NM2)
K4 = 3 * NM2 * ((Cos(AM)) ^ 2) * (-1 + TM2 - NM2 - 4 * TM2 * NM2)
K5 = B * VM / (A ^ 2) * S
K6 = (Cos(AM)) ^ 2 * (2 + 7 * NM2 + 9 * TM2 * NM2 + 5 * (NM2 ^ 2))
K7 = (Sin(AM)) ^ 2 * (2 + TM2 + 2 * NM2)
XB = K1 * (1 + K2 * (K3 + K4))
XL = K5 / (Cos(BM)) * Sin(AM) * (1 + K2 * ((Sin(AM)) ^ 2 * TM2 - (Cos(AM)) ^ 2 * (1 + NM2 - 9 * TM2 * NM2)))
XA = K5 * Sin(AM) * Tan(BM) * (1 + K2 * (K6 + K7))
SB = XB
SL = XL
SA = XA
BM = B1 + SB / 2
AM = A1 + SA / 2
Loop
B2 = B1 + XB
L2 = L1 + XL
A21 = A1 + XA
Text13.Text = Int(B2 * 206265 / 3600)
Text14.Text = Int((B2 * 206265 / 3600 - Int(B2 * 206265 / 3600)) * 60)
Text15.Text = ((B2 * 206265 / 3600 - Int(B2 * 206265 / 3600)) * 60 - Int((B2 * 206265 / 3600 - Int(B2 * 206265 / 3600)) * 60)) * 60
Text16.Text = Int(L2 * 206265 / 3600)
Text17.Text = Int((L2 * 206265 / 3600 - Int(L2 * 206265 / 3600)) * 60)
Text18.Text = ((L2 * 206265 / 3600 - Int(L2 * 206265 / 3600)) * 60 - Int((L2 * 206265 / 3600 - Int(L2 * 206265 / 3600)) * 60)) * 60
K8 = Int(A21 * 206264.8062 / 3600)
Text20.Text = Int((A21 * 206265 / 3600 - Int(A21 * 206265 / 3600)) * 60)
Text21.Text = ((A21 * 206265 / 3600 - Int(A21 * 206265 / 3600)) * 60 - Int((A21 * 206265 / 3600 - Int(A21 * 206265 / 3600)) * 60)) * 60
If K8 < 180 Then K8 = K8 + 180
Text19.Text = K8
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text13.Text = ""
Text14.Text = ""
Text15.Text = ""
Text16.Text = ""
Text17.Text = ""
Text18.Text = ""
Text19.Text = ""
Text20.Text = ""
Text21.Text = ""
End Sub
Private Sub Command3_Click()
Text22.Text = ""
Text23.Text = ""
Text24.Text = ""
Text25.Text = ""
Text26.Text = ""
Text27.Text = ""
Text42.Text = ""
Text28.Text = ""
Text29.Text = ""
Text30.Text = ""
Text31.Text = ""
Text32.Text = ""
Text33.Text = ""
Text34.Text = ""
Text37.Text = ""
Text38.Text = ""
Text39.Text = ""
Text40.Text = ""
Text41.Text = ""
End Sub
Private Sub Command4_Click()
Dim B1 As Double, L1#, A12#, S#, B2#, L2#, A21#, BM#, TM#, C#, NM#, E12#, NM2#, VM2#, R01#, R21#, R03#, S10#, S12#, S30#, TM2#, U#, V#, SB#, SL#, SAM#, T01#, T21#, T03#, AM#, C1#, T#
C = 6399593.6258
E12 = 0.00673949674227
B1 = (Text22.Text + Text23.Text / 60 + Text24.Text / 3600) * 3600 / 206265
L1 = (Text25.Text + Text26.Text / 60 + Text27.Text / 3600) * 3600 / 206265
B2 = (Text28.Text + Text29.Text / 60 + Text30.Text / 3600) * 3600 / 206265
L2 = (Text31.Text + Text32.Text / 60 + Text33.Text / 3600) * 3600 / 206265
BM = (B1 + B2) / 2
TM = Tan(BM)
TM2 = TM ^ 2
NM = C / Sqr((1 + E12 * (Cos(BM)) ^ 2))
NM2 = E12 * (Cos(BM)) ^ 2
VM2 = (C / NM) ^ 2
SB = B2 - B1
SL = L2 - L1
R01 = NM * Cos(BM)
R21 = NM * Cos(BM) * (1 - NM2 - 9 * NM2 * TM2) / 24
R03 = NM * (Cos(BM)) ^ 3 * TM2 / 24
S10 = NM / VM2
S12 = NM / 24 * (Cos(BM)) ^ 2 * (-2 - 3 * TM2 + 3 * TM2 * NM2)
S30 = NM / 8 * (NM2 - TM2 * NM2)
T01 = TM * Cos(BM)
T21 = Cos(BM) * TM * (3 + 2 * NM2 - 2 * NM2 ^ 2) / 24
T03 = (Cos(BM)) ^ 3 * TM * (1 + NM2) / 12
U = R01 * SL + R21 * SB ^ 2 * SL + R03 * SL ^ 3
V = S10 * SB + S12 * SB * SL ^ 2 + S30 * SB ^ 3
SAM = T01 * SL + T21 * SB ^ 2 * SL + T03 * SL ^ 3
C1 = Abs(V / U)
If Abs(SB) >= Abs(SL) Then T = Atn(Abs(U / V)) Else T = 3.1415926 / 4 + Atn(Abs((1 - C1) / (1 + C1)))
If SB > 0 And SL >= 0 Then
AM = T
ElseIf SB < 0 And SL >= 0 Then
AM = 3.1415926 - T
ElseIf SB <= 0 And SL < 0 Then
AM = 3.1415926 + T
ElseIf SB > 0 And SL < 0 Then
AM = 2 * 3.1415926 - T
ElseIf SB = 0 And SL > 0 Then
AM = 3.1415926 / 2
End If
S = (U / Sin(AM) + V / Cos(AM)) / 2
A12 = AM - SAM / 2
A21 = AM + SAM / 2
Text34.Text = S
Text37.Text = Int(A12 * 206265 / 3600)
Text38.Text = Int((A12 * 206265 / 3600 - Int(A12 * 206265 / 3600)) * 60)
Text39.Text = ((A12 * 206265 / 3600 - Int(A12 * 206265 / 3600)) * 60 - Int((A12 * 206265 / 3600 - Int(A12 * 206265 / 3600)) * 60)) * 60
K8 = Int(A21 * 206265 / 3600)
Text41.Text = Int((A21 * 206265 / 3600 - Int(A21 * 206265 / 3600)) * 60)
Text42.Text = ((A21 * 206265 / 3600 - Int(A21 * 206265 / 3600)) * 60 - Int((A21 * 206265 / 3600 - Int(A21 * 206265 / 3600)) * 60)) * 60
If K8 < 180 Then K8 = K8 + 180
Text40.Text = K8
End Sub
Private Sub Command5_Click()
End
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -