plot[y=3*√(x/2),x=2*y^2/9,y>0]