Wolfram Mathematica показывает N, пока не будет достигнуто определенное число

Question

Может кто-нибудь, кто использует Wolfram Mathematica, сказать мне, как я могу показать N, пока не будет сгенерировано определенное число? Хотите показать значение пи, пока оно не достигнет 6764.

Answer 1

См. http://mathworld.wolfram.com/PiDigits.html, особенно загружаемый блокнот.

pi = N[Pi, 30000];
string = StringTake[ToString[pi], {3, -3}];
pos = StringPosition[string, "6764"][[All, 2]];
"3." <> StringTake[string, First[pos]]

3.1415926535 ... 162788 6764

Answer 2

NumberForm [N [Pi], 6764]

Больше информации на https://reference.wolfram.com/language/ref/NumberForm.html