3.8;p[0}=0.5+0.001data= ablelp[{,100}; gl=ListPlot[data, Plotstyle->PointSize[0.015]1 g2=ListPlot[data, PlotJoined->True] Show[Graphics Array[igl, g2)]]; Showgl, g2] 结果 实验7区间4,4 上作函数f(x)=x-9x图形,并研究im(x)和imnf f]=(x^3-9x(x^3-x)Pot[x],{x-44}l 结果 实验8观察函数 snxx→ 时的变化趋势 程序 fx ]: =Sinx /x2 Pot[x],{x,1,20程序： k=3.8;p[0]=0.5+0.001;data=Table[p[i],{i,100}]; g1=ListPlot[data,PlotStyle->PointSize[0.015]]; g2=ListPlot[data,PlotJoined->True]; Show[GraphicsArray[{g1,g2}]];Show[g1,g2]; 结果： 实验7 区间 上作函数 图形，并研究 和 程序： f[x_]:=(x^3-9x)/(x^3-x);Plot[f[x],{x,-4,4}]; 结果： 实验8 观察函数 当 时的变化趋势 程序： f[x_]:=Sin[x]/x^2; Plot[f[x],{x,1,20}];