File:Position and momentum of a Gaussian initial state for a QHO, wide.gif
From Infogalactic: the planetary knowledge core
Position_and_momentum_of_a_Gaussian_initial_state_for_a_QHO,_wide.gif (360 × 223 pixels, file size: 257 KB, MIME type: image/gif, looped, 63 frames)
Summary
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 frame3[t_] := Plot[{probX[x, t, 1, 1, 1/2, 1, -10], probP[x, t, 1, 1, 1/2, 1, -10], v[x, 1/200, 1]}, {x, -25, 25}, Axes -> {True, False}, Ticks -> None, PlotRange -> {0, 1.2}] frames3 = ParallelTable[frame3[t], {t, 0, 2*Pi, 0.1}]; |
---|---|
Source |
made with Mathematica |
Date |
2012-05-20 |
Author | |
Permission (Reusing this file) |
See below. |
Licensing
Lua error in package.lua at line 80: module 'strict' not found. Lua error in package.lua at line 80: module 'strict' not found.
File history
Click on a date/time to view the file as it appeared at that time.
Date/Time | Thumbnail | Dimensions | User | Comment | |
---|---|---|---|---|---|
current | 17:45, 25 April 2021 | 360 × 223 (257 KB) | Thales (talk | contribs) |
- You cannot overwrite this file.
File usage
The following page links to this file: