考虑 :
Grid@Partition[
Text[Style[ToString[Range[0, 180, 22.5][[#]]] <> "\[Degree]", Bold, 16,
GrayLevel[(8 - #)/10]]] & /@ Range[8], 2, 1]
我怎样才能摆脱 Integers 后面的点？
最佳答案
如果一个数在有理化时变成整数，则使用整数；否则坚持原来的号码。这是通过一个简单的函数实现的，f[x] :
f[x_] := If[IntegerQ[n = Rationalize[x]], n, x]
测试...
f[67.5]
f[0.]
f[45.]
(* Out *)
67.5
0
45
你不能只是
Rationalize所有值，如下所示:
要查看它在您的情况下如何工作，只需插入
(f/@)进入您的代码以重新格式化从 Range 输出的值:Grid@Partition[
Text[Style[
ToString[(f/@ Range[0, 180, 22.5])[[#]]] <> "\[Degree]",
Bold, 16, GrayLevel[(8 - #)/10]]] & /@ Range[8], 2, 1]
所以
关于wolfram-mathematica - 合理化数值输出，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/7451822/