mathematica8的一处bug

wsc810 · 发表于 2012-7-31 12:46:57

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？欢迎注册

×

用mathematica8计算如下表达式
FromContinuedFraction[{3 + I, -1 - 3 I, 1 - I, -2 I, -I, 1 - 2 I, -I, -2 I, 1 - I, -1 - 3 I}] //Denominator
  分母：291
分子：864 + 392 I

  整体计算结果：288/97 + (392 I)/291
而实际结果应为分子：-72-12I
                        分母：-27-12I
看来这个bug不知多久才能被改过来，现在本人有急用，谁能重新编写一个函数，求出此值，大概要用到表的操作吧，如能帮助，非常感谢！！

lsrong314 · 发表于 2012-7-31 14:45:49

g = {3 + I, -1 - 3 I, 1 - I, -2 I, -I, 1 - 2 I, -I, -2 I, 1 - I, -1 - 3 I}; t = Sum[1, {j, g}]; p[0] = 1; q[0] = 0; p[1] = Part[g, 1]; q[1] = 1; Do[p[i] = Part[g, i] p[i - 1] + p[i - 2]; q[i] = Part[g, i] q[i - 1] + q[i - 2], {i, 2, t}]; {p[t], q[t]}

复制代码

gxqcn · 发表于 2012-7-31 15:47:39

楼上代码的运行结果为：{-64 - 72 I, -27 - 12 I}

wayne · 发表于 2012-7-31 21:28:19

1# wsc810
是你算错了.

FromContinuedFraction[{3 + I, -1 - 3 I, 1 - I, -2 I, -I, 1 - 2 I, -I, -2 I, 1 - I, -1 - 3 I}]

复制代码

答案是288/97 + (392 I)/291
而 lsrong314 的代码答案是 (-64 - 72 I)/(-27 - 12 I)
将他的分母有理化,会发现答案是相同的.

账号		自动登录	找回密码
密码			欢迎注册

[讨论] mathematica8的一处bug

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。