Question

mathematica 小数位保留问题

用一个方程组计算X,Y,Z，最后输出结果我需要保留X,Y,Z小数点后10位，请问如何能做到？ NSolve[{ (35902.563 - x)^2 + (27961.019 - y)^2 + (-5000 - z)^2 == 7685.756^2, (37171.632 - x)^2 + (34797.071 - y)^2 + (-5623 - z)^2 == 8313.475^2, (43459.139 - x)^2 + (29358.478 - y)^2 + (-5300 - z)^2 == 5786.234^2}, {x, y, z}] 输出的结果： {{x -> 41035.3, y -> 29331.6, z -> -10554.}, {x -> 41284.7, y -> 30246.1, z -> -11.8493}} 我知道我输入的数值中含有小数，输出的值只会有6位有效数。但不知道怎么改更高精度？望高手赐教。谢谢！

Answer 1

比如说你要五十位，也就输入： NSolve[{ (35902563/1000 - x)^2 + (27961019/1000 - y)^2 + (-5000 - z)^2 == (7685756/1000)^2, (37171632/1000 - x)^2 + (34797071/1000 - y)^2 + (-5623 - z)^2 == (8313475/1000)^2, (43459139/1000 - x)^2 + (29358478/1000 - y)^2 + (-5300 - z)^2 == (5786234/1000)^2}, {x, y, z},50] 即可 要注意原方程中的小数最好改为分数。