画两个图,一个用虚线,一个用实线,再放一块儿.

　　Show[Plot[1/(x-2),{x,0,4},PlotStyle->Dashing[Tiny]],

　　Plot[1/(x-2),{x,0,2,4}]]

　　如果函数是2x/(x-1)^2,垂直渐近线是x=1,怎么弄？最好把程序和图片都放上，我好学习学习！另外，像凸函数的示意图是怎么画的？

　　不知什么原因，mathematica会自动画出1/(x-2)，Tan[x]，1/Sin[x]等简单函数的垂直x轴的渐近线，但1/(x-2)^2，Tan[x]^2，1/Sin[x]^2就不行了。依目前的了解，只能算出渐近线方程，再把渐近线和原函数图像画一块儿。例如你所说的2x/(x-1)^2：Show[Graphics[{Dashed,Line[{{1,0},{1,40}}]}],Plot[2x/(x-1)^2,{x,0,4}],AspectRatio->.6,Axes->True]。对于凸函数示意图，代码如下，顺便画上了渐近线：f[x_]:=x+1/x;g[x_]:=x;x1=.5;x2=4;x=2.3;Show[Plot[f[x],{x,0,6}],Plot[g[x],{x,0,6},PlotStyle->Dashing[Tiny]],Graphics[{Point[{x1,f[x1]}],Line[{{x1,f[x1]},{x1,0}}],Text["x1",{x1,-.4},BaseStyle->{15}],Point[{x2,f[x2]}],Line[{{x2,f[x2]},{x2,0}}],Text["x2",{x2,-.4},BaseStyle->{15}],Point[{x,(f[x2]-f[x1])/(x2-x1)*(x-x1)+f[x1]}],Point[{x,f[x]}],Line[{{x,(f[x2]-f[x1])/(x2-x1)*(x-x1)+f[x1]},{x,0}}],Text["x",{x,-.4},BaseStyle->{15}],Line[{{x1,f[x1]},{x2,f[x2]}}],Text["A1",{x1,f[x1]+.5},BaseStyle->{15}],Text["A2",{x2,f[x2]+.5},BaseStyle->{15}],Text["A",{x+.2,f[x]-.5},BaseStyle->{15}],Text["B",{x,(f[x2]-f[x1])/(x2-x1)*(x-x1)+f[x1]+.5},BaseStyle->{15}],Text["y1",{x1-.2,f[x1]/2},BaseStyle->{15}],Text["y2",{x2+.2,f[x2]/2},BaseStyle->{15}]}],AxesOrigin->{0,0},Ticks->None,AxesLabel->{x,y},LabelStyle->{15},AxesStyle->Arrowheads[.03],PlotRange->All]