Plot two values from Table

2018-02-18 12:51:15

v1 = Flatten[Table[{\[Delta], FindMaximum[f[x][[2]], x, AccuracyGoal -> 5,

PrecisionGoal -> 5]}, {\[Delta], 1.5, 5, 0.1}]]

where,

f[x_] := Flatten[

Table[{k,

1 + (E^(-(x^2/(2 \[Delta]^2))) x^2 \[Psi])/\[Delta]^4 - (

E^(-(x^2/(2 \[Delta]^2))) \[Psi])/\[Delta]^2 - (

0.19947114020071635` Gamma[

1 + k] ((

Sqrt[2 \[Pi]] Gamma[-(3/2) + k])/((1/(-3 + 2 k))^(3/2)

Gamma[k]) -

8 Sqrt[E^(-(x^2/(2 \[Delta]^2))) \[Psi]]

Hypergeometric2F1[1/2, k, 3/2, (

2 E^(-(x^2/(2 \[Delta]^2))) \[Psi])/(3 - 2 k)]))/(

k Sqrt[-3 + 2 k] Gamma[-0.5` + k])}, {k, {2, 400}}]]

the varible v1 will contain the maimum value of the function and at which x it maximizes for [Delta] varying from 1.5,5. I need to plot the variation of this x value with the delta.

Thanks in advance.