Plot[2x^3+3x^2-36x+4,{x,-3,4}]

Plot[x*N[Abs[(x-1)]^(1/3)]*Abs[x-1]/(x-1),{x,-1,2}]

Plot[((x^2)^(1/3)),{x,-2,2}]