Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

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

Search the Archive

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.
> 


  • Prev by Date: How to modify an Excel file
  • Next by Date: Maximizing function which defines a routine
  • Previous by thread: Re: printing symbols at as a table
  • Next by thread: RE: Keeping plot annotations after regenerating a plot