Plot 如何使用maxima/wxmaxima绘制单个点？

我正在写一个基本的脚本来找到f（x）：=log（x）-x和原点之间的最小距离。我希望能够在f（x）图的顶部绘制离原点最近的点，但我不知道如何绘制单个点

这是我写的。有什么想法吗

f(x):=log(x)-x;
d(x):=sqrt(x^2+f(x)^2)$
find_root(diff(d(x),x),x,0.01,5)$
a:%;
f(a);
print("min distance from f(x) to (0,0)")$
d(a);
print("passes second derivative test if next value greater than zero")$
g(x):=''(diff(d(x),x,2))$
g(a);

wxplot2d([f(x)], [x,.01,5], [y,-6,0])$

---

使用

离散

选项作为第二条曲线，然后在

样式

选项中使用

点

将最后一行替换为

wxplot2d([f(x), [discrete, [a], [f(a)]]], [x,.01,5], [y,-6,0], 
    [style, lines, points],
    [legend, "log(x)-x", "closest point to origin"], 
    [point_type, circle], 
    [gnuplot_preamble, "set key bottom"])$

给你这个：

---

最小点或最大点，因为f（x）的极限为-无穷大，这是有史以来最可能的最小值。你可以用“点”来表示坐标。