Re: printing symbols at as a table

*To*: mathgroup at smc.vnet.net*Subject*: [mg95299] Re: printing symbols at as a table*From*: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>*Date*: Wed, 14 Jan 2009 05:56:11 -0500 (EST)*References*: <gkgp85$3v3$1@smc.vnet.net>

Hi, SetAttributes[PrintTable, HoldAll] PrintTable[syms_List] := Module[{s = Hold[syms]}, s = s /. sym_Symbol /; ValueQ[sym] :> HoldForm[sym]; Grid[ Transpose[{s[[1]], ReleaseHold[s[[1]]]}], Frame -> All ] ] and m = 1; g = 9.81; q = 2; PrintTable[{m, g, q}] will do it. Regards Jens Magician wrote: > HiI have done a long calculation. But now I want to print some > variables and their values. eg: > > r 20 > g 2.34 > s m^2 + D > > and so on .... > as a summary. The In /Out makes me crazy. I want to create a table of > all values. with the symbol on the left ath value on the right. some > are numeric ei i have assigned a r. Now i want to get the symbol > 'r'. I hope i am not confusing here. >