Guest User

Untitled

a guest
Aug 16th, 2018
87
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.40 KB | None | 0 0
  1. With[{u = u[θ, ω]},
  2. eq = -D[ω u, θ] - D[-A Sin[θ] u, ω] - γ kT D[u, ω] + γ D[ω u, ω]==0;
  3.  
  4. ufun = NDSolveValue[{eq, u[t, -π, ω] == u[t, π, ω], u[t, θ, ωcb] == u[t, θ, ωct]},
  5. u, {θ, -π, π}, {ω, ωcb, ωct}
  6. ];
  7.  
  8.  
  9. Plot3D[Abs[ufun[θ, ω]], {θ, -π, π}, {ω, ωb, ωt},
  10. PlotRange -> All, AxesLabel -> Automatic, PlotPoints -> 50,
  11. BoxRatios -> {Pi, ωb, 1}]
Add Comment
Please, Sign In to add comment