F[x_, y_] := (x - 2 + 2 y)^2 + y^2 + x;
(*求F[x,y]的最小值*)
(*给定xy的初值ab*)
{a, b} = {-0.4, 0.9};
gradint1 = Grad[F[x, y], {x, y}];
Do[gradint =
Table[gradint1[[num3]]/
Norm[gradint1], {num3, 1, Length[{x, y}]}] /. {x -> a, y -> b};
Print[{a, b} = {a, b} - \[Eta] gradint /. \[Eta] -> .1], 4] // N

我只想得出有一个算不上让我满意的办法
Table[Do[gradint =
Table[gradint1[[num3]]/
Norm[gradint1], {num3, 1, Length[{x, y}]}] /. {x -> a, y -> b};
{a, b} = {a, b} - \[Eta] gradint /. \[Eta] -> .1, n]; {a, b}, {n, 1,
4}]

Table或Sow