Обрезать десятичные числа в Wolfram Mathematica?

Question

Есть ли быстрый и простой способ обрезать десятичное число, скажем, больше 4 цифр, в MATHEMATICA?

С N[1/6, 4] округляется до =1.6667.

Я хочу, чтобы высократить до 1.6666.

Спасибо!

Answer 1

f[x_, n_] := N[IntegerPart[x 10^n]/10^n]

f[1/6, 4]

1,6666

Однако, обратите внимание

f[N[531/25], 4]

21,2399

так что действительно требуется дальнейшее уточнение.