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

Question

我正在写一个基本脚本来找到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])$

Answer 1

使用discrete选项作为第二条曲线，然后在points选项中使用style。

用

替换你的最后一行

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"])$

给你这个：