Home/ Questions/Q 6574145
In Process

The Archive Base Latest Questions

Editorial Team
  • 0
Asked: 2026-05-25T15:13:24+00:00

Consider : Grid@Partition[ Text[Style[ToString[Range[0, 180, 22.5][[#]]] <> \[Degree], Bold, 16, GrayLevel[(8 – #)/10]]] &

  • 0

Consider :

Grid@Partition[
     Text[Style[ToString[Range[0, 180, 22.5][[#]]] <> "\[Degree]", Bold, 16,
          GrayLevel[(8 - #)/10]]] & /@ Range[8], 2, 1]

enter image description here

How can I get rid of the dot following the Integers ?

Share

Leave an answer

You must login to add an answer.

Need An Account,

1 Answer

  1. Editorial Team

    If a number becomes an integer when you rationalize it, use the integer; otherwise stick with the original number. This is achieved by a simple function, f[x]:

    f[x_] := If[IntegerQ[n = Rationalize[x]], n, x]

    Testing…

    f[67.5]
f[0.]
f[45.]

(* Out  *)
67.5
0
45

    You can’t just Rationalize all the values, as the following makes clear:

    rationalize

    To see how it works in your case, just insert (f/@) into your code to reformat the values output from Range:

    Grid@Partition[
Text[Style[
  ToString[(f/@ Range[0, 180, 22.5])[[#]]] <> "\[Degree]", 
  Bold, 16, GrayLevel[(8 - #)/10]]] & /@ Range[8], 2, 1]

    So

    temps

    • 0