Position_and_momentum_of_a_Gaussian_initial_state_for_a_QHO,_narrow.gif (360 × 223 pixels, file size: 255 KB, MIME type: image/gif, looped, 63 frames)
Summary[edit]
Description |
made with Mathematica using the following commands: probX[x_, t_, m_, h_, om1_, om2_, x0_] = Sqrt[m om1 om2^2 /(Pi h (om1^2 Sin[om2 t]^2 + om2^2 Cos[om2 t]^2))]* Exp[-(m om1 om2^2 / h)*(x - x0*Cos[om2 t])^2/(om1^2 Sin[om2 t]^2 + om2^2 Cos[om2 t]^2)] probP[p_, t_, m_, h_, om1_, om2_, x0_] = Sqrt[om1/(Pi m h (om1^2 Cos[om2 t]^2 + om2^2 Sin[om2 t]^2))]* Exp[-(om1/ (m h))*(p + m om1 x0*Sin[om2 t])^2/(om1^2 Cos[om2 t]^2 + om2^2 Sin[om2 t]^2)] v[x_, m_, om2_] = m om2^2 x^2/2 frame2[t_] := Plot[{probX[x, t, 1, 1, 2, 1, -10], probP[x, t, 1, 1, 2, 1, -10], v[x, 1/200, 1]}, {x, -25, 25}, Axes -> {True, False}, Ticks -> None, PlotRange -> {0, 1.2}] frames2 = ParallelTable[frame2[t], {t, 0, 2*Pi, 0.1}]; |
---|---|
Source |
made with Mathematica |
Date |
2012-05-20 |
Author | |
Permission (Reusing this file) |
See below.
|
Licensing[edit]
File history
Click on a date/time to view the file as it appeared at that time.
Date/Time | Thumbnail | Dimensions | User | Comment | |
---|---|---|---|---|---|
current | 19:57, 20 May 2012 | 360 × 223 (255 KB) | Teply (talk | contribs) | Uploading a self-made file using File Upload Wizard |
You cannot overwrite this file.
File usage
The following pages on the English Wikipedia use this file (pages on other projects are not listed):