程序 k=3.45; data=Table[],1, 100)1 gl=List Plot(data, PlotStyle->PointSize [0.02: g2=List Plot[data, PlotJoined->True Showel, g2]: 结果 ●命命命 ∴ k=3.8: data=Table[p[],(1, 1001; gl=ListPlot[data, PlotStyle->PointSize[0.02]] g2=List Plot( data, PlotJoined->True Show[ Graphics Array[ig1, g2)]; Showlgl, g2] 结果程序： k=3.45;data=Table[p[i],{i,100}]; g1=ListPlot[data,PlotStyle->PointSize[0.02]]; g2=ListPlot[data,PlotJoined->True]; Show[g1,g2]; 结果： 程序： k=3.8;data=Table[p[i],{i,100}]; g1=ListPlot[data,PlotStyle->PointSize[0.02]]; g2=ListPlot[data,PlotJoined->True]; Show[GraphicsArray[{g1,g2}]];Show[g1,g2]; 结果：