Maximize[{x^2+3y^2,x+y== 1},{x,y}]