Re: List of function-heads
- To: mathgroup at smc.vnet.net
- Subject: [mg17103] Re: [mg17068] List of function-heads
- From: "David Park" <djmp at earthlink.net>
- Date: Sat, 17 Apr 1999 03:35:03 -0400
- Sender: owner-wri-mathgroup at wolfram.com
Peter,
In regard to setting a list of indexed functions:
My previous message gave a method which worked, but only once. The
attached notebook gives and illustrates a routine which I believe will
be more useful. This is the code.
SetIndexedFunctions::usage=
"SetIndexedFunctions[functions_List, var, sym:a] will create a set
of \
indexed functions sym[i][var_]= functions[[i]]. Previous uses of sym
are \
cleared.";
SetIndexedFunctions[functionlist_List,var_,sym_:Global`a]:=
(Clear[sym];
Do[sym[i][var_]=functionlist[[i]],{i,Length[functionlist]}])
The above gives an error message when evaluated, but it apparantly can
be ignored. There are no error message when using it.
David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/