作业帮mathematica解方程 急 急((1+i)^(25*12)-1)*880.66/i==10000这个方程 我想解出正有理数解,
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/15 19:37:01
mathematica解方程 急 急((1+i)^(25*12)-1)*880.66/i==10000这个方程 我想解出正有理数解,
mathematica解方程 急 急
((1+i)^(25*12)-1)*880.66/i==10000
这个方程 我想解出正有理数解,
mathematica解方程 急 急((1+i)^(25*12)-1)*880.66/i==10000这个方程 我想解出正有理数解,
-0.0880661
先是
a = Solve[((1 + i)^(25*12) - 1)*880.66/i == 10000,i]
然后在解出来的一堆解里慢慢找吧.
您这个方程没有未知数啊……
这样可能好看点：
Solve[{((1 + x)^(25*12) - 1)*880.66/x == 10000
}, x];
X = x /. %;
X /. x_ /; Abs[Im[x]] > 10^-4 -> 0
(*因为虚部很小的话可能是计算误差导致的，这样至少不会漏掉根，可能有虚部很小的复数数*)
得到一个根：-0.0880661 -...
全部展开
这样可能好看点：
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) - 1)*880.66/x - 10000 /. %
输出：
3.63798*10^-12
可见效果理想。
收起