mathematica解方程 急 急((1+i)^(25*12)-1)*880.66/i==10000这个方程 我想解出正有理数解,
来源:学生作业帮助网 编辑:作业帮 时间:2024/11/26 21:52:45
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
可见效果理想。
收起