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

201
Fi_Vesszo = -2 * Atn(Exp(X / R)) - Pi / 2)
End Function
________________________________
Private Function Fi_Henger(Y As Double, X As Double) As Double
Static CosFi As Double, SinFi As Double, Fi_G_K As Double
Static SinFi_V As Double, CosFi_V As Double, CosLambda_V As Double
CosFi = Cos(Radian(Fi_G_K))
SinFi = Sin(Radian(Fi_G_K))
SinFi_V = Sin(Fi_Vesszo(X))
CosFi_V = Cos(Fi_Vesszo(X))
CosLambda_V = Cos(Lambda_Vesszo(Y))
SinFi = SinFi_V * CosFi + CosFi_V * CosLambda_V * SinFi
Fi_Henger = Rofok * ArcSin(SinFi)
End Function
________________________________
Private Function Lambda_Henger(Y As Double, X As Double) As Double
Static CosFi As Double, CosFi_V As Double
Static SinLambda As Double, SinLambda_V As Double
CosFi_V = Cos(Fi_Vesszo(X))
SinLambda_V = Sin(Lambda_Vesszo(Y))
CosFi = Cos(Radian(Fi_Henger(Y, X)))
SinLambda = (CosFi_V * SinLambda_V) / CosFi
Lambda_Henger = Rofok * ArcSin(SinLambda)
End Function
________________________________
2.2.3.2.-1.
________________________________
Private Sub Command2_Click()
Rem *** Második irányredukció számítása ***
romperc = 206264.8
R = 6378512.966
X1 = Val(Text1.Text)
Y1 = Val(Text2.Text)
X2 = Val(Text3.Text)
Y2 = Val(Text4.Text)
XK = (X1 + X2) / 2
Delta12 = (XK * (Y2 - Y1) * romperc) / (2 * R ^ 2)
Text5.Text = "XK = " + Format$(XK, "0.000")
Text6.Text = "Delta12 = " + Format$(Delta12, "0.00000") + " mp"
End Sub
________________________________
2.2.3.3.-1.
________________________________
Private Sub Command1_Click()