User Portlet
| Discussions |
|---|
| Probably the problem is that you are using x[m,n] instead of x1[m,n]: nm = 100; Reap[For[v2 = -10., v2 |
| v0 = 10.; d = 12.; m = 5.5; pot[x_] := v0 - v0*(Exp[-(x + 2)^2] + Exp[-(x - 2)^2/m]); Plot[{0., pot[x]}, {x, -d, d}, PlotRange -> {Automatic, {-2, 10}}] p[e_] := Sqrt[v0 - e]; sol1[e_] := ... |
| Thanks man ...... You are awesome Isaac ...... My issue is solved now ..... My workload is reduced to 1/20 and now I can find out 500 eigenvalues in just 5 mins .... which previously took me more than a day ......... I just need to do a small... |