Skip to main content
. 2024 Mar 14;26(3):263. doi: 10.3390/e26030263
Algorithm 1 Euler–Maruyama for the Wigner–Fokker–Planck equation (harmonic potential)
  •   1:

    Define:

  •   2:

    L1.0

  •   3:

    σqL2

  •   4:

    σp12L

  •   5:

    δt0.01

  •   6:

    Total_Time50.

  •   7:

    NumOfTimeStepround{Total_Timeδt}

  •   8:

    NumOfParticles104

  •   9:

    μ10.

  • 10:

    μ20.

  • 11:

    μμ1μ2

  • 12:

    Dqq=1.,Dpp=1.

  • 13:

    γ=1.

  • 14:

    DDqq00Dpp

  • 15:

    Arrays Initialization:

  • 16:

    qzeros[NumOfTimeStep,NumOfParticles]

  • 17:

    pzeros[NumOfTimeStep,NumOfParticles]

  • 18:

    Initial Conditions:

  • 19:

    q[1,:]normrnd(μ[1],σq,[1,NumOfParticles])

  • 20:

    p[1,:]normrnd(μ[2],σp,[1,NumOfParticles])

  • 21:

    Update:

  • 22:

    for each iNumOfTimeStep do

  • 23:

        for each jNumOfParticles do

  • 24:

            ϵmvnrnd(μ,2Dδt)

  • 25:

            q[i+1,j]q[i,j]+p[i,j]δt+ϵ[1]

  • 26:

            p[i+1,j]p[i,j]+(q[i,j]γp[i,j])δt+ϵ[2]

  • 27:

        end for

  • 28:

    end for