Mathematica - 優化數組變量

Question

假設我有一個x和一個數組變量的函數。

A = Array[a, 2]; 
f[x_] := (x-.5)^2 + a[1]^2 + a[2]^2 

現在我想盡量減少兩個，這會導致錯誤。

FindMinimum[f[x], {x, A}] 

FindMinimum :: nrlnum：函數值{0.707107,1.41421一個[1]}不是 實數與尺寸{2}的{X，A} = {1列表， 1}。 >>

我該怎麼寫呢？

相反，它適用於非數組變量。

f[x_] := (x-.5)^2 + y^2 + z^2; 
FindMinimum[f[x], {x, y, z}] 
{0., {x -> 0.5, y -> 0., z -> 0.}} 

而且，奇怪的是，它工作正常，如果我只有數組變量。

A = Array[a, 3] 
f := (a[3] - .5)^2 + a[1]^2 + a[2]^2 
FindMinimum[f, A] 
{0., {a[1] -> 0., a[2] -> 0., a[3] -> 0.5}} 

Answer 1

我會怎麼做：

bigA = Array[a, 2]; 
f[x_] := (x - .5)^2 + Total[bigA^2] 

FindMinimum[f[x], Flatten[{x, bigA}]] 
(* {0., {x -> 0.5, a[1] -> 0., a[2] -> 0.}} *)