plot[y=(x-4)/(x-3),(x-3)^2+(y-1)^2=2]x=0to6,y=1to4