with(plots):P1:=plot([-(1+s^2)/s,s,s=1..4],linestyle=3,numpoints=20):P2:=plot([-(1+s^2)/s,s,s=-1..-0.001],linestyle=3,numpoints=20):P3:=plot([-(1+s^2)/s,s,s=0.001..1],linestyle=1,numpoints=1000):P4:=plot([-(1+s^2)/s,s,s=-5..-1],linestyle=1,numpoints=1000):display({P1,P2,P3,P4},view=[-5..5,-3..3]);P5:=plot([-s+ln(1+s),s,s=-0.97..0],linestyle=1,numpoints=1000):P6:=plot([-s+ln(1+s),s,s=0..4],linestyle=3,numpoints=20):display({P5,P6},view=[-2.5..1,-1..4]);