code for diagram above

> plot({x^3,x^4},x= -1.3..1.3, xtickmarks=[],ytickmarks=[],scaling=constrained,
thickness=3);