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这个方程 我想解出正有理数解,
xTnAy1P)@I_ńPC$ۘM B)`iTZ[ i"EwfO%XMOnf7sgsϹq+ >1;Wk23A~ o\6o~=P#P@mHS13j~[bu/=~IoO\ kN'8&o$}@ Ų( &E E҉AT7p~!aM-m(le*Kﵑ|uskwܭ$ޘTA>ADUqK_%2CN#L#PԊ=Oı(qҚoa' Ef1^d$1YۊҽDҸOth ܧ;M,46\YCMqtDɐ b̸ Fq=<Ր#ev'ZΏE,[wF<밻f,Z.`@r'ԃA;eWzՑOBj-8)w"854Fk+:h 7Ԙ:sw\ }D/I1 eiT=z;>_:~ά

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
可见效果理想。

收起