code for plot

p1:=plot((-x)^(2/3),x=-2..0):
p2:= plot(( x)^(2/3), x=0..2):
plots[display]({p1,p2},thickness=3,xtickmarks=[-2,-1,0,1,2],
ytickmarks=[-3,-2,-1,0,1,2,3],axesfont=[TIMES,BOLD,12],
titlefont=[TIMES,BOLD,16], title = `f(x) = x^(2/3)`);