有理関数のグラフを描く

Mathematica プログラム例

1. Plot[{(3x-5)/(x-1), -2/x},{x,-10,10}, PlotRange -> {{-10,10}, {-10,10}}, AspectRatio -> Automatic]
2. Plot[1/(x^2+1), {x,-4,4}, PlotRange -> {{-4,4}, {0,4}}, AspectRatio -> Automatic]

計算結果