Advertisement
Guest User

Untitled

a guest
Mar 26th, 2015
230
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.74 KB | None | 0 0
  1. Plot3D[x[s1, s2],
  2. {s2, (m3^2 + m^2)^2, (Sqrt[s] - m^2)^2}, {s1,s1min[s2], s1max[s2]},
  3. RegionFunction -> Function[{x[s1, s2]}, -1 < x < 1]]
  4.  
  5. ClearAll[x, m, m3, s1min, s1max]
  6. x[s1_, s2_] := Sin[s1 + s2];
  7. m = Sqrt[Pi/32];
  8. m3 = Sqrt[Pi/64];
  9. s1min[s_] := Sqrt@s;
  10. s1max[s_] := 2 + Sqrt@s;
  11.  
  12. Plot3D[ConditionalExpression[x[s1, s2],
  13. (m3^2 + m^2)^2 <= s2 <= (Sqrt[s1] - m^2)^2 &&
  14. s1min[s2] <= s1 <= s1max[s2] && -1 < x[s1, s2] < 1],
  15. {s1, 0, Pi}, {s2, 0, Pi}, PlotPoints -> 100, MaxRecursion -> 4]
  16.  
  17. Plot3D[x[s1, s2], {s1, 0, Pi}, {s2, 0, Pi}, PlotPoints -> 100, MaxRecursion -> 4,
  18. RegionFunction ->
  19. Function[{s1, s2, z}, (m3^2 + m^2)^2 <= s2 <= (Sqrt[s1] - m^2)^2 &&
  20. s1min[s2] <= s1 <= s1max[s2] && -1 < z < 1]]
  21. (* same picture *)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement