g[n_] := Fibonacci[n]/Fibonacci[n + 1];
r[n_] := Log[Fibonacci[n]]; lisfn =
Table[Fibonacci[n],{n,10}]; lisgn = Table[g[n],{n,10}]; lisrn =
Table[r[n],{n,10}]; ListLinePlot[{lisfn,lisgn,lisrn},
Mesh -> All]
fibonacci数列在mathematica中有现成的函数.
迭代法你自己写一个就可以了嘛,用Which语句就可以.