Advertisement
Guest User

Untitled

a guest
Mar 20th, 2019
74
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.37 KB | None | 0 0
  1. Plot[{((z (Coth[z] + Coth[z]) + Sqrt[(z^2 (Coth[z] + Coth[z])^2) -
  2. 4 (0.5 + Coth[z]*Coth[z]) z^2 (0.5)])/(2 (0.5 + Coth[z]*Coth[z]))),
  3. ((z (Coth[z] + Coth[2 z]) + Sqrt[(z^2 (Coth[z] + Coth[2 z])^2) - 4 (0.9 + Coth[z]*Coth[2 z]) z^2 (0.9)])/(2 (0.9 + Coth[z]*Coth[2 z])))},
  4. {z, 0, 9}, PlotLegends -> "ExpressFrame -> True , FrameLabel -> {[Xi]h, [Omega]}]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement