- The ambiguity of: “resent your message”
- “I am afraid if I said anything wrong”
- Meaning of phrase “Meet your bogie”
- GRAMMAR 's and s'
- grammatical? We will hold he and Iran accountable for any attack on Iraq
- What does “cutting through” mean?
- What do you call a person that wants to kill people but doesn't actually kill them?
- FBAR reporting for 2017
- Disputing negative items on Credit Report?
- How do NYSE de-listings unfold?
- How to change background color of a sagetex sageblock-environment?
- add urls in reference
- Tikz tree - too large (many nodes)
- How to \smash all letters with descenders
- How to create named variables in Latex
- Mendeley and Biblatex: how to interpret 'misc' as 'patent' or 'online'
- Missing \endcsname out of nowhere
- How to split a string so it can be iterated over
- Tabular Layout for natbib fields
- Conflict between packages breqn and siunitx?

# Plot two values from Table

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.