I have some code that is basically taking a range of energies, putting them into some recurrence equations and solving, and then I want to plot the results.(adsbygoogle = window.adsbygoogle || []).push({});

At the moment, the ListPlot at the bottom takes the index of the list, so it goes from 0 to 21. But really, this should go from -10 to 10, following the iteration of n. I have tried everything it seems, from making my table go like [{n,f[n,o]},{n,-10,10}] but this doesn't work. I've tried making a separate list of n's and then transpose this with the f's, but as f is going over o as well, I think the length discontinuity is causing issues.Code (Text):

\[HBar] = 1;

m = 1;

Do[Energy[z] = 0.5 + 5 z, {z, 0, 14}]

Table[Energy[z], {z, 0, 14}];

Do[Entot[n, o] = Energy[o] - \[HBar]*\[Omega]*n, {n, -10, 10}, {o, 0,

14}]

Do[k[n, o] = 2*m*(Entot[n, o])^(1/2), {n, -10, 10}, {o, 0, 14}]

\[Omega] = 1;

s = 10;

k0 = 10;

\[Alpha] = 10;

t0 = 1;

t[-11] = 0.01;

t[11] = 0.01;

r[-11] = 0.01;

r[11] = 0.01;

ClearAll[plot1]

Do[eqn[n, o] = -t[n] +

KroneckerDelta[n,

1] + (s*m/(2*\[HBar]^2*I*k[n, o]))*(t[n - 1] +

t[n + 1]), {n, -10, 10}, {o, 0, 14}];

tab1 = Table[eqn[n, o], {o, 0, 14}, {n, -10, 10}];

tab2 = Table[t[n], {n, -10, 10}];

Do[plot1[p] = NSolve[tab1[[p]] == 0, tab2], {p, 1, 15}]

Do[f[n, o] = t[n] /. plot1[o], {n, -10, 10}, {o, 1, 15}]

ListPlot[Abs[

Table[Flatten[Table[f[n, o], {n, -10, 10}]], {o, 1, 15}]],

PlotRange -> {0, 1.5}, PlotLegends -> Automatic]

Any help would be much appreciated, and apologies if my code's a mess, I'm very much a rookie.

Thanks!

**Physics Forums | Science Articles, Homework Help, Discussion**

Dismiss Notice

Join Physics Forums Today!

The friendliest, high quality science and math community on the planet! Everyone who loves science is here!

The friendliest, high quality science and math community on the planet! Everyone who loves science is here!

# Mathematica How can I get my ListPlot to go from {x,-10,10} on x?

Have something to add?

Draft saved
Draft deleted

**Physics Forums | Science Articles, Homework Help, Discussion**