找回密码
 欢迎注册
查看: 16610|回复: 3

[讨论] mathematica8的一处bug

[复制链接]
发表于 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不知多久才能被改过来,现在本人有急用,谁能重新编写一个函数,求出此值,大概要用到表的操作吧,如能帮助,非常感谢!!
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2012-7-31 14:45:49 | 显示全部楼层
  1. 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]}
复制代码
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2012-7-31 15:47:39 | 显示全部楼层
楼上代码的运行结果为:{-64 - 72 I, -27 - 12 I}
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2012-7-31 21:28:19 | 显示全部楼层
1# wsc810 是你算错了.
  1. 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) 将他的分母有理化,会发现 答案是相同的.
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
您需要登录后才可以回帖 登录 | 欢迎注册

本版积分规则

小黑屋|手机版|数学研发网 ( 苏ICP备07505100号 )

GMT+8, 2024-12-23 11:02 , Processed in 0.025524 second(s), 16 queries .

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表