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/06/30 01:26:42
![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}但我想](/uploads/image/z/11510754-42-4.jpg?t=mathematica%E9%97%AE%E9%A2%98%E6%80%A5%E6%B1%82%21%E6%88%91%E6%83%B3%E5%AE%9E%E7%8E%B0f%5Bn%5D%2C%E4%BD%BFf%5Bn%5D%3Df%5B1%5D%2Af%5B2%5D%2A.%2Af%5Bn-1%5D%2B1%E4%BA%8E%E6%98%AF%E6%88%91%E5%86%99f%5B1%5D+%3D+2%3Bf%5Bn_%5D+%3A%3D+Product%5Bf%5Bi%5D%2C%7Bi%2Cn+-+1%7D%5D+%2B+1Table%5Bf%5Bn%5D%2C%7Bn%2C20%7D%5D%E4%BD%86%E7%BB%93%E6%9E%9C%E4%B8%8D%E5%AF%B9%21%E8%BE%93%E5%87%BA%E7%9A%84%E6%98%AF%7B2%2C3%2C2%2C3%2C5%2C8%2C13%2C21%2C34%2C55%2C89%2C144%2C233%2C377%2C610%2C987%2C1597%2C2584%2C4181%2C6765%7D%E4%BD%86%E6%88%91%E6%83%B3)
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,单独运行.
这样可以清理掉那些驻在内存里的会影响你算法正常运行的变量.