How to plot a hyperbola and its asymptotes in Mathematica, with the coloring scheme consistent with the figure above: the regions between the hyperbola and its asymptotes filled with the same color, the interior of the hyperbola filled with the same color, and the regions above and below the asymptotes filled with the same color.
ContourPlot[ Evaluate@{x^2/3 - y^2/2 == 1, x^2/3 - y^2/2 == 0}, {x, -3, 3}, {y, -2, 2}, Frame -> False, Axes -> True]
Try using the Contours option instead of multiple equations:
Contours
ContourPlot[x^2/3 - y^2/2 , {x, -3, 3}, {y, -2, 2} , Contours -> {0, 1}, ContourShading -> {Yellow, Green, Red}, Frame -> False, Axes -> True, AspectRatio -> 1/GoldenRatio]
Thank you so much for helping me solve this problem. I also learned a new usage
