mathematica里面如何标记两条线之间的交点以及显示交点坐标

采用Epilog命令

代码如下：

Clear["`*"]
a = NSolve[y == 1 - x^2 && y == 1 - 2 x, {x, y}]; Plot[{1 - x^2, 
  1 - 2 x}, {x, -1, 3}, 
 Epilog -> {Point[{x, y} /. a], 
   Table[Inset[({x, y} /. a)[[i]], ({x, y} /. a)[[i]]], {i, 1, 
     Length[a]}]}]

 结果如下：