Компьютерные технологии в судовождении. Фадюшин С.Г. - 61 стр.

fsrk = (f1r + f2r) / 2
OTr = (dLr / 57.3) * Cos(fsrk / 57.3)
OTr = OTr * 57.3
dfr = f1r f2r
RMCHr = (dLr * dfr) / OTr
Ky = (Y2 Y1) / RMCHr
fsrt = (f1r + Ft) / 2
OTt = (dLt / 57.3) * Cos(fsrt / 57.3)
OTt = OTt * 57.3
dft = f1r Ft
rmcht = (dLt * dft) / OTt
yt = rmcht * Ky
yt = Y1 + yt
Text10.Text = yt
End Sub

'Привязка карты (перевод X и Y в географические координаты
Private Sub Option2_Click()
f1r = Text13.Text
L1r = Text14.Text
X1 = Text15.Text
Y1 = Text16.Text
f2r = Text17.Text
L2r = Text18.Text
X2 = Text19.Text
Y2 = Text20.Text
xt = Text9.Text
yt = Text10.Text
xt = xt X1
yt = yt Y1
dLr = L2r L1r
Kx = (X2 X1) / dLr
dLt = xt / Kx
Lt = L1r + dLt
Text12.Text = Lt
fsrk = (f1r + f2r) / 2
OTr = (dLr / 57.3) * Cos(fsrk / 57.3)
OTr = OTr * 57.3
dfr = f1r f2r
RMCHr = (dLr * dfr) / OTr
Ky = (Y2 Y1) / RMCHr
rmcht = yt / Ky
Do
dfti = dft
OTt = (dLt / 57.3) * Cos(fsrk / 57.3)
OTt = OTt * 57.3
dft = (rmcht * OTt) / dLt
                                                             61