mathematica问题急求!我想实现f[n],使f[n]=f[1]*f[2]*.*f[n-1]+1于是我写f[1] = 2;f[n_] := Product[f[i],{i,n - 1}] + 1Table[f[n],{n,20}]但结果不对!输出的是{2,3,2,3,5,8,13,21,34,55,89,144,233,377,610,987,1597,2584,4181,6765}但我想
来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/18 03:35:27
mathematica问题急求!我想实现f[n],使f[n]=f[1]*f[2]*.*f[n-1]+1于是我写f[1] = 2;f[n_] := Product[f[i],{i,n - 1}] + 1Table[f[n],{n,20}]但结果不对!输出的是{2,3,2,3,5,8,13,21,34,55,89,144,233,377,610,987,1597,2584,4181,6765}但我想
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,.}
mathematica问题急求!我想实现f[n],使f[n]=f[1]*f[2]*.*f[n-1]+1于是我写f[1] = 2;f[n_] := Product[f[i],{i,n - 1}] + 1Table[f[n],{n,20}]但结果不对!输出的是{2,3,2,3,5,8,13,21,34,55,89,144,233,377,610,987,1597,2584,4181,6765}但我想
你有可能是在修改的过程中,
不小心重复使用或改动了某个全局变量,
最后导致结果出现异常.
我用你写的算法(没有修改),跑出来的就是你想要的结果.
建议你下次在nb写好以后保存,然后完全退出Mathematica,然后再点击你要打开的nb,单独运行.
这样可以清理掉那些驻在内存里的会影响你算法正常运行的变量.