>	restart:with(plots):with(plottools):

Warning, the name changecoords has been redefined

Warning, the assigned name arrow now has a global binding

>	f := x -> x/(x-1)/(x-2);

>	va1:=line([1,-8],[1,5],color=green,linestyle=2,thickness=3):

>	va2:=line([2,-8],[2,5],color=green,linestyle=2,thickness=3):

>	graph:=plot(f(x), x=-6..10,y=-8..5, color=blue, thickness=3, discont=true):

>	localmax:=disk([sqrt(2),f(sqrt(2))], 0.15 ,color=red):

>	zoombox:=polygon([[-1,0], [-1,-0.4], [-2,-0.4],[-2,0]], linestyle=1, thickness=3):

>	display(graph, va1, va2, zoombox, localmax);

>