次の例では、変数 g1, g2 に代入しておいて、後から再表示し ている。
双曲線と接線を別々に描いて合成。
g=ContourPlot[x^2/4-y^2==1,{x,-6,6},{y,-3,3},AspectRatio->1/2] t=Plot[{-x+Sqrt[3],-x-Sqrt[3]},{x,-6,6}] Show[g,t]