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位有效数。但不知道怎么改更高精度？望高手赐教。谢谢！