如何使用mathematica同时绘制出曲线和散点?

问题描述:

如何使用mathematica同时绘制出曲线和散点?
Plot是绘制曲线,ListPlot是绘制散点,怎么将曲线和散点绘制在同一个图里?

范例:
p1 = Plot[x^2,{x,0,2}];
p2 = ListPlot[{{0,0},{1,1}}];
Show[{p1,p2}]