结果: 320.50000000000000000000-0.50000000000000000000 666666666666670.1666666666666666667 450.60000000000000000000-0.066666666666 580.625000000000000000000.0250000000000000000 6130.615384615384615384 0.0096153846153846154 0.619047619047619047620.0036630036630036630 8340.61764705882352941176-0.0014005602240896359 550.61818181818181818182 0005347593582887701 0890.61797752808988764045-0.0002042900919305414 111440.618055555555555555560.0000780274656679151 122330.61802575107296137339-0.0000298044825941822 33770.618037135278514588860.0000113842055532155 用散点图观察 Fibonacci数列变化趋势 程序 fn]: =fn-1+fn-2]; 0F=l; f1=I List Plot[ fab20, PlotStyle->PointSize[0.02]: Infab20=Log[fab20]: ListPlotInfab20, PlotStyle->PointSize[0.0211 结果 实验3观祭n→0时数列a1=1的变化趋势 程序 an= Table[l/n^2),{n21,100}] ListPlot(an, PlotStyle->PointSize[.o1] 结果结果： 2 2 0.50000000000000000000 -0.50000000000000000000 3 3 0.66666666666666666667 0.1666666666666666667 4 5 0.60000000000000000000 -0.0666666666666666667 5 8 0.62500000000000000000 0.0250000000000000000 6 13 0.61538461538461538462 -0.0096153846153846154 7 21 0.61904761904761904762 0.0036630036630036630 8 34 0.61764705882352941176 -0.0014005602240896359 9 55 0.61818181818181818182 0.0005347593582887701 10 89 0.61797752808988764045 -0.0002042900919305414 11 144 0.61805555555555555556 0.0000780274656679151 12 233 0.61802575107296137339 -0.0000298044825941822 13 377 0.61803713527851458886 0.0000113842055532155 用散点图观察Fibonacci数列变化趋势 程序： f[n_]:=f[n-1]+f[n-2];f[0]=1;f[1]=1; fab20=Table[f[i],{i,0,20}]; ListPlot[fab20,PlotStyle->PointSize[0.02]]; lnfab20=Log[fab20]; ListPlot[lnfab20,PlotStyle->PointSize[0.02]]; 结果： 实验3 观察 时数列 的变化趋势 程序： an=Table[1/(n^2),{n,1,100}]; ListPlot[an,PlotStyle->PointSize[0.01]]; 结果：