Re: Re: Symbol name extraction
- To: mathgroup at smc.vnet.net
- Subject: [mg73813] Re: [mg73777] Re: Symbol name extraction
- From: gardyloo <gardyloo at mail.wsu.edu>
- Date: Thu, 1 Mar 2007 06:12:15 -0500 (EST)
- References: <errlbu$83p$1@smc.vnet.net><es135k$o03$1@smc.vnet.net> <200702280932.EAA24365@smc.vnet.net>
Daniel and Istvan,
Very clever. This will be extremely helpful to me: thanks for
posting this discussion!
- Curtis O.
zac wrote:
> That's crystal clear, using this information
> I've created the function that satisfies my taste:
>
> Attributes[PrintSymbolValue] = {HoldAll, Listable};
> PrintSymbolValue[sym_Symbol] := SymbolName[Unevaluated[sym]] <>
> " = " <> ToString[FullForm[sym]] <> ";\n";
>
> applied to a list of variables. A final StringJoin concatenates the
> output list of strings.
> Thank you Daniel.
>
> Istvan
>
>
--
==========================================================
Curtis Osterhoudt
gardyloo at mail.remove_this.wsu.and_this.edu
PGP Key ID: 0x088E6D7A
Please avoid sending me Word or PowerPoint attachments
See http://www.gnu.org/philosophy/no-word-attachments.html
==========================================================