n = 15108097
k = n Mod 10000
pi = 4 * Atn(1)
g = 10
x = 2 - 1 / k
y = 0.5 + 1 / n + 0.03
v = 6
a = g * x ^ 2 / 2 / v ^ 2
b = -x
c = g * x ^ 2 / 2 / v ^ 2 + y
c = a + y
N1 = (-b + Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
'N1 = Atn(N1)
'N1 = 180 * N1 / pi
'MsgBox N1

N2 = (-b - Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
'N2 = Atn(N2)
'N2 = 180 * N2 / pi
'MsgBox N2

'
y = -1 + 1 / k
a = g * (1 + N1 ^ 2) / 2 / v ^ 2
b = -N1
c = y
X1 = (-b + Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
MsgBox X1

a = g * (1 + N2 ^ 2) / 2 / v ^ 2
b = -N2
c = y
X2 = (-b + Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
MsgBox X2

N1 = Atn(N1)
t1 = X1 / v / Cos(N1)
MsgBox t1

N2 = Atn(N2)
t2 = X2 / v / Cos(N2)
MsgBox t2