如何在Wolfram Mathematica中截断小数而非四舍五入？

当然有啦！Mathematica里确实有几种简单的方式来实现小数截断（而非四舍五入），刚好能满足你把1/6截断为4位小数得到1.6666的需求。下面给你分享几个实用的方法：

方法一：缩放+向下取整（最直接的数值处理） #

核心思路是通过缩放把需要保留的小数位转化为整数部分，截断后再缩回去。对于要保留n位小数的数x，可以用这个公式：

Floor[x*10^n]/10^n

针对你的例子，保留4位小数的话，代码就是：

Floor[N[1/6]*10^4]/10^4

运行后会得到1.6666，完美实现截断效果。这里Floor函数对正数来说就是直接截断小数部分，放大10^4后取整再缩小，就相当于保留了前4位小数。

方法二：拆分整数与小数部分处理 #

如果你想更清晰地分开处理整数和小数部分，可以用IntegerPart和FractionalPart配合：

IntegerPart[x] + Floor[FractionalPart[x]*10^n]/10^n

同样代入你的例子：

IntegerPart[N[1/6]] + Floor[FractionalPart[N[1/6]]*10^4]/10^4

结果也是1.6666，这种方式逻辑更直观，适合需要单独操作整数或小数部分的场景。

补充：如果只是需要显示截断结果 #

要是你不需要修改实际数值，只是想在输出时显示截断后的4位小数，可以用NumberForm自定义格式：

NumberForm[N[1/6], NumberFormat -> (Row[{#1, ".", StringTake[#2, 4]}] &)]

这个会直接显示1.6666，但注意它只是显示格式，实际存储的数值还是四舍五入后的结果，所以如果需要后续计算的话，优先用前两种方法。

提示：N[1/6,4]之所以会得到1.6667，是因为N函数默认是按指定的精度进行四舍五入，而不是截断，所以需要专门的截断逻辑来替代它的行为。

内容的提问来源于stack exchange，提问作者jose