1.为什么export出的结果精度变高了？
如图，软件内输出了100位整，txt文件里却是116位
N[Pi, 100]
Export["Pi,100.txt", N[Pi, 100]]
有什么办法让txt也输出100位。
2.我不明白在哪一步出错了，无论怎么改都是{1，2，3，…，10}
S和f都正常工作，我随便定义了一个g也很正常，但把f放到递归里就不行了。
S[n_] := NestWhileList[Piecewise[{{
#/2, EvenQ[#
]}}, 3 # + 1] &,
n, # != 1 &]
S[27]
f[x_] := Length[S[x]]
f[27]
RecurrenceTable[{a[n + 1] == f[n] + a[n], a[1] == 1}, a, {n, 10}]
g[x_] := x
RecurrenceTable[{a[n + 1] == g[n] + a[n], a[1] == 1}, a, {n, 10}]
求大佬解答

指定格式为"String"，而不是默认的"Text"

第二个问题源于符号化简。改为
f[x_?NumericQ] := Length[S[x]]
即可。
f[x] -> Length[S[x]] -> Length[{x}] -> 1
递增量是1，所以是等差列