如何在MatheMatica中用箭头绘制箭头？

Question

我最近一直在研究优化。我有兴趣说明这些点从开始到最佳的方式。 在 ContourPlot 教程中，有一个使用 Epilog 的示例：

{min, {steps}} = 
Reap[NMinimize[{(x - 1)^2 + 100 (y - x^2)^2, 
 x^2 + y^2 <= 1}, {{x, -1, -1/2}, {y, -1, -1/2}}, 
StepMonitor :> Sow[{x, y}], Method -> "DifferentialEvolution"]];

ContourPlot[(x - 1)^2 + 100 (y - x^2)^2, {x, -1, 1}, {y, -1, 1}, 
Contours -> 
Function[{lo, hi}, Exp[Range[0.01, Log[hi], (Log[hi] - 0.01)/10]]], 
RegionFunction -> Function[{x, y, z}, x^2 + y^2 <= 1], 
Epilog -> {Green, Line[steps], Red, Point[steps]}]

但我想要的是像这样绘图： http://upload.wikimedia.org/wikipedia/commons/7/79/Gradient_descent.png

箭头箭头

非常感谢。

Answer 1

用

替换Line[steps]

 Arrow[#]&/@Partition[steps,2,1]

未经测试的应该让你接近的人。