Wolfram mathematica 如何将点标签添加到我的打印？

下面我试着在3维空间里画一个结。我想按p1、p2、p3的顺序给每个点贴上标签。。。p6甚至只是1，2，3。。。6个就够了。我该怎么做

`

`

以下是输出的图片：

显示[图形3d[线[结]，
图形3d[
MapIndexed[Text[Style[“P”ToString[#2[[1]]，中，红色]，#，{-1，-1}]&，
结[[；-2]]]，图形3d[点[结]]，轴->真，
AxesLabel->{x，y，z}]

不幸的是，很难让3d文本看起来很好

这是一张没有样式的地图，让它更容易理解

MapIndexed[Text["P" <> ToString[ #2[[1]] ], #] &

MapIndexed[Text[“P”到字符串[#2[[1]]，#]&

看起来很适合我使用。谢谢，你能给我解释一下#and&do是什么吗？这是纯函数语法：。

    Show[Graphics3D[Line[Knot]], 
 Graphics3D[
  MapIndexed[Text[Style["P" <> ToString[#2[[1]]], Medium, Red], #,{-1,-1}] &, 
   Knot[[;;-2]]]], Graphics3D[Point[Knot]], Axes -> True, 
 AxesLabel -> {x, y, z}]

MapIndexed[Text["P" <> ToString[ #2[[1]] ], #] &