Guest User

Untitled

a guest
Oct 21st, 2018
89
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.38 KB | None | 0 0
  1. A = FunctionDomain[(y Log[y])/x, {x, y}]
  2.  
  3. y > 0 && x != 0
  4.  
  5. B = FunctionDomain[x/(y Log[y]), {x, y}]
  6.  
  7. y > 0 && Log[y] != 0
  8.  
  9. Dom = Union[A, B]
  10.  
  11. y > 0 && x != 0 && Log[y] != 0
  12.  
  13. RegionPlot[Dom, {x, -2, 2}, {y, -2, 2}]
  14.  
  15. A = FunctionDomain[(y Log[y])/x, {x, y}];
  16. B = FunctionDomain[x/(y Log[y]), {x, y}];
  17. dom = Union[A, B];
  18. RegionMember[ImplicitRegion[dom, {x, y}], {0, 1}]
Add Comment
Please, Sign In to add comment