Advertisement
Guest User

Untitled

a guest
Jun 16th, 2019
57
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.40 KB | None | 0 0
  1. ImplicitRegion[
  2. 16 π^2 -
  3. Sqrt[32 π^2 + Abs[Cos[θ1] r1]^2 +
  4. Abs[r1 Sin[θ1]]^2] Sqrt[
  5. Abs[Cos[θ1] r1]^2 +
  6. Abs[Cos[φ1] r1 Sin[θ1]]^2 +
  7. Abs[r1 Sin[φ1] Sin[θ1]]^2] + Cos[θ1]^2 r1^2 +
  8. Cos[φ1] r1^2 Sin[θ1]^2 <= 0.5 &&
  9. 16 π^2 -
  10. Sqrt[32 π^2 + Abs[Cos[θ1] r1]^2 +
  11. Abs[r1 Sin[θ1]]^2] Sqrt[
  12. Abs[Cos[θ1] r1]^2 +
  13. Abs[Cos[φ1] r1 Sin[θ1]]^2 +
  14. Abs[r1 Sin[φ1] Sin[θ1]]^2] + Cos[θ1]^2 r1^2 +
  15. Cos[φ1] r1^2 Sin[θ1]^2 >= -0.5 &&
  16. 16 π^2 -
  17. Abs[r2] Sqrt[32 π^2 + Abs[r2]^2 +
  18. Abs[r1 Sin[φ1] Sin[θ1]]^2 +
  19. Abs[r1 Sin[θ1] - Cos[φ1] r1 Sin[θ1]]^2] +
  20. r2^2 <= 0.5 &&
  21. 16 π^2 -
  22. Abs[r2] Sqrt[32 π^2 + Abs[r2]^2 +
  23. Abs[r1 Sin[φ1] Sin[θ1]]^2 +
  24. Abs[r1 Sin[θ1] - Cos[φ1] r1 Sin[θ1]]^2] +
  25. r2^2 >= -0.5 && 160 <= r1 <= 300 && 160 <= r2 <= 300 &&
  26. 0 <= φ1 <= 2 π && 0 <= θ1 <= 2 π,
  27. {r1, r2, φ1, θ1}]
  28.  
  29. ImplicitRegion[
  30. -633.655 <=
  31. r1 (r1 (4. + 1. θ1^4 - 2. θ1^2 ϕ1^2) -
  32. Sqrt[(128 π^2 + r1^2 (4 + θ1^4)) (4 + θ1^4 + θ1^2 ϕ1^4)]) <=
  33. -629.655 &&
  34. 314.827 + 2. r2^2 <=
  35. r2 Sqrt[128 π^2 + 4 r2^2 + r1^2 θ1^2 ϕ1^2 (4 + ϕ1^2)] &&
  36. r2 Sqrt[128 π^2 + 4 r2^2 + r1^2 θ1^2 ϕ1^2 (4 + ϕ1^2)] <=
  37. 316.827 + 2 r2^2 &&
  38. r1 >= 0 && r2 >= 0 && 160 <= r1 <= 200 && 160 <= r2 <= 200 &&
  39. -0.1 <= θ1 <= 0.1 && -0.1 <= ϕ1 <= 0.1,
  40. {r1, r2, θ1, ϕ1}]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement