Plot[{2*Sqrt[x+1],4*Sqrt[4-x],6*Sqrt[x+9],2*Sqrt[1-x]},{x,-9,9}]