Return to Answer

• Meaning of backtick in floating-point literal
• How do you round numbers so that it affects computation?
• Fixed-Point Numbers in Mathematica
• A problem about function N
• Explicit digit-count (precision) of real number

• Meaning of backtick in floating-point literal
• How do you round numbers so that it affects computation?
• Fixed-Point Numbers in Mathematica
• A problem about function N
• Explicit digit-count (precision) of real number

• Meaning of backtick in floating-point literal
• How do you round numbers so that it affects computation?
• Fixed-Point Numbers in Mathematica
• A problem about function N
• Explicit digit-count (precision) of real number
• http://mathematica.stackexchange.com/q/86648/121

• Meaning of backtick in floating-point literal
• How do you round numbers so that it affects computation?
• Fixed-Point Numbers in Mathematica
• A problem about function N
• Explicit digit-count (precision) of real number

SetAttributes[num, NHoldAll]
num /: num[x_] * y_. := num[x * y]
num /: num[x_] + y_. := num[x + y]
Format[num[x_]] := N[x]

g[num[x_] | x_, n_] := num @ Round[x, 10^(1 - n + ⌊Log10@Abs@x⌋)]

• Meaning of backtick in floating-point literal
• How do you round numbers so that it affects computation?
• A problem about function N
• Explicit digit-count (precision) of real number

SetAttributes[num, NHoldAll] 

num /: num[x_] * (num[y_] | y_.) := num[x * y]
num /: num[x_] + (num[y_] | y_.) := num[x + y] 

Format[num[x_]] := N[x]

g[num[x_] | x_, n_] := num @ Round[x, 10^(1 - n + ⌊Log10@Abs@x⌋)]

• Meaning of backtick in floating-point literal
• How do you round numbers so that it affects computation?
• Fixed-Point Numbers in Mathematica
• A problem about function N
• Explicit digit-count (precision) of real number
• http://mathematica.stackexchange.com/q/86648/121