Plot[{z==|r|,z==r^2}, {r,-1,1}]