code for above diagrams

> p1:=plot({x^2,[-2,-2],[2,-2]}, x=-2..2, scaling=constrained, xtickmarks = [], ytickmarks=[],view=[-2..2,-2..2],title=`Graph of y = f(x)= x^2`, titlefont=[TIMES,BOLD,18]):p1;

> p2:=plot(sqrt(x), x=-2..2, scaling=constrained, xtickmarks = [], ytickmarks=[],view=[-2..2,-2..2],title=`Graph of y = f(x)= sqrt(x)`, titlefont=[TIMES,BOLD,18]):p2;

> p3:=plot(1/x, x=-2..-1/2, xtickmarks = [], ytickmarks=[], view=[-2..2,-2..2],axes=normal, scaling=constrained):

> p4:=plot(1/x, x=1/2..2, xtickmarks = [], ytickmarks=[], view=[-2..2,-2..2],axes=normal,scaling=constrained):

> p5:=plots[display]([p4,p3],title=`Graph of y = f(x)= 1/x`, titlefont=[TIMES,BOLD,18]):p5;

> plots[display](array([ p1,p2,p5 ]));