code for diagrams below

> P3:=plot(x^2,x=-0..1.2,thickness=3):
lns:=plot([[1,0],[1,1]],linestyle=3,thickness=3):
tx:=plots[textplot]([.75,1,`y = x^2`],font=[TIMES,BOLD,14]):
plots[display]({P3,lns,tx},xtickmarks=[1],ytickmarks=[1],
font=[TIMES,BOLD,16],scaling=constrained); P4:=plot(sin(x),x=-.1..Pi+.1,thickness=3):
tx2:=plots[textplot]([2.7,1,`y = sin(x)`],font=[TIMES,BOLD,14]):
plots[display]({P4,tx2},xtickmarks=[],ytickmarks=[1],
font=[TIMES,BOLD,16],scaling=constrained);