Input := e1 = D[ V[V0], x0] == 0; e2 = D[ V[V0], v0 ] == 0; e3 = D[ V[V0], lambda] == 0;
Input :=
s = Solve[ {e1,e2,e3}, {x0,v0,lambda}]
Output =
{{lambda -> 0.994988, x0 -> -0.998733,
v0 -> -0.050313},
{lambda -> 0.994988, x0 -> 0.998733,
v0 -> 0.050313},
{lambda -> 1.01519, x0 -> -0.050313,
v0 -> 0.998733},
{lambda -> 1.01519, x0 -> 0.050313,
v0 -> -0.998733}}
Compare the lambdas in the expression above with the below expression. Recall that A is the matrix representing the difference scheme.
Input := Sqrt[ Eigenvalues[ Transpose[A] . A]]
Output =
{1.01519, 0.994988}
Select the maximum and minimum starting vectors. Note that each has two possibilities: one being just the additive inverse of the other. You now have the answer to part (1) of the problem.
Input :=
vmax = {x0,v0} /. s[[3]]
Output =
{-0.050313, 0.998733}
Input := Lmax = lambda /. s[[3]]
Output = 1.01519
Input :=
vmin = {x0, v0} /. s[[1]]
Output =
{-0.998733, -0.050313}
Input := Lmin = lambda /. s[[1]]
Output = 0.994988