4.4 ヒント

双曲線 $x^2/4-y^2=1$ と、その接線 (傾き $-1$ の) を描く。 陰関数のグラフ描画と、傾きが分かりやすいように縦横の縮尺を揃えること、 二つ以上のものを一つにまとめる、などのテクニック。

Needs["Graphics`ImplicitPlot`"]
g = ImplicitPlot[x^2/4 - y^2 == 1, {x, -6, 6},
                 PlotRange -> {{-6, 6}, {-3, 3}},
                 AspectRatio -> 1/2]
t = Plot[{-x + Sqrt[3], -x - Sqrt[3]}, {x, -6, 6}]
gt = Show[g, t]
Export["c:/home/mk/nantoka.eps", gt]

図 2: 双曲線とその接線