- Does “plurimi” imply “vast majority” in Augustine's Enchiridion?
- What categories of substantives of the second declension are feminine?
- What is a “monster” in Latin?
- Can i receive/use an already existing ERC 20 token in a new smart contract?
- How to get the POW-Hash of a specific block?
- ERC20 totalSupply not returning the correct value
- Display Array of struct within array of struct in react
- Changeable cell phone battery pack
- The final version is bugged!
- How do I permanently disable suspend and hibernate modes on Elementary OS 5 “Juno” 64 bit?
- Bug, fullscreen Atom. The window is *hidden*
- Need Application to show in Applications
- Black screen when try to lock screen
- Do I have to provide proof of citizenship - GDPR
- Is unlawful entry into Mexico a crime?
- Bone marrow donation vs. peripheral blood stem cell transplantation
- How does the destruction of habitats negatively impact human health?
- Why lower gauge needles aren't used to draw blood for blood tests?
- How does Climate Change affect human health?
- CiviMail - CiviCRM (Drupal 7): Problem with attached documents

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