如何用Mathematica解一下两题

题目

如何用Mathematica解一下两题
1,求数列X1=2,Xn=见下图 的极限.并画出数列散点图,列出数列值的表并求极限.
2,数列C0=C1=C2=1,C(n+1)=C(n-1)+C(n-2)【上三个括号里的为下标】 (n>=2)求出数列的前50项
是Mathematica4.0版的……要整个过程的

答案

data = NestList[Sqrt[2 + Sqrt[1 #]] &,2,100] // N(*获得嵌套数列的离散值*)ListPlot[data,Joined -> True](*输出数列规律*)Solve[x == Sqrt[2 + Sqrt[x]],x] // N(*求解方程,获得极限*){{x -> 1.83118}}为数列的...