Using a built-in symbol as a variable

Question

I want to produce a Mathematica Computable Document in which N appears as a variable in my formulae. But N is a reserved word in the Mathematica language. Is there a way round this other than using a different symbol? It seems a severe limitation if you cannot use Mathematica to generate papers in which N is employed as a variable.

Answer 1

You could use capital Nu, \[CapitalNu], from the Greek alphabet. It is visually almost identical to capital N from the Roman alphabet. But it has no predetermined assignment.

\[CapitalNu] = 5
2 \[CapitalNu]

The following shows how the input is displayed on screen.

Answer 2

As it is often voiced here, modifying built-in variables is not a good idea most of the times, especially in case of such fundamental symbols as N. It is used heavily through millions of underlying code lines, and you will never know where your change can (and will) cause any mischief (or catastrophe).

On the other hand, the name of the variable and the way it is displayed could be completely different. You can use Format for example to give a specific formatting whenever n is printed:

Clear[n];
n[x_] := N[x/5];
Format[n] := Style["N", Red, Italic, Bold];

n

n[12]

2.4

(Note, that since Format does not have attribute HoldFirst or HoldAll, n should not have any OwnValues, otherwise the assignment won't happen.)

Answer 3

The methods suggested by David and István already do the job perfectly, but one could add something to the collection:

As described in the documentation on Operators without Built-in Meanings, there are some two-dimensional forms such as Subscript and UnderBar which can be re-defined to your liking. This is particularly useful if you need the 'N' with additional decorations anyway, such as $\text{N}_1$, $\text{N}_\text{total}$ or $\underline{\text{N}}$.

For these kinds of symbols you don't re-define N directly, but instead add a definition that is associated with the two-dimensional form in which the symbol appears. For example, I can set the following (note that the form Subscript["N", 0] can be entered more conveniently using keyboard shortcuts, but that wouldn't display so nicely here):

ClearAll[Subscript];

Subscript["N", 0] = 6

(* ==> 6 *)

7 Subscript["N", 0]

(* ==> 42 *)

DownValues[Subscript]

(* ==> {HoldPattern[Subscript["N", 0]] :> 6} *)

The last line shows how the definition is stored as a definition associated with DownValues[Subscript]. The fact that we get 42 from the multiplication shows that the definition of the subscript works as expected.

To erase the definition, I can either use ClearAll[Subscript] or more specifically

Subscript["N", 0] =.

The shortcut to input the subscript is to type "N" followed by Ctrl- and then 0.

You can also use strings in the subscript, instead of numbers. That allows you to get a "variable" that displays as $N$ without decoration by entering

Subscript["N", ""]

Again you could assign things to this subscripted form as well. Another use for a string subscript would be (here I'll copy the two-dimensional form in box notation, it should look nicer when copied into the notebook):

\!\(\*SubscriptBox[\("\<N\>"\), \("\<total\>"\)]\) = 100

(* ==> 100 *)

Sum[i, {i, 
\!\(\*SubscriptBox[\("\<N\>"\), \("\<total\>"\)]\)}]

(* ==> 5050 *)

Of course one can use these re-defined operators as a substitute for Format as well. For example, here is some symbolic input and symbolic output:

nn = Subscript["N", ""]

$\text{N}$

Sum[i, {i, nn}]

$\frac{1}{2} \text{N}_{\text{}}\left(\text{N}_{\text{}}+1\right)$

You can then keep working with nn as the symbolic variable for computations but get the capital $\text{N}$ in the displayed output.

But you can also do numerical substitutions in the usual way, as here:

% /. Subscript["N", ""] -> 100

(* ==> 5050 *)

(again, all the expressions looking like Subscript above can be made to appear more naturally by using the two-dimensional keyboard input methods).

Finally, everything I said here about Subscript also applies to things like UnderBar["N"] which displays as $\underline{\text{N}}$.

The Subscript combined with strings can also be useful when defining a whole set of similarly named variables automatically using something like this:

normalVector = 
 Array[Subscript["N", {"x", "y", "z"}[[#]]] &, 3]

$\left\{\text{N}_{\text{x}},\text{N}_{\text{y}},\text{N}_{\text{z}}\right\}$

Norm[normalVector] /. {
\!\(\*SubscriptBox[\("\<N\>"\), \("\<x\>"\)]\) -> 1, 
\!\(\*SubscriptBox[\("\<N\>"\), \("\<y\>"\)]\) -> 0, 
\!\(\*SubscriptBox[\("\<N\>"\), \("\<z\>"\)]\) -> 0}

(* ==> 1 *)

For even better formatting, you could replace normalVector by "N" Ctrl'7' escvecesc which displays as $\vec{\text{N}}$.

Answer 4

Ok, I'm late here, but the first thing I would have answered hasn't been answered already.

If it's a one-cell-er, you can use Module

Module[{N}, 
 N = 8;
 N + 3]

This can never bring you trouble with internal definitions since that N you see is not actually N.

If it comprises multiple cells, you can use contexts, and interpret the RED N as a reminder that you're doing weird things. You can always access the regular N function by System`N, and return to normal by either Remove[N], or $ContextPath=Rest@$ContextPath

prvt`N;
PrependTo[$ContextPath, "prvt`"];

Answer 5

To continue with Ajasja's land mine theme, it's not so problematic to use N as a symbol in equations like this:

as long as you keep the following in mind:

• Don't try to use it in an assignment (because you can't)
• Don't use [...] in its neighborhood, nor #&@
• Keep it far away from Map, Apply, Fold, Nest etc.

But frankly, this probably isn't the best idea to go for. Land mines may be safer.