mathematica解方程 急 急

[复制链接]
查看11 | 回复3 | 2010-6-15 13:51:03 | 显示全部楼层 |阅读模式
((1+i)^(25*12)-1)*880.66/i==10000
这个方程 我想解出正有理数解,怎么解呀??

回复

使用道具 举报

千问 | 2010-6-15 13:51:03 | 显示全部楼层
这样可能好看点:Solve[{((1 + x)^(25*12) - 1)*880.66/x == 10000 }, x];X = x /. %;X /. x_ /; Abs[Im[x]] > 10^-4 -> 0(*因为虚部很小的话可能是计算误差导致的,这样至少不会漏掉根,可能有虚部很小的复数数*)得到一个根:-0.0880661 - 1.32847*10^-8 I另外在某一点寻找跟的命令:FindRoot[{((1 + x)^(25*12) - 1)*880.66/x == 10000}, {x, 0.1}]结果为:{x -> -0.088066}计算误差输入:((1 + x)^(25*12
回复

使用道具 举报

千问 | 2010-6-15 13:51:03 | 显示全部楼层
-0.0880661先是a = Solve[((1 + i)^(25*12) - 1)*880.66/i == 10000, i]然后在解出来的一堆解里慢慢找吧。
回复

使用道具 举报

千问 | 2010-6-15 13:51:03 | 显示全部楼层
您这个方程没有未知数啊……
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行