mathematica问题急求!

mathematica问题急求!
我想实现f[n],使f[n]=f[1]*f[2]*.*f[n-1]+1
于是我写
f[1] = 2;
f[n_] := Product[f[i],{i,n - 1}] + 1
Table[f[n],{n,20}]
但结果不对!
输出的是{2,3,2,3,5,8,13,21,34,55,89,144,233,377,610,987,1597,
2584,4181,6765}
但我想要的是{2,3,7,43,1807,.}
0titila 1年前 已收到1个回答 举报

fj34 幼苗

共回答了13个问题采纳率:84.6% 举报

你有可能是在修改的过程中,
不小心重复使用或改动了某个全局变量,
最后导致结果出现异常.
我用你写的算法(没有修改),跑出来的就是你想要的结果.
建议你下次在nb写好以后保存,然后完全退出Mathematica,然后再点击你要打开的nb,单独运行.
这样可以清理掉那些驻在内存里的会影响你算法正常运行的变量.

1年前

3
可能相似的问题
Copyright © 2024 YULUCN.COM - 雨露学习互助 - 16 q. 0.014 s. - webmaster@yulucn.com