如何在Maxima绘制的折线图中标注T(t)函数的最大值对应点

你已经完成了最大值对应t值的求解，只需要新增两步即可完成标注：

• 将求解得到的最优t和对应T值保存为变量
• 在draw2d绘图参数中加入点标注配置

修改后的完整可运行代码如下：

kill(all);
assume(w >0);
assume(1- t >0);
N1:4;
N5:7;
w:5100;
p: (N1+ N5 + 5)*(1-t);

/* 输入生产函数 */
Y: 500*(N1+ N5 + 20)*L^(0.5);

/* 输入利润函数 */
Profit: p*Y - w*L;

/* 计算一阶条件 */
eq1: diff(Profit,L,1) = 0;
float(solve (eq1,L));
L : rhs(%[1]);

/* 计算作为t函数的税收收入T(t) */
T: t*p*ev(Y);

/* 求最优税率 */
opttr: diff(T,t,1)=0;
float(solve (opttr,t));
/* 新增：保存最优t值和对应的T值 */
t_opt: rhs(%[1]);
T_opt: ev(T, t=t_opt);

draw2d(
xlabel = "t",
ylabel = "T",
/* 新增：最大值点标注配置 */
point_type = circle,
point_size = 3,
color = red,
points([[t_opt, T_opt]]),
/* 可选：添加文字标注，坐标偏移0.02避免遮挡折线 */
label(["最大值点", t_opt + 0.02, T_opt]),
explicit(ev(T), t, 0, 0.99));

新增配置说明：

• point_type：设置标注点的形状，示例中用的是圆形，也可替换为square（方形）、triangle（三角形）等
• point_size：控制标注点的显示大小
• points：接收二维数组形式的坐标点列表，传入需要标注的所有点坐标
• label：可选配置，用于在指定坐标位置添加文字说明

内容的提问来源于stack exchange，提问作者Macosso