Bácsatyai László: Magyarországi vetületek - NymE GEO portál
Bácsatyai László: Magyarországi vetületek - NymE GEO portál
Bácsatyai László: Magyarországi vetületek - NymE GEO portál
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
202<br />
Static Fok_Perc_Mp As String<br />
Rem *** Vetületi meridiánkonvergencia számítása ***<br />
R = 6378512.966<br />
Cotan_Fi_G_K = 0.929257344635727<br />
Rofok = 57.2957795130824<br />
X = Val(Text1.Text)<br />
Y = Val(Text2.Text)<br />
Ch = (Exp(X / R) + Exp(-X / R)) / 2<br />
Sh = (Exp(X / R) - Exp(-X / R)) / 2<br />
Sin_ = Sin(Y / R)<br />
Cos_ = Cos(Y / R)<br />
Tan_Mu = -(Ch * Sin_) / (Cotan_Fi_G_K + Sh * Cos_)<br />
Mu = Rofok * Atn(Tan_Mu)<br />
Elojel = Sgn(Mu) : Rem *** Fok átalakítása Fok-perc-másodperccé ***<br />
Perc = (Abs(Mu) - Int(Abs(Mu))) * 0.6<br />
Mp = (100 * Perc - Int(100 * Perc)) * 0.006<br />
Mp = Elojel * (Int(Abs(Mu)) + Int(100 * Perc) / 100 + Mp)<br />
Fok_Perc_Mp = Format$(Mp, "0.000000000")<br />
Text3.Text = "Mu = " + Fok_Perc_Mp<br />
End Sub<br />
________________________________<br />
2.3.4.2.-1.<br />
________________________________<br />
Private Sub Command2_Click()<br />
Rem *** A második irányredukció számítása az EOV-ben ***<br />
romperc = 206264.8<br />
R = 6379743.001<br />
m0 = 0.99993<br />
X1 = Val(Text1.Text)<br />
Y1 = Val(Text2.Text)<br />
X2 = Val(Text3.Text)<br />
Y2 = Val(Text4.Text)<br />
a = romperc / (2 * R ^ 2 * m0 ^ 2)<br />
b = romperc / (12 * R ^ 2 * m0 ^ 2)<br />
XK = (X1 + X2) / 2<br />
Delta12 = a * XK * (Y2 - Y1) - b * (X2 - X1) * (Y2 - Y1)<br />
Delta21 = -a * XK * (Y2 - Y1) - b * (X2 - X1) * (Y2 - Y1)<br />
Text5.Text = "a = " + Format$(a, "0.0000000000000000")<br />
Text6.Text = "b = " + Format$(b, "0.0000000000000000")<br />
Text7.Text = "Delta12 = " + Format$(Delta12, "0.000000") + " mp"<br />
Text8.Text = "Delta21 = " + Format$(Delta21, "0.000000") + " mp"<br />
End Sub