Advertisement
Guest User

Untitled

a guest
Jun 19th, 2019
64
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.67 KB | None | 0 0
  1. h2 = {{0, -Ω/2}, {-Ω/2, k v - Δ}};
  2. ρ = {{ρ11[t], ρ12[t]}, {ρ21[t], ρ22[t]}};
  3. ρprime = -I (h2.ρ - ρ.h2) + {{1/2 γ ρ22[t], -γ ρ12[t]}, {-γ ρ21[t], -1/2 γ ρ22[t]}};
  4. replace3 = {Δ -> 1/(16*10^-9), γ -> 1/(16*10^-9), Ω -> 10^8, k -> ( 2 [Pi])/(500*10^-9)};
  5.  
  6. var = Flatten@ρ;
  7.  
  8. {eq, ic} = {D[var, t] == Flatten@[Rho]prime // Thread,
  9. var == {1, 0, 0, 0} /. t -> 0 // Thread} /. replace3;
  10.  
  11. tvar = LaplaceTransform[var, t, s];
  12. tsol = tvar /.
  13. First@Solve[LaplaceTransform[eq, t, s] /. Rule @@@ ic, tvar] // Simplify;
  14.  
  15. (sol = InverseLaplaceTransform[tsol, s, t]) // AbsoluteTiming;
  16.  
  17. ContourPlot[v == 10^3 - 700000 t Re[sol[[4]]], {t, 0, 10}, {v, 0, 10^3}]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement