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