- Route data between two interfaces
- How to configure SSH with a RemoteCommand only for interactive sessions (i.e. without command, or not sftp)
- Extract value from JSON document returned by curl
- IPSec over L2TP: key derivation for pre-shared key failed
- What is sport and dport?
- find + xargs - copy/move files from one subdir to another
- How to insert inline comment in multiline command?
- Any meaning differences if grammatical structure of these two phrases were changed?
- Please, do also… or Please also
- What is the origin of the phrase “frank and fearless”?
- If you aren't “immune”, could you be “mune”?
- Expression used by Dale Carnegie in his book: How to stop worrying and start living
- What is the term for this non-paperclip technique?
- Can I use Present tense for actions that have just happened?
- “I'm not saying anything”, “You're saying everything”
- Meaning of the phrase “womp womp” in American English?
- Cash Flow Calculation
- 1099-DIV or 1042S
- Could I have delayed my tax payments to Sweden in order to earn interest on the money in the meantime?
- How not to extract text when using \includesvg?

# 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.