MuPAD Pro Computing Essentials - Examples 

Example 7.5 - Plotting family of implicit curves with the use of contours option

Sometimes it is quite useful to obtain the graph of a curve and its asymptotes. For example, a family of hyperbolas and their common asymptotes.

R:=10:

export(plot,implicit,Function2d);
 
H1 := implicit(
   x^2-y^2-1, x=-R..R, y=-R..R,
   Grid=5,
   Splines=TRUE,
   Contours=[1,4,9],
   Colors=[[0,0,0],[0,0,1],RGB::RoyalBlue]
);
 

As1 := Function2d(x, x=-R..R):
As2 := Function2d(-x, x=-R..R):
 

plot(
   H1, As1, As2,
   Scaling=Constrained,
   BackGround=[0.8,0.8,1],
   LineWidth=5
)