找回密码
 欢迎注册
楼主: mathematica

[原创] 花几分钟做了两道project euler习题

[复制链接]
 楼主| 发表于 2011-4-12 21:33:35 | 显示全部楼层
没意思的争论!
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
 楼主| 发表于 2011-4-12 21:34:31 | 显示全部楼层
至于他的算法是不是亮点,你可以把那个n的值设得很大,然后看一下他的算法的运行时间
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
 楼主| 发表于 2011-4-12 21:38:16 | 显示全部楼层
试一下这个吧,
Reduce[a^2 + b^2 == c^2 && a + b + c == 100000000 && 0 <= a &&
   a <= b && b <= c, Integers] // Timing
这个能够产生多解答,他的那个程序肯定不能产生多个解答.
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
 楼主| 发表于 2011-4-12 21:40:46 | 显示全部楼层
对了Reduce[a^2 + b^2 == c^2 && a + b + c == 100000000 && 0 <= a &&
  a <= b && b <= c, Integers]的求解结果是
(a == 0 && b == 50000000 && c == 50000000) || (a == 2343750 &&
   b == 48800000 && c == 48856250) || (a == 20000000 &&
   b == 37500000 && c == 42500000) || (a == 21875000 &&
   b == 36000000 && c == 42125000)
这种形式,
如何转换成{{a1,b1,c1},{a2,b2,c2}}这种形式呢?
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2011-4-12 21:55:25 | 显示全部楼层
List@ToRules@Reduce[a^2 + b^2 == c^2 && a + b + c == 100000000 && 0 <= a &&
  a <= b && b <= c, Integers]
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
您需要登录后才可以回帖 登录 | 欢迎注册

本版积分规则

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

GMT+8, 2024-3-29 13:32 , Processed in 0.044995 second(s), 15 queries .

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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