Wolfram mathematica 图间交点的标记
首先,我想为这个新手问题道歉。 我刚开始学习mathematica,我有两个简单的绘图。我要做的是让Mathematica自动找到交点,给它们贴上标签,并显示坐标。 我搜索过这个论坛,有很多类似的问题,但它们对我来说太高级了。 有人能解释一下我是如何用最简单的方法做到这一点的吗?Wolfram mathematica 图间交点的标记,wolfram-mathematica,Wolfram Mathematica,首先,我想为这个新手问题道歉。 我刚开始学习mathematica,我有两个简单的绘图。我要做的是让Mathematica自动找到交点,给它们贴上标签,并显示坐标。 我搜索过这个论坛,有很多类似的问题,但它们对我来说太高级了。 有人能解释一下我是如何用最简单的方法做到这一点的吗? 求等式。使用以下命令获取点的值:points={x,x^2}/。sol也同样有效。偏移标签并在epilog中设置为文本 sol = Solve[x^2 == x + 2, x]; points = {x, x + 2}
求等式。使用以下命令获取点的值:
points={x,x^2}/。sol
也同样有效。偏移标签并在epilog中设置为文本
sol = Solve[x^2 == x + 2, x];
points = {x, x + 2} /. sol;
offset = Map[# + {0, 3} &, points];
Plot[{x^2, x + 2}, {x, -6, 6},
Epilog -> {Thread[Text[points, offset]],
Blue, PointSize[0.02], Point[points]}]
看看这个:我做了,克里斯。我只是希望有人能解释一下,因为这对我来说太复杂了。谢谢,谢谢你,克里斯!你能解释一下在结束语->之后发生了什么吗。。。?在那之后我迷路了。什么是线程?我们有
点={-1,1},{2,4}}
和偏移量={-1,4},{2,7}
,对于标签,我们需要{Text[{-1,1},{-1,4}],Text[{2,4},{2,7}}}
,其中第二对坐标用于标签位置。这可以使用Thread[Text[points,offset]]
或MapThread[Text,{points,offset}]
完成。请参阅文档:。