Bácsatyai László: Magyarországi vetületek - NymE GEO portál

200
2.2.1.-1.
________________________________
Private Sub Gomb_Henger()
Dim Fi As Double, Lambda As Double, H As Double
Dim Y As Double, X As Double, Fi_G_K As Double
Fi_G_K = Val(Fok(Val(Text1.Text)))
Fi = Val(Fok(Val(Text2.Text)))
Lambda = Val(Fok(Val(Text3.Text)))
------
Cos_Fi_G_K = Cos(Radian(Fi_G_K))
Sin_Fi_G_K = Sin(Radian(Fi_G_K))
CosFi = Cos(Radian(Fi))
SinFi = Sin(Radian(Fi))
SinLambda = Sin(Radian(Lambda))
CosLambda = Cos(Radian(Lambda))
SinFi_Vesszo = SinFi * Cos_Fi_G_K - CosFi * CosLambda * Sin_Fi_G_K
CosFi_Vesszo = Sqr(1 - SinFi_Vesszo ^ 2)
Hanyados = CosFi * SinLambda / CosFi_Vesszo
Lambda_Vesszo = ArcSin(Hanyados)
Y = - R * Lambda_Vesszo
------
Fi_Vesszo = ArcSin(SinFi_Vesszo)
X = - R * Log(Tan((Fi_Vesszo) / 2 + Pi / 4))
------
End Sub
________________________________
Private Function Fok(Szog As Double) As String
Dim Elojel As Integer, Perc As Double, Mp As Double
Elojel = Sgn(Szog)
Perc = Int(100 * (Abs(Szog) - Int(Abs(Szog))))
Mp = 10000 * (Abs(Szog) - Int(Abs(Szog)) - 0.01 * Perc)
Szog = Int(Abs(Szog)) + Perc / 60 + Mp / 3600
Fok = Format$(Elojel * Abs(Szog), "0.0000000000")
End Function
________________________________
Private Function ArcSin(Sin_Szog As Double) As Double
Dim Cos_Szog As Double, Sin_Szog As double
Cos_Szog = Sqr(1 - Sin_Szog ^ 2)
ArcSin = Atn(Sin_Szog / Cos_Szog)
End Function
________________________________
2.2.2.-1.
________________________________
Private Function Lambda_Vesszo(Y As Double) As Double
Lambda_Vesszo = - Y / R
End Function
________________________________
Private Function Fi_Vesszo(X As Double) As Double