[Date Index] [Thread Index] [Author Index]

Re: Deleting subscripted functions with arguments.

• To: mathgroup@smc.vnet.net
• Subject: [mg11006] Re: Deleting subscripted functions with arguments.
• From: Paul Abbott <paul@physics.uwa.edu.au>
• Date: Mon, 16 Feb 1998 18:15:15 -0500
• Organization: University of Western Australia
• References: <6c659j$6b3@smc.vnet.net>

Alvin Larson wrote:
 
> While using Mathematica v3.0 on Windows 95, I am unable  to delete a
> function that I have defined with a subscript. I have defined A_n[x_]
> := 2 x, where _n is subscript n or [ctl]_n.  Using Clear[A_n] or A_n =.
> does not work. A copy of the session  is shown below.  Any suggestions?

The rules are associated with Subscript rather than with A.  Try 

	?Subscript 

and you will see this. You can either use Unset, i.e.,

	\!\(A\_n[x_]\  =.\)

or use Clear[Subscript] (but this clears _all_ rules associated with
Subscript).

I've appended a Notebook below.

Cheers,
	Paul 

____________________________________________________________________ 
Paul Abbott                                   Phone: +61-8-9380-2734
Department of Physics                           Fax: +61-8-9380-1014
The University of Western Australia            Nedlands WA  6907       
mailto:paul@physics.uwa.edu.au  AUSTRALIA                            
http://www.pd.uwa.edu.au/~paul

            God IS a weakly left-handed dice player
____________________________________________________________________

Notebook[{
Cell[BoxData[
    \(A\_n[x_]\  := \ 2\ x\)], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
    \(A\_n[y]\)], "Input"],

Cell[BoxData[
    \(2\ y\)], "Output"]
}, Open  ]],

Cell[BoxData[
    \(A\_n[x_]\  =. \)], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
    \(A\_n[y]\)], "Input"],

Cell[BoxData[
    \(A\_n[y]\)], "Output"]
}, Open  ]],

Cell[BoxData[
    \(A\_n[x_]\  := \ 2\ x\)], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
    \(A\_n[y]\)], "Input"],

Cell[BoxData[
    \(2\ y\)], "Output"]
}, Open  ]],

Cell[BoxData[
    \(Clear[Subscript]\)], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
    \(A\_n[y]\)], "Input"],

Cell[BoxData[
    \(A\_n[y]\)], "Output"]
}, Open  ]]
}
]