code for figure

> p1:=plot(x^2,x=-1.5..1.5):
p2:=plot(.2*(x-2.5)^2,x=2.5 ..6):
p3:=plot(.2*(x-10)^2,x=6.5 ..10):
plots[display]({p1,p2,p3},scaling=constrained, axes=none);
p1a:=plot(-x^2,x=-1.5..1.5):
p2a:=plot(-.2*(x-2.5)^2,x=2.5 ..6):
p3a:=plot(-.2*(x-10)^2,x=6.5 ..10):plots[display]({p1a,p2a,p3a},scaling=constrained, axes=none);