s = 22000005

T = s Mod 100

x = 1
y = 1

'
g = 10
'
T1 = (2 * y - x + Sqr((x - 2 * y) ^ 2 + 4 * x * (x + y))) / (2 * x)
T2 = (2 * y - x - Sqr((x - 2 * y) ^ 2 + 4 * x * (x + y))) / (2 * x)

'MsgBox T1

'MsgBox T2

'
v1 = Sqr(g * x ^ 2 * (1 + T1 ^ 2) / (2 * (x * T1 - y)))
'MsgBox v1

'v2 = Sqr(g * x ^ 2 * (1 + T2 ^ 2) / (2 * (x * T2 - y)))
'MsgBox v2

v = v1 + 1 / T

T1 = v * v * (x + Sqr(x * x - 4 * g * x * x * (y + g * x * x / (2 * v * v)) / (2 * v * v))) / (g * x * x)
T2 = v * v * (x - Sqr(x * x - 4 * g * x * x * (y + g * x * x / (2 * v * v)) / (2 * v * v))) / (g * x * x)

'MsgBox T1
'MsgBox T2

MsgBox Atn(T1) * 180 / (4 * Atn(1))
MsgBox Atn(T2) * 180 / (4 * Atn(1))