画数据点集合 d=TableR 1/n, sinn] {n,1,1000}](定义点集) Listplot[d](画出点集) Show[fg1,fg2](几个图象 重新显示在同一坐标系里)d=Table[{1/n,Sin[n]}, {n,1,1000}] (定义点集） ListPlot[d] （画出点集） Show[fg1,fg2] (几个图象 重新显示在同一坐标系里） 画数据点集合