文件名称：数字黑洞.nb
文件大小：39KB
文件格式：NB
更新时间：2022-11-17 14:29:55
mathematica
mathematica演示数字黑洞，123黑洞、6174、水仙花数、角谷猜想 func[x_] := If[OddQ[x], 3*x + 1, x/2] NestWhileList[func, 27, # != 1 &] ListLinePlot[%, PlotRange -> All]
数字黑洞.nb
【文件属性】：
文件名称：数字黑洞.nb
文件大小：39KB
文件格式：NB
更新时间：2022-11-17 14:29:55
mathematica
mathematica演示数字黑洞，123黑洞、6174、水仙花数、角谷猜想 func[x_] := If[OddQ[x], 3*x + 1, x/2] NestWhileList[func, 27, # != 1 &] ListLinePlot[%, PlotRange -> All]