使用mathematica编写100精确数值解的代码

以下是使用Mathematica编写求解的代码：

(*定义方程*)
f[x_] := x^3 - x^2 + 2*x - 1;
(*求解方程*)
solutions = NSolve[f[x] == 0, x, WorkingPrecision -> 100, PrecisionGoal -> 100, AccuracyGoal -> 100];
(*输出结果*)
solutions

代码中，首先定义了方程f[x]，然后使用NSolve函数求解方程，其中WorkingPrecision、PrecisionGoal、AccuracyGoal参数都设置为100，保证计算结果的精度和准确性。最后，使用solutions变量保存求解结果，并输出结果。

需要注意的是，由于方程的根不一定是有理数，因此在求解过程中可能会出现无限循环或者无法求解的情况。此时，需要适当调整参数或者使用其他的求解方法来解决问题。