Mathematica 如何用矩阵元素作为函数变量?

In[45]:= f[x_] := x[[1]] + 2 x[[2]];
FindMinimum[{f[{x,y}],Norm[{x,y} - {1,1}] < Sqrt@5},{x,y},
Method -> "InteriorPoint"]
Out[46]= {-2.,{x -> -1.69472*10^-6,y -> -0.999999}}
再问： 非常感谢！您的方法巧妙地解决了我的例子。
但是矩阵元素作为函数变量这个问题无法回避。我现在做的一个有1000个变量的约束极值问题，我把这1000个变量作为一个向量。
这种问题有没有好的办法？
再答： 这个也可以，麻烦点，要动态生成变量。
建议不用FindMinimum等，改用其它支持单个矩阵参数的。或自己写程序实现算法。