mathematica解方程 急 急((1+i)^(25*12)-1)*880.66/i==10000这个方程 我想解出正有理数解,
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/21 05:24:23
![mathematica解方程 急 急((1+i)^(25*12)-1)*880.66/i==10000这个方程 我想解出正有理数解,](/uploads/image/z/10199838-30-8.jpg?t=mathematica%E8%A7%A3%E6%96%B9%E7%A8%8B+%E6%80%A5+%E6%80%A5%28%281%2Bi%29%5E%2825%2A12%29-1%29%2A880.66%2Fi%3D%3D10000%E8%BF%99%E4%B8%AA%E6%96%B9%E7%A8%8B+%E6%88%91%E6%83%B3%E8%A7%A3%E5%87%BA%E6%AD%A3%E6%9C%89%E7%90%86%E6%95%B0%E8%A7%A3%2C)
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
可见效果理想。
收起